' SPEED12.BAS, test for 68hc912b32

include "regs12.lib"
declare n
' org $8000
Main:
pokeb copctl,$08		'diable COP resets and clock
poke sc0bdh,52			'9600 baud
pokeb sc0cr1,0			'8 bits no parity n1 stop
pokeb sc0cr2,$0c		'enable xmtr and rcvr
print
print "speed 12"
pokeb ddrb,1			'make PBO output
pokeb pucr,2			'enable port B pullups
do
	pokeb portb, peekb(portb) xor 1
	for n=0 to* $fffe
	next
loop
end