.z80
	org	100h

nmap	equ	0806h
restor	equ	0815h
tskbase equ	0803h
pcofst	equ	0dh
hstrap  equ    01ah

	jp	begin 

	.phase 1000h

begin:	halt
	halt
	ld	hl,trapchk
	ld	(01h),l			;rewrite 'super'
	ld	(02),h
	ld	a,0
	ld	(2000h),a

trapchk:
	ld	a,(2000h)
	ld	b,a
	inc	b
	ld	(2000),b
	cp	0f
	jp	z,cpmret
	ld	hl,jtable
	rlc
	rlc
	ld	e,a		;ofset into table
	add	hl,de
	jp	(hl)

thalt:
tinp:
tout:
tint:
txonly:
tronly:
tnaces:
tr10:
tstop:
cpmret:   ld   a,(switch)
          and  0f8h
          ld   (016h),a
          xor  a
          ld   (015h),a
          inc  a
          ld   (ctask),a
          ld   a,hsmask
          ld   (021),a
          ld   (cmask),a
          jp   restor          
Š          
jtable	equ	$

	jp	thalt
	nop
	jp	tinp
	nop
	jp	tout
	nop
	jp	tint
	nop
	jp	txonly
	nop
	jp	tronly
	nop
	jp	tnaces 
	nop
	jp	tr10
	nop
	jp     tstop