Kod:
'% MICROCONTROLADORES PIC %
'AUTOR : BRYAM HUAMANCHUMO BACA
'LABORATORIO # 01c : CONTEO DESCENDENTE DE 99 A 00
I VAR BYTE
Unidad VAR BYTE
Decena VAR BYTE
X0 VAR Unidad.0
X1 VAR Unidad.1
X2 VAR Unidad.2
X3 VAR Unidad.3
X4 VAR Decena.0
X5 VAR Decena.1
X6 VAR Decena.2
X7 VAR Decena.3
TRISB = 0 'Salida
Inicio:
For I = 99 TO 0 STEP -1
Decena = I/10
Unidad = I - Decena*10
PORTB.0 = X0
PORTB.1 = X1
PORTB.2 = X2
PORTB.3 = X3
PORTB.4 = X4
PORTB.5 = X5
PORTB.6 = X6
PORTB.7 = X7
Pause 200
Next I
GoTo Inicio