<div id='wikitext'>
<pre><b> File: TALLY.PA of Tape: Various/System-Tapes/s5</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
/LINE PRINTER HANDLER FOR TALLY PRINTER - HANDLES TABS
	/ TALLY HARDWARE HANDLES FORM FEEDS, CARRIAGE RETURNS  AND
	/LINE FEEDS.
	/ACCEPTS ^N AS EQUAL TO CARRIAGE RETURN FOR PSEUDO-COMPATIBILITY
	/WITH 645 HANDLER

	LSR=6651
	LCF=6652
	LSF=6661
	LLS=6666

	*0
	-1

	DEVICE TALY

	DEVICE LPT

	1040

	0000

	ZBLOCK 2

	*200

LPT,	0
	CLL CML CLA RAR
	TAD I LPT	/LINK GOES ON HERE. IF NOT READ WAS REQUESTED
LPT215,	AND LP7700
	CMA
	DCA LPTWC
LPT214,	RDF
	TAD LPTCIF
	DCA LPTXIT	/SAVE CALLING FIELD IN RETURN SEQUENCE
	TAD I LPT
	AND LPT70
	TAD LPCDF0
	DCA LPTCDF	/GET BUFFER FIELD
LP7700,	7700		/MUST BE AT LOC. 15 OF PAGE!
	ISZ LPT
	TAD I LPT
	DCA LPTCA	/LPTCA GETS BUFFER ADDRESS
	ISZ LPT
	TAD I LPT
LPTCDF,	HLT
	ISZ LPT
	SNL 		/IF LINK NOT SET,GIVE ERROR
	JMP LPTERR
	SNA CLA
	TAD LPT214
	JMS LPTPCH
	JMP LPTKLG
LPTLP,	TAD I LPTCA
	JMS LPTPCH
	TAD I LPTCA
	AND LP7400
	DCA LPTCDF
	ISZ LPTCA
LP7400,	7400
	TAD I LPTCA
	JMS LPTPCH
	TAD I LPTCA
	AND LP7400
	CLL RTR
LPTLF,	RTR
	TAD LPTCDF
	RTR
	RTR
	ISZ LPTCA
LPTKLG,	JMS LPTPCH
LPT177,	177
	ISZ LPTWC
	JMP LPTLP
LPRTRN,	ISZ LPT
LPTXIT,	HLT
	JMP I LPT
LPTWC,	0
LPTCA,	0
LPTPCH,	0
	AND LPT177
	CIA
	CLL CML
	TAD LPT175
	SZL SNA
	JMP LPFLSH
	TAD LPM143
	SNA
	JMP LPTCTZ	/CTRL-Z EXIT
	TAD LPTM15
	CLL CML CMA
	TAD LPT7
	SNL SZA
	JMP LPTCTL
	TAD LPT7
	JMS LPWAIT
LPTJMP,	JMP	LPJTAB-2	/LPJTAB-2 = &quot;JMP I LPTPCH&quot;

LPTCTZ,	TAD LPT214
	JMS LPTPCH
	TAD LPT215
	JMS LPTPCH
	JMP LPRTRN

LPTERR,	CLA CLL CML RAR	/FATAL ERROR EXIT
	JMP LPTXIT

LPWAIT,	0
	LLS
LP7600,	7600
	TAD LP7600
	KRS
	TAD LPT175
	SNA CLA
	KSF
	JMP .+3
LPTCIF,	CDF CIF 0
	JMP I LP7600
	LSF
	JMP LP7600
LPWISZ,	ISZ LPLPTR
	JMP I LPWAIT
LPLF,	CLA CLL CMA RAL
LPTFF,	TAD LPT214
	DCA LPLPTR
	TAD LPLPTR
	JMS LPWAIT
	LCF
	LSR
	JMP .-1
	TAD LP7600
	DCA LPLPTR	/FALL THROUGH LPTCTL!
LPTCTL,	TAD LPTJMP
	DCA .+1
LPTXXX,	HLT
LPTTAB,	TAD LPM140
	JMS LPWAIT
	TAD LPLPTR
	AND LPT7
	SNA CLA
	JMP I LPTPCH	/MUST BE AT LPJTAB-2!!!
LPT7,	7
LPJTAB,	JMP LPTTAB
	JMP LPLF
	JMP LPTJMP
	JMP LPTFF
	NOP
	TAD LPT215
	JMS LPWAIT
LPFLSH,
LPM140,	-140		/CLEAR AC AND RETURN
LPT70,	70
	JMP I LPTPCH
LPTM15,	-15
LPT175,	175
LPM143,	-143
LPCDF0,	CDF	0
LPLPTR,	0

	$$$$
</pre>
<hr/>
</div>