SÁENZ (Visitante)
| | en Mplab asi se incrementa.,.. (creo) jaja
bno aqui esta el codigo no se si este correcto
LIST P=16F84
VALOR EQU 1aH
ORG 0
INICIO
movlw h'0'
movwf VALOR
incf VALOR,1
incf VALOR,1
END
y para decrementar es este:
LIST p=16F84
v equ 0x0a
org 0
inicio
movlw 0x00
movwf v
decf v,1
decf v,1
movfw v
end |
Edgar Gonzalo (8 Posts hasta ahora) | | Yo tengo este codigo lo malo que no se puede ver en el entrenador display de Proteus solo se puede ver en el entrenador led's porque tiene los botones.
Lo tengo en MCS.
vec var byte
num VAR BYTE
cont var word
TRISA = %00000011
TRISB = 0
cont=7
vec=0
PORTB=64
inicio:
if PORTA.2=0 then
vec=vec+1
lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
portb=num
if vec>=10 then
vec=0
endif
pause 200
endif
if PORTA.3=0 then
vec=vec-1
lookup vec,[0,191,134,219,207,230,237,253,135,255,239],num
portb=num
if vec |