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