; Assembly PIC18 - Versione 0.1 - Marzo 2016
; Copyright (c) 2016, Vincenzo Villa
; Creative Commons | Attribuzione - Condividi allo stesso modo 4.0 Internazionale (CC BY-SA 4.0)
; Creative Commons | Attribution-Share Alike 4.0 Unported
; https://www.vincenzov.net/tutorial/PIC18/Assembly/hello-3.htm
; Riferimento: fogli tecnici del PIC18F2XK20/4XK20			
    
; Lettura di un pulsante con pull-up interno
			
; PIC18F26K20 / MPLAB X 3.26 / MPASM v5.66
    
#include "p18f26k20.inc"
                        ; il file con la definizine dei registri specifici del PIC in uso
       
    CODE    0x0000	; vettore di reset, indirizzo 0. Il codice inizia qui

    clrf TRISC		; imposta PORTC come uscita (azzera TRISC) - Paragrafo 10.4
		  
    clrf LATC		; tutti i LED spenti (azzera LATC)- Paragrafo 10.4
			
    bsf TRISB, RB0      ; imposta RB0 come ingresso (setta bit 0 di TRISB) - Tabella 10.3
    
    bsf WPUB, 0         ; attiva le resistenza di pull-up interna sull'ingresso RB0
    bcf INTCON2, 7      ; abilita le resistenze di pull-up già attivate individualmente
			
ciclo
    btfss PORTB, RB0    ; Bit Test F, Skip if Set
                        ; controlla il bit 0 di PORTB (RB0) e, se 1, salta la successiva istruzione
    bra spegni          ; se viene eseguito -> RB0=0
accendi
    bsf LATC, RC0       ; accendi il LED...
    bra ciclo           ; ... e ricomincia
spegni                  
    bcf LATC, RC0       ; spegni il LED...
    bra ciclo           ; ... e ricomincia
    
    END		; Fine del file