API tools faq
paste
Advertisement
Robomatics

MultiLight Master

Robomatics
Apr 21st, 2013
320
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 2.37 KB | None | 0 0
raw download clone embed print report
  1.     list     p=16f690
  2.     #include p16f690.inc
  3.  
  4.     __CONFIG  _CP_OFF & _CPD_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT
  5.  
  6.     CBLOCK 0X20
  7.     D1
  8.     D2
  9.     TEMP
  10.     RCVDATA
  11.     CHIP
  12.     L1
  13.     L2
  14.     L3
  15.     L4
  16.     L5
  17.     L6
  18.     L7
  19.     L8
  20.     L9
  21.     L10
  22.     L11
  23.     L12
  24.     L13
  25.     L14
  26.     L15
  27.     L16
  28.     L17
  29.     L18
  30.     L19
  31.     L20
  32.     L21
  33.     L22
  34.     L23
  35.     L24
  36.     L25
  37.     L26
  38.     L27
  39.     L28
  40.     L29
  41.     L30
  42.     ENDC
  43.    
  44. ;
  45. ;      VDD -|-__-|- VSS
  46. ;   RA5-   -|o   |- RA0-CA
  47. ;   RA4-   -|    |- RA1-CB
  48. ;   RA3-   -|    |- RA2-CC
  49. ;   RC5-CI -|    |- RC0-CD
  50. ;   RC4-CH -|    |- RC1-CE
  51. ;   RC3-CG -|    |- RC2-CF
  52. ;   RC6-CJ -|    |- RB4-
  53. ;   RC7-SDO-|    |- RB5-USBRX
  54. ;   RB7-   -|----|- RB6-SCK/SCL
  55. ;  
  56.     org 0
  57.     BCF STATUS,RP0
  58.     BSF STATUS,RP1
  59.     CLRF ANSEL
  60.     CLRF ANSELH
  61.     BCF STATUS,RP1
  62.  
  63.     bsf     STATUS,RP0  ;Program Init
  64.     CLRF TRISA
  65.     CLRF TRISC
  66.     MOVLW B'01110000'
  67.     MOVWF OSCCON
  68.     CLRF SPBRGH
  69.     MOVLW 0X0C 
  70.     MOVWF SPBRG
  71.     CLRF BAUDCTL
  72.     MOVLW B'00100000'
  73.     MOVWF TXSTA
  74.     MOVLW B'00111111'
  75.     MOVWF TRISB
  76.     CLRF PIE1
  77.     MOVLW B'01000000'
  78.     MOVWF SSPSTAT
  79.  
  80.     bcf     STATUS,RP0
  81.     CLRF INTCON
  82.     MOVLW B'10010000'
  83.     MOVWF RCSTA
  84.     CLRF CCP1CON
  85.     CLRF ADCON0
  86.     CLRF PWM1CON
  87.     CLRF SSPCON
  88.  
  89.     CLRF PORTA
  90.     CLRF PORTB
  91.     CLRF PORTC
  92.    
  93.     CALL DELAY
  94.     CALL DELAY
  95.     CALL DELAY
  96.    
  97.     MOVF RCREG,W
  98.     MOVF RCREG,W
  99.     MOVF RCREG,W
  100.  
  101. ;   BSF PORTA,0     ;CHIP A
  102. ;   BSF PORTA,1     ;CHIP B
  103. ;   BSF PORTA,2     ;CHIP C
  104. ;   BSF PORTC,0     ;CHIP D
  105. ;   BSF PORTC,1     ;CHIP E
  106. ;   BSF PORTC,2     ;CHIP F
  107. ;   BSF PORTC,3     ;CHIP G
  108. ;   BSF PORTC,4     ;CHIP H
  109. ;   BSF PORTC,5     ;CHIP I
  110. ;   BSF PORTC,6     ;CHIP J
  111.  
  112.     MOVLW B'00100001'
  113.     MOVWF SSPCON
  114.  
  115.  
  116. MAIN
  117.  
  118.  
  119. ;Check for new program
  120.  
  121.     CALL RCV
  122.  
  123. ;Send data to selected chip
  124.     MOVFW L1
  125.     MOVWF SSPBUF
  126.     BANKSEL SSPSTAT
  127.     BTFSS SSPSTAT, BF
  128.     GOTO $-1
  129.     BANKSEL SSPBUF
  130.     MOVFW SSPBUF
  131.  
  132.     MOVFW L2
  133.     MOVWF SSPBUF
  134.     BANKSEL SSPSTAT
  135.     BTFSS SSPSTAT, BF
  136.     GOTO $-1
  137.     BANKSEL SSPBUF
  138.     MOVFW SSPBUF
  139.  
  140.     MOVFW L3
  141.     MOVWF SSPBUF
  142.     BANKSEL SSPSTAT
  143.     BTFSS SSPSTAT, BF
  144.     GOTO $-1
  145.     BANKSEL SSPBUF
  146.     MOVFW SSPBUF
  147.  
  148.     MOVFW L4
  149.     MOVWF SSPBUF
  150.     BANKSEL SSPSTAT
  151.     BTFSS SSPSTAT, BF
  152.     GOTO $-1
  153.     BANKSEL SSPBUF
  154.  
  155.     goto MAIN
  156.  
  157. ;Recieve-------------------
  158. RCV
  159.    
  160.     BTFSS PIR1,RCIF
  161.     GOTO $-1
  162.     MOVF RCREG,W
  163.     MOVWF L1
  164.     BTFSS PIR1,RCIF
  165.     GOTO $-1
  166.     MOVF RCREG,W
  167.     MOVWF L2
  168.     BTFSS PIR1,RCIF
  169.     GOTO $-1
  170.     MOVF RCREG,W
  171.     MOVWF L3
  172.     BTFSS PIR1,RCIF
  173.     GOTO $-1
  174.     MOVF RCREG,W
  175.     MOVWF L4
  176.  
  177.     RETURN
  178.  
  179. ;Delay--------------------
  180. DELAY
  181.     CLRF D2
  182.     CLRF D1
  183.     DECFSZ D1,F
  184.     GOTO $-1
  185.     DECFSZ D2,F
  186.     GOTO $-4
  187.    
  188.     RETURN
  189. END
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!