;	INTERRUPT DRIVER S/U ADDENDUM
;	(SUMULATED M/U ENVIRONMENT)
;
;
	NAM	IOSSU
;
;	REV	00.01		; FOR 04.23 EQUIVALENCE
;	REV	00.02		; REMOVE SUPERFLUOUS LOGIC
;	REV	00.03		; FIX STACK BUG
;	REV	00.04		; SBW 7/17/82 GIVEUP must enable interrupts
;
	ENT	CXTCB,GIVEUP
	ENT	FSCHED,DEVIO,BNKSEL,CURMAP,MAPMAP,SXSTAT
	ENT	INTSTK,MAXMAX,TIMVAL,TIMVL2,TIKCNT
;
	EXT	DELAY,eiinst			;00.04
;
	ICL	DOSPARM.MU	;02.39
;
CXTCB:	DW	TCBX
TCBX:	DB	80H
TIKCNT:	DB	0
TIMVAL:	DW	0
TIMVL2:	DW	0
MAXMAX:	EQU	255				;00.01
SXSTAT:	DB	80H
CURMAP:	DB	0
MAPMAP:	EQU	0				;00.01
	DW	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DW	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	DW	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
SXSTK:	DB	0				;00.03
INTSTK:	DW	SXSTK				;00.03
;
GIVEUP:
	call	eiinst				;00.04
	PUSH	PSW
G2:	LDA	TCBX
	ANI	TCBINT
	jnz	g2				;00.04
;
	POP	PSW				;00.04
FSCHED:
DEVIO:
BNKSEL:
	RET
;
	END
