i2c_write.jam

这是我做的I2C的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:\电路系统设计\第11讲-i2c讲稿\i2c\i2c_write.pof Mon May 12 16:42:56 2003

NOTE "CREATOR" "Altera Jam/STAPL Composer Version 9.5 2/8/2000";
NOTE "DATE" "2003/05/12";
NOTE "DEVICE" "EPM7064S";
NOTE "FILE" "i2c_write.pof";
NOTE "TARGET" "1";
NOTE "IDCODE" "070640DD";
NOTE "UES" "FFFF";
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" "4";
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 A13[1] = 5;
INTEGER A25[1] = 10;
INTEGER A43[1] = 0;
BOOLEAN A21[45760] = @
OP100u@@@@3u@@@t@_@lth@V@@th_z@@z@@@x@@@Jhz_llsxNz_@V_xzxVcW@@V@
eIualsBA9y@@lh_@@dTl_h@@@V@zd__@hMrx_V556_@lNzx@zp@Vzt@@@cMxzDFj
tjXI2V@Uz_@t@ywl@BdtltxzvdVAjNxzrU_jr@356_tOSWV4wAq_QLlt@Labm@V@
Vu9n@@@NCMXVxrV@ztxkt@@7q4yV@dZ_@_FGPGl@@az_jNVLNBE@_xZs4y@@@wzg
@t@zzQqoWlovNTE@RsxTxjs@@No9ulthFa9n@@tUGHI8RWl@xrG94@@Uz_@l@Y2a
ew@@tVl_h@@zT@@@@y@dMrv_VPlVxrNsrYtlV@Wd4_zVYWXy10t0uJhy_klsxMyE
VVsxyxz_@@NGJG@lJT0b4l@@vneJyUztx@@Url@@D@plN@UVVAjttZgOux@@ph@_
FG2yU3XD2yfrUZgLu@VFNr@zl_UzN@t7q_lGSD4Vjgpp_YQzsRG_1@@U@Ud_@z@V
lwt@FqBuldxvz7jox__QlVrp@@vltlB_MXVTdUz_hzwfLUj@NvvtUlJRvyUOaX8j
1_xbVzFHPw@XmN2_rgElxBxyBlsNk@S_zl5fb8m@0UlVFxT_zcx@@h_9u@tBFw@W
@@Q7tsxsUhjtZ_Omx@@Uer3XWLu@@xtvL@V8p9nNFu@dopjT_Fz_xzWH6yU@dXw@
_tVh_xsZ1Ha6OdVvrNlrYpl_iWn7y@Ul6QHY@@@jWYJyth@cIPGaH8_z@_v@@Ix@
@@Hhz_Mif7_@@Vz@@exjMRr@VjdVwz@0qDyllzx@@QDK03F7@@_@F73QVGlh@dxU
@_uL6yxxrx@@@ph@wVkh1_BrUz@NxvrA@tN@rAg@_@nt4qxzkh_t@rTl_htDfL@@
@x_@F6ZShm@txjrh@N@xrh_ztzT@@@x@@@JhrwTah7U@l@3atWMhrkwl_Bhzwlk_
@Vz@U@ht@QDQs0x@tV1AO4tGIST2_hbU35CmVzzkx@x@Xx4ql@l7SZH493HQCu@@
xF2FXW29ylxrxt@@ph@_Fx@@VVl@pnIXu@VtFMtWGwAy@l@Rzw@FWF1Nz@VX7d4r
RWVxjV@ztxkz@@7zJm@t@Uel1Z_64A0J44922cW@__@8DauVxxr@Jfl4zhLzUtN1
1hmxr@k@@wL@_@@w@@xv@__5y84_l@@1AOmV@zMOaYYEoGOa4Y9cWN@z_GaFuF@U
FmO5vQC8E96_@@z3zTYtVl_GVd4Uu7@j_zXRym@VjbTxzV@ztxkl@@Zcv1rwj7y@
tVU@6@7WoG4E3yx@zp@@zt@VwdMxjjeeL4wZ1js@znJPmzdyVm3d2KSYp@@@WgIa
WmW8D@4M2Zm3a4jDXe0e4Aua88U48pW8mIu@@VLz@@l@QztO9p4AebOOg42wXW2O
47wXGaCu@V@F_i1_jtByt2l7QM2@zol1fV8AG5XHa8KW41Ag8A0A15O8hT2wzo@i
qxtx@txrzVldtxhLz_tNsxtUTnRB4XB1@rQl_@fSSRdNul4UdzxzkUl@Rx@UVAbt
@zrU@gt9VpIdRVUq7SvVBvyx@txzUFltxTzqQl_@hTSRlJuj5UFuh1X2IGlNyd4U
@U@zUlk@xzZ7aW9VR9lV@Uv1CGFbofz_QlK06uw@VFeG2UQlV3AOWz_@@qq98dRv
q5@bWpjVl_r6ulIvqUVbZRvS2@bmviUlt35aWdovMSEnRf0e8AW7wfKUztJxusUd
mRBSExtxzG1CWt9UJ2dVj@Ultm36epzUIEtofBUB1lVzUn3OmjzEXtIuTN@tx1AC
GhTkldoxNSUvRIwzhpIOGGX7YCaGQ13YCqIm39IVKX@@@NtxzU_ldIZMOGK0K25i
Hy0g4yW1sxfz2emWqbCm@l@N0U6etB@JIlVTo0y4K0CH3QGK0e4AGBk@@tpHC1Vj
tjwyo@Y7Gby0IGhzklloxNzUnVPEKHM7CO@dsplTUf@Iwy05amIdV@TZ6u@@ALl@
@bzkjty5Cm@zVll@xVzLQd_xfyyRlNalW1f0OWMxyly56BuXnILeYWCOm@t@l@@l
FjsxV_QlRrv5@bc13fCQGKA6u@_@tt@zVA0FaVP2_AlRJVWXe5C8VX7oY91@bqvk
_l@pOHYy5Cm@zLgE@xBxzRd1UmW@QjJ@@LU1POGU0C4BH2PJOW@xhLT_@NvG8HID
6ulaUFy03y@@@frU@Bj03I1mW4FJGU@shB@R9lVz@_l@@ZzCXC2U8cZbIRnWK0e8
KK3SnVBvyx@txzVVk16aIX1_RfpJgXXCHCmIlVzKd6aqW4f0OGU5ivzx@pxz@VS3
6a@X1nc8Hg794oW1vBOGq7F4BH2feOct@@V@@t@whqUp@uXK0C8j53iqvtxl@xtz
V@VA56asY11ZOGq2RaJY1XqW10;

