FOTS TAPE 3
/FLOATING INTERPRETER

EFM=JMS .
EFMTEM,	0	/EFM IS PC
	LAC I EFMTEM
	SAD (EFM
	JMP BACK
	SAD (LFM
	JMP LEAVE
	RCL
	RTL
	RTL
	AND (17
	ADD (XCT FLOTAB
	DAC EFME#ND
	ISZ F#
	DZM IDRE#CT
	LAC I EFMTEM
	AND (37777
	DAC T
	AND (I	/INTERPRET INDIRECT
	SNA
EFMEND,	XX
	LAC T
	AND (17777
	DAC T
	LAC I T
	DAC T
	ISZ IDRECT
	JMP EFMEND

BACK,	ISZ EFMTEM
	JMP EFMTEM+1

FLOTAB,	JMP I EFMTEM
	JMP FDAC	/FDAC,04
	JMP FJMS	/JMS,10
	HLT	/14
	JMP FLAC	/CLA,20
	JMP FLAM	/CLS,24
	JMP FADD	/FTAD,30
	JMP FSUB	/FSUB,34
	JMP FMPY	/FMPY,40
	JMP FDIV	/FDIV,44
	HLT
	JMP FCAS	/CAS, 54
	JMP FJMP	/JMP, 60
	HLT	/64
	HLT	/70
	HLT	/74

FJMS,	LAC T	/GET ADDRESS
	AND (17777
	DAC B
	ADD (DAC	/CHANGE PC
		DAC DACPC
	LAC EFMTEM
	ADD (1
	AND (17777
	SZL
	XOR (400000
DACPC,	XX
	LAC B
	DAC EFMTEM


	JMP BACK

FJMP,	LAC T
	AND (17777
	DAC EFMTEM	/CHANGE PC
	JMP EFMTEM+1	/DON'T INDEX PC


LEAVE,	ISZ EFMTEM
	DZM F
	JMP I EFMTEM

LFM=JMS .	0
	JMP I .-1

FLAM,	JMS JLAC
	LAC ACS
	XOR (1
	DAC ACS
	JMP BACK



/CAS
FCAS,	JMP . 20
	LAC ACS
	XOR YS
	SNA
	JMP FCASDF
FCAS1,	LAC ACS
	SZA
	JMP CASEND 2
	JMP CASEND
FCASDF,	LAC EFMTEM
	DAC FCASTM
	EFM
	FSB YX
	LFM
	LAC FCASTM
	DAC EFMTEM
	LAC ACL
	SZA
	JMP FCAS1
	SKP
CASEND,	ISZ EFMTEM
	ISZ EFMTEM
	JMP BACK
FCASTM,	0

START
