;*******************************************************
;*                 Code Produced by the                *
;*             PROTON+ Compiler. Version 2.1.3         *
;* Copyright Rosetta Technologies/Crownhill Associates *
;*              Written by Les Johnson. 2003           *
;*******************************************************
	NOLIST

	#include "C:\DOCUME~1\GP\Asztal\ORA16F~1.PBP" 

	LIST
B1 Equ 39
B2 Equ 40
B3 Equ 41
B4 Equ 42
B5 Equ 43
_P Equ 44
_S Equ 45
HOUR Equ 46
HOURT Equ 47
HOURU Equ 48
MINUTE Equ 49
MINUTET Equ 50
MINUTEU Equ 51
SECUND Equ 52
TICK Equ 53
_T Equ 54
F1_SOF equ $ ; ORA16F~1.BAS
F1_000004 equ $ ; in [ORA16F~1.BAS] Config xt_osc, pwrte_on, wdt_off, lvp_off
F1_000005 equ $ ; in [ORA16F~1.BAS] ALL_DIGITAL = true
	Movlw 7
	Bsf STATUS,5
ram_bank = 1
	Movwf ADCON1
F1_000007 equ $ ; in [ORA16F~1.BAS] T1CON = %00110101
	Movlw 53
	Bcf STATUS,5
ram_bank = 0
	Movwf T1CON
F1_000008 equ $ ; in [ORA16F~1.BAS] INTCON = %11000000
	Movlw 192
	Movwf INTCON
F1_000009 equ $ ; in [ORA16F~1.BAS] PIE1.0 = 1
	Bsf STATUS,5
ram_bank = 1
	Bsf PIE1,0
	Bsf INTCON,7
	Bcf STATUS,5
ram_bank = 0
	F@Jump INT@LBL2
INT@LBL1
	Btfsc INTCON,7
	Return
	F@Jump TICKINT
INT@LBL2
	F@Call INT@LBL1
F1_000012 equ $ ; in [ORA16F~1.BAS] Input PORTA.0
	Bsf STATUS,5
ram_bank = 1
	Bsf TRISA,0
	Bcf STATUS,5
ram_bank = 0
	F@Call INT@LBL1
F1_000013 equ $ ; in [ORA16F~1.BAS] Input PORTA.1
	Bsf STATUS,5
ram_bank = 1
	Bsf TRISA,1
	Bcf STATUS,5
ram_bank = 0
	F@Call INT@LBL1
F1_000014 equ $ ; in [ORA16F~1.BAS] Output PORTB
	Bsf STATUS,5
ram_bank = 1
	Clrf TRISB
	Bcf STATUS,5
ram_bank = 0
	F@Call INT@LBL1
F1_000015 equ $ ; in [ORA16F~1.BAS] Output PORTc
	Bsf STATUS,5
ram_bank = 1
	Clrf TRISC
	Bcf STATUS,5
ram_bank = 0
	F@Call INT@LBL1
F1_000025 equ $ ; in [ORA16F~1.BAS] P = 0
	Clrf _P
	F@Call INT@LBL1
F1_000026 equ $ ; in [ORA16F~1.BAS] tick = 0
	Clrf TICK
	F@Call INT@LBL1
F1_000027 equ $ ; in [ORA16F~1.BAS] secund = 0
	Clrf SECUND
	F@Call INT@LBL1
F1_000028 equ $ ; in [ORA16F~1.BAS] minute = 0
	Clrf MINUTE
	F@Call INT@LBL1
F1_000029 equ $ ; in [ORA16F~1.BAS] hour = 12
	Movlw 12
	Movwf HOUR
	F@Call INT@LBL1
F1_000030 equ $ ; in [ORA16F~1.BAS] DelayMS 10
	Movlw 10
	F@Call dl@ms
LOOP
	F@Call INT@LBL1
F1_000034 equ $ ; in [ORA16F~1.BAS] gosub gomb
	F@Call GOMB
	F@Call INT@LBL1
F1_000036 equ $ ; in [ORA16F~1.BAS] GoSub Disp
	F@Call DISP
	F@Call INT@LBL1
