;-------------------------------------------------
;       AKI-H8 test : April 1998
;-------------------------------------------------

;##### Port Defines #####
p6ddr   .equ    h'0fffc9
p6dr    .equ    h'0fffcb
pbddr   .equ    h'0fffd4
pbdr    .equ    h'0fffd6

;##### Vector Defines #####
        .section vector,data,locate=h'000000
        .data.l start

;##### Work RAM Data Defines #####
        .section ram,data,locate=h'0fef10
counter .res.b  1

;##### Program Area #####
        .section program,code,locate=h'000100

start:
        mov.l   #h'0fff10,er7           ; stack pointer set
        mov.b   #b'11111111,r0l
        mov.b   r0l,@p6ddr              ; set : Port[6] all output
        mov.b   #b'11111111,r0l
        mov.b   r0l,@pbddr              ; set : Port[B] all output
        mov.b   #0,r0l
        mov.b   r0l,@counter

loop:
        jsr     @wait_middle
        mov.b   @counter,r0l
        inc.b   r0l
        mov.b   r0l,@counter
        mov.b   r0l,@pbdr               ; write to Port[B]
        jmp     @loop

wait_middle:
        mov.l   #20,er3
_wait_3:
        jsr     @wait_1msec
        sub.l   #1,er3
        bne     _wait_3
        rts
wait_1msec:
        mov.l   #2048,er2
_wait_2:
        sub.l   #1,er2
        bne     _wait_2
        rts

        .end
