Project.TMP

Страница: 1

Ответить

Сообщений 1 страница 3 из 3

Поделиться12025-05-27 14:56:36

Автор: Yaroslav

Project.TMP

Цитировать Сообщение 1

Поделиться22025-05-27 14:56:51

Автор: Yaroslav

program Project;
uses
uMD00_AnsiToKOI, uMD00_SStr, uMD00_LVT, uMD00_Report,
uMD00_Error, uMD00_Main, uMD00u,
uMD01_Types, uMD01_Error, uMD01_Label, uMD01_Report,
uMD01_Main, uMD01u,
uMD02_Types, uMD02_Report, uMD02_Main, uMD02u;

Var ab_146: array[1..16] of Byte=(
$99,$99,$77,$EE,$77,$EE,$FF,$FF,$FF,$FF,$77,$EE,$77,$EE,$99,
$99
);
Var ab_147: array[1..16] of Byte=(
$11,$88,$33,$CC,$66,$66,$CC,$33,$CC,$33,$66,$66,$33,$CC,$11,
$88
);
Var ab_150: array[1..16] of Byte=(
$80,$10,$73,$EC,$30,$C0,$74,$E2,$74,$E2,$30,$C0,$51,$A8,$80,
$10
);
Var ab_149: array[1..16] of Byte=(
$0F,$0F,$78,$E1,$4B,$2D,$5A,$A5,$5A,$A5,$4B,$2D,$78,$E1,$0F,
$0F
);
Var ab_148: array[1..16] of Byte=(
$FF,$FF,$F8,$F1,$FB,$FD,$FA,$F5,$FA,$F5,$FB,$FD,$F8,$F1,$FF,
$FF
);
Var ab_145: array[1..16] of Byte=(
$22,$44,$33,$CC,$FD,$FB,$76,$E6,$76,$E6,$FD,$FB,$33,$CC,$22,
$44
);
Var ab_144: array[1..1972] of Byte=(
$00,$01,$2E,$A2,$2B,$7A,$2B,$A4,$53,$A3,$53,$7B,$53,$7A,$53,
.............................
$52,$7B,$A1,$54,$00,$00,$00
);
Var ab_137: array[1..96] of Byte=(
$00,$01,$02,$03,$01,$00,$03,$02,$02,$01,$00,$03,$03,$00,$01,
$02,$00,$02,$03,$01,$01,$00,$02,$03,$02,$01,$03,$00,$03,$00,
$02,$01,$00,$01,$03,$02,$01,$02,$00,$03,$02,$00,$03,$01,$03,
$01,$00,$02,$00,$02,$01,$03,$01,$03,$00,$02,$02,$00,$01,$03,
$03,$01,$02,$00,$00,$03,$01,$02,$01,$02,$03,$00,$02,$03,$00,
$01,$03,$02,$01,$00,$00,$03,$02,$01,$03,$02,$00,$01,$02,$03,
$01,$00,$01,$03,$02,$00
);
Var ab_138: array[1..66] of Byte=(
$00,$00,$00,$02,$00,$04,$00,$06,$00,$08,$00,$0A,$00,$0C,$00,
$0E,$00,$10,$00,$12,$00,$14,$00,$16,$00,$18,$00,$1A,$00,$1C,
$00,$1E,$00,$20,$00,$22,$00,$24,$00,$26,$00,$28,$00,$2A,$00,
$2C,$00,$2E,$00,$30,$00,$32,$00,$34,$00,$36,$00,$38,$00,$3A,
$00,$3C,$00,$3E,$00,$40
);
Var ab_136: array[1..66] of Byte=(
$00,$00,$20,$00,$40,$00,$60,$00,$80,$00,$A0,$00,$C0,$00,$E0,
$00,$00,$01,$20,$01,$40,$01,$60,$01,$80,$01,$A0,$01,$C0,$01,
$E0,$01,$00,$02,$20,$02,$40,$02,$60,$02,$80,$02,$A0,$02,$C0,
$02,$E0,$02,$00,$03,$20,$03,$40,$03,$60,$03,$80,$03,$A0,$03,
$C0,$03,$E0,$03,$00,$04
);
Var ab_139: array[1..22] of Byte=(
$6C,$01,$61,$01,$62,$01,$69,$01,$72,$01,$69,$01,$6E,$01,$74,
$01,$01,$32,$30,$31,$38,$00
);
Var ab_135: array[1..25] of Byte=(
$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,
$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$3D,$00
);
Var ab_134: array[1..22] of Byte=(
$01,$01,$6B,$6C,$61,$77,$69,$7B,$69,$01,$75,$70,$72,$61,$77,
$6C,$65,$6E,$69,$71,$3A,$00
);
Var ab_133: array[1..16] of Byte=(
$01,$01,$01,$01,$01,$01,$01,$01,$77,$01,$6D,$65,$6E,$60,$3A,
$00
);
Var ab_132: array[1..20] of Byte=(
$22,$31,$22,$2D,$70,$61,$75,$7A,$61,$2C,$22,$32,$22,$2D,$63,
$77,$65,$74,$2C,$00
);
Var ab_131: array[1..15] of Byte=(
$22,$33,$22,$2D,$73,$74,$61,$72,$74,$01,$69,$67,$72,$79,$00
);
Var ab_130: array[1..16] of Byte=(
$01,$01,$01,$01,$01,$01,$01,$01,$77,$01,$69,$67,$72,$65,$3A,
$00
);
Var ab_129: array[1..17] of Byte=(
$22,$33,$22,$2D,$77,$79,$68,$6F,$64,$01,$77,$01,$6D,$65,$6E,
$60,$00
);
Var ab_128: array[1..16] of Byte=(
$01,$01,$01,$01,$75,$70,$72,$61,$77,$6C,$65,$6E,$69,$65,$3A,
$00
);
Var ab_127: array[1..23] of Byte=(
$64,$77,$69,$76,$65,$6E,$69,$65,$01,$2D,$01,$6B,$6C,$2E,$73,
$74,$72,$65,$6C,$6B,$69,$2C,$00
);
Var ab_126: array[1..26] of Byte=(
$7A,$61,$7D,$69,$74,$61,$01,$2D,$01,$6C,$60,$62,$61,$71,$2C,
$01,$6B,$72,$6F,$6D,$65,$01,$31,$2D,$33,$00
);
Var ab_125: array[1..13] of Byte=(
$28,$73,$29,$01,$53,$41,$53,$01,$32,$30,$31,$38,$00
);

{Var Procedures}
VAR
p_1,p_2,p_3,p_4,p_5,p_6,p_7,p_8,p_9,p_10,p_11,p_12,p_13,p_14,p_15,p_16,p_17,p_18,p_19,
p_20,p_21,p_22,p_23,p_24,p_25,p_26,p_27,p_28,p_29,p_30,p_31,p_32,p_33,p_34,p_35,p_36,p_37,p_38,p_39,
p_40,p_41,p_42,p_43,p_44,p_45,p_46,p_47,p_48,p_49,p_50,p_51,p_52,p_53,p_54,p_55,p_56,p_57,p_58,p_59,
p_60,p_245:TProcedureLV;

{Var TLabelGLV}
VAR
g_151,g_152,g_153,g_154,g_155,g_156,g_157,g_158,g_159,g_160,g_161,g_162,g_163,g_164,g_165,g_166,g_167,g_168,g_169,
g_170,g_171,g_172,g_173,g_174,g_175,g_176,g_177,g_178,g_179,g_180,g_181,g_182,g_183,g_184,g_185,g_186,g_187,g_188,g_189,
g_190,g_191,g_192,g_193,g_194,g_195,g_196,g_197,g_198,g_199,g_200,g_201,g_202,g_203,g_204,g_205,g_206,g_207,g_208,g_209,
g_210,g_211,g_212,g_213,g_214,g_215,g_216,g_217,g_218,g_219,g_220,g_221,g_222,g_223,g_224,g_225,g_226,g_227,g_228,g_229,
g_230,g_231,g_232,g_233,g_234,g_235,g_236,g_237,g_238,g_239,g_240,g_241,g_242,g_243,g_244,g_246,g_247,g_248,g_249,g_250,
g_251,g_252,g_253,g_254,g_255,g_256,g_257,g_258,g_259,g_260,g_261,g_262,g_263,g_264,g_265,g_266,g_267,g_268,g_269,g_270,
g_271,g_272,g_273,g_274,g_275,g_276,g_277,g_278,g_279,g_280,g_281,g_282,g_283,g_284,g_285,g_286,g_287,g_288,g_289,g_290,
g_291,g_292,g_293,g_294,g_295,g_296,g_297,g_298,g_299,g_300,g_301,g_302,g_303,g_304,g_305,g_306,g_307,g_308,g_309,g_310,
g_311,g_312,g_313,g_314,g_315,g_316,g_317,g_318,g_319,g_320,g_321,g_322,g_323,g_324,g_325,g_326,g_327,g_328,g_329,g_330,
g_331,g_332,g_333,g_334,g_335,g_336,g_337,g_338,g_339,g_340,g_341,g_342,g_343,g_344,g_345,g_346,g_347,g_348,g_349,g_350,
g_351,g_352:TLabelGLV;

{Var TLabelDataLV}
VAR
d_61,d_62,d_63,d_64,d_65,d_66,d_67,d_68,d_69,d_70,d_71,d_72,d_73,d_74,d_75,d_76,d_77,d_78,d_79,
d_80,d_81,d_82,d_83,d_84,d_85,d_86,d_87,d_88,d_89,d_90,d_91,d_92,d_93,d_94,d_95,d_96,d_97,d_98,d_99,
d_100,d_101,d_102,d_103,d_104,d_105,d_106,d_107,d_108,d_109,d_110,d_111,d_112,d_113,d_114,d_115,d_116,d_117,d_118,d_119,
d_120,d_121,d_122,d_123,d_124,d_125,d_126,d_127,d_128,d_129,d_130,d_131,d_132,d_133,d_134,d_135,d_136,d_137,d_138,d_139,
d_140,d_141,d_142,d_143,d_144,d_145,d_146,d_147,d_148,d_149,d_150:TLabelDataLV;

{BEGIN BLOCK CHECK PROCEDURES}

Procedure chk_p_4;Forward;
Procedure chk_p_1;Forward;
Procedure chk_p_5;Forward;
Procedure chk_p_2;Forward;
Procedure chk_p_6;Forward;
Procedure chk_p_7;Forward;
Procedure chk_p_41;Forward;
Procedure chk_p_42;Forward;
Procedure chk_p_11;Forward;
Procedure chk_p_12;Forward;
Procedure chk_p_16;Forward;
Procedure chk_p_15;Forward;
Procedure chk_p_18;Forward;
Procedure chk_p_37;Forward;
Procedure chk_p_8;Forward;
Procedure chk_p_9;Forward;
Procedure chk_p_10;Forward;
Procedure chk_p_38;Forward;
Procedure chk_p_22;Forward;
Procedure chk_p_26;Forward;
Procedure chk_p_23;Forward;
Procedure chk_p_39;Forward;
Procedure chk_p_43;Forward;
Procedure chk_p_44;Forward;
Procedure chk_p_45;Forward;
Procedure chk_p_47;Forward;
Procedure chk_p_48;Forward;
Procedure chk_p_46;Forward;
Procedure chk_p_17;Forward;
Procedure chk_p_3;Forward;
Procedure chk_p_40;Forward;
Procedure chk_p_49;Forward;
Procedure chk_p_50;Forward;
Procedure chk_p_51;Forward;
Procedure chk_p_13;Forward;
Procedure chk_p_14;Forward;
Procedure chk_p_19;Forward;
Procedure chk_p_20;Forward;
Procedure chk_p_21;Forward;
Procedure chk_p_24;Forward;
Procedure chk_p_25;Forward;
Procedure chk_p_245;Forward;
Procedure chk_p_27;Forward;
Procedure chk_p_28;Forward;
Procedure chk_p_29;Forward;
Procedure chk_p_30;Forward;
Procedure chk_p_31;Forward;
Procedure chk_p_32;Forward;
Procedure chk_p_33;Forward;
Procedure chk_p_34;Forward;
Procedure chk_p_35;Forward;
Procedure chk_p_36;Forward;
Procedure chk_p_52;Forward;
Procedure chk_p_53;Forward;
Procedure chk_p_54;Forward;
Procedure chk_p_55;Forward;
Procedure chk_p_56;Forward;
Procedure chk_p_57;Forward;
Procedure chk_p_58;Forward;
Procedure chk_p_59;Forward;
Procedure chk_p_60;Forward;

Procedure chk_p_4;
Begin
SetCHKUsed(p_4);
SetfRAM1;
SetUsed(d_143);
SetUsed(d_136);
end;{end chk_p_4}

Procedure chk_p_1;
Begin
SetCHKUsed(p_1);
SetfRAM2;
end;{end chk_p_1}

Procedure chk_p_5;
Begin
SetCHKUsed(p_5);
SetfRAM1;
If not GetCHKUsed(p_4) then chk_p_4;
end;{end chk_p_5}

Procedure chk_p_2;
Begin
SetCHKUsed(p_2);
SetfRAM2;
end;{end chk_p_2}

Procedure chk_p_6;
Begin
SetCHKUsed(p_6);
SetfRAM1;
SetUsed(d_138);
SetUsed(d_150);
If not GetCHKUsed(p_1) then chk_p_1;
SetUsed(d_149);
If not GetCHKUsed(p_1) then chk_p_1;
SetUsed(d_148);
If not GetCHKUsed(p_1) then chk_p_1;
SetUsed(d_146);
If not GetCHKUsed(p_1) then chk_p_1;
SetUsed(d_147);
If not GetCHKUsed(p_1) then chk_p_1;
SetUsed(d_145);
If not GetCHKUsed(p_1) then chk_p_1;
If not GetCHKUsed(p_2) then chk_p_2;
end;{end chk_p_6}

Procedure chk_p_7;
Begin
SetCHKUsed(p_7);
SetfRAM1;
If not GetCHKUsed(p_5) then chk_p_5;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_5) then chk_p_5;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
If not GetCHKUsed(p_6) then chk_p_6;
end;{end chk_p_7}

Procedure chk_p_41;
Begin
SetCHKUsed(p_41);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_41}

Procedure chk_p_42;
Begin
SetCHKUsed(p_42);
SetfRAM1;
SetUsed(d_144);
SetUsed(d_120);
SetUsed(d_121);
SetUsed(d_79);
SetUsed(d_123);
SetUsed(d_71);
SetUsed(d_83);
SetUsed(d_82);
end;{end chk_p_42}

Procedure chk_p_11;
Begin
SetCHKUsed(p_11);
SetfRAM1;
SetUsed(d_111);
SetUsed(d_111);
end;{end chk_p_11}

Procedure chk_p_12;
Begin
SetCHKUsed(p_12);
SetfRAM1;
If not GetCHKUsed(p_4) then chk_p_4;
end;{end chk_p_12}

Procedure chk_p_16;
Begin
SetCHKUsed(p_16);
SetfRAM1;
If not GetCHKUsed(p_11) then chk_p_11;
SetUsed(d_82);
SetUsed(d_111);
SetUsed(d_122);
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_102);
SetUsed(d_94);
SetUsed(d_118);
SetUsed(d_93);
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_94);
end;{end chk_p_16}

Procedure chk_p_15;
Begin
SetCHKUsed(p_15);
SetfRAM1;
SetUsed(d_119);
SetUsed(d_119);
SetUsed(d_142);
SetUsed(d_142);
end;{end chk_p_15}

Procedure chk_p_18;
Begin
SetCHKUsed(p_18);
SetfRAM1;
SetUsed(d_99);
SetUsed(d_99);
SetUsed(d_98);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_99);
If not GetCHKUsed(p_15) then chk_p_15;
end;{end chk_p_18}

Procedure chk_p_37;
Begin
SetCHKUsed(p_37);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_37}

Procedure chk_p_8;
Begin
SetCHKUsed(p_8);
SetfRAM1;
SetUsed(d_120);
SetUsed(d_141);
SetUsed(d_120);
end;{end chk_p_8}

Procedure chk_p_9;
Begin
SetCHKUsed(p_9);
SetfRAM1;
SetUsed(d_62);
SetUsed(d_78);
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_9}

