API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 27th, 2019
260
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pic 16 1.67 KB | None | 0 0
raw download clone embed print report
  1.     ORG 0x00
  2. CONT EQU 0x20
  3. CONT1 EQU 0x21
  4. CONTINI EQU 248
  5.  
  6. DIGA EQU 0x30
  7. DIGB EQU 0x31
  8. DIGC EQU 0x32
  9. DIGD EQU 0x33
  10.  
  11. INICIO:
  12.  
  13.     CLRF DIGA
  14.     CLRF DIGB
  15.     CLRF DIGC
  16.     CLRF DIGD
  17.    
  18.     MOVLW TRISB
  19.     MOVWF FSR
  20.     CLRF INDF
  21.     MOVLW TRISC
  22.     MOVWF FSR
  23.     CLRF INDF
  24.     MOVLW 0x00
  25.     MOVWF PORTC
  26.  
  27. CONTA
  28.     CALL MOSTRA
  29.  
  30.     INCF DIGA, F
  31.     MOVLW 10
  32.     SUBWF DIGA, W
  33.     BTFSS STATUS,Z
  34.     GOTO CONTA
  35.     CLRF DIGA
  36.     INCF DIGB, F
  37.     MOVLW 10
  38.     SUBWF DIGB, W
  39.     BTFSS STATUS,Z
  40.     GOTO CONTA
  41.     CLRF DIGB
  42.     INCF DIGC, F
  43.     MOVLW 10
  44.     SUBWF DIGC, W
  45.     BTFSS STATUS,Z
  46.     GOTO CONTA
  47.     CLRF DIGC
  48.     INCF DIGD, F
  49.     MOVLW 10
  50.     SUBWF DIGD, W
  51.     BTFSS STATUS,Z
  52.     GOTO CONTA
  53.     CLRF DIGD
  54.     GOTO CONTA 
  55.  
  56. MOSTRA
  57.     MOVFW DIGA
  58.     CALL DIG
  59.     MOVWF PORTB
  60.     BSF PORTC, 0
  61.     BCF PORTC,0
  62.     MOVFW DIGB
  63.     CALL DIG
  64.     MOVWF PORTB
  65.     BSF PORTC, 1
  66.     BCF PORTC, 1   
  67.     MOVFW DIGC
  68.     CALL DIG
  69.     MOVWF PORTB
  70.     BSF PORTC, 2
  71.     BCF PORTC,2
  72.     MOVFW DIGD
  73.     CALL DIG
  74.     MOVWF PORTB
  75.     BSF PORTC, 3
  76.     BCF PORTC,3
  77.     RETURN 
  78.  
  79.  
  80.    
  81.     MOVFW 0x22
  82.     CALL DIG
  83.     MOVWF PORTB
  84.     INCF 0x22,F
  85.     MOVLW 10
  86.     SUBWF 0x22,W
  87.     BTFSS STATUS,Z
  88.     GOTO CONTA
  89. FIM
  90.     GOTO FIM
  91. LOOP0      
  92.     CALL DELAY_100MS
  93.     MOVLW 0x01    ;1
  94.     MOVWF PORTB   ;1
  95.  
  96.    
  97. LOOP
  98.     CALL DELAY_100MS
  99.     RLF PORTB,F   ;1
  100.     BTFSC PORTB,7 ;1
  101.     GOTO LOOP0    ;2
  102.     GOTO LOOP          
  103.    
  104.    
  105.    
  106.    
  107. DELAY_MS
  108.     MOVLW CONTINI
  109.     MOVWF CONT
  110.     NOP
  111.     NOP
  112.     NOP
  113. DELAY_LOOP
  114.     NOP
  115.     DECFSZ CONT,F
  116.     GOTO DELAY_LOOP
  117.     RETURN 
  118.  
  119. DELAY_100MS
  120.     MOVLw 100
  121.     MOVWF CONT1
  122. DELAY_100MS_LOOP
  123.     CALL DELAY_MS
  124.     DECFSZ CONT1,F
  125.     GOTO DELAY_100MS_LOOP  
  126.     RETURN
  127.    
  128. DIG ADDWF   PCL,F  
  129. DIG0    RETLW 0x3F
  130. DIG1    RETLW 0x06
  131. DIG2    RETLW 0x5b
  132. DIG3    RETLW 0x4F
  133. DIG4    RETLW 0x66
  134. DIG5    RETLW 0x6D
  135. DIG6    RETLW 0x7D
  136. DIG7    RETLW 0x07
  137. DIG8    RETLW 0x7F
  138. DIG9    RETLW 0x6F
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!