w.asm

40个练习程序（坚持）.rar

 org 0000h
ajmp main
org 000bh
ajmp start
org 0030h
main:
mov tmod,#01h
mov tl0,#0b0h
mov th0,#3ch
setb ea
setb et0
setb tr0
mov r0,#00h
mov r1,#00h
mov r2,#00
mov r3,#00
mov r4,#02
mov r5,#01
mov r7,#20
ww:mov dptr,#tab
mov p2,#07
mov a,r0
movc a,@a+dptr
mov p0,a
lcall delay
cjne r0,#10,n1
mov r0,#00h
inc r1
cjne r1,#06,n1
mov r1,#00h
inc r2
cjne r2,#10,n1
mov r2,#00h
inc r3
cjne r3,#06,n1
mov r3,#00h
inc r4
cjne r4,#10,n1
mov r4,#00
inc r5
n1:cjne r5,#01,n2
cjne r4,#03,n2
mov r4,#00
mov r5,#00
n2:mov a,r1
mov p2,#06
movc a,@a+dptr
mov p0,a
lcall delay
mov a,r2
mov p2,#04
movc a,@a+dptr
mov p0,a
lcall delay
mov a,r3
mov p2,#03
movc a,@a+dptr
mov p0,a
lcall delay
mov a,r4
mov p2,#01
movc a,@a+dptr
mov p0,a
lcall delay
mov a,r5
mov p2,#00
movc a,@a+dptr
mov p0,a
lcall delay
fen:jb p3.1,shi
lcall delay10
jb p3.1,shi
inc r2
cjne r2,#10,shi
inc r3
mov r2,#00
shi:jb p3.2,ww
lcall delay10
jb p3.2,ww
inc r4
cjne r4,#10,aa
inc r5
mov r4,#00
aa:ajmp ww
start:
mov tl0,#0b0h
mov th0,#3ch
djnz r7,re
mov r7,#20
mov tl0,#0b0h
mov th0,#3ch
inc r0
re:setb tr0
reti
delay:mov r6,#6
se:mov 21h,#50
djnz 21h,$
djnz r6,se
ret
delay10:mov 22h,#200
df:mov 23h,#0ffh
djnz 23h,$
djnz 22h,df
ret
tab:db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h
db 7fh,6fh
end