Procedure chk_p_10;
Begin
SetCHKUsed(p_10);
SetfRAM1;
SetUsed(d_78);
SetUsed(d_62);
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_5) then chk_p_5;
If not GetCHKUsed(p_6) then chk_p_6;
end;{end chk_p_10}

Procedure chk_p_38;
Begin
SetCHKUsed(p_38);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_62);
SetUsed(d_78);
If not GetCHKUsed(p_8) then chk_p_8;
SetUsed(d_141);
SetUsed(d_77);
SetUsed(d_77);
If not GetCHKUsed(p_8) then chk_p_8;
SetUsed(d_141);
SetUsed(d_77);
SetUsed(d_144);
SetUsed(d_120);
If not GetCHKUsed(p_8) then chk_p_8;
SetUsed(d_141);
SetUsed(d_77);
If not GetCHKUsed(p_8) then chk_p_8;
SetUsed(d_141);
SetUsed(d_77);
If not GetCHKUsed(p_8) then chk_p_8;
SetUsed(d_141);
SetUsed(d_77);
SetUsed(d_77);
SetUsed(d_62);
If not GetCHKUsed(p_9) then chk_p_9;
If not GetCHKUsed(p_5) then chk_p_5;
If not GetCHKUsed(p_6) then chk_p_6;
SetUsed(d_77);
SetUsed(d_62);
If not GetCHKUsed(p_9) then chk_p_9;
If not GetCHKUsed(p_5) then chk_p_5;
If not GetCHKUsed(p_6) then chk_p_6;
SetUsed(d_77);
SetUsed(d_78);
If not GetCHKUsed(p_10) then chk_p_10;
SetUsed(d_77);
SetUsed(d_78);
If not GetCHKUsed(p_10) then chk_p_10;
SetUsed(d_77);
end;{end chk_p_38}

Procedure chk_p_22;
Begin
SetCHKUsed(p_22);
SetfRAM1;
SetUsed(d_83);
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_22}

Procedure chk_p_26;
Begin
SetCHKUsed(p_26);
SetfRAM1;
SetUsed(d_113);
SetUsed(d_113);
end;{end chk_p_26}

Procedure chk_p_23;
Begin
SetCHKUsed(p_23);
SetfRAM1;
If not GetCHKUsed(p_26) then chk_p_26;
SetUsed(d_82);
SetUsed(d_113);
SetUsed(d_124);
end;{end chk_p_23}

Procedure chk_p_39;
Begin
SetCHKUsed(p_39);
SetfRAM1;
SetUsed(d_110);
SetUsed(d_108);
SetUsed(d_107);
SetUsed(d_106);
SetUsed(d_105);
SetUsed(d_87);
SetUsed(d_86);
SetUsed(d_85);
end;{end chk_p_39}

Procedure chk_p_43;
Begin
SetCHKUsed(p_43);
SetfRAM1;
If not GetCHKUsed(p_16) then chk_p_16;
SetUsed(d_96);
SetUsed(d_95);
If not GetCHKUsed(p_18) then chk_p_18;
SetUsed(d_99);
SetUsed(d_98);
If not GetCHKUsed(p_37) then chk_p_37;
SetUsed(d_84);
SetUsed(d_121);
SetUsed(d_120);
If not GetCHKUsed(p_38) then chk_p_38;
If not GetCHKUsed(p_22) then chk_p_22;
If not GetCHKUsed(p_23) then chk_p_23;
SetUsed(d_115);
SetUsed(d_73);
SetUsed(d_104);
SetUsed(d_103);
SetUsed(d_117);
SetUsed(d_116);
SetUsed(d_117);
SetUsed(d_116);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_80);
If not GetCHKUsed(p_39) then chk_p_39;
SetUsed(d_142);
end;{end chk_p_43}

Procedure chk_p_44;
Begin
SetCHKUsed(p_44);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_44}

Procedure chk_p_45;
Begin
SetCHKUsed(p_45);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_45}

Procedure chk_p_47;
Begin
SetCHKUsed(p_47);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_47}

Procedure chk_p_48;
Begin
SetCHKUsed(p_48);
SetfRAM1;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_48}

Procedure chk_p_46;
Begin
SetCHKUsed(p_46);
SetfRAM1;
SetUsed(d_139);
SetUsed(d_135);
SetUsed(d_134);
SetUsed(d_133);
SetUsed(d_132);
SetUsed(d_131);
SetUsed(d_130);
SetUsed(d_132);
SetUsed(d_129);
SetUsed(d_128);
SetUsed(d_127);
SetUsed(d_126);
SetUsed(d_135);
SetUsed(d_125);
end;{end chk_p_46}

Procedure chk_p_17;
Begin
SetCHKUsed(p_17);
SetfRAM1;
SetUsed(d_112);
SetUsed(d_112);
end;{end chk_p_17}

Procedure chk_p_3;
Begin
SetCHKUsed(p_3);
SetfRAM1;
SetUsed(d_109);
SetUsed(d_109);
end;{end chk_p_3}

Procedure chk_p_40;
Begin
SetCHKUsed(p_40);
SetfRAM1;
If not GetCHKUsed(p_26) then chk_p_26;
If not GetCHKUsed(p_11) then chk_p_11;
If not GetCHKUsed(p_17) then chk_p_17;
If not GetCHKUsed(p_3) then chk_p_3;
end;{end chk_p_40}

Procedure chk_p_49;
Begin
SetCHKUsed(p_49);
SetfRAM1;
If not GetCHKUsed(p_40) then chk_p_40;
SetUsed(d_61);
SetUsed(d_61);
end;{end chk_p_49}

Procedure chk_p_50;
Begin
SetCHKUsed(p_50);
SetfRAM1;
SetUsed(d_72);
SetUsed(d_72);
end;{end chk_p_50}

Procedure chk_p_51;
Begin
SetCHKUsed(p_51);
SetfRAM1;
SetUsed(d_81);
SetUsed(d_81);
SetUsed(d_81);
end;{end chk_p_51}

Procedure chk_p_13;
Begin
SetCHKUsed(p_13);
SetfRAM1;
SetUsed(d_101);
SetUsed(d_102);
SetUsed(d_100);
SetUsed(d_118);
SetUsed(d_80);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_102);
SetUsed(d_118);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_101);
SetUsed(d_102);
SetUsed(d_100);
SetUsed(d_118);
end;{end chk_p_13}

Procedure chk_p_14;
Begin
SetCHKUsed(p_14);
SetfRAM1;
SetUsed(d_84);
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_84);
SetUsed(d_81);
end;{end chk_p_14}

Procedure chk_p_19;
Begin
SetCHKUsed(p_19);
SetfRAM1;
SetUsed(d_64);
If not GetCHKUsed(p_26) then chk_p_26;
If not GetCHKUsed(p_11) then chk_p_11;
SetUsed(d_113);
SetUsed(d_111);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_102);
SetUsed(d_113);
SetUsed(d_118);
SetUsed(d_111);
SetUsed(d_117);
SetUsed(d_113);
SetUsed(d_116);
SetUsed(d_111);
SetUsed(d_94);
SetUsed(d_113);
SetUsed(d_93);
SetUsed(d_111);
SetUsed(d_64);
SetUsed(d_64);
end;{end chk_p_19}

Procedure chk_p_20;
Begin
SetCHKUsed(p_20);
SetfRAM1;
SetUsed(d_113);
SetUsed(d_94);
SetUsed(d_111);
SetUsed(d_93);
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_11) then chk_p_11;
SetUsed(d_82);
SetUsed(d_111);
SetUsed(d_88);
SetUsed(d_91);
SetUsed(d_90);
end;{end chk_p_20}

Procedure chk_p_21;
Begin
SetCHKUsed(p_21);
SetfRAM1;
SetUsed(d_90);
SetUsed(d_90);
SetUsed(d_90);
SetUsed(d_90);
SetUsed(d_91);
SetUsed(d_91);
SetUsed(d_91);
SetUsed(d_91);
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_94);
SetUsed(d_93);
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_21}

Procedure chk_p_24;
Begin
SetCHKUsed(p_24);
SetfRAM1;
SetUsed(d_69);
SetUsed(d_143);
SetUsed(d_75);
SetUsed(d_74);
SetUsed(d_117);
SetUsed(d_116);
SetUsed(d_75);
SetUsed(d_74);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_73);
SetUsed(d_140);
SetUsed(d_140);
SetUsed(d_75);
SetUsed(d_74);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_69);
end;{end chk_p_24}

Procedure chk_p_25;
Begin
SetCHKUsed(p_25);
SetfRAM1;
SetUsed(d_89);
SetUsed(d_89);
SetUsed(d_89);
If not GetCHKUsed(p_26) then chk_p_26;
If not GetCHKUsed(p_11) then chk_p_11;
SetUsed(d_113);
SetUsed(d_104);
SetUsed(d_111);
SetUsed(d_103);
SetUsed(d_89);
end;{end chk_p_25}

Procedure chk_p_245;
Begin
SetCHKUsed(p_245);
SetfRAM1;
SetUsed(d_89);
SetUsed(d_89);
SetUsed(d_89);
If not GetCHKUsed(p_17) then chk_p_17;
If not GetCHKUsed(p_3) then chk_p_3;
SetUsed(d_112);
SetUsed(d_104);
SetUsed(d_109);
SetUsed(d_103);
SetUsed(d_89);
end;{end chk_p_245}

Procedure chk_p_27;
Begin
SetCHKUsed(p_27);
SetfRAM1;
SetUsed(d_63);
SetUsed(d_63);
SetUsed(d_63);
SetUsed(d_137);
SetUsed(d_114);
end;{end chk_p_27}

Procedure chk_p_28;
Begin
SetCHKUsed(p_28);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_116);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_65);
end;{end chk_p_28}

Procedure chk_p_29;
Begin
SetCHKUsed(p_29);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_116);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_65);
end;{end chk_p_29}

Procedure chk_p_30;
Begin
SetCHKUsed(p_30);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_116);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_116);
SetUsed(d_66);
SetUsed(d_65);
end;{end chk_p_30}

Procedure chk_p_31;
Begin
SetCHKUsed(p_31);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_116);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_116);
SetUsed(d_66);
SetUsed(d_65);
end;{end chk_p_31}

Procedure chk_p_32;
Begin
SetCHKUsed(p_32);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_116);
SetUsed(d_66);
SetUsed(d_65);
SetUsed(d_80);
SetUsed(d_92);
SetUsed(d_81);
If not GetCHKUsed(p_25) then chk_p_25;
If not GetCHKUsed(p_245) then chk_p_245;
SetUsed(d_94);
SetUsed(d_92);
SetUsed(d_102);
SetUsed(d_104);
SetUsed(d_118);
SetUsed(d_103);
SetUsed(d_92);
SetUsed(d_94);
SetUsed(d_104);
SetUsed(d_93);
SetUsed(d_103);
end;{end chk_p_32}

Procedure chk_p_33;
Begin
SetCHKUsed(p_33);
SetfRAM1;
SetUsed(d_70);
If not GetCHKUsed(p_27) then chk_p_27;
SetUsed(d_114);
SetUsed(d_70);
SetUsed(d_70);
SetUsed(d_104);
SetUsed(d_117);
If not GetCHKUsed(p_28) then chk_p_28;
SetUsed(d_70);
SetUsed(d_70);
SetUsed(d_104);
SetUsed(d_117);
If not GetCHKUsed(p_29) then chk_p_29;
SetUsed(d_70);
SetUsed(d_70);
SetUsed(d_103);
SetUsed(d_116);
If not GetCHKUsed(p_30) then chk_p_30;
SetUsed(d_70);
SetUsed(d_70);
SetUsed(d_103);
SetUsed(d_116);
If not GetCHKUsed(p_31) then chk_p_31;
SetUsed(d_70);
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_116);
SetUsed(d_66);
end;{end chk_p_33}

Procedure chk_p_34;
Begin
SetCHKUsed(p_34);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_116);
SetUsed(d_66);
SetUsed(d_70);
If not GetCHKUsed(p_27) then chk_p_27;
SetUsed(d_114);
SetUsed(d_70);
SetUsed(d_70);
If not GetCHKUsed(p_28) then chk_p_28;
SetUsed(d_70);
SetUsed(d_70);
If not GetCHKUsed(p_29) then chk_p_29;
SetUsed(d_70);
SetUsed(d_70);
If not GetCHKUsed(p_30) then chk_p_30;
SetUsed(d_70);
SetUsed(d_70);
If not GetCHKUsed(p_31) then chk_p_31;
SetUsed(d_70);
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_116);
SetUsed(d_66);
end;{end chk_p_34}

Procedure chk_p_35;
Begin
SetCHKUsed(p_35);
SetfRAM1;
SetUsed(d_117);
SetUsed(d_67);
SetUsed(d_116);
SetUsed(d_66);
SetUsed(d_68);
SetUsed(d_67);
SetUsed(d_66);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_67);
SetUsed(d_117);
SetUsed(d_66);
SetUsed(d_116);
SetUsed(d_80);
SetUsed(d_124);
SetUsed(d_124);
SetUsed(d_124);
If not GetCHKUsed(p_23) then chk_p_23;
SetUsed(d_115);
SetUsed(d_115);
SetUsed(d_115);
If not GetCHKUsed(p_15) then chk_p_15;
SetUsed(d_115);
SetUsed(d_68);
If not GetCHKUsed(p_24) then chk_p_24;
SetUsed(d_65);
SetUsed(d_68);
SetUsed(d_69);
SetUsed(d_73);
SetUsed(d_73);
SetUsed(d_68);
SetUsed(d_69);
SetUsed(d_73);
SetUsed(d_115);
SetUsed(d_73);
SetUsed(d_73);
end;{end chk_p_35}

Procedure chk_p_36;
Begin
SetCHKUsed(p_36);
SetfRAM1;
SetUsed(d_142);
end;{end chk_p_36}

Procedure chk_p_52;
Begin
SetCHKUsed(p_52);
SetfRAM1;
If not GetCHKUsed(p_32) then chk_p_32;
If not GetCHKUsed(p_33) then chk_p_33;
If not GetCHKUsed(p_34) then chk_p_34;
If not GetCHKUsed(p_35) then chk_p_35;
SetUsed(d_102);
SetUsed(d_117);
SetUsed(d_118);
SetUsed(d_116);
If not GetCHKUsed(p_36) then chk_p_36;
SetUsed(d_81);
SetUsed(d_117);
SetUsed(d_104);
SetUsed(d_116);
SetUsed(d_103);
SetUsed(d_92);
If not GetCHKUsed(p_16) then chk_p_16;
SetUsed(d_84);
SetUsed(d_84);
SetUsed(d_84);
SetUsed(d_84);
SetUsed(d_123);
SetUsed(d_123);
SetUsed(d_123);
SetUsed(d_123);
SetUsed(d_71);
SetUsed(d_71);
SetUsed(d_71);
SetUsed(d_71);
If not GetCHKUsed(p_14) then chk_p_14;
end;{end chk_p_52}

Procedure chk_p_53;
Begin
SetCHKUsed(p_53);
SetfRAM1;
SetUsed(d_80);
SetUsed(d_94);
SetUsed(d_122);
SetUsed(d_122);
SetUsed(d_122);
If not GetCHKUsed(p_19) then chk_p_19;
SetUsed(d_64);
If not GetCHKUsed(p_20) then chk_p_20;
SetUsed(d_94);
SetUsed(d_94);
SetUsed(d_88);
If not GetCHKUsed(p_16) then chk_p_16;
SetUsed(d_88);
SetUsed(d_88);
If not GetCHKUsed(p_21) then chk_p_21;
end;{end chk_p_53}

Procedure chk_p_54;
Begin
SetCHKUsed(p_54);
SetfRAM1;
SetUsed(d_106);
SetUsed(d_110);
SetUsed(d_107);
SetUsed(d_108);
SetUsed(d_106);
SetUsed(d_110);
SetUsed(d_107);
SetUsed(d_108);
end;{end chk_p_54}

