' Alternately flash two LEDs connected to NanoCore12 pins PT0 and PT1

' 2/20/2009 by Carl Barnes

' To compile this file, you need to invoke the following commands:

' sbasic simple3.bas /c4000 /v3800 /s3f80 /m6812 > simple3.asm
' as12 simple3.asm

include "reg9s12c.lib"	' PORT definitions and constants for 9S12C family of MCUs

declare	n

Main:

	pokeb	ddrt,%00000011	'designate PT0 and PT1 pins as outputs
	do
	  pokeb	ptt,%00000001		'turn PT0 on and PT1 off
	  for n=1 to* 65000	'waste time
	  next
	  pokeb	ptt,%00000010		'turn PT1 on and PT0 off
	  for n=1 to* 65000	'waste time
	  next
	loop

end