# period, tickeron, tickeroff, ticksplus...

# enable NMI at the mask, which the DaVincis at IBM put on the CMOS
#	port Msbit

L ticks                     # 64-bit ticks-elapsed
allot 8			    # 500,000 years at 1.18 mhz		

####### put this on the screen for testing.
### These are not the real deal. These are the NMI WIRE, which I think I 
#	want to leave on. Another off option is a vacuous reflex. 
# mode 0 is a one-shot, but I don't know which way it sticks after the shot.

#L NMIon
#	= 0x70 to DI
#	recieve byte
#	OR 0x80 to A
#	send byte
#		return
#L NMIoff
#	= 0x70 to DI
#	recieve byte
#	AND 0x7f to A
#	send byte
#		return
#


L pulse 

			# coded without a register for a callee-saves pulse
ticksplus () {		# inline macro as well
	1+ @ $ticks
	+carry 0 to @ $(($ticks+4))	# add the carry to high quad if  
					# a carry exists or not
}

	dismiss
