Google
 

Trailing-Edge - PDP-10 Archives - bb-jr93j-bb - 7,6/ap017/ibmspl.c17
There are 6 other files named ibmspl.c17 in the archive. Click here to see a list.
 REP 21/3	;17C1
		XP	IBMEDT,	371		; Edit level
 WIT
		XP	IBMEDT,	372		; Edit level
 INS 484/4	;17C2
	4(372)	19-Nov-86	TPW	In LPTJOB, if input abort occurs don't use
					normal file completion messages for WTOJ etc
 REP 73/57	;17C3
	FTCLOG<	$TEXT	(LOGCHR,<^I/IBLPT/finished file ^F/0(P3)/, ^D/T1/ bytes at ^D/S1/ Bps>)>
		$WTOJ	<finished input>,<finished input to file ^F/0(P3)/, ^D/T1/ bytes at ^D/S1/ Bps>,@T%OBA

 WIT
	;at OPNZX1:+6
		TXNN	S,IOABT			;[372] transfer complete and ok?
		JRST	LPTFIN			;[372] yes, give normal finish message
	FTCLOG<	$TEXT	(LOGCHR,<^I/IBLPT/terminated file ^F/0(P3)/, ^D/T1/ bytes at ^D/S1/ Bps>)>				;[372] no, log that we had a problem
		$WTOJ	<Aborted finish>,<finished input to .ABT file, ^D/T1/ bytes at ^D/S1/ Bps>,@T%OBA			;[372] tell everyone file got mangled
		$RETT				;[372]	 Return
	LPTFIN:	FTCLOG<	$TEXT	(LOGCHR,<^I/IBLPT/finished file ^F/0(P3)/, ^D/T1/ bytes at ^D/S1/ Bps>)>
		$WTOJ	<finished input>,<finished input to file ^F/0(P3)/, ^D/T1/ bytes at ^D/S1/ Bps>,@T%OBA
 REP 28/59	;17C4
	LPHMAR:	HRRZ	S1,P1			; Get device handle
 WIT
	LPHMAR:	TXZ	S,IOABT			;[372] clear leftover abort flag
		HRRZ	S1,P1			; Get device handle
 REP 32/61	;17C5
		TXZ	S,IOABT			;[261] clear previous soft abort
 WIT
	;[372] Remove one line at TKHCNO+9
 REP 86/88	;17C6
	GETIEX:	CAIN	S1,D6IAB		;[261] did input abort occur ?
 WIT
	GETIEX:	CAIE	S1,D6IAB		;[372] did input abort occur ?
		CAIN	S1,D6LGA		;[372] or line went down?
 SUM 30497