Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/ibmspl.c16
There are 2 other files named ibmspl.c16 in the archive. Click here to see a list.
 REP 21/3	;16C1
		XP	IBMEDT,	371		; Edit level
 WIT
		XP	IBMEDT,	372		; Edit level
 INS 484/4	;16C2
	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	;16C3
	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	;16C4
	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	;16C5
		TXZ	S,IOABT			;[261] clear previous soft abort
 WIT
	;[372] Remove one line at TKHCNO+9
 REP 86/88	;16C6
	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