1	.equ    p6ddr,  0xffb9          ;0x7f for output
2	.equ    p6dr,    0xffbb
3	.equ    seed,    0x01
4	.text
5	.org    0
6reset:  .word   main            ;reset vector
7;
8	.org    0x400
9main:   mov.b   #0x7f,r0l       ;port 6 ddr = 7F
10	mov.b   @0xffbb:8,r0l   ;***test***
11	mov.b   r0l,@p6ddr:16
12;
13	mov.b   #seed,r0l       ;start with 0000001
14loop:   mov.b   r0l,@p6dr:16    ;output to port 6
15delay:  mov.w   #0x0000,r1
16deloop: adds    #1,r1
17	bne     deloop:8        ;not = 0
18	rotl    r0l
19        bra     loop:8
20	.word	0
21