F1_000038 equ $ ; in [ORA16F~1.BAS] GoTo loop
	F@Jump LOOP
GOMB
	F@Call INT@LBL1
F1_000041 equ $ ; in [ORA16F~1.BAS] If PORTA.0 = 0 Then DelayMS 1
	set@page bc@ll2
	Btfsc PORTA,0
	Goto bc@ll2
	F@Call INT@LBL1
	Movlw 1
	F@Call dl@ms
bc@ll2
	F@Call INT@LBL1
F1_000042 equ $ ; in [ORA16F~1.BAS] If PORTA.0 = 0 Then
	set@page bc@ll4
	Btfsc PORTA,0
	Goto bc@ll4
	F@Call INT@LBL1
F1_000043 equ $ ; in [ORA16F~1.BAS] Inc s
	Incf _S,F
	F@Call INT@LBL1
F1_000044 equ $ ; in [ORA16F~1.BAS] If s > 10 Then s = 0
	Movlw 11
	Subwf _S,W
	set@page bc@ll6
	Btfss STATUS,0
	Goto bc@ll6
	F@Call INT@LBL1
	Clrf _S
bc@ll6
	F@Call INT@LBL1
F1_000045 equ $ ; in [ORA16F~1.BAS] If s = 0 Then
	Movfw _S
	set@page bc@ll8
	Btfss STATUS,2
	Goto bc@ll8
	F@Call INT@LBL1
F1_000046 equ $ ; in [ORA16F~1.BAS] minute = minute + 1
	Incf MINUTE,F
	F@Call INT@LBL1
F1_000047 equ $ ; in [ORA16F~1.BAS] secund = 0
	Clrf SECUND
	F@Call INT@LBL1
F1_000048 equ $ ; in [ORA16F~1.BAS] If minute > 59 Then
	Movlw 60
	Subwf MINUTE,W
	set@page bc@ll10
	Btfss STATUS,0
	Goto bc@ll10
	F@Call INT@LBL1
F1_000049 equ $ ; in [ORA16F~1.BAS] minute = 0
	Clrf MINUTE
	F@Call INT@LBL1
F1_000050 equ $ ; in [ORA16F~1.BAS] hour = hour + 1
	Incf HOUR,F
F1_000051 equ $ ; in [ORA16F~1.BAS] EndIf
bc@ll10
	F@Call INT@LBL1
F1_000052 equ $ ; in [ORA16F~1.BAS] If hour > 23 Then hour = 0
	Movlw 24
	Subwf HOUR,W
	set@page bc@ll12
	Btfss STATUS,0
	Goto bc@ll12
	F@Call INT@LBL1
	Clrf HOUR
bc@ll12
F1_000053 equ $ ; in [ORA16F~1.BAS] EndIf
bc@ll8
F1_000054 equ $ ; in [ORA16F~1.BAS] EndIf
bc@ll4
	F@Call INT@LBL1
F1_000055 equ $ ; in [ORA16F~1.BAS] return
	Return
DISP
	F@Call INT@LBL1
F1_000058 equ $ ; in [ORA16F~1.BAS] hourT = hour / 10
	Clrf PP0H
	Movfw HOUR
	Movwf PP0
	Clrf PP1H
	Movlw 10
	Movwf PP1
	F@Call d@vd
	Movwf HOURT
	F@Call INT@LBL1
F1_000059 equ $ ; in [ORA16F~1.BAS] hourU = hour // 10
	Clrf PP0H
	Movfw HOUR
	Movwf PP0
	Clrf PP1H
	Movlw 10
	Movwf PP1
	F@Call d@vd
	Movfw PP2
	Movwf HOURU
	F@Call INT@LBL1
F1_000060 equ $ ; in [ORA16F~1.BAS] minuteT = minute / 10
	Clrf PP0H
	Movfw MINUTE
	Movwf PP0
	Clrf PP1H
	Movlw 10
	Movwf PP1
	F@Call d@vd
	Movwf MINUTET
	F@Call INT@LBL1
