q.asm

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

org 0000h
ajmp main
org 000bh
ajmp start
org 0030h
main:
mov tmod,#00h
mov tl0,#00h
mov th0,#00h
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,#100
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
ajmp ww
start:
mov tl0,#00h
mov th0,#00h
djnz r7,re
mov r7,#100
clr tr0
mov tl0,#00h
mov th0,#00h
inc r0
re:setb tr0
reti
delay:mov r6,#6
se:mov 21h,#100
djnz 21h,$
djnz r6,se
ret
tab:db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h
db 7fh,6fh
end