Код:
ORG #5B00,#6B00
JR MEM
JR CLOCK
DB 0,0
MEM CP #02
JR C,$+3
INC A
CP #05
JR C,$+3
INC A
PUSH HL
LD L,A
LD H,#08
LD A,(#08)
CP #C3
LD A,L
JR NZ,ZX128_1
CP H
LD HL,#F507; RLCA: PUSH AF
LD (ZX128_2),HL
LD H,#80
JR C,$+3
INC A
CP #0F
JR C,$+3
INC A
ZX128_1 CP H
POP HL
CCF
RET C
PUSH BC
LD BC,#7FFD
PUSH AF
AND #07
OR #10
OUT (C),A
POP AF
ZX128_2 POP BC; RLCA: PUSH AF
RET
AND #10
LD B,#1F
OUT (C),A
POP AF
RLCA
RLCA
RLCA
AND #07
LD B,#DF
OUT (C),A
POP BC
RET
DS #5B5D-$,#00
CLOCK LD BC,#DFBA
LD A,#04
CALL OUTIN
LD E,H
LD A,#02
CALL OUTIN
LD D,H
SUB A
CALL OUTIN
LD C,H
LD B,D
RET
OUTIN CALL OUTDOS
LD A,#D8
PUSH BC
LD C,#1F
CALL OUTDOS
POP BC
LD HL,#3EF3
JR JMPDOS
OUTDOS LD HL,#2A53
JMPDOS PUSH HL
JP #3D2F