Advertisement
Guest User

Untitled

a guest
Jul 10th, 2017
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
MPASM 0.80 KB | None | 0 0
  1. sendd:
  2.     bcf     INTCON, INTF        ; clear flag
  3.     movf    cnt_byte, f
  4.     btfsc   status,z    
  5.     retfie
  6.  
  7.     movf    cnt_byte, w
  8.     movwf   TXREG
  9.     bank1
  10.     btfss   TXSTA, TRMT
  11.     goto    $-1
  12.     bank0
  13.  
  14. ;   movf    cnt_h, w
  15. ;    movwf   TXREG
  16. ;    bank1
  17. ;   btfss   TXSTA, TRMT
  18. ;   goto    $-1
  19. ;   bank0
  20.  
  21. ; temp simply counter
  22. ;   clrf    cnt
  23. ;    clrf    cnt_h
  24. ;   retfie
  25.  
  26.     movlw   ptr
  27.     movwf   fsr        
  28.     loop2:
  29.     movf    INDF, w
  30.     movwf   TXREG
  31.     bank1
  32.     btfss   TXSTA, TRMT
  33.     goto    $-1
  34.     bank0
  35.     INCF    FSR, f
  36. ; additional address
  37.     MOVF    FSR, W
  38.     XORLW   0x80
  39.     BTFSS   STATUS, Z
  40.     GOTO    NORMAL_OPERATION1
  41.     MOVLW   0xA0
  42.     MOVWF   FSR
  43.     NORMAL_OPERATION1:
  44. ;    
  45.     decfsz  cnt_byte, f
  46.     goto    loop2
  47.  
  48.     movlw   ptr
  49.     movwf   fsr
  50.  
  51.     clrf    cnt
  52.     clrf    cnt_h
  53.     bcf     flag, 0    
  54.    
  55.     retfie
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement