/VC8E TASK		15 APRIL 1975	J.VERBURG.
/LAST EDIT: 19-SEPT-75, JMS
/LAST EDIT:  9-MAY-75, JV
/CREATED: 15-APRIL-75, JV

*200
	"S^100+"C&3777	/SC, SCOPE IOT EMULATOR TASK
	200
TVAC,	0
	CDF MONFLD
	SMA		/AC SHOULD CONTAIN POINTER TO
	 JMP TVERR	/BACKGROUND DATA AREA.
	TAD C2
	DCA AUTO11
	TAD AUTO11
	TAD C3		/BUG !
	DCA TVAC
	TAD TVAC
	DCA AUTO10
	TAD I AUTO10
	DCA TVINST
	TAD TVINST
	AND C7
	TAD (JMP TVBASE
	DCA .+1
	HLT	/OVERLAID BY JMP TVBASE+#
TVBASE,	JMP TVDO	/6050
	TAD (NOP-SKP	/6051
	JMP TV6052	/6052
	JMP TVDO	/6053
	JMP TVDO	/6054
	JMP TVDO	/6055
	JMP TV6056	/6056
	6057		/6057
	AND (7776	/DON'T TELL HIM IF INT ENABLE
	JMP TVDCA

TV6056,	AC0001
	AND I TVAC
	SZA CLA		/INT ENABLE ?
	 JMP TVERR
	TAD I TVAC
	AND (10		/ERASE ?
	SNA CLA
	 JMP TVDO	/NO
	AC0001
	TAD I TVAC
	6056
	ACM1		/FIRST FORGET OLD INTRUPTS
	JMS MONITOR
	   WAIT
	   DPL
	TAD (-5		/TIMEOUT 0,5 SECOND
	JMS MONITOR
	   WAIT
	   DC
	AND (66
	JMP TVINSTLE BITS

TV6052,	TAD C	TAD I AUTO11	/PROGRAM C AUTO11	/FIELDS
	AND C70		/INSTR. FIELD
	TAD C6201
	DCA .+2
	TAD ZTEM1
	HLT		/REPLACED BY CDF USERS IF
	DCA I ZTEM5
	JMP TVREDY

TVDO,	TAD I TVAC
TVINST,	HLT		/605X
TVDCA,	DCA I TVAC
CSKP,	SKP
TVERR,	 AC
	   EXIT RELEASE

$