; 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-2.htm
    
; PIC18F26K20 / MPLAB X 3.26 / MPASM v5.66
    
; "Supercar"
; Nota: questo programma va eseguito passo-passo oppure occorre usare un oscilloscopio

#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

    movlw 0		; azzera il registro W (accumulatore)
    movwf TRISC		; copia il contenuto del registro W nel registro speciale TRISC 
                        ; (imposta PORTC come uscita)
		
    movlw  0x01		; copia in W il numero binario 0000 0001  (0x01)
    movwf LATC		; copia il contenuto del registro W nel registro speciale LATC 
                        ; (un solo LED è acceso)
			
sinistra  
    rlcf LATC		; ruota a sinistra attraverso il carry il registro speciale LATC
                        ; (il LED scorre verso sinistra)
    bnc sinistra        ; ripete lo scorrimento a sinistra se il flag C è zero
    
destra 	
    rrcf LATC           ; ruota a destra attraverso il carry il registro speciale LATC
    bnc destra          ; ripete lo scorrimento a destra se il flag C è zero
    
    bra sinistra        ; ricomincia con lo scorrimento a sinistra

    END			; Fine del file