/AM/AD 8E TASK (AD MULTIPLEXER TASK

/J.M.SCHIPPER,EMG
/DIJKZIGT,ROTTERDAM
/19-SEPT-75.

	"A^100+"M&3777	/NAME AM,AD IOT EMULATOR TASK
	200		/ONE PAGE NO CONNECTS
EMBASE,	0

ENTRY,	CDF MONFLD
	SMA
	JMP AMREL	/CAN'T RUN OR ^C SWAPOUT
	TAD C2
	DCA AUTO11	/POINTER TO UPC-1
	TAD AUTO11
	TAD C3
	DCA AMACC	/POINTER TO UAC
	TAD AMACC
	DCA AUTO10	/POINTER TO UINSTR
	TAD I AUTO10	/FETCH THE IOT INSTRUCTION
	DCA AMINSTR	/STRORE IN ON A USEFULL PLACE
	TAD AMINSTR	/DETERMINE WHICH AD IOT INSTR.
	AND C7		/MASK THE X FROM 653X
	TAD (JMP AMBASE
	DCA .+1		/FORM A JMP TO THE IOT
	HLT		/OVERLAYED Y JMP ADXX
AMBASE,	JMP ADCL	/6530
	JMP ADLM	/6531
	JMP ADST	/6532
	JMP ADRB	/6533
	JMP ADSK	/6534
	JMP ADSE	/6535
	JMP ADLE	/6536
	JMP ADRS	/6537

ADLE,	TAD I AMACC
	AND (7677	/ONLY AUTO INDEX IS ALLOWED
	SZA CLA
	 JMP AMERR	/ANYTHING ELSE IS AN ERROR
ADLM,
ADST,
ADRB,
ADSE,
ADRS,
ADDO,	TAD I AMACC	/FETCH UAC THE INTRUCION KNOW DO WITH THE ACC
AMINST53X
	DCA I AMACC	/STORE THE IOT IN UAC
	JMP AM	STA
	JMS MONITOR
	   EXIT SWPOUT
AMREDY,	JMS MONITOR
HOW,	   EXIT		/KEEP A CLAIM UNTIL ^C OR ADCL

ADSK,	STA		/ADSK IS  OVERLAYED BY A SKP IN THE BG
	TAD I AUTO11	/SET UPC ONE BACK
	DCA ZTEM2
	TAD I AUTO11	FLD
	AND C70
	TAD C620PUT A SKP
	HLT		/IN BG /ON THE ADSK PLACE
	JMPIT SWPOUT
	DCA HOW
	JMP ADDO	/SWPOUT TASK AND LOSS THE CLAIM
AMACC,	0
$