LPT: LD DE,(VIDCIM2)
LD HL,0
RRA
RR H
RRA
RR H
ADD HL,DE
LD (VIDCIM2),HL
LPT2: LD A,(LPTS)
OUT (0B1H),A
LD A,192
LD DE,(VIDCIM2)
RES 7,D
SET 6,D
EXX
LD DE,(VIDCIM1)
LD IX,VIDCIM1
LD HL,(VIDCIM2)
RES 7,H
SET 6,H
INC HL
INC HL
INC HL
INC HL
LD BC,13
L1 EX AF,AF'
EXX
LD HL,LINE
LD BC,16
LDIR
EXX
LD (HL),E
INC HL
LD A,D
RRA
RRA
RRA
AND 3
OR 18H
OR (IX+1)
LD (HL),A
INC HL
LD (HL),E
INC HL
LD (HL),D
ADD HL,BC
INC D
LD A,D
AND 7
JR NZ,L2
LD A,E
ADD A,32
LD E,A
CCF
SBC A,A
AND 0F8H
ADD A,D
LD D,A
L2 EX AF,AF'
DEC A
JR NZ,L1
EXX
LD HL,SYNC
LD BC,HOSSZ
LDIR
RET
LINE DB 255,14H,15,2FH,0,0,0,0
TABL DB 0,36,121,88,130,182,219,63
SYNC DB 0F5H,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
STATUS DB 247,8,11,73H,0B8H,0FEH,0E9H,1,0,216,216,0,0,0,0,0
DB 217,12H,63,0,0,0,0,0,0,0,0,0,0,0,0,0
DB 253,16,63,0,0,0,0,0,0,0,0,0,0,0,0,0
DB 252,16,6,63,0,0,0,0,0,0,0,0,0,0,0,0
DB 255,90H,63,32,0,0,0,0,0,0,0,0,0,0,0,0
DB 252,12H,6,63,0,0,0,0,0,0,0,0,0,0,0,0
DB 207,13H,63,0,0,0,0,0,0,0,0,0,0,0,0,0
HOSSZ EQU $-SYNC