PDP-10 Archive: autopatch/ifgen.c12 from bb-kl11f-bm_tops20_v7_0_atpch1

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/ifgen.c12

There are 2 other files named ifgen.c12 in the archive. Click here to see a list.

 REP 11/1	;12C1
	COPYRIGHT (C) 1974, 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 INS 28/1	;12C2
	;MJC	30-OCT-85	[1612] Move COLSEQ check from IFDD43 to IFDD30.
 REP 11/35	;12C3
		PUSHJ	PP,IFDD42	;YES--GENERATE <LDB 0,B>
 WIT
		SKIPL	COLSEQ		;[1612]NEED TO TRANSLATE?
		PUSHJ	PP,IFDD42	;[1612]NO--GENERATE <LDB 0,B>
		SKIPGE	COLSEQ		;[1612] SKIP IF NOW IF LDB GENERATED
		PUSHJ	PP,IDD42A	;[1612]YES--USE <LDB 1,B> INSTEAD
 INS 30/36	;12C4
	IDD42A: MOVSI	CH,LDB.+AC1	;[1612]USE AC1 INSTEAD
		SKIPA			;[1612]
 DEL 60/36	;12C5
		SKIPL	COLSEQ		;IF 'LDB.' CHAR NEEDS TO BE TRANSLATED,
		JRST	IDD43A		; 
		MOVE	TA,ESIZEX(LN)	; AND IT'S A 1 CHARACTER FIELD
		CAIN	TA,1		;
		MOVSI	CH,LDB.+AC1	; WANT TO USE AC1
 SUM 164618