;----------------------------------------------------------
; Code Produced by the Proton Compiler. Ver 3.5.5.5
; Copyright Rosetta Technologies/Crownhill Associates Ltd
; Written by Les Johnson. January 2013
;----------------------------------------------------------
;
#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 20
#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 0X7C
#define BANK1_START 0X00A0
#define BANK1_END 0X00EF
#define BANK2_START 0X0120
#define BANK2_END 0X014F
#define _SYSTEM_VARIABLE_COUNT 21
ram_bank = 0
CURRENT@PAGE = 0
DEST@PAGE = 0
#define LCD#TYPE 0
#define __INTERRUPTS_ENABLED 1
GEN = 32
GEN2 = 33
GEN2H = 34
GEN3H = 35
GENH = 36
GPR = 37
PP0 = 38
PP0H = 39
PP1 = 40
PP1H = 41
PP2 = 42
PP2H = 43
PP2HH = 44
PP2HHH = 45
PP3 = 46
PP3H = 47
PP6 = 48
PP6H = 49
PP7 = 50
PP7H = 51
SP#P9 = 52
FSRSAVE = 125
SSAVE = 126
WSAVE = 127
_Y = 53
_X = 54
DES = 55
DESH = 56
Temp = 57
TempH = 58
TempC = 59
Dummy = 60
DummyH = 61
_B#VR1 = 62
_A = 63
_B = 64
_C = 65
_D = 66
address = 67
DataArray = 68
digit = 69
DigNumbur = 70
Array_ = 71
variable Array_#0=71,Array_#1=72,Array_#2=73,Array_#3=74
variable Array_#4=75,Array_#5=76,Array_#6=77,Array_#7=78
variable Array_#8=79,Array_#9=80,Array_#10=81,Array_#11=82
variable Array_#12=83,Array_#13=84,Array_#14=85,Array_#15=86
variable Array_#16=87,Array_#17=88,Array_#18=89,Array_#19=90
variable Array_#20=91,Array_#21=92,Array_#22=93,Array_#23=94
variable Array_#24=95,Array_#25=96,Array_#26=97,Array_#27=98
variable Array_#28=99,Array_#29=100,Array_#30=101,Array_#31=102
variable Array_#32=103,Array_#33=104,Array_#34=105,Array_#35=106
variable Array_#36=107,Array_#37=108,Array_#38=109,Array_#39=110
variable Array_#40=111,Array_#41=112,Array_#42=113,Array_#43=114
variable Array_#44=115,Array_#45=116,Array_#46=117,Array_#47=118
variable Array_#48=119,Array_#49=120,Array_#50=121,Array_#51=122
variable Array_#52=123,Array_#53=124,Array_#54=160,Array_#55=161
variable Array_#56=162,Array_#57=163,Array_#58=164,Array_#59=165
variable Array_#60=166,Array_#61=167,Array_#62=168,Array_#63=169
variable Array_#64=170,Array_#65=171,Array_#66=172,Array_#67=173
variable Array_#68=174,Array_#69=175,Array_#70=176,Array_#71=177
variable Array_#72=178,Array_#73=179,Array_#74=180,Array_#75=181
variable Array_#76=182,Array_#77=183,Array_#78=184,Array_#79=185
variable Array_#80=186,Array_#81=187,Array_#82=188,Array_#83=189
variable Array_#84=190,Array_#85=191,Array_#86=192,Array_#87=193
variable Array_#88=194,Array_#89=195,Array_#90=196,Array_#91=197
variable Array_#92=198,Array_#93=199,Array_#94=200,Array_#95=201
variable Array_#96=202,Array_#97=203,Array_#98=204,Array_#99=205
variable Array_#100=206,Array_#101=207,Array_#102=208,Array_#103=209
BIG = 210
BIGH = 211
BIGHH = 212
BIGHHH = 213
Tochka = 214
_N = 215
_E = 216
Flag = 217
FlagH = 218
ButtMIN = 219
ButtPlus = 220
SECONDS = 221
MINUTES = 222
HOUR = 223
SetCorr = 224
SetCorrH = 225
BIG2 = 226
BIG2H = 227
BIG2HH = 228
BIG2HHH = 229
#define T0IF INTCON,2
#define ClockPin PORTB,7
#define DataPin PORTB,5
#define Load PORTB,6
#define BEEP PORTB,0
#define Meny PORTB,1
#define PLUS PORTB,2
#define MINUS PORTB,3
#define Dq PORTB,4
#define _G _B#VR1,0
#define Flash _B#VR1,1
#define BIG1 BIGHH
#define BIG1H BIGHHH
#define MemtCorr _B#VR1,2
#define __XTAL 20
proton#code#start
    org 0X0000
    goto proton#main#start
    org 0X0004
    movwf WSAVE
    movf STATUS,W
    clrf STATUS
    movwf SSAVE
    goto MYINT
FIND@ADDRESS
    bcf STATUS,7
    movwf 48
    clrf 49
    rlf 49,F
    movlw 0
    subwf 49,W
    movlw 125
    skpnz
    subwf 48,W
    skpc
    goto $ + 7
    btfsc 47,7
    goto $ + 5
    movlw 35
    addwf 48,F
    skpnc
    incf 49,F
    movlw 0
    subwf 49,W
    movlw 240
    skpnz
    subwf 48,W
    skpc
    goto FA@EXT
    bsf STATUS,7
    movlw 48
    addwf 48,F
FA@EXT
    movf 48,W
    movwf 4
    return
__OWRITE_
    movwf 40
    movlw 8
    btfsc 37,2
    movlw 1
    movwf 41
OW@OTLP
    rrf 40,F
    movf 32,W
    movwf 4
    movf 36,W
    goto $ + 1
    goto $ + 1
    xorlw 255
    andwf 0,F
    bsf 4,7
    andwf 0,F
    movf 36,W
    skpnc
    iorwf 0,F
    movlw 60
    call __DELAY_US_
    movf 36,W
    iorwf 0,F
    decfsz 41,F
    goto OW@OTLP
    bsf 3,0
    goto I@NT
__OREAD_
    movlw 8
    btfsc 37,2
    movlw 1
    movwf 41
    clrf 40
    movf 32,W
    movwf 4
__OREAD_LP
    movf 36,W
    xorlw 255
    andwf 0,F
    bsf 4,7
    andwf 0,F
    movf 36,W
    iorwf 0,F
    movlw 10
    call __DELAY_US_
    movf 36,W
    bcf 4,7
    andwf 0,W
    addlw 255
    btfss 37,2
    rrf 40,F
    btfsc 37,2
    rlf 40,F
    movlw 50
    call __DELAY_US_
    decfsz 41,F
    goto __OREAD_LP
    movf 40,W
    bsf 3,0
    goto I@NT
__OWRESET1_
    btfss 37,1
    goto I@NT
    goto __OWRESET_
__OWRESET2_
    movwf 37
    btfss 37,0
    goto I@NT
__OWRESET_
    movf 32,W
    movwf 4
    movf 36,W
    xorlw 255
    andwf 0,F
    bsf 4,7
    andwf 0,F
    movlw 1
    movwf 39
    movlw 244
    call __DELAY_US_W_
    movf 36,W
    iorwf 0,F
    movlw 1
    movwf 39
    movlw 244
    goto __DELAY_US_W_
__EEREAD_
    bsf STATUS,5
    movwf 155
__EEREAD_W_
    bsf STATUS,5
    clrf 156
    bsf 156,PP_RD
    movf 154,W
    incf 155,F
    goto I@NT
__EEWRITE_
__EEWRITE_W_
    bsf STATUS,5
    movwf 154
    bsf 156,PP_WREN
    movlw 85
    movwf 157
    movlw 170
    movwf 157
    bsf 156,PP_WR
    btfsc 156,PP_WR
    goto $ - 1
    bcf 156,PP_WREN
    incf 155,F
    goto I@NT
__SHOUT_8_
    movlw 8
