include "regs12.lib"

'Declare the RTI ISR, used to generate timed delays.
declare  wait				'delay counter
interrupt  $fff0			'RTI ISR
if wait <> 0				'if not done yet...
	wait = wait - 1			'count this tick
endif
pokeb rtiflg, $80			'clear RTI flag
end

Main:
  ' Disable the COP right away!
  pokeb copctl,0

  ' Enable serial port

  poke  sc0bdh, 26        ' Set for 19200 baud
  pokeb   sc0cr2,$0c      ' Enable transceiver
  print "intr1.bas started"


  pokeb rtictl, $81			' Turn on the RTI

  interrupts on				'allow interrupts
  do
	wait = 2000
      	do
	loop while wait <> 0
	print "r";
  loop
end