Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.
A l'exemple AI guardàvem els valors a la memòria de dades i després els llegiem amb adreçament indirecte. Encara que només s'executessin un cop, al programa hi havia un conjunt significatiu d'instruccions que escrivien els valors dels codis Gray que després havíem de llegir.
En aquest exemple guardarem els 16 valors del codi Gray a la memòria EEPROM en el moment de programar i així estalviarem línies de programa. Les etiquetes Gra2 i Gra3 no les fem servir.
PROCESSOR 16F690 #include <xc.inc> config FOSC = INTRCIO, WDTE = OFF, PWRTE = OFF, MCLRE = OFF, CP = OFF config CPD = OFF, BOREN = OFF, IESO = OFF, FCMEN = OFF
Polsador EQU 0x20 ; Una variable amb l'estat del polsador (1 = premut) Previ EQU 0x21 ; I una amb l'estat previ del polsador Visualit EQU 0x22 ; Una variable on guardem el que mostraran els LED Compta EQU 0x23 ; Una variable per comptar iteracions Retard1 EQU 0x24 ; Variable per al bucle de retard
PSECT code, class=CODE, delta=2, abs
main:
bsf RP0 ; Tria el banc 1
movlw 0xFF ; Posa l'acumulador a FFh (tot uns)
movwf TRISA ; Posa tots els bits del port A com a entrada
clrf TRISC ; Posa tots els bits del port C com a sortida
bcf RP0 ; Tria el banc 0
movlw 5 ; Retard d'1 s
call Rets ; Retard per evitar problemes amb el polsador
clrf Compta ; Posa el comptador d'iteracions a valor zero
clrf Visualit ; Posa el comptador dels LED a valor zero
clrf Previ ; L'estat previ del polsador és no premut
clrf PORTC ; Comencem amb els LED apagats
Bucle:
movlw 00000001B
movwf Polsador ; Activem polsador abans de comprovar
btfsc PORTA,3 ; Mira si està desactivada l'entrada A3
; Si desactivat (premut), no fa la instrucció següent
clrf Polsador ; Si no està premut, desactiva polsador
movf Previ,w ; Copia Previ a l'acumulador
xorwf Polsador,w ; Compara Previ amb Polsador, si són iguals s'activa Z
btfsc ZERO ; Si són iguals va a Final
goto Esborra
incf Compta,f ; Si són iguals, incrementa el valor de Compta
movf Compta,w ; Copia Compta a l'acumulador
xorlw 4 ; Comprova si val 4, si ho val s'activa Z
btfss ZERO ; Si val 4 no fa la instrucció següent
goto Final ; Si no era 4 va a Final
movf Polsador,w ; Copia Polsador a W, si val 0 s'activa Z
btfsc ZERO ; Si Polsador valia 1 (Z=0) no fa la instrucció següent
goto Invert ; Si no està premut, ja estem
incf Visualit,f ; Si ho està, incrementa el valor de Visualit
btfsc Visualit,4 ; Mira si hem arribat a 16
clrf Visualit ; Si hem arribat a 16, torna a posar el comptador a zero
call Llegir ; Llegim el valor a la memòria EEPROM
movwf PORTC ; I ho posa als LED
Invert:
movf Previ,w ; Copia Previ a l'acumulador
xorlw 00000001B ; Inverteix el valor
movwf Previ ; I ho guarda a Previ
Esborra:
clrf Compta ; Posa el comptador d'iteracions a valor zero
Final: ; Funció de retard 1 ms
nop
decfsz Retard1,f
goto Final
goto Bucle ; Repetim-ho...
; ; Funció de retard de 0,2 W s ; Rets: movwf Retard1+2 Bucles: decfsz Retard1,f goto Bucles decfsz Retard1+1,f goto Bucles decfsz Retard1+2,f goto Bucles return Llegir: movlw Gray ; Adreça inicial dels codis addwf Visualit,w ; Li suma el valor a mostrar bsf RP1 ; Tria el banc 2 movwf EEADR ; Adreça EEPROM bsf RP0 ; Tria el banc 3 bcf EEPGD ; Accés a EEPROM bsf RD ; Lectura bcf RP0 ; Tria el banc 2 movf EEDAT,w ; Llegim bcf RP1 ; Tria el banc 0 return
PSECT edata ; Inici de la memòria EEPROM Gray: DW 00000000B, 00000001B, 00000011B, 00000010B, 00000110B, 00000111B, 00000101B, 00000100B DW 00001100B, 00001101B, 00001111B, 00001110B, 00001010B, 00001011B, 00001001B, 00001000B END main
Aquesta obra d'Oriol Boix està llicenciada sota una llicència no importada Reconeixement-NoComercial-SenseObraDerivada 3.0.