Ir ao conteúdo
Regras do Clube do Hardware

Relogio + calendario com PIC ASM

LEOPUENA

Por LEOPUENA
em Eletrônica

Posts recomendados

LEOPUENA
 

LEOPUENA

Postado
Postado

Pessoal estou mais uma vez precisando da vossa ajuda.

Estou a criar um relogio+calendario+termometro usando uma matriz de led 5x16. depois de muita luta (mas muita luta mesmo) consegui que o relogio e o calendario fossem visualizados correctamente, testei no proteus. Ele mostra a hora e ao precionar um botão mostra a data. Ainda não peguei a parte do termometro.

Criei as rotinas para ajuste de hora e data, aí começou o problema. O ajuste da hora foi feito sem problemas usando 3 botões, um pra entrar no menu de ajuste, um pra incrmentar a hora e outro pra incrementar os minutos. Para o calendario seria a mesma coisa, botões para incrementar o dia e o mes. mas quando adiciono essa rotina ele até compila mas tudo para de funcionar, o proteus indica erros de overflow dos stack. Isso acontece mesmo sem entrar na rotina de ajuste, simplemente por compilar com a rotina.

Ja tentei varias maneiras de inserir a rotina. comecei por usar uma rotina geral de ajuste com 4 botões, um para entrar na rotina dois para incrementar/decrementar e outro para escolher relogio/calendario. Depois separei cada rotina, usei goto, mudei pra call--return e nada. quando retiro a rotina ele volta a funcionar normalmente, exibindo a hora e a data.

aqui está o programa:

;#**************************************************************************************#

;# _ELECTROPUBLITEC_ #

;# -------------------------------------------------------------------------------------#

;# Este projecto é um relogio, calendario, termometro em painel de leds matricial #

;# Inclui um registro de deslocamento de varios tipos com varias palavras #

;# Inclui tambem o sistema de segurança noturno que é activado automaticamente as 22h #

;# #

;# Programação começada por LEOPUENA aos 25.04.2011 #

;# -------------------------------------------------------------------------------------#

;# #

;#**************************************************************************************#

;*********************CONFIGURAÇÕES DO uC****************************

list p=16f877 ; *

Include <p16f877.inc> ; *

__Config _xt_osc & _wdt_off & _Cp_off & _pwrte_on ; *

;********************************************************************

;*********************CRIAÇÃO DE VARIAVEIS***************************

Digital equ b'00000110' ; *

CBLOCK 20H ; *

ATRASO ; *

RELOJ ; *

CALEN ; *

SEG1 ; *

SEG2 ; *

MIN1 ; *

MIN2 ; *

HOR1 ; *

HOR2 ; *

DIA1 ; *

DIA2 ; *

MES1 ; *

MES2 ; *

FLAG ; *

TEST ; *

ENDC ; *

;********************************************************************

;**********************DEFINIÇÃO DE VARIAVEIS****************************

#DEFINE LED1 PORTA,0; *

#DEFINE LED2 PORTA,1; *

#DEFINE LED3 PORTA,2; *

#DEFINE LED4 PORTA,3; *

#DEFINE SWIT PORTA,4; *

; *

#DEFINE DMX1_A PORTB,0; 74138 *

#DEFINE DMX1_B PORTB,1; *

#DEFINE DMX1_C PORTB,2; *

#DEFINE DMX1_EN PORTB,3; *

#DEFINE DMX2_A PORTB,4; 74154 *

#DEFINE DMX2_B PORTB,5; *

#DEFINE DMX2_C PORTB,6; *

#DEFINE DMX2_D PORTB,7; *

; *

#DEFINE AJUST PORTD,0; ;TECLADO *

#DEFINE HORA PORTD,1; *

#DEFINE MINU PORTD,2; *

#DEFINE AJUSTDM PORTD,3; *

#DEFINE DIA PORTD,4; *

#DEFINE MES PORTD,5; *

#DEFINE TC4 PORTD,6; *

#DEFINE SIR PORTD,7; *

; *

#DEFINE F1 PORTE,0; *

#DEFINE F2 PORTE,1; *

#DEFINE F3 PORTE,2; *

; *

#DEFINE LDH FLAG,0 ; *

#DEFINE LDC FLAG,1 ; *

#DEFINE RCF FLAG,5 ; *

#DEFINE FN1 FLAG,2 ; *

#DEFINE FN2 FLAG,3 ; *

#DEFINE FN3 FLAG,4 ; *

;************************************************************************

;********************PROGRAMAÇÃO DAS PORTAS**************************

ORG 0x000 ;INICIO DA COMPILACAO *

BSF STATUS,RP0 ;SELECIONA BANK 1 *

movlw Digital; *

movwf ADCON1 ; *

MOVLW 0X00 ; *

MOVWF TRISA ; *

MOVLW 0X00 ; *

MOVWF TRISB ; *

MOVLW 0X01 ; *

MOVWF TRISC ; *

MOVLW 0X00 ; *

MOVWF TRISE ; *

MOVLW 0XFF ; *

MOVWF TRISD ; *

movlw b'10000111'; *

movwf Option_reg ; *

BCF STATUS,RP0 ;VOLTA AO BANK 0 *

clrf intcon ; *

;********************************************************************

INICIO

CLRF PORTA

CLRF PORTC

CLRF PORTD

CLRF PORTB

CLRF PORTE

CLRF FLAG

CLRF HOR1

CLRF HOR2

CLRF MIN1

CLRF MIN2

CLRF DIA1

CLRF DIA2

CLRF MES1

CLRF MES2

MOVLW D'1'

MOVWF MES2

MOVWF DIA2

MOVLW D'16'

MOVWF RELOJ

MOVLW D'6'

MOVWF CALEN

;#######################################

MAIN

CALL PAUSA

BTFSC AJUST

GOTO AJUSTAR

BTFSC AJUSTDM

GOTO ADM

INCF MIN2,1

MOVLW D'10'

XORWF MIN2,0

BTFSS STATUS,Z

GOTO MAIN

CLRF MIN2

INCF MIN1,1

MOVLW D'6'

