' Copyright (C) 1988-1999 Altera Corporation
' Any megafunction design, and related net list (encrypted or decrypted),
' support information, device programming or simulation file, and any other
' associated documentation or information provided by Altera or a partner
' under Altera's Megafunction Partnership Program may be used only to
' program PLD devices (but not masked PLD devices) from Altera.  Any other
' use of such megafunction design, net list, support information, device
' programming or simulation file, or any other related documentation or
' information is prohibited for any other purpose, including, but not
' limited to modification, reverse engineering, de-compiling, or use with
' any other silicon devices, unless such use is explicitly licensed under
' a separate agreement with Altera or a megafunction partner.  Title to
' the intellectual property, including patents, copyrights, trademarks,
' trade secrets, or maskworks, embodied in any such megafunction design,
' net list, support information, device programming or simulation file, or
' any other related documentation or information provided by Altera or a
' megafunction partner, remains with Altera, the megafunction partner, or
' their respective licensors.  No other licenses, including any licenses
' needed under any third party's intellectual property, are provided herein.

NOTE "CREATOR" "POF to JAM converter Version 9.3 7/23/1999";

NOTE "DEVICE" "EPM7128A";

NOTE "FILE" "autoseller.pof";

NOTE "UESCODE" "FFFF";


'Device #1: EPM7128A - f:\my projects\eda-vhdl\autoseller\autoseller.pof Thu Dec 13 20:27:04 2007

