;----------------------------------------------------------
; Code Produced by the Proton Compiler. Ver 3.5.2.7
; Copyright Rosetta Technologies/Crownhill Associates Ltd
; Written by Les Johnson. November 2011
;----------------------------------------------------------
;
#define CONFIG_REQ 1
 LIST  P = 16F628A, F = INHX8M, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255
INDF equ 0X0000
TMR0 equ 0X0001
PCL equ 0X0002
STATUS equ 0X0003
FSR equ 0X0004
PORTA equ 0X0005
PORTB equ 0X0006
PCLATH equ 0X000A
INTCON equ 0X000B
PIR1 equ 0X000C
TMR1L equ 0X000E
TMR1LH equ 0X000F
TMR1H equ 0X000F
T1CON equ 0X0010
TMR2 equ 0X0011
T2CON equ 0X0012
CCPR1L equ 0X0015
CCPR1LH equ 0X0016
CCPR1H equ 0X0016
CCP1CON equ 0X0017
RCSTA equ 0X0018
TXREG equ 0X0019
RCREG equ 0X001A
CMCON equ 0X001F
OPTION_REG equ 0X0081
TRISA equ 0X0085
TRISB equ 0X0086
PIE1 equ 0X008C
PCON equ 0X008E
PR2 equ 0X0092
TXSTA equ 0X0098
SPBRG equ 0X0099
EEDATL equ 0X009A
EEDATA equ 0X009A
EEDAT equ 0X009A
EEADR equ 0X009B
EECON1 equ 0X009C
EECON2 equ 0X009D
VRCON equ 0X009F
IRP=7
RP1=6
RP0=5
NOT_TO=4
NOT_PD=3
Z=2
DC=1
C=0
GIE=7
PEIE=6
T0IE=5
INTE=4
RBIE=3
T0IF=2
INTF=1
RBIF=0
EEIF=7
CMIF=6
RCIF=5
PP_RCIF=5
TXIF=4
PP_TXIF=4
CCP1IF=2
TMR2IF=1
TMR1IF=0
T1CKPS1=5
T1CKPS0=4
T1OSCEN=3
NOT_T1SYNC=2
TMR1CS=1
TMR1ON=0
TOUTPS3=6
TOUTPS2=5
TOUTPS1=4
TOUTPS0=3
TMR2ON=2
PP_TMR2ON=2
T2CKPS1=1
PP_T2CKPS1=1
T2CKPS0=0
PP_T2CKPS0=0
CCP1X=5
CCP1Y=4
CCP1M3=3
CCP1M2=2
CCP1M1=1
CCP1M0=0
SPEN=7
RX9=6
SREN=5
CREN=4
PP_CREN=4
ADEN=3
FERR=2
OERR=1
PP_OERR=1
RX9D=0
C2OUT=7
C1OUT=6
C2INV=5
C1INV=4
CIS=3
CM2=2
CM1=1
CM0=0
NOT_RBPU=7
INTEDG=6
T0CS=5
T0SE=4
PSA=3
PS2=2
PS1=1
PS0=0
EEIE=7
CMIE=6
RCIE=5
TXIE=4
CCP1IE=2
TMR2IE=1
TMR1IE=0
OSCF=3
NOT_POR=1
NOT_BO=0
NOT_BOR=0
NOT_BOD=0
CSRC=7
TX9=6
TXEN=5
SYNC=4
BRGH=2
TRMT=1
TX9D=0
WRERR=3
PP_WRERR=3
WREN=2
PP_WREN=2
WR=1
PP_WR=1
RD=0
PP_RD=0
VREN=7
VROE=6
VRR=5
VR3=3
VR2=2
VR1=1
VR0=0
  __MAXRAM 0X01FF
  __BADRAM 0X07-0X09, 0X0D, 0X13-0X14, 0X1B-0X1E
  __BADRAM 0X87-0X89, 0X8D, 0X8F-0X91, 0X93-0X97, 0X9E
  __BADRAM 0X105, 0X107-0X109, 0X10C-0X11F, 0X150-0X16F
  __BADRAM 0X185, 0X187-0X189, 0X18C-0X1EF
