scan_led.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: EPM7064S - e:\作业\eda\scan_led.pof Mon Nov 03 09:32:09 2008

NOTE "CREATOR" "Altera Jam/STAPL Composer Version 10.0 10/5/2000";
NOTE "DATE" "2008/11/03";
NOTE "DEVICE" "EPM7064S";
NOTE "FILE" "scan_led.pof";
NOTE "TARGET" "1";
NOTE "IDCODE" "070640DD";
NOTE "UES" "FFFF";
NOTE "CHECKSUM" "000D70F7";
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" "10";
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] = 2;
INTEGER A59[1] = 0;
INTEGER A60[1] = 1;
INTEGER A61[1] = 117850333;
INTEGER A13[1] = 5;
INTEGER A25[1] = 10;
INTEGER A43[1] = 0;
BOOLEAN A21[45760] = @
OP100u@@@@3q6u@@@t@x@gV@@@L3y@@NsRW@@lNs@@@Hhm@@@1@@@VN_@@_t@zyu
@@hNvVVK6y@@lR@N@r@@VgVT_Fl@T1_lolrz_iR@@Rr@TIl@@@VVV@x_@@@zFw@x
U0qt@xUAFtxVRxqz_7V_zVuN0z@@t@@Vd@ljtuXX@@@V@@@t1j2Vm@@Hs0@@@0W@
@@10@@x@BR00mxlzUeV@thSXF1@@_lkttzzl_dotz_Fysm@@lll@@V@z@sMzLV1_
WF0u@_0@txj9@00mx@UUe@@qhy@7emuV0wt@@Wl7m@rejbGU3@@@z0_@FWxfUQFm
7000@70u@U_Fv@_@V@jtx@7UC4ysy3DmbVmV443x@wj_tzxrtx@px_@pxN_l@@VV
@@@p_lMfz@l@x@@_lNcWxt@L@_@@_@@ez@@@xtxlqAjMl@@y3z@Fhiz@@tdCu@lp
rhU_V0r3er@@_J@@ZgO4GJm@l@h@zTV@lzfyrl@jz@@x@tvs_XN9jx@Vz@@VUz@E
H@@@x@l@tx@@Vmp0@z@_MzrVz@fEmu@nt@7yl9Q@V@@@_kl@RZl6ug@@F8pW@J@V
5D@@kuz@z@b@vMx@t@@ETymWFX1_7y@Zq6ut@jt0xoi@HlVF0U5GCj_DzV7frRxC
CcW@@@R@@@v_@tzTwl@h_d7r@@th@VlVN_@@_@_@y@k@hMx@FGbGuXX053U_Z_zF
hs7uJm@Tsl@dsV@dzh_r@zjpt_x@n_ttwVPWFXGH2_@Vryv@jOlFsreE_R8BXeF3
y1@@7GPJSOBUzN_Zl_n@l@k@@@V@dO@_VIzzV_dot@JtWqgi@1WR@@@b_gMxz@@@
8m@xbzl@l@@@U@@@@_@V@yvzjvlFqqgFgBx@R9r@t@_@1m51gB9VX@pn@VR833_z
@@rv@@5WoW@lyR@@@t_@zx3e2nAjMl@l_3z@FlHfFu@@NEG9gWMFy@@Ve@@@t@VW
Vah1_lt@Z7eIx@@VCi1ix@@BaJeJpWm3my@@x7bII_e1nr6uZ@@@vE1xtwl1tXu@
@@D2FX05gYrzmlV@V0l7_V@@ZM6B_d4_@l@32Q0m@@Vv@t@_@U@Dv@@7Q9A@Vw@_
@@QPz@@NJq0@@F@n4DmhVkd@@3_LF64JC1jQx@16dn@@WVmDL2HoWB@V0m@@@1ya
0G_@lTVztGVsu@_@t@xtRygn21nWV_@V1@@@c_@UZ7aMeKC2pnGebt2kzJOk7YCy
W_@@V@@@b@GDm@@rRu1C2QnGeWDYSPW@li100@@_@Z_3KyGe562VP0_dp@e5I45G
2N_@W_x@_j@@x5anZWgsu@@@Dax31Aym@lld@@zUxtwj__@@ZHiH8ZGYOQG88UY7
WHC2Fy@@Vx@@@t@@ZW_@@dWgO4yj5@Vm@ni99Qh1_@otr@@VR@@xt@zQlt@zUU@@
xw@@@Tvxzw_l@t@z_VK06y@@txx@UN@@pBxV@NtxzUUl@@vz5@xtxzsV@@h@vKkG
19uotxr@Vll@xzUTAtx_zUlz@xzwUllqxzUll@xTz_Fdix@@Z7WX_@txe06u@U@N
ls@kUltRxzUlktx92Aa0xVlte0IaE@1@@x@uL_@tfRW@@@Yah9GktxDKG2r2CmzS
ANA0AY2mWx@Ule0CuUllmxzUFl@xTz_FdX2amzTANQX4CvxzsNm0yQ@xH6Im@@@F
l@@Vz@FlH6IWtJ_lVl@Rxz@lP4CWtx@UK03YCaW_@@@83s4omWC_O4qlYe0e4AO9
@@_@_@@Bz_l@x@@@t@ttPAK6uz@@t@NykV@@V@@_@kdJxYCWD@Fv@H1WIe0GbqG8
_x@@3AWXmwIm@N_VOP6u_UjFbn4Cv@zted1HRbW@@@oRPC8bH6y@blx@x@EgH3yV
@txx@_N@t@jBU@V@@zV_l@@rfTlh@x@s@@tlx@_Yk7DG@ttPY4GcSHEDlPGA0Kag
G2n0QG276u@@lq@zVVgb6m_@xFFb42LHYK1b8Y43wfnWmIUmV@@lxxrkuChm@@@T
_26uz@@tt@@l_@lpK0ImtN_l_@@V@zV@fPOGm3Cu@_@FKW7Qnn0s@_@k@x@z@@tx
@BVFuE3SVdsd2W4wq_@3F8Xq2I8506IaGYWHap@@zl_@@RNy@@LHQGA0IaWm31eK
NI39u@Ujp@@Vll@@Vz@@tky@@h0mW8Dam@@tP2b94BH2klNx3PWXiEI8aX6T@@@v
@_@FRd4o5YXa6IGlsz_pH6u_@lCtW4oXr0@@@zXno00;

