ORG 30000
LD HL,22527
PUSH HL
LD DE,23328
LD BC,32
LDDR
POP HL
LD B,3

a1
PUSH BC
LD B,8

b2
PUSH BC
PUSH HL
LD B,8

c3
PUSH BC
PUSH HL

PUSH HL
POP DE
DEC H
LD BC,32
LDDR
POP HL
DEC H
POP BC
DJNZ c3
INC H
LD DE,1760
PUSH HL
ADD HL,DE
POP DE
LD BC,32
LDDR
POP HL
LD DE,32
SBC HL,DE
POP BC

DJNZ b2

LD DE,1792
SBC HL,DE
PUSH HL
LD DE,32
ADD HL,DE
PUSH HL
POP DE
POP HL
PUSH HL
LD BC,32
LDDR
POP HL
POP BC
DJNZ a1
LD DE,32
ADD HL,DE
EX DE,HL
LD HL,23328
LD B,32

d4
LD A,(HL)
NOP
;LD A,0
LD (DE),A
DEC DE
DEC HL
DJNZ d4
RET
END 30000