BOOLEAN A21[104320] = ACA
mB300u@@@@3q6aP8k2@@@xXJm@@_V_4S@@@7PBXYX@@@Nz@V@XA7z@@@U@@VT@@@
vd_Vd@@@PJJ8e@u@7zt@Vql@@zFVm@@_@v@Duz@7Upu@_@t@x@l@VtVxz@@1gG_@
@CCOjInfCwNodSU8hb@@@UVt@@1FRan0qB8dIGW9VWn0@V902700uuTmV@x@@VZ0
eFeR@Gym8C_@@azXpzPzlUtn@Vlt@@R@_@dm@xVztlzx@@yn_R@lVi@@1AC_@tpr
xm_RtlJtPltl@VnV_@tpUpp@zr@@x@pPtjt@lv@@@IBC_@Vlz_@@x@t@tV@@Vmh8
3SEM1Fgy@@_x@Fzd@Vrlx_zF@@@@_@k@3yin@@1V8O2Ux@@zhrlwp@@88B7@@@FQ
z@szzlzxz@tFOa1@@tVU@q@zly@FC2Z@x_QKQbxoQoa3oIm@@_hFu@V@Fy@s_@V3
Bvn@h@ltzlV@6_dyz@@3GBI@@@X@@@hmI32LBo@xlk@r@VvVx@vk6u@@_@28XkNL
y@@Fm@@@FyT9@xTo_@@@5k@@Bz@@rV@@dYVrN@z@@_@@D3ajn@zEZIjp9vi@pEvy
@z@J_p@FrtN@_lFu@V@Vtx6@_@2fdn@B@l@@lV@__l1tCut@@s@@@@Ic11jmu@xj
dVVqld@@zmyYy@z_7mBX@z@V@lyx_@@@2uHo@@@F@n@Vt@hyX_cnl@@d@@@Rl@@z
11Jm@V@l@@tV@@@@_t_@722Z@pOOtRlVoeqdzpx@7EC1@s@@_@V_z@z@6qQ6@@Vl
s@@@j@x@7Oi8@@V66uS@uK6bwvVEF4f4_1_@3HoZ@xlUVM@@_@r@3Mk4z@@@GG94
s49@@V@_@@@r@@t7059@z@@_@@zz@@@7mRcWgc5UDg0jyu@V@Fah4_7y@3vYa@@@
tbl6m@x@F0QW1aro@@dlm@4U@d@fXHuyYX11FC8OqFbBJ8W2LXRcCuHfXwfI@@@V
0be2LXJ@@_@J4QGO9pyWe1_@@t2aHK@@@3QXhq5yyd4oe1_VrVzzv@7uME_@@zzV
_ox@Fyt@V_d@@@V@Tp@XIbZ@@@U@@_@jJaGWR6G0qFqz@8VGa5vtt@t@l@l@x@NV
Vs@ZJ2Z@puU@@l@se@dztx@7Ov3_@t@3KO6@@@zi@l@T@x@7YPH_@@yi2zxnlywt
oFSU8I5v@t@t@b@l@V@T@lt@5omm8N64sPE_@r@vz@@d6g1_r@@30r9@@@tXY_Z@
z@z0eer@N@@t6s4owIsOm@5yJFAmsltUW@lyb@N6uVzEyl@3Ub7@H@VyFl@zy7dx
@@VGBSblW@@dmhSo@@_RO4@4OqI_@@uz@@@h@BxtR@tRGk9Cah11C6LmSsyEh1w@
z@3KOfGW7BqiSSl@@7an3XCaGmI76ifJXgGLeUc5Q6I1oyJufHv@@@EmZJY203@G
@@@SdW@@zUU@r@wzz@Fyr0@tx@yz@@r@@@Rlt@DKWPy@@lht@@sslthpzUFl@@zy
UltrxzUQl@xr@@ld@@zUUGt@X2CZxzUBltxv__@t35m0txv@15OWV@tdm3c9K03q
xx_Rlt@t@UlltxzV_k@@X7OW@@1ku1aWtxzkUltx83Ce203qxzU0ktxDt03uzU@h
txzsN@tht@VFltx@X2OW@VlVtx@UUlt@z3yl75G2XCSIm394wT2_@tzpCEX05I8e
0LY20bG1_X@xzUy0r5UW41KaGS39O@txtzUld@xzV_Gtxn80JS39m@z_lW73y@lx
xz@ld@@@l_@@dG1c9U0O2ZuaeF2nx@Ull@_T@U_t_@@@z@t@vz@lF6w4250gW2c9
i4g4U0Oyz@l7UW4Med1XReYWHOGC2CuoD6u@Vlt7q@Va12CG1Wv@@zDK0G5K0GZg
mF_@xl3KW4_@l@ZlGE_@h@r@x@xl@xt@@@l@x@V@kt@w@_@z@@@x@FeFW7p4QX4_
yd11@B1@t@@nXO6@@V@k@@l3Rd4__@@Zl0m1UeH@@U@k@xlyV@dxx@UN@t@j@_lV
t@vVL0m0zV@7exz_J1W1__l@3WI2U@@@zzV@7RY4y@@tx7wUFA0I4oW@Zgm@XXX1
@V@@_@@_Z4oF_l@@38Z1DjpWmsbGCHo9qCCu@@_t@@@Pm8I8yAC4YaPY@a1X3H8@
@r@X0xXOJyVO9Qn@t@jl@lVd@zV7@p0@V@l_x@@T@@@v@_lt7q@UO9Wn@l@V0FUm
@@_@4@C8u6s4Q19yx@l7QXSYmn@n@u@GpqLyACmv@@NF5Cm@t@R50ImFqzUAxCmz
@@NGaCm@d@VpkIml@zVGGI8A0Cu_l@o@z@kl@@V@V@t_x@_z@d@N103q@@VW_@@F
506CdC3yz@@xzl@tx@VVCHC8IIC45W72E49k@@l2Z531@p0V@t@XNncOs8gx@@xe
5OGS3I8pS6u@x@8AFvKBE6Yjp6X_uaWRaW@@x@0zPGePu92C@7Vc@3IZM_@xlzV@
dN103y@@zx_V@l206e@x@1zltVA0C8KACSyF32lI2_l@@Z203Ham0@@_tT4n0@@@
@_yl@7KX1_@3wAAY13hnWm@OGPAC8S894Kb4Y2G2;