XORWF MIN1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF MIN1

INCF HOR2,1

MOVLW D'4'

XORWF HOR2,0

BTFSC STATUS,Z

GOTO LOOP

MOVLW D'10'

XORWF HOR2,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR2

INCF HOR1,1

MOVLW D'3'

XORWF HOR1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR1

GOTO MAIN

LOOP

MOVLW D'2'

XORWF HOR1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR1

CLRF HOR2

;********************************************************************

INCF DIA2,1

MOVLW D'10'

XORWF DIA2,0

BTFSS STATUS,Z

GOTO MAIN

MOVLW D'1'

MOVWF DIA2

INCF DIA1,1

MOVLW D'4'

XORWF DIA1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF DIA1

INCF MES2,1

MOVLW D'3'

XORWF MES2,0

BTFSC STATUS,Z

GOTO LOOP1

MOVLW D'10'

XORWF MES2,0

BTFSS STATUS,Z

GOTO MAIN

MOVLW D'1'

MOVWF MES2

INCF MES1,1

MOVLW D'2'

XORWF MES1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF MES1

GOTO MAIN

LOOP1

MOVLW D'1'

XORWF MES1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF MES1

CLRF MES2

GOTO INICIO

;********************************************************************

;********************************************************************

;«««««««««««««««««««««««««««««««««««««««««««««««««««

AJUSTAR

CALL PAUSA2

BTFSC HORA

GOTO AJUSTARH

BTFSC MINU

GOTO AJUSTARM

BTFSC AJUST

GOTO AJUSTAR

GOTO MAIN

;===============================

AJUSTARM

CALL PAUSA2

BTFSC MINU

GOTO $-2

INCF MIN2,1

MOVLW D'10'

XORWF MIN2,0

BTFSS STATUS,Z

GOTO AJUSTAR

CLRF MIN2

INCF MIN1,1

MOVLW D'6'

XORWF MIN1,0

BTFSS STATUS,Z

GOTO AJUSTAR

CLRF MIN1

GOTO AJUSTAR

;===============================

AJUSTARH

CALL PAUSA2

BTFSC HORA

GOTO $-2

INCF HOR2,1

MOVLW D'4'

XORWF HOR2,0

BTFSC STATUS,Z

GOTO LOOPA

MOVLW D'10'

XORWF HOR2,0

BTFSS STATUS,Z

GOTO AJUSTAR

CLRF HOR2

INCF HOR1,1

MOVLW D'10'

XORWF HOR2,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR2

INCF HOR1,1

MOVLW D'3'

XORWF HOR1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR1

GOTO MAIN

LOOPA

MOVLW D'2'

XORWF HOR1,0

BTFSS STATUS,Z

GOTO MAIN

CLRF HOR1

CLRF HOR2

GOTO MAIN

;«««««««««««««««««««««««««««««««««««««««««««««««««««

ADM

CALL PAUSA22

BTFSC DIA

GOTO ADIA

BTFSC MES

GOTO AMES

BTFSC AJUSTDM

GOTO ADM

GOTO MAIN

;===============================

AMES

BTFSC MES

GOTO $-1

GOTO ADM

;===============================

ADIA

BTFSC DIA

GOTO $-1

GOTO ADM

;«««««««««««««««««««««««««««««««««««««««««««««««««««

DISPLAY

CALL DISP_1

CALL DISP_2

CALL DISP_3

CALL DISP_4

RETURN

DISP_1

MOVF HOR1,W

DISP1

addwf PCL,f

GOTO ZEROH1

GOTO UMH1

GOTO DOISH1

GOTO TRESH1

GOTO QUATROH1

GOTO CINCOH1

GOTO SEISH1

GOTO SETEH1

GOTO OITOH1

GOTO NOVEH1

DISP_2

MOVF HOR2,W

DISP2

addwf PCL,f

GOTO ZEROH2

GOTO UMH2

GOTO DOISH2

GOTO TRESH2

GOTO QUATROH2

GOTO CINCOH2

GOTO SEISH2

GOTO SETEH2

GOTO OITOH2

GOTO NOVEH2

DISP_3

MOVF MIN1,W

DISP3

addwf PCL,f

GOTO ZEROM1

GOTO UMM1

GOTO DOISM1

GOTO TRESM1

GOTO QUATROM1

GOTO CINCOM1

GOTO SEISM1

GOTO SETEM1

GOTO OITOM1

GOTO NOVEM1

DISP_4

MOVF MIN2,W

DISP4

addwf PCL,f

GOTO ZEROM2

GOTO UMM2

GOTO DOISM2

GOTO TRESM2

GOTO QUATROM2

GOTO CINCOM2

GOTO SEISM2

GOTO SETEM2

GOTO OITOM2

GOTO NOVEM2

;«««««««««««««««««««««««««««««««««««««««««««««««««««

DISPLAYDM

CALL DISP1DM

CALL DISP2DM

CALL DISP3DM

CALL DISP4DM

RETURN

DISP1DM

MOVF DIA1,W

ANDLW B'00001111'

GOTO DISP1

DISP2DM

MOVF DIA2,W

ANDLW B'00001111'

GOTO DISP2

DISP3DM

MOVF MES1,W

ANDLW B'00001111'

GOTO DISP3

DISP4DM

MOVF MES2,W

ANDLW B'00001111'

GOTO DISP4

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;««««««««««««««««««««««««#####MAPA DE CARACTERES#####»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

UMH1

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X11

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X21

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X23

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X34

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

UMH2

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X51

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X61

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X63

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X74

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

UMM1

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X91

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA1

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA3

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

CLRF PORTB

CLRF PORTA

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

UMM2

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0XD1

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE1

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE3

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

NOP

NOP

CLRF PORTB

CLRF PORTA

RETURN

;---------------------------------------------------------------------------

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

DOISH1

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X04

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X10

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X13

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X34

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

DOISH2

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X44

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X50

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X53

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X74

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

DOISM1

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X84

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X90

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X93

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

DOISM2

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0XD0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XD3

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

TRESH1

MOVLW 0X00

MOVWF PORTB

BSF EN

