# too small or wierd for subroutines, too PC for osimplay itself. Or not.


	# otheroperandsize was named with the idea that it would be rare. 
			# Forreal Mode may change that, hence dismisso. 
dismisso () {
otheroperandsize
dismiss
}



othersize () {
	otheroperandsize
	otheraddresssize
}




softNMI   () { # MACRO		see global/NMI/routines for setup
        = 0x462 to D		# quickie software NMI trigger, EISA-era 
        = $I_______ to A	# port, if NMI enabled
        send byte
}



wipecore () {		# cell-sensitive phat macro
if test $cell -eq 2 ; then

	otheroperandsize
	zero A
	otheroperandsize
	zero B
	otheroperandsize
	zero C
	otheroperandsize
	zero D
	otheroperandsize
	zero SP
	otheroperandsize
	zero BP
	otheroperandsize
	zero SI	
	otheroperandsize
	zero DI

else
	zero A
	zero B
	zero C
	zero D
	zero SP
	zero BP
	zero SI	
	zero DI
fi
}


wiperegs () {
	wipecore
	= A to DS
	= A to ES
	= A to FS
	= A to GS
}