__SHOUT_
    movwf 46
    btfsc 37,0
    call __REVERSEBITS__16_
    movf 33,W
    movwf 4
    movf 34,W
    btfsc 37,2
    call B@HI
    btfss 37,2
    call B@LO
    movf 32,W
    movwf 4
    comf 36,W
    bsf 4,7
    andwf 0,F
    movf 32,W
    movwf 4
    rrf 39,F
    rrf 38,F
    movf 0,W
    iorwf 36,W
    skpc
    xorwf 36,W
    movwf 0
    call B@SHT
    decfsz 46,F
    goto $ - 11
    goto I@NT
B@SHT
    movf 33,W
    movwf 4
    movf 34,W
    xorwf 0,F
    nop
    goto $ + 1
    goto $ + 1
    goto $ + 1
    goto $ + 1
    goto $ + 1
    xorwf 0,F
    return
__DELAY_MS_
    clrf 41
__DELAY_MS_W_
    movwf 40
DLY@P
    movlw 255
    addwf 40,F
    skpc
    addwf 41,F
    skpc
    goto I@NT
    movlw 3
    movwf 39
    movlw 230
    call __DELAY_US_W_
    goto DLY@P
__DELAY_US_
    clrf 39
__DELAY_US_W_
    addlw 252
    movwf 38
    comf 39,F
    skpc
    goto $ + 7
    movlw 255
    nop
    addwf 38,F
    skpnc
    goto $ - 3
    addwf 38,F
    nop
    incfsz 39,F
    goto $ - 8
    return
DIG
    addlw 1
    movwf 47
    movlw 10
D@B
    movwf 40
    clrf 41
    call __DIVIDE_U1616_
    decfsz 47,F
    goto $ - 2
    movf 42,W
    return
DV@32W
    movwf 40
DV@32P
    movf 38,W
    movwf 46
    movf 42,W
    movwf 38
    movf 46,W
    movwf 42
    movf 39,W
    movwf 46
    movf 43,W
    movwf 39
    movf 46,W
    movwf 43
    goto __DIVIDE_INT_U1616_
__DIVIDE_U1616_
    clrf 43
    clrf 42
__DIVIDE_INT_U1616_
    movlw 16
    movwf 46
    rlf 39,W
    rlf 42,F
    rlf 43,F
    movf 40,W
    subwf 42,F
    movf 41,W
    skpc
    incfsz 41,W
    subwf 43,F
    skpnc
    goto $ + 8
    movf 40,W
    addwf 42,F
    movf 41,W
    skpnc
    incfsz 41,W
    addwf 43,F
    bcf 3,0
    rlf 38,F
    rlf 39,F
    decfsz 46,F
    goto $ - 21
    movf 38,W
    return
__MULTIPLY_U1616_
    movlw 16
    movwf 49
    clrf 39
    clrf 38
    rrf 47,F
    rrf 46,F
    skpc
    goto $ + 7
    movf 40,W
    addwf 38,F
    movf 41,W
    skpnc
    incfsz 41,W
    addwf 39,F
    rrf 39,F
    rrf 38,F
    rrf 43,F
    rrf 42,F
    decfsz 49,F
    goto $ - 15
    movf 42,W
    return
__REVERSEBITS__16_
    clrf 40
    clrf 41
    goto $ + 5
    rrf 39,F
    rrf 38,F
    rlf 40,F
    rlf 41,F
    addlw 255
    skpnc
    goto $ - 6
    movf 41,W
    movwf 39
    movf 40,W
    movwf 38
    goto I@NT
B@HI
    iorwf 0,F
    goto OUT@T
B@LO
    xorlw 255
    andwf 0,F
    goto O@BI
OUT@T
    xorlw 255
O@BI
    bsf 4,7
    andwf 0,F
    goto I@NT
I@NT
    bcf STATUS,7
    bcf STATUS,5
    bcf STATUS,6
    return
GET@ARRAY
    movwf 46
GET@ARRAYW
    movf 35,W
    movwf 47
    movf 46,W
    addwf 35,W
    call FIND@ADDRESS
    movf INDF,W
    goto I@NT
proton#main#start
    clrf STATUS
F1_SOF equ $ ; HOUR-MAX7219-8X8.BAS
F1_000033 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TRISA = %00000000
    bsf STATUS,5
ram_bank = 1
    clrf TRISA
F1_000034 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TRISB = %00001110
    movlw 14
    movwf TRISB
F1_000035 equ $ ; IN [HOUR-MAX7219-8X8.BAS] PORTA = %00000000
    bcf STATUS,5
ram_bank = 0
    clrf PORTA
F1_000036 equ $ ; IN [HOUR-MAX7219-8X8.BAS] PORTB = %00000000
    clrf PORTB
F1_000037 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CMCON = 7
    movlw 7
    movwf CMCON
F1_000039 equ $ ; IN [HOUR-MAX7219-8X8.BAS] OPTION_REG = %00000111
    bsf STATUS,5
ram_bank = 1
    movwf OPTION_REG
F1_000040 equ $ ; IN [HOUR-MAX7219-8X8.BAS] INTCON = %10100000
    movlw 160
    movwf INTCON
F1_000083 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[0]  =  0   :  ARRAY_[8]  =  0    :  ARRAY_[16] =  0   : ARRAY_[24] =  0    : ARRAY_[32] =  0    : ARRAY_[40] =  0
    bcf STATUS,5
ram_bank = 0
    clrf Array_#0
    clrf Array_#8
    clrf Array_#16
    clrf Array_#24
    clrf Array_#32
    clrf Array_#40
F1_000084 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[1]  =  0   :  ARRAY_[9]  =  62   :  ARRAY_[17] =  0   : ARRAY_[25] =  66   : ARRAY_[33] =  34   : ARRAY_[41] =  7
    clrf Array_#1
    movlw 62
    movwf Array_#9
    clrf Array_#17
    movlw 66
    movwf Array_#25
    movlw 34
    movwf Array_#33
    movlw 7
    movwf Array_#41
F1_000085 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[2]  =  0   :  ARRAY_[10] =  81   :  ARRAY_[18] =  2   : ARRAY_[26] =  97   : ARRAY_[34] =  65   : ARRAY_[42] =  8
    clrf Array_#2
    movlw 81
    movwf Array_#10
    movlw 2
    movwf Array_#18
    movlw 97
    movwf Array_#26
    movlw 65
    movwf Array_#34
    movlw 8
    movwf Array_#42
F1_000086 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[3]  =  0   :  ARRAY_[11] =  73   :  ARRAY_[19] =  127 : ARRAY_[27] =  81   : ARRAY_[35] =  73   : ARRAY_[43] =  8
    clrf Array_#3
    movlw 73
    movwf Array_#11
    movlw 127
    movwf Array_#19
    movlw 81
    movwf Array_#27
    movlw 73
    movwf Array_#35
    movlw 8
    movwf Array_#43
F1_000087 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[4]  =  0   :  ARRAY_[12] =  69   :  ARRAY_[20] =  0   : ARRAY_[28] =  73   : ARRAY_[36] =  73   : ARRAY_[44] =  8
    clrf Array_#4
    movlw 69
    movwf Array_#12
    clrf Array_#20
    movlw 73
    movwf Array_#28
    movwf Array_#36
    movlw 8
    movwf Array_#44
F1_000088 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[5]  =  0   :  ARRAY_[13] =  62   :  ARRAY_[21] =  0   : ARRAY_[29] =  70   : ARRAY_[37] =  54   : ARRAY_[45] =  127
    clrf Array_#5
    movlw 62
    movwf Array_#13
    clrf Array_#21
    movlw 70
    movwf Array_#29
    movlw 54
    movwf Array_#37
    movlw 127
    movwf Array_#45
F1_000089 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[6]  =  0   :  ARRAY_[14] =  0    :  ARRAY_[22] =  0   : ARRAY_[30] =  0    : ARRAY_[38] =  0    : ARRAY_[46] =  0
    clrf Array_#6
    clrf Array_#14
    clrf Array_#22
    clrf Array_#30
    clrf Array_#38
    clrf Array_#46