MOVLW 0X04

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X10

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

TRESH2

MOVLW 0X40

MOVWF PORTB

BSF EN

MOVLW 0X44

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X50

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

TRESM1

MOVLW 0X80

MOVWF PORTB

BSF EN

MOVLW 0X84

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X90

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

TRESM2

MOVLW 0XC0

MOVWF PORTB

BSF EN

MOVLW 0XC4

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0XD0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

QUATROH1

MOVLW 0X00

MOVWF PORTB

BSF EN

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X12

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X22

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X30

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

MOVLW 0X34

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

QUATROH2

MOVLW 0X40

MOVWF PORTB

BSF EN

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X52

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X62

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0X70

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

MOVLW 0X74

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

QUATROM1

MOVLW 0X80

MOVWF PORTB

BSF EN

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

MOVLW 0X92

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XA2

MOVWF PORTB

BSF EN

NOP

NOP

NOP

MOVLW 0XB0

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

MOVLW 0XB4

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

NOP

NOP

NOP

NOP

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

QUATROM2

MOVLW 0XC0

MOVWF PORTB

BSF EN

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XF0

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

MOVLW 0XF4

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

CINCOH1

MOVLW 0X00

MOVWF PORTB

BSF EN

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

MOVLW 0X04

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X30

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

MOVLW 0X34

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

CINCOH2

MOVLW 0X40

MOVWF PORTB

BSF EN

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

MOVLW 0X44

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X70

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

MOVLW 0X74

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

CINCOM1

MOVLW 0X80

MOVWF PORTB

BSF EN

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

MOVLW 0X84

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB0

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

MOVLW 0XB4

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

CINCOM2

MOVLW 0XC0

MOVWF PORTB

BSF EN

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XC4

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF0

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

MOVLW 0XF4

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

SEISH1

MOVLW 0X03

MOVWF PORTB

BSF EN

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SEISH2

MOVLW 0X43

MOVWF PORTB

BSF EN

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SEISM1

MOVLW 0X83

MOVWF PORTB

BSF EN

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SEISM2

MOVLW 0XC3

MOVWF PORTB

BSF EN

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

SETEH1

MOVLW 0X00

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X21

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X23

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SETEH2

MOVLW 0X40

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X61

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X63

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SETEM1

MOVLW 0X80

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA1

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA3

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

SETEM2

MOVLW 0XC0

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE1

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE3

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

OITOH1

MOVLW 0X00

MOVWF PORTB

BSF EN

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

MOVLW 0X03

MOVWF PORTB

BSF EN

MOVLW 0X04

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X30

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

MOVLW 0X34

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

OITOH2

MOVLW 0X40

MOVWF PORTB

BSF EN

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

MOVLW 0X43

MOVWF PORTB

BSF EN

MOVLW 0X44

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X70

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

MOVLW 0X74

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

OITOM1

MOVLW 0X80

MOVWF PORTB

BSF EN

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

MOVLW 0X83

MOVWF PORTB

BSF EN

MOVLW 0X84

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB0

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

MOVLW 0XB4

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

OITOM2

MOVLW 0XC0

MOVWF PORTB

BSF EN

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XC3

MOVWF PORTB

BSF EN

MOVLW 0XC4

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF0

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

MOVLW 0XF4

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

NOVEH1

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X12

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X22

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

NOVEH2

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X52

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X62

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

NOVEM1

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X92

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA2

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

NOVEM2

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD2

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE2

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

ZEROH1

MOVLW 0X01

MOVWF PORTB

BSF EN

MOVLW 0X02

MOVWF PORTB

BSF EN

MOVLW 0X03

MOVWF PORTB

BSF EN

MOVLW 0X10

MOVWF PORTB

BSF EN

MOVLW 0X14

MOVWF PORTB

BSF EN

MOVLW 0X20

MOVWF PORTB

BSF EN

MOVLW 0X24

MOVWF PORTB

BSF EN

MOVLW 0X31

MOVWF PORTB

BSF EN

MOVLW 0X32

MOVWF PORTB

BSF EN

MOVLW 0X33

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

ZEROH2

MOVLW 0X41

MOVWF PORTB

BSF EN

MOVLW 0X42

MOVWF PORTB

BSF EN

MOVLW 0X43

MOVWF PORTB

BSF EN

MOVLW 0X50

MOVWF PORTB

BSF EN

MOVLW 0X54

MOVWF PORTB

BSF EN

MOVLW 0X60

MOVWF PORTB

BSF EN

MOVLW 0X64

MOVWF PORTB

BSF EN

MOVLW 0X71

MOVWF PORTB

BSF EN

MOVLW 0X72

MOVWF PORTB

BSF EN

MOVLW 0X73

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

ZEROM1

MOVLW 0X81

MOVWF PORTB

BSF EN

MOVLW 0X82

MOVWF PORTB

BSF EN

MOVLW 0X83

MOVWF PORTB

BSF EN

MOVLW 0X90

MOVWF PORTB

BSF EN

MOVLW 0X94

MOVWF PORTB

BSF EN

MOVLW 0XA0

MOVWF PORTB

BSF EN

MOVLW 0XA4

MOVWF PORTB

BSF EN

MOVLW 0XB1

MOVWF PORTB

BSF EN

MOVLW 0XB2

MOVWF PORTB

BSF EN

MOVLW 0XB3

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

ZEROM2

MOVLW 0XC1

MOVWF PORTB

BSF EN

MOVLW 0XC2

MOVWF PORTB

BSF EN

MOVLW 0XC3

MOVWF PORTB

BSF EN

MOVLW 0XD0

MOVWF PORTB

BSF EN

MOVLW 0XD4

MOVWF PORTB

BSF EN

MOVLW 0XE0

MOVWF PORTB

BSF EN

MOVLW 0XE4

MOVWF PORTB

BSF EN

MOVLW 0XF1

MOVWF PORTB

BSF EN

MOVLW 0XF2

MOVWF PORTB

BSF EN

MOVLW 0XF3

MOVWF PORTB

BSF EN

CLRF PORTB

RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

;---------------------------------------------------------------------------

