API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
66
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.21 KB | None | 0 0
raw download clone embed print report
  1. #DEFINE PAGE0 BCF H'03',5
  2. #DEFINE PAGE1 BSF H'03',5
  3.  
  4. OPSHUN EQU H'81' ;
  5. PCL EQU H'02' ;
  6. STATUS EQU H'03' ;
  7. PORTA EQU H'05' ;
  8. TRISA EQU H'85' ;
  9. PORTB EQU H'06' ;
  10. TRISB EQU H'86' ;
  11. INTCON EQU H'0B' ;
  12.  
  13. W EQU 0 ;
  14. F EQU 1 ;
  15. C EQU 0 ;
  16. DC EQU 1 ;
  17. COUNT1 EQU H'30'
  18. N EQU D'249'
  19. TEMP EQU H'35'
  20. Z EQU 2
  21.  
  22. ORG 0 ; Reset vector
  23. GOTO 5 ; Goto start of program
  24. ORG 4 ; Interrupt vector
  25. GOTO 5 ; Goto start of program
  26. ORG 5 ; Start of program memory
  27.  
  28. CLRF PORTA ;
  29. CLRF PORTB ;
  30.  
  31.  
  32. PAGE1
  33. CLRF TRISA ;Port RA0 as output (see text)
  34. CLRF TRISB ;Port B0-B7 as output
  35.  
  36.  
  37. PAGE0
  38.  
  39. ;---------------------------------------------------------------------------;
  40.  
  41. MAIN
  42.  
  43. MOVLW 05 ;
  44. CALL TABLE ;
  45. MOVWF PORTB ;
  46. BSF PORTA,0 ;
  47. CALL DEL_H
  48. CLRF PORTA
  49.  
  50. ;---------------------------------------------------------------------------------------------;
  51.  
  52. TWO
  53.  
  54. MOVLW 06 ;
  55. CALL TABLE ;
  56. MOVWF PORTB ;
  57. BSF PORTA,1
  58. CALL DEL_H
  59. CLRF PORTA
  60.  
  61.  
  62. ;----------------------------------------------------------------------------------------------;
  63.  
  64.  
  65. THREE
  66. MOVLW 07 ;
  67. CALL TABLE ;
  68. MOVWF PORTB ;
  69. BSF PORTA,2
  70. CALL DEL_H
  71. CLRF PORTA
  72.  
  73.  
  74. ;-------------------------------------------------------------------------------------------------;
  75.  
  76.  
  77. FOUR
  78. MOVLW 08 ;
  79. CALL TABLE ;
  80. MOVWF PORTB ;
  81. BSF PORTA,3
  82. CALL DEL_H
  83. CLRF PORTA
  84. GOTO MAIN
  85.  
  86. ;------------------------------------------------------------------------------------------------;
  87. ;NUMBER TABLE;
  88.  
  89. TABLE ADDWF PCL,F ;add to PCL
  90. RETLW B'11000000' ;0 common anode codes
  91. RETLW B'11111001' ;1
  92. RETLW B'10100100' ;2
  93. RETLW B'10110000' ;3
  94. RETLW B'10011001' ;4
  95. RETLW B'10010010' ;5
  96. RETLW B'10000011' ;6
  97. RETLW B'11111000' ;7
  98. RETLW B'10000000' ;8
  99. RETLW B'10011000' ;9
  100.  
  101.  
  102. ;-----------------------------------------------------------------------;
  103.  
  104.  
  105. DEL_H MOVF STATUS,W
  106. MOVWF TEMP
  107.  
  108. MOVLW D'3'
  109. MOVWF COUNT1
  110.  
  111. DELAY_1MS MOVLW N
  112.  
  113. D_LOOP
  114. ADDLW -1
  115. BTFSS STATUS,Z
  116. GOTO D_LOOP
  117.  
  118. DECFSZ COUNT1,f
  119. GOTO DELAY_1MS
  120.  
  121. MOVF TEMP,W
  122. MOVWF STATUS
  123.  
  124. return
  125.  
  126.  
  127. ;-----------------------------------------------------------------------------;
  128.  
  129.  
  130. END ;final line
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!