18-FEB-78

NSP02 .PA 164 26-SEP-77
NIP02 .PA  84 26-SEP-77
HIST  .PA  10 11-JAN-77
HCLOCK.PA  46 11-JAN-77
COMPAF.PA  30 10-AUG-77
TLK   .PA  22 08-APR-77
LSN   .PA  15 08-APR-77
LCF   .PA  13 08-APR-77
LCLISR.PA  19 08-APR-77
CCB   .PA  16 08-APR-77
DP8ISR.PA  51 08-APR-77
KL8ISR.PA  61 08-APR-77
NIP   .PA  83 08-APR-77
DKCISR.PA  43 08-APR-77
DEMLCF.PA  13 29-OCT-77
FALCF1.PA   1 12-NOV-77
FALCF .PA   1 12-NOV-77
FALCF2.PA   1 12-NOV-77
DMRXCF.PA   1 13-NOV-77
DERXCF.PA   1 24-NOV-77

  20 files in  675 blocks -   55 free blocks

	TAD 	(215
	JMS 	TTYO
	TAD 	(212
	JMS 	TTYO
	JMP I	CRLF
/
/
/
EROUT,	0			/COME HERE ON PASS 1 FATAL ERROR
	DCA 	.+3
	JMS I	CTTYHN
	CDF 	0
	0
	JMP I	 EROUT
/
FERR,	0			/FATAL ERROR
	CDF	0
	CLA
	DCA	TTYINH
	TAD I	FERR
	JMS	EROUT
FEXIT,	CDF
	NOP
	.IF REF	SYSLP1	<
	*.-1
	JMP	SYSLP1
	>
/
NFERR,	0			/NON-FATAL ERROR
	CDF	0
	TAD I	NFERR
	JMS	EROUT
	ISZ	NFERR
	JMP I	NFERR
/

/
/	CALCULATE GST ADDRESS FROM INDEX IN AC
/
CGSTA,	0			/DIVIDE BY 760 OR 1000
	AND	(3777
	TAD	(-1
	TAD	TOPLC2		/-760 OR -1000
	SPA			/UNDERFLOW?
	JMP	.+3		/YES
	ISZ	FLDCNT		/NO, BUMP COUNTER
	JMP	.-4		/TRY AGAIN
	TAD	TOPLC1		/UNDERFLOW, MAKE + AGAIN
	CLL RTL			/MULTIPLY BY 10(OCT)
	RAL
	TAD	GST		/APPLY OFFSET TO POINTER
	DCA	GSTADR
	SZL
	ISZ	FLDCNT		/CROSSED FIELD BOUNDARIES
	TAD	TOPLOC
	SNA CLA			/GST GO UP TO 7777?
	JMP	CGSTA1		/YES
	CLL			/NO
	TAD	(200
	TAD	GSTADR
	SNL			/DOES CALC. TAKE ABOVE 7577?
	JMP	CGSTA1		/NO
	DCA	GSTADR		/YES, SAVE NEW ADDRESS
	ISZ	FLDCNT		/BUMP FIELD
CGSTA1,	CLA
	TAD 	FLDCNT		/SHIFT FLD CNT TO BITS 6-8
	CLL RTL
	RAL
	TAD 	GSTCDF		/ADD START FLD OF GST
	DCA 	GCDF		/SAVE