;##########################ROTINAS DE PAUSAS############################

;---------------------------------------------------------------------------

PAUSA

BCF LED2

BCF LED3

BTFSS LDH

GOTO $+5

BCF LED1

BCF LED4

BCF LDH

GOTO $+4

BSF LED1

BSF LED4

BSF LDH

MOVLW D'42'

MOVWF ATRASO

PAUSA_1

BTFSS SWIT

CALL DISPLAY

BTFSC SWIT

CALL DISPLAYDM

CALL DELAY

DECFSZ ATRASO

GOTO PAUSA_1

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

PAUSA11

BSF LDH

MOVLW D'36'

MOVWF ATRASO

PAUSA_11

BSF LED1

BSF LED2

BSF LED3

BSF LED4

CALL DISPLAYDM

CALL DELAY

DECFSZ ATRASO

GOTO PAUSA_11

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

PAUSA2

MOVLW D'5'

MOVWF ATRASO

PAUSA2_1

CALL DISPLAY

CALL DELAY

DECFSZ ATRASO

GOTO PAUSA2_1

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

PAUSA22

MOVLW D'5'

MOVWF ATRASO

PAUSA22_1

CALL DISPLAYDM

CALL DELAY

DECFSZ ATRASO

GOTO PAUSA22_1

RETURN

;---------------------------------------------------------------------------

;---------------------------------------------------------------------------

PAUSA_5

MOVLW D'30'

MOVWF ATRASO

PAUS15

CALL DELAY

DECFSZ ATRASO

GOTO PAUS15

RETURN

;---------------------------------------------------------------------------

;---------------------------------DELAY de 10ms-----------------------------

DELAY

movlw d'217'

movwf Tmr0

bcf intcon,T0if

btfss intcon,t0if

goto $-1

return

DELAY1

movlw d'240'

movwf Tmr0

bcf intcon,T0if

btfss intcon,t0if

goto $-1

return

END ;FIM DA COMPILACAO

Não posso postar o circuito agora, talves mais tarde posto. Mas usei demux para fazer a varredura da matriz e estão os dois ligados ao PORTB.

Eu vou continuar tentando aqui, agradeceria se puderem me indicar qual o erro que cometi.

  • 4 meses depois...
  • 4 semanas depois...
LEOPUENA
 

LEOPUENA

Postado
  • Autor
Postado
amigo cade o desenho esquematico do proteus

1000 desculpas, acabei por esquecer de postar.

O codigo final:


;#**************************************************************************************#
;# _ELECTROPUBLITEC_ #
;# -------------------------------------------------------------------------------------#
;# Este projecto é um relogio, calendario, termometro em painel de leds matricial #
;# Inclui um registro de deslocamento de varios tipos com varias palavras #
;# Inclui tambem o sistema de segurança noturno que é activado automaticamente as 22h #
;# #
;# Programação começada por LEOPUENA aos 25.04.2011 #
;# -------------------------------------------------------------------------------------#
;# #
;#**************************************************************************************#



;*********************CONFIGURAÇÕES DO uC****************************
list p=16f877 ; *
Include <p16f877.inc> ; *
__Config _xt_osc & _wdt_off & _Cp_off & _pwrte_on ; *
;********************************************************************


;*********************CRIAÇÃO DE VARIAVEIS***************************
Digital equ b'00000110' ; *
CBLOCK 20H ; *
ATRASO ; *
RELOJ ; *
CALEN ; *
SEG1 ; *
SEG2 ; *
MIN1 ; *
MIN2 ; *
HOR1 ; *
HOR2 ; *
DIA1 ; *
DIA2 ; *
MES1 ; *
MES2 ; *
FLAG ; *
TEST ; *
ENDC ; *
;********************************************************************


;**********************DEFINIÇÃO DE VARIAVEIS****************************
#DEFINE LED1 PORTA,0; *
#DEFINE LED2 PORTA,1; *
#DEFINE LED3 PORTA,2; *
#DEFINE LED4 PORTA,3; *
#DEFINE SWIT PORTA,4; *
; *
#DEFINE FASE1 PORTB,0; *
#DEFINE FASE2 PORTB,1; *
#DEFINE FASE3 PORTB,2; *
#DEFINE T1 PORTB,7; *
#DEFINE T2 PORTB,6; *
#DEFINE T3 PORTB,5; *
#DEFINE T4 PORTB,4; *
#DEFINE EN PORTB,3; *
; *
#DEFINE AJUST PORTD,0; *
#DEFINE HORA PORTD,1; *
#DEFINE MINU PORTD,2; *
#DEFINE AJUSTDM PORTD,3; *
#DEFINE DIA PORTD,4; *
#DEFINE MES PORTD,5; *
#DEFINE TC4 PORTD,6; *
#DEFINE SIR PORTD,7; *
; *
#DEFINE F1 PORTE,0; *
#DEFINE F2 PORTE,1; *
#DEFINE F3 PORTE,2; *
; *
#DEFINE LDH FLAG,0 ; *
#DEFINE LDC FLAG,1 ; *
#DEFINE RCF FLAG,5 ; *
;************************************************************************


;********************PROGRAMAÇÃO DAS PORTAS**************************
ORG 0x000 ;INICIO DA COMPILACAO *
BSF STATUS,RP0 ;SELECIONA BANK 1 *
movlw Digital; *
movwf ADCON1 ; *
MOVLW 0X00 ; *
MOVWF TRISA ; *
MOVLW 0X00 ; *
MOVWF TRISB ; *
MOVLW 0X01 ; *
MOVWF TRISC ; *
MOVLW 0X00 ; *
MOVWF TRISE ; *
MOVLW 0XFF ; *
MOVWF TRISD ; *
movlw b'10000111'; *
movwf Option_reg ; *
BCF STATUS,RP0 ;VOLTA AO BANK 0 *
clrf intcon ; *
;********************************************************************


INICIO

CLRF PORTA
CLRF PORTC
CLRF PORTD
CLRF PORTB
CLRF PORTE
CLRF FLAG
CLRF HOR1
CLRF HOR2
CLRF MIN1
CLRF MIN2
CLRF DIA1
CLRF DIA2
CLRF MES1
CLRF MES2