F1_000061 equ $ ; in [ORA16F~1.BAS] minuteU = minute // 10
	Clrf PP0H
	Movfw MINUTE
	Movwf PP0
	Clrf PP1H
	Movlw 10
	Movwf PP1
	F@Call d@vd
	Movfw PP2
	Movwf MINUTEU
	F@Call INT@LBL1
F1_000062 equ $ ; in [ORA16F~1.BAS] portc = 1
	Movlw 1
	Movwf PORTC
	F@Call INT@LBL1
F1_000063 equ $ ; in [ORA16F~1.BAS] b1 = LookUp hourT ,  [63, 6, 91, 79, 102, 109 ,125 ,7 ,127 ,111]
	Movfw HOURT
	Sublw 9
	set@page Le@lb1
	Btfss STATUS,0
	Goto Le@lb1
	F@Call l@lb3
	Movwf B1
	F@Jump Le@lb1
l@lb3
	Movlw high lk@lb2
	Movwf PCLATH
	Movfw HOURT
	if($ >> 8) != (($ + 10) >> 8)
	Goto so@lb13
	Org (($ + 255) & 65280)
so@lb13
	endif
	Addwf PCL,F
lk@lb2
	Retlw 63
	Retlw 6
	Retlw 91
	Retlw 79
	Retlw 102
	Retlw 109
	Retlw 125
	Retlw 7
	Retlw 127
	Retlw 111
Le@lb1
	F@Call INT@LBL1
F1_000064 equ $ ; in [ORA16F~1.BAS] PORTB = b1
	Movfw B1
	Movwf PORTB
	F@Call INT@LBL1
F1_000065 equ $ ; in [ORA16F~1.BAS] DelayMS 1
	Movlw 1
	F@Call dl@ms
	F@Call INT@LBL1
F1_000066 equ $ ; in [ORA16F~1.BAS] PORTB = 0
	Clrf PORTB
	F@Call INT@LBL1
F1_000067 equ $ ; in [ORA16F~1.BAS] PORTc = 0
	Clrf PORTC
	F@Call INT@LBL1
F1_000068 equ $ ; in [ORA16F~1.BAS] DelayUS 100
	Movlw 100
	F@Call dl@us
	F@Call INT@LBL1
F1_000069 equ $ ; in [ORA16F~1.BAS] PORTc = 2
	Movlw 2
	Movwf PORTC
	F@Call INT@LBL1
F1_000070 equ $ ; in [ORA16F~1.BAS] b2 = LookUp hourU , [63, 6, 91, 79, 102, 109 ,125 ,7 ,127 ,111]
	Movfw HOURU
	Sublw 9
	set@page Le@lb4
	Btfss STATUS,0
	Goto Le@lb4
	F@Call l@lb6
	Movwf B2
	F@Jump Le@lb4
l@lb6
	Movlw high lk@lb5
	Movwf PCLATH
	Movfw HOURU
	if($ >> 8) != (($ + 10) >> 8)
	Goto so@lb14
	Org (($ + 255) & 65280)
so@lb14
	endif
	Addwf PCL,F
lk@lb5
	Retlw 63
	Retlw 6
	Retlw 91
	Retlw 79
	Retlw 102
	Retlw 109
	Retlw 125
	Retlw 7
	Retlw 127
	Retlw 111
Le@lb4
	F@Call INT@LBL1
F1_000071 equ $ ; in [ORA16F~1.BAS] PORTB = b2
	Movfw B2
	Movwf PORTB
	F@Call INT@LBL1
F1_000072 equ $ ; in [ORA16F~1.BAS] DelayMS 1
	Movlw 1
	F@Call dl@ms
	F@Call INT@LBL1
F1_000073 equ $ ; in [ORA16F~1.BAS] PORTB = 0
	Clrf PORTB
	F@Call INT@LBL1
F1_000074 equ $ ; in [ORA16F~1.BAS] PORTc = 0
	Clrf PORTC
	F@Call INT@LBL1
