# use16 reflexen, schmegmented traps

L twitch16
	push A
	push ES
	push DS
		= 0xb800 to A
		= A to ES
		= A to DS
		= @ 2630 to A
		1+ A
		= A to @ 2630
	pull DS
	pull ES
	pull A
dismiss



L IRQtwitch16
	push A
	push ES
	push DS
		= 0xb800 to A
		= A to ES
		= A to DS
		= @  290	 to A 		# no regs
		1+ A
		= A to @ 290
		# EOIRQ				# would-be filemacro
		push D
			= `binary 00100000` to A
			= 0xa0 to D
			send byte
			= 0x20 to D
			send byte
		pull D
	pull DS
	pull ES
	pull A
dismiss



L IRQ0twitch16
	push A
	push ES
	push DS
		= 0xb800 to A
		= A to ES
		= A to DS	

		= @  130	 to A # no regs
		+ 111111 to A
		= A to @  130
		# EOIRQ
		push D
			= `binary 00100000` to A
			= 0xa0 to D
			send byte
			= 0x20 to D
			send byte
		pull D

	pull DS
	pull ES
	pull A
dismiss



L IDT16pointer
HL
ad 1024
aq $IDT16

