/	.TITLE	PRINT
/
/  20 DEC 71 - PAUL HENDERSON
/
/  PROGRAM TO DRIVE DEC 645 LINE PRINTER WITH A PDP-8
/
LCB=6652	/CLEAR PRINTER BUFFER
LLB=6664	/LOAD PRINTER BUFFER FROM AC 6-11, THEN CLEAR AC
LSD=6661	/SKIP ON PRINTER DONE FLAG
LCF=6662	/CLEAR LINE PRINTER FLAGS
LPR=6654	/LOAD FORMAT REGISTER & PRINT
/
	*200
/
START,	LCB		/CLEAR PRINTER BUFFER
	CLA!CMA
	DCA	HOLD	/INITIALIZE TO ZERO
CYCLE,	ISZ	HOLD
	TAD	HOLD
	DCA	CHAR
	TAD	LM132
	DCA	COUNT
LOOP,	LSD
	JMP	LOOP
	LCF
	OSR
	SMA
	SKP!CLA
	SKP
	TAD	CHAR
	ISZ	CHAR
	LLB
	ISZ	COUNT
	JMP	LOOP
	LSD
	JMP	.-1
	LCF
	OSR
	RAL
	SMA!RAR
	SKP!CLA
	SKP
	TAD	L10
	LPR
	JMP	CYCLE
/
HOLD,	0
CHAR,	0
COUNT,	0
LM132,	-204
L10,	10
$