fry.jam

几个VHDL实现的源程序及其代码

' Copyright (C) 1988-2000 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.

'Device #1: EPM7128S - e:\maxplus2\1502d\test11\fry.pof Fri Jul 12 17:04:52 2002

NOTE "CREATOR" "Altera Jam/STAPL Composer Version 9.6 3/22/2000";
NOTE "DATE" "2002/07/12";
NOTE "DEVICE" "EPM7128S";
NOTE "FILE" "fry.pof";
NOTE "TARGET" "1";
NOTE "IDCODE" "071280DD";
NOTE "UES" "FFFF";
NOTE "CHECKSUM" "001B11EE";
NOTE "SAVE_DATA" "DEVICE_DATA";
NOTE "SAVE_DATA_VARIABLES" "V0, A12, A13, A21, A22, A25, A43";
NOTE "STAPL_VERSION" "JESD71";
NOTE "JAM_VERSION" "2.0";
NOTE "ALG_VERSION" "5";
ACTION PROGRAM = PR_INIT_PROGRAM, DO_BLANK_CHECK OPTIONAL, DO_VERIFY RECOMMENDED, DO_SECURE OPTIONAL,
DO_READ_UES OPTIONAL,
PR_EXECUTE;
ACTION BLANKCHECK = PR_INIT_BLANKCHECK, PR_EXECUTE;
ACTION VERIFY = PR_INIT_VERIFY, PR_EXECUTE;
ACTION READ_UES = PR_INIT_READ_UES, PR_EXECUTE;
DATA DEVICE_DATA;
INTEGER V0 = 1;
INTEGER V1 = 0;
INTEGER A12[1] = 4;
INTEGER A13[1] = 5;
INTEGER A25[1] = 10;
INTEGER A43[1] = 0;
BOOLEAN A21[104320] = @
mB300u@@@t@@xl@@@@p0D3oO8E1@@rQwlM@zrQzNr0@hrQw@@@f@VjgMh@o@l_l@
@@VlMhrq@lML@r@xl@tFKIirQzgMltoQzUFltxTzUltqQjUTltwvjMhbrRzkMltx
GbWh_@@WsY_S@@W_0l_@LztN@ktrQPj_VfrwkEy9ul@@FyXuhrQNlp@VunWQj_9@
@wlc@@@3l42qMiK@@7KIurt@FKOm@z@V87Y@@lBhrTjSlhr2P9yq@lw@z@FeW9KO
WkMB@Wt6q@lM2F6uVzVF2QGOCdGc1_hrw2Kjm@lMJxl@VmJ2zVx@XC6y@V_7QLX@
@zVWI2xzx@1FRiMxzNeC88@W@@@bGXDwtt@2KB5u3Hz7@V8OHs@zM31DWr@@Vmu9
Mg@Q3Z2HgrTjt@@@GBL2oa8iKY0qMiMxzwt@@F0T3N@V@XgjeV@dBKr3@76@Y@V@
b@zV7qMaol_T@UltspzFjl@x5_Mah@V5rNz_S@xxz@_@78V2l@@V@@lMMh@Vrlsx
frQfMNVVgzU@Bz@QjiM@@qQrNxzwzd_@vlS_txWMI2fDG@@@l@rQDz@z_qllMLhr
VPdN@t@@_lNhrQg@Nf1ogmhrQNf_TbrwUFltx_k@@@frQjRlVrFuM2N@@_y@@@3p
3n@@@arwlMsxqQw@@@z@V@x@@roQzxlxq@lmS6Ojw@52EJWI2w@zzfxTjgMh@Yzk
_l@@u@GX4y@@V7wtIWY4qv@w7wB1@t@hgrQzzNfLxg@dXzO@F@@P@ZWU44a1MlzP
_yEjiMxTREjtJBrQjl_RL@@@@_@rI32QWtRlVtldxw@_l3eSY@@VFkdxvu4Znmpv
SI@_QLjMtbVFTFl@@@1yWXNhrcQzp9hrUhkhtlz@@@JhrwZU@hjjQjMMxrkEjrzO
@Fd6Oq0J@@@X8Du4f7_@@9C6lnmp963Ftpf@txU@@lMMhz@TFUkXnOCs4FdexvSV
FdOCC6@xmOyKx@@@t@@plxz@@WbseMB@o@l_l@@i@G6646Pcmc9u@@rrTjMBh@wU
k_@@_x@NLhrgxlMhEO9C1Ghm@@VV0K3qQjL7Aj8@x@EXID8aH2X89HjitLGL9OzH
@7iy1@@@_XNvXN@@gUlx@mh64oO6@@@zu@@@3PmWxTv@GQv4gY1zkl_1UU8OaD_@
x@3jOG836izhr6an0@@_@XXRn@@tROO3qlU@56E1@@@lXRCGjN@V0POy@r@7GE1@
bQjX__9G631PU8GHE1PsGzJ@l@x@@mr2v@@FDGHB_@VleMVr6ucaGu6i0nWWRUe@
QztJhrjzU@@WbB5sa4@x@@X2SA0lG_t@VjQjMJ_@QDiaAXwzm@xTQeA3Szz@7Oy4
hbUjizhrq@@@x@zsFmp31zD0rw@NOTLy@Jhf@QzpJhrjzUlN@V@@1UyGm3KfMBrF
CYh2E46@@Uh_NBrq@@@JxlQLfM@LOOIuVt@FCHLy@@tp@ltZMhrj@VN@0ZCmhxzU
uByu@xzp@vhbro_Vlh@VXcLXx@t@G7Rn@ltfxrQj0FMoV@_FjMg@GGGo@txl@tJB
hrz@X78XMh_w0BZo@t@Vm8ov@@FoQzLB@@IjGLEvVnGylNhfzQjZNhrV0Ac50Q2k
_@x35L8@@@tX_mZ@@UFlhrQw@@@9FNjgMhxo@lkNOOIu@@tFyKOy@@QRlMhbrVjd
J@@@mcun@txkF@LgGBgGhrVj@@z@GMXn@@tlvqQj0UIp@@@F@@z@mOHo@@1V0j2v
@FuFK0d2jD1N@@W1vAKG1T5uRH1AaGu155yGKXCebh@@V@7y@1LvKe0E5eLK15yP
u1V6aXJg@wliIzLo@lMJz@@VisU4ob1MhV@jt@zx_ltZMhrFltJVzrQji_fVTw@x
v@UFDWR3CzNhf@QztJhKVe0XOj_fbVFjc_zUFltxzyUFjiM@URFzx9K03yzUl7qd
1Qj_f2AmWul3nrVjMGuR4Ag1q@dM3F8XG1AoVjMlh@A5rJfU_AbwV4t0xfKAgtxz
eUFbYIfUIldwjzUlNdIfKKldIHzKF5UW7wzqQPj_z4eW1HdJIu1U4t03IfUAftJf
4KG8H1SYf_AbG1E9yWGOj_zfrwdoJfKVW2aOgdIHzLgddIf_0AC8Q13eUVbYIfUI
ldwlz_lte5C0rJ@aqwdsm34ox@UQS36OglIBK0d2P8gm8SAI3CKfrV5A0K15iKG6
yObwhCi43y_@@7tl1_Nz@2FOZe0O8eWnYH0l0zbW@@hVe0G5K0e1AOMmDse_@tF2
dDq@t@5cJ8grll2vtWWDD8E4ayU@@7Yk1XtNXlIhVrwtNIh@@3zPcmDCm@d_V0j6
G@_QDc832CYaWHmpNhLVKy9u_l@ZMhrll@JVzLQbiwh@zwt@v@_FLbMfl@QjQNzL
QH7PWl@xV@@@t_Jhrq@@@5503UjIhY2mW8IUGQr@V496uh_Fr@@@k@VjMMhVVAj_
hZHm0fL@@z@R0jIh@W@DWrVrlN@@@e0CmVbMVO9R7P0oXCGU88a4MY1__@@3B91w
@Nf1mRGy564gYDXbaWl@NzWhV8c33Y78X0oun@lMPqHB5ik11UeL8S94CY1HxRW_
Fz@8xDW_zLQS3945W7Qj_hzqQr7tl1_xz_3Gn0V@dw1eaWtx@q0KCmLFbMqR6u@@
_F0b4eVVj6bY1_x@@zQjM5cJ2XHGIyA94yV5XHaGeA94Ct9w@@@yV@txx@rAK53q
QbMxh@Fr@@zVG1C4tl11y4Im@IG@_QLjMzLmwC4PW7HQWX@@@l0uJ8y532_t0zrQ
r1Lzfwl_fmDC883d22Ie0FSACCQZTo0QjMz_@VrrNhr6na1Ul@NZ4o0N@KQHCPGa
Q94JK2HDMHaB6ux@qIQz@j@q@FbMfL_g@NzzV@x@JhaLwtNqH6eI@_AU56yzVw7_
Y1Uzx@3NJwOiI8khAyU@lgIhrNVjMTWM64yr91rJIWM64i99HSQG4ECG@_ADia4Y
NXa0BR9Kb72gw@u6s8amD2_o_GRD8i4FYEYXOJI8uV32cpWWga8iaG2_FXOJImVj
M9h@g@OJC8uV3Sr@@3;