BODEN_ON equ 0X3FFF
BODEN_OFF equ 0X3FBF
BOREN_ON equ 0X3FFF
BOREN_OFF equ 0X3FBF
CP_ON equ 0X1FFF
CP_OFF equ 0X3FFF
DATA_CP_ON equ 0X3EFF
DATA_CP_OFF equ 0X3FFF
PWRTE_OFF equ 0X3FFF
PWRTE_ON equ 0X3FF7
WDT_ON equ 0X3FFF
WDT_OFF equ 0X3FFB
LVP_ON equ 0X3FFF
LVP_OFF equ 0X3F7F
MCLRE_ON equ 0X3FFF
MCLRE_OFF equ 0X3FDF
RC_OSC_CLKOUT equ 0X3FFF
RC_OSC_NOCLKOUT equ 0X3FFE
ER_OSC_CLKOUT equ 0X3FFF
ER_OSC_NOCLKOUT equ 0X3FFE
INTOSC_OSC_CLKOUT equ 0X3FFD
INTOSC_OSC_NOCLKOUT equ 0X3FFC
INTRC_OSC_CLKOUT equ 0X3FFD
INTRC_OSC_NOCLKOUT equ 0X3FFC
EXTCLK_OSC equ 0X3FEF
HS_OSC equ 0X3FEE
XT_OSC equ 0X3FED
LP_OSC equ 0X3FEC
CPD_OFF equ 0X3FFF
CPD_ON equ 0X3EFF
FOSC_ECIO equ 0X3FEF
FOSC_EXTRCCLK equ 0X3FFF
FOSC_EXTRCIO equ 0X3FFE
FOSC_HS equ 0X3FEE
FOSC_INTOSCCLK equ 0X3FFD
FOSC_INTOSCIO equ 0X3FFC
FOSC_LP equ 0X3FEC
FOSC_XT equ 0X3FED
WDTE_OFF equ 0X3FFB
WDTE_ON equ 0X3FFF
#define __16F628A 1
#define XTAL 4
#define _CORE 14
#define _MAXRAM 224
#define _RAM_END 0X00E0
#define _MAXMEM 2048
#define _ADC 0
#define _ADC_RES 0
#define _EEPROM 128
#define _PAGES 1
#define _BANKS 3
#define RAM_BANKS 3
#define _USART 1
#define _USB 0
#define _FLASH 0
#define _CWRITE_BLOCK 0
#define BANK0_START 0X20
#define BANK0_END 0X7F
#define BANK1_START 0X00A0
#define BANK1_END 0X00EF
#define BANK2_START 0X0120
#define BANK2_END 0X014F
#define _SYSTEM_VARIABLE_COUNT 12
ram_bank = 0
CURRENT@PAGE = 0
DEST@PAGE = 0
#define LCD#TYPE 0
f@call macro PDEST
if(PDEST < 1)
else
if(PDEST > $)
else
endif
endif
        call PDEST
        endm
F@JUMP macro PDEST
if(PDEST < 1)
else
if(PDEST > $)
else
endif
endif
        goto PDEST
        endm
set@page macro PDEST
        endm
s@b     macro pVarin
if((pVarin & 384) == 0)
if(ram_bank == 1)
        bcf 3,5
endif
if(ram_bank == 2)
        bcf 3,6
endif
if(ram_bank == 3)
        bcf 3,5
        bcf 3,6
endif
ram_bank = 0
endif
if((pVarin & 384) == 128)
if(ram_bank == 0)
        bsf 3,5
endif
if(ram_bank == 2)
        bsf 3,5
        bcf 3,6
endif
if(ram_bank == 3)
        bcf 3,6
endif
ram_bank = 1
endif
if((pVarin & 384) == 256)
if(ram_bank == 0)
        bsf 3,6
endif
if(ram_bank == 1)
        bcf 3,5
        bsf 3,6
endif
if(ram_bank == 3)
        bcf 3,5
endif
ram_bank = 2
endif
if((pVarin & 384) == 384)
if(ram_bank == 0)
        bsf 3,5
        bsf 3,6
endif
if(ram_bank == 1)
        bsf 3,6
endif
if(ram_bank == 2)
        bsf 3,5
endif
ram_bank = 3
endif
        endm
r@b     macro
if((ram_bank & 1) != 0)
        bcf 3,5
endif
if((ram_bank & 2) != 0)
        bcf 3,6
endif
ram_bank = 0
        endm
jump macro PLABEL
    goto PLABEL
    endm
wreg_byte macro pByteOut
    s@b pByteOut
    movwf pByteOut
    r@b
    endm
wreg_bit macro pVarOut,pBitout
    s@b pVarOut
    andlw 1
    btfsc STATUS,2
    bcf pVarOut,pBitout
    btfss STATUS,2
    bsf pVarOut,pBitout
    r@b
    endm
