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