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