MOVLW D'1'
MOVWF MES2
MOVWF DIA2
MOVLW D'16'
MOVWF RELOJ
MOVLW D'6'
MOVWF CALEN

GOTO MAIN

;##########################ROTINAS DE PAUSAS############################
;---------------------------------------------------------------------------
PAUSA


BCF LED2
BCF LED3
BTFSS LDH
GOTO $+5
BCF LED1
BCF LED4
BCF LDH
GOTO $+4

BSF LED1
BSF LED4
BSF LDH

MOVLW D'80'
MOVWF ATRASO


PAUSA_1

BTFSS SWIT
GOTO $+4
BSF PCLATH,3
CALL DISPLAYDM
GOTO $+3
BSF PCLATH,3
CALL DISPLAY

CALL DELAY
DECFSZ ATRASO
GOTO PAUSA_1
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
PAUSA11

BSF LDH
MOVLW D'36'
MOVWF ATRASO

PAUSA_11
BSF LED1
BSF LED2
BSF LED3
BSF LED4
BSF PCLATH,3
CALL DISPLAYDM
CALL DELAY
DECFSZ ATRASO
GOTO PAUSA_11
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
PAUSA2
MOVLW D'5'
MOVWF ATRASO

PAUSA2_1
BSF PCLATH,3
CALL DISPLAY
CALL DELAY
DECFSZ ATRASO
GOTO PAUSA2_1
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
PAUSA22
MOVLW D'5'
MOVWF ATRASO

PAUSA22_1
BSF PCLATH,3
CALL DISPLAYDM
CALL DELAY
DECFSZ ATRASO
GOTO PAUSA22_1
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
PAUSA_5
MOVLW D'30'
MOVWF ATRASO

PAUS15
CALL DELAY
DECFSZ ATRASO
GOTO PAUS15
RETURN


;---------------------------------------------------------------------------
;---------------------------------DELAY de 10ms-----------------------------
DELAY

movlw d'217'
movwf Tmr0
bcf intcon,T0if
btfss intcon,t0if
goto $-1
return

DELAY1

movlw d'240'
movwf Tmr0
bcf intcon,T0if
btfss intcon,t0if
goto $-1
return




;#######################################
MAIN

CALL PAUSA


BTFSC AJUST
GOTO AJUSTAR

BTFSC AJUSTDM
GOTO ADM


INCF SEG2,1
MOVLW D'10'
XORWF SEG2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF SEG2
INCF SEG1,1
MOVLW D'6'
XORWF SEG1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF SEG1


INCF MIN2,1
MOVLW D'10'
XORWF MIN2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF MIN2
INCF MIN1,1
MOVLW D'6'
XORWF MIN1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF MIN1

INCF HOR2,1
MOVLW D'4'
XORWF HOR2,0
BTFSC STATUS,Z
GOTO LOOP
MOVLW D'10'
XORWF HOR2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF HOR2
INCF HOR1,1
MOVLW D'3'
XORWF HOR1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF HOR1
GOTO MAIN

LOOP
MOVLW D'2'
XORWF HOR1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF HOR1
CLRF HOR2

;********************************************************************

BTFSS MES1,0
GOTO TEST_D0
GOTO TEST_D1

GOTO TEST_D1


TEST_D0 ;JANEIRO A SETEMBRO

MOVLW D'0'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;JANEIRO - GRUPO 31

MOVLW D'1'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;JANEIRO - GRUPO 31

MOVLW D'2'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G28 ;FEVEREIRO - GRUPO 38

MOVLW D'3'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;MARÇO - GRUPO 31

MOVLW D'4'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G30 ;ABRIL - GRUPO 30

MOVLW D'5'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;MAIO - GRUPO 31

MOVLW D'6'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G30 ;JUNHO - GRUPO 30

MOVLW D'7'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;JULHO - GRUPO 31

MOVLW D'8'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;AGOSTO - GRUPO 31

MOVLW D'9'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G30 ;SETEMBRO - GRUPO 30





TEST_D1 ;OUTUBRO A DEZEMBRO

MOVLW D'0'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;OUTUBRO - GRUPO 31

MOVLW D'1'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G30 ;NOVEMBRO - GRUPO 30

MOVLW D'2'
XORWF MES2,W
BTFSC STATUS,Z
GOTO G31 ;DEZEMBRO - GRUPO 3




G28

INCF DIA2,1
MOVLW D'9'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPD1
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF DIA2

INCF DIA1,1
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF DIA1
GOTO R_MES


LOOPD1
MOVLW D'2'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO R_MES



G30

INCF DIA2,1
MOVLW D'1'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPD2
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF DIA2

INCF DIA1,1
MOVLW D'4'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF DIA1
GOTO R_MES


LOOPD2
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO R_MES


G31

INCF DIA2,1
MOVLW D'2'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPD3
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF DIA2

INCF DIA1,1
MOVLW D'4'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF DIA1
GOTO R_MES


LOOPD3
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO MAIN
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO R_MES




R_MES
INCF MES2,1
MOVLW D'3'
XORWF MES2,0
BTFSC STATUS,Z
GOTO LOOP1
MOVLW D'10'
XORWF MES2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF MES2

INCF MES1,1
MOVLW D'2'
XORWF MES1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF MES1
GOTO MAIN

LOOP1
MOVLW D'1'
XORWF MES1,0
BTFSS STATUS,Z
GOTO MAIN
MOVLW D'1'
MOVWF MES2
CLRF MES1

GOTO INICIO

;********************************************************************
;********************************************************************
;«««««««««««««««««««««««««««««««««««««««««««««««««««
AJUSTAR

CALL PAUSA2

BTFSC HORA
GOTO AJUSTARH
BTFSC MINU
GOTO AJUSTARM

BTFSC AJUST
GOTO AJUSTAR
GOTO MAIN

;===============================
AJUSTARM
CALL PAUSA2
BTFSC MINU
GOTO $-2


INCF MIN2,1
MOVLW D'10'
XORWF MIN2,0
BTFSS STATUS,Z
GOTO AJUSTAR

