
/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
