# Promote an event occuring in rmode (during a FINT) to the pmode handler.
#  The IDT issues happened already.


cell=2
	L IRQup
	#	nosurprises		# redundant probably.
		  push DS
		  push ES
			loadmachinestatusdual 1
			HL ; ab   0xea ; ad   $ring0cs   0x10 ; L ring0cs
cell=4
				push A
					= 0x18 to A
					= A to DS
					= A to ES
				pull A

				submit 0 ;		 L pigname

				otheroperandsize ; push A
			zero A
			= A  to CR0
cell=2
			pull A
		  pull ES
		  pull DS
	#	surprises
	return	; L endIRQup
cell=4


echo "

IRQs figure to be and remain off during most Ha3sm async events, using
interrupt gates. That propagates to IRQs being off for a default IRQup.

IE-flag gets cleared by an rmode event.

" > /dev/null
