Guest User

Untitled

a guest
Jul 20th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. $include(mod51)
  2.  
  3. mov P3,#00000000b
  4.  
  5. st:
  6.  
  7. call star
  8. mov P3,#00000001b
  9. call del
  10. jb P0.2,star_key
  11. mov P3,#00000010b
  12. call del
  13.  
  14.  
  15. mov P3,#00000100b
  16. call del
  17.  
  18. mov P3,#00001000b
  19. call del
  20.  
  21.  
  22. mov P3,#00100000b
  23. call del
  24.  
  25. mov P3,#01000000b
  26. call del
  27.  
  28.  
  29. mov P3,#10000000b
  30. call del
  31.  
  32.  
  33.  
  34. mov P3,#01000000b
  35. call del
  36.  
  37. mov P3,#01000000b
  38.  
  39. call del
  40. mov P3,#00100000b
  41. call del
  42.  
  43.  
  44. mov P3,#00001000b
  45. call del
  46.  
  47.  
  48. mov P3,#00000100b
  49. call del
  50.  
  51.  
  52. mov P3,#00000100b
  53. call del
  54.  
  55.  
  56. mov P3,#00000010b
  57. call del
  58. ljmp st
  59.  
  60. star_key:
  61. wait:
  62. jnb P0.2,st
  63. jmp wait
  64.  
  65. diez:
  66. setb P0.2
  67. clr P0.0
  68. setb P0.1
  69. ret
  70.  
  71.  
  72. star:
  73. setb P0.0
  74. clr P0.1
  75. setb P0.2
  76. ret
  77.  
  78. del:
  79. mov R1,#255
  80. MM2:
  81. mov R2,#255
  82. MM1:
  83. djnz R2,MM1
  84. djnz R1,MM2
  85. ret
  86.  
  87.  
  88. end
Add Comment
Please, Sign In to add comment