Код:
ORG 33025
START EQU $
DI
LD HL,32768
LD DE,32769
LD BC,257
LD (HL),192
LDIR
LD A,195
LD (49344),A
LD HL,INT
LD (49345),HL
LD A,128
LD I,A
IM 2
LD HL,PIC
LD DE,22528
LD C,96
INI1 LD B,8
INI2 XOR A
RL (HL)
RLA
LD (DE),A
INC DE
DJNZ INI2
INC HL
DEC C
JR NZ,INI1
LD HL,FREE
LD DE,22528
LD IX,22495
LD BC,3
LD SP,$
INI3 LD A,(DE)
OR A
JR NZ,INI4
OR (IX)
JR NZ,INI4
LD (HL),50
INC HL
LD (HL),E
INC HL
LD (HL),D
INC HL
INI4 INC DE
INC IX
DJNZ INI3
DEC C
JR NZ,INI3
LD (HL),201
INC HL
LD (PSB_GO+1),HL
LD DE,22528
LD BC,3
INI5 LD A,(DE)
OR A
JR Z,INI6
INI7 EXX
INC L
LD A,R
XOR L
AND 7
CP 6
EXX
JR NC,INI7
ADD A,168
LD (HL),A
INC HL
LD (HL),50
INC HL
LD (HL),E
INC HL
LD (HL),D
INC HL
INI6 INC DE
DJNZ INI5
DEC C
JR NZ,INI5
LD (HL),195
INC HL
LD DE,PSB_LO
LD (HL),E
INC HL
LD (HL),D
EI
PSB_LO LD A,R
HALT
XOR L
LD L,A
ADD A,H
LD H,A
SUB D
LD D,A
ADD A,E
LD E,A
XOR B
LD B,A
SUB C
LD C,A
LD A,R
PSB_GO JP 0
INT PUSH AF
EXX
INTx1 LD A,0
INC A
LD (INTx1+1),A
RRCA
RRCA
AND 1
INC A
OUT (254),A
LD L,A
RLCA
RLCA
RLCA
OR L
CALL FREE
EXX
POP AF
EI
RET
FREE EQU $
PIC DB 0, 0, 0, 0, 0, 0, 0, 0
DB 0,238,252, 0, 0, 14, 14, 0
DB 0,238,238, 0, 0,254,252, 0
DB 0,238,238, 0, 0,238,238, 0
DB 0,238,252, 0, 0, 0, 0, 0
DB 0, 0, 0, 0,127,255,255,252
DB 0, 0, 0, 0, 0, 0, 0, 0
DB 0, 0, 0, 0, 15,239,239,192
DB 0,224, 0,224, 14,238, 14,224
DB 14,239,239,192, 15,224,238,224
DB 14, 0,238,224, 14, 15,239,192
DB 0, 0, 0, 0, 0, 0, 0, 0