ROM10 ASM ;
ORG 0E000H
PV1 EQU 0F003H
JP UE062
;
DI
LD A,(0B781H)
CP 2
JR NC,U7062
LD A,2
OUT 0F4H,A
XOR A
OUT 0F4H,A
LD E,3
LD BC,0F1H
U7017 XOR A
OUT (C),A
DJNZ U7017
INC C
DEC E
JR NZ,U7017
LD HL,0F260H
LD BC,1F0H
LD DE,200H
U7029 OUTI
INC B
INC B
DEC E
JR NZ,U7029
INC C
LD E,22H
DEC D
JR NZ,U7029
LD A,1
OUT 0F4H,A
XOR A
OUT 0F4H,A
DEC D
U703E LD BC,0B3F3H
IN A,(C)
AND A
JR NZ,U7079
LD B,0
U7048 DJNZ U7048
DEC DE
LD A,E
OR D
JR NZ,U703E
U704F LD HL,0F382H
LD DE,0
LD BC,54H
CP 0FFH
JR NZ,U705D
XOR A
U705D LDIR
JP U0000
;
U7062 LD A,(0B784H)
AND A
JP NZ,UF037
LD BC,0B3F3H
IN A,(C)
CP 5
JP Z,UF015
CP 1
JR Z,U7082
U7077 JR U704F
;
U7079 CP 5
JP Z,UF015
CP 1
JR NZ,U704F
U7082 LD HL,0E1EBH
LD DE,370H
LD BC,10H
LDIR
LD HL,0E1C0H
LD DE,200H
LD BC,2BH
LDIR
LD BC,0E0A6H
LD HL,200H
U709E PUSH BC
LD BC,377H
PUSH BC
JP U0370
;
LD HL,0F3D6H
LD DE,200H
LD BC,40H
LDIR
LD BC,0E0B9H
LD HL,200H
JR U709E
;
LD HL,0F416H
LD DE,380H
LD BC,64H
LDIR
LD BC,0E0CCH
LD HL,380H
JR U709E
;
LD HL,0E1FBH
LD BC,0CFBH
LD DE,400H
LDIR
LD HL,5A8H
LD (1EEH),HL
LD HL,5B8H
LD (1E6H),HL
LD (IX+7),1
LD (IX+8),80H
XOR A
LD (1081H),A
EI
LD A,38H
LD (0B7D6H),A
LD BC,0B4F3H
LD HL,657H
OUT (C),L
INC B
OUT (C),H
LD HL,0
LD (0B7A0H),HL
LD HL,108CH
INC B
INC B
OUT (C),L
INC B
OUT (C),H
LD HL,0E11DH
PUSH HL
LD HL,377H
LD DE,0E011H
JP U0370
;
LD A,7FH
CP D
JR Z,U7123
XOR A
U7123 LD (1083H),A
LD HL,3CFFH
LD E,0
AND A
JR Z,U713C
LD M,3
DEC HL
LD M,7
DEC HL
LD M,3
DEC HL
LD M,0BH
DEC HL
LD E,2
U713C LD BC,880H
U713F IN A,(C)
CP 0F6H
JR Z,U7189
CP 0F4H
JR Z,U719C
CP 79H
JR Z,U71B2
CP 7AH
JR Z,U71BC
CP 78H
JR Z,U71AE
CP 7BH
JR Z,U71B8
U7159 INC B
JR NZ,U713F
LD BC,0B2F3H
OUT (C),E
LD A,(1083H)
AND A
JR Z,U7180
LD HL,0EEF6H
LD DE,0B55H
LD BC,28H
LDIR
LD DE,0BD3H
LD C,0CH
LDIR
LD DE,0C39H
LD C,2FH
LDIR
U7180 CALL U09D8
LD HL,400H
JP U0370
;
U7189 LD C,4
LD D,40H
LD A,3
U718F LD M,B
DEC HL
LD M,A
ADD D
DEC HL
INC E
DEC C
JR NZ,U718F
LD C,80H
JR U7159
;
U719C PUSH HL
LD H,0B8H
LD L,B
LD A,M
POP HL
AND 0C1H
CP 41H
JR Z,U7159
LD C,1
U71AA LD A,83H
JR U718F
;
U71AE LD C,8
JR U71B4
;
U71B2 LD C,10H
U71B4 LD D,4
JR U71AA
;
U71B8 LD C,40H
JR U71B4
;
U71BC LD C,20H
JR U71B4
;
LD A,2
LD DE,3D00H
LD HL,800H
U71C8 LD C,18H
PUSH AF
U71CB LD B,8
U71CD PUSH HL
PUSH DE
CALL PV1
DEFB 34H
POP DE
LD A,L
LD (DE),A
INC DE
LD A,H
LD (DE),A
INC DE
POP HL
INC H
DJNZ U71CD
INC H
INC H
DEC C
JR NZ,U71CB
POP AF
LD HL,820H
DEC A
JR NZ,U71C8
RET
;
IN A,88H
SET 0,A
OUT 88H,A
JP (HL)
;
LD A,(DE)
LD D,A
IN A,88H
RES 0,A
OUT 88H,A
RET
;
LD BC,0A7F3H
IN E,(C)
DEC B
IN A,(C)
CP E
LD D,A
JR NZ,U7217
LD A,(1080H)
AND A
JR NZ,U723A
CALL U0BBE
LD A,1
LD (1080H),A
JR U723A
;
U7217 LD A,(1080H)
BIT 0,A
JR Z,U7225
CALL U0BBE
XOR A
LD (1080H),A
U7225 LD A,20H
ADD D
INC D
PUSH BC
LD B,A
IN A,(C)
LD L,0
CALL U0569
POP BC
JR C,U723A
LD A,D
AND 1FH
OUT (C),A
U723A LD B,0A1H
IN E,(C)
DEC B
IN D,(C)
LD A,D
INC A
AND 1FH
LD L,A
CP E
JR Z,U7255
CALL U0717
JR Z,U7255
PUSH BC
LD B,D
OUT (C),A
POP BC
OUT (C),L
U7255 LD B,0A9H
IN E,(C)
DEC B
IN D,(C)
LD A,D
CP E
JR Z,U7273
LD A,40H
ADD D
INC D
PUSH BC
LD B,A
IN A,(C)
LD L,3
CALL U0569
POP BC
LD A,D
AND 1FH
OUT (C),A
U7273 LD B,0ADH
IN A,(C)
AND A
JR Z,U729E
XOR A
OUT (C),A
LD B,0A5H
IN E,(C)
DEC B
IN D,(C)
LD A,D
INC A
AND 1FH
LD L,A
CP E
JR Z,U729E
PUSH HL
LD L,2
CALL U0569
POP HL
PUSH BC
LD H,A
LD A,60H
ADD D
LD B,A
OUT (C),H
POP BC
OUT (C),L
U729E LD B,0ABH
IN E,(C)
DEC B
IN D,(C)
LD A,D
CP E
JR Z,U72BC
LD A,80H
ADD D
INC D
PUSH BC
LD B,A
IN A,(C)
LD L,1
CALL U0569
POP BC
LD A,D
AND 1FH
OUT (C),A
U72BC LD B,0B2H
IN L,(C)
DEC B
IN H,(C)
LD A,H
CP 2
JR C,U72D9
DEC B
IN D,(C)
DEC B
IN E,(C)
INC B
INC B
LD A,L
INC E
CP E
JR NC,U72DC
LD A,0
U72D7 OUT (C),A
U72D9 JP U0400
;
U72DC PUSH BC
LD C,E
DEC C
LD E,H
LD HL,3CFFH
LD B,0
AND A
SBC HL,BC
SBC HL,BC
LD B,M
DEC HL
LD A,M
PUSH DE
LD L,B
LD D,A
LD E,A
LD A,2
CALL PV1
DEFB 26H
IN A,88H
RES 2,A
OUT 88H,A
POP DE
PUSH HL
LD C,D
LD B,0
LD A,7
U7304 SLA C
RL B
DEC A
JR NZ,U7304
LD HL,8000H
ADD HL,BC
LD A,E
CP 6
LD C,0F2H
JR Z,U7336
LD E,80H
LD BC,1F2H
U731B OUTI
INC B
INC B
DEC E
JR NZ,U731B
U7322 POP HL
IN A,88H
SET 2,A
OUT 88H,A
LD D,0
LD E,D
LD A,2
CALL PV1
DEFB 26H
POP BC
XOR A
JR U72D7
;
U7336 LD B,0
LD E,80H
U733A INI
INC B
INC B
DEC E
JR NZ,U733A
JR U7322
;
LD L,C
EX AF
LD L,C
EX AF
LD (BC),A
LD (BC),A
ADD D
INC BC
ADD D
INC BC
LD (BC),A
LD (BC),A
SBC D
DEC B
SBC L
DEC B
ADD H
INC BC
LD L,B
DEC B
AND B
DEC B
AND E
DEC B
LD (BC),A
LD (BC),A
LD L,C
EX AF
ADD D
INC BC
SBC D
DEC B
RET
;
PUSH DE
PUSH AF
LD A,L
PUSH BC
LD B,0ACH
IN C,(C)
LD B,A
LD HL,548H
AND A
LD A,C
JR Z,U7380
U7374 RRCA
RRCA
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
INC HL
DJNZ U7374
U7380 AND 3
JR Z,U7389
U7384 INC HL
INC HL
DEC A
JR NZ,U7384
U7389 LD A,M
INC HL
LD H,M
LD L,A
POP BC
POP AF
CALL U0599
POP DE
RET
;
JP (HL)
;
LD E,2
LD HL,31EH
LD HL,61EH
LD HL,71EH
JP UF009
;
EI
PUSH AF
LD A,23H
OUT 8FH,A
XOR A
LD (IX+0DH),A
LD (IX+0BH),0FFH
JR U7417
;
EI
PUSH AF
IN A,8FH
PUSH AF
LD A,0A7H
OUT 8FH,A
LD A,8FH
OUT 8FH,A
POP AF
CP 14H
JR C,U7417
CP 65H
JR NC,U741E
CP 44H
JR NC,U7421
PUSH HL
PUSH DE
LD DE,657H
SRL (IX+0CH)
AND A
LD A,(IX+0CH)
LD H,A
RRA
LD L,A
ADD A
ADD L
BIT 6,(IX+8)
JR Z,U73E9
ADD 2
JR U73F2
;
U73E9 LD L,A
LD A,(IX+8)
RLCA
XOR H
AND 1
ADD L
U73F2 LD L,A
LD H,0
ADD HL,DE
POP DE
LD A,M
POP HL
LD (IX+0DH),A
LD A,(IX+0CH)
CP (IX+0BH)
JR Z,U7428
LD (IX+0BH),A
RES 4,(IX+8)
U740B SET 0,(IX+8)
LD (IX+0AH),0
RES 6,(IX+8)
U7417 IN A,89H
OUT 89H,A
POP AF
RETI
;
U741E OR A
JR U7422
;
U7421 SCF
U7422 RR (IX+0CH)
JR U7417
;
U7428 BIT 2,(IX+8)
JR NZ,U7417
LD A,3
CP (IX+0DH)
JR Z,U7417
INC (IX+0AH)
BIT 4,(IX+8)
JR NZ,U744A
BIT 3,(IX+0AH)
JR Z,U7417
SET 4,(IX+8)
JR U740B
;
U744A BIT 0,(IX+0AH)
JR NZ,U740B
JR U7417
;
LD D,A
LD M,A
RLA
LD B,C
LD H,C
U7457 LD BC,2232H
LD A,H
EX AF
LD BC,8408H
ADD L
ADD M
DEC L
DEC A
JR NZ,U7457
RET M
POP AF
LD E,C
LD A,C
ADD HL,DE
LD B,L
LD H,L
DEC B
LD D,E
LD M,E
INC DE
INC SP
INC HL
LD A,L
LD E,M
LD A,M
LD E,10H
ADD A
ADC B
LD A,(202AH)
DI
LD SP,HL
RST 30H
;
LD E,B
LD A,B
JR U74D7
;
LD M,H
INC D
LD B,M
LD H,M
LD B,35H
DEC H
LD E,H
LD D,B
LD M,B
DJNZ U750E
ADD HL,DE
ADC C
JR NC,U74D3
LD A,M
PUSH AF
EI
ADD E
LD D,M
HALT
LD D,55H
LD M,L
DEC D
LD C,B
LD L,B
EX AF
SCF
DAA
JR NZ,U74F3
LD L,A
RRCA
LD D,8AH
ADC E
ADD HL,SP
ADD HL,HL
ADC H
INC BC
INC BC
ADC M
LD C,M
LD L,M
LD C,49H
LD L,C
ADD HL,BC
LD C,D
LD L,D
LD A,(BC)
JR C,U74E2
DEFB 20H ;JR NZ,U74DC
DEFB 20H
ADD HL,BC
JR NZ,U750A
LD L,E
DEC BC
INC L
INC A
JR NZ,U74D8
LD DE,4D8FH
LD L,L
DEC C
LD E,D
LD A,D
LD A,(DE)
LD B,A
LD H,A
RLCA
LD M,26H
LD E,L
U74D3 JR NZ,U74F5
DEFB 20H ;JR NZ,U7523
DEFB 4CH
U74D7 LD L,H
U74D8 INC C
LD L,3EH
JR NZ,U74D3
CALL M,U4220
LD H,D
LD (BC),A
U74E2 LD D,D
LD M,D
LD (DE),A
LD B,H
LD H,H
INC B
INC M
U74E9 INC H
LD E,E
LD E,A
LD A,H
RRA
DEC HL
DEC SP
JR NZ,U7521
CCF
U74F3 JR NZ,U74E9
U74F5 JP M,U4382
LD H,E
INC BC
LD D,C
LD M,C
LD DE,9090H
SUB B
LD SP,7B21H
JR U7508
;
JR U750C
;
LD (DE),A
U7508 DEC B
INC B
U750A LD B,4
U750C SUB C
DEC DE
U750E SUB C
DEC C
DEC C
DEC C
PUSH HL
PUSH DE
PUSH BC
BIT 3,(IX+7)
JR NZ,U7582
U751B BIT 0,(IX+8)
JR Z,U7576
U7521 LD A,(IX+0DH)
RES 0,(IX+8)
CP 0F1H
JR C,U7545
SET 3,(IX+7)
SUB 0F0H
LD B,A
LD HL,0B900H
U7536 LD A,M
INC HL
AND A
JR NZ,U7536
DJNZ U7536
LD A,M
AND A
JR Z,U7589
INC HL
U7542 LD (0B7D1H),HL
U7545 BIT 4,(IX+7)
JR NZ,U7579
CP 81H
JR NC,U7599
BIT 5,(IX+8)
JR Z,U7575
LD HL,23H
LD (0B782H),HL
LD L,0AH
LD (0B786H),HL
LD L,0
LD (0B784H),HL
PUSH AF
CALL PV1
DEFB 35H
LD A,0AH
CALL PV1
DEFB 14H
LD A,3
OUT 8CH,A
POP AF
U7575 AND A
U7576 JP U08F8
;
U7579 LD HL,(866H)
RES 4,(IX+7)
JR U75AF
;
U7582 LD A,(IX+0DH)
CP 3
JR NZ,U758F
U7589 RES 3,(IX+7)
JR U751B
;
U758F LD HL,(0B7D1H)
LD A,M
INC HL
AND A
JR NZ,U7542
JR U7589
;
U7599 LD HL,7B9H
SUB 82H
RLCA
LD E,A
LD D,0
ADD HL,DE
LD E,M
INC HL
LD D,M
EX DE,HL
RES 4,(IX+7)
RES 0,(IX+8)
U75AF LD DE,720H
PUSH DE
JP (HL)
;
XOR D
EX AF
AND M
EX AF
CALL PO,UCB07
LD A,(BC)
JP M,U6107
EX AF
DEC C
EX AF
EXX
RLCA
OR 7
JP PE,UA90A
LD A,(BC)
LD C,L
EX AF
LD E,L
EX AF
LD A,(DE)
EX AF
XOR 7
JP P,UD507
CALL U09D8
POP DE
CALL U0BBE
JP U0A29
;
LD B,4
U75E1 LD A,(IX+8)
XOR B
LD (IX+8),A
RET
;
LD B,80H
JR U75E1
;
LD B,40H
JR U75E1
;
LD B,20H
JR U75E1
;
LD HL,805H
U75F8 LD (866H),HL
U75FB SET 4,(IX+7)
RET
;
CALL U083E
JR C,U75FB
JP U0A23
;
LD HL,812H
JR U75F8
;
CALL U083E
JR C,U75FB
JP U09EA
;
LD HL,81FH
JR U75F8
;
CALL U083E
JR C,U75FB
RLCA
RLCA
RLCA
RLCA
LD (868H),A
LD HL,830H
JR U75F8
;
CALL U083E
JR C,U75FB
LD E,A
LD A,(868H)
ADD E
POP DE
JP U077A
;
SUB 30H
RET C
CP 0AH
CCF
RET NC
AND 5FH
SUB 7
CP 10H
CCF
RET
;
LD HL,852H
JR U75F8
;
CP 8DH
RET NZ
LD A,4
U7652 OUT 0F4H,A
XOR A
OUT 0F4H,A
RET
;
LD A,8
JR U7652
;
LD A,0FH
JP U08A1
;
NOP
NOP
NOP
PUSH HL
PUSH DE
PUSH BC
LD BC,8F7H
PUSH BC
LD B,A
LD A,(1079H)
AND A
JP NZ,U0902
LD A,B
CP 82H
JR Z,U76A5
CP 83H
JR Z,U76A1
CP 1BH
JR Z,U76F7
LD A,(1081H)
AND A
LD A,B
JP Z,U0C18
CP 14H
JR Z,U76CC
CP 16H
JR Z,U76AA
CP 15H
JR NZ,U7696
LD A,9
U7696 CP 7FH
JR NZ,U769C
LD A,1FH
U769C CALL PV1
DEFB 0
RET
;
U76A1 LD A,2
JR U76A6
;
U76A5 XOR A
U76A6 LD (1080H),A
RET
;
U76AA LD A,(0B7A0H)
PUSH AF
LD B,A
LD A,(0B79EH)
INC A
SUB B
LD B,A
LD A,11H
CALL PV1
DEFB 0
U76BB LD A,20H
CALL U08A1
DJNZ U76BB
LD A,12H
CALL PV1
DEFB 0
POP AF
JP U093E
;
U76CC CALL U08AF
LD A,(0B7A1H)
INC A
PUSH AF
LD B,A
LD A,(0B79FH)
INC A
SUB B
RET Z
LD B,A
POP AF
PUSH AF
U76DE LD (0B7A1H),A
LD A,2
CALL U08A1
LD A,(0B7A1H)
INC A
DJNZ U76DE
POP AF
DEC A
LD B,A
JP U0CC2
;
XOR A
POP BC
POP DE
POP HL
RET
;
U76F7 LD A,80H
LD (1079H),A
RET
;
BIT 7,A
JR NZ,U7721
BIT 6,A
JR NZ,U7732
LD HL,(107CH)
LD M,B
INC HL
LD (107CH),HL
LD A,(1079H)
DEC A
LD (1079H),A
RET NZ
LD HL,(107AH)
U7718 PUSH HL
LD HL,1084H
LD (107CH),HL
LD A,M
RET
;
U7721 LD A,B
CP 7FH
JR C,U773D
LD A,40H
LD (1079H),A
LD A,B
AND 1FH
LD (0B7A1H),A
RET
;
U7732 XOR A
LD (1079H),A
LD A,B
AND 7FH
LD (0B7A0H),A
RET
;
U773D SUB 41H
JR C,U775A
LD C,A
LD B,0
LD HL,108CH
ADD HL,BC
ADD HL,BC
ADD HL,BC
LD A,M
INC HL
LD B,M
INC HL
LD H,M
LD L,B
AND A
LD (1079H),A
JR Z,U7718
LD (107AH),HL
RET
;
U775A XOR A
LD (1079H),A
RET
;
LD E,30H
LD BC,2F1EH
LD B,3
PUSH DE
LD DE,0B7D3H
LD BC,3
LDIR
POP DE
U7770 JP UF009
;
AND 1FH
RLCA
RLCA
RLCA
LD (0B7D6H),A
RET
;
LD DE,0B782H
LD BC,3
LDIR
XOR A
LD (DE),A
INC DE
LD C,3
LDIR
LD (DE),A
LD E,3EH
JR U7770
;
LD DE,0B782H
LD BC,3
LDIR
XOR A
LD (DE),A
INC DE
LDI
LD (DE),A
LD E,3FH
JR U7770
;
CP 10H
RET NC
LD E,3DH
JR U7770
LD DE,0B782H
LD BC,6
LDIR
LD E,35H
JR U7770
;
AND 1FH
RLCA
RLCA
RLCA
INC HL
LD B,A
LD A,M
AND 7
OR B
LD (0B7A3H),A
RET
;
INC HL
LD C,M
INC HL
LD B,M
INC HL
LD E,M
INC HL
LD D,M
LD L,C
LD H,B
CALL PV1
DEFB 3CH
RET
;
LD A,(0B7A3H)
LD D,0
LD HL,8000H
LD DE,8001H
LD BC,27FFH
LD M,L
LDIR
RET
;
AND 1FH
RLCA
RLCA
RLCA
LD D,7
U77EC LD E,A
LD A,(0B7A3H)
AND D
OR E
LD (0B7A3H),A
LD A,(1083H)
LD HL,0A800H
LD BC,0A00H
AND A
JR Z,U780E
LD A,(IX+1)
SET 1,A
OUT 84H,A
LD HL,8000H
LD BC,2800H
U780E LD A,M
AND D
OR E
LD M,A
INC HL
DEC BC
LD A,C
OR B
JR NZ,U780E
LD A,(IX+1)
OUT 84H,A
RET
;
AND 7
LD D,0F8H
JR U77EC
;
LD A,(1080H)
AND A
XOR A
LD (1080H),A
CALL NZ,U0BBE
LD A,(1081H)
XOR 1
LD (1081H),A
CALL U0C9D
LD L,1
LD BC,0B6F3H
IN A,(C)
XOR L
OUT (C),A
RET
;
INC HL
LD H,M
LD L,A
LD BC,1F2H
OUTI
U784D XOR A
LD BC,0AEF3H
OUT (C),A
RET
;
INC HL
LD H,M
LD L,A
LD E,0
LD BC,1F2H
U785C OUTI
INC B
INC B
DEC E
JR NZ,U785C
JR U784D
;
LD E,M
INC HL
LD D,M
INC HL
LDI
RET
;
LD HL,(1084H)
LD A,(1088H)
LD M,A
INC HL
LD (1084H),HL
LD HL,(1086H)
DEC HL
LD (1086H),HL
LD A,L
OR H
RET Z
LD HL,1088H
LD (107CH),HL
LD A,1
JP U0960
;
INC HL
LD H,M
LD L,A
JP (HL)
;
U7890 LD E,24H
U7892 JP UF009
;
LD E,2
JR U7892
;
LD E,3
JR U7892
;
RET
;
LD E,A
JR U7892
;
JP UE000
;
LD HL,0EF5H
LD DE,101DH
LD B,18H
CALL U0AC1
LD HL,0FF5H
LD B,20H
CALL U0AC1
LD L,2
U78B9 JP U0A41
;
U78BC LD A,(DE)
LDI
DEC HL
INC BC
LD M,A
INC HL
DJNZ U78BC
RET
;
LD A,(1082H)
XOR 1
LD (1082H),A
LD L,8
CALL U0A41
LD A,11H
JR Z,U78DF
LD HL,0C9DH
U78DA LD (107EH),HL
JR U7890
;
U78DF LD HL,0C95H
INC A
JR U78DA
;
DI
LD HL,657H
LD B,0C0H
U78EB LD A,M
CP 41H
JR C,U7902
CP 5BH
JR NC,U78F8
SET 5,M
JR U7902
;
U78F8 CP 61H
JR C,U7902
CP 7BH
JR NC,U7902
RES 5,M
U7902 INC HL
DJNZ U78EB
EI
LD L,4
JR U78B9
;
AND 7
LD B,A
LD A,0F8H
U790F AND (IX+1)
OR B
LD (IX+1),A
OUT 84H,A
RET
;
LD B,8
U791B LD A,0F7H
JR U790F
;
LD B,0
JR U791B
;
INC HL
LD D,M
LD E,D
LD L,A
LD A,2
CALL PV1
DEFB 26H
RET
;
CALL PV1
DEFB 39H
RET
;
INC HL
LD H,M
LD L,A
LD (0B7D3H),A
CALL PV1
DEFB 2FH
DEFB 28H ;JR Z,U7949
DEFB 0AH
LD (0B7D6H),A
CALL PV1
DEFB 30H
LD A,1
LD C,0AFH
LD BC,0AEF3H
OUT (C),A
RET
;
LD (IX+7),0B8H
LD IY,3E80H
PUSH IY
LD IY,3D00H
U795E LD E,(IY)
LD D,(IY+1)
LD L,(IY+10H)
LD H,(IY+11H)
LD BC,20H
LDIR
INC IY
INC IY
EX (SP),IY
LD E,(IY)
LD D,(IY+1)
LD L,(IY+10H)
LD H,(IY+11H)
LD C,8
LDIR
INC IY
INC IY
EX (SP),IY
DEC (IX+7)
JR NZ,U795E
POP IY
LD HL,3E70H
LD C,8
U7997 LD E,M
INC HL
LD D,M
INC HL
LD B,20H
XOR A
U799E LD (DE),A
INC DE
DJNZ U799E
DEC C
JR NZ,U7997
LD HL,3FF0H
LD C,8
U79AA LD E,M
INC HL
LD D,M
INC HL
LD B,8
XOR A
U79B1 LD (DE),A
INC DE
DJNZ U79B1
DEC C
JR NZ,U79AA
RET
;
PUSH HL
PUSH DE
PUSH BC
LD HL,(0B7A0H)
PUSH AF
LD A,(1081H)
AND A
JR Z,U79CE
CALL PV1
DEFB 25H
U79CA POP AF
JP U08F7
;
U79CE SRL L
LD C,0F0H
JR NC,U79D6
LD C,0FH
U79D6 LD A,L
CP 20H
LD IY,3D00H
JR C,U79E7
LD IY,3E80H
LD A,L
SUB 20H
LD L,A
U79E7 LD E,L
LD D,0
LD L,H
LD H,D
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
EX DE,HL
ADD IY,DE
EX DE,HL
LD B,8
LD H,0
U79F8 LD L,(IY)
INC IY
LD H,(IY)
INC IY
ADD HL,DE
LD A,M
XOR C
LD M,A
DJNZ U79F8
JR U79CA
;
U7A0A LD E,M
INC HL
LD D,M
EX DE,HL
LD BC,(0B7A0H)
JP (HL)
;
LD HL,1055H
LD B,0CH
U7A18 CP M
INC HL
JR Z,U7A0A
INC HL
INC HL
DJNZ U7A18
AND 7FH
SUB 20H
RET C
LD H,0
LD L,A
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD DE,0D1DH
ADD HL,DE
EX DE,HL
LD BC,(0B7A0H)
LD HL,3D00H
LD A,C
CP 40H
JR C,U7A41
SUB 40H
LD HL,3E80H
U7A41 PUSH HL
LD L,B
LD H,0
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
POP BC
ADD HL,BC
RRA
LD C,A
LD B,8
U7A4F PUSH HL
LD A,(DE)
PUSH AF
LD A,M
INC HL
LD H,M
OR C
LD L,A
POP AF
PUSH AF
LD A,M
JR C,U7A65
AND 0FH
LD M,A
POP AF
PUSH AF
AND 0F0H
JR U7A6C
;
U7A65 AND 0F0H
LD M,A
POP AF
PUSH AF
AND 0FH
U7A6C OR M
LD M,A
INC DE
POP AF
POP HL
INC HL
INC HL
DJNZ U7A4F
LD BC,(0B7A0H)
INC C
LD A,C
CP 50H
JR NZ,U7A87
LD C,0
INC B
LD A,18H
CP B
JR Z,U7A8C
U7A87 LD (0B7A0H),BC
RET
;
U7A8C LD HL,(107EH)
JP (HL)
;
CALL U0B55
LD BC,1700H
JR U7A87
;
CALL U09D8
LD BC,0
JR U7A87
;
CALL U0CAD
LD A,20H
CALL U0C25
LD BC,(0B7A0H)
DEC C
LD A,0FFH
CP C
JR NZ,U7A87
LD C,4FH
LD A,0FFH
DEC B
CP B
JR NZ,U7A87
INC B
U7ABB JR U7A87
;
LD C,0
JR U7A87
;
LD BC,(0B7A0H)
PUSH BC
LD HL,(107EH)
PUSH HL
LD HL,0C90H
LD (107EH),HL
LD A,50H
SUB C
LD H,0
LD L,A
LD DE,50H
LD A,17H
SUB B
JR Z,U7AE2
U7ADE ADD HL,DE
DEC A
JR NZ,U7ADE
U7AE2 LD C,L
LD B,H
U7AE4 LD A,20H
PUSH BC
CALL U0C25
POP BC
DEC BC
LD A,C
OR B
JR NZ,U7AE4
JR U7B0A
;
U7AF2 PUSH BC
LD HL,(107EH)
PUSH HL
LD HL,0C90H
LD (107EH),HL
LD A,50H
SUB C
LD B,A
U7B01 LD A,20H
PUSH BC
CALL U0C25
POP BC
DJNZ U7B01
U7B0A POP HL
LD (107EH),HL
POP BC
JR U7ABB
;
XOR A
LD (0B7A0H),A
LD C,A
JR U7AF2
;
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD (2222H),HL
LD (22H),HL
LD (3300H),HL
INC SP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD D,L
LD M,A
LD D,L
LD M,A
LD D,L
NOP
NOP
LD (6677H),HL
LD (7733H),HL
LD (0),HL
LD D,L
LD DE,2222H
LD B,H
LD D,L
NOP
NOP
LD (2255H),HL
LD D,L
LD B,H
INC SP
NOP
LD (22H),HL
NOP
NOP
NOP
NOP
NOP
INC SP
LD B,H
LD B,H
LD B,H
LD B,H
LD B,H
INC SP
NOP
LD H,M
LD DE,1111H
LD DE,6611H
NOP
NOP
NOP
LD D,L
LD (55H),HL
NOP
NOP
NOP
NOP
LD (2277H),HL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD (4422H),HL
NOP
NOP
NOP
LD M,A
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD (1100H),HL
LD DE,2222H
LD (4444H),HL
NOP
LD (5555H),HL
LD D,L
LD D,L
LD D,L
LD (1100H),HL
INC SP
LD D,L
LD DE,1111H
LD DE,2200H
LD D,L
LD D,L
LD DE,4422H
LD M,A
NOP
LD (1155H),HL
LD (5511H),HL
LD (5500H),HL
LD D,L
LD D,L
LD M,A
LD DE,1111H
NOP
LD M,A
LD B,H
LD B,H
LD M,A
LD DE,2255H
NOP
LD (4444H),HL
LD H,M
LD D,L
LD D,L
LD (7700H),HL
LD DE,1111H
LD (2222H),HL
NOP
LD (5555H),HL
LD (5555H),HL
LD (2200H),HL
LD D,L
LD D,L
INC SP
LD DE,2211H
NOP
NOP
NOP
LD (0),HL
LD (0),HL
NOP
NOP
LD (0),HL
LD (4422H),HL
NOP
LD DE,4422H
LD (11H),HL
NOP
NOP
NOP
LD M,A
NOP
LD M,A
NOP
NOP
NOP
NOP
LD B,H
LD (2211H),HL
LD B,H
NOP
NOP
LD (1155H),HL
LD (22H),HL
LD (6600H),HL
LD D,L
LD DE,5522H
LD D,L
INC SP
NOP
LD (5555H),HL
LD M,A
LD D,L
LD D,L
LD D,L
NOP
LD H,M
LD D,L
LD D,L
LD H,M
LD D,L
LD D,L
LD H,M
NOP
LD (4455H),HL
LD B,H
LD B,H
LD D,L
LD (6600H),HL
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD H,M
NOP
LD M,A
LD B,H
LD B,H
LD H,M
LD B,H
LD B,H
LD M,A
NOP
LD M,A
LD B,H
LD B,H
LD H,M
LD B,H
LD B,H
LD B,H
NOP
LD (4455H),HL
LD B,H
LD D,L
LD D,L
INC SP
NOP
LD D,L
LD D,L
LD D,L
LD M,A
LD D,L
LD D,L
LD D,L
NOP
LD M,A
LD (2222H),HL
LD (7722H),HL
NOP
LD M,A
LD DE,1111H
LD DE,2255H
NOP
LD D,L
LD D,L
LD H,M
LD B,H
LD H,M
LD D,L
LD D,L
NOP
LD B,H
LD B,H
LD B,H
LD B,H
LD B,H
LD B,H
LD M,A
NOP
LD D,L
LD M,A
LD M,A
LD D,L
LD D,L
LD D,L
LD D,L
NOP
LD H,M
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
NOP
LD M,A
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD M,A
NOP
LD H,M
LD D,L
LD D,L
LD H,M
LD B,H
LD B,H
LD B,H
NOP
LD M,A
LD D,L
LD D,L
LD D,L
LD D,L
LD M,A
LD M,A
LD DE,5566H
LD D,L
LD H,M
LD D,L
LD D,L
LD D,L
NOP
LD (4455H),HL
LD (5511H),HL
LD (7700H),HL
LD (2222H),HL
LD (2222H),HL
NOP
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD M,A
NOP
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD D,L
LD (5500H),HL
LD D,L
LD D,L
LD D,L
LD M,A
LD M,A
LD D,L
NOP
LD D,L
LD D,L
LD D,L
LD (5555H),HL
LD D,L
NOP
LD D,L
LD D,L
LD D,L
LD M,A
LD (2222H),HL
NOP
LD M,A
LD DE,2211H
LD B,H
LD B,H
LD M,A
NOP
LD M,A
LD B,H
LD B,H
LD B,H
LD B,H
LD B,H
LD M,A
NOP
LD B,H
LD B,H
LD (2222H),HL
LD DE,11H
LD M,A
LD DE,1111H
LD DE,7711H
NOP
NOP
LD (55H),HL
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LD M,A
LD H,M
LD DE,5522H
LD (3344H),HL
NOP
NOP
NOP
LD (5555H),HL
LD D,L
INC SP
NOP
LD B,H
LD B,H
LD H,M
LD D,L
LD D,L
LD D,L
LD H,M
NOP
NOP
NOP
INC SP
LD B,H
LD B,H
LD B,H
INC SP
NOP
LD DE,3311H
LD D,L
LD D,L
LD D,L
INC SP
NOP
NOP
NOP
LD (7755H),HL
LD B,H
LD M,A
NOP
LD (4455H),HL
LD H,M
LD B,H
LD B,H
LD B,H
LD B,H
NOP
NOP
INC SP
LD D,L
LD D,L
INC SP
LD DE,4466H
LD B,H
LD H,M
LD D,L
LD D,L
LD D,L
LD D,L
NOP
NOP
LD (2200H),HL
LD (2222H),HL
NOP
NOP
LD (2200H),HL
LD (2222H),HL
LD H,M
LD B,H
LD B,H
LD D,L
LD D,L
LD H,M
LD D,L
LD D,L
NOP
LD B,H
LD B,H
LD B,H
LD B,H
LD B,H
LD D,L
LD (0),HL
NOP
LD D,L
LD M,A
LD D,L
LD D,L
LD D,L
NOP
NOP
NOP
LD (5555H),HL
LD D,L
LD D,L
NOP
NOP
NOP
LD (5555H),HL
LD D,L
LD (0),HL
NOP
LD (5555H),HL
LD H,M
LD B,H
LD B,H
NOP
NOP
LD (5555H),HL
INC SP
LD DE,11H
NOP
LD H,M
LD D,L
LD B,H
LD B,H
LD B,H
NOP
NOP
NOP
LD HL,2244H
LD DE,66H
LD (7722H),HL
LD (2222H),HL
LD DE,0
NOP
LD D,L
LD D,L
LD D,L
LD D,L
LD M,A
NOP
NOP
NOP
LD D,L
LD D,L
LD D,L
LD D,L
LD (0),HL
NOP
LD D,L
LD D,L
LD M,A
LD M,A
LD D,L
NOP
NOP
NOP
LD D,L
LD D,L
LD (5555H),HL
NOP
NOP
NOP
LD D,L
LD D,L
LD D,L
INC SP
LD DE,77H
NOP
LD M,A
LD DE,4422H
LD M,A
NOP
INC SP
LD (4422H),HL
LD (3322H),HL
NOP
LD (2222H),HL
LD (2222H),HL
LD (6600H),HL
LD (1122H),HL
LD (6622H),HL
NOP
LD M,A
NOP
NOP
NOP
NOP
NOP
NOP
U7E0F NOP
LD M,A
LD M,A
LD M,A
LD M,A
LD M,A
LD M,A
LD M,A
LD M,A
LD D,L
LD (5555H),HL
LD M,A
LD D,L
LD D,L
NOP
LD D,L
NOP
LD M,A
LD D,L
LD D,L
LD D,L
LD M,A
NOP
LD D,L
NOP
LD D,L
LD D,L
LD D,L
LD D,L
LD M,A
NOP
NOP
LD D,L
NOP
LD (5555H),HL
INC SP
NOP
NOP
LD D,L
NOP
LD (5555H),HL
LD (0),HL
LD D,L
NOP
LD D,L
LD D,L
LD D,L
LD M,A
NOP
LD (5555H),HL
LD H,M
LD D,L
LD D,L
LD H,M
LD B,H
LD BC,0CA0H
RLCA
AND C
EX AF
EX AF
XOR L
INC C
LD A,(BC)
ADD M
INC C
INC C
SBC L
INC C
DEC C
JP NZ,U140C
ADD 0CH
DEC D
LD A,D
INC C
LD D,0F7H
INC C
DEFB 18H ;JR U7E83
DEFB 16H
DEC C
LD A,(DE)
CP C
INC C
LD A,A
AND L
INC C
NOP
LD E,M
ADD HL,BC
ADD H
DJNZ U7E0F
INC C
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
INC BC
LD H,H
ADD HL,BC
INC BC
LD H,A
ADD HL,BC
LD BC,978H
LD B,81H
ADD HL,BC
INC B
SUB L
ADD HL,BC
LD BC,9A7H
LD B,0AEH
ADD HL,BC
LD (BC),A
CP D
ADD HL,BC
NOP
LD E,M
ADD HL,BC
NOP
LD E,M
ADD HL,BC
NOP
LD E,M
ADD HL,BC
DEC B
RET
;
ADD HL,BC
NOP
ADD IX,BC
LD BC,9EAH
LD BC,0A23H
NOP
ADD HL,HL
LD A,(BC)
LD (BC),A
LD C,D
LD A,(BC)
LD (BC),A
LD E,C
LD A,(BC)
INC BC
LD L,D
LD A,(BC)
DEC B
LD M,C
LD A,(BC)
LD (BC),A
SUB C
LD A,(BC)
LD BC,0A95H
LD BC,0A9AH
LD BC,0A9EH
NOP
LD E,M
ADD HL,BC
NOP
LD E,M
ADD HL,BC
LD BC,0AA3H
NOP
AND M
LD A,(BC)
NOP
XOR C
LD A,(BC)
NOP
RRC D
NOP
JP PE,U010A
RRCA
DEC BC
NOP
LD E,0BH
NOP
INC H
DEC BC
LD (BC),A
DEFB 28H ;JR Z,U7EFB
DEFB 0BH
LD (BC),A
JR C,U7EFE
LD BC,0B33H
LD DE,8008H
LD HL,8012H
LD A,28H
U7EFE LD BC,0EEH
LDIR
LD BC,12H
ADD HL,BC
EX DE,HL
ADD HL,BC
EX DE,HL
DEC A
JR NZ,U7EFE
LD H,80H
LD C,28H
U7F11 LD B,8
LD L,0F8H
U7F15 LD M,0
INC HL
DJNZ U7F15
DEC C
JR NZ,U7F11
RET
;
CALL U0C4F
U7F21 LD A,M
XOR C
LD M,A
INC HL
DJNZ U7F21
JP U0BCF
;
PUSH BC
POP HL
CALL U0C4F
U7F2F PUSH BC
LD A,(DE)
AND C
LD B,A
LD A,C
CPL
AND M
OR B
LD M,A
POP BC
INC HL
INC DE
DJNZ U7F2F
JP U0C7A
;
SRL L
LD C,0F0H
JR NC,U7F48
LD C,0FH
U7F48 LD A,80H
ADD L
LD B,H
LD H,A
LD A,B
ADD A
ADD A
ADD A
ADD B
ADD B
ADD 8
LD L,A
LD B,8
RET
;
;
;
U010A EQU 0010AH
U0BCF EQU 00BCFH
U0C4F EQU 00C4FH
U0C7A EQU 00C7AH
U7EFB EQU 07EFBH
U0000 EQU 00000H
U0370 EQU 00370H
U0400 EQU 00400H
U0569 EQU 00569H
U0599 EQU 00599H
U0717 EQU 00717H
U077A EQU 0077AH
U083E EQU 0083EH
U08A1 EQU 008A1H
U08AF EQU 008AFH
U08F7 EQU 008F7H
U08F8 EQU 008F8H
U0902 EQU 00902H
U093E EQU 0093EH
U0960 EQU 00960H
U09D8 EQU 009D8H
U09EA EQU 009EAH
U0A23 EQU 00A23H
U0A29 EQU 00A29H
U0A41 EQU 00A41H
U0AC1 EQU 00AC1H
U0B55 EQU 00B55H
U0BBE EQU 00BBEH
U0C18 EQU 00C18H
U0C25 EQU 00C25H
U0C9D EQU 00C9DH
U0CAD EQU 00CADH
U0CC2 EQU 00CC2H
U140C EQU 0140CH
U4220 EQU 04220H
U4382 EQU 04382H
U6107 EQU 06107H
U74DC EQU 074DCH
U7523 EQU 07523H
U7949 EQU 07949H
U8008 EQU 08008H
UA90A EQU 0A90AH
UAD0C EQU 0AD0CH
UB179 EQU 0B179H
UBB76 EQU 0BB76H
UBC78 EQU 0BC78H
UCB07 EQU 0CB07H
UCB71 EQU 0CB71H
UD507 EQU 0D507H
UD809 EQU 0D809H
UD972 EQU 0D972H
UDC74 EQU 0DC74H
UE000 EQU 0E000H
UE062 EQU 0E062H
UE27A EQU 0E27AH
UE973 EQU 0E973H
UF009 EQU 0F009H
UF015 EQU 0F015H
UF037 EQU 0F037H
Detected encoding: ASCII (7 bit) | 2
|