wreg_word macro pWordOut
    s@b pWordOut
    movwf pWordOut
    s@b pWordOut+1
    clrf pWordOut+1
    r@b
    endm
wreg_dword macro pDwordOut
    s@b pDwordOut+3
    clrf pDwordOut+3
    s@b pDwordOut+2
    clrf pDwordOut+2
    s@b pDwordOut+1
    clrf pDwordOut+1
    s@b pDwordOut
    movwf pDwordOut
    r@b
    endm
byte_wreg macro pByteIn
    s@b pByteIn
    movf pByteIn,W
    r@b
    endm
num_wreg macro pNumIn
    movlw (pNumIn & 255)
    endm
num_byte macro pNumIn,pByteOut
    s@b pByteOut
if(pNumIn == 0)
    clrf pByteOut
else
    movlw (pNumIn & 255)
    movwf pByteOut
endif
    r@b
    endm
num_bit macro pNumIn,pVarOut,pBitout
    s@b pVarOut
if((pNumIn & 1) == 1)
    bsf pVarOut,pBitout
else
    bcf pVarOut,pBitout
endif
    r@b
    endm
num_word macro pNumIn,pWordOut
if((pNumIn & 255) == 0)
    s@b pWordOut
    clrf pWordOut
else
    s@b pWordOut
    movlw low (pNumIn)
    movwf pWordOut
endif
if(((pNumIn >> 8) & 255) == 0)
    s@b pWordOut+1
    clrf pWordOut+1
else
    s@b pWordOut+1
    movlw high (pNumIn)
    movwf pWordOut+1
endif
    r@b
    endm
num_dword macro pNumIn,pDwordOut
if ((pNumIn >> 24 & 255) == 0)
    s@b pDwordOut+3
    clrf pDwordOut+3
else
    s@b pDwordOut+3
    movlw ((pNumIn >> 24) & 255)
    movwf pDwordOut+3
endif
if( ((pNumIn >> 16) & 255) == 0)
    s@b pDwordOut+2
    clrf pDwordOut+2
else
    s@b pDwordOut+2
    movlw ((pNumIn >> 16) & 255)
    movwf pDwordOut+2
endif
if( ((pNumIn >> 8) & 255) == 0)
    s@b pDwordOut+1
    clrf pDwordOut+1
else
    s@b pDwordOut+1
    movlw high (pNumIn)
    movwf pDwordOut+1
endif
if((pNumIn & 255) == 0)
    s@b pDwordOut
    clrf pDwordOut
else
    s@b pDwordOut
    movlw low (pNumIn)
    movwf pDwordOut
endif
    r@b
    endm
bit_wreg macro pVarin,pBitIn
    s@b pVarin
    clrw
    btfsc pVarin,pBitIn
    movlw 1
    r@b
    endm
bit_byte macro pVarin,pBitIn,pByteOut
    s@b pVarin
    clrw
    btfsc pVarin,pBitIn
    movlw 1
    s@b pByteOut
    movwf pByteOut
    r@b
    endm
bit_bit macro pVarin,pBitIn,pVarOut,pBitout
if((pVarin & 65408) == (pVarOut & 65408))
    s@b pVarOut
    btfsc pVarin,pBitIn
    bsf pVarOut,pBitout
    btfss pVarin,pBitIn
    bcf pVarOut,pBitout
else
    s@b pVarin
    clrdc
    btfsc pVarin,pBitIn
    setdc
    s@b pVarOut
    skpndc
    bsf pVarOut,pBitout
    skpdc
    bcf pVarOut,pBitout
endif
    endm
bit_word macro pVarin,pBitIn,pWordOut
    s@b pWordOut+1
    clrf pWordOut+1
    bit_byte pVarin,pBitIn,pWordOut
    endm
bit_dword macro pVarin,pBitIn,pDwordOut
    s@b pDwordOut+3
    clrf pDwordOut+3
    s@b pDwordOut+2
    clrf pDwordOut+2
    s@b pDwordOut+1
    clrf pDwordOut+1
    bit_byte pVarin,pBitIn,pDwordOut
    endm
word_wreg macro pWordIn
    byte_wreg pWordIn
    endm
word_byte macro pWordIn,pByteOut
    byte_byte pWordIn,pByteOut
    endm