CLRF MIN2
INCF MIN1,1
MOVLW D'6'
XORWF MIN1,0
BTFSS STATUS,Z
GOTO AJUSTAR
CLRF MIN1
GOTO AJUSTAR
;===============================
AJUSTARH
CALL PAUSA2
BTFSC HORA
GOTO $-2


INCF HOR2,1
MOVLW D'4'
XORWF HOR2,0
BTFSC STATUS,Z
GOTO LOOPA
MOVLW D'10'
XORWF HOR2,0
BTFSS STATUS,Z
GOTO AJUSTAR

CLRF HOR2
INCF HOR1,1


MOVLW D'10'
XORWF HOR2,0
BTFSS STATUS,Z
GOTO MAIN

CLRF HOR2
INCF HOR1,1
MOVLW D'3'
XORWF HOR1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF HOR1
GOTO MAIN

LOOPA
MOVLW D'2'
XORWF HOR1,0
BTFSS STATUS,Z
GOTO MAIN
CLRF HOR1
CLRF HOR2
GOTO MAIN


;«««««««««««««««««««««««««««««««««««««««««««««««««««

ADM

CALL PAUSA22

BTFSC DIA
GOTO ADIA
BTFSC MES
GOTO AMES


BTFSC AJUSTDM
GOTO ADM
GOTO MAIN

;===============================
AMES
CALL PAUSA22
BTFSC MES
GOTO $-2


INCF MES2,1
MOVLW D'3'
XORWF MES2,0
BTFSC STATUS,Z
GOTO LOOPA1
MOVLW D'10'
XORWF MES2,0
BTFSS STATUS,Z
GOTO ADM

CLRF MES2

INCF MES1,1
MOVLW D'2'
XORWF MES1,0
BTFSS STATUS,Z
GOTO ADM
CLRF MES1
GOTO ADM

LOOPA1
MOVLW D'1'
XORWF MES1,0
BTFSS STATUS,Z
GOTO ADM

MOVLW D'1'
MOVWF MES2
CLRF MES1

GOTO ADM


;===============================
ADIA
CALL PAUSA22
BTFSC DIA
GOTO $-2


BTFSS MES1,0
GOTO ATEST_D0
GOTO ATEST_D1

GOTO ATEST_D1


ATEST_D0 ;JANEIRO A SETEMBRO

MOVLW D'0'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;JANEIRO - GRUPO 31

MOVLW D'1'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;JANEIRO - GRUPO 31

MOVLW D'2'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG28 ;FEVEREIRO - GRUPO 38

MOVLW D'3'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;MARÇO - GRUPO 31

MOVLW D'4'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG30 ;ABRIL - GRUPO 30

MOVLW D'5'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;MAIO - GRUPO 31

MOVLW D'6'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG30 ;JUNHO - GRUPO 30

MOVLW D'7'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;JULHO - GRUPO 31

MOVLW D'8'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;AGOSTO - GRUPO 31

MOVLW D'9'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG30 ;SETEMBRO - GRUPO 30





ATEST_D1 ;OUTUBRO A DEZEMBRO

MOVLW D'0'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;OUTUBRO - GRUPO 31

MOVLW D'1'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG30 ;NOVEMBRO - GRUPO 30

MOVLW D'2'
XORWF MES2,W
BTFSC STATUS,Z
GOTO AG31 ;DEZEMBRO - GRUPO 3




AG28

INCF DIA2,1
MOVLW D'9'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPAD1
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO ADM

CLRF DIA2

INCF DIA1,1
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
CLRF DIA1
GOTO ADM


LOOPAD1
MOVLW D'2'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO ADM



AG30

INCF DIA2,1
MOVLW D'1'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPAD2
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO ADM

CLRF DIA2

INCF DIA1,1
MOVLW D'4'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
CLRF DIA1
GOTO ADM


LOOPAD2
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO ADM


AG31

INCF DIA2,1
MOVLW D'2'
XORWF DIA2,0
BTFSC STATUS,Z
GOTO LOOPAD3
MOVLW D'10'
XORWF DIA2,0
BTFSS STATUS,Z
GOTO ADM

CLRF DIA2

INCF DIA1,1
MOVLW D'4'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
CLRF DIA1
GOTO ADM


LOOPAD3
MOVLW D'3'
XORWF DIA1,0
BTFSS STATUS,Z
GOTO ADM
MOVLW D'1'
MOVWF DIA2
CLRF DIA1
GOTO ADM


GOTO ADM


;«««««««««««««««««««««««««««««««««««««««««««««««««««

ORG 0800

DISPLAY


CALL DISP_1
CALL DISP_2
CALL DISP_3
CALL DISP_4
BCF PCLATH,3
BCF PCLATH,4
RETURN

DISP_1

MOVF HOR1,W

DISP1

addwf PCL,f


GOTO ZEROH1

GOTO UMH1

GOTO DOISH1

GOTO TRESH1

GOTO QUATROH1

GOTO CINCOH1

GOTO SEISH1

GOTO SETEH1

GOTO OITOH1

GOTO NOVEH1


DISP_2

MOVF HOR2,W

DISP2

addwf PCL,f


GOTO ZEROH2

GOTO UMH2

GOTO DOISH2

GOTO TRESH2

GOTO QUATROH2

GOTO CINCOH2

GOTO SEISH2

GOTO SETEH2

GOTO OITOH2

GOTO NOVEH2


DISP_3

MOVF MIN1,W

DISP3

addwf PCL,f


GOTO ZEROM1

GOTO UMM1

GOTO DOISM1

GOTO TRESM1

GOTO QUATROM1

GOTO CINCOM1

GOTO SEISM1

GOTO SETEM1

GOTO OITOM1

GOTO NOVEM1


DISP_4

MOVF MIN2,W

DISP4

addwf PCL,f


GOTO ZEROM2

GOTO UMM2

GOTO DOISM2

GOTO TRESM2

GOTO QUATROM2

GOTO CINCOM2

GOTO SEISM2

GOTO SETEM2

GOTO OITOM2