F1_000090 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[7]  =  0   :  ARRAY_[15] =  0    :  ARRAY_[23] =  0   : ARRAY_[31] =  0    : ARRAY_[39] =  0    : ARRAY_[47] =  0
    clrf Array_#7
    clrf Array_#15
    clrf Array_#23
    clrf Array_#31
    clrf Array_#39
    clrf Array_#47
F1_000093 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[48] =  0    :  ARRAY_[56] =  0    : ARRAY_[64] =  0    :  ARRAY_[72] =  0    :  ARRAY_[80] =  0
    clrf Array_#48
    bsf STATUS,5
ram_bank = 1
    clrf Array_#56
    clrf Array_#64
    clrf Array_#72
    clrf Array_#80
F1_000094 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[49] =  39   :  ARRAY_[57] =  62   : ARRAY_[65] =  1    :  ARRAY_[73] =  54   :  ARRAY_[81] =  38
    movlw 39
    bcf STATUS,5
ram_bank = 0
    movwf Array_#49
    movlw 62
    bsf STATUS,5
ram_bank = 1
    movwf Array_#57
    movlw 1
    movwf Array_#65
    movlw 54
    movwf Array_#73
    movlw 38
    movwf Array_#81
F1_000095 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[50] =  69   :  ARRAY_[58] =  73   : ARRAY_[66] =  113  :  ARRAY_[74] =  73   :  ARRAY_[82] =  73
    movlw 69
    bcf STATUS,5
ram_bank = 0
    movwf Array_#50
    movlw 73
    bsf STATUS,5
ram_bank = 1
    movwf Array_#58
    movlw 113
    movwf Array_#66
    movlw 73
    movwf Array_#74
    movwf Array_#82
F1_000096 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[51] =  69   :  ARRAY_[59] =  73   : ARRAY_[67] =  9    :  ARRAY_[75] =  73   :  ARRAY_[83] =  73
    movlw 69
    bcf STATUS,5
ram_bank = 0
    movwf Array_#51
    movlw 73
    bsf STATUS,5
ram_bank = 1
    movwf Array_#59
    movlw 9
    movwf Array_#67
    movlw 73
    movwf Array_#75
    movwf Array_#83
F1_000097 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[52] =  69   :  ARRAY_[60] =  73   : ARRAY_[68] =  5    :  ARRAY_[76] =  73   :  ARRAY_[84] =  73
    movlw 69
    bcf STATUS,5
ram_bank = 0
    movwf Array_#52
    movlw 73
    bsf STATUS,5
ram_bank = 1
    movwf Array_#60
    movlw 5
    movwf Array_#68
    movlw 73
    movwf Array_#76
    movwf Array_#84
F1_000098 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[53] =  57   :  ARRAY_[61] =  50   : ARRAY_[69] =  3    :  ARRAY_[77] =  54   :  ARRAY_[85] =  62
    movlw 57
    bcf STATUS,5
ram_bank = 0
    movwf Array_#53
    movlw 50
    bsf STATUS,5
ram_bank = 1
    movwf Array_#61
    movlw 3
    movwf Array_#69
    movlw 54
    movwf Array_#77
    movlw 62
    movwf Array_#85
F1_000099 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[54] =  0    :  ARRAY_[62] =  0    : ARRAY_[70] =  0    :  ARRAY_[78] =  0    :  ARRAY_[86] =  0
    clrf Array_#54
    clrf Array_#62
    clrf Array_#70
    clrf Array_#78
    clrf Array_#86
F1_000100 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[55] =  0    :  ARRAY_[63] =  0    : ARRAY_[71] =  0    :  ARRAY_[79] =  0    :  ARRAY_[87] =  0
    clrf Array_#55
    clrf Array_#63
    clrf Array_#71
    clrf Array_#79
    clrf Array_#87
F1_000103 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[88] =  6    :  ARRAY_[96]  =  0
    movlw 6
    movwf Array_#88
    clrf Array_#96
F1_000104 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[89] =  9    :  ARRAY_[97]  =  0
    movlw 9
    movwf Array_#89
    clrf Array_#97
F1_000105 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[90] =  9    :  ARRAY_[98]  =  8
    movwf Array_#90
    movlw 8
    movwf Array_#98
F1_000106 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[91] =  6    :  ARRAY_[99]  =  8
    movlw 6
    movwf Array_#91
    movlw 8
    movwf Array_#99
F1_000107 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[92] =  124  :  ARRAY_[100] = 62
    movlw 124
    movwf Array_#92
    movlw 62
    movwf Array_#100
F1_000108 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[93] =  130  :  ARRAY_[101] =  8
    movlw 130
    movwf Array_#93
    movlw 8
    movwf Array_#101
F1_000109 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[94] =  130  :  ARRAY_[102] =  8
    movlw 130
    movwf Array_#94
    movlw 8
    movwf Array_#102
F1_000110 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ARRAY_[95] =  68   :  ARRAY_[103] =  0
    movlw 68
    movwf Array_#95
    clrf Array_#103
F1_000113 equ $ ; IN [HOUR-MAX7219-8X8.BAS] MEMTCORR = EREAD 0
    movlw 0
    bcf STATUS,5
ram_bank = 0
    call __EEREAD_
    andlw 1
    btfsc STATUS,2
    bcf _B#VR1,2
    btfss STATUS,2
    bsf _B#VR1,2
F1_000114 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MEMTCORR = 1 THEN
    btfss _B#VR1,2
    goto _LBL__3
F1_000115 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SETCORR = EREAD 1
    movlw 1
    call __EEREAD_
    bsf STATUS,5
ram_bank = 1
    movwf SetCorr
    bcf STATUS,5
ram_bank = 0
    call __EEREAD_W_
    bsf STATUS,5
ram_bank = 1
    movwf SetCorrH
    bcf STATUS,5
ram_bank = 0
    goto _LBL__4
_LBL__3
F1_000116 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ELSE
F1_000117 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SETCORR = 5000
    movlw 19
    bsf STATUS,5
ram_bank = 1
    movwf SetCorrH
    movlw 136
    movwf SetCorr
F1_000118 equ $ ; IN [HOUR-MAX7219-8X8.BAS] EWRITE 0,[1]
    clrf EEADR
    movlw 1
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
F1_000119 equ $ ; IN [HOUR-MAX7219-8X8.BAS] EWRITE 1,[SETCORR]
    movlw 1
    bsf STATUS,5
ram_bank = 1
    movwf EEADR
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
F1_000120 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__4
F1_000121 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG2 = 4995000 + SETCORR
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP2H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP2
    clrf PP2HH
    clrf PP2HHH
    addlw 184
    bsf STATUS,5
ram_bank = 1
    movwf BIG2
    movlw 55
    movwf BIG2H
    bcf STATUS,5
ram_bank = 0
    movf PP2H,W
    btfss STATUS,0
    goto _ADLB__2
    incf PP2H,W
    btfsc STATUS,2
    goto _ADLB__3
_ADLB__2
    bsf STATUS,5
ram_bank = 1
    addwf BIG2H,F
_ADLB__3
    bcf STATUS,5
ram_bank = 0
    movlw 76
    bsf STATUS,5
ram_bank = 1
    movwf BIG2HH
    bcf STATUS,5
ram_bank = 0
    movf PP2HH,W
    btfss STATUS,0
    goto _ADLB__4
    incf PP2HH,W
    btfsc STATUS,2
    goto _ADLB__5
_ADLB__4
    bsf STATUS,5
ram_bank = 1
    addwf BIG2HH,F
_ADLB__5
    bcf STATUS,5
ram_bank = 0
    bsf STATUS,5
ram_bank = 1
    clrf BIG2HHH
    bcf STATUS,5
ram_bank = 0
    movf PP2HHH,W
    btfss STATUS,0
    goto _ADLB__6
    incf PP2HHH,W
    btfsc STATUS,2
    goto _ADLB__7
_ADLB__6
    bsf STATUS,5
ram_bank = 1
    addwf BIG2HHH,F
_ADLB__7
    bcf STATUS,5
