; EMU-Z80 TEXT FILE VER 02.00.00 --- NON MODIFICARE QUESTE RIGHE!!!
; .DEFINE_PORTS_IO  


; .END_DEF_PORT_IO
; ***** NON MODIFICARE LE RIGHE SOPRA!!!!!!!! *****
LD A,(2000H)
LD C,A
LD A,01H
LD B,A
SCHL: LD A,C
CP B
JP Z,ENDE
LD A,(2000H)
ADD A,A
LD E,A
LD A,B
ADD A,C
LD D,A
LD HL,00H
LD A,E
CALL DIVI
LD A,B
LD E,A
LD A,L
LD B,A
LD A,E
ADD A,C
LD E,A
LD A,02H
LD D,A
LD HL,00H
LD A,E
CALL DIVI
LD A,L
LD C,A
JP SCHL
ENDE: LD A,B
LD (2001H),A
HALT
DIVI: SUB D
JP C,END
INC HL
JP DIVI
END: RET