ORG 0000H
LJMP MAIN
ORG 0030H
main:lcall hongdeng
lcall delay1
lcall tiaoshi
lcall huangdeng
lcall delay2
lcall tiaoshi
lcall lvdeng
lcall delay3
lcall tiaoshi
ljmp main
hongdeng:mov dptr,#3fffh
mov a,#2h
movx @dptr,a
ret
huangdeng:mov dptr,#5fffh
mov a,2h
movx @dptr,a
ret
lvdeng:mov dptr,#5fffh
mov a,4h
movx @dptr,a
ret
delay1:mov r1,#100
w1:mov r2,#10
djnz r1,$
djnz r2,w1
ret
delay2:mov r1,#50
w2:mov r2,#10
djnz r1,$
djnz r2,w2
ret
delay3:mov r1,#100
w3:mov r2,#10
djnz r1,$
djnz r2,w3
ret
ww:tmod,#10h
mov th1,#0fch
mov tl1,#18h
setb tr1
setb ea
ajmp $
end