f.asm

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

org 0000h
ajmp main
org 000bh
ljmp ding
org 0030h
main:
mov tmod,#00h
mov tl0,#100
mov th0,200
setb ea
setb et0
setb tr0
goon:mov p1,#00h
lcall delay1
mov p1,#0feh
lcall delay1
ajmp goon
ding:
mov tl0,#100
mov th0,200
mov P3,#0f0h
mov a,P3
cjne a,#0f0h,de
er:mov a,r1
mov dptr,#tab
movc a,@a+dptr
mov P2,#01h
mov P0,a
setb tr0
re:reti

de:lcall delay
cjne a,#0f0h,go2
ajmp re
go2:clr tr0
mov r2,#0feh
mov r0,#00h
st:
   mov P3,r2
mov a,P3
jb acc.7,one
mov a,#00h
ajmp lkp
one:jb acc.6,two
mov a,#01h
ajmp lkp
two:jb acc.5,thr
mov a,#02h
ajmp lkp
thr:jb acc.4,next
mov a,#03h
ajmp lkp
lkp:add a,r0
cjne a,#10h,lkp1
mov a,#00h
lkp1:mov r1,a
ljmp er
next:
inc r0
inc r0
inc r0
inc r0
cjne r0,#0bh,l1
mov r0,#00h
ajmp st
l1:cjne r2,#0feh,l2
mov r2,#0fdh
ajmp st
l2:cjne r2,#0fdh,l3
mov r2,#0fbh
ajmp st
l3:cjne r2,#0fbh,l4
mov r2,#0f7h
ajmp st
l4:cjne r2,#0f7h,reG
mov r2,#0feh
reG:
setb tr0
reti
delay:mov r7,#0dh
del1:mov r6,#0ffh
del2:djnz r6,del2
djnz r7,del1
ret
delay1:MOV R3,#10
D:mov r5,#0ffh
de1:mov r4,#0ffh
de2:djnz r4,de2
djnz r5,de1
DJNZ R3,D
ret
tab:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H
    db 7FH,6FH,77h,7ch,39h,5eh,79h,71h

end