F1_000075 equ $ ; in [ORA16F~1.BAS] DelayUS 100
	Movlw 100
	F@Call dl@us
	F@Call INT@LBL1
F1_000076 equ $ ; in [ORA16F~1.BAS] PORTc = 4
	Movlw 4
	Movwf PORTC
	F@Call INT@LBL1
F1_000077 equ $ ; in [ORA16F~1.BAS] PORTB = P
	Movfw _P
	Movwf PORTB
	F@Call INT@LBL1
F1_000078 equ $ ; in [ORA16F~1.BAS] DelayMS 1
	Movlw 1
	F@Call dl@ms
	F@Call INT@LBL1
F1_000079 equ $ ; in [ORA16F~1.BAS] PORTB = 0
	Clrf PORTB
	F@Call INT@LBL1
F1_000080 equ $ ; in [ORA16F~1.BAS] PORTc = 0
	Clrf PORTC
	F@Call INT@LBL1
F1_000081 equ $ ; in [ORA16F~1.BAS] DelayUS 100
	Movlw 100
	F@Call dl@us
	F@Call INT@LBL1
F1_000082 equ $ ; in [ORA16F~1.BAS] PORTc = 8
	Movlw 8
	Movwf PORTC
	F@Call INT@LBL1
F1_000083 equ $ ; in [ORA16F~1.BAS] b4 = LookUp minuteT , [63, 6, 91, 79, 102, 109 ,125 ,7 ,127 ,111]
	Movfw MINUTET
	Sublw 9
	set@page Le@lb7
	Btfss STATUS,0
	Goto Le@lb7
	F@Call l@lb9
	Movwf B4
	F@Jump Le@lb7
l@lb9
	Movlw high lk@lb8
	Movwf PCLATH
	Movfw MINUTET
	if($ >> 8) != (($ + 10) >> 8)
	Goto so@lb15
	Org (($ + 255) & 65280)
so@lb15
	endif
	Addwf PCL,F
lk@lb8
	Retlw 63
	Retlw 6
	Retlw 91
	Retlw 79
	Retlw 102
	Retlw 109
	Retlw 125
	Retlw 7
	Retlw 127
	Retlw 111
Le@lb7
	F@Call INT@LBL1
F1_000084 equ $ ; in [ORA16F~1.BAS] PORTB = b4
	Movfw B4
	Movwf PORTB
	F@Call INT@LBL1
F1_000085 equ $ ; in [ORA16F~1.BAS] DelayMS 1
	Movlw 1
	F@Call dl@ms
	F@Call INT@LBL1
F1_000086 equ $ ; in [ORA16F~1.BAS] PORTB = 0
	Clrf PORTB
	F@Call INT@LBL1
F1_000087 equ $ ; in [ORA16F~1.BAS] PORTc = 0
	Clrf PORTC
	F@Call INT@LBL1
F1_000088 equ $ ; in [ORA16F~1.BAS] DelayUS 100
	Movlw 100
	F@Call dl@us
	F@Call INT@LBL1
F1_000089 equ $ ; in [ORA16F~1.BAS] PORTc = 16
	Movlw 16
	Movwf PORTC
	F@Call INT@LBL1
F1_000090 equ $ ; in [ORA16F~1.BAS] b5 = LookUp minuteU , [63, 6, 91, 79, 102, 109 ,125 ,7 ,127 ,111]
	Movfw MINUTEU
	Sublw 9
	set@page Le@lb10
	Btfss STATUS,0
	Goto Le@lb10
	F@Call l@lb12
	Movwf B5
	F@Jump Le@lb10
l@lb12
	Movlw high lk@lb11
	Movwf PCLATH
	Movfw MINUTEU
	if($ >> 8) != (($ + 10) >> 8)
	Goto so@lb16
	Org (($ + 255) & 65280)
so@lb16
	endif
	Addwf PCL,F
lk@lb11
	Retlw 63
	Retlw 6
	Retlw 91
	Retlw 79
	Retlw 102
	Retlw 109
	Retlw 125
	Retlw 7
	Retlw 127
	Retlw 111
