Advertisement
patryk

Untitled

Mar 10th, 2015
1,988
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $mod52
  2. org 00H
  3.  
  4. etstart:
  5. mov A, #0
  6. eta:
  7. mov P2, A
  8. inc A
  9. call delay
  10. CJNE A,#9H,eta
  11. add A,#6
  12. sjmp etb
  13.  
  14. etb: mov P2, A
  15. inc A
  16. call delay
  17. CJNE A,#1AH,etb
  18. add A,#6
  19. sjmp etc
  20.  
  21. etc: mov P2, A
  22. inc A
  23. call delay
  24. CJNE A,#2AH,etc
  25. add A,#6
  26. sjmp etd
  27.  
  28. etd: mov P2, A
  29. inc A
  30. call delay
  31. CJNE A,#3AH,etd
  32. add A,#6
  33. sjmp etstart
  34.  
  35. delay:
  36. mov R7, #250
  37. Dl7:
  38. mov R6, #500
  39. djnz R6, $
  40. djnz R7, Dl7
  41. ret
  42.  
  43. end
Advertisement
RAW Paste Data Copied
Advertisement