# use16 reflexen, Big Dog (otheroperandsize'd) segmented traps

L twitch16P
	push A
	push ES
	push DS
		= 0xb800 to A
		= A to ES
		= A to DS
		= @ 2620 to A
		1+ A
		= A to @ 2620
	pull DS
	pull ES
	pull A
otheroperandsize
dismiss



L IRQtwitch16P
	push A
	push ES
	push DS
		= 0xb800 to A
		= A to ES
		= A to DS
		= @  280	 to A 		# no regs
		1+ A
		= A to @ 280
		# 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
otheroperandsize
dismiss



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

		= @  120	 to A # no regs
		+ 111111 to A
		= A to @  120
		# 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
otheroperandsize
dismiss



L IDT16Ppointer
HL
ad 2048
aq $IDT16P

