Google
 

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