Advertisement
Guest User

Untitled

a guest
Jun 18th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. CONSTANTEUNO EQU 0XAA
  2. CONSTANTEDOS EQU 0X11
  3.  
  4. ORG 0
  5.  
  6. INICIO
  7. BSF STATUS, RP0
  8. MOVLW b'11111'
  9. MOVWF TRISA
  10. MOVLW b'00000000'
  11. MOVWF TRISB
  12. BCF STATUS, RP0
  13.  
  14. PRINCIPAL
  15. MOVF PORTA, W
  16. ADDLW CONSTANTEUNO
  17. SUBLW CONSTANTEDOS
  18. MOVWF PORTB
  19. GOTO PRINCIPAL
  20.  
  21. END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement