API tools faq
paste
Advertisement
proxy22

Untitled

proxy22
Jan 27th, 2020
584
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.92 KB | None | 0 0
raw download clone embed print report
  1. Kijelző/Dobókocka
  2. ---------------------------------------------------------------------------------------------
  3.  
  4. list p=18f4550
  5. #include p18f4550.inc
  6.  
  7. ORG 0x1000
  8.  
  9. CBLOCK 0
  10. SZ1
  11. SZ2
  12. SZ3
  13. ENDC
  14.  
  15. MOVLW 15
  16. MOVWF ADCON1
  17.  
  18. #DEFINE K1 LATB,5
  19. #DEFINE K1_TRIS TRISB,5
  20. ; EDCHBAGF
  21. #DEFINE MINTA_5 10011000B
  22.  
  23.  
  24.  
  25. IDE:
  26.  
  27. MOVLW MINTA_0
  28. MOVWF LATD
  29. CALL KESL
  30.  
  31. CLRF TRISD
  32. BCF K1_TRIS
  33. BCF K1
  34.  
  35.  
  36.  
  37.  
  38. GOTO IDE
  39.  
  40. KESL:
  41. MOVLW 0x255
  42. MOVWF SZ1
  43. MOVLW 0x255
  44. MOVWF SZ2
  45. MOVLW 0x5
  46. MOVWF SZ3
  47.  
  48.  
  49.  
  50.  
  51. CIKLUS:
  52. DECFSZ SZ1
  53. GOTO CIKLUS
  54. DECFSZ SZ2
  55. GOTO CIKLUS
  56. DECFSZ SZ3
  57. GOTO CIKLUS
  58.  
  59.  
  60.  
  61.  
  62.  
  63. RETURN
  64.  
  65. END
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74. ---------------------------------------------------------------------------------------------
  75. LED BE
  76.  
  77.  
  78.  
  79. list p=18f4550
  80. #include p18f4550.inc
  81.  
  82. ORG 0x1000
  83.  
  84.  
  85. MOVLW 15
  86. MOVWF ADCON1
  87.  
  88. MOVLW 7
  89. MOVWF CMCON
  90.  
  91. MOVLW 01000110B
  92. MOVWF TRISC
  93.  
  94. MOVLW 00000000B
  95. MOVWF LATC
  96.  
  97. IDA
  98. BTFSS PORTA,2
  99. GOTO IDA
  100. MOVLW 00000001B
  101. MOVWF LATC
  102.  
  103. IDE
  104. BTFSS PORTA,2
  105. GOTO IDE
  106. MOVLW 00000000B
  107. MOVWF LATC
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114. GOTO IDA
  115.  
  116. end
  117.  
  118.  
  119. ---------------------------------------------------------------------------------------------
  120.  
  121. LED BE KÉSLELTETÉS
  122.  
  123.  
  124. list p=18f4550
  125. #include p18f4550.inc
  126.  
  127.  
  128. CBLOCK 0
  129. SZ1
  130. SZ2
  131. SZ3
  132. SZ4
  133. ENDC
  134.  
  135. ORG 0x1000
  136.  
  137. MOVLW 15
  138. MOVWF ADCON1
  139.  
  140. MOVLW 01111111B
  141. MOVWF TRISC
  142. IDA:
  143. MOVLW 01111111B
  144. MOVWF LATC
  145. CALL KESL
  146.  
  147. TESZT1:
  148. BTFSS PORTA,2
  149. GOTO TESZT1
  150.  
  151. MOVLW 11111111B
  152. MOVWF LATC
  153. CALL KESL
  154.  
  155. TESZT2:
  156. BTFSS PORTA,2
  157. GOTO TESZT2
  158. GOTO IDA
  159.  
  160.  
  161. KESL:
  162. MOVLW 0x255
  163. MOVWF SZ1
  164. MOVLW 0x1
  165. MOVWF SZ2
  166. MOVLW 0x20
  167. MOVWF SZ3
  168.  
  169.  
  170. CIKLUS:
  171. DECFSZ SZ1
  172. GOTO CIKLUS
  173. DECFSZ SZ2
  174. GOTO CIKLUS
  175. DECFSZ SZ3
  176. GOTO CIKLUS
  177.  
  178. RETURN
  179.  
  180. end
  181.  
  182.  
  183. ---------------------------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!