Код:
#A075 PUSH HL
RES 7,H
LD A,L
SRL A
SRL A
SRL A
SRL A
SRL A
OR H
LD (#A12B),HL
POP HL
OR #40
LD D,A
LD A,L
AND #1F
SLA A
SLA A
SLA A
PUSH HL
PUSH BC
LD E,A
PUSH DE
LA098: DI
OUT (#99),A
LD A,D
OUT (#99),A
EI
PUSH BC
PUSH DE
PUSH HL
LA0A2: PUSH HL
LD E,#08
LA0A5: LD A,(HL)
OUT (#98),A
INC H
DEC E
JR NZ,LA0A5
POP HL
INC L
DEC C
JR NZ,LA0A2
POP HL
LD A,L
CP #E0
JR NC,LA0BD
LD DE,#0020
ADD HL,DE
JR LA0C5
LA0BD: LD A,H
ADD A,#08
LD H,A
LD A,L
AND #1F
LD L,A
LA0C5: POP DE
POP BC
INC D
LD A,E
DEC B
JR NZ,LA098
POP DE
POP BC
POP HL
LD A,D
OR #20
LD D,A
PUSH BC
PUSH DE
LD B,#00
LD A,(#A12B)
LD C,A
LD A,(#A12C)
LD L,A
LD H,#00
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,HL
ADD HL,BC
LD A,H
OR #98
LD H,A
POP DE
POP BC
LA0ED: PUSH BC
PUSH HL
LD A,E
DI
OUT (#99),A
LD A,D
OUT (#99),A
EI
LA0F7: LD A,(HL)
PUSH AF
AND #07
EXX
LD L,A
LD H,#00
LD DE,#A12D
ADD HL,DE
LD C,(HL)
POP AF
RRCA
RRCA
RRCA
AND #07
LD L,A
LD H,#00
LD DE,#A135
ADD HL,DE
LD A,(HL)
OR C
LD B,#08
LA115: OUT (#98),A
NOP
NOP
DJNZ LA115
EXX
INC HL
DEC C
JR NZ,LA0F7
POP HL
LD BC,#0020
ADD HL,BC
POP BC
INC D
DEC B
JR NZ,LA0ED
RET