BOOLEAN A22[31680] = @
uz000u@@@@3q6u@@_t@@@l@V@V@z@ln9u@@Nr@@zlF_@V@@@@_@5Vz@@@x@@xBg1
_ll@ZQW_@lV@@@@Mz@_yV7_x@@ztIstgi@@V@@@tMPwVz@@@xzrFp@x_l@@@Vx@_
@XQWtw_3VxlX6u@_u@z@x@l@twTzF@@@VU__tyo@Mz@@Uw@pzc@@@d@zSLhxb@np
0V@@@1D4@t@@cdVGmp@@h@@d7Vn@l@@lVlFFVYlt@zV@@RU_XN@@@l_NTUy5V7_@
VHTo@@tM32V5_@tL3F3yt@AfmGur@@llfKkFn@_@_t@NfSVnht@@t@@hi_ZlV@@@
@MLv_4V7@7edu@@v5@@@l@@@V@xR@Hh1ujz@zt@@w@@vL@@@l@@@V@pRgHR2XC9_
@u084flmd@@ttzBC__@V@@@tQNO_y@l@x@lxdmy@l@@@VVdgmux@F2_MyV@@71DG
@@@l@@@T@@N@HG3Y16Or@@J@Vyl@@@V_t@@_z@@z@@Fxf@tt@@@ldl@F@ln@_@@@
j@@Vx@@@t@hwF__@3xz@@_@x@1Vx@x@@zt@@zdl_@V@@_tU2kU@S6e@_@t@@lgl@
xVTy@@_Fv@3eLi_Cm@@@VCo0@px@HL6y@@y6LDm@__VYr0_lw@_x@Fu@@gwi@vN@
R@l@@VVx7n@_z@@z@h@xB@pDIcW@@TLx@5t_uR@zt@Bx6Vht@@llhU_D@x@@_t@t
jiR@xr@@t@@FEtz@V@@@@MzTty@7@v@@@dz@F@Cs0_z@__x@@zkrv5ZCWpzFly@x
V@lwxwx@Du@@_x@bP3NG_l@z@VI@m@y@@@v@xhp9fJrV@xl@ttPS@@@_t@L9jJmh
Z@@t@tVl@@RV@@@t_N_@y@@@x@lVtw@zjF@@V@tl@u@@@z@@zRrtVo@Rid@vz@0b
1_@@@zt@Vx@@vDGPW@zzVV@VVw@@@v@gVxl@xm@@tj_NtT@@@@_@@zzlV@x@@@td
lwF__@N@@Ft_@zd356O_@_t7xzFT6_R@@V@_@@jTr@@v@_@t@ytklVwVz_@@_j@l
z@@zx@@zKgV@d@xu@GmMY2GPMpWWH3y@h@7Am3@viS2pVyo@@@z@@R3l@tt@@xft
5dFzdxV_dx@9D@pB@@@NlhkF_wV3_@@SsylNuab@x@jZYvFCD@@@VztwtUIwNz@@
@g@tV6t@@d@zEL6@aywu@@zz@@x@lzF0D1@@Vx1e6e@@@t@@ll@@@puB3yFl@x@@
XFanW0g42PCm@@tl_@@V_lw@_xlE2LJm@@lVeg1_Vz@3KAA0Da8H3y@@zxd@_t@@
@l_R@@83326Dm@zdQS3C_@V@BXD86_1@@l@HGRO@t@Fy8gbl42egm@@zUSD6_ul@
ljJm@@@d@@@F@@@vXMUul@@9_of8DOys@@5kjX@l@@uXhY@XX@zxqNW6q1n0@@k@
11Dm@U@VGG3uzV@7Qn6@zt@X3D8Oe134Dm@h_l@_x3@@@@_u_@x9QWxzxVVz@@_@
zxzt@@w@@zt@t@VuB3S@V@7cJ5@@x@1tCml@@l@w@V@@@l1tC86G2_Tr@3kPW@@@
@mN6u@@cF4f1_R_VZ1aW@@VL@@ty_u@@Ty_@lJqWua6u@FVFEf1_y@@NBQGKA9yt
lt7BXjva6u@@@nVVlViJ3qzl@x@@@t@@tjz@@V@lw@_xxD2jCMeqAI4PGc83YdQ0
@V@@W764wZXmDZ5UTZHa6u@@@p@z@VCM3qx@@FbC1h_@V_lZ@ZCa0@@@N@v@xH6C
W@@_Va16yd@Vaco0@t@@_t@@zpV@h@@@d@l@l@_ltO094OqWG16uVuxFAW1Y@@@z
l@lx@@YFAW1n0Cmg@@duxu@uZ9mt@@nV@@l@@ttGa9u@@bt@@@FVNzV@9@719Dm_
@@l@zzV@ytgE@@@vxx@xlzzD6G2_ttLz@Vx7anW0i641s0@@xxHWD86G2XqWn@@@
l@x@F@t@@X3DG@l@l@_ltaf6u@_@t@zlQW23A4RW@@@C_@pV_l@@z@_75jeYG6d4
Q6ZRp642w1@@V@XWCm@z@Vu13qx@@738XW764ZuaWgFu@@_Feg1nLJm@ykQmNLYh
LHa16y@V@7ps0@zFdwNO_1T_@v@hOd0CDa5_xVO6Xm06Aayt@SgVXP6Kv300uiV0
pCKo@@@ZSR0000W303000000G00002880000020080W300UMx0pe960G0y@gw@l@
Z2aGGS6o0mGSy4ul_NvV@qdH@@VL09EbmG808_GPW@@tV@V@z_@t_yt@@h@@@t@M
@lggoBTHTL_lw@d74I7k4y@z@x_@vt@r@l__tV@@t@_@V@ztt@x@@@pT@@l@@@RL
vTt_kw_Kr@@h@__t@V@FhltUNRzzi@w_z@t@@MtWY3Lu@@woV@@dk_hl04Ou@lxJ
VNtjhx_V@@@ty@V@TV@@xw@xFKm6khl@z@V@vl@ysz_V@WD300;

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, 1, 1, 0,1025, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0,1025, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0,1025, 0, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0,1025, 0, 0,
0, 0, 0, 0, 0, 0,1025, 4, 0, 1, 1, 0,1025, 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 A32[60];
BOOLEAN A33[10];
BOOLEAN A39[10];
BOOLEAN A26[800];
BOOLEAN A27[5];
BOOLEAN A28[253];
BOOLEAN A45[253];
BOOLEAN A29[253];
BOOLEAN A30[253];
BOOLEAN A31[320];
BOOLEAN A57[320];
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 V97 = 1;
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,
L96,
L97, L75, L55, L82,
L257,
L41, L35, L21;
CALL L6;
V3 = 0;
V4 = 1;
CALL L26;
IF (V2 == 0) THEN GOTO L2;
IF (V42 == 0) THEN CALL L97;
IF ((V42 == 0) && V102) THEN CALL L75;
IF ((V42 == 0) && V100) THEN CALL L96;
IF ((V42 == 0) && V103) THEN CALL L55;
IF ((V42 == 0) && V108) THEN CALL L82;
IF ((V42 == 0) && V107) THEN CALL L257;
L2:
IF ((V42 == 0) && V104) THEN CALL L41;
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;
b = 0;
IF ((i & (1 << k)) != 0) THEN b = 1;
A34[j + k + 7] = b;
A35[j + k + 7] = b;
A36[j + k + 7] = b;
A37[j + k + 7] = b;
NEXT k;
NEXT i;
FOR i = 0 TO 6;
j = 10 * i;
A38[(j + 9)..j] = $02A;