Google
 

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