https://ia803404.us.archive.org/2/items ... b%2086.pdf
Code: Select all
HCOPY:
CALL F23; FAST
LD E,C0;192 LINES
LD HL,(SCNAD);6K ARRAY
XOR A;A=0
OUT FB,A;START PRINTER
HCLP1:
IN A,FB;TEST PRINTER
RLA;NEW LINE STATUS FLAG
JR NC HCLP1;REPEAT IF NC
LD D,20;32 BYTES PEP LINE
HCLP2:
LD B,8;8 BITS PER BYTE
LD C,(HL);GET BYTE
HCLP3:
IN A,FB;TEST PRINTER
RRA;DATA READY FLAG
JR NC HCLP3;REPERT IF NC
LD A,C;TRANFER BYTE
AND 80;MASK BIT 7
OUT FB,A;BIT 7 TO PRINTER
RL C; SHIFT NEXT BIT
DJNZ HCLP3; REPEAT 8X
INC HL; NEXT BYTE
DEC D;DEC BYTE COUNTER
JR NZ HCLP2; REPEAT 32X
DEC E;DEC-LINE COUNTER
JR NZ HCLP1;REPEAT 192X
LD A,4;TURN OFF
OUT FB;A;PRINTER
CALL F2B;SLOW
RET;BYE