Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - tm2kon.c08
There is 1 other file named tm2kon.c08 in the archive. Click here to see a list.
 DEL 25/9	;08C1
		HLRZ	T4,TKBUNI##(W)	;GET THE UNIT NUMBER
 REP 8/17	;08C2
		PUSHJ	P,.+2
		PJRST	T4POPJ##	;RESTORE T4 AND RETURN
		HLRZ	T4,TUBAKA##(U)	;TM02 # + SLAVE NUMBER
		ANDI	T4,70		;TM02 NUMBER
	DRVPL1:	MOVE	T2,T4
		ADD	T4,TKBIUN##(W)	;POSITION TO RIGHT PART OF KDB
		LSH	T2,^D18		;SHIFT TM02 #
		ADD	T2,T4		;FORM LH OF AOBJN WORD
		JUMPGE	T2,CPOPJ##	;WE DON'T KNOW ABOUT THIS TM02 IF NOT NEG.
		PUSHJ	P,SAVE4##	;SAVE SOME ACS
		SETZ	P4,		;SET A FLAG
		PUSH	P,U		;SAVE U
		HRLI	T4,P1		;SET INDEX FOR RIGHT SLAVE NUMBER
 WIT
		PUSHJ	P,DRVPL1
		PJRST	T4POPJ##	;RESTORE T4 AND RETURN
	DRVPL1:	PUSHJ	P,SAVE4##	;SAVE SOME ACS
		SETZ	P4,		;SET A FLAG
		PUSH	P,U		;SAVE U
		HRRZ	T4,TKBIUN##(W)	;POINT TO RIGHT PART OF KDB
		TLO	T4,P1		;SET INDEX FOR RIGHT SLAVE NUMBER
 SUM 232895