org 00h
ajmp dlv
org 0030h
dlv: mov r2,#08h ;賦循環初值
dlv1: mov r3,#0fah
dlv2: cpl p3.3 ;產生脈沖
lcall d5ms ;延時
djnz r3,dlv2
djnz r2,dlv1
mov r2,#10h ;改變循環初值
dlv3: mov r3,#0fah
dlv4: cpl p3.3
lcall d25ms
djnz r3,dlv4
djnz r2,dlv3
sjmp dlv
d5ms: mov r7,#0ffh ;延時5MS
loop:nop
nop
djnz r7,loop
ret
d25ms: mov r6,#0ffh
lin:djnz r6,lin ;延時2.5MS
ret
end