[pdp8.git] / sw / rescue / lab8e_goettingen / disk1_im6100 / rka / paroff / chkeof.ra

	SECT	CHKEOF\r
/CHECKS END OF FILE CONDITION.\r
/ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW\r
/FRTS DOES REST\r
	EXTERN	#EOFSW\r
	BASE	CHKBAS\r
	JA	CODE\r
NAME,	TEXT	+CHKEOF+\r
CHKBAS,	F 0.\r
CHKXR,	F 0.\r
	BASE	0\r
CODE,	STARTD\r
	FLDA	30\r
	FSTA	CHKRTN		/RETURN ADDR\r
	FLDA	0		/GET PTR TO VARIABLE LIST\r
	BASE	CHKBAS\r
	SETB	CHKBAS\r
	SETX	CHKXR\r
	FSTA	CHKBAS\r
	LDX	1,1\r
	FLDA%	CHKBAS,1		/HERES PTR TO VAR ADDR\r
	FSTA	CHKBAS\r
	JA	PART2\r
	ORG	10*3+CHKBAS\r
	FNOP\r
	JA	NAME+3\r
PART2,	FLDA	CHKBAS\r
	FSTA	#EOFSW		/PASS ADDR TO SYS\r
	STARTF\r
	FCLA\r
	FSTA%	CHKBAS		/ZERO VAR\r
CHKRTN,	JA	.\r
\1a\0\184& 3f67&5~i} >|{r\17@.z%r(/z@\ezy\e\12|5v$`/%X.xf\16 5b\ew)XxipvruX\1exp\16wt\19@azsf\1e|rY\0$b(qy\ 1Hop\0\1e)+&()&'(&&'&%&&5h/on9dri5@/[5"\10`n4\10/^4&r\10\14S4" nyml)kj9k7<$[\ 1\0\0\r$P\ 1j\0\3\ 4@
7LW:LqWD:QD\12\0\f\ 1]=P|OE\0\1d\18\1c
Commit	Line	Data
81e70d48 PH	1	SECT CHKEOF\r
	2	/CHECKS END OF FILE CONDITION.\r
	3	/ZEROS PASSED VARIABLE + PASSES ITS ADDRESS TO #EOFSW\r
	4	/FRTS DOES REST\r
	5	EXTERN #EOFSW\r
	6	BASE CHKBAS\r
	7	JA CODE\r
	8	NAME, TEXT +CHKEOF+\r
	9	CHKBAS, F 0.\r
	10	CHKXR, F 0.\r
	11	BASE 0\r
	12	CODE, STARTD\r
	13	FLDA 30\r
	14	FSTA CHKRTN /RETURN ADDR\r
	15	FLDA 0 /GET PTR TO VARIABLE LIST\r
	16	BASE CHKBAS\r
	17	SETB CHKBAS\r
	18	SETX CHKXR\r
	19	FSTA CHKBAS\r
	20	LDX 1,1\r
	21	FLDA% CHKBAS,1 /HERES PTR TO VAR ADDR\r
	22	FSTA CHKBAS\r
	23	JA PART2\r
	24	ORG 10*3+CHKBAS\r
	25	FNOP\r
	26	JA NAME+3\r
	27	PART2, FLDA CHKBAS\r
	28	FSTA #EOFSW /PASS ADDR TO SYS\r
	29	STARTF\r
	30	FCLA\r
	31	FSTA% CHKBAS /ZERO VAR\r
	32	CHKRTN, JA .\r
	33	\1a\0\184& 3f67&5~i} >\|{r\17@.z%r(/z@\ezy\e\12\|5v$`/%X.xf\16 5b\ew)XxipvruX\1exp\16wt\19@azsf\1e\|rY\0$b(qy\ 1Hop\0\1e)+&()&'(&&'&%&&5h/on9dri5@/[5"\10`n4\10/^4&r\10\14S4" nyml)kj9k7<$[\ 1\0\0\r$P\ 1j\0\3\ 4@
	34	7LW:LqWD:QD\12\0\f\ 1]=P\|OE\0\1d\18\1c