Procedure chk_p_55;
Begin
SetCHKUsed(p_55);
SetfRAM1;
SetUsed(d_102);
SetUsed(d_101);
SetUsed(d_118);
SetUsed(d_100);
SetUsed(d_87);
SetUsed(d_110);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_87);
SetUsed(d_108);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_87);
SetUsed(d_107);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_87);
SetUsed(d_106);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_87);
SetUsed(d_87);
If not GetCHKUsed(p_26) then chk_p_26;
If not GetCHKUsed(p_11) then chk_p_11;
SetUsed(d_86);
SetUsed(d_87);
SetUsed(d_86);
SetUsed(d_87);
SetUsed(d_85);
SetUsed(d_85);
SetUsed(d_85);
SetUsed(d_86);
SetUsed(d_86);
SetUsed(d_118);
SetUsed(d_100);
SetUsed(d_102);
SetUsed(d_101);
SetUsed(d_102);
SetUsed(d_101);
SetUsed(d_118);
SetUsed(d_100);
SetUsed(d_101);
SetUsed(d_100);
If not GetCHKUsed(p_12) then chk_p_12;
SetUsed(d_76);
If not GetCHKUsed(p_13) then chk_p_13;
SetUsed(d_84);
SetUsed(d_84);
If not GetCHKUsed(p_14) then chk_p_14;
SetUsed(d_123);
SetUsed(d_123);
SetUsed(d_71);
SetUsed(d_71);
SetUsed(d_115);
SetUsed(d_115);
If not GetCHKUsed(p_15) then chk_p_15;
SetUsed(d_102);
SetUsed(d_94);
SetUsed(d_118);
SetUsed(d_93);
SetUsed(d_84);
SetUsed(d_84);
If not GetCHKUsed(p_14) then chk_p_14;
SetUsed(d_123);
SetUsed(d_123);
If not GetCHKUsed(p_16) then chk_p_16;
If not GetCHKUsed(p_15) then chk_p_15;
SetUsed(d_76);
SetUsed(d_79);
SetUsed(d_76);
SetUsed(d_76);
If not GetCHKUsed(p_13) then chk_p_13;
SetUsed(d_86);
end;{end chk_p_55}

Procedure chk_p_56;
Begin
SetCHKUsed(p_56);
SetfRAM1;
SetUsed(d_105);
SetUsed(d_105);
end;{end chk_p_56}

Procedure chk_p_57;
Begin
SetCHKUsed(p_57);
SetfRAM1;
SetUsed(d_99);
SetUsed(d_105);
SetUsed(d_97);
SetUsed(d_102);
SetUsed(d_99);
SetUsed(d_118);
SetUsed(d_98);
SetUsed(d_102);
SetUsed(d_99);
SetUsed(d_118);
SetUsed(d_98);
SetUsed(d_99);
SetUsed(d_98);
If not GetCHKUsed(p_7) then chk_p_7;
If not GetCHKUsed(p_15) then chk_p_15;
SetUsed(d_97);
SetUsed(d_97);
SetUsed(d_97);
If not GetCHKUsed(p_18) then chk_p_18;
end;{end chk_p_57}

Procedure chk_p_58;
Begin
SetCHKUsed(p_58);
SetfRAM1;
SetUsed(d_96);
SetUsed(d_102);
SetUsed(d_95);
SetUsed(d_118);
SetUsed(d_96);
SetUsed(d_95);
SetUsed(d_96);
SetUsed(d_80);
If not GetCHKUsed(p_19) then chk_p_19;
SetUsed(d_64);
SetUsed(d_113);
SetUsed(d_96);
SetUsed(d_111);
SetUsed(d_95);
SetUsed(d_96);
SetUsed(d_95);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_96);
SetUsed(d_95);
SetUsed(d_96);
SetUsed(d_95);
If not GetCHKUsed(p_7) then chk_p_7;
end;{end chk_p_58}

Procedure chk_p_59;
Begin
SetCHKUsed(p_59);
SetfRAM1;
SetUsed(d_71);
SetUsed(d_83);
SetUsed(d_83);
SetUsed(d_71);
SetUsed(d_71);
If not GetCHKUsed(p_22) then chk_p_22;
end;{end chk_p_59}

Procedure chk_p_60;
Begin
SetCHKUsed(p_60);
SetfRAM1;
If not GetCHKUsed(p_41) then chk_p_41;
SetUsed(d_81);
SetUsed(d_81);
SetUsed(d_121);
SetUsed(d_81);
If not GetCHKUsed(p_42) then chk_p_42;
If not GetCHKUsed(p_43) then chk_p_43;
SetUsed(d_102);
SetUsed(d_118);
SetUsed(d_83);
SetUsed(d_115);
If not GetCHKUsed(p_22) then chk_p_22;
If not GetCHKUsed(p_44) then chk_p_44;
If not GetCHKUsed(p_45) then chk_p_45;
If not GetCHKUsed(p_47) then chk_p_47;
If not GetCHKUsed(p_48) then chk_p_48;
If not GetCHKUsed(p_46) then chk_p_46;
SetUsed(d_81);
If not GetCHKUsed(p_49) then chk_p_49;
If not GetCHKUsed(p_50) then chk_p_50;
If not GetCHKUsed(p_51) then chk_p_51;
SetUsed(d_61);
If not GetCHKUsed(p_52) then chk_p_52;
If not GetCHKUsed(p_36) then chk_p_36;
If not GetCHKUsed(p_42) then chk_p_42;
SetUsed(d_81);
If not GetCHKUsed(p_43) then chk_p_43;
SetUsed(d_102);
SetUsed(d_118);
SetUsed(d_102);
SetUsed(d_118);
If not GetCHKUsed(p_7) then chk_p_7;
SetUsed(d_115);
SetUsed(d_142);
SetUsed(d_119);
SetUsed(d_82);
If not GetCHKUsed(p_15) then chk_p_15;
SetUsed(d_81);
If not GetCHKUsed(p_49) then chk_p_49;
If not GetCHKUsed(p_50) then chk_p_50;
If not GetCHKUsed(p_51) then chk_p_51;
SetUsed(d_61);
If not GetCHKUsed(p_53) then chk_p_53;
If not GetCHKUsed(p_54) then chk_p_54;
If not GetCHKUsed(p_55) then chk_p_55;
If not GetCHKUsed(p_56) then chk_p_56;
If not GetCHKUsed(p_57) then chk_p_57;
If not GetCHKUsed(p_52) then chk_p_52;
If not GetCHKUsed(p_58) then chk_p_58;
If not GetCHKUsed(p_14) then chk_p_14;
If not GetCHKUsed(p_22) then chk_p_22;
If not GetCHKUsed(p_59) then chk_p_59;
SetUsed(d_80);
If not GetCHKUsed(p_15) then chk_p_15;
If not GetCHKUsed(p_36) then chk_p_36;
SetUsed(d_83);
SetUsed(d_142);
If not GetCHKUsed(p_36) then chk_p_36;
SetUsed(d_81);
SetUsed(d_81);
If not GetCHKUsed(p_22) then chk_p_22;
SetUsed(d_142);
If not GetCHKUsed(p_36) then chk_p_36;
SetUsed(d_83);
SetUsed(d_83);
If not GetCHKUsed(p_18) then chk_p_18;
SetUsed(d_81);
SetUsed(d_82);
SetUsed(d_82);
SetUsed(d_142);
If not GetCHKUsed(p_36) then chk_p_36;
SetUsed(d_120);
SetUsed(d_121);
end;{end chk_p_60}

Procedure pSetRAMandSize;
Begin
SetRAMandSize(p_4,1,36);
SetRAMandSize(p_1,2,31);
SetRAMandSize(p_5,1,7);
SetRAMandSize(p_2,2,24);
SetRAMandSize(p_6,1,139);
SetRAMandSize(p_7,1,123);
SetRAMandSize(p_41,1,32);
SetRAMandSize(p_42,1,36);
SetRAMandSize(p_11,1,19);
SetRAMandSize(p_12,1,5);
SetRAMandSize(p_16,1,101);
SetRAMandSize(p_15,1,45);
SetRAMandSize(p_18,1,31);
SetRAMandSize(p_37,1,32);
SetRAMandSize(p_8,1,12);
SetRAMandSize(p_9,1,18);
SetRAMandSize(p_10,1,28);
SetRAMandSize(p_38,1,245);
SetRAMandSize(p_22,1,59);
SetRAMandSize(p_26,1,19);
SetRAMandSize(p_23,1,22);
SetRAMandSize(p_39,1,27);
SetRAMandSize(p_43,1,101);
SetRAMandSize(p_44,1,82);
SetRAMandSize(p_45,1,32);
SetRAMandSize(p_47,1,61);
SetRAMandSize(p_48,1,118);
SetRAMandSize(p_46,1,342);
SetRAMandSize(p_17,1,19);
SetRAMandSize(p_3,1,19);
SetRAMandSize(p_40,1,13);
SetRAMandSize(p_49,1,34);
SetRAMandSize(p_50,1,33);
SetRAMandSize(p_51,1,43);
SetRAMandSize(p_13,1,66);
SetRAMandSize(p_14,1,77);
SetRAMandSize(p_19,1,107);
SetRAMandSize(p_20,1,54);
SetRAMandSize(p_21,1,80);
SetRAMandSize(p_24,1,144);
SetRAMandSize(p_25,1,43);
SetRAMandSize(p_245,1,49);
SetRAMandSize(p_27,1,29);
SetRAMandSize(p_28,1,53);
SetRAMandSize(p_29,1,51);
SetRAMandSize(p_30,1,51);
SetRAMandSize(p_31,1,53);
SetRAMandSize(p_32,1,96);
SetRAMandSize(p_33,1,169);
SetRAMandSize(p_34,1,144);
SetRAMandSize(p_35,1,189);
SetRAMandSize(p_36,1,23);
SetRAMandSize(p_52,1,171);
SetRAMandSize(p_53,1,105);
SetRAMandSize(p_54,1,62);
SetRAMandSize(p_55,1,460);
SetRAMandSize(p_56,1,15);
SetRAMandSize(p_57,1,94);
SetRAMandSize(p_58,1,115);
SetRAMandSize(p_59,1,28);
SetRAMandSize(p_60,1,376);
SetRAMandSize(d_146,2,16);
SetRAMandSize(d_147,2,16);
SetRAMandSize(d_150,2,16);
SetRAMandSize(d_149,2,16);
SetRAMandSize(d_148,2,16);
SetRAMandSize(d_145,2,16);
SetRAMandSize(d_143,1,1024);
SetRAMandSize(d_144,1,1972);
SetRAMandSize(d_137,1,96);
SetRAMandSize(d_138,1,66);
SetRAMandSize(d_136,1,66);
SetRAMandSize(d_139,1,22);
SetRAMandSize(d_135,1,25);
SetRAMandSize(d_134,1,22);
SetRAMandSize(d_133,1,16);
SetRAMandSize(d_132,1,20);
SetRAMandSize(d_131,1,15);
SetRAMandSize(d_130,1,16);
SetRAMandSize(d_129,1,17);
SetRAMandSize(d_128,1,16);
SetRAMandSize(d_127,1,23);
SetRAMandSize(d_126,1,26);
SetRAMandSize(d_125,1,13);
SetRAMandSize(d_61,1,1);
SetRAMandSize(d_62,1,1);
SetRAMandSize(d_63,1,1);
SetRAMandSize(d_64,1,1);
SetRAMandSize(d_65,1,1);
SetRAMandSize(d_66,1,1);
SetRAMandSize(d_67,1,1);
SetRAMandSize(d_68,1,1);
SetRAMandSize(d_69,1,1);
SetRAMandSize(d_70,1,1);
SetRAMandSize(d_71,1,1);
SetRAMandSize(d_72,1,1);
SetRAMandSize(d_73,1,1);
SetRAMandSize(d_74,1,1);
SetRAMandSize(d_75,1,1);
SetRAMandSize(d_76,1,1);
SetRAMandSize(d_77,1,1);
SetRAMandSize(d_78,1,1);
SetRAMandSize(d_79,1,1);
SetRAMandSize(d_80,1,1);
SetRAMandSize(d_81,1,1);
SetRAMandSize(d_82,1,1);
SetRAMandSize(d_83,1,1);
SetRAMandSize(d_84,1,1);
SetRAMandSize(d_85,1,1);
SetRAMandSize(d_86,1,1);
SetRAMandSize(d_87,1,1);
SetRAMandSize(d_89,1,1);
SetRAMandSize(d_90,1,1);
SetRAMandSize(d_91,1,1);
SetRAMandSize(d_92,1,1);
SetRAMandSize(d_93,1,1);
SetRAMandSize(d_94,1,1);
SetRAMandSize(d_95,1,1);
SetRAMandSize(d_96,1,1);
SetRAMandSize(d_97,1,1);
SetRAMandSize(d_98,1,1);
SetRAMandSize(d_99,1,1);
SetRAMandSize(d_100,1,1);
SetRAMandSize(d_101,1,1);
SetRAMandSize(d_102,1,1);
SetRAMandSize(d_103,1,1);
SetRAMandSize(d_104,1,1);
SetRAMandSize(d_105,1,1);
SetRAMandSize(d_106,1,1);
SetRAMandSize(d_107,1,1);
SetRAMandSize(d_108,1,1);
SetRAMandSize(d_109,1,1);
SetRAMandSize(d_110,1,1);
SetRAMandSize(d_111,1,1);
SetRAMandSize(d_112,1,1);
SetRAMandSize(d_113,1,1);
SetRAMandSize(d_114,1,1);
SetRAMandSize(d_115,1,1);
SetRAMandSize(d_116,1,1);
SetRAMandSize(d_117,1,1);
SetRAMandSize(d_118,1,1);
SetRAMandSize(d_140,1,1);
SetRAMandSize(d_141,1,1);
SetRAMandSize(d_88,1,2);
SetRAMandSize(d_119,1,2);
SetRAMandSize(d_120,1,2);
SetRAMandSize(d_121,1,2);
SetRAMandSize(d_122,1,2);
SetRAMandSize(d_123,1,2);
SetRAMandSize(d_124,1,2);
SetRAMandSize(d_142,1,2);
end;