BOOLEAN A22[65920] = ACA
m0200u@@@@3q6aP86ZmOu@t@tl@@NdFe@@@FO6yx@@7QB_zl@@93y_@@xQ2_@t@u
Q@@jtDws3_@@tzxl@7K6y@xzf@v@@@Cu@_tl3PmxztN80HGmWtVlNzlt@@P2wzb@
3qby@@3bdFO@h@@gPm@0GTTpW@@73iy@@PE3olb@3v7y@@NNaU4yQnKOu6g_Ho_O
2_VxfP0qV5eIm@@31eD0Q@ew@@o401AE2tVqfRcW@ZE5EYxVXW4y@@wwU@xJV@@@
7D1x@@@w@lzxf9uV@pt@@@BV@@@mg1_@VJy_xjhtV@@lcWYRxNv_@ETs4y@t@xzd
@di@@V881J@_wPN6CerlA@_@l@cW@pk7_@@Vq@@@3n9uztVLV_z@FEXSx3_@x@hp
Uuy@@FunZ@nXwWd72kb@3tFuzw_ha@Gkd1@@@hTy7_1FuT@xrV@z@7O2k@@@zT@p
72mWtpl@Wi4y@@tx@@VF8Z1t@@@ollzx4Jm@t@ktVj@Wi4y@@vht@@tVw_VW26_F
l@z@@@Rt@@@EC1z@@@_T@@@9Jmtl@Vm83_@uzz@@z6anWf@@l0F6S8r@x@__ltC1
@BYAX0Cu@@xNA@@h_sv@@p4y@@khz@@lhS3@x@wPfF8z@@F0b1llx@1eCS4zW@@@
zEq721Um@k@Vew3wz@@wPtm@NVl@Vx@@M6Oz@@NKjXt@ttWM6sXU840YW0Gy@xl7
_oW@@@RdxVR1lCuxx@t_@zVlS2_@@xvUw@jDdW@@@O@xx_vpCuxt@th@@N7T2_Vi
@z_@zn_@@FeE1V@UxVoCu0k@Dib1@Z3BUlz_3aIm@@FkLUFNzjt@ZYCu@j@BOaXW
r7cmVm@_@@DE3_V@N3kPm@@VMkz3HwFuVExlMd1@@F@Qx@@psPG@j@VO_3_@@VJ7
Im@@p@Vk4@wFu@@@RKdX0U9y@@tsxxHeA3f7U8qd1yv@@3JWnO29y@@@EyBXiVIu
@t_tlz@Ntm4y@Pvx@@xFeG2XCa0cu@@DH6yF_eu@@xFbH2_@@yrw@@6KWX8ZU4oI
Y0NFu@@NFm83_@@na@@@FMa1x@@@36Pm@uWV8W7Wo@@FSa1Xto@_z@VwLkX@@pxy
bCu@@lgWY7U@xV31vHbp72J_GOJ921nG3K3q@z@@1jbm8F40LYndU4wWXGfa4KDg
mhH5erf4ICShrWKIF420Y0FFut@zBHw3b0V8uBCXSP80gJ1F6p@NPT808AT_Guc7
yjl@7GfB@l@@1iU840411s8er3DkdvZz3XRy8Vc4XRWCunaXb0xJVB1Kg8Krdi@z
@3VHhCKW9a6my@Vqx@j@@Zn4y@@FQwl@ldH6yYs@NO73_@LT3Na1@@_Zsz@z2SZ1
l@rV@RnW@ll@V6Pmz@RTFZCu@x@ttz@xGZ9u@@ltx@tR8SCu@@@t@@8RM9Cu@@@R
Hh7yZk@72041HoWV@pdIrUGN@@VnUCagt3Bb9HmaC4Ev3PJ_mhbFu@@v5@@@V9UC
0@M_FrF62vw1@@@PpOwH0WICAs3XO_W@dhx1CV8qn70B@@7S53_tINgva1@@@yUv
@V3sa1_@p@X4kX@@@xWkauZJ62rpWWWU83qDy@@lytf7XDHou8j40b7XF4IeKJke
Z7XNva@@xzGMPm@@l5SStgiNPmsxR7k@@@_NJm@ODDhh_@DOJm@@dbyzk@SOPGsf
xFU@@lkOJm@t@j@w@@zOPm@FkVciCuM_VfJJ6y@jkuLT@@3G6yoZx6Ea7@YyGmN@
4OqFPs_W@@tNky@V1ComNWFuV@xlMt72@x1l@@@ZuoG80G44081CQGmSC4Ie4@fo
W@v@@GpQCmiG2DZayYP0@@@VFUj4an31B5LmcE5goOXFBqmpI420411iX@V@@m4z
8GcV2PWgm3su2R32FG5@FK_SFzU2oD1@@Fc0m00apG@@pT200Q30SFgsrT2_70Ku
8gzGd@@70000000000GGo1HqH2k00W@@Fid4yx@@54G2F0SG70C0000P7WDW9000
G2IhFW40m@l8@VDNV00Ge0F4EG2HYRW@@NQI@brX00HouRuVfbcNMxl@@@V@VjLi
o@fx8lb3Rvn@V@l@V@lVdPGVztZw@_@FqJW@NVVWvCu@w@FzvGkKd4@JLLegAgK5
LLv@@zor_V7ggw@ZBNApTFSV@@VpE3_l@@@Pd1_@@V__x@Ak6Z@hDuhpD2F84NNb
@kxkg3F81@xz@b4mG816aKJ8R9C6_lZVtn@Tu@k@Tt@@v@xutTNrjhw_ATVLt_@R
hKz@@xgk@VCV3y@Tzx@@@Q42Ly@zTh@xwFnT6S@@VVCC3wx@@_ETfM@pn@SNFkhd
RrpTzy@V@r@@zZxwlpNtzbx_wEVzzVk_@hztTV1;

