51 交通灯 汇编

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