ajmp main
org 0030h
main: mov dptr,#tab
mov r3,#4
clr a
lp0: push a
movc a,@a+dptr
mov p0,a
mov p2,#00000001B
pop a
inc a
lcall depay
djnz r3,lp0
lcall depay
lcall depay
mov r3,#6
mov b,#11111011b
lp1: push b
push a
movc a,@a+dptr
mov p0,a
mov p2,b
pop a
inc a
mov 40h,a ;暫存A的內容
pop a ;將堆棧中B的值彈出給A
rl a
mov b,a
mov a,40h ;恢復A中的內容
lcall depay
djnz r3,lp1
lcall depay
lcall depay
ajmp main
depay:mov r2,#50 ;延時子程序
de0: mov r0,#50
de1: mov r1,#50
de2: djnz r1,de2
djnz r0,de1
djnz r2,de0
ret
tab: db 3fh,06h,5bh,4fh,66h,6dh,7dh,07h,7fh,6fh
end