NOTE "JAM_VERSION" "1.0";
NOTE "ALG_VERSION" "3.0";
INTEGER A0[23] =
791, 237, 253, 261, 273, 281, 293, 317, 791, 791, 791, 791, 15, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95;
INTEGER A1[23] =
3144, 80, 160, 240, 320, 400, 480, 640, 160, 200, 240, 280, 64, 183, 360, 716, 1574, 0, 3144, 183, 360, 716, 1574;
INTEGER A2[23] =
165, 0, 0, 0, 0, 0, 0, 0, 165, 165, 165, 165, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
INTEGER A3[23] =
112, 0, 0, 0, 0, 0, 0, 0, 64, 80, 96, 112, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
INTEGER A4[23] =
648, 0, 0, 0, 0, 0, 0, 0, 504, 552, 600, 648, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
INTEGER A5[23] =
3144, 16, 32, 48, 64, 80, 96, 128, 32, 40, 48, 56, 64, 183, 360, 716, 1574, 0, 3144, 183, 360, 716, 1574;
INTEGER A6[23] =
32, 2, 4, 6, 8, 10, 12, 16, 0, 0, 0, 0, 0, 2, 4, 8, 16, 24, 32, 2, 4, 8, 16;
INTEGER A7[23] =
7, 0, 0, 0, 0, 0, 0, 0, 4, 5, 6, 7, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
INTEGER A8[23] =
560, 32, 64, 96, 128, 160, 192, 256, 320, 400, 480, 560, 0, 32, 64, 128, 256, 384, 512, 32, 64, 128, 256;
INTEGER A9[21] =
126, 3, 1, 118, 1, 3, 0, 0, 0, 131, 3, 6, 0, 0, 0, 131, 3, 8, 131, 3, 12;
INTEGER A10[14] = 1, 1, 1, 3, 0, 0, 3, 6, 3, 8, 3, 8, 3, 12;
INTEGER A49[14] = 109, 1, 109, 3, 0, 0, 114, 6, 114, 8, 114, 8, 114, 12;
INTEGER A11[5 * 3 * 22] =
98, 0, 1, 98, 31, 4, 97, 31, 1, 0, 0, 0, 0, 0, 0,
96, 1, 0, 96, 2, 0, 97, 0, 1, 97, 1, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
96, 0, 0, 97, 0, 1, 96, 1, 2, 98, 0, 1, 98, 10,129,
98, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
96, 0, 0, 97, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0,
96, 2, 0, 97, 0, 1, 96, 1, 2, 98, 0, 1, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
INTEGER A14[64] =
20, 40, 60, 80, 100, 120, 140, 160, 180, 200, 220, 240,
260, 280, 300, 340, 360, 380, 400, 440, 480, 520, 560, 600,
660, 720, 800, 900, 1000, 1300, 1600, 2000,
3, 4, 5, 7, 9, 11, 12, 14, 16, 20, 24, 28,
36, 50, 64, 86, 116, 154, 200, 280, 360, 480, 640, 860,
1140, 1540, 2000, 2800, 3600, 4800, 6400, 8600;
INTEGER A15[16] =
10, 20, 30, 40, 60, 100, 200, 500,
100, 260, 660, 1660, 4200, 10800, 28000, 60000;
INTEGER A54[30] =
65, 255, 76, 255, 84, 255, 69, 255, 82, 255,
65, 255, 32, 0, 32, 0, 0, 0, 16, 31,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0;
' VARIABLES
INTEGER V0 = 1;
INTEGER A12[V0] = 4;
INTEGER A13[V0] = 1 | 4;
INTEGER A25[V0] = 10;
INTEGER V1 = V0 - 1;
INTEGER V2 = 0;
INTEGER V3 = 0;
INTEGER V4 = 1;
INTEGER A17[V0];
INTEGER A48[V0];
BOOLEAN b;
INTEGER i;
INTEGER j;
INTEGER k;
INTEGER l;
INTEGER V10;
INTEGER V11;
INTEGER V12;
INTEGER V13;
BOOLEAN A18[10];
BOOLEAN A19[10];
BOOLEAN A20[10];
INTEGER V14;
INTEGER V15;
INTEGER V16;
INTEGER V18;
INTEGER V19;
INTEGER V20;
INTEGER V21;
INTEGER V23;
INTEGER V24;
INTEGER V25;
INTEGER V26;
INTEGER V27;
INTEGER V28;
INTEGER V29 = 1;
INTEGER A16[15];
INTEGER V30;
INTEGER V31;
INTEGER V32 = 0;
INTEGER V33 = 0;
INTEGER V34 = 1;
INTEGER V35 = 0;
INTEGER V36 = 0;
INTEGER V37 = 0;
INTEGER V38 = 0;
INTEGER V72 = 0;
INTEGER V73 = 0;
BOOLEAN V39 = 0;
BOOLEAN V40 = 0;
INTEGER V41 = 0;
INTEGER V42 = 0;
BOOLEAN V43 = 0;
BOOLEAN V44 = 0;
BOOLEAN V45 = 0;
INTEGER V46;
INTEGER V47;
INTEGER V48;
BOOLEAN V49 = 0;
INTEGER V51 = -1;
INTEGER V52 = -1;
BOOLEAN V74 = 0;
BOOLEAN V75 = 0;
BOOLEAN V56 = 0;
BOOLEAN V58 = 1;
BOOLEAN A41[10];
BOOLEAN V81 = 0;
BOOLEAN V82 = 0;
INTEGER V83 = 5;
INTEGER V84 = 0;
INTEGER V86 = 0;
INTEGER V68 = 0;
INTEGER V69 = 0;
BOOLEAN DO_ERASE = 0;
BOOLEAN DO_BLANKCHECK = 0;
BOOLEAN DO_PROGRAM = 0;
BOOLEAN DO_VERIFY = 0;
BOOLEAN DO_READ_UES = 0;
BOOLEAN DO_SECURE = 0;
BOOLEAN DO_SECURE_ALL = 0;
BOOLEAN USE_EXTEND_IR_DELAY_METHOD = 0;
BOOLEAN USE_FIXED_ALGORITHM = 0;
L0:
CALL L6;
LET V4 = 1;
CALL L26;
IF (V2 == 0) THEN GOTO L1;
IF (V42 == 0) THEN CALL L94;
IF ((V42 == 0) && DO_ERASE) THEN CALL L69;
IF ((V42 == 0) && DO_BLANKCHECK) THEN CALL L93;
IF ((V42 == 0) && DO_PROGRAM) THEN CALL L56;
IF ((V42 == 0) && DO_VERIFY) THEN CALL L76;
IF ((V42 == 0) && DO_SECURE) THEN CALL L252;
L1:
IF ((V42 == 0) && DO_READ_UES) THEN CALL L42;
CALL L21;
EXIT V42;
L6:
INTEGER V66 = 0;
IF (DO_PROGRAM) THEN LET DO_ERASE = 1;
IF (DO_SECURE_ALL) THEN LET DO_SECURE = 1;
IF ((DO_ERASE || DO_BLANKCHECK) && !DO_PROGRAM &&
(DO_VERIFY || DO_SECURE)) THEN LET V42 = 1;
IF (V42 != 0) THEN GOTO L16;
LET V21 = 0;
FOR i = 0 TO V1;
LET j = 1;
LET k = 1;
IF (((A13[i] & 1) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L7;
LET V2 = A12[i];
LET j = A1[V2];
LET k = A5[V2];
L7:
LET V21 = V21 + j;
LET V66 = V66 + k;
NEXT i;
BOOLEAN A26[5 * V21];
LET l = 0;
FOR i = 4 TO 0 STEP -1;
FOR j = 0 TO V1;
IF (((A13[j] & 1) == 0) ||
((A13[j] & 4) == 0)) THEN GOTO L8;
LET V2 = A12[j];
FOR k = 0 TO (A1[V2] - 1);
IF ((k % 5) == i) THEN LET A26[l] = 1;
LET l = l + 1;
NEXT k;
GOTO L9;
L8:
LET l = l + 1;
L9:
NEXT j;
NEXT i;
LET V16 = 0;
FOR i = 0 TO V1;
LET j = 1;
IF (((A13[i] & 1) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L13;
LET V2 = A12[i];
LET j = A0[V2];
L13:
LET V16 = V16 + j;
NEXT i;
LET V18 = V16;
BOOLEAN A28[V18];
LET V19 = V18;
IF (V21 > V19) THEN LET V19 = V21;
BOOLEAN A29[V19];
BOOLEAN A30[V19];
FOR i = 0 TO (V19 - 1);
LET A30[i] = 1;
NEXT i;
LET V20 = 2 * 5 * V66;
BOOLEAN A31[V20];
BOOLEAN A57[V20];
LET V12 = 0;
LET V13 = 0;
FOR i = 0 TO V1;
LET V12 = V12 + A25[i];
IF (A25[i] > V13) THEN LET V13 = A25[i];
NEXT i;
BOOLEAN A32[V12 + 50];
BOOLEAN A39[V13];
BOOLEAN A33[V13];
FOR i = 0 TO (V13 - 1);
LET A39[i] = 1;
NEXT i;
CALL L30;
IRSTOP IRPAUSE;
DRSTOP IDLE;
STATE IDLE;
LET A18[0..9] = 071;
LET V4 = 1;
CALL L267;
WAIT 10000 USEC;
L16:
RETURN;
L21:
IF (V42 == 1) THEN GOTO L22;
CALL L31;
LET A18[0..9] = 079;
CALL L267;
WAIT 10000 USEC;
STATE IDLE;
L22:
IF (V42 == 0) THEN
PRINT "DONE";
IF (V42 == 1) THEN
PRINT "Invalid option combination specified";
IF (V42 == 2) THEN
PRINT "Unrecognized device";
IF (V42 == 3) THEN
PRINT "Device revision is not supported";
IF (V42 == 4) THEN
PRINT "Device programming failure";
IF (V42 == 5) THEN
PRINT "Device is not blank";
IF (V42 == 6) THEN
PRINT "Device verify failure";
IF (V42 == 8) THEN
PRINT "Unable to read UES from device #", V84 + 1;
RETURN;
L26:
LET j = 0;
FOR i = 0 TO V1;
IF ((j <= V3) &&
((A13[i] & V4) != 0) &&
((A13[i] & 4) != 0)) THEN LET j = i + 1;
NEXT i;
IF (j > V3) THEN GOTO L27;
LET V2 = 0;
LET V3 = 0;
GOTO L28;
L27:
LET V2 = A12[j - 1];
LET V3 = j;
IF (V58) THEN GOTO L28;
LET A41[0..9] = 066;
GOTO L29;
L28:
LET A41[0..9] = 006;
L29:
RETURN;
L30:
CALL L31;
IF (V32 == 0) THEN CALL L264;
LET V10 = 0;
LET V14 = 0;
LET V15 = 0;
LET V49 = 1;
LET V34 = 0;
LET V51 = -1;
LET V52 = -1;
LET V45 = 0;
LET V29 = 1;
IF (DO_PROGRAM) THEN LET V29 = 0;
IF (DO_ERASE && V74) THEN LET V29 = 2;
RETURN;
L31:
FOR i = 0 TO V1;
LET A17[i] = (A13[i] | A48[i]);
NEXT i;
RETURN;
L42:
LET j = 0;
LET k = V1;
LET V34 = 1;
LET V29 = 1;
LET V84 = V84 - 1;
IF (V84 == -1) THEN GOTO L44;
IF ((V84 < 0) || (V84 > V1) ||
((A17[V1 - V84] & 1) == 0)) THEN
LET V42 = 8;
IF (V42 != 0) THEN GOTO L45;
L43:
LET j = V84;
LET k = V84;
L44:
FOR i = j TO k;
LET V84 = i;
PUSH i; PUSH j; PUSH k;
CALL L31;
LET V86 = 0;
IF (((A17[V1 - V84] & 1) != 0) &&
((A17[V1 - V84] & 4) != 0)) THEN
CALL L46;
POP k; POP j; POP i;
NEXT i;
L45:
RETURN;
L46:
LET V4 = 1;
LET A18[0..9] = 016;
CALL L267;
DRSCAN V21, A26[0..(V21 - 1)];
LET A18[0..9] = 01A;
CALL L267;
DRSCAN V21, A26[0..(V21 - 1)];
LET j = V1 - V84;
FOR i = 0 TO V1;
IF (((A17[i] & 1) != 0) && ((A17[i] & 4) != 0) &&
(i != j)) THEN LET A17[i] = A17[i] | 8;
NEXT i;
CALL COMPUTE_7K_N_BITS;
LET V2 = A12[j];
LET V27 = (V2 - 1) * 2;
LET i = A49[V27];
LET V48 = A49[V27 + 1];
LET V46 = A6[V2];
IF (V48 < (V46 >> 1)) THEN GOTO L47;
LET V48 = V46 - V48 - 1;
L47:
LET V27 = j + V24 + (16 * V48) + 12;
FOR V11 = i TO i + 15;
PUSH i;
PUSH V27;
CALL L210;
CALL L153;
POP V27;
POP i;
IF (A31[V27]) THEN
LET V86 = V86 | (1 << (V11 - i));
NEXT V11;
CALL L51;
RETURN;
L51:
EXPORT "USERCODE", V86;
INTEGER V85[4];
FOR i = 0 TO 3;
LET V27 = 0;
LET V85[i] = V86 & 15;
IF (V85[i] > 9) THEN LET V27 = 7;
LET V85[i] = V85[i] + 48 + V27;
LET V86 = V86 >> 4;
NEXT i;
PRINT "Device #", V84 + 1, " UES code is ",
CHR$(V85[3]), CHR$(V85[2]),
CHR$(V85[1]), CHR$(V85[0]);
RETURN;
L56:
PRINT "programming 7K device(s)...";
CALL L30;
CALL L300;
FOR V11 = 1 TO 107;
CALL L210;
CALL L236;
NEXT V11;
LET V49 = 1;
FOR V11 = 109 TO (V32 - 1);
CALL L210;
CALL L236;
NEXT V11;
RETURN;
L63:
LET A18[0..9] = A41[0..9];
CALL L267;
LET A18[0..9] = 00E;
CALL L267;
LET A18[0..9] = 00A;
CALL L267;
IF (V58) THEN LET V56 = 1;
WAIT (V38 * 1000) USEC;
IF (V58) THEN GOTO L64;
IF (V82) THEN LET V83 = 20000;
LET A18[0..9] = 06A;
CALL L267;
LET V83 = 5;
LET A18[0..9] = 06E;
CALL L267;
L64:
LET A18[0..9] = 012;
CALL L267;
RETURN;
L65:
LET A18[0..9] = A41[0..9];
CALL L267;
LET A18[0..9] = 00A;
CALL L267;
IF (V58) THEN LET V56 = 1;
WAIT (V37 * 100) USEC;
IF (V58) THEN GOTO L66;
LET A18[0..9] = 06E;
CALL L267;
L66:
LET A18[0..9] = 012;
CALL L267;
RETURN;
L67:
CALL L31;
FOR i = 0 TO V1;
IF (((A17[i] & 1) == 0) || ((A17[i] & 4) == 0))
THEN GOTO L68;
IF (V82 && ((A48[i] & 128) == 0))
THEN LET A17[i] = A17[i] | 8;
IF (!V82 && ((A48[i] & 128) != 0))
THEN LET A17[i] = A17[i] | 8;
L68:
NEXT i;
IF (V82) THEN LET A41[0..9] = 066;
IF (!V82 && V58) THEN LET A41[0..9] = 006;
RETURN;
L69:
LET A18[0..9] = 012;
CALL L267;
LET A18[0..9] = 01E;
CALL L267;
DRSCAN V16, A30[0..(V16 - 1)];
L70:
CALL L67;