API tools faq
paste
Advertisement
Guest User

yarik

a guest
Dec 26th, 2019
104
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 3.04 KB | None | 0 0
raw download clone embed print report
  1. Main:
  2.  
  3.   MOVLW .0
  4.   MOVWF COUNTER
  5.   BSF OSCCON, SCS0
  6.   BSF OSCCON, SCS1
  7.   BSF OSCCON, IRCF0
  8.   BSF OSCCON, IRCF1
  9.   BSF OSCCON, IRCF2
  10.  
  11.   MOVLW b'11000001'
  12.   MOVWF TRISB
  13.   MOVLW b'00000001'
  14.   MOVWF LATB
  15.  
  16.   MOVLW b'11100000'
  17.   MOVWF TRISC
  18.   MOVLW b'11100000'
  19.   MOVWF LATC
  20.  
  21.   STARTMAIN:
  22.   MOVLW .50
  23.   MOVWF NUM
  24.  
  25.   BCF TXSTA,CSRC
  26.   BCF TXSTA,TX9
  27.   BCF TXSTA,SYNC
  28.   BCF TXSTA,BRGH
  29.  
  30.   BCF RCSTA,RX9
  31.   BCF RCSTA,CREN
  32.  
  33.   BCF BAUDCON,ABDOVF
  34.   BCF BAUDCON,BRG16  
  35.   BCF BAUDCON,ABDEN  
  36.  
  37.  
  38.   CLRF SPBRG
  39.   MOVLW .12
  40.   MOVWF SPBRG
  41.  
  42.   BSF RCSTA,SPEN
  43.   BSF TXSTA,TXEN
  44.  
  45.   LFSR FSR0, 0x100
  46.   MOVLW 0xAA
  47.   MOVWF INDF0
  48.   INCF FSR0L
  49.  
  50.   MOVLW 0x10
  51.   MOVWF INDF0
  52.   INCF FSR0L
  53.  
  54.   MOVLW 0xAA
  55.   MOVWF INDF0
  56.   INCF FSR0L
  57.  
  58.   MOVLW 0x11
  59.   MOVWF INDF0
  60.   INCF FSR0L
  61.  
  62.   MOVLW 0xAA
  63.   MOVWF INDF0
  64.   INCF FSR0L
  65.  
  66.   MOVLW 0x21
  67.   MOVWF INDF0
  68.   INCF FSR0L
  69.  
  70.   MOVLW 0xAA
  71.   MOVWF INDF0
  72.   INCF FSR0L
  73.  
  74.   MOVLW 0x20
  75.   MOVWF INDF0
  76.   INCF FSR0L
  77.  
  78.   MOVLW 0x00
  79.   MOVWF INDF0
  80.   INCF FSR0L
  81.  
  82.   MOVLW 0x00
  83.   MOVWF INDF0
  84.   INCF FSR0L
  85.  
  86.   MOVLW 0xAA
  87.   MOVWF INDF0
  88.   INCF FSR0L
  89.  
  90.   MOVLW 0x25
  91.   MOVWF INDF0
  92.  
  93.   INCF FSR0L
  94.   MOVLW  0x30;  s      
  95.   MOVWF INDF0
  96.  
  97.   INCF FSR0L
  98.   MOVLW  0x30;  0      
  99.   MOVWF INDF0
  100.  
  101.   INCF FSR0L
  102.   MOVLW  0x30;  s      
  103.   MOVWF INDF0
  104.  
  105.   INCF FSR0L
  106.   MOVLW  0x30;  i      
  107.   MOVWF INDF0
  108.  
  109.   INCF FSR0L
  110.   MOVLW  0x30;  ))))       
  111.   MOVWF INDF0
  112.  
  113.   INCF FSR0L
  114.   MOVLW 0x0D
  115.   MOVWF INDF0
  116.  
  117.  
  118.   LFSR FSR0, 0x200
  119.   MOVLW 0xAA
  120.   MOVWF INDF0
  121.   INCF FSR0L
  122.  
  123.   MOVLW 0x10
  124.   MOVWF INDF0
  125.   INCF FSR0L
  126.  
  127.   MOVLW 0xAA
  128.   MOVWF INDF0
  129.   INCF FSR0L
  130.  
  131.   MOVLW 0x11
  132.   MOVWF INDF0
  133.   INCF FSR0L
  134.  
  135.   MOVLW 0xAA
  136.   MOVWF INDF0
  137.   INCF FSR0L
  138.  
  139.   MOVLW 0x21
  140.   MOVWF INDF0
  141.   INCF FSR0L
  142.  
  143.   MOVLW 0xAA
  144.   MOVWF INDF0
  145.   INCF FSR0L
  146.  
  147.   MOVLW 0x20
  148.   MOVWF INDF0
  149.   INCF FSR0L
  150.  
  151.   MOVLW 0x00
  152.   MOVWF INDF0
  153.   INCF FSR0L
  154.  
  155.   MOVLW 0x00
  156.   MOVWF INDF0
  157.   INCF FSR0L
  158.  
  159.   MOVLW .0
  160.   MOVWF WREG
  161.  
  162.   WAITUNPRESSBUT:
  163.   BTFSC PORTB,RB0
  164.   BRA WAITUNPRESSBUT
  165.   BSF LATB,RB3
  166.  
  167.   WAITPRESSBUT:
  168.   BTFSS PORTB,RB0
  169.   BRA WAITPRESSBUT
  170.   CPFSEQ COUNTER, WREG
  171.   BRA SENDMESSADRNECHET
  172.   BRA SENDMESSADRCHET
  173.  
  174.   SENDMESSADRCHET:
  175.   LFSR FSR0,0x100
  176.  
  177.   SENDMESS:
  178.   MOVF INDF0,W
  179.   MOVWF TXREG
  180.  
  181.   TX_TRMT:
  182.   BTFSS TXSTA,TRMT
  183.   BRA TX_TRMT
  184.   BRA BUSY
  185.  
  186.   BUSY:
  187.   BTFSS LATC,RC5
  188.   BRA BUSY_LED_ON
  189.   BRA NEXT_DATA
  190.  
  191.   BUSY_LED_ON:
  192.   BSF LATB,RB5
  193.   BRA BUSY
  194.  
  195.   NEXT_DATA:
  196.   INCF FSR0L
  197.   DECF NUM
  198.   BNZ SENDMESS
  199.   BCF LATB,RB5
  200.   INCF COUNTER
  201.   BRA WAITUNPRESSBUT
  202.  
  203.   SENDMESSADRNECHET:
  204.   LFSR FSR0,0x200
  205.  
  206.   SENDMESSnechet:
  207.   MOVF INDF0,W
  208.   MOVWF TXREG
  209.  
  210.   TX_TRMTnechet:
  211.   BTFSS TXSTA,TRMT
  212.   BRA TX_TRMTnechet
  213.   BRA BUSYnechet
  214.  
  215.   BUSYnechet:
  216.   BTFSS LATC,RC5
  217.   BRA BUSY_LED_ONnechet
  218.   BRA NEXT_DATAnechet
  219.  
  220.   BUSY_LED_ONnechet:
  221.   BSF LATB,RB5
  222.   BRA BUSYnechet
  223.  
  224.   NEXT_DATAnechet:
  225.   INCF FSR0L
  226.   DECF NUM
  227.   BNZ SENDMESSnechet
  228.   BCF LATB,RB5
  229.   DECF COUNTER
  230.   BRA WAITUNPRESSBUT
  231.    
  232.   GOTO Main
  233.   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!