## the top calendar-time clock interrupt response, 3 possible causes
#    discerned and subresponses dispatched here, and "dismiss" is here,
#	which keeps the stack in order.



			# the reflex
L wallclock		# there's 3 interrupt types from the wallclock
			#   for us to differentiate. 
	= 12 to B				# Status register C
	recieve byte $calendar			# inlined readcalendar
	AND 0xe0 with A			
	OR B to A
	send byte $calendar
	recieve byte $(($calendar+1))	#
	push A
	ANDtest A with `binary 10000`
		when	zero	twarntupdate
	 call persecond
  L twarntupdate
	pull A	
	push A
        ANDtest A with `binary 100000`
		when	zero	twarntalarm
	 call alarm
  L twarntalarm
	pull A
        ANDtest A with `binary 1000000`
		when	zero	twarntnuthin
	 call subsecond
  L twarntnuthin
			dismiss



