TITLE	LPTSER	LINE PRINTER SIMULATION	VERSION #2	SEPT. 1 '69
	SUBTTL	DAVE MCCLURE	JULY/69

;LINE PRINTER DEVICE DATA BLOCK
ENTRY	PRINT,LSE,LCB,LLB,LSD,LCF,LPR,PRDATA,PRCDAT
EXTERNAL	SWRITE

PRDATA:	EXP	4*^D10		;TIME TO LOAD ONE CHAR IN BUFFER
	Z
	XWD	PRACTIV,PRFLG
	Z
PRCDAT:	EXP	A
	SIXBIT	/LPT/
	EXP	PRHEAD,0,PRENTR
	Z
	Z
	Z
	Z
	Z
LPTBUF:	BLOCK	^D48		;SIMULATED PRINTER BUFFER

LSE:	POPJ	PDP,		;<6651> SKIP ON LINE PRINTER ERROR

LCB:	
LLB:
LSD:
LCF:
LPR:

PRINT:	SOSG	PRHEAD+2
	PUSHJ	PDP,POUT
	IDPB	AC1,PRHEAD+1
	POPJ	PDP,
POUT:	MOVEM	AC4,SAVE#
	MOVEI	FDB,PRCDAT	;LOAD FILE DATA BLOCK ADDRESS
	PUSHJ	PDP,SWRITE
	MOVE	AC4,SAVE	;RESTORE AC4
	POPJ	PDP,

PRENTR:	SIXBIT	/OUTPUT/
	SIXBIT	/LST/
	Z
	Z
PRHEAD:	BLOCK	3
	END