BOOLEAN A22[65920] = @
m0200u@@@@3q6aP8_1@7Py_7U3q_365_1@@l@1jX@@@lWn000000000FOqt3y1tx
@@Xh2@@_@TY1@@@p_@@@zx@x7KF8@l@7K6my36Lo4yx@@xVV@Fyv8o0_7y6qI8AH
ecWz@@V@@z@1QBCWz72M62gMuc@@x@@@t@@@T8xntdW@l@@MrWGX71FFsZIu@@bF
afIGPZya1zn42eXu@83t@mR0cUmenP2Ux@@zlF@7QRn@@tVe5Zme1RP6yx@@@dI8
8JYW@7_0D3_@j@3tp4QJm@H6R8xa0l7_xV@3UQ94y12Om@XWjyZnG3L2XHjyDQGO
9CXMpKN_G0Q82yVuPGxFme_@lKr0@@o@Xgyu@8ZBSr0zNz@7jRu@ldEezXG03QTJ
m@JhVWB3Um81eo@@d_oW@d@@mNUOqasktoW_@_@Is4y@l@Q@@@FeW16qU31oCu@@
zm@@FTWS2u7M0qU36Xja_@as0@t@dwV@@Pt@@7IxHu13_@@_38P0y64UOT2_@l@l
cI8Ar0_@@V1tRu@@V0@V_VmT2_@V05@_W7Wp0@z@Vlz@@zt64cl1Zk@@Nu72pDm@
H0lxXpWGT6AfDutY1V@V@1yF4eyWydl@0_44Pyy3U3QN36zzeV2w@x@zV@N5wdZu
@7I6q_3CQurB2QW@@@AVy@@bTOWw@@kx@_@G6Uu@@dcz@@VWG3W2G0ey7C2FKy@v
m4q@y@@FC1@@V5Uu@@3Zm000mWmXCu@@Xt@UyVuGCy@V_v@t@tCp@xNm4yz_lR@l
zFmu61FU00@3F0Gq06z@x3vOe7P2_tFNy@@zJcv@DmO20uVu10024WA1H6@@_tWs
zWm@7YC1p3c11paOX23x8P8OP21wC8a661QUm@@xLOJF2ZyWv@@@GVjuV@@D0QBQ
@13MG_GRk72b231Cw@ifIytC1@xz@XlWXH@_VFL6M1zGuLOmm36b7aXCjCu@@v@7
831Qh8aX7_@t@J5yG8tM4F@G6sLY6ZCO@@@@FR21V9n@WRWsLmemm9u@@VRFc4n_
I8SJ8XHgOMy3bjO8WS8YlVu3ApG0A32DxHGcPQW_GmeD2IJo@496HcGu6RwSdW@R
@@0tjuV8ZFuj1fbDm@@x@qIF2XBX7_@@mmp4C766z_@XrrAia4TqD80lASme@3Uu
He_MOGx34izXlz9u@x_tz@@@Av42w7Y@18Up3k11_Jm@@x7@l@jm@j4Yq3XmHo@V
C48eDX46rmSCe@j@FuGL4PyF2U2Qt36z@0P9uZ@xlVm42Ja4p@s@16jnmSIurx@F
K0FAapW06nOVG6UrxXG79Han@GWWUu@ttF8oM4@lm7893_@@VMA0Zm3i9moY2xIY
GCHAkk7ylxz7gYDfWPmicR4sv900_@3tujGHhWHx@VeeR46t35BzW@n@@WItm@Fy
VOOL4v83RFiHufa0WmV8SZDyd@@7uHBU5U32HWXWCC8arS4PyV5m3LCw@z3tGB@@
V@DzzG80948O2X1yGOiF44m35B9HmIF4qd41q_GG5Fe@@tF4082EyXm0U8yl42Au
g0Jb84082OSZmJb8mW7A2ZXWlg8m392FWXW5g8aX63JaXsSg8Cd72BMYmTV8K0e2
qAgW2_CyWF3hHYWC_XHJVV1t6mFNgm3zBZu@z@0bDm@kv00U8VI8@F1d_Wzd_@ok
PG@@7W000000000mD70m3vJ2upDQxAsss0000000W0ctsWm0CW4mtp806000W08L
0020900o20b1m010ebG0U8KW70m@@dC56LKvHyu6u@@bcy_@@ZZ6m@@zVZyJA1FX
G0W880G24GYZkPmj@@l@@@VVz@@tGMX@v@R@@@@_ll_BJF1@x@zklV@7Zo3@V@@g
whgyLLVfwl_oVLzbk_wV@xVzylU@Ll@rx@_@lFWG6HebB1iPiO3y@VVx_@lt@_@V
8x9uV_@c@@VllwxxUKs8qq76St0@N@@g@@wR0m0@tlz_ZglGrNKvBg@pN@rbl_xV
Vt@@@ZdW@@t@WuJm@@Lj_@_E@z@@bndW@@lF@V@@3HdW_@xV@t@@w_@@Bht3yz@@
XUpmW09KHH8JuZX@v@UyVF@kd@xv@z_x@@@t@VVbkkgBNrrN__@l_lDX5z3n@@td
__@V@@Ftwkll_pl2@Vzt_@@wQdzXcl2Pl@Du@@_xV@@VWmDUN7Zk3Cmz@VVU26u@
_lINNrbhwwV@VLN_khxzt@@3;

