Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 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