GOTO NOVEM2


;«««««««««««««««««««««««««««««««««««««««««««««««««««
DISPLAYDM


CALL DISP1DM
CALL DISP2DM
CALL DISP3DM
CALL DISP4DM
BCF PCLATH,3
BCF PCLATH,4
RETURN

DISP1DM

MOVF DIA1,W
ANDLW B'00001111'

GOTO DISP1

DISP2DM

MOVF DIA2,W
ANDLW B'00001111'

GOTO DISP2


DISP3DM

MOVF MES1,W
ANDLW B'00001111'

GOTO DISP3



DISP4DM

MOVF MES2,W
ANDLW B'00001111'

GOTO DISP4

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;««««««««««««««««««««««««#####MAPA DE CARACTERES#####»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

UMH1

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP

MOVLW 0X11
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP
MOVLW 0X14
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X21
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X23
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN

MOVLW 0X34
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
UMH2

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP


MOVLW 0X51
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP
MOVLW 0X54
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X61
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X63
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN

MOVLW 0X74
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
UMM1

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP


MOVLW 0X91
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP
MOVLW 0X94
MOVWF PORTB
BSF EN

MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA1
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA3
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN

MOVLW 0XB4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP

CLRF PORTB
CLRF PORTA
RETURN
;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
UMM2

NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP


MOVLW 0XD1
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE1
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE3
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN

MOVLW 0XF4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP
NOP
NOP

CLRF PORTB
CLRF PORTA
RETURN

;---------------------------------------------------------------------------
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
DOISH1


MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X04
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X10
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X13
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X34
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
DOISH2

MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X44
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X50
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X53
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X74
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
DOISM1

MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X84
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X90
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X93
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN

MOVLW 0XA0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
DOISM2

MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0XD0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XD3
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN


MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN
;---------------------------------------------------------------------------
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
TRESH1


MOVLW 0X00
MOVWF PORTB
BSF EN
MOVLW 0X04
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X10
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X12
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
TRESH2


MOVLW 0X40
MOVWF PORTB
BSF EN
MOVLW 0X44
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X50
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X52
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
TRESM1


MOVLW 0X80
MOVWF PORTB
BSF EN
MOVLW 0X84
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X90
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0X92
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN

MOVLW 0XA0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
TRESM2


MOVLW 0XC0
MOVWF PORTB
BSF EN
MOVLW 0XC4
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0XD0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XD2
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
NOP
NOP
NOP
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN


MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
QUATROH1

MOVLW 0X00
MOVWF PORTB
BSF EN
MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X12
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0X22
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0X30
MOVWF PORTB
BSF EN
MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X32
MOVWF PORTB
BSF EN
MOVLW 0X34
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
QUATROH2

MOVLW 0X40
MOVWF PORTB
BSF EN
MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X52
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0X62
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0X70
MOVWF PORTB
BSF EN
MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X72
MOVWF PORTB
BSF EN
MOVLW 0X74
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
QUATROM1

MOVLW 0X80
MOVWF PORTB
BSF EN
MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


MOVLW 0X92
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0XA2
MOVWF PORTB
BSF EN
NOP
NOP
NOP


MOVLW 0XB0
MOVWF PORTB
BSF EN
MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB2
MOVWF PORTB
BSF EN
MOVLW 0XB4
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN
NOP
NOP
NOP
NOP


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
QUATROM2

MOVLW 0XC0
MOVWF PORTB
BSF EN
MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN


MOVLW 0XD2
MOVWF PORTB
BSF EN


MOVLW 0XE2
MOVWF PORTB
BSF EN


MOVLW 0XF0
MOVWF PORTB
BSF EN
MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF2
MOVWF PORTB
BSF EN
MOVLW 0XF4
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------




;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
CINCOH1

MOVLW 0X00
MOVWF PORTB
BSF EN
MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN
MOVLW 0X04
MOVWF PORTB
BSF EN


MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X12
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN


MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X30
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN
MOVLW 0X34
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
CINCOH2

MOVLW 0X40
MOVWF PORTB
BSF EN
MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN
MOVLW 0X44
MOVWF PORTB
BSF EN


MOVLW 0X50
MOVWF PORTB
BSF EN
MOVLW 0X52
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN


MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X70
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN
MOVLW 0X74
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
CINCOM1

MOVLW 0X80
MOVWF PORTB
BSF EN
MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN
MOVLW 0X84
MOVWF PORTB
BSF EN


MOVLW 0X90
MOVWF PORTB
BSF EN
MOVLW 0X92
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN


MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB0
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN
MOVLW 0XB4
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
CINCOM2

MOVLW 0XC0
MOVWF PORTB
BSF EN
MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN
MOVLW 0XC4
MOVWF PORTB
BSF EN

MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD2
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN

MOVLW 0XF0
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN
MOVLW 0XF4
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
SEISH1

MOVLW 0X03
MOVWF PORTB
BSF EN
MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN


MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X12
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN


MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X33
MOVWF PORTB
BSF EN
MOVLW 0X32
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SEISH2

MOVLW 0X43
MOVWF PORTB
BSF EN
MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN


MOVLW 0X50
MOVWF PORTB
BSF EN
MOVLW 0X52
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X73
MOVWF PORTB
BSF EN
MOVLW 0X72
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SEISM1

MOVLW 0X83
MOVWF PORTB
BSF EN
MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN

MOVLW 0X90
MOVWF PORTB
BSF EN
MOVLW 0X92
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN


MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN

MOVLW 0XB3
MOVWF PORTB
BSF EN
MOVLW 0XB2
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SEISM2

MOVLW 0XC3
MOVWF PORTB
BSF EN
MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN


MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD2
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN

MOVLW 0XF3
MOVWF PORTB
BSF EN
MOVLW 0XF2
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
SETEH1

MOVLW 0X00
MOVWF PORTB
BSF EN

MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X12
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X21
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X23
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN

MOVLW 0X32
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SETEH2

MOVLW 0X40
MOVWF PORTB
BSF EN

MOVLW 0X50
MOVWF PORTB
BSF EN
MOVLW 0X52
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X61
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X63
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X72
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SETEM1