ram_bank = 0
F1_000122 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG = BIG2
    bsf STATUS,5
ram_bank = 1
    movf BIG2HHH,W
    movwf BIGHHH
    movf BIG2HH,W
    movwf BIGHH
    movf BIG2H,W
    movwf BIGH
    movf BIG2,W
    movwf BIG
F1_000124 equ $ ; IN [HOUR-MAX7219-8X8.BAS] E = 3
    movlw 3
    movwf _E
F1_000125 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLAG = 1
    clrf FlagH
    movlw 1
    movwf Flag
F1_000126 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLASH = 1
    bcf STATUS,5
ram_bank = 0
    bsf _B#VR1,1
F1_000127 equ $ ; IN [HOUR-MAX7219-8X8.BAS] MINUTES = 0 : HOUR = 0 : SECONDS = 0
    bsf STATUS,5
ram_bank = 1
    clrf MINUTES
    clrf HOUR
    clrf SECONDS
F1_000128 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BUTTPLUS = 0 : BUTTMIN = 0
    clrf ButtPlus
    clrf ButtMIN
F1_000130 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_INIT
    bcf STATUS,5
ram_bank = 0
    call MAX7219_Init
F1_000133 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO MAIN
    goto main
MYINT
ram_bank = 0
F1_000136 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CONTEXT SAVE
ram_bank = 0
F1_000137 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG1 = BIG1 - 1
    bsf STATUS,5
ram_bank = 1
    decf BIGHH,F
    incf BIGHH,W
    btfsc STATUS,2
    decf BIGHHH,F
F1_000138 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF BIG < 0 THEN
    rlf BIGHHH,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__6
F1_000139 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG = BIG + BIG2
    bsf STATUS,5
ram_bank = 1
    movf BIG2,W
    addwf BIG,F
    movf BIG2H,W
    btfsc STATUS,0
    incfsz BIG2H,W
    addwf BIGH,F
    movf BIG2HH,W
    btfsc STATUS,0
    incfsz BIG2HH,W
    addwf BIGHH,F
    movf BIG2HHH,W
    btfsc STATUS,0
    incfsz BIG2HHH,W
    addwf BIGHHH,F
F1_000140 equ $ ; IN [HOUR-MAX7219-8X8.BAS] INC SECONDS
    incf SECONDS,F
F1_000141 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLAG  = 1
    clrf FlagH
    movlw 1
    movwf Flag
F1_000142 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__6
    bcf STATUS,5
ram_bank = 0
F1_000143 equ $ ; IN [HOUR-MAX7219-8X8.BAS] T0IF = 0
    bcf INTCON,2
F1_000144 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CONTEXT RESTORE
    movf SSAVE,W
    movwf STATUS
    swapf WSAVE,F
    swapf WSAVE,W
    retfie
main
F1_000147 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000149 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MENY = 1 THEN
    btfss PORTB,1
    goto _LBL__8
F1_000150 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WHILE MENY = 1
_LBL__9
    btfss PORTB,1
    goto _LBL__10
F1_000151 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000152 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WEND
    goto _LBL__9
_LBL__10
F1_000153 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TOCHKA  = 0
    bsf STATUS,5
ram_bank = 1
    clrf Tochka
F1_000154 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETCOR
    bcf STATUS,5
ram_bank = 0
    goto SetCor
F1_000155 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__8
F1_000156 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 1 THEN INC BUTTMIN
    btfss PORTB,3
    goto _LBL__12
    bsf STATUS,5
ram_bank = 1
    incf ButtMIN,F
_LBL__12
    bcf STATUS,5
ram_bank = 0
F1_000157 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF BUTTMIN > 5 THEN BUTTMIN = 0 : INC MINUTES
    movlw 6
    bsf STATUS,5
ram_bank = 1
    subwf ButtMIN,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__14
    bsf STATUS,5
ram_bank = 1
    clrf ButtMIN
    incf MINUTES,F
_LBL__14
    bcf STATUS,5
ram_bank = 0
F1_000158 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 0 AND BUTTMIN > 2 THEN BUTTMIN = 0 : INC MINUTES
    movlw 1
    btfsc PORTB,3
    movlw 0
    movwf SP#P9
    movlw 3
    bsf STATUS,5
ram_bank = 1
    subwf ButtMIN,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__2
    clrw
    btfss STATUS,2
_CPLB__2
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__16
    bsf STATUS,5
ram_bank = 1
    clrf ButtMIN
    incf MINUTES,F
_LBL__16
    bcf STATUS,5
ram_bank = 0
F1_000160 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF PLUS = 1 THEN INC BUTTPLUS
    btfss PORTB,2
    goto _LBL__18
    bsf STATUS,5
ram_bank = 1
    incf ButtPlus,F
_LBL__18
    bcf STATUS,5
ram_bank = 0
F1_000161 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF BUTTPLUS > 20 THEN BUTTPLUS = 0 : INC  HOUR
    movlw 21
    bsf STATUS,5
ram_bank = 1
    subwf ButtPlus,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__20
    bsf STATUS,5
ram_bank = 1
    clrf ButtPlus
    incf HOUR,F
_LBL__20
    bcf STATUS,5
ram_bank = 0
F1_000162 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF PLUS = 0 AND BUTTPLUS > 2 THEN BUTTPLUS = 0 : INC  HOUR
    movlw 1
    btfsc PORTB,2
    movlw 0
    movwf SP#P9
    movlw 3
    bsf STATUS,5
ram_bank = 1
    subwf ButtPlus,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__3
    clrw
    btfss STATUS,2
_CPLB__3
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__22
    bsf STATUS,5
ram_bank = 1
    clrf ButtPlus
    incf HOUR,F
_LBL__22
    bcf STATUS,5
ram_bank = 0
F1_000164 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUTES >= 60 THEN MINUTES = 0
    movlw 60
    bsf STATUS,5
ram_bank = 1
    subwf MINUTES,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__24
    bsf STATUS,5
ram_bank = 1
    clrf MINUTES
_LBL__24
    bcf STATUS,5
ram_bank = 0
F1_000165 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF HOUR > 23 THEN HOUR = 0
    movlw 24
    bsf STATUS,5
ram_bank = 1
    subwf HOUR,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__26
    bsf STATUS,5
ram_bank = 1
    clrf HOUR
_LBL__26
    bcf STATUS,5
ram_bank = 0
F1_000167 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = DIG MINUTES,0 : B = DIG MINUTES,1 : C = DIG HOUR,0 : D = DIG HOUR,1
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf MINUTES,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 0
    call DIG
    movwf _A
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf MINUTES,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 1
    call DIG
    movwf _B
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf HOUR,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 0
    call DIG
    movwf _C
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf HOUR,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 1
    call DIG
    movwf _D
F1_000169 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF HOUR < 10 THEN D = 12
    movlw 10
    bsf STATUS,5
ram_bank = 1
    subwf HOUR,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _LBL__28
    movlw 12
    movwf _D
_LBL__28
F1_000170 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF SECONDS > 54 THEN
    movlw 55
    bsf STATUS,5
ram_bank = 1
    subwf SECONDS,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__30
F1_000171 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLASH = 0
    bcf _B#VR1,1
F1_000172 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TOCHKA  = 0
    bsf STATUS,5
ram_bank = 1
    clrf Tochka
F1_000173 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB TERMO
    bcf STATUS,5
ram_bank = 0
    call Termo
F1_000174 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB CLEARS
    call Clears
F1_000175 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLAG  = 1
    bsf STATUS,5
ram_bank = 1
    clrf FlagH
    movlw 1
    movwf Flag
F1_000176 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = 10 : B = DIG TEMPC ,0 : C = DIG TEMPC ,1 : D = 11
    movlw 10
    bcf STATUS,5
ram_bank = 0
    movwf _A
    clrf PP0H
    movf TempC,W
    movwf PP0
    movlw 0
    call DIG
    movwf _B
    clrf PP0H
    movf TempC,W
    movwf PP0
    movlw 1
    call DIG
    movwf _C
    movlw 11
    movwf _D
