;•‘ςKH‹Ζ‚ZκU‰ΘƒƒJƒgƒƒjƒNƒXHŠw
;‰Ή‹Ώo—́FRA4‚Ιˆ³“dƒXƒs[ƒJ‚πΪ‘±
;
	include	16f84.h
	.osc	hs
	.pwrt	on
	.wdt	off
	.protect off
;
	org	0ch
tm1	ds	1
tm2	ds	1
tm3	ds	1
tm4	ds	1
;
	org	0
	goto	start
	org	4
	goto	start
start
	mov	!ra,#0fh	;ra4=sound output
	mov	!rb,#0
	clr	rb
;
main	call	a1
	call	wait
	call	a2
	call	wait
	call	a3
	call	wait
	call	a4
	call	wait
	call	a5
	call	wait
	call	a6
	call	wait
	call	a7
	call	wait
	call	a8
	call	wait
	goto	main
;
a1	mov	w,#7eh
	mov	rb,w
	mov	tm4,#50
	mov	tm3,#50
	call	sd
	ret
;
a2	mov	w,#48h
	mov	rb,w
	mov	tm4,#44
	mov	tm3,#56
	call	sd
	ret
;
a3	mov	w,#3dh
	mov	rb,w
	mov	tm4,#40
	mov	tm3,#63
	call	sd
	ret
;
a4	mov	w,#6dh
	mov	rb,w
	mov	tm4,#37
	mov	tm3,#66
	call	sd
	ret
;
a5	mov	w,#4bh
	mov	rb,w
	mov	tm4,#33
	mov	tm3,#75
	call	sd
	ret
;
a6	mov	w,#67h
	mov	rb,w
	mov	tm4,#30
	mov	tm3,#83
	call	sd
	ret
;
a7	mov	w,#77h
	mov	rb,w
	mov	tm4,#27
	mov	tm3,#94
	call	sd
	ret
;
a8	mov	w,#4ch
	mov	rb,w
	mov	tm4,#25
	mov	tm3,#100
	call	sd
	ret
;
sd	bsf	ra,4
	mov	tm2,tm4
sd2	clr	tm1
sd3	djnz	tm1,sd3
	djnz	tm2,sd2
	bcf	ra,4
	mov	tm2,tm4
sd4	clr	tm1
sd5	djnz	tm1,sd5
	djnz	tm2,sd4
	djnz	tm3,sd
	ret
;
wait	mov	tm1,#5
wait0	clr	tm2
wait1	clr	tm3
wait2	nop
	djnz	tm3,wait2
	djnz	tm2,wait1
	djnz	tm1,wait0
	ret