Procedure pSectSetIDMD03;
Begin
SetIDMD03(p_1,1);
SetIDMD03(p_2,2);
SetIDMD03(p_3,3);
SetIDMD03(p_4,4);
SetIDMD03(p_5,5);
SetIDMD03(p_6,6);
SetIDMD03(p_7,7);
SetIDMD03(p_8,8);
SetIDMD03(p_9,9);
SetIDMD03(p_10,10);
SetIDMD03(p_11,11);
SetIDMD03(p_12,12);
SetIDMD03(p_13,13);
SetIDMD03(p_14,14);
SetIDMD03(p_15,15);
SetIDMD03(p_16,16);
SetIDMD03(p_17,17);
SetIDMD03(p_18,18);
SetIDMD03(p_19,19);
SetIDMD03(p_20,20);
SetIDMD03(p_21,21);
SetIDMD03(p_22,22);
SetIDMD03(p_23,23);
SetIDMD03(p_24,24);
SetIDMD03(p_25,25);
SetIDMD03(p_26,26);
SetIDMD03(p_27,27);
SetIDMD03(p_28,28);
SetIDMD03(p_29,29);
SetIDMD03(p_30,30);
SetIDMD03(p_31,31);
SetIDMD03(p_32,32);
SetIDMD03(p_33,33);
SetIDMD03(p_34,34);
SetIDMD03(p_35,35);
SetIDMD03(p_36,36);
SetIDMD03(p_37,37);
SetIDMD03(p_38,38);
SetIDMD03(p_39,39);
SetIDMD03(p_40,40);
SetIDMD03(p_41,41);
SetIDMD03(p_42,42);
SetIDMD03(p_43,43);
SetIDMD03(p_44,44);
SetIDMD03(p_45,45);
SetIDMD03(p_46,46);
SetIDMD03(p_47,47);
SetIDMD03(p_48,48);
SetIDMD03(p_49,49);
SetIDMD03(p_50,50);
SetIDMD03(p_51,51);
SetIDMD03(p_52,52);
SetIDMD03(p_53,53);
SetIDMD03(p_54,54);
SetIDMD03(p_55,55);
SetIDMD03(p_56,56);
SetIDMD03(p_57,57);
SetIDMD03(p_58,58);
SetIDMD03(p_59,59);
SetIDMD03(p_60,60);
SetIDMD03(d_61,61);
SetIDMD03(d_62,62);
SetIDMD03(d_63,63);
SetIDMD03(d_64,64);
SetIDMD03(d_65,65);
SetIDMD03(d_66,66);
SetIDMD03(d_67,67);
SetIDMD03(d_68,68);
SetIDMD03(d_69,69);
SetIDMD03(d_70,70);
SetIDMD03(d_71,71);
SetIDMD03(d_72,72);
SetIDMD03(d_73,73);
SetIDMD03(d_74,74);
SetIDMD03(d_75,75);
SetIDMD03(d_76,76);
SetIDMD03(d_77,77);
SetIDMD03(d_78,78);
SetIDMD03(d_79,79);
SetIDMD03(d_80,80);
SetIDMD03(d_81,81);
SetIDMD03(d_82,82);
SetIDMD03(d_83,83);
SetIDMD03(d_84,84);
SetIDMD03(d_85,85);
SetIDMD03(d_86,86);
SetIDMD03(d_87,87);
SetIDMD03(d_88,88);
SetIDMD03(d_89,89);
SetIDMD03(d_90,90);
SetIDMD03(d_91,91);
SetIDMD03(d_92,92);
SetIDMD03(d_93,93);
SetIDMD03(d_94,94);
SetIDMD03(d_95,95);
SetIDMD03(d_96,96);
SetIDMD03(d_97,97);
SetIDMD03(d_98,98);
SetIDMD03(d_99,99);
SetIDMD03(d_100,100);
SetIDMD03(d_101,101);
SetIDMD03(d_102,102);
SetIDMD03(d_103,103);
SetIDMD03(d_104,104);
SetIDMD03(d_105,105);
SetIDMD03(d_106,106);
SetIDMD03(d_107,107);
SetIDMD03(d_108,108);
SetIDMD03(d_109,109);
SetIDMD03(d_110,110);
SetIDMD03(d_111,111);
SetIDMD03(d_112,112);
SetIDMD03(d_113,113);
SetIDMD03(d_114,114);
SetIDMD03(d_115,115);
SetIDMD03(d_116,116);
SetIDMD03(d_117,117);
SetIDMD03(d_118,118);
SetIDMD03(d_119,119);
SetIDMD03(d_120,120);
SetIDMD03(d_121,121);
SetIDMD03(d_122,122);
SetIDMD03(d_123,123);
SetIDMD03(d_124,124);
SetIDMD03(d_125,125);
SetIDMD03(d_126,126);
SetIDMD03(d_127,127);
SetIDMD03(d_128,128);
SetIDMD03(d_129,129);
SetIDMD03(d_130,130);
SetIDMD03(d_131,131);
SetIDMD03(d_132,132);
SetIDMD03(d_133,133);
SetIDMD03(d_134,134);
SetIDMD03(d_135,135);
SetIDMD03(d_136,136);
SetIDMD03(d_137,137);
SetIDMD03(d_138,138);
SetIDMD03(d_139,139);
SetIDMD03(d_140,140);
SetIDMD03(d_141,141);
SetIDMD03(d_142,142);
SetIDMD03(d_143,143);
SetIDMD03(d_144,144);
SetIDMD03(d_145,145);
SetIDMD03(d_146,146);
SetIDMD03(d_147,147);
SetIDMD03(d_148,148);
SetIDMD03(d_149,149);
SetIDMD03(d_150,150);
SetIDMD03(g_151,151);
SetIDMD03(g_152,152);
SetIDMD03(g_153,153);
SetIDMD03(g_154,154);
SetIDMD03(g_155,155);
SetIDMD03(g_156,156);
SetIDMD03(g_157,157);
SetIDMD03(g_158,158);
SetIDMD03(g_159,159);
SetIDMD03(g_160,160);
SetIDMD03(g_161,161);
SetIDMD03(g_162,162);
SetIDMD03(g_163,163);
SetIDMD03(g_164,164);
SetIDMD03(g_165,165);
SetIDMD03(g_166,166);
SetIDMD03(g_167,167);
SetIDMD03(g_168,168);
SetIDMD03(g_169,169);
SetIDMD03(g_170,170);
SetIDMD03(g_171,171);
SetIDMD03(g_172,172);
SetIDMD03(g_173,173);
SetIDMD03(g_174,174);
SetIDMD03(g_175,175);
SetIDMD03(g_176,176);
SetIDMD03(g_177,177);
SetIDMD03(g_178,178);
SetIDMD03(g_179,179);
SetIDMD03(g_180,180);
SetIDMD03(g_181,181);
SetIDMD03(g_182,182);
SetIDMD03(g_183,183);
SetIDMD03(g_184,184);
SetIDMD03(g_185,185);
SetIDMD03(g_186,186);
SetIDMD03(g_187,187);
SetIDMD03(g_188,188);
SetIDMD03(g_189,189);
SetIDMD03(g_190,190);
SetIDMD03(g_191,191);
SetIDMD03(g_192,192);
SetIDMD03(g_193,193);
SetIDMD03(g_194,194);
SetIDMD03(g_195,195);
SetIDMD03(g_196,196);
SetIDMD03(g_197,197);
SetIDMD03(g_198,198);
SetIDMD03(g_199,199);
SetIDMD03(g_200,200);
SetIDMD03(g_201,201);
SetIDMD03(g_202,202);
SetIDMD03(g_203,203);
SetIDMD03(g_204,204);
SetIDMD03(g_205,205);
SetIDMD03(g_206,206);
SetIDMD03(g_207,207);
SetIDMD03(g_208,208);
SetIDMD03(g_209,209);
SetIDMD03(g_210,210);
SetIDMD03(g_211,211);
SetIDMD03(g_212,212);
SetIDMD03(g_213,213);
SetIDMD03(g_214,214);
SetIDMD03(g_215,215);
SetIDMD03(g_216,216);
SetIDMD03(g_217,217);
SetIDMD03(g_218,218);
SetIDMD03(g_219,219);
SetIDMD03(g_220,220);
SetIDMD03(g_221,221);
SetIDMD03(g_222,222);
SetIDMD03(g_223,223);
SetIDMD03(g_224,224);
SetIDMD03(g_225,225);
SetIDMD03(g_226,226);
SetIDMD03(g_227,227);
SetIDMD03(g_228,228);
SetIDMD03(g_229,229);
SetIDMD03(g_230,230);
SetIDMD03(g_231,231);
SetIDMD03(g_232,232);
SetIDMD03(g_233,233);
SetIDMD03(g_234,234);
SetIDMD03(g_235,235);
SetIDMD03(g_236,236);
SetIDMD03(g_237,237);
SetIDMD03(g_238,238);
SetIDMD03(g_239,239);
SetIDMD03(g_240,240);
SetIDMD03(g_241,241);
SetIDMD03(g_242,242);
SetIDMD03(g_243,243);
SetIDMD03(g_244,244);
SetIDMD03(p_245,245);
SetIDMD03(g_246,246);
SetIDMD03(g_247,247);
SetIDMD03(g_248,248);
SetIDMD03(g_249,249);
SetIDMD03(g_250,250);
SetIDMD03(g_251,251);
SetIDMD03(g_252,252);
SetIDMD03(g_253,253);
SetIDMD03(g_254,254);
SetIDMD03(g_255,255);
SetIDMD03(g_256,256);
SetIDMD03(g_257,257);
SetIDMD03(g_258,258);
SetIDMD03(g_259,259);
SetIDMD03(g_260,260);
SetIDMD03(g_261,261);
SetIDMD03(g_262,262);
SetIDMD03(g_263,263);
SetIDMD03(g_264,264);
SetIDMD03(g_265,265);
SetIDMD03(g_266,266);
SetIDMD03(g_267,267);
SetIDMD03(g_268,268);
SetIDMD03(g_269,269);
SetIDMD03(g_270,270);
SetIDMD03(g_271,271);
SetIDMD03(g_272,272);
SetIDMD03(g_273,273);
SetIDMD03(g_274,274);
SetIDMD03(g_275,275);
SetIDMD03(g_276,276);
SetIDMD03(g_277,277);
SetIDMD03(g_278,278);
SetIDMD03(g_279,279);
SetIDMD03(g_280,280);
SetIDMD03(g_281,281);
SetIDMD03(g_282,282);
SetIDMD03(g_283,283);
SetIDMD03(g_284,284);
SetIDMD03(g_285,285);
SetIDMD03(g_286,286);
SetIDMD03(g_287,287);
SetIDMD03(g_288,288);
SetIDMD03(g_289,289);
SetIDMD03(g_290,290);
SetIDMD03(g_291,291);
SetIDMD03(g_292,292);
SetIDMD03(g_293,293);
SetIDMD03(g_294,294);
SetIDMD03(g_295,295);
SetIDMD03(g_296,296);
SetIDMD03(g_297,297);
SetIDMD03(g_298,298);
SetIDMD03(g_299,299);
SetIDMD03(g_300,300);
SetIDMD03(g_301,301);
SetIDMD03(g_302,302);
SetIDMD03(g_303,303);
SetIDMD03(g_304,304);
SetIDMD03(g_305,305);
SetIDMD03(g_306,306);
SetIDMD03(g_307,307);
SetIDMD03(g_308,308);
SetIDMD03(g_309,309);
SetIDMD03(g_310,310);
SetIDMD03(g_311,311);
SetIDMD03(g_312,312);
SetIDMD03(g_313,313);
SetIDMD03(g_314,314);
SetIDMD03(g_315,315);
SetIDMD03(g_316,316);
SetIDMD03(g_317,317);
SetIDMD03(g_318,318);
SetIDMD03(g_319,319);
SetIDMD03(g_320,320);
SetIDMD03(g_321,321);
SetIDMD03(g_322,322);
SetIDMD03(g_323,323);
SetIDMD03(g_324,324);
SetIDMD03(g_325,325);
SetIDMD03(g_326,326);
SetIDMD03(g_327,327);
SetIDMD03(g_328,328);
SetIDMD03(g_329,329);
SetIDMD03(g_330,330);
SetIDMD03(g_331,331);
SetIDMD03(g_332,332);
SetIDMD03(g_333,333);
SetIDMD03(g_334,334);
SetIDMD03(g_335,335);
SetIDMD03(g_336,336);
SetIDMD03(g_337,337);
SetID

Цитировать Сообщение 2

Поделиться32025-05-27 14:57:15

Автор: Yaroslav

MD03(g_338,338);
SetIDMD03(g_339,339);
SetIDMD03(g_340,340);
SetIDMD03(g_341,341);
SetIDMD03(g_342,342);
SetIDMD03(g_343,343);
SetIDMD03(g_344,344);
SetIDMD03(g_345,345);
SetIDMD03(g_346,346);
SetIDMD03(g_347,347);
SetIDMD03(g_348,348);
SetIDMD03(g_349,349);
SetIDMD03(g_350,350);
SetIDMD03(g_351,351);
SetIDMD03(g_352,352);
end;

procedure SetNameAndComment;
Begin
SetNameLabelLV(p_1,'pDrawSPRITE8n8b');
SetNameLabelLV(p_2,'pDrawScreen8n8c');
SetNameLabelLV(p_3,'pRndY15');
SetNameLabelLV(p_4,'pCalculateCellFeld');
SetNameLabelLV(p_5,'pSetCellfield');
SetNameLabelLV(p_6,'pDrawScreen');
SetNameLabelLV(p_7,'pSetPoleAndDraw');
SetNameLabelLV(p_8,'pReadCurByteLevels');
SetNameLabelLV(p_9,'pSetPoleAndDraw_cut1');
SetNameLabelLV(p_10,'pSetPoleAndDraw_cut2');
SetNameLabelLV(p_11,'pRndY30');
SetNameLabelLV(p_12,'pGetCellfield');
SetNameLabelLV(p_13,'pUserMovePosPaint');
SetNameLabelLV(p_14,'pCountBonusPaint');
SetNameLabelLV(p_15,'pGradualDeEmphasDelay');
SetNameLabelLV(p_16,'pSBonusDel');
SetNameLabelLV(p_17,'pRNDx15');
SetNameLabelLV(p_18,'pProtect_Del');
SetNameLabelLV(p_19,'pCheckingCoordinates');
SetNameLabelLV(p_20,'pSBonusCreate');
SetNameLabelLV(p_21,'pSBonusFash');
SetNameLabelLV(p_22,'pCountUserPaint');
SetNameLabelLV(p_23,'pWindTimerOfGrowingSnake');
SetNameLabelLV(p_24,'pPresSnake1');
SetNameLabelLV(p_25,'pSnakeCreateIllusoryPurpose2');
SetNameLabelLV(p_26,'pRndX30');
SetNameLabelLV(p_27,'pRND4');
SetNameLabelLV(p_28,'pForCase0');
SetNameLabelLV(p_29,'pForCase1');
SetNameLabelLV(p_30,'pForCase2');
SetNameLabelLV(p_31,'pForCase3');
SetNameLabelLV(p_32,'pPresSnake_part1');
SetNameLabelLV(p_33,'pPresSnake_part2');
SetNameLabelLV(p_34,'pPresSnake_part3');
SetNameLabelLV(p_35,'pIncreaseSnake');
SetNameLabelLV(p_36,'pDelay');
SetNameLabelLV(p_37,'pGreenFullScreen');
SetNameLabelLV(p_38,'pDrawLevel');
SetNameLabelLV(p_39,'pClearKeyboardArrows');
SetNameLabelLV(p_40,'pRndS');
SetNameLabelLV(p_41,'pBlackFullScreen');
SetNameLabelLV(p_42,'pEngineGames_InitGame');
SetNameLabelLV(p_43,'pEngineGames_InitLevel');
SetNameLabelLV(p_44,'pLogo1');
SetNameLabelLV(p_45,'pLogo2');
SetNameLabelLV(p_46,'pDrawBlockText');
SetNameLabelLV(p_47,'pLogo3');
SetNameLabelLV(p_48,'pLogo4');
SetNameLabelLV(p_49,'pPause');
SetNameLabelLV(p_50,'pColor');
SetNameLabelLV(p_51,'pStartOrMenu');
SetNameLabelLV(p_52,'pPresSnake');
SetNameLabelLV(p_53,'pPresSBonus');
SetNameLabelLV(p_54,'pKeyD');
SetNameLabelLV(p_55,'pPresKeys');
SetNameLabelLV(p_56,'pKeyO');
SetNameLabelLV(p_57,'pPresProtect');
SetNameLabelLV(p_58,'pPresBonus');
SetNameLabelLV(p_59,'pPresPrizeLife');
SetNameLabelLV(p_60,'STARTProc');
SetNameLabelLV(d_61,'bfPause');
SetNameLabelLV(d_62,'bDrawLevelPosX1');
SetNameLabelLV(d_63,'bRND4c');
SetNameLabelLV(d_64,'bCheckingCoordinates');
SetNameLabelLV(d_65,'bSnakeFromProtect');
SetNameLabelLV(d_66,'bSnakeYnew');
SetNameLabelLV(d_67,'bSnakeXnew');
SetNameLabelLV(d_68,'bSnakeDeadend');
SetNameLabelLV(d_69,'bSnakeCut');
SetNameLabelLV(d_70,'bSF');
SetNameLabelLV(d_71,'bCountPrizeLife');
SetNameLabelLV(d_72,'bGeneralColorPlay');
SetNameLabelLV(d_73,'bSnakeCurLength');
SetNameLabelLV(d_74,'bPresSnake1wremY');
SetNameLabelLV(d_75,'bPresSnake1wremX');
SetNameLabelLV(d_76,'bPresKeysFPole');
SetNameLabelLV(d_77,'bDrawLevel_D');
SetNameLabelLV(d_78,'bDrawLevelPosY1');
SetNameLabelLV(d_79,'bProtectPast');
SetNameLabelLV(d_80,'bfFirstStart');
SetNameLabelLV(d_81,'bConditionOfPlay');
SetNameLabelLV(d_82,'bLevel');
SetNameLabelLV(d_83,'bLife');
SetNameLabelLV(d_84,'bCountBonus');
SetNameLabelLV(d_85,'bKey2');
SetNameLabelLV(d_86,'bKey1');
SetNameLabelLV(d_87,'bKeyT');
SetNameLabelLV(d_88,'wBonusWaitDone');
SetNameLabelLV(d_89,'bIllusoryPurposeWaitTimer');
SetNameLabelLV(d_90,'bSBonusCreate_AsBonusDLSp');
SetNameLabelLV(d_91,'bSBonusCreate_ASBonusSp');
SetNameLabelLV(d_92,'bSnakepurposeXFrom');
SetNameLabelLV(d_93,'bSBonusY');
SetNameLabelLV(d_94,'bSBonusx');
SetNameLabelLV(d_95,'bBonusY');
SetNameLabelLV(d_96,'bBonusX');
SetNameLabelLV(d_97,'bProtectDl');
SetNameLabelLV(d_98,'bProtectY');
SetNameLabelLV(d_99,'bProtectX');
SetNameLabelLV(d_100,'bUserYNew');
SetNameLabelLV(d_101,'bUserXNew');
SetNameLabelLV(d_102,'bUserX');
SetNameLabelLV(d_103,'bSnakepurposeY');
SetNameLabelLV(d_104,'bSnakepurposeX');
SetNameLabelLV(d_105,'bKeyProtect');
SetNameLabelLV(d_106,'bKeyDown');
SetNameLabelLV(d_107,'bKeyUP');
SetNameLabelLV(d_108,'bKeyRight');
SetNameLabelLV(d_109,'bRNDY15');
SetNameLabelLV(d_110,'bKeyleft');
SetNameLabelLV(d_111,'bRNDy30');
SetNameLabelLV(d_112,'bRNDx15');
SetNameLabelLV(d_113,'bRNDx30');
SetNameLabelLV(d_114,'bRND4');
SetNameLabelLV(d_115,'bSnakeCurMaxLength');
SetNameLabelLV(d_116,'bSnakeY');
SetNameLabelLV(d_117,'bSnakeX');
SetNameLabelLV(d_118,'bUserY');
SetNameLabelLV(d_119,'wDelay');
SetNameLabelLV(d_120,'wPOSreadCurByteLevels');
SetNameLabelLV(d_121,'wCurAddrLevel');
SetNameLabelLV(d_122,'wSBonusWaitTimer');
SetNameLabelLV(d_123,'wCountSpectacleses');
SetNameLabelLV(d_124,'wSnakeTimerLength');
SetNameLabelLV(d_125,'L9DF6');
SetNameLabelLV(d_126,'L9DDC');
SetNameLabelLV(d_127,'L9DC5');
SetNameLabelLV(d_128,'L9DB5');
SetNameLabelLV(d_129,'L9DA4');
SetNameLabelLV(d_130,'L9D94');
SetNameLabelLV(d_131,'L9D85');
SetNameLabelLV(d_132,'L9D71');
SetNameLabelLV(d_133,'L9D61');
SetNameLabelLV(d_134,'L9D4B');
SetNameLabelLV(d_135,'L9D32');
SetNameLabelLV(d_136,'awCalculateCellFeld_TABL');
SetNameLabelLV(d_137,'abRND4_mtable');
SetNameLabelLV(d_138,'awDrawScreen_tabl');
SetNameLabelLV(d_139,'L9D1C');
SetNameLabelLV(d_140,'bSnakeMixCut');
SetNameLabelLV(d_141,'bRESreadCurByteLevels');
SetNameLabelLV(d_142,'wVDelay');
SetNameLabelLV(d_143,'abWorkField');
SetNameLabelLV(d_144,'abLevels');
SetNameLabelLV(d_145,'dSPRITE244');
SetNameLabelLV(d_146,'dSPRITE1');
SetNameLabelLV(d_147,'dSPRITE2');
SetNameLabelLV(d_148,'dSPRITE243');
SetNameLabelLV(d_149,'dSPRITE242');
SetNameLabelLV(d_150,'dSPRITE241');
end;

