/NAME : "FR"	/BACKGROUND EMULATOR TO HANDLE FRIDO

/9-JULY-1975 J.M.S.


/CALL
/	TAD (5		/5 INDICATES "FR".
/	GIANT		/GIANT IOT =6770
/	RETURNS HERE!!!	/AC=STATE OR 0
/	FUNC



/PROGRAM FUNCTION WORD 
/
/-------------------------------------------------------
/ I 0 I 1 I 2 I 3 I 4 I 5 I 6 I 7 I 8 I 9 I 10 I 11 I
/-------------------------------------------------------
/  W/R		   UNIT       DEV          STATE
/
/
/BIT 6-8:
/0=AMPLIFIER
/1=HP FILTER
/2=LP FILTER
/
/
/BIT 9-11:
/
/STATE	AMPL	HPF	LPF
/---------------------------
/000	10	2	500	UV,HZ,HZ
/001	40	20	2000
/010	100	50	5000
/011	200	100	10000
/100	500	---	---
/101	2000	---	---
/110	5000	---	---
/111	20000	---	---
/-------------------------------



EJECT

FRUPC,	"F^100+"R&3777	/"FR" NAME
PNT,	200		/ONE PAGE
TEMP,	0

ENTRY,	SMA
	JMP FREXIT	/YOU CANNOT RUN THIS MODULE
	TAD C3		/ENTRY AC =BJOB
	DCA FRUPC	/POINTS TO USER SAVE TABLE
	TAD FRUPCISZ PNT
	TAD I PNT	/GET/MASK USER FIELD
	TAD CO CALL FIELD
	TAD I FRU
	IAC		/SETUP USER RETURN ADDRESS
FRGFLD,	HLT	/OVERLAYED BY CALLING FIELD INTRUCTION
	JMS DEFER	/GET FUNC.WORD
TRY,	JMS MONITOR
	CALL
	"D^100+"O&3777	/CALL FRIDO INTERR. HANDLER
	JMP TRY		/ BUSY -   TRY AGAIN	DCA I PNT	/PUT STATE INONITOR
	EXIT+RELEASE	/WIS MODULE


	$-$-$