eaw/RFS
1
0
Fork 0
Code Issues Packages Projects Releases 3 Wiki Activity
Files
main
RFS/asm/1z-013b.asm

15771 lines
404 KiB
NASM
Raw Permalink Blame History

; Disassembly of the file "1z-013b.bin"
;
; CPU Type: Z80
;
; Created with dZ80 2.1
;
; on Monday, 16 of March 2026 at 02:47 PM
;
LSD0 EQU 0D0H
LSD1 EQU 0D1H
LSD2 EQU 0D2H
LSD3 EQU 0D3H
LSD4 EQU 0D4H
LSD5 EQU 0D5H
LSD6 EQU 0D6H
LSD7 EQU 0D7H
LSE0 EQU 0E0H
LSE1 EQU 0E1H
LSE2 EQU 0E2H
LSE3 EQU 0E3H
LSE4 EQU 0E4H
LSE5 EQU 0E5H
LSE6 EQU 0E6H
LSE8 EQU 0E8H
APTS EQU 010F0H
NAME EQU 010F1H
SIZE EQU 01102H
DTADR EQU 01104H
EXADR EQU 01106H
COMNT EQU 01108H
DTEFG EQU 01171H
DTEFGX EQU 01172H
TEMPW EQU 01178H
TMCNT EQU 01180H
SUMDT EQU 01183H
KEYBM1 EQU 0118AH
KEYBUF EQU 0118BH
DSPXY EQU 01171H
TEXTST EQU 01070H
TEXTED EQU 01072H
VARST EQU 01074H
STRST EQU 01076H
VARED EQU 01078H
TMPEND EQU 0107AH
INTFAC EQU 0107CH
MEMLMT EQU 0107EH
MEMMAX EQU 01080H
VRAM EQU 0D000H
ARAM EQU 0D800H
MMAPIO EQU 0E000H
MEMSWAP EQU 0E008H
SCRNEN EQU 0E010H
SCRNDI EQU 0E014H
INBUFC EQU 01352H
INBUFL EQU 01353H
INBUF EQU 01354H
MONIT EQU 00000H
GETL EQU 00003H
LETNL EQU 00006H
NL EQU 00009H
PRNTS EQU 0000CH
PRNTT EQU 0000FH
PRNT EQU 00012H
MSG EQU 00015H
MSGX EQU 00018H
GETKY EQU 0001BH
BRKEY EQU 0001EH
WRINF EQU 00021H
WRDAT EQU 00024H
RDINF EQU 00027H
RDDAT EQU 0002AH
VERFY EQU 0002DH
MELDY EQU 00030H
TIMST EQU 00033H
TIMRD EQU 00036H
BELL EQU 00039H
XTEMP EQU 0003CH
MSTA EQU 0003FH
MSTP EQU 00042H
RST38 EQU 00038H
ATRB EQU 010F0H
PRGSTART EQU 01200H
BUILD_ORIG EQU 1
BUILD_RFS EQU 0
; Create an MZF Tape header.
ORG ATRB
; Declare the MZF header to bootstrap BASIC from tape/SD.
BOOTATRB: DB 01h ; Code Type, 01 = Machine Code.
BOOTNAME: IF BUILD_ORIG = 1
DB "BASIC 1Z-013B ", 0Dh ; Title/Name (17 bytes).
ENDIF
IF BUILD_RFS = 1
DB "BASIC 1Z-013BRFS", 0Dh ; Title/Name (17 bytes).
ENDIF
BOOTSIZE: DW BASICEND - TAPECOPY ; Size of program.
BOOTDTADR: DW TAPECOPY ; Load address of program.
BOOTEXADR: DW EXECSTART ; Exec address of program.
BOOTCOMNT: DS 104
ORG PRGSTART
TAPECOPY: JP 000DAH ; Cold start entry - JP to initialization
JP 00120H
JP 004FEH
JP 004FAH
JP 00531H
JP 00502H
JP 00533H
JP 004DAH
JP 004DAH
JP 002F0H
JP 004A0H
JP 00A3BH
JP 00A3FH
JP 00A7AH
JP 00A7EH
JP 00A94H
JP 008E4H
JP 00D5AH
EX DE,HL
NOP
JP 00DE4H
JP 00DA7H
JP 00A13H
JP 00A04H
JP 009B7H
JP 009D2H
DB 0C3H
DB 020H
DB 001H
DS 2, 000H
DB 0FFH
DB 000H
DB 0C3H
DB 0DAH
DB 004H
L1254: DS 3, 000H
DB 018H
DB 0C3H
DB 053H
DB 002H
DB 000H
DB 027H
L125D: DB 071H
DS 2, 000H
DB 0EFH
DB 0C3H
DB 06AH
DB 00EH
DS 3, 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0FEH
DB 007H
DB 0F8H
DB 007H
DB 0E9H
DB 000H
L1277: DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 08DH
DB 007H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 004H
DB 008H
DB 0B1H
DB 007H
DB LSD6
DB 007H
DB 0B7H
DB 007H
DB 0DBH
DB 007H
DB 0F9H
DB 006H
DB 01EH
DB 007H
DB 0FBH
DB 007H
DB 0A6H
DB 008H
DB 0F8H
DB 007H
DB 0E9H
DB 000H
L129D: DB 08DH
DB 007H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DB 000H
DB 0E9H
DS 52, 000H ; Zero padding / work area
DI
LD SP,MONIT
IM 1
OUT (LSE1),A
XOR A
LD (L1819),A
L12E6: JP 01822H
RET
DI
OUT (LSE3),A
LD A,(HL)
OUT (LSE1),A
EI
RET
DI
OUT (LSE3),A
LD (HL),A
OUT (LSE1),A
EI
RET
PUSH HL
LD HL,(00054H)
PUSH HL
PUSH DE
CALL 005AEH
POP DE
LD (HL),000H
POP HL
CALL 00120H
JR C,L131A ; (+00eH)
LD A,(0005BH)
SUB L
JR NC,L131A ; (+008H)
NEG
LD L,A
LD H,000H
ADD HL,DE
EX DE,HL
OR A
L131A: POP HL
RET
DEC D
L131D: LD D,010H
JR L12E6 ; (-03bH)
PUSH HL
L1322: PUSH DE
JR L1329 ; (+004H)
L1325: POP AF
L1326: CALL 00A12H
L1329: CALL 0025BH
CP 00DH
JP Z,001D7H
CP 01BH
JP Z,001ADH
PUSH AF
CP 020H
JR NC,L138A ; (+04fH)
JR L1390 ; (+053H)
L133D: LD A,(0004DH)
OR A
JR NZ,L1360 ; (+01dH)
LD A,(00EE9H)
RRCA
JR C,L1360 ; (+017H)
LD A,(0004EH)
OR A
JR NZ,L1360 ; (+011H)
POP AF
LD HL,00129H
PUSH HL
CP 011H
JP Z,00655H
CP 012H
JP Z,0067DH
POP HL
L135F: PUSH AF
L1360: LD A,(0004DH)
OR A
JR Z,L138A ; (+024H)
LD HL,0011CH
POP AF
LD B,004H
L136C: CP (HL)
JR Z,L1326 ; (-049H)
INC HL
DJNZ L136C ; (-006H)
PUSH AF
LD DE,(00054H)
LD HL,(0005BH)
CP 014H
JR Z,L1386 ; (+008H)
CP 012H
JR NZ,L138A ; (+008H)
LD HL,(00056H)
LD E,D
L1386: LD A,L
CP E
JR NC,L1325 ; (-065H)
L138A: POP AF
CALL 00533H
JR L1329 ; (-067H)
L1390: LD A,(00060H)
CP 0FFH
JR NZ,L133D ; (-05aH)
POP AF
CP 017H
JR NC,L135F ; (-03dH)
CP 011H
JR C,L135F ; (-041H)
LD HL,(00EE9H)
BIT 6,L
JR Z,L135F ; (-048H)
CALL 0055EH
JP 00129H
SCF
PUSH AF
LD A,00DH
CALL 00533H
POP AF
POP DE
POP HL
POP BC
RET
CALL 005AEH
L13BC: LD A,(HL)
OR A
RET Z
DEC HL
DEC E
LD A,(00056H)
CP E
JR C,L13BC ; (-00bH)
RET
CALL 005AEH
L13CB: INC E
INC HL
LD A,(HL)
OR A
RET Z
LD A,(00057H)
CP E
JR NC,L13CB ; (-00bH)
RET
LD HL,(00054H)
CALL 001B9H
LD D,E
CALL 001CBH
LD A,(0005BH)
LD L,A
LD A,E
SUB D
LD E,A
LD H,D
LD D,L
CALL 005B9H
LD A,(0005CH)
SUB D
INC A
LD D,A
POP BC
PUSH BC
EXX
PUSH HL
LD HL,(0004FH)
EXX
L13FB: PUSH DE
PUSH HL
CALL 000EAH
CALL 004B6H
INC HL
LD (BC),A
INC BC
EXX
DEC L
JR Z,L141D ; (+013H)
EXX
L140B: DEC D
JP NZ,001FDH
POP HL
PUSH BC
LD BC,00028H
L1414: ADD HL,BC
POP BC
POP DE
DEC E
JR NZ,L13FB ; (-01fH)
PUSH DE
PUSH HL
L141C: EXX
L141D: EXX
POP HL
POP DE
EXX
POP HL
EXX
XOR A
LD (BC),A
LD L,C
LD H,B
POP DE
PUSH DE
PUSH HL
OR A
SBC HL,DE
LD B,L
POP HL
LD A,020H
LD D,A
JP Z,001AEH
DEC HL
L1436: LD A,(HL)
OR A
JR Z,L143F ; (+005H)
CP D
JR NZ,L1446 ; (+009H)
LD (HL),000H
L143F: DEC HL
DJNZ L1436 ; (-00cH)
OR A
JP 001AEH
L1446: LD A,(HL)
OR A
JR NZ,L144C ; (+002H)
LD (HL),020H
L144C: DEC HL
DJNZ L1446 ; (-009H)
OR A
JP 001AEH
INC A
JP Z,002D8H
DEC A
JP Z,002F0H
CALL 002FAH
PUSH BC
PUSH HL
PUSH DE
CALL 005B6H
CALL 000EAH
LD D,A
LD A,(00060H)
LD E,A
CALL 000F2H
XOR A
DI
OUT (LSE3),A
LD (MMAPIO),A
CPL
LD (MMAPIO),A
OUT (LSE1),A
EI
LD C,000H
EX AF,AF'
PUSH AF
CALL 00333H
L1484: LD A,060H
L1486: EX AF,AF'
L1487: LD B,010H
L1489: CALL 00313H
CALL 00333H
BIT 1,A
JR NZ,L1487 ; (-00cH)
DJNZ L1489 ; (-00cH)
BIT 0,A
JR Z,L14AA ; (+011H)
BIT 2,A
JR NZ,L14BB ; (+01eH)
EX AF,AF'
DEC A
JR NZ,L1486 ; (-01bH)
LD A,000H
OR A
JR NZ,L1487 ; (-01fH)
LD A,006H
JR L14BD ; (+013H)
L14AA: PUSH HL
PUSH DE
PUSH BC
LD HL,00EF2H
LD DE,00EE8H
LD BC,0000AH
LDIR
POP BC
POP DE
POP HL
L14BB: LD A,060H
L14BD: LD (00285H),A
L14C0: CALL 00313H
CALL 00371H
OR A
JR Z,L14C0 ; (-009H)
LD (0005FH),A
LD C,A
LD A,D
CALL 000F2H
POP AF
EX AF,AF'
LD A,C
POP DE
POP HL
POP BC
RET
CALL 002FAH
PUSH HL
L14DC: LD HL,(0005FH)
CALL 00371H
OR A
JR Z,L14EB ; (+006H)
CP L
JR NZ,L14EB ; (+003H)
POP HL
XOR A
RET
L14EB: POP HL
LD (0005FH),A
RET
CALL 002FAH
CALL 00371H
LD (0005FH),A
RET
PUSH HL
LD HL,(00ED0H)
LD A,L
CP H
POP HL
L1501: RET Z
EX (SP),HL
PUSH BC
INC A
LD (00ED0H),A
LD L,A
LD H,000H
LD BC,00ED2H
ADD HL,BC
LD A,(HL)
POP BC
POP HL
RET
DI
OUT (LSE3),A
LD A,(0E002H)
OUT (LSE1),A
L151B: EI
RLCA
RLCA
LD A,C
JR C,L152A ; (+009H)
OR A
L1522: RET Z
LD C,000H
LD A,D
CALL 000F2H
RET
L152A: DEC A
RET Z
LD C,001H
LD A,E
CALL 000F2H
RET
PUSH BC
PUSH HL
PUSH DE
LD DE,00EF2H
LD HL,00EE8H
LD BC,00A00H
DI
OUT (LSE3),A
L1542: LD A,B
ADD A,0EFH
LD (MMAPIO),A
CP 0F8H
LD A,(0E001H)
JR NZ,L1551 ; (+002H)
OR 07FH
L1551: CP 0FFH
JR Z,L1557 ; (+002H)
SET 0,C
L1557: EX DE,HL
CP (HL)
LD (HL),A
EX DE,HL
JR Z,L155F ; (+002H)
SET 1,C
L155F: CPL
AND (HL)
JR Z,L1565 ; (+002H)
SET 2,C
L1565: INC HL
INC DE
DJNZ L1542 ; (-027H)
LD A,C
L156A: OUT (LSE1),A
EI
L156D: POP DE
POP HL
POP BC
RET
PUSH BC
PUSH HL
PUSH DE
LD HL,00EE8H
LD DE,00EF2H
PUSH HL
PUSH DE
LD BC,0000AH
LDIR
POP HL
POP DE
LD BC,00AF9H
DI
OUT (LSE3),A
LD A,C
LD (MMAPIO),A
NOP
LD A,(0E001H)
LD (DE),A
L1592: LD A,C
LD (MMAPIO),A
CP 0F8H
LD A,(0E001H)
LD (DE),A
JR Z,L15C1 ; (+023H)
CPL
AND (HL)
L15A0: LD (HL),A
INC DE
L15A2: INC HL
DEC C
DJNZ L1592 ; (-014H)
OUT (LSE1),A
EI
LD BC,00A00H
L15AC: DEC HL
LD A,(HL)
OR A
JR NZ,L15E4 ; (+033H)
INC C
DJNZ L15AC ; (-008H)
LD B,00AH
L15B6: DEC DE
LD A,(DE)
CP 0FFH
JR NZ,L15C4 ; (+008H)
L15BC: DJNZ L15B6 ; (-008H)
L15BE: XOR A
JR L156A ; (-057H)
L15C1: XOR A
JR L15A0 ; (-024H)
L15C4: LD A,B
CP 002H
JR NZ,L15D2 ; (+009H)
LD A,(DE)
AND 081H
JR NZ,L15BC ; (-012H)
LD A,01BH
JR L156A ; (-068H)
L15D2: CP 001H
JR Z,L15BE ; (-018H)
CP 000H
JR NZ,L15BC ; (-01eH)
LD A,(DE)
AND 001H
JR NZ,L15BC ; (-023H)
LD A,(0005FH)
JR L156A ; (-07aH)
L15E4: PUSH AF
LD A,B
LD (003D7H),A
LD A,(HL)
L15EA: LD (003DCH),A
POP AF
DEC B
L15EF: JR NZ,L1629 ; (+038H)
CALL 00496H
LD A,(00EE9H)
BIT 6,A
JR Z,L15BE ; (-03dH)
BIT 0,A
LD A,B
JR NZ,L1602 ; (+002H)
ADD A,005H
L1602: LD L,A
LD H,000H
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD BC,L1322
ADD HL,BC
LD DE,00ED0H
XOR A
LD (DE),A
INC DE
LD BC,00010H
LDIR
LD A,(00ED1H)
OR A
JP Z,003BEH
DEC A
LD (00ED1H),A
LD A,(00ED2H)
JP 0036AH
L1629: CALL 00496H
LD L,C
LD H,000H
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD C,B
LD B,000H
ADD HL,BC
LD A,(00EE9H)
BIT 6,A
LD BC,0121DH
JR Z,L166F ; (+02fH)
PUSH AF
LD A,(00060H)
CP 043H
JR NZ,L164E ; (+006H)
EX (SP),HL
LD A,001H
XOR H
LD H,A
EX (SP),HL
L164E: POP AF
BIT 0,A
JR NZ,L1656 ; (+003H)
LD BC,L125D
L1656: LD A,(00060H)
CP 0FFH
JR NZ,L166A ; (+00dH)
LD BC,012DDH
LD A,(00EE9H)
BIT 0,A
JR Z,L166A ; (+003H)
LD BC,L129D
L166A: ADD HL,BC
LD A,(HL)
JP 0036AH
L166F: ADD HL,BC
LD A,(HL)
L1671: CP 020H
JP C,0036AH
LD HL,L131D
LD B,005H
L167B: CP (HL)
JR Z,L1690 ; (+012H)
L167E: INC HL
DJNZ L167B ; (-006H)
CP 040H
JP C,003BEH
CP 05BH
JP NC,003BEH
SUB 040H
JP 0036AH
L1690: LD A,020H
SUB B
JP 0036AH
LD B,008H
L1698: RRCA
JR C,L169E ; (+003H)
L169B: DJNZ L1698 ; (-005H)
RET
L169E: DEC B
RET
L16A0: LD A,LSE8
DI
OUT (LSE3),A
LD (MMAPIO),A
NOP
LD A,(0E001H)
OUT (LSE1),A
EI
AND 081H
RET Z
RLCA
RET C
JR L16A0 ; (-016H)
PUSH HL
PUSH BC
L16B8: LD HL,00EFCH
LD B,000H
L16BD: CP (HL)
L16BE: JR Z,L16C7 ; (+007H)
INC HL
DJNZ L16BD ; (-006H)
XOR A
POP BC
POP HL
RET
L16C7: LD A,000H
SUB B
POP BC
POP HL
RET
PUSH HL
PUSH BC
LD C,A
LD B,000H
LD HL,00EFCH
ADD HL,BC
LD A,(HL)
POP BC
POP HL
RET
PUSH DE
L16DB: LD A,(DE)
OR A
JR Z,L16E5 ; (+006H)
CALL 00533H
INC DE
JR L16DB ; (-00aH)
L16E5: POP DE
RET
PUSH HL
LD HL,(00054H)
LD A,(0005BH)
L16EE: CP L
JR C,L16F8 ; (+007H)
PUSH DE
CALL 005AEH
LD A,(HL)
OR A
POP DE
L16F8: POP HL
RET
CALL 004E7H
RET Z
LD A,00DH
JR L1733 ; (+031H)
L1702: CALL PRNTS
LD A,(00054H)
L1708: SUB 00AH
JR NC,L1708 ; (-004H)
ADD A,00AH
RET Z
JR L1702 ; (-00fH)
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC E
NOP
NOP
NOP
NOP
NOP
DEC C
L171F: NOP
NOP
NOP
LD A,(BC)
INC BC
JR NZ,L1734 ; (+00eH)
NOP
NOP
NOP
NOP
NOP
NOP
L172C: DEC C
NOP
NOP
NOP
NOP
LD A,020H
L1733: PUSH HL
L1734: PUSH DE
PUSH BC
PUSH AF
CALL 0056DH
LD A,(0004DH)
OR A
JR Z,L1759 ; (+019H)
POP AF
PUSH AF
CP 020H
JR NC,L1754 ; (+00eH)
LD L,A
LD H,000H
LD DE,00511H
ADD HL,DE
LD A,(HL)
OR A
CALL NZ,L167E
JR L1759 ; (+005H)
L1754: POP AF
PUSH AF
CALL L1762
L1759: POP AF
POP BC
POP DE
POP HL
RET
PUSH HL
PUSH DE
PUSH BC
PUSH AF
L1762: CALL 00572H
LD A,(0004DH)
OR A
JR NZ,L1754 ; (-017H)
JR L1759 ; (-014H)
CP 020H
JP C,005D2H
L1772: LD HL,(00054H)
PUSH HL
PUSH AF
CALL 005B9H
POP AF
CALL 004CDH
CALL 000F2H
SET 3,H
LD A,(0005DH)
CALL 000F2H
POP HL
INC L
LD A,(0005CH)
CP L
JP NC,007D2H
LD A,(0005BH)
LD L,A
INC H
PUSH HL
CALL 005AEH
LD (HL),001H
POP HL
LD A,(00057H)
CP H
JP NC,007D2H
LD H,A
PUSH HL
CALL 006A5H
POP HL
JP 007D2H
LD E,H
LD D,000H
LD HL,000A7H
ADD HL,DE
RET
LD HL,(00054H)
PUSH DE
CALL 005C5H
LD D,LSD0
ADD HL,DE
POP DE
RET
LD HL,(00054H)
LD E,L
LD L,H
LD H,000H
LD C,L
LD B,H
ADD HL,HL
ADD HL,HL
ADD HL,BC
ADD HL,HL
ADD HL,HL
ADD HL,HL
RET
LD L,A
L17D3: LD H,000H
ADD HL,HL
LD BC,00067H
ADD HL,BC
LD C,(HL)
INC HL
LD H,(HL)
LD L,C
JP (HL)
LD BC,00028H
L17E2: LD (005F0H),BC
EXX
PUSH BC
EXX
L17E9: LD B,H
LD C,L
DEC D
JR Z,L1817 ; (+029H)
PUSH DE
LD HL,00028H
ADD HL,BC
PUSH HL
PUSH HL
EXX
POP BC
EXX
DI
L17F9: OUT (LSE3),A
L17FB: EXX
LD A,(BC)
EXX
LD (BC),A
EXX
L1800: RES 3,B
LD A,(BC)
L1803: SET 3,B
INC BC
EXX
RES 3,B
LD (BC),A
SET 3,B
INC BC
DEC E
L180E: JR NZ,L17FB ; (-015H)
OUT (LSE1),A
EI
POP HL
POP DE
JR L17E9 ; (-02eH)
L1817: LD H,B
LD L,C
L1819: LD BC,(0005DH)
DI
OUT (LSE3),A
L1820: LD (HL),C
RES 3,H
LD (HL),B
SET 3,H
INC HL
DEC E
JR NZ,L1820 ; (-00aH)
OUT (LSE1),A
EI
EXX
POP BC
EXX
RET
LD A,0B0H
JR L1837 ; (+002H)
LD A,0B8H
L1837: LD (00651H),A
LD BC,00028H
PUSH HL
PUSH DE
PUSH BC
CALL 0064EH
POP BC
POP DE
POP HL
LD A,008H
L1848: XOR H
LD H,A
LD A,008H
XOR D
L184D: LD D,A
OUT (LSE3),A
LDIR
OUT (LSE1),A
RET
LD HL,VRAM
LD DE,0D7D0H
DI
CALL 00631H
L185F: LD HL,0D028H
LD DE,VRAM
LD B,032H
L1867: PUSH BC
CALL 00631H
POP BC
DJNZ L1867 ; (-007H)
EI
LD HL,000A7H
L1872: LD E,L
LD D,H
LD A,(HL)
INC HL
L1876: LD BC,00031H
LDIR
LD (DE),A
RET
LD HL,0D7CFH
LD DE,0D7F7H
DI
LD B,032H
L1886: PUSH BC
CALL 00635H
POP BC
DJNZ L1886 ; (-007H)
LD HL,0D7D0H
LD DE,VRAM
CALL 00631H
EI
LD HL,000D9H
LD E,L
LD D,H
DEC HL
LD A,(DE)
LD BC,00031H
LDDR
LD (DE),A
RET
LD A,(0004EH)
OR A
JR NZ,L18D5 ; (+02aH)
LD HL,0D3E8H
LD DE,0D3E9H
LD BC,RDINF
DI
OUT (LSE3),A
LD (HL),000H
LDIR
LD HL,0DBE8H
LD DE,0DBE9H
LD BC,RDINF
LD A,(0005DH)
LD (HL),A
LDIR
OUT (LSE1),A
EI
CALL 00655H
XOR A
LD (000C0H),A
RET
L18D5: CALL 00704H
CALL 005DFH
LD A,(00056H)
LD H,A
CALL 005AEH
LD A,(00057H)
SUB E
LD B,A
LD (HL),000H
INC HL
OR A
JR Z,L18F6 ; (+009H)
LD D,H
LD E,L
INC DE
L18F0: LD A,(DE)
INC DE
LD (HL),A
INC HL
DJNZ L18F0 ; (-006H)
L18F6: LD (HL),000H
RET
LD A,(0005BH)
LD L,A
LD A,(00056H)
LD H,A
JP 007D2H
CALL 006F9H
CALL 005C5H
LD D,0D8H
ADD HL,DE
LD A,(0005CH)
SUB E
INC A
LD E,A
LD A,(00056H)
LD D,A
LD A,(00057H)
SUB D
INC A
LD D,A
RET
LD A,(0004EH)
OR A
JR NZ,L1957 ; (+033H)
LD HL,VRAM
LD DE,0D001H
LD BC,007F8H
DI
OUT (LSE3),A
LD (HL),000H
L1932: LDIR
LD HL,ARAM
LD DE,0D801H
LD BC,007F8H
LD A,(0005DH)
LD (HL),A
LDIR
OUT (LSE1),A
EI
LD HL,000A7H
LD B,033H
XOR A
L194C: LD (HL),A
INC HL
DJNZ L194C ; (-004H)
LD HL,MONIT
LD (00054H),HL
RET
L1957: CALL 00704H
L195A: PUSH DE
PUSH HL
LD A,(0005DH)
DI
OUT (LSE3),A
L1962: LD (HL),A
RES 3,H
LD (HL),000H
SET 3,H
INC HL
DEC E
JR NZ,L1962 ; (-00bH)
OUT (LSE1),A
EI
POP HL
LD BC,00028H
ADD HL,BC
POP DE
DEC D
JR NZ,L195A ; (-01fH)
LD A,(00056H)
LD H,A
CALL 005AEH
LD A,(00057H)
SUB E
ADD A,002H
LD B,A
XOR A
L1988: LD (HL),A
L1989: INC HL
DJNZ L1988 ; (-004H)
RET
LD HL,(00054H)
LD A,(0005DH)
AND 07FH
LD (0005DH),A
PUSH HL
INC H
CALL 005AEH
LD A,(00057H)
LD D,A
L19A1: LD A,(HL)
OR A
JR Z,L19AB ; (+006H)
INC HL
INC E
LD A,D
CP E
JR NC,L19A1 ; (-00aH)
L19AB: DEC E
POP HL
LD H,E
JP 007C1H
LD HL,(00054H)
JP 007C5H
LD HL,(00054H)
INC L
LD A,(0005CH)
CP L
JR NC,L19D2 ; (+011H)
LD A,(0005BH)
LD L,A
INC H
LD A,(00057H)
CP H
JR NC,L19D2 ; (+006H)
LD H,A
PUSH HL
CALL 006A5H
POP HL
L19D2: LD (00054H),HL
RET
LD HL,(00054H)
JR L19E8 ; (+00dH)
LD HL,(00054H)
LD A,(0005BH)
CP L
JR C,019F3H ; (+00fH)
LD A,(0005CH)
LD L,A
L19E8: LD A,(00056H)
CP H
JR C,019F5H ; (+007H)
LD A,(00056H)
LD H,A
LD A,02DH
LD A,025H
JR L19D2 ; (-026H)
LD A,0EFH
LD HL,0FF3EH
LD HL,L433E
LD (00060H),A
RET
LD HL,(00054H)
LD BC,(0005BH)
LD A,L
DEC L
INC C
CP C
JR NC,L1A1D ; (+00cH)
PUSH HL
CALL 005AEH
LD A,(HL)
POP HL
INC L
OR A
JR Z,L1A56 ; (+03bH)
LD L,B
DEC H
L1A1D: LD DE,(00054H)
LD (00054H),HL
EX DE,HL
LD A,(0005BH)
CP L
JR C,L1A4F ; (+024H)
L1A2B: PUSH HL
CALL 005AEH
LD A,(HL)
POP HL
OR A
JR Z,L1A43 ; (+00fH)
CALL 00864H
PUSH HL
LD A,(0005CH)
LD L,A
DEC H
CALL 00880H
POP HL
JR L1A56 ; (+013H)
L1A43: LD A,(0005CH)
LD L,A
DEC H
LD DE,(0005DH)
JP 00880H
L1A4F: CALL 00864H
DEC BC
CALL 0087BH
L1A56: INC L
LD A,(0005CH)
CP L
JR NC,L1A4F ; (-00eH)
LD A,(0005BH)
LD L,A
INC H
JR L1A2B ; (-039H)
PUSH HL
CALL 005C5H
LD D,0D8H
ADD HL,DE
L1A6B: CALL 000EAH
LD E,A
RES 3,H
CALL 000EAH
SET 3,H
L1A76: LD D,A
LD C,L
LD B,H
POP HL
RET
PUSH HL
LD L,C
LD H,B
JR L1A89 ; (+009H)
PUSH HL
PUSH DE
CALL 005C5H
LD D,0D8H
ADD HL,DE
POP DE
L1A89: LD A,E
CALL 000F2H
RES 3,H
LD A,D
CALL 000F2H
SET 3,H
LD C,L
LD B,H
POP HL
RET
LD HL,(00054H)
CALL 001C8H
DEC E
LD H,E
LD A,(0005CH)
LD L,A
RET
CALL 00899H
CALL 00864H
LD A,0F0H
CP D
JR Z,L1AB4 ; (+003H)
XOR A
CP D
RET NZ
L1AB4: LD BC,(0005BH)
EX DE,HL
LD HL,(00054H)
OR A
SBC HL,DE
EX DE,HL
JR Z,L1ADD ; (+01bH)
LD A,C
CP L
JR NC,L1AD0 ; (+00aH)
DEC L
CALL 00864H
INC BC
CALL 0087BH
JR L1AB4 ; (-01cH)
L1AD0: PUSH HL
LD L,B
DEC H
CALL 00864H
EX (SP),HL
CALL 00880H
POP HL
JR L1AB4 ; (-029H)
L1ADD: LD DE,(0005DH)
JP 00880H
PUSH BC
PUSH DE
PUSH HL
LD A,002H
LD (00A38H),A
LD B,001H
L1AEE: LD A,(DE)
CP 00DH
JR Z,L1B31 ; (+03eH)
OR A
JR Z,L1B31 ; (+03bH)
CP 0C8H
JR Z,L1B31 ; (+037H)
CP 0CFH
JR Z,L1B25 ; (+027H)
CP 02DH
JR Z,L1B25 ; (+023H)
CP 02BH
JR Z,L1B2D ; (+027H)
CP LSD7
JR Z,L1B2D ; (+023H)
CP 023H
LD HL,00991H
JR NZ,L1B15 ; (+004H)
LD HL,0099FH
INC DE
L1B15: CALL 0093DH
JR C,L1AEE ; (-02cH)
CALL 009E2H
JR C,L1B34 ; (+015H)
CALL 009B7H
LD B,C
JR L1AEE ; (-037H)
L1B25: LD A,003H
L1B27: LD (00A38H),A
INC DE
JR L1AEE ; (-03fH)
L1B2D: LD A,001H
JR L1B27 ; (-00aH)
L1B31: CALL 009E2H
L1B34: PUSH AF
CALL 009D2H
POP AF
POP HL
POP DE
POP BC
RET
LD A,(DE)
INC DE
CP 052H
JR Z,L1B5E ; (+01bH)
SUB 041H
RET C
CP 007H
CCF
RET C
PUSH DE
LD E,A
LD D,000H
EX DE,HL
ADD HL,HL
ADD HL,DE
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD A,(00A38H)
L1B58: DEC A
JR Z,L1B62 ; (+007H)
ADD HL,HL
JR L1B58 ; (-006H)
L1B5E: PUSH DE
LD HL,MONIT
L1B62: LD (00A39H),HL
LD HL,00A38H
LD (HL),002H
DEC HL
POP DE
LD A,(DE)
PUSH BC
LD B,A
AND 0F0H
CP 030H
JR Z,L1B78 ; (+003H)
LD A,(HL)
JR L1B7D ; (+005H)
L1B78: INC DE
LD A,B
AND 00FH
L1B7C: LD (HL),A
L1B7D: LD HL,009ADH
LD C,A
LD B,000H
ADD HL,BC
LD C,(HL)
LD A,(00A32H)
LD B,A
XOR A
L1B8A: ADD A,C
DJNZ L1B8A ; (-003H)
POP BC
LD C,A
XOR A
RET
CALL PE,L6404
INC B
LD B,(HL)
EX AF,AF'
LD E,A
RLCA
SUB C
LD B,033H
LD B,086H
DEC B
AND L
INC B
INC HL
INC B
RST 008H
RLCA
PUSH AF
LD B,033H
LD B,0DAH
DEC B
SCF
DEC B
LD BC,00302H
INC B
LD B,008H
INC C
DJNZ 01BCEH ; (+018H)
JR NZ,L1BE2 ; (+02aH)
ADD HL,SP
LD A,(BC)
LD A,H
OR L
JR Z,L1BD2 ; (+014H)
PUSH DE
EX DE,HL
LD HL,0E004H
DI
OUT (LSE3),A
LD (HL),E
LD (HL),D
LD A,001H
LD (MEMSWAP),A
OUT (LSE1),A
EI
POP DE
RET
L1BD2: LD A,036H
DI
OUT (LSE3),A
LD (0E007H),A
XOR A
LD (MEMSWAP),A
OUT (LSE1),A
EI
RET
L1BE2: LD HL,MMAPIO
DI
OUT (LSE3),A
LD (HL),0F8H
INC HL
LD A,(HL)
L1BEC: AND 081H
SCF
JR Z,L1C00 ; (+00fH)
L1BF1: LD A,(MEMSWAP)
RRCA
JR C,L1BF1 ; (-006H)
L1BF7: LD A,(MEMSWAP)
RRCA
JR NC,L1BF7 ; (-006H)
DJNZ L1BF1 ; (-00eH)
XOR A
L1C00: OUT (LSE1),A
EI
RET
PUSH AF
PUSH BC
AND 00FH
LD B,A
LD A,008H
SUB B
LD (00A32H),A
POP BC
POP AF
RET
XOR A
PUSH HL
LD HL,003F8H
JR Z,L1C22 ; (+009H)
CP 001H
JR Z,L1C2D ; (+010H)
CALL 009BAH
POP HL
RET
L1C22: CALL 009BAH
LD HL,02710H
L1C28: DEC HL
LD A,H
OR L
JR NZ,L1C28 ; (-005H)
L1C2D: CALL 009D2H
POP HL
RET
INC B
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD A,0CCH
JR L1C41 ; (+002H)
L1C3F: LD A,053H
L1C41: PUSH DE
LD E,A
LD D,LSD7
LD A,B
OR C
JR Z,L1C71 ; (+028H)
CALL 00AACH
CALL 00ACEH
JR C,L1C6E ; (+01dH)
LD A,E
CP 0CCH
JR NZ,L1C67 ; (+011H)
LD A,(00050H)
OR A
JR NZ,L1C67 ; (+00bH)
CALL NL
PUSH DE
LD DE,L1803
CALL 016C8H
L1C66: POP DE
L1C67: DI
CALL 00B5AH
CALL NC,00B85H
L1C6E: CALL 00B3BH
L1C71: POP DE
PUSH AF
XOR A
LD (00050H),A
POP AF
RET
RET
LD A,0CCH
JR L1C80 ; (+002H)
LD A,053H
L1C80: PUSH DE
LD D,LSD2
LD E,A
LD A,B
L1C85: OR C
JR Z,L1C71 ; (-017H)
CALL 00ACEH
DI
CALL NC,00C2AH
CALL NC,00C66H
JR L1C6E ; (-026H)
PUSH DE
LD D,LSD2
LD E,053H
LD A,B
OR C
JR Z,L1C71 ; (-02cH)
CALL 00AACH
CALL 00ACEH
DI
CALL NC,00C2AH
CALL NC,00CDFH
JR L1C6E ; (-03eH)
PUSH BC
PUSH DE
PUSH HL
LD DE,MONIT
L1CB2: LD A,B
OR C
JR NZ,L1CBF ; (+009H)
EX DE,HL
LD (00EBFH),HL
LD (00EC1H),HL
JR L1D37 ; (+078H)
L1CBF: LD A,(HL)
PUSH BC
LD B,008H
L1CC3: RLCA
JR NC,L1CC7 ; (+001H)
INC DE
L1CC7: DJNZ L1CC3 ; (-006H)
POP BC
INC HL
DEC BC
JR L1CB2 ; (-01cH)
PUSH BC
PUSH DE
PUSH HL
LD HL,MMAPIO
LD A,0F8H
CALL 000F2H
LD B,00AH
L1CDB: LD HL,0E002H
CALL 000EAH
AND 010H
JR Z,L1CEF ; (+00aH)
L1CE5: LD B,0A6H
L1CE7: CALL 00D4CH
DJNZ L1CE7 ; (-005H)
XOR A
JR L1D37 ; (+048H)
L1CEF: LD HL,0E003H
LD A,006H
CALL 000F2H
INC A
CALL 000F2H
DJNZ L1CDB ; (-022H)
LD A,(00050H)
OR A
JR NZ,L1D22 ; (+01fH)
CALL NL
LD A,07FH
CALL 0055EH
CALL PRNTS
LD A,D
CP LSD7
JR NZ,L1D19 ; (+006H)
LD DE,00EC3H
CALL 00051H
L1D19: LD DE,00ECBH
CALL 00051H
CALL NL
L1D22: LD HL,0E002H
CALL 000EAH
AND 010H
JR NZ,L1CE5 ; (-047H)
LD HL,0E001H
CALL 000EAH
AND 080H
JR NZ,L1D22 ; (-014H)
SCF
L1D37: POP HL
POP DE
POP BC
RET
PUSH AF
PUSH BC
LD B,00AH
DI
OUT (LSE3),A
L1D42: LD A,(0E002H)
AND 010H
JR Z,L1D54 ; (+00bH)
LD A,006H
LD (0E003H),A
INC A
LD (0E003H),A
DJNZ L1D42 ; (-012H)
L1D54: OUT (LSE1),A
EI
POP BC
POP AF
RET
PUSH BC
PUSH HL
LD A,E
LD BC,L2AF8
LD HL,L1414
CP 0CCH
JR NZ,L1D6B ; (+004H)
LD BC,055F0H
ADD HL,HL
L1D6B: CALL 00BFEH
DEC BC
LD A,B
OR C
JR NZ,L1D6B ; (-008H)
L1D73: CALL 00BDFH
DEC H
JR NZ,L1D73 ; (-006H)
L1D79: CALL 00BFEH
DEC L
JR NZ,L1D79 ; (-006H)
CALL 00BDFH
POP HL
POP BC
RET
PUSH DE
PUSH BC
PUSH HL
LD D,002H
LD A,0F8H
DI
OUT (LSE3),A
LD (MMAPIO),A
OUT (LSE1),A
L1D94: LD A,(HL)
CALL 00BCEH
OUT (LSE3),A
LD A,(0E001H)
OUT (LSE1),A
AND 080H
SCF
JR Z,L1DCA ; (+026H)
INC HL
DEC BC
LD A,B
OR C
JP NZ,00B94H
LD HL,(00EBFH)
LD A,H
CALL 00BCEH
LD A,L
CALL 00BCEH
CALL 00BDFH
XOR A
DEC D
JR Z,L1DCA ; (+00dH)
LD B,000H
L1DBF: CALL 00BFEH
DJNZ L1DBF ; (-005H)
POP HL
POP BC
PUSH BC
PUSH HL
JR L1D94 ; (-036H)
L1DCA: POP HL
POP BC
POP DE
RET
PUSH BC
LD B,008H
L1DD1: CALL 00BDFH
L1DD4: RLCA
CALL C,00BDFH
CALL NC,00BFEH
DJNZ L1DD4 ; (-009H)
POP BC
RET
L1DDF: PUSH AF
PUSH HL
LD HL,0E003H
LD A,003H
CALL 00C1CH
LD A,060H
NOP
CALL 00D47H
LD A,002H
CALL 00C1CH
LD A,06FH
LD A,05FH
CALL 00D47H
POP HL
POP AF
RET
PUSH AF
PUSH HL
LD HL,0E003H
LD A,003H
CALL 00C1CH
LD A,02EH
CALL 00D47H
LD A,002H
CALL 00C1CH
LD A,02BH
NOP
NOP
CALL 00D47H
POP HL
POP AF
RET
DI
OUT (LSE3),A
LD (HL),A
OUT (LSE1),A
RET
DI
OUT (LSE3),A
LD A,(HL)
OUT (LSE1),A
RET
PUSH DE
PUSH BC
PUSH HL
LD A,E
CP 0CCH
LD A,014H
JR NZ,L1E35 ; (+001H)
ADD A,A
L1E35: LD D,A
LD HL,0E002H
L1E39: LD E,D
L1E3A: CALL 00D24H
JR C,L1E62 ; (+023H)
CALL 00D44H
CALL 00C23H
AND 020H
JR Z,L1E39 ; (-010H)
DEC E
JR NZ,L1E3A ; (-012H)
LD E,D
L1E4D: CALL 00D24H
JR C,L1E62 ; (+010H)
CALL 00D44H
CALL 00C23H
AND 020H
JR NZ,L1E39 ; (-023H)
DEC E
JR NZ,L1E4D ; (-012H)
CALL 00D24H
L1E62: POP HL
POP BC
POP DE
RET
PUSH DE
PUSH BC
PUSH HL
L1E69: LD D,002H
L1E6B: LD HL,0E002H
L1E6E: CALL 00D24H
JR C,L1E62 ; (-011H)
CALL 00D44H
CALL 00C23H
AND 020H
JR Z,L1E6E ; (-00fH)
LD HL,MONIT
LD (00EBFH),HL
POP HL
POP BC
PUSH BC
PUSH HL
L1E87: CALL 00CB3H
JR C,L1E62 ; (-02aH)
LD (HL),A
INC HL
DEC BC
LD A,B
OR C
JR NZ,L1E87 ; (-00cH)
LD HL,(00EBFH)
CALL 00CB3H
JR C,L1E62 ; (-039H)
LD E,A
CALL 00CB3H
JR C,L1E62 ; (-03fH)
CP L
JR NZ,L1EAB ; (+007H)
LD A,E
CP H
JR NZ,L1EAB ; (+003H)
XOR A
JR L1E62 ; (-049H)
L1EAB: DEC D
JR NZ,L1E6B ; (-043H)
LD A,002H
SCF
JR L1E62 ; (-051H)
PUSH DE
PUSH BC
PUSH HL
LD HL,0E002H
LD DE,(00EBFH)
LD BC,00800H
L1EC0: CALL 00D24H
JR C,L1F1B ; (+056H)
CALL 00D44H
CALL 00C23H
AND 020H
JR Z,L1ED1 ; (+002H)
INC DE
SCF
L1ED1: RL C
DJNZ L1EC0 ; (-015H)
CALL 00D24H
LD (00EBFH),DE
LD A,C
JR L1F1B ; (+03cH)
PUSH DE
PUSH BC
PUSH HL
L1EE2: LD D,002H
L1EE4: LD HL,0E002H
L1EE7: CALL 00D24H
JR C,L1F1B ; (+02fH)
CALL 00D44H
CALL 00C23H
AND 020H
JR Z,L1EE7 ; (-00fH)
POP HL
POP BC
PUSH BC
PUSH HL
L1EFA: CALL 00CB3H
JR C,L1F1B ; (+01cH)
CP (HL)
JR NZ,L1F1F ; (+01dH)
INC HL
DEC BC
LD A,B
OR C
JR NZ,L1EFA ; (-00eH)
LD HL,(00EC1H)
CALL 00CB3H
CP H
JR NZ,L1F1F ; (+00eH)
CALL 00CB3H
CP L
JR NZ,L1F1F ; (+008H)
DEC D
JR NZ,L1EE4 ; (-036H)
XOR A
L1F1B: POP HL
POP BC
POP DE
L1F1E: RET
L1F1F: LD A,002H
SCF
JR L1F1B ; (-009H)
DI
OUT (LSE3),A
L1F27: DEC L
LD A,(HL)
INC L
RLCA
JR NC,L1F40 ; (+013H)
LD A,(HL)
AND 020H
JR NZ,L1F27 ; (-00bH)
L1F32: DEC L
LD A,(HL)
INC L
RLCA
JR NC,L1F40 ; (+008H)
LD A,(HL)
AND 020H
JR Z,L1F32 ; (-00bH)
OUT (LSE1),A
RET
L1F40: OUT (LSE1),A
SCF
RET
LD A,044H
NOP
L1F47: DEC A
JP NZ,00D47H
RET
PUSH BC
LD B,024H
L1F4F: CALL 00D56H
DJNZ L1F4F ; (-005H)
POP BC
RET
LD A,03FH
JR L1F47 ; (-013H)
DI
PUSH BC
PUSH DE
PUSH HL
LD (00064H),A
LD HL,0A8C0H
XOR A
SBC HL,DE
PUSH HL
NOP
EX DE,HL
LD HL,0E007H
OUT (LSE3),A
LD (HL),074H
LD (HL),0B0H
DEC HL
LD (HL),E
LD (HL),D
DEC HL
LD (HL),00AH
LD (HL),000H
INC HL
INC HL
LD (HL),080H
DEC HL
L1F80: LD C,(HL)
LD A,(HL)
CP D
JR NZ,L1F80 ; (-005H)
LD A,C
CP E
JR NZ,L1F80 ; (-009H)
DEC HL
NOP
NOP
NOP
LD (HL),0FBH
LD (HL),03CH
OUT (LSE1),A
INC HL
POP DE
OUT (LSE3),A
L1F97: LD C,(HL)
LD A,(HL)
OUT (LSE1),A
CP D
JR NZ,L1F97 ; (-007H)
LD A,C
CP E
JR NZ,L1F97 ; (-00bH)
POP HL
POP DE
POP BC
L1FA5: EI
RET
PUSH HL
DI
LD HL,0E007H
OUT (LSE3),A
LD (HL),080H
DEC HL
LD E,(HL)
LD D,(HL)
OUT (LSE1),A
EI
LD A,E
OR D
L1FB8: JR Z,L1FC8 ; (+00eH)
XOR A
LD HL,0A8C0H
SBC HL,DE
JR C,L1FD2 ; (+010H)
L1FC2: EX DE,HL
LD A,(00064H)
POP HL
L1FC7: RET
L1FC8: LD DE,0A8C0H
L1FCB: LD A,(00064H)
XOR 001H
POP HL
RET
L1FD2: DI
LD HL,0E006H
OUT (LSE3),A
LD A,(HL)
CPL
LD E,A
LD A,(HL)
CPL
LD D,A
OUT (LSE1),A
EI
INC DE
JR L1FCB ; (-019H)
DI
PUSH AF
PUSH BC
PUSH DE
PUSH HL
LD HL,00064H
L1FEC: LD A,(HL)
XOR 001H
LD (HL),A
LD HL,0E007H
OUT (LSE3),A
LD (HL),080H
OUT (LSE1),A
DEC HL
PUSH HL
OUT (LSE3),A
LD E,(HL)
LD D,(HL)
L1FFF: OUT (LSE1),A
LD HL,0A8C0H
ADD HL,DE
DEC HL
DEC HL
EX DE,HL
POP HL
OUT (LSE3),A
LD (HL),E
LD (HL),D
OUT (LSE1),A
POP HL
POP DE
POP BC
POP AF
EI
RET
LD A,04EH
DEC L
RET Z
LD A,056H
DEC L
RET Z
LD A,05EH
DEC L
RET Z
LD A,066H
DEC L
RET
PUSH DE
LD (00E45H),A
LD DE,0FFFFH
LD HL,0E002H
DI
OUT (LSE3),A
BIT 7,(HL)
JP Z,00E32H
BIT 7,(HL)
JP NZ,00E37H
LD L,008H
LD A,011H
L2040: DEC A
JR NZ,L2040 ; (-003H)
INC DE
BIT 0,(HL)
JP Z,00E43H
OUT (LSE1),A
EI
LD A,D
OR A
L204E: LD A,E
JR Z,L2053 ; (+002H)
LD A,0FFH
L2053: LD (00066H),A
POP DE
POP HL
SCF
RET
LD A,04EH
DEC L
RET Z
LD A,056H
DEC L
RET Z
LD A,05EH
DEC L
RET Z
LD A,066H
DEC L
L2069: RET
INC A
PUSH HL
LD L,A
CALL 00E15H
JP Z,00E25H
CALL 00E5AH
LD (00EACH),A
LD (00E8AH),A
LD HL,0E002H
DI
OUT (LSE3),A
BIT 7,(HL)
JP Z,00E82H
LD L,008H
BIT 0,(HL)
LD A,L
JP Z,00E90H
XOR A
LD (00EB4H),A
OUT (LSE1),A
LD A,009H
L2097: PUSH AF
XOR A
L2099: DEC A
JR NZ,L2099 ; (-003H)
POP AF
DEC A
JR NZ,L2097 ; (-009H)
OUT (LSE3),A
LD L,002H
BIT 7,(HL)
JP Z,00EA4H
LD L,008H
BIT 0,(HL)
LD A,L
JP Z,00EB2H
XOR A
LD L,A
LD A,000H
AND L
LD (00065H),A
L20B9: OUT (LSE1),A
L20BB: EI
POP HL
OR A
RET
NOP
NOP
NOP
NOP
LD D,D
LD B,L
LD B,E
LD C,A
LD D,D
L20C8: LD B,H
LD L,000H
L20CB: LD D,B
LD C,H
LD B,C
L20CE: LD E,C
DS 2, 000H ; Work area (45 bytes)
L20D1: DS 3, 000H
L20D4: DS 12, 000H
L20E0: DS 3, 000H
L20E3: DS 3, 000H
L20E6: DS 3, 000H
L20E9: DS 6, 000H
L20EF: DS 3, 000H
L20F2: DS 3, 000H
L20F5: DS 3, 000H
L20F8: DS 3, 000H
L20FB: DB 000H
RET P
RET P
L20FE: RET P
RET P
RET P
L2101: RET P
RET P
RET P
RET P
RET P
RET P
RET P
L2108: RET P
RET P
RET P
RET P
RET P
POP BC
JP NZ,0C4C3H
PUSH BC
ADD A,0F0H
RET P
RET P
RET P
RET P
RET P
RET P
RET P
RET P
NOP
LD H,C
LD H,D
LD H,E
LD H,H
LD H,L
LD H,(HL)
LD H,A
LD L,B
LD L,C
LD L,E
LD L,D
CPL
LD HL,(02D2EH)
JR NZ,L214F ; (+021H)
LD (L2423),HL
DEC H
LD H,027H
JR Z,L215F ; (+029H)
LD C,A
INC L
LD D,C
DEC HL
LD D,A
LD C,C
LD D,L
LD BC,00302H
INC B
DEC B
LD B,007H
EX AF,AF'
ADD HL,BC
LD A,(BC)
DEC BC
INC C
DEC C
LD C,00FH
DJNZ L215F ; (+011H)
LD (DE),A
L214F: INC DE
INC D
DEC D
LD D,017H
JR 0216FH ; (+019H)
LD A,(DE)
LD D,D
LD E,C
LD D,H
LD D,B
LD B,L
RST 000H
RET Z
RET
L215F: JP Z,0CCCBH
CALL 0CFCEH
RST 018H
RST 020H
RET PE
PUSH HL
JP (HL)
CALL PE,0D0EDH
POP DE
JP NC,0D4D3H
PUSH DE
SUB LSD7
RET C
EXX
JP C,0DCDBH
DB 0DDH
SBC A,0C0H
LD B,B
CP L
SBC A,L
OR C
OR L
CP C
OR H
SBC A,(HL)
OR D
OR (HL)
CP D
CP (HL)
SBC A,A
OR E
OR A
CP E
CP A
AND E
ADD A,L
AND H
AND L
AND (HL)
SUB H
ADD A,A
ADC A,B
SBC A,H
L2196: ADD A,D
SBC A,B
ADD A,H
SUB D
SUB B
L219B: ADD A,E
SUB C
ADD A,C
SBC A,D
SUB A
SUB E
L21A1: SUB L
ADC A,C
AND C
XOR A
ADC A,E
ADD A,(HL)
L21A7: SUB (HL)
AND D
XOR E
XOR D
ADC A,D
ADC A,(HL)
OR B
XOR L
ADC A,L
AND A
XOR B
XOR C
ADC A,A
ADC A,H
XOR (HL)
XOR H
SBC A,E
AND B
SBC A,C
CP H
CP B
ADD A,B
DEC SP
LD A,(03C70H)
LD (HL),C
LD E,D
DEC A
LD B,E
LD D,(HL)
CCF
LD E,04AH
INC E
LD E,L
LD A,05CH
RRA
LD E,A
LD E,(HL)
SCF
LD A,E
LD A,A
LD (HL),07AH
LD A,(HL)
INC SP
LD C,E
LD C,H
DEC E
LD L,H
LD E,E
LD A,B
LD B,C
DEC (HL)
INC (HL)
LD (HL),H
JR NC,L221B ; (+038H)
LD (HL),L
ADD HL,SP
LD C,L
LD L,A
LD L,(HL)
LD (L7677),A
LD (HL),D
LD (HL),E
LD B,A
LD A,H
LD D,E
LD SP,06D4EH
LD C,B
LD B,(HL)
LD A,L
LD B,H
DEC DE
LD E,B
LD A,C
LD B,D
LD H,B
DS 31, 000H ; Large work/buffer area (545 bytes)
L221B: DS 14, 000H
L2229: DS 8, 000H
L2231: DS 8, 000H
L2239: DS 21, 000H
L224E: DS 42, 000H
L2278: DS 10, 000H
L2282: DS 5, 000H
L2287: DS 52, 000H
L22BB: DS 103, 000H
L2322: DS 56, 000H
L235A: DS 11, 000H
L2365: DS 165, 000H
L240A: DS 4, 000H
L240E: DS 5, 000H
L2413: DS 8, 000H
L241B: DS 2, 000H
SUB B
RLA
CALL M,00019H
DEC SP
L2423: LD A,(0590DH)
LD E,D
LD B,B
LD E,E
LD E,L
NOP
NOP
NOP
LD D,C
LD D,D
LD D,E
LD D,H
LD D,L
LD D,(HL)
LD D,A
LD E,B
LD C,C
LD C,D
LD C,E
LD C,H
LD C,L
LD C,(HL)
LD C,A
L243C: LD D,B
LD B,C
LD B,D
LD B,E
LD B,H
LD B,L
LD B,(HL)
LD B,A
LD C,B
LD SP,03332H
INC (HL)
DEC (HL)
LD (HL),037H
JR C,L24AA ; (+05cH)
L244E: LD E,(HL)
DEC L
JR NZ,L2482 ; (+030H)
ADD HL,SP
INC L
LD L,018H
DJNZ L246A ; (+012H)
LD DE,01413H
CCF
CPL
SUB B
RLA
EI
DEC B
NOP
DEC HL
LD HL,(0BD0DH)
AND D
SUB E
CP (HL)
ADD A,B
L246A: NOP
L246B: NOP
NOP
AND B
SBC A,L
AND H
SUB (HL)
AND L
XOR E
AND E
SBC A,E
AND (HL)
XOR A
XOR C
CP B
OR E
OR B
OR A
SBC A,(HL)
AND C
SBC A,D
SBC A,A
SBC A,H
SUB D
L2482: XOR D
SUB A
SBC A,B
LD HL,L2322
INC H
DEC H
LD H,027H
JR Z,L244E ; (-040H)
SUB H
DEC A
JR NZ,02491H ; (-001H)
ADD HL,HL
INC A
L2494: LD A,016H
DEC D
LD (DE),A
LD DE,01413H
ADD A,05FH
SUB B
RLA
LD L,H
L24A0: ADD HL,DE
NOP
CP 089H
DEC C
RST 020H
XOR 088H
LD A,B
PUSH AF
L24AA: NOP
NOP
NOP
CALL NZ,0FAE5H
PUSH BC
DB 0FDH
LD A,D
AND 0F6H
LD SP,HL
RET NC
RST 018H
ADD A,(HL)
CALL 0B1ECH
HALT
DI
JP PE,0F17EH
EX (SP),HL
CALL Z,0EFDBH
CALL NC,0D6CFH
PUSH DE
JP NZ,0D1D3H
ADD A,C
LD (HL),H
ADD A,A
LD (HL),D
JR NZ,L246B ; (-067H)
AND A
LD H,E
CP A
LD D,015H
LD (DE),A
LD DE,01413H
ADC A,D
LD A,E
SUB B
RLA
LD L,B
DEC B
NOP
ADD A,H
JP (HL)
DEC C
JP PO,L77ED
ADC A,L
ADC A,(HL)
L24EA: NOP
NOP
NOP
JP P,0E1C3H
CALL P,095E8H
RET PO
LD A,L
RST 000H
ADC A,0DEH
RET
DB 0DDH
JP C,08375H
RET M
EX DE,HL
LD A,C
RST 030H
CALL PO,0DCC8H
RET P
JP Z,0D9D7H
POP BC
RET C
SET 2,D
XOR H
LD (HL),E
ADC A,H
LD (HL),C
JR NZ,L2494 ; (-07eH)
SUB C
LD (HL),B
ADD A,L
LD D,015H
LD (DE),A
LD DE,01413H
ADC A,A
ADC A,E
LD E,E
LD E,H
LD E,L
LD E,(HL)
CPL
INC B
LD D,D
LD D,L
LD C,(HL)
DEC C
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INC B
LD C,H
LD C,C
LD D,E
L2536: LD D,H
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INC B
LD B,C
LD D,L
LD D,H
LD C,A
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC B
LD D,D
LD B,L
LD C,(HL)
LD D,L
LD C,L
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC B
LD B,E
LD C,A
LD C,H
LD C,A
LD D,D
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DEC B
LD B,E
LD C,B
LD D,D
INC H
JR Z,L2579 ; (+000H)
L2579: NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
EX AF,AF'
LD B,H
LD B,L
LD B,(HL)
JR NZ,L25D3 ; (+04bH)
LD B,L
LD E,C
JR Z,L258C ; (+000H)
L258C: NOP
NOP
L258E: NOP
NOP
NOP
NOP
INC B
LD B,E
LD C,A
LD C,(HL)
LD D,H
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INC B
LD D,E
LD B,C
LD D,(HL)
LD B,L
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INC B
LD C,H
LD C,A
LD B,C
LD B,H
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
PUSH HL
LD DE,(01820H)
L25C7: PUSH DE
LD DE,L140B
LD (01820H),DE
LD A,(0004FH)
PUSH AF
L25D3: LD A,064H
LD (0004FH),A
LD (014B9H),SP
XOR A
LD (L1819),A
L25E0: LD SP,MONIT
LD BC,013E3H
PUSH BC
CALL NL
LD A,02AH
CALL PRNT
L25EF: CALL 014C5H
JR NC,L25EF ; (-005H)
LD A,(DE)
CP 02AH
RET NZ
INC DE
LD A,(DE)
INC DE
EXX
LD HL,L141C
LD B,00AH
L2601: CP (HL)
INC HL
JR Z,L2616 ; (+011H)
INC HL
INC HL
DJNZ L2601 ; (-008H)
EXX
RET
LD DE,0181AH
CALL NL
CALL 00051H
JR L25E0 ; (-036H)
L2616: LD E,(HL)
INC HL
LD D,(HL)
PUSH DE
EXX
RET
LD B,H
LD C,D
DEC D
LD C,L
CP L
DEC D
LD D,B
LD A,(04714H)
LD B,L
DEC D
LD B,(HL)
CALL P,L5215
L262C: CP B
INC D
LD D,E
LD B,E
INC D
LD C,H
LD L,C
L2633: INC D
LD D,(HL)
XOR C
INC D
LD D,H
LD E,D
LD D,03AH
ADD HL,DE
JR L262C ; (-012H)
LD BC,L1932
JR 0260CH ; (-037H)
CALL 01642H
RET C
LD (0100EH),BC
LD (01010H),DE
LD (01012H),HL
PUSH DE
PUSH BC
EXX
CALL L171F
LD HL,00FFCH
LD (HL),001H
LD BC,00080H
CALL WRINF
POP BC
POP HL
CALL NC,WRDAT
L2668: RET
CALL 014E7H
PUSH HL
PUSH AF
CALL L1484
POP AF
POP HL
JR NC,L2678 ; (+003H)
LD HL,(0FF14H)
L2678: LD BC,(0FF12H)
CALL RDDAT
L267F: JP C,0181FH
JR L2668 ; (-01cH)
CALL L171F
LD A,001H
LD (00FFCH),A
L268C: LD HL,0FF00H
LD BC,00080H
CALL RDINF
JP C,0181FH
LD DE,L180E
CALL 016C8H
CALL L16EE
JR NZ,L268C ; (-017H)
LD DE,L430B
JP 016C8H
CALL L1484
LD HL,(0FF14H)
LD BC,(0FF12H)
CALL VERFY
JR L267F ; (-039H)
LD SP,MONIT
POP AF
LD (0004FH),A
POP HL
LD (L1820),HL
POP HL
L26C4: RET
LD DE,0FF00H
CALL 0004AH
JR C,L26E5 ; (+018H)
LD A,(DE)
CP 03AH
SCF
RET NZ
INC DE
CALL 014E7H
RET C
LD A,(DE)
INC DE
XOR 03DH
RET NZ
L26DC: CALL L151B
CCF
RET NC
LD (HL),A
INC HL
JR L26DC ; (-009H)
L26E5: LD (DE),A
RET
PUSH HL
CALL L1501
PUSH DE
CALL L1522
JR C,L26FC ; (+00bH)
LD H,A
CALL L1522
JR C,L26FC ; (+005H)
LD L,A
POP AF
POP AF
XOR A
RET
L26FC: POP DE
POP HL
SCF
RET
L2700: INC DE
LD A,(DE)
CP 020H
JR Z,L2700 ; (-006H)
RET
LD A,(DE)
SUB 030H
RET C
CP 00AH
L270D: JR C,L2718 ; (+009H)
CP 011H
RET C
SUB 007H
CP 010H
CCF
RET C
L2718: OR A
INC DE
RET
CALL L1501
CP 03BH
L2720: JR Z,L2740 ; (+01eH)
PUSH BC
PUSH DE
CALL 01507H
JR C,L273C ; (+013H)
LD C,A
L272A: CALL 01507H
JR C,L273C ; (+00dH)
LD B,A
L2730: LD A,C
RLCA
RLCA
RLCA
RLCA
ADD A,B
LD C,A
LD A,C
POP BC
POP BC
OR A
RET
L273C: POP DE
POP BC
SCF
RET
L2740: INC DE
LD A,(DE)
INC DE
OR A
RET
CALL 014E7H
RET C
JP (HL)
CALL 014E7H
JR C,L275A ; (+00bH)
PUSH HL
CALL 014E7H
JR C,L2759 ; (+004H)
POP DE
EX DE,HL
JR L2760 ; (+007H)
L2759: POP HL
L275A: EX DE,HL
LD HL,00080H
ADD HL,DE
EX DE,HL
L2760: LD C,008H
CALL L156D
RET C
PUSH HL
SBC HL,DE
POP HL
L276A: RET NC
JR L2760 ; (-00dH)
CALL L15EF
CALL L15A2
CALL L15EA
LD B,C
PUSH HL
L2778: LD A,(HL)
CALL 015A7H
INC HL
LD A,020H
CALL L17D3
DJNZ L2778 ; (-00cH)
POP HL
LD A,02FH
CALL L17D3
LD B,C
L278B: LD A,(HL)
CP 020H
JR NC,L2792 ; (+002H)
LD A,02EH
L2792: CALL L17D3
INC HL
DJNZ L278B ; (-00dH)
CALL L17F9
CALL BRKEY
SCF
RET Z
OR A
RET
LD A,H
CALL 015A7H
LD A,L
PUSH AF
RLCA
RLCA
RLCA
RLCA
CALL 015B0H
L27AF: POP AF
AND 00FH
ADD A,030H
CP 03AH
JR C,L27BA ; (+002H)
ADD A,007H
L27BA: JP L17D3
CALL 014E7H
LD A,(L1819)
PUSH AF
XOR A
LD (L1819),A
L27C8: CALL NL
CALL L15EF
CALL L15A2
CALL L15EA
LD A,(HL)
CALL 015A7H
LD A,014H
CALL PRNT
CALL PRNT
CALL 014C5H
JR NC,L27C8 ; (-01dH)
POP AF
LD (L1819),A
RET
LD A,03DH
JP L17D3
LD A,03AH
JP L17D3
CALL 014E7H
RET C
PUSH HL
L27F9: CALL 014E7H
POP BC
RET C
PUSH HL
PUSH BC
LD HL,0FF00H
CALL L14DC
LD DE,0FF00H
OR A
SBC HL,DE
LD C,L
POP HL
PUSH HL
EXX
POP HL
POP DE
EXX
RET Z
L2814: CALL 0162EH
JR NZ,L281D ; (+004H)
CALL L156D
RET C
L281D: CALL BRKEY
RET Z
EXX
INC HL
PUSH HL
SCF
SBC HL,DE
POP HL
RET NC
PUSH HL
EXX
POP HL
JR L2814 ; (-01aH)
LD A,(DE)
CP (HL)
RET NZ
PUSH BC
PUSH DE
PUSH HL
LD B,C
L2835: LD A,(DE)
CP (HL)
JR NZ,L283E ; (+005H)
INC DE
INC HL
DJNZ L2835 ; (-008H)
XOR A
L283E: POP HL
POP DE
POP BC
RET
CALL 014E7H
RET C
PUSH HL
CALL 014E7H
POP BC
RET C
SBC HL,BC
INC HL
PUSH HL
PUSH BC
CALL 014E7H
PUSH HL
EXX
POP HL
POP DE
POP BC
RET
CALL 01642H
RET C
L285E: EX DE,HL
PUSH HL
SBC HL,DE
POP HL
JR C,L2868 ; (+003H)
LDIR
RET
L2868: ADD HL,BC
DEC HL
EX DE,HL
ADD HL,BC
DEC HL
EX DE,HL
LDDR
RET
LD A,0FFH
LD (L16BE),A
LD A,00DH
PUSH HL
LD HL,L16BE
INC (HL)
POP HL
PUSH BC
PUSH DE
PUSH HL
PUSH AF
XOR A
CALL L169B
POP AF
PUSH AF
OUT (0FFH),A
LD A,080H
OUT (0FEH),A
LD A,001H
CALL L169B
XOR A
OUT (0FEH),A
POP AF
POP HL
POP DE
POP BC
RET
LD D,A
LD BC,MONIT
L289F: LD E,020H
L28A1: IN A,(0FEH)
AND 00DH
CP D
RET Z
DEC E
JR NZ,L28A1 ; (-009H)
DEC BC
LD A,B
OR C
JR NZ,L289F ; (-010H)
XOR A
LD (0004DH),A
LD A,041H
JP 0181FH
L28B8: LD A,020H
CALL 01678H
LD A,000H
L28BF: SUB 00AH
JR NC,L28BF ; (-004H)
ADD A,00AH
RET Z
JR L28B8 ; (-010H)
CALL NL
CALL 00051H
PUSH HL
INC HL
CALL 016E9H
LD D,010H
L28D5: LD A,(HL)
CP 00DH
JR Z,L28E1 ; (+007H)
CALL PRNT
INC HL
DEC D
JR NZ,L28D5 ; (-00cH)
L28E1: CALL 016E9H
CALL NL
POP HL
RET
LD A,022H
JP PRNT
PUSH DE
PUSH HL
INC HL
LD DE,00FFCH
INC DE
LD A,(DE)
CP 00DH
JR Z,L290D ; (+013H)
LD B,011H
L28FC: LD A,(DE)
CP (HL)
JR NZ,L290A ; (+00aH)
CP 00DH
JR Z,L290D ; (+009H)
INC HL
INC DE
DJNZ L28FC ; (-00cH)
JR L290D ; (+003H)
L290A: POP HL
POP DE
RET
L290D: POP HL
PUSH HL
LD A,(00FFCH)
OR A
JR Z,L291B ; (+006H)
CP (HL)
LD A,018H
JP NZ,0181FH
L291B: POP HL
POP DE
XOR A
RET
L291F: LD A,(DE)
OR A
JR Z,L2928 ; (+005H)
INC DE
CP 03AH
JR NZ,L291F ; (-009H)
L2928: LD B,010H
JR L2934 ; (+008H)
CALL L1C66
LD B,000H
CALL NZ,04DBCH
L2934: PUSH HL
LD HL,00FFCH
INC HL
LD C,011H
PUSH HL
L293C: LD (HL),020H
INC HL
DEC C
JR NZ,L293C ; (-006H)
POP HL
LD A,B
OR A
L2945: JR Z,L2956 ; (+00fH)
CP 011H
JR C,L294D ; (+002H)
LD B,010H
L294D: LD A,(DE)
OR A
L294F: JR Z,L2956 ; (+005H)
LD (HL),A
INC DE
INC HL
DJNZ L294D ; (-009H)
L2956: LD (HL),00DH
POP HL
RET
EX AF,AF'
LD A,(L1819)
OR A
JR Z,L29DE ; (+07dH)
EX AF,AF'
CP 011H
JR C,L29CB ; (+065H)
CP 017H
JP C,01678H
CP 020H
JR C,L29CB ; (+05cH)
CP 060H
JP C,01678H
CP 07BH
JP Z,01678H
CP 080H
JP Z,01678H
CP 08BH
JP Z,01678H
CP 092H
JR C,L29CB ; (+044H)
CP 095H
JR Z,L29CB ; (+040H)
CP 099H
JR Z,L29CB ; (+03cH)
CP 0A7H
JR Z,L29CB ; (+038H)
CP 0ACH
JR Z,L29CB ; (+034H)
CP 0B1H
JR Z,L29CB ; (+030H)
CP 0B4H
JP C,01678H
CP 0B7H
JR C,L29CB ; (+027H)
CP 0BCH
JR Z,L29CB ; (+023H)
CP 0BFH
JP C,01678H
CP 0C6H
JP Z,01678H
CP 0CFH
JP Z,01678H
CP LSD7
JP Z,01678H
CP 0FBH
JP Z,01678H
CP 0FCH
JP Z,01678H
CP 0FFH
JP Z,01678H
L29CB: PUSH AF
LD A,02EH
CALL 01678H
POP AF
RET
EX AF,AF'
LD A,(L1819)
OR A
JR Z,L29DE ; (+004H)
EX AF,AF'
JP 01678H
L29DE: EX AF,AF'
JP PRNT
PUSH DE
L29E3: LD A,(DE)
OR A
JR Z,L29ED ; (+006H)
CALL L17D3
INC DE
JR L29E3 ; (-00aH)
L29ED: POP DE
L29EE: RET
LD A,(L1819)
OR A
JP Z,PRNTT
JP L16B8
LD A,(L1819)
OR A
JP Z,LETNL
JP L1671
LD D,A
SBC A,L
AND (HL)
SUB (HL)
AND (HL)
OR B
SUB A
JR NZ,L2A2C ; (+020H)
JR NZ,L2A0E ; (+000H)
L2A0E: LD B,(HL)
OR A
AND L
OR B
SBC A,H
JR NZ,02A35H ; (+020H)
JR NZ,L2A37 ; (+020H)
JR NZ,L2A19 ; (+000H)
L2A19: NOP
LD B,L
SBC A,L
SBC A,L
CCF
NOP
JP L2108
LD DE,L6AC1
L2A25: CALL 00051H
EX DE,HL
L2A29: LD (HL),000H
INC HL
L2A2C: LD A,H
CP 0FFH
JR C,L2A29 ; (-008H)
LD HL,L1848
LD (000E7H),HL
L2A37: LD HL,0FF00H
LD (06ABDH),HL
CALL L2231
CALL L2239
L2A43: CALL L224E
JR L2A4D ; (+005H)
L2A48: LD A,016H
CALL L17D3
L2A4D: LD SP,(06AB9H)
LD HL,0FFFFH
PUSH HL
LD (038D5H),SP
CALL L1C85
CALL L2282
L2A5F: XOR A
LD (L42A3),A
LD (L38DC),A
CALL NL
LD DE,L219B
CALL 00051H
CALL LETNL
L2A72: XOR A
LD (L38DC),A
L2A76: LD HL,0FFFFH
LD (038E6H),HL
CALL L2229
LD DE,0110FH
LD A,(L42A3)
OR A
JR Z,L2A96 ; (+00eH)
CP 002H
JR NZ,L2A91 ; (+005H)
CALL 019B9H
JR L2A99 ; (+008H)
L2A91: CALL L1989
JR L2A99 ; (+003H)
L2A96: CALL 0004AH
L2A99: JR NC,L2ABA ; (+01fH)
CP 004H
JR NZ,L2A9F ; (+000H)
L2A9F: LD A,(L38DF)
OR A
LD A,000H
LD (L38DF),A
JR NZ,L2A5F ; (-04bH)
LD A,(L38DE)
OR A
JP NZ,L1C6E
LD A,(L38DC)
OR A
JR Z,L2A72 ; (-045H)
JR L2A5F ; (-05aH)
L2AB9: INC DE
L2ABA: LD A,(DE)
CP 020H
JR Z,L2AB9 ; (-006H)
OR A
JR Z,L2A76 ; (-04cH)
CALL 03ABEH
JP NC,L6891
LD A,(L38DC)
OR A
JP NZ,L20E9
LD HL,L6AC1
PUSH HL
CALL 04795H
INC HL
LD (L38E0),HL
LD (HL),000H
INC HL
LD (HL),000H
POP HL
L2AE0: JR L2B25 ; (+043H)
L2AE2: POP HL
LD HL,(038E6H)
INC HL
LD A,L
OR H
JP Z,L185F
XOR A
LD (L38D9),A
LD A,(L38D8)
CP 002H
L2AF5: JP NZ,L185F
L2AF8: JP L20EF
L2AFB: LD HL,(L38E0)
LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
JR Z,L2AE2 ; (-023H)
EX DE,HL
ADD HL,DE
DEC HL
LD (L38E0),HL
EX DE,HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD (038E6H),DE
LD A,(L38DD)
OR A
CALL NZ,L2278
POP DE
JR L2B25 ; (+006H)
CALL L1C66
JP NZ,L20FE
L2B25: LD (038D5H),SP
LD DE,0191FH
PUSH DE
L2B2D: LD (038F0H),HL
CALL BRKEY
JP Z,02071H
LD A,(HL)
CP 080H
JP NC,L1C3F
CP 027H
JP Z,03324H
CP 020H
JR NZ,L2B48 ; (+003H)
L2B45: INC HL
JR L2B2D ; (-01bH)
L2B48: CP 03AH
JR Z,L2B45 ; (-007H)
OR A
JR Z,L2AFB ; (-054H)
CP 041H
JP C,L20FE
CP 05BH
JP NC,L20FE
CALL 0580BH
PUSH BC
PUSH BC
PUSH AF
CALL L5414
CP 0F4H
JP NZ,L20FE
INC HL
CALL 0528BH
POP BC
LD A,(06A65H)
CP B
JP NZ,L20FB
EX (SP),HL
EX DE,HL
CP 005H
JR Z,L2B81 ; (+008H)
PUSH BC
CALL 01B82H
POP AF
POP HL
POP BC
RET
L2B81: LD C,A
LD B,000H
LDIR
POP HL
POP BC
RET
LD HL,(L42A1)
LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD A,D
OR E
JR Z,L2BC3 ; (+02fH)
PUSH DE
EX DE,HL
ADD HL,DE
DEC HL
DEC HL
LD (L42A1),HL
EX DE,HL
LD DE,L6AC1
LD A,00BH
LD (DE),A
INC DE
POP BC
DEC BC
DEC BC
LDIR
LD HL,L6AC1
LD DE,0110FH
CALL L49CD
LD A,02EH
CALL L17D3
OR A
RET
LD HL,(L42A1)
LD E,(HL)
INC HL
LD A,(HL)
INC HL
OR E
JR NZ,L2BD0 ; (+00dH)
L2BC3: LD (L42A3),A
CALL LETNL
LD SP,(038D5H)
JP L185F
L2BD0: LD DE,L6AC1
LD A,00BH
LD (DE),A
INC DE
LD A,(HL)
LD (DE),A
INC DE
INC HL
LD A,(HL)
L2BDC: LD (DE),A
INC DE
INC HL
L2BDF: LD A,(HL)
CP 03AH
JR Z,L2BDC ; (-008H)
CP 080H
JP Z,01A72H
CP 081H
JP Z,L1A76
CP 022H
CALL Z,01A1FH
CP 022H
JR Z,L2BDC ; (-01bH)
CP 00DH
JR NZ,L2C2B ; (+030H)
XOR A
LD (DE),A
INC HL
LD (L42A1),HL
EX DE,HL
LD HL,(06AB3H)
INC H
INC H
INC H
INC H
OR A
SBC HL,DE
JP NC,L20B9
LD HL,L6AC1
LD DE,0110FH
CALL L49CD
LD A,02EH
CALL L17D3
OR A
RET
L2C1F: LD (DE),A
INC DE
INC HL
LD A,(HL)
CP 00DH
RET Z
CP 022H
RET Z
JR L2C1F ; (-00cH)
L2C2B: CP 0FFH
JR Z,L2C3C ; (+00dH)
CP 0F2H
JR NZ,L2C49 ; (+016H)
LD A,0FEH
LD (DE),A
INC DE
LD A,0A4H
JP 019DCH
L2C3C: INC HL
PUSH HL
LD B,005H
LD HL,L1B7C
CALL L1A6B
POP HL
JR L2BDF ; (-06aH)
L2C49: CP 080H
JR C,L2BDC ; (-071H)
INC HL
PUSH HL
LD HL,01A91H
SUB 080H
L2C54: LD B,A
JR Z,L2C5E ; (+007H)
L2C57: LD A,(HL)
OR A
INC HL
JR NZ,L2C57 ; (-005H)
DJNZ L2C57 ; (-007H)
L2C5E: LD A,(HL)
OR A
JR Z,L2C67 ; (+005H)
LD (DE),A
INC DE
INC HL
JR L2C5E ; (-009H)
L2C67: POP HL
JP 019DFH
L2C6B: LD A,(HL)
LD (DE),A
INC DE
INC HL
DJNZ L2C6B ; (-006H)
RET
LD A,097H
JR L2C78 ; (+002H)
LD A,094H
L2C78: LD (DE),A
INC DE
INC HL
LD A,(HL)
CP 03AH
JP Z,019DCH
CP 022H
CALL Z,01A1FH
CP 022H
JR Z,L2C78 ; (-012H)
CP 00DH
JP Z,019FBH
JR L2C78 ; (-019H)
SUB A
NOP
SUB H
NOP
ADD A,A
NOP
ADD A,E
NOP
SBC A,A
NOP
ADC A,A
NOP
SBC A,(HL)
NOP
ADC A,L
NOP
SUB E
NOP
ADD A,B
NOP
SUB L
NOP
ADD A,C
NOP
ADD A,H
NOP
ADC A,(HL)
NOP
SBC A,C
NOP
SBC A,B
NOP
SBC A,L
NOP
OR H
NOP
OR L
NOP
CP 0A5H
NOP
AND B
NOP
SUB (HL)
NOP
RST 000H
RST 038H
RST 000H
NOP
SUB C
NOP
ADD A,L
NOP
CP 0A6H
NOP
CP 0A2H
NOP
CP 0A3H
NOP
JP 00028H
ADC A,000H
RET NC
NOP
RST 008H
NOP
CALL NZ,0FE00H
AND A
NOP
SBC A,D
NOP
CP 081H
NOP
CP 082H
NOP
XOR L
NOP
XOR E
NOP
CP D
NOP
CP 0A4H
NOP
NOP
NOP
NOP
NOP
JP PO,MMAPIO
NOP
POP HL
NOP
XOR 000H
RST 028H
NOP
RET P
NOP
POP AF
NOP
JP P,0F300H
NOP
CALL P,0F500H
NOP
OR 000H
CALL PE,0EB00H
NOP
DB 0EDH, 000H ; Undocumented 8 T-State NOP
RST 030H
NOP
RET M
NOP
CALL M,0FB00H
NOP
RST 038H
CP D
JR Z,L2D1C ; (+000H)
L2D1C: RST 038H
CP E
JR Z,L2D20 ; (+000H)
L2D20: RST 038H
CP H
JR Z,L2D24 ; (+000H)
L2D24: RST 038H
XOR H
JR Z,L2D28 ; (+000H)
L2D28: RST 038H
AND B
JR Z,L2D2C ; (+000H)
L2D2C: RST 038H
AND C
JR Z,L2D30 ; (+000H)
L2D30: RST 038H
XOR E
JR Z,L2D34 ; (+000H)
L2D34: RST 038H
XOR L
JR Z,L2D38 ; (+000H)
L2D38: RST 038H
ADC A,C
JR Z,L2D3C ; (+000H)
L2D3C: AND 028H
NOP
RST 020H
JR Z,L2D42 ; (+000H)
L2D42: RST 038H
OR L
NOP
NOP
NOP
NOP
DB 0FDH
NOP
RST 038H
ADC A,B
JR Z,L2D4E ; (+000H)
L2D4E: RST 038H
ADD A,D
JR Z,L2D52 ; (+000H)
L2D52: RST 038H
ADD A,E
JR Z,L2D56 ; (+000H)
L2D56: RST 038H
ADD A,H
JR Z,L2D5A ; (+000H)
L2D5A: RST 038H
ADC A,D
JR Z,L2D5E ; (+000H)
L2D5E: RST 038H
ADD A,(HL)
JR Z,L2D62 ; (+000H)
L2D62: RST 038H
ADD A,B
JR Z,L2D66 ; (+000H)
L2D66: RST 038H
ADC A,H
JR Z,L2D6A ; (+000H)
L2D6A: RST 038H
ADD A,L
JR Z,L2D6E ; (+000H)
L2D6E: RST 038H
ADD A,C
JR Z,L2D72 ; (+000H)
L2D72: RST 038H
ADC A,E
JR Z,L2D76 ; (+000H)
L2D76: RST 038H
ADD A,A
JR Z,L2D7A ; (+000H)
L2D7A: NOP
NOP
RST 038H
ADC A,(HL)
JR Z,L2DB1 ; (+031H)
ADD HL,HL
NOP
PUSH DE
CALL 0527FH
LD HL,0110FH
LD (HL),A
LD B,A
LD C,A
L2D8C: INC HL
LD A,(DE)
LD (HL),A
INC DE
DJNZ L2D8C ; (-006H)
POP HL
LD A,(HL)
CP C
JR Z,L2DDC ; (+045H)
PUSH HL
OR A
CALL NZ,L1BEC
POP HL
LD A,(0110FH)
OR A
JR Z,L2DD9 ; (+036H)
PUSH HL
LD BC,(06AB3H)
SBC HL,BC
EX DE,HL
LD HL,(L6AB7)
DEC HL
DEC HL
LD (HL),E
L2DB1: INC HL
LD (HL),D
INC HL
LD BC,(06AB5H)
OR A
POP DE
PUSH HL
SBC HL,BC
EX DE,HL
LD (HL),A
LD B,A
INC HL
LD (HL),E
INC HL
LD (HL),D
POP HL
LD DE,0110FH
INC DE
CALL 058D0H
LD (HL),000H
INC HL
LD (HL),000H
INC HL
LD (038D3H),HL
LD (L6AB7),HL
RET
L2DD9: LD (HL),000H
RET
L2DDC: INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
LD DE,0110FH
LD B,C
INC DE
JP 058D0H
LD C,(HL)
LD B,000H
INC BC
INC BC
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
DEC HL
DEC HL
LD E,L
LD D,H
ADD HL,BC
PUSH BC
PUSH DE
EX DE,HL
LD HL,(L6AB7)
OR A
SBC HL,DE
LD C,L
LD B,H
EX DE,HL
POP DE
PUSH DE
JR Z,L2E10 ; (+002H)
LDIR
L2E10: POP DE
POP BC
LD HL,(L6AB7)
OR A
SBC HL,BC
LD (L6AB7),HL
EX DE,HL
L2E1C: LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
RET Z
LD HL,(06AB3H)
ADD HL,DE
LD A,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
OR A
EX DE,HL
SBC HL,BC
EX DE,HL
LD (HL),D
DEC HL
LD (HL),E
PUSH BC
LD C,A
LD B,000H
LD HL,(L6AB5)
ADD HL,DE
ADD HL,BC
POP BC
JR L2E1C ; (-023H)
INC HL
CP 0FFH
JP Z,L241B
LD DE,L3207
CP 0FEH
JR NZ,L2E50 ; (+004H)
LD A,(HL)
INC HL
JR L2E58 ; (+008H)
L2E50: CP LSE0
JP NC,L20FE
LD DE,03147H
L2E58: SUB 080H
PUSH HL
EX DE,HL
LD E,A
LD D,000H
ADD HL,DE
ADD HL,DE
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
EX (SP),HL
CALL L5414
OR A
RET Z
CP 03AH
RET
JP NZ,L3807
LD DE,(06ABFH)
CALL L1C85
LD SP,(06AB9H)
LD HL,0FFFFH
PUSH HL
PUSH HL
EX DE,HL
JP 018FEH
PUSH HL
PUSH DE
CALL L224E
CALL L258E
LD HL,MONIT
LD (038EAH),HL
DEC HL
LD (L272A),HL
XOR A
LD (0272EH),A
LD (L38DE),A
LD (L38D9),A
LD (L38D8),A
LD (L38DF),A
LD (L38F2),A
LD (L3900),A
LD (03901H),A
LD (L5B42),A
LD HL,0000AH
LD (038E2H),HL
LD (L38E4),HL
POP DE
POP HL
RET
POP BC
LD (01D6DH),BC
CALL 01959H
LD (038FBH),BC
LD IX,MONIT
ADD IX,SP
LD (01D4DH),HL
L2ED4: LD E,(IX+000H)
LD D,(IX+001H)
LD HL,0FFFFH
OR A
SBC HL,DE
JR Z,L2F04 ; (+022H)
LD HL,0FF12H
OR A
SBC HL,DE
JR NZ,L2F04 ; (+01aH)
LD E,(IX+006H)
LD D,(IX+007H)
EX DE,HL
OR A
SBC HL,BC
JR Z,L2EFD ; (+007H)
LD DE,PRNT
ADD IX,DE
JR L2ED4 ; (-029H)
L2EFD: LD DE,PRNT
ADD IX,DE
LD SP,IX
L2F04: LD HL,(01D4DH)
CALL L5414
CP LSE0
INC HL
JP NZ,L20FE
CALL 0528BH
PUSH AF
PUSH HL
EX DE,HL
LD BC,00005H
LD DE,L2720
LDIR
POP HL
POP AF
CP LSE1
LD DE,L3D77
JR NZ,L2F2B ; (+004H)
INC HL
CALL 0528BH
L2F2B: LD (01D4DH),HL
EXX
LD HL,0FFFBH
ADD HL,SP
EX DE,HL
LD HL,L2720
LD BC,00005H
LDIR
EXX
LD HL,0FFF6H
ADD HL,SP
LD SP,HL
EX DE,HL
LD BC,00005H
LDIR
LD HL,(038FBH)
PUSH HL
LD HL,MONIT
PUSH HL
LD HL,(L38E0)
PUSH HL
LD HL,0FF12H
PUSH HL
LD HL,MONIT
ADD HL,SP
LD DE,(038D3H)
DEC H
DEC H
SBC HL,DE
LD A,00BH
JP C,L20BB
LD HL,(01D4DH)
JP MONIT
LD A,005H
LD (06A65H),A
POP BC
LD (01DE2H),BC
PUSH AF
POP BC
LD (01D4DH),HL
LD IX,MONIT
ADD IX,SP
LD (L1DD1),IX
LD E,(IX+000H)
LD D,(IX+001H)
LD HL,0FF12H
OR A
SBC HL,DE
JP NZ,L20C8
PUSH BC
POP AF
JP NZ,01DFAH
LD E,(IX+004H)
LD D,(IX+005H)
EX DE,HL
LD (L1DDF),HL
LD E,(IX+006H)
LD D,(IX+007H)
EX DE,HL
LD BC,00008H
ADD IX,BC
PUSH IX
POP DE
CALL L5DAF
INC DE
LD A,(DE)
LD IX,(L1DD1)
LD DE,0000DH
ADD IX,DE
PUSH IX
POP DE
BIT 7,A
JR NZ,L2FCB ; (+001H)
EX DE,HL
L2FCB: CALL L5E4A
JR C,L2FE4 ; (+014H)
LD SP,MONIT
LD HL,00002H
ADD HL,SP
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
LD (L38E0),HL
LD HL,MONIT
L2FE1: JP MONIT
L2FE4: LD DE,PRNT
LD HL,(L1DD1)
ADD HL,DE
LD SP,HL
LD HL,(01D4DH)
CALL L5414
CP 02CH
JR NZ,L2FE1 ; (-015H)
INC HL
LD (01D4DH),HL
LD IX,MONIT
ADD IX,SP
LD (L1DD1),IX
LD HL,(01D4DH)
CALL L5414
CP 02CH
INC HL
JP Z,L1D79
DEC HL
CALL 0580BH
LD (01D4DH),HL
LD IX,(L1DD1)
L301B: LD E,(IX+000H)
LD D,(IX+001H)
LD HL,0FF12H
OR A
SBC HL,DE
JP NZ,L20C8
LD L,(IX+006H)
LD H,(IX+007H)
OR A
SBC HL,BC
LD HL,(01D4DH)
L3036: JP Z,L1D79
LD DE,PRNT
ADD IX,DE
LD (L1DD1),IX
LD SP,(01DD1H)
JR L301B ; (-02dH)
NOP
NOP
NOP
NOP
L304C: CALL 03880H
OR A
RET NZ
INC HL
PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
INC HL
LD (01E4BH),DE
LD E,(HL)
INC HL
LD D,(HL)
LD (01E49H),DE
POP DE
SCF
RET Z
JR L304C ; (-01dH)
LD (HL),C
XOR A
LD (L1819),A
LD A,(0005DH)
AND 07FH
LD (L1E69),A
CALL L5414
CP 0FBH
JR NZ,L3090 ; (+013H)
INC HL
CALL L5414
CP 050H
INC HL
JR Z,L308B ; (+005H)
CP 054H
JP NZ,L20FE
L308B: LD (L1819),A
JR L30E2 ; (+052H)
L3090: CP 05BH
JP NZ,L1EE2
INC HL
CALL L5414
CP 02CH
INC HL
JR Z,L30BE ; (+020H)
DEC HL
CALL L4D50
CP 008H
JP NC,L2101
RLCA
RLCA
L30A9: RLCA
RLCA
LD B,A
LD A,(L1E69)
AND 08FH
OR B
LD (L1E69),A
CALL L5414
CP 02CH
JP NZ,L20FE
INC HL
L30BE: CALL L5414
CP 05DH
INC HL
JR Z,L30E2 ; (+01cH)
DEC HL
CALL L4D50
CP 008H
JP NC,L2101
LD B,A
LD A,(L1E69)
AND 0F8H
OR B
LD (L1E69),A
CALL L5414
CP 05DH
JP NZ,L20FE
INC HL
L30E2: CALL L1C66
JP Z,L1FEC
LD A,(HL)
CP 03BH
JP Z,L1FC7
CP 02CH
JP Z,L1FC7
CP LSE6
JR Z,L3170 ; (+079H)
CP LSE3
JP Z,L2730
PUSH BC
CALL 0528BH
POP BC
LD A,(06A65H)
OR A
JP Z,L1FEC
CP 003H
JP Z,02033H
PUSH HL
EX DE,HL
CALL L3C69
POP HL
L3113: LD A,(DE)
OR A
JP Z,L1FC2
CALL L1F1E
INC DE
JR L3113 ; (-00bH)
EX AF,AF'
LD A,(L1819)
CP 054H
JR Z,L3144 ; (+01eH)
CP 050H
JR Z,L3148 ; (+01eH)
PUSH HL
LD HL,0005DH
LD A,(HL)
PUSH AF
LD A,(L1E69)
RLCA
RLC (HL)
RRA
LD (HL),A
EX AF,AF'
CALL L17D3
POP AF
RLCA
RLC (HL)
RRA
LD (HL),A
POP HL
RET
L3144: EX AF,AF'
JP 0466FH
L3148: EX AF,AF'
CP 011H
LD C,009H
JR Z,L316C ; (+01dH)
CP 012H
LD C,00BH
JR Z,L316C ; (+017H)
CP 015H
LD C,00FH
JR Z,L316C ; (+011H)
CP 016H
JP NZ,01678H
LD A,00CH
CALL 01678H
LD A,00AH
CALL 01678H
LD C,003H
L316C: LD A,C
JP 01678H
L3170: LD A,020H
LD (L1FB8),A
LD A,028H
LD (L1FA5),A
LD A,(L1819)
OR A
JR Z,L3198 ; (+018H)
CP 054H
JR Z,L318E ; (+00aH)
LD A,0A0H
LD (L1FA5),A
LD A,(L16BE)
JR L31A0 ; (+012H)
L318E: LD A,0FFH
LD (L1FA5),A
CALL 0464EH
JR L31A0 ; (+008H)
L3198: LD A,013H
LD (L1FB8),A
LD A,(00054H)
L31A0: PUSH AF
CALL L204E
CP 028H
JR C,L31AD ; (+005H)
LD A,003H
JP L2108
L31AD: POP DE
SUB D
JP C,L1EE2
OR A
JP Z,L1EE2
LD D,A
L31B7: LD A,013H
CALL L1F1E
DEC D
JR NZ,L31B7 ; (-008H)
JP L1EE2
CALL L1C66
JR Z,L31EC ; (+025H)
EX AF,AF'
LD A,(L1819)
CP 054H
JR Z,L31E2 ; (+013H)
EX AF,AF'
CP 02CH
JR Z,L322E ; (+05aH)
CP 03BH
JP NZ,01EE8H
L31D9: INC HL
CALL L1C66
JP NZ,01EE8H
JR L31EF ; (+00dH)
L31E2: CALL L1FFF
JR L31D9 ; (-00eH)
CALL L4D50
JR L31F6 ; (+00aH)
L31EC: CALL L1FFF
L31EF: XOR A
LD (L1819),A
LD A,(L3900)
L31F6: OR A
L31F7: RET Z
LD B,000H
L31FA: DJNZ L31FA ; (-002H)
DEC A
JR L31F7 ; (-008H)
LD A,(L1819)
CP 054H
JP Z,L4665
L3207: OR A
JP Z,LETNL
JP L1671
LD A,(L1819)
OR A
JR Z,L321C ; (+008H)
CP 054H
JP Z,L4655
JP L16B8
L321C: LD A,(0005DH)
PUSH AF
LD A,(L1E69)
LD (0005DH),A
CALL PRNTT
POP AF
LD (0005DH),A
RET
L322E: CALL 0200EH
JR L31D9 ; (-05aH)
PUSH HL
EX DE,HL
LD A,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
EX DE,HL
POP HL
OR A
L3241: JP Z,L1FC2
PUSH AF
LD A,(DE)
CALL L1F1E
INC DE
POP AF
DEC A
JR L3241 ; (-00dH)
CALL L57F9
PUSH BC
CALL L4D50
POP BC
PUSH AF
CALL L270D
POP AF
RET
LD A,000H
LD (L3900),A
RET Z
CALL L4D50
L3265: LD (L3900),A
RET
LD SP,(038D5H)
LD HL,(038F0H)
PUSH HL
XOR A
CALL 0003EH
POP DE
LD (L38F3),HL
LD HL,(L38E0)
LD (038F7H),HL
LD HL,(038E6H)
LD (038F5H),HL
CALL NL
LD DE,L21A1
CALL 00051H
LD HL,(038E6H)
INC HL
LD A,L
OR H
JP Z,L185F
LD A,001H
LD (L38D9),A
JP 02173H
POP DE
LD A,(L38D9)
OR A
JP Z,L20E3
LD HL,(038F5H)
LD (038E6H),HL
LD HL,(038F7H)
LD (L38E0),HL
LD HL,(L38F3)
JP 01925H
LD A,006H
LD SP,(06AB9H)
LD HL,0FFFFH
PUSH HL
LD (038D5H),SP
LD HL,00D3EH
LD HL,0103EH
LD HL,0073EH
LD HL,0033EH
LD HL,0153EH
LD HL,0013EH
LD HL,0013EH
LD HL,0013EH
LD HL,00E3EH
LD HL,0113EH
LD HL,0053EH
LD HL,0013EH
LD HL,0013EH
LD HL,0143EH
LD HL,0083EH
LD HL,0023EH
LD HL,0063EH
LD HL,0033EH
LD HL,0013EH
LD HL,0033EH
JR L3308 ; (+003H)
CALL L4D50
L3308: LD SP,(038D5H)
LD C,A
LD HL,MONIT
LD (L5D83),HL
LD HL,(038E6H)
INC HL
LD A,L
OR H
LD A,C
JR Z,L333E ; (+022H)
LD HL,(038E6H)
LD (038EAH),HL
L3322: LD (038E2H),HL
LD HL,(L38E0)
LD (038ECH),HL
LD HL,(038F0H)
LD (L38EE),HL
LD (L38F2),A
EX AF,AF'
LD A,(L38D8)
INC A
CP 002H
JR Z,L338C ; (+04fH)
EX AF,AF'
L333E: CP 047H
JR NC,L3350 ; (+00eH)
LD DE,L4B72
CP 019H
JR C,L3355 ; (+00cH)
LD DE,L4CD0
SUB 02AH
JR NC,L3355 ; (+005H)
L3350: LD DE,L4B72
LD A,001H
L3355: OR A
JR Z,L3350 ; (-008H)
L3358: DEC A
JR Z,L3368 ; (+00dH)
EX AF,AF'
L335C: LD A,(DE)
INC DE
CP 080H
JR Z,L3365 ; (+003H)
OR A
JR NZ,L335C ; (-009H)
L3365: EX AF,AF'
JR L3358 ; (-010H)
L3368: LD A,(DE)
CP 080H
JR Z,L3350 ; (-01dH)
CALL NL
CALL 00051H
LD HL,(038E6H)
INC HL
LD A,L
OR H
JP Z,L185F
DEC HL
LD DE,L2196
CALL 00051H
CALL L21A7
CALL 00051H
JP L185F
L338C: LD (L38D8),A
LD HL,(038E8H)
PUSH HL
JP 018FEH
JR NZ,L333E ; (-05aH)
OR B
JR NZ,L339B ; (+000H)
L339B: LD D,D
SUB D
AND C
SBC A,H
CP L
NOP
LD B,D
SBC A,L
SUB D
AND C
XOR C
NOP
LD DE,06A26H
CALL L3D86
LD B,004H
L33AF: LD A,(DE)
CP 030H
RET NZ
INC DE
DJNZ L33AF ; (-007H)
RET
POP BC
LD (L38F3),HL
LD HL,(L38E0)
L33BE: LD (038F7H),HL
LD HL,(038E6H)
LD (038F5H),HL
INC HL
LD A,L
OR H
JP Z,L185F
LD A,001H
LD (L38D9),A
JP L185F
LD DE,0000AH
LD BC,0000AH
JR Z,L340D ; (+030H)
CP 02CH
JR NZ,L33EC ; (+00bH)
INC HL
CALL L4D65
LD B,D
LD C,E
LD DE,0000AH
JR L340D ; (+021H)
L33EC: CP 02EH
LD DE,(038E2H)
JR Z,L33FD ; (+009H)
CP 00BH
JP NZ,L20FE
INC HL
LD E,(HL)
INC HL
LD D,(HL)
L33FD: INC HL
CALL L5414
CP 02CH
JR NZ,L340D ; (+008H)
PUSH DE
INC HL
CALL L4D65
LD C,E
L340B: LD B,D
POP DE
L340D: CALL L1C66
JP NZ,L20FE
LD A,C
OR B
JP Z,L2101
LD (038E2H),DE
LD (038E4H),BC
LD A,001H
LD (L38DF),A
POP AF
JP L1876
LD A,(L38DF)
OR A
RET Z
JP L3646
LD (L6ABB),HL
DEC H
LD (06AB9H),HL
RET
LD HL,(06ABFH)
LD (HL),000H
INC HL
LD (HL),000H
INC HL
LD (06AB3H),HL
JP L224E
CALL L2239
JP L184D
PUSH HL
PUSH DE
LD HL,(06AB3H)
LD (HL),000H
INC HL
LD (L6AB5),HL
LD A,(038D7H)
LD B,A
INC B
LD DE,00110H
L3461: LD (HL),000H
ADD HL,DE
DJNZ L3461 ; (-005H)
LD (038DAH),HL
LD (HL),000H
INC HL
LD (HL),000H
INC HL
LD (L6AB7),HL
LD (038D3H),HL
POP DE
POP HL
RET
BIT 0,A
CALL NZ,L2287
RET
LD A,001H
JR L3483 ; (+001H)
XOR A
L3483: LD (L38DD),A
RET
PUSH AF
PUSH HL
LD A,05BH
CALL L17D3
LD HL,(038E6H)
CALL L21A7
CALL 00051H
LD A,05DH
CALL L17D3
POP HL
POP AF
RET
LD A,(03901H)
OR A
JP NZ,L20CE
INC HL
CALL L4D50
OR A
JR Z,L34B2 ; (+005H)
CP 002H
JP NC,L2101
L34B2: LD (L5B42),A
LD A,001H
L34B7: LD (03901H),A
RET
CALL 04DBCH
LD A,B
OR A
RET Z
L34C1: LD A,(DE)
INC DE
CALL L17D3
DJNZ L34C1 ; (-007H)
XOR A
RET
XOR A
LD (0265EH),A
CALL L5414
CP 0FBH
JP Z,L2365
PUSH HL
LD HL,(L6AB7)
LD (038D3H),HL
POP HL
CALL L5414
CP 022H
CALL Z,L22BB
JR NZ,L34F3 ; (+00bH)
CALL L5414
CP 03BH
L34ED: INC HL
JR Z,L34F9 ; (+009H)
JP L20FE
L34F3: LD DE,02713H
CALL 00051H
L34F9: LD (02726H),SP
L34FD: CALL 0580BH
PUSH AF
PUSH BC
CALL 02705H
JR Z,L350C ; (+005H)
CALL 03332H
JR L34FD ; (-00fH)
L350C: XOR A
PUSH AF
PUSH HL
LD HL,(L6AB5)
LD DE,00010H
ADD HL,DE
EX DE,HL
CALL 000FAH
JP C,L2069
PUSH DE
LD HL,(02726H)
DEC HL
L3522: LD A,(HL)
OR A
JR Z,L3547 ; (+021H)
LD (02677H),A
DEC HL
DEC HL
LD B,(HL)
DEC HL
LD C,(HL)
DEC HL
L352F: LD (02674H),BC
EX (SP),HL
L3534: CALL L5414
OR A
JR Z,L354E ; (+014H)
CP 02CH
JR NZ,L3541 ; (+003H)
INC HL
JR L3544 ; (+003H)
L3541: CALL L2633
L3544: EX (SP),HL
JR L3522 ; (-025H)
L3547: POP DE
POP HL
LD SP,(02726H)
RET
L354E: LD DE,02713H
CALL 00051H
LD HL,(L6AB5)
LD DE,00010H
L355A: ADD HL,DE
EX DE,HL
CALL 000FAH
JP C,L2069
EX DE,HL
JR L3534 ; (-031H)
INC HL
CALL L5414
CP 054H
JP NZ,L20FE
INC HL
L356F: CALL 0580BH
LD (02677H),A
LD (02674H),BC
PUSH HL
LD HL,0110FH
LD BC,0FE00H
CP 003H
JR Z,L35D4 ; (+050H)
CALL L240E
CP 022H
JR Z,L35EB ; (+060H)
L358B: CALL L2413
JR Z,L35A8 ; (+018H)
DEC C
JR NZ,L3597 ; (+004H)
CP 020H
JR Z,L35BA ; (+023H)
L3597: CP 020H
JR Z,L359D ; (+002H)
LD C,001H
L359D: LD (HL),A
INC HL
CALL L240A
JR C,L35A8 ; (+004H)
DJNZ L358B ; (-01bH)
LD (HL),A
INC HL
L35A8: LD (HL),000H
LD HL,0110FH
CALL L2633
POP HL
CALL L5414
CP 02CH
RET NZ
INC HL
JR L356F ; (-04bH)
L35BA: CALL L240A
JR C,L35A8 ; (-017H)
CP 020H
JR Z,L35BA ; (-009H)
CP 02CH
JR Z,L35A8 ; (-01fH)
CP 00DH
JR Z,L35A8 ; (-023H)
L35CB: DEC (IY+00BH)
LD (IY+00CH),001H
JR L35A8 ; (-02cH)
L35D4: CALL L240E
CP 022H
JR Z,L35EB ; (+010H)
L35DB: CALL L2413
JR Z,L35A8 ; (-038H)
LD (HL),A
INC HL
CALL L240A
JR C,L35A8 ; (-03fH)
DJNZ L35DB ; (-00eH)
JR L35A8 ; (-043H)
L35EB: LD (HL),A
INC HL
LD B,0FFH
L35EF: CALL L240A
JR C,L35A8 ; (-04cH)
LD (HL),A
INC HL
CP 022H
JR Z,L35FE ; (+004H)
DJNZ L35EF ; (-00dH)
JR L35A8 ; (-056H)
L35FE: CALL L240A
JR C,L35A8 ; (-05bH)
CALL L2413
JR Z,L35A8 ; (-060H)
JR L35CB ; (-03fH)
CALL L45B5
RET C
CALL L4571
OR A
RET
OR A
RET Z
CP 02CH
RET Z
CP 00DH
RET
LD A,(HL)
INC HL
CP 0BCH
JP Z,L2536
CP 0C0H
JP Z,L24EA
CP 0C4H
JP Z,02459H
JP L20FE
CALL L243C
RLCA
RLCA
RLCA
RLCA
LD C,A
CALL L243C
OR C
RET
LD A,(DE)
INC DE
SUB 030H
JR C,L3645 ; (+003H)
CP 00AH
RET C
L3645: LD A,B
L3646: RET
L3647: LD A,(DE)
CP 02CH
JR L364F ; (+003H)
LD A,(DE)
CP 03AH
L364F: JR L3654 ; (+003H)
LD A,(DE)
CP 02FH
L3654: INC DE
RET Z
JP L2101
CALL L5414
CP 0F4H
JP NZ,L20FE
INC HL
CALL 04DBCH
LD A,B
CP 006H
JP NZ,L2101
PUSH HL
PUSH DE
LD HL,MONIT
CALL L24A0
CP 018H
JP NC,L2101
CP 00CH
LD A,000H
JR C,L3687 ; (+009H)
PUSH DE
LD DE,PRNTS
OR A
SBC HL,DE
POP DE
INC A
L3687: PUSH AF
CALL L24A0
CP 03CH
JP NC,L2101
CALL L24A0
CP 03CH
JP NC,L2101
POP AF
EX DE,HL
CALL TIMST
POP DE
POP HL
RET
PUSH DE
LD D,H
LD E,L
ADD HL,HL
ADD HL,HL
ADD HL,DE
LD D,H
LD E,L
ADD HL,HL
ADD HL,DE
ADD HL,HL
ADD HL,HL
POP DE
LD A,(DE)
INC DE
SUB 030H
JP C,L20FB
CP 00AH
JP NC,L20FB
PUSH BC
LD C,A
ADD A,A
ADD A,A
ADD A,C
ADD A,A
LD C,A
LD A,(DE)
INC DE
SUB 030H
JP C,L20FB
CP 00AH
JP NC,L20FB
ADD A,C
L36CD: LD C,A
LD B,000H
ADD HL,BC
POP BC
RET
PUSH BC
LD C,A
RLCA
RLCA
RLCA
RLCA
AND 00FH
LD B,A
JR Z,L36E3 ; (+005H)
XOR A
L36DF: ADD A,00AH
DJNZ L36DF ; (-004H)
L36E3: LD B,A
LD A,C
AND 00FH
ADD A,B
POP BC
RET
CALL 057FAH
CALL L4D65
CALL 03332H
PUSH DE
CALL L4D65
CALL 05804H
CALL 04D53H
PUSH AF
CALL L5414
INC HL
CP 0F4H
JP NZ,L20FE
CALL 04DBCH
POP BC
EX (SP),HL
CP B
JR NC,L3710 ; (+001H)
LD B,A
L3710: INC B
JR L3717 ; (+004H)
L3713: LD A,(DE)
LD (HL),A
INC DE
INC HL
L3717: DJNZ L3713 ; (-006H)
POP HL
RET
CP 0B2H
JR NZ,L3726 ; (+007H)
INC HL
CALL L5414
JP 043E2H
L3726: CP 0FFH
JP NZ,L20FE
INC HL
LD A,(HL)
INC HL
CP 0C7H
JP Z,L5C77
JP L20FE
CALL 057FAH
CALL 0580BH
CP 003H
JP NZ,L20FB
PUSH BC
CALL 0332FH
CALL L4D50
OR A
JP Z,L2101
PUSH AF
CALL 0332FH
CALL L4D50
POP BC
LD C,A
PUSH BC
CALL L270D
CALL L5414
CP 0F4H
JP NZ,L20FE
INC HL
CALL 04DBCH
EXX
POP BC
EX (SP),HL
EX AF,AF'
CALL 0527FH
SUB B
JR C,L378C ; (+01dH)
LD L,B
DEC L
LD H,000H
ADD HL,DE
INC A
LD E,A
EX AF,AF'
CP C
JR C,L377B ; (+001H)
LD A,C
L377B: CP E
JR C,L377F ; (+001H)
LD A,E
L377F: PUSH HL
EXX
POP HL
LD B,A
OR A
JR Z,L378C ; (+006H)
L3786: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L3786 ; (-006H)
L378C: POP HL
RET
L378E: XOR A
LD (0272EH),A
PUSH HL
LD HL,(06ABFH)
LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
DEC DE
JR Z,L37A2 ; (+004H)
INC HL
LD E,(HL)
INC L
LD D,(HL)
L37A2: LD (0272AH),DE
POP HL
RET
CALL L1C66
JR Z,L378E ; (-01fH)
INC HL
CP 00CH
JP NZ,L25C7
LD E,(HL)
INC HL
LD D,(HL)
INC HL
EX DE,HL
L37B8: INC HL
INC HL
LD C,(HL)
INC HL
LD B,(HL)
INC HL
LD (0272AH),BC
CALL L26C4
EX DE,HL
RET
CP 00BH
JP NZ,L20FE
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
CALL 035BBH
JP C,L20CB
EX DE,HL
LD (HL),D
DEC HL
LD (HL),E
DEC HL
LD (HL),00CH
INC HL
INC HL
INC HL
EX DE,HL
JR L37B8 ; (-02bH)
L37E3: LD A,03AH
LD (0265EH),A
CALL 0580BH
PUSH HL
LD (02677H),A
LD (02674H),BC
LD A,(0272EH)
CP 001H
JP Z,02613H
JR NC,L381D ; (+020H)
LD HL,(06ABFH)
LD A,(HL)
INC HL
OR (HL)
JR Z,L3813 ; (+00eH)
INC HL
LD E,(HL)
L3807: INC HL
LD D,(HL)
LD (0272AH),DE
INC HL
CALL L26C4
JR NC,L381D ; (+00aH)
L3813: LD A,001H
LD (0272EH),A
LD A,018H
JP L2108
L381D: LD HL,(0272CH)
CALL L2633
LD (0272CH),HL
CALL Z,L26C4
POP HL
CALL L5414
CP 02CH
RET NZ
INC HL
JR L37E3 ; (-050H)
LD DE,(038D3H)
LD B,000H
CALL L5414
CP 022H
JR NZ,L3859 ; (+019H)
INC HL
L3841: LD A,(HL)
OR A
JR Z,L386B ; (+026H)
INC HL
CP 022H
JR Z,L384F ; (+005H)
LD (DE),A
INC DE
INC B
JR L3841 ; (-00eH)
L384F: CALL L5414
CP 02CH
JR NZ,L386B ; (+015H)
INC HL
JR L386B ; (+012H)
L3859: LD A,(HL)
OR A
JR Z,L386B ; (+00eH)
CP 03AH
JR Z,L386B ; (+00aH)
INC HL
CP 02CH
JR Z,L386B ; (+005H)
LD (DE),A
INC DE
INC B
L3869: JR L3859 ; (-012H)
L386B: PUSH HL
PUSH AF
XOR A
LD (DE),A
LD A,B
LD (L268C),A
LD DE,MONIT
LD A,005H
CP 003H
JR NZ,L3899 ; (+01dH)
L387C: LD HL,(038D3H)
LD BC,(06AB5H)
OR A
SBC HL,BC
LD B,H
LD C,L
LD HL,(06AB9H)
LD A,000H
LD (HL),A
INC HL
LD (HL),C
INC HL
LD (HL),B
DEC HL
DEC HL
CALL 01B82H
JR L38BD ; (+024H)
L3899: PUSH DE
PUSH AF
LD HL,(06AB9H)
LD DE,(038D3H)
EX DE,HL
CALL L5414
CP 045H
JP Z,L20FB
EX DE,HL
CALL L3B14
LD A,(DE)
OR A
JP NZ,L20FB
POP AF
POP DE
LD B,A
L38B7: LD A,(HL)
LD (DE),A
INC HL
INC DE
DJNZ L38B7 ; (-006H)
L38BD: POP AF
POP HL
OR A
RET Z
CP 03AH
RET
DEC HL
L38C5: PUSH DE
LD DE,(0272AH)
LD (01E49H),DE
L38CE: CALL L387C
OR A
JR NZ,L38E7 ; (+013H)
INC HL
LD A,(HL)
INC HL
OR (HL)
L38D8: SCF
L38D9: JR Z,L38FE ; (+023H)
INC HL
L38DC: PUSH DE
L38DD: LD E,(HL)
L38DE: INC HL
L38DF: LD D,(HL)
L38E0: LD (026ECH),DE
L38E4: POP DE
JR L38CE ; (-019H)
L38E7: CP 094H
JR NZ,L38CE ; (-01dH)
LD DE,MONIT
L38EE: LD (0272AH),DE
L38F2: INC HL
L38F3: LD (0272CH),HL
LD A,002H
LD (0272EH),A
OR A
POP DE
RET
L38FE: LD A,001H
L3900: LD (0272EH),A
POP DE
RET
CALL L5414
OR A
RET Z
CP 03AH
RET
CALL L5414
JP 05804H
CCF
JR NZ,L3916 ; (+000H)
L3916: ADD A,(HL)
LD (HL),B
NOP
NOP
NOP
SUB C
JR Z,L38DE ; (-040H)
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RST 038H
RST 038H
NOP
NOP
NOP
NOP
INC HL
PUSH BC
CALL 04DBCH
LD A,B
PUSH HL
LD HL,(L6AB5)
LD BC,00010H
LD (02774H),BC
ADD HL,BC
LD B,A
OR A
JP Z,L2101
L3947: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L3947 ; (-006H)
LD (HL),000H
POP HL
POP BC
L3951: CALL L2AE0
JP NC,L1FEC
CALL L1C66
RET Z
L395B: PUSH BC
CALL 0528BH
POP BC
LD A,(06A65H)
PUSH HL
CALL L276A
POP HL
JR L3951 ; (-019H)
CP 003H
JP NZ,028B4H
PUSH DE
LD HL,(L6AB5)
LD DE,00010H
ADD HL,DE
L3977: LD A,(HL)
OR A
JP Z,L2101
CP 021H
JP Z,027E4H
CP 026H
JP Z,L285E
CP 023H
JP Z,L2101
CP 02AH
JP Z,027CDH
CP 024H
JP Z,027D9H
CP 0FBH
JP Z,027D9H
CP 02EH
JP Z,027C1H
CP 02BH
JP Z,L2101
CP 0C4H
JP NZ,L27AF
INC HL
LD A,(HL)
OR A
JP Z,L2101
L39AF: CALL L1F1E
INC HL
LD DE,(06AB5H)
OR A
PUSH HL
SBC HL,DE
LD (02774H),HL
POP HL
JR L3977 ; (-04aH)
INC HL
LD A,(HL)
CP 023H
JP Z,L2101
DEC HL
LD A,02EH
JR L39AF ; (-01eH)
INC HL
LD A,(HL)
CP 02AH
JP Z,L2101
DEC HL
LD A,02AH
JR L39AF ; (-02aH)
INC HL
LD A,(HL)
CP 02AH
JP Z,L2101
DEC HL
LD A,(HL)
JR L39AF ; (-035H)
EX (SP),HL
LD A,(HL)
OR A
LD A,020H
JR Z,L39F6 ; (+00bH)
INC HL
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
LD DE,(06AB5H)
ADD HL,DE
LD A,(HL)
L39F6: CALL L1F1E
POP HL
INC HL
L39FB: LD A,(HL)
OR A
JR Z,L3A4E ; (+04fH)
CP 021H
JR Z,L3A53 ; (+050H)
CP 023H
JR Z,L3A53 ; (+04cH)
CP 026H
JR Z,L3A53 ; (+048H)
CP 02BH
JR Z,L3A53 ; (+044H)
CP 02AH
JR Z,L3A40 ; (+02dH)
CP 02EH
JR Z,L3A2F ; (+018H)
CP 024H
JR Z,L3A38 ; (+01dH)
CP 0FBH
JR Z,L3A38 ; (+019H)
CP 0C4H
JR NZ,L3A29 ; (+006H)
INC HL
LD A,(HL)
OR A
JP Z,L2101
L3A29: CALL L1F1E
INC HL
JR L39FB ; (-034H)
L3A2F: INC HL
LD A,(HL)
LD D,A
CP 023H
LD A,02EH
JR L3A47 ; (+00fH)
L3A38: INC HL
PUSH AF
LD A,(HL)
LD D,A
POP AF
CP D
JR L3A47 ; (+007H)
L3A40: INC HL
LD A,(HL)
LD D,A
CP 02AH
LD A,02AH
L3A47: DEC HL
JR NZ,L3A29 ; (-021H)
LD A,D
OR A
JR NZ,L3A53 ; (+005H)
L3A4E: LD HL,00010H
JR L3A5A ; (+007H)
L3A53: LD DE,(06AB5H)
OR A
SBC HL,DE
L3A5A: LD (02774H),HL
RET
LD D,002H
L3A60: INC HL
LD A,(HL)
CP 026H
JR Z,L3A6E ; (+008H)
INC D
L3A67: CP 020H
JR Z,L3A60 ; (-00bH)
JP L2101
L3A6E: EX (SP),HL
LD A,(HL)
CP D
JR C,L3A8A ; (+017H)
INC HL
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
PUSH BC
LD BC,(06AB5H)
ADD HL,BC
POP BC
L3A7F: LD A,(HL)
CALL L1F1E
INC HL
DEC D
JR NZ,L3A7F ; (-008H)
JP L27F9
L3A8A: LD E,(HL)
INC HL
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
LD A,E
OR A
JR Z,L3AA9 ; (+015H)
PUSH BC
LD BC,(06AB5H)
ADD HL,BC
POP BC
L3A9B: LD A,(HL)
CALL L1F1E
INC HL
DEC E
JR Z,L3AAE ; (+00bH)
DEC D
JR NZ,L3A9B ; (-00bH)
JP L27F9
L3AA9: LD A,020H
CALL L1F1E
L3AAE: DEC D
JR NZ,L3AA9 ; (-008H)
JP L27F9
PUSH DE
L3AB5: XOR A
LD (L2A48),A
LD (L2A99),A
LD (02A80H),A
LD (02A3EH),A
LD (029F8H),A
LD (L2A25),A
LD (L2A43),A
LD (029F1H),A
DEC A
LD (L29EE),A
LD HL,(L6AB5)
LD DE,(02774H)
ADD HL,DE
L3ADA: LD A,(HL)
OR A
JP Z,L2101
CP 021H
JP Z,L2101
CP 026H
JP Z,L2101
CP 023H
JP Z,0295CH
CP 02AH
JP Z,02917H
CP 024H
JP Z,0293AH
CP 0FBH
JP Z,0293AH
CP 02EH
JP Z,L294F
CP 02BH
L3B04: JP Z,L2945
CP 0C4H
JR NZ,L3B11 ; (+006H)
INC HL
LD A,(HL)
OR A
JP Z,L2101
L3B11: CALL L1F1E
L3B14: INC HL
JR L3ADA ; (-03dH)
INC HL
CP (HL)
DEC HL
JR NZ,L3B11 ; (-00bH)
LD A,001H
LD (L2A99),A
INC HL
INC HL
LD A,(HL)
LD D,002H
CP 0FBH
L3B28: JR Z,L3B2E ; (+004H)
CP 024H
JR NZ,L3B5F ; (+031H)
L3B2E: INC HL
INC D
L3B30: LD (02AF4H),A
LD A,001H
LD (02A80H),A
JR L3B5F ; (+025H)
INC HL
CP (HL)
DEC HL
JR NZ,L3B11 ; (-02eH)
INC HL
INC HL
LD D,002H
JR L3B30 ; (-015H)
LD A,001H
LD (L2A48),A
INC HL
LD D,001H
JR L3B5F ; (+010H)
INC HL
LD A,(HL)
DEC HL
CP 023H
LD A,02EH
JR NZ,L3B11 ; (-047H)
LD D,000H
JR L3B5F ; (+003H)
LD D,001H
INC HL
L3B5F: EX DE,HL
DEC H
L3B61: INC H
LD A,(DE)
INC DE
CP 023H
JR Z,L3B61 ; (-007H)
CP 02CH
JR NZ,L3B73 ; (+007H)
LD A,001H
LD (029F8H),A
JR L3B61 ; (-012H)
L3B73: CP 02EH
JR Z,L3B9A ; (+023H)
CP 02DH
JR NZ,L3B83 ; (+008H)
LD A,001H
LD (02A3EH),A
INC DE
JR L3B93 ; (+010H)
L3B83: CP 02BH
JR NZ,L3B93 ; (+00cH)
LD A,(L2A48)
OR A
JR NZ,L3B93 ; (+006H)
LD A,001H
LD (L2A43),A
INC DE
L3B93: DEC DE
LD A,H
LD (L2A25),A
JR L3BCD ; (+033H)
L3B9A: LD A,H
LD (L2A25),A
LD H,0FFH
L3BA0: INC H
LD A,(DE)
INC DE
CP 023H
JR Z,L3BA0 ; (-007H)
CP 02DH
JR NZ,L3BB3 ; (+008H)
LD A,001H
LD (02A3EH),A
INC DE
JR L3BC3 ; (+010H)
L3BB3: CP 02BH
L3BB5: JR NZ,L3BC3 ; (+00cH)
LD A,(L2A48)
OR A
JR NZ,L3BC3 ; (+006H)
LD A,001H
LD (L2A43),A
INC DE
L3BC3: DEC DE
LD A,H
LD (L29EE),A
JR L3BCD ; (+003H)
L3BCA: POP DE
JR L3BDF ; (+012H)
L3BCD: LD H,004H
PUSH DE
L3BD0: LD A,(DE)
INC DE
CP 05EH
JR NZ,L3BCA ; (-00cH)
DEC H
JR NZ,L3BD0 ; (-009H)
POP AF
LD A,001H
LD (029F1H),A
L3BDF: POP HL
PUSH DE
INC HL
LD A,(HL)
RES 7,(HL)
DEC HL
LD (02A75H),A
LD A,(L2A25)
LD D,A
LD A,000H
LD E,A
LD A,000H
PUSH BC
CALL L3E7E
POP BC
LD A,000H
OR A
JR Z,L3C3D ; (+041H)
PUSH BC
PUSH DE
LD A,(L2A25)
LD L,A
LD H,000H
ADD HL,DE
LD DE,06A26H
LD C,000H
DEC HL
L3C0B: LD B,003H
L3C0D: LD A,(HL)
CP 020H
JR Z,L3C24 ; (+012H)
INC C
LD (DE),A
INC DE
DEC HL
DJNZ L3C0D ; (-00bH)
LD A,(HL)
CP 020H
JR Z,L3C24 ; (+007H)
LD A,02CH
LD (DE),A
INC DE
INC C
JR L3C0B ; (-019H)
L3C24: LD A,000H
CP C
JP C,02ADBH
LD B,C
LD L,A
LD H,000H
POP DE
PUSH DE
ADD HL,DE
L3C31: LD DE,06A26H
DEC HL
L3C35: LD A,(DE)
LD (HL),A
DEC HL
L3C38: INC DE
DJNZ L3C35 ; (-006H)
POP DE
POP BC
L3C3D: LD A,000H
OR A
JR NZ,L3C7F ; (+03dH)
LD A,000H
OR A
L3C45: JR NZ,L3C7F ; (+038H)
LD A,000H
L3C49: OR A
JR NZ,L3C74 ; (+028H)
LD A,(02A75H)
RLCA
JR NC,L3C7F ; (+02dH)
LD A,(DE)
CP 020H
LD H,02DH
JR Z,L3C5E ; (+005H)
CP 030H
JP NZ,02ADBH
L3C5E: PUSH DE
L3C5F: LD A,(DE)
INC DE
CP 020H
JR Z,L3C5F ; (-006H)
CP 030H
JR Z,L3C5F ; (-00aH)
L3C69: OR A
JR NZ,L3C6D ; (+001H)
DEC DE
L3C6D: DEC DE
DEC DE
LD A,H
LD (DE),A
POP DE
JR L3C7F ; (+00bH)
L3C74: LD A,000H
RLCA
LD H,02BH
JR NC,L3C5E ; (-01dH)
LD H,02DH
JR L3C5E ; (-021H)
L3C7F: LD A,000H
OR A
JR Z,L3C98 ; (+014H)
LD A,(DE)
CP 020H
JP NZ,02ADBH
L3C8A: PUSH DE
L3C8B: LD A,(DE)
INC DE
CP 020H
JR Z,L3C8B ; (-006H)
DEC DE
DEC DE
L3C93: LD A,(02AF4H)
LD (DE),A
L3C97: POP DE
L3C98: LD A,000H
OR A
JR Z,L3CAA ; (+00dH)
PUSH DE
L3C9E: LD A,(DE)
CP 020H
JR NZ,L3CA9 ; (+006H)
LD A,02AH
LD (DE),A
INC DE
JR L3C9E ; (-00bH)
L3CA9: POP DE
L3CAA: LD A,(DE)
OR A
JR Z,L3CB4 ; (+006H)
CALL L1F1E
INC DE
JR L3CAA ; (-00aH)
L3CB4: LD A,(L2A43)
OR A
JR Z,L3CC9 ; (+00fH)
LD A,(02A75H)
RLCA
LD A,02BH
L3CC0: JR NC,L3CC4 ; (+002H)
LD A,02DH
L3CC4: CALL L1F1E
JR L3CD7 ; (+00eH)
L3CC9: LD A,(02A3EH)
OR A
L3CCD: JR Z,L3CD7 ; (+008H)
LD A,(02A75H)
RLCA
L3CD3: LD A,020H
JR L3CC0 ; (-017H)
L3CD7: POP HL
JP 027FBH
LD A,002H
JP L2108
CALL L5414
OR A
RET Z
CP 03AH
RET Z
CP 02CH
INC HL
SCF
L3CEC: RET Z
CP 03BH
SCF
RET Z
JP L20FE
NOP
STMTWORDTBL:DB "GOT", "O" | 080H ; BASIC statement keyword text table
DB "GOSU", "B" | 080H
DB 080H
DB "RU", "N" | 080H
DB "RETUR", "N" | 080H
DB 052H,045H
L3D0A: DB "STOR", "E" | 080H
DB "RESUM", "E" | 080H
DB "LIS", "T" | 080H
DB 080H
DB "DELET", "E" | 080H
DB 052H
L3D21: DB "ENU", "M" | 080H
DB "AUT", "O" | 080H
DB 080H
DB "FO", "R" | 080H
DB "NEX", "T" | 080H
L3D31: DB "PRIN", "T" | 080H
DB 080H
DB "INPU", "T" | 080H
DB 080H
DB "I", "F" | 080H
DB "DAT", "A" | 080H
DB "REA", "D" | 080H
DB "DI", "M" | 080H
DB "RE", "M" | 080H
DB 045H,04EH
L3D4F: DB "D" | 080H
DB "STO", "P" | 080H
L3D54: DB "CON", "T" | 080H
DB "CL", "S" | 080H
DB 080H
DB "O", "N" | 080H
DB "LE", "T" | 080H
DB "NE", "W" | 080H
DB "POK", "E" | 080H
DB "OF", "F" | 080H
DB "MOD", "E" | 080H
DB 053H,04BH,049H
L3D72: DB "P" | 080H
DB "PLO", "T" | 080H
L3D77: DB "LIN", "E" | 080H
DB "RLIN", "E" | 080H
DB 04DH
L3D81: DB "OV", "E" | 080H
DB 052H,04DH
L3D86: DB "OV", "E" | 080H
DB "TRO", "N" | 080H
DB "TROF", "F" | 080H
DB "INP", "#" | 080H
DB 080H
DB "GE", "T" | 080H
DB "PCOLO", "R" | 080H
DB "PHOM", "E" | 080H
DB "HSE", "T" | 080H
DB "GPRIN", "T" | 080H
DB "KE", "Y" | 080H
L3DB2: DB "AXI", "S" | 080H
DB "LOA", "D" | 080H
DB "SAV", "E" | 080H
DB "MERG", "E" | 080H
DB 080H
DB 043H,04FH,04EH
L3DC7: DB "SOL", "E" | 080H
DB 080H
DB "OUT", "#" | 080H
DB "CIRCL", "E" | 080H
DB "TES", "T" | 080H
DB "PAG", "E" | 080H
DB 080H
DB 080H
DB "ERAS", "E" | 080H
DB "ERRO", "R" | 080H
DB 080H
DB "US", "R" | 080H
DB "BY", "E" | 080H
DB 080H
DB 080H
DB "DE", "F" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "WOPE", "N" | 080H
DB 043H
L3E02: DB "LOS", "E" | 080H
DB "ROPE", "N" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "KIL", "L" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "T", "O" | 080H
DB "STE", "P" | 080H
DB "THE", "N" | 080H
DB "USIN", "G" | 080H
DB 080H
DB 080H
DB 054H
L3E2F: DB "A", "B" | 080H
DB "SP", "C" | 080H
DB 080H
DB 080H
DB 080H
DB "O", "R" | 080H
DB "AN", "D" | 080H
DB 080H
DB ">", "<" | 080H
DB "<", ">" | 080H
DB "=", "<" | 080H
DB "<", "=" | 080H
DB "=", ">" | 080H
DB ">", "=" | 080H
DB "=" | 080H
DB ">" | 080H
DB "<" | 080H
DB "+" | 080H
DB "-" | 080H
DB 080H
DB 080H
DB "/" | 080H
L3E51: DB "*" | 080H
DB "^" | 080H
DB 0FFH
DB 080H
DB "SE", "T" | 080H
DB "RESE", "T" | 080H
DB "COLO", "R" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
L3E7E: DB 080H
DB 080H
DB "MUSI", "C" | 080H
DB "TEMP", "O" | 080H
DB "CURSO", "R" | 080H
DB "VERIF", "Y" | 080H
DB "CL", "R" | 080H
DB "LIMI", "T" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "BOO", "T" | 080H
DB 0FFH
DS 96, 000H ; Zero padding / dispatch work area
L3F09: DS 26, 000H
L3F23: DS 140, 000H
L3FAF: DS 80, 000H
L3FFF: DS 28, 000H
L401B: DS 16, 000H
L402B: DS 12, 000H
L4037: DS 3, 000H
L403A: DS 100, 000H
L409E: DS 40, 000H
L40C6: DS 50, 000H
L40F8: DS 57, 000H
L4131: DS 98, 000H
L4193: DS 18, 000H
L41A5: DS 39, 000H
L41CC: DS 133, 000H
L4251: DS 63, 000H
L4290: DS 17, 000H
L42A1: DS 2, 000H
L42A3: DS 6, 000H
FUNCWORDTBL:DB "IN", "T" | 080H ; BASIC function keyword text table
DB "AB", "S" | 080H
DB "SI", "N" | 080H
DB "CO", "S" | 080H
DB "TA", "N" | 080H
DB "L", "N" | 080H
DB "EX", "P" | 080H
DB "SQ", "R" | 080H
DB "RN", "D" | 080H
DB "PEE", "K" | 080H
DB "AT", "N" | 080H
DB "SG", "N" | 080H
DB "LO", "G" | 080H
DB 080H
DB "PA", "I" | 080H
DB "RA", "D" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "EO", "F" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "JO", "Y" | 080H
DB 080H
DB "CHR", "$" | 080H
DB "STR", "$" | 080H
DB "HEX", "$" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB "AS", "C" | 080H
DB "LE", "N" | 080H
DB "VA", "L" | 080H
L4308: DB 080H
DB 080H
DB 080H
L430B: DB 080H
DB 080H
DB "ER", "N" | 080H
DB "ER", "L" | 080H
DB 053H
L4314: DB 049H,05AH
L4316: DB "E" | 080H
L4317: DB 080H
DB 080H
DB 080H
DB 080H
DB "LEFT", "$" | 080H
DB "RIGHT", "$" | 080H
DB "MID", "$" | 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 053H,054H,052H,049H
L4334: DB "NG", "$" | 080H
DB "TI", "$" | 080H
DB 080H
DB 080H
DB "F", "N" | 080H
L433E: DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
DB 080H
RST 038H
RLCA
JR C,L4317 ; (-033H)
LD (HL),0FEH
L434C: JR NZ,L43BC ; (+06eH)
INC E
SUB H
LD (HL),0A8H
DEC H
EI
LD (HL),002H
LD B,C
CP 020H
LD D,(HL)
INC (HL)
LD (HL),C
INC (HL)
PUSH DE
LD HL,L20FE
CP A
INC E
LD L,A
DEC E
LD L,D
LD E,0FEH
JR NZ,L4334 ; (-036H)
LD (L20FE),HL
CCF
JR C,L4393 ; (+023H)
INC SP
EX (SP),HL
DEC H
JP PE,L235A
INC SP
OR A
LD HL,02071H
SBC A,A
JR NZ,L434C ; (-032H)
L437E: JR C,L437E ; (-002H)
JR NZ,L4314 ; (-06eH)
SCF
LD E,C
ADD HL,DE
LD C,B
LD (033D7H),HL
CP 020H
RET NC
LD C,L
INC L
LD C,(HL)
LD SP,08C3AH
LD C,(HL)
L4393: CP 04EH
DEC B
LD C,A
INC D
LD C,A
LD A,(HL)
LD (L2282),HL
LD D,B
INC SP
CP 020H
ADC A,C
INC SP
DEC DE
LD C,A
LD D,B
LD C,A
LD H,H
LD C,A
HALT
LD C,A
LD HL,0FC43H
LD C,A
POP DE
LD B,C
AND H
LD B,D
XOR E
LD B,C
CP 020H
SRL C
CP 020H
ADD HL,SP
L43BC: INC SP
LD D,B
LD D,B
DAA
LD D,D
DEC SP
LD D,D
CP 020H
CP 020H
CP 020H
DEC B
LD HL,L20FE
DEC B
INC SP
JP NZ,0FE13H
L43D2: JR NZ,L43D2 ; (-002H)
JR NZ,L43F1 ; (+01bH)
DEC H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
AND E
LD B,(HL)
LD B,L
LD B,L
RST 018H
LD B,(HL)
CP 020H
CP 020H
CP 020H
CP 020H
L43F1: CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
LD (BC),A
ADD HL,SP
DEC (HL)
ADD HL,SP
LD (HL),E
LD B,H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
INC A
LD B,H
LD H,E
LD B,H
LD L,H
INC SP
POP DE
LD B,D
LD C,(HL)
LD (L340B),HL
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
LD L,D
LD A,(06277H)
LD (HL),D
LD H,D
ADD A,063H
OR B
LD H,E
CP L
LD H,H
LD (HL),067H
DEC D
LD H,(HL)
RET NC
LD H,D
RET NC
LD H,L
OR L
LD H,L
XOR 062H
LD A,D
LD H,L
LD HL,(0FE67H)
JR NZ,04424H ; (-05eH)
LD H,L
SBC A,L
LD H,L
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
AND E
ADD HL,SP
CP 020H
CP 020H
LD (HL),A
LD D,(HL)
CALL PE,0FE55H
L44AC: JR NZ,L44AC ; (-002H)
L44AE: JR NZ,L44AE ; (-002H)
L44B0: JR NZ,L44B0 ; (-002H)
L44B2: JR NZ,L44B2 ; (-002H)
L44B4: JR NZ,L44B4 ; (-002H)
L44B6: JR NZ,L44B6 ; (-002H)
L44B8: JR NZ,L44B8 ; (-002H)
JR NZ,0445CH ; (-060H)
LD D,(HL)
XOR H
LD D,(HL)
OR H
LD D,(HL)
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
LD H,D
LD D,L
LD L,D
LD D,L
LD C,B
LD D,L
CP 020H
CP 020H
CP 020H
CP 020H
RST 000H
LD D,(HL)
CALL PO,00256H
LD D,A
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CCF
LD D,A
CP 020H
CP 020H
RST 030H
LD E,H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CP 020H
CALL 057FDH
CALL L4D65
PUSH DE
INC HL
CP 029H
JR Z,L451C ; (+00bH)
DEC HL
CALL 03332H
CALL 04DBCH
LD C,B
CALL 05804H
L451C: EX (SP),HL
CALL L3322
POP HL
RET
JP (HL)
DEC HL
L4524: CALL 03880H
OR A
SCF
RET Z
CP 03AH
RET Z
JR L4524 ; (-00bH)
CALL L5414
CP 02CH
JP NZ,L20FE
L4537: INC HL
RET
CALL L4D50
CP LSE0
JR C,L4545 ; (+005H)
CP 0E7H
JP C,L2101
L4545: CALL 0332FH
PUSH DE
CALL L4D50
POP BC
OUT (C),A
RET
CALL L4D50
CALL 0332FH
PUSH DE
CALL 0580BH
CP 005H
JP NZ,L20FB
EX (SP),HL
PUSH BC
EX (SP),HL
POP BC
IN E,(C)
LD D,000H
CALL 03A82H
POP HL
RET
CALL L4D50
CP 028H
L4571: JP NC,L2101
LD (00054H),A
CALL L5414
CALL 03332H
CALL L4D50
CP 019H
JP NC,L2101
LD (00055H),A
RET
L4589: CALL 0580BH
LD (06A65H),A
CP 005H
JP Z,L33BE
PUSH HL
PUSH BC
LD A,0FFH
CALL 00058H
OR A
JR Z,L45AB ; (+00dH)
LD HL,(038D3H)
LD (HL),A
LD BC,(06AB5H)
OR A
SBC HL,BC
LD A,001H
L45AB: LD DE,(06AB9H)
EX DE,HL
LD (HL),A
INC HL
LD (HL),E
INC HL
LD (HL),D
L45B5: LD HL,(06AB9H)
POP DE
CALL 01B82H
POP HL
RET
PUSH HL
PUSH BC
LD A,0FFH
CALL 00058H
SUB 030H
JR C,L45CD ; (+004H)
CP 00AH
JR C,L45CE ; (+001H)
L45CD: XOR A
L45CE: LD E,A
LD D,000H
POP HL
CALL 03A82H
POP HL
RET
CP 040H
JR NZ,L45FF ; (+024H)
LD BC,L33FD
LD (033F0H),BC
INC HL
L45E3: CALL L4D65
CALL 03332H
L45E9: PUSH DE
CALL L4D50
POP DE
EX DE,HL
CALL 000F2H
EX DE,HL
INC DE
CALL L5414
CP 02CH
RET NZ
INC HL
JR L45E9 ; (-014H)
LD (HL),A
RET
L45FF: LD BC,000F2H
LD (033F0H),BC
JR L45E3 ; (-025H)
JP Z,L224E
PUSH HL
CALL L5414
CP 04DH
JR NZ,L462B ; (+018H)
INC HL
CALL L5414
CP 041H
JR NZ,L462B ; (+010H)
INC HL
CALL L5414
CP 058H
JR NZ,L462B ; (+008H)
INC HL
POP DE
PUSH HL
L4626: LD HL,0FF00H
JR L4647 ; (+01cH)
L462B: POP HL
CALL L4D65
PUSH HL
LD HL,(06ABDH)
OR A
L4634: SBC HL,DE
JP C,L20B9
LD HL,(L6AB7)
INC H
INC H
INC H
INC H
L4640: OR A
SBC HL,DE
JP NC,L2101
EX DE,HL
L4647: CALL L2231
POP HL
POP DE
LD SP,(06AB9H)
LD BC,0FFFFH
PUSH BC
PUSH DE
L4655: RET
JP Z,L20FE
CALL L352F
CALL L35EF
EX DE,HL
LD E,C
LD D,B
CALL L6974
L4665: JP L184D
CALL L4D65
LD A,D
OR E
RET NZ
JP L2101
LD DE,0000AH
LD (034EDH),DE
LD (034FFH),DE
LD E,000H
LD (034DCH),DE
JR Z,L46B7 ; (+033H)
CP 02CH
JR Z,L4698 ; (+010H)
CALL 03468H
LD (034EDH),DE
CALL L1C66
JR Z,L46B7 ; (+023H)
CALL 0332FH
DEC HL
L4698: CALL 05413H
CP 02CH
JR Z,L46AF ; (+010H)
CALL 03468H
LD (034DCH),DE
CALL L1C66
JR Z,L46B7 ; (+00cH)
CALL 0332FH
DEC HL
L46AF: INC HL
CALL 03468H
LD (034FFH),DE
L46B7: PUSH HL
LD HL,(034DCH)
L46BB: EX DE,HL
LD HL,(L34ED)
OR A
SBC HL,DE
JP C,L2101
CALL L3522
LD HL,(06ABFH)
L46CB: LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
JR Z,L4709 ; (+037H)
EX DE,HL
ADD HL,DE
DEC HL
EX DE,HL
L46D6: INC HL
LD C,(HL)
INC HL
LD B,(HL)
PUSH HL
LD HL,MONIT
OR A
SBC HL,BC
POP HL
JR Z,L46E9 ; (+005H)
JR C,L46E9 ; (+003H)
EX DE,HL
JR L46CB ; (-01eH)
L46E9: DEC HL
DEC HL
DEC HL
LD BC,MONIT
L46EF: LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
JR Z,L4709 ; (+013H)
EX DE,HL
ADD HL,DE
DEC HL
EX DE,HL
INC HL
LD (HL),C
INC HL
LD (HL),B
LD HL,MONIT
ADD HL,BC
JR C,L470E ; (+00aH)
LD C,L
LD B,H
EX DE,HL
JR L46EF ; (-01aH)
L4709: CALL L352F
POP HL
RET
L470E: LD HL,0000AH
LD (034FFH),HL
LD (L34ED),HL
LD L,000H
LD (034DCH),HL
CALL L34B7
JP L2101
PUSH DE
PUSH HL
LD HL,03574H
LD (03558H),HL
JR L4737 ; (+00bH)
L472C: POP HL
POP DE
RET
PUSH DE
PUSH HL
LD HL,L355A
LD (03558H),HL
L4737: LD HL,(06ABFH)
DEC HL
L473B: INC HL
LD A,(HL)
INC HL
OR (HL)
L473F: JR Z,L472C ; (-015H)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD (035ACH),DE
L4749: CALL 03880H
OR A
JR Z,L473B ; (-014H)
L474F: CP 00BH
JR Z,L4757 ; (+004H)
CP 00CH
JR NZ,L4749 ; (-00eH)
L4757: JP L355A
CP 00BH
JR Z,L4749 ; (-015H)
DEC HL
LD E,(HL)
INC HL
LD D,(HL)
PUSH HL
EX DE,HL
L4764: INC HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
POP HL
LD (HL),D
DEC HL
LD (HL),E
DEC HL
LD (HL),00BH
INC HL
INC HL
L4772: JR L4749 ; (-02bH)
CP 00CH
JR Z,L4749 ; (-02fH)
DEC HL
L4779: PUSH HL
CALL L3A60
LD E,L
L477E: LD D,H
LD A,L
OR H
JR Z,L47B7 ; (+034H)
CALL 035BBH
JR C,L4793 ; (+00bH)
EX DE,HL
POP HL
DEC HL
LD (HL),00CH
INC HL
LD (HL),E
INC HL
LD (HL),D
L4791: JR L4772 ; (-021H)
L4793: EX DE,HL
LD DE,L4C59
CALL 00051H
LD A,020H
CALL L17D3
CALL L21A7
CALL 00051H
LD DE,L2196
CALL 00051H
LD HL,MONIT
CALL L21A7
CALL 00051H
CALL NL
L47B7: POP HL
INC HL
JR L4791 ; (-02aH)
PUSH BC
PUSH DE
EX DE,HL
LD HL,(06ABFH)
L47C1: LD C,(HL)
INC HL
LD B,(HL)
LD A,B
OR C
JR Z,L47EC ; (+024H)
PUSH HL
ADD HL,BC
DEC HL
LD C,L
LD B,H
POP HL
PUSH BC
INC HL
LD C,(HL)
INC HL
LD B,(HL)
LD A,C
CP E
JR NZ,L47E3 ; (+00cH)
LD A,B
CP D
DEC HL
DEC HL
DEC HL
JR NZ,L47E3 ; (+005H)
POP BC
OR A
L47E0: POP DE
POP BC
RET
L47E3: PUSH DE
EX DE,HL
OR A
SBC HL,BC
L47E8: POP DE
POP HL
JR NC,L47C1 ; (-02bH)
L47EC: SCF
JR L47E0 ; (-00fH)
LD DE,MONIT
LD BC,0FFFFH
CALL L1C66
RET Z
CP 02DH
JR Z,L4827 ; (+02aH)
CP 02CH
JP Z,L20FE
CP 02EH
JR NZ,L480C ; (+006H)
LD DE,(038E2H)
JR L4815 ; (+009H)
L480C: CP 00BH
L480E: JP NZ,L20FE
INC HL
LD E,(HL)
INC HL
LD D,(HL)
L4815: INC HL
CALL L1C66
JR Z,L4824 ; (+009H)
CP 02DH
JR Z,L4827 ; (+008H)
CP 02CH
JP Z,L20FE
L4824: LD C,E
LD B,D
RET
L4827: INC HL
CALL L1C66
RET Z
CP 02EH
JR NZ,L4836 ; (+006H)
LD BC,(038E2H)
INC HL
RET
L4836: CP 00BH
JR NZ,L480E ; (-02cH)
INC HL
LD C,(HL)
INC HL
LD B,(HL)
L483E: INC HL
RET
CALL L3647
JP L1872
XOR A
LD DE,(038E2H)
JR Z,L4850 ; (+003H)
CALL L35EF
L4850: PUSH DE
EX DE,HL
CALL 035BBH
POP DE
JR NC,L485F ; (+007H)
LD HL,L6AC1
LD (HL),000H
JR L4863 ; (+004H)
L485F: LD BC,00004H
ADD HL,BC
L4863: EX DE,HL
PUSH DE
LD (038E2H),HL
CALL L21A7
CALL 00051H
LD A,020H
CALL L17D3
POP HL
LD DE,0110FH
PUSH DE
CALL L49CD
POP DE
LD B,000H
L487E: LD A,(DE)
OR A
JR Z,L4889 ; (+007H)
INC B
CALL 0055EH
INC DE
JR L487E ; (-00bH)
L4889: LD A,B
OR A
RET Z
LD A,014H
L488E: CALL L17D3
DJNZ L488E ; (-005H)
RET
POP IX
L4896: POP BC
INC BC
LD A,B
OR C
JR Z,L48B9 ; (+01dH)
INC BC
LD A,B
OR C
JR NZ,L48BD ; (+01cH)
CALL L5414
EX DE,HL
POP HL
LD (038E6H),HL
POP HL
LD (L38E0),HL
POP HL
PUSH IX
CP 03AH
RET Z
OR A
RET Z
EX DE,HL
JP L3807
L48B9: PUSH BC
JP L20E0
L48BD: DEC BC
DEC BC
LD A,012H
CP C
JR NZ,L48B9 ; (-00bH)
EX DE,HL
LD HL,00010H
ADD HL,SP
LD SP,HL
EX DE,HL
JR L4896 ; (-037H)
PUSH HL
CALL 03323H
EX DE,HL
POP HL
POP BC
PUSH DE
EXX
LD HL,(L38E0)
PUSH HL
LD HL,(038E6H)
PUSH HL
L48DE: LD HL,0FFFEH
PUSH HL
LD HL,MONIT
ADD HL,SP
LD DE,(038D3H)
DEC H
DEC H
SBC HL,DE
LD A,00AH
JP C,L20BB
EXX
L48F4: PUSH BC
JP L3807
JP L20FE
LD A,(L38D8)
CP 002H
JP C,L20D4
DEC A
LD (L38D8),A
CALL L1C66
EX DE,HL
LD HL,(038EAH)
LD (038E6H),HL
LD HL,(038ECH)
LD (L38E0),HL
LD HL,(L38EE)
JR NZ,L4920 ; (+004H)
POP BC
JP 01929H
L4920: CP 08EH
JP Z,03323H
EX DE,HL
JP L3807
L4929: CALL 05413H
CP 080H
JR Z,L493D ; (+00dH)
CP 082H
JP NZ,L20FE
CALL 05413H
L4938: CP LSE0
JP NZ,L20FE
L493D: CALL 05413H
CP 00BH
JR NZ,L495F ; (+01bH)
INC HL
PUSH HL
CALL L3A60
LD A,L
OR H
JR Z,L497C ; (+02fH)
CALL 035BBH
JP C,L20CB
LD (038E8H),HL
LD A,001H
L4958: LD (L38D8),A
POP HL
INC HL
INC HL
RET
L495F: CP 022H
JP NZ,L20CB
PUSH HL
CALL L3A67
LD HL,MONIT
LD (038E8H),HL
POP HL
CALL L38C5
OR A
JR Z,L4976 ; (+001H)
INC HL
L4976: LD A,001H
LD (L38D8),A
RET
L497C: LD A,(L38D8)
DEC A
JR Z,L4958 ; (-02aH)
XOR A
LD (L38D8),A
LD HL,(038EAH)
LD (038E6H),HL
LD A,(L38F2)
JP L2108
CALL L5414
CP 0C1H
JR Z,L4929 ; (-070H)
CALL L4D65
LD C,E
LD B,D
CP 087H
JP NC,L20FE
CP 082H
JR NZ,L49B7 ; (+010H)
CALL 05413H
LD E,081H
CP LSE4
JR Z,L49B6 ; (+006H)
CP LSE0
JP NZ,L20FE
DEC E
L49B6: LD A,E
L49B7: PUSH HL
LD HL,03147H
SUB 080H
ADD A,A
LD E,A
LD D,000H
ADD HL,DE
CALL L3A60
EX (SP),HL
INC HL
LD A,B
L49C8: OR A
JR NZ,L49ED ; (+022H)
LD A,C
OR A
L49CD: JR Z,L49ED ; (+01eH)
LD B,A
L49D0: DEC B
RET Z
CALL L5414
CP 022H
JR Z,L49F1 ; (+018H)
CP 00BH
JR Z,L49E2 ; (+005H)
CP 00CH
JP NZ,L20FE
L49E2: INC HL
INC HL
L49E4: CALL 05413H
CP 02CH
INC HL
JR Z,L49D0 ; (-01cH)
DEC HL
L49ED: POP DE
JP 03323H
L49F1: CALL L38C5
OR A
JR Z,L49ED ; (-00aH)
JR L49E4 ; (-015H)
CALL L5414
INC HL
CP LSE4
JP Z,L36CD
L4A02: CP LSE0
JP NZ,L20FE
CALL L5414
L4A0A: INC HL
CP 00CH
JR NZ,L4A21 ; (+012H)
CALL L3A60
L4A12: LD (L38E0),HL
XOR A
LD (L38D9),A
JP 018FEH
L4A1C: LD HL,(06ABFH)
JR L4A12 ; (-00fH)
L4A21: CP 00BH
JP NZ,036F8H
LD E,(HL)
INC HL
LD D,(HL)
LD A,D
OR E
JR Z,L4A1C ; (-011H)
EX DE,HL
CALL 035BBH
JP C,L20CB
EX DE,HL
LD (HL),D
DEC HL
LD (HL),E
DEC HL
LD (HL),00CH
EX DE,HL
JP 03812H
CALL 0528BH
EX AF,AF'
LD A,(DE)
OR A
JR Z,L4A60 ; (+019H)
EX AF,AF'
CP LSE2
JR NZ,L4A5C ; (+010H)
L4A4C: INC HL
CALL L5414
CP 00BH
JR Z,L4A0A ; (-04aH)
CP 00CH
JR Z,L4A0A ; (-04eH)
CP 022H
JR Z,L4A0A ; (-052H)
L4A5C: POP AF
JP 01925H
L4A60: DEC HL
CALL L3869
JR NC,L4A4C ; (-01aH)
JP 018FBH
L4A69: CALL 03880H
OR A
SCF
RET Z
CP 0C2H
RET Z
CP 093H
JR NZ,L4A69 ; (-00dH)
CALL L3869
RET C
JR L4A69 ; (-013H)
INC HL
LD A,(HL)
JR L4A86 ; (+006H)
INC HL
LD A,(HL)
CP 094H
JR Z,L4AA5 ; (+01fH)
L4A86: OR A
RET Z
CP 022H
JR Z,L4AC5 ; (+039H)
CP 0FEH
JR NC,L4AA3 ; (+013H)
CP 097H
JR Z,L4AA5 ; (+011H)
CP 027H
JR Z,L4AA5 ; (+00dH)
CP 020H
RET NC
CP 00BH
RET C
CP 015H
JR NC,L4ABA ; (+018H)
L4AA2: INC HL
L4AA3: INC HL
RET
L4AA5: LD A,(HL)
OR A
RET Z
CP 03AH
RET Z
CP 022H
JR Z,L4AB2 ; (+003H)
INC HL
JR L4AA5 ; (-00dH)
L4AB2: CALL L38C5
OR A
RET Z
INC HL
JR L4AA5 ; (-015H)
L4ABA: AND 00FH
ADD A,L
LD L,A
LD A,000H
ADC A,H
LD H,A
LD A,020H
RET
L4AC5: INC HL
L4AC6: LD A,(HL)
OR A
RET Z
CP 022H
L4ACB: RET Z
JR L4AC5 ; (-009H)
LD A,016H
JP PRNT
NOP
NOP
NOP
NOP
LD BC,MONIT
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
L4AE3: NOP
NOP
NOP
L4AE6: NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
L4AF4: NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CALL L395B
PUSH HL
LD B,001H
SRL D
JR NC,L4B0E ; (+002H)
SLA B
L4B0E: SRL E
JR NC,L4B16 ; (+004H)
SLA B
SLA B
L4B16: CALL 0398EH
SET 3,H
L4B1B: CALL 000EAH
AND 08FH
L4B20: OR C
CALL 000F2H
RES 3,H
CALL 000EAH
CP 0F0H
JR NC,L4B2F ; (+002H)
L4B2D: LD A,0F0H
L4B2F: OR B
CALL 000F2H
POP HL
RET
CALL L395B
L4B38: PUSH HL
LD B,0FEH
SRL D
JR NC,L4B41 ; (+002H)
RL B
L4B41: SRL E
JR NC,L4B49 ; (+004H)
RL B
RL B
L4B49: CALL 0398EH
CALL 000EAH
CP 0F0H
JR NC,L4B55 ; (+002H)
LD A,0F0H
L4B55: AND B
CALL 000F2H
POP HL
RET
CALL L4D50
CP 050H
JP NC,L2101
PUSH AF
LD A,(HL)
CALL 03332H
CALL L4D50
CP 064H
JP NC,L2101
LD E,A
POP AF
L4B72: LD D,A
LD A,(0005DH)
AND 070H
LD C,A
LD A,(HL)
CP 02CH
RET NZ
INC HL
PUSH DE
CALL L4D50
POP DE
CP 008H
JP NC,L2101
RLCA
RLCA
RLCA
RLCA
LD C,A
RET
PUSH DE
LD D,000H
LD H,D
LD L,E
ADD HL,HL
ADD HL,HL
ADD HL,DE
ADD HL,HL
ADD HL,HL
ADD HL,HL
POP DE
LD E,D
LD D,000H
ADD HL,DE
LD DE,VRAM
ADD HL,DE
RET
PUSH HL
CALL L3D21
LD A,H
OR A
JP NZ,L2101
LD A,L
CP 008H
JP NC,L2101
CALL 00061H
POP HL
JR C,L4BC6 ; (+00eH)
JR Z,L4BC6 ; (+00cH)
LD DE,0FFFFH
L4BBD: CALL 03A82H
LD A,005H
LD (06A65H),A
RET
L4BC6: LD E,A
LD D,000H
JR L4BBD ; (-00eH)
JR Z,L4BFB ; (+02eH)
LD A,001H
LD (0004EH),A
LD A,(00056H)
LD B,019H
CALL 03A0EH
LD (00056H),BC
LD A,(HL)
CP 02CH
JR NZ,L4BF6 ; (+013H)
INC HL
LD B,028H
LD A,(0005BH)
CALL 03A0EH
LD (0005BH),BC
L4BF0: LD A,00BH
CALL L17D3
RET
L4BF6: CALL 03A06H
JR L4BF0 ; (-00bH)
L4BFB: LD BC,L1800
XOR A
LD (0004EH),A
LD (00056H),BC
LD BC,L2700
LD (0005BH),BC
RET
LD D,000H
LD E,A
CALL L5414
CP 02CH
JR Z,L4C1D ; (+005H)
PUSH BC
CALL L4D50
POP BC
L4C1D: CALL 0332FH
LD C,E
PUSH BC
CALL L4D50
POP BC
DEC A
JP M,L2101
ADD A,C
CP B
JP NC,L2101
LD B,A
RET
CP 09DH
JR Z,L4C40 ; (+00bH)
CP 0A1H
JP NZ,L20FE
XOR A
L4C3B: LD (0004DH),A
INC HL
RET
L4C40: LD A,(04DCBH)
CP 002H
JP Z,L4FF7
LD A,(04DCDH)
CP 04EH
JP NZ,L4FF7
LD A,(0004DH)
OR A
JR NZ,L4C3B ; (-01bH)
CALL L39FB
L4C59: LD A,016H
CALL PRNT
JR L4C3B ; (-025H)
PUSH AF
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
POP AF
RET
JP L20FE
DI
OUT (LSE4),A
JP MONIT
SUB C
LD L,B
ADD A,D
LD A,(L5D87)
INC C
LD L,D
SUB L
LD B,A
LD (HL),D
LD C,E
LD D,B
LD C,L
OR A
LD H,C
LD BC,0CD41H
ADD A,A
LD E,L
LD A,E
OR D
RET Z
BIT 7,D
LD A,07FH
JR Z,L4C97 ; (+009H)
LD A,D
CPL
LD D,A
LD A,E
CPL
LD E,A
INC DE
LD A,0FFH
L4C97: LD B,091H
L4C99: DEC B
BIT 7,D
JR NZ,L4CA4 ; (+006H)
RL E
RL D
JR L4C99 ; (-00bH)
L4CA4: LD (HL),B
INC HL
AND D
LD (HL),A
INC HL
LD (HL),E
DEC HL
DEC HL
RET
PUSH HL
LD HL,00005H
ADD HL,DE
EX DE,HL
POP HL
RET
LD HL,L3D77
LD BC,00005H
LDIR
RET
CP 030H
RET C
CP 03AH
CCF
RET
LD A,(DE)
RET
CP 05FH
RET Z
CP 030H
RET C
CP 05BH
CCF
L4CD0: RET C
CP 03AH
CCF
RET NC
CP 041H
RET
PUSH HL
LD HL,MONIT
L4CDC: LD A,(DE)
INC DE
CALL L3B04
JR C,L4CFA ; (+017H)
CALL L3C49
CALL L3C49
CALL L3C49
CALL L3C49
ADD A,L
LD L,A
LD A,000H
ADC A,H
JP C,L20F5
LD H,A
JR L4CDC ; (-01eH)
L4CFA: DEC DE
EX DE,HL
EX (SP),HL
CALL 03A82H
POP DE
LD A,005H
RET
SUB 030H
RET C
CP 00AH
CCF
RET NC
CP 011H
RET C
SUB 007H
CP 010H
CCF
RET
CALL L5D87
LD (L6A81),A
LD (06A82H),A
LD (L6A83),A
LD (06A84H),A
LD A,005H
LD (06A65H),A
L4D28: CALL 03C62H
CP 02BH
JR Z,L4D28 ; (-007H)
CP 02DH
JR NZ,L4D39 ; (+006H)
CALL L3B28
JP L5D91
L4D39: CP 024H
JP Z,03AD8H
L4D3E: CP 030H
JR NZ,L4D48 ; (+006H)
LD A,(DE)
INC DE
JR L4D3E ; (-008H)
L4D46: LD A,(DE)
INC DE
L4D48: CP 020H
JR NZ,L4D52 ; (+006H)
LD A,(06A80H)
OR A
L4D50: JR Z,L4D46 ; (-00cH)
L4D52: CP 02EH
JR Z,L4D71 ; (+01bH)
CALL 03ABEH
JR C,L4DB1 ; (+056H)
SUB 030H
CALL L3D0A
CALL 03C4EH
LD A,001H
L4D65: LD (06A82H),A
LD A,(L6A81)
INC A
LD (L6A81),A
JR L4D46 ; (-02bH)
L4D71: LD A,001H
LD (06A84H),A
LD C,A
L4D77: LD A,(DE)
L4D78: INC DE
CP 020H
JR NZ,L4D83 ; (+006H)
LD A,(06A80H)
OR A
JR Z,L4D77 ; (-00cH)
L4D83: CALL 03ABEH
JR C,L4DA9 ; (+021H)
INC C
SUB 030H
JR Z,L4D94 ; (+007H)
PUSH AF
LD A,001H
LD (06A82H),A
L4D93: POP AF
L4D94: PUSH AF
LD A,(06A82H)
LD B,A
LD A,(L6A81)
ADD A,B
LD (L6A81),A
POP AF
L4DA1: CALL L3D0A
CALL 03C4EH
JR L4D77 ; (-032H)
L4DA9: DEC C
JR Z,L4DB1 ; (+005H)
CALL L3C38
JR L4DA9 ; (-008H)
L4DB1: CP 045H
JR Z,L4DC3 ; (+00eH)
L4DB5: DEC DE
LD A,(L6A83)
OR A
RET NZ
LD A,(06A84H)
OR A
RET NZ
LD A,005H
RET
L4DC3: LD A,(DE)
CP 02DH
JR Z,L4DD1 ; (+009H)
CP 02BH
JR Z,L4DD1 ; (+005H)
CALL 03ABEH
JR C,L4DB5 ; (-01cH)
L4DD1: LD A,001H
LD (06A84H),A
PUSH HL
LD HL,05FE1H
LD (L3C31),HL
LD HL,MONIT
LD A,(DE)
INC DE
CP 02BH
JR Z,L4DF2 ; (+00cH)
CP 02DH
JR NZ,L4DF4 ; (+00aH)
PUSH HL
LD HL,L60CC
LD (L3C31),HL
POP HL
L4DF2: LD A,(DE)
INC DE
L4DF4: SUB 030H
JR C,L4E14 ; (+01cH)
CP 00AH
JR NC,L4E14 ; (+018H)
PUSH DE
CALL L3C49
LD E,L
L4E01: LD D,H
CALL L3C49
CALL L3C49
CALL L3C45
LD E,A
LD D,000H
CALL L3C45
POP DE
JR L4DF2 ; (-022H)
L4E14: LD A,H
OR A
JR NZ,L4E4B ; (+033H)
LD A,L
POP HL
PUSH DE
PUSH BC
PUSH HL
LD DE,L6A66
PUSH DE
L4E21: CALL L3AB5
POP HL
LD B,A
INC B
JR L4E2C ; (+003H)
L4E29: CALL L3D0A
L4E2C: DJNZ L4E29 ; (-005H)
EX DE,HL
POP HL
CALL MONIT
POP BC
POP DE
JP L3BB5
PUSH AF
PUSH BC
PUSH DE
LD DE,L3D72
CALL L60CC
POP DE
POP BC
POP AF
RET
ADD HL,DE
RET NC
JR L4E4B ; (+002H)
ADD HL,HL
RET NC
L4E4B: JP L20F5
PUSH DE
PUSH HL
LD HL,L6A66
LD E,A
LD D,000H
CALL 03A82H
EX DE,HL
POP HL
PUSH BC
CALL L5DAF
L4E5F: POP BC
POP DE
RET
L4E62: LD A,(DE)
CP 020H
INC DE
JR Z,L4E62 ; (-006H)
RET
LD A,005H
LD (06A65H),A
LD A,(HL)
L4E6F: OR A
JR Z,L4E76 ; (+004H)
INC HL
LD A,(HL)
DEC HL
RLCA
L4E76: LD A,020H
JR NC,L4E7F ; (+005H)
CALL L5D91
LD A,02DH
L4E7F: PUSH AF
L4E80: CALL L3FAF
CALL L403A
POP AF
DEC DE
LD (DE),A
RET
PUSH BC
CALL L5E4A
POP BC
RET
L4E90: CALL L5D87
L4E93: POP DE
POP HL
POP BC
RET
PUSH BC
PUSH HL
PUSH DE
LD A,(HL)
CP 081H
JR C,L4E90 ; (-00fH)
LD A,(HL)
CP 0A0H
JR NC,L4E93 ; (-011H)
INC HL
CALL L3CD3
PUSH HL
LD L,(HL)
LD B,000H
L4EAC: SRL E
RR D
RR C
RR L
INC A
INC B
CP 0A0H
JR NZ,L4EAC ; (-00eH)
L4EBA: SLA L
RL C
RL D
RL E
DJNZ L4EBA ; (-00aH)
LD A,L
POP HL
LD (HL),A
DEC HL
CALL L3CCD
JR L4E93 ; (-03aH)
LD (HL),C
DEC HL
LD (HL),D
DEC HL
LD (HL),E
RET
LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD C,(HL)
INC HL
RET
LD A,(HL)
OR A
RET Z
INC HL
LD A,(HL)
RES 7,(HL)
DEC HL
PUSH AF
CALL L3CEC
POP AF
RLCA
RET NC
JP L5D91
PUSH BC
L4EED: PUSH HL
PUSH DE
LD A,(HL)
CP 081H
JP C,L3C93
LD DE,L6A66
PUSH HL
CALL 03AB8H
LD HL,L6A66
CALL L3C97
POP DE
EX DE,HL
CALL L5DA6
JP L3C93
PUSH AF
PUSH BC
PUSH DE
LD DE,L3D72
CALL 05FE1H
POP DE
POP BC
POP AF
RET
LD A,(HL)
CP 091H
JR C,L4F21 ; (+005H)
L4F1C: CCF
LD HL,MONIT
RET
L4F21: INC HL
BIT 7,(HL)
JR Z,L4F31 ; (+00bH)
CALL L3D31
LD A,H
CPL
LD H,A
LD A,L
CPL
LD L,A
INC HL
RET
L4F31: DEC HL
LD A,(HL)
CP 091H
JP NC,L20F5
CP 081H
JR C,L4F1C ; (-020H)
PUSH AF
INC HL
LD A,(HL)
L4F3F: INC HL
LD L,(HL)
LD H,A
POP AF
SET 7,H
L4F45: CP 090H
RET Z
INC A
SRL H
RR L
JR L4F45 ; (-00aH)
SBC A,E
LD A,0BCH
JR NZ,L4F54 ; (+000H)
L4F54: SBC A,B
JR L4EED ; (-06aH)
ADD A,B
NOP
SUB H
LD (HL),H
INC H
NOP
NOP
SUB C
LD B,E
LD D,B
NOP
NOP
ADC A,(HL)
INC E
LD B,B
NOP
NOP
ADC A,D
LD A,D
NOP
NOP
NOP
ADD A,A
LD C,B
NOP
NOP
NOP
ADD A,H
JR NZ,L4F75 ; (+000H)
L4F75: NOP
NOP
ADD A,C
NOP
NOP
NOP
NOP
LD A,L
LD C,H
CALL Z,0CDCCH
LD H,(HL)
DEC HL
CALL Z,L1277
PUSH HL
PUSH DE
PUSH BC
LD C,000H
PUSH DE
LD B,000H
LD DE,02710H
CALL L3DB2
LD DE,003E8H
CALL L3DB2
LD DE,00064H
CALL L3DB2
LD DE,0000AH
CALL L3DB2
LD A,L
POP DE
OR 030H
LD (DE),A
INC DE
XOR A
LD (DE),A
POP BC
POP DE
POP HL
RET
LD A,0FFH
L4FB4: INC A
OR A
SBC HL,DE
JR NC,L4FB4 ; (-006H)
ADD HL,DE
OR A
INC B
OR 030H
POP DE
EX (SP),HL
LD (HL),A
INC HL
EX (SP),HL
PUSH DE
INC C
RET
LD HL,(L6A7E)
LD B,000H
L4FCC: LD DE,L3D72
CALL L3C8A
JR C,L4FDA ; (+006H)
CALL L3C38
INC B
JR L4FCC ; (-00eH)
L4FDA: LD DE,L3D77
CALL L3C8A
JR NC,L4FE8 ; (+006H)
CALL L3D0A
DEC B
JR L4FDA ; (-00eH)
L4FE8: PUSH BC
CALL L3FAF
CALL L403A
POP BC
PUSH DE
EX DE,HL
L4FF2: LD A,(HL)
OR A
JR Z,L4FF9 ; (+003H)
INC HL
L4FF7: JR L4FF2 ; (-007H)
L4FF9: DEC HL
LD A,(HL)
INC HL
CP 030H
JR NZ,L5002 ; (+002H)
INC B
DEC HL
L5002: LD A,045H
LD (HL),A
INC HL
LD A,B
LD B,02BH
BIT 7,A
JR Z,L5011 ; (+004H)
NEG
LD B,02DH
L5011: LD (HL),B
INC HL
LD (HL),030H
L5015: SUB 00AH
JR C,L501C ; (+003H)
INC (HL)
JR L5015 ; (-007H)
L501C: ADD A,03AH
INC HL
LD (HL),A
INC HL
LD (HL),000H
POP DE
RET
PUSH HL
LD E,(HL)
INC HL
LD D,(HL)
L5029: EX DE,HL
CALL L3E2F
POP HL
RET
LD DE,06A26H
PUSH DE
CALL L3D86
POP DE
JP L409E
PUSH HL
LD E,(HL)
INC HL
LD D,(HL)
BIT 7,D
JR Z,L5029 ; (-019H)
LD HL,MONIT
OR A
SBC HL,DE
CALL L3E2F
DEC DE
LD A,02DH
LD (DE),A
POP HL
RET
PUSH HL
CALL L3D21
LD DE,06A31H
PUSH DE
CALL L3D86
POP HL
LD A,030H
LD B,005H
L5061: CP (HL)
JR NZ,L5069 ; (+005H)
INC HL
DJNZ L5061 ; (-006H)
JR L5072 ; (+009H)
L5069: LD A,B
LD (L6A81),A
LD A,001H
LD (06A82H),A
L5072: LD A,02EH
LD (L6A36),A
POP HL
CALL 03CDAH
JP L3FFF
OR A
JP Z,L3F09
PUSH DE
LD A,(HL)
OR A
JR Z,L50C6 ; (+03fH)
PUSH HL
LD A,D
LD DE,L6A6E
PUSH AF
CALL L3AB5
POP AF
OR A
JR Z,L509F ; (+00bH)
LD B,A
LD HL,L6A6E
JR L509D ; (+003H)
L509A: CALL L3D0A
L509D: DJNZ L509A ; (-005H)
L509F: POP HL
LD B,000H
L50A2: LD DE,L6A6E
CALL L3C8A
JR C,L50B0 ; (+006H)
CALL L3C38
INC B
JR L50A2 ; (-00eH)
L50B0: PUSH HL
LD HL,L6A6E
CALL L3C38
POP HL
L50B8: LD DE,L6A6E
CALL L3C8A
JR NC,L50C6 ; (+006H)
CALL L3D0A
DEC B
JR L50B8 ; (-00eH)
L50C6: POP DE
PUSH BC
CALL L3F23
POP BC
PUSH DE
LD A,(DE)
CP 02EH
JR NZ,L50E4 ; (+012H)
LD DE,L6A36
DEC DE
LD A,(DE)
CP 031H
POP DE
PUSH DE
JR NZ,L5100 ; (+023H)
EX DE,HL
INC HL
LD (HL),031H
DEC HL
JR L50FE ; (+01aH)
L50E4: LD A,(DE)
CP 031H
JR NZ,L5100 ; (+017H)
EX DE,HL
INC HL
LD A,(HL)
DEC HL
CP 02EH
LD A,030H
JR Z,L50F5 ; (+002H)
LD A,020H
L50F5: LD (HL),A
L50F6: INC HL
LD A,(HL)
CP 02EH
JR Z,L50F6 ; (-006H)
LD (HL),031H
L50FE: EX DE,HL
INC B
L5100: LD A,(DE)
INC DE
OR A
JR NZ,L5100 ; (-005H)
DEC DE
JP L3E02
PUSH DE
CALL L3F23
POP AF
OR A
RET NZ
PUSH HL
LD HL,L6A36
DEC HL
LD A,030H
CP (HL)
L5118: JP NZ,02ADBH
DEC HL
LD A,020H
CP (HL)
JR NZ,L5118 ; (-009H)
POP HL
RET
PUSH DE
CALL L3FAF
JP C,02ADBH
POP HL
PUSH HL
LD H,000H
INC L
JR Z,L5132 ; (+001H)
DEC L
L5132: LD DE,L6A37
ADD HL,DE
LD A,(HL)
LD (HL),000H
LD DE,L3036
CP 035H
JR C,L514F ; (+00fH)
L5140: DEC HL
LD A,(HL)
CP 02EH
JR Z,L5140 ; (-006H)
INC A
JP Z,02ADBH
LD (HL),A
CP 03AH
JR Z,0513AH ; (-015H)
L514F: LD HL,0110EH
LD DE,02000H
L5155: LD (HL),D
INC HL
DEC E
JR NZ,L5155 ; (-005H)
POP HL
PUSH HL
LD E,H
LD D,000H
LD HL,0110FH
ADD HL,DE
PUSH HL
LD HL,06A2DH
LD (HL),020H
INC HL
LD D,007H
L516C: LD A,(HL)
CP 030H
JR NZ,L5177 ; (+006H)
LD (HL),020H
INC HL
DEC D
JR NZ,L516C ; (-00bH)
L5177: POP HL
PUSH HL
LD B,E
LD A,B
OR A
L517C: JR Z,L5195 ; (+017H)
LD DE,L6A36
L5181: DEC HL
DEC DE
LD A,(DE)
LD (HL),A
CP 020H
JR Z,L5195 ; (+00cH)
DJNZ L5181 ; (-00aH)
DEC DE
LD A,(DE)
CP 020H
JR Z,L5195 ; (+004H)
INC A
JP NZ,02ADBH
L5195: POP HL
POP DE
INC E
JR Z,L51A9 ; (+00fH)
LD B,E
LD DE,L6A37
LD (HL),02EH
L51A0: INC HL
DEC B
JR Z,L51A9 ; (+005H)
LD A,(DE)
INC DE
LD (HL),A
JR L51A0 ; (-009H)
L51A9: LD (HL),000H
L51AB: LD DE,0110FH
RET
LD (L6A7E),HL
XOR A
LD (L6A81),A
LD (06A82H),A
PUSH HL
LD HL,06A2DH
LD (HL),0FFH
LD B,021H
LD A,030H
L51C3: INC HL
LD (HL),A
DJNZ L51C3 ; (-004H)
LD A,02EH
LD (L6A36),A
POP HL
LD A,(HL)
OR A
RET Z
LD DE,L3D4F
CALL L5E4A
CCF
RET C
LD DE,L3D81
CALL L5E4A
RET C
LD DE,L6A6E
PUSH DE
CALL 03AB8H
POP HL
LD A,(HL)
CP 081H
JR C,L51FF ; (+013H)
CP 090H
JP C,L3E51
LD IX,L6A2E
L51F5: LD DE,L3D54
CALL L40C6
CALL L40F8
RET NC
L51FF: LD IX,L6A37
L5203: LD DE,L3D4F
PUSH BC
PUSH IX
L5209: CALL 05FE1H
POP IX
L520E: POP BC
CALL 03AADH
CALL L40C6
L5215: CALL L40F8
L5218: JR C,L5203 ; (-017H)
RET
LD A,005H
LD (06A65H),A
PUSH HL
LD DE,L6A76
PUSH DE
CALL 03AB8H
POP HL
CALL L3FAF
CALL L4037
POP HL
RET
L5231: LD DE,L6A36
LD (DE),A
DEC DE
RET
JP C,L3DC7
LD HL,(L6A7E)
LD A,(HL)
OR A
JR Z,L5231 ; (-010H)
LD DE,L6A2E
DEC DE
EX DE,HL
LD DE,00001H
L5249: INC HL
LD A,(HL)
CP 02EH
JR NZ,L5254 ; (+005H)
LD DE,MONIT
JR L5249 ; (-00bH)
L5254: CP 030H
JR Z,L5249 ; (-00fH)
ADD HL,DE
LD DE,00008H
ADD HL,DE
LD A,(HL)
L525E: LD (HL),030H
CP 035H
JR C,L5273 ; (+00fH)
L5264: DEC HL
LD A,(HL)
CP 02EH
JR Z,L5264 ; (-006H)
INC A
JR Z,L52AD ; (+040H)
LD (HL),A
CP 03AH
JR Z,L525E ; (-014H)
INC HL
L5273: LD DE,L6A36
EX DE,HL
OR A
SBC HL,DE
EX DE,HL
JR C,L5282 ; (+005H)
LD HL,L6A36
JR L5299 ; (+017H)
L5282: DEC HL
LD A,(HL)
CP 02EH
DEC HL
JR Z,L5298 ; (+00fH)
INC HL
CP 030H
JR Z,L5273 ; (-01bH)
PUSH HL
LD DE,L6A3F
SBC HL,DE
POP HL
JP NC,L3DC7
L5298: INC HL
L5299: LD (HL),000H
LD DE,L6A2E
L529E: LD A,(DE)
CP 030H
JR NZ,L52A6 ; (+003H)
INC DE
JR L529E ; (-008H)
L52A6: OR A
RET NZ
DEC DE
LD A,030H
LD (DE),A
RET
L52AD: LD HL,06A26H
LD (HL),031H
INC HL
LD (HL),045H
LD DE,03038H
INC HL
LD (HL),02BH
INC HL
LD (HL),D
INC HL
LD (HL),E
INC HL
LD (HL),000H
LD DE,06A26H
RET
L52C6: LD A,(DE)
CP 07DH
RET Z
L52CA: CALL L5E4A
JR C,L52E2 ; (+013H)
INC (IX+000H)
PUSH IX
PUSH BC
CALL L5DA6
POP BC
POP IX
LD A,001H
LD (06A82H),A
JR L52CA ; (-018H)
L52E2: INC IX
CALL 03AADH
LD A,(06A82H)
LD B,A
LD A,(L6A81)
ADD A,B
LD (L6A81),A
CALL L40F8
RET NC
JR L52C6 ; (-032H)
LD A,(HL)
OR A
RET Z
LD A,(L6A81)
CP 009H
RET
NOP
XOR A
LD (L1819),A
CALL L5414
CP 0FBH
JR NZ,L5322 ; (+015H)
INC HL
CALL L5414
CP 050H
JP NZ,L20FE
INC HL
LD (L1819),A
LD A,(04DCBH)
CP 002H
JP Z,L4FF7
L5322: CALL L35EF
LD (04146H),DE
LD (04154H),BC
PUSH HL
LD HL,(06ABFH)
L5331: LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD A,D
OR E
JP Z,L41A5
EX DE,HL
L533B: ADD HL,DE
DEC HL
DEC HL
EX DE,HL
PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
INC HL
PUSH HL
LD HL,MONIT
OR A
SBC HL,DE
JR C,L5353 ; (+006H)
JR Z,L5353 ; (+004H)
POP HL
POP HL
JR L5331 ; (-022H)
L5353: LD HL,MONIT
OR A
SBC HL,DE
JR NC,L535F ; (+004H)
POP HL
POP HL
JR L53A5 ; (+046H)
L535F: POP HL
EX DE,HL
PUSH DE
LD (038E2H),HL
CALL L21A7
CALL L17E2
LD A,020H
CALL L17D3
POP HL
LD DE,0110FH
PUSH DE
CALL L49CD
POP DE
LD A,(L1819)
OR A
JR NZ,L5389 ; (+00aH)
L537F: LD A,(DE)
OR A
JR Z,L538C ; (+009H)
CALL 0055EH
INC DE
JR L537F ; (-00aH)
L5389: CALL L17E2
L538C: CALL L17F9
POP HL
L5390: XOR A
CALL 00058H
CP 020H
JR Z,L5390 ; (-008H)
CP 01BH
JP NZ,L4131
POP HL
XOR A
LD (L1819),A
JP L2069
L53A5: POP HL
XOR A
LD (L1819),A
RET
XOR A
LD (00FFCH),A
CALL L46D6
PUSH HL
LD DE,L430B
LD HL,00FFCH
L53B9: CALL L473F
LD A,001H
LD (L42A3),A
LD A,(00FFCH)
CP 002H
JR Z,L53F4 ; (+02cH)
CP 005H
JR Z,L53F4 ; (+028H)
L53CC: LD A,018H
JP L2108
XOR A
LD (00FFCH),A
CALL L46D6
PUSH HL
LD DE,L430B
LD HL,00FFCH
CALL L473F
LD A,(00FFCH)
CP 001H
JR Z,L542E ; (+045H)
CP 004H
JR Z,L53CC ; (-021H)
XOR A
LD (L42A3),A
CALL L2239
L53F4: LD HL,(06AB9H)
LD DE,00200H
OR A
SBC HL,DE
LD (L4251),HL
LD A,(00FFCH)
CP 002H
JR Z,L544D ; (+046H)
LD A,(L42A3)
CP 001H
JR Z,L5450 ; (+042H)
LD HL,(06ABFH)
LD (01010H),HL
L5414: LD BC,(0100EH)
CALL RDDAT
JP C,L4779
LD HL,(01010H)
LD DE,(0100EH)
ADD HL,DE
LD (06AB3H),HL
CALL L224E
POP HL
RET
L542E: LD HL,(01010H)
PUSH HL
PUSH DE
LD DE,(06ABBH)
OR A
SBC HL,DE
LD A,012H
JP C,L2108
POP DE
POP HL
LD BC,(0100EH)
CALL RDDAT
JP C,L477E
POP HL
RET
L544D: LD (L42A3),A
L5450: LD HL,MONIT
LD DE,(0100EH)
OR A
SBC HL,DE
LD (01010H),HL
LD (L42A1),HL
LD DE,(06AB3H)
INC D
INC D
INC D
INC D
INC D
OR A
SBC HL,DE
JP C,L20B9
LD HL,(01010H)
LD BC,(0100EH)
CALL RDDAT
JP C,L4779
LD A,(00FFCH)
CP 005H
JR Z,L548C ; (+009H)
LD DE,L4290
CALL 00051H
CALL LETNL
L548C: POP HL
JP L1876
DB "CONVERT" ; CONVERTING TEXT string
L5497: DB "ING TEXT",000H
NOP
NOP
NOP
NOP
CALL L352F
PUSH HL
LD HL,00FFCH
LD (HL),005H
LD HL,(06ABFH)
LD (01010H),HL
EX DE,HL
LD HL,(06AB3H)
OR A
SBC HL,DE
LD (0100EH),HL
POP HL
CALL 046C1H
PUSH HL
LD HL,(01010H)
LD BC,(0100EH)
CALL WRDAT
JP C,L477E
POP HL
RET
CALL L352F
CALL L46D6
PUSH HL
LD DE,L4316
LD HL,00FFCH
CALL L473F
LD BC,(0100EH)
LD A,(00FFCH)
LD HL,(06ABFH)
CP 005H
JR Z,L54F7 ; (+008H)
CP 001H
JP NZ,L41CC
LD HL,(01010H)
L54F7: CALL VERFY
JP C,L477E
CALL NL
LD DE,L4308
CALL 00051H
POP HL
RET
LD C,A
LD C,E
NOP
DB "LOADING" ; LOADING string
DS 3, 020H
NOP
DB "VERIFYING " ; VERIFYING string
NOP
CP 087H
JP NZ,L20FE
INC HL
PUSH HL
LD C,000H
L552A: CALL NL
LD DE,04432H
CALL 00051H
LD A,C
CP 009H
JR Z,L553C ; (+004H)
ADD A,031H
JR L5542 ; (+006H)
L553C: LD A,031H
CALL L17D3
DEC A
L5542: CALL L17D3
LD A,029H
CALL L17D3
LD A,03DH
CALL L17D3
LD A,C
CALL 04424H
LD B,(HL)
INC HL
LD DE,0110FH
CALL 0436CH
LD DE,0110FH
CALL 00051H
INC C
LD A,C
CP 00AH
L5565: JR NZ,L552A ; (-03dH)
CALL NL
POP HL
RET
EX DE,HL
PUSH BC
LD A,B
OR A
LD C,000H
JR Z,L559D ; (+029H)
L5574: LD A,(DE)
CP 020H
JR C,L55A2 ; (+029H)
CP 022H
JR Z,L55A2 ; (+025H)
LD A,C
CP 001H
JR Z,L558E ; (+00cH)
OR A
JR Z,L558B ; (+006H)
LD (HL),029H
INC HL
L5588: LD (HL),02BH
INC HL
L558B: LD (HL),022H
INC HL
L558E: LD A,(DE)
LD (HL),A
INC DE
INC HL
LD C,001H
DJNZ L5574 ; (-022H)
L5596: LD (HL),022H
L5598: INC HL
LD (HL),000H
POP BC
RET
L559D: LD (HL),022H
INC HL
JR L5596 ; (-00cH)
L55A2: LD A,C
CP 0FFH
JR Z,L55DE ; (+037H)
OR A
JR Z,L55B0 ; (+006H)
LD (HL),022H
INC HL
LD (HL),02BH
INC HL
L55B0: LD (HL),043H
INC HL
LD (HL),048H
INC HL
LD (HL),052H
INC HL
LD (HL),024H
INC HL
LD (HL),028H
L55BE: INC HL
PUSH DE
PUSH HL
PUSH BC
EX DE,HL
LD L,(HL)
LD H,000H
CALL L21A7
POP BC
POP HL
L55CB: LD A,(DE)
OR A
JR Z,L55D4 ; (+005H)
LD (HL),A
INC DE
INC HL
JR L55CB ; (-009H)
L55D4: POP DE
INC DE
LD C,0FFH
DJNZ L5574 ; (-066H)
LD (HL),029H
JR L5598 ; (-046H)
L55DE: LD (HL),02CH
JR L55BE ; (-024H)
CALL L5414
L55E5: CP 028H
INC HL
JP NZ,L20FE
CALL L4D50
PUSH AF
CALL L5414
CALL 05804H
CALL L5414
CP 0F4H
JP NZ,L20FE
INC HL
POP AF
L55FF: DEC A
CP 00AH
JP NC,L2101
PUSH HL
CALL 04424H
EX (SP),HL
CALL 04DBCH
EX (SP),HL
LD A,B
L560F: CP 010H
JR C,L5615 ; (+002H)
LD A,00FH
L5615: LD (HL),A
L5616: OR A
JR Z,L5621 ; (+008H)
LD B,A
INC HL
L561B: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L561B ; (-006H)
L5621: POP HL
EI
RET
ADD A,A
ADD A,A
ADD A,A
ADD A,A
LD HL,L1322
ADD A,L
LD L,A
L562D: LD A,000H
ADC A,H
LD H,A
RET
LD B,H
LD B,L
LD B,(HL)
JR NZ,05682H ; (+04bH)
LD B,L
LD E,C
JR Z,L563B ; (+000H)
L563B: INC HL
CALL 04DBCH
LD A,B
OR A
JR Z,L5657 ; (+014H)
PUSH HL
LD HL,0110FH
EX DE,HL
LD C,B
LD B,000H
LDIR
LD A,00DH
LD (DE),A
LD DE,0110FH
CALL MELDY
POP HL
L5657: CALL L5414
CP 03BH
JR Z,L563B ; (-023H)
CP 02CH
JR Z,L563B ; (-027H)
RET
CALL L4D50
L5666: OR A
JP Z,L2101
CP 008H
JP NC,L2101
CALL 00041H
RET
CALL L5414
CP 02CH
JR NZ,L568E ; (+014H)
INC HL
CALL L5414
CP 02CH
JP NZ,L20FE
INC HL
PUSH HL
LD HL,0005DH
LD (04533H),HL
POP HL
JR L56CE ; (+040H)
L568E: CALL L4D50
CP 028H
JP NC,L2101
LD (04535H),A
CALL L5414
CP 02CH
JP NZ,L20FE
INC HL
CALL L5414
CP 02CH
JP Z,L20FE
CALL L4D50
CP 025H
JP NC,L2101
LD (04536H),A
PUSH HL
LD HL,(04535H)
PUSH DE
CALL 005C5H
LD D,0D8H
ADD HL,DE
POP DE
LD (04533H),HL
POP HL
CALL L5414
CP 02CH
JP NZ,L20FE
INC HL
L56CE: CALL L5414
CP 02CH
INC HL
JR Z,L5701 ; (+02bH)
DEC HL
CALL L4D50
CP 008H
JP NC,L2101
RLA
RLA
RLA
RLA
AND 070H
LD B,A
PUSH HL
LD HL,(04533H)
LD A,H
CP 0D8H
JR NC,L56F7 ; (+008H)
LD A,(HL)
AND 08FH
OR B
LD (HL),A
POP HL
JR L5701 ; (+00aH)
L56F7: CALL 000EAH
AND 08FH
OR B
CALL 000F2H
POP HL
L5701: CALL L5414
CP 02CH
JR NZ,L5709 ; (+001H)
INC HL
L5709: CALL L1C66
RET Z
CALL L4D50
CP 008H
JP NC,L2101
AND 007H
LD B,A
PUSH HL
LD HL,(04533H)
LD A,H
CP 0D8H
JR NC,L5728 ; (+007H)
LD A,(HL)
AND 0F8H
OR B
LD (HL),A
POP HL
RET
L5728: CALL 000EAH
AND 0F8H
OR B
CALL 000F2H
POP HL
RET
NOP
NOP
NOP
NOP
LD IY,(L6AB5)
LD DE,00110H
ADD IY,DE
LD A,(IY+000H)
OR A
RET
PUSH HL
CALL L4537
JR Z,L576B ; (+020H)
LD A,(IY+001H)
CP 04FH
JR NZ,L576B ; (+019H)
LD A,(00FFCH)
CP 004H
JR NZ,L576B ; (+012H)
CALL 04696H
LD (HL),01AH
PUSH IY
POP HL
LD BC,0000EH
ADD HL,BC
CALL 0461EH
JP C,L477E
L576B: LD (IY+000H),000H
POP HL
RET
PUSH HL
PUSH BC
CALL L45B5
JP C,L4589
CALL 04696H
LD A,(HL)
INC (IY+00BH)
JR NZ,L5786 ; (+004H)
LD (IY+00CH),000H
L5786: POP BC
POP HL
RET
LD A,03FH
JP L2108
INC B
L578F: LD A,(IY+00CH)
OR A
JR NZ,L57AD ; (+018H)
LD BC,00090H
ADD HL,BC
LD BC,00080H
CALL L474F
CALL RDDAT
JP C,L477E
LD (IY+00BH),080H
LD (IY+00CH),001H
L57AD: CALL 04696H
LD A,(HL)
CP 0FFH
JR L57F1 ; (+03cH)
PUSH BC
PUSH DE
PUSH HL
CALL L4626
PUSH IY
POP HL
LD A,(0458EH)
CP 003H
JR Z,L578F ; (-036H)
LD BC,0000EH
ADD HL,BC
LD A,(IY+00CH)
OR A
JR NZ,L57DC ; (+00dH)
PUSH HL
CALL 045F6H
POP HL
LD (IY+00BH),000H
LD (IY+00CH),001H
L57DC: LD A,(HL)
INC HL
L57DE: AND (HL)
INC A
OR A
JR NZ,L57F2 ; (+00fH)
LD BC,00100H
ADD HL,BC
L57E7: LD A,(HL)
DEC HL
DEC C
OR A
JR Z,L57E7 ; (-006H)
LD A,(IY+00BH)
CP C
L57F1: CCF
L57F2: POP HL
POP DE
POP BC
RET
LD BC,00102H
L57F9: CALL L474F
CALL RDDAT
L57FF: JP C,L477E
RET
L5803: LD BC,00102H
CALL L474F
CALL WRDAT
PUSH AF
CALL 04758H
CALL 04616H
POP AF
JR L57FF ; (-017H)
INC (IY+00EH)
RET NZ
INC (IY+00FH)
RET
LD A,0FFH
LD (HL),A
INC HL
LD (HL),A
DEC HL
JR L5803 ; (-023H)
PUSH AF
CALL 04645H
LD A,(IY+001H)
CP 049H
JP NZ,L4640
POP AF
RET
PUSH AF
CALL 04645H
LD A,(IY+001H)
CP 04FH
JP Z,04632H
LD A,018H
JP L2108
CALL L4537
RET NZ
LD A,018H
JP L2108
CALL L4537
LD A,(IY+00DH)
RET
CALL L4634
L5858: LD A,020H
CALL 0466FH
LD A,(IY+00DH)
AND 007H
RET Z
JR L5858 ; (-00dH)
CALL L4634
LD A,0FFH
LD (IY+00DH),A
LD A,00DH
PUSH HL
PUSH DE
PUSH BC
PUSH AF
CALL L4634
INC (IY+00DH)
CALL 04696H
POP AF
LD (HL),A
L587E: PUSH AF
INC (IY+00BH)
JR NZ,L5891 ; (+00dH)
PUSH IY
POP HL
LD BC,0000EH
ADD HL,BC
L588B: CALL 04603H
CALL 04758H
L5891: POP AF
POP BC
POP DE
POP HL
RET
PUSH IY
POP HL
LD C,010H
LD B,000H
ADD HL,BC
LD C,(IY+00BH)
ADD HL,BC
RET
LD A,004H
LD (00FFCH),A
CALL L172C
PUSH HL
CALL L4537
JR NZ,L592D ; (+07cH)
L58B1: CALL L4764
LD (IY+001H),04FH
CALL 046C4H
L58BB: POP HL
LD (IY+000H),001H
RET
CALL L172C
L58C4: PUSH HL
LD HL,00FFCH
LD BC,00080H
CALL L474F
CALL WRINF
JP C,L477E
POP HL
RET
CALL L172C
PUSH HL
CALL 04708H
POP HL
RET
L58DF: LD A,000H
LD (00FFCH),A
CALL L172C
PUSH HL
CALL L4537
JR NZ,L592D ; (+040H)
L58ED: CALL L4764
LD (IY+001H),049H
L58F4: CALL 04708H
LD A,(00FFCH)
LD (0458EH),A
CP 004H
JR Z,L58BB ; (-046H)
CP 003H
JP NZ,L41CC
JR L58BB ; (-04dH)
L5908: LD HL,0110FH
LD BC,00080H
CALL L474F
CALL RDINF
JR C,L597E ; (+068H)
LD DE,L180E
CALL L473F
CALL L16EE
JR NZ,L5908 ; (-019H)
LD HL,0110FH
LD DE,00FFCH
LD BC,00080H
LDIR
RET
L592D: LD A,02BH
JP L2108
LD DE,00FFCH
LD BC,00020H
PUSH HL
LDIR
POP HL
JP L46BB
CALL 04746H
CALL Z,016C8H
RET
PUSH HL
LD HL,(038E6H)
INC HL
LD A,H
OR L
POP HL
RET
PUSH AF
CALL 04746H
LD (00050H),A
POP AF
RET
PUSH HL
PUSH BC
PUSH IY
POP HL
LD BC,00010H
ADD HL,BC
XOR A
JR L5970 ; (+00cH)
PUSH HL
PUSH BC
PUSH IY
POP HL
LD B,010H
XOR A
L596C: LD (HL),A
INC HL
DJNZ L596C ; (-004H)
L5970: LD B,000H
L5972: LD (HL),A
INC HL
DJNZ L5972 ; (-004H)
POP BC
POP HL
RET
PUSH AF
CALL L2239
POP AF
L597E: EX AF,AF'
XOR A
LD (L1819),A
CALL L4537
LD (IY+000H),000H
EX AF,AF'
CP 002H
JP NZ,L2069
LD A,018H
JP L2108
PUSH DE
PUSH BC
EX DE,HL
CALL L5414
EX DE,HL
LD C,000H
L599E: CALL 0493EH
OR A
JR Z,L59DD ; (+039H)
CP 0FFH
JR Z,L59D2 ; (+02aH)
INC DE
CP 060H
JP NC,L20FE
CP 020H
JR C,L599E ; (-014H)
DEC DE
CP 027H
JP Z,L483E
CP 03FH
JR Z,L59D6 ; (+01aH)
CP 022H
JR Z,L59E1 ; (+021H)
CP 02EH
JR Z,L59CD ; (+009H)
CP 024H
JR Z,L59CD ; (+005H)
CALL 03ABEH
JR C,L5A02 ; (+035H)
L59CD: CALL 04948H
JR L599E ; (-034H)
L59D2: LD (HL),LSE4
JR L59D8 ; (+002H)
L59D6: LD (HL),08FH
L59D8: CALL 04937H
JR L599E ; (-03fH)
L59DD: LD (HL),A
POP BC
POP DE
RET
L59E1: CALL 0492BH
JR Z,L59DD ; (-009H)
JR L599E ; (-04aH)
L59E8: JR L599E ; (-04cH)
L59EA: POP BC
LD A,(DE)
CALL 03AC7H
JR C,L59FD ; (+00cH)
L59F1: CALL 04936H
LD A,(DE)
CALL 03ABEH
JP C,0479EH
JR L59F1 ; (-00cH)
L59FD: CALL 04936H
JR L599E ; (-064H)
L5A02: PUSH BC
LD BC,L2AF5
CALL L48F4
JR NC,L5A44 ; (+039H)
LD BC,L2C54
CALL L48F4
LD C,0FEH
JR NC,L5A1F ; (+00aH)
LD BC,L30A9
CALL L48F4
LD C,0FFH
JR C,L59EA ; (-035H)
L5A1F: LD (HL),C
INC HL
LD (HL),B
LD A,B
POP BC
CALL 04939H
CALL L4938
CP 0B4H
JR NZ,L59E8 ; (-046H)
CALL 0493EH
CP 03DH
JP NZ,L47E8
LD (HL),0F4H
CALL 04937H
JP 04884H
CALL 04936H
JP L48DE
L5A44: LD A,B
POP BC
CALL L4938
CP 097H
JP Z,L48DE
CP 094H
JP Z,L48DE
CP 0C2H
JR Z,L5AD4 ; (+07dH)
CP LSE2
JR Z,L5A84 ; (+029H)
CP 08DH
L5A5D: JR NC,L59E8 ; (-077H)
CP 087H
JR NC,L5A9E ; (+03bH)
CP 082H
JR NZ,L5A84 ; (+01dH)
CALL 0493EH
OR A
JR Z,L5A5D ; (-010H)
PUSH BC
LD BC,L2AF5
CALL L48F4
LD A,B
POP BC
JP C,0479EH
CALL L4938
CP LSE0
JR Z,L5A84 ; (+004H)
CP LSE4
JR NZ,L5A5D ; (-027H)
L5A84: CALL 0493EH
CP 02CH
JR Z,L5A96 ; (+00bH)
CALL 03ABEH
JP C,L47E8
CALL 049B3H
JR L5A84 ; (-012H)
L5A96: CALL 04936H
JR L5A84 ; (-017H)
L5A9B: CALL 04936H
L5A9E: CALL 0493EH
CP 02FH
JR NZ,L5AB5 ; (+010H)
LD A,0FBH
CALL 04936H
EX DE,HL
CALL L5414
EX DE,HL
CALL 04936H
CALL 0493EH
L5AB5: CP 022H
JR NZ,L5AC1 ; (+008H)
CALL 0492BH
JR NZ,L5A9E ; (-020H)
JP 047DDH
L5AC1: CP 02CH
JR C,L5ACC ; (+007H)
L5AC5: CP 02FH
JR C,L5A9B ; (-02eH)
CALL 03ABEH
L5ACC: JP C,L47E8
CALL 049B3H
JR L5A9E ; (-036H)
L5AD4: DEC HL
LD (HL),03AH
INC HL
LD (HL),A
CALL L4938
JR L5A84 ; (-05aH)
L5ADE: LD A,(DE)
CALL L49C8
JP Z,0479EH
CALL 04936H
CP 022H
JR NZ,L5ADE ; (-00eH)
CALL 0492FH
JP Z,047DDH
JR L5ADE ; (-016H)
PUSH HL
PUSH DE
LD L,C
LD H,B
LD B,07FH
L5AFA: POP DE
PUSH DE
INC B
LD A,(HL)
INC A
JR NZ,L5B06 ; (+005H)
POP DE
POP HL
SCF
RET
L5B05: INC DE
L5B06: LD A,(DE)
CP 020H
JR Z,L5B05 ; (-006H)
LD C,(HL)
INC HL
INC DE
CP 02EH
JR Z,L5B21 ; (+00fH)
SUB C
L5B13: JR Z,L5B06 ; (-00fH)
CP 080H
JR Z,L5B27 ; (+00eH)
L5B19: DEC HL
L5B1A: LD A,(HL)
RLCA
INC HL
JR NC,L5B1A ; (-005H)
JR L5AFA ; (-027H)
L5B21: LD A,B
CP 0EEH
JR NC,L5B19 ; (-00dH)
CCF
L5B27: POP HL
POP HL
LD (HL),B
RET
L5B2B: LD (HL),A
CALL 04937H
LD A,(DE)
OR A
RET Z
CP 022H
JR NZ,L5B2B ; (-00bH)
LD (HL),A
L5B37: INC DE
INC HL
INC C
RET NZ
JP L20F2
L5B3E: LD A,(DE)
CP 020H
L5B41: RET NZ
L5B42: LD (HL),A
L5B43: CALL 04937H
JR L5B3E ; (-00aH)
PUSH BC
CP 024H
PUSH HL
INC HL
JR NZ,L5B75 ; (+026H)
CALL 0497AH
JR NZ,L5B59 ; (+005H)
L5B54: POP HL
POP BC
LD (HL),A
JR L5B37 ; (-022H)
L5B59: PUSH BC
PUSH AF
INC DE
LD A,(DE)
DEC DE
CALL L3B04
POP BC
LD A,B
POP BC
JR C,L5B54 ; (-012H)
CALL L3B14
PUSH DE
CALL L3D21
POP DE
LD B,011H
LD A,B
LD C,L
LD B,H
JR L5B9C ; (+027H)
L5B75: CALL L3B14
JR L5BBB ; (+041H)
PUSH DE
PUSH BC
PUSH AF
INC DE
LD A,(DE)
CP 045H
JR NZ,L5B93 ; (+010H)
INC DE
LD A,(DE)
CP 04CH
JR NZ,L5B93 ; (+00aH)
INC DE
LD A,(DE)
CP 053H
JR NZ,L5B93 ; (+004H)
INC DE
LD A,(DE)
CP 045H
L5B93: POP BC
LD A,B
POP BC
POP DE
RET
LD A,012H
LD C,L
LD B,H
L5B9C: POP HL
L5B9D: LD (HL),A
LD A,003H
INC HL
LD (HL),C
INC HL
LD (HL),B
INC HL
L5BA5: POP BC
ADD A,C
JP C,L20F2
LD C,A
L5BAB: DEC DE
LD A,(DE)
CP 020H
JR Z,L5BAB ; (-006H)
INC DE
RET
PUSH BC
CALL L4B38
LD A,00BH
JR L5B9D ; (-01eH)
L5BBB: LD A,015H
POP HL
LD (HL),A
INC HL
LD BC,00005H
ADD HL,BC
LD A,C
INC A
JR L5BA5 ; (-023H)
CP 03AH
RET Z
OR A
RET
PUSH HL
PUSH DE
PUSH BC
XOR A
LD (06A58H),A
LD C,000H
L5BD6: LD A,(HL)
CP 027H
JR Z,L5C26 ; (+04bH)
INC HL
OR A
JR Z,L5C04 ; (+025H)
LD BC,L2AF5
CP 020H
JP C,04A65H
CP 022H
JR Z,L5C46 ; (+05bH)
CP 03AH
JR Z,L5C58 ; (+069H)
CP 097H
JR Z,L5C21 ; (+02eH)
CP 094H
JR Z,L5C21 ; (+02aH)
CP LSE4
JR Z,L5C09 ; (+00eH)
CP 080H
JR NC,L5C0D ; (+00eH)
L5BFF: CALL L4AE3
L5C02: JR L5BD6 ; (-02eH)
L5C04: LD (DE),A
POP BC
L5C06: POP DE
POP HL
RET
L5C09: LD A,0FFH
JR L5BFF ; (-00eH)
L5C0D: CP 0FEH
JR C,L5C1C ; (+00bH)
INC A
LD BC,L30A9
JR Z,L5C1A ; (+003H)
LD BC,L2C54
L5C1A: LD A,(HL)
INC HL
L5C1C: CALL L4AC6
JR L5C02 ; (-01fH)
L5C21: CALL L4AC6
JR Z,L5C02 ; (-024H)
L5C26: LD A,(HL)
CP 022H
JR Z,L5C38 ; (+00dH)
CALL L49C8
JR Z,L5BD6 ; (-05aH)
L5C30: CALL L4AE3
INC HL
JR NZ,L5C26 ; (-010H)
JR L5C04 ; (-034H)
L5C38: CALL L4AE3
INC HL
LD A,(HL)
OR A
JR Z,L5BD6 ; (-06aH)
CP 022H
JR NZ,L5C38 ; (-00cH)
JR L5C30 ; (-016H)
L5C46: LD B,022H
CALL L4AE3
L5C4B: LD A,(HL)
OR A
JR Z,L5C04 ; (-04bH)
INC HL
CP B
JR Z,L5BFF ; (-054H)
CALL L4AE3
JR L5C4B ; (-00dH)
L5C58: LD (DE),A
LD A,(HL)
CP 0C2H
JP Z,049D6H
CALL L4AE6
JP L4A02
CP 015H
JR Z,L5CAD ; (+044H)
CP 00BH
JR NC,L5C72 ; (+005H)
DEC A
OR 030H
JR L5BFF ; (-073H)
L5C72: PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
INC HL
L5C77: PUSH HL
CP 012H
JR Z,L5C89 ; (+00dH)
CP 00CH
JR C,L5C89 ; (+009H)
JP NZ,L4AF4
EX DE,HL
INC HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
L5C89: EX DE,HL
LD DE,06A31H
CALL L3D86
XOR A
LD (L6A36),A
LD B,004H
L5C96: LD A,(DE)
CP 030H
JR NZ,L5C9E ; (+003H)
INC DE
DJNZ L5C96 ; (-008H)
L5C9E: LD C,E
LD B,D
POP HL
POP DE
L5CA2: LD A,(BC)
OR A
JP Z,049D6H
CALL L4AE3
INC BC
JR L5CA2 ; (-00bH)
L5CAD: PUSH HL
PUSH DE
CALL L401B
EX DE,HL
POP DE
L5CB4: LD A,(HL)
OR A
JR Z,L5CBE ; (+006H)
INC HL
CALL L4AE3
JR L5CB4 ; (-00aH)
L5CBE: LD BC,00005H
POP HL
ADD HL,BC
JP 049D6H
L5CC6: CP 080H
JR Z,L5CD5 ; (+00bH)
EX AF,AF'
LD A,(BC)
RLCA
INC BC
JP NC,L4ACB
EX AF,AF'
DEC A
JR L5CC6 ; (-00fH)
L5CD5: LD A,(BC)
BIT 7,A
JR NZ,L5CE1 ; (+007H)
CALL L4AE3
RET Z
INC BC
JR L5CD5 ; (-00cH)
L5CE1: AND 07FH
LD (DE),A
OR A
RET Z
INC DE
LD A,(06A58H)
INC A
L5CEB: LD (06A58H),A
RET NZ
LD (DE),A
DEC DE
DEC A
JR L5CEB ; (-009H)
LD A,024H
EX AF,AF'
EX DE,HL
LD DE,L6A32
CALL 04B13H
LD B,003H
L5D00: LD A,(DE)
CP 030H
JR NZ,L5D08 ; (+003H)
INC DE
DJNZ L5D00 ; (-008H)
L5D08: LD C,E
LD B,D
POP HL
POP DE
L5D0C: EX AF,AF'
CALL L4AE3
JP L4AA2
PUSH DE
CALL L4B1B
XOR A
LD (DE),A
POP DE
RET
LD A,H
L5D1C: CALL L4B20
LD A,L
PUSH AF
RRCA
RRCA
RRCA
RRCA
AND 00FH
CALL L4B2D
POP AF
AND 00FH
ADD A,030H
L5D2F: CP 03AH
JR C,L5D35 ; (+002H)
ADD A,007H
L5D35: LD (DE),A
INC DE
RET
PUSH HL
CALL 04B4BH
LD C,L
LD B,H
DEC DE
DEC DE
POP HL
L5D41: LD A,(DE)
CP 020H
L5D44: JR NZ,L5D49 ; (+003H)
DEC DE
JR L5D41 ; (-008H)
L5D49: INC DE
RET
LD HL,MONIT
L5D4E: CALL 03C62H
SUB 030H
RET C
CP 00AH
RET NC
CALL 04B6EH
L5D5A: LD C,L
LD B,H
CALL 04B6EH
CALL 04B6EH
ADD HL,BC
L5D63: JR C,L5D6B ; (+006H)
LD C,A
LD B,000H
ADD HL,BC
JR NC,L5D4E ; (-01dH)
L5D6B: JP L20F5
ADD HL,HL
RET NC
L5D70: JR L5D6B ; (-007H)
LD D,E
CP L
OR B
SUB (HL)
AND C
SBC A,E
JR NZ,L5D0C ; (-06eH)
L5D7A: SBC A,L
SBC A,L
L5D7C: OR A
SBC A,L
NOP
LD C,A
XOR E
SUB D
SBC A,L
L5D83: JR NZ,L5D2F ; (-056H)
L5D85: CP B
OR A
L5D87: AND E
JR NZ,L5D1C ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD C,C
CP B
L5D91: CP B
SUB D
SUB A
AND C
CP B
JR NZ,05D34H ; (-064H)
AND C
SUB (HL)
AND C
L5D9B: JR NZ,L5D2F ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
L5DA2: ADD A,B
LD D,E
SUB (HL)
SBC A,L
L5DA6: AND (HL)
L5DA7: OR B
SUB A
JR NZ,L5D63 ; (-048H)
SUB D
OR B
SUB A
SUB (HL)
L5DAF: SBC A,B
JR NZ,L5D44 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
L5DB7: LD C,L
SUB D
L5DB9: OR E
OR A
SBC A,L
CP L
JR NZ,05D5EH ; (-061H)
AND C
SBC A,(HL)
AND C
L5DC2: SBC A,A
AND (HL)
SUB (HL)
CP L
JR NZ,L5D5A ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
L5DCD: LD B,C
SBC A,L
L5DCF: SBC A,L
AND C
CP L
JR NZ,L5D70 ; (-064H)
SUB D
XOR D
JR NZ,05D6AH ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD C,H
AND (HL)
OR B
L5DE0: SUB D
JR NZ,L5D9B ; (-048H)
SUB D
OR B
SUB A
L5DE6: SUB (HL)
SBC A,B
JR NZ,L5D7C ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
ADD A,B
LD B,A
LD C,A
LD D,E
LD D,L
LD B,D
JR NZ,L5DA7 ; (-050H)
L5DF7: SUB D
AND H
L5DF9: SUB (HL)
AND (HL)
OR B
L5DFC: SUB A
JR NZ,L5D91 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD B,(HL)
LD C,A
LD D,D
L5E07: LD L,02EH
LD L,04EH
LD B,L
LD E,B
LD D,H
JR NZ,L5DA2 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD B,H
L5E16: LD B,L
L5E17: LD B,(HL)
JR NZ,05E60H ; (+046H)
LD C,(HL)
JR NZ,L5DCD ; (-050H)
SUB D
AND H
SUB (HL)
AND (HL)
OR B
SUB A
JR NZ,L5DB7 ; (-06eH)
L5E25: SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD C,(HL)
LD B,L
LD E,B
LD D,H
JR NZ,L5DC2 ; (-06eH)
L5E30: SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD D,D
LD B,L
LD D,H
LD D,L
LD D,D
LD C,(HL)
JR NZ,L5DCF ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD D,L
L5E43: OR B
JR NZ,05DE2H ; (-064H)
SUB D
XOR D
LD L,020H
L5E4A: XOR D
AND L
OR B
SBC A,A
SUB (HL)
AND (HL)
L5E50: OR A
OR B
JR NZ,L5DE6 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD D,L
OR B
JR NZ,L5DF9 ; (-064H)
L5E5D: SUB D
XOR D
LD L,020H
CP B
AND (HL)
OR B
SUB D
JR NZ,L5E17 ; (-050H)
AND L
OR E
LD L,092H
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
L5E70: LD B,E
AND C
OR B
DAA
SUB (HL)
JR NZ,L5E16 ; (-061H)
OR A
OR B
SUB (HL)
AND (HL)
OR B
AND L
SUB D
NOP
LD C,L
SUB D
OR E
OR A
SBC A,L
CP L
JR NZ,L5E25 ; (-062H)
SBC A,L
OR A
SUB (HL)
SUB D
SBC A,A
SUB (HL)
AND (HL)
OR A
OR B
L5E90: NOP
LD C,C
OR B
AND H
SUB (HL)
L5E95: SBC A,L
AND L
SBC A,A
SUB (HL)
AND (HL)
OR A
OR B
L5E9C: JR NZ,L5E30 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
LD B,E
AND C
OR B
DAA
SUB (HL)
L5EA8: JR NZ,L5EFC ; (+052H)
LD B,L
LD D,E
LD D,L
LD C,L
LD B,L
JR NZ,L5E43 ; (-06eH)
SBC A,L
L5EB2: SBC A,L
OR A
SBC A,L
NOP
L5EB6: LD D,D
LD B,L
L5EB8: LD D,E
LD D,L
LD C,L
LD B,L
JR NZ,L5E50 ; (-06eH)
SBC A,L
SBC A,L
L5EC0: OR A
SBC A,L
NOP
ADD A,B
ADD A,B
L5EC5: LD D,D
LD B,L
LD B,C
L5EC8: LD B,H
JR NZ,L5E5D ; (-06eH)
SBC A,L
L5ECC: SBC A,L
OR A
SBC A,L
NOP
LD B,C
CP B
SBC A,L
SUB D
AND C
SBC A,H
CP L
JR NZ,L5E90 ; (-049H)
SBC A,(HL)
SUB D
L5EDB: OR B
JR NZ,L5E70 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
L5EE8: ADD A,B
ADD A,B
ADD A,B
L5EEB: ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
ADD A,B
LD C,A
AND L
SUB (HL)
JR NZ,L5EB2 ; (-049H)
XOR D
L5EFC: JR NZ,L5EA8 ; (-056H)
AND (HL)
CP B
SUB D
JR NZ,L5E95 ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
ADD A,B
LD D,B
SBC A,L
L5F0B: AND (HL)
OR B
SUB (HL)
SUB D
SBC A,L
JR NZ,L5EB8 ; (-05aH)
AND H
JR NZ,L5EC5 ; (-050H)
OR A
SUB (HL)
JR NZ,L5EB6 ; (-063H)
SUB D
AND C
SBC A,H
CP L
NOP
ADD A,B
LD C,A
AND L
SUB (HL)
JR NZ,L5EDB ; (-049H)
XOR D
JR NZ,L5EC5 ; (-062H)
AND C
SBC A,(HL)
SUB D
SBC A,L
NOP
LD D,B
SBC A,L
AND (HL)
OR B
SUB (HL)
SUB D
SBC A,L
JR NZ,L5EE8 ; (-04dH)
OR A
SBC A,H
SUB D
JR NZ,L5ECC ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
L5F3F: ADD A,B
LD B,E
SBC A,B
SUB D
SBC A,A
XOR C
JR NZ,L5EEB ; (-05cH)
AND L
OR E
JR NZ,05EDDH ; (-06eH)
SBC A,L
SBC A,L
OR A
SBC A,L
NOP
CALL L4D65
LD A,D
OR A
JP NZ,L2101
LD A,E
RET
CALL 0529DH
EX DE,HL
LD BC,0FFFBH
ADD HL,BC
EX DE,HL
JR L5F68 ; (+003H)
CALL 0528BH
L5F68: PUSH AF
PUSH HL
EX DE,HL
CALL L5D9B
CALL L3D21
EX DE,HL
POP HL
POP AF
RET
CALL L4D65
PUSH AF
PUSH HL
LD HL,(06AB9H)
CALL 03A82H
CALL L3C69
L5F83: LD A,(DE)
CP 000H
JR Z,L5F8E ; (+006H)
CALL L167E
INC DE
JR L5F83 ; (-00bH)
L5F8E: POP HL
POP AF
RET
PUSH HL
L5F92: LD HL,00010H
BIT 7,D
JR NZ,L5F9F ; (+006H)
OR A
SBC HL,DE
JP C,L2101
L5F9F: PUSH DE
LD HL,00001H
BIT 7,H
JR NZ,L5FB6 ; (+00fH)
BIT 7,D
JP NZ,L2101
L5FAC: OR A
EX DE,HL
SBC HL,DE
L5FB0: JP C,L2101
L5FB3: POP DE
POP HL
RET
L5FB6: BIT 7,D
JR Z,L5FB3 ; (-007H)
JR L5FAC ; (-010H)
CALL 0528BH
PUSH AF
CALL L5D7A
PUSH HL
EX DE,HL
CALL 0527FH
POP HL
POP AF
RET
LD BC,L4E01
NOP
NOP
LD A,(0004DH)
OR A
JP NZ,L4FF7
CALL L5414
INC HL
CP 047H
JP Z,L4E5F
CP 054H
JP NZ,L20FE
LD A,001H
LD (04DCBH),A
CALL L5414
INC HL
CP 04EH
JR Z,L5FFB ; (+009H)
CP 04CH
JR Z,L5FFB ; (+005H)
CP 053H
JP NZ,L20FE
L5FFB: LD (04DCDH),A
CALL L1C66
JP NZ,L20FE
LD A,001H
CALL L167E
LD A,(04DCDH)
CP 04EH
JR Z,L6021 ; (+011H)
CP 04CH
LD A,00BH
JR Z,L601E ; (+008H)
LD A,009H
CALL L167E
CALL L167E
L601E: CALL L167E
L6021: LD A,00AH
CALL L167E
LD A,003H
CALL L167E
RET
LD A,(04DCBH)
CP 001H
JP NZ,L4FF7
CALL L4D65
LD A,E
OR A
RET Z
CP 0ECH
JR NC,L6043 ; (+005H)
CP 015H
JP NC,L2101
L6043: CALL L1C66
JP NZ,L20FE
BIT 7,E
JR NZ,L6056 ; (+009H)
L604D: LD A,00AH
CALL L167E
DEC E
JR NZ,L604D ; (-008H)
RET
L6056: LD A,003H
CALL L167E
INC E
JR NZ,L6056 ; (-008H)
RET
INC HL
CALL L1C66
JP NZ,L20FE
LD A,002H
LD (04DCBH),A
CALL L167E
RET
PUSH HL
LD HL,003E7H
LD (L4D93),HL
LD HL,0FC19H
L6079: LD (L4DA1),HL
POP HL
JP 04D91H
PUSH HL
LD HL,001E0H
LD (L4D93),HL
LD HL,0FE20H
JR L6079 ; (-013H)
LD A,044H
LD (04EE0H),A
L6091: LD A,(04DCBH)
CP 002H
JP NZ,L4FF7
CALL L5414
CP 025H
JR NZ,L60C3 ; (+023H)
INC HL
CALL L4D50
LD A,E
DEC A
CP 010H
JP NC,L2101
DEC DE
LD A,04CH
CALL L167E
CALL L4D78
LD A,00DH
CALL L167E
L60B9: CALL L1C66
RET Z
CP 02CH
JP NZ,L20FE
INC HL
L60C3: CALL L4D65
CALL 03332H
CALL L4E80
L60CC: PUSH DE
CALL L4D65
CP 02CH
JR Z,L60DA ; (+006H)
CALL L1C66
JP NZ,L20FE
L60DA: CALL L4E6F
POP BC
PUSH DE
LD A,044H
CALL L167E
LD E,C
LD D,B
CALL L4D78
LD A,02CH
CALL L167E
POP DE
CALL L4D78
LD A,00DH
CALL L167E
CALL L1C66
RET Z
INC HL
JR L60C3 ; (-03bH)
LD A,04AH
LD (04EE0H),A
JR L6091 ; (-074H)
LD A,04DH
LD (04EE0H),A
L610A: LD A,(04DCBH)
CP 002H
JP NZ,L4FF7
JR L60C3 ; (-051H)
LD A,052H
LD (04EE0H),A
JR L610A ; (-011H)
CALL L4D50
LD A,E
CP 004H
L6121: JP NC,L2101
CALL L1C66
JP NZ,L20FE
LD A,(04DCBH)
CP 002H
JR Z,L613F ; (+00eH)
CALL L4E21
LD A,002H
CALL L167E
CALL L4F3F
JP 04E04H
L613F: LD A,043H
CALL L167E
LD A,E
OR 030H
CALL L167E
LD A,00DH
CALL L167E
RET
LD A,(04DCBH)
CP 002H
JP NZ,L4FF7
CALL L1C66
JP NZ,L20FE
LD A,048H
L6160: CALL L167E
RET
LD A,(04DCBH)
CP 002H
JP NZ,L4FF7
CALL L1C66
L616F: JP NZ,L20FE
LD A,049H
JR L6160 ; (-016H)
LD A,(04DCBH)
CP 002H
L617B: JR NZ,L61F7 ; (+07aH)
CALL L5414
CP 05BH
JR NZ,L61CE ; (+04aH)
INC HL
CALL L4D50
CP 040H
JP NC,L2101
PUSH DE
CALL L5414
CALL 03332H
CALL L4D50
CP 004H
JP NC,L2101
PUSH DE
CALL L5414
CP 05DH
JP NZ,L20FE
INC HL
POP BC
POP DE
PUSH BC
LD A,053H
CALL L167E
CALL L4D78
LD A,02CH
CALL L167E
POP DE
L61B7: LD A,051H
CALL L167E
L61BC: CALL L4D78
LD A,00DH
L61C1: CALL L167E
CALL L1C66
RET Z
CP 02CH
JP NZ,L20FE
INC HL
L61CE: CALL 04DBCH
CALL L1C66
JR Z,L61DB ; (+005H)
CP 02CH
JP NZ,L20FE
L61DB: LD A,B
OR A
JR Z,L61F0 ; (+011H)
LD A,050H
CALL L167E
L61E4: LD A,(DE)
CALL L167E
INC DE
DJNZ L61E4 ; (-007H)
LD A,00DH
CALL L167E
L61F0: CALL L1C66
RET Z
INC HL
L61F5: JR L61CE ; (-029H)
L61F7: LD A,044H
JP L2108
LD A,(04DCBH)
CP 002H
JP NZ,L4FF7
CALL L4D50
CP 002H
JP NC,L2101
PUSH AF
CALL L5414
CALL 03332H
CALL L4D65
PUSH DE
CALL 03332H
CALL L4D50
OR A
JP Z,L2101
CALL L1C66
JP NZ,L20FE
LD A,058H
CALL L167E
POP BC
POP AF
PUSH DE
PUSH BC
OR 030H
L6232: CALL L167E
LD A,02CH
CALL L167E
POP DE
CALL L4E6F
CALL L4D78
LD A,02CH
CALL L167E
POP DE
CALL L4D78
LD A,00DH
CALL L167E
RET
LD A,(04DCBH)
CP 002H
JR NZ,L61F7 ; (-060H)
PUSH HL
L6258: LD DE,MONIT
LD HL,05204H
L625E: CALL 03A82H
LD DE,00168H
LD HL,L5209
CALL 03A82H
LD HL,L3D72
LD DE,L520E
CALL 03AB8H
POP HL
CALL 0528BH
CALL 03332H
PUSH HL
LD HL,L51F5
EX DE,HL
CALL 03AB8H
POP HL
CALL 0528BH
CALL 03332H
PUSH HL
LD HL,051FAH
EX DE,HL
CALL 03AB8H
POP HL
CALL 0528BH
L6295: PUSH HL
PUSH AF
LD HL,L51FF
EX DE,HL
L629B: CALL 03AB8H
LD A,(05200H)
L62A1: RLCA
JP C,L2101
POP AF
CP 02CH
JR NZ,L62E4 ; (+03aH)
POP HL
INC HL
CALL 0528BH
PUSH HL
L62B0: PUSH AF
LD HL,05204H
EX DE,HL
CALL 03AB8H
POP AF
CP 02CH
JR NZ,L62E4 ; (+027H)
POP HL
INC HL
CALL 0528BH
PUSH HL
PUSH AF
LD HL,L5209
EX DE,HL
CALL 03AB8H
POP AF
CP 02CH
JR NZ,L62E4 ; (+014H)
POP HL
INC HL
CALL 0528BH
PUSH HL
LD HL,L520E
EX DE,HL
CALL 03AB8H
LD A,(0520FH)
RLCA
JP C,L2101
L62E4: POP HL
CALL L1C66
JP NZ,L20FE
PUSH HL
L62EC: LD HL,L5209
LD DE,05204H
LD A,(L520E)
OR A
CALL NZ,L5E4A
JP C,L2101
CALL L51AB
L62FF: LD HL,05213H
LD (05172H),HL
LD HL,L5218
LD (L517C),HL
CALL 0516EH
LD A,(L520E)
OR A
JR Z,L6348 ; (+034H)
L6314: LD HL,05204H
LD DE,L520E
CALL L5DAF
LD DE,L5209
CALL L5E4A
JR NC,L6332 ; (+00dH)
CALL L51AB
L6328: CALL 0516BH
CALL BRKEY
JR NZ,L6314 ; (-01cH)
POP HL
RET
L6332: CALL 0513AH
CALL 0516BH
POP HL
RET
LD HL,L5209
LD DE,05204H
LD BC,00005H
LDIR
JP L51AB
L6348: LD HL,L51F5
LD (05172H),HL
LD HL,051FAH
LD (L517C),HL
CALL 0516BH
CALL 0513AH
LD HL,05213H
LD (05172H),HL
LD HL,L5218
LD (L517C),HL
CALL 0516BH
POP HL
RET
LD A,044H
LD HL,L4D3E
PUSH AF
LD HL,L51F5
CALL L3D21
PUSH HL
CALL 0519DH
LD HL,051FAH
CALL L3D21
PUSH HL
CALL 0519DH
POP HL
POP DE
POP AF
CALL L167E
PUSH HL
CALL L4D78
LD A,02CH
CALL L167E
POP DE
CALL L4D78
LD A,00DH
JP L167E
EX DE,HL
LD HL,003E7H
PUSH HL
ADD HL,DE
POP HL
RET C
SBC HL,DE
RET NC
JP L2101
LD DE,(06AB9H)
LD HL,05204H
CALL 03AB8H
LD HL,(06AB9H)
CALL 0659DH
CALL 063B0H
LD DE,L51FF
CALL 05FE1H
LD DE,L51F5
CALL L5DAF
LD DE,05213H
CALL 03AB8H
LD DE,(06AB9H)
LD HL,05204H
CALL 03AB8H
LD HL,(06AB9H)
CALL 0659DH
CALL 063C6H
LD DE,L51FF
CALL 05FE1H
LD DE,051FAH
CALL L5DAF
LD DE,L5218
JP 03AB8H
DS 15, 000H ; Work area (45 bytes)
L6404: DS 30, 000H
LD B,H
JR NC,06451H ; (+02cH)
JR NC,06434H ; (+00dH)
LD A,(04DCBH)
CP 001H
JP NZ,L4FF7
CALL L1C66
JP NZ,L20FE
LD A,004H
CALL L167E
RET
LD A,(04DCBH)
CP 001H
JP NZ,L4FF7
CALL L4D65
LD A,E
OR A
JP Z,L2101
CP 049H
JP NC,L2101
CALL L1C66
JP NZ,L20FE
LD A,009H
CALL L167E
CALL L167E
CALL L4D78
LD A,00DH
CALL L167E
DB 0C9H,"PRINTER MODE E" ; PRINTER MODE ERROR!! string
DS 2, 052H
DB 04FH
DB 052H
DS 2, 021H
NOP
LD D,H
LD L,04DH
LD B,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
EX DE,HL
LD A,B
RET
LD DE,(06AB7H)
LD (038D3H),DE
LD DE,(06AB9H)
PUSH DE
CALL 0529DH
POP DE
RET
PUSH DE
LD DE,(038D3H)
CALL L58DF
POP DE
CALL 05310H
L64A9: CP 0EEH
RET C
PUSH AF
LD A,(06A65H)
PUSH AF
INC HL
CALL 05310H
POP BC
EX (SP),HL
PUSH AF
PUSH HL
CALL L58B1
CALL L5E4A
EX AF,AF'
POP AF
CP 0F6H
JR NZ,L64E3 ; (+01eH)
EX AF,AF'
JR C,L64DE ; (+016H)
L64C8: LD BC,MONIT
L64CB: LD (HL),C
INC HL
LD (HL),B
INC HL
XOR A
LD (HL),A
INC HL
LD (HL),A
INC HL
LD (HL),A
LD A,005H
LD (06A65H),A
POP AF
POP HL
JR L64A9 ; (-035H)
L64DE: LD BC,08081H
JR L64CB ; (-018H)
L64E3: CP 0F5H
JR NZ,L64EE ; (+007H)
EX AF,AF'
JR Z,L64C8 ; (-022H)
JR C,L64C8 ; (-024H)
JR L64DE ; (-010H)
L64EE: CP 0F4H
JR NZ,L64F7 ; (+005H)
EX AF,AF'
L64F3: JR Z,L64DE ; (-017H)
JR L64C8 ; (-02fH)
L64F7: CP 0F2H
JR C,L6500 ; (+005H)
EX AF,AF'
JR NC,L64DE ; (-020H)
JR L64C8 ; (-038H)
L6500: CP 0F0H
JR C,L650B ; (+007H)
EX AF,AF'
JR Z,L64DE ; (-029H)
JR C,L64DE ; (-02bH)
JR L64C8 ; (-043H)
L650B: EX AF,AF'
JR Z,L64C8 ; (-046H)
JR L64DE ; (-032H)
CALL L533B
L6513: CP 0F7H
RET C
LD A,(06A65H)
PUSH AF
INC HL
L651B: JR Z,L652D ; (+010H)
CALL L533B
POP BC
PUSH AF
PUSH HL
CALL L58B1
CALL L5DA6
L6529: POP HL
POP AF
JR L6513 ; (-01aH)
L652D: CALL L533B
POP BC
PUSH AF
PUSH HL
CALL L58B1
CALL L5DAF
JR L6529 ; (-012H)
CALL 05367H
L653E: CP 0FBH
RET C
LD A,(06A65H)
PUSH AF
INC HL
JR Z,L6558 ; (+010H)
CALL 05367H
POP BC
PUSH AF
PUSH HL
CALL L58B1
CALL 05FE1H
L6554: POP HL
POP AF
JR L653E ; (-01aH)
L6558: CALL 05367H
POP BC
PUSH AF
PUSH HL
CALL L58B1
CALL L60CC
JR L6554 ; (-012H)
L6566: INC HL
CALL L5414
CP 0F7H
JR Z,L6566 ; (-008H)
CP 0F8H
JR NZ,L6599 ; (+027H)
INC HL
CALL 05367H
L6576: PUSH AF
PUSH HL
LD HL,0FFFBH
ADD HL,DE
CALL L5D91
LD DE,00005H
ADD HL,DE
EX DE,HL
POP HL
POP AF
RET
L6587: INC HL
CALL L5414
CP 0F7H
JR Z,L6587 ; (-008H)
CP 0F8H
JR NZ,L65B9 ; (+026H)
INC HL
CALL 05388H
JR L6576 ; (-023H)
L6599: CALL L53B9
L659C: CP 0FDH
RET NZ
INC HL
LD A,(06A65H)
CP 003H
JP Z,L20FB
PUSH AF
CALL 05388H
POP BC
PUSH AF
PUSH HL
CALL L58B1
CALL L61F5
POP HL
POP AF
JR L659C ; (-01dH)
L65B9: CALL L1C66
JP Z,L20FE
CALL L53CC
EX AF,AF'
LD A,(06A65H)
OR A
JP Z,L20FE
EX AF,AF'
RET
XOR A
LD (06A65H),A
PUSH HL
LD HL,(L6ABB)
SCF
SBC HL,DE
JP C,L20F8
POP HL
PUSH DE
LD B,005H
L65DE: LD (DE),A
INC DE
DJNZ L65DE ; (-004H)
POP DE
L65E3: CALL L5414
CP 0F7H
INC HL
JR Z,L65E3 ; (-008H)
DEC HL
CP LSE4
JP Z,0541AH
CP 00BH
JR NC,L662E ; (+039H)
OR A
RET Z
INC HL
DEC A
LD B,000H
LD C,A
L65FC: PUSH HL
PUSH DE
EX DE,HL
LD E,C
LD D,B
CALL 03A82H
POP DE
POP HL
LD A,005H
LD (06A65H),A
EX DE,HL
LD BC,00005H
ADD HL,BC
EX DE,HL
JR L6614 ; (+001H)
L6613: INC HL
L6614: LD A,(HL)
L6615: CP 020H
JR Z,L6613 ; (-006H)
RET
EX DE,HL
LD (HL),081H
LD A,005H
LD (06A65H),A
PUSH DE
CALL 065A2H
LD DE,00005H
ADD HL,DE
EX DE,HL
POP HL
JR L6613 ; (-01bH)
L662E: CP 015H
JR NC,L6646 ; (+014H)
INC HL
LD C,(HL)
INC HL
LD B,(HL)
INC HL
CP 00CH
JR NZ,L65FC ; (-03fH)
INC BC
INC BC
LD A,(BC)
INC BC
EX AF,AF'
LD A,(BC)
LD B,A
EX AF,AF'
LD C,A
JR L65FC ; (-04aH)
L6646: JP NZ,05459H
INC HL
PUSH DE
LD BC,00505H
L664E: LD A,(HL)
LD (DE),A
INC HL
INC DE
DJNZ L664E ; (-006H)
LD A,C
L6655: POP DE
JP 05408H
CP 022H
JR NZ,L6686 ; (+029H)
INC HL
PUSH DE
PUSH HL
CALL L58C4
EX (SP),HL
PUSH HL
LD HL,(038D3H)
PUSH BC
LD BC,(06AB5H)
OR A
SBC HL,BC
POP BC
EX DE,HL
LD (HL),B
INC HL
LD (HL),E
INC HL
LD (HL),D
LD HL,(038D3H)
POP DE
CALL 058D0H
LD (038D3H),HL
POP HL
LD A,003H
JR L6655 ; (-031H)
L6686: CP 028H
JP NZ,L5B43
INC HL
CALL 0529DH
CP 029H
JP NZ,L20FE
JP 05413H
CP 0E7H
JP Z,0563AH
CP 0FFH
RET NZ
INC HL
LD A,(HL)
CP 0ABH
JR NC,L6711 ; (+06cH)
CP 088H
JR Z,L66F8 ; (+04fH)
CP 0A0H
JP Z,L5588
CP 089H
PUSH AF
JR NZ,L66BA ; (+007H)
INC HL
LD A,(HL)
CP 040H
JR Z,L66D5 ; (+01cH)
DEC HL
L66BA: CALL L57F9
L66BD: CALL 0529DH
CALL 05804H
CALL L5D9B
L66C6: POP AF
PUSH DE
PUSH HL
LD HL,0FFFBH
ADD HL,DE
CALL 05537H
L66D0: POP HL
L66D1: POP DE
JP L5414
L66D5: POP AF
PUSH DE
CALL L57F9
CALL 0529DH
CALL 05804H
CALL L5D9B
EX DE,HL
EX (SP),HL
PUSH DE
PUSH HL
CALL L3D21
LD C,L
LD B,H
POP HL
LD A,(BC)
LD E,A
LD D,000H
CALL 03A82H
LD A,005H
JR L66D0 ; (-028H)
L66F8: PUSH AF
INC HL
CALL L5414
CP 028H
JR NZ,L6704 ; (+003H)
INC HL
JR L66BD ; (-047H)
L6704: LD A,005H
L6706: LD (06A65H),A
EX DE,HL
LD BC,00005H
ADD HL,BC
EX DE,HL
JR L66C6 ; (-04bH)
L6711: CP 0B3H
JR NC,L6729 ; (+014H)
PUSH AF
CALL L57F9
CALL 0529DH
CALL 05804H
LD A,(06A65H)
CP 003H
JP NZ,L20FB
JR L66C6 ; (-063H)
L6729: CP 0BAH
JR NC,L6733 ; (+006H)
PUSH AF
LD A,002H
INC HL
JR L6706 ; (-02dH)
L6733: CP LSD0
RET NC
L6736: INC HL
PUSH HL
SUB 080H
LD L,A
LD H,000H
LD BC,L3265
ADD HL,HL
ADD HL,BC
LD A,(HL)
INC HL
LD H,(HL)
LD L,A
EX (SP),HL
RET
EX DE,HL
LD HL,MONIT
ADD HL,SP
LD BC,(038D3H)
OR A
SBC HL,BC
OR A
LD BC,00100H
SBC HL,BC
EX DE,HL
JR L676E ; (+011H)
LD A,(00055H)
JR L6765 ; (+003H)
LD A,(L38F2)
L6765: LD E,A
LD D,000H
JR L676E ; (+004H)
LD DE,(038EAH)
L676E: CALL 03A82H
LD A,005H
LD (06A65H),A
INC HL
BIT 7,(HL)
DEC HL
RET Z
LD DE,L6A6E
EX DE,HL
CALL L5D87
LD (HL),091H
EX DE,HL
JP L5DAF
CALL L57F9
SCF
L678C: PUSH AF
PUSH DE
CALL 04D5AH
CP 029H
JR Z,L67A1 ; (+00cH)
CP 02CH
JP NZ,L20FE
INC HL
CALL 04D53H
POP DE
JR L678C ; (-015H)
L67A1: INC HL
CALL 04D53H
POP DE
PUSH AF
EXX
LD DE,0110FH
LD B,000H
L67AD: POP AF
JR C,L67B5 ; (+005H)
LD (DE),A
INC DE
INC B
JR L67AD ; (-008H)
L67B5: LD C,B
LD HL,(038D3H)
PUSH HL
L67BA: DEC DE
LD A,(DE)
LD (HL),A
INC HL
DJNZ L67BA ; (-006H)
POP DE
CALL 055C7H
JP L5414
EX DE,HL
CALL L58DF
LD (038D3H),DE
LD DE,(06AB5H)
OR A
SBC HL,DE
PUSH HL
PUSH BC
EXX
POP BC
EX DE,HL
LD (HL),C
INC HL
POP BC
LD (HL),C
INC HL
LD (HL),B
LD BC,GETL
ADD HL,BC
EX DE,HL
LD A,003H
LD (06A65H),A
RET
PUSH HL
CALL L560F
CALL L5616
LD B,004H
L67F5: LD A,(DE)
CP 030H
JR NZ,L67FF ; (+005H)
INC DE
DJNZ L67F5 ; (-008H)
DEC DE
INC B
L67FF: LD C,B
LD HL,(038D3H)
PUSH HL
CALL 058D0H
EX DE,HL
POP HL
EXX
POP DE
EXX
JP L55CB
CALL L3D21
LD DE,0110FH
RET
PUSH DE
LD A,H
CALL 05629H
LD A,H
CALL L562D
LD A,L
CALL 05629H
L6823: LD A,L
CALL L562D
POP DE
L6828: RET
RLCA
RLCA
RLCA
RLCA
AND 00FH
ADD A,030H
CP 03AH
JR C,L6837 ; (+002H)
ADD A,007H
L6837: LD (DE),A
INC DE
RET
CALL L57F9
CALL 0529DH
CALL 05804H
PUSH HL
LD HL,0FFFBH
ADD HL,DE
PUSH DE
CALL 05651H
POP DE
POP HL
JP L5414
PUSH HL
CALL 0566DH
LD B,A
LD C,A
OR A
JR Z,L6866 ; (+00cH)
LD A,020H
PUSH DE
L685D: LD (DE),A
INC DE
DJNZ L685D ; (-004H)
POP DE
LD B,C
JP L55FF
L6866: POP HL
CALL L5D87
JP L55E5
CALL L560F
LD A,H
OR A
JP NZ,L2101
LD A,L
RET
PUSH HL
L6878: CALL L3C69
LD A,(DE)
CP 020H
JR NZ,L6881 ; (+001H)
INC DE
L6881: LD HL,(038D3H)
LD B,000H
L6886: LD A,(DE)
L6887: OR A
JR Z,L6890 ; (+006H)
LD (HL),A
INC DE
L688C: INC HL
INC B
JR L6886 ; (-00aH)
L6890: LD A,B
L6891: OR A
JP Z,L5666
LD DE,(038D3H)
EXX
POP DE
EXX
LD C,B
JP 055C7H
PUSH HL
CALL 0527FH
OR A
JR Z,L68A8 ; (+001H)
LD A,(DE)
L68A8: POP HL
JP L5565
PUSH HL
CALL 0527FH
POP HL
JP L5565
PUSH HL
CALL 0527FH
LD HL,(038D3H)
PUSH HL
LD B,A
CALL 058D0H
LD (HL),000H
POP DE
POP HL
JP L3B14
CALL 057E5H
CALL 05804H
CALL L57DE
EX DE,HL
LD A,(HL)
CP C
JR NC,L68D6 ; (+001H)
LD C,A
L68D6: LD (HL),C
LD BC,00005H
L68DA: LD A,003H
ADD HL,BC
EX DE,HL
LD (06A65H),A
JP L5414
CALL 057E5H
CALL 05804H
CALL L57DE
EX DE,HL
LD A,(HL)
SUB C
JR NC,L68F4 ; (+002H)
XOR A
LD C,(HL)
L68F4: LD (HL),C
INC HL
ADD A,(HL)
LD (HL),A
INC HL
LD A,000H
L68FB: ADC A,(HL)
LD (HL),A
LD BC,GETL
JR L68DA ; (-028H)
CALL 057E5H
CALL L57DE
OR A
JP Z,L2101
PUSH AF
LD A,(HL)
CP 029H
JR Z,L6936 ; (+024H)
CALL 03332H
PUSH DE
EX DE,HL
LD BC,00005H
ADD HL,BC
EX DE,HL
CALL 04D5AH
CALL 05804H
CALL 04D53H
POP DE
L6926: POP BC
LD C,A
EX DE,HL
LD A,(HL)
SUB B
JR C,L693B ; (+00eH)
INC A
CP C
JR NC,L6932 ; (+001H)
LD C,A
L6932: LD A,B
DEC A
JR L68F4 ; (-042H)
L6936: INC HL
LD A,0FFH
JR L6926 ; (-015H)
L693B: XOR A
LD C,A
JR L68F4 ; (-04bH)
PUSH HL
PUSH DE
LD HL,(038D3H)
PUSH HL
LD A,030H
LD B,006H
L6949: LD (HL),A
INC HL
DJNZ L6949 ; (-004H)
CALL 0003BH
POP HL
OR A
JR Z,L6959 ; (+005H)
INC (HL)
INC HL
INC (HL)
INC (HL)
DEC HL
L6959: EX DE,HL
LD BC,08CA0H
CALL 057D1H
LD BC,00E10H
CALL 057D1H
CP 03AH
JR C,L6974 ; (+00aH)
SUB 00AH
DEC DE
LD (DE),A
DEC DE
LD A,(DE)
INC A
LD (DE),A
INC DE
INC DE
L6974: DEC DE
DEC DE
LD A,(DE)
INC DE
LD B,A
LD A,(DE)
INC DE
LD C,A
LD A,B
CP 032H
JR NZ,L6993 ; (+012H)
LD A,C
CP 034H
JR NZ,L6993 ; (+00dH)
LD HL,(038D3H)
LD A,030H
LD B,006H
L698D: LD (HL),A
INC HL
DJNZ L698D ; (-004H)
JR L69A9 ; (+016H)
L6993: LD BC,00258H
CALL 057D1H
LD BC,XTEMP
CALL 057D1H
LD BC,0000AH
CALL 057D1H
LD A,030H
L69A7: ADD A,L
LD (DE),A
L69A9: LD HL,(038D3H)
LD DE,LETNL
EX DE,HL
ADD HL,DE
LD (038D3H),HL
EX DE,HL
LD DE,(06AB5H)
OR A
SBC HL,DE
EX DE,HL
POP HL
LD (HL),006H
INC HL
LD (HL),E
INC HL
LD (HL),D
INC HL
INC HL
INC HL
EX DE,HL
POP HL
LD A,003H
LD (06A65H),A
JP L5414
L69D1: OR A
SBC HL,BC
JR C,L69DB ; (+005H)
LD A,(DE)
INC A
LD (DE),A
JR L69D1 ; (-00aH)
L69DB: ADD HL,BC
INC DE
RET
LD A,B
OR A
JP NZ,L2101
LD A,C
RET
CALL 057FAH
PUSH DE
CALL 0529DH
CALL 03332H
CALL L5D7A
CALL 04D5AH
LD C,E
LD B,D
POP DE
RET
INC HL
CALL L5414
CP 028H
INC HL
RET Z
JP L20FE
CP 029H
INC HL
RET Z
JP L20FE
LD DE,(06AB7H)
LD (038D3H),DE
LD DE,(06AB9H)
CALL L5414
L6A1A: CP 041H
JP C,L20FE
L6A1F: CP 05BH
L6A21: JP NC,L20FE
L6A24: PUSH DE
CALL L588B
LD A,(HL)
CP 028H
JP Z,L58F4
L6A2E: PUSH HL
CALL L5C06
L6A32: JR NC,L6A3A ; (+006H)
LD A,C
LD C,L
L6A36: LD B,H
L6A37: POP HL
POP DE
RET
L6A3A: LD A,(DE)
ADD A,C
ADD A,002H
PUSH BC
L6A3F: EX DE,HL
LD HL,(038D3H)
PUSH HL
OR A
SBC HL,DE
INC HL
LD C,L
LD B,H
POP HL
PUSH DE
EX DE,HL
LD L,A
LD H,000H
ADD HL,DE
EX DE,HL
CALL L58DF
LD (038D3H),DE
L6A59: LDDR
L6A5B: LD E,A
LD D,000H
CALL L5AD4
POP HL
POP BC
LD DE,0110FH
L6A66: LD (HL),C
INC HL
SCF
SBC A,C
LD B,A
L6A6B: LD A,(DE)
LD (HL),A
INC DE
L6A6E: INC HL
DJNZ L6A6B ; (-006H)
PUSH HL
LD B,C
XOR A
L6A74: LD (HL),A
INC HL
L6A76: DJNZ L6A74 ; (-004H)
LD (HL),A
LD A,C
POP BC
POP HL
POP DE
RET
L6A7E: CALL L5414
L6A81: CP 041H
L6A83: JP C,L20FE
CP 05BH
JP NC,L20FE
LD DE,0110FH
LD B,000H
L6A90: INC DE
LD A,(HL)
CALL 03AC7H
JR C,L6AA2 ; (+00bH)
LD (DE),A
INC B
LD A,B
CP 003H
JR C,L6A9F ; (+001H)
DEC B
L6A9F: INC HL
JR L6A90 ; (-012H)
L6AA2: LD DE,0110FH
EX DE,HL
LD (HL),B
EX DE,HL
LD C,005H
CP 024H
RET NZ
LD C,003H
INC HL
RET
LD HL,0FFFBH
ADD HL,DE
L6AB5: EX DE,HL
PUSH DE
L6AB7: LD HL,0FFFBH
ADD HL,DE
L6ABB: POP DE
LD A,(06A65H)
CP B
RET Z
L6AC1: JP L20FB
LD B,0FFH
L6AC6: INC B
LD A,(HL)
OR A
RET Z
INC HL
CP 022H
RET Z
JR L6AC6 ; (-00aH)
LD A,B
OR A
RET Z
L6AD3: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L6AD3 ; (-006H)
EX DE,HL
CALL L58DF
EX DE,HL
RET
PUSH HL
LD HL,MONIT
ADD HL,SP
DEC H
DEC H
SBC HL,DE
POP HL
RET NC
JP L20B9
LD DE,(06AB9H)
PUSH DE
JR L6AFC ; (+008H)
XOR A
LD (L5B41),A
INC HL
LD (05B3DH),HL
L6AFC: LD B,000H
EXX
POP HL
PUSH HL
PUSH HL
LD HL,(038D3H)
LD DE,0110FH
PUSH HL
LD A,(DE)
LD (HL),A
INC DE
INC HL
LD B,A
CALL 058D0H
POP DE
LD (038D3H),HL
LD HL,(L6AB5)
EX DE,HL
OR A
SBC HL,DE
EX (SP),HL
PUSH HL
EXX
L6B1F: POP DE
PUSH DE
PUSH BC
LD BC,(05B3DH)
LD A,(L5B41)
PUSH BC
PUSH AF
LD BC,(06A26H)
PUSH BC
CALL 04D5AH
BIT 7,D
JP NZ,L20B9
EX AF,AF'
POP BC
LD (06A26H),BC
POP AF
LD (L5B41),A
POP BC
LD (05B3DH),BC
EX AF,AF'
INC HL
CP 029H
JR Z,L6B69 ; (+01cH)
CP 02CH
JP NZ,L20FE
POP BC
INC B
LD A,B
CP 004H
JR C,L6B5E ; (+005H)
LD A,003H
JP L2108
L6B5E: EXX
POP HL
POP DE
EXX
PUSH DE
EXX
PUSH DE
PUSH HL
EXX
JR L6B1F ; (-04aH)
L6B69: POP BC
EXX
POP HL
POP DE
EXX
INC B
PUSH DE
PUSH HL
EXX
LD HL,(L6AB5)
ADD HL,DE
LD B,(HL)
INC B
LD DE,0110FH
L6B7B: LD A,(HL)
LD (DE),A
INC DE
INC HL
DJNZ L6B7B ; (-006H)
EXX
SET 7,C
CALL L5C06
RES 7,C
JP NC,059F3H
LD A,B
CP (HL)
JP NZ,L20CE
INC HL
EX DE,HL
POP HL
LD (06A26H),HL
EXX
LD HL,MONIT
EXX
EX DE,HL
L6B9D: LD E,(HL)
INC HL
LD D,(HL)
INC HL
EX (SP),HL
PUSH DE
EXX
POP DE
CALL L5B13
EXX
EX DE,HL
CALL 059E7H
EX DE,HL
PUSH HL
OR A
SBC HL,DE
JP NC,L20D1
EXX
POP DE
CALL 05B0FH
EXX
POP HL
DJNZ L6B9D ; (-021H)
PUSH HL
EXX
LD A,C
LD D,B
BIT 6,A
JR NZ,L6BDA ; (+014H)
AND 00FH
LD E,A
PUSH AF
CALL L5B13
PUSH HL
EXX
POP BC
POP AF
POP HL
ADD HL,BC
LD C,L
LD B,H
L6BD5: LD HL,(06A26H)
POP DE
RET
L6BDA: LD E,(HL)
INC HL
LD D,(HL)
POP HL
LD C,L
LD B,H
LD (HL),E
INC HL
LD (HL),D
AND 00FH
JR L6BD5 ; (-012H)
LD A,(L5B42)
OR A
RET Z
LD A,D
OR E
JP Z,L20D1
DEC DE
RET
EXX
LD A,(L5B41)
OR A
JP Z,L20D1
POP HL
LD (06A26H),HL
EXX
LD DE,(038D3H)
LD L,B
LD H,000H
ADD HL,HL
ADD HL,DE
EX DE,HL
INC DE
CALL L58DF
LD (HL),B
INC HL
EXX
LD HL,00001H
EXX
L6C15: POP DE
LD A,(L5B41)
OR A
JR NZ,L6C28 ; (+00cH)
PUSH HL
EX DE,HL
LD DE,0000AH
SCF
SBC HL,DE
JP NC,L20D1
POP HL
L6C28: CALL 059E7H
INC DE
LD (HL),E
INC HL
LD (HL),D
INC HL
PUSH DE
EXX
POP DE
CALL L5B13
EXX
DJNZ L6C15 ; (-024H)
LD E,C
LD D,000H
PUSH BC
PUSH DE
EXX
POP DE
CALL L5B13
PUSH HL
EXX
POP BC
PUSH BC
EX DE,HL
LD HL,(038D3H)
LD L,(HL)
LD H,000H
ADD HL,HL
LD A,(0110FH)
ADD A,005H
ADD A,L
LD L,A
LD A,000H
ADC A,H
LD H,A
JR C,L6C61 ; (+005H)
ADD HL,BC
JR C,L6C61 ; (+002H)
PUSH HL
ADD HL,DE
L6C61: JP C,L20B9
EX DE,HL
CALL L58DF
PUSH HL
EXX
POP HL
LD BC,(06AB5H)
DEC BC
OR A
SBC HL,BC
PUSH HL
EXX
POP BC
LDDR
POP DE
CALL 05ACDH
POP BC
PUSH DE
EXX
POP DE
LD H,B
LD L,C
POP BC
LD A,C
OR 080H
LD (HL),A
INC HL
DEC DE
LD (HL),E
INC HL
LD (HL),D
INC HL
LD DE,0110FH
LD A,(DE)
INC A
CALL L5AC5
LD DE,(038D3H)
LD A,(DE)
LD (HL),A
INC HL
INC DE
ADD A,A
CALL L5AC5
PUSH HL
EXX
POP HL
L6CA4: XOR A
LD (HL),A
INC HL
DEC BC
LD A,B
OR C
JR NZ,L6CA4 ; (-008H)
LD (HL),A
LD A,001H
LD (03901H),A
EXX
POP DE
LD A,(L5B41)
OR A
JR Z,L6CBE ; (+004H)
LD HL,(06A26H)
RET
L6CBE: LD HL,(05B3DH)
PUSH DE
JP 058FCH
LD B,A
L6CC6: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L6CC6 ; (-006H)
RET
LD HL,(038D3H)
ADD HL,DE
LD (038D3H),HL
LD HL,(L6AB5)
ADD HL,DE
LD (L6AB5),HL
LD HL,(L6AB7)
ADD HL,DE
LD (L6AB7),HL
LD HL,(038DAH)
ADD HL,DE
LD (038DAH),HL
RET
LD A,0FFH
LD (L5B41),A
L6CEF: EX DE,HL
LD A,(DE)
EX DE,HL
CP 041H
JP C,L20FE
CP 05BH
JP NC,L20FE
CALL L588B
LD A,(HL)
CALL 057FDH
CALL L58ED
CALL L5414
CP 02CH
RET NZ
INC HL
JR L6CEF ; (-020H)
ADD HL,DE
RET NC
JR L6D3A ; (+027H)
PUSH BC
EX DE,HL
LD C,L
LD A,H
LD HL,MONIT
CALL 05B23H
LD A,C
CALL 05B23H
POP BC
RET
OR A
JR Z,L6D34 ; (+00eH)
LD B,008H
L6D28: ADD HL,HL
JR C,L6D3A ; (+00fH)
RLCA
JR NC,L6D31 ; (+003H)
ADD HL,DE
JR C,L6D3A ; (+009H)
L6D31: DJNZ L6D28 ; (-00bH)
RET
L6D34: LD A,H
LD H,L
LD L,000H
OR A
RET Z
L6D3A: JP L20D1
NOP
NOP
NOP
NOP
NOP
NOP
CP 041H
RET C
CP 05BH
JP NC,L5497
LD BC,(05D83H)
LD A,B
OR C
JR NZ,L6D66 ; (+013H)
CALL 05817H
L6D56: PUSH DE
PUSH HL
LD L,C
LD H,B
LD B,A
LD C,A
L6D5C: LD A,(HL)
LD (DE),A
INC HL
INC DE
DJNZ L6D5C ; (-006H)
POP HL
JP 05454H
L6D66: PUSH DE
CALL L587E
PUSH HL
INC B
LD DE,0110FH
LD HL,(038D3H)
CALL 058D0H
LD B,000H
LD HL,(L5D83)
CALL L5414
CP 0F4H
JR Z,L6DB0 ; (+02fH)
CP 028H
JR NZ,L6DAD ; (+028H)
L6D85: INC HL
INC B
PUSH BC
CALL L587E
LD A,C
POP DE
CP E
LD C,E
JR NZ,L6DA2 ; (+011H)
PUSH DE
LD C,B
INC C
PUSH HL
LD HL,(038D3H)
LD DE,0110FH
CALL 0162EH
POP HL
POP BC
JR Z,L6DC6 ; (+024H)
L6DA2: CALL L5414
CP 029H
JR Z,L6DB0 ; (+007H)
CP 02CH
JR Z,L6D85 ; (-028H)
L6DAD: JP L20FE
L6DB0: LD HL,(038D3H)
LD DE,0110FH
LD A,(HL)
LD (DE),A
LD B,A
L6DB9: INC HL
INC DE
LD A,(HL)
LD (DE),A
DJNZ L6DB9 ; (-006H)
POP HL
POP DE
CALL L5C02
JR L6D56 ; (-070H)
L6DC6: LD HL,(L5D85)
CALL 057FAH
DEC B
JR Z,L6DE7 ; (+018H)
DEC HL
L6DD0: PUSH BC
L6DD1: CALL 03880H
CALL L1C66
JP Z,L20FE
CP 029H
JP Z,L20FE
CP 02CH
JR NZ,L6DD1 ; (-012H)
POP BC
DJNZ L6DD0 ; (-016H)
INC HL
L6DE7: EX DE,HL
POP HL
EX (SP),HL
EX DE,HL
LD BC,(05D83H)
PUSH BC
LD BC,MONIT
LD (05D83H),BC
CALL 0529DH
POP HL
LD (L5D83),HL
POP HL
JP L5414
PUSH DE
JP 05828H
LD HL,(06AB3H)
L6E09: LD DE,0110FH
LD A,(HL)
OR A
RET Z
CP 040H
JR NC,L6E3A ; (+027H)
CP C
JR NZ,L6E2F ; (+019H)
INC HL
LD A,(DE)
CP (HL)
JR NZ,L6E2D ; (+012H)
LD B,A
L6E1C: INC DE
INC HL
LD A,(DE)
CP (HL)
JR NZ,L6E27 ; (+005H)
DJNZ L6E1C ; (-008H)
INC HL
SCF
RET
L6E27: INC HL
DJNZ L6E27 ; (-003H)
LD A,C
JR L6E34 ; (+007H)
L6E2D: LD A,C
DEC HL
L6E2F: AND 00FH
INC HL
ADD A,(HL)
INC HL
L6E34: LD E,A
LD D,000H
ADD HL,DE
JR L6E09 ; (-031H)
L6E3A: CP C
JR Z,L6E52 ; (+015H)
INC HL
L6E3E: LD E,(HL)
INC HL
LD D,(HL)
DEC HL
ADD HL,DE
JP L5C09
LD A,C
SUB B
CPL
LD C,A
LD B,0FFH
ADD HL,BC
POP BC
DEC HL
DEC HL
JR L6E3E ; (-014H)
L6E52: LD A,(HL)
EXX
LD C,A
LD B,000H
EXX
INC HL
PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
INC HL
EX DE,HL
ADD HL,DE
EX DE,HL
POP DE
LD A,(DE)
CP (HL)
JP NZ,05C4EH
PUSH BC
LD B,A
LD C,A
L6E6A: INC HL
INC DE
LD A,(DE)
CP (HL)
JP NZ,L5C46
DJNZ L6E6A ; (-009H)
INC HL
POP BC
SCF
RET
LD A,(HL)
CALL 05881H
SET 6,C
PUSH HL
CALL L5C06
JP C,L20CE
LD (HL),C
EX (SP),HL
PUSH HL
DEC HL
L6E88: CALL 03880H
OR A
JR Z,L6E92 ; (+004H)
CP 03AH
JR NZ,L6E88 ; (-00aH)
L6E92: POP DE
PUSH HL
INC HL
SBC HL,DE
LD A,(0110FH)
ADD A,004H
LD C,A
LD B,000H
LD A,L
ADD HL,BC
LD B,A
PUSH HL
EXX
POP BC
PUSH BC
PUSH HL
PUSH DE
PUSH BC
LD HL,MONIT
ADD HL,SP
LD DE,(038D3H)
DEC H
OR A
SBC HL,DE
LD A,00CH
JP C,L20BB
POP BC
POP DE
POP HL
LD HL,(038D3H)
PUSH HL
ADD HL,BC
EX (SP),HL
PUSH HL
LD DE,(06AB5H)
OR A
SBC HL,DE
LD C,L
LD B,H
POP HL
POP DE
LDDR
POP DE
CALL 05ACDH
DEC DE
POP HL
EX (SP),HL
INC HL
LD (HL),E
INC HL
LD (HL),D
INC HL
LD DE,0110FH
LD A,(DE)
LD (HL),A
LD B,A
L6EE3: INC DE
INC HL
LD A,(DE)
LD (HL),A
DJNZ L6EE3 ; (-006H)
INC HL
PUSH HL
EXX
POP HL
L6EED: LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ L6EED ; (-006H)
LD (HL),000H
POP HL
RET
PUSH DE
LD A,(HL)
CALL 05881H
POP IX
PUSH BC
SET 6,C
LD DE,(05D85H)
LD (L5D85),HL
PUSH DE
CALL L5C06
LD A,00FH
JP NC,L2108
LD DE,(05D83H)
LD (L5D83),HL
PUSH DE
PUSH IX
DEC HL
L6F1C: CALL 03880H
CALL L1C66
JP Z,L20FE
CP 0F4H
JR NZ,L6F1C ; (-00dH)
INC HL
POP DE
PUSH DE
CALL 0529DH
POP DE
LD HL,(L5D85)
POP BC
LD (05D83H),BC
POP BC
LD (05D85H),BC
EX DE,HL
POP BC
LD A,C
CALL L5D70
LD BC,00005H
ADD HL,BC
EX DE,HL
CALL L5414
CP 028H
RET NZ
PUSH DE
LD B,001H
L6F51: PUSH BC
CALL 03880H
POP BC
OR A
JP Z,L20FE
CP 03AH
JP Z,L20FE
CP 028H
JR NZ,L6F64 ; (+001H)
INC B
L6F64: CP 029H
JR NZ,L6F51 ; (-017H)
DJNZ L6F51 ; (-019H)
INC HL
CALL L5414
POP DE
RET
CP 003H
JR Z,L6F7A ; (+006H)
CP 003H
RET NZ
JP L20FB
L6F7A: LD A,(06A65H)
CP 003H
RET Z
JP L20FB
NOP
NOP
NOP
NOP
PUSH HL
LD B,005H
XOR A
L6F8B: LD (HL),A
INC HL
DJNZ L6F8B ; (-004H)
POP HL
RET
LD A,(HL)
OR A
RET Z
INC HL
LD A,(HL)
XOR 080H
LD (HL),A
DEC HL
RET
LD A,(06A65H)
CP 003H
LD A,005H
RET NZ
JP L20FB
CALL L5D9B
LD C,A
LD A,080H
JP L5DB9
LD A,(06A65H)
CP 003H
JP Z,L5E07
LD C,A
XOR A
LD (L6A59),HL
PUSH DE
PUSH HL
LD (06A5CH),SP
INC HL
INC DE
LD B,(HL)
XOR (HL)
EX DE,HL
XOR (HL)
DEC HL
DEC DE
EX DE,HL
RLCA
LD A,B
LD (L6A5B),A
JP C,L5EC8
XOR A
CP (HL)
JP Z,L5DFC
LD A,(DE)
OR A
JR Z,L6FE0 ; (+004H)
SUB (HL)
JP L5F0B
L6FE0: LD SP,(06A5CH)
POP HL
POP DE
EI
LD A,(HL)
OR A
JR Z,L6FF7 ; (+00cH)
LD A,(L6A5B)
AND 080H
INC HL
RES 7,(HL)
OR (HL)
LD (HL),A
DEC HL
RET
L6FF7: INC HL
RES 7,(HL)
DEC HL
RET
LD B,000H
LD A,005H
LD C,A
EX DE,HL
LDIR
JP L5DE0
LD B,(HL)
LD A,(DE)
ADD A,B
JP C,L20E6
LD C,A
PUSH DE
PUSH HL
PUSH DE
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
EX DE,HL
LD HL,(038D3H)
CALL 058D0H
EX (SP),HL
LD B,(HL)
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
ADD HL,DE
EX DE,HL
POP HL
CALL 058D0H
LD A,C
LD DE,(038D3H)
LD BC,(06AB5H)
EX DE,HL
OR A
SBC HL,BC
EX DE,HL
LD (038D3H),HL
POP HL
LD (HL),A
INC HL
LD (HL),E
INC HL
LD (HL),D
DEC HL
DEC HL
POP DE
RET
LD A,(06A65H)
CP 003H
JR NZ,L7085 ; (+034H)
PUSH DE
PUSH HL
LD A,(DE)
OR (HL)
JR Z,L7082 ; (+02bH)
LD A,(DE)
CP (HL)
JR C,L705C ; (+001H)
LD A,(HL)
L705C: OR A
JR Z,L707C ; (+01dH)
INC HL
LD C,(HL)
INC HL
LD B,(HL)
EX DE,HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
LD HL,(L6AB5)
EX DE,HL
ADD HL,DE
EX DE,HL
ADD HL,BC
EX DE,HL
LD B,A
OR A
JR Z,L7082 ; (+00eH)
L7074: LD A,(DE)
CP (HL)
JR NZ,L7082 ; (+00aH)
INC DE
INC HL
DJNZ L7074 ; (-008H)
L707C: POP DE
POP HL
LD A,(DE)
CP (HL)
EX DE,HL
RET
L7082: POP HL
POP DE
RET
L7085: INC DE
INC HL
LD A,(DE)
DEC DE
XOR (HL)
RLCA
JR NC,L7091 ; (+004H)
LD A,(HL)
DEC HL
RLCA
RET
L7091: LD A,(HL)
DEC HL
RLCA
JR NC,L709C ; (+006H)
CALL L5E9C
RET Z
CCF
RET
L709C: PUSH DE
PUSH HL
EX DE,HL
LD A,(DE)
CP (HL)
JR NZ,L70BD ; (+01aH)
INC DE
INC HL
LD A,(HL)
OR 080H
LD B,A
LD A,(DE)
OR 080H
CP B
JR NZ,L70BD ; (+00eH)
LD A,(06A65H)
LD B,A
DEC B
DEC B
L70B5: INC DE
INC HL
LD A,(DE)
CP (HL)
JR NZ,L70BD ; (+002H)
DJNZ L70B5 ; (-008H)
L70BD: POP HL
POP DE
RET
L70C0: POP HL
PUSH HL
CALL L5D87
JP L5DE0
CALL L5E9C
JR Z,L70C0 ; (-00dH)
JR NC,L70D8 ; (+009H)
LD A,(L6A5B)
XOR 080H
LD (L6A5B),A
SCF
L70D8: EX AF,AF'
LD A,(HL)
OR A
JP Z,L5DFC
LD A,(DE)
OR A
JP Z,L5DE0
SUB (HL)
JR C,L70ED ; (+007H)
CP 020H
JP NC,L5DFC
JR L70F4 ; (+007H)
L70ED: NEG
CP 020H
JP NC,L5DE0
L70F4: EX AF,AF'
JR C,L70F8 ; (+001H)
EX DE,HL
L70F8: EX AF,AF'
JP L5F92
LD SP,(06A5CH)
EI
POP HL
POP DE
LD A,(06A63H)
OR A
JP Z,L20F5
RET
JR NC,L7117 ; (+00aH)
NEG
CP 020H
JP NC,L5DE0
EX DE,HL
JR L711C ; (+005H)
L7117: CP 020H
JP NC,L5DFC
L711C: CALL 05F52H
LD A,H
EXX
ADC A,H
EXX
LD H,A
LD A,L
EXX
ADC A,L
EXX
LD L,A
LD A,D
EXX
ADC A,D
EXX
LD D,A
LD A,E
EXX
ADC A,E
EXX
JR NC,L713F ; (+00bH)
RRA
RR D
RR L
RR H
INC C
JP Z,L5EFC
L713F: LD E,A
LD A,C
EXX
LD BC,00005H
LD HL,(L6A59)
LD (HL),A
ADD HL,BC
DI
LD SP,HL
EXX
PUSH HL
PUSH DE
JP L5DE0
DI
LD (06A5EH),SP
EX AF,AF'
INC HL
LD SP,HL
EXX
POP DE
SET 7,E
POP HL
OR A
L7160: EX AF,AF'
CP 008H
JR C,L7171 ; (+00cH)
SUB 008H
EX AF,AF'
RL H
LD H,L
LD L,D
LD D,E
LD E,000H
JR L7160 ; (-011H)
L7171: OR A
JR Z,L7182 ; (+00eH)
L7174: EX AF,AF'
OR A
RR E
RR D
RR L
RR H
EX AF,AF'
DEC A
JR NZ,L7174 ; (-00eH)
L7182: EXX
EX DE,HL
LD C,(HL)
INC HL
LD SP,HL
POP DE
SET 7,E
POP HL
EX AF,AF'
LD SP,(06A5EH)
EI
RET
CP 020H
JP NC,L5DE0
CALL 05F52H
LD A,H
EXX
SBC A,H
EXX
LD H,A
LD A,L
EXX
SBC A,L
EXX
LD L,A
LD A,D
EXX
SBC A,D
EXX
LD D,A
LD A,E
EXX
SBC A,E
EXX
L71AD: OR A
JR Z,L71C6 ; (+016H)
BIT 7,A
JR NZ,L71C2 ; (+00eH)
RL H
RL L
RL D
RLA
DEC C
JP NZ,L5FB0
JP L5EC0
L71C2: LD E,A
JP L5F3F
L71C6: LD A,C
SUB 008H
LD C,A
LD A,D
LD D,L
LD L,H
LD H,000H
JR Z,L71D3 ; (+002H)
JR NC,L71AD ; (-026H)
L71D3: JP L5EC0
LD C,A
INC HL
INC DE
LD A,(DE)
XOR (HL)
LD (L6A5B),A
DEC HL
DEC DE
RET
CALL L5D9B
CALL 05FD6H
PUSH DE
PUSH HL
LD (06A5CH),SP
LD A,(HL)
OR A
JP Z,L5EC0
LD A,(DE)
OR A
JP Z,L5EC0
INC DE
PUSH DE
POP IX
ADD A,(HL)
LD E,A
LD A,000H
ADC A,A
LD D,A
LD (06A61H),DE
INC HL
XOR A
LD (06A60H),A
LD D,(HL)
SET 7,D
INC HL
LD E,(HL)
INC HL
PUSH HL
LD H,A
LD L,A
EXX
POP HL
LD D,(HL)
INC HL
LD E,(HL)
LD B,A
LD C,A
LD H,A
LD L,A
EXX
LD A,(IX+000H)
OR 080H
LD C,004H
L7224: LD B,008H
OR A
JP Z,L60B9
L722A: RLCA
JR NC,L723F ; (+012H)
EX AF,AF'
EXX
LD A,C
ADD A,B
LD C,A
ADC HL,DE
EXX
ADC HL,DE
JR NC,L723E ; (+005H)
LD A,001H
LD (06A60H),A
L723E: EX AF,AF'
L723F: SRL D
RR E
EXX
RR D
RR E
RR B
EXX
DJNZ L722A ; (-023H)
INC IX
LD A,(IX+000H)
DEC C
JR NZ,L7224 ; (-031H)
EXX
LD A,(06A60H)
OR A
JR Z,L7272 ; (+016H)
LD DE,(06A61H)
INC DE
LD (06A61H),DE
EXX
SCF
RR H
RR L
EXX
RR H
RR L
RR C
L7272: BIT 7,C
JR Z,L7290 ; (+01aH)
LD DE,00001H
ADD HL,DE
EXX
LD DE,MONIT
ADC HL,DE
EXX
JR NC,L7290 ; (+00dH)
LD DE,(06A61H)
INC DE
LD (06A61H),DE
EXX
LD H,080H
EXX
L7290: POP IX
PUSH IX
LD (IX+004H),L
LD (IX+003H),H
EXX
LD (IX+002H),L
LD (IX+001H),H
LD HL,(06A61H)
OR A
LD DE,00081H
SBC HL,DE
LD A,H
ADD A,000H
JP M,060C5H
JP NZ,L5EFC
LD (IX+000H),L
JP L5DE0
LD A,E
EXX
LD B,E
LD E,D
LD D,A
EXX
LD E,D
LD D,000H
JP L604D
LD SP,(06A5CH)
JP L5EC0
CALL L5D9B
CALL 05FD6H
PUSH DE
PUSH HL
LD (06A5CH),SP
LD A,(DE)
OR A
JP Z,L20F5
EX AF,AF'
LD A,(HL)
OR A
JP Z,L5EC0
EXX
ADD A,081H
LD B,A
LD A,000H
ADC A,A
EX AF,AF'
LD C,A
LD A,B
SUB C
LD C,A
EX AF,AF'
LD B,A
EX AF,AF'
LD A,B
SBC A,000H
JP C,060C5H
JP NZ,L5EFC
LD A,C
PUSH AF
EXX
INC DE
INC HL
LD B,(HL)
SET 7,B
INC HL
LD C,(HL)
INC HL
PUSH HL
EX DE,HL
LD D,(HL)
SET 7,D
INC HL
LD E,(HL)
INC HL
PUSH HL
LD H,B
LD L,C
EXX
POP HL
LD D,(HL)
INC HL
LD E,(HL)
POP HL
LD A,(HL)
INC HL
LD L,(HL)
LD H,A
EXX
LD C,005H
L731E: LD B,008H
XOR A
L7321: BIT 7,H
JR NZ,L7335 ; (+010H)
OR A
L7326: RLA
EXX
ADD HL,HL
EXX
ADC HL,HL
DJNZ L7321 ; (-00dH)
PUSH AF
DEC C
JR NZ,L731E ; (-014H)
JP L616F
L7335: OR A
EXX
SBC HL,DE
EXX
SBC HL,DE
CCF
JR C,L7326 ; (-019H)
EXX
ADD HL,DE
EXX
ADC HL,DE
OR A
RLA
EXX
ADD HL,HL
EXX
ADC HL,HL
DJNZ L7354 ; (+007H)
PUSH AF
LD B,008H
DEC C
JP Z,L616F
L7354: EXX
OR A
SBC HL,DE
EXX
SBC HL,DE
SCF
RLA
DJNZ L7365 ; (+006H)
PUSH AF
LD B,008H
DEC C
JR Z,L736F ; (+00aH)
L7365: EXX
ADD HL,HL
EXX
ADC HL,HL
JR C,L7354 ; (-018H)
JP L6121
L736F: POP AF
LD H,A
EXX
POP AF
LD E,A
POP AF
LD D,A
POP AF
LD C,A
POP AF
LD B,A
POP AF
BIT 7,B
JR NZ,L7392 ; (+013H)
EXX
SLA H
EXX
RL E
RL D
RL C
RL B
DEC A
JP NZ,L617B
JP L5EC0
L7392: EXX
RL H
EXX
JR NC,L73A9 ; (+011H)
LD HL,00001H
ADD HL,DE
EX DE,HL
LD HL,MONIT
ADC HL,BC
LD B,H
LD C,L
JR NC,L73A9 ; (+003H)
LD B,080H
INC A
L73A9: POP HL
PUSH HL
LD (HL),A
INC HL
LD (HL),B
INC HL
LD (HL),C
INC HL
LD (HL),D
INC HL
LD (HL),E
JP L5DE0
INC HL
BIT 7,(HL)
DEC HL
RET
INC (HL)
RET NZ
JP L20F5
LD A,(HL)
OR A
RET Z
DEC (HL)
RET NZ
JP L5D87
PUSH HL
LD DE,00005H
ADD HL,DE
EX DE,HL
LD HL,(06ABDH)
DEC HL
SBC HL,DE
JP C,L20F8
POP HL
RET
PUSH HL
LD (06A12H),HL
CALL 061C9H
EX DE,HL
LD (06A14H),HL
CALL 061C9H
EX DE,HL
LD (06A16H),HL
CALL 061C9H
LD (06A18H),DE
POP HL
RET
EX DE,HL
LD A,(HL)
OR A
JP Z,L6258
EX DE,HL
LD A,(HL)
OR A
JP Z,L5D87
CALL L61B7
JR Z,L7432 ; (+02cH)
CALL L5D91
EX DE,HL
PUSH DE
PUSH HL
LD DE,L6A6E
CALL 03AB8H
LD HL,L6A6E
CALL L62B0
LD A,(HL)
OR A
JP NZ,L2101
POP HL
PUSH HL
CALL L3D21
XOR A
RR L
RRA
POP DE
POP HL
PUSH AF
CALL L6232
POP AF
INC HL
OR (HL)
LD (HL),A
DEC HL
RET
L7432: EX DE,HL
LD A,(HL)
OR A
JR Z,L7458 ; (+021H)
CALL L61B7
JR Z,L745E ; (+022H)
CALL L5D91
CALL L625E
PUSH DE
PUSH HL
LD DE,L6A6E
CALL L3AB5
LD HL,L6A6E
POP DE
CALL L60CC
PUSH DE
CALL 03AB8H
POP HL
POP DE
RET
L7458: PUSH DE
CALL L3AB5
POP HL
RET
L745E: PUSH DE
LD DE,L6A6E
CALL 03AB8H
POP HL
CALL L6736
LD DE,L6A6E
CALL 05FE1H
JP L6615
INC HL
RES 7,(HL)
DEC HL
RET
LD A,(06A65H)
CP 002H
RET Z
CALL L61B7
JP Z,L3C97
PUSH HL
LD DE,L6A6E
CALL 03AB8H
POP HL
CALL L3C97
LD DE,L6A6E
CALL L5E4A
RET Z
LD DE,L3D77
JP L5DA6
LD DE,L3D77
JP L5DAF
LD DE,L3D77
JP L5E4A
LD A,(06A65H)
CP 002H
RET Z
JP L3C97
LD A,(06A65H)
CP 002H
JR Z,L74C9 ; (+012H)
PUSH HL
LD DE,L6A6E
CALL 03AB8H
LD HL,L6A6E
CALL L3C97
EX DE,HL
POP HL
JP L5DA6
L74C9: LD (HL),000H
INC HL
LD (HL),000H
DEC HL
RET
LD A,(HL)
OR A
RET Z
CALL L61B7
JP NZ,L2101
CALL L6736
CALL L61C1
JP L6615
PUSH HL
EX DE,HL
CALL L3AB5
POP HL
POP BC
RET
LD A,(HL)
LD C,H
ADD A,B
DEC HL
PUSH BC
INC HL
LD A,(HL)
RES 7,(HL)
DEC HL
PUSH AF
CALL L62FF
POP AF
POP BC
RLCA
RET NC
JP L5D91
CALL L62A1
JR C,L7528 ; (+024H)
CALL 061C9H
PUSH DE
PUSH HL
CALL 03AB8H
POP DE
PUSH DE
CALL L3AB5
POP HL
POP DE
CALL L60CC
CALL L6328
LD DE,065ABH
CALL L61BC
CALL L5DA6
CALL L61C1
JP L5DF7
L7528: LD A,0FFH
LD (06A1EH),A
LD DE,062EAH
CALL L5E4A
JR C,07584H ; (+04fH)
LD DE,L62EC
CALL L5E4A
PUSH AF
CALL 061C9H
POP AF
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
JR C,L755C ; (+014H)
CALL L629B
EX (SP),HL
CALL L5DA6
POP DE
CALL L60CC
CALL 06384H
LD DE,06575H
JP L5DAF
L755C: LD DE,0637FH
CALL 05FE1H
CALL L629B
EX (SP),HL
LD DE,0637FH
CALL L5DA6
POP DE
CALL L60CC
CALL 06384H
CALL L61BC
LD DE,06575H
CALL L5DAF
JP L61C1
LD A,A
LD D,H
INC DE
CALL Z,0C5D0H
PUSH HL
CALL 061DAH
POP HL
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
LD E,L
LD D,H
CALL 05FE1H
LD DE,(06A16H)
POP HL
PUSH HL
CALL 03AB8H
LD A,(06A65H)
DEC A
CP 004H
LD B,A
LD HL,06543H
JP Z,06444H
LD B,00AH
JP 06444H
PUSH BC
LD A,(HL)
OR A
JP Z,062E2H
LD DE,06575H
CALL L61C1
CALL L5DA6
CALL L61BC
CALL L5D91
POP BC
PUSH BC
PUSH HL
INC HL
LD A,(HL)
RES 7,(HL)
AND 080H
CPL
LD (06A1EH),A
DEC HL
CALL 061C9H
LD HL,06575H
PUSH DE
CALL 03AB8H
POP HL
CALL L61BC
CALL L61BC
CALL L61BC
EX DE,HL
POP HL
PUSH HL
CALL L5E4A
CALL NC,0680EH
EX DE,HL
CALL L61C1
EX DE,HL
CALL L5E4A
JR C,L7605 ; (+00bH)
CALL L5DA6
LD A,(06A1EH)
XOR 080H
LD (06A1EH),A
L7605: EX DE,HL
CALL L61C1
EX DE,HL
CALL L5E4A
JR C,L761B ; (+00cH)
CALL L61C1
CALL L5DA6
CALL L61BC
CALL L5DF7
L761B: CALL 061DAH
POP HL
PUSH DE
LD DE,06575H
CALL L5E4A
JR NC,L768D ; (+065H)
POP DE
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
LD E,L
LD D,H
CALL 05FE1H
LD DE,(06A16H)
POP HL
PUSH HL
CALL 03AB8H
LD A,(06A65H)
LD B,A
LD HL,L64F3
L7644: PUSH BC
PUSH HL
LD HL,(06A16H)
LD DE,(06A18H)
CALL 05FE1H
POP HL
PUSH HL
LD DE,(06A14H)
PUSH DE
CALL 03AB8H
POP HL
LD DE,(06A16H)
CALL 05FE1H
EX DE,HL
LD HL,(06A12H)
CALL L5DAF
POP HL
LD DE,00005H
ADD HL,DE
POP BC
DJNZ L7644 ; (-02dH)
POP HL
POP BC
LD A,(06A1EH)
INC HL
L7677: XOR (HL)
CPL
LD (HL),A
DEC HL
LD A,(06A65H)
CP 008H
LD A,(HL)
JR Z,L7689 ; (+006H)
CP 05CH
L7685: RET NC
JP L5D87
L7689: CP 04DH
JR L7685 ; (-008H)
L768D: CALL L61C1
LD DE,06575H
CALL L5DA6
CALL L61BC
CALL L5DF7
POP DE
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
LD E,L
LD D,H
CALL 05FE1H
LD DE,(06A16H)
CALL L3AB5
POP DE
PUSH DE
CALL L3AB5
LD A,(06A65H)
LD B,A
LD HL,L651B
JR L7644 ; (-079H)
PUSH BC
PUSH HL
CALL 061C9H
EX DE,HL
LD (L6A1A),HL
CALL 061C9H
LD (06A1CH),DE
POP HL
PUSH HL
CALL 03AB8H
LD HL,(L6A1A)
EX DE,HL
POP HL
PUSH HL
CALL 03AB8H
LD HL,(06A1CH)
CALL 063C6H
POP DE
PUSH DE
CALL 03AB8H
LD HL,(L6A1A)
CALL 063B0H
EX DE,HL
POP HL
CALL L60CC
POP BC
RET
LD A,(HL)
L76F4: XOR D
XOR D
XOR D
XOR E
LD A,D
EX AF,AF'
ADC A,B
ADC A,B
ADC A,C
LD (HL),H
RET NC
DEC C
NOP
RET NC
LD L,(HL)
JR C,L76F4 ; (-011H)
DEC E
DEC HL
LD H,A
RST 010H
LD (L402B),A
LD H,B
JR NC,076A1H ; (-06eH)
JR NC,076AEH ; (-063H)
LD E,B
RST 010H
CCF
SBC A,A
LD A,(04A50H)
SUB (HL)
DEC SP
ADD A,D
ADD A,B
ADD A,B
NOP
NOP
NOP
LD A,H
LD HL,(0AAAAH)
XOR E
LD (HL),A
OR (HL)
DEC BC
LD H,B
OR (HL)
LD (HL),C
LD D,B
DEC C
NOP
RET NC
LD L,E
SUB E
JP P,0BC7DH
LD H,H
RRCA
HALT
RST 000H
L7738: ADD A,B
LD E,H
RET
L773B: RES 4,L
LD B,(HL)
LD D,H
LD D,A
CCF
SBC A,A
LD A,(0AA7FH)
XOR D
XOR D
XOR E
LD A,(HL)
LD C,H
CALL Z,0CDCCH
LD A,(HL)
SUB D
LD C,C
INC H
SUB D
LD A,L
LD H,E
ADC A,(HL)
JR C,L773B ; (-01cH)
LD A,L
CP D
LD L,08BH
AND E
LD A,L
DEC E
ADC A,C
RET C
SBC A,(HL)
LD A,L
ADC A,B
ADC A,B
ADC A,B
ADC A,C
LD A,H
LD (HL),B
RET P
RET P
POP AF
LD A,H
RST 010H
SUB H
DEC (HL)
PUSH HL
LD A,H
LD B,E
INC C
JR NC,L7738 ; (-03dH)
ADD A,B
LD C,C
RRCA
JP C,011A2H
NOP
NOP
CALL 0658EH
JR Z,L778A ; (+008H)
CALL L61B7
INC DE
JR Z,L778A ; (+002H)
DEC DE
DEC DE
L778A: CALL 03A82H
RET
LD A,(06A65H)
CP 002H
JR Z,L7798 ; (+003H)
LD A,(HL)
OR A
RET
L7798: LD A,(HL)
INC HL
OR (HL)
DEC HL
RET
LD DE,065B0H
JR L77A5 ; (+003H)
LD DE,065ABH
L77A5: PUSH BC
CALL 05FE1H
POP BC
RET
ADD A,D
LD C,C
RRCA
JP C,L7BA2
LD C,0FAH
DEC (HL)
INC DE
CP 040H
JR Z,L77C8 ; (+00fH)
PUSH HL
CALL L3D21
CALL 000EAH
L77C0: LD E,A
LD D,000H
POP HL
CALL 03A82H
RET
L77C8: INC HL
PUSH HL
CALL L3D21
LD A,(HL)
JR L77C0 ; (-010H)
LD A,(HL)
OR A
JR Z,L77DB ; (+007H)
INC HL
LD A,(HL)
DEC HL
BIT 7,A
JR Z,L77E6 ; (+00bH)
L77DB: PUSH HL
LD HL,L4193
LD (L6A1F),HL
POP HL
XOR A
LD R,A
L77E6: PUSH BC
LD DE,(06A1FH)
LD A,R
L77ED: XOR D
RRC A
RRC A
RRC A
LD D,A
LD A,R
XOR E
RLC A
RLC A
LD E,D
LD D,A
LD (06A1FH),DE
PUSH HL
INC HL
RES 7,D
LD (HL),D
INC HL
LD (HL),E
INC HL
LD A,R
LD (HL),A
POP HL
LD (HL),081H
CALL L6295
POP BC
RET
PUSH BC
LD A,(HL)
OR A
JP Z,062E2H
INC HL
LD A,(HL)
LD (06A22H),A
RES 7,(HL)
DEC HL
LD DE,L6887
CALL 05FE1H
PUSH HL
CALL 061C9H
PUSH DE
CALL 03AB8H
POP HL
CALL L3C97
PUSH HL
CALL L3D21
XOR A
CP H
JP NZ,L20F5
LD A,L
LD (L6A21),A
POP DE
POP HL
PUSH HL
CALL L5DA6
PUSH DE
PUSH HL
CALL L3AB5
POP DE
POP HL
CALL L61C1
EX DE,HL
XOR A
LD B,008H
L7856: PUSH BC
PUSH AF
CALL L5E4A
JR C,L7864 ; (+007H)
CALL L5DA6
POP AF
SET 7,A
PUSH AF
L7864: POP AF
RLC A
EX DE,HL
PUSH AF
CALL L61C1
POP AF
EX DE,HL
POP BC
DJNZ L7856 ; (-01bH)
LD (06A23H),A
PUSH DE
LD DE,0687DH
LD A,(06A65H)
BIT 3,A
JR NZ,L7882 ; (+003H)
LD DE,06882H
L7882: CALL 05FE1H
POP DE
PUSH DE
CALL 03AB8H
POP HL
LD A,(06A65H)
BIT 3,A
JP Z,06718H
CALL L61BC
LD DE,L3D72
CALL L5DAF
CALL L61C1
POP DE
PUSH DE
CALL 05FE1H
LD DE,L3D72
CALL L61C1
CALL L5DAF
CALL L61BC
POP DE
PUSH DE
CALL 05FE1H
LD DE,L6878
CALL 05FE1H
CALL L61BC
CALL L629B
CALL L61C1
POP DE
PUSH DE
CALL 05FE1H
CALL L629B
POP DE
PUSH DE
CALL 05FE1H
CALL L629B
EX (SP),HL
EX DE,HL
PUSH DE
CALL L3AB5
POP HL
LD DE,L6828
LD A,(06A23H)
LD B,008H
L78E3: RLC A
JR NC,L78EE ; (+007H)
PUSH AF
PUSH BC
CALL 05FE1H
POP BC
POP AF
L78EE: CALL 03AADH
DJNZ L78E3 ; (-010H)
LD A,(L6A21)
ADD A,(HL)
JP C,L20F5
LD (HL),A
POP DE
CALL 05FE1H
POP BC
LD A,(06A22H)
RLC A
RET NC
PUSH BC
PUSH DE
PUSH HL
CALL 03AB8H
POP DE
PUSH DE
CALL L3AB5
POP HL
POP DE
CALL L60CC
POP BC
RET
POP DE
PUSH DE
CALL 05FE1H
LD A,(HL)
OR A
JR Z,L7924 ; (+003H)
CALL L61C1
L7924: CALL L5DAF
JP L66D1
PUSH BC
CALL L6736
LD DE,06819H
CALL 05FE1H
POP BC
RET
PUSH BC
INC HL
LD A,(HL)
RLC A
JP C,L2101
DEC HL
LD A,(HL)
OR A
JP Z,L2101
SUB 081H
LD (L6A24),A
LD (HL),081H
XOR A
LD B,008H
LD DE,L6828
L7951: PUSH BC
PUSH AF
CALL L5E4A
JR C,L7967 ; (+00fH)
PUSH HL
LD HL,00028H
ADD HL,DE
EX DE,HL
EX (SP),HL
CALL 05FE1H
POP DE
POP AF
SET 7,A
PUSH AF
L7967: POP AF
RLC A
CALL 03AADH
POP BC
DJNZ L7951 ; (-01fH)
LD (06A12H),HL
CALL 061C9H
EX DE,HL
LD E,A
LD D,000H
CALL 03A82H
LD A,(HL)
OR A
JR Z,L7984 ; (+003H)
SUB 008H
LD (HL),A
L7984: LD A,(L6A24)
CP 080H
JR C,L798D ; (+002H)
NEG
L798D: PUSH HL
CALL 061C9H
EX DE,HL
LD (06A14H),HL
LD E,A
LD D,000H
CALL 03A82H
LD A,(L6A24)
AND 080H
INC HL
OR (HL)
LD (HL),A
DEC HL
EX DE,HL
POP HL
CALL L5DAF
LD A,(06A65H)
LD DE,L688C
CP 005H
JR Z,L79B6 ; (+003H)
LD DE,0687DH
L79B6: CALL 05FE1H
PUSH HL
LD DE,(06A14H)
LD HL,(06A12H)
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
CALL L629B
EX (SP),HL
CALL L5DA6
POP DE
CALL L60CC
PUSH DE
CALL 03AB8H
POP HL
PUSH DE
LD E,L
LD D,H
CALL 05FE1H
POP DE
PUSH HL
PUSH DE
CALL 03AB8H
POP HL
LD DE,L6823
CALL L5DAF
EX DE,HL
POP HL
CALL 05FE1H
LD DE,L3D72
CALL L61BC
CALL L5DAF
CALL L61C1
EX DE,HL
LD HL,(06A12H)
CALL 05FE1H
LD DE,0681EH
CALL 05FE1H
POP DE
CALL L5DAF
POP BC
RET
CALL L60CC
PUSH DE
CALL 03CDAH
POP DE
JP 05FE1H
LD A,A
LD E,(HL)
LD E,E
RET C
XOR C
LD A,A
LD C,H
CALL Z,0CDCCH
ADD A,C
LD D,L
LD D,L
LD D,L
LD D,(HL)
ADD A,C
DEC (HL)
INC B
DI
INC (HL)
ADD A,C
JR L7A67 ; (+037H)
RET P
LD D,D
ADD A,C
DEC BC
L7A34: SUB L
POP BC
CALL PO,00581H
XOR D
JP 08168H
LD (BC),A
CALL 09986H
ADD A,C
LD BC,0D164H
CALL P,00081H
OR C
IN D,(C)
ADD A,C
NOP
LD E,B
RST 010H
OUT (080H),A
DEC (HL)
INC B
DI
INC (HL)
ADD A,B
LD D,A
LD B,H
CALL M,080CBH
LD L,D
RET NZ
ADD A,LSE8
ADD A,B
LD (HL),L
DEC H
LD A,L
LD D,080H
LD A,D
ADD A,E
L7A67: OR D
CALL C,L7D80
LD A,00CH
DEC C
ADD A,B
LD A,(HL)
SBC A,(HL)
LD DE,0805DH
LD A,A
LD C,(HL)
BIT 3,D
LD A,D
EX AF,AF'
ADC A,B
ADC A,B
ADC A,C
ADD A,B
LD SP,L1772
RET M
ADD A,B
LD SP,L1772
RET M
ADD A,C
JR C,L7A34 ; (-056H)
DEC SP
LD HL,(03180H)
LD (HL),D
RLA
RET M
XOR A
LD (L38D9),A
LD (L38D8),A
LD (06A80H),A
CALL L352F
CALL L4B38
LD A,B
OR C
JP Z,L1876
LD (038E2H),BC
LD A,(DE)
CP 020H
JR NZ,L7AB0 ; (+001H)
INC DE
L7AB0: PUSH AF
LD HL,L6AC1
CALL 04795H
PUSH HL
LD HL,(038E2H)
LD E,L
LD D,H
CALL L6974
POP HL
POP AF
OR A
JP Z,0695CH
LD DE,L6AC1
OR A
SBC HL,DE
LD DE,00005H
ADD HL,DE
PUSH HL
LD BC,(038E2H)
LD HL,(06ABFH)
JR L7ADF ; (+005H)
L7ADA: LD E,(HL)
INC HL
LD D,(HL)
DEC HL
ADD HL,DE
L7ADF: LD E,(HL)
INC HL
LD D,(HL)
DEC HL
LD A,D
OR E
JR Z,L7AF5 ; (+00eH)
INC HL
INC HL
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
SBC HL,BC
DEC DE
DEC DE
DEC DE
EX DE,HL
JR C,L7ADA ; (-01bH)
L7AF5: POP DE
CALL L68FB
JR L7B3D ; (+042H)
PUSH HL
LD HL,(L6AB7)
LD C,L
LD B,H
ADD HL,DE
JP C,L20B9
EX DE,HL
CALL L58DF
EX DE,HL
LD (L6AB7),HL
LD (038D3H),HL
LD HL,(038DAH)
ADD HL,DE
LD (038DAH),HL
LD HL,(06AB3H)
ADD HL,DE
LD (06AB3H),HL
LD HL,(L6AB5)
ADD HL,DE
LD (L6AB5),HL
POP HL
PUSH DE
EX DE,HL
LD L,C
LD H,B
LD BC,(06AB7H)
L7B2E: LD A,(HL)
LD (BC),A
PUSH HL
OR A
SBC HL,DE
POP HL
JR Z,L7B3B ; (+004H)
DEC HL
DEC BC
JR L7B2E ; (-00dH)
L7B3B: POP BC
RET
L7B3D: ADD HL,BC
PUSH HL
OR A
SBC HL,DE
EX DE,HL
LD (HL),E
INC HL
LD (HL),D
INC HL
LD DE,(038E2H)
LD (HL),E
INC HL
LD (HL),D
INC HL
EX DE,HL
LD HL,L6AC1
PUSH BC
DEC BC
DEC BC
DEC BC
DEC BC
LDIR
POP BC
POP HL
LD A,(L38DF)
OR A
JP Z,L1876
LD DE,(038E4H)
LD HL,(038E2H)
ADD HL,DE
LD (038E2H),HL
JP NC,L1876
JP 0189FH
PUSH AF
PUSH BC
PUSH HL
PUSH DE
LD C,L
LD B,H
LD HL,(06ABFH)
L7B7D: LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD A,E
OR D
JR NZ,L7B8D ; (+008H)
L7B85: POP DE
POP HL
POP BC
POP AF
RET
L7B8A: POP DE
JR L7B85 ; (-008H)
L7B8D: EX DE,HL
ADD HL,DE
DEC HL
DEC HL
EX DE,HL
PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD (L69A7),HL
SBC HL,BC
POP HL
JR C,L7B7D ; (-022H)
DEC DE
DEC DE
DEC DE
L7BA2: POP BC
PUSH BC
PUSH DE
PUSH HL
LD HL,MONIT
SBC HL,BC
POP HL
JR Z,L7BCD ; (+01fH)
JR NC,L7B8A ; (-026H)
L7BB0: LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD A,D
OR E
JR Z,L7BCB ; (+013H)
EX DE,HL
ADD HL,DE
EX DE,HL
DEC DE
DEC DE
PUSH DE
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
SBC HL,BC
POP HL
JR C,L7BB0 ; (-017H)
JR Z,L7BCD ; (+004H)
EX DE,HL
DEC HL
L7BCB: DEC HL
DEC HL
L7BCD: POP DE
PUSH DE
PUSH HL
OR A
SBC HL,DE
LD C,L
LD B,H
LD HL,(06AB3H)
OR A
SBC HL,BC
LD (06AB3H),HL
LD HL,(038DAH)
OR A
SBC HL,BC
LD (038DAH),HL
LD HL,(L6AB5)
OR A
SBC HL,BC
LD (L6AB5),HL
POP HL
POP DE
PUSH BC
PUSH DE
PUSH DE
PUSH HL
EX DE,HL
LD HL,(L6AB7)
OR A
SBC HL,DE
LD C,L
LD B,H
POP HL
POP DE
LDIR
EX DE,HL
LD (L6AB7),HL
POP HL
POP BC
JP 06985H
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
SUB E
LD B,C
DS 68, 000H ; Zero/work area (158 bytes)
DB 008H
DS 89, 000H
DB 0CFH ; Splash screen / banner text
DB 06BH
DS 2, 00DH
DB 020H
DS 38, 0D8H
DS 5, 020H
DB "BASIC INTERPRETER"
DS 2, 020H
DB "1Z-013B V1.0A"
DS 4, 020H
DB 00DH
DS 3, 020H
DB "COPYRIGHT (C) 1983 BY SHARP CORP."
DS 5, 020H
DS 38, 0C2H
DB 020H,00DH," 36439 BYTES FR"
DS 2, 045H
DS 2, 00DH
DB 000H
EXECSTART: XOR A ; Execution entry point
LD DE,MONIT
CALL TIMST
L7D80: LD HL,(DTEFG)
LD (L1254),HL
LD DE,MONIT
LD HL,06B79H
OR A
SBC HL,DE
LD C,L
LD B,H
LD HL,TAPECOPY
OUT (LSE0),A
LDIR
JP MONIT
NOP
NOP
NOP
NOP
NOP
BASICEND:
Reference in New Issue View Git Blame Copy Permalink