# Forreal Mode. demo some reflexes. Schmegmented interrupts/dismiss'es.
# Keep these around for the setIDTs and the defaulting.


L twitch32unP
	push A
		= @ $((0xb8000+2640)) to A
		1+ A
		= A to @ $((0xb8000+2640))
	pull A
otheroperandsize	# does return from 6-byte faux INT call
dismiss


#L IRQtwitch32unP
#push A
#	= @  $((0xb8000+300))	 to A 		# no regs
#	1+ A
#	= A to @  $((0xb8000+300))
#	# EOIRQ
#		push D
#			= `binary 00100000` to A
#			= 0xa0 to D
#			send byte
#			= 0x20 to D
#			send byte
#		pull D
#	pull A
#otheroperandsize
#dismiss
#
##
#
#L IRQ0twitch32unP
#push A
#	= @  $((0xb8000+140))	 to A # no regs
#	+ 111111 to A
#	= A to @  $((0xb8000+140))
#	# EOIRQ
#		push D
#			= `binary 00100000` to A
#			= 0xa0 to D
#			send byte
#			= 0x20 to D
#			send byte
#		pull D
#	pull A
#otheroperandsize
#dismiss
#
#
#

L IDT32unPpointer
HL
ad 1024
aq $IDT32unP


