Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/mscgen.c08
There are 2 other files named mscgen.c08 in the archive. Click here to see a list.
REP 1/1 ;08C1
; UPD ID= 1521 on 2/2/84 at 6:05 PM by HOFFMAN
WIT
; UPD ID= 1614 on 5/17/84 at 9:53 AM by HOFFMAN
REP 25/1 ;08C2
;V12*****************
;NAME DATE COMMENTS
WIT
;NAME DATE COMMENTS
;V13*****************
;JEH 16-MAY-84 [1535] Ref. Mod. - If phase D gave error, don't
;; give another
;JEH 26-APR-84 [1522] Clean up EOP stack if errors w/ ref. modifiers
;V12*****************
REP 342/54 ;08C3
;Use results from EXPRGN to modifier operand on EOP table to provide
WIT
;Use results from EXPRGN to modify operand on EOP table to provide
INS 363/54 ;08C4
CAIN TA,100001 ;[1522] Is operand the dummy?
POPJ PP, ;[1522] Expgen caught error
TXNE W1,RFMERR ;[1535] Did phase d give an error?
POPJ PP, ;[1535] Yes, don't give another
REP 390/54 ;08C5
REFM21: SOS TA ;continue through rest of EOP stack
MOVE TB,0(TA) ; searching for operands
WIT
TSWF FERROR ;[1522] Have we already encountered an error?
POPJ PP, ;[1522] Return w/o figuring modifiers
REFM21: POP TA,TB ;[1522]
CAMGE TA,EOPLOC ;[1522] Loop reading EOP table entries
POPJ PP, ;[1522] Exit, there's nothing to mod
INS 397/54 ;08C6
AOBJP TA,KILL## ;[1522]
REP 455/54 ;08C7
REFM28: MOVE TD,RMOFF ;get offset
WIT
REFM28: TSWF FERROR ;[1522]
POPJ PP, ;[1522]
MOVE TD,RMOFF ;get offset
SUM 90073