Trailing-Edge
-
PDP-10 Archives
-
bb-jr93d-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