ABS ORG 00100H PGM0100 JP PGM0131 DAT0103 DB 03AH DAT0104 DB 04FH DAT0105 DB 000H DAT0106 DB 014H DAT0107 DB 000H DAT0108 DB 040H DAT0109 DB 007H DB 'Copyright' DW PGM2820 DB 'c) 1978, 1980 Cromemco, Inc.' PGM0131 LD SP,(DAT0006) LD IX,DAT3F51 LD DE,DAT362F CALL PGM346A CALL PGM36B9 LD HL,(DAT0006) LD DE,DAT4D57 CALL PGM27D7 JP C,PGM09FB DEC HL LD (DAT3FFC),HL LD HL,DAT4C57 LD (DAT4C53),HL LD (DAT4C55),HL LD SP,DAT4A53 SUB A LD (DAT43D2),A LD DE,DAT4A53 LD BC,MOD0200 CALL PGM2811 CALL PGM0BCB LD A,(DAT0106) AND 03CH LD (IX+000H),A LD A,(DAT0107) AND 07EH LD (IX+001H),A LD A,(DAT0108) AND 07CH LD (IX+002H),A LD A,(DAT0105) LD (DAT3F4F),A LD A,(DAT0103) LD (DAT3F50),A LD A,(DAT0104) LD (DAT3F4D),A LD DE,DAT365B LD BC,DAT0016 CALL PGM280F CALL PGM045B CALL PGM0488 LD HL,DAT005C LD DE,DAT38E8 LD BC,DAT029A CALL PGM372D LD DE,DAT3D64 LD BC,DAT02A0 CALL PGM372D LD DE,DAT3CC0 LD BC,DAT029D CALL PGM372D LD DE,DAT3E08 LD BC,DAT02A3 CALL PGM372D LD DE,DAT3EAC LD BC,DAT02A6 CALL PGM372D INC HL LD DE,DAT497B LD BC,DAT0008 LDIR LD HL,DAT0081 CALL PGM2844 PGM01E6 CALL PGM056C CALL PGM2844 AND A JR Z,PGM01F6 PUSH HL CALL PGM02A9 POP HL JR PGM01E6 PGM01F6 LD A,(DAT0065) CALL PGM0274 LD (DAT38E8),A CALL PGM3741 MOD0200 EQU PGM01F6+00AH LD A,(DAT0066) CALL PGM27CC CP 05AH JR Z,PGM0221 SET 0,(IX+000H) CALL PGM0274 LD (DAT3CC0),A LD A,008H LD (DAT33A1),A LD HL,DAT3CBD CALL PGM3782 PGM0221 LD A,(DAT0067) CALL PGM27CC CP 05AH JR Z,PGM0239 CP 058H JR Z,PGM0247 CP 059H JR NZ,PGM024D SET 7,(IX+000H) JR PGM025D PGM0239 RES 2,(IX+000H) RES 3,(IX+001H) RES 3,(IX+000H) JR PGM025D PGM0247 SET 6,(IX+000H) JR PGM025D PGM024D CALL PGM0274 LD (DAT3D64),A LD HL,DAT3D61 CALL PGM3782 SET 1,(IX+000H) PGM025D BIT 2,(IX+000H) LD HL,DAT3E05 CALL NZ,PGM3782 BIT 3,(IX+001H) LD HL,DAT3EA9 CALL NZ,PGM3782 JP PGM0575 PGM0274 SUB 020H RET Z SUB 020H JR C,PGM027E CP 009H RET C PGM027E LD DE,DAT0284 JP PGM05FB DAT0284 DB 'Selected disk error',CR DW DAT000A DAT029A DB 05AH,038H,030H DAT029D DB 052H,045H,04CH DAT02A0 DB 050H,052H,04EH DAT02A3 DB 024H,024H,024H DAT02A6 DB 024H,024H,030H PGM02A9 LD DE,DAT02E6 PGM02AC PUSH HL LD A,(DE) AND A JR Z,PGM02CF PGM02B1 CALL PGM27BD JR NZ,PGM02C5 LD A,(DE) INC DE INC HL RLA JR NC,PGM02B1 POP BC LD B,H LD C,L LD A,(DE) LD L,A INC DE LD A,(DE) LD H,A JP (HL) PGM02C5 LD A,(DE) INC DE RLA JR NC,PGM02C5 INC DE INC DE POP HL JR PGM02AC PGM02CF LD DE,DAT02D5 JP PGM05FB DAT02D5 DB 'Invalid option',CR DW DAT000A DAT02E6 DB 052H,041H,04EH,047H,0C5H DW PGM0390 DB 050H,041H,052H,049H,054H,0D9H DW PGM0395 DB 058H,052H,045H,0C6H DW PGM039A DB 04EH,04FH,058H,052H,045H,0C6H DW PGM039F DB 053H,059H,04DH,0C2H DW PGM03A4 DB 050H,041H,047H,045H,0BDH DW PGM03A9 DB 054H,04FH,050H,0BDH DW PGM03B7 DB 057H,049H,044H,054H,048H,0BDH DW PGM03C6 DB 054H,052H,055H,04EH,043H,0BDH DW PGM03C0 DB 04DH,041H,043H,052H,04FH,0BDH DW PGM03D3 DB 04EH,04FH,043H,04FH,04EH,0C4H DW PGM03DE DB 04EH,04FH,047H,045H,0CEH DW PGM03E7 DB 04EH,04FH,054H,045H,058H,0D4H DW PGM03F0 DB 043H,04FH,04EH DW PGM15C4 DB 004H,047H,045H,0CEH DW PGM041E DB 054H,045H,058H,0D4H DW PGM0427 DB 'LISTOF' DB 0C6H DW PGM03F9 DB 04CH,049H,053H,054H,04FH,0CEH DW PGM0402 DB 04FH,050H,043H,04FH,044H,0C5H DW PGM0410 DB 044H,045H,042H,055H,0C7H DW PGM040B DB 048H,045H,058H,0BDH DW PGM0435 DB 048H,045H,0D8H DW PGM0430 DB 044H,041H,054H,045H,0BDH DW PGM0477 DB 054H,049H,04DH,045H,0BDH DW PGM04A7 DB 000H PGM0390 SET 4,(IX+000H) RET PGM0395 SET 5,(IX+000H) RET PGM039A SET 2,(IX+000H) RET PGM039F RES 2,(IX+000H) RET PGM03A4 SET 3,(IX+000H) RET PGM03A9 LD D,00AH CALL PGM0556 LD (DAT3F50),A CP 0FFH JP Z,PGM02CF RET PGM03B7 LD D,000H CALL PGM0556 LD (DAT3F4F),A RET PGM03C0 SET 6,(IX+002H) JR PGM03CA PGM03C6 RES 6,(IX+002H) PGM03CA LD D,027H CALL PGM0556 LD (DAT3F4D),A RET PGM03D3 LD HL,MOD0000 LD (DAT4796),HL LD H,B LD L,C JP PGM1D7F PGM03DE SET 2,(IX+001H) RES 5,(IX+001H) RET PGM03E7 SET 1,(IX+001H) RES 6,(IX+001H) RET PGM03F0 SET 3,(IX+002H) RES 2,(IX+002H) RET PGM03F9 SET 5,(IX+002H) RES 4,(IX+002H) RET PGM0402 SET 4,(IX+002H) RES 5,(IX+002H) RET PGM040B SET 4,(IX+001H) RET PGM0410 SET 3,(IX+001H) RET PGM0415 SET 5,(IX+001H) RES 2,(IX+001H) RET PGM041E SET 6,(IX+001H) RES 1,(IX+001H) RET PGM0427 SET 2,(IX+002H) RES 3,(IX+002H) RET PGM0430 LD DE,MOD0000 JR PGM0440 PGM0435 LD H,B LD L,C CALL PGM056C CALL PGM2753 JP C,PGM02CF PGM0440 LD (DAT3FD7),DE SET 0,(IX+002H) LD HL,DAT0458 LD DE,DAT3CC9 LD BC,DAT0003 LDIR SUB A LD (DAT3FDB),A RET DAT0458 DB 048H,045H,058H PGM045B LD C,08DH CALL MOD0005 LD A,B CP 001H RET C LD C,090H CALL MOD0005 LD D,A OR B OR C RET Z LD A,D PGM046E CALL PGM04C3 LD DE,DAT365B LDIR RET PGM0477 CALL PGM04B7 PUSH AF CALL PGM04B7 PUSH AF CALL PGM04B7 LD C,A POP AF POP HL LD B,H JR PGM046E PGM0488 LD C,08DH CALL MOD0005 LD A,B CP 001H RET C LD C,092H CALL MOD0005 LD D,A OR B OR C RET Z LD A,D PGM049B CALL PGM0526 LD DE,DAT3669 LD BC,DAT0008 LDIR RET PGM04A7 CALL PGM04B7 PUSH AF CALL PGM04B7 PUSH AF CALL PGM04B7 POP BC POP HL LD C,H JR PGM049B PGM04B7 LD H,B LD L,C INC HL INC HL CALL PGM2713 JP C,PGM02CF LD A,E RET PGM04C3 PUSH BC PUSH AF LD A,B CP 00DH JR C,PGM04CD LD B,000H SUB A PGM04CD ADD A,A ADD A,B LD HL,DAT04FF CALL PGM2703 LD DE,DAT04F3 LD BC,DAT0003 LDIR POP AF CALL PGM054A LD (DAT04F7),HL POP HL LD A,L CALL PGM054A LD (DAT04FD),HL LD HL,DAT04F3 LD BC,DAT000C RET DAT04F3 DB 04DH,04FH,04EH,020H DAT04F7 DB 'XX, 19' DAT04FD DB 058H,058H DAT04FF DB 02DH,02DH,02DH DB 'JanFebMarAprMayJunJulAugSepOctNovDec' PGM0526 PUSH AF PUSH BC LD A,C CALL PGM054A LD (DAT0542),HL POP DE LD A,D CALL PGM054A LD (DAT0545),HL POP AF CALL PGM054A LD (DAT0548),HL LD HL,DAT0542 RET DAT0542 DB 058H,058H,03AH DAT0545 DB 058H,058H,03AH DAT0548 DB 058H,058H PGM054A LD L,A LD H,000H LD A,030H CALL PGM2D3A LD HL,(DAT486D) RET PGM0556 PUSH DE LD H,B LD L,C CALL PGM056C CALL PGM2713 JR C,PGM0569 LD A,D AND A JR NZ,PGM0569 LD A,E POP DE CP D RET NC PGM0569 JP PGM02CF PGM056C LD A,(HL) CP 020H RET Z AND A RET Z INC HL JR PGM056C PGM0575 LD A,001H LD (DAT3F6C),A CALL PGM0651 LD DE,DAT4602 LD BC,DAT009A SUB A CALL PGM2811 CALL PGM06D8 CALL PGM2E46 CALL PGM2BE1 LD HL,DAT3F6C INC (HL) CALL PGM3741 CALL PGM0651 CALL PGM3134 CALL PGM313C CALL PGM3183 CALL PGM3140 CALL PGM06D8 CALL PGM36B9 CALL PGM07B6 LD A,(DAT3F7D) AND A CALL Z,PGM31C1 CALL PGM0402 CALL PGM2D85 CALL PGM2BF6 BIT 3,(IX+000H) CALL NZ,PGM0A63 BIT 2,(IX+000H) LD DE,DAT0615 LD HL,DAT3E05 CALL NZ,PGM2E92 RES 2,(IX+000H) BIT 3,(IX+001H) LD DE,DAT0637 LD HL,DAT3EA9 CALL NZ,PGM2E92 LD B,00CH LD HL,(DAT4989) BIT 0,L CALL NZ,PGM3679 LD A,(DAT3F51) AND 042H CP 002H CALL Z,PGM3701 LD DE,DAT0601 PGM05FB CALL PGM346A JP MOD0000 DAT0601 DB CR,LF,'End of assembly',CR DW DAT000A DAT0615 DB 'Symbol',HTAB,' Value Defn References',CR DAT0637 DB 04FH,070H,063H,06FH,064H DW PGM0965 DB 020H,020H DB 'Defn References',CR PGM0651 LD HL,MOD0000 LD (DAT3FFA),HL LD (DAT4796),HL LD (DAT4989),HL SUB A LD (DAT44D4),A LD (DAT44D5),A LD (DAT3F56),A LD (DAT3F84),A LD (DAT3F7D),A LD (DAT3F7F),A LD (DAT3FF8),A LD (DAT3F83),A LD (DAT3F55),A LD (IX+003H),008H LD (DAT3F85),A LD (DAT4732),A LD DE,DAT469C LD BC,DAT0032 CALL PGM2811 LD A,0FFH LD (DAT46A5),A LD (DAT3F57),A LD DE,DAT46CE LD HL,DAT06D3 LD BC,DAT0004 LDIR LD HL,DAT005D LD BC,DAT0008 PGM06A5 LD A,(HL) CP 020H JR Z,PGM06AF LDI JP PE,PGM06A5 PGM06AF LD HL,DAT06D2 LD BC,DAT0006 LDIR LD A,001H LD (DAT3F7A),A LD A,001H LD HL,MOD0000 BIT 0,(IX+002H) JR Z,PGM06CB SUB A LD HL,(DAT3FD7) PGM06CB LD (DAT3F6D),A LD (DAT46A8),HL RET DAT06D2 DB 020H DAT06D3 DB 02AH,02AH,02AH,020H,00DH PGM06D8 CALL PGM3478 JP Z,PGM07B6 SUB A LD (DAT3F81),A LD (DAT3F6E),A LD (DAT3F84),A LD A,020H LD (DAT3F7E),A CALL PGM085A CALL PGM1F79 JR NZ,PGM06D8 CALL PGM07E5 JR Z,PGM06D8 LD A,(DAT3F64) CP 020H JR Z,PGM0755 PGM0701 CALL PGM1991 JR Z,PGM06D8 BIT 0,(IX+001H) JR Z,PGM0711 CALL PGM1E7E JR Z,PGM0701 PGM0711 LD DE,DAT3F64 LD HL,DAT3EA9 LD B,07FH BIT 3,(IX+001H) CALL NZ,PGM3707 CALL PGM07AE JR NZ,PGM0764 BIT 7,(HL) CALL NZ,PGM077B BIT 6,(HL) CALL Z,PGM0786 BIT 5,(HL) CALL Z,PGM0794 JR Z,PGM06D8 LD A,(HL) LD (DAT3F80),A AND 00FH INC HL EX DE,HL ADD A,A LD HL,DAT0BF6 CALL PGM2703 LD B,H LD C,L LD HL,(DAT3F58) CALL PGM07A6 LD A,(DAT3F7D) AND A RET NZ JP PGM06D8 PGM0755 CALL PGM0786 LD HL,(DAT3F58) CALL PGM2B20 CALL PGM28EB JP PGM06D8 PGM0764 CALL PGM0786 LD HL,MOD0000 LD (DAT3F86),HL LD (DAT3F87),HL LD A,007H CALL PGM26DA CALL PGM2864 JP PGM06D8 PGM077B LD A,(DAT3F5C) CP 020H RET Z LD A,013H JP PGM26DA PGM0786 PUSH HL LD A,(DAT3F6D) ADD A,002H LD HL,(DAT46A8) CALL PGM08B0 POP HL RET PGM0794 LD A,(DAT3F56) CP 001H RET NZ LD A,014H CALL PGM26DA CALL PGM28EB SUB A RET DB 042H,04BH PGM07A6 PUSH HL LD A,(BC) LD L,A INC BC LD A,(BC) LD H,A EX (SP),HL RET PGM07AE LD DE,DAT3F64 LD A,04FH JP PGM096B PGM07B6 LD B,00DH JP PGM352A PGM07BB CALL PGM3586 RET NZ LD A,(DAT3F4F) AND A JR NZ,PGM07CB LD A,0FFH LD (DAT3F57),A RET PGM07CB LD A,(DAT3F57) CP (IX-001H) RET NC CALL PGM07B6 JR PGM07CB PGM07D7 LD A,00DH LD BC,DAT0064 PGM07DC CP (HL) LDI RET Z JP PE,PGM07DC LD (DE),A RET PGM07E5 LD A,(DAT4798) CP 02AH RET NZ LD HL,DAT4799 LD DE,DAT486A CALL PGM2820 PUSH HL LD HL,DAT0807 CALL PGM278E LD B,H LD C,L POP HL RET NZ CALL PGM07A6 CALL PGM28EB SUB A RET DAT0807 DB 007H,009H DB 'INCLUDE' DW PGM0825 DB 04DH,041H,043H,04CH,049H DW PGM2042,PGM0842 DB 052H,045H,04CH,04CH,049H DW PGM2042,PGM084B DB 000H PGM0825 LD A,(DAT3F55) CP 004H JR Z,PGM083D INC A PUSH HL CALL PGM350F POP DE CALL PGM3501 LD A,00DH JR Z,PGM083F INC (IX+004H) RET PGM083D LD A,006H PGM083F JP PGM26DA PGM0842 LD A,(DAT3F6C) CP 001H JP Z,PGM1D7F RET PGM084B LD DE,DAT3F5C CALL PGM2820 CALL PGM2B20 LD A,003H EX DE,HL JP PGM329F PGM085A LD DE,DAT3F5C LD BC,DAT0008 CALL PGM280F LD HL,DAT4798 CALL PGM2844 CALL PGM0899 CP 03AH LD HL,DAT4798 CALL Z,PGM2844 LD DE,DAT3F5C LD BC,DAT0008 PGM087A CALL PGM08A0 JR Z,PGM0887 LDI JP PE,PGM087A CALL PGM0899 PGM0887 CP 03AH JR NZ,PGM088C INC HL PGM088C CALL PGM2844 LD DE,DAT3F64 CALL PGM2820 LD (DAT3F58),HL RET PGM0899 CALL PGM08A0 RET Z INC HL JR PGM0899 PGM08A0 LD A,(HL) CP 020H RET Z CP 009H RET Z CP 03AH RET Z CP 03BH RET Z CP 00DH RET PGM08B0 LD (DAT486A),HL LD (DAT486C),A LD DE,DAT3F5C LD A,(DE) AND 07FH CP 020H RET Z SUB A CALL PGM0A11 RET NC CALL PGM090B LD D,A AND 060H CP 060H CALL Z,PGM0901 BIT 7,D JR NZ,PGM08E7 LD A,(DAT486C) AND 01FH JR Z,PGM08E7 SUB D AND 01FH JR NZ,PGM08E4 LD HL,(DAT486A) SBC HL,BC PGM08E4 CALL NZ,PGM0906 PGM08E7 LD B,07EH LD A,(DAT486C) AND 01FH JR NZ,PGM08F2 LD B,07FH PGM08F2 BIT 2,(IX+000H) LD DE,(DAT3F5A) LD HL,DAT3E05 CALL NZ,PGM3707 RET PGM0901 LD A,002H JP PGM26DA PGM0906 LD A,008H JP PGM26DA PGM090B LD A,053H CALL PGM096B JR Z,PGM091F LD A,053H CALL PGM09C2 LD BC,(DAT486A) LD A,(DAT486C) RET PGM091F LD C,(HL) INC HL LD B,(HL) INC HL LD A,(DAT486C) LD D,A AND 01FH JR Z,PGM0965 LD E,(HL) LD A,(DAT3F6C) CP 002H JR Z,PGM0950 LD A,E AND 01FH JR Z,PGM0950 LD A,D AND E BIT 5,A JR NZ,PGM0950 BIT 7,A JR NZ,PGM0950 LD A,E CP 021H LD A,040H JR Z,PGM0953 LD A,D CP 021H JR Z,PGM0960 LD E,060H PGM0950 LD A,E AND 0E0H PGM0953 OR D LD DE,(DAT486A) DEC HL LD (HL),D DEC HL LD (HL),E INC HL INC HL PGM095E LD (HL),A RET PGM0960 LD A,E OR 040H LD (HL),A RET PGM0965 LD A,D AND 040H OR (HL) JR PGM095E PGM096B PUSH BC CALL PGM0983 PGM096F LD C,(HL) INC HL LD B,(HL) LD A,B OR C JR Z,PGM097F LD H,B LD L,C CALL PGM09A0 JR NZ,PGM096F POP BC RET PGM097F DEC HL INC A POP BC RET PGM0983 PUSH BC PUSH DE LD B,008H PGM0987 LD C,A LD A,(DE) CP 020H JR Z,PGM098E INC DE PGM098E CALL PGM27CC XOR C RLCA DJNZ PGM0987 LD HL,DAT4A53 LD C,A LD B,000H ADD HL,BC ADD HL,BC POP DE POP BC RET PGM09A0 PUSH DE PUSH HL INC HL INC HL LD C,(HL) INC HL LD (DAT3F5A),HL LD B,008H PGM09AB CALL PGM27BD JR NZ,PGM09BF INC DE INC HL CP 020H JR NZ,PGM09BB LD A,C CP 04FH JR Z,PGM09BD PGM09BB DJNZ PGM09AB PGM09BD SUB A EX (SP),HL PGM09BF POP HL POP DE RET PGM09C2 PUSH DE LD BC,(DAT4C55) LD (HL),C INC HL LD (HL),B LD HL,DAT0012 ADD HL,BC LD DE,(DAT3FFC) CALL PGM27D7 JR NC,PGM09FB POP DE PUSH DE LD H,B LD L,C LD (HL),000H INC HL LD (HL),000H INC HL LD (HL),A INC HL LD (DAT3F5A),HL LD BC,DAT0008 EX DE,HL LDIR LD BC,DAT0003 LD HL,DAT486A LDIR EX DE,HL LD (DAT4C55),HL DEC HL POP DE RET PGM09FB LD DE,DAT0A01 JP PGM05FB DAT0A01 DB 'Out of memory',CR DW DAT000A PGM0A11 PUSH BC PUSH HL PUSH DE EX AF,AF' LD H,D LD L,E LD A,(DE) CALL PGM25BF JR C,PGM0A4A LD B,007H PGM0A1F INC DE LD A,(DE) CALL PGM25BF JR NC,PGM0A2F CALL PGM2819 JR NC,PGM0A2F CP 020H JR NZ,PGM0A4A PGM0A2F DJNZ PGM0A1F CALL PGM250F JR Z,PGM0A4A CALL PGM24F8 JR Z,PGM0A4A LD DE,DAT0A54 LD B,008H CALL PGM2528 JR Z,PGM0A4A SCF PGM0A46 POP DE POP HL POP BC RET PGM0A4A EX AF,AF' CALL Z,PGM26C9 CALL NZ,PGM26D1 AND A JR PGM0A46 DAT0A54 DB 002H,002H DW PGM2024 DB 'I R SPIXIY' DB 000H PGM0A63 LD HL,DAT0AE1 CALL PGM12F6 LD DE,(DAT4C53) LD HL,(DAT4C55) INC DE INC DE INC HL INC HL LD (HL),0FFH LD BC,DAT000E CALL PGM0AF4 AND A SBC HL,BC LD B,009H LD C,005H CALL PGM0B0D LD A,(DAT3F4D) ADD A,003H LD H,000H LD L,A LD DE,DAT0012 CALL PGM2439 LD C,L LD HL,(DAT4C53) INC HL INC HL LD B,C PGM0A9B LD A,(HL) CP 0FFH JP Z,PGM07B6 CP 053H JR NZ,PGM0ADB PUSH HL LD D,008H INC HL PUSH BC CALL PGM2806 INC HL INC HL LD A,(HL) CP 0FFH JR Z,PGM0AC4 DEC HL DEC HL CALL PGM27F9 LD A,(HL) AND 03FH LD (DAT3F6E),A CALL PGM2B03 JR PGM0ACC PGM0AC4 LD HL,DAT0AEE LD D,006H CALL PGM2806 PGM0ACC POP BC POP HL DJNZ PGM0AD6 CALL PGM07B6 LD B,C JR PGM0ADB PGM0AD6 PUSH BC CALL PGM26F8 POP BC PGM0ADB LD DE,DAT000E ADD HL,DE JR PGM0A9B DAT0AE1 DB 'Symbol Table',CR DAT0AEE DB 020H,04DH,061H,063H,072H,06FH PGM0AF4 PUSH DE POP IY PGM0AF7 LD A,(IY+000H) CP 0FFH RET Z CP 04DH JR NZ,PGM0B09 LD (IY+000H),053H LD (IY+00BH),0FFH PGM0B09 ADD IY,BC JR PGM0AF7 PGM0B0D LD (DAT3F78),BC LD A,B ADD A,C LD C,A LD B,000H PGM0B16 LD (DAT3F72),HL LD (DAT3F70),DE CALL PGM27D7 RET Z RET C ADD HL,BC LD (DAT3F76),HL LD H,D LD L,E PGM0B28 ADD HL,BC CALL PGM0B96 JR C,PGM0B28 LD (DAT3F74),HL LD HL,(DAT3F76) PGM0B34 AND A SBC HL,BC CALL PGM0B96 JR Z,PGM0B3E JR NC,PGM0B34 PGM0B3E LD (DAT3F76),HL PUSH DE LD DE,(DAT3F74) CALL PGM27D7 JR C,PGM0B52 CALL PGM0BBB EX DE,HL POP DE JR PGM0B28 PGM0B52 POP DE CALL PGM0BBB AND A SBC HL,DE PUSH HL LD DE,(DAT3F76) LD HL,(DAT3F72) AND A SBC HL,DE POP DE AND A SBC HL,DE JR NC,PGM0B7D LD HL,(DAT3F70) PUSH HL LD HL,(DAT3F76) AND A SBC HL,BC PUSH HL ADD HL,BC ADD HL,BC EX DE,HL LD HL,(DAT3F72) JR PGM0B8F PGM0B7D LD HL,(DAT3F76) ADD HL,BC PUSH HL LD HL,(DAT3F72) PUSH HL LD DE,(DAT3F70) LD HL,(DAT3F76) SBC HL,BC PGM0B8F CALL PGM0B16 POP HL POP DE JR PGM0B16 PGM0B96 PUSH HL PUSH DE PUSH BC EX DE,HL LD BC,(DAT3F78) INC B INC C PGM0BA0 DEC B JR Z,PGM0BAC CALL PGM27BD JR NZ,PGM0BB7 INC DE INC HL JR PGM0BA0 PGM0BAC DEC C JR Z,PGM0BB7 LD A,(DE) CP (HL) JR NZ,PGM0BB7 INC DE INC HL JR PGM0BAC PGM0BB7 POP BC POP DE POP HL RET PGM0BBB PUSH BC PUSH DE PUSH HL PGM0BBE LD A,(DE) LDI DEC HL LD (HL),A INC HL JP PE,PGM0BBE POP HL POP DE POP BC RET PGM0BCB LD DE,DAT0C08 PGM0BCE CALL PGM0BE5 RET NZ LD A,04FH CALL PGM0983 PUSH DE DEC DE DEC DE DEC DE LDI LDD LD (HL),E INC HL LD (HL),D POP DE JR PGM0BCE PGM0BE5 LD A,(DE) INC DE CP 0FFH JR NZ,PGM0BE5 LD A,(DE) INC DE CP 0FFH JR NZ,PGM0BE5 LD A,(DE) INC DE CP 04FH RET DAT0BF6 DB 0A4H,007H DW PGM1421,PGM1428,PGM1433,PGM144E DW PGM1479,PGM149D,PGM14E9,PGM14FF DAT0C08 DW DATFFFF DB 'OEQU p' DW PGM10AC,DATFFFF DB 'ODEFL p' DW PGM10A8,DATFFFF DB 04FH,044H,04CH,020H,070H DW PGM10A8,DATFFFF DB 'ODEFV ' DB 060H DW PGM10A0,DATFFFF DB 04FH,044H,056H,020H,060H DW PGM10A0,DATFFFF DB 'OMACRO ' DB 060H DW PGM1B7B,DATFFFF DB 'OOMACRO ' DB 060H DW PGM1B6E,DATFFFF DB 'OEJECT ' DB 0A0H DW PGM07BB,DATFFFF DB 04FH,046H,04FH,052H DW PGM204D DB 0A0H DW PGM07BB,DATFFFF DB 'OTITLE ' DB 0A0H DW PGM12F1,DATFFFF DB 'OTITLE2 ' DB 0A0H DW PGM12F6,DATFFFF DB 'OSUBTTL ' DB 0A0H DW PGM12F6,DATFFFF DB 'OLIST ' DB 0A0H DW PGM137B,DATFFFF DB 'ONAME ' DB 0A0H DW PGM11BB,DATFFFF DB 04FH,045H,058H,054H,020H,0A0H DW PGM11E1,DATFFFF DB 'OEXTRN ' DB 0A0H DW PGM11E1,DATFFFF DB 'OENTRY ' DB 0A0H DW PGM11D9,DATFFFF DB 'OGLOBAL ' DB 0A0H DW PGM11DD,DATFFFF DB 04FH,041H,042H,053H,020H,080H DW PGM1298,DATFFFF DB 04FH,052H,045H,04CH,020H,080H DW PGM12AD,DATFFFF DB 'ODATA ' DB 080H DW PGM12BB,DATFFFF DB 04FH,043H,04FH DW PGM204D DB 080H DW PGM1213,DATFFFF DB 04FH,04FH,052H,047H,020H,090H DW PGM127E,DATFFFF DB 'OMEND ' DB 0A0H DW PGM1D52,DATFFFF DB 04FH,045H,04EH,044H DW PGM204D DB 0A0H DW PGM1D52,DATFFFF DB 'OMEXIT ' DB 0A0H DW PGM1D73,DATFFFF DB 04FH,045H,058H,049H,054H DW PGM204D DB 0A0H DW PGM1D73,DATFFFF DB 04FH,052H,045H DW PGM204D DB 0A0H DW PGM12FF,DATFFFF DB 'OCONMSG ' DW DAT02A0 DB 013H DW DATFFFF DB 'OMNOTE ' DB 0A0H DW PGM131B,DATFFFF DB 04FH,049H,046H,020H,0B0H DW PGM1F09,DATFFFF DB 'OELSE ' DB 0A0H DW PGM1F45,DATFFFF DB 'OENDIF ' DB 0A0H DW PGM1F5D,DATFFFF DB 'OSTRUCT ' DB 090H DW PGM12C9,DATFFFF DB 'OREPT 0' DW PGM1830,DATFFFF DB 'OIRP ' DW PGM1882,DATFFFF DB 04FH,049H,052H,050H DW PGM2043 DB 020H DW PGM1886,DATFFFF DB 'OEND ' DW PGM1356,DATFFFF DB 04FH,045H,058H,058H,020H,001H,0D9H DW DATFFFF DB 04FH,044H,041H,041H,020H,001H,027H DW DATFFFF DB 04FH,043H,050H,04CH,020H,001H,02FH DW DATFFFF DB 04FH,043H,043H,046H,020H,001H,03FH DW DATFFFF DB 04FH,053H,043H,046H,020H DW PGM3701,DATFFFF DB 04FH,044H,049H,020H,001H,0F3H DW DATFFFF DB 04FH,045H,049H,020H,001H,0FBH DW DATFFFF DB 04FH,04EH,04FH,050H,020H,001H,000H DW DATFFFF DB 04FH,052H,04CH,041H,020H,001H,017H DW DATFFFF DB 04FH,052H,052H,041H,020H,001H,01FH DW DATFFFF DB 'OHALT ' DB 001H,076H DW DATFFFF DB 'ORLCA ' DW PGM0701,DATFFFF DB 'ORRCA ' DB 001H,00FH DW DATFFFF DB 04FH,04CH,044H,049H,020H,002H,0A0H DW DATFFFF DB 04FH,04CH,044H,044H,020H,002H,0A8H DW DATFFFF DB 04FH,043H,050H,049H,020H,002H,0A1H DW DATFFFF DB 04FH,043H,050H,044H,020H,002H,0A9H DW DATFFFF DB 04FH,04EH,045H,047H,020H,002H,044H DW DATFFFF DB 04FH,049H,04DH,030H,020H DW DAT4602,DATFFFF DB 04FH,049H,04DH DW PGM2031 DB 002H,056H DW DATFFFF DB 04FH,049H DW PGM324D DB 020H,002H,05EH DW DATFFFF DB 04FH,052H,04CH,044H,020H,002H,06FH DW DATFFFF DB 04FH,052H,052H,044H,020H,002H,067H DW DATFFFF DB 04FH,049H,04EH,049H,020H,002H,0A2H DW DATFFFF DB 04FH,049H,04EH,044H,020H,002H,0AAH DW DATFFFF DB 'OLDIR ' DB 002H,0B0H DW DATFFFF DB 'OLDDR ' DB 002H,0B8H DW DATFFFF DB 'OCPIR ' DB 002H,0B1H DW DATFFFF DB 'OCPDR ' DB 002H,0B9H DW DATFFFF DB 'ORETI ' DB 002H,04DH DW DATFFFF DB 'ORETN ' DB 002H,045H DW DATFFFF DB 'OINIR ' DB 002H,0B2H DW DATFFFF DB 'OINDR ' DB 002H,0BAH DW DATFFFF DB 'OOUTI ' DB 002H,0A3H DW DATFFFF DB 'OOUTD ' DB 002H,0ABH DW DATFFFF DB 'OOTIR ' DB 002H,0B3H DW DATFFFF DB 'OOTDR ' DB 002H,0BBH DW DATFFFF DB 04FH,04CH,044H,020H,000H DW PGM16C3,DATFFFF DB 04FH,045H,058H,020H,000H DW PGM1539,DATFFFF DB 04FH,04AH,052H,020H,000H DW PGM15A7,DATFFFF DB 04FH,044H DW PGM2042 DB 000H DW PGM10F5,DATFFFF DB 04FH,044H DW PGM204D DB 000H DW PGM10FA,DATFFFF DB 04FH,044H,057H,020H,000H DW PGM1103,DATFFFF DB 04FH,04AH,050H,020H,000H DW PGM15C4,DATFFFF DB 04FH,049H,04EH,020H,000H DW PGM1631,DATFFFF DB 04FH,044H,053H,020H,030H DW PGM10DC,DATFFFF DB 04FH,049H DW PGM204D DB 000H DW PGM1589,DATFFFF DB 'ODJNZ ' DB 000H DW PGM159E,DATFFFF DB 04FH,052H,045H,054H,020H,000H DW PGM1655,DATFFFF DB 04FH,052H,053H,054H,020H,000H DW PGM1663,DATFFFF DB 'OJSYS ' DB 000H DW PGM1674,DATFFFF DB 04FH,041H,044H,044H,020H,000H DW PGM14B5,DATFFFF DB 'OCALL ' DB 000H DW PGM167F,DATFFFF DB 04FH,04FH,055H,054H,020H,000H DW PGM1698,DATFFFF DB 04FH,044H,045H,046H DW PGM2042 DB 000H DW PGM10F5,DATFFFF DB 04FH,044H,045H,046H DW PGM204D DB 000H DW PGM10FA,DATFFFF DB 'ODEFW ' DB 000H DW PGM1103,DATFFFF DB 'ODEFS 0' DW PGM10DC,DATFFFF DB 'OPUSH ' DB 003H,0C5H,0E5H DW DATFFFF DB 04FH,050H,04FH,050H,020H,003H,0C1H,0E1H DW DATFFFF DB 04FH,049H,04EH DW PGM2043 DB 004H,003H,023H,004H,034H DW DATFFFF DB 04FH,044H,045H DW PGM2043 DB 004H,00BH,02BH,005H,035H DW DATFFFF DB 04FH,052H,04CH DW PGM2043,MOD0005,DATFFFF DB 04FH,052H,04CH,020H,005H,010H DW DATFFFF DB 04FH,052H,052H DW PGM2043 DB 005H,008H DW DATFFFF DB 04FH,052H,052H,020H,005H,018H DW DATFFFF DB 04FH DW DAT4C53 DB 041H,020H,005H,020H DW DATFFFF DB 04FH,053H,052H,041H,020H,005H,028H DW DATFFFF DB 04FH,053H,052H,04CH,020H,005H,038H DW DATFFFF DB 04FH,042H,049H,054H,020H,006H,040H DW DATFFFF DB 04FH,053H,045H,054H,020H,006H,0C0H DW DATFFFF DB 04FH,052H,045H,053H,020H,006H,080H DW DATFFFF DB 04FH,041H,044H DW PGM2043,DAT0807 DB 04AH DW DATFFFF DB 04FH,053H,042H DW PGM2043 DB 007H,018H,042H DW DATFFFF DB 04FH,053H,055H DW PGM2042 DB 008H,010H DW DATFFFF DB 04FH,041H,04EH,044H,020H,008H,020H DW DATFFFF DB 04FH,058H,04FH,052H,020H,008H,028H DW DATFFFF DB 04FH,04FH,052H,020H,008H,030H DW DATFFFF DB 04FH,043H,050H,020H,008H,038H DW DATFFFF DB 000H PGM10A0 LD A,(DAT3F5C) OR 080H LD (DAT3F5C),A PGM10A8 LD A,080H JR PGM10AD PGM10AC SUB A PGM10AD PUSH AF LD A,(DAT3F5C) AND 07FH CP 020H CALL Z,PGM26CD CALL PGM2042 CALL PGM2B20 LD A,D AND 0BFH BIT 5,A CALL NZ,PGM10D3 LD D,A POP AF ADD A,D PUSH BC LD H,B LD L,C CALL PGM08B0 POP BC JP PGM28F9 PGM10D3 CALL PGM23F8 LD BC,MOD0000 LD A,002H RET PGM10DC CALL PGM2042 LD A,D CP 002H CALL NZ,PGM23F8 CALL PGM2B20 PUSH BC CALL PGM28FF POP BC LD A,001H LD (DAT3F7A),A JP PGM2B2C PGM10F5 CALL PGM1135 JR PGM116A PGM10FA CALL PGM1135 LD A,(DE) OR 080H LD (DE),A JR PGM116A PGM1103 CALL PGM2042 LD (DAT3F86),BC CALL PGM25E8 PUSH AF CALL NZ,PGM2B20 PUSH HL LD B,002H CALL PGM2B69 PGM1117 POP HL POP AF RET NZ CALL PGM2042 LD (DAT3F86),BC CALL PGM25E8 PUSH AF CALL NZ,PGM2B20 PUSH HL LD B,002H CALL PGM28C8 LD B,002H CALL PGM2B6E JR PGM1117 PGM1135 LD DE,DAT3F86 LD BC,DAT0050 PGM113B LD A,(HL) CP 027H JR NZ,PGM115C PUSH HL INC HL LD A,C PUSH AF CALL PGM2668 POP AF SUB C JR Z,PGM115B DEC A JR Z,PGM1158 POP AF PGM114F CALL PGM25E8 JR Z,PGM113B DEC DE JP PGM2B20 PGM1158 DEC DE INC C DEC B PGM115B POP HL PGM115C PUSH DE PUSH BC LD A,B CALL PGM201C POP BC POP DE LD (DE),A INC DE INC B DEC C JR PGM114F PGM116A PUSH BC LD A,B CP 005H JR C,PGM1192 PUSH BC LD B,004H CALL PGM2881 POP BC CALL PGM11A9 JR NZ,PGM119A LD HL,DAT3F8A PGM117F LD A,B SUB 004H LD B,A JR Z,PGM119A CP 005H JR C,PGM1197 PUSH BC LD B,004H CALL PGM28CB POP BC JR PGM117F PGM1192 CALL PGM2881 JR PGM119A PGM1197 CALL PGM28CB PGM119A POP BC PUSH BC LD HL,DAT3F86 CALL PGM32DC POP BC LD C,B LD B,000H JP PGM2B2C PGM11A9 BIT 2,(IX+002H) JR NZ,PGM11B9 BIT 3,(IX+002H) RET NZ BIT 3,(IX+003H) RET PGM11B9 SUB A RET PGM11BB CALL PGM33A2 RET NZ CALL PGM284F JR C,PGM11D4 LD DE,DAT497B CALL PGM2820 SUB A CALL PGM0A11 PGM11CE CALL PGM2B20 JP PGM28EB PGM11D4 CALL PGM26D1 JR PGM11CE PGM11D9 LD A,040H JR PGM11E3 PGM11DD LD A,021H JR PGM11E3 PGM11E1 LD A,022H PGM11E3 CALL PGM33A2 RET NZ PUSH AF PGM11E8 LD A,(DAT3F6C) CP 002H JR Z,PGM120E LD DE,DAT3F5C CALL PGM2820 SUB A CALL PGM0A11 JR NC,PGM1205 POP AF PUSH AF PUSH HL LD HL,MOD0000 CALL PGM08B0 POP HL PGM1205 CALL PGM25E8 JR Z,PGM11E8 POP AF JP PGM28EB PGM120E CALL PGM243F JR PGM1205 PGM1213 CALL PGM33A2 RET NZ LD DE,DAT3F5C CALL PGM2820 CALL PGM2B20 LD A,(DE) CP 020H JR Z,PGM122C SUB A CALL PGM0A11 JP NC,PGM28EB PGM122C LD A,(DAT46A4) LD B,A LD C,000H LD HL,DAT4624 AND A JR Z,PGM124B PGM1238 PUSH BC LD DE,DAT3F5C LD B,008H CALL PGM27AC JR Z,PGM1263 LD DE,DAT0008 ADD HL,DE POP BC INC C DJNZ PGM1238 PGM124B LD A,C CP 00FH JR Z,PGM1276 INC A LD (DAT46A4),A EX DE,HL LD HL,DAT3F5C LD BC,DAT0008 LDIR LD A,(DAT46A4) DEC A LD C,A PUSH BC PGM1263 POP HL PUSH HL LD H,000H ADD HL,HL LD DE,DAT46B0 ADD HL,DE LD E,(HL) INC HL LD D,(HL) EX DE,HL POP BC LD A,C ADD A,003H JR PGM129F PGM1276 LD A,011H CALL PGM26DA JP PGM28EB PGM127E CALL PGM2042 CALL PGM2B20 PUSH DE PUSH BC CALL PGM28F9 POP HL POP AF SUB 002H LD (DAT3F6D),A LD A,001H LD (DAT3F7A),A JP PGM2B30 PGM1298 CALL PGM2B20 XOR A LD HL,(DAT46AA) PGM129F LD (DAT46A8),HL LD (DAT3F6D),A LD A,001H LD (DAT3F7A),A JP PGM28EB PGM12AD CALL PGM33A2 RET NZ CALL PGM2B20 LD A,001H LD HL,(DAT46AC) JR PGM129F PGM12BB CALL PGM33A2 RET NZ CALL PGM2B20 LD A,002H LD HL,(DAT46AE) JR PGM129F PGM12C9 LD A,001H LD (DAT3F56),A CALL PGM2042 LD A,D CP 002H CALL NZ,PGM2031 CALL PGM2B20 LD HL,(DAT46A8) LD (DAT46A6),HL LD A,(DAT3F6D) LD (DAT3F6F),A LD (DAT46A8),BC SUB A LD (DAT3F6D),A JP PGM28F9 PGM12F1 LD DE,DAT46CE JR PGM12F9 PGM12F6 LD DE,DAT4732 PGM12F9 CALL PGM07D7 JP PGM07BB PGM12FF JP PGM351C PGM1302 LD A,00DH LD BC,DAT0064 PUSH HL CPIR LD (HL),00AH INC HL LD (HL),000H LD A,(DAT3F6C) CP 002H POP DE CALL Z,PGM346A JP PGM28EB PGM131B LD A,00DH LD BC,DAT0064 PUSH HL CPIR DEC HL LD (HL),000H LD A,001H LD (DAT3F83),A LD A,016H LD (DAT3F81),A LD HL,DAT1344 CALL PGM2B16 POP HL CALL PGM351C LD HL,DAT1350 CALL PGM2B16 CALL PGM2D57 RET DAT1344 DB 02AH,02AH,02AH,020H DB 'mnote -' DB 0A0H DAT1350 DB 020H,02AH,02AH,02AH,00DH,08DH PGM1356 LD A,001H LD (DAT3F7D),A LD BC,MOD0000 LD D,002H LD A,(HL) CP 03BH JR Z,PGM136F CP 00DH JR Z,PGM136F CALL PGM2042 CALL PGM2B20 PGM136F PUSH BC PUSH DE CALL PGM28FF POP BC POP DE DEC B DEC B JP PGM31C6 PGM137B LD A,(IX+003H) PUSH AF PGM137F LD DE,DAT486A CALL PGM2820 PUSH HL LD HL,DAT13B6 CALL PGM278E JR NZ,PGM13B0 LD A,(HL) INC HL LD H,(HL) LD L,A CALL PGM13B5 PGM1395 POP HL CALL PGM25E8 JR Z,PGM137F CALL PGM2B20 POP AF LD B,(IX+003H) OR B LD (IX+003H),A CALL PGM3586 LD (IX+003H),B JP Z,PGM28EB RET PGM13B0 CALL PGM26D1 JR PGM1395 PGM13B5 JP (HL) DAT13B6 DB 006H,008H DB 'ON ' DW PGM13F9 DB 'OFF ' DW PGM13FE DB 'GEN ' DW PGM1403 DB 'NOGEN ' DW PGM1408 DB 'COND ' DW PGM140D DB 'NOCOND' DW PGM1412 DB 'TEXT ' DW PGM1417 DB 'NOTEXT' DW PGM141C DB 000H PGM13F9 RES 0,(IX+003H) RET PGM13FE SET 0,(IX+003H) RET PGM1403 RES 2,(IX+003H) RET PGM1408 SET 2,(IX+003H) RET PGM140D RES 1,(IX+003H) RET PGM1412 SET 1,(IX+003H) RET PGM1417 RES 3,(IX+003H) RET PGM141C SET 3,(IX+003H) RET PGM1421 LD A,(DE) PGM1422 LD (DAT3F86),A JP PGM285C PGM1428 LD A,(DE) PGM1429 LD (IX+035H),0EDH PGM142D LD (DAT3F87),A JP PGM2860 PGM1433 PUSH DE CALL PGM24D5 JR Z,PGM1444 CALL PGM24F8 CALL NZ,PGM26D1 PGM143F EX (SP),HL PGM1440 ADD A,(HL) POP HL JR PGM1422 PGM1444 LD (DAT3F86),A SUB A PGM1448 EX (SP),HL INC HL ADD A,(HL) PGM144B POP HL JR PGM142D PGM144E PUSH DE CALL PGM24D5 JR Z,PGM1444 CALL PGM24FD JR Z,PGM143F CALL PGM2517 JR Z,PGM1471 CALL PGM24E4 CALL NZ,PGM26D1 EX (SP),HL INC HL INC HL INC HL SUB A PGM1469 ADD A,(HL) POP HL LD (DAT3F87),A JP PGM2864 PGM1471 RLCA RLCA RLCA EX (SP),HL INC HL INC HL JR PGM1440 PGM1479 PUSH DE CALL PGM2517 JR Z,PGM1495 CALL PGM24E4 CALL NZ,PGM26D1 SUB A PGM1486 EX (SP),HL LD (IX+036H),0CBH ADD A,006H ADD A,(HL) POP HL LD (DAT3F89),A JP PGM2868 PGM1495 EX (SP),HL ADD A,(HL) LD (IX+035H),0CBH JR PGM144B PGM149D PUSH DE CALL PGM1FC6 PUSH AF CALL PGM2514 JR Z,PGM14B0 CALL PGM24E4 CALL NZ,PGM26D1 POP AF JR PGM1486 PGM14B0 LD D,A POP AF ADD A,D JR PGM1495 PGM14B5 CALL PGM2520 JR NZ,PGM14C8 CALL PGM25DE CALL PGM24FD CALL NZ,PGM26D1 ADD A,009H JP PGM1422 PGM14C8 CALL PGM24D5 LD DE,MOD26D8 JR NZ,PGM14FF PUSH AF CALL PGM25DE POP AF CP 0DDH JR Z,PGM14DE CALL PGM2507 JR PGM14E1 PGM14DE CALL PGM2502 PGM14E1 CALL NZ,PGM26D1 ADD A,009H JP PGM142D PGM14E9 PUSH DE CALL PGM2520 JR NZ,PGM1500 CALL PGM25DE LD (IX+035H),0EDH CALL PGM24FD CALL NZ,PGM26D1 JP PGM1448 PGM14FF PUSH DE PGM1500 CALL PGM1529 CALL PGM2517 JR Z,PGM151B CALL PGM24E4 JR Z,PGM1523 LD A,0C6H EX (SP),HL ADD A,(HL) LD (DAT3F86),A POP HL CALL PGM2021 JP PGM142D PGM151B ADD A,080H EX (SP),HL ADD A,(HL) POP HL JP PGM1422 PGM1523 EX (SP),HL LD A,086H JP PGM1469 PGM1529 LD A,(HL) CALL PGM27CC CP 041H RET NZ LD D,H LD E,L INC HL CALL PGM25E8 RET Z EX DE,HL RET PGM1539 LD DE,DAT155B CALL PGM2528 PGM153F JP Z,PGM1422 INC DE CALL PGM2528 JR Z,PGM153F INC DE CALL PGM2528 CALL NZ,PGM26D1 CP 0E3H JR Z,PGM153F LD (DAT3F86),A LD A,0E3H JP PGM142D DAT155B DB 005H,006H,044H,045H,02CH,048H,04CH,0EBH DB 000H,006H,007H DB 'AF,AF''' DW DAT0008,DAT0807 DB 028H DB 'SP),HL' DB 0E3H,028H DB 'SP),IX' DB 0DDH,028H DB 'SP),IY' DB 0FDH,000H PGM1589 CALL PGM2021 CP 003H CALL NC,PGM2031 AND A JR Z,PGM1599 RLA RLA RLA ADD A,008H PGM1599 ADD A,046H JP PGM1429 PGM159E CALL PGM25E8 LD (IX+035H),010H JR PGM15B6 PGM15A7 LD (IX+035H),018H CALL PGM2635 JR NZ,PGM15B6 LD (DAT3F86),A CALL PGM25DE PGM15B6 CALL PGM1FFD JP PGM142D PGM15BC CALL PGM25F5 CALL Z,PGM26D1 JR PGM15B6 PGM15C4 CALL PGM25F5 JR Z,PGM15D9 CALL PGM251B JR Z,PGM15EA CALL PGM24DF JR Z,PGM15EF LD (IX+035H),0C3H JR PGM15E1 PGM15D9 ADD A,0C2H LD (DAT3F86),A CALL PGM25DE PGM15E1 CALL PGM2042 CALL PGM15F4 JP PGM2B58 PGM15EA LD A,0E9H JP PGM1422 PGM15EF LD A,0E9H JP PGM142D PGM15F4 BIT 4,(IX+000H) RET Z LD A,(DAT3F86) CP 0E0H RET NC LD A,(DAT3F6D) ADD A,002H CP (IX+01DH) RET NZ PUSH HL LD HL,(DAT46A8) INC HL INC HL LD A,C SUB L LD L,A LD A,B SBC A,H JR Z,PGM161F INC A JR NZ,PGM162F LD A,L CP 080H JR C,PGM162F JR PGM1624 PGM161F LD A,L CP 080H JR NC,PGM162F PGM1624 LD (IX+02DH),052H LD HL,(DAT46A0) INC HL LD (DAT46A0),HL PGM162F POP HL RET PGM1631 CALL PGM250F CALL NZ,PGM26D1 PUSH AF CALL PGM25DE CALL PGM2525 JR NZ,PGM1645 POP AF ADD A,008H JR PGM16BD PGM1645 POP AF CP 007H CALL NZ,PGM26D1 LD (IX+035H),0DBH CALL PGM2021 JP PGM142D PGM1655 CALL PGM25F5 JR Z,PGM165E LD A,0C9H JR PGM1660 PGM165E ADD A,0C0H PGM1660 JP PGM1422 PGM1663 CALL PGM2021 LD C,A AND 0C7H CALL NZ,PGM2031 LD A,C AND 038H ADD A,0C7H JP PGM1422 PGM1674 LD A,0CFH LD (DAT3F86),A CALL PGM2021 JP PGM142D PGM167F CALL PGM25F5 JR Z,PGM168E LD (IX+035H),0CDH PGM1688 CALL PGM2042 JP PGM2B58 PGM168E ADD A,0C4H LD (DAT3F86),A CALL PGM25DE JR PGM1688 PGM1698 CALL PGM2525 JR Z,PGM16B5 LD (IX+035H),0D3H CALL PGM2021 EX AF,AF' CALL PGM25DE CALL PGM27CC CP 041H CALL NZ,PGM26D1 INC HL EX AF,AF' JP PGM142D PGM16B5 CALL PGM250C CALL NZ,PGM26D1 ADD A,028H PGM16BD RLCA RLCA RLCA JP PGM1429 PGM16C3 LD DE,DAT1703 CALL PGM2528 JP Z,PGM1429 LD DE,DAT1716 CALL PGM2528 JP Z,PGM1422 LD DE,DAT1735 CALL PGM2528 JR Z,PGM174A CALL PGM250F JR Z,PGM1757 CALL PGM251B JP Z,PGM1798 CALL PGM24E4 JP Z,PGM17A4 CALL PGM2520 JP Z,PGM17BA CALL PGM24FD JP Z,PGM17C9 CALL PGM24D5 JP Z,PGM17E1 JP PGM17EC DAT1703 DB 003H,004H DB 'A,IWA,R' DB 05FH DB 'I,AGR,AO' DB 000H DAT1716 DB 006H,007H DB 'A,(BC)',LF,'A,(DE' DW PGM1A29 DB 028H,042H,043H,029H,02CH,041H,002H,028H DB 044H,045H,029H,02CH,041H DW DAT0012 DAT1735 DB 005H,006H,053H,050H,02CH,048H,04CH,0F9H DB 053H,050H,02CH,049H,058H,0DDH,053H,050H DB 02CH,049H,059H,0FDH,000H PGM174A LD (DAT3F86),A PGM174B EQU PGM174A+001H CP 0F9H JP Z,PGM1422 LD A,0F9H JP PGM142D PGM1757 RLCA RLCA RLCA PUSH AF CALL PGM2514 JR Z,PGM1777 CALL PGM24E4 JR Z,PGM177E POP BC LD A,B CP 038H JR Z,PGM1788 PGM176B LD A,B ADD A,006H LD (DAT3F86),A CALL PGM2021 JP PGM142D PGM1777 POP BC ADD A,B ADD A,040H JP PGM1422 PGM177E POP BC LD A,046H ADD A,B PGM1782 LD (DAT3F87),A JP PGM2864 PGM1788 LD A,(HL) CP 028H JR NZ,PGM176B LD A,03AH PGM178F LD (DAT3F86),A CALL PGM2042 JP PGM2B58 PGM1798 RLCA RLCA RLCA PUSH AF CALL PGM250C JR Z,PGM1777 POP BC JR PGM176B PGM17A4 CALL PGM250C JR Z,PGM17B6 LD (IX+036H),036H CALL PGM2021 LD (DAT3F89),A JP PGM2868 PGM17B6 ADD A,070H JR PGM1782 PGM17BA CALL PGM25DE CP 028H LD B,020H JR NZ,PGM17C5 LD B,029H PGM17C5 INC B LD A,B JR PGM178F PGM17C9 LD B,A CALL PGM25DE CP 028H JR NZ,PGM17C5 LD (IX+035H),0EDH LD A,04BH ADD A,B PGM17D8 LD (DAT3F87),A CALL PGM2042 JP PGM2B60 PGM17E1 CALL PGM25DE LD A,02AH JR Z,PGM17D8 LD A,021H JR PGM17D8 PGM17EC LD A,(HL) CP 028H CALL NZ,PGM26D1 CALL PGM2042 PUSH BC CALL PGM25DE CALL PGM27CC CP 041H JR Z,PGM181D CALL PGM24D5 JR Z,PGM1826 CALL PGM2520 JR Z,PGM182A CALL PGM24FD CALL NZ,PGM26D1 ADD A,043H LD (IX+035H),0EDH PGM1816 LD (IX+036H),A POP BC JP PGM2B60 PGM181D LD (IX+035H),032H INC HL PGM1822 POP BC JP PGM2B58 PGM1826 LD A,022H JR PGM1816 PGM182A LD (IX+035H),022H JR PGM1822 PGM1830 LD A,(DAT3F7F) CP 008H JR Z,PGM1871 CALL PGM2042 LD A,D CP 002H CALL NZ,PGM23F8 CALL PGM2B20 PUSH BC CALL PGM28FF POP BC LD A,B OR C JP Z,PGM1CF8 PUSH BC LD HL,(DAT3FFC) PUSH HL SUB A LD (DAT3FFE),A LD BC,MOD0000 CALL PGM1BDC POP HL DEC HL DEC HL DEC HL LD A,001H CALL PGM19C5 POP BC LD (IY-008H),C LD (IY-007H),B LD HL,DAT3F7F INC (HL) RET PGM1871 LD A,006H CALL PGM26DA PGM1876 CALL PGM2858 JP PGM1CF8 DB 0F1H PGM187D CALL PGM26D1 JR PGM1876 PGM1882 LD B,002H JR PGM18B0 PGM1886 EX DE,HL CALL PGM1ACF JR NZ,PGM187D CALL PGM1ACF JR Z,PGM187D LD A,C AND A JR Z,PGM187D LD B,C LD D,C LD C,000H PGM1899 CALL PGM1CB5 JR NZ,PGM18A2 CP 027H JR NZ,PGM187D PGM18A2 INC HL DJNZ PGM1899 JR NZ,PGM187D LD A,D CP 002H JR Z,PGM18F5 LD B,003H JR PGM18B0 PGM18B0 LD A,(DAT3F7F) CP 008H JR Z,PGM1871 LD DE,(DAT3F58) LD A,(DE) CP 023H JR NZ,PGM187D PUSH BC CALL PGM1ACF JR NZ,PGM18F4 POP AF PUSH AF CP 003H JR NZ,PGM18CD INC DE PGM18CD PUSH DE LD B,000H ADD HL,BC PUSH HL CALL PGM2858 POP HL LD (HL),00DH CALL PGM1C3D POP HL LD (DAT3F58),HL LD HL,(DAT3FFC) DEC HL DEC HL DEC HL POP AF CALL PGM19C5 LD BC,MOD0000 CALL PGM1BDC LD HL,DAT3F7F INC (HL) RET PGM18F4 POP BC PGM18F5 CALL PGM2858 JP PGM1CF8 PGM18FB LD A,(DAT3FF8) AND A RET NZ PUSH DE LD E,(IY-008H) LD D,(IY-007H) LD A,(IY-009H) ADD A,A LD HL,PGM1912 CALL PGM2703 JP (HL) PGM1912 JR PGM191A PGM1914 JR PGM191E PGM1916 JR PGM193B PGM1918 JR PGM1942 PGM191A POP DE SUB A INC A RET PGM191E DEC DE LD A,E OR D JR Z,PGM195A PGM1923 POP HL LD (IY-008H),E LD (IY-007H),D CALL PGM1A03 LD L,(IY-006H) LD H,(IY-005H) LD (IY-004H),L LD (IY-003H),H SUB A RET PGM193B CALL PGM1ACF JR NZ,PGM195A JR PGM1923 PGM1942 LD A,(DE) INC DE CP 027H JR NZ,PGM1949 INC DE PGM1949 LD A,(DE) AND A JR Z,PGM195A CP 027H JR NZ,PGM1923 INC DE LD A,(DE) DEC DE CP 027H JR Z,PGM1923 JR PGM195A PGM195A LD E,(IY-006H) LD D,(IY-005H) INC DE INC DE INC DE POP HL PGM1964 PUSH DE LD DE,(DAT3FFC) CALL PGM27D7 POP DE JR Z,PGM198A JR C,PGM198A LD C,(HL) DEC HL LD B,(HL) INC HL PUSH BC POP IY LD (IY+00BH),E LD (IY+00CH),D LDD LDD PGM1982 LD A,(HL) LDD INC A JR NZ,PGM1982 JR PGM1964 PGM198A LD (DAT3FFC),DE SUB A INC A RET PGM1991 LD DE,DAT3F64 CALL PGM1CC3 RET NZ PUSH HL CALL PGM0786 CALL PGM1A11 POP HL LD A,(DAT3F7F) CP 008H JR Z,PGM19BD BIT 7,(HL) LD A,012H CALL NZ,PGM26DA DEC HL LD A,000H CALL PGM19C5 CALL PGM2858 LD HL,DAT3F7F INC (HL) SUB A RET PGM19BD LD A,006H CALL PGM26DA JP PGM2858 PGM19C5 PUSH AF LD A,(DAT3F7F) INC A CALL PGM19F6 POP AF LD (IY-009H),A LD A,(DAT3F55) LD (IY-00AH),A LD (IY-006H),L LD (IY-005H),H LD (IY-004H),L LD (IY-003H),H CALL PGM1A03 PUSH IY POP DE LD (IY-008H),E LD (IY-007H),D LD HL,(DAT3F58) CALL PGM07D7 RET PGM19F6 LD IY,DAT3FFE LD DE,DAT006E PGM19FD ADD IY,DE DEC A JR NZ,PGM19FD RET PGM1A03 LD HL,(DAT3FFA) LD (IY-002H),L LD (IY-001H),H INC HL LD (DAT3FFA),HL RET PGM1A11 BIT 0,(HL) JR NZ,PGM1A20 LD B,0FFH LD HL,DAT3E05 BIT 2,(IX+000H) JR PGM1A29 PGM1A20 LD B,07FH LD HL,DAT3EA9 BIT 3,(IX+001H) PGM1A29 LD DE,DAT3F64 CALL NZ,PGM3707 RET PGM1A30 LD A,(DAT3F7F) AND A RET Z CALL PGM19F6 LD A,(DAT3F55) CP (IY-00AH) JR Z,PGM1A42 SUB A RET PGM1A42 LD HL,DAT4798 LD B,064H PGM1A47 LD E,(IY-004H) LD D,(IY-003H) PGM1A4D LD A,(DE) DEC DE CP 0FFH JR Z,PGM1A6E AND A JP M,PGM1A63 LD (HL),A CP 00DH JR Z,PGM1A7D INC HL DJNZ PGM1A4D DEC HL INC B JR PGM1A4D PGM1A63 LD (IY-004H),E LD (IY-003H),D CALL PGM1A86 JR PGM1A47 PGM1A6E CALL PGM18FB JR Z,PGM1A42 LD HL,DAT3F7F DEC (HL) SUB A LD (DAT3FF8),A JR PGM1A30 PGM1A7D LD (IY-004H),E LD (IY-003H),D SUB A INC A RET PGM1A86 PUSH HL CP 0FEH JR Z,PGM1AB1 LD E,(IY-008H) LD D,(IY-007H) BIT 0,(IY-009H) JR NZ,PGM1AC5 AND 07FH INC A PGM1A9A PUSH AF CALL PGM1ACF POP AF DEC A JR NZ,PGM1A9A EX DE,HL CALL PGM1B03 PGM1AA6 POP HL PGM1AA7 LD A,C OR A RET Z EX DE,HL LDI EX DE,HL DJNZ PGM1AA7 RET PGM1AB1 PUSH BC LD L,(IY-002H) LD H,(IY-001H) LD A,030H CALL PGM2D3A POP BC LD DE,DAT486B LD C,004H JR PGM1AA6 PGM1AC5 LD A,(DE) LD C,001H CP 027H JR NZ,PGM1AA6 INC C JR PGM1AA6 PGM1ACF EX DE,HL CALL PGM2844 LD D,H LD E,L LD C,000H PGM1AD7 CALL PGM1CB5 INC HL JR C,PGM1AE7 JR NZ,PGM1AD7 CP 03BH JR Z,PGM1AE7 CP 02CH JR NZ,PGM1AD7 PGM1AE7 DEC HL LD A,L SUB E LD C,A PUSH HL PGM1AEC LD A,C OR A JR Z,PGM1AFD DEC HL LD A,(HL) CP 009H JR Z,PGM1AFA CP 020H JR NZ,PGM1AFD PGM1AFA DEC C JR PGM1AEC PGM1AFD POP HL CALL PGM25E8 EX DE,HL RET PGM1B03 LD L,(IY-004H) LD H,(IY-003H) LD A,(HL) CP 028H RET NZ DEC HL PUSH BC PUSH DE LD DE,DAT47FC LD BC,MOD0000 PGM1B16 INC B PGM1B17 CALL PGM1CB5 DEC HL LD (DE),A INC DE JR C,PGM1B6B JR NZ,PGM1B17 CP 028H JR Z,PGM1B16 CP 029H JR NZ,PGM1B17 DJNZ PGM1B17 EX DE,HL DEC HL LD (HL),03BH LD (IY-004H),E LD (IY-003H),D PUSH IY LD HL,DAT47FC CALL PGM2021 PUSH BC CALL PGM25E8 CALL Z,PGM2021 POP HL POP IY LD H,C POP DE POP BC LD A,C OR A RET Z LD A,L CALL PGM1B65 LD L,A LD A,H CALL PGM1B65 CALL PGM1B61 PGM1B59 DEC L RET Z RET M INC DE DEC C RET Z JR PGM1B59 PGM1B61 CP C RET NC LD C,A RET PGM1B65 BIT 7,A RET Z ADD A,C INC A RET PGM1B6B POP DE POP BC RET PGM1B6E LD HL,DAT3EA9 LD B,07EH BIT 3,(IX+001H) LD C,001H JR PGM1B86 PGM1B7B LD HL,DAT3E05 LD B,0FEH BIT 2,(IX+000H) LD C,000H PGM1B86 LD DE,DAT3F5C CALL NZ,PGM3707 LD DE,DAT3F5C LD A,(DE) CP 020H JR Z,PGM1BD1 CALL PGM1CC3 JR NZ,PGM1BB2 LD A,(DAT3F6C) CP 002H JR Z,PGM1BA2 SET 7,(HL) PGM1BA2 BIT 7,(HL) LD A,012H CALL NZ,PGM26DA CALL PGM1C3D CALL PGM28EB JP PGM1CF8 PGM1BB2 LD A,C PUSH AF LD BC,(DAT3FFC) LD (DAT486A),BC LD BC,(DAT4C55) PUSH BC SUB A LD (DAT486C),A LD A,04DH CALL PGM09C2 CALL PGM1C3D POP BC POP AF JR PGM1BDC PGM1BD1 LD A,005H CALL PGM26DA CALL PGM28EB JP PGM1CF8 PGM1BDC LD HL,(DAT3FFC) LD (HL),C DEC HL LD (HL),B DEC HL LD (HL),A DEC HL LD A,001H LD (DAT3FF9),A EX DE,HL PGM1BEB PUSH DE CALL PGM1CD0 JR C,PGM1C35 PUSH AF CALL PGM28EB POP AF JR Z,PGM1C35 POP DE LD HL,(DAT4C55) LD BC,DAT0064 ADD HL,BC CALL PGM27D7 JP NC,PGM09FB LD HL,DAT4798 LD C,000H PGM1C0B CALL PGM1CB5 JR NZ,PGM1C15 CP 03BH CALL Z,PGM1C27 PGM1C15 PUSH BC PUSH DE CP 023H CALL Z,PGM1C6E POP DE POP BC LD (DE),A DEC DE INC HL CP 00DH JR NZ,PGM1C0B JR PGM1BEB PGM1C27 INC HL CP (HL) DEC HL RET NZ INC DE EX DE,HL CALL PGM2844 EX DE,HL DEC DE LD A,00DH RET PGM1C35 POP HL LD (HL),0FFH DEC HL LD (DAT3FFC),HL RET PGM1C3D LD HL,(DAT3F58) LD DE,DAT3FFE LD BC,DAT0064 PGM1C46 CALL PGM2844 CP 00DH JR Z,PGM1C6B CP 03BH JR Z,PGM1C6B CP 023H CALL NZ,PGM26D1 PGM1C56 LDI CALL PGM2844 CP 00DH JR Z,PGM1C6B CP 03BH JR Z,PGM1C6B CP 02CH JR NZ,PGM1C56 LDI JR PGM1C46 PGM1C6B SUB A LD (DE),A RET PGM1C6E LD DE,DAT1CB1 LD B,004H CALL PGM27AC JR NZ,PGM1C7F LD DE,DAT0003 ADD HL,DE LD A,0FEH RET PGM1C7F LD DE,DAT3FFE LD B,080H LD A,(DE) AND A JR Z,PGM1CAF CP 02CH JR Z,PGM1CA8 PGM1C8C PUSH HL PGM1C8D LD A,(DE) AND A JR Z,PGM1CAB CP 02CH JR Z,PGM1CAB CALL PGM27BD JR NZ,PGM1C9E INC HL INC DE JR PGM1C8D PGM1C9E POP HL PGM1C9F LD A,(DE) INC DE AND A JR Z,PGM1CAF CP 02CH JR NZ,PGM1C9F PGM1CA8 INC B JR PGM1C8C PGM1CAB POP AF DEC HL LD A,B RET PGM1CAF LD A,(HL) RET DAT1CB1 DB 023H,053H,059H,04DH PGM1CB5 LD A,(HL) CP 00DH SCF RET Z CP 027H JR NZ,PGM1CBF INC C PGM1CBF OR A BIT 0,C RET PGM1CC3 LD A,04DH CALL PGM096B RET NZ LD A,(HL) INC HL LD H,(HL) LD L,A DEC HL DEC HL RET PGM1CD0 BIT 7,(IX+001H) JR Z,PGM1CDB CALL PGM34BD JR PGM1CDE PGM1CDB CALL PGM3478 PGM1CDE SCF RET Z CALL PGM085A LD HL,DAT3FF9 CALL PGM1D09 JR NZ,PGM1CEF DEC (HL) CALL PGM077B PGM1CEF CALL PGM1D19 JR NZ,PGM1CF5 INC (HL) PGM1CF5 LD A,(HL) OR A RET PGM1CF8 LD A,001H LD (DAT3FF9),A PGM1CFD CALL PGM1CD0 RET C JP Z,PGM28EB CALL PGM28EB JR PGM1CFD PGM1D09 LD DE,DAT1D0E JR PGM1D1C DAT1D0E DB 004H,004H DB 'MENDENDM' DB 000H PGM1D19 LD DE,DAT1D25 PGM1D1C PUSH HL LD HL,DAT3F64 CALL PGM2528 POP HL RET DAT1D25 DB 006H,007H DB 'OMACRO' DB 081H DB 'MACRO ' DB 080H DB 'REPT ' DB 000H DB 'IRP ' DB 000H,049H,052H,050H DW PGM2043 DB 020H,000H DB 'STRUCT' DW MOD0000 PGM1D52 LD A,(DAT3F56) AND A JR Z,PGM1D6B SUB A LD (DAT3F56),A LD HL,(DAT46A6) LD (DAT46A8),HL LD A,(DAT3F6F) LD (DAT3F6D),A JP PGM28EB PGM1D6B LD A,010H CALL PGM26DA JP PGM28EB PGM1D73 LD A,(DAT3F7F) AND A JR Z,PGM1D6B LD (DAT3FF8),A JP PGM28EB PGM1D7F LD A,(DAT43D2) CP 010H JP Z,PGM1E1E LD (DAT43D3),A CALL PGM1DD5 SUB A PGM1D8E PUSH AF PGM1D8F CALL PGM34BD JR Z,PGM1DC9 CALL PGM085A CALL PGM1D19 JR Z,PGM1DA7 CALL PGM1D09 JR NZ,PGM1D8F POP AF JR Z,PGM1E18 DEC A JR PGM1D8E PGM1DA7 LD B,A POP AF JR NZ,PGM1DC6 BIT 7,B JR Z,PGM1DC6 LD HL,DAT4986 LD DE,DAT486A LD BC,DAT0003 LDIR LD DE,DAT3F5C LD A,04CH CALL PGM096B CALL NZ,PGM09C2 SUB A PGM1DC6 INC A JR PGM1D8E PGM1DC9 POP AF JR NZ,PGM1E18 RES 7,(IX+001H) LD HL,DAT43D2 INC (HL) RET PGM1DD5 SET 0,(IX+001H) EX DE,HL LD HL,DAT3C19 CALL PGM3501 JR Z,PGM1E24 LD A,(DAT43D2) CALL PGM1E0E EX DE,HL LD HL,DAT4796 LD BC,DAT0002 LDIR LD HL,DAT3C1C LD BC,DAT000E LDIR LD A,(DAT43D2) ADD A,A ADD A,A ADD A,A ADD A,A LD (DAT4983),A LD HL,MOD0000 LD (DAT4984),HL SET 7,(IX+001H) RET PGM1E0E ADD A,A ADD A,A ADD A,A ADD A,A LD HL,DAT43D4 JP PGM2703 PGM1E18 LD DE,DAT1E2A JP PGM05FB PGM1E1E LD DE,DAT1E49 JP PGM05FB PGM1E24 LD DE,DAT1E64 JP PGM05FB DAT1E2A DB 'MACRO librar' DW PGM2079 DB 'mismatch error',CR DW DAT000A DAT1E49 DB 'Too man' DW PGM2079 DB 'MACRO libraries',CR DW DAT000A DAT1E64 DB 'MACRO librar' DW PGM2079 DB 'not found',CR DW DAT000A PGM1E7E LD A,(DAT3F6C) DEC A RET NZ LD DE,DAT3F64 LD A,04CH CALL PGM096B RET NZ LD DE,(DAT4796) PUSH DE PUSH HL LD A,(DAT43D3) LD B,A LD A,(HL) RRCA RRCA RRCA RRCA AND 00FH LD C,A LD (DAT43D3),A PUSH BC CALL PGM1E0E LD DE,DAT4796 LD BC,DAT0002 LDIR POP BC LD A,B CP C JR Z,PGM1EBF LD DE,DAT3C1C LD BC,DAT000E LDIR LD A,0FFH LD (DAT3C28),A PGM1EBF POP HL LD A,(HL) AND 00FH LD C,A INC HL LD D,(HL) INC HL LD E,(HL) LD HL,DAT3C19 CALL PGM38B0 SET 7,(IX+001H) LD HL,DAT4798 LD DE,DAT47FC LD BC,DAT0064 LDIR CALL PGM34BD CALL PGM085A CALL PGM1D19 RRA JR C,PGM1EEE CALL PGM1B7B JR PGM1EF1 PGM1EEE CALL PGM1B6E PGM1EF1 RES 7,(IX+001H) LD HL,DAT47FC LD DE,DAT4798 LD BC,DAT0064 LDIR POP HL LD (DAT4796),HL CALL PGM085A SUB A RET PGM1F09 LD A,(DAT44D4) CP 008H JR Z,PGM1F3D INC A LD (DAT44D4),A CALL PGM1F89 JR NZ,PGM1F35 CALL PGM2042 CALL PGM2B20 LD A,D CP 002H CALL NZ,PGM23F8 LD A,B OR C CP 001H LD HL,DAT44D5 RL (HL) CALL PGM1FAE CALL Z,PGM28F9 RET PGM1F35 SCF LD HL,DAT44D5 RL (HL) JR PGM1F56 PGM1F3D LD A,006H CALL PGM26DA JP PGM28EB PGM1F45 LD A,(DAT44D4) AND A JR Z,PGM1F71 CALL PGM2B20 LD A,(DAT44D5) XOR 001H LD (DAT44D5),A PGM1F56 CALL PGM1FAE CALL Z,PGM28EB RET PGM1F5D LD A,(DAT44D4) AND A JR Z,PGM1F71 CALL PGM2B20 LD HL,DAT44D4 DEC (HL) LD HL,DAT44D5 SRL (HL) JR PGM1F56 PGM1F71 LD A,00FH CALL PGM26DA JP PGM28EB PGM1F79 CALL PGM1F89 CALL NZ,PGM1F93 RET Z CALL PGM1FAE CALL Z,PGM28EB SUB A INC A RET PGM1F89 LD A,(DAT3FF8) AND A RET NZ LD A,(DAT44D5) AND A RET PGM1F93 LD DE,DAT1F9C LD HL,DAT3F64 JP PGM2528 DAT1F9C DB 005H,005H DB 'IF ELSE ENDIF' DB 000H PGM1FAE LD A,(DAT3F83) AND A JR NZ,PGM1FC4 BIT 5,(IX+001H) JR NZ,PGM1FC4 BIT 2,(IX+001H) RET NZ BIT 1,(IX+003H) RET PGM1FC4 SUB A RET PGM1FC6 CALL PGM2021 CP 008H CALL NC,PGM2031 RLCA RLCA RLCA RET PGM1FD2 LD A,(HL) CP 029H JR NZ,PGM1FDF INC HL LD BC,MOD0000 LD D,002H LD A,C RET PGM1FDF CALL PGM2036 LD A,D CP 002H CALL NZ,PGM23F8 PGM1FE8 LD A,B AND A JR Z,PGM1FF5 INC A JR NZ,PGM1FF9 LD A,C CP 080H JR C,PGM1FF9 RET PGM1FF5 LD A,C CP 080H RET C PGM1FF9 LD A,009H JR PGM2033 PGM1FFD CALL PGM2042 LD A,(DAT3F6D) ADD A,002H CP D CALL NZ,PGM23F8 LD A,002H LD (DAT3F6E),A LD DE,(DAT46A8) INC DE INC DE LD A,C SUB E LD C,A LD A,B SBC A,D LD B,A JR PGM1FE8 PGM201C CALL PGM2043 JR PGM2024 PGM2021 CALL PGM2042 PGM2024 LD A,D CP 002H CALL NZ,PGM23F8 LD A,B AND A JR Z,PGM202F INC A PGM202F LD A,C RET Z PGM2031 LD A,00CH PGM2033 JP PGM26DA PGM2036 SUB A LD (DAT487E),A LD (DAT4915),A LD BC,DAT007F JR PGM2098 PGM2042 SUB A PGM2043 LD (DAT3FD6),A SUB A LD (DAT487E),A LD (DAT4915),A PGM204D CALL PGM2844 CALL PGM21A7 JR Z,PGM2098 CALL PGM21B4 JR Z,PGM20CF CALL PGM21BE JR Z,PGM2098 LD A,(HL) CP 027H JP Z,PGM20FD CP 022H JP Z,PGM20E6 CALL PGM2819 JP NC,PGM20F2 CALL PGM25BF CALL C,PGM26C5 CALL PGM243F PGM2079 CALL PGM2132 JP Z,PGM2129 PGM207F CALL PGM2844 CALL PGM21B4 JR Z,PGM20CF CALL PGM21E0 JR NZ,PGM20A9 PUSH BC PGM208D CALL PGM2184 POP BC JR Z,PGM2098 CP C JR C,PGM20A0 JR Z,PGM20A0 PGM2098 CALL PGM216B JP Z,PGM2129 JR PGM204D PGM20A0 PUSH BC CALL PGM228A JP C,PGM2128 JR PGM208D PGM20A9 CALL PGM2184 JR Z,PGM20B5 CALL PGM228A JR C,PGM2129 JR PGM20A9 PGM20B5 CALL PGM214F JR Z,PGM2129 LD A,C CP 0FFH JR Z,PGM2129 AND 060H CP 020H LD A,C JR Z,PGM20C8 AND 01FH PGM20C8 LD (DAT3F6E),A LD B,D LD C,E LD D,A RET PGM20CF CALL PGM2184 JR Z,PGM2129 CP 07FH JR Z,PGM20DF CALL PGM228A JR C,PGM2129 JR PGM20CF PGM20DF CALL PGM2199 JR Z,PGM2129 JR PGM207F PGM20E6 INC HL LD D,H LD E,L CALL PGM227F JR C,PGM2129 LD C,0FFH JR PGM2079 PGM20F2 CALL PGM23FD CALL C,PGM26C5 LD C,002H JP PGM2079 PGM20FD INC HL LD BC,DAT0002 LD DE,DAT486A CALL PGM2668 LD DE,MOD0000 JR NC,PGM2120 INC B DEC B JR Z,PGM2123 LD DE,(DAT486A) DEC B JR Z,PGM211C LD A,D LD D,E LD E,A JR PGM2123 PGM211C LD D,000H JR PGM2123 PGM2120 CALL PGM26C5 PGM2123 LD C,002H JP PGM2079 PGM2128 POP BC PGM2129 CALL PGM23F8 LD BC,MOD0000 LD D,000H RET PGM2132 LD A,(DAT487E) CP 032H RET Z PUSH HL INC A LD (DAT487E),A LD HL,DAT487C LD B,A ADD A,B ADD A,B CALL PGM2703 LD (HL),E INC HL LD (HL),D INC HL LD (HL),C POP HL SUB A INC A RET PGM214F LD A,(DAT487E) AND A RET Z PUSH HL DEC A LD (DAT487E),A LD HL,DAT487F LD B,A ADD A,B ADD A,B CALL PGM2703 LD E,(HL) INC HL LD D,(HL) INC HL LD C,(HL) POP HL SUB A INC A RET PGM216B LD A,(DAT4915) CP 032H RET Z PUSH HL INC A LD (DAT4915),A LD HL,DAT4914 ADD A,A CALL PGM2703 LD (HL),B INC HL LD (HL),C POP HL SUB A INC A RET PGM2184 LD A,(DAT4915) AND A RET Z PUSH HL LD HL,DAT4914 ADD A,A CALL PGM2703 LD B,(HL) INC HL LD C,(HL) POP HL SUB A INC A LD A,C RET PGM2199 CALL PGM2184 RET Z LD A,(DAT4915) DEC A LD (DAT4915),A SUB A INC A RET PGM21A7 LD BC,DAT007F LD A,(HL) INC HL CP 05BH RET Z CP 028H RET Z DEC HL RET PGM21B4 LD A,(HL) INC HL CP 05DH RET Z CP 029H RET Z DEC HL RET PGM21BE LD DE,DAT21C3 JR PGM21E3 DAT21C3 DB 0ABH,086H,001H,0ADH,08CH,001H,0DEH,093H DB 001H,0FEH DW PGM0488 DB 04EH,04FH,0D4H DW PGM0488 DB 04CH,04FH,0D7H,094H,008H,048H,049H,047H DB 0C8H,095H DW DAT0008 PGM21E0 LD DE,DAT21E5 PGM21E3 JR PGM224D DAT21E5 DB 0ABH,006H,003H,0ADH,007H,003H,0AAH,001H DB 002H,0AFH,002H,002H,0A5H,003H,002H,0A6H DB 009H,005H,0FCH,00AH,006H,03EH,0BEH,005H DB 002H,03CH,0BCH,004H,002H,03EH,0BDH,012H DB 007H,03CH,0BDH DW PGM0711 DB 03CH,0BEH,010H,007H,0BEH,00DH,007H,0BCH DB 00EH,007H,0BDH,00FH,007H,04DH,04FH,0C4H DB 003H,002H,053H,048H,0CCH,004H,002H,053H DB 048H,0D2H,005H,002H,041H,04EH,0C4H,009H DB 005H,04FH,0D2H,00AH,006H,058H,04FH,0D2H DB 00BH,006H,04CH,0D4H,00EH,007H,047H,0D4H DB 00DH,007H,045H,0D1H,00FH,007H,04EH,0C5H DB 010H,007H,04CH,0C5H DW PGM0711 DB 047H,0C5H,012H,007H,000H PGM224D PUSH HL PGM224E LD A,(DE) AND A JR Z,PGM227C CALL PGM27BD JR NZ,PGM2272 LD A,(DE) INC HL INC DE AND A JP P,PGM224E AND 07FH CALL PGM25D4 JR C,PGM226A CALL PGM284F JR NC,PGM227C PGM226A POP BC LD A,(DE) LD B,A INC DE LD A,(DE) LD C,A SUB A RET PGM2272 LD A,(DE) INC DE RLA JR NC,PGM2272 INC DE INC DE POP HL JR PGM224D PGM227C POP HL INC A RET PGM227F LD A,(HL) CP 00DH SCF RET Z INC HL CP 022H JR NZ,PGM227F RET PGM228A PUSH HL CALL PGM2199 JR Z,PGM22DF LD A,B AND A JP M,PGM22CD PUSH BC CALL PGM214F JR Z,PGM22DE PUSH DE PUSH BC CALL PGM214F JR Z,PGM22DC EX DE,HL POP DE LD B,C LD C,E POP DE PGM22A7 EX (SP),HL LD A,H AND 07FH LD HL,DAT22E4 RLA CALL PGM2703 LD A,(HL) INC HL LD H,(HL) LD L,A PUSH HL POP IY POP HL LD A,002H LD (DAT497A),A CALL PGM22E2 EX DE,HL LD A,(DAT497A) LD C,A CALL PGM2132 AND A POP HL RET PGM22CD PUSH BC CALL PGM214F JR Z,PGM22DE EX DE,HL LD B,C LD DE,MOD0000 LD C,002H JR PGM22A7 PGM22DC POP HL POP HL PGM22DE POP HL PGM22DF POP HL SCF RET PGM22E2 JP (IY) DAT22E4 DW PGM23F8,PGM2310,PGM2316,PGM231C DW PGM2323,PGM232D,PGM233A,PGM2344 DW PGM233F,PGM234B,PGM2355,PGM235F DW PGM2340,PGM236F,PGM2370,PGM237A DW PGM2383,PGM238A,PGM238B,PGM2321 DW PGM236A,PGM2369 PGM2310 CALL PGM23C5 JP PGM2432 PGM2316 CALL PGM23C5 JP PGM2439 PGM231C CALL PGM2316 EX DE,HL RET PGM2321 INC DE EX DE,HL PGM2323 CALL PGM23C5 PGM2326 LD A,D OR E RET Z ADD HL,HL DEC DE JR PGM2326 PGM232D CALL PGM23C5 PGM2330 LD A,D OR E RET Z SRL H RR L DEC DE JR PGM2330 PGM233A CALL PGM23D1 ADD HL,DE RET PGM233F DEC DE PGM2340 EX DE,HL LD A,B LD B,C LD C,A PGM2344 CALL PGM23E2 AND A SBC HL,DE RET PGM234B CALL PGM23C5 LD A,H AND D LD H,A LD A,L AND E LD L,A RET PGM2355 CALL PGM23C5 LD A,H OR D LD H,A LD A,L OR E LD L,A RET PGM235F CALL PGM23C5 LD A,H XOR D LD H,A LD A,L XOR E LD L,A RET PGM2369 LD L,H PGM236A LD H,000H JP PGM23C5 PGM236F EX DE,HL PGM2370 CALL PGM2393 JP M,PGM237F PGM2376 LD HL,MOD0000 RET PGM237A CALL PGM2393 JR NZ,PGM2376 PGM237F LD HL,DATFFFF RET PGM2383 CALL PGM2393 JR Z,PGM2376 JR PGM237F PGM238A EX DE,HL PGM238B CALL PGM2393 JP M,PGM2376 JR PGM237F PGM2393 CALL PGM239A AND A SBC HL,DE RET PGM239A LD A,B CP C JR NZ,PGM23F8 CP 0FFH RET NZ PGM23A1 LD A,(HL) CP 022H JR Z,PGM23B5 LD A,(DE) CP 022H JR Z,PGM23BE CALL PGM27BD LD A,(DE) JR NZ,PGM23BF INC DE INC HL JR PGM23A1 PGM23B5 LD A,(DE) CP 022H JR Z,PGM23BF LD L,000H JR PGM23C0 PGM23BE SUB A PGM23BF LD L,(HL) PGM23C0 LD E,A LD H,000H LD D,H RET PGM23C5 CALL PGM23F3 LD A,B CP C JR NZ,PGM23F8 CP 002H JR NZ,PGM23F8 RET PGM23D1 LD A,B CP 002H LD A,C JR NZ,PGM23DB PGM23D7 LD (DAT497A),A RET PGM23DB CP 002H LD A,B JR Z,PGM23D7 JR PGM23F8 PGM23E2 BIT 5,B JR NZ,PGM23E9 LD A,B CP C RET Z PGM23E9 LD A,C CP 002H JR NZ,PGM23F8 LD A,B LD (DAT497A),A RET PGM23F3 LD A,B OR C BIT 5,A RET Z PGM23F8 LD A,003H JP PGM26DA PGM23FD PUSH HL PGM23FE INC HL CALL PGM284F JR NC,PGM23FE DEC HL POP BC LD A,(HL) CALL PGM27CC CP 048H JR Z,PGM241E CP 044H JR Z,PGM2423 CP 051H JR Z,PGM2428 CP 042H JR Z,PGM242D INC HL JP PGM2713 PGM241E CALL PGM2753 INC HL RET PGM2423 CALL PGM2713 INC HL RET PGM2428 CALL PGM272B INC HL RET PGM242D CALL PGM2740 INC HL RET PGM2432 LD C,089H CALL MOD0005 EX DE,HL RET PGM2439 LD C,08AH CALL MOD0005 RET PGM243F LD DE,DAT4860 CALL PGM2820 LD A,(DE) CP 024H JR NZ,PGM2451 INC DE LD A,(DE) DEC DE CP 020H JR Z,PGM24C2 PGM2451 PUSH HL SUB A INC A CALL PGM0A11 JR NC,PGM24BB LD HL,MOD0000 LD (DAT486A),HL LD (DAT486C),HL CALL PGM090B LD D,B LD E,C LD C,A AND 060H CP 060H CALL Z,PGM0901 LD A,C AND 03FH CALL Z,PGM2494 BIT 5,A JR Z,PGM247F LD DE,MOD0000 LD (DAT3F7B),HL PGM247F LD C,A PUSH DE LD HL,DAT3E05 LD DE,(DAT3F5A) LD B,07FH BIT 2,(IX+000H) CALL NZ,PGM3707 POP DE POP HL RET PGM2494 LD A,(DAT3F6C) DEC A JR Z,PGM24A0 CALL PGM26D5 LD A,002H RET PGM24A0 LD A,015H LD (DAT3F81),A LD A,(DAT3F80) BIT 4,A LD A,002H RET Z LD (DAT3F84),A LD (DAT3F83),A LD HL,(DAT469C) INC HL LD (DAT469C),HL RET PGM24BB LD DE,MOD0000 LD C,002H POP HL RET PGM24C2 PUSH HL LD HL,(DAT46A8) LD A,(DAT3FD6) CALL PGM2703 EX DE,HL POP HL LD A,(DAT3F6D) ADD A,002H LD C,A RET PGM24D5 LD DE,DAT253E PGM24D8 CALL PGM2528 LD (DAT3F86),A RET PGM24DF LD DE,DAT2547 JR PGM24D8 PGM24E4 LD DE,DAT2554 CALL PGM2528 RET NZ PUSH AF CALL PGM1FD2 LD (DAT3F88),A LD B,A POP AF LD (DAT3F86),A RET PGM24F8 LD DE,DAT255F JR PGM2528 PGM24FD LD DE,DAT256E JR PGM2528 PGM2502 LD DE,DAT257D JR PGM2528 PGM2507 LD DE,DAT258C JR PGM2528 PGM250C CALL PGM25DE PGM250F LD DE,DAT259B JR PGM2528 PGM2514 CALL PGM25DE PGM2517 CALL PGM250F RET Z PGM251B LD DE,DAT25AC JR PGM2528 PGM2520 LD DE,DAT25B4 JR PGM2528 PGM2525 LD DE,DAT25B9 PGM2528 PUSH HL EX DE,HL CALL PGM278E EX DE,HL JR NZ,PGM2536 ADD HL,BC CALL PGM284F JR C,PGM253A PGM2536 SUB A INC A POP HL RET PGM253A SUB A LD A,(DE) POP BC RET DAT253E DB 002H,003H,049H,058H,0DDH,049H,059H,0FDH DB 000H DAT2547 DB 004H,005H,028H,049H,058H,029H,0DDH,028H DB 049H,059H,029H,0FDH,000H DAT2554 DB 003H,004H,028H,049H,058H,0DDH,028H,049H DB 059H,0FDH,000H DAT255F DB 002H,003H,042H,043H,000H,044H,045H,010H DB 'HL AF0' DB 000H DAT256E DB 002H,003H,042H,043H,000H,044H,045H,010H DB 'HL SP0' DB 000H DAT257D DB 002H,003H,042H,043H,000H,044H,045H,010H DB 'IX SP0' DB 000H DAT258C DB 002H,003H,042H,043H,000H,044H,045H,010H DB 'IY SP0' DB 000H DAT259B DB 001H,002H,041H,007H,042H,000H,043H,001H DB 044H,002H,045H,003H,048H,004H,04CH DW MOD0005 DAT25AC DB 004H,005H,028H,048H,04CH,029H DW DAT0006 DAT25B4 DB 002H,002H,048H,04CH,000H DAT25B9 DB 003H,003H,028H,043H,029H,000H PGM25BF CALL PGM25D4 RET NC CP 02EH RET Z CP 024H RET Z CP 05FH RET Z CP 03FH RET Z CP 040H RET Z SCF RET PGM25D4 CALL PGM27CC CP 041H RET C CP 05BH CCF RET PGM25DE CALL PGM25E8 CALL NZ,PGM26D1 LD A,(HL) CP 028H RET PGM25E8 CALL PGM2844 LD A,(HL) CP 02CH RET NZ INC HL CALL PGM2844 SUB A RET PGM25F5 CALL PGM2635 JR NZ,PGM25FE SUB 020H PGM25FC CP A RET PGM25FE LD DE,DAT2620 CALL PGM2638 RET NZ BIT 5,(IX+000H) RET Z CP 028H JR Z,PGM2612 CP 020H JR NZ,PGM25FC PGM2612 PUSH HL LD HL,(DAT46A2) INC HL LD (DAT46A2),HL LD (IX+02DH),050H POP HL RET DAT2620 DB 002H,003H DW PGM204D DB '8P 0PE(PO V' DW PGM2820 DB 04EH,056H,020H,000H PGM2635 LD DE,DAT264D PGM2638 PUSH DE LD DE,DAT486A CALL PGM2820 EX (SP),HL EX DE,HL CALL PGM2528 JR NZ,PGM2648 POP HL RET PGM2648 POP HL LD HL,(DAT3F58) RET DAT264D DB 002H,003H DW PGM2043 DB '8LT8NC0GE0Z' DW PGM2820 DB 'EQ(NZ NE ' DB 000H PGM2668 INC C PGM2669 PUSH BC PUSH DE LD A,(HL) CP 027H JR Z,PGM26A9 CP 05CH JR Z,PGM2684 PGM2674 LD A,(HL) CP 00DH JR Z,PGM26AF PGM2679 POP DE POP BC AND A DEC C RET Z LD (DE),A INC DE INC HL INC B JR PGM2669 PGM2684 INC HL LD A,(HL) CALL PGM27CC CP 058H JR Z,PGM269A EX DE,HL LD HL,DAT26B4 CALL PGM278E EX DE,HL JR NZ,PGM2674 LD A,(DE) JR PGM2679 PGM269A INC HL LD B,H LD C,L INC HL INC HL CALL PGM2753 CALL C,PGM26D1 DEC HL LD A,E JR PGM2679 PGM26A9 INC HL LD A,(HL) CP 027H JR Z,PGM2679 PGM26AF POP DE POP BC DEC C SCF RET DAT26B4 DB 001H,001H DB 'N',LF,'L',LF,'F',FORM,'R',CR DW PGM0842 DB 054H,009H,030H DW MOD0000 PGM26C5 LD A,001H JR PGM26DA PGM26C9 LD A,004H JR PGM26DA PGM26CD LD A,005H JR PGM26DA PGM26D1 LD A,00AH JR PGM26DA PGM26D5 LD A,00BH LD BC,MOD0000 MOD26D8 EQU PGM26D5+003H PGM26DA PUSH AF LD (IX+032H),001H LD A,(DAT3F81) AND A JR NZ,PGM26EC POP AF LD (DAT3F81),A PGM26E9 LD A,000H RET PGM26EC POP AF JR PGM26E9 PGM26EF CALL PGM26FB PGM26F2 CALL PGM26FE PGM26F5 CALL PGM26FE PGM26F8 CALL PGM26FB PGM26FB CALL PGM26FE PGM26FE LD B,020H JP PGM352A PGM2703 ADD A,L LD L,A RET NC INC H RET PGM2708 LD A,L ADD A,001H DAA LD L,A LD A,H ADC A,000H DAA LD H,A RET PGM2713 PUSH HL LD HL,MOD0000 PGM2717 ADD HL,HL LD D,H LD E,L ADD HL,HL ADD HL,HL ADD HL,DE LD A,(BC) CALL PGM2819 JR C,PGM2729 CALL PGM2778 JR NZ,PGM2717 RET PGM2729 POP HL RET PGM272B PUSH HL LD HL,MOD0000 PGM272F ADD HL,HL ADD HL,HL ADD HL,HL LD A,(BC) SUB 030H CP 008H CCF JR C,PGM2729 CALL PGM2778 JR NZ,PGM272F RET PGM2740 PUSH HL LD HL,MOD0000 PGM2744 ADD HL,HL LD A,(BC) SUB 030H CP 002H CCF JR C,PGM2729 CALL PGM2778 JR NZ,PGM2744 RET PGM2753 PUSH HL LD HL,MOD0000 PGM2757 ADD HL,HL ADD HL,HL ADD HL,HL ADD HL,HL LD A,(BC) CALL PGM2767 JR C,PGM2729 CALL PGM2778 JR NZ,PGM2757 RET PGM2767 CALL PGM2819 RET NC CALL PGM27CC CP 041H RET C CP 047H CCF RET C SUB 007H RET PGM2778 AND 00FH CALL PGM2703 EX DE,HL POP HL EX (SP),HL PUSH HL INC BC AND A SBC HL,BC POP HL JR NZ,PGM278A LD A,(HL) RET PGM278A EX (SP),HL PUSH HL EX DE,HL RET PGM278E CALL PGM2798 RET NZ LD C,B LD B,000H ADD HL,BC SUB A RET PGM2798 LD B,(HL) INC HL LD C,(HL) INC HL PGM279C LD A,(HL) AND A JR Z,PGM27AA CALL PGM27AC RET Z LD A,C CALL PGM2703 JR PGM279C PGM27AA INC A RET PGM27AC PUSH HL PUSH DE PUSH BC EX DE,HL PGM27B0 CALL PGM27BD JR NZ,PGM27B9 INC HL INC DE DJNZ PGM27B0 PGM27B9 POP BC POP DE POP HL RET PGM27BD LD A,(DE) CALL PGM27CC PUSH BC LD B,A LD A,(HL) CALL PGM27CC LD C,A LD A,B CP C POP BC RET PGM27CC AND 07FH CP 061H RET C CP 07BH RET NC AND 05FH RET PGM27D7 PUSH HL AND A SBC HL,DE POP HL RET PGM27DD LD A,H CALL PGM27E2 LD A,L PGM27E2 LD C,A RRA RRA RRA RRA CALL PGM27EB LD A,C PGM27EB AND 00FH ADD A,030H CP 03AH JR C,PGM27F5 ADD A,007H PGM27F5 LD B,A JP PGM352A PGM27F9 CALL PGM26FE LD E,(HL) INC HL LD D,(HL) INC HL EX DE,HL CALL PGM27DD EX DE,HL RET PGM2806 LD B,(HL) CALL PGM352A INC HL DEC D JR NZ,PGM2806 RET PGM280F LD A,020H PGM2811 LD (DE),A LD H,D LD L,E INC DE DEC BC LDIR RET PGM2819 CP 030H RET C CP 03AH CCF RET PGM2820 LD BC,DAT0008 PUSH DE PUSH HL CALL PGM280F POP HL POP DE PUSH DE LD C,008H PGM282D CALL PGM284F JR C,PGM2837 LDI JP PE,PGM282D PGM2837 POP DE CALL PGM283D JR PGM2844 PGM283D CALL PGM284F RET C INC HL JR PGM283D PGM2844 LD A,(HL) CP 020H JR Z,PGM284C CP 009H RET NZ PGM284C INC HL JR PGM2844 PGM284F LD A,(HL) CALL PGM25BF RET NC CALL PGM2819 RET PGM2858 LD B,000H JR PGM2881 PGM285C LD B,001H JR PGM286A PGM2860 LD B,002H JR PGM286A PGM2864 LD B,003H JR PGM286A PGM2868 LD B,004H PGM286A CALL PGM2B20 PUSH BC CALL PGM2881 POP BC PUSH BC LD HL,DAT3F86 CALL PGM32DC POP BC SUB A LD C,B LD B,000H JP PGM2B2C PGM2881 LD A,(DAT3F6C) CP 002H RET NZ CALL PGM288D JP PGM293B PGM288D PUSH BC LD HL,(DAT46A8) CALL PGM27DD LD A,(DAT3F6D) CALL PGM2AEF CALL PGM26FE LD HL,DAT3F86 POP BC LD C,004H LD A,B AND A CALL Z,PGM28C3 JR Z,PGM28BB PGM28AA PUSH BC LD A,(HL) CALL PGM27E2 POP BC INC HL DEC C DJNZ PGM28AA CALL PGM2B03 LD A,C AND A JR Z,PGM28C3 PGM28BB PUSH BC CALL PGM26FB POP BC DEC C JR NZ,PGM28BB PGM28C3 CALL PGM26FE SUB A RET PGM28C8 LD HL,DAT3F86 PGM28CB LD A,(DAT3F6C) CP 002H RET NZ PUSH BC CALL PGM26F2 POP BC PGM28D6 LD A,(HL) PUSH BC CALL PGM27E2 POP BC INC HL DJNZ PGM28D6 PUSH HL CALL PGM2B03 CALL PGM07B6 CALL PGM2969 POP HL RET PGM28EB LD A,(DAT3F6C) CP 002H RET NZ CALL PGM26EF CALL PGM26F2 JR PGM2938 PGM28F9 PUSH BC CALL PGM26F5 JR PGM290C PGM28FF PUSH BC LD HL,(DAT46A8) CALL PGM27DD LD A,(DAT3F6D) CALL PGM2AEF PGM290C CALL PGM26FE LD B,028H CALL PGM352A POP HL CALL PGM27DD LD A,(DAT3F6E) BIT 5,A JR NZ,PGM2923 CP 003H JR C,PGM292D PGM2923 CALL PGM2B03 LD B,029H CALL PGM352A JR PGM2935 PGM292D LD B,029H CALL PGM352A CALL PGM26FE PGM2935 CALL PGM26FE PGM2938 CALL PGM26FB PGM293B LD A,(DAT3F7E) LD B,A CALL PGM352A CALL PGM26FE LD HL,(DAT4796) CALL PGM27DD LD B,02BH LD A,(DAT3F7F) AND A JR NZ,PGM295D LD B,02DH LD A,(DAT3F56) AND A JR NZ,PGM295D LD B,020H PGM295D CALL PGM352A CALL PGM26FE LD HL,DAT4798 CALL PGM351C PGM2969 LD A,(DAT3F81) AND A RET Z PUSH AF LD HL,DAT2986 CALL PGM2B16 POP AF CALL PGM2990 CALL PGM2B16 LD HL,DAT298A CALL PGM2B16 CALL PGM2D57 RET DAT2986 DB 02AH,02AH,02AH,0A0H DAT298A DB 020H,02AH,02AH,02AH,00DH,08DH PGM2990 LD HL,DAT299D LD B,A PGM2994 DEC B RET Z PGM2996 LD A,(HL) INC HL RLA JR NC,PGM2996 JR PGM2994 DAT299D DB 'argument erro' DB 0F2H DB 'multiple definitio' DB 0EEH DB 'expression erro' DB 0F2H DB 'label erro' DB 0F2H DB 'missing labe' DB 0ECH DB 'nesting erro' DB 0F2H DB 'opcode erro' DB 0F2H DB 'phase erro' DB 0F2H DB 'range erro' DB 0F2H DB 'syntax erro' DB 0F2H DB 'undefined symbo' DB 0ECH DB 'value erro' DB 0F2H DB 'file not foun' DB 0E4H DB 'divide b' DW PGM2079 DB 'zero erro' DB 0F2H DB 'no matching I' DB 0C6H DB 'no matching MACR' DB 0CFH DB 'too man' DW PGM2079 DB 'COMMON' DB 0F3H DB 'multiple MACRO definitio' DB 0EEH DB 'label not allowe' DB 0E4H DB 'instruction not allowe' DB 0E4H DB 'undefined symbol on pass on' DB 0E5H,06DH,06EH,06FH,074H,0E5H PGM2AEF CP 003H JR C,PGM2AF5 LD A,003H PGM2AF5 LD HL,DAT2AFF CALL PGM2703 LD B,(HL) JP PGM352A DAT2AFF DB 020H,027H,022H,02AH PGM2B03 LD A,(DAT3F6E) BIT 5,A JR NZ,PGM2B11 AND A JR Z,PGM2AEF SUB 002H JR PGM2AEF PGM2B11 LD B,023H JP PGM352A PGM2B16 LD B,(HL) CALL PGM352A LD A,(HL) INC HL AND A RET M JR PGM2B16 PGM2B20 CALL PGM2844 CP 03BH RET Z CP 00DH RET Z JP PGM26D1 PGM2B2C LD HL,(DAT46A8) ADD HL,BC PGM2B30 LD (DAT46A8),HL EX DE,HL LD A,(DAT3F6D) ADD A,A PUSH AF LD HL,DAT46AA CALL PGM2703 LD (HL),E INC HL LD (HL),D LD HL,DAT4600 POP AF RET Z CALL PGM2703 PUSH HL LD A,(HL) INC HL LD H,(HL) LD L,A CALL PGM27D7 POP HL RET NC LD (HL),E INC HL LD (HL),D RET PGM2B58 LD (DAT3F87),BC LD B,003H JR PGM2B66 PGM2B60 LD (DAT3F88),BC LD B,004H PGM2B66 CALL PGM2B20 PGM2B69 PUSH BC CALL PGM2881 POP BC PGM2B6E LD A,(DAT3F6C) CP 002H JR NZ,PGM2BA2 LD HL,DAT3F86 LD A,B SUB 002H JR Z,PGM2B86 LD C,A PGM2B7E LD A,(HL) CALL PGM32C6 INC HL DEC C JR NZ,PGM2B7E PGM2B86 LD E,(HL) INC HL LD D,(HL) LD A,(DAT3F6E) BIT 5,A CALL NZ,PGM2BB2 LD A,(DAT3F6E) AND 01FH CP 003H JR C,PGM2BA8 SUB 002H PUSH BC LD B,A CALL PGM3328 POP BC PGM2BA2 LD C,B LD B,000H JP PGM2B2C PGM2BA8 LD A,E CALL PGM32C6 LD A,D CALL PGM32C6 JR PGM2BA2 PGM2BB2 PUSH BC LD A,D OR E LD B,000H LD A,009H CALL NZ,PGM32E7 POP BC LD A,B SUB 002H LD HL,(DAT46A8) CALL PGM2703 EX DE,HL LD HL,(DAT3F7B) LD A,(HL) LD (DAT3F6E),A AND 0E0H LD C,A LD A,(DAT3F6D) ADD A,002H OR C LD (HL),A DEC HL LD A,(HL) LD (HL),D LD D,A DEC HL LD A,(HL) LD (HL),E LD E,A RET PGM2BE1 LD (IX+033H),001H LD DE,(DAT469C) LD HL,DAT2C43 LD A,D OR E CALL NZ,PGM2C8F LD (IX+033H),000H RET PGM2BF6 LD (IX+033H),001H LD DE,(DAT469E) LD HL,DAT2C53 CALL PGM2C8F LD DE,(DAT46A0) LD HL,DAT2C5B BIT 4,(IX+000H) CALL NZ,PGM2C8F LD DE,(DAT46A2) LD HL,DAT2C67 BIT 5,(IX+000H) CALL NZ,PGM2C8F CALL PGM07B6 LD DE,(DAT4602) LD HL,DAT2C74 LD A,D OR E CALL NZ,PGM2CA3 LD DE,(DAT4604) LD HL,DAT2C83 LD A,D OR E CALL NZ,PGM2CA3 CALL PGM2CAD LD (IX+033H),000H RET DAT2C43 DB 'Pass One Errors' DB 089H DAT2C53 DB 'Errors',HTAB DB 089H DAT2C5B DB 'Range Count' DB 089H DAT2C67 DB 050H,061H,072H,069H,074H DW PGM2079 DB 043H,06FH,075H,06EH,074H,089H DAT2C74 DB 'Program Length' DB 089H DAT2C83 DB 'Data Length' DB 089H PGM2C8F CALL PGM2B16 EX DE,HL LD A,020H CALL PGM2D3A LD HL,DAT486B LD D,004H CALL PGM2806 JP PGM07B6 PGM2CA3 CALL PGM2B16 EX DE,HL CALL PGM2D17 JP PGM07B6 PGM2CAD LD A,(DAT46A4) AND A RET Z PUSH AF LD HL,DAT2D08 CALL PGM2B16 LD HL,DAT4624 LD DE,DAT4606 PGM2CBF LD B,02FH CALL PGM352A PUSH HL LD B,(HL) CALL PGM352A LD C,007H PGM2CCB INC HL LD A,(HL) CP 020H JR Z,PGM2CDF LD B,A CALL PGM352A DEC C JR NZ,PGM2CCB LD B,02FH CALL PGM352A JR PGM2CE9 PGM2CDF LD B,02FH CALL PGM352A LD B,009H CALL PGM352A PGM2CE9 LD B,009H CALL PGM352A LD A,(DE) LD L,A INC DE LD A,(DE) LD H,A INC DE PUSH DE CALL PGM2D17 CALL PGM07B6 POP DE POP HL LD BC,DAT0008 ADD HL,BC POP AF DEC A PUSH AF JR NZ,PGM2CBF POP AF RET DAT2D08 DB 'COMMON Lengths' DB 08DH PGM2D17 CALL PGM27DD SUB A CALL PGM2D3A CALL PGM26FE LD B,028H CALL PGM352A LD HL,DAT486A LD D,005H PGM2D2B LD A,(HL) INC HL OR A LD B,A CALL NZ,PGM352A DEC D JR NZ,PGM2D2B LD B,029H JP PGM352A PGM2D3A PUSH HL LD DE,DAT486A LD BC,MOD0005 CALL PGM2811 POP HL PGM2D45 PUSH DE LD DE,DAT000A CALL PGM2439 LD A,E POP DE ADD A,030H DEC DE LD (DE),A LD A,H OR L JR NZ,PGM2D45 RET PGM2D57 LD HL,(DAT469E) INC HL LD (DAT469E),HL LD A,(DAT3F81) LD B,A SUB A LD (DAT3F81),A LD (DAT3F83),A LD A,(DAT3F6C) CP 002H RET NZ CALL PGM2E1B RET C LD D,H LD E,L ADD HL,DE ADD HL,DE LD DE,DAT44D3 ADD HL,DE LD (HL),B INC HL LD DE,(DAT4796) LD (HL),D INC HL LD (HL),E RET PGM2D85 CALL PGM2E1B LD A,H OR L RET Z CALL PGM07B6 PUSH HL DEC HL LD D,H LD E,L ADD HL,DE ADD HL,DE LD DE,DAT44D6 ADD HL,DE LD BC,DAT0003 CALL PGM0B0D POP DE LD HL,DAT44D6 LD B,000H PGM2DA4 CALL PGM2E30 PGM2DA7 LD A,(HL) CP B JR Z,PGM2DDF LD B,A PUSH HL PUSH DE PUSH BC CALL PGM07B6 LD A,(HL) PUSH AF LD HL,DAT2986 CALL PGM2B16 POP AF CALL PGM2990 LD C,01DH PGM2DC0 LD B,(HL) CALL PGM352A DEC C LD A,(HL) INC HL RLA JR NC,PGM2DC0 CALL PGM26FE LD HL,DAT2986 CALL PGM2B16 PGM2DD3 CALL PGM26FE DEC C JR NZ,PGM2DD3 POP BC POP DE POP HL CALL PGM2E30 PGM2DDF INC HL PUSH BC PUSH DE LD D,(HL) INC HL LD E,(HL) INC HL EX DE,HL CALL PGM27DD CALL PGM26FE EX DE,HL POP DE POP BC DEC DE LD A,D OR E JR Z,PGM2E0A DEC C JR NZ,PGM2DA7 LD A,(HL) CP B JR NZ,PGM2DA7 PUSH HL PUSH DE PUSH BC LD HL,DAT2E10 CALL PGM2B16 POP BC POP DE POP HL JR PGM2DA4 PGM2E0A CALL PGM07B6 JP PGM07B6 DAT2E10 DB CR,HTAB,HTAB,HTAB,HTAB,' ' DB 0A0H PGM2E1B LD HL,(DAT469E) LD A,H AND A JR NZ,PGM2E29 LD A,L CP 063H JR Z,PGM2E2E JR C,PGM2E2E PGM2E29 LD HL,DAT0064 SCF RET PGM2E2E AND A RET PGM2E30 PUSH HL PUSH DE PUSH BC LD A,(DAT3F4D) SUB 026H LD L,A LD H,000H LD DE,MOD0005 CALL PGM2439 POP BC LD C,L POP DE POP HL RET PGM2E46 BIT 2,(IX+000H) RET Z LD HL,(DAT4C53) PGM2E4E LD DE,(DAT4C55) CALL PGM27D7 RET NC PUSH HL PUSH HL POP IY EX DE,HL INC DE INC DE INC DE LD L,(IY+00BH) LD H,(IY+00CH) LD (DAT4796),HL LD B,(IY+00DH) RES 7,B LD A,(IY+002H) CP 053H JR Z,PGM2E85 LD B,082H CP 04DH JR NZ,PGM2E8B DEC HL DEC HL BIT 0,(HL) JR NZ,PGM2E8B BIT 7,(HL) JR Z,PGM2E85 LD B,0E2H PGM2E85 LD HL,DAT3E05 CALL PGM3707 PGM2E8B POP HL LD DE,DAT000E ADD HL,DE JR PGM2E4E PGM2E92 PUSH HL EX DE,HL CALL PGM12F6 POP HL PUSH HL CALL PGM3864 POP HL PUSH HL CALL PGM3766 SUB A LD (DAT2F20),A POP HL PUSH HL CALL PGM2F21 JR C,PGM2EB9 LD HL,DAT4C57 LD (DAT4860),HL CALL PGM2F7C POP HL JP PGM387A PGM2EB9 EX AF,AF' LD (DAT2F1E),DE POP HL PUSH HL INC HL INC HL INC HL LD DE,DAT398C LD BC,DAT0021 LDIR LD HL,DAT3989 CALL PGM3766 LD (IY+000H),000H PGM2ED5 LD HL,DAT2F20 INC (HL) LD DE,DAT4C57 LD HL,DAT3989 PGM2EDF LD A,(DE) CP 0FFH JR Z,PGM2EEB LD B,00BH CALL PGM37F7 JR PGM2EDF PGM2EEB EX AF,AF' JR NC,PGM2EF6 POP HL PUSH HL CALL PGM2F21 EX AF,AF' JR PGM2ED5 PGM2EF6 LD DE,DAT3989 CALL PGM3864 LD A,(DAT2F20) LD B,A LD C,000H LD HL,DAT4C57 ADD HL,BC LD DE,(DAT0006) CALL PGM27D7 JP NC,PGM09FB LD DE,(DAT2F1E) CALL PGM3094 CALL PGM2F7C POP HL JP PGM387A DAT2F1E DW MOD0000 DAT2F20 DB 000H PGM2F21 PUSH HL LD BC,DATFFFF LD DE,DAT4C57 PGM2F28 INC BC PUSH BC PUSH HL LD HL,(DAT0006) LD BC,DAT000D AND A SBC HL,BC CALL PGM27D7 POP HL JR C,PGM2F42 CALL PGM2F58 POP BC JR NC,PGM2F28 PUSH BC AND A PGM2F42 PUSH AF LD A,0FFH LD (DE),A LD HL,DATFFF5 ADD HL,DE LD DE,DAT4C57 LD B,008H LD C,003H CALL PGM0B0D POP AF POP DE POP HL RET PGM2F58 CALL PGM2F72 JR Z,PGM2F70 CP 01AH JR Z,PGM2F70 LD (DE),A INC DE LD B,00AH PGM2F65 CALL PGM2F72 JR Z,PGM2F70 LD (DE),A INC DE DJNZ PGM2F65 AND A RET PGM2F70 SCF RET PGM2F72 PUSH HL PUSH DE PUSH BC CALL PGM37C2 POP BC POP DE POP HL RET PGM2F7C SUB A LD (DAT3F5C),A CALL PGM3056 JP C,PGM07B6 PGM2F86 LD D,008H CALL PGM2806 CALL PGM26FE BIT 2,(IX+000H) JR Z,PGM2FC7 LD A,(HL) AND 07EH CP 07EH JR Z,PGM2FC4 CALL PGM3031 CALL PGM352A CALL PGM26FE BIT 7,(HL) JR Z,PGM2FB0 LD HL,DAT302C CALL PGM2B16 JR PGM2FB7 PGM2FB0 INC HL CALL PGM304F CALL PGM2B03 PGM2FB7 CALL PGM26FB CALL PGM3056 JP C,PGM07B6 JR NZ,PGM3026 JR PGM2FCA PGM2FC4 CALL PGM26EF PGM2FC7 CALL PGM26FE PGM2FCA LD A,(HL) INC HL BIT 0,A JR NZ,PGM2FDA CALL PGM304F CALL PGM26FE SUB A EX AF,AF' JR PGM3019 PGM2FDA PUSH AF CALL PGM26F5 SUB A EX AF,AF' PGM2FE0 EX AF,AF' LD B,A INC A EX AF,AF' LD A,B ADD A,A ADD A,A ADD A,B ADD A,01DH LD B,A LD A,(DAT3F4D) SUB B JR NC,PGM3007 CALL PGM07B6 LD C,017H BIT 2,(IX+000H) JR NZ,PGM2FFE LD C,00FH PGM2FFE CALL PGM26FE DEC C JR NZ,PGM2FFE LD A,001H EX AF,AF' PGM3007 POP AF BIT 0,A JR Z,PGM3011 CALL PGM26FE JR PGM3016 PGM3011 LD B,023H CALL PGM352A PGM3016 CALL PGM304F PGM3019 CALL PGM3056 JP C,PGM07B6 JR NZ,PGM3026 LD A,(HL) PUSH AF INC HL JR PGM2FE0 PGM3026 CALL PGM07B6 JP PGM2F86 DAT302C DB 04DH,061H,063H,072H,0EFH PGM3031 LD A,(HL) AND 03FH LD (DAT3F6E),A LD B,055H RET Z LD A,(HL) AND 060H LD B,04DH CP 060H RET Z LD B,045H CP 040H RET Z LD B,058H CP 020H RET Z LD B,020H RET PGM304F LD D,(HL) INC HL LD E,(HL) EX DE,HL JP PGM27DD PGM3056 LD A,(DAT2F20) AND A JR NZ,PGM306E LD HL,(DAT4860) LD A,(HL) INC A SCF RET Z EX DE,HL LD HL,DAT000B ADD HL,DE LD (DAT4860),HL EX DE,HL JR PGM3072 PGM306E CALL PGM30D6 RET C PGM3072 LD DE,DAT3F5C LD B,008H CALL PGM27AC LD BC,DAT0008 JR NZ,PGM3089 ADD HL,BC LD A,(DAT3F7E) XOR (HL) BIT 7,A RET Z SBC HL,BC PGM3089 PUSH HL LDIR LD A,(HL) LD (DAT3F7E),A POP HL SUB A INC A RET PGM3094 LD A,B LD BC,MOD0000 LD HL,DAT4C57 PGM309B EX AF,AF' PUSH DE PUSH BC PUSH HL LD (HL),D INC HL LD (HL),E LD DE,DAT000D ADD HL,DE EX DE,HL LD HL,DAT0023 ADD HL,DE LD A,L LD (DE),A INC DE LD A,H LD (DE),A INC DE LD HL,DAT398C LD BC,DAT0021 LDIR POP HL POP DE PUSH DE PUSH HL LD BC,DAT000D ADD HL,BC CALL PGM389A POP DE PUSH DE CALL PGM310F POP BC POP HL POP DE ADD HL,DE PUSH BC EX (SP),HL POP BC INC H EX AF,AF' DEC A JR NZ,PGM309B RET PGM30D6 LD H,008H LD L,003H LD (DAT3F78),HL LD DE,DAT4C59 LD H,D LD L,E LD A,(DAT2F20) LD C,A DEC C PGM30E7 INC D PUSH DE LD A,(DE) INC A JR Z,PGM30F3 CALL PGM0B96 JR C,PGM30F3 EX DE,HL PGM30F3 POP DE DEC C JR NZ,PGM30E7 LD A,(HL) INC A SCF RET Z PUSH HL LD BC,DAT000B LD DE,DAT486A LDIR POP DE DEC DE DEC DE CALL PGM310F LD HL,DAT486A AND A RET PGM310F PUSH DE LD A,(DE) LD B,A INC DE LD A,(DE) LD C,A INC DE OR B JR NZ,PGM311E PGM3119 LD A,0FFH LD (DE),A POP DE RET PGM311E PUSH DE DEC BC LD A,C DEC DE LD (DE),A LD A,B DEC DE LD (DE),A POP DE LD HL,DAT000B ADD HL,DE PUSH DE CALL PGM2F58 POP DE JR C,PGM3119 POP DE RET PGM3134 LD HL,DAT497B LD A,002H JP PGM329F PGM313C LD C,000H JR PGM3142 PGM3140 LD C,007H PGM3142 LD HL,(DAT4C53) PGM3145 LD DE,(DAT4C55) CALL PGM27D7 RET NC PUSH HL PUSH HL POP IY LD A,(IY+002H) CP 053H JR NZ,PGM317C LD A,(IY+00DH) BIT 6,A JR Z,PGM317C BIT 5,A JR NZ,PGM317C AND 01FH SUB 002H LD B,A LD DE,DAT0003 ADD HL,DE LD E,(IY+00BH) LD D,(IY+00CH) LD A,C PUSH BC AND A CALL NZ,PGM3270 CALL PGM329F POP BC PGM317C POP HL LD DE,DAT000E ADD HL,DE JR PGM3145 PGM3183 LD BC,DAT4606 LD HL,DAT4624 PGM3189 LD A,(BC) LD E,A INC BC LD A,(BC) LD D,A INC BC OR E JR Z,PGM319D PUSH HL PUSH BC LD B,000H LD A,005H CALL PGM329F POP BC POP HL PGM319D LD DE,DAT0008 ADD HL,DE LD DE,DAT469C CALL PGM27D7 JR NZ,PGM3189 LD DE,(DAT4604) LD A,D OR E LD B,000H LD A,00AH CALL NZ,PGM32E7 LD DE,(DAT4602) LD B,001H LD A,00DH JP PGM32E7 PGM31C1 LD DE,MOD0000 LD B,000H PGM31C6 BIT 0,(IX+000H) RET Z LD A,(DAT3F6C) CP 002H RET NZ BIT 0,(IX+002H) JR NZ,PGM31F7 PUSH BC PUSH DE CALL PGM3208 POP DE POP BC LD A,00EH CALL PGM3270 CALL PGM32E7 CALL PGM338E LD A,00FH CALL PGM32E7 CALL PGM338E PGM31F1 LD HL,DAT3CBD JP PGM3864 PGM31F7 PUSH DE CALL PGM33FE POP HL LD (DAT3FD9),HL SUB A LD (DAT3FDB),A CALL PGM3403 JR PGM31F1 PGM3208 LD HL,(DAT4C53) PGM320B LD DE,(DAT4C55) CALL PGM27D7 RET NC PUSH HL PUSH HL POP IY LD A,(IY+002H) CP 053H JR NZ,PGM3246 LD A,(IY+00DH) BIT 5,A JR Z,PGM3246 BIT 6,A JR NZ,PGM3246 AND 01FH DEC A JR Z,PGM3246 DEC A LD B,A LD DE,DAT0003 ADD HL,DE LD E,(IY+00BH) LD D,(IY+00CH) OR D OR E JR Z,PGM3246 CALL PGM3270 LD A,006H CALL PGM329F PGM3246 POP HL LD DE,DAT000E ADD HL,DE JR PGM320B PGM324D PUSH AF LD A,(DAT3F7A) AND A JR Z,PGM326E PUSH HL PUSH DE PUSH BC LD A,(DAT3F6D) LD B,A CALL PGM3270 LD DE,(DAT46A8) LD A,00BH CALL PGM32E7 XOR A LD (DAT3F7A),A POP BC POP DE POP HL PGM326E POP AF RET PGM3270 PUSH AF PUSH BC PUSH DE PUSH HL LD A,B CP 003H JR C,PGM3299 LD A,(DAT46A5) CP B JR Z,PGM3297 LD A,B LD (DAT46A5),A SUB 003H LD L,A LD H,000H LD DE,DAT0008 CALL PGM2432 LD DE,DAT4624 ADD HL,DE LD A,001H CALL PGM329F PGM3297 LD A,003H PGM3299 POP HL POP DE POP BC LD B,A POP AF RET PGM329F PUSH AF LD A,(HL) CP 020H JR Z,PGM32BC PUSH HL PUSH DE LD A,(DAT0109) LD E,A LD D,000H PGM32AD LD A,(HL) CP 020H JR Z,PGM32B7 INC HL INC D DEC E JR NZ,PGM32AD PGM32B7 LD C,D POP DE POP HL JR PGM32C1 PGM32BC LD HL,DAT32C5 LD C,001H PGM32C1 POP AF JP PGM32E7 DAT32C5 DB 0A0H PGM32C6 BIT 0,(IX+002H) JP NZ,PGM33AD CALL PGM324D AND A CALL PGM3354 PGM32D4 PUSH BC LD B,008H CALL PGM334D POP BC RET PGM32DC LD A,B AND A RET Z LD A,(HL) CALL PGM32C6 INC HL DEC B JR PGM32DC PGM32E7 BIT 0,(IX+002H) RET NZ PUSH AF XOR A CALL PGM331C POP AF PUSH AF PUSH BC LD B,004H CALL PGM333F POP BC POP AF CP 00FH RET Z CP 005H JR C,PGM330A PUSH AF CALL PGM3332 POP AF CP 009H RET NC PGM330A LD A,C LD B,003H CALL PGM333F PGM3310 LD A,(HL) CALL PGM27CC CALL PGM32D4 INC HL DEC C JR NZ,PGM3310 RET PGM331C SCF CALL PGM3354 PGM3320 PUSH BC LD B,002H CALL PGM333F POP BC RET PGM3328 CALL PGM324D CALL PGM3270 SCF CALL PGM3354 PGM3332 LD A,B CALL PGM3320 LD A,E CALL PGM32D4 LD A,D CALL PGM32D4 RET PGM333F PUSH BC PUSH AF LD A,009H SUB B LD C,A POP AF PGM3346 DEC C JR Z,PGM334C ADD A,A JR PGM3346 PGM334C POP BC PGM334D ADD A,A CALL PGM3354 DJNZ PGM334D RET PGM3354 PUSH AF LD A,(DAT3F6C) CP 002H JR NZ,PGM3375 BIT 0,(IX+000H) JR Z,PGM3375 POP AF PUSH AF LD A,(DAT33A0) RLA LD (DAT33A0),A LD A,(DAT33A1) DEC A LD (DAT33A1),A CALL Z,PGM3377 PGM3375 POP AF RET PGM3377 PUSH HL PUSH DE PUSH BC PUSH AF LD A,(DAT33A0) LD HL,DAT3CBD CALL PGM3803 LD A,008H LD (DAT33A1),A POP AF POP BC POP DE POP HL RET PGM338E LD A,(DAT33A1) CP 008H RET Z LD B,A LD A,(DAT33A0) PGM3398 ADD A,A DJNZ PGM3398 LD (DAT33A0),A JR PGM3377 DAT33A0 DB 000H DAT33A1 DB 000H PGM33A2 BIT 0,(IX+002H) RET Z CALL PGM28EB SUB A INC A RET PGM33AD PUSH AF LD A,(DAT3F6C) CP 002H JR Z,PGM33B7 POP AF RET PGM33B7 POP AF PUSH HL PUSH DE PUSH BC PUSH AF LD A,(DAT3F7A) AND A JR Z,PGM33D2 CALL PGM33FE SUB A LD (DAT3F7A),A LD (DAT3FDB),A LD HL,(DAT46A8) LD (DAT3FD9),HL PGM33D2 LD HL,DAT3FDC LD A,(DAT3FDB) CALL PGM2703 POP AF LD (HL),A LD A,(DAT3FDB) INC A LD (DAT3FDB),A CP 01CH JR C,PGM33FA CALL PGM33FE LD HL,(DAT3FD9) LD A,01CH CALL PGM2703 LD (DAT3FD9),HL SUB A LD (DAT3FDB),A PGM33FA POP BC POP DE POP HL RET PGM33FE LD A,(DAT3FDB) AND A RET Z PGM3403 BIT 0,(IX+000H) RET Z LD A,03AH CALL PGM3464 LD A,(DAT3FDB) LD B,A LD E,000H CALL PGM3443 LD HL,(DAT3FD9) LD A,H CALL PGM3443 LD A,L CALL PGM3443 SUB A CALL PGM3443 LD HL,DAT3FDC INC B PGM3429 DEC B JR Z,PGM3433 LD A,(HL) CALL PGM3443 INC HL JR PGM3429 PGM3433 LD A,E NEG CALL PGM3443 LD A,00DH CALL PGM3464 LD A,00AH JP PGM3464 PGM3443 PUSH AF ADD A,E LD E,A POP AF PUSH HL PUSH DE PUSH BC PUSH AF RRA RRA RRA RRA CALL PGM345A POP AF CALL PGM345A POP BC POP DE POP HL RET PGM345A AND 00FH CP 00AH JR C,PGM3462 ADD A,007H PGM3462 ADD A,030H PGM3464 LD HL,DAT3CBD JP PGM3803 PGM346A LD A,(DE) AND A RET Z PUSH DE LD E,A LD C,002H CALL MOD0005 POP DE INC DE JR PGM346A PGM3478 CALL PGM1A30 JR NZ,PGM3491 CALL PGM34BD JR NZ,PGM3491 LD HL,DAT3F55 LD A,(HL) AND A RET Z DEC (HL) LD HL,DAT349D CALL PGM351C JR PGM3478 PGM3491 LD HL,(DAT4796) CALL PGM2708 LD (DAT4796),HL SUB A INC A RET DAT349D DB 009H,009H,009H,028H,02AH,02AH,02AH,02AH DB 02AH,020H DB 'end of include *****)',CR PGM34BD LD HL,DAT4983 LD DE,DAT4986 LD BC,DAT0003 LDIR LD HL,DAT3C19 LD A,(DAT3F55) BIT 7,(IX+001H) CALL Z,PGM350F LD DE,DAT4798 LD B,064H PGM34DA PUSH DE PUSH BC CALL PGM37C2 POP BC POP DE RET Z AND 07FH CP 01AH RET Z LD (DE),A CP 00DH JR Z,PGM34FF CP 009H JR Z,PGM34F8 CP 00EH JR Z,PGM34F8 CP 020H JR C,PGM34DA PGM34F8 INC DE DJNZ PGM34DA INC B DEC DE JR PGM34DA PGM34FF INC A RET PGM3501 PUSH HL INC HL INC HL INC HL EX DE,HL LD C,086H CALL MOD0005 POP HL JP PGM3766 PGM350F LD HL,DAT38E5 AND A RET Z LD DE,DAT00A4 PGM3517 ADD HL,DE DEC A JR NZ,PGM3517 RET PGM351C LD B,(HL) LD A,B OR A RET Z CALL PGM352A LD A,(HL) CP 00DH RET Z INC HL JR PGM351C PGM352A RES 7,B CALL PGM3586 RET NZ PUSH HL PUSH DE PUSH BC LD A,(DAT3F57) CP (IX-001H) CALL NC,PGM35B4 LD A,B CP 00DH JR NZ,PGM354D CALL PGM3679 SUB A LD (DAT3F4E),A INC (IX+006H) JR PGM3582 PGM354D LD A,(DAT3F4E) CP (IX-004H) JR C,PGM356B PGM3555 BIT 6,(IX+002H) JR NZ,PGM3582 CALL PGM07B6 LD B,009H CALL PGM352A CALL PGM352A CALL PGM352A POP BC PUSH BC PGM356B LD HL,DAT3F4E INC (HL) LD A,B CP 009H JR NZ,PGM357F LD A,(HL) ADD A,007H AND 0F8H LD (HL),A CP (IX-004H) JR NC,PGM3555 PGM357F CALL PGM3679 PGM3582 POP BC POP DE POP HL RET PGM3586 LD A,(DAT3F83) AND A JR NZ,PGM35B2 BIT 4,(IX+002H) JR NZ,PGM35B2 BIT 5,(IX+002H) RET NZ BIT 0,(IX+003H) RET NZ BIT 6,(IX+001H) JR NZ,PGM35B2 BIT 1,(IX+001H) JR NZ,PGM35AD BIT 2,(IX+003H) RET Z PGM35AD LD A,(DAT3F7F) AND A RET PGM35B2 SUB A RET PGM35B4 PUSH BC SET 1,(IX+002H) LD A,(DAT3F4F) AND A JR NZ,PGM35C6 LD B,00CH CALL PGM3679 JR PGM35D7 PGM35C6 INC (IX+006H) JR NZ,PGM35CE ADD A,(IX-001H) PGM35CE LD C,A PGM35CF LD B,00DH CALL PGM3679 DEC C JR NZ,PGM35CF PGM35D7 SUB A LD (DAT3F57),A LD (DAT3F4E),A LD HL,DAT362F CALL PGM351C LD A,(DAT3F4D) SUB 04BH JR NC,PGM35EC SUB A PGM35EC SRA A LD C,A PUSH BC CALL PGM3627 LD HL,DAT365B CALL PGM351C POP BC CALL PGM3627 LD HL,DAT3672 CALL PGM351C LD HL,(DAT4989) CALL PGM2708 LD (DAT4989),HL CALL PGM27DD CALL PGM07B6 LD HL,DAT46CE CALL PGM351C LD HL,DAT4732 CALL PGM351C CALL PGM07B6 RES 1,(IX+002H) POP BC RET PGM3627 INC C PGM3628 DEC C RET Z CALL PGM26FE JR PGM3628 DAT362F DB 'CROMEMCO Z80 Macro Assembler version' DB ' 03.07 ' DB 000H DAT365B DB 'MON XX, 19XX ' DAT3669 DB 'XX:XX:XX' DB 000H DAT3672 DB 020H,050H,061H,067H,065H,020H,000H PGM3679 LD A,(DAT3F84) AND A JR NZ,PGM368B LD A,(DAT3F6C) CP 002H RET NZ LD A,(DAT3F83) AND A JR Z,PGM3696 PGM368B BIT 1,(IX+002H) JR NZ,PGM3696 CALL PGM36C0 JR PGM369D PGM3696 BIT 6,(IX+000H) CALL NZ,PGM36C0 PGM369D PUSH BC BIT 7,(IX+000H) CALL NZ,PGM36C9 LD A,B LD HL,DAT3D61 BIT 1,(IX+000H) CALL NZ,PGM3803 POP BC LD A,B LD B,00AH CP 00DH JR Z,PGM3679 RET PGM36B9 LD B,00DH CALL PGM36C0 LD B,00AH PGM36C0 PUSH BC LD E,B LD C,002H CALL MOD0005 POP BC RET PGM36C9 LD A,B CP 009H JR Z,PGM36ED CP 00DH JR Z,PGM36E7 CP 020H JR C,PGM36DA LD HL,DAT3700 INC (HL) PGM36DA PUSH HL PUSH DE PUSH BC LD E,B LD C,005H CALL MOD0005 POP BC POP DE POP HL RET PGM36E7 SUB A LD (DAT3700),A JR PGM36DA PGM36ED LD A,(DAT3700) LD B,A AND 0F8H ADD A,008H SUB B LD C,A LD B,020H PGM36F9 CALL PGM36C9 DEC C JR NZ,PGM36F9 RET DAT3700 DB 000H PGM3701 LD HL,DAT3D61 JP PGM3864 PGM3707 LD A,(DAT3F6C) DEC A RET NZ LD A,(DE) AND A RET M CP 020H RET Z PUSH BC PUSH DE PUSH BC LD B,008H CALL PGM37F7 POP AF CALL PGM3803 LD A,(DAT4797) CALL PGM3803 LD A,(DAT4796) CALL PGM3803 POP DE POP BC RET PGM372D PUSH HL PUSH BC LD BC,DAT0010 LDIR LD HL,DATFFF9 ADD HL,DE EX DE,HL POP HL LD BC,DAT0003 LDIR POP HL RET PGM3741 LD HL,DAT38E5 CALL PGM3766 RET NZ LD DE,DAT374E JP PGM05FB DAT374E DB 'Source file not found',CR DW DAT000A PGM3766 PUSH HL CALL PGM3887 LD (IY+00FH),000H LD (IY+000H),080H LD (IY+023H),000H POP DE INC DE INC DE INC DE LD C,00FH CALL MOD0005 CP 0FFH RET PGM3782 PUSH HL CALL PGM3887 LD (IY+000H),000H LD (IY+00FH),000H LD (IY+023H),000H POP DE INC DE INC DE INC DE LD C,013H CALL MOD0005 LD C,016H CALL MOD0005 CP 0FFH LD C,00FH JP NZ,MOD0005 LD DE,DAT37AD JP PGM05FB DAT37AD DB 'No director' DW PGM2079 DB 'space',CR DW DAT000A PGM37C2 PUSH HL LD A,(HL) CP 080H JR NZ,PGM37DB PUSH HL CALL PGM3887 POP DE INC DE INC DE INC DE LD C,014H CALL MOD0005 DEC A POP HL RET Z PUSH HL LD (HL),000H PGM37DB LD A,(HL) INC (HL) INC HL LD E,(HL) INC HL LD D,(HL) EX DE,HL CALL PGM2703 EX DE,HL LD HL,DAT4985 INC (HL) JR NZ,PGM37F4 DEC HL INC (HL) JR NZ,PGM37F4 DEC HL INC (HL) SUB A INC A PGM37F4 LD A,(DE) POP HL RET PGM37F7 LD A,(DE) PUSH DE PUSH BC CALL PGM3803 POP BC POP DE INC DE DJNZ PGM37F7 RET PGM3803 PUSH HL PUSH AF LD A,(HL) INC HL LD E,(HL) INC HL LD D,(HL) EX DE,HL CALL PGM2703 POP AF LD (HL),A POP HL INC (HL) LD A,(HL) CP 080H RET NZ LD (HL),000H PUSH HL PUSH HL CALL PGM3887 POP DE INC DE INC DE INC DE LD C,015H CALL MOD0005 POP HL AND A RET Z LD DE,DAT0004 ADD HL,DE LD DE,DAT3855 LD BC,DAT0008 LDIR INC DE LD BC,DAT0003 LDIR LD DE,DAT3841 JP PGM05FB DAT3841 DB 'Write error, file - ' DAT3855 DB 'FILENAME.EXT',CR DW DAT000A PGM3864 LD A,01AH CALL PGM3803 LD A,(HL) AND A JR NZ,PGM3864 PUSH HL CALL PGM3887 POP DE INC DE INC DE INC DE LD C,010H JP MOD0005 PGM387A PUSH HL CALL PGM3887 POP DE INC DE INC DE INC DE LD C,013H JP MOD0005 PGM3887 PUSH HL POP IY LD DE,DAT0024 ADD HL,DE EX DE,HL LD (IY+001H),E LD (IY+002H),D LD C,01AH JP MOD0005 PGM389A PUSH HL SUB A LD HL,MOD0000 LD B,00BH PGM38A1 ADD HL,DE ADC A,000H DJNZ PGM38A1 LD C,A EX DE,HL POP HL PUSH HL POP IY LD (IY+00FH),0FFH PGM38B0 PUSH BC PUSH DE CALL PGM3887 POP DE POP BC LD A,E AND 07FH LD (IY+000H),A LD A,E RLA LD A,D RLA AND 07FH PUSH AF LD A,C RL D RLA RL D RLA CP (IY+00FH) LD (IY+00FH),A PUSH IY POP DE INC DE INC DE INC DE LD C,00FH CALL NZ,MOD0005 POP AF LD (IY+023H),A LD C,014H JP MOD0005 DAT38E5 DB 01AH,0CDH,003H DAT38E8 DB 038H,07EH,0A7H,020H,0F7H,0E5H,0CDH DW PGM3887 DB 0D1H,013H,013H,013H,00EH,010H,0C3H DW MOD0005 DB 0E5H,0CDH DW PGM3887 DB 0D1H,013H MOD0000 EQU 000H DAT0002 EQU 002H DAT0003 EQU 003H DAT0004 EQU 004H MOD0005 EQU 005H DAT0006 EQU 006H DAT0008 EQU 008H DAT000A EQU 00AH DAT000B EQU 00BH DAT000C EQU 00CH DAT000D EQU 00DH DAT000E EQU 00EH DAT0010 EQU 010H DAT0012 EQU 012H DAT0016 EQU 016H DAT0021 EQU 021H DAT0023 EQU 023H DAT0024 EQU 024H DAT0032 EQU 032H DAT0050 EQU 050H DAT005C EQU 05CH DAT005D EQU 05DH DAT0064 EQU 064H DAT0065 EQU 065H DAT0066 EQU 066H DAT0067 EQU 067H DAT006E EQU 06EH DAT007F EQU 07FH DAT0081 EQU 081H DAT009A EQU 09AH DAT00A4 EQU 0A4H DAT3989 EQU 03989H DAT398C EQU 0398CH DAT3C19 EQU 03C19H DAT3C1C EQU 03C1CH DAT3C28 EQU 03C28H DAT3CBD EQU 03CBDH DAT3CC0 EQU 03CC0H DAT3CC9 EQU 03CC9H DAT3D61 EQU 03D61H DAT3D64 EQU 03D64H DAT3E05 EQU 03E05H DAT3E08 EQU 03E08H DAT3EA9 EQU 03EA9H DAT3EAC EQU 03EACH DAT3F4D EQU 03F4DH DAT3F4E EQU 03F4EH DAT3F4F EQU 03F4FH DAT3F50 EQU 03F50H DAT3F51 EQU 03F51H DAT3F55 EQU 03F55H DAT3F56 EQU 03F56H DAT3F57 EQU 03F57H DAT3F58 EQU 03F58H DAT3F5A EQU 03F5AH DAT3F5C EQU 03F5CH DAT3F64 EQU 03F64H DAT3F6C EQU 03F6CH DAT3F6D EQU 03F6DH DAT3F6E EQU 03F6EH DAT3F6F EQU 03F6FH DAT3F70 EQU 03F70H DAT3F72 EQU 03F72H DAT3F74 EQU 03F74H DAT3F76 EQU 03F76H DAT3F78 EQU 03F78H DAT3F7A EQU 03F7AH DAT3F7B EQU 03F7BH DAT3F7D EQU 03F7DH DAT3F7E EQU 03F7EH DAT3F7F EQU 03F7FH DAT3F80 EQU 03F80H DAT3F81 EQU 03F81H DAT3F83 EQU 03F83H DAT3F84 EQU 03F84H DAT3F85 EQU 03F85H DAT3F86 EQU 03F86H DAT3F87 EQU 03F87H DAT3F88 EQU 03F88H DAT3F89 EQU 03F89H DAT3F8A EQU 03F8AH DAT3FD6 EQU 03FD6H DAT3FD7 EQU 03FD7H DAT3FD9 EQU 03FD9H DAT3FDB EQU 03FDBH DAT3FDC EQU 03FDCH DAT3FF8 EQU 03FF8H DAT3FF9 EQU 03FF9H DAT3FFA EQU 03FFAH DAT3FFC EQU 03FFCH DAT3FFE EQU 03FFEH DAT43D2 EQU 043D2H DAT43D3 EQU 043D3H DAT43D4 EQU 043D4H DAT44D3 EQU 044D3H DAT44D4 EQU 044D4H DAT44D5 EQU 044D5H DAT44D6 EQU 044D6H DAT4600 EQU 04600H DAT4602 EQU 04602H DAT4604 EQU 04604H DAT4606 EQU 04606H DAT4624 EQU 04624H DAT469C EQU 0469CH DAT469E EQU 0469EH DAT46A0 EQU 046A0H DAT46A2 EQU 046A2H DAT46A4 EQU 046A4H DAT46A5 EQU 046A5H DAT46A6 EQU 046A6H DAT46A8 EQU 046A8H DAT46AA EQU 046AAH DAT46AC EQU 046ACH DAT46AE EQU 046AEH DAT46B0 EQU 046B0H DAT46CE EQU 046CEH DAT4732 EQU 04732H DAT4796 EQU 04796H DAT4797 EQU 04797H DAT4798 EQU 04798H DAT4799 EQU 04799H DAT47FC EQU 047FCH DAT4860 EQU 04860H DAT486A EQU 0486AH DAT486B EQU 0486BH DAT486C EQU 0486CH DAT486D EQU 0486DH DAT487C EQU 0487CH DAT487E EQU 0487EH DAT487F EQU 0487FH DAT4914 EQU 04914H DAT4915 EQU 04915H DAT497A EQU 0497AH DAT497B EQU 0497BH DAT4983 EQU 04983H DAT4984 EQU 04984H DAT4985 EQU 04985H DAT4986 EQU 04986H DAT4989 EQU 04989H DAT4A53 EQU 04A53H DAT4C53 EQU 04C53H DAT4C55 EQU 04C55H DAT4C57 EQU 04C57H DAT4C59 EQU 04C59H DAT4D57 EQU 04D57H DATFFF5 EQU 0FFF5H DATFFF9 EQU 0FFF9H DATFFFF EQU 0FFFFH BELL EQU 007H HTAB EQU 009H LF EQU 00AH FORM EQU 00CH CR EQU 00DH END