# rmode version of way-pre-Ha3sm dummy loop for testing IRQup

L RMODEtest

zero A
= A to CR0			# pow.
cell=2

jump djjhksdfhsh
L djjhksdfhsh


ab 0xea 
ad $rm 
ad 0
L rm



= 0xb800 to A
= A to DS



L rmloop

        = A to @ $((0x100))
	1+ A
	1+ A
halt

jump 					rmloop			


halt
halt
halt
halt

cell=4
