;8X8LED點陣測試程序
org 00h
mov r5,#0b
mov r4,#0b
mov r1,#31
main:inc r5
mm0:cjne r5,#0,mm1
mov r7,#1b
mm1:cjne r5,#1,mm2
mov r7,#11b
mm2:cjne r5,#2,mm3
mov r7,#111b
mm3:cjne r5,#3,mm4
mov r7,#1111b
mm4:cjne r5,#4,mm5
mov r7,#11111b
mm5:cjne r5,#5,mm6
mov r7,#111111b
mm6:cjne r5,#6,mm7
mov r7,#1111111b
mm7:cjne r5,#7,mm8
mov r7,#11111111b
mm8:cjne r5,#8,mm9
mov r7,#11111110b
mm9:cjne r5,#9,mm10
mov r7,#11111100b
mm10:cjne r5,#10,mm11
mov r7,#11111000b
mm11:cjne r5,#11,mm12
mov r7,#11110000b
mm12:cjne r5,#12,mm13
mov r7,#11100000b
mm13:cjne r5,#13,mm14
mov r7,#11000000b
mm14:cjne r5,#14,mm15
mov r7,#10000000b
mm15:cjne r5,#15,mm16
mov r7,#00000000b
mov r5,#0
inc r4 

mm16:djnz r1,maa
mov r1,#47
cpl 00h

maa:

jb 00h,ma0

mov sbuf,#0ffh
mov p0,r7
mov p1,r7
mov p2,r7

jmp nn3

ma0:
mov sbuf,r7
mov p0,#0ffh
mov p1,#0ffh
mov p2,#0ffh
nn0:cjne r4,#0,nn1
mov p0,#0
nn1:cjne r4,#1,nn2
mov p1,#0
nn2:cjne r4,#2,nn3
mov p2,#0
nn3:cjne r4,#3,nn4
mov r4,#0
nn4:


ma1:call d00

jmp main

mov p1,r6
call d00
mov p1,#0ffh

mov p2,r6
call d00
mov p2,#0ffh

mov a,r6
rl a
mov r6,a


d00:mov r2,#200
d10:mov r3,#250
djnz r3,$
djnz r2,d10
ret



end