ENDDATA;
DATA TEMP_DATA;
INTEGER A0[28] =
96, 96, 96, 96, 96, 95, 95, 95, 95, 95, 95, 95, 95, 95, 95, 15, 791, 791, 791, 791, 317, 293, 281, 273, 261, 253, 237, 791;
INTEGER A1[28] =
3144, 1574, 716, 360, 183, 1574, 716, 360, 183,3144, 0,1574, 716, 360, 183, 64, 280, 240, 200, 160, 640, 480, 400, 320, 240, 160, 80,3144;
INTEGER A2[28] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 165, 165, 165, 165, 0, 0, 0, 0, 0, 0, 0, 165;
INTEGER A3[28] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 112, 96, 80, 64, 0, 0, 0, 0, 0, 0, 0, 112;
INTEGER A4[28] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 648, 600, 552, 504, 0, 0, 0, 0, 0, 0, 0, 648;
INTEGER A5[28] =
3144, 1574, 716, 360, 183, 1574, 716, 360, 183,3144, 0,1574, 716, 360, 183, 64, 56, 48, 40, 32, 128, 96, 80, 64, 48, 32, 16,3144;
INTEGER A6[28] =
32, 16, 8, 4, 2, 16, 8, 4, 2, 32, 24, 16, 8, 4, 2, 0, 0, 0, 0, 0, 16, 12, 10, 8, 6, 4, 2, 32;
INTEGER A7[28] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 7, 6, 5, 4, 0, 0, 0, 0, 0, 0, 0, 7;
INTEGER A8[28] =
512, 256, 128, 64, 32, 256, 128, 64, 32, 512, 384, 256, 128, 64, 32, 0, 560, 480, 400, 320, 256, 192, 160, 128, 96, 64, 32, 560;
INTEGER A9[21] =
12, 3, 131, 8, 3, 131, 0, 0, 0, 6, 3, 131, 0, 0, 0, 3, 1, 118, 1, 3, 126;
INTEGER A10[14] =
12, 3, 8, 3, 8, 3, 6, 3, 0, 0, 3, 1, 1, 1;
INTEGER A51[15] =
294, 148, 38, 20, 2, 148, 38, 20, 2, 294, 0, 148, 38, 20, 2;
INTEGER A49[14] =
12, 114, 8, 114, 8, 114, 6, 114, 0, 0, 3, 109, 1, 109;
INTEGER A11[5 * 3 * 27] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 99, 1, 0, 99,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 99, 1, 0, 99,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 99, 1, 0, 98,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 99, 1, 0, 98,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 98,
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, 1, 0, 99,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 99,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 98,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 98,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 98,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 97, 0, 1, 94,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 95,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 95,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 97, 0, 1, 94,
0, 0, 0, 1, 0, 98, 2, 1, 96, 1, 0, 97, 0, 2, 96,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 97, 0, 0, 96,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 98,
129, 10, 98, 1, 0, 98, 2, 1, 96, 1, 0, 97, 0, 0, 96,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
0, 0, 0, 1, 1, 97, 1, 0, 97, 0, 2, 96, 0, 1, 96,
0, 0, 0, 0, 0, 0, 1, 31, 97, 4, 31, 98, 1, 0, 98;
INTEGER A14[64] =
8600,6400,4800,3600,2800,2000,1540,1140, 860, 640, 480, 360, 280, 200, 154, 116,
86, 64, 50, 36, 28, 24, 20, 16, 14, 12, 11, 9, 7, 5, 4, 3,
2000,1600,1300,1000, 900, 800, 720, 660, 600, 560, 520, 480, 440, 400, 380, 360,
340, 300, 280, 260, 240, 220, 200, 180, 160, 140, 120, 100, 80, 60, 40, 20;
INTEGER A15[16] =
60000,28000,10800,4200,1660, 660, 260, 100, 500, 200, 100, 60, 40, 30, 20, 10;
INTEGER A54[30] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 16, 0, 0, 0, 32, 0, 32, 255, 65, 255, 82, 255, 69, 255, 84, 255, 76, 255, 65;
INTEGER A55[30] =
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 31, 16, 0, 32, 0, 32, 255, 65, 255, 82, 255, 69, 255, 84, 255, 76, 255, 65;
INTEGER A56[8] =
255, 1, 255, 56, 255, 57, 255, 65;
' VARIABLES
INTEGER A17[1];
INTEGER A48[1];
INTEGER A52[1];
BOOLEAN A45[2];
BOOLEAN A32[60];
BOOLEAN A33[10];
BOOLEAN A39[10];
BOOLEAN A26[1600];
BOOLEAN A27[5];
BOOLEAN A28[273];
BOOLEAN A29[320];
BOOLEAN A30[320];
BOOLEAN A31[640];
BOOLEAN A57[640];
BOOLEAN A34[50];
BOOLEAN A35[50];
BOOLEAN A36[50];
BOOLEAN A37[50];
BOOLEAN A38[70];
INTEGER V2 = 0;
INTEGER V3 = 0;
INTEGER V4 = 32;
BOOLEAN b;
INTEGER i;
INTEGER j;
INTEGER k;
INTEGER l;
INTEGER V10;
INTEGER V11;
INTEGER V12;
INTEGER V13;
BOOLEAN A18[21];
BOOLEAN A19[20];
BOOLEAN A20[10];
INTEGER V14;
INTEGER V15;
INTEGER V89;
INTEGER V16;
INTEGER V87;
INTEGER V17;
INTEGER V18;
INTEGER V19;
INTEGER V20;
INTEGER V21;
INTEGER V88;
INTEGER V94;
INTEGER V22;
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 V57 = 0;
BOOLEAN V58 = 1;
BOOLEAN A40[10];
BOOLEAN A41[10];
BOOLEAN A44[10];
BOOLEAN V76 = 0;
BOOLEAN V80 = 1;
BOOLEAN V81 = 0;
BOOLEAN V82 = 0;
INTEGER V83 = 5;
INTEGER V84 = 0;
INTEGER V86 = 0;
BOOLEAN V91 = 0;
INTEGER V68 = 0;
INTEGER V69 = 0;
INTEGER V96 = 94;
BOOLEAN V102 = 0;
BOOLEAN V100 = 0;
BOOLEAN V103 = 0;
BOOLEAN V108 = 0;
BOOLEAN V104 = 0;
BOOLEAN V105 = 0;
BOOLEAN V107 = 0;
BOOLEAN V106 = 0;
BOOLEAN V101 = 0;
BOOLEAN USE_EXTEND_IR_DELAY_METHOD = 0;
BOOLEAN USE_FIXED_ALGORITHM = 0;
ENDDATA;
PROCEDURE PR_INIT_PROGRAM USES TEMP_DATA;
V102 = 1;
V103 = 1;
ENDPROC;
PROCEDURE DO_BLANK_CHECK USES TEMP_DATA;
V100 = 1;
ENDPROC;
PROCEDURE DO_VERIFY USES TEMP_DATA;
V108 = 1;
ENDPROC;
PROCEDURE DO_SECURE USES TEMP_DATA;
V107 = 1;
V106 = 1;
ENDPROC;
PROCEDURE DO_READ_UES USES TEMP_DATA;
V104 = 1;
ENDPROC;
PROCEDURE PR_INIT_BLANKCHECK USES TEMP_DATA;
V100 = 1;
ENDPROC;
PROCEDURE PR_INIT_VERIFY USES TEMP_DATA;
V108 = 1;
ENDPROC;
PROCEDURE PR_INIT_READ_UES USES TEMP_DATA;
V104 = 1;
ENDPROC;
PROCEDURE PR_EXECUTE USES DEVICE_DATA, TEMP_DATA, L6, L26,
L97,
L98, L73, L56, L80,
L257,
L42, L35, L21;
CALL L6;
V3 = 0;
V4 = 1;
CALL L26;
IF (V2 == 0) THEN GOTO L2;
IF (V42 == 0) THEN CALL L98;
IF ((V42 == 0) && V102) THEN CALL L73;
IF ((V42 == 0) && V100) THEN CALL L97;
IF ((V42 == 0) && V103) THEN CALL L56;
IF ((V42 == 0) && V108) THEN CALL L80;
IF ((V42 == 0) && V107) THEN CALL L257;
L2:
IF ((V42 == 0) && V104) THEN CALL L42;
CALL L21;
EXIT V42;
ENDPROC;
PROCEDURE L6 USES DEVICE_DATA, TEMP_DATA, L30, L276, L32;
INTEGER V66 = 0;
INTEGER V90 = 0;
INTEGER V95 = 0;
INTEGER V67 = 0;
IF (V103) THEN V102 = 1;
IF (V106) THEN V107 = 1;
IF ((V102 || V100) && !V103 &&
(V108 || V107)) THEN V42 = 1;
IF (V42 != 0) THEN GOTO L16;
V21 = 0;
FOR i = 0 TO V1;
j = 1;
k = 1;
IF (((A13[i] & 1) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L7;
V2 = A12[i];
j = A1[V2];
k = A5[V2];
L7:
V21 = V21 + j;
V66 = V66 + k;
NEXT i;
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;
V2 = A12[j];
FOR k = 0 TO (A1[V2] - 1);
IF ((k % 5) == i) THEN A26[l] = 1;
l = l + 1;
NEXT k;
GOTO L9;
L8:
l = l + 1;
L9:
NEXT j;
NEXT i;
V88 = 0;
FOR i = 0 TO V1;
j = 1;
k = 1;
IF (((A13[i] & 256) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L10;
V2 = A12[i];
j = A1[V2];
k = A5[V2];
IF ((V2 >= 23) && (V2 <= 27)) THEN
V96 = 95;
L10:
V88 = V88 + j;
V90 = V90 + k;
NEXT i;
V94 = 0;
FOR i = 0 TO V1;
j = 1;
k = 1;
IF (((A13[i] & 512) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L11;
V2 = A12[i];
j = A1[V2];
k = A5[V2];
L11:
V94 = V94 + j;
V95 = V95 + k;
NEXT i;
V22 = 0;
FOR i = 0 TO V1;
j = 1;
k = 1;
IF (((A13[i] & 2) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L12;
V2 = A12[i];
j = A1[V2];
k = A5[V2];
L12:
V22 = V22 + j;
V67 = V67 + k;
NEXT i;
l = 0;
FOR i = 4 TO 0 STEP -1;
FOR j = 0 TO V1;
IF (((A13[j] & 2) == 0) ||
((A13[j] & 4) == 0)) THEN GOTO L13;
V2 = A12[j];
FOR k = 0 TO (A1[V2] - 1);
IF ((k % 5) == i) THEN A27[l] = 1;
l = l + 1;
NEXT k;
GOTO L14;
L13:
l = l + 1;
L14:
NEXT j;
NEXT i;
V16 = 0;
FOR i = 0 TO V1;
j = 1;
IF (((A13[i] & 1) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L15;
V2 = A12[i];
j = A0[V2];
L15:
V16 = V16 + j;
NEXT i;
V87 = 0;
FOR i = 0 TO V1;
j = 1;
IF (((A13[i] & 256) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L16;
V2 = A12[i];
j = A0[V2];
L16:
V87 = V87 + j;
NEXT i;
V17 = 0;
FOR i = 0 TO V1;
j = 1;
IF (((A13[i] & 2) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L17;
V2 = A12[i];
j = A0[V2];
L17:
V17 = V17 + j;
NEXT i;
V18 = V17;
IF (V16 > V18) THEN V18 = V16;
IF (V87 > V18) THEN V18 = V87;
V19 = V18;
IF (V21 > V19) THEN V19 = V21;
IF (V88 > V19) THEN V19 = V88;
IF (V94 > V19) THEN V19 = V94;
FOR i = 0 TO (V19 - 1);
A30[i] = 1;
NEXT i;
V20 = 2 * 5 * 5 * V67;
IF ((2 * 5 * V66) > V20) THEN V20 = 2 * 5 * V66;
IF (V90 > V20) THEN V20 = V90;
IF (V95 > V20) THEN V20 = V95;
V33 = 0;
FOR i = 0 TO V1;
IF (((A13[i] & 2) == 0) ||
((A13[i] & 4) == 0)) THEN GOTO L18;
V2 = A12[i];
IF (V33 < A7[V2]) THEN
V33 = A7[V2];
L18:
NEXT i;
V12 = 0;
V13 = 0;
FOR i = 0 TO V1;
V12 = V12 + A25[i];
IF (A25[i] > V13) THEN V13 = A25[i];
NEXT i;
FOR i = 0 TO (V13 - 1);
A39[i] = 1;
NEXT i;
FOR i = 0 TO 4;
j = 10 * i;
A34[(j + 9)..j] = $016;
A35[(j + 9)..j] = $01A;
A36[(j + 9)..j] = $022;
A37[(j + 9)..j] = $026;
FOR k = 0 TO 2;