Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
tapuuo.c11
There is 1 other file named tapuuo.c11 in the archive. Click here to see a list.
REP 16/27 ;11C1
MOVE P1,T1 ;SAVE FCN IN P1
WIT
HRR P1,T1 ;SAVE FCN IN P1
DEL 5/38 ;11C2
PUSHJ P,TPSTAT ;REPORT STATISTICS
REP 16/38 ;11C3
MOVE P3,T2 ;SAVE PRED.
WIT
CAMN P1,F ;OLD SAME AS NEW?
JRST CPOPJ1## ;YES--THEN IT'S A NOOP
MOVE P3,T2 ;SAVE PRED.
EXCH F,P1 ;GET OLD DDB ADDRESS FOR STATS
PUSHJ P,SNDVSS## ;SEND VOL SWITCH TAPE STATS FOR ACCOUNTING
JFCL ;WE TRIED
PUSHJ P,TPSTAT ;REPORT STATS
EXCH F,P1 ;GET NEW DDB BACK
REP 4/71 ;11C4
LBLMSG: LDB T1,TUYRQT ;GET REQUEST TYPE
CAIE T1,LR.EOT ;END OF TAPE?
CAIN T1,LR.EOV ;END OF VOLUME?
PUSHJ P,TPSTAT ;YES, REPORT STATS
PUSHJ P,SAVE3## ;SAVE P1-P3
WIT
LBLMSG: PUSHJ P,SAVE3## ;SAVE P1-P3
SUM 203302