MOVLW 0X80
MOVWF PORTB
BSF EN


MOVLW 0X90
MOVWF PORTB
BSF EN
MOVLW 0X92
MOVWF PORTB
BSF EN


MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA1
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA3
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN



MOVLW 0XB2
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
SETEM2

MOVLW 0XC0
MOVWF PORTB
BSF EN

MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD2
MOVWF PORTB
BSF EN


MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE1
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE3
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN


MOVLW 0XF2
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
OITOH1

MOVLW 0X00
MOVWF PORTB
BSF EN
MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN
MOVLW 0X03
MOVWF PORTB
BSF EN
MOVLW 0X04
MOVWF PORTB
BSF EN


MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X12
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X30
MOVWF PORTB
BSF EN
MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X32
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN
MOVLW 0X34
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
OITOH2

MOVLW 0X40
MOVWF PORTB
BSF EN
MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN
MOVLW 0X43
MOVWF PORTB
BSF EN
MOVLW 0X44
MOVWF PORTB
BSF EN


MOVLW 0X50
MOVWF PORTB
BSF EN
MOVLW 0X52
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN

MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X70
MOVWF PORTB
BSF EN
MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X72
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN
MOVLW 0X74
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
OITOM1

MOVLW 0X80
MOVWF PORTB
BSF EN
MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN
MOVLW 0X83
MOVWF PORTB
BSF EN
MOVLW 0X84
MOVWF PORTB
BSF EN


MOVLW 0X90
MOVWF PORTB
BSF EN
MOVLW 0X92
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN

MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB0
MOVWF PORTB
BSF EN
MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB2
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN
MOVLW 0XB4
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
OITOM2

MOVLW 0XC0
MOVWF PORTB
BSF EN
MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN
MOVLW 0XC3
MOVWF PORTB
BSF EN
MOVLW 0XC4
MOVWF PORTB
BSF EN


MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD2
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN

MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN


MOVLW 0XF0
MOVWF PORTB
BSF EN
MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF2
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN
MOVLW 0XF4
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
NOVEH1


MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN


MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X12
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN


MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X22
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN

MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X32
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
NOVEH2


MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN

MOVLW 0X50
MOVWF PORTB
BSF EN
MOVLW 0X52
MOVWF PORTB
BSF EN
MOVLW 0X54
MOVWF PORTB
BSF EN


MOVLW 0X60
MOVWF PORTB
BSF EN
MOVLW 0X62
MOVWF PORTB
BSF EN
MOVLW 0X64
MOVWF PORTB
BSF EN

MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X72
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
NOVEM1


MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN


MOVLW 0X90
MOVWF PORTB
BSF EN
MOVLW 0X92
MOVWF PORTB
BSF EN
MOVLW 0X94
MOVWF PORTB
BSF EN


MOVLW 0XA0
MOVWF PORTB
BSF EN
MOVLW 0XA2
MOVWF PORTB
BSF EN
MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB2
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
NOVEM2


MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN

MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD2
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN


MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE2
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN

MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF2
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN


;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------
ZEROH1


MOVLW 0X01
MOVWF PORTB
BSF EN
MOVLW 0X02
MOVWF PORTB
BSF EN
MOVLW 0X03
MOVWF PORTB
BSF EN

MOVLW 0X10
MOVWF PORTB
BSF EN
MOVLW 0X14
MOVWF PORTB
BSF EN

MOVLW 0X20
MOVWF PORTB
BSF EN
MOVLW 0X24
MOVWF PORTB
BSF EN


MOVLW 0X31
MOVWF PORTB
BSF EN
MOVLW 0X32
MOVWF PORTB
BSF EN
MOVLW 0X33
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN


;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
ZEROH2


MOVLW 0X41
MOVWF PORTB
BSF EN
MOVLW 0X42
MOVWF PORTB
BSF EN
MOVLW 0X43
MOVWF PORTB
BSF EN


MOVLW 0X50
MOVWF PORTB
BSF EN

MOVLW 0X54
MOVWF PORTB
BSF EN


MOVLW 0X60
MOVWF PORTB
BSF EN

MOVLW 0X64
MOVWF PORTB
BSF EN


MOVLW 0X71
MOVWF PORTB
BSF EN
MOVLW 0X72
MOVWF PORTB
BSF EN
MOVLW 0X73
MOVWF PORTB
BSF EN

CLRF PORTB
RETURN


;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
ZEROM1

MOVLW 0X81
MOVWF PORTB
BSF EN
MOVLW 0X82
MOVWF PORTB
BSF EN
MOVLW 0X83
MOVWF PORTB
BSF EN

MOVLW 0X90
MOVWF PORTB
BSF EN

MOVLW 0X94
MOVWF PORTB
BSF EN


MOVLW 0XA0
MOVWF PORTB
BSF EN

MOVLW 0XA4
MOVWF PORTB
BSF EN


MOVLW 0XB1
MOVWF PORTB
BSF EN
MOVLW 0XB2
MOVWF PORTB
BSF EN
MOVLW 0XB3
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
ZEROM2

MOVLW 0XC1
MOVWF PORTB
BSF EN
MOVLW 0XC2
MOVWF PORTB
BSF EN
MOVLW 0XC3
MOVWF PORTB
BSF EN



MOVLW 0XD0
MOVWF PORTB
BSF EN
MOVLW 0XD4
MOVWF PORTB
BSF EN


MOVLW 0XE0
MOVWF PORTB
BSF EN
MOVLW 0XE4
MOVWF PORTB
BSF EN


MOVLW 0XF1
MOVWF PORTB
BSF EN
MOVLW 0XF2
MOVWF PORTB
BSF EN
MOVLW 0XF3
MOVWF PORTB
BSF EN


CLRF PORTB
RETURN

;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;«««««««««««««««««««««««««««««««««««««««»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»
;---------------------------------------------------------------------------





END ;FIM DA COMPILACAO

E o circuito:

post-838024-13884960848816_thumb.jpg

  • Coordenador
BCP
 

BCP

Postado
  • Coordenador
Postado

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!