;
;		AKI-PGM Sample Program
;		Copyright (c) 1997 by M.Ochiai
;
;



		include	16f84.h


		.osc	hs
		.pwrt	on
		.wdt	off
		.protect off



		org	0ch
poi		ds	1
wk		ds	1

tm1		ds	1
tm2		ds	1


		org	0
		goto	start
		org	4
		goto	start
getpattern	jmp	pc+w
		retw	0000b,00000001b
		retw	0000b,00000010b
		retw	0000b,00000100b
		retw	0000b,00001000b
		retw	0000b,00010000b
		retw	0000b,00100000b
		retw	0000b,01000000b
		retw	0000b,10000000b
		retw	0001b,00000000b
		retw	0010b,00000000b
		retw	0100b,00000000b
		retw	1000b,00000000b

		retw	1000b,00000000b
		retw	0100b,00000000b
		retw	0010b,00000000b
		retw	0001b,00000000b
		retw	0000b,10000000b
		retw	0000b,01000000b
		retw	0000b,00100000b
		retw	0000b,00010000b
		retw	0000b,00001000b
		retw	0000b,00000100b
		retw	0000b,00000010b
		retw	0000b,00000001b

start		clr	ra
		clr	rb
		mov	!ra,#0
		mov	!rb,#0

main0
		clr	poi
main		mov	wk,poi
		clc
		rl	wk
		mov	w,wk
		call	getpattern
		mov	ra,w
		
		inc	wk
		mov	w,wk
		call	getpattern
		mov	rb,w
		
		call	wait
		
		inc	poi
		cjb	poi,#24,main
		goto	main0

wait
		clr	tm1
wait0		clr	tm2
wait1		nop
		djnz	tm2,wait1
		djnz	tm1,wait0
		ret