00 99 ileri ve geri sayıcı devreleri pic16f84 asm pbp

2 adet uygulama var proteus isis ve diğer kaynak dosyalar bulunmakta

00 99 ileri sayıcı assembly PIC16F84 7447 display göstergeli (otomatik)

ASM Yazılımı

;%MICROCONTROLADORES PIC %

;AUTOR : BRYAM HUAMANCHUMO BACA
;LABORATORIO # 02b : CONTADOR ASCENDENTE DE 00 AL 99 CON RETORNO

         List P=16f84A
         include


         __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
         CBLOCK 0x0C                 ; La zona de memoria de usuario en este número
         numero
         var1
         var2
         ENDC

;ZONA DE CÓDIGOS

         ORG 0x00                    ; El programa comienza en la dirección 0    

inicio  

         bsf    STATUS,RP0           ; Acceso al banco 1.
         movlw  b'00000111'
         movwf  OPTION_REG
         clrf   TRISB                ; Las líneas del Puerto B se configuran como salida
         bcf    STATUS,RP0           ; Acceso al Banco 0
         clrf   var1
         clrf   var2

Principal

         movf   var1,0
         call   BIN_a_BCD
         movwf  numero
         swapf  numero,0
         movwf  PORTB

salto    incf   var2,1
         btfss  var2,2
         goto   Timer0_us
         clrf   var2

         movlw  d'100'
         incf   var1,1
         subwf  var1,0
         btfss  STATUS,2
         goto   Principal
         clrf   var1
         goto   Principal

;Subrutina "Timer0_us"

Timer0_us

         movlw  0x00                 ; TMR0_Carga
         movwf  TMR0                 ; Carga el Timer 0.
         bcf    INTCON,T0IF          ; Resetea el flag de desbordamiento del TMR0

Timer0_Rebosamiento

         btfss  INTCON,T0IF          ; Se haproducido desbordamiento
         goto   Timer0_Rebosamiento  ; Todavía no repite
         goto   salto

         INCLUDE 
         END

Dosyalar 16f84-7447-0-99-ileri-sayici-assembly.rar

99 00 geri sayıcı pic basic pro PIC16F84 7447 display göstergeli (otomatik)

PBP Yazılımı

'% 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

Dosyalar 16f84-7447-99-00-geri-sayici-picbasic-pro.rar