Le@lb10
	F@Call INT@LBL1
F1_000091 equ $ ; in [ORA16F~1.BAS] PORTB = b5
	Movfw B5
	Movwf PORTB
	F@Call INT@LBL1
F1_000092 equ $ ; in [ORA16F~1.BAS] DelayMS 1
	Movlw 1
	F@Call dl@ms
	F@Call INT@LBL1
F1_000093 equ $ ; in [ORA16F~1.BAS] PORTc = 0
	Clrf PORTC
	F@Call INT@LBL1
F1_000094 equ $ ; in [ORA16F~1.BAS] PORTB = 0
	Clrf PORTB
	F@Call INT@LBL1
F1_000095 equ $ ; in [ORA16F~1.BAS] return
	Return
F1_000097 equ $ ; in [ORA16F~1.BAS] Disable
TICKINT
F1_000099 equ $ ; in [ORA16F~1.BAS] tickint: PIR1.0 = 0
	Bcf PIR1,0
F1_000100 equ $ ; in [ORA16F~1.BAS] If tick = 0 Then P = 0
	Movfw TICK
	set@page bc@ll18
	Btfss STATUS,2
	Goto bc@ll18
	Clrf _P
bc@ll18
F1_000101 equ $ ; in [ORA16F~1.BAS] If tick = 1 Then P = 64
	Movlw 1
	Subwf TICK,W
	set@page bc@ll20
	Btfss STATUS,2
	Goto bc@ll20
	Movlw 64
	Movwf _P
bc@ll20
F1_000102 equ $ ; in [ORA16F~1.BAS] tick = tick + 1
	Incf TICK,F
F1_000104 equ $ ; in [ORA16F~1.BAS] If tick > = 2 Then tick = 0
	Movlw 2
	Subwf TICK,W
	set@page bc@ll22
	Btfss STATUS,0
	Goto bc@ll22
	Clrf TICK
bc@ll22
F1_000105 equ $ ; in [ORA16F~1.BAS] If tick <> 0 Then GoTo tickexit
	Movfw TICK
	set@page bc@ll24
	Btfsc STATUS,2
	Goto bc@ll24
	F@Jump TICKEXIT
bc@ll24
F1_000106 equ $ ; in [ORA16F~1.BAS] secund = secund + 1
	Incf SECUND,F
F1_000107 equ $ ; in [ORA16F~1.BAS] If secund > 59 Then
	Movlw 60
	Subwf SECUND,W
	set@page bc@ll26
	Btfss STATUS,0
	Goto bc@ll26
F1_000108 equ $ ; in [ORA16F~1.BAS] secund = 0
	Clrf SECUND
F1_000109 equ $ ; in [ORA16F~1.BAS] minute = minute + 1
	Incf MINUTE,F
F1_000110 equ $ ; in [ORA16F~1.BAS] EndIf
bc@ll26
F1_000112 equ $ ; in [ORA16F~1.BAS] If minute > 59 Then
	Movlw 60
	Subwf MINUTE,W
	set@page bc@ll28
	Btfss STATUS,0
	Goto bc@ll28
F1_000113 equ $ ; in [ORA16F~1.BAS] minute = 0
	Clrf MINUTE
F1_000114 equ $ ; in [ORA16F~1.BAS] hour = hour + 1
	Incf HOUR,F
F1_000115 equ $ ; in [ORA16F~1.BAS] EndIf
bc@ll28
F1_000117 equ $ ; in [ORA16F~1.BAS] If hour > 23 Then hour = 0
	Movlw 24
	Subwf HOUR,W
	set@page bc@ll30
	Btfss STATUS,0
	Goto bc@ll30
	Clrf HOUR
bc@ll30
TICKEXIT
F1_000120 equ $ ; in [ORA16F~1.BAS] Resume
	Retfie
F1_000121 equ $ ; in [ORA16F~1.BAS] Enable
F1_000123 equ $ ; in [ORA16F~1.BAS] End
Pb@lb32
	F@Call INT@LBL1
	Sleep
	F@Jump Pb@lb32
	END