Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cobold.c08
There are 4 other files named cobold.c08 in the archive. Click here to see a list.
REP 1/1 ;08C1
; UPD ID= 1532 on 2/22/84 at 9:30 AM by HOFFMAN
WIT
; UPD ID= 1612 on 5/17/84 at 9:52 AM by HOFFMAN
REP 4/2 ;08C2
;V12B****************
;JEH 14-FEB-84 [1514] Shut off AMRGN. flag while comparing PRVTOK
WIT
;V13*****************
;JEH 16-MAY-84 [1535] If error w/ ref. mod. expression, put out
;; expected op code, but with error bit set
;JEH 14-MAY-84 [1527] Skip warning test if 'GENERATE data-name'
;; instead of 'GENERATE report-name'
;JEH 26-APR-84 [1522] Let expression scanner handle errors with
; reference modifiers
;JEH 14-FEB-84 [1514] Shut off AMRGN. flag while comparing PRVTOK
;V12B****************
REP 39/81 ;08C3
SETOM TD ;SET NUMBER OF DETAIL GROUPS TO -1
MOVE TA,W1 ;GET RPWTAB LINK TO RD ENTRY
ADD TA,RPWLOC ;MAKE ABSOLUTE ADDRESS
LDB TA,RW.FGP## ;GET ADDRESS OF LAST GROUP IN RD ENTRY
PA227A: CAIE T1,1 ;POINTING TO DUMMY DATAB ENTRY
WIT
MOVE TA,W1 ;[1527] GET RPWTAB LINK TO RD ENTRY
ADD TA,RPWLOC ;[1527] MAKE ABSOLUTE ADDRESS
LDB TC,RW.TYP## ;[1527] DID WE PROCESS A <REPORT-ITEM-NAME>?
CAIN TC,%RG.DE ;[1527]
JRST PA0. ;[1527] YES, THEN EXIT NOW
SETOM TD ;[1527] SET NUMBER OF DETAIL GROUPS TO -1
LDB TA,RW.FGP## ;GET ADDRESS OF LAST GROUP IN RD ENTRY
PA227A: CAIE TA,1 ;[1527] POINTING TO DUMMY DATAB ENTRY
INS 378/137 ;08C4
MOVE TA,OPRTR ;[1535] Get op code
SKIPN ERSKIP ;[1535] Was there an error with modifier?
TXO TA,RFMERR ;[1535] Yes, set bit in op code
MOVEM TA,OPRTR ;[1535] Restore it
REP 412/137 ;08C5
SETZM RMFLG ;
SKIPN ERSKIP ;If on, error msg already given
EWARNW E.849 ;Incorrect sub or ref modder
PUSHJ PP,PA263. ;Set up dummy datab entry so other scans
DMOVE TB,RMOPR ; can continue
WIT
SKIPN ERSKIP ;If on, error msg already given
EWARNW E.849 ;Incorrect sub or ref modder
PUSHJ PP,PA860. ;[1522] Expression scanner handled error,
DMOVE TB,RMOPR ;[1522] put out op code and continue
REP 423/137 ;08C6
HRRZI TA,OPYECC ;Set up a YECCH
PUSHJ PP,SETOP1 ;
MOVE TA,OPRTR ;
CAIN TYPE,PRIOD. ;Did we scan to a period?
TLO TA,400 ;Yes, turn on bit so in phase E
MOVEM TA,OPRTR ; will wipe out all operands
JRST PA22. ; instead of going with dummy
WIT
PUSHJ PP,PA860. ;[1535] Put out op code
JRST PA0. ;[1535] Pop up one node
SUM 41810