Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
t78kon.c10
There is 1 other file named t78kon.c10 in the archive. Click here to see a list.
INS 22/7 ;10C1
PUSHJ P,T78STS ;READ WLK, BOT, AND DENSITY
REP 25/8 ;10C2
JRST ATTEN6 ;NO
WIT
JRST [PUSHJ P,T78STS ;NO--READ WLK, BOT, AND DENSITY
JRST ATTEN6] ;ONWARD
INS 1/11 ;10C3
; HERE TO READ DRIVE STATUS AND SET WLK, BOT, AND DENSITY FOR
; ALL FUNCTIONS EXCEPT REWIND AND UNLOAD IF THE TAPE IS NOT
; ALREADY AT BOT
T78STS: MOVSI T2,TUSBOT## ;BIT TO TEST
TDNN T2,TUBSTS##(U) ;AT BOT?
PUSHJ P,CHKIRB## ;NO--HAVE AN IORB?
POPJ P, ;NOTHING TO DO
LDB T2,PRBFCN## ;GET FUNCTION CODE FROM IORB
CAIE T2,RB.FRW ;REWIND?
CAIN T2,RB.FRU ;UNLOAD?
POPJ P, ;GO AWAY
MOVSI T2,(.DOSR) ;REGISTER
PUSHJ P,RDREG ;READ STATUS
MOVSI T3,TUSWTL##!TUSBOT## ;BITS TO CLEAR
ANDCAM T3,TUBSTS##(U) ;CLEAR WLK AND BOT
TRNN T2,DI.FPT ;WRITE LOCKED?
TLZ T3,TUSWTL## ;NO
TRNN T2,DI.BOT ;AT BOT?
TLZ T3,TUSBOT## ;NO
IORM T3,TUBSTS##(U) ;UPDATE
MOVEI T3,RB.D16 ;ASSUME 1600 BPI
TRNN T2,DI.PE ;PHASE ENCODED?
MOVEI T3,RB.D62 ;NO--MUST BE GCR (6250 BPI)
DPB T3,PRBDEN## ;UPDATE IORB (TAPSER WILL PROPAGET TO TUB)
POPJ P, ;RETURN
SUM 49088