Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/rmsio.c12
There are 2 other files named rmsio.c12 in the archive. Click here to see a list.
INS 48/22 ;12C1
MOVE T4,[POINT 7,DEVASC##] ;[1146] SETUP BP FOR DEVICE IN ASCII.
HRRZ T1,F.WDNM(FT) ;[1146] GET ADDR OF DEVICE NAME
HRLI T1,(POINT 6,) ;[1146] MAKE INTO BP
MOVEI T2,6 ;[1146] SIX CH. MAX
OP.20A: ILDB C,T1 ;[1146] GET CH. OF DEVICE NAME
JUMPE C,OP.20B ;[1146] STOP IF NULL
ADDI C,40 ;[1146] CONVERT TO ASCII
IDPB C,T4 ;[1146] STORE BYTE
SOJG T2,OP.20A ;[1146] ARE WE DONE?
OP.20B: SETZ C, ;[1146] YES, APPEND A NULL TO MAKE ASCIZ
IDPB C,T4 ;[1146]
MOVEI T2,.RCFNM(FTL) ;[1146]
$STORE T2,FNA,(T4) ;[1146]
INS 51/22 ;12C2
MOVEM T4,SVIBP## ;[1146] SAVE VALUE OF ID BP
REP 59/22 ;12C3
SETZ C, ;[1132]MAKE STRING ASCIZ
IDPB C,T4 ;[1132]
WIT
MOVEI C,15 ;[1146] CR
IDPB C,T4 ;[1146]
MOVEI C,12 ;[1146] LF
IDPB C,T4 ;[1146]
SETZ C, ;[1132]MAKE STRING ASCIZ
IDPB C,T4 ;[1132]
MOVX T4,GJ%OFG ;[1146] PARSE ONLY GTJFN
MOVEM T4,GJ.BLK##+.GJGEN ;[1146] SET UP GTJFN BLOCK
MOVE T4,[POINT 7,DEVASC##] ;[1146]
MOVEM T4,GJ.BLK##+.GJDEV ;[1146]
HRRZI T1,GJ.BLK## ;[1146] ADDRESS OF GTJFN BLOCK IN T1
MOVE T2,SVIBP## ;[1146] VALUE OF ID BP IN T2
GTJFN% ;[1146]
ERJMP GENERR ;[1146] ERROR
HRRZ T2,T1 ;[1146] JFN INTO T2
HRRO T1,SVIBP## ;[1146] BP TO OUT STRING IN T1
MOVX T3,<111101,,1> ;]1146] OUTPUT ALL EXCEPT GENERATION NUMBER
SETZ T4, ;[1146] CLEAR T4
JFNS% ;[1146] ASK MONITOR WHAT THE STRING IS
ERJMP GENERR ;[1146]
MOVE T1,T2 ;[1146]
RLJFN% ;[1146] RELEASE THE JFN
ERJMP OP.PNX ;[1146] IGNORE ANY ERROR
JRST OP.PNX ;[1146]
GENERR: MOVE T4,F.WVID(FT) ;[1146] GET ORIGINAL VALUE OF ID
MOVEI T2,.RCFNM(FTL) ;[1146]
$STORE T2,FNA,(T4) ;[1146] STORE ADDRESS OF ASCIZ ID IN FAB
SUM 79729