BOOLEAN A22[31680] = @
uz000u@@@@3q6aDmtl@lpRlxu4ylpdw@3Zqv@@l@@@V@z@@HGm@@xTq4Yn0FVw@E
8opz@@@x@V@r@@@l@@lVll@@_@@@zzx@6g1s@t@ZoWGDm@@@k@i@V@@@@_l@@Zd1
UVysrz@@x@@zFK64l4StC@x@@@t_@@f@@_V@@@tU7@orUt@x@@x7@@@VyCWXHUk@
@@V@Z9@Ts0qv@@_@@@zzxNoysxs@@@l@la@WQ08F8o8RGutm@@tSubGEoW@@lRl@
@vQjp@7p4YC3y@@bv@@@dVn@@aQ0@@@VV@_@Elji3X42F3Ss@@Rx_@t@PwIqMX@@
@lOq0HC_@XS8E_q@3gASzx@7KL4yUu@@VMf@VOCg2j@@vHG6YR6u@@@s@@lf@oz@
mJ2__zz3F64vC8aP0p@@V@@FaO@qxz@@@xV8uFMQWE9lTT@@@_@VBnt@_v@@VsfG
Me86@V@ty@1KF2Z6u@@jFASY@@@Vr@@@_@@@zVT_7QDmzdtUKD1@@@JEjp33j60I
T@t@@@l@@NJz@@@_@@lyE6a7VD8IQWdFLV46vv_@@fqVdSraDG6ytVan0a7Ut_@@
@zl_@5VDmc54fp@@Vi@l_Mz@@z@@@NLCm@V@kvFlTT@@@_@@An@l@w@@VsfrPOas
0tdQVm@@@z@@z5LD8AaWw@@V_@@@U_qFPO4Zv@@@t@OwbLlxV@@@xqi@@v@@@xxt
x4vjpj@@@V@x9@XH3WV1Hoy@@t@@@l@V@c0@3u_@@ZgC4ACm@@FB_@@VV@@@H@4Y
g94pbW@@tjGcJKz@@7tGY@@lV@@Fr1ZF4KyW3ZqS@@FH_@@@j6K@x@tllemW8D62
oC8IpWGhGCw@76zLXr@@ymeA2GnexqWmo4yV@FRl@@Fia1VVUxw_@@z@@U7M_W@z
@@Br4y@@Vxzt5FKrWO032BJm@l@N@g1wz@@ZNP80D1@UOanh6u@V@FeL2FV_@_@l
z3LJm@x@l@@@RF@@@_@@@T@@@x@@@sh@VkcBw@mI6SOW5x@@@t@u@Nxh1Hh6uxtp
tvjtj@@7EvrtPHk6m@3YCAD1@@FSox@@ZXDW@7qkk@@@g13YSPuxmW0PCyyft78R
W@t@@8360LQ@7DRW@@aV@@@@_7eG2BF9aE1@@@lwx@@z@@@xz@@FAm3@V@@Dp64S
dmIZ1nI94jiHuR2Ezx3ZmDmd_@l@@@V@zl@XvCikOGWY1ACopZrt8AD1xVGaE@@@
VrD8G81@@zx_xysrz@@tYRW@@@Pd_tXnrFu@V@FAj276vfX_9qrdGel11H643tI4
k7u@@x74q0lt@vnhgm@PwNdG3uV@@x@@@ttl@P0F32UOW@V_K_NGaE@@@hOaWz@l
@e0CiBqWuQLu@@VFce4U_Kz3zHI4E6ACcGu1IICQG8I9yy9@74i2V@s@1ZQfUf1_
@@b37MX@@VxGVs4@h2@V@@X78n@p@RC2IABPWlV@Vd7Qd1ID8uc11KCmx@@UKK3y
V@z6Rw1zz@@_@@dTw@5Aop@Vfa1_x@@z@@Vo@@@B4f4U_qF3VHIqHF2HwX@@@xuB
XilAXu1j4Gn3l@@V1Gh8uc1_@@@gsQG4032vcGC03YsQGK0K2pPGSt4YWyGSt7wY
mGi4Lyyv@7ZGe7o94AuaGGL47gYW2R4ep0V@@VH0C84f4XSJmVx@l@@@zmT64584
@_@@X289WW11AC8A0A15gm@Gmd@qxV@3LAWayVP_@@xzx10_peh@@7Ev19V_r700
mlU32_yZE@@FW2vF74G00000E0CG30300OoG40008G10C023000Cm2IEnCt00000
mV70GKW42YRW@@V01y@@H0G8DE3600@zt@_p@k@VIk4l5JulO2_z@@v@@N@PC1_@
RVjoDmlUNj@@@Vt@@zk@lgK5VThgk_@JG5PrbuQf1kllhy@@@p@@xo@_@l@@lU@x
@z_@_@z@VLv@@@t@LLbl@@VVtVN_@@hzl@Tx@@_t@@rlx@hUz@@@w@x_pmcG3_4y
@Vtx@@@pz@TFwxwVtz@@y@xlzl@@t4GYEy6W@llMt@@l@_@U@tt@_@@wV2K1@gxV
@@NTy@kgzz@rNlr0U@@@_@@@10;

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, 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, 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, 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, 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[800];
BOOLEAN A27[5];
BOOLEAN A28[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 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;
IF ((V42 == 0) && V105) THEN CALL L35;
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;