Procedure c_p_4;
Begin
BeginPROCEDURE(p_4);
PushDE;
HLr(d_143);
ArB;
Acmp(0);
GotoUn0(g_151);
ErB;
Dr(0);
HLpDE;
LabelG(g_151);
ArC;
Acmp(0);
GotoUn0(g_152);
PushHL;
HLr(d_136);
ApC;
ErA;
Dr(0);
HLpDE;
ErmHL;
HLp1;
DrmHL;
PopHL;
HLpDE;
LabelG(g_152);
PopDE;
EndPROCEDURE(p_4);
end;

Procedure c_p_1;
Begin
BeginPROCEDURE(p_1);
AxA;
OUT_(194);
Br(8);
LabelG(g_153);
ArmDE;
mHLrA;
DEp1;
HLp1;
ArmDE;
mHLrA;
DEp1;
HLp1;
PushDE;
DEr(62);
HLpDE;
PopDE;
ArB;
Am(1);
BrA;
GotoUnNot0(g_153);
Ar(2);
OUT_(194);
EndPROCEDURE(p_1);
end;

Procedure c_p_5;
Begin
BeginPROCEDURE(p_5);
PushPSW;
CALL(p_4);
PopPSW;
mHLrA;
EndPROCEDURE(p_5);
end;

Procedure c_p_2;
Begin
BeginPROCEDURE(p_2);
AxA;
OUT_(194);
Er(8);
BCr(63);
LabelG(g_154);
mHLrD;
HLp1;
mHLrD;
HLpBC;
ArE;
Am(1);
ErA;
GotoUnNot0(g_154);
Ar(2);
OUT_(194);
EndPROCEDURE(p_2);
end;

Procedure c_p_6;
Begin
BeginPROCEDURE(p_6);
HLr(16384);
PushDE;
ArB;
Acmp(0);
GotoUn0(g_155);
ArB;
ApB;
ErA;
Dr(0);
HLpDE;
LabelG(g_155);
ArC;
Acmp(0);
GotoUn0(g_156);
PushHL;
HLr(d_138);
ArC;
ApC;
ErA;
Dr(0);
HLpDE;
ErmHL;
HLp1;
DrmHL;
PopHL;
HLpDE;
LabelG(g_156);
PopDE;
ArD;
LabelG(g_157);
Acmp(241);
GotoUnNot0(g_158);
PushBC;
DEr(d_150);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_158);
Acmp(242);
GotoUnNot0(g_160);
PushBC;
DEr(d_149);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_160);
Acmp(243);
GotoUnNot0(g_161);
PushBC;
DEr(d_148);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_161);
Acmp(1);
GotoUnNot0(g_162);
PushBC;
DEr(d_146);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_162);
Acmp(2);
GotoUnNot0(g_163);
PushBC;
DEr(d_147);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_163);
Acmp(244);
GotoUnNot0(g_164);
PushBC;
DEr(d_145);
CALL(p_1);
PopBC;
GOTO_(g_159);
LabelG(g_164);
CALL(p_2);
LabelG(g_159);
EndPROCEDURE(p_6);
end;

Procedure c_p_7;
Begin
BeginPROCEDURE(p_7);
PushBC;
CALL(p_5);
PopBC;
Acmp(0);
GotoUn0(g_165);
Acmp(240);
GotoUn0(g_166);
Acmp(1);
GotoUn0(g_167);
Acmp(241);
GotoUn0(g_168);
Acmp(242);
GotoUn0(g_169);
Acmp(243);
GotoUn0(g_170);
Acmp(244);
GotoUn0(g_171);
Acmp(2);
GotoUnp(g_172);
GOTO_(g_173);
LabelG(g_165);
Dr(0);
CALL(p_6);
GOTO_(g_173);
LabelG(g_166);
Dr(240);
CALL(p_6);
GOTO_(g_173);
LabelG(g_167);
Dr(1);
CALL(p_6);
GOTO_(g_173);
LabelG(g_168);
Dr(241);
CALL(p_6);
Ar(0);
CALL(p_5);
GOTO_(g_173);
LabelG(g_169);
Dr(242);
CALL(p_6);
GOTO_(g_173);
LabelG(g_170);
Dr(243);
CALL(p_6);
GOTO_(g_173);
LabelG(g_171);
Dr(244);
CALL(p_6);
GOTO_(g_173);
LabelG(g_172);
Acmp(235);
GotoUnm(g_173);
Dr(2);
CALL(p_6);
GOTO_(g_173);
LabelG(g_173);
EndPROCEDURE(p_7);
end;

Procedure c_p_41;
Begin
BeginPROCEDURE(p_41);
Cr(0);
LabelG(g_174);
Br(0);
LabelG(g_175);
PushBC;
Ar(0);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(32);
GotoUnNot0(g_175);
ArC;
Ap(1);
CrA;
ArC;
Acmp(32);
GotoUnNot0(g_174);
EndPROCEDURE(p_41);
end;

Procedure c_p_42;
Begin
BeginPROCEDURE(p_42);
HLr(d_144);
_rHL(d_120);
_rHL(d_121);
Ar(1);
_rA(d_79);
HLr(0);
_rHL(d_123);
Ar(0);
_rA(d_71);
Ar(4);
_rA(d_83);
Ar(1);
_rA(d_82);
EndPROCEDURE(p_42);
end;

Procedure c_p_11;
Begin
BeginPROCEDURE(p_11);
Ar_(d_111);
Ap(37);
LabelG(g_176);
Acmp(30);
GotoUnm(g_177);
Am(30);
GOTO_(g_176);
LabelG(g_177);
_rA(d_111);
EndPROCEDURE(p_11);
end;

Procedure c_p_12;
Begin
BeginPROCEDURE(p_12);
CALL(p_4);
ArmHL;
EndPROCEDURE(p_12);
end;

Procedure c_p_16;
Begin
BeginPROCEDURE(p_16);
CALL(p_11);
Ar_(d_82);
LrA;
Hr(0);
HLpHL;
HLpHL;
HLpHL;
Ar_(d_111);
CrA;
Br(0);
HLpBC;
BCr(500);
HLpBC;
_rHL(d_122);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
CALL(p_12);
Acmp(243);
GotoUnNot0(g_178);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
Ar(0);
CALL(p_7);
LabelG(g_178);
Acmp(0);
GotoUnNot0(g_179);
Ar_(d_102);
BrA;
Ar_(d_94);
AcmpB;
GotoUn0(g_179);
Ar_(d_118);
BrA;
Ar_(d_93);
AcmpB;
GotoUn0(g_179);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
Ar(0);
CALL(p_7);
LabelG(g_179);
Ar(0);
_rA(d_94);
EndPROCEDURE(p_16);
end;

Procedure c_p_15;
Begin
BeginPROCEDURE(p_15);
HLr_(d_119);
ArH;
Acmp(0);
GotoUnNot0(g_180);
ArL;
Acmp(0);
LabelG(g_180);
GotoUnNot0(g_181);
GOTO_(g_182);
LabelG(g_181);
HLm1;
_rHL(d_119);
HLr_(d_142);
ArH;
Acmp(0);
GotoUnNot0(g_183);
ArL;
Acmp(0);
LabelG(g_183);
GotoUnNot0(g_184);
GOTO_(g_182);
LabelG(g_184);
HLm1;
_rHL(d_142);
LabelG(g_182);
EndPROCEDURE(p_15);
end;

Procedure c_p_18;
Begin
BeginPROCEDURE(p_18);
Ar_(d_99);
Br(0);
AcmpB;
GotoUn0(g_185);
Ar_(d_99);
BrA;
Ar_(d_98);
CrA;
Ar(0);
CALL(p_7);
Ar(0);
_rA(d_99);
LabelG(g_185);
CALL(p_15);
EndPROCEDURE(p_18);
end;

Procedure c_p_37;
Begin
BeginPROCEDURE(p_37);
Cr(0);
LabelG(g_186);
Br(0);
LabelG(g_187);
PushBC;
Ar(240);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(32);
GotoUnNot0(g_187);
ArC;
Ap(1);
CrA;
ArC;
Acmp(32);
GotoUnNot0(g_186);
EndPROCEDURE(p_37);
end;

Procedure c_p_8;
Begin
BeginPROCEDURE(p_8);
HLr_(d_120);
ArmHL;
_rA(d_141);
HLp1;
_rHL(d_120);
EndPROCEDURE(p_8);
end;

Procedure c_p_9;
Begin
BeginPROCEDURE(p_9);
_rA(d_62);
BrA;
Ar_(d_78);
CrA;
Ar(0);
PushBC;
PushPSW;
CALL(p_7);
PopPSW;
PopBC;
EndPROCEDURE(p_9);
end;

Procedure c_p_10;
Begin
BeginPROCEDURE(p_10);
_rA(d_78);
CrA;
Ar_(d_62);
BrA;
Ar(0);
PushBC;
PushPSW;
CALL(p_7);
PopPSW;
PopBC;
PushBC;
PushPSW;
CALL(p_5);
PopPSW;
PopBC;
CALL(p_6);
EndPROCEDURE(p_10);
end;

Procedure c_p_38;
Begin
BeginPROCEDURE(p_38);
Br(1);
Cr(1);
Ar(0);
CALL(p_7);
Ar(1);
_rA(d_62);
Ar(1);
_rA(d_78);
CALL(p_8);
Ar_(d_141);
_rA(d_77);
Ar_(d_77);
Acmp(0);
GotoUnNot0(g_188);
CALL(p_8);
Ar_(d_141);
_rA(d_77);
Acmp(0);
GotoUnNot0(g_188);
HLr(d_144);
_rHL(d_120);
CALL(p_8);
Ar_(d_141);
_rA(d_77);
CALL(p_8);
Ar_(d_141);
_rA(d_77);
LabelG(g_188);
CALL(p_8);
Ar_(d_141);
_rA(d_77);
Acmp(0);
GotoUn0(g_189);
Am(40);
Acmp(40);
GotoUnp(g_190);
Ar_(d_77);
Am(40);
BrA;
LabelG(g_191);
PushBC;
Ar_(d_62);
Ap1;
CALL(p_9);
PushBC;
PushDE;
CALL(p_5);
PopDE;
PopBC;
CALL(p_6);
PopBC;
ArB;
Am(1);
BrA;
GotoUnNot0(g_191);
GOTO_(g_192);
LabelG(g_190);
Am(40);
Acmp(40);
GotoUnp(g_193);
Ar_(d_77);
Am(80);
BrA;
LabelG(g_194);
PushBC;
Ar_(d_62);
Am(1);
CALL(p_9);
PushBC;
PushPSW;
CALL(p_5);
PopPSW;
PopBC;
CALL(p_6);
PopBC;
ArB;
Am(1);
BrA;
GotoUnNot0(g_194);
GOTO_(g_192);
LabelG(g_193);
Am(40);
Acmp(40);
GotoUnp(g_195);
Ar_(d_77);
Am(120);
BrA;
LabelG(g_196);
PushBC;
Ar_(d_78);
Am(1);
CALL(p_10);
PopBC;
ArB;
Am(1);
BrA;
GotoUnNot0(g_196);
GOTO_(g_192);
LabelG(g_195);
Am(40);
Acmp(40);
GotoUnp(g_192);
Ar_(d_77);
Am(160);
BrA;
LabelG(g_197);
PushBC;
Ar_(d_78);
Ap(1);
CALL(p_10);
PopBC;
ArB;
Am(1);
BrA;
GotoUnNot0(g_197);
LabelG(g_192);
Ar_(d_77);
Acmp(0);
GotoUnNot0(g_188);
LabelG(g_189);
EndPROCEDURE(p_38);
end;

Procedure c_p_22;
Begin
BeginPROCEDURE(p_22);
Ar_(d_83);
Acmp(10);
GotoUnm(g_198);
Ar(10);
LabelG(g_198);
CrA;
Acmp(0);
GotoUn0(g_199);
BrA;
Ar(0);
LabelG(g_200);
PushBC;
PushPSW;
BrA;
Cr(31);
Ar(241);
CALL(p_7);
PopPSW;
PopBC;
Ap(1);
AcmpB;
GotoUnm(g_200);
LabelG(g_199);
ArC;
Br(11);
LabelG(g_201);
PushBC;
PushPSW;
BrA;
Cr(31);
Ar(240);
CALL(p_7);
PopPSW;
PopBC;
Ap(1);
AcmpB;
GotoUnm(g_201);
EndPROCEDURE(p_22);
end;

Procedure c_p_26;
Begin
BeginPROCEDURE(p_26);
Ar_(d_113);
Ap(38);
LabelG(g_202);
Acmp(30);
GotoUnm(g_203);
Am(30);
GOTO_(g_202);
LabelG(g_203);
_rA(d_113);
EndPROCEDURE(p_26);
end;