word_bit macro pWordIn,pVarOut,pBitout
    byte_bit pWordIn, pVarOut, pBitout
    endm
word_word macro pWordIn,pWordOut
    s@b pWordIn+1
    movf pWordIn+1,W
    s@b pWordOut+1
    movwf pWordOut+1
    byte_byte pWordIn,pWordOut
    endm
word_dword macro pWordIn,pDwordOut
    s@b pDwordOut+3
    clrf pDwordOut+3
    s@b pDwordOut+2
    clrf pDwordOut+2
    byte_byte pWordIn+1,pDwordOut+1
    byte_byte pWordIn,pDwordOut
    endm
byte_byte macro pByteIn,pByteOut
    s@b pByteIn
    movf pByteIn,W
    s@b pByteOut
    movwf pByteOut
    r@b
    endm
byte_word macro pByteIn,pWordOut
    s@b pWordOut+1
    clrf pWordOut+1
    byte_byte pByteIn,pWordOut
    endm
byte_dword macro pByteIn,pDwordOut
    s@b pDwordOut+3
    clrf pDwordOut+3
    s@b pDwordOut+2
    clrf pDwordOut+2
    s@b pDwordOut+1
    clrf pDwordOut+1
    byte_byte pByteIn,pDwordOut
    endm
    byte_bit macro pByteIn,pVarOut,pBitout
if((pByteIn & 65408) == (pVarOut & 65408))
    s@b pByteIn
    btfsc pByteIn,0
    bsf pVarOut,pBitout
    btfss pByteIn,0
    bcf pVarOut,pBitout
else
    s@b pByteIn
    rrf pByteIn,W
    s@b pVarOut
    skpnc
    bsf pVarOut,pBitout
    skpc
    bcf pVarOut,pBitout
endif
    r@b
    endm
dword_wreg macro pDwordIn
    byte_wreg pDwordIn
    endm
dword_byte macro pDwordIn,pByteOut
    byte_byte pDwordIn,pByteOut
    endm
dword_word macro pDwordIn,pWordOut
    s@b pDwordIn+1
    movf pDwordIn+1,W
    s@b pWordOut+1
    movwf pWordOut+1
    byte_byte pDwordIn,pWordOut
    endm
dword_dword macro pDwordIn,pDwordOut
    byte_byte pDwordIn+3,pDwordOut+3
    byte_byte pDwordIn+2,pDwordOut+2
    byte_byte pDwordIn+1,pDwordOut+1
    byte_byte pDwordIn,pDwordOut
    endm
dword_bit macro pDwordIn,pVarOut,pBitout
    byte_bit pDwordIn,pVarOut,pBitout
    endm
variable CURRENT@PAGE = 0
variable PDESTINATION@PAGE = 0
FIND@PAGE macro pLabelIn
local CURRENT_ADDR = $
local DEST_ADDR = pLabelIn
if((CURRENT_ADDR >= 0X1800) && (CURRENT_ADDR <= 0X2000))
    CURRENT@PAGE = 3
endif
if((CURRENT_ADDR >= 0X1000) && (CURRENT_ADDR <= 0X1800))
    CURRENT@PAGE = 2
endif
if((CURRENT_ADDR >= 0X0800) && (CURRENT_ADDR <= 0X1000))
    CURRENT@PAGE = 1
endif
if((CURRENT_ADDR >= 0) && (CURRENT_ADDR <= 0X0800))
    CURRENT@PAGE = 0
endif
if((DEST_ADDR >= 0X1800) && (DEST_ADDR <= 0X2000))
    PDESTINATION@PAGE = 3
endif
if((DEST_ADDR >= 0X1000) && (DEST_ADDR <= 0X1800))
    PDESTINATION@PAGE = 2
endif
if((DEST_ADDR >= 0X0800) && (DEST_ADDR <= 0X1000))
    PDESTINATION@PAGE = 1
endif
if((DEST_ADDR >= 0) && (DEST_ADDR <= 0X0800))
    PDESTINATION@PAGE = 0
endif
    endm
NUM_FSR macro pNumIn
    num_byte pNumIn, FSR
if (((pNumIn >> 8) & 255) == 1)
    bsf STATUS,7
else
    bcf STATUS,7
endif
    endm
label_word macro pLabelIn,pWordOut
    movlw low (pLabelIn)
    s@b pWordOut
    movwf pWordOut
    movlw high (pLabelIn)
    s@b pWordOut
    movwf pWordOut+1
    r@b
    endm
