; Example 4-6 page 147
; HCS12 Microcontroller and Embedded Systems ( Mazidi/Causey )
; Dragon12-Plus Trainer
; Tester: David Munguia

#include "C:\Reg9s12.H"

      	ORG	$2000
      	BCLR 	DDRA,%10000000

;_____PORT B OUTPUT (DRAGON 12 ONLY)
      	LDAA	#$FF
      	STAA  	DDRB      ;Turn PORTB into an Output
;__________________

      	LDAA  	#$0
      	STAA  	PTJ       ;To access LED PTJ = #$0
	LDAA 	#$00
      	STAA 	DDRH
AGAIN 	BRSET 	PTH,%10000000,OVER
      	BCLR  	DDRJ,%00000010
      	BRA   	AGAIN
OVER  	BSET  	DDRJ,%00000010
      	BRA   	AGAIN
	END