Procedure c_p_23;
Begin
BeginPROCEDURE(p_23);
CALL(p_26);
Ar_(d_82);
BrA;
Ar_(d_113);
CrA;
Ar(150);
AmB;
AmC;
LrA;
Hr(0);
_rHL(d_124);
EndPROCEDURE(p_23);
end;

Procedure c_p_39;
Begin
BeginPROCEDURE(p_39);
Ar(0);
_rA(d_110);
_rA(d_108);
_rA(d_107);
_rA(d_106);
_rA(d_105);
_rA(d_87);
_rA(d_86);
_rA(d_85);
EndPROCEDURE(p_39);
end;

Procedure c_p_43;
Begin
BeginPROCEDURE(p_43);
CALL(p_16);
Ar(0);
_rA(d_96);
_rA(d_95);
CALL(p_18);
Ar(0);
_rA(d_99);
_rA(d_98);
CALL(p_37);
Ar(0);
_rA(d_84);
HLr_(d_121);
_rHL(d_120);
CALL(p_38);
CALL(p_22);
CALL(p_23);
Ar(2);
_rA(d_115);
_rA(d_73);
Ar(30);
_rA(d_104);
Ar(29);
_rA(d_103);
Ar(30);
_rA(d_117);
Ar(29);
_rA(d_116);
Ar_(d_117);
BrA;
Ar_(d_116);
CrA;
Ar(1);
CALL(p_7);
Ar(0);
_rA(d_80);
CALL(p_39);
HLr(3000);
_rHL(d_142);
EndPROCEDURE(p_43);
end;

Procedure c_p_44;
Begin
BeginPROCEDURE(p_44);
Br(5);
LabelG(g_204);
PushBC;
Cr(5);
Ar(240);
CALL(p_7);
PopBC;
PushBC;
Cr(25);
Ar(240);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(27);
GotoUnNot0(g_204);
Cr(5);
LabelG(g_205);
PushBC;
Br(5);
Ar(240);
CALL(p_7);
PopBC;
PushBC;
Br(26);
Ar(240);
CALL(p_7);
PopBC;
ArC;
Ap(1);
CrA;
ArC;
Acmp(25);
GotoUnNot0(g_205);
Br(19);
LabelG(g_206);
PushBC;
Cr(3);
Ar(240);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(25);
GotoUnNot0(g_206);
EndPROCEDURE(p_44);
end;

Procedure c_p_45;
Begin
BeginPROCEDURE(p_45);
Cr(6);
LabelG(g_207);
Br(6);
LabelG(g_208);
PushBC;
Ar(0);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(26);
GotoUnNot0(g_208);
ArC;
Ap(1);
CrA;
ArC;
Acmp(25);
GotoUnNot0(g_207);
EndPROCEDURE(p_45);
end;

Procedure c_p_47;
Begin
BeginPROCEDURE(p_47);
Br(4);
LabelG(g_209);
PushBC;
Cr(4);
Ar(0);
CALL(p_7);
PopBC;
PushBC;
Cr(26);
Ar(0);
CALL(p_7);
PopBC;
ArB;
Ap(1);
BrA;
ArB;
Acmp(27);
GotoUnNot0(g_209);
Cr(4);
LabelG(g_210);
PushBC;
Br(4);
Ar(0);
CALL(p_7);
PopBC;
PushBC;
Br(27);
Ar(0);
CALL(p_7);
PopBC;
ArC;
Ap(1);
CrA;
ArC;
Acmp(27);
GotoUnNot0(g_210);
EndPROCEDURE(p_47);
end;

Procedure c_p_48;
Begin
BeginPROCEDURE(p_48);
Br(8);
Cr(3);
Ar(240);
CALL(p_7);
Br(9);
Cr(3);
Ar(240);
CALL(p_7);
Br(14);
Cr(3);
Ar(240);
CALL(p_7);
Br(15);
Cr(3);
Ar(240);
CALL(p_7);
Br(28);
Cr(5);
Ar(240);
CALL(p_7);
Br(3);
Cr(13);
Ar(240);
CALL(p_7);
Br(3);
Cr(14);
Ar(240);
CALL(p_7);
Br(5);
Cr(27);
Ar(240);
CALL(p_7);
Br(6);
Cr(27);
Ar(240);
CALL(p_7);
Br(14);
Cr(26);
Ar(240);
CALL(p_7);
Br(28);
Cr(11);
Ar(240);
CALL(p_7);
Br(28);
Cr(12);
Ar(240);
CALL(p_7);
Br(28);
Cr(13);
Ar(240);
CALL(p_7);
EndPROCEDURE(p_48);
end;

Procedure c_p_46;
Begin
BeginPROCEDURE(p_46);
Ar(255);
_rA(48701);
Ar(5);
_rA(48702);
Ar(4);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_139);
CALL(58532);
Ar(4);
_rA(48702);
Ar(5);
_rA(48703);
Ar(0);
_rA(48694);
CALL(63533);
HLr(d_135);
CALL(58532);
Ar(4);
_rA(48702);
Ar(6);
_rA(48703);
Ar(1);
_rA(48694);
CALL(63533);
HLr(d_134);
CALL(58532);
Ar(4);
_rA(48702);
Ar(7);
_rA(48703);
Ar(2);
_rA(48694);
CALL(63533);
HLr(d_133);
CALL(58532);
Ar(4);
_rA(48702);
Ar(8);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_132);
CALL(58532);
Ar(4);
_rA(48702);
Ar(9);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_131);
CALL(58532);
Ar(4);
_rA(48702);
Ar(11);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_130);
CALL(58532);
Ar(4);
_rA(48702);
Ar(12);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_132);
CALL(58532);
Ar(4);
_rA(48702);
Ar(13);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_129);
CALL(58532);
Ar(4);
_rA(48702);
Ar(15);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_128);
CALL(58532);
Ar(4);
_rA(48702);
Ar(16);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_127);
CALL(58532);
Ar(4);
_rA(48702);
Ar(17);
_rA(48703);
Ar(3);
_rA(48694);
CALL(63533);
HLr(d_126);
CALL(58532);
Ar(4);
_rA(48702);
Ar(18);
_rA(48703);
Ar(0);
_rA(48694);
CALL(63533);
HLr(d_135);
CALL(58532);
Ar(4);
_rA(48702);
Ar(19);
_rA(48703);
Ar(0);
_rA(48694);
CALL(63533);
HLr(d_125);
CALL(58532);
EndPROCEDURE(p_46);
end;

Procedure c_p_17;
Begin
BeginPROCEDURE(p_17);
Ar_(d_112);
Ap(23);
LabelG(g_211);
Acmp(15);
GotoUnm(g_212);
Am(15);
GOTO_(g_211);
LabelG(g_212);
_rA(d_112);
EndPROCEDURE(p_17);
end;

Procedure c_p_3;
Begin
BeginPROCEDURE(p_3);
Ar_(d_109);
Ap(24);
LabelG(g_213);
Acmp(15);
GotoUnm(g_214);
Am(15);
GOTO_(g_213);
LabelG(g_214);
_rA(d_109);
EndPROCEDURE(p_3);
end;

Procedure c_p_40;
Begin
BeginPROCEDURE(p_40);
CALL(p_26);
CALL(p_11);
CALL(p_17);
CALL(p_3);
EndPROCEDURE(p_40);
end;

Procedure c_p_49;
Begin
BeginPROCEDURE(p_49);
CALL(p_40);
Ar(239);
OUT_(208);
IN_(209);
Acmp(127);
GotoUnNot0(g_215);
Ar_(d_61);
Ax(255);
_rA(d_61);
LabelG(g_216);
Ar(239);
OUT_(208);
IN_(209);
Acmp(127);
GotoUn0(g_216);
LabelG(g_215);
EndPROCEDURE(p_49);
end;

Procedure c_p_50;
Begin
BeginPROCEDURE(p_50);
Ar(239);
OUT_(208);
IN_(209);
Acmp(191);
GotoUnNot0(g_217);
Ar_(d_72);
Ap(4);
_rA(d_72);
OUT_(193);
LabelG(g_218);
Ar(239);
OUT_(208);
IN_(209);
Acmp(191);
GotoUn0(g_218);
LabelG(g_217);
EndPROCEDURE(p_50);
end;

Procedure c_p_51;
Begin
BeginPROCEDURE(p_51);
Ar(239);
OUT_(208);
IN_(209);
Acmp(223);
GotoUnNot0(g_219);
Ar_(d_81);
AcmpB;
GotoUn0(g_220);
Ar(0);
_rA(d_81);
GOTO_(g_221);
LabelG(g_220);
Ar(15);
_rA(d_81);
LabelG(g_221);
Ar(239);
OUT_(208);
IN_(209);
Acmp(223);
GotoUn0(g_221);
LabelG(g_219);
EndPROCEDURE(p_51);
end;

Procedure c_p_13;
Begin
BeginPROCEDURE(p_13);
Ar_(d_101);
BrA;
Ar_(d_102);
AcmpB;
GotoUnNot0(g_222);
Ar_(d_100);
BrA;
Ar_(d_118);
AcmpB;
GotoUn0(g_223);
LabelG(g_222);
Ar(1);
_rA(d_80);
Ar_(d_101);
BrA;
Ar_(d_100);
CrA;
Ar(241);
CALL(p_7);
Ar_(d_102);
BrA;
Ar_(d_118);
CrA;
Ar(0);
CALL(p_7);
Ar_(d_101);
_rA(d_102);
Ar_(d_100);
_rA(d_118);
LabelG(g_223);
EndPROCEDURE(p_13);
end;

Procedure c_p_14;
Begin
BeginPROCEDURE(p_14);
Ar_(d_84);
Acmp(20);
GotoUnm(g_224);
Ar(20);
LabelG(g_224);
BrA;
LabelG(g_225);
Acmp(0);
GotoUn0(g_226);
PushBC;
PushPSW;
Br(11);
ApB;
BrA;
Cr(31);
Ar(242);
CALL(p_7);
PopPSW;
PopBC;
Am(1);
GOTO_(g_225);
LabelG(g_226);
ArB;
Ap1;
Br(20);
LabelG(g_227);
AcmpB;
GotoUnp(g_228);
PushBC;
PushPSW;
Br(11);
ApB;
BrA;
Cr(31);
Ar(240);
CALL(p_7);
PopPSW;
PopBC;
Ap1;
GOTO_(g_227);
LabelG(g_228);
Ar_(d_84);
Acmp(20);
GotoUnm(g_229);
Ar(110);
_rA(d_81);
LabelG(g_229);
EndPROCEDURE(p_14);
end;

Procedure c_p_19;
Begin
BeginPROCEDURE(p_19);
Ar(0);
_rA(d_64);
CALL(p_26);
CALL(p_11);
Ar_(d_113);
BrA;
Ar_(d_111);
CrA;
CALL(p_12);
Acmp(0);
GotoUnNot0(g_230);
Ar_(d_102);
BrA;
Ar_(d_113);
AcmpB;
GotoUn0(g_230);
Ar_(d_118);
BrA;
Ar_(d_111);
AcmpB;
GotoUn0(g_230);
Ar_(d_117);
BrA;
Ar_(d_113);
AcmpB;
GotoUn0(g_230);
Ar_(d_116);
BrA;
Ar_(d_111);
AcmpB;
GotoUn0(g_230);
Ar_(d_94);
BrA;
Ar_(d_113);
AcmpB;
GotoUn0(g_230);
Ar_(d_93);
BrA;
Ar_(d_111);
AcmpB;
GotoUn0(g_230);
Ar(1);
_rA(d_64);
GOTO_(g_231);
LabelG(g_230);
Ar(0);
_rA(d_64);
LabelG(g_231);
EndPROCEDURE(p_19);
end;

Procedure c_p_20;
Begin
BeginPROCEDURE(p_20);
Ar_(d_113);
_rA(d_94);
Ar_(d_111);
_rA(d_93);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
Ar(243);
CALL(p_7);
CALL(p_11);
Ar_(d_82);
BrA;
Ar_(d_111);
CrA;
Ar(150);
AmB;
AmC;
_rA(d_88);
Ar(1);
_rA(d_91);
Ar(10);
_rA(d_90);
EndPROCEDURE(p_20);
end;

Procedure c_p_21;
Begin
BeginPROCEDURE(p_21);
Ar_(d_90);
Am(1);
_rA(d_90);
Ar_(d_90);
Acmp(0);
GotoUnNot0(g_232);
Ar(5);
_rA(d_90);
Ar_(d_91);
Acmp(0);
GotoUnNot0(g_233);
Ar(1);
_rA(d_91);
GOTO_(g_232);
LabelG(g_233);
Ar(0);
_rA(d_91);
LabelG(g_232);
Ar_(d_91);
Acmp(0);
GotoUnNot0(g_234);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
Ar(0);
CALL(p_7);
GOTO_(g_235);
LabelG(g_234);
Ar_(d_94);
BrA;
Ar_(d_93);
CrA;
Ar(243);
CALL(p_7);
LabelG(g_235);
EndPROCEDURE(p_21);
end;

Procedure c_p_24;
Begin
BeginPROCEDURE(p_24);
Ar(0);
_rA(d_69);
BCr(d_143);
DEr(0);
LabelG(g_236);
ArmBC;
Acmp(1);
GotoUnm(g_237);
Acmp(128);
GotoUnm(g_238);
GOTO_(g_237);
LabelG(g_238);
PushBC;
PushDE;
PushHL;
PushPSW;
ArD;
_rA(d_75);
ArE;
_rA(d_74);
Ar_(d_117);
AmD;
GotoUnNot0(g_239);
Ar_(d_116);
AmE;
GotoUn0(g_240);
LabelG(g_239);
PopPSW;
PopHL;
PopDE;
PopBC;
Ap1;
mBCrA;
PushBC;
PushDE;
PushHL;
PushPSW;
Acmp(2);
GotoUnNot0(g_241);
Ar_(d_75);
BrA;
Ar_(d_74);
CrA;
Ar(2);
CALL(p_7);
LabelG(g_241);
DrA;
Ar_(d_73);
AcmpD;
GotoUnp(g_240);
Ar_(d_140);
AcmpD;
GotoUnp(g_242);
DrA;
_rA(d_140);
LabelG(g_242);
Ar_(d_75);
BrA;
Ar_(d_74);
CrA;
Ar(0);
CALL(p_7);
Ar(1);
_rA(d_69);
LabelG(g_240);
PopPSW;
PopHL;
PopDE;
PopBC;
LabelG(g_237);
BCp1;
ArD;
Ap(1);
DrA;
ArD;
Acmp(32);
GotoUnm(g_236);
Dr(0);
ArE;
Ap(1);
ErA;
ArE;
Acmp(32);
GotoUnm(g_236);
EndPROCEDURE(p_24);
end;

Procedure c_p_25;
Begin
BeginPROCEDURE(p_25);
Ar_(d_89);
Acmp(0);
GotoUn0(g_243);
Ar_(d_89);
Am(1);
_rA(d_89);
GOTO_(g_244);
LabelG(g_243);
CALL(p_26);
CALL(p_11);
Ar_(d_113);
_rA(d_104);
Ar_(d_111);
_rA(d_103);
Ar(50);
_rA(d_89);
LabelG(g_244);
EndPROCEDURE(p_25);
end;

Procedure c_p_245;
Begin
BeginPROCEDURE(p_245);
Ar_(d_89);
Acmp(0);
GotoUn0(g_246);
Ar_(d_89);
Am(1);
_rA(d_89);
GOTO_(g_247);
LabelG(g_246);
CALL(p_17);
CALL(p_3);
Ar_(d_112);
Br(15);
ApB;
_rA(d_104);
Ar_(d_109);
Br(15);
ApB;
_rA(d_103);
Ar(10);
_rA(d_89);
LabelG(g_247);
EndPROCEDURE(p_245);
end;

Procedure c_p_27;
Begin
BeginPROCEDURE(p_27);
Ar_(d_63);
Ap1;
_rA(d_63);
Acmp(96);
GotoUnm(g_248);
Ar(0);
_rA(d_63);
LabelG(g_248);
CrA;
Br(0);
HLr(d_137);
HLpBC;
ArmHL;
_rA(d_114);
EndPROCEDURE(p_27);
end;