GPR = 32
PBP#VAR0 = 33
PBP#VAR0H = 34
PP0 = 35
PP0H = 36
PP1 = 37
PP1H = 38
PP2 = 39
PP2H = 40
PP3 = 41
PP3H = 42
SP#P9 = 43
DIG1 = 44
DIG2 = 45
SEGUNDOS = 46
index = 47
digx = 48
_I = 49
REGISTRO_10MS = 50
#define P_MAS PORTA,1
#define P_MENOS PORTA,0
#define P_ENTER PORTB,0
#define RELAY PORTA,6
#define ZUMBADOR PORTA,7
#define __XTAL 4
proton#code#start
        org 0
        goto proton#main#start
T@GTB
        clrf 36
T@GTW
        clrf 38
T@GT
        movwf 37
        movlw 1
T@ST
        movwf 32
        movf 38,W
        subwf 36,W
        skpz
        goto $ + 3
        movf 37,W
        subwf 35,W
        movlw 4
        skpnc
        movlw 1
        skpnz
        movlw 2
        andwf 32,W
        skpz
        movlw 1
        goto I@NT
DL@MS
        clrf 38
DLY@W
        movwf 37
DLY@P
        movlw 255
        addwf 37,F
        skpc
        addwf 38,F
        skpc
        goto I@NT
        movlw 3
        movwf 36
        movlw 223
        call DLUS@W
        goto DLY@P
DL@US
        clrf 36
DLUS@W
        addlw 232
        movwf 35
        comf 36,F
        movlw 252
        skpc
        goto $ + 4
        addwf 35,F
        skpnc
        goto $ - 2
        addwf 35,F
        nop
        incfsz 36,F
        goto $ - 6
        btfsc 35,0
        goto $ + 1
        btfss 35,1
        goto $ + 3
        nop
        goto $ + 1
        return
DIG
        addlw 1
        movwf 42
        movlw 10
D@B
        movwf 37
        clrf 38
        call D@VD
        decfsz 42,F
        goto $ - 2
        movf 39,W
        return
D@VD
        clrf 40
        clrf 39
D@VD2
        movlw 16
        movwf 41
        rlf 36,W
        rlf 39,F
        rlf 40,F
        movf 37,W
        subwf 39,F
        movf 38,W
        skpc
        incfsz 38,W
        subwf 40,F
        skpnc
        goto $ + 8
        movf 37,W
        addwf 39,F
        movf 38,W
        skpnc
        incfsz 38,W
        addwf 40,F
        bcf 3,0
        rlf 35,F
        rlf 36,F
        decfsz 41,F
        goto $ - 21
        movf 35,W
        return
I@NT
        bcf 3,7
I@NT2
        bcf 3,5
        bcf 3,6
        return
proton#main#start
        clrf 3
F2_SOF equ $ ; TEMPORIZADOR_99S.PRP
F2_EOF equ $ ; TEMPORIZADOR_99S.PRP
F1_SOF equ $ ; TEMPORIZADOR_99S.BAS
F1_000067 equ $ ; IN [TEMPORIZADOR_99S.BAS] ALL_DIGITAL = TRUE
        movlw 7
        movwf CMCON
F1_000089 equ $ ; IN [TEMPORIZADOR_99S.BAS] DATA  %01111110 , %00001100, %10110110,%10011110,%11001100,%11011010,%11111010,%00001110,%11111110,%11011110
        clrf PBP#VAR0H
        clrf PBP#VAR0
        goto DAT@END1
DAT@RD1
        movlw ((T@START >> 8) & 255)
        addwf PBP#VAR0H,W
        movwf PCLATH
        movlw (T@START & 255)
        addwf PBP#VAR0,W
        btfsc STATUS,0
        incf PCLATH,F
        incf PBP#VAR0,F
        btfsc STATUS,2
        incf PBP#VAR0H,F
        movwf PCL
T@START
        retlw 126
        retlw 12
        retlw 182
        retlw 158
        retlw 204
        retlw 218
        retlw 250
        retlw 14
        retlw 254
        retlw 222
DAT@END1
F1_000093 equ $ ; IN [TEMPORIZADOR_99S.BAS] CMCON=7
        movlw 7
        movwf CMCON
F1_000095 equ $ ; IN [TEMPORIZADOR_99S.BAS] TRISA  = %00010011
        movlw 19
        bsf STATUS,5
ram_bank = 1
        movwf TRISA
