#include "C:\Reg9s12.H"
        ORG     $2000

;_____PORT B OUTPUT
        LDAA    #$FF
        STAA    DDRB      ;Turn PORTB into an Output
;___________

        STAA    DDRJ      ;Turn PORTJ into an Output
        LDAA    #$0
        STAA    PTJ       ;To access LED PTJ = #$0

;______Make PTH = Input (PTH connected to Switches on Dragon 12)
        LDAA    #%00000000
        STAA    DDRH      ;Make PTH an Input
L2      LDAA    PTH
        ADDA    #5
        STAA    PORTB
        BRA     L2
        END