Procedure c_p_28;
Begin
BeginPROCEDURE(p_28);
Ar_(d_117);
Am(1);
BrA;
Ar_(d_116);
CrA;
CALL(p_12);
Acmp(241);
GotoUn0(g_249);
Acmp(243);
GotoUn0(g_249);
Acmp(244);
GotoUn0(g_250);
Acmp(0);
GotoUn0(g_249);
GOTO_(g_251);
LabelG(g_249);
Ar_(d_117);
Am(1);
_rA(d_67);
GOTO_(g_251);
LabelG(g_250);
Ar(1);
_rA(d_65);
LabelG(g_251);
EndPROCEDURE(p_28);
end;

Procedure c_p_29;
Begin
BeginPROCEDURE(p_29);
Ar_(d_117);
Ap1;
BrA;
Ar_(d_116);
CrA;
CALL(p_12);
Acmp(241);
GotoUn0(g_252);
Acmp(243);
GotoUn0(g_252);
Acmp(244);
GotoUn0(g_253);
Acmp(0);
GotoUn0(g_252);
GOTO_(g_254);
LabelG(g_252);
Ar_(d_117);
Ap1;
_rA(d_67);
GOTO_(g_254);
LabelG(g_253);
Ar(1);
_rA(d_65);
LabelG(g_254);
EndPROCEDURE(p_29);
end;

Procedure c_p_30;
Begin
BeginPROCEDURE(p_30);
Ar_(d_117);
BrA;
Ar_(d_116);
Ap1;
CrA;
CALL(p_12);
Acmp(241);
GotoUn0(g_255);
Acmp(243);
GotoUn0(g_255);
Acmp(244);
GotoUn0(g_256);
Acmp(0);
GotoUn0(g_255);
GOTO_(g_257);
LabelG(g_255);
Ar_(d_116);
Ap1;
_rA(d_66);
GOTO_(g_257);
LabelG(g_256);
Ar(1);
_rA(d_65);
LabelG(g_257);
EndPROCEDURE(p_30);
end;

Procedure c_p_31;
Begin
BeginPROCEDURE(p_31);
Ar_(d_117);
BrA;
Ar_(d_116);
Am(1);
CrA;
CALL(p_12);
Acmp(241);
GotoUn0(g_258);
Acmp(243);
GotoUn0(g_258);
Acmp(244);
GotoUn0(g_259);
Acmp(0);
GotoUn0(g_258);
GOTO_(g_260);
LabelG(g_258);
Ar_(d_116);
Am(1);
_rA(d_66);
GOTO_(g_260);
LabelG(g_259);
Ar(1);
_rA(d_65);
LabelG(g_260);
EndPROCEDURE(p_31);
end;

Procedure c_p_32;
Begin
BeginPROCEDURE(p_32);
Ar_(d_117);
_rA(d_67);
Ar_(d_116);
_rA(d_66);
Ar(0);
_rA(d_65);
Ar_(d_80);
Acmp(0);
GotoUnNot0(g_261);
Ar(2);
_rA(d_92);
Ar_(d_81);
Acmp(4);
GotoUnNot0(g_262);
CALL(p_25);
GOTO_(g_263);
LabelG(g_262);
CALL(p_245);
GOTO_(g_263);
LabelG(g_261);
Ar_(d_94);
Acmp(0);
GotoUnNot0(g_264);
Ar(0);
_rA(d_92);
Ar_(d_102);
_rA(d_104);
Ar_(d_118);
_rA(d_103);
GOTO_(g_263);
LabelG(g_264);
Ar(1);
_rA(d_92);
Ar_(d_94);
_rA(d_104);
Ar_(d_93);
_rA(d_103);
LabelG(g_263);
EndPROCEDURE(p_32);
end;

Procedure c_p_33;
Begin
BeginPROCEDURE(p_33);
Ar(0);
_rA(d_70);
LabelG(g_265);
CALL(p_27);
Ar_(d_114);
Acmp(0);
GotoUnNot0(g_266);
Ar_(d_70);
Ao(1);
_rA(d_70);
Ar_(d_104);
BrA;
Ar_(d_117);
AcmpB;
GotoUnm(g_267);
GotoUn0(g_267);
CALL(p_28);
GOTO_(g_267);
LabelG(g_266);
Acmp(1);
GotoUnNot0(g_268);
Ar_(d_70);
Ao(2);
_rA(d_70);
Ar_(d_104);
BrA;
Ar_(d_117);
AcmpB;
GotoUnp(g_267);
CALL(p_29);
GOTO_(g_267);
LabelG(g_268);
Acmp(2);
GotoUnNot0(g_269);
Ar_(d_70);
Ao(4);
_rA(d_70);
Ar_(d_103);
BrA;
Ar_(d_116);
AcmpB;
GotoUnp(g_267);
CALL(p_30);
GOTO_(g_267);
LabelG(g_269);
Acmp(3);
GotoUnNot0(g_267);
Ar_(d_70);
Ao(8);
_rA(d_70);
Ar_(d_103);
BrA;
Ar_(d_116);
AcmpB;
GotoUnm(g_267);
GotoUn0(g_267);
CALL(p_31);
LabelG(g_267);
Ar_(d_70);
Br(15);
AcmpB;
GotoUn0(g_270);
Ar_(d_117);
BrA;
Ar_(d_67);
AcmpB;
GotoUnNot0(g_270);
Ar_(d_116);
BrA;
Ar_(d_66);
AcmpB;
GotoUnNot0(g_270);
GOTO_(g_265);
LabelG(g_270);
EndPROCEDURE(p_33);
end;

Procedure c_p_34;
Begin
BeginPROCEDURE(p_34);
Ar_(d_117);
BrA;
Ar_(d_67);
AcmpB;
GotoUnNot0(g_271);
Ar_(d_116);
BrA;
Ar_(d_66);
AcmpB;
GotoUnNot0(g_271);
Ar(0);
_rA(d_70);
LabelG(g_272);
CALL(p_27);
Ar_(d_114);
Acmp(0);
GotoUnNot0(g_273);
Ar_(d_70);
Ao(1);
_rA(d_70);
CALL(p_28);
GOTO_(g_274);
LabelG(g_273);
Acmp(1);
GotoUnNot0(g_275);
Ar_(d_70);
Ao(2);
_rA(d_70);
CALL(p_29);
GOTO_(g_274);
LabelG(g_275);
Acmp(2);
GotoUnNot0(g_276);
Ar_(d_70);
Ao(4);
_rA(d_70);
CALL(p_30);
GOTO_(g_274);
LabelG(g_276);
Acmp(3);
GotoUnNot0(g_274);
Ar_(d_70);
Ao(8);
_rA(d_70);
CALL(p_31);
GOTO_(g_274);
LabelG(g_274);
Ar_(d_70);
Br(15);
AcmpB;
GotoUn0(g_271);
Ar_(d_117);
BrA;
Ar_(d_67);
AcmpB;
GotoUnNot0(g_271);
Ar_(d_116);
BrA;
Ar_(d_66);
AcmpB;
GotoUnNot0(g_271);
GOTO_(g_272);
LabelG(g_271);
EndPROCEDURE(p_34);
end;

Procedure c_p_35;
Begin
BeginPROCEDURE(p_35);
Ar_(d_117);
BrA;
Ar_(d_67);
AcmpB;
GotoUnNot0(g_277);
Ar_(d_116);
BrA;
Ar_(d_66);
AcmpB;
GotoUnNot0(g_277);
Ar(1);
_rA(d_68);
GOTO_(g_278);
LabelG(g_277);
Ar_(d_67);
BrA;
Ar_(d_66);
CrA;
Ar(1);
CALL(p_7);
Ar_(d_67);
_rA(d_117);
Ar_(d_66);
_rA(d_116);
Ar_(d_80);
Br(0);
AcmpB;
GotoUn0(g_279);
HLr_(d_124);
HLm1;
_rHL(d_124);
Ar_(d_124);
Acmp(0);
GotoUnNot0(g_279);
CALL(p_23);
Ar_(d_115);
Br(119);
AcmpB;
GotoUnp(g_280);
Ar_(d_115);
Ap1;
_rA(d_115);
CALL(p_15);
GOTO_(g_279);
LabelG(g_280);
Ar(119);
_rA(d_115);
LabelG(g_279);
Ar(0);
_rA(d_68);
LabelG(g_278);
CALL(p_24);
Ar_(d_65);
Acmp(0);
GotoUnNot0(g_281);
Ar_(d_68);
Br(0);
AcmpB;
GotoUn0(g_281);
Ar_(d_69);
Acmp(0);
GotoUnNot0(g_281);
Ar_(d_73);
Am(1);
_rA(d_73);
LabelG(g_281);
Ar_(d_68);
Acmp(0);
GotoUnNot0(g_282);
Ar_(d_69);
Br(0);
AcmpB;
GotoUn0(g_282);
Ar_(d_73);
BrA;
Ar_(d_115);
AcmpB;
GotoUnm(g_282);
GotoUn0(g_282);
Ar_(d_73);
Ap1;
_rA(d_73);
LabelG(g_282);
EndPROCEDURE(p_35);
end;

Procedure c_p_36;
Begin
BeginPROCEDURE(p_36);
HLr_(d_142);
LabelG(g_283);
ArH;
Acmp(0);
GotoUnNot0(g_284);
ArL;
Acmp(0);
GotoUnNot0(g_284);
GOTO_(g_285);
LabelG(g_284);
HLm1;
GOTO_(g_283);
LabelG(g_285);
EndPROCEDURE(p_36);
end;

Procedure c_p_52;
Begin
BeginPROCEDURE(p_52);
CALL(p_32);
CALL(p_33);
CALL(p_34);
CALL(p_35);
Ar_(d_102);
BrA;
Ar_(d_117);
AcmpB;
GotoUnNot0(g_286);
Ar_(d_118);
BrA;
Ar_(d_116);
AcmpB;
GotoUnNot0(g_286);
BCr(65528);
CALL(p_36);
Ar(100);
_rA(d_81);
LabelG(g_286);
Ar_(d_117);
BrA;
Ar_(d_104);
AcmpB;
GotoUnNot0(g_287);
Ar_(d_116);
BrA;
Ar_(d_103);
AcmpB;
GotoUnNot0(g_287);
Ar_(d_92);
Acmp(1);
GotoUnNot0(g_287);
CALL(p_16);
Ar_(d_84);
Br(11);
AcmpB;
GotoUnp(g_288);
Ar(0);
_rA(d_84);
GOTO_(g_289);
LabelG(g_288);
Ar_(d_84);
Am(160);
_rA(d_84);
LabelG(g_289);
HLr_(d_123);
ArH;
Acmp(0);
GotoUnNot0(g_290);
ArL;
Acmp(11);
LabelG(g_290);
GotoUnp(g_291);
HLr(0);
_rHL(d_123);
GOTO_(g_292);
LabelG(g_291);
HLr_(d_123);
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
HLm1;
_rHL(d_123);
LabelG(g_292);
Ar_(d_71);
Acmp(11);
GotoUnp(g_293);
Ar(0);
_rA(d_71);
GOTO_(g_294);
LabelG(g_293);
Ar_(d_71);
Am(160);
_rA(d_71);
LabelG(g_294);
CALL(p_14);
LabelG(g_287);
EndPROCEDURE(p_52);
end;

Procedure c_p_53;
Begin
BeginPROCEDURE(p_53);
Ar_(d_80);
Acmp(0);
GotoUn0(g_295);
Ar_(d_94);
Acmp(0);
GotoUnNot0(g_296);
HLr_(d_122);
ArH;
Acmp(0);
GotoUnNot0(g_297);
ArL;
Acmp(0);
LabelG(g_297);
GotoUnNot0(g_298);
GOTO_(g_299);
LabelG(g_298);
HLr_(d_122);
HLm1;
_rHL(d_122);
GOTO_(g_296);
LabelG(g_299);
CALL(p_19);
Ar_(d_64);
Acmp(0);
GotoUn0(g_300);
CALL(p_20);
GOTO_(g_296);
LabelG(g_300);
Ar(0);
_rA(d_94);
LabelG(g_296);
Ar_(d_94);
Br(0);
AcmpB;
GotoUn0(g_295);
Ar(0);
HLr_(d_88);
AcmpH;
GotoUnNot0(g_301);
AcmpL;
GotoUnNot0(g_301);
CALL(p_16);
GOTO_(g_295);
LabelG(g_301);
HLr_(d_88);
HLm1;
_rHL(d_88);
CALL(p_21);
LabelG(g_295);
EndPROCEDURE(p_53);
end;

Procedure c_p_54;
Begin
BeginPROCEDURE(p_54);
Ar(0);
_rA(d_106);
_rA(d_110);
_rA(d_107);
_rA(d_108);
Ar(247);
OUT_(210);
IN_(210);
NotA;
Ai(240);
Acmp(128);
GotoUnm(g_302);
_rA(d_106);
Am(128);
LabelG(g_302);
Acmp(64);
GotoUnm(g_303);
_rA(d_110);
Am(64);
LabelG(g_303);
Acmp(32);
GotoUnm(g_304);
_rA(d_107);
Am(32);
LabelG(g_304);
Acmp(16);
GotoUnm(g_305);
_rA(d_108);
LabelG(g_305);
EndPROCEDURE(p_54);
end;

Procedure c_p_55;
Begin
BeginPROCEDURE(p_55);
Ar_(d_102);
_rA(d_101);
Ar_(d_118);
_rA(d_100);
Ar(0);
_rA(d_87);
Ar_(d_110);
Acmp(0);
GotoUn0(g_306);
Ar_(d_101);
Am(1);
BrA;
Ar_(d_100);
CrA;
CALL(p_12);
Acmp(0);
GotoUn0(g_307);
Acmp(242);
GotoUn0(g_307);
Acmp(243);
GotoUnNot0(g_308);
LabelG(g_307);
Ar(1);
_rA(d_87);
GOTO_(g_308);
LabelG(g_306);
Ar_(d_108);
Acmp(0);
GotoUn0(g_309);
Ar_(d_101);
Ap1;
BrA;
Ar_(d_100);
CrA;
CALL(p_12);
Acmp(0);
GotoUn0(g_310);
Acmp(242);
GotoUn0(g_310);
Acmp(243);
GotoUnNot0(g_308);
LabelG(g_310);
Ar(2);
_rA(d_87);
GOTO_(g_308);
LabelG(g_309);
Ar_(d_107);
Acmp(0);
GotoUn0(g_311);
Ar_(d_101);
BrA;
Ar_(d_100);
Am(1);
CrA;
CALL(p_12);
Acmp(0);
GotoUn0(g_312);
Acmp(242);
GotoUn0(g_312);
Acmp(243);
GotoUnNot0(g_308);
LabelG(g_312);
Ar(3);
_rA(d_87);
GOTO_(g_308);
LabelG(g_311);
Ar_(d_106);
Acmp(0);
GotoUn0(g_308);
Ar_(d_101);
BrA;
Ar_(d_100);
Ap1;
CrA;
CALL(p_12);
Acmp(0);
GotoUn0(g_313);
Acmp(242);
GotoUn0(g_313);
Acmp(243);
GotoUnNot0(g_308);
LabelG(g_313);
Ar(4);
_rA(d_87);
LabelG(g_308);
Ar_(d_87);
Acmp(3);
GotoUnp(g_314);
CALL(p_26);
GOTO_(g_315);
LabelG(g_314);
CALL(p_11);
LabelG(g_315);
Ar_(d_86);
Acmp(0);
GotoUnNot0(g_316);
Ar_(d_87);
_rA(d_86);
GOTO_(g_317);
LabelG(g_316);
Ar_(d_87);
_rA(d_85);
LabelG(g_317);
Ar_(d_85);
Acmp(0);
GotoUn0(g_318);
Ar_(d_85);
_rA(d_86);
LabelG(g_318);
Ar_(d_86);
Acmp(1);
GotoUn0(g_319);
Acmp(2);
GotoUn0(g_320);
Acmp(3);
GotoUn0(g_321);
Acmp(4);
GotoUnNot0(g_322);
Ar_(d_118);
Ap1;
_rA(d_100);
GOTO_(g_322);
LabelG(g_319);
Ar_(d_102);
Am(1);
_rA(d_101);
GOTO_(g_322);
LabelG(g_320);
Ar_(d_102);
Ap1;
_rA(d_101);
GOTO_(g_322);
LabelG(g_321);
Ar_(d_118);
Am(1);
_rA(d_100);
LabelG(g_322);
Ar_(d_101);
BrA;
Ar_(d_100);
CrA;
CALL(p_12);
_rA(d_76);
Acmp(242);
GotoUnNot0(g_323);
CALL(p_13);
Ar_(d_84);
Ap1;
_rA(d_84);
CALL(p_14);
Ar_(d_123);
Ap1;
_rA(d_123);
Ar_(d_71);
Ap1;
_rA(d_71);
Ar_(d_115);
Ap1;
_rA(d_115);
CALL(p_15);
LabelG(g_323);
Ar_(d_102);
BrA;
Ar_(d_94);
AcmpB;
GotoUnNot0(g_324);
Ar_(d_118);
BrA;
Ar_(d_93);
AcmpB;
GotoUnNot0(g_324);
Ar_(d_84);
Br(10);
ApB;
_rA(d_84);
CALL(p_14);
Ar_(d_123);
Br(10);
ApB;
_rA(d_123);
CALL(p_16);
CALL(p_15);
LabelG(g_324);
Ar_(d_76);
Acmp(244);
GotoUnNot0(g_325);
Ar_(d_79);
Acmp(0);
GotoUnNot0(g_325);
Ar(0);
_rA(d_76);
LabelG(g_325);
Ar_(d_76);
Acmp(0);
GotoUn0(g_326);
Acmp(242);
GotoUn0(g_326);
Acmp(243);
GotoUnNot0(g_327);
LabelG(g_326);
CALL(p_13);
GOTO_(g_328);
LabelG(g_327);
Ar(0);
_rA(d_86);
LabelG(g_328);
EndPROCEDURE(p_55);
end;