F1_000096 equ $ ; IN [TEMPORIZADOR_99S.BAS] TRISB  = %00000001
        movlw 1
        movwf TRISB
F1_000099 equ $ ; IN [TEMPORIZADOR_99S.BAS] OPTION_REG.7=0
        bcf OPTION_REG,7
F1_000100 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA=0
        bcf STATUS,5
ram_bank = 0
        clrf PORTA
F1_000101 equ $ ; IN [TEMPORIZADOR_99S.BAS] SEGUNDOS=0
        clrf SEGUNDOS
visualizar_tiempo
F1_000105 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_MAS=0 THEN
        btfsc PORTA,1
        goto BC@LL3
F1_000106 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 30
        movlw 30
        call DL@MS
F1_000107 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_MAS=0 THEN
        btfsc PORTA,1
        goto BC@LL5
F1_000109 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF SEGUNDOS < 99 THEN
        movlw 99
        subwf SEGUNDOS,W
        btfsc STATUS,0
        goto BC@LL7
F1_000110 equ $ ; IN [TEMPORIZADOR_99S.BAS] SEGUNDOS= SEGUNDOS+1
        incf SEGUNDOS,F
F1_000111 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL7
F1_000112 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 300
        movlw 1
        movwf PP1H
        movlw 44
        call DLY@W
F1_000113 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL5
F1_000114 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL3
F1_000116 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_MENOS=0 THEN
        btfsc PORTA,0
        goto BC@LL9
F1_000117 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 30
        movlw 30
        call DL@MS
F1_000118 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_MENOS=0 THEN
        btfsc PORTA,0
        goto BC@LL11
F1_000120 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF SEGUNDOS > 0 THEN
        movf SEGUNDOS,F
        btfsc STATUS,2
        goto BC@LL13
F1_000121 equ $ ; IN [TEMPORIZADOR_99S.BAS] SEGUNDOS=SEGUNDOS -1
        decf SEGUNDOS,F
F1_000122 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL13
F1_000123 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 300
        movlw 1
        movwf PP1H
        movlw 44
        call DLY@W
F1_000124 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL11
F1_000125 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL9
F1_000127 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_ENTER=0 THEN
        btfsc PORTB,0
        goto BC@LL15
F1_000128 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 30
        movlw 30
        call DL@MS
F1_000129 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF P_ENTER=0 AND SEGUNDOS > 0 THEN
        movlw 1
        btfsc PORTB,0
        movlw 0
        movwf SP#P9
        movf SEGUNDOS,W
        movwf PP0
        movlw 0
        call T@GTB
        andwf SP#P9,F
        btfsc STATUS,2
        goto BC@LL17
F1_000130 equ $ ; IN [TEMPORIZADOR_99S.BAS] ZUMBADOR=1
        bsf PORTA,7
F1_000131 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 500
        movlw 1
        movwf PP1H
        movlw 244
        call DLY@W
F1_000132 equ $ ; IN [TEMPORIZADOR_99S.BAS] ZUMBADOR =0
        bcf PORTA,7
F1_000133 equ $ ; IN [TEMPORIZADOR_99S.BAS] RELAY=1
        bsf PORTA,6
F1_000134 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOTO INICIO_TEMPORIZADOR
        goto INICIO_TEMPORIZADOR
F1_000136 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL17
F1_000137 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL15
F1_000140 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOSUB VISUALIZAR
        call VISUALIZAR
F1_000143 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOTO VISUALIZAR_TIEMPO
        goto visualizar_tiempo
INICIO_TEMPORIZADOR
F1_000146 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 10
        movlw 10
        call DL@MS
F1_000147 equ $ ; IN [TEMPORIZADOR_99S.BAS] REGISTRO_10MS = REGISTRO_10MS +1
        incf REGISTRO_10MS,F
F1_000148 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF REGISTRO_10MS > 74 THEN
        movlw 75
        subwf REGISTRO_10MS,W
        btfss STATUS,0
        goto BC@LL19
F1_000149 equ $ ; IN [TEMPORIZADOR_99S.BAS] REGISTRO_10MS=0
        clrf REGISTRO_10MS
F1_000150 equ $ ; IN [TEMPORIZADOR_99S.BAS] SEGUNDOS=SEGUNDOS -1
        decf SEGUNDOS,F
F1_000151 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYUS 3800
        movlw 14
        movwf PP0H
        movlw 216
        call DLUS@W
