- Codice: Seleziona tutto
ORG 0X00
GOTO INIZIO
ORG 0X04
CALL INC_UNIT ;INCREMENTA UNITA'
CALL INC_DEC ;INCREMENTA DECINA
MOVLW d'6' ;MUOVI IN W '6 DECIMALI'
SUBWF DECINE,W ;SOTTRAI 6 DA DECINE E METTI IL RISULTATO IN W
BTFSC STATUS,Z ;ESEGUI LA SUCCESSIVA SE Z E' A 0
CLRF DECINE ;SE ARRIVA A 6 AZZERA DECIN
GOTO EXIT
INC_UNIT
incf UNITA ;INCREMENTA UNITA'
movlw d'10' ;MUOVI IN W '10 DECIMALI'
subwf UNITA,W ;SOTTRAI 10 DA UNITA' E METTI RISULTATO IN W
BTFSC STATUS,Z ;SE RISULTA 0 ESEGUI OPERAZIONE SEGUENTE
RETURN ;SE 0 RITORNA AL PROGRAMMA PRINCIPALE
GOTO INC_UNIT ;SE NON è 0 CONTINUA A INCREMENTARE
INC_DEC
CLRF UNITA ;AZZERA UNITA'
BTFSC STATUS,Z ;SE Z SI TROVA A 0 ESEGUI LA SUCCESSIVA
INCF DECINE ;INCREMENTA DECINA
RETURN ;RITORNA AL PROGRAMMA PRINCIPALE
EXIT
BCF INTCON,RBIF
RETFIE
;____________________________________________________________________________________________________________________________________________________
INIZIO
BSF STATUS,RP0 ;ACCEDI AL BANCO 1
MOVLW B'00000000';IMPOSTA TUTTI OUT
MOVWF TRISA ;A PORTA A
MOVLW B'10000000';IMPOSTA TUTTI OUT TRANNE BIT 7 IN INPUT
MOVWF TRISB ;A PORTA B
MOVLW B'10001000'
MOVWF INTCON
BCF STATUS,RP0 ;ACCEDI A BANCO 0
..... continuo col programma...
una cosa del genere dentro l'interrupt è un po troppo? o conviene che dentro l'interrupt metto solo
- Codice: Seleziona tutto
INCF UNITA
RETFIE
e poi il resto lo faccio fuori dall'interrupt...

Elettrotecnica e non solo (admin)
Un gatto tra gli elettroni (IsidoroKZ)
Esperienza e simulazioni (g.schgor)
Moleskine di un idraulico (RenzoDF)
Il Blog di ElectroYou (webmaster)
Idee microcontrollate (TardoFreak)
PICcoli grandi PICMicro (Paolino)
Il blog elettrico di carloc (carloc)
DirtEYblooog (dirtydeeds)
Di tutto... un po' (jordan20)
AK47 (lillo)
Esperienze elettroniche (marco438)
Telecomunicazioni musicali (clavicordo)
Automazione ed Elettronica (gustavo)
Direttive per la sicurezza (ErnestoCappelletti)
EYnfo dall'Alaska (mir)
Apriamo il quadro! (attilio)
H7-25 (asdf)
Passione Elettrica (massimob)
Elettroni a spasso (guidob)
Bloguerra (guerra)