Procedure c_p_56;
Begin
BeginPROCEDURE(p_56);
Ar(0);
_rA(d_105);
OUT_(208);
IN_(209);
Ax(255);
_rA(d_105);
EndPROCEDURE(p_56);
end;

Procedure c_p_57;
Begin
BeginPROCEDURE(p_57);
Ar_(d_99);
Acmp(0);
GotoUnNot0(g_329);
Ar_(d_105);
Acmp(0);
GotoUn0(g_330);
Ar(10);
_rA(d_97);
Ar_(d_102);
_rA(d_99);
Ar_(d_118);
_rA(d_98);
LabelG(g_329);
Ar_(d_102);
BrA;
Ar_(d_99);
AcmpB;
GotoUnNot0(g_331);
Ar_(d_118);
BrA;
Ar_(d_98);
AcmpB;
GotoUnNot0(g_331);
GOTO_(g_330);
LabelG(g_331);
Ar_(d_99);
BrA;
Ar_(d_98);
CrA;
Ar(244);
CALL(p_7);
CALL(p_15);
Ar_(d_97);
Am(1);
_rA(d_97);
Ar_(d_97);
Acmp(0);
GotoUnNot0(g_330);
CALL(p_18);
LabelG(g_330);
EndPROCEDURE(p_57);
end;

Procedure c_p_58;
Begin
BeginPROCEDURE(p_58);
Ar_(d_96);
BrA;
Ar_(d_102);
AcmpB;
GotoUnNot0(g_332);
Ar_(d_95);
BrA;
Ar_(d_118);
AcmpB;
GotoUnNot0(g_332);
Ar(0);
_rA(d_96);
Ar(0);
_rA(d_95);
LabelG(g_332);
Ar_(0);
BrA;
Ar_(d_96);
AcmpB;
GotoUnNot0(g_333);
Ar_(d_80);
Acmp(0);
GotoUn0(g_334);
CALL(p_19);
Ar_(d_64);
Acmp(0);
GotoUn0(g_335);
Ar_(d_113);
_rA(d_96);
Ar_(d_111);
_rA(d_95);
Ar_(d_96);
BrA;
Ar_(d_95);
CrA;
Ar(242);
CALL(p_7);
GOTO_(g_334);
LabelG(g_335);
Ar(0);
_rA(d_96);
_rA(d_95);
GOTO_(g_334);
LabelG(g_333);
Ar_(d_96);
BrA;
Ar_(d_95);
CrA;
Ar(242);
CALL(p_7);
LabelG(g_334);
EndPROCEDURE(p_58);
end;

Procedure c_p_59;
Begin
BeginPROCEDURE(p_59);
Ar_(d_71);
Br(100);
AcmpB;
GotoUnm(g_336);
Ar_(d_83);
Ap1;
_rA(d_83);
Ar_(d_71);
Am(100);
_rA(d_71);
CALL(p_22);
LabelG(g_336);
EndPROCEDURE(p_59);
end;

Procedure c_p_60;
Begin
BeginPROCEDURE(p_60);
LabelG(g_337);
CALL(p_41);
Ar(0);
_rA(d_81);
LabelG(g_338);
Ar_(d_81);
Acmp(0);
GotoUn0(g_339);
Acmp(3);
GotoUn0(g_340);
Acmp(4);
GotoUn0(g_341);
Acmp(15);
GotoUn0(g_342);
Acmp(20);
GotoUn0(g_343);
Acmp(30);
GotoUn0(g_344);
Acmp(100);
GotoUn0(g_345);
Acmp(110);
GotoUn0(g_346);
GOTO_(g_338);
LabelG(g_339);
HLr(0);
_rHL(d_121);
Ar(3);
_rA(d_81);
GOTO_(g_338);
LabelG(g_340);
CALL(p_42);
CALL(p_43);
Ar(0);
_rA(d_102);
_rA(d_118);
_rA(d_83);
Ar(8);
_rA(d_115);
CALL(p_22);
CALL(p_44);
CALL(p_45);
CALL(p_47);
CALL(p_48);
CALL(p_46);
Ar(4);
_rA(d_81);
GOTO_(g_338);
LabelG(g_341);
CALL(p_49);
CALL(p_50);
CALL(p_51);
Ar_(d_61);
Acmp(0);
GotoUnNot0(g_347);
CALL(p_52);
CALL(p_36);
LabelG(g_347);
GOTO_(g_338);
LabelG(g_342);
CALL(p_42);
Ar(20);
_rA(d_81);
GOTO_(g_338);
LabelG(g_343);
CALL(p_43);
Ar(1);
_rA(d_102);
_rA(d_118);
Ar_(d_102);
BrA;
Ar_(d_118);
CrA;
Ar(241);
CALL(p_7);
Ar(4);
_rA(d_115);
HLr_(d_142);
_rHL(d_119);
Ar_(d_82);
LrA;
Hr(0);
HLpHL;
HLpHL;
HLpHL;
HLpHL;
HLpHL;
LabelG(g_348);
PushHL;
CALL(p_15);
PopHL;
HLm1;
ArH;
Acmp(0);
GotoUnNot0(g_348);
ArL;
Acmp(0);
GotoUnNot0(g_348);
Ar(30);
_rA(d_81);
GOTO_(g_338);
LabelG(g_344);
CALL(p_49);
CALL(p_50);
CALL(p_51);
Ar_(d_61);
Acmp(0);
GotoUnNot0(g_349);
CALL(p_53);
CALL(p_54);
CALL(p_55);
CALL(p_56);
CALL(p_57);
CALL(p_52);
CALL(p_58);
CALL(p_14);
CALL(p_22);
CALL(p_59);
Ar_(d_80);
Acmp(0);
GotoUn0(g_350);
CALL(p_15);
LabelG(g_350);
CALL(p_36);
LabelG(g_349);
GOTO_(g_338);
LabelG(g_345);
Ar_(d_83);
Acmp(0);
GotoUnNot0(g_351);
HLr(65535);
_rHL(d_142);
CALL(p_36);
Ar(0);
_rA(d_81);
GOTO_(g_352);
LabelG(g_351);
Ar(20);
_rA(d_81);
LabelG(g_352);
CALL(p_22);
HLr(65535);
_rHL(d_142);
CALL(p_36);
Ar_(d_83);
Am(1);
_rA(d_83);
CALL(p_18);
GOTO_(g_338);
LabelG(g_346);
Ar(20);
_rA(d_81);
Ar_(d_82);
Ap1;
_rA(d_82);
HLr(65535);
_rHL(d_142);
CALL(p_36);
HLr_(d_120);
_rHL(d_121);
GOTO_(g_338);
EndPROCEDURE(p_60);
end;

Procedure CheckAndCompileRAM1Procedure;
Begin
If UACINC(p_4) then c_p_4;
If UACINC(p_5) then c_p_5;
If UACINC(p_6) then c_p_6;
If UACINC(p_7) then c_p_7;
If UACINC(p_41) then c_p_41;
If UACINC(p_42) then c_p_42;
If UACINC(p_11) then c_p_11;
If UACINC(p_12) then c_p_12;
If UACINC(p_16) then c_p_16;
If UACINC(p_15) then c_p_15;
If UACINC(p_18) then c_p_18;
If UACINC(p_37) then c_p_37;
If UACINC(p_8) then c_p_8;
If UACINC(p_9) then c_p_9;
If UACINC(p_10) then c_p_10;
If UACINC(p_38) then c_p_38;
If UACINC(p_22) then c_p_22;
If UACINC(p_26) then c_p_26;
If UACINC(p_23) then c_p_23;
If UACINC(p_39) then c_p_39;
If UACINC(p_43) then c_p_43;
If UACINC(p_44) then c_p_44;
If UACINC(p_45) then c_p_45;
If UACINC(p_47) then c_p_47;
If UACINC(p_48) then c_p_48;
If UACINC(p_46) then c_p_46;
If UACINC(p_17) then c_p_17;
If UACINC(p_3) then c_p_3;
If UACINC(p_40) then c_p_40;
If UACINC(p_49) then c_p_49;
If UACINC(p_50) then c_p_50;
If UACINC(p_51) then c_p_51;
If UACINC(p_13) then c_p_13;
If UACINC(p_14) then c_p_14;
If UACINC(p_19) then c_p_19;
If UACINC(p_20) then c_p_20;
If UACINC(p_21) then c_p_21;
If UACINC(p_24) then c_p_24;
If UACINC(p_25) then c_p_25;
If UACINC(p_245) then c_p_245;
If UACINC(p_27) then c_p_27;
If UACINC(p_28) then c_p_28;
If UACINC(p_29) then c_p_29;
If UACINC(p_30) then c_p_30;
If UACINC(p_31) then c_p_31;
If UACINC(p_32) then c_p_32;
If UACINC(p_33) then c_p_33;
If UACINC(p_34) then c_p_34;
If UACINC(p_35) then c_p_35;
If UACINC(p_36) then c_p_36;
If UACINC(p_52) then c_p_52;
If UACINC(p_53) then c_p_53;
If UACINC(p_54) then c_p_54;
If UACINC(p_55) then c_p_55;
If UACINC(p_56) then c_p_56;
If UACINC(p_57) then c_p_57;
If UACINC(p_58) then c_p_58;
If UACINC(p_59) then c_p_59;
If UACINC(p_60) then c_p_60;
end;

procedure CheckAndCompileRAM1DataLV;
Begin
ChkCompArrayByteFilled(d_143,1024,0);
ChkCompArrayByte(d_144,ab_144);
ChkCompArrayByte(d_137,ab_137);
ChkCompArrayByte(d_138,ab_138);
ChkCompArrayByte(d_136,ab_136);
ChkCompArrayByte(d_139,ab_139);
ChkCompArrayByte(d_135,ab_135);
ChkCompArrayByte(d_134,ab_134);
ChkCompArrayByte(d_133,ab_133);
ChkCompArrayByte(d_132,ab_132);
ChkCompArrayByte(d_131,ab_131);
ChkCompArrayByte(d_130,ab_130);
ChkCompArrayByte(d_129,ab_129);
ChkCompArrayByte(d_128,ab_128);
ChkCompArrayByte(d_127,ab_127);
ChkCompArrayByte(d_126,ab_126);
ChkCompArrayByte(d_125,ab_125);
ChkCompByte(d_61,0);
ChkCompByte(d_62,0);
ChkCompByte(d_63,0);
ChkCompByte(d_64,0);
ChkCompByte(d_65,0);
ChkCompByte(d_66,0);
ChkCompByte(d_67,0);
ChkCompByte(d_68,0);
ChkCompByte(d_69,0);
ChkCompByte(d_70,0);
ChkCompByte(d_71,0);
ChkCompByte(d_72,0);
ChkCompByte(d_73,0);
ChkCompByte(d_74,0);
ChkCompByte(d_75,0);
ChkCompByte(d_76,0);
ChkCompByte(d_77,0);
ChkCompByte(d_78,0);
ChkCompByte(d_79,0);
ChkCompByte(d_80,0);
ChkCompByte(d_81,0);
ChkCompByte(d_82,0);
ChkCompByte(d_83,0);
ChkCompByte(d_84,0);
ChkCompByte(d_85,0);
ChkCompByte(d_86,0);
ChkCompByte(d_87,0);
ChkCompByte(d_89,0);
ChkCompByte(d_90,0);
ChkCompByte(d_91,0);
ChkCompByte(d_92,0);
ChkCompByte(d_93,0);
ChkCompByte(d_94,0);
ChkCompByte(d_95,0);
ChkCompByte(d_96,0);
ChkCompByte(d_97,0);
ChkCompByte(d_98,0);
ChkCompByte(d_99,0);
ChkCompByte(d_100,0);
ChkCompByte(d_101,0);
ChkCompByte(d_102,0);
ChkCompByte(d_103,0);
ChkCompByte(d_104,0);
ChkCompByte(d_105,0);
ChkCompByte(d_106,0);
ChkCompByte(d_107,0);
ChkCompByte(d_108,0);
ChkCompByte(d_109,0);
ChkCompByte(d_110,0);
ChkCompByte(d_111,0);
ChkCompByte(d_112,0);
ChkCompByte(d_113,0);
ChkCompByte(d_114,0);
ChkCompByte(d_115,0);
ChkCompByte(d_116,0);
ChkCompByte(d_117,0);
ChkCompByte(d_118,0);
ChkCompByte(d_140,0);
ChkCompByte(d_141,0);
ChkCompWord(d_88,0);
ChkCompWord(d_119,0);
ChkCompWord(d_120,0);
ChkCompWord(d_121,0);
ChkCompWord(d_122,0);
ChkCompWord(d_123,0);
ChkCompWord(d_124,0);
ChkCompWord(d_142,0);
end;

Procedure CheckAndCompileRAM2Procedure;
Begin
If UACINC(p_1) then c_p_1;
If UACINC(p_2) then c_p_2;
end;

procedure CheckAndCompileRAM2DataLV;
Begin
ChkCompArrayByte(d_146,ab_146);
ChkCompArrayByte(d_147,ab_147);
ChkCompArrayByte(d_150,ab_150);
ChkCompArrayByte(d_149,ab_149);
ChkCompArrayByte(d_148,ab_148);
ChkCompArrayByte(d_145,ab_145);
end;

procedure SetForcedCompiling;
Begin
chk_p_60;
end;

Var EndLoop:TLabelGLV;
BEGIN
ProgramLV('L18PM_MD04');
pSectSetIDMD03;
SetNameAndComment;
SetForcedCompiling;
pSetRAMandSize;
SetAddrRAM(GetCalcRAM1m);

CheckAndCompileRAM1Procedure;
CheckAndCompileRAM1DataLV;

If GetfRAM2 then Begin
SetAddrRAM2;
CheckAndCompileRAM2Procedure;
CheckAndCompileRAM2DataLV;
end;
Begin
DString255(' MADL2023 ');
StartProgram;
CALL(p_60);
SetNameLabelLV(EndLoop,'EndLoop');
LabelG(EndLoop);Goto_(EndLoop);
end;
FINALProgramLV;
END.

Цитировать Сообщение 3

Ответить

Страница: 1

Быстрый ответ

Напишите ваше сообщение и нажмите «Отправить»

Имя

EnotVM

Меню навигации

Пользовательские ссылки

Информация о пользователе

Project.TMP

Сообщений 1 страница 3 из 3

Поделиться12025-05-27 14:56:36

Поделиться22025-05-27 14:56:51

Поделиться32025-05-27 14:57:15

Быстрый ответ