F1_000152 equ $ ; IN [TEMPORIZADOR_99S.BAS] IF SEGUNDOS =0 THEN
        movf SEGUNDOS,F
        btfss STATUS,2
        goto BC@LL21
F1_000153 equ $ ; IN [TEMPORIZADOR_99S.BAS] RELAY=0
        bcf PORTA,6
F1_000154 equ $ ; IN [TEMPORIZADOR_99S.BAS] FOR I=1  TO 3
        movlw 1
        movwf _I
FR@LB23
        movlw 4
        subwf _I,W
        btfsc STATUS,0
        goto NX@LB24
F1_000155 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTB.7=1
        bsf PORTB,7
F1_000156 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 1
        movlw 1
        call DL@MS
F1_000157 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.3=1
        bsf PORTA,3
F1_000158 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 1
        movlw 1
        call DL@MS
F1_000159 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.2=1
        bsf PORTA,2
F1_000160 equ $ ; IN [TEMPORIZADOR_99S.BAS] ZUMBADOR=1
        bsf PORTA,7
F1_000161 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 200
        movlw 200
        call DL@MS
F1_000162 equ $ ; IN [TEMPORIZADOR_99S.BAS] ZUMBADOR =0
        bcf PORTA,7
F1_000163 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 200
        movlw 200
        call DL@MS
CT@LB25
F1_000164 equ $ ; IN [TEMPORIZADOR_99S.BAS] NEXT
        movlw 1
        addwf _I,F
        btfss STATUS,0
        goto FR@LB23
NX@LB24
F1_000165 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOTO VISUALIZAR_TIEMPO
        goto visualizar_tiempo
F1_000166 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL21
F1_000167 equ $ ; IN [TEMPORIZADOR_99S.BAS] END IF
BC@LL19
F1_000169 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOSUB  VISUALIZAR
        call VISUALIZAR
F1_000174 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOTO   INICIO_TEMPORIZADOR
        goto INICIO_TEMPORIZADOR
VISUALIZAR
F1_000178 equ $ ; IN [TEMPORIZADOR_99S.BAS] INDEX  = DIG SEGUNDOS, 1
        clrf PP0H
        movf SEGUNDOS,W
        movwf PP0
        movlw 1
        call DIG
        movwf index
F1_000179 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTB=  READ INDEX
        clrf PBP#VAR0H
        movf index,W
        movwf PBP#VAR0
        call DAT@RD1
        movwf PORTB
F1_000180 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.3=1
        bsf PORTA,3
F1_000181 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOSUB   RETARDO_X
        call RETARDO_X
F1_000183 equ $ ; IN [TEMPORIZADOR_99S.BAS] INDEX  = DIG SEGUNDOS, 0
        clrf PP0H
        movf SEGUNDOS,W
        movwf PP0
        movlw 0
        call DIG
        movwf index
F1_000184 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTB=  READ INDEX
        clrf PBP#VAR0H
        movf index,W
        movwf PBP#VAR0
        call DAT@RD1
        movwf PORTB
F1_000185 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.2=1
        bsf PORTA,2
F1_000186 equ $ ; IN [TEMPORIZADOR_99S.BAS] GOSUB   RETARDO_X
        call RETARDO_X
F1_000188 equ $ ; IN [TEMPORIZADOR_99S.BAS] RETURN
        return
RETARDO_X
F1_000192 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYMS 1
        movlw 1
        call DL@MS
F1_000193 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.3=0
        bcf PORTA,3
F1_000194 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYUS 10
        movlw 3
        movwf PP0
        decfsz PP0,F
        goto $ - 1
        nop
F1_000195 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTA.2=0
        bcf PORTA,2
F1_000196 equ $ ; IN [TEMPORIZADOR_99S.BAS] DELAYUS 10
        movlw 3
        movwf PP0
        decfsz PP0,F
        goto $ - 1
        nop
F1_000197 equ $ ; IN [TEMPORIZADOR_99S.BAS] PORTB=0
        clrf PORTB
F1_000198 equ $ ; IN [TEMPORIZADOR_99S.BAS] RETURN
        return
F1_EOF equ $ ; TEMPORIZADOR_99S.BAS
PB@LB26
        goto PB@LB26
__EOF
__config BOREN_OFF&CP_OFF&DATA_CP_OFF&PWRTE_OFF&WDT_OFF&LVP_OFF&MCLRE_ON&INTRC_OSC_NOCLKOUT
        end