/INSTRUCTION GENERATORS

ULODX,	130000

USX,	FLEX 	LA
	FLEX C  +15
	FLEX 	CM
	FLEX A  +7713
SUBF,	FLEX 	FS
	FLEX B  +15
	130000
EQUALX,	321236
	FLEX DAC
	1633
	130000
ADDX,	FLEX 	AD
	FLEX D  +15
	130000
MULF,	FLEX 	FM
	FLEX P  +15
	130000
DIVF,	FLEX 	FD
	FLEX V  +15
	130000
SUBX,	FLEX  	C+320000
	FLEX MA +77
	FLEX 	AD
	FLEX D  +33
	130000
DIVX,	FLEX 	JM
	FLEX S D
	FLEX IV +77
	FLEX 	LA
	FLEX C  +15
	130000
MULX,	FLEX 	JM
	FLEX S M
	FLEX UL +77
	FLEX 	LA
	FLEX C  +15
	130000
IFX,	FLEX  SZ+340000
	FLEX A!
	726344
	FLEX A  +7736
	FLEX SNA
	CHAR RJ+773600
	FLEX MP 
	753600+CHAR RS
	FLEX MA +77
	FLEX 	JM
	FLEX P  +35
	FLEX 	JM
	FLEX P  +76
	130000

IFF,	FLEX 	CA
	FLEX S  +37
	773600+CHAR RJ
	FLEX MP 
	353600+CHAR RJ
	FLEX MP 
	753600+CHAR RJ
	FLEX MP 
	761300

USF,	FLEX 	FC
	FLEX S  +15
	130000

EXF,	FLEX 	JM
	FLEX S E
	FLEX XP +77
	FLEX 	LA
	FLEX C  +15
	130000

EXX,	FLEX 	JM
	FLEX S X
	FLEX PN +77
	FLEX 	LA
	FLEX C  +15
	130000

IFZER,	FLEX  SZ+340000
	FLEX A!
	726344
	FLEX A  +7736
	FLEX SNA
	CHAR RJ+773600
	FLEX MP 
	CHAR RJ+753600
	FLEX MP 
	351300

/FOURTRAN INFINITE INSTRUCTION GENERATOR GARBAGE

OPSUB=LAC 0
OPEQUX=LAC 1
OPADD=LAC 2
OPMUL=LAC 3
OPDIV=LAC 4
OPDO=LAC 5
OPIF=LAC 6
UNSUBOP=LAC 7
OPEXP=LAC 10
OPDO1=LAC 11
OPIF1=LAC 12
ULODOP=LAC 12
OPIFZ=LAC 13
OPEQU=LAC 16
OPCLOSE=LAC 17
OPOPEN=LAC 20
OPOPP=LAC 21

LVM=0
LV0=100
LV1=200
LV2=300
LV3=400
LV4=500
LV5=600
LV6=700
LV7=1000
LV10=1100
LV11=1200

CMT=XCT

NLC=-LAC

OPTAB,	LAC SUBX	LAC SUBF
	LAC EQUALX	LAC EQUALX
	LAC ADDX	LAC ADDX
	LAC MULX	LAC MULF
	LAC DIVX	LAC DIVF
	LAC DOLOP	LAC DOLOP
	LAC IFX	LAC IFF
	LAC USX	LAC USF
	LAC EXX	LAC EXF
	LAC DOLOP1	LAC DOLOP1
	LAC ULODX	LAC ULODX
	LAC IFZER		LAC IFF

/IG'S FOR DO

DOLOP,	FLEX 	AD
	CHAR LD+17
	FLEX 	DA
	CHAR LC+15
	FLEX 	AD
	CHAR LD+14
	FLEX 	SP
	FLEX A
 +13

DOLOP1,	FLEX 	AD
	CHAR LD+17
	FLEX 	DA
	CHAR LC+15
	FLEX 	CM
	FLEX A
	
	FLEX ADD
	1400+CHAR R	
	TEXT .ADD (1
	SMA
.	130000

START