Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
plrlbp.c12
There are no other files named plrlbp.c12 in the archive.
REP 19/6 ;12C1
SETZ P1, ;AND CLEAR IT
WIT
MOVEI P1,.TFD00 ;ASSUME WE'LL SET DEFAULT DENSITY
REP 33/6 ;12C2
CAMN T1,VOL1WD ;IS IT 'VOL1' IN ASCII
MOVEI LT,LT.SL ;YES, LABEL TYPE IS STANDARD
TRZ T1,17 ;Clear unneeded low order 4 bits
WIT
TRZ T1,17 ;CLEAR UNNEEDED LOW ORDER 4 BITS
CAMN T1,VOL1WD ;IS IT 'VOL1' IN ASCII
MOVEI LT,LT.SL ;YES, LABEL TYPE IS STANDARD
REP 39/6 ;12C3
JRST RVOL.3 ;TRY THE NEXT DENSITY
WIT
JRST RVOL.5 ;TRY THE NEXT DENSITY
REP 45/6 ;12C4
RVOL.5: PUSHJ P,I$NDEN## ;TRY A DIFFERENT DENSITY
WIT
RVOL.5: JUMPL P1,RVOL5A ;ONLY DO THIS ONCE
LOAD S2,TCB.PS(B),TP.DEN ;GET DENSITY WE TRIED TO READ AT
PUSHJ P,I$GDEN## ;NOW GET DENSITY WE READ AT
CAIE S1,(S2) ;SAME?
HRROI P1,(S1) ;NO--DRIVE DID AUTO DENSITY DETECTION
STORE S2,TCB.PS(B),TP.DEN ;REPLACE
RVOL5A: PUSHJ P,I$NDEN## ;TRY A DIFFERENT DENSITY
REP 49/6 ;12C5
RVOL.6: MOVEI S1,.TFD00 ;SET DEFAULT DENSITY BECAUSE SOME
WIT
RVOL.6: MOVEI S1,(P1) ;SET DEFAULT DENSITY BECAUSE SOME
REP 98/27 ;12C6
JUMPF BSF.7 ;FAILED--MAYBE ON THE FIRST REEL
WIT
JUMPF BSF.8 ;FAILED--MAYBE ON THE FIRST REEL
INS 21/38 ;12C7
MOVE T2,[POINT 7,[ASCIZ/ /]] ;POINT AT ACCESS ALLOWED CHAR
MOVE T1,[CPTRI ^D11,0(BUF)] ;AIM AT ACCESS CHARACTER (CP 11)
MOVEI T3,1 ;ONE CHARACTER LONG
HRL T3,CVTTAB(LT) ;CONVERSION IF NECESSARY
PUSHJ P,STRCMP ;COMPARE
JUMPT .RETT ;IT MUST BE A SPACE
SUM 157568