Sinclair ZX80 / ZX81 / Z88 Forums

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