blg351exp5

;-------------------------------------------------------------------------------
; Main loop here
;-------------------------------------------------------------------------------

	call #zero
set
	mov #array, r5
	mov #0x0, r6
loop
	mov.b 0(r5), &P1OUT
	call #delay
	inc r5
	inc r6
	cmp #0xa, r6
	jl loop
	jmp set

	jmp end

zero
	mov.b #0xff, &P1DIR
	mov.b #0xff, &P2DIR
	mov.b #0x08, &P2OUT
	mov.b #0x3f, &P1OUT
	ret

delay
	mov.w #0xa, R14
l2	mov.w #0x7a00, R15
l1	dec.w R15
	jnz l1
	dec.w R14
	jnz l2
	ret

array .byte 0x3f, 0x06, 0x5b, 0x4f, 0x66, 0x6d, 0x7d, 0x07, 0x7f, 0x6f

end
	nop