F1_000177 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__30
F1_000179 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 0
    clrf digit
F1_000180 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = A
    movf _A,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000181 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000182 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000184 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 1
    movlw 1
    movwf digit
F1_000185 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = B
    movf _B,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000186 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000187 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000189 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 2
    movlw 2
    movwf digit
F1_000190 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = C
    movf _C,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000191 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000192 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000194 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 3
    movlw 3
    movwf digit
F1_000195 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = D
    movf _D,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000196 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000197 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000198 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WHILE SECONDS > 55
_LBL__31
    movlw 56
    bsf STATUS,5
ram_bank = 1
    subwf SECONDS,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__32
F1_000199 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000200 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WEND
    goto _LBL__31
_LBL__32
F1_000201 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF FLAG = 1 AND SECONDS = 0  THEN
    bsf STATUS,5
ram_bank = 1
    decf Flag,W
    iorwf FlagH,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,2
    goto _CPLB__4
    clrw
    btfss STATUS,2
_CPLB__4
    movlw 1
    movwf SP#P9
    movlw 1
    bsf STATUS,5
ram_bank = 1
    movf SECONDS,F
    btfss STATUS,2
    movlw 0
    bcf STATUS,5
ram_bank = 0
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__34
F1_000202 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLAG = 0
    bsf STATUS,5
ram_bank = 1
    clrf FlagH
    clrf Flag
F1_000203 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB CLEARS
    bcf STATUS,5
ram_bank = 0
    call Clears
F1_000204 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__34
F1_000205 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO MAIN
    goto main
MAX7219_Init
F1_000210 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR DIGIT = 0 TO 4
    clrf digit
_FRLB__35
    movlw 5
    subwf digit,W
    btfsc STATUS,0
    goto _NXLB__36
F1_000211 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 0
    clrf DigNumbur
F1_000212 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
_CTLB__37
F1_000213 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT
    movlw 1
    addwf digit,F
    btfss STATUS,0
    goto _FRLB__35
_NXLB__36
F1_000215 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = $09
    movlw 9
    movwf address
F1_000216 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = $0
    clrf DataArray
F1_000217 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
F1_000218 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
F1_000219 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
F1_000220 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
F1_000222 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = $0B
    movlw 11
    movwf address
F1_000223 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = $07
    movlw 7
    movwf DataArray
F1_000224 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
F1_000225 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
F1_000226 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
F1_000227 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
F1_000229 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = $0C
    movlw 12
    movwf address
F1_000230 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = $01
    movlw 1
    movwf DataArray
F1_000231 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
F1_000232 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
F1_000233 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
F1_000234 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
F1_000236 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = $0F
    movlw 15
    movwf address
F1_000237 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = $00
    clrf DataArray
F1_000238 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
F1_000239 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
F1_000240 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
F1_000241 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
Bright
F1_000244 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = $0A
    movlw 10
    movwf address
F1_000245 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = E
    bsf STATUS,5
ram_bank = 1
    movf _E,W
    bcf STATUS,5
ram_bank = 0
    movwf DataArray
F1_000246 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
F1_000247 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
F1_000248 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
F1_000249 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
F1_000250 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
MAX7219_DIGITS4
F1_000254 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000255 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,0,0,0,0,ADDRESS,DATAARRAY]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
F1_000256 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000258 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
MAX7219_DIGITS3
F1_000261 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF ADDRESS = 8 THEN DATAARRAY = DATAARRAY + TOCHKA
    movlw 8
    subwf address,W
    btfss STATUS,2
    goto _LBL__39
    bsf STATUS,5
ram_bank = 1
    movf Tochka,W
    bcf STATUS,5
ram_bank = 0
    addwf DataArray,F
_LBL__39
F1_000262 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000263 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,0,0,ADDRESS,DATAARRAY,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000264 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000266 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
MAX7219_DIGITS2
F1_000270 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000271 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,ADDRESS,DATAARRAY,0,0,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000272 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000274 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
MAX7219_DIGITS1
F1_000277 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000278 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[ADDRESS,DATAARRAY,0,0,0,0,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000279 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000281 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
Write_8x8_display
F1_000284 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR ADDRESS = 1 TO 8
    movlw 1
    movwf address
_FRLB__40
    movlw 9
    subwf address,W
    btfsc STATUS,0
    goto _NXLB__41
F1_000285 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000286 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF FLASH = 1 THEN
    btfss _B#VR1,1
    goto _LBL__44
F1_000287 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF BIG < 2500000 THEN
    bsf STATUS,5
ram_bank = 1
    movf BIGHHH,W
    sublw 0
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__46
    btfss STATUS,2
    goto _CPLB__5
    bsf STATUS,5
ram_bank = 1
    movf BIGHH,W
    sublw 38
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__46
    btfss STATUS,2
    goto _CPLB__5
    bsf STATUS,5
ram_bank = 1
    movf BIGH,W
    sublw 37
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__46
    btfss STATUS,2
    goto _CPLB__5
    bsf STATUS,5
ram_bank = 1
    movf BIG,W
    sublw 159
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__46
_CPLB__5
ram_bank = 255
F1_000288 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TOCHKA  = 0
    bsf STATUS,5
    bcf STATUS,6
ram_bank = 1
    clrf Tochka
    bcf STATUS,5
ram_bank = 0
    goto _LBL__47
_LBL__46
F1_000289 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ELSE
F1_000290 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TOCHKA  = 34
    movlw 34
    bsf STATUS,5
ram_bank = 1
    movwf Tochka
F1_000291 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__47
    bcf STATUS,5
ram_bank = 0
F1_000292 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__44
F1_000293 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = ARRAY_[ADDRESS - 1 + DIGNUMBUR]
    movlw 255
    addwf address,W
    movwf PP7
    movlw 255
    btfsc STATUS,0
    addlw 1
    movwf PP7H
    movf DigNumbur,W
    addwf PP7,W
    movwf PP3
    movlw 71
    movwf GEN3H
    call GET@ARRAYW
    movwf DataArray
F1_000295 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SELECT DIGIT
F1_000296 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 0
    movf digit,F
    btfss STATUS,2
    goto _LBL__49
F1_000297 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS1
    call MAX7219_DIGITS1
    goto _LBL__48
_LBL__49
F1_000298 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 1
    movlw 1
    subwf digit,W
    btfss STATUS,2
    goto _LBL__52
F1_000299 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS2
    call MAX7219_DIGITS2
    goto _LBL__48
_LBL__52
F1_000300 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 2
    movlw 2
    subwf digit,W
    btfss STATUS,2
    goto _LBL__54
F1_000301 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS3
    call MAX7219_DIGITS3
    goto _LBL__48
_LBL__54
F1_000302 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 3
    movlw 3
    subwf digit,W
    btfss STATUS,2
    goto _LBL__56
F1_000303 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MAX7219_DIGITS4
    call MAX7219_DIGITS4
F1_000304 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDSELECT
_LBL__56
_LBL__48
_CTLB__42
F1_000305 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT
    movlw 1
    addwf address,F
    btfss STATUS,0
    goto _FRLB__40
_NXLB__41
F1_000306 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
Maska
F1_000310 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SELECT N
F1_000311 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 0
    bsf STATUS,5
ram_bank = 1
    movf _N,F
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__58
F1_000312 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 8
    movlw 8
    movwf DigNumbur
    goto _LBL__57
_LBL__58
F1_000313 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 1
    movlw 1
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__61
F1_000314 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 16
    movlw 16
    movwf DigNumbur
    goto _LBL__57
_LBL__61
F1_000315 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 2
    movlw 2
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__63
F1_000316 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 24
    movlw 24
    movwf DigNumbur
    goto _LBL__57
_LBL__63
F1_000317 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 3
    movlw 3
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__65
F1_000318 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 32
    movlw 32
    movwf DigNumbur
    goto _LBL__57
_LBL__65
F1_000319 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 4
    movlw 4
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__67
F1_000320 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 40
    movlw 40
    movwf DigNumbur
    goto _LBL__57
_LBL__67
F1_000321 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 5
    movlw 5
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__69
F1_000322 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 48
    movlw 48
    movwf DigNumbur
    goto _LBL__57
_LBL__69
F1_000323 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 6
    movlw 6
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__71
F1_000324 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 56
    movlw 56
    movwf DigNumbur
    goto _LBL__57
_LBL__71
F1_000325 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 7
    movlw 7
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__73
F1_000326 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 64
    movlw 64
    movwf DigNumbur
    goto _LBL__57
_LBL__73
F1_000327 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 8
    movlw 8
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__75
F1_000328 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 72
    movlw 72
    movwf DigNumbur
    goto _LBL__57
_LBL__75
F1_000329 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 9
    movlw 9
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__77
F1_000330 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 80
    movlw 80
    movwf DigNumbur
    goto _LBL__57
_LBL__77
F1_000331 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 10
    movlw 10
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__79
F1_000332 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 88
    movlw 88
    movwf DigNumbur
    goto _LBL__57
_LBL__79
F1_000333 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 11
    movlw 11
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__81
F1_000334 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 96
    movlw 96
    movwf DigNumbur
    goto _LBL__57
_LBL__81
F1_000335 equ $ ; IN [HOUR-MAX7219-8X8.BAS] CASE 12
    movlw 12
    bsf STATUS,5
ram_bank = 1
    subwf _N,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__83
F1_000336 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGNUMBUR = 0
    clrf DigNumbur
F1_000337 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDSELECT
_LBL__83
_LBL__57
F1_000338 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
Termo
F1_000342 equ $ ; IN [HOUR-MAX7219-8X8.BAS] OWRITE DQ, 1,[$CC,$44]
    movlw 6
    movwf GEN
    movlw 16
    movwf GENH
    movlw 1
    movwf GPR
    call __OWRESET2_
    movlw 204
    call __OWRITE_
    movlw 68
    call __OWRITE_
F1_000343 equ $ ; IN [HOUR-MAX7219-8X8.BAS] REPEAT
_LBL__84
F1_000344 equ $ ; IN [HOUR-MAX7219-8X8.BAS] OREAD DQ, 4,[G]
    movlw 6
    movwf GEN
    movlw 16
    movwf GENH
    movlw 4
    movwf GPR
    call __OREAD_
    andlw 1
    btfsc STATUS,2
    bcf _B#VR1,0
    btfss STATUS,2
    bsf _B#VR1,0
F1_000345 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
_LBL__86
F1_000346 equ $ ; IN [HOUR-MAX7219-8X8.BAS] UNTIL G > 0
    btfss _B#VR1,0
    goto _LBL__84
_LBL__85
F1_000347 equ $ ; IN [HOUR-MAX7219-8X8.BAS] OWRITE DQ, 1,[$CC,$BE]
    movlw 6
    movwf GEN
    movlw 16
    movwf GENH
    movlw 1
    movwf GPR
    call __OWRESET2_
    movlw 204
    call __OWRITE_
    movlw 190
    call __OWRITE_
F1_000348 equ $ ; IN [HOUR-MAX7219-8X8.BAS] OREAD    DQ, 2,[TEMP.LOWBYTE, TEMP.HIGHBYTE]
    movlw 6
    movwf GEN
    movlw 16
    movwf GENH
    movlw 2
    movwf GPR
    call __OREAD_
    movwf Temp
    call __OREAD_
    movwf TempH
    call __OWRESET1_
F1_000353 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DUMMY = 625 * TEMP
    movf TempH,W
    movwf PP3H
    movf Temp,W
    movwf PP3
    movlw 2
    movwf PP1H
    movlw 113
    movwf PP1
    call __MULTIPLY_U1616_
    movwf Dummy
    movf PP2H,W
    movwf DummyH
F1_000354 equ $ ; IN [HOUR-MAX7219-8X8.BAS] TEMPC = DIV32 10000
    movlw 39
    movwf PP1H
    movlw 16
    call DV@32W
    movwf TempC
F1_000355 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = 22 : B = DIG TEMPC ,0 : C = DIG TEMPC ,1 : D = 21
    movlw 22
    movwf _A
    clrf PP0H
    movf TempC,W
    movwf PP0
    movlw 0
    call DIG
    movwf _B
    clrf PP0H
    movf TempC,W
    movwf PP0
    movlw 1
    call DIG
    movwf _C
    movlw 21
    movwf _D
F1_000356 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
Clears
F1_000360 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR Y = 0 TO 8
    clrf _Y
_FRLB__87
    movlw 9
    subwf _Y,W
    btfsc STATUS,0
    goto _NXLB__88
F1_000361 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = 0
    clrf DataArray
F1_000362 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = Y+1 : DATAARRAY = DATAARRAY << 1
    incf _Y,W
    movwf address
    bcf STATUS,0
    rlf DataArray,F
F1_000363 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000364 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,0,0,0,0,ADDRESS,DATAARRAY]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
F1_000365 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000366 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DELAY
    call Delay
_CTLB__89
F1_000367 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT Y
    movlw 1
    addwf _Y,F
    btfss STATUS,0
    goto _FRLB__87
_NXLB__88
F1_000369 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR Y = 0 TO 8
    clrf _Y
_FRLB__90
    movlw 9
    subwf _Y,W
    btfsc STATUS,0
    goto _NXLB__91
F1_000370 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = 0
    clrf DataArray
F1_000371 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = Y+1 : DATAARRAY = DATAARRAY << 1
    incf _Y,W
    movwf address
    bcf STATUS,0
    rlf DataArray,F
F1_000372 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000373 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,0,0,ADDRESS,DATAARRAY,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000374 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000375 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DELAY
    call Delay
_CTLB__92
F1_000376 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT Y
    movlw 1
    addwf _Y,F
    btfss STATUS,0
    goto _FRLB__90
_NXLB__91
F1_000378 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR Y = 0 TO 8
    clrf _Y
_FRLB__93
    movlw 9
    subwf _Y,W
    btfsc STATUS,0
    goto _NXLB__94
F1_000379 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = 0
    clrf DataArray
F1_000380 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = Y+1 : DATAARRAY = DATAARRAY << 1
    incf _Y,W
    movwf address
    bcf STATUS,0
    rlf DataArray,F
F1_000381 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000382 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[0,0,ADDRESS,DATAARRAY,0,0,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000383 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000384 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DELAY
    call Delay
_CTLB__95
F1_000385 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT Y
    movlw 1
    addwf _Y,F
    btfss STATUS,0
    goto _FRLB__93
_NXLB__94
F1_000387 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR Y = 0 TO 8
    clrf _Y
_FRLB__96
    movlw 9
    subwf _Y,W
    btfsc STATUS,0
    goto _NXLB__97
F1_000388 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DATAARRAY = 0
    clrf DataArray
F1_000389 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ADDRESS = Y+1 : DATAARRAY = DATAARRAY << 1
    incf _Y,W
    movwf address
    bcf STATUS,0
    rlf DataArray,F
F1_000390 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 0
    bcf PORTB,6
F1_000391 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SHOUT DATAPIN, CLOCKPIN, MSBFIRST,[ADDRESS,DATAARRAY,0,0,0,0,0,0]
    movlw 6
    movwf GEN
    movlw 32
    movwf GENH
    movlw 6
    movwf GEN2
    movlw 128
    movwf GEN2H
    movlw 1
    movwf GPR
    movf address,W
    movwf PP0
    call __SHOUT_8_
    movf DataArray,W
    movwf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
    clrf PP0
    call __SHOUT_8_
F1_000392 equ $ ; IN [HOUR-MAX7219-8X8.BAS] LOAD = 1
    bsf PORTB,6
F1_000393 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DELAY
    call Delay
_CTLB__98
F1_000394 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT Y
    movlw 1
    addwf _Y,F
    btfss STATUS,0
    goto _FRLB__96
_NXLB__97
F1_000396 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
Delay
F1_000399 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FOR DES = 0 TO 5000
    clrf DESH
    clrf DES
_FRLB__99
    movlw 19
    subwf DESH,W
    btfss STATUS,0
    goto _CPLB__6
    btfss STATUS,2
    goto _NXLB__100
    movlw 137
    subwf DES,W
    btfsc STATUS,0
    goto _NXLB__100
_CPLB__6
ram_bank = 255
F1_000400 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    bcf STATUS,5
    bcf STATUS,6
ram_bank = 0
    call KontrolTime
_CTLB__101
F1_000401 equ $ ; IN [HOUR-MAX7219-8X8.BAS] NEXT DES
    incf DES,F
    btfsc STATUS,2
    incfsz DESH,F
    goto _FRLB__99
_NXLB__100
F1_000402 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
KontrolTime
F1_000406 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF SECONDS >= 60 THEN
    movlw 60
    bsf STATUS,5
ram_bank = 1
    subwf SECONDS,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__103
F1_000407 equ $ ; IN [HOUR-MAX7219-8X8.BAS] SECONDS = 0
    bsf STATUS,5
ram_bank = 1
    clrf SECONDS
F1_000408 equ $ ; IN [HOUR-MAX7219-8X8.BAS] FLASH = 1
    bcf STATUS,5
ram_bank = 0
    bsf _B#VR1,1
F1_000409 equ $ ; IN [HOUR-MAX7219-8X8.BAS] INC MINUTES
    bsf STATUS,5
ram_bank = 1
    incf MINUTES,F
F1_000410 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUTES >= 60 THEN
    movlw 60
    subwf MINUTES,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__105
F1_000412 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BEEP = 1 : DELAYMS 50 : BEEP = 0
    bsf PORTB,0
    movlw 50
    call __DELAY_MS_
    bcf PORTB,0
F1_000414 equ $ ; IN [HOUR-MAX7219-8X8.BAS] MINUTES = 0
    bsf STATUS,5
ram_bank = 1
    clrf MINUTES
F1_000415 equ $ ; IN [HOUR-MAX7219-8X8.BAS] INC HOUR
    incf HOUR,F
F1_000416 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF HOUR > 23 THEN HOUR = 0
    movlw 24
    subwf HOUR,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__107
    bsf STATUS,5
ram_bank = 1
    clrf HOUR
_LBL__107
    bcf STATUS,5
ram_bank = 0
F1_000417 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF HOUR = 0 THEN E  = 0 : GOSUB BRIGHT
    bsf STATUS,5
ram_bank = 1
    movf HOUR,F
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__109
    bsf STATUS,5
ram_bank = 1
    clrf _E
    bcf STATUS,5
ram_bank = 0
    call Bright
_LBL__109
F1_000418 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF HOUR = 9 THEN E  = 3 : GOSUB BRIGHT
    movlw 9
    bsf STATUS,5
ram_bank = 1
    subwf HOUR,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__111
    movlw 3
    bsf STATUS,5
ram_bank = 1
    movwf _E
    bcf STATUS,5
ram_bank = 0
    call Bright
_LBL__111
F1_000419 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__105
F1_000420 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__103
F1_000421 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
SetCor
F1_000426 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 1 THEN INC BUTTMIN
    btfss PORTB,3
    goto _LBL__113
    bsf STATUS,5
ram_bank = 1
    incf ButtMIN,F
_LBL__113
    bcf STATUS,5
ram_bank = 0
F1_000427 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 1 AND BUTTMIN > 20 THEN BUTTMIN = 21 : SETCORR = SETCORR + 10
    movlw 0
    btfsc PORTB,3
    movlw 1
    movwf SP#P9
    movlw 21
    bsf STATUS,5
ram_bank = 1
    subwf ButtMIN,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__7
    clrw
    btfss STATUS,2
_CPLB__7
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__115
    movlw 21
    bsf STATUS,5
ram_bank = 1
    movwf ButtMIN
    movlw 10
    addwf SetCorr,F
    btfsc STATUS,0
    incf SetCorrH,F
_LBL__115
    bcf STATUS,5
ram_bank = 0
F1_000428 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 0 AND BUTTMIN > 1 THEN BUTTMIN = 0 : SETCORR = SETCORR + 10
    movlw 1
    btfsc PORTB,3
    movlw 0
    movwf SP#P9
    movlw 2
    bsf STATUS,5
ram_bank = 1
    subwf ButtMIN,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__8
    clrw
    btfss STATUS,2
_CPLB__8
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__117
    bsf STATUS,5
ram_bank = 1
    clrf ButtMIN
    movlw 10
    addwf SetCorr,F
    btfsc STATUS,0
    incf SetCorrH,F
_LBL__117
    bcf STATUS,5
ram_bank = 0
F1_000429 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF PLUS = 1 THEN INC BUTTPLUS
    btfss PORTB,2
    goto _LBL__119
    bsf STATUS,5
ram_bank = 1
    incf ButtPlus,F
_LBL__119
    bcf STATUS,5
ram_bank = 0
F1_000430 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF PLUS = 1 AND BUTTPLUS > 20 THEN BUTTPLUS = 21 : SETCORR = SETCORR - 10
    movlw 0
    btfsc PORTB,2
    movlw 1
    movwf SP#P9
    movlw 21
    bsf STATUS,5
ram_bank = 1
    subwf ButtPlus,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__9
    clrw
    btfss STATUS,2
_CPLB__9
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__121
    movlw 21
    bsf STATUS,5
ram_bank = 1
    movwf ButtPlus
    movlw 10
    subwf SetCorr,F
    btfss STATUS,0
    decf SetCorrH,F
_LBL__121
    bcf STATUS,5
ram_bank = 0
F1_000431 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF PLUS = 0 AND BUTTPLUS > 1 THEN BUTTPLUS = 0 : SETCORR = SETCORR - 10
    movlw 1
    btfsc PORTB,2
    movlw 0
    movwf SP#P9
    movlw 2
    bsf STATUS,5
ram_bank = 1
    subwf ButtPlus,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__10
    clrw
    btfss STATUS,2
_CPLB__10
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__123
    bsf STATUS,5
ram_bank = 1
    clrf ButtPlus
    movlw 10
    subwf SetCorr,F
    btfss STATUS,0
    decf SetCorrH,F
_LBL__123
    bcf STATUS,5
ram_bank = 0
F1_000432 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF SETCORR > 10000 THEN SETCORR = 10000
    movlw 39
    bsf STATUS,5
ram_bank = 1
    subwf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__125
    btfss STATUS,2
    goto _CPLB__11
    movlw 17
    bsf STATUS,5
ram_bank = 1
    subwf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__125
_CPLB__11
ram_bank = 255
    movlw 39
    bsf STATUS,5
    bcf STATUS,6
ram_bank = 1
    movwf SetCorrH
    movlw 16
    movwf SetCorr
_LBL__125
    bcf STATUS,5
ram_bank = 0
F1_000433 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF SETCORR < 10 THEN SETCORR = 10
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,F
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,2
    goto _LBL__127
    movlw 10
    bsf STATUS,5
ram_bank = 1
    subwf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _LBL__127
    bsf STATUS,5
ram_bank = 1
    clrf SetCorrH
    movlw 10
    movwf SetCorr
_LBL__127
    bcf STATUS,5
ram_bank = 0
F1_000434 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = DIG SETCORR,0 : B = DIG SETCORR,1 : C = DIG SETCORR,2 : D = DIG SETCORR,3
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 0
    call DIG
    movwf _A
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 1
    call DIG
    movwf _B
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 2
    call DIG
    movwf _C
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 3
    call DIG
    movwf _D
F1_000435 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DISP
    call Disp
F1_000436 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000437 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MENY = 1 THEN
    btfss PORTB,1
    goto _LBL__129
F1_000438 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WHILE MENY = 1
_LBL__130
    btfss PORTB,1
    goto _LBL__131
F1_000439 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000440 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WEND
    goto _LBL__130
_LBL__131
F1_000441 equ $ ; IN [HOUR-MAX7219-8X8.BAS] EWRITE 1,[SETCORR]
    movlw 1
    bsf STATUS,5
ram_bank = 1
    movwf EEADR
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
F1_000442 equ $ ; IN [HOUR-MAX7219-8X8.BAS] EWRITE 0,[1]
    bsf STATUS,5
ram_bank = 1
    clrf EEADR
    movlw 1
    bcf STATUS,5
ram_bank = 0
    call __EEWRITE_
F1_000443 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG2 = 4995000 + SETCORR
    bsf STATUS,5
ram_bank = 1
    movf SetCorrH,W
    bcf STATUS,5
ram_bank = 0
    movwf PP2H
    bsf STATUS,5
ram_bank = 1
    movf SetCorr,W
    bcf STATUS,5
ram_bank = 0
    movwf PP2
    clrf PP2HH
    clrf PP2HHH
    addlw 184
    bsf STATUS,5
ram_bank = 1
    movwf BIG2
    movlw 55
    movwf BIG2H
    bcf STATUS,5
ram_bank = 0
    movf PP2H,W
    btfss STATUS,0
    goto _ADLB__11
    incf PP2H,W
    btfsc STATUS,2
    goto _ADLB__12
_ADLB__11
    bsf STATUS,5
ram_bank = 1
    addwf BIG2H,F
_ADLB__12
    bcf STATUS,5
ram_bank = 0
    movlw 76
    bsf STATUS,5
ram_bank = 1
    movwf BIG2HH
    bcf STATUS,5
ram_bank = 0
    movf PP2HH,W
    btfss STATUS,0
    goto _ADLB__13
    incf PP2HH,W
    btfsc STATUS,2
    goto _ADLB__14
_ADLB__13
    bsf STATUS,5
ram_bank = 1
    addwf BIG2HH,F
_ADLB__14
    bcf STATUS,5
ram_bank = 0
    bsf STATUS,5
ram_bank = 1
    clrf BIG2HHH
    bcf STATUS,5
ram_bank = 0
    movf PP2HHH,W
    btfss STATUS,0
    goto _ADLB__15
    incf PP2HHH,W
    btfsc STATUS,2
    goto _ADLB__16
_ADLB__15
    bsf STATUS,5
ram_bank = 1
    addwf BIG2HHH,F
_ADLB__16
    bcf STATUS,5
ram_bank = 0
F1_000444 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BIG = BIG2
    bsf STATUS,5
ram_bank = 1
    movf BIG2HHH,W
    movwf BIGHHH
    movf BIG2HH,W
    movwf BIGHH
    movf BIG2H,W
    movwf BIGH
    movf BIG2,W
    movwf BIG
F1_000445 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETSECONDS
    bcf STATUS,5
ram_bank = 0
    goto SetSeconds
F1_000446 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__129
F1_000447 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETCOR
    goto SetCor
SetSeconds
F1_000450 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000451 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 1 OR PLUS = 1 THEN SECONDS = 0
    movlw 0
    btfsc PORTB,3
    movlw 1
    movwf SP#P9
    movlw 0
    btfsc PORTB,2
    movlw 1
    iorwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__133
    bsf STATUS,5
ram_bank = 1
    clrf SECONDS
_LBL__133
    bcf STATUS,5
ram_bank = 0
F1_000452 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MENY = 1 THEN
    btfss PORTB,1
    goto _LBL__135
F1_000453 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WHILE MENY = 1
_LBL__136
    btfss PORTB,1
    goto _LBL__137
F1_000454 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000455 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WEND
    goto _LBL__136
_LBL__137
F1_000456 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETBRIGHT
    goto SetBright
F1_000457 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__135
F1_000458 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = 11 : B = DIG SECONDS,0 : C = DIG SECONDS,1 : D = 11
    movlw 11
    movwf _A
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SECONDS,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 0
    call DIG
    movwf _B
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf SECONDS,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 1
    call DIG
    movwf _C
    movlw 11
    movwf _D
F1_000459 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DISP
    call Disp
F1_000460 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETSECONDS
    goto SetSeconds
SetBright
F1_000463 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 1 THEN INC BUTTMIN
    btfss PORTB,3
    goto _LBL__139
    bsf STATUS,5
ram_bank = 1
    incf ButtMIN,F
_LBL__139
    bcf STATUS,5
ram_bank = 0
F1_000464 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MINUS = 0 AND BUTTMIN > 1 THEN
    movlw 1
    btfsc PORTB,3
    movlw 0
    movwf SP#P9
    movlw 2
    bsf STATUS,5
ram_bank = 1
    subwf ButtMIN,W
    bcf STATUS,5
ram_bank = 0
    btfsc STATUS,0
    goto _CPLB__12
    clrw
    btfss STATUS,2
_CPLB__12
    movlw 1
    andwf SP#P9,F
    btfsc STATUS,2
    goto _LBL__141
F1_000465 equ $ ; IN [HOUR-MAX7219-8X8.BAS] BUTTMIN = 0
    bsf STATUS,5
ram_bank = 1
    clrf ButtMIN
F1_000466 equ $ ; IN [HOUR-MAX7219-8X8.BAS] INC E
    incf _E,F
F1_000467 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF E > 15 THEN E = 0
    movlw 16
    subwf _E,W
    bcf STATUS,5
ram_bank = 0
    btfss STATUS,0
    goto _LBL__143
    bsf STATUS,5
ram_bank = 1
    clrf _E
_LBL__143
    bcf STATUS,5
ram_bank = 0
F1_000468 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB BRIGHT
    call Bright
F1_000469 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__141
F1_000470 equ $ ; IN [HOUR-MAX7219-8X8.BAS] IF MENY = 1 THEN
    btfss PORTB,1
    goto _LBL__145
F1_000471 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WHILE MENY = 1
_LBL__146
    btfss PORTB,1
    goto _LBL__147
F1_000472 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB KONTROLTIME
    call KontrolTime
F1_000473 equ $ ; IN [HOUR-MAX7219-8X8.BAS] WEND
    goto _LBL__146
_LBL__147
F1_000474 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO MAIN
    goto main
F1_000475 equ $ ; IN [HOUR-MAX7219-8X8.BAS] ENDIF
_LBL__145
F1_000476 equ $ ; IN [HOUR-MAX7219-8X8.BAS] A = 11 : B = DIG E,0 : C = DIG E,1 : D = 11
    movlw 11
    movwf _A
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf _E,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 0
    call DIG
    movwf _B
    clrf PP0H
    bsf STATUS,5
ram_bank = 1
    movf _E,W
    bcf STATUS,5
ram_bank = 0
    movwf PP0
    movlw 1
    call DIG
    movwf _C
    movlw 11
    movwf _D
F1_000477 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB DISP
    call Disp
F1_000478 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOTO SETBRIGHT
    goto SetBright
Disp
F1_000482 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 0
    clrf digit
F1_000483 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = A
    movf _A,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000484 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000485 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000487 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 1
    movlw 1
    movwf digit
F1_000488 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = B
    movf _B,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000489 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000490 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000492 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 2
    movlw 2
    movwf digit
F1_000493 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = C
    movf _C,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000494 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000495 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000497 equ $ ; IN [HOUR-MAX7219-8X8.BAS] DIGIT = 3
    movlw 3
    movwf digit
F1_000498 equ $ ; IN [HOUR-MAX7219-8X8.BAS] N = D
    movf _D,W
    bsf STATUS,5
ram_bank = 1
    movwf _N
F1_000499 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB MASKA
    bcf STATUS,5
ram_bank = 0
    call Maska
F1_000500 equ $ ; IN [HOUR-MAX7219-8X8.BAS] GOSUB WRITE_8X8_DISPLAY
    call Write_8x8_display
F1_000502 equ $ ; IN [HOUR-MAX7219-8X8.BAS] RETURN
    return
F1_EOF equ $ ; HOUR-MAX7219-8X8.BAS
_PBLB__148
    goto _PBLB__148
__EOF
__config HS_OSC&WDT_OFF&PWRTE_ON&LVP_OFF&BODEN_OFF&MCLRE_OFF
    end
