# Forreal Mode. demo some reflexes. Schmegmented interrupts/dismiss's.
# Keep these around for the *IDTpointers and the defaulting.


L twitch32unP
	push A
		= @ $((0xb8000+2)) to A
		1+ A
		= A to @ $((0xb8000+2))
	pull A
			# will halt
otheroperandsize	# does return from 6-byte-frame 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
