1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| list p=16f628a
include "p16f628a.inc"
segcounter EQU 21
org 0
bsf STATUS, RP0
bcf STATUS, RP1
movlw B'00000000'
movwf TRISB
movlw B'00000000'
movwf TRISA
bcf STATUS, RP0
bcf STATUS, RP1
bigloop
clrf PORTB ; desactiver tous les segments
movlw B'00000001'
movwf PORTA ; activer le chiffre 1
movlw D'9'
movwf segcounter ; segcounter := 9
loop1
movf segcounter,w ; w:= segcounter
movwf PORTB ; afficher
decfsz segcounter,f ; segcounter -=1
goto loop1
end |
Partager