;  Assembly code generated by mikroVirtualMachine - V. 5.0.0.3
;  Date/Time: 2011.04.03. 10:33:51
;  Info: http://www.mikroe.com


; ADDRESS	OPCODE	ASM
; ----------------------------------------------
$0000	$2804			GOTO	_main
$0FA8	$	_delay_1us:
;delays.pbas,9 :: 		sub procedure Delay_1us()
;delays.pbas,10 :: 		Delay_us(1)
$0FA8	$3001			MOVLW	1
$0FA9	$1303			BCF	STATUS, RP1
$0FAA	$1283			BCF	STATUS, RP0
$0FAB	$00FA			MOVWF	STACK_10
$0FAC	$0BFA			DECFSZ	STACK_10, F
$0FAD	$2FAC			GOTO	$-1
$0FAE	$0000			NOP
$0FAF	$	delays_L_1:
$0FAF	$0008			RETURN
$0F33	$	_delay_5500us:
;delays.pbas,33 :: 		sub procedure Delay_5500us()
;delays.pbas,34 :: 		Delay_us(5500)
$0F33	$3024			MOVLW	36
$0F34	$1303			BCF	STATUS, RP1
$0F35	$1283			BCF	STATUS, RP0
$0F36	$00FB			MOVWF	STACK_11
$0F37	$30FF			MOVLW	255
$0F38	$00FA			MOVWF	STACK_10
$0F39	$0BFB			DECFSZ	STACK_11, F
$0F3A	$2F3C			GOTO	$+2
$0F3B	$2F3F			GOTO	$+4
$0F3C	$0BFA			DECFSZ	STACK_10, F
$0F3D	$2F3C			GOTO	$-1
$0F3E	$2F39			GOTO	$-5
$0F3F	$309E			MOVLW	158
$0F40	$00FA			MOVWF	STACK_10
$0F41	$0BFA			DECFSZ	STACK_10, F
$0F42	$2F41			GOTO	$-1
$0F43	$	delays_L_7:
$0F43	$0008			RETURN
$0FB8	$	_delay_50us:
;delays.pbas,21 :: 		sub procedure Delay_50us()
;delays.pbas,22 :: 		Delay_us(50)
$0FB8	$3053			MOVLW	83
$0FB9	$1303			BCF	STATUS, RP1
$0FBA	$1283			BCF	STATUS, RP0
$0FBB	$00FA			MOVWF	STACK_10
$0FBC	$0BFA			DECFSZ	STACK_10, F
$0FBD	$2FBC			GOTO	$-1
$0FBE	$	delays_L_4:
$0FBE	$0008			RETURN
$05BC	$	_lcd_cmd:
;lcd.ppas,19 :: 		
;lcd.ppas,20 :: 		
$05BC	$1303			BCF	STATUS, RP1
$05BD	$1283			BCF	STATUS, RP0
$05BE	$0820			MOVF	lcd_ctrlport_address, 0
$05BF	$0084			MOVWF	FSR
;lcd.ppas,22 :: 		
$05C0	$0921			COMF	lcd____menable, W
$05C1	$00F0			MOVWF	STACK_0
$05C2	$0870			MOVF	STACK_0, 0
$05C3	$0580			ANDWF	INDF, 1
;lcd.ppas,23 :: 		
$05C4	$0922			COMF	lcd____mrs, W
$05C5	$00F0			MOVWF	STACK_0
$05C6	$0870			MOVF	STACK_0, 0
$05C7	$0580			ANDWF	INDF, 1
;lcd.ppas,25 :: 		
$05C8	$0823			MOVF	lcd_dataport_address, 0
$05C9	$0084			MOVWF	FSR
;lcd.ppas,26 :: 		
$05CA	$0825			MOVF	lcd____mdb6, 0
$05CB	$0424			IORWF	lcd____mdb7, 0
$05CC	$00F0			MOVWF	STACK_0
$05CD	$0826			MOVF	lcd____mdb5, 0
$05CE	$04F0			IORWF	STACK_0, 1
$05CF	$0827			MOVF	lcd____mdb4, 0
$05D0	$04F0			IORWF	STACK_0, 1
$05D1	$09F0			COMF	STACK_0, F
$05D2	$0870			MOVF	STACK_0, 0
$05D3	$0580			ANDWF	INDF, 1
;lcd.ppas,28 :: 		
$05D4	$3000			MOVLW	0
$05D5	$1683			BSF	STATUS, RP0
$05D6	$1BD0			BTFSC	FARG_Lcd_Cmd, 7
$05D7	$3001			MOVLW	1
$05D8	$00F1			MOVWF	STACK_1
$05D9	$0871			MOVF	STACK_1, 0
$05DA	$3A01			XORLW	1
$05DB	$1D03			BTFSS	STATUS, Z
$05DC	$2DE0			GOTO	lcd_L_2
$05DD	$	lcd_L_1:
;lcd.ppas,29 :: 		
$05DD	$1283			BCF	STATUS, RP0
$05DE	$0824			MOVF	lcd____mdb7, 0
$05DF	$0480			IORWF	INDF, 1
$05E0	$	lcd_L_2:
$05E0	$	lcd_L_3:
;lcd.ppas,30 :: 		
$05E0	$1303			BCF	STATUS, RP1
$05E1	$1283			BCF	STATUS, RP0
$05E2	$3000			MOVLW	0
$05E3	$1683			BSF	STATUS, RP0
$05E4	$1B50			BTFSC	FARG_Lcd_Cmd, 6
$05E5	$3001			MOVLW	1
$05E6	$00F1			MOVWF	STACK_1
$05E7	$0871			MOVF	STACK_1, 0
$05E8	$3A01			XORLW	1
$05E9	$1D03			BTFSS	STATUS, Z
$05EA	$2DEE			GOTO	lcd_L_5
$05EB	$	lcd_L_4:
;lcd.ppas,31 :: 		
$05EB	$1283			BCF	STATUS, RP0
$05EC	$0825			MOVF	lcd____mdb6, 0
$05ED	$0480			IORWF	INDF, 1
$05EE	$	lcd_L_5:
$05EE	$	lcd_L_6:
;lcd.ppas,32 :: 		
$05EE	$1303			BCF	STATUS, RP1
$05EF	$1283			BCF	STATUS, RP0
$05F0	$3000			MOVLW	0
$05F1	$1683			BSF	STATUS, RP0
$05F2	$1AD0			BTFSC	FARG_Lcd_Cmd, 5
$05F3	$3001			MOVLW	1
$05F4	$00F1			MOVWF	STACK_1
$05F5	$0871			MOVF	STACK_1, 0
$05F6	$3A01			XORLW	1
$05F7	$1D03			BTFSS	STATUS, Z
$05F8	$2DFC			GOTO	lcd_L_8
$05F9	$	lcd_L_7:
;lcd.ppas,33 :: 		
$05F9	$1283			BCF	STATUS, RP0
$05FA	$0826			MOVF	lcd____mdb5, 0
$05FB	$0480			IORWF	INDF, 1
$05FC	$	lcd_L_8:
$05FC	$	lcd_L_9:
;lcd.ppas,34 :: 		
$05FC	$1303			BCF	STATUS, RP1
$05FD	$1283			BCF	STATUS, RP0
$05FE	$3000			MOVLW	0
$05FF	$1683			BSF	STATUS, RP0
$0600	$1A50			BTFSC	FARG_Lcd_Cmd, 4
$0601	$3001			MOVLW	1
$0602	$00F1			MOVWF	STACK_1
$0603	$0871			MOVF	STACK_1, 0
$0604	$3A01			XORLW	1
$0605	$1D03			BTFSS	STATUS, Z
$0606	$2E0A			GOTO	lcd_L_11
$0607	$	lcd_L_10:
;lcd.ppas,35 :: 		
$0607	$1283			BCF	STATUS, RP0
$0608	$0827			MOVF	lcd____mdb4, 0
$0609	$0480			IORWF	INDF, 1
$060A	$	lcd_L_11:
$060A	$	lcd_L_12:
;lcd.ppas,37 :: 		
$060A	$1303			BCF	STATUS, RP1
$060B	$1283			BCF	STATUS, RP0
$060C	$0820			MOVF	lcd_ctrlport_address, 0
$060D	$0084			MOVWF	FSR
;lcd.ppas,38 :: 		
$060E	$0828			MOVF	lcd_lcdcmd_status, 0
$060F	$3A01			XORLW	1
$0610	$1D03			BTFSS	STATUS, Z
$0611	$2E17			GOTO	lcd_L_14
$0612	$	lcd_L_13:
;lcd.ppas,39 :: 		
$0612	$0922			COMF	lcd____mrs, W
$0613	$00F0			MOVWF	STACK_0
$0614	$0870			MOVF	STACK_0, 0
$0615	$0580			ANDWF	INDF, 1
$0616	$2E19			GOTO	lcd_L_15
;lcd.ppas,40 :: 		
$0617	$	lcd_L_14:
;lcd.ppas,41 :: 		
$0617	$0822			MOVF	lcd____mrs, 0
$0618	$0480			IORWF	INDF, 1
$0619	$	lcd_L_15:
;lcd.ppas,43 :: 		
$0619	$0821			MOVF	lcd____menable, 0
$061A	$0480			IORWF	INDF, 1
;lcd.ppas,44 :: 		
$061B	$158A			BSF	PCLATH, 3
$061C	$27A8			CALL	_delay_1us
$061D	$118A			BCF	PCLATH, 3
;lcd.ppas,45 :: 		
$061E	$0921			COMF	lcd____menable, W
$061F	$00F0			MOVWF	STACK_0
$0620	$0870			MOVF	STACK_0, 0
$0621	$0580			ANDWF	INDF, 1
;lcd.ppas,47 :: 		
$0622	$0922			COMF	lcd____mrs, W
$0623	$00F0			MOVWF	STACK_0
$0624	$0870			MOVF	STACK_0, 0
$0625	$0580			ANDWF	INDF, 1
;lcd.ppas,49 :: 		
$0626	$0823			MOVF	lcd_dataport_address, 0
$0627	$0084			MOVWF	FSR
;lcd.ppas,50 :: 		
$0628	$0825			MOVF	lcd____mdb6, 0
$0629	$0424			IORWF	lcd____mdb7, 0
$062A	$00F0			MOVWF	STACK_0
$062B	$0826			MOVF	lcd____mdb5, 0
$062C	$04F0			IORWF	STACK_0, 1
$062D	$0827			MOVF	lcd____mdb4, 0
$062E	$04F0			IORWF	STACK_0, 1
$062F	$09F0			COMF	STACK_0, F
$0630	$0870			MOVF	STACK_0, 0
$0631	$0580			ANDWF	INDF, 1
;lcd.ppas,52 :: 		
$0632	$3000			MOVLW	0
$0633	$1683			BSF	STATUS, RP0
$0634	$19D0			BTFSC	FARG_Lcd_Cmd, 3
$0635	$3001			MOVLW	1
$0636	$00F1			MOVWF	STACK_1
$0637	$0871			MOVF	STACK_1, 0
$0638	$3A01			XORLW	1
$0639	$1D03			BTFSS	STATUS, Z
$063A	$2E3E			GOTO	lcd_L_17
$063B	$	lcd_L_16:
;lcd.ppas,53 :: 		
$063B	$1283			BCF	STATUS, RP0
$063C	$0824			MOVF	lcd____mdb7, 0
$063D	$0480			IORWF	INDF, 1
$063E	$	lcd_L_17:
$063E	$	lcd_L_18:
;lcd.ppas,54 :: 		
$063E	$1303			BCF	STATUS, RP1
$063F	$1283			BCF	STATUS, RP0
$0640	$3000			MOVLW	0
$0641	$1683			BSF	STATUS, RP0
$0642	$1950			BTFSC	FARG_Lcd_Cmd, 2
$0643	$3001			MOVLW	1
$0644	$00F1			MOVWF	STACK_1
$0645	$0871			MOVF	STACK_1, 0
$0646	$3A01			XORLW	1
$0647	$1D03			BTFSS	STATUS, Z
$0648	$2E4C			GOTO	lcd_L_20
$0649	$	lcd_L_19:
;lcd.ppas,55 :: 		
$0649	$1283			BCF	STATUS, RP0
$064A	$0825			MOVF	lcd____mdb6, 0
$064B	$0480			IORWF	INDF, 1
$064C	$	lcd_L_20:
$064C	$	lcd_L_21:
;lcd.ppas,56 :: 		
$064C	$1303			BCF	STATUS, RP1
$064D	$1283			BCF	STATUS, RP0
$064E	$3000			MOVLW	0
$064F	$1683			BSF	STATUS, RP0
$0650	$18D0			BTFSC	FARG_Lcd_Cmd, 1
$0651	$3001			MOVLW	1
$0652	$00F1			MOVWF	STACK_1
$0653	$0871			MOVF	STACK_1, 0
$0654	$3A01			XORLW	1
$0655	$1D03			BTFSS	STATUS, Z
$0656	$2E5A			GOTO	lcd_L_23
$0657	$	lcd_L_22:
;lcd.ppas,57 :: 		
$0657	$1283			BCF	STATUS, RP0
$0658	$0826			MOVF	lcd____mdb5, 0
$0659	$0480			IORWF	INDF, 1
$065A	$	lcd_L_23:
$065A	$	lcd_L_24:
;lcd.ppas,58 :: 		
$065A	$1303			BCF	STATUS, RP1
$065B	$1283			BCF	STATUS, RP0
$065C	$3001			MOVLW	1
$065D	$1683			BSF	STATUS, RP0
$065E	$0550			ANDWF	FARG_Lcd_Cmd, 0
$065F	$00F1			MOVWF	STACK_1
$0660	$0871			MOVF	STACK_1, 0
$0661	$3A01			XORLW	1
$0662	$1D03			BTFSS	STATUS, Z
$0663	$2E67			GOTO	lcd_L_26
$0664	$	lcd_L_25:
;lcd.ppas,59 :: 		
$0664	$1283			BCF	STATUS, RP0
$0665	$0827			MOVF	lcd____mdb4, 0
$0666	$0480			IORWF	INDF, 1
$0667	$	lcd_L_26:
$0667	$	lcd_L_27:
;lcd.ppas,61 :: 		
$0667	$1303			BCF	STATUS, RP1
$0668	$1283			BCF	STATUS, RP0
$0669	$0820			MOVF	lcd_ctrlport_address, 0
$066A	$0084			MOVWF	FSR
;lcd.ppas,62 :: 		
$066B	$0828			MOVF	lcd_lcdcmd_status, 0
$066C	$3A01			XORLW	1
$066D	$1D03			BTFSS	STATUS, Z
$066E	$2E74			GOTO	lcd_L_29
$066F	$	lcd_L_28:
;lcd.ppas,63 :: 		
$066F	$0922			COMF	lcd____mrs, W
$0670	$00F0			MOVWF	STACK_0
$0671	$0870			MOVF	STACK_0, 0
$0672	$0580			ANDWF	INDF, 1
$0673	$2E76			GOTO	lcd_L_30
;lcd.ppas,64 :: 		
$0674	$	lcd_L_29:
;lcd.ppas,65 :: 		
$0674	$0822			MOVF	lcd____mrs, 0
$0675	$0480			IORWF	INDF, 1
$0676	$	lcd_L_30:
;lcd.ppas,67 :: 		
$0676	$0821			MOVF	lcd____menable, 0
$0677	$0480			IORWF	INDF, 1
;lcd.ppas,68 :: 		
$0678	$158A			BSF	PCLATH, 3
$0679	$27A8			CALL	_delay_1us
$067A	$118A			BCF	PCLATH, 3
;lcd.ppas,69 :: 		
$067B	$0921			COMF	lcd____menable, W
$067C	$00F0			MOVWF	STACK_0
$067D	$0870			MOVF	STACK_0, 0
$067E	$0580			ANDWF	INDF, 1
;lcd.ppas,71 :: 		
$067F	$0828			MOVF	lcd_lcdcmd_status, 0
$0680	$3A01			XORLW	1
$0681	$1D03			BTFSS	STATUS, Z
$0682	$2E87			GOTO	lcd_L_32
$0683	$	lcd_L_31:
;lcd.ppas,72 :: 		
$0683	$158A			BSF	PCLATH, 3
$0684	$2733			CALL	_delay_5500us
$0685	$118A			BCF	PCLATH, 3
$0686	$2E8A			GOTO	lcd_L_33
;lcd.ppas,73 :: 		
$0687	$	lcd_L_32:
;lcd.ppas,74 :: 		
$0687	$158A			BSF	PCLATH, 3
$0688	$27B8			CALL	_delay_50us
$0689	$118A			BCF	PCLATH, 3
$068A	$	lcd_L_33:
$068A	$	lcd_L_0:
;lcd.ppas,75 :: 		
$068A	$0008			RETURN
$0F8D	$	_res032:
$0F8D	$1303			BCF	STATUS, RP1
$0F8E	$1283			BCF	STATUS, RP0
;math_double.ppas,56 :: 		
;math_double.ppas,61 :: 		
$0F8F	$01F2			CLRF	STACK_2
;math_double.ppas,62 :: 		
$0F90	$01F1			CLRF	STACK_1
;math_double.ppas,63 :: 		
$0F91	$01F0			CLRF	STACK_0
;math_double.ppas,64 :: 		
$0F92	$01F8			CLRF	STACK_8
;math_double.ppas,65 :: 		
$0F93	$01F3			CLRF	STACK_3
;math_double.ppas,66 :: 		
$0F94	$3000			MOVLW	0
;math_double.ppas,67 :: 		
$0F95	$	math_double_L_3:
;math_double.ppas,68 :: 		
$0F95	$0008			RETURN
$0F5F	$	_setfun32:
$0F5F	$1303			BCF	STATUS, RP1
$0F60	$1283			BCF	STATUS, RP0
;math_double.ppas,71 :: 		
;math_double.ppas,78 :: 		
$0F61	$157B			BSF	STACK_11, 2
;math_double.ppas,79 :: 		
$0F62	$1FFB			BTFSS	STACK_11, 7
;math_double.ppas,80 :: 		
$0F63	$2F6B			GOTO	SETFUN32EEE
;math_double.ppas,81 :: 		
$0F64	$3001			MOVLW	0X01
;math_double.ppas,82 :: 		
$0F65	$00F3			MOVWF	STACK_3
;math_double.ppas,83 :: 		
$0F66	$01F2			CLRF	STACK_2
;math_double.ppas,84 :: 		
$0F67	$01F1			CLRF	STACK_1
;math_double.ppas,85 :: 		
$0F68	$01F0			CLRF	STACK_0
;math_double.ppas,86 :: 		
$0F69	$0DFA			RLF	STACK_10, F
;math_double.ppas,87 :: 		
$0F6A	$0CF2			RRF	STACK_2, F
;math_double.ppas,88 :: 		
$0F6B	$	SETFUN32EEE:
;math_double.ppas,89 :: 		
$0F6B	$30FF			MOVLW	0XFF
;math_double.ppas,90 :: 		
$0F6C	$	math_double_L_4:
;math_double.ppas,91 :: 		
$0F6C	$0008			RETURN
$0FC6	$	_fixsign32:
$0FC6	$1303			BCF	STATUS, RP1
$0FC7	$1283			BCF	STATUS, RP0
;math_double.ppas,45 :: 		
;math_double.ppas,49 :: 		
$0FC8	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,50 :: 		
$0FC9	$13F2			BCF	STACK_2, 7
;math_double.ppas,51 :: 		
$0FCA	$3000			MOVLW	0
;math_double.ppas,52 :: 		
$0FCB	$	math_double_L_2:
;math_double.ppas,53 :: 		
$0FCB	$0008			RETURN
$0F6D	$	_setfov32:
$0F6D	$1303			BCF	STATUS, RP1
$0F6E	$1283			BCF	STATUS, RP0
;math_double.ppas,11 :: 		
;math_double.ppas,18 :: 		
$0F6F	$14FB			BSF	STACK_11, 1
;math_double.ppas,19 :: 		
$0F70	$1FFB			BTFSS	STACK_11, 7
;math_double.ppas,20 :: 		
$0F71	$2F79			GOTO	SETFOV32EEE
;math_double.ppas,21 :: 		
$0F72	$30FF			MOVLW	0XFF
;math_double.ppas,22 :: 		
$0F73	$00F3			MOVWF	STACK_3
;math_double.ppas,23 :: 		
$0F74	$00F2			MOVWF	STACK_2
;math_double.ppas,24 :: 		
$0F75	$00F1			MOVWF	STACK_1
;math_double.ppas,25 :: 		
$0F76	$00F0			MOVWF	STACK_0
;math_double.ppas,26 :: 		
$0F77	$0DFA			RLF	STACK_10, F
;math_double.ppas,27 :: 		
$0F78	$0CF2			RRF	STACK_2, F
;math_double.ppas,28 :: 		
$0F79	$	SETFOV32EEE:
;math_double.ppas,29 :: 		
$0F79	$30FF			MOVLW	0XFF
;math_double.ppas,30 :: 		
$0F7A	$	math_double_L_0:
;math_double.ppas,31 :: 		
$0F7A	$0008			RETURN
$0E7F	$	_div_16x16_u:
$0E7F	$1303			BCF	STATUS, RP1
$0E80	$1283			BCF	STATUS, RP0
;math.ppas,108 :: 		
;math.ppas,110 :: 		
$0E81	$01F8			CLRF	STACK_8
;math.ppas,111 :: 		
$0E82	$01F9			CLRF	STACK_9
;math.ppas,112 :: 		
$0E83	$3010			MOVLW	16
;math.ppas,113 :: 		
$0E84	$00FC			MOVWF	STACK_12
;math.ppas,114 :: 		
$0E85	$0D71			RLF	STACK_1, W
;math.ppas,115 :: 		
$0E86	$0DF8			RLF	STACK_8, F
;math.ppas,116 :: 		
$0E87	$0DF9			RLF	STACK_9, F
;math.ppas,117 :: 		
$0E88	$0874			MOVF	STACK_4, W
;math.ppas,118 :: 		
$0E89	$02F8			SUBWF	STACK_8, F
;math.ppas,119 :: 		
$0E8A	$0875			MOVF	STACK_5, W
;math.ppas,120 :: 		
$0E8B	$1C03			BTFSS	STATUS, C
;math.ppas,121 :: 		
$0E8C	$0F75			INCFSZ	STACK_5, W
;math.ppas,122 :: 		
$0E8D	$02F9			SUBWF	STACK_9, F
;math.ppas,123 :: 		
$0E8E	$1803			BTFSC	STATUS, C
;math.ppas,124 :: 		
$0E8F	$2E97			GOTO	$+8
;math.ppas,125 :: 		
$0E90	$0874			MOVF	STACK_4, W
;math.ppas,126 :: 		
$0E91	$07F8			ADDWF	STACK_8, F
;math.ppas,127 :: 		
$0E92	$0875			MOVF	STACK_5, W
;math.ppas,128 :: 		
$0E93	$1803			BTFSC	STATUS, C
;math.ppas,129 :: 		
$0E94	$0F75			INCFSZ	STACK_5, W
;math.ppas,130 :: 		
$0E95	$07F9			ADDWF	STACK_9, F
;math.ppas,131 :: 		
$0E96	$1003			BCF	STATUS, C
;math.ppas,132 :: 		
$0E97	$0DF0			RLF	STACK_0, F
;math.ppas,133 :: 		
$0E98	$0DF1			RLF	STACK_1, F
;math.ppas,134 :: 		
$0E99	$0BFC			DECFSZ	STACK_12, F
;math.ppas,135 :: 		
$0E9A	$2E85			GOTO	$-21
;math.ppas,136 :: 		
$0E9B	$	math_L_3:
;math.ppas,137 :: 		
$0E9B	$0008			RETURN
$0F53	$	_lcd_chr_cp:
;lcd.ppas,97 :: 		
;lcd.ppas,98 :: 		
$0F53	$1303			BCF	STATUS, RP1
$0F54	$1283			BCF	STATUS, RP0
$0F55	$01A8			CLRF	lcd_lcdcmd_status, 1
;lcd.ppas,99 :: 		
$0F56	$1683			BSF	STATUS, RP0
$0F57	$084F			MOVF	FARG_Lcd_Chr_CP, 0
$0F58	$00D0			MOVWF	FARG_Lcd_Cmd
$0F59	$118A			BCF	PCLATH, 3
$0F5A	$25BC			CALL	_lcd_cmd
$0F5B	$158A			BSF	PCLATH, 3
;lcd.ppas,100 :: 		
$0F5C	$3001			MOVLW	1
$0F5D	$00A8			MOVWF	lcd_lcdcmd_status
$0F5E	$	lcd_L_48:
;lcd.ppas,101 :: 		
$0F5E	$0008			RETURN
$0E05	$	_nrm3232:
$0E05	$1303			BCF	STATUS, RP1
$0E06	$1283			BCF	STATUS, RP0
;math_double.ppas,100 :: 		
;math_double.ppas,108 :: 		
$0E07	$01A9			CLRF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,109 :: 		
$0E08	$0872			MOVF	STACK_2, W
;math_double.ppas,110 :: 		
$0E09	$1D03			BTFSS	STATUS, Z
;math_double.ppas,111 :: 		
$0E0A	$2E1C			GOTO	NORM3232
;math_double.ppas,112 :: 		
$0E0B	$0871			MOVF	STACK_1, W
;math_double.ppas,113 :: 		
$0E0C	$00F2			MOVWF	STACK_2
;math_double.ppas,114 :: 		
$0E0D	$0870			MOVF	STACK_0, W
;math_double.ppas,115 :: 		
$0E0E	$00F1			MOVWF	STACK_1
;math_double.ppas,116 :: 		
$0E0F	$01F0			CLRF	STACK_0
;math_double.ppas,118 :: 		
$0E10	$15A9			BSF	MATH_DOUBLE___MATH_TEMPBD, 3
;math_double.ppas,119 :: 		
$0E11	$0872			MOVF	STACK_2, W
;math_double.ppas,120 :: 		
$0E12	$1D03			BTFSS	STATUS, Z
;math_double.ppas,121 :: 		
$0E13	$2E1C			GOTO	NORM3232
;math_double.ppas,122 :: 		
$0E14	$0871			MOVF	STACK_1, W
;math_double.ppas,123 :: 		
$0E15	$00F2			MOVWF	STACK_2
;math_double.ppas,124 :: 		
$0E16	$01F1			CLRF	STACK_1
;math_double.ppas,125 :: 		
$0E17	$11A9			BCF	MATH_DOUBLE___MATH_TEMPBD, 3
;math_double.ppas,127 :: 		
$0E18	$1629			BSF	MATH_DOUBLE___MATH_TEMPBD, 4
;math_double.ppas,128 :: 		
$0E19	$0872			MOVF	STACK_2, W
;math_double.ppas,129 :: 		
$0E1A	$1903			BTFSC	STATUS, Z
;math_double.ppas,130 :: 		
$0E1B	$2E2A			GOTO	JPNRES032
;math_double.ppas,131 :: 		
$0E1C	$	NORM3232:
;math_double.ppas,132 :: 		
$0E1C	$0829			MOVF	MATH_DOUBLE___MATH_TEMPBD, W
;math_double.ppas,133 :: 		
$0E1D	$02F3			SUBWF	STACK_3, F
;math_double.ppas,134 :: 		
$0E1E	$1D03			BTFSS	STATUS, Z
;math_double.ppas,135 :: 		
$0E1F	$1C03			BTFSS	STATUS, C
;math_double.ppas,136 :: 		
$0E20	$2E2E			GOTO	JPNSETFUN32
;math_double.ppas,137 :: 		
$0E21	$1003			BCF	STATUS, C
;math_double.ppas,138 :: 		
$0E22	$	NORM3232A:
;math_double.ppas,139 :: 		
$0E22	$1BF2			BTFSC	STACK_2, 7
;math_double.ppas,140 :: 		
$0E23	$2E32			GOTO	JMPNFIXSIGN32
;math_double.ppas,141 :: 		
$0E24	$0DF0			RLF	STACK_0, F
;math_double.ppas,142 :: 		
$0E25	$0DF1			RLF	STACK_1, F
;math_double.ppas,143 :: 		
$0E26	$0DF2			RLF	STACK_2, F
;math_double.ppas,144 :: 		
$0E27	$0BF3			DECFSZ	STACK_3, F
;math_double.ppas,145 :: 		
$0E28	$2E22			GOTO	NORM3232A
;math_double.ppas,146 :: 		
$0E29	$2E2E			GOTO	JPNSETFUN32
;math_double.ppas,147 :: 		
$0E2A	$	JPNRES032:
;math_double.ppas,148 :: 		
$0E2A	$3001			MOVLW	0X01
;math_double.ppas,149 :: 		
$0E2B	$00FC			MOVWF	STACK_12
;math_double.ppas,151 :: 		
$0E2C	$278D			CALL	_res032
;math_double.ppas,153 :: 		
$0E2D	$2E35			GOTO	NORM32EEE
;math_double.ppas,154 :: 		
$0E2E	$	JPNSETFUN32:
;math_double.ppas,155 :: 		
$0E2E	$3002			MOVLW	0X02
;math_double.ppas,156 :: 		
$0E2F	$00FC			MOVWF	STACK_12
;math_double.ppas,158 :: 		
$0E30	$275F			CALL	_setfun32
;math_double.ppas,160 :: 		
$0E31	$2E35			GOTO	NORM32EEE
;math_double.ppas,161 :: 		
$0E32	$	JMPNFIXSIGN32:
;math_double.ppas,162 :: 		
$0E32	$3004			MOVLW	0X04
;math_double.ppas,163 :: 		
$0E33	$00FC			MOVWF	STACK_12
;math_double.ppas,165 :: 		
$0E34	$27C6			CALL	_fixsign32
;math_double.ppas,167 :: 		
$0E35	$	NORM32EEE:
;math_double.ppas,168 :: 		
$0E35	$	math_double_L_5:
;math_double.ppas,169 :: 		
$0E35	$0008			RETURN
$0A48	$	_nrm4032:
$0A48	$1303			BCF	STATUS, RP1
$0A49	$1283			BCF	STATUS, RP0
;math_double.ppas,178 :: 		
;math_double.ppas,187 :: 		
$0A4A	$187C			BTFSC	STACK_12, 0
;math_double.ppas,188 :: 		
$0A4B	$2A80			GOTO	NRMRND4032
;math_double.ppas,189 :: 		
$0A4C	$18FC			BTFSC	STACK_12, 1
;math_double.ppas,190 :: 		
$0A4D	$2A51			GOTO	NRM4032
;math_double.ppas,191 :: 		
$0A4E	$197C			BTFSC	STACK_12, 2
;math_double.ppas,192 :: 		
$0A4F	$2A9F			GOTO	JMPSETFOV32
;math_double.ppas,193 :: 		
$0A50	$2A4A			GOTO	$-6
;math_double.ppas,194 :: 		
$0A51	$	NRM4032:
;math_double.ppas,195 :: 		
$0A51	$01A9			CLRF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,196 :: 		
$0A52	$0872			MOVF	STACK_2, W
;math_double.ppas,197 :: 		
$0A53	$1D03			BTFSS	STATUS, Z
;math_double.ppas,198 :: 		
$0A54	$2A71			GOTO	NORM4032
;math_double.ppas,199 :: 		
$0A55	$0871			MOVF	STACK_1, W
;math_double.ppas,200 :: 		
$0A56	$00F2			MOVWF	STACK_2
;math_double.ppas,201 :: 		
$0A57	$0870			MOVF	STACK_0, W
;math_double.ppas,202 :: 		
$0A58	$00F1			MOVWF	STACK_1
;math_double.ppas,203 :: 		
$0A59	$0878			MOVF	STACK_8, W
;math_double.ppas,204 :: 		
$0A5A	$00F0			MOVWF	STACK_0
;math_double.ppas,205 :: 		
$0A5B	$01F8			CLRF	STACK_8
;math_double.ppas,207 :: 		
$0A5C	$15A9			BSF	MATH_DOUBLE___MATH_TEMPBD, 3
;math_double.ppas,208 :: 		
$0A5D	$0872			MOVF	STACK_2, W
;math_double.ppas,209 :: 		
$0A5E	$1D03			BTFSS	STATUS, Z
;math_double.ppas,210 :: 		
$0A5F	$2A71			GOTO	NORM4032
;math_double.ppas,211 :: 		
$0A60	$0871			MOVF	STACK_1, W
;math_double.ppas,212 :: 		
$0A61	$00F2			MOVWF	STACK_2
;math_double.ppas,213 :: 		
$0A62	$0870			MOVF	STACK_0, W
;math_double.ppas,214 :: 		
$0A63	$00F1			MOVWF	STACK_1
;math_double.ppas,215 :: 		
$0A64	$01F0			CLRF	STACK_0
;math_double.ppas,216 :: 		
$0A65	$11A9			BCF	MATH_DOUBLE___MATH_TEMPBD, 3
;math_double.ppas,218 :: 		
$0A66	$1629			BSF	MATH_DOUBLE___MATH_TEMPBD, 4
;math_double.ppas,219 :: 		
$0A67	$0872			MOVF	STACK_2, W
;math_double.ppas,220 :: 		
$0A68	$1D03			BTFSS	STATUS, Z
;math_double.ppas,221 :: 		
$0A69	$2A71			GOTO	NORM4032
;math_double.ppas,222 :: 		
$0A6A	$0871			MOVF	STACK_1, W
;math_double.ppas,223 :: 		
$0A6B	$00F2			MOVWF	STACK_2
;math_double.ppas,224 :: 		
$0A6C	$01F1			CLRF	STACK_1
;math_double.ppas,226 :: 		
$0A6D	$15A9			BSF	MATH_DOUBLE___MATH_TEMPBD, 3
;math_double.ppas,227 :: 		
$0A6E	$0872			MOVF	STACK_2, W
;math_double.ppas,228 :: 		
$0A6F	$1903			BTFSC	STATUS, Z
;math_double.ppas,229 :: 		
$0A70	$2A93			GOTO	JMPRES032
;math_double.ppas,230 :: 		
$0A71	$	NORM4032:
;math_double.ppas,231 :: 		
$0A71	$0829			MOVF	MATH_DOUBLE___MATH_TEMPBD, W
;math_double.ppas,232 :: 		
$0A72	$02F3			SUBWF	STACK_3, F
;math_double.ppas,233 :: 		
$0A73	$1D03			BTFSS	STATUS, Z
;math_double.ppas,234 :: 		
$0A74	$1C03			BTFSS	STATUS, C
;math_double.ppas,235 :: 		
$0A75	$2A97			GOTO	JMPSETFUN32
;math_double.ppas,236 :: 		
$0A76	$1003			BCF	STATUS, C
;math_double.ppas,237 :: 		
$0A77	$	NORM4032A:
;math_double.ppas,238 :: 		
$0A77	$1BF2			BTFSC	STACK_2, 7
;math_double.ppas,239 :: 		
$0A78	$2A80			GOTO	NRMRND4032
;math_double.ppas,240 :: 		
$0A79	$0DF8			RLF	STACK_8, F
;math_double.ppas,241 :: 		
$0A7A	$0DF0			RLF	STACK_0, F
;math_double.ppas,242 :: 		
$0A7B	$0DF1			RLF	STACK_1, F
;math_double.ppas,243 :: 		
$0A7C	$0DF2			RLF	STACK_2, F
;math_double.ppas,244 :: 		
$0A7D	$0BF3			DECFSZ	STACK_3, F
;math_double.ppas,245 :: 		
$0A7E	$2A77			GOTO	NORM4032A
;math_double.ppas,246 :: 		
$0A7F	$2A97			GOTO	JMPSETFUN32
;math_double.ppas,247 :: 		
$0A80	$	NRMRND4032:
;math_double.ppas,248 :: 		
$0A80	$1B7B			BTFSC	STACK_11, 6
;math_double.ppas,249 :: 		
$0A81	$1C70			BTFSS	STACK_0, 0
;math_double.ppas,250 :: 		
$0A82	$2A9B			GOTO	JMPFIXSIGN32
;math_double.ppas,251 :: 		
$0A83	$1FF8			BTFSS	STACK_8, 7
;math_double.ppas,252 :: 		
$0A84	$2A9B			GOTO	JMPFIXSIGN32
;math_double.ppas,253 :: 		
$0A85	$0AF0			INCF	STACK_0, F
;math_double.ppas,254 :: 		
$0A86	$1903			BTFSC	STATUS, Z
;math_double.ppas,255 :: 		
$0A87	$0AF1			INCF	STACK_1, F
;math_double.ppas,256 :: 		
$0A88	$1903			BTFSC	STATUS, Z
;math_double.ppas,257 :: 		
$0A89	$0AF2			INCF	STACK_2, F
;math_double.ppas,258 :: 		
$0A8A	$1D03			BTFSS	STATUS, Z
;math_double.ppas,259 :: 		
$0A8B	$2A9B			GOTO	JMPFIXSIGN32
;math_double.ppas,260 :: 		
$0A8C	$0CF2			RRF	STACK_2, F
;math_double.ppas,261 :: 		
$0A8D	$0CF1			RRF	STACK_1, F
;math_double.ppas,262 :: 		
$0A8E	$0CF0			RRF	STACK_0, F
;math_double.ppas,263 :: 		
$0A8F	$0AF3			INCF	STACK_3, F
;math_double.ppas,264 :: 		
$0A90	$1903			BTFSC	STATUS, Z
;math_double.ppas,265 :: 		
$0A91	$2A9F			GOTO	JMPSETFOV32
;math_double.ppas,266 :: 		
$0A92	$2A9B			GOTO	JMPFIXSIGN32
;math_double.ppas,267 :: 		
$0A93	$	JMPRES032:
;math_double.ppas,268 :: 		
$0A93	$3001			MOVLW	0X01
;math_double.ppas,269 :: 		
$0A94	$00FC			MOVWF	STACK_12
;math_double.ppas,271 :: 		
$0A95	$278D			CALL	_res032
;math_double.ppas,273 :: 		
$0A96	$2AA2			GOTO	NRM4032EEE
;math_double.ppas,274 :: 		
$0A97	$	JMPSETFUN32:
;math_double.ppas,275 :: 		
$0A97	$3002			MOVLW	0X02
;math_double.ppas,276 :: 		
$0A98	$00FC			MOVWF	STACK_12
;math_double.ppas,278 :: 		
$0A99	$275F			CALL	_setfun32
;math_double.ppas,280 :: 		
$0A9A	$2AA2			GOTO	NRM4032EEE
;math_double.ppas,281 :: 		
$0A9B	$	JMPFIXSIGN32:
;math_double.ppas,282 :: 		
$0A9B	$3004			MOVLW	0X04
;math_double.ppas,283 :: 		
$0A9C	$00FC			MOVWF	STACK_12
;math_double.ppas,285 :: 		
$0A9D	$27C6			CALL	_fixsign32
;math_double.ppas,287 :: 		
$0A9E	$2AA2			GOTO	NRM4032EEE
;math_double.ppas,288 :: 		
$0A9F	$	JMPSETFOV32:
;math_double.ppas,289 :: 		
$0A9F	$3008			MOVLW	0X08
;math_double.ppas,290 :: 		
$0AA0	$00FC			MOVWF	STACK_12
;math_double.ppas,292 :: 		
$0AA1	$276D			CALL	_setfov32
;math_double.ppas,294 :: 		
$0AA2	$	NRM4032EEE:
;math_double.ppas,295 :: 		
$0AA2	$0000			NOP
;math_double.ppas,296 :: 		
$0AA3	$	math_double_L_6:
;math_double.ppas,297 :: 		
$0AA3	$0008			RETURN
$0F44	$	_setiov3224:
$0F44	$1303			BCF	STATUS, RP1
$0F45	$1283			BCF	STATUS, RP0
;math_double.ppas,888 :: 		
;math_double.ppas,894 :: 		
$0F46	$147B			BSF	STACK_11, 0
;math_double.ppas,895 :: 		
$0F47	$1FFB			BTFSS	STACK_11, 7
;math_double.ppas,897 :: 		
$0F48	$2F51			GOTO	SETIOV3224EEE
;math_double.ppas,898 :: 		
$0F49	$01F2			CLRF	STACK_2
;math_double.ppas,899 :: 		
$0F4A	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,900 :: 		
$0F4B	$30FF			MOVLW	0XFF
;math_double.ppas,901 :: 		
$0F4C	$00F2			MOVWF	STACK_2
;math_double.ppas,902 :: 		
$0F4D	$00F1			MOVWF	STACK_1
;math_double.ppas,903 :: 		
$0F4E	$00F0			MOVWF	STACK_0
;math_double.ppas,904 :: 		
$0F4F	$0DFA			RLF	STACK_10, F
;math_double.ppas,905 :: 		
$0F50	$0CF2			RRF	STACK_2, F
;math_double.ppas,906 :: 		
$0F51	$	SETIOV3224EEE:
;math_double.ppas,907 :: 		
$0F51	$30FF			MOVLW	0XFF
;math_double.ppas,908 :: 		
$0F52	$	math_double_L_11:
;math_double.ppas,909 :: 		
$0F52	$0008			RETURN
$0FCC	$	_setfdz32:
$0FCC	$1303			BCF	STATUS, RP1
$0FCD	$1283			BCF	STATUS, RP0
;math_double.ppas,35 :: 		
;math_double.ppas,38 :: 		
$0FCE	$15FB			BSF	STACK_11, 3
;math_double.ppas,39 :: 		
$0FCF	$30FF			MOVLW	0XFF
;math_double.ppas,40 :: 		
$0FD0	$	math_double_L_1:
;math_double.ppas,41 :: 		
$0FD0	$0008			RETURN
$0DCC	$	_lcd_chr:
;lcd.ppas,78 :: 		
;lcd.ppas,80 :: 		
$0DCC	$	lcd_L_37:
$0DCC	$1303			BCF	STATUS, RP1
$0DCD	$1683			BSF	STATUS, RP0
$0DCE	$084B			MOVF	FARG_Lcd_Chr, 0
$0DCF	$3A01			XORLW	1
$0DD0	$1D03			BTFSS	STATUS, Z
$0DD1	$2DD5			GOTO	lcd_L_38
$0DD2	$	lcd_L_36:
$0DD2	$3080			MOVLW	128
$0DD3	$00CB			MOVWF	FARG_Lcd_Chr
$0DD4	$2DEC			GOTO	lcd_L_35
$0DD5	$	lcd_L_38:
;lcd.ppas,81 :: 		
$0DD5	$	lcd_L_40:
$0DD5	$084B			MOVF	FARG_Lcd_Chr, 0
$0DD6	$3A02			XORLW	2
$0DD7	$1D03			BTFSS	STATUS, Z
$0DD8	$2DDC			GOTO	lcd_L_41
$0DD9	$	lcd_L_39:
$0DD9	$30C0			MOVLW	192
$0DDA	$00CB			MOVWF	FARG_Lcd_Chr
$0DDB	$2DEC			GOTO	lcd_L_35
$0DDC	$	lcd_L_41:
;lcd.ppas,82 :: 		
$0DDC	$	lcd_L_43:
$0DDC	$084B			MOVF	FARG_Lcd_Chr, 0
$0DDD	$3A03			XORLW	3
$0DDE	$1D03			BTFSS	STATUS, Z
$0DDF	$2DE3			GOTO	lcd_L_44
$0DE0	$	lcd_L_42:
$0DE0	$3094			MOVLW	148
$0DE1	$00CB			MOVWF	FARG_Lcd_Chr
$0DE2	$2DEC			GOTO	lcd_L_35
$0DE3	$	lcd_L_44:
;lcd.ppas,83 :: 		
$0DE3	$	lcd_L_46:
$0DE3	$084B			MOVF	FARG_Lcd_Chr, 0
$0DE4	$3A04			XORLW	4
$0DE5	$1D03			BTFSS	STATUS, Z
$0DE6	$2DEA			GOTO	lcd_L_47
$0DE7	$	lcd_L_45:
$0DE7	$30D4			MOVLW	212
$0DE8	$00CB			MOVWF	FARG_Lcd_Chr
;lcd.ppas,84 :: 		
$0DE9	$2DEC			GOTO	lcd_L_35
$0DEA	$	lcd_L_47:
$0DEA	$3080			MOVLW	128
$0DEB	$00CB			MOVWF	FARG_Lcd_Chr
$0DEC	$	lcd_L_35:
;lcd.ppas,86 :: 		
$0DEC	$084C			MOVF	FARG_Lcd_Chr+1, 0
$0DED	$074B			ADDWF	FARG_Lcd_Chr, 0
$0DEE	$00F0			MOVWF	STACK_0
$0DEF	$03F0			DECF	STACK_0, 1
$0DF0	$0870			MOVF	STACK_0, 0
$0DF1	$00CB			MOVWF	FARG_Lcd_Chr
;lcd.ppas,88 :: 		
$0DF2	$3001			MOVLW	1
$0DF3	$1283			BCF	STATUS, RP0
$0DF4	$00A8			MOVWF	lcd_lcdcmd_status
;lcd.ppas,89 :: 		
$0DF5	$0870			MOVF	STACK_0, 0
$0DF6	$1683			BSF	STATUS, RP0
$0DF7	$00D0			MOVWF	FARG_Lcd_Cmd
$0DF8	$118A			BCF	PCLATH, 3
$0DF9	$25BC			CALL	_lcd_cmd
$0DFA	$158A			BSF	PCLATH, 3
;lcd.ppas,91 :: 		
$0DFB	$01A8			CLRF	lcd_lcdcmd_status, 1
;lcd.ppas,92 :: 		
$0DFC	$1683			BSF	STATUS, RP0
$0DFD	$084D			MOVF	FARG_Lcd_Chr+2, 0
$0DFE	$00D0			MOVWF	FARG_Lcd_Cmd
$0DFF	$118A			BCF	PCLATH, 3
$0E00	$25BC			CALL	_lcd_cmd
$0E01	$158A			BSF	PCLATH, 3
;lcd.ppas,93 :: 		
$0E02	$3001			MOVLW	1
$0E03	$00A8			MOVWF	lcd_lcdcmd_status
$0E04	$	lcd_L_34:
;lcd.ppas,94 :: 		
$0E04	$0008			RETURN
$0F96	$	table__fok:
;Digitalis_forrasztoallomas.pbas,15 :: 		const fok as byte[8] = (6,9,9,6,0,0,0,0)
$0F96	$3406			RETLW	6
$0F97	$3409			RETLW	9
$0F98	$3409			RETLW	9
$0F99	$3406			RETLW	6
$0F9A	$3400			RETLW	0
$0F9B	$3400			RETLW	0
$0F9C	$3400			RETLW	0
$0F9D	$3400			RETLW	0
$0F9E	$0008			RETURN
$0FBF	$	_____doicp:
;system.ppas,20 :: 		
;system.ppas,23 :: 		
$0FBF	$1303			BCF	STATUS, RP1
$0FC0	$1283			BCF	STATUS, RP0
$0FC1	$082C			MOVF	___DoICPHiAddr, 0
$0FC2	$008A			MOVWF	PCLATH
;system.ppas,24 :: 		
$0FC3	$082A			MOVF	___DoICPLoAddr, 0
$0FC4	$0082			MOVWF	PCL
$0FC5	$	system_L_0:
;system.ppas,26 :: 		
$0FC5	$0008			RETURN
$0F84	$	table__oo:
;Digitalis_forrasztoallomas.pbas,14 :: 		const oo as byte[8] = (2,4,14,17,17,17,14,0)
$0F84	$3402			RETLW	2
$0F85	$3404			RETLW	4
$0F86	$340E			RETLW	14
$0F87	$3411			RETLW	17
$0F88	$3411			RETLW	17
$0F89	$3411			RETLW	17
$0F8A	$340E			RETLW	14
$0F8B	$3400			RETLW	0
$0F8C	$0008			RETURN
$0F7B	$	table__ii:
;Digitalis_forrasztoallomas.pbas,12 :: 		const ii as byte[8] = (2,4,12,4,4,4,14,0)
$0F7B	$3402			RETLW	2
$0F7C	$3404			RETLW	4
$0F7D	$340C			RETLW	12
$0F7E	$3404			RETLW	4
$0F7F	$3404			RETLW	4
$0F80	$3404			RETLW	4
$0F81	$340E			RETLW	14
$0F82	$3400			RETLW	0
$0F83	$0008			RETURN
$0F9F	$	table__aa:
;Digitalis_forrasztoallomas.pbas,13 :: 		const aa as byte[8] = (2,4,14,1,15,17,15,0)
$0F9F	$3402			RETLW	2
$0FA0	$3404			RETLW	4
$0FA1	$340E			RETLW	14
$0FA2	$3401			RETLW	1
$0FA3	$340F			RETLW	15
$0FA4	$3411			RETLW	17
$0FA5	$340F			RETLW	15
$0FA6	$3400			RETLW	0
$0FA7	$0008			RETURN
$0AA4	$	_wordtostr:
;conv.ppas,31 :: 		
;conv.ppas,32 :: 		
$0AA4	$3001			MOVLW	1
$0AA5	$1303			BCF	STATUS, RP1
$0AA6	$1683			BSF	STATUS, RP0
$0AA7	$00CE			MOVWF	_wordtostr_local_len
;conv.ppas,33 :: 		
$0AA8	$084C			MOVF	FARG_WordToStr+1, 0
$0AA9	$3C00			SUBLW	0
$0AAA	$1D03			BTFSS	STATUS, Z
$0AAB	$2AAE			GOTO	L_WordToStr_0
$0AAC	$084B			MOVF	FARG_WordToStr, 0
$0AAD	$3C09			SUBLW	9
$0AAE	$	L_WordToStr_0:
$0AAE	$1803			BTFSC	STATUS, C
$0AAF	$2AB1			GOTO	conv_L_15
$0AB0	$	conv_L_14:
;conv.ppas,34 :: 		
$0AB0	$0ACE			INCF	_wordtostr_local_len, 1
$0AB1	$	conv_L_15:
$0AB1	$	conv_L_16:
;conv.ppas,35 :: 		
$0AB1	$084C			MOVF	FARG_WordToStr+1, 0
$0AB2	$3C00			SUBLW	0
$0AB3	$1D03			BTFSS	STATUS, Z
$0AB4	$2AB7			GOTO	L_WordToStr_1
$0AB5	$084B			MOVF	FARG_WordToStr, 0
$0AB6	$3C63			SUBLW	99
$0AB7	$	L_WordToStr_1:
$0AB7	$1803			BTFSC	STATUS, C
$0AB8	$2ABA			GOTO	conv_L_18
$0AB9	$	conv_L_17:
;conv.ppas,36 :: 		
$0AB9	$0ACE			INCF	_wordtostr_local_len, 1
$0ABA	$	conv_L_18:
$0ABA	$	conv_L_19:
;conv.ppas,37 :: 		
$0ABA	$084C			MOVF	FARG_WordToStr+1, 0
$0ABB	$3C03			SUBLW	3
$0ABC	$1D03			BTFSS	STATUS, Z
$0ABD	$2AC0			GOTO	L_WordToStr_2
$0ABE	$084B			MOVF	FARG_WordToStr, 0
$0ABF	$3CE7			SUBLW	231
$0AC0	$	L_WordToStr_2:
$0AC0	$1803			BTFSC	STATUS, C
$0AC1	$2AC3			GOTO	conv_L_21
$0AC2	$	conv_L_20:
;conv.ppas,38 :: 		
$0AC2	$0ACE			INCF	_wordtostr_local_len, 1
$0AC3	$	conv_L_21:
$0AC3	$	conv_L_22:
;conv.ppas,39 :: 		
$0AC3	$084C			MOVF	FARG_WordToStr+1, 0
$0AC4	$3C27			SUBLW	39
$0AC5	$1D03			BTFSS	STATUS, Z
$0AC6	$2AC9			GOTO	L_WordToStr_3
$0AC7	$084B			MOVF	FARG_WordToStr, 0
$0AC8	$3C0F			SUBLW	15
$0AC9	$	L_WordToStr_3:
$0AC9	$1803			BTFSC	STATUS, C
$0ACA	$2ACC			GOTO	conv_L_24
$0ACB	$	conv_L_23:
;conv.ppas,40 :: 		
$0ACB	$0ACE			INCF	_wordtostr_local_len, 1
$0ACC	$	conv_L_24:
$0ACC	$	conv_L_25:
;conv.ppas,41 :: 		
$0ACC	$084D			MOVF	FARG_WordToStr+2, 0
$0ACD	$0084			MOVWF	FSR
$0ACE	$3020			MOVLW	32
$0ACF	$0080			MOVWF	INDF
$0AD0	$0A84			INCF	FSR, 1
$0AD1	$0080			MOVWF	INDF
$0AD2	$0A84			INCF	FSR, 1
$0AD3	$0080			MOVWF	INDF
$0AD4	$0A84			INCF	FSR, 1
$0AD5	$0080			MOVWF	INDF
$0AD6	$0A84			INCF	FSR, 1
$0AD7	$0080			MOVWF	INDF
$0AD8	$0A84			INCF	FSR, 1
$0AD9	$0180			CLRF	INDF
;conv.ppas,42 :: 		
$0ADA	$0384			DECF	FSR, 1
;conv.ppas,43 :: 		
$0ADB	$	conv_L_28:
$0ADB	$084E			MOVF	_wordtostr_local_len, 0
$0ADC	$3C00			SUBLW	0
$0ADD	$1803			BTFSC	STATUS, C
$0ADE	$2AFF			GOTO	conv_L_29
;conv.ppas,45 :: 		
$0ADF	$300A			MOVLW	10
$0AE0	$00F4			MOVWF	STACK_4
$0AE1	$01F5			CLRF	STACK_4+1
$0AE2	$084B			MOVF	FARG_WordToStr, 0
$0AE3	$00F0			MOVWF	STACK_0
$0AE4	$084C			MOVF	FARG_WordToStr+1, 0
$0AE5	$00F1			MOVWF	STACK_0+1
$0AE6	$267F			CALL	_div_16x16_u
$0AE7	$0878			MOVF	STACK_8, 0
$0AE8	$00F0			MOVWF	STACK_0
$0AE9	$0879			MOVF	STACK_9, 0
$0AEA	$00F1			MOVWF	STACK_1
$0AEB	$3030			MOVLW	48
$0AEC	$0770			ADDWF	STACK_0, 0
$0AED	$0080			MOVWF	INDF
;conv.ppas,46 :: 		
;conv.ppas,47 :: 		
$0AEE	$0384			DECF	FSR, 1
;conv.ppas,48 :: 		
$0AEF	$300A			MOVLW	10
$0AF0	$00F4			MOVWF	STACK_4
$0AF1	$01F5			CLRF	STACK_4+1
$0AF2	$1683			BSF	STATUS, RP0
$0AF3	$084B			MOVF	FARG_WordToStr, 0
$0AF4	$00F0			MOVWF	STACK_0
$0AF5	$084C			MOVF	FARG_WordToStr+1, 0
$0AF6	$00F1			MOVWF	STACK_0+1
$0AF7	$267F			CALL	_div_16x16_u
$0AF8	$0870			MOVF	STACK_0, 0
$0AF9	$1683			BSF	STATUS, RP0
$0AFA	$00CB			MOVWF	FARG_WordToStr
$0AFB	$0871			MOVF	STACK_0+1, 0
$0AFC	$00CC			MOVWF	FARG_WordToStr+1
;conv.ppas,49 :: 		
$0AFD	$03CE			DECF	_wordtostr_local_len, 1
;conv.ppas,50 :: 		
$0AFE	$2ADB			GOTO	conv_L_28
$0AFF	$	conv_L_29:
$0AFF	$	conv_L_13:
;conv.ppas,51 :: 		
$0AFF	$0008			RETURN
$0D0F	$	_lcd_out:
;lcd.ppas,252 :: 		
;lcd.ppas,254 :: 		
$0D0F	$	lcd_L_68:
$0D0F	$1303			BCF	STATUS, RP1
$0D10	$1683			BSF	STATUS, RP0
$0D11	$084B			MOVF	FARG_Lcd_Out, 0
$0D12	$3A01			XORLW	1
$0D13	$1D03			BTFSS	STATUS, Z
$0D14	$2D18			GOTO	lcd_L_69
$0D15	$	lcd_L_67:
$0D15	$3080			MOVLW	128
$0D16	$00CB			MOVWF	FARG_Lcd_Out
$0D17	$2D2F			GOTO	lcd_L_66
$0D18	$	lcd_L_69:
;lcd.ppas,255 :: 		
$0D18	$	lcd_L_71:
$0D18	$084B			MOVF	FARG_Lcd_Out, 0
$0D19	$3A02			XORLW	2
$0D1A	$1D03			BTFSS	STATUS, Z
$0D1B	$2D1F			GOTO	lcd_L_72
$0D1C	$	lcd_L_70:
$0D1C	$30C0			MOVLW	192
$0D1D	$00CB			MOVWF	FARG_Lcd_Out
$0D1E	$2D2F			GOTO	lcd_L_66
$0D1F	$	lcd_L_72:
;lcd.ppas,256 :: 		
$0D1F	$	lcd_L_74:
$0D1F	$084B			MOVF	FARG_Lcd_Out, 0
$0D20	$3A03			XORLW	3
$0D21	$1D03			BTFSS	STATUS, Z
$0D22	$2D26			GOTO	lcd_L_75
$0D23	$	lcd_L_73:
$0D23	$3094			MOVLW	148
$0D24	$00CB			MOVWF	FARG_Lcd_Out
$0D25	$2D2F			GOTO	lcd_L_66
$0D26	$	lcd_L_75:
;lcd.ppas,257 :: 		
$0D26	$	lcd_L_77:
$0D26	$084B			MOVF	FARG_Lcd_Out, 0
$0D27	$3A04			XORLW	4
$0D28	$1D03			BTFSS	STATUS, Z
$0D29	$2D2D			GOTO	lcd_L_78
$0D2A	$	lcd_L_76:
$0D2A	$30D4			MOVLW	212
$0D2B	$00CB			MOVWF	FARG_Lcd_Out
;lcd.ppas,258 :: 		
$0D2C	$2D2F			GOTO	lcd_L_66
$0D2D	$	lcd_L_78:
$0D2D	$3080			MOVLW	128
$0D2E	$00CB			MOVWF	FARG_Lcd_Out
$0D2F	$	lcd_L_66:
;lcd.ppas,260 :: 		
$0D2F	$034C			DECF	FARG_Lcd_Out+1, 0
$0D30	$00F0			MOVWF	STACK_0
$0D31	$084B			MOVF	FARG_Lcd_Out, 0
$0D32	$07F0			ADDWF	STACK_0, 1
$0D33	$0870			MOVF	STACK_0, 0
$0D34	$00CB			MOVWF	FARG_Lcd_Out
;lcd.ppas,261 :: 		
$0D35	$0870			MOVF	STACK_0, 0
$0D36	$00D0			MOVWF	FARG_Lcd_Cmd
$0D37	$118A			BCF	PCLATH, 3
$0D38	$25BC			CALL	_lcd_cmd
$0D39	$158A			BSF	PCLATH, 3
;lcd.ppas,262 :: 		
$0D3A	$01A8			CLRF	lcd_lcdcmd_status, 1
;lcd.ppas,263 :: 		
$0D3B	$1683			BSF	STATUS, RP0
$0D3C	$01CE			CLRF	_lcd_out_local_i, 1
;lcd.ppas,264 :: 		
$0D3D	$	lcd_L_80:
$0D3D	$084E			MOVF	_lcd_out_local_i, 0
$0D3E	$074D			ADDWF	FARG_Lcd_Out+2, 0
$0D3F	$0084			MOVWF	FSR
$0D40	$0800			MOVF	INDF, 0
$0D41	$00F2			MOVWF	STACK_2
$0D42	$0872			MOVF	STACK_2, 0
$0D43	$3A00			XORLW	0
$0D44	$1903			BTFSC	STATUS, Z
$0D45	$2D4F			GOTO	lcd_L_81
;lcd.ppas,266 :: 		
$0D46	$084E			MOVF	_lcd_out_local_i, 0
$0D47	$074D			ADDWF	FARG_Lcd_Out+2, 0
$0D48	$0084			MOVWF	FSR
$0D49	$0800			MOVF	INDF, 0
$0D4A	$00CF			MOVWF	FARG_Lcd_Chr_CP
$0D4B	$2753			CALL	_lcd_chr_cp
;lcd.ppas,267 :: 		
$0D4C	$1683			BSF	STATUS, RP0
$0D4D	$0ACE			INCF	_lcd_out_local_i, 1
;lcd.ppas,268 :: 		
$0D4E	$2D3D			GOTO	lcd_L_80
$0D4F	$	lcd_L_81:
;lcd.ppas,269 :: 		
$0D4F	$3001			MOVLW	1
$0D50	$1283			BCF	STATUS, RP0
$0D51	$00A8			MOVWF	lcd_lcdcmd_status
$0D52	$	lcd_L_65:
;lcd.ppas,270 :: 		
$0D52	$0008			RETURN
$0EDF	$	_word2double:
$0EDF	$1303			BCF	STATUS, RP1
$0EE0	$1283			BCF	STATUS, RP0
;math_double.ppas,1729 :: 		
;math_double.ppas,1735 :: 		
$0EE1	$0870			MOVF	STACK_0, W
;math_double.ppas,1736 :: 		
$0EE2	$00F8			MOVWF	STACK_8
;math_double.ppas,1737 :: 		
$0EE3	$0871			MOVF	STACK_1, W
;math_double.ppas,1738 :: 		
$0EE4	$00F0			MOVWF	STACK_0
;math_double.ppas,1739 :: 		
$0EE5	$01F1			CLRF	STACK_1
;math_double.ppas,1740 :: 		
$0EE6	$01F2			CLRF	STACK_2
;math_double.ppas,1742 :: 		
$0EE7	$01F3			CLRF	STACK_3
;math_double.ppas,1743 :: 		
$0EE8	$	FLO16U32:
;math_double.ppas,1744 :: 		
$0EE8	$01FB			CLRF	STACK_11
;math_double.ppas,1746 :: 		
$0EE9	$01FC			CLRF	STACK_12
;math_double.ppas,1747 :: 		
$0EEA	$3096			MOVLW	150
;math_double.ppas,1748 :: 		
$0EEB	$00F3			MOVWF	STACK_3
;math_double.ppas,1750 :: 		
$0EEC	$01FA			CLRF	STACK_10
;math_double.ppas,1751 :: 		
$0EED	$0870			MOVF	STACK_0, W
;math_double.ppas,1752 :: 		
$0EEE	$00F1			MOVWF	STACK_1
;math_double.ppas,1753 :: 		
$0EEF	$0878			MOVF	STACK_8, W
;math_double.ppas,1754 :: 		
$0EF0	$00F0			MOVWF	STACK_0
;math_double.ppas,1755 :: 		
$0EF1	$01F8			CLRF	STACK_8
;math_double.ppas,1756 :: 		
$0EF2	$01F2			CLRF	STACK_2
;math_double.ppas,1758 :: 		
$0EF3	$2605			CALL	_nrm3232
$0EF4	$	math_double_L_19:
;math_double.ppas,1759 :: 		
$0EF4	$0008			RETURN
$068B	$	_add_32x32_fp:
$068B	$1303			BCF	STATUS, RP1
$068C	$1283			BCF	STATUS, RP0
;math_double.ppas,306 :: 		
;math_double.ppas,319 :: 		
$068D	$0872			MOVF	STACK_2, W
;math_double.ppas,320 :: 		
$068E	$0676			XORWF	STACK_6, W
;math_double.ppas,322 :: 		
$068F	$00A9			MOVWF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,323 :: 		
$0690	$01F8			CLRF	STACK_8
;math_double.ppas,325 :: 		
$0691	$01F9			CLRF	STACK_9
;math_double.ppas,326 :: 		
$0692	$0873			MOVF	STACK_3, W
;math_double.ppas,327 :: 		
$0693	$0277			SUBWF	STACK_7, W
;math_double.ppas,328 :: 		
$0694	$1C03			BTFSS	STATUS, C
;math_double.ppas,330 :: 		
$0695	$2EAE			GOTO	USEA32
;math_double.ppas,331 :: 		
$0696	$0877			MOVF	STACK_7, W
;math_double.ppas,332 :: 		
$0697	$00FD			MOVWF	STACK_13
;math_double.ppas,333 :: 		
$0698	$0873			MOVF	STACK_3, W
;math_double.ppas,334 :: 		
$0699	$00F7			MOVWF	STACK_7
;math_double.ppas,335 :: 		
$069A	$087D			MOVF	STACK_13, W
;math_double.ppas,337 :: 		
$069B	$00F3			MOVWF	STACK_3
;math_double.ppas,338 :: 		
$069C	$0876			MOVF	STACK_6, W
;math_double.ppas,339 :: 		
$069D	$00FD			MOVWF	STACK_13
;math_double.ppas,340 :: 		
$069E	$0872			MOVF	STACK_2, W
;math_double.ppas,341 :: 		
$069F	$00F6			MOVWF	STACK_6
;math_double.ppas,342 :: 		
$06A0	$087D			MOVF	STACK_13, W
;math_double.ppas,344 :: 		
$06A1	$00F2			MOVWF	STACK_2
;math_double.ppas,345 :: 		
$06A2	$0875			MOVF	STACK_5, W
;math_double.ppas,346 :: 		
$06A3	$00FD			MOVWF	STACK_13
;math_double.ppas,347 :: 		
$06A4	$0871			MOVF	STACK_1, W
;math_double.ppas,348 :: 		
$06A5	$00F5			MOVWF	STACK_5
;math_double.ppas,349 :: 		
$06A6	$087D			MOVF	STACK_13, W
;math_double.ppas,351 :: 		
$06A7	$00F1			MOVWF	STACK_1
;math_double.ppas,352 :: 		
$06A8	$0874			MOVF	STACK_4, W
;math_double.ppas,353 :: 		
$06A9	$00FD			MOVWF	STACK_13
;math_double.ppas,354 :: 		
$06AA	$0870			MOVF	STACK_0, W
;math_double.ppas,355 :: 		
$06AB	$00F4			MOVWF	STACK_4
;math_double.ppas,356 :: 		
$06AC	$087D			MOVF	STACK_13, W
;math_double.ppas,357 :: 		
$06AD	$00F0			MOVWF	STACK_0
;math_double.ppas,358 :: 		
$06AE	$	USEA32:
;math_double.ppas,359 :: 		
$06AE	$0877			MOVF	STACK_7, W
;math_double.ppas,360 :: 		
$06AF	$1903			BTFSC	STATUS, Z
;math_double.ppas,361 :: 		
$06B0	$2F2F			GOTO	JMPEEE
;math_double.ppas,362 :: 		
$06B1	$0872			MOVF	STACK_2, W
;math_double.ppas,363 :: 		
$06B2	$00FA			MOVWF	STACK_10
;math_double.ppas,364 :: 		
$06B3	$17F2			BSF	STACK_2, 7
;math_double.ppas,365 :: 		
$06B4	$17F6			BSF	STACK_6, 7
;math_double.ppas,366 :: 		
$06B5	$0877			MOVF	STACK_7, W
;math_double.ppas,367 :: 		
$06B6	$0273			SUBWF	STACK_3, W
;math_double.ppas,368 :: 		
$06B7	$00F7			MOVWF	STACK_7
;math_double.ppas,369 :: 		
$06B8	$1903			BTFSC	STATUS, Z
;math_double.ppas,370 :: 		
$06B9	$2EE1			GOTO	ALIGNED32
;math_double.ppas,371 :: 		
$06BA	$3008			MOVLW	8
;math_double.ppas,372 :: 		
$06BB	$0277			SUBWF	STACK_7, W
;math_double.ppas,373 :: 		
$06BC	$1C03			BTFSS	STATUS, C
;math_double.ppas,374 :: 		
$06BD	$2ED7			GOTO	ALIGNB32
;math_double.ppas,375 :: 		
$06BE	$00F7			MOVWF	STACK_7
;math_double.ppas,376 :: 		
$06BF	$0874			MOVF	STACK_4, W
;math_double.ppas,377 :: 		
$06C0	$00F9			MOVWF	STACK_9
;math_double.ppas,378 :: 		
$06C1	$0875			MOVF	STACK_5, W
;math_double.ppas,379 :: 		
$06C2	$00F4			MOVWF	STACK_4
;math_double.ppas,380 :: 		
$06C3	$0876			MOVF	STACK_6, W
;math_double.ppas,381 :: 		
$06C4	$00F5			MOVWF	STACK_5
;math_double.ppas,382 :: 		
$06C5	$01F6			CLRF	STACK_6
;math_double.ppas,383 :: 		
$06C6	$3008			MOVLW	8
;math_double.ppas,384 :: 		
$06C7	$0277			SUBWF	STACK_7, W
;math_double.ppas,385 :: 		
$06C8	$1C03			BTFSS	STATUS, C
;math_double.ppas,386 :: 		
$06C9	$2ED7			GOTO	ALIGNB32
;math_double.ppas,387 :: 		
$06CA	$00F7			MOVWF	STACK_7
;math_double.ppas,388 :: 		
$06CB	$0874			MOVF	STACK_4, W
;math_double.ppas,389 :: 		
$06CC	$00F9			MOVWF	STACK_9
;math_double.ppas,390 :: 		
$06CD	$0875			MOVF	STACK_5, W
;math_double.ppas,391 :: 		
$06CE	$00F4			MOVWF	STACK_4
;math_double.ppas,392 :: 		
$06CF	$01F5			CLRF	STACK_5
;math_double.ppas,393 :: 		
$06D0	$3008			MOVLW	8
;math_double.ppas,394 :: 		
$06D1	$0277			SUBWF	STACK_7, W
;math_double.ppas,395 :: 		
$06D2	$1C03			BTFSS	STATUS, C
;math_double.ppas,396 :: 		
$06D3	$2ED7			GOTO	ALIGNB32
;math_double.ppas,397 :: 		
$06D4	$087A			MOVF	STACK_10, W
;math_double.ppas,398 :: 		
$06D5	$00F2			MOVWF	STACK_2
;math_double.ppas,399 :: 		
$06D6	$2F2F			GOTO	JMPEEE
;math_double.ppas,400 :: 		
$06D7	$	ALIGNB32:
;math_double.ppas,401 :: 		
$06D7	$0877			MOVF	STACK_7, W
;math_double.ppas,402 :: 		
$06D8	$1903			BTFSC	STATUS, Z
;math_double.ppas,403 :: 		
$06D9	$2EE1			GOTO	ALIGNED32
;math_double.ppas,404 :: 		
$06DA	$	ALOOPB32:
;math_double.ppas,405 :: 		
$06DA	$1003			BCF	STATUS, C
;math_double.ppas,406 :: 		
$06DB	$0CF6			RRF	STACK_6, F
;math_double.ppas,407 :: 		
$06DC	$0CF5			RRF	STACK_5, F
;math_double.ppas,408 :: 		
$06DD	$0CF4			RRF	STACK_4, F
;math_double.ppas,409 :: 		
$06DE	$0CF9			RRF	STACK_9, F
;math_double.ppas,410 :: 		
$06DF	$0BF7			DECFSZ	STACK_7, F
;math_double.ppas,411 :: 		
$06E0	$2EDA			GOTO	ALOOPB32
;math_double.ppas,412 :: 		
$06E1	$	ALIGNED32:
;math_double.ppas,413 :: 		
$06E1	$1FA9			BTFSS	MATH_DOUBLE___MATH_TEMPBD, 7
;math_double.ppas,414 :: 		
$06E2	$2EEE			GOTO	AOK32
;math_double.ppas,415 :: 		
$06E3	$09F9			COMF	STACK_9, F
;math_double.ppas,416 :: 		
$06E4	$09F4			COMF	STACK_4, F
;math_double.ppas,417 :: 		
$06E5	$09F5			COMF	STACK_5, F
;math_double.ppas,418 :: 		
$06E6	$09F6			COMF	STACK_6, F
;math_double.ppas,419 :: 		
$06E7	$0AF9			INCF	STACK_9, F
;math_double.ppas,420 :: 		
$06E8	$1903			BTFSC	STATUS, Z
;math_double.ppas,421 :: 		
$06E9	$0AF4			INCF	STACK_4, F
;math_double.ppas,422 :: 		
$06EA	$1903			BTFSC	STATUS, Z
;math_double.ppas,423 :: 		
$06EB	$0AF5			INCF	STACK_5, F
;math_double.ppas,424 :: 		
$06EC	$1903			BTFSC	STATUS, Z
;math_double.ppas,425 :: 		
$06ED	$0AF6			INCF	STACK_6, F
;math_double.ppas,426 :: 		
$06EE	$	AOK32:
;math_double.ppas,427 :: 		
$06EE	$0879			MOVF	STACK_9, W
;math_double.ppas,428 :: 		
$06EF	$07F8			ADDWF	STACK_8, F
;math_double.ppas,429 :: 		
$06F0	$0874			MOVF	STACK_4, W
;math_double.ppas,430 :: 		
$06F1	$1803			BTFSC	STATUS, C
;math_double.ppas,431 :: 		
$06F2	$0F74			INCFSZ	STACK_4, W
;math_double.ppas,432 :: 		
$06F3	$07F0			ADDWF	STACK_0, F
;math_double.ppas,433 :: 		
$06F4	$0875			MOVF	STACK_5, W
;math_double.ppas,434 :: 		
$06F5	$1803			BTFSC	STATUS, C
;math_double.ppas,435 :: 		
$06F6	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,436 :: 		
$06F7	$07F1			ADDWF	STACK_1, F
;math_double.ppas,437 :: 		
$06F8	$0876			MOVF	STACK_6, W
;math_double.ppas,438 :: 		
$06F9	$1803			BTFSC	STATUS, C
;math_double.ppas,439 :: 		
$06FA	$0F76			INCFSZ	STACK_6, W
;math_double.ppas,440 :: 		
$06FB	$07F2			ADDWF	STACK_2, F
;math_double.ppas,441 :: 		
$06FC	$1BA9			BTFSC	MATH_DOUBLE___MATH_TEMPBD, 7
;math_double.ppas,442 :: 		
$06FD	$2F07			GOTO	ACOMP32
;math_double.ppas,443 :: 		
$06FE	$1C03			BTFSS	STATUS, C
;math_double.ppas,444 :: 		
$06FF	$2F17			GOTO	JMPNRMRND4032
;math_double.ppas,445 :: 		
$0700	$0CF2			RRF	STACK_2, F
;math_double.ppas,446 :: 		
$0701	$0CF1			RRF	STACK_1, F
;math_double.ppas,447 :: 		
$0702	$0CF0			RRF	STACK_0, F
;math_double.ppas,448 :: 		
$0703	$0CF8			RRF	STACK_8, F
;math_double.ppas,449 :: 		
$0704	$0FF3			INCFSZ	STACK_3, F
;math_double.ppas,450 :: 		
$0705	$2F17			GOTO	JMPNRMRND4032
;math_double.ppas,451 :: 		
$0706	$2F29			GOTO	JMPSETFOV32_
;math_double.ppas,452 :: 		
$0707	$	ACOMP32:
;math_double.ppas,453 :: 		
$0707	$1803			BTFSC	STATUS, C
;math_double.ppas,454 :: 		
$0708	$2F1D			GOTO	JMPNRM4032
;math_double.ppas,455 :: 		
$0709	$09F8			COMF	STACK_8, F
;math_double.ppas,456 :: 		
$070A	$09F0			COMF	STACK_0, F
;math_double.ppas,457 :: 		
$070B	$09F1			COMF	STACK_1, F
;math_double.ppas,458 :: 		
$070C	$09F2			COMF	STACK_2, F
;math_double.ppas,459 :: 		
$070D	$0AF8			INCF	STACK_8, F
;math_double.ppas,460 :: 		
$070E	$1903			BTFSC	STATUS, Z
;math_double.ppas,461 :: 		
$070F	$0AF0			INCF	STACK_0, F
;math_double.ppas,462 :: 		
$0710	$1903			BTFSC	STATUS, Z
;math_double.ppas,463 :: 		
$0711	$0AF1			INCF	STACK_1, F
;math_double.ppas,464 :: 		
$0712	$1903			BTFSC	STATUS, Z
;math_double.ppas,465 :: 		
$0713	$0AF2			INCF	STACK_2, F
;math_double.ppas,466 :: 		
$0714	$3080			MOVLW	0X80
;math_double.ppas,467 :: 		
$0715	$06FA			XORWF	STACK_10, F
;math_double.ppas,468 :: 		
$0716	$2F23			GOTO	JMPNRM32
;math_double.ppas,469 :: 		
$0717	$	JMPNRMRND4032:
;math_double.ppas,470 :: 		
$0717	$3001			MOVLW	0X01
;math_double.ppas,471 :: 		
$0718	$00FC			MOVWF	STACK_12
;math_double.ppas,473 :: 		
$0719	$158A			BSF	PCLATH, 3
$071A	$2248			CALL	_nrm4032
$071B	$118A			BCF	PCLATH, 3
;math_double.ppas,475 :: 		
$071C	$2F31			GOTO	ADD32EEE
;math_double.ppas,476 :: 		
$071D	$	JMPNRM4032:
;math_double.ppas,477 :: 		
$071D	$3002			MOVLW	0X02
;math_double.ppas,478 :: 		
$071E	$00FC			MOVWF	STACK_12
;math_double.ppas,480 :: 		
$071F	$158A			BSF	PCLATH, 3
$0720	$2248			CALL	_nrm4032
$0721	$118A			BCF	PCLATH, 3
;math_double.ppas,482 :: 		
$0722	$2F31			GOTO	ADD32EEE
;math_double.ppas,483 :: 		
$0723	$	JMPNRM32:
;math_double.ppas,484 :: 		
$0723	$3004			MOVLW	0X04
;math_double.ppas,485 :: 		
$0724	$00FC			MOVWF	STACK_12
;math_double.ppas,487 :: 		
$0725	$158A			BSF	PCLATH, 3
$0726	$2605			CALL	_nrm3232
$0727	$118A			BCF	PCLATH, 3
;math_double.ppas,489 :: 		
$0728	$2F31			GOTO	ADD32EEE
;math_double.ppas,490 :: 		
$0729	$	JMPSETFOV32_:
;math_double.ppas,491 :: 		
$0729	$3008			MOVLW	0X08
;math_double.ppas,492 :: 		
$072A	$00FC			MOVWF	STACK_12
;math_double.ppas,494 :: 		
$072B	$158A			BSF	PCLATH, 3
$072C	$276D			CALL	_setfov32
$072D	$118A			BCF	PCLATH, 3
;math_double.ppas,496 :: 		
$072E	$2F31			GOTO	ADD32EEE
;math_double.ppas,497 :: 		
$072F	$	JMPEEE:
;math_double.ppas,498 :: 		
$072F	$3000			MOVLW	0X00
;math_double.ppas,499 :: 		
$0730	$00FC			MOVWF	STACK_12
;math_double.ppas,500 :: 		
$0731	$	ADD32EEE:
;math_double.ppas,501 :: 		
$0731	$0000			NOP
;math_double.ppas,502 :: 		
$0732	$	math_double_L_7:
;math_double.ppas,503 :: 		
$0732	$0008			RETURN
$0B00	$	_double2word:
$0B00	$1303			BCF	STATUS, RP1
$0B01	$1283			BCF	STATUS, RP0
;math_double.ppas,1407 :: 		
;math_double.ppas,1414 :: 		
$0B02	$	INT3216U:
;math_double.ppas,1415 :: 		
$0B02	$01FB			CLRF	STACK_11
;math_double.ppas,1416 :: 		
$0B03	$01FC			CLRF	STACK_12
;math_double.ppas,1418 :: 		
$0B04	$01FA			CLRF	STACK_10
;math_double.ppas,1419 :: 		
$0B05	$0873			MOVF	STACK_3, W
;math_double.ppas,1420 :: 		
$0B06	$1903			BTFSC	STATUS, Z
;math_double.ppas,1422 :: 		
$0B07	$2B3F			GOTO	IRES016U
;math_double.ppas,1424 :: 		
$0B08	$17F2			BSF	STACK_2, 7
;math_double.ppas,1425 :: 		
$0B09	$308E			MOVLW	142
;math_double.ppas,1426 :: 		
$0B0A	$02F3			SUBWF	STACK_3, F
;math_double.ppas,1427 :: 		
$0B0B	$1BF3			BTFSC	STACK_3, 7
;math_double.ppas,1428 :: 		
$0B0C	$2B10			GOTO	SETEXP16U
;math_double.ppas,1429 :: 		
$0B0D	$1903			BTFSC	STATUS, Z
;math_double.ppas,1430 :: 		
$0B0E	$2B10			GOTO	SETEXP16U
;math_double.ppas,1431 :: 		
$0B0F	$2B42			GOTO	SETIOV16U
;math_double.ppas,1432 :: 		
$0B10	$	SETEXP16U:
;math_double.ppas,1433 :: 		
$0B10	$09F3			COMF	STACK_3, F
;math_double.ppas,1435 :: 		
$0B11	$0AF3			INCF	STACK_3, F
;math_double.ppas,1436 :: 		
$0B12	$3008			MOVLW	8
;math_double.ppas,1437 :: 		
$0B13	$0273			SUBWF	STACK_3, W
;math_double.ppas,1438 :: 		
$0B14	$1C03			BTFSS	STATUS, C
;math_double.ppas,1439 :: 		
$0B15	$2B25			GOTO	TSHIFT3216U
;math_double.ppas,1440 :: 		
$0B16	$00F3			MOVWF	STACK_3
;math_double.ppas,1441 :: 		
$0B17	$0DF1			RLF	STACK_1, F
;math_double.ppas,1442 :: 		
$0B18	$0872			MOVF	STACK_2, W
;math_double.ppas,1443 :: 		
$0B19	$00F1			MOVWF	STACK_1
;math_double.ppas,1445 :: 		
$0B1A	$01F2			CLRF	STACK_2
;math_double.ppas,1446 :: 		
$0B1B	$3008			MOVLW	8
;math_double.ppas,1447 :: 		
$0B1C	$0273			SUBWF	STACK_3, W
;math_double.ppas,1448 :: 		
$0B1D	$1C03			BTFSS	STATUS, C
;math_double.ppas,1449 :: 		
$0B1E	$2B25			GOTO	TSHIFT3216U
;math_double.ppas,1450 :: 		
$0B1F	$0DF1			RLF	STACK_1, F
;math_double.ppas,1452 :: 		
$0B20	$01F1			CLRF	STACK_1
;math_double.ppas,1453 :: 		
$0B21	$0873			MOVF	STACK_3, W
;math_double.ppas,1454 :: 		
$0B22	$1D03			BTFSS	STATUS, Z
;math_double.ppas,1455 :: 		
$0B23	$1003			BCF	STATUS, C
;math_double.ppas,1456 :: 		
$0B24	$2B2D			GOTO	SHIFT3216UOK
;math_double.ppas,1457 :: 		
$0B25	$	TSHIFT3216U:
;math_double.ppas,1458 :: 		
$0B25	$0873			MOVF	STACK_3, W
;math_double.ppas,1459 :: 		
$0B26	$1903			BTFSC	STATUS, Z
;math_double.ppas,1460 :: 		
$0B27	$2B2D			GOTO	SHIFT3216UOK
;math_double.ppas,1461 :: 		
$0B28	$	SHIFT3216U:
;math_double.ppas,1462 :: 		
$0B28	$1003			BCF	STATUS, C
;math_double.ppas,1463 :: 		
$0B29	$0CF2			RRF	STACK_2, F
;math_double.ppas,1464 :: 		
$0B2A	$0CF1			RRF	STACK_1, F
;math_double.ppas,1465 :: 		
$0B2B	$0BF3			DECFSZ	STACK_3, F
;math_double.ppas,1466 :: 		
$0B2C	$2B28			GOTO	SHIFT3216U
;math_double.ppas,1467 :: 		
$0B2D	$	SHIFT3216UOK:
;math_double.ppas,1468 :: 		
$0B2D	$1B7B			BTFSC	STACK_11, 6
;math_double.ppas,1469 :: 		
$0B2E	$1C71			BTFSS	STACK_1, 0
;math_double.ppas,1470 :: 		
$0B2F	$2B37			GOTO	INT3216UOK
;math_double.ppas,1471 :: 		
$0B30	$1C03			BTFSS	STATUS, C
;math_double.ppas,1472 :: 		
$0B31	$2B37			GOTO	INT3216UOK
;math_double.ppas,1473 :: 		
$0B32	$0AF1			INCF	STACK_1, F
;math_double.ppas,1474 :: 		
$0B33	$1903			BTFSC	STATUS, Z
;math_double.ppas,1475 :: 		
$0B34	$0AF2			INCF	STACK_2, F
;math_double.ppas,1476 :: 		
$0B35	$1BF2			BTFSC	STACK_2, 7
;math_double.ppas,1477 :: 		
$0B36	$2B4E			GOTO	JPKSETIOV3224
;math_double.ppas,1478 :: 		
$0B37	$	INT3216UOK:
;math_double.ppas,1479 :: 		
$0B37	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,1481 :: 		
$0B38	$2B51			GOTO	INT3216UEOK
;math_double.ppas,1482 :: 		
$0B39	$09F2			COMF	STACK_2, F
;math_double.ppas,1483 :: 		
$0B3A	$09F1			COMF	STACK_1, F
;math_double.ppas,1484 :: 		
$0B3B	$0AF1			INCF	STACK_1, F
;math_double.ppas,1485 :: 		
$0B3C	$1903			BTFSC	STATUS, Z
;math_double.ppas,1486 :: 		
$0B3D	$0AF2			INCF	STACK_2, F
;math_double.ppas,1488 :: 		
$0B3E	$2B51			GOTO	INT3216UEOK
;math_double.ppas,1489 :: 		
$0B3F	$	IRES016U:
;math_double.ppas,1490 :: 		
$0B3F	$01F2			CLRF	STACK_2
;math_double.ppas,1491 :: 		
$0B40	$01F1			CLRF	STACK_1
;math_double.ppas,1492 :: 		
$0B41	$2B51			GOTO	INT3216UEOK
;math_double.ppas,1493 :: 		
$0B42	$	SETIOV16U:
;math_double.ppas,1494 :: 		
$0B42	$147B			BSF	STACK_11, 0
;math_double.ppas,1495 :: 		
$0B43	$1FFB			BTFSS	STACK_11, 7
;math_double.ppas,1497 :: 		
$0B44	$2B54			GOTO	INT3216UEER
;math_double.ppas,1498 :: 		
$0B45	$01F2			CLRF	STACK_2
;math_double.ppas,1499 :: 		
$0B46	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,1500 :: 		
$0B47	$2B54			GOTO	INT3216UEER
;math_double.ppas,1501 :: 		
$0B48	$30FF			MOVLW	0XFF
;math_double.ppas,1502 :: 		
$0B49	$00F2			MOVWF	STACK_2
;math_double.ppas,1503 :: 		
$0B4A	$00F1			MOVWF	STACK_1
;math_double.ppas,1504 :: 		
$0B4B	$0DFA			RLF	STACK_10, F
;math_double.ppas,1505 :: 		
$0B4C	$0CF2			RRF	STACK_2, F
;math_double.ppas,1507 :: 		
$0B4D	$2B54			GOTO	INT3216UEER
;math_double.ppas,1508 :: 		
$0B4E	$	JPKSETIOV3224:
;math_double.ppas,1509 :: 		
$0B4E	$3001			MOVLW	0X01
;math_double.ppas,1510 :: 		
$0B4F	$00FC			MOVWF	STACK_12
;math_double.ppas,1511 :: 		
$0B50	$2B56			GOTO	INT3216UEEE
;math_double.ppas,1512 :: 		
$0B51	$	INT3216UEOK:
;math_double.ppas,1513 :: 		
$0B51	$3000			MOVLW	0X00
;math_double.ppas,1514 :: 		
$0B52	$00FC			MOVWF	STACK_12
;math_double.ppas,1515 :: 		
$0B53	$2B56			GOTO	INT3216UEEE
;math_double.ppas,1516 :: 		
$0B54	$	INT3216UEER:
;math_double.ppas,1517 :: 		
$0B54	$30FF			MOVLW	0XFF
;math_double.ppas,1518 :: 		
$0B55	$00FC			MOVWF	STACK_12
;math_double.ppas,1521 :: 		
$0B56	$	INT3216UEEE:
;math_double.ppas,1523 :: 		
$0B56	$08FC			MOVF	STACK_12, F
;math_double.ppas,1524 :: 		
$0B57	$1903			BTFSC	STATUS, Z
;math_double.ppas,1525 :: 		
$0B58	$2B5A			GOTO	L_DOUBLE2WORD_0
;math_double.ppas,1527 :: 		
$0B59	$2744			CALL	_setiov3224
;math_double.ppas,1529 :: 		
$0B5A	$	L_DOUBLE2WORD_0:
;math_double.ppas,1530 :: 		
$0B5A	$0871			MOVF	STACK_1, W
;math_double.ppas,1531 :: 		
$0B5B	$00F0			MOVWF	STACK_0
;math_double.ppas,1532 :: 		
$0B5C	$0872			MOVF	STACK_2, W
;math_double.ppas,1533 :: 		
$0B5D	$00F1			MOVWF	STACK_1
;math_double.ppas,1534 :: 		
$0B5E	$	math_double_L_15:
;math_double.ppas,1535 :: 		
$0B5E	$0008			RETURN
$0F0F	$	_byte2double:
$0F0F	$1303			BCF	STATUS, RP1
$0F10	$1283			BCF	STATUS, RP0
;math_double.ppas,1649 :: 		
;math_double.ppas,1656 :: 		
$0F11	$	FLO08U32:
;math_double.ppas,1657 :: 		
$0F11	$0870			MOVF	STACK_0, W
;math_double.ppas,1659 :: 		
$0F12	$00F8			MOVWF	STACK_8
;math_double.ppas,1660 :: 		
$0F13	$01FB			CLRF	STACK_11
;math_double.ppas,1662 :: 		
$0F14	$01FC			CLRF	STACK_12
;math_double.ppas,1663 :: 		
$0F15	$309E			MOVLW	0X9E
;math_double.ppas,1664 :: 		
$0F16	$00F3			MOVWF	STACK_3
;math_double.ppas,1665 :: 		
$0F17	$01FA			CLRF	STACK_10
;math_double.ppas,1666 :: 		
$0F18	$01F2			CLRF	STACK_2
;math_double.ppas,1667 :: 		
$0F19	$01F1			CLRF	STACK_1
;math_double.ppas,1668 :: 		
$0F1A	$01F0			CLRF	STACK_0
;math_double.ppas,1669 :: 		
$0F1B	$3002			MOVLW	0X02
;math_double.ppas,1670 :: 		
$0F1C	$00FC			MOVWF	STACK_12
;math_double.ppas,1672 :: 		
$0F1D	$2248			CALL	_nrm4032
$0F1E	$	math_double_L_17:
;math_double.ppas,1673 :: 		
$0F1E	$0008			RETURN
$09E7	$	_mul_32x32_fp:
$09E7	$1303			BCF	STATUS, RP1
$09E8	$1283			BCF	STATUS, RP0
;math_double.ppas,527 :: 		
;math_double.ppas,541 :: 		
$09E9	$	FPM32:
;math_double.ppas,542 :: 		
$09E9	$01FB			CLRF	STACK_11
;math_double.ppas,543 :: 		
$09EA	$0873			MOVF	STACK_3, W
;math_double.ppas,544 :: 		
$09EB	$1D03			BTFSS	STATUS, Z
;math_double.ppas,545 :: 		
$09EC	$0877			MOVF	STACK_7, W
;math_double.ppas,546 :: 		
$09ED	$1903			BTFSC	STATUS, Z
;math_double.ppas,547 :: 		
$09EE	$2A3E			GOTO	JPMRES032
;math_double.ppas,548 :: 		
$09EF	$	M32BNE0:
;math_double.ppas,549 :: 		
$09EF	$0872			MOVF	STACK_2, W
;math_double.ppas,550 :: 		
$09F0	$0676			XORWF	STACK_6, W
;math_double.ppas,551 :: 		
$09F1	$00FA			MOVWF	STACK_10
;math_double.ppas,552 :: 		
$09F2	$0877			MOVF	STACK_7, W
;math_double.ppas,553 :: 		
$09F3	$07F3			ADDWF	STACK_3, F
;math_double.ppas,554 :: 		
$09F4	$307E			MOVLW	126
;math_double.ppas,555 :: 		
$09F5	$1C03			BTFSS	STATUS, C
;math_double.ppas,556 :: 		
$09F6	$29FB			GOTO	MTUN32
;math_double.ppas,557 :: 		
$09F7	$02F3			SUBWF	STACK_3, F
;math_double.ppas,558 :: 		
$09F8	$1803			BTFSC	STATUS, C
;math_double.ppas,559 :: 		
$09F9	$2A41			GOTO	JPMSETFOV32
;math_double.ppas,560 :: 		
$09FA	$29FE			GOTO	MOK32
;math_double.ppas,561 :: 		
$09FB	$	MTUN32:
;math_double.ppas,562 :: 		
$09FB	$02F3			SUBWF	STACK_3, F
;math_double.ppas,563 :: 		
$09FC	$1C03			BTFSS	STATUS, C
;math_double.ppas,564 :: 		
$09FD	$2A44			GOTO	JPMSETFUN32
;math_double.ppas,565 :: 		
$09FE	$	MOK32:
;math_double.ppas,566 :: 		
$09FE	$0872			MOVF	STACK_2, W
;math_double.ppas,567 :: 		
$09FF	$00F8			MOVWF	STACK_8
;math_double.ppas,568 :: 		
$0A00	$0871			MOVF	STACK_1, W
;math_double.ppas,569 :: 		
$0A01	$00FC			MOVWF	STACK_12
;math_double.ppas,570 :: 		
$0A02	$0870			MOVF	STACK_0, W
;math_double.ppas,571 :: 		
$0A03	$00FD			MOVWF	STACK_13
;math_double.ppas,572 :: 		
$0A04	$17F8			BSF	STACK_8, 7
;math_double.ppas,573 :: 		
$0A05	$17F6			BSF	STACK_6, 7
;math_double.ppas,574 :: 		
$0A06	$1003			BCF	STATUS, C
;math_double.ppas,575 :: 		
$0A07	$01F2			CLRF	STACK_2
;math_double.ppas,576 :: 		
$0A08	$01F1			CLRF	STACK_1
;math_double.ppas,577 :: 		
$0A09	$01F0			CLRF	STACK_0
;math_double.ppas,578 :: 		
$0A0A	$3018			MOVLW	24
;math_double.ppas,579 :: 		
$0A0B	$00A9			MOVWF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,580 :: 		
$0A0C	$	MLOOP32:
;math_double.ppas,581 :: 		
$0A0C	$1C7D			BTFSS	STACK_13, 0
;math_double.ppas,582 :: 		
$0A0D	$2A18			GOTO	MNOADD32
;math_double.ppas,583 :: 		
$0A0E	$	MADD32:
;math_double.ppas,584 :: 		
$0A0E	$0874			MOVF	STACK_4, W
;math_double.ppas,585 :: 		
$0A0F	$07F0			ADDWF	STACK_0, F
;math_double.ppas,586 :: 		
$0A10	$0875			MOVF	STACK_5, W
;math_double.ppas,587 :: 		
$0A11	$1803			BTFSC	STATUS, C
;math_double.ppas,588 :: 		
$0A12	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,589 :: 		
$0A13	$07F1			ADDWF	STACK_1, F
;math_double.ppas,590 :: 		
$0A14	$0876			MOVF	STACK_6, W
;math_double.ppas,591 :: 		
$0A15	$1803			BTFSC	STATUS, C
;math_double.ppas,592 :: 		
$0A16	$0F76			INCFSZ	STACK_6, W
;math_double.ppas,593 :: 		
$0A17	$07F2			ADDWF	STACK_2, F
;math_double.ppas,594 :: 		
$0A18	$	MNOADD32:
;math_double.ppas,595 :: 		
$0A18	$0CF2			RRF	STACK_2, F
;math_double.ppas,596 :: 		
$0A19	$0CF1			RRF	STACK_1, F
;math_double.ppas,597 :: 		
$0A1A	$0CF0			RRF	STACK_0, F
;math_double.ppas,598 :: 		
$0A1B	$0CF8			RRF	STACK_8, F
;math_double.ppas,599 :: 		
$0A1C	$0CFC			RRF	STACK_12, F
;math_double.ppas,600 :: 		
$0A1D	$0CFD			RRF	STACK_13, F
;math_double.ppas,601 :: 		
$0A1E	$1003			BCF	STATUS, C
;math_double.ppas,602 :: 		
$0A1F	$0BA9			DECFSZ	MATH_DOUBLE___MATH_TEMPBD, F
;math_double.ppas,603 :: 		
$0A20	$2A0C			GOTO	MLOOP32
;math_double.ppas,604 :: 		
$0A21	$1BF2			BTFSC	STACK_2, 7
;math_double.ppas,605 :: 		
$0A22	$2A28			GOTO	MROUND32
;math_double.ppas,606 :: 		
$0A23	$0DF8			RLF	STACK_8, F
;math_double.ppas,607 :: 		
$0A24	$0DF0			RLF	STACK_0, F
;math_double.ppas,608 :: 		
$0A25	$0DF1			RLF	STACK_1, F
;math_double.ppas,609 :: 		
$0A26	$0DF2			RLF	STACK_2, F
;math_double.ppas,610 :: 		
$0A27	$03F3			DECF	STACK_3, F
;math_double.ppas,611 :: 		
$0A28	$	MROUND32:
;math_double.ppas,612 :: 		
$0A28	$1B7B			BTFSC	STACK_11, 6
;math_double.ppas,613 :: 		
$0A29	$1C70			BTFSS	STACK_0, 0
;math_double.ppas,614 :: 		
$0A2A	$2A3A			GOTO	MUL32OK
;math_double.ppas,615 :: 		
$0A2B	$1FF8			BTFSS	STACK_8, 7
;math_double.ppas,616 :: 		
$0A2C	$2A3A			GOTO	MUL32OK
;math_double.ppas,617 :: 		
$0A2D	$0AF0			INCF	STACK_0, F
;math_double.ppas,618 :: 		
$0A2E	$1903			BTFSC	STATUS, Z
;math_double.ppas,619 :: 		
$0A2F	$0AF1			INCF	STACK_1, F
;math_double.ppas,620 :: 		
$0A30	$1903			BTFSC	STATUS, Z
;math_double.ppas,621 :: 		
$0A31	$0AF2			INCF	STACK_2, F
;math_double.ppas,622 :: 		
$0A32	$1D03			BTFSS	STATUS, Z
;math_double.ppas,623 :: 		
$0A33	$2A3A			GOTO	MUL32OK
;math_double.ppas,624 :: 		
$0A34	$0CF2			RRF	STACK_2, F
;math_double.ppas,625 :: 		
$0A35	$0CF1			RRF	STACK_1, F
;math_double.ppas,626 :: 		
$0A36	$0CF0			RRF	STACK_0, F
;math_double.ppas,627 :: 		
$0A37	$0AF3			INCF	STACK_3, F
;math_double.ppas,628 :: 		
$0A38	$1903			BTFSC	STATUS, Z
;math_double.ppas,629 :: 		
$0A39	$2A41			GOTO	JPMSETFOV32
;math_double.ppas,630 :: 		
$0A3A	$	MUL32OK:
;math_double.ppas,631 :: 		
$0A3A	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,632 :: 		
$0A3B	$13F2			BCF	STACK_2, 7
;math_double.ppas,634 :: 		
$0A3C	$3000			MOVLW	0X00
;math_double.ppas,635 :: 		
$0A3D	$2A46			GOTO	MUL32EEE
;math_double.ppas,636 :: 		
$0A3E	$	JPMRES032:
;math_double.ppas,638 :: 		
$0A3E	$3001			MOVLW	0X01
;math_double.ppas,640 :: 		
$0A3F	$278D			CALL	_res032
;math_double.ppas,642 :: 		
$0A40	$2A46			GOTO	MUL32EEE
;math_double.ppas,643 :: 		
$0A41	$	JPMSETFOV32:
;math_double.ppas,645 :: 		
$0A41	$3002			MOVLW	0X02
;math_double.ppas,647 :: 		
$0A42	$276D			CALL	_setfov32
;math_double.ppas,649 :: 		
$0A43	$2A46			GOTO	MUL32EEE
;math_double.ppas,650 :: 		
$0A44	$	JPMSETFUN32:
;math_double.ppas,652 :: 		
$0A44	$3004			MOVLW	0X04
;math_double.ppas,654 :: 		
$0A45	$275F			CALL	_setfun32
;math_double.ppas,656 :: 		
$0A46	$	MUL32EEE:
;math_double.ppas,657 :: 		
$0A46	$0000			NOP
;math_double.ppas,658 :: 		
$0A47	$	math_double_L_9:
;math_double.ppas,659 :: 		
$0A47	$0008			RETURN
$0800	$	_div_32x32_fp:
$0800	$1303			BCF	STATUS, RP1
$0801	$1283			BCF	STATUS, RP0
;math_double.ppas,671 :: 		
;math_double.ppas,685 :: 		
$0802	$	FPD32:
;math_double.ppas,686 :: 		
$0802	$0877			MOVF	STACK_7, W
;math_double.ppas,687 :: 		
$0803	$1903			BTFSC	STATUS, Z
;math_double.ppas,689 :: 		
$0804	$288F			GOTO	JPDSETFDZ32
;math_double.ppas,690 :: 		
$0805	$0873			MOVF	STACK_3, W
;math_double.ppas,691 :: 		
$0806	$1903			BTFSC	STATUS, Z
;math_double.ppas,692 :: 		
$0807	$2892			GOTO	JPDRES032
;math_double.ppas,693 :: 		
$0808	$	D32BNE0:
;math_double.ppas,694 :: 		
$0808	$0872			MOVF	STACK_2, W
;math_double.ppas,695 :: 		
$0809	$0676			XORWF	STACK_6, W
;math_double.ppas,696 :: 		
$080A	$3980			ANDLW	128
;math_double.ppas,697 :: 		
$080B	$00FA			MOVWF	STACK_10
;math_double.ppas,698 :: 		
$080C	$17F2			BSF	STACK_2, 7
;math_double.ppas,699 :: 		
$080D	$17F6			BSF	STACK_6, 7
;math_double.ppas,700 :: 		
$080E	$	TALIGN32:
;math_double.ppas,701 :: 		
$080E	$01A9			CLRF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,702 :: 		
$080F	$0872			MOVF	STACK_2, W
;math_double.ppas,703 :: 		
$0810	$00F8			MOVWF	STACK_8
;math_double.ppas,704 :: 		
$0811	$0871			MOVF	STACK_1, W
;math_double.ppas,705 :: 		
$0812	$00FC			MOVWF	STACK_12
;math_double.ppas,706 :: 		
$0813	$0870			MOVF	STACK_0, W
;math_double.ppas,708 :: 		
$0814	$00FD			MOVWF	STACK_13
;math_double.ppas,709 :: 		
$0815	$0874			MOVF	STACK_4, W
;math_double.ppas,710 :: 		
$0816	$02FD			SUBWF	STACK_13, F
;math_double.ppas,711 :: 		
$0817	$0875			MOVF	STACK_5, W
;math_double.ppas,712 :: 		
$0818	$1C03			BTFSS	STATUS, C
;math_double.ppas,713 :: 		
$0819	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,714 :: 		
$081A	$	TS1ALIGN32:
;math_double.ppas,715 :: 		
$081A	$02FC			SUBWF	STACK_12, F
;math_double.ppas,716 :: 		
$081B	$0876			MOVF	STACK_6, W
;math_double.ppas,717 :: 		
$081C	$1C03			BTFSS	STATUS, C
;math_double.ppas,718 :: 		
$081D	$0F76			INCFSZ	STACK_6, W
;math_double.ppas,719 :: 		
$081E	$	TS2ALIGN32:
;math_double.ppas,720 :: 		
$081E	$02F8			SUBWF	STACK_8, F
;math_double.ppas,721 :: 		
$081F	$01F8			CLRF	STACK_8
;math_double.ppas,722 :: 		
$0820	$01FC			CLRF	STACK_12
;math_double.ppas,723 :: 		
$0821	$01FD			CLRF	STACK_13
;math_double.ppas,724 :: 		
$0822	$1C03			BTFSS	STATUS, C
;math_double.ppas,726 :: 		
$0823	$282B			GOTO	DALIGN32OK
;math_double.ppas,727 :: 		
$0824	$1003			BCF	STATUS, C
;math_double.ppas,728 :: 		
$0825	$0CF2			RRF	STACK_2, F
;math_double.ppas,729 :: 		
$0826	$0CF1			RRF	STACK_1, F
;math_double.ppas,730 :: 		
$0827	$0CF0			RRF	STACK_0, F
;math_double.ppas,731 :: 		
$0828	$0CF8			RRF	STACK_8, F
;math_double.ppas,732 :: 		
$0829	$3001			MOVLW	0X01
;math_double.ppas,733 :: 		
$082A	$00A9			MOVWF	MATH_DOUBLE___MATH_TEMPBD
;math_double.ppas,734 :: 		
$082B	$	DALIGN32OK:
;math_double.ppas,735 :: 		
$082B	$0877			MOVF	STACK_7, W
;math_double.ppas,736 :: 		
$082C	$02F3			SUBWF	STACK_3, F
;math_double.ppas,737 :: 		
$082D	$1C03			BTFSS	STATUS, C
;math_double.ppas,738 :: 		
$082E	$2835			GOTO	ALTB32
;math_double.ppas,739 :: 		
$082F	$	AGEB32:
;math_double.ppas,740 :: 		
$082F	$307E			MOVLW	126
;math_double.ppas,741 :: 		
$0830	$0729			ADDWF	MATH_DOUBLE___MATH_TEMPBD, W
;math_double.ppas,742 :: 		
$0831	$07F3			ADDWF	STACK_3, F
;math_double.ppas,743 :: 		
$0832	$1803			BTFSC	STATUS, C
;math_double.ppas,744 :: 		
$0833	$2895			GOTO	JPDSETFOV32
;math_double.ppas,745 :: 		
$0834	$283A			GOTO	DARGOK32
;math_double.ppas,746 :: 		
$0835	$	ALTB32:
;math_double.ppas,747 :: 		
$0835	$307E			MOVLW	126
;math_double.ppas,748 :: 		
$0836	$0729			ADDWF	MATH_DOUBLE___MATH_TEMPBD, W
;math_double.ppas,749 :: 		
$0837	$07F3			ADDWF	STACK_3, F
;math_double.ppas,750 :: 		
$0838	$1C03			BTFSS	STATUS, C
;math_double.ppas,751 :: 		
$0839	$2898			GOTO	JPDSETFUN32
;math_double.ppas,752 :: 		
$083A	$	DARGOK32:
;math_double.ppas,754 :: 		
$083A	$3018			MOVLW	24
;math_double.ppas,755 :: 		
$083B	$07FA			ADDWF	STACK_10, F
;math_double.ppas,756 :: 		
$083C	$	DLOOP32:
;math_double.ppas,757 :: 		
$083C	$0DFD			RLF	STACK_13, F
;math_double.ppas,758 :: 		
$083D	$0DFC			RLF	STACK_12, F
;math_double.ppas,759 :: 		
$083E	$0DF8			RLF	STACK_8, F
;math_double.ppas,760 :: 		
$083F	$0DF0			RLF	STACK_0, F
;math_double.ppas,761 :: 		
$0840	$0DF1			RLF	STACK_1, F
;math_double.ppas,762 :: 		
$0841	$0DF2			RLF	STACK_2, F
;math_double.ppas,764 :: 		
$0842	$0DA9			RLF	MATH_DOUBLE___MATH_TEMPBD, F
;math_double.ppas,765 :: 		
$0843	$0874			MOVF	STACK_4, W
;math_double.ppas,766 :: 		
$0844	$02F0			SUBWF	STACK_0, F
;math_double.ppas,767 :: 		
$0845	$0875			MOVF	STACK_5, W
;math_double.ppas,768 :: 		
$0846	$1C03			BTFSS	STATUS, C
;math_double.ppas,769 :: 		
$0847	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,770 :: 		
$0848	$	DS132:
;math_double.ppas,771 :: 		
$0848	$02F1			SUBWF	STACK_1, F
;math_double.ppas,772 :: 		
$0849	$0876			MOVF	STACK_6, W
;math_double.ppas,773 :: 		
$084A	$1C03			BTFSS	STATUS, C
;math_double.ppas,774 :: 		
$084B	$0F76			INCFSZ	STACK_6, W
;math_double.ppas,775 :: 		
$084C	$	DS232:
;math_double.ppas,776 :: 		
$084C	$02F2			SUBWF	STACK_2, F
;math_double.ppas,777 :: 		
$084D	$0D76			RLF	STACK_6, W
;math_double.ppas,778 :: 		
$084E	$04A9			IORWF	MATH_DOUBLE___MATH_TEMPBD, F
;math_double.ppas,779 :: 		
$084F	$1C29			BTFSS	MATH_DOUBLE___MATH_TEMPBD, 0
;math_double.ppas,780 :: 		
$0850	$2853			GOTO	DREST32
;math_double.ppas,781 :: 		
$0851	$147D			BSF	STACK_13, 0
;math_double.ppas,782 :: 		
$0852	$285E			GOTO	DOK32
;math_double.ppas,783 :: 		
$0853	$	DREST32:
;math_double.ppas,784 :: 		
$0853	$0874			MOVF	STACK_4, W
;math_double.ppas,785 :: 		
$0854	$07F0			ADDWF	STACK_0, F
;math_double.ppas,786 :: 		
$0855	$0875			MOVF	STACK_5, W
;math_double.ppas,787 :: 		
$0856	$1803			BTFSC	STATUS, C
;math_double.ppas,788 :: 		
$0857	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,789 :: 		
$0858	$	DAREST32:
;math_double.ppas,790 :: 		
$0858	$07F1			ADDWF	STACK_1, F
;math_double.ppas,791 :: 		
$0859	$0876			MOVF	STACK_6, W
;math_double.ppas,792 :: 		
$085A	$1803			BTFSC	STATUS, C
;math_double.ppas,793 :: 		
$085B	$0A76			INCF	STACK_6, W
;math_double.ppas,794 :: 		
$085C	$07F2			ADDWF	STACK_2, F
;math_double.ppas,795 :: 		
$085D	$107D			BCF	STACK_13, 0
;math_double.ppas,797 :: 		
$085E	$	DOK32:
;math_double.ppas,798 :: 		
$085E	$03FA			DECF	STACK_10, F
;math_double.ppas,799 :: 		
$085F	$301F			MOVLW	31
;math_double.ppas,800 :: 		
$0860	$057A			ANDWF	STACK_10, W
;math_double.ppas,801 :: 		
$0861	$1D03			BTFSS	STATUS, Z
;math_double.ppas,802 :: 		
$0862	$283C			GOTO	DLOOP32
;math_double.ppas,803 :: 		
$0863	$	DROUND32:
;math_double.ppas,804 :: 		
$0863	$1B7B			BTFSC	STACK_11, 6
;math_double.ppas,805 :: 		
$0864	$1C7D			BTFSS	STACK_13, 0
;math_double.ppas,806 :: 		
$0865	$2885			GOTO	DIV32OK
;math_double.ppas,807 :: 		
$0866	$1003			BCF	STATUS, C
;math_double.ppas,808 :: 		
$0867	$0DF0			RLF	STACK_0, F
;math_double.ppas,809 :: 		
$0868	$0DF1			RLF	STACK_1, F
;math_double.ppas,810 :: 		
$0869	$0DF2			RLF	STACK_2, F
;math_double.ppas,812 :: 		
$086A	$0DA9			RLF	MATH_DOUBLE___MATH_TEMPBD, F
;math_double.ppas,813 :: 		
$086B	$0874			MOVF	STACK_4, W
;math_double.ppas,814 :: 		
$086C	$02F0			SUBWF	STACK_0, F
;math_double.ppas,815 :: 		
$086D	$0875			MOVF	STACK_5, W
;math_double.ppas,816 :: 		
$086E	$1C03			BTFSS	STATUS, C
;math_double.ppas,817 :: 		
$086F	$0F75			INCFSZ	STACK_5, W
;math_double.ppas,818 :: 		
$0870	$02F1			SUBWF	STACK_1, F
;math_double.ppas,819 :: 		
$0871	$0876			MOVF	STACK_6, W
;math_double.ppas,820 :: 		
$0872	$1C03			BTFSS	STATUS, C
;math_double.ppas,821 :: 		
$0873	$0F76			INCFSZ	STACK_6, W
;math_double.ppas,822 :: 		
$0874	$02F2			SUBWF	STACK_2, F
;math_double.ppas,823 :: 		
$0875	$0D76			RLF	STACK_6, W
;math_double.ppas,824 :: 		
$0876	$0429			IORWF	MATH_DOUBLE___MATH_TEMPBD, W
;math_double.ppas,825 :: 		
$0877	$3901			ANDLW	0X01
;math_double.ppas,826 :: 		
$0878	$07FD			ADDWF	STACK_13, F
;math_double.ppas,827 :: 		
$0879	$1803			BTFSC	STATUS, C
;math_double.ppas,828 :: 		
$087A	$0AFC			INCF	STACK_12, F
;math_double.ppas,829 :: 		
$087B	$1903			BTFSC	STATUS, Z
;math_double.ppas,830 :: 		
$087C	$0AF8			INCF	STACK_8, F
;math_double.ppas,831 :: 		
$087D	$1D03			BTFSS	STATUS, Z
;math_double.ppas,832 :: 		
$087E	$2885			GOTO	DIV32OK
;math_double.ppas,833 :: 		
$087F	$0CF8			RRF	STACK_8, F
;math_double.ppas,834 :: 		
$0880	$0CFC			RRF	STACK_12, F
;math_double.ppas,835 :: 		
$0881	$0CFD			RRF	STACK_13, F
;math_double.ppas,836 :: 		
$0882	$0AF3			INCF	STACK_3, F
;math_double.ppas,837 :: 		
$0883	$1903			BTFSC	STATUS, Z
;math_double.ppas,838 :: 		
$0884	$2895			GOTO	JPDSETFOV32
;math_double.ppas,839 :: 		
$0885	$	DIV32OK:
;math_double.ppas,840 :: 		
$0885	$1FFA			BTFSS	STACK_10, 7
;math_double.ppas,841 :: 		
$0886	$13F8			BCF	STACK_8, 7
;math_double.ppas,842 :: 		
$0887	$0878			MOVF	STACK_8, W
;math_double.ppas,843 :: 		
$0888	$00F2			MOVWF	STACK_2
;math_double.ppas,844 :: 		
$0889	$087C			MOVF	STACK_12, W
;math_double.ppas,845 :: 		
$088A	$00F1			MOVWF	STACK_1
;math_double.ppas,846 :: 		
$088B	$087D			MOVF	STACK_13, W
;math_double.ppas,848 :: 		
$088C	$00F0			MOVWF	STACK_0
;math_double.ppas,850 :: 		
$088D	$3000			MOVLW	0X00
;math_double.ppas,851 :: 		
$088E	$289A			GOTO	DIV32EEE
;math_double.ppas,852 :: 		
$088F	$	JPDSETFDZ32:
;math_double.ppas,854 :: 		
$088F	$3001			MOVLW	0X01
;math_double.ppas,856 :: 		
$0890	$27CC			CALL	_setfdz32
;math_double.ppas,858 :: 		
$0891	$289A			GOTO	DIV32EEE
;math_double.ppas,859 :: 		
$0892	$	JPDRES032:
;math_double.ppas,861 :: 		
$0892	$3002			MOVLW	0X02
;math_double.ppas,863 :: 		
$0893	$278D			CALL	_res032
;math_double.ppas,865 :: 		
$0894	$289A			GOTO	DIV32EEE
;math_double.ppas,866 :: 		
$0895	$	JPDSETFOV32:
;math_double.ppas,868 :: 		
$0895	$3004			MOVLW	0X04
;math_double.ppas,870 :: 		
$0896	$276D			CALL	_setfov32
;math_double.ppas,872 :: 		
$0897	$289A			GOTO	DIV32EEE
;math_double.ppas,873 :: 		
$0898	$	JPDSETFUN32:
;math_double.ppas,875 :: 		
$0898	$3008			MOVLW	0X08
;math_double.ppas,877 :: 		
$0899	$275F			CALL	_setfun32
;math_double.ppas,879 :: 		
$089A	$	DIV32EEE:
;math_double.ppas,880 :: 		
$089A	$0000			NOP
;math_double.ppas,881 :: 		
$089B	$	math_double_L_10:
;math_double.ppas,882 :: 		
$089B	$0008			RETURN
$0FB0	$	_delay_22us:
;delays.pbas,17 :: 		sub procedure Delay_22us()
;delays.pbas,18 :: 		Delay_us(22)
$0FB0	$3024			MOVLW	36
$0FB1	$1303			BCF	STATUS, RP1
$0FB2	$1283			BCF	STATUS, RP0
$0FB3	$00FA			MOVWF	STACK_10
$0FB4	$0BFA			DECFSZ	STACK_10, F
$0FB5	$2FB4			GOTO	$-1
$0FB6	$0000			NOP
$0FB7	$	delays_L_3:
$0FB7	$0008			RETURN
$0C11	$	_fokjel:
;Digitalis_forrasztoallomas.pbas,52 :: 		dim i as byte
;Digitalis_forrasztoallomas.pbas,53 :: 		LCD_Cmd(88)
$0C11	$3058			MOVLW	88
$0C12	$1303			BCF	STATUS, RP1
$0C13	$1683			BSF	STATUS, RP0
$0C14	$00D0			MOVWF	FARG_Lcd_Cmd
$0C15	$118A			BCF	PCLATH, 3
$0C16	$25BC			CALL	_lcd_cmd
$0C17	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,54 :: 		for i = 0 to 7
$0C18	$1683			BSF	STATUS, RP0
$0C19	$01C9			CLRF	_fokjel_local_i, 1
$0C1A	$	Digitalis_forrasztoallomas_L_16:
$0C1A	$0849			MOVF	_fokjel_local_i, 0
$0C1B	$3C07			SUBLW	7
$0C1C	$1C03			BTFSS	STATUS, C
$0C1D	$2C41			GOTO	Digitalis_forrasztoallomas_L_19
;Digitalis_forrasztoallomas.pbas,55 :: 		LCD_Chr_Cp(fok[i])
$0C1E	$3096			MOVLW	#fok
$0C1F	$00F2			MOVWF	STACK_2
$0C20	$300F			MOVLW	@#fok
$0C21	$00F3			MOVWF	STACK_2+1
$0C22	$0849			MOVF	_fokjel_local_i, 0
$0C23	$00F0			MOVWF	STACK_0
$0C24	$01F1			CLRF	STACK_0+1
$0C25	$0872			MOVF	STACK_2, 0
$0C26	$07F0			ADDWF	STACK_0, 1
$0C27	$0873			MOVF	STACK_2+1, 0
$0C28	$1803			BTFSC	STATUS, C
$0C29	$3F01			ADDLW	1
$0C2A	$07F1			ADDWF	STACK_0+1, 1
$0C2B	$0870			MOVF	STACK_0, 0
$0C2C	$1283			BCF	STATUS, RP0
$0C2D	$00AA			MOVWF	___DoICPLoAddr
$0C2E	$0871			MOVF	STACK_0+1, 0
$0C2F	$00AC			MOVWF	___DoICPHiAddr
$0C30	$080A			MOVF	PCLATH, 0
$0C31	$00AB			MOVWF	___DoICPSavePCLATH
$0C32	$27BF			CALL	_____DoICP
$0C33	$00F0			MOVWF	STACK_0
$0C34	$082B			MOVF	___DoICPSavePCLATH, 0
$0C35	$008A			MOVWF	PCLATH
$0C36	$0870			MOVF	STACK_0, 0
$0C37	$1683			BSF	STATUS, RP0
$0C38	$00CF			MOVWF	FARG_Lcd_Chr_CP
$0C39	$2753			CALL	_lcd_chr_cp
;Digitalis_forrasztoallomas.pbas,56 :: 		next i
$0C3A	$1683			BSF	STATUS, RP0
$0C3B	$0849			MOVF	_fokjel_local_i, 0
$0C3C	$3A07			XORLW	7
$0C3D	$1903			BTFSC	STATUS, Z
$0C3E	$2C41			GOTO	Digitalis_forrasztoallomas_L_19
$0C3F	$	Digitalis_forrasztoallomas_L_17:
$0C3F	$0AC9			INCF	_fokjel_local_i, 1
$0C40	$2C1A			GOTO	Digitalis_forrasztoallomas_L_16
$0C41	$	Digitalis_forrasztoallomas_L_19:
;Digitalis_forrasztoallomas.pbas,57 :: 		LCD_Cmd(LCD_RETURN_HOME)
$0C41	$3002			MOVLW	2
$0C42	$00D0			MOVWF	FARG_Lcd_Cmd
$0C43	$118A			BCF	PCLATH, 3
$0C44	$25BC			CALL	_lcd_cmd
$0C45	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,58 :: 		LCD_Chr(pos_row, pos_char, 3)
$0C46	$1683			BSF	STATUS, RP0
$0C47	$0847			MOVF	FARG_fokjel, 0
$0C48	$00CB			MOVWF	FARG_Lcd_Chr
$0C49	$0848			MOVF	FARG_fokjel+1, 0
$0C4A	$00CC			MOVWF	FARG_Lcd_Chr+1
$0C4B	$3003			MOVLW	3
$0C4C	$00CD			MOVWF	FARG_Lcd_Chr+2
$0C4D	$25CC			CALL	_lcd_chr
$0C4E	$	Digitalis_forrasztoallomas_L_15:
$0C4E	$0008			RETURN
$0C4F	$	_o:
;Digitalis_forrasztoallomas.pbas,41 :: 		dim i as byte
;Digitalis_forrasztoallomas.pbas,42 :: 		LCD_Cmd(80)
$0C4F	$3050			MOVLW	80
$0C50	$1303			BCF	STATUS, RP1
$0C51	$1683			BSF	STATUS, RP0
$0C52	$00D0			MOVWF	FARG_Lcd_Cmd
$0C53	$118A			BCF	PCLATH, 3
$0C54	$25BC			CALL	_lcd_cmd
$0C55	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,43 :: 		for i = 0 to 7
$0C56	$1683			BSF	STATUS, RP0
$0C57	$01C9			CLRF	_o_local_i, 1
$0C58	$	Digitalis_forrasztoallomas_L_11:
$0C58	$0849			MOVF	_o_local_i, 0
$0C59	$3C07			SUBLW	7
$0C5A	$1C03			BTFSS	STATUS, C
$0C5B	$2C7F			GOTO	Digitalis_forrasztoallomas_L_14
;Digitalis_forrasztoallomas.pbas,44 :: 		LCD_Chr_Cp(oo[i])
$0C5C	$3084			MOVLW	#oo
$0C5D	$00F2			MOVWF	STACK_2
$0C5E	$300F			MOVLW	@#oo
$0C5F	$00F3			MOVWF	STACK_2+1
$0C60	$0849			MOVF	_o_local_i, 0
$0C61	$00F0			MOVWF	STACK_0
$0C62	$01F1			CLRF	STACK_0+1
$0C63	$0872			MOVF	STACK_2, 0
$0C64	$07F0			ADDWF	STACK_0, 1
$0C65	$0873			MOVF	STACK_2+1, 0
$0C66	$1803			BTFSC	STATUS, C
$0C67	$3F01			ADDLW	1
$0C68	$07F1			ADDWF	STACK_0+1, 1
$0C69	$0870			MOVF	STACK_0, 0
$0C6A	$1283			BCF	STATUS, RP0
$0C6B	$00AA			MOVWF	___DoICPLoAddr
$0C6C	$0871			MOVF	STACK_0+1, 0
$0C6D	$00AC			MOVWF	___DoICPHiAddr
$0C6E	$080A			MOVF	PCLATH, 0
$0C6F	$00AB			MOVWF	___DoICPSavePCLATH
$0C70	$27BF			CALL	_____DoICP
$0C71	$00F0			MOVWF	STACK_0
$0C72	$082B			MOVF	___DoICPSavePCLATH, 0
$0C73	$008A			MOVWF	PCLATH
$0C74	$0870			MOVF	STACK_0, 0
$0C75	$1683			BSF	STATUS, RP0
$0C76	$00CF			MOVWF	FARG_Lcd_Chr_CP
$0C77	$2753			CALL	_lcd_chr_cp
;Digitalis_forrasztoallomas.pbas,45 :: 		next i
$0C78	$1683			BSF	STATUS, RP0
$0C79	$0849			MOVF	_o_local_i, 0
$0C7A	$3A07			XORLW	7
$0C7B	$1903			BTFSC	STATUS, Z
$0C7C	$2C7F			GOTO	Digitalis_forrasztoallomas_L_14
$0C7D	$	Digitalis_forrasztoallomas_L_12:
$0C7D	$0AC9			INCF	_o_local_i, 1
$0C7E	$2C58			GOTO	Digitalis_forrasztoallomas_L_11
$0C7F	$	Digitalis_forrasztoallomas_L_14:
;Digitalis_forrasztoallomas.pbas,46 :: 		LCD_Cmd(LCD_RETURN_HOME)
$0C7F	$3002			MOVLW	2
$0C80	$00D0			MOVWF	FARG_Lcd_Cmd
$0C81	$118A			BCF	PCLATH, 3
$0C82	$25BC			CALL	_lcd_cmd
$0C83	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,47 :: 		LCD_Chr(pos_row, pos_char, 2)
$0C84	$1683			BSF	STATUS, RP0
$0C85	$0847			MOVF	FARG_o, 0
$0C86	$00CB			MOVWF	FARG_Lcd_Chr
$0C87	$0848			MOVF	FARG_o+1, 0
$0C88	$00CC			MOVWF	FARG_Lcd_Chr+1
$0C89	$3002			MOVLW	2
$0C8A	$00CD			MOVWF	FARG_Lcd_Chr+2
$0C8B	$25CC			CALL	_lcd_chr
$0C8C	$	Digitalis_forrasztoallomas_L_10:
$0C8C	$0008			RETURN
$0C8D	$	_i:
;Digitalis_forrasztoallomas.pbas,19 :: 		dim i as byte
;Digitalis_forrasztoallomas.pbas,20 :: 		LCD_Cmd(64)
$0C8D	$3040			MOVLW	64
$0C8E	$1303			BCF	STATUS, RP1
$0C8F	$1683			BSF	STATUS, RP0
$0C90	$00D0			MOVWF	FARG_Lcd_Cmd
$0C91	$118A			BCF	PCLATH, 3
$0C92	$25BC			CALL	_lcd_cmd
$0C93	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,21 :: 		for i = 0 to 7
$0C94	$1683			BSF	STATUS, RP0
$0C95	$01C9			CLRF	_i_local_i, 1
$0C96	$	Digitalis_forrasztoallomas_L_1:
$0C96	$0849			MOVF	_i_local_i, 0
$0C97	$3C07			SUBLW	7
$0C98	$1C03			BTFSS	STATUS, C
$0C99	$2CBD			GOTO	Digitalis_forrasztoallomas_L_4
;Digitalis_forrasztoallomas.pbas,22 :: 		LCD_Chr_Cp(ii[i])
$0C9A	$307B			MOVLW	#ii
$0C9B	$00F2			MOVWF	STACK_2
$0C9C	$300F			MOVLW	@#ii
$0C9D	$00F3			MOVWF	STACK_2+1
$0C9E	$0849			MOVF	_i_local_i, 0
$0C9F	$00F0			MOVWF	STACK_0
$0CA0	$01F1			CLRF	STACK_0+1
$0CA1	$0872			MOVF	STACK_2, 0
$0CA2	$07F0			ADDWF	STACK_0, 1
$0CA3	$0873			MOVF	STACK_2+1, 0
$0CA4	$1803			BTFSC	STATUS, C
$0CA5	$3F01			ADDLW	1
$0CA6	$07F1			ADDWF	STACK_0+1, 1
$0CA7	$0870			MOVF	STACK_0, 0
$0CA8	$1283			BCF	STATUS, RP0
$0CA9	$00AA			MOVWF	___DoICPLoAddr
$0CAA	$0871			MOVF	STACK_0+1, 0
$0CAB	$00AC			MOVWF	___DoICPHiAddr
$0CAC	$080A			MOVF	PCLATH, 0
$0CAD	$00AB			MOVWF	___DoICPSavePCLATH
$0CAE	$27BF			CALL	_____DoICP
$0CAF	$00F0			MOVWF	STACK_0
$0CB0	$082B			MOVF	___DoICPSavePCLATH, 0
$0CB1	$008A			MOVWF	PCLATH
$0CB2	$0870			MOVF	STACK_0, 0
$0CB3	$1683			BSF	STATUS, RP0
$0CB4	$00CF			MOVWF	FARG_Lcd_Chr_CP
$0CB5	$2753			CALL	_lcd_chr_cp
;Digitalis_forrasztoallomas.pbas,23 :: 		next i
$0CB6	$1683			BSF	STATUS, RP0
$0CB7	$0849			MOVF	_i_local_i, 0
$0CB8	$3A07			XORLW	7
$0CB9	$1903			BTFSC	STATUS, Z
$0CBA	$2CBD			GOTO	Digitalis_forrasztoallomas_L_4
$0CBB	$	Digitalis_forrasztoallomas_L_2:
$0CBB	$0AC9			INCF	_i_local_i, 1
$0CBC	$2C96			GOTO	Digitalis_forrasztoallomas_L_1
$0CBD	$	Digitalis_forrasztoallomas_L_4:
;Digitalis_forrasztoallomas.pbas,24 :: 		LCD_Cmd(LCD_RETURN_HOME)
$0CBD	$3002			MOVLW	2
$0CBE	$00D0			MOVWF	FARG_Lcd_Cmd
$0CBF	$118A			BCF	PCLATH, 3
$0CC0	$25BC			CALL	_lcd_cmd
$0CC1	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,25 :: 		LCD_Chr(pos_row, pos_char, 0)
$0CC2	$1683			BSF	STATUS, RP0
$0CC3	$0847			MOVF	FARG_i, 0
$0CC4	$00CB			MOVWF	FARG_Lcd_Chr
$0CC5	$0848			MOVF	FARG_i+1, 0
$0CC6	$00CC			MOVWF	FARG_Lcd_Chr+1
$0CC7	$01CD			CLRF	FARG_Lcd_Chr+2, 1
$0CC8	$25CC			CALL	_lcd_chr
$0CC9	$	Digitalis_forrasztoallomas_L_0:
$0CC9	$0008			RETURN
$0BD3	$	_a:
;Digitalis_forrasztoallomas.pbas,30 :: 		dim i as byte
;Digitalis_forrasztoallomas.pbas,31 :: 		LCD_Cmd(72)
$0BD3	$3048			MOVLW	72
$0BD4	$1303			BCF	STATUS, RP1
$0BD5	$1683			BSF	STATUS, RP0
$0BD6	$00D0			MOVWF	FARG_Lcd_Cmd
$0BD7	$118A			BCF	PCLATH, 3
$0BD8	$25BC			CALL	_lcd_cmd
$0BD9	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,32 :: 		for i = 0 to 7
$0BDA	$1683			BSF	STATUS, RP0
$0BDB	$01C9			CLRF	_a_local_i, 1
$0BDC	$	Digitalis_forrasztoallomas_L_6:
$0BDC	$0849			MOVF	_a_local_i, 0
$0BDD	$3C07			SUBLW	7
$0BDE	$1C03			BTFSS	STATUS, C
$0BDF	$2C03			GOTO	Digitalis_forrasztoallomas_L_9
;Digitalis_forrasztoallomas.pbas,33 :: 		LCD_Chr_Cp(aa[i])
$0BE0	$309F			MOVLW	#aa
$0BE1	$00F2			MOVWF	STACK_2
$0BE2	$300F			MOVLW	@#aa
$0BE3	$00F3			MOVWF	STACK_2+1
$0BE4	$0849			MOVF	_a_local_i, 0
$0BE5	$00F0			MOVWF	STACK_0
$0BE6	$01F1			CLRF	STACK_0+1
$0BE7	$0872			MOVF	STACK_2, 0
$0BE8	$07F0			ADDWF	STACK_0, 1
$0BE9	$0873			MOVF	STACK_2+1, 0
$0BEA	$1803			BTFSC	STATUS, C
$0BEB	$3F01			ADDLW	1
$0BEC	$07F1			ADDWF	STACK_0+1, 1
$0BED	$0870			MOVF	STACK_0, 0
$0BEE	$1283			BCF	STATUS, RP0
$0BEF	$00AA			MOVWF	___DoICPLoAddr
$0BF0	$0871			MOVF	STACK_0+1, 0
$0BF1	$00AC			MOVWF	___DoICPHiAddr
$0BF2	$080A			MOVF	PCLATH, 0
$0BF3	$00AB			MOVWF	___DoICPSavePCLATH
$0BF4	$27BF			CALL	_____DoICP
$0BF5	$00F0			MOVWF	STACK_0
$0BF6	$082B			MOVF	___DoICPSavePCLATH, 0
$0BF7	$008A			MOVWF	PCLATH
$0BF8	$0870			MOVF	STACK_0, 0
$0BF9	$1683			BSF	STATUS, RP0
$0BFA	$00CF			MOVWF	FARG_Lcd_Chr_CP
$0BFB	$2753			CALL	_lcd_chr_cp
;Digitalis_forrasztoallomas.pbas,34 :: 		next i
$0BFC	$1683			BSF	STATUS, RP0
$0BFD	$0849			MOVF	_a_local_i, 0
$0BFE	$3A07			XORLW	7
$0BFF	$1903			BTFSC	STATUS, Z
$0C00	$2C03			GOTO	Digitalis_forrasztoallomas_L_9
$0C01	$	Digitalis_forrasztoallomas_L_7:
$0C01	$0AC9			INCF	_a_local_i, 1
$0C02	$2BDC			GOTO	Digitalis_forrasztoallomas_L_6
$0C03	$	Digitalis_forrasztoallomas_L_9:
;Digitalis_forrasztoallomas.pbas,35 :: 		LCD_Cmd(LCD_RETURN_HOME)
$0C03	$3002			MOVLW	2
$0C04	$00D0			MOVWF	FARG_Lcd_Cmd
$0C05	$118A			BCF	PCLATH, 3
$0C06	$25BC			CALL	_lcd_cmd
$0C07	$158A			BSF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,36 :: 		LCD_Chr(pos_row, pos_char, 1)
$0C08	$1683			BSF	STATUS, RP0
$0C09	$0847			MOVF	FARG_a, 0
$0C0A	$00CB			MOVWF	FARG_Lcd_Chr
$0C0B	$0848			MOVF	FARG_a+1, 0
$0C0C	$00CC			MOVWF	FARG_Lcd_Chr+1
$0C0D	$3001			MOVLW	1
$0C0E	$00CD			MOVWF	FARG_Lcd_Chr+2
$0C0F	$25CC			CALL	_lcd_chr
$0C10	$	Digitalis_forrasztoallomas_L_5:
$0C10	$0008			RETURN
$0E9C	$	_kivant_celsius:
;Digitalis_forrasztoallomas.pbas,85 :: 		sub procedure kivant_celsius()
;Digitalis_forrasztoallomas.pbas,86 :: 		WordToStr(szam, szamok)
$0E9C	$1303			BCF	STATUS, RP1
$0E9D	$1283			BCF	STATUS, RP0
$0E9E	$082D			MOVF	_szam, 0
$0E9F	$1683			BSF	STATUS, RP0
$0EA0	$00CB			MOVWF	FARG_WordToStr
$0EA1	$1283			BCF	STATUS, RP0
$0EA2	$082E			MOVF	_szam+1, 0
$0EA3	$1683			BSF	STATUS, RP0
$0EA4	$00CC			MOVWF	FARG_WordToStr+1
$0EA5	$302F			MOVLW	_szamok
$0EA6	$00CD			MOVWF	FARG_WordToStr+2
$0EA7	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,87 :: 		Lcd_out(1, 9, szamok)
$0EA8	$3001			MOVLW	1
$0EA9	$00CB			MOVWF	FARG_Lcd_Out
$0EAA	$3009			MOVLW	9
$0EAB	$00CC			MOVWF	FARG_Lcd_Out+1
$0EAC	$302F			MOVLW	_szamok
$0EAD	$00CD			MOVWF	FARG_Lcd_Out+2
$0EAE	$250F			CALL	_lcd_out
$0EAF	$	Digitalis_forrasztoallomas_L_29:
$0EAF	$0008			RETURN
$0B5F	$	_kivant_kelvin:
;Digitalis_forrasztoallomas.pbas,91 :: 		sub procedure kivant_kelvin()
;Digitalis_forrasztoallomas.pbas,92 :: 		szam2 = szam+273
$0B5F	$1303			BCF	STATUS, RP1
$0B60	$1283			BCF	STATUS, RP0
$0B61	$082D			MOVF	_szam, 0
$0B62	$00F0			MOVWF	STACK_0
$0B63	$082E			MOVF	_szam+1, 0
$0B64	$00F1			MOVWF	STACK_0+1
$0B65	$26DF			CALL	_word2double
$0B66	$0870			MOVF	STACK_0, 0
$0B67	$1683			BSF	STATUS, RP0
$0B68	$00C7			MOVWF	FLOC_kivant_kelvin+0
$0B69	$0871			MOVF	STACK_0+1, 0
$0B6A	$00C8			MOVWF	FLOC_kivant_kelvin+1
$0B6B	$0872			MOVF	STACK_0+2, 0
$0B6C	$00C9			MOVWF	FLOC_kivant_kelvin+2
$0B6D	$0873			MOVF	STACK_0+3, 0
$0B6E	$00CA			MOVWF	FLOC_kivant_kelvin+3
$0B6F	$3011			MOVLW	17
$0B70	$00F0			MOVWF	STACK_0
$0B71	$3001			MOVLW	1
$0B72	$00F1			MOVWF	STACK_0+1
$0B73	$26DF			CALL	_word2double
$0B74	$1683			BSF	STATUS, RP0
$0B75	$0847			MOVF	FLOC_kivant_kelvin+0, 0
$0B76	$00F4			MOVWF	STACK_4
$0B77	$0848			MOVF	FLOC_kivant_kelvin+1, 0
$0B78	$00F5			MOVWF	STACK_4+1
$0B79	$0849			MOVF	FLOC_kivant_kelvin+2, 0
$0B7A	$00F6			MOVWF	STACK_4+2
$0B7B	$084A			MOVF	FLOC_kivant_kelvin+3, 0
$0B7C	$00F7			MOVWF	STACK_4+3
$0B7D	$118A			BCF	PCLATH, 3
$0B7E	$268B			CALL	_add_32x32_fp
$0B7F	$158A			BSF	PCLATH, 3
$0B80	$0870			MOVF	STACK_0, 0
$0B81	$00B5			MOVWF	_szam2
$0B82	$0871			MOVF	STACK_0+1, 0
$0B83	$00B6			MOVWF	_szam2+1
$0B84	$0872			MOVF	STACK_0+2, 0
$0B85	$00B7			MOVWF	_szam2+2
$0B86	$0873			MOVF	STACK_0+3, 0
$0B87	$00B8			MOVWF	_szam2+3
;Digitalis_forrasztoallomas.pbas,93 :: 		WordToStr(szam2, szamok)
$0B88	$2300			CALL	_double2word
$0B89	$0870			MOVF	STACK_0, 0
$0B8A	$1683			BSF	STATUS, RP0
$0B8B	$00CB			MOVWF	FARG_WordToStr
$0B8C	$0871			MOVF	STACK_0+1, 0
$0B8D	$00CC			MOVWF	FARG_WordToStr+1
$0B8E	$302F			MOVLW	_szamok
$0B8F	$00CD			MOVWF	FARG_WordToStr+2
$0B90	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,94 :: 		Lcd_out(1, 9, szamok)
$0B91	$3001			MOVLW	1
$0B92	$00CB			MOVWF	FARG_Lcd_Out
$0B93	$3009			MOVLW	9
$0B94	$00CC			MOVWF	FARG_Lcd_Out+1
$0B95	$302F			MOVLW	_szamok
$0B96	$00CD			MOVWF	FARG_Lcd_Out+2
$0B97	$250F			CALL	_lcd_out
$0B98	$	Digitalis_forrasztoallomas_L_30:
$0B98	$0008			RETURN
$090F	$	_kivant_fahrenheit:
;Digitalis_forrasztoallomas.pbas,98 :: 		sub procedure kivant_fahrenheit()
;Digitalis_forrasztoallomas.pbas,99 :: 		szam2 = szam*9/5+32
$090F	$1303			BCF	STATUS, RP1
$0910	$1283			BCF	STATUS, RP0
$0911	$082D			MOVF	_szam, 0
$0912	$00F0			MOVWF	STACK_0
$0913	$082E			MOVF	_szam+1, 0
$0914	$00F1			MOVWF	STACK_0+1
$0915	$26DF			CALL	_word2double
$0916	$0870			MOVF	STACK_0, 0
$0917	$1683			BSF	STATUS, RP0
$0918	$00C7			MOVWF	FLOC_kivant_fahrenheit+0
$0919	$0871			MOVF	STACK_0+1, 0
$091A	$00C8			MOVWF	FLOC_kivant_fahrenheit+1
$091B	$0872			MOVF	STACK_0+2, 0
$091C	$00C9			MOVWF	FLOC_kivant_fahrenheit+2
$091D	$0873			MOVF	STACK_0+3, 0
$091E	$00CA			MOVWF	FLOC_kivant_fahrenheit+3
$091F	$3009			MOVLW	9
$0920	$00F0			MOVWF	STACK_0
$0921	$270F			CALL	_byte2double
$0922	$1683			BSF	STATUS, RP0
$0923	$0847			MOVF	FLOC_kivant_fahrenheit+0, 0
$0924	$00F4			MOVWF	STACK_4
$0925	$0848			MOVF	FLOC_kivant_fahrenheit+1, 0
$0926	$00F5			MOVWF	STACK_4+1
$0927	$0849			MOVF	FLOC_kivant_fahrenheit+2, 0
$0928	$00F6			MOVWF	STACK_4+2
$0929	$084A			MOVF	FLOC_kivant_fahrenheit+3, 0
$092A	$00F7			MOVWF	STACK_4+3
$092B	$21E7			CALL	_mul_32x32_fp
$092C	$0870			MOVF	STACK_0, 0
$092D	$1683			BSF	STATUS, RP0
$092E	$00C7			MOVWF	FLOC_kivant_fahrenheit+0
$092F	$0871			MOVF	STACK_0+1, 0
$0930	$00C8			MOVWF	FLOC_kivant_fahrenheit+1
$0931	$0872			MOVF	STACK_0+2, 0
$0932	$00C9			MOVWF	FLOC_kivant_fahrenheit+2
$0933	$0873			MOVF	STACK_0+3, 0
$0934	$00CA			MOVWF	FLOC_kivant_fahrenheit+3
$0935	$3005			MOVLW	5
$0936	$00F0			MOVWF	STACK_0
$0937	$270F			CALL	_byte2double
$0938	$0870			MOVF	STACK_0, 0
$0939	$00F4			MOVWF	STACK_4
$093A	$0871			MOVF	STACK_0+1, 0
$093B	$00F5			MOVWF	STACK_4+1
$093C	$0872			MOVF	STACK_0+2, 0
$093D	$00F6			MOVWF	STACK_4+2
$093E	$0873			MOVF	STACK_0+3, 0
$093F	$00F7			MOVWF	STACK_4+3
$0940	$1683			BSF	STATUS, RP0
$0941	$0847			MOVF	FLOC_kivant_fahrenheit+0, 0
$0942	$00F0			MOVWF	STACK_0
$0943	$0848			MOVF	FLOC_kivant_fahrenheit+1, 0
$0944	$00F1			MOVWF	STACK_0+1
$0945	$0849			MOVF	FLOC_kivant_fahrenheit+2, 0
$0946	$00F2			MOVWF	STACK_0+2
$0947	$084A			MOVF	FLOC_kivant_fahrenheit+3, 0
$0948	$00F3			MOVWF	STACK_0+3
$0949	$2000			CALL	_div_32x32_fp
$094A	$0870			MOVF	STACK_0, 0
$094B	$1683			BSF	STATUS, RP0
$094C	$00C7			MOVWF	FLOC_kivant_fahrenheit+0
$094D	$0871			MOVF	STACK_0+1, 0
$094E	$00C8			MOVWF	FLOC_kivant_fahrenheit+1
$094F	$0872			MOVF	STACK_0+2, 0
$0950	$00C9			MOVWF	FLOC_kivant_fahrenheit+2
$0951	$0873			MOVF	STACK_0+3, 0
$0952	$00CA			MOVWF	FLOC_kivant_fahrenheit+3
$0953	$3020			MOVLW	32
$0954	$00F0			MOVWF	STACK_0
$0955	$270F			CALL	_byte2double
$0956	$1683			BSF	STATUS, RP0
$0957	$0847			MOVF	FLOC_kivant_fahrenheit+0, 0
$0958	$00F4			MOVWF	STACK_4
$0959	$0848			MOVF	FLOC_kivant_fahrenheit+1, 0
$095A	$00F5			MOVWF	STACK_4+1
$095B	$0849			MOVF	FLOC_kivant_fahrenheit+2, 0
$095C	$00F6			MOVWF	STACK_4+2
$095D	$084A			MOVF	FLOC_kivant_fahrenheit+3, 0
$095E	$00F7			MOVWF	STACK_4+3
$095F	$118A			BCF	PCLATH, 3
$0960	$268B			CALL	_add_32x32_fp
$0961	$158A			BSF	PCLATH, 3
$0962	$0870			MOVF	STACK_0, 0
$0963	$00B5			MOVWF	_szam2
$0964	$0871			MOVF	STACK_0+1, 0
$0965	$00B6			MOVWF	_szam2+1
$0966	$0872			MOVF	STACK_0+2, 0
$0967	$00B7			MOVWF	_szam2+2
$0968	$0873			MOVF	STACK_0+3, 0
$0969	$00B8			MOVWF	_szam2+3
;Digitalis_forrasztoallomas.pbas,100 :: 		WordToStr(szam2, szamok)
$096A	$2300			CALL	_double2word
$096B	$0870			MOVF	STACK_0, 0
$096C	$1683			BSF	STATUS, RP0
$096D	$00CB			MOVWF	FARG_WordToStr
$096E	$0871			MOVF	STACK_0+1, 0
$096F	$00CC			MOVWF	FARG_WordToStr+1
$0970	$302F			MOVLW	_szamok
$0971	$00CD			MOVWF	FARG_WordToStr+2
$0972	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,101 :: 		Lcd_out(1, 9, szamok)
$0973	$3001			MOVLW	1
$0974	$00CB			MOVWF	FARG_Lcd_Out
$0975	$3009			MOVLW	9
$0976	$00CC			MOVWF	FARG_Lcd_Out+1
$0977	$302F			MOVLW	_szamok
$0978	$00CD			MOVWF	FARG_Lcd_Out+2
$0979	$250F			CALL	_lcd_out
$097A	$	Digitalis_forrasztoallomas_L_31:
$097A	$0008			RETURN
$0D53	$	_adc_read:
;ADClib_A_C.ppas,12 :: 		
;ADClib_A_C.ppas,13 :: 		
$0D53	$1303			BCF	STATUS, RP1
$0D54	$1283			BCF	STATUS, RP0
$0D55	$019F			CLRF	ADCON0, 1
;ADClib_A_C.ppas,14 :: 		
$0D56	$30C0			MOVLW	192
$0D57	$049F			IORWF	ADCON0, 1
;ADClib_A_C.ppas,15 :: 		
$0D58	$3040			MOVLW	64
$0D59	$1683			BSF	STATUS, RP0
$0D5A	$041F			IORWF	ADCON1, 0
$0D5B	$00F0			MOVWF	STACK_0
$0D5C	$0870			MOVF	STACK_0, 0
$0D5D	$009F			MOVWF	ADCON1
;ADClib_A_C.ppas,17 :: 		
$0D5E	$3080			MOVLW	128
$0D5F	$0470			IORWF	STACK_0, 0
$0D60	$009F			MOVWF	ADCON1
;ADClib_A_C.ppas,18 :: 		
$0D61	$0847			MOVF	FARG_ADC_read, 0
$0D62	$00F0			MOVWF	STACK_0
$0D63	$0DF0			RLF	STACK_0, 1
$0D64	$1070			BCF	STACK_0, 0
$0D65	$0DF0			RLF	STACK_0, 1
$0D66	$1070			BCF	STACK_0, 0
$0D67	$0DF0			RLF	STACK_0, 1
$0D68	$1070			BCF	STACK_0, 0
$0D69	$0870			MOVF	STACK_0, 0
$0D6A	$1283			BCF	STATUS, RP0
$0D6B	$049F			IORWF	ADCON0, 1
;ADClib_A_C.ppas,19 :: 		
$0D6C	$141F			BSF	ADCON0, 0
;ADClib_A_C.ppas,20 :: 		
$0D6D	$27B0			CALL	_delay_22us
;ADClib_A_C.ppas,21 :: 		
$0D6E	$151F			BSF	ADCON0, 2
;ADClib_A_C.ppas,22 :: 		
$0D6F	$	ADClib_A_C_L_2:
$0D6F	$081F			MOVF	ADCON0, 0
$0D70	$00F2			MOVWF	STACK_2
$0D71	$3000			MOVLW	0
$0D72	$1972			BTFSC	STACK_2, 2
$0D73	$3001			MOVLW	1
$0D74	$00F2			MOVWF	STACK_2
$0D75	$0872			MOVF	STACK_2, 0
$0D76	$3A01			XORLW	1
$0D77	$1D03			BTFSS	STATUS, Z
$0D78	$2D7B			GOTO	ADClib_A_C_L_3
;ADClib_A_C.ppas,23 :: 		
$0D79	$0000			NOP
$0D7A	$2D6F			GOTO	ADClib_A_C_L_2
$0D7B	$	ADClib_A_C_L_3:
;ADClib_A_C.ppas,24 :: 		
$0D7B	$081E			MOVF	ADRESH, 0
$0D7C	$00F2			MOVWF	STACK_2
$0D7D	$01F3			CLRF	STACK_2+1
$0D7E	$0872			MOVF	STACK_2, 0
$0D7F	$00F3			MOVWF	STACK_2+1
$0D80	$01F2			CLRF	STACK_2
$0D81	$0872			MOVF	STACK_2, 0
$0D82	$1683			BSF	STATUS, RP0
$0D83	$00C8			MOVWF	_adc_read_local_result
$0D84	$0873			MOVF	STACK_2+1, 0
$0D85	$00C9			MOVWF	_adc_read_local_result+1
;ADClib_A_C.ppas,25 :: 		
$0D86	$081E			MOVF	ADRESL, 0
$0D87	$0472			IORWF	STACK_2, 0
$0D88	$00C8			MOVWF	_adc_read_local_result
$0D89	$0873			MOVF	STACK_2+1, 0
$0D8A	$00C9			MOVWF	_adc_read_local_result+1
$0D8B	$3000			MOVLW	0
$0D8C	$04C9			IORWF	_adc_read_local_result+1, 1
;ADClib_A_C.ppas,26 :: 		
$0D8D	$1283			BCF	STATUS, RP0
$0D8E	$101F			BCF	ADCON0, 0
$0D8F	$	ADClib_A_C_L_0:
;ADClib_A_C.ppas,27 :: 		
$0D8F	$1683			BSF	STATUS, RP0
$0D90	$0848			MOVF	_adc_read_local_result, 0
$0D91	$00F0			MOVWF	STACK_0
$0D92	$0849			MOVF	_adc_read_local_result+1, 0
$0D93	$00F1			MOVWF	STACK_0+1
$0D94	$0008			RETURN
$0EB0	$	_valos_celsius:
;Digitalis_forrasztoallomas.pbas,111 :: 		sub procedure valos_celsius()
;Digitalis_forrasztoallomas.pbas,112 :: 		WordToStr(tvalos, szamok)
$0EB0	$1303			BCF	STATUS, RP1
$0EB1	$1283			BCF	STATUS, RP0
$0EB2	$0839			MOVF	_tvalos, 0
$0EB3	$1683			BSF	STATUS, RP0
$0EB4	$00CB			MOVWF	FARG_WordToStr
$0EB5	$1283			BCF	STATUS, RP0
$0EB6	$083A			MOVF	_tvalos+1, 0
$0EB7	$1683			BSF	STATUS, RP0
$0EB8	$00CC			MOVWF	FARG_WordToStr+1
$0EB9	$302F			MOVLW	_szamok
$0EBA	$00CD			MOVWF	FARG_WordToStr+2
$0EBB	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,113 :: 		Lcd_out(2, 9, szamok)
$0EBC	$3002			MOVLW	2
$0EBD	$00CB			MOVWF	FARG_Lcd_Out
$0EBE	$3009			MOVLW	9
$0EBF	$00CC			MOVWF	FARG_Lcd_Out+1
$0EC0	$302F			MOVLW	_szamok
$0EC1	$00CD			MOVWF	FARG_Lcd_Out+2
$0EC2	$250F			CALL	_lcd_out
$0EC3	$	Digitalis_forrasztoallomas_L_33:
$0EC3	$0008			RETURN
$0B99	$	_valos_kelvin:
;Digitalis_forrasztoallomas.pbas,117 :: 		sub procedure valos_kelvin()
;Digitalis_forrasztoallomas.pbas,118 :: 		szam3 = tvalos+273
$0B99	$1303			BCF	STATUS, RP1
$0B9A	$1283			BCF	STATUS, RP0
$0B9B	$0839			MOVF	_tvalos, 0
$0B9C	$00F0			MOVWF	STACK_0
$0B9D	$083A			MOVF	_tvalos+1, 0
$0B9E	$00F1			MOVWF	STACK_0+1
$0B9F	$26DF			CALL	_word2double
$0BA0	$0870			MOVF	STACK_0, 0
$0BA1	$1683			BSF	STATUS, RP0
$0BA2	$00C7			MOVWF	FLOC_valos_kelvin+0
$0BA3	$0871			MOVF	STACK_0+1, 0
$0BA4	$00C8			MOVWF	FLOC_valos_kelvin+1
$0BA5	$0872			MOVF	STACK_0+2, 0
$0BA6	$00C9			MOVWF	FLOC_valos_kelvin+2
$0BA7	$0873			MOVF	STACK_0+3, 0
$0BA8	$00CA			MOVWF	FLOC_valos_kelvin+3
$0BA9	$3011			MOVLW	17
$0BAA	$00F0			MOVWF	STACK_0
$0BAB	$3001			MOVLW	1
$0BAC	$00F1			MOVWF	STACK_0+1
$0BAD	$26DF			CALL	_word2double
$0BAE	$1683			BSF	STATUS, RP0
$0BAF	$0847			MOVF	FLOC_valos_kelvin+0, 0
$0BB0	$00F4			MOVWF	STACK_4
$0BB1	$0848			MOVF	FLOC_valos_kelvin+1, 0
$0BB2	$00F5			MOVWF	STACK_4+1
$0BB3	$0849			MOVF	FLOC_valos_kelvin+2, 0
$0BB4	$00F6			MOVWF	STACK_4+2
$0BB5	$084A			MOVF	FLOC_valos_kelvin+3, 0
$0BB6	$00F7			MOVWF	STACK_4+3
$0BB7	$118A			BCF	PCLATH, 3
$0BB8	$268B			CALL	_add_32x32_fp
$0BB9	$158A			BSF	PCLATH, 3
$0BBA	$0870			MOVF	STACK_0, 0
$0BBB	$00BB			MOVWF	_szam3
$0BBC	$0871			MOVF	STACK_0+1, 0
$0BBD	$00BC			MOVWF	_szam3+1
$0BBE	$0872			MOVF	STACK_0+2, 0
$0BBF	$00BD			MOVWF	_szam3+2
$0BC0	$0873			MOVF	STACK_0+3, 0
$0BC1	$00BE			MOVWF	_szam3+3
;Digitalis_forrasztoallomas.pbas,119 :: 		WordToStr(szam3, szamok)
$0BC2	$2300			CALL	_double2word
$0BC3	$0870			MOVF	STACK_0, 0
$0BC4	$1683			BSF	STATUS, RP0
$0BC5	$00CB			MOVWF	FARG_WordToStr
$0BC6	$0871			MOVF	STACK_0+1, 0
$0BC7	$00CC			MOVWF	FARG_WordToStr+1
$0BC8	$302F			MOVLW	_szamok
$0BC9	$00CD			MOVWF	FARG_WordToStr+2
$0BCA	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,120 :: 		Lcd_out(2, 9, szamok)
$0BCB	$3002			MOVLW	2
$0BCC	$00CB			MOVWF	FARG_Lcd_Out
$0BCD	$3009			MOVLW	9
$0BCE	$00CC			MOVWF	FARG_Lcd_Out+1
$0BCF	$302F			MOVLW	_szamok
$0BD0	$00CD			MOVWF	FARG_Lcd_Out+2
$0BD1	$250F			CALL	_lcd_out
$0BD2	$	Digitalis_forrasztoallomas_L_34:
$0BD2	$0008			RETURN
$097B	$	_valos_fahrenheit:
;Digitalis_forrasztoallomas.pbas,124 :: 		sub procedure valos_fahrenheit()
;Digitalis_forrasztoallomas.pbas,125 :: 		szam3 = tvalos*9/5+32
$097B	$1303			BCF	STATUS, RP1
$097C	$1283			BCF	STATUS, RP0
$097D	$0839			MOVF	_tvalos, 0
$097E	$00F0			MOVWF	STACK_0
$097F	$083A			MOVF	_tvalos+1, 0
$0980	$00F1			MOVWF	STACK_0+1
$0981	$26DF			CALL	_word2double
$0982	$0870			MOVF	STACK_0, 0
$0983	$1683			BSF	STATUS, RP0
$0984	$00C7			MOVWF	FLOC_valos_fahrenheit+0
$0985	$0871			MOVF	STACK_0+1, 0
$0986	$00C8			MOVWF	FLOC_valos_fahrenheit+1
$0987	$0872			MOVF	STACK_0+2, 0
$0988	$00C9			MOVWF	FLOC_valos_fahrenheit+2
$0989	$0873			MOVF	STACK_0+3, 0
$098A	$00CA			MOVWF	FLOC_valos_fahrenheit+3
$098B	$3009			MOVLW	9
$098C	$00F0			MOVWF	STACK_0
$098D	$270F			CALL	_byte2double
$098E	$1683			BSF	STATUS, RP0
$098F	$0847			MOVF	FLOC_valos_fahrenheit+0, 0
$0990	$00F4			MOVWF	STACK_4
$0991	$0848			MOVF	FLOC_valos_fahrenheit+1, 0
$0992	$00F5			MOVWF	STACK_4+1
$0993	$0849			MOVF	FLOC_valos_fahrenheit+2, 0
$0994	$00F6			MOVWF	STACK_4+2
$0995	$084A			MOVF	FLOC_valos_fahrenheit+3, 0
$0996	$00F7			MOVWF	STACK_4+3
$0997	$21E7			CALL	_mul_32x32_fp
$0998	$0870			MOVF	STACK_0, 0
$0999	$1683			BSF	STATUS, RP0
$099A	$00C7			MOVWF	FLOC_valos_fahrenheit+0
$099B	$0871			MOVF	STACK_0+1, 0
$099C	$00C8			MOVWF	FLOC_valos_fahrenheit+1
$099D	$0872			MOVF	STACK_0+2, 0
$099E	$00C9			MOVWF	FLOC_valos_fahrenheit+2
$099F	$0873			MOVF	STACK_0+3, 0
$09A0	$00CA			MOVWF	FLOC_valos_fahrenheit+3
$09A1	$3005			MOVLW	5
$09A2	$00F0			MOVWF	STACK_0
$09A3	$270F			CALL	_byte2double
$09A4	$0870			MOVF	STACK_0, 0
$09A5	$00F4			MOVWF	STACK_4
$09A6	$0871			MOVF	STACK_0+1, 0
$09A7	$00F5			MOVWF	STACK_4+1
$09A8	$0872			MOVF	STACK_0+2, 0
$09A9	$00F6			MOVWF	STACK_4+2
$09AA	$0873			MOVF	STACK_0+3, 0
$09AB	$00F7			MOVWF	STACK_4+3
$09AC	$1683			BSF	STATUS, RP0
$09AD	$0847			MOVF	FLOC_valos_fahrenheit+0, 0
$09AE	$00F0			MOVWF	STACK_0
$09AF	$0848			MOVF	FLOC_valos_fahrenheit+1, 0
$09B0	$00F1			MOVWF	STACK_0+1
$09B1	$0849			MOVF	FLOC_valos_fahrenheit+2, 0
$09B2	$00F2			MOVWF	STACK_0+2
$09B3	$084A			MOVF	FLOC_valos_fahrenheit+3, 0
$09B4	$00F3			MOVWF	STACK_0+3
$09B5	$2000			CALL	_div_32x32_fp
$09B6	$0870			MOVF	STACK_0, 0
$09B7	$1683			BSF	STATUS, RP0
$09B8	$00C7			MOVWF	FLOC_valos_fahrenheit+0
$09B9	$0871			MOVF	STACK_0+1, 0
$09BA	$00C8			MOVWF	FLOC_valos_fahrenheit+1
$09BB	$0872			MOVF	STACK_0+2, 0
$09BC	$00C9			MOVWF	FLOC_valos_fahrenheit+2
$09BD	$0873			MOVF	STACK_0+3, 0
$09BE	$00CA			MOVWF	FLOC_valos_fahrenheit+3
$09BF	$3020			MOVLW	32
$09C0	$00F0			MOVWF	STACK_0
$09C1	$270F			CALL	_byte2double
$09C2	$1683			BSF	STATUS, RP0
$09C3	$0847			MOVF	FLOC_valos_fahrenheit+0, 0
$09C4	$00F4			MOVWF	STACK_4
$09C5	$0848			MOVF	FLOC_valos_fahrenheit+1, 0
$09C6	$00F5			MOVWF	STACK_4+1
$09C7	$0849			MOVF	FLOC_valos_fahrenheit+2, 0
$09C8	$00F6			MOVWF	STACK_4+2
$09C9	$084A			MOVF	FLOC_valos_fahrenheit+3, 0
$09CA	$00F7			MOVWF	STACK_4+3
$09CB	$118A			BCF	PCLATH, 3
$09CC	$268B			CALL	_add_32x32_fp
$09CD	$158A			BSF	PCLATH, 3
$09CE	$0870			MOVF	STACK_0, 0
$09CF	$00BB			MOVWF	_szam3
$09D0	$0871			MOVF	STACK_0+1, 0
$09D1	$00BC			MOVWF	_szam3+1
$09D2	$0872			MOVF	STACK_0+2, 0
$09D3	$00BD			MOVWF	_szam3+2
$09D4	$0873			MOVF	STACK_0+3, 0
$09D5	$00BE			MOVWF	_szam3+3
;Digitalis_forrasztoallomas.pbas,126 :: 		WordToStr(szam3, szamok)
$09D6	$2300			CALL	_double2word
$09D7	$0870			MOVF	STACK_0, 0
$09D8	$1683			BSF	STATUS, RP0
$09D9	$00CB			MOVWF	FARG_WordToStr
$09DA	$0871			MOVF	STACK_0+1, 0
$09DB	$00CC			MOVWF	FARG_WordToStr+1
$09DC	$302F			MOVLW	_szamok
$09DD	$00CD			MOVWF	FARG_WordToStr+2
$09DE	$22A4			CALL	_wordtostr
;Digitalis_forrasztoallomas.pbas,127 :: 		Lcd_out(2, 9, szamok)
$09DF	$3002			MOVLW	2
$09E0	$00CB			MOVWF	FARG_Lcd_Out
$09E1	$3009			MOVLW	9
$09E2	$00CC			MOVWF	FARG_Lcd_Out+1
$09E3	$302F			MOVLW	_szamok
$09E4	$00CD			MOVWF	FARG_Lcd_Out+2
$09E5	$250F			CALL	_lcd_out
$09E6	$	Digitalis_forrasztoallomas_L_35:
$09E6	$0008			RETURN
$0733	$	_sub_32x32_fp:
$0733	$1303			BCF	STATUS, RP1
$0734	$1283			BCF	STATUS, RP0
;math_double.ppas,512 :: 		
;math_double.ppas,515 :: 		
$0735	$3080			MOVLW	0X80
;math_double.ppas,516 :: 		
$0736	$06F6			XORWF	STACK_6, F
;math_double.ppas,518 :: 		
$0737	$268B			CALL	_add_32x32_fp
$0738	$	math_double_L_8:
;math_double.ppas,519 :: 		
$0738	$0008			RETURN
$0F1F	$	_delay_500us:
;delays.pbas,29 :: 		sub procedure Delay_500us()
;delays.pbas,30 :: 		Delay_us(498)
$0F1F	$3004			MOVLW	4
$0F20	$1303			BCF	STATUS, RP1
$0F21	$1283			BCF	STATUS, RP0
$0F22	$00FB			MOVWF	STACK_11
$0F23	$30FF			MOVLW	255
$0F24	$00FA			MOVWF	STACK_10
$0F25	$0BFB			DECFSZ	STACK_11, F
$0F26	$2F28			GOTO	$+2
$0F27	$2F2B			GOTO	$+4
$0F28	$0BFA			DECFSZ	STACK_10, F
$0F29	$2F28			GOTO	$-1
$0F2A	$2F25			GOTO	$-5
$0F2B	$3037			MOVLW	55
$0F2C	$00FA			MOVWF	STACK_10
$0F2D	$0BFA			DECFSZ	STACK_10, F
$0F2E	$2F2D			GOTO	$-1
$0F2F	$0000			NOP
$0F30	$0000			NOP
$0F31	$0000			NOP
$0F32	$	delays_L_6:
$0F32	$0008			RETURN
$0473	$	_lcd_config:
;lcd.ppas,115 :: 		
;lcd.ppas,116 :: 		
$0473	$158A			BSF	PCLATH, 3
$0474	$2733			CALL	_delay_5500us
$0475	$118A			BCF	PCLATH, 3
;lcd.ppas,117 :: 		
$0476	$158A			BSF	PCLATH, 3
$0477	$2733			CALL	_delay_5500us
$0478	$118A			BCF	PCLATH, 3
;lcd.ppas,118 :: 		
$0479	$158A			BSF	PCLATH, 3
$047A	$2733			CALL	_delay_5500us
$047B	$118A			BCF	PCLATH, 3
;lcd.ppas,120 :: 		
$047C	$1683			BSF	STATUS, RP0
$047D	$0837			MOVF	FARG_Lcd_Config+1, 0
$047E	$00F0			MOVWF	STACK_0
$047F	$3001			MOVLW	1
$0480	$00F4			MOVWF	STACK_4
$0481	$0870			MOVF	STACK_0, 0
$0482	$	L_Lcd_Config_0:
$0482	$1903			BTFSC	STATUS, Z
$0483	$2C88			GOTO	L_Lcd_Config_1
$0484	$0DF4			RLF	STACK_4, 1
$0485	$1074			BCF	STACK_4, 0
$0486	$3FFF			ADDLW	255
$0487	$2C82			GOTO	L_Lcd_Config_0
$0488	$	L_Lcd_Config_1:
$0488	$0874			MOVF	STACK_4, 0
$0489	$1283			BCF	STATUS, RP0
$048A	$00A4			MOVWF	lcd____mdb7
;lcd.ppas,121 :: 		
$048B	$1683			BSF	STATUS, RP0
$048C	$0838			MOVF	FARG_Lcd_Config+2, 0
$048D	$00F0			MOVWF	STACK_0
$048E	$3001			MOVLW	1
$048F	$00F3			MOVWF	STACK_3
$0490	$0870			MOVF	STACK_0, 0
$0491	$	L_Lcd_Config_2:
$0491	$1903			BTFSC	STATUS, Z
$0492	$2C97			GOTO	L_Lcd_Config_3
$0493	$0DF3			RLF	STACK_3, 1
$0494	$1073			BCF	STACK_3, 0
$0495	$3FFF			ADDLW	255
$0496	$2C91			GOTO	L_Lcd_Config_2
$0497	$	L_Lcd_Config_3:
$0497	$0873			MOVF	STACK_3, 0
$0498	$1283			BCF	STATUS, RP0
$0499	$00A5			MOVWF	lcd____mdb6
;lcd.ppas,122 :: 		
$049A	$1683			BSF	STATUS, RP0
$049B	$0839			MOVF	FARG_Lcd_Config+3, 0
$049C	$00F0			MOVWF	STACK_0
$049D	$3001			MOVLW	1
$049E	$00F2			MOVWF	STACK_2
$049F	$0870			MOVF	STACK_0, 0
$04A0	$	L_Lcd_Config_4:
$04A0	$1903			BTFSC	STATUS, Z
$04A1	$2CA6			GOTO	L_Lcd_Config_5
$04A2	$0DF2			RLF	STACK_2, 1
$04A3	$1072			BCF	STACK_2, 0
$04A4	$3FFF			ADDLW	255
$04A5	$2CA0			GOTO	L_Lcd_Config_4
$04A6	$	L_Lcd_Config_5:
$04A6	$0872			MOVF	STACK_2, 0
$04A7	$1283			BCF	STATUS, RP0
$04A8	$00A6			MOVWF	lcd____mdb5
;lcd.ppas,123 :: 		
$04A9	$1683			BSF	STATUS, RP0
$04AA	$083A			MOVF	FARG_Lcd_Config+4, 0
$04AB	$00F0			MOVWF	STACK_0
$04AC	$3001			MOVLW	1
$04AD	$00F1			MOVWF	STACK_1
$04AE	$0870			MOVF	STACK_0, 0
$04AF	$	L_Lcd_Config_6:
$04AF	$1903			BTFSC	STATUS, Z
$04B0	$2CB5			GOTO	L_Lcd_Config_7
$04B1	$0DF1			RLF	STACK_1, 1
$04B2	$1071			BCF	STACK_1, 0
$04B3	$3FFF			ADDLW	255
$04B4	$2CAF			GOTO	L_Lcd_Config_6
$04B5	$	L_Lcd_Config_7:
$04B5	$0871			MOVF	STACK_1, 0
$04B6	$1283			BCF	STATUS, RP0
$04B7	$00A7			MOVWF	lcd____mdb4
;lcd.ppas,124 :: 		
$04B8	$1683			BSF	STATUS, RP0
$04B9	$083C			MOVF	FARG_Lcd_Config+6, 0
$04BA	$00F0			MOVWF	STACK_0
$04BB	$3001			MOVLW	1
$04BC	$1283			BCF	STATUS, RP0
$04BD	$00A2			MOVWF	lcd____mrs
$04BE	$0870			MOVF	STACK_0, 0
$04BF	$	L_Lcd_Config_8:
$04BF	$1903			BTFSC	STATUS, Z
$04C0	$2CC5			GOTO	L_Lcd_Config_9
$04C1	$0DA2			RLF	lcd____mrs, 1
$04C2	$1022			BCF	lcd____mrs, 0
$04C3	$3FFF			ADDLW	255
$04C4	$2CBF			GOTO	L_Lcd_Config_8
$04C5	$	L_Lcd_Config_9:
;lcd.ppas,125 :: 		
$04C5	$1683			BSF	STATUS, RP0
$04C6	$083D			MOVF	FARG_Lcd_Config+7, 0
$04C7	$00F0			MOVWF	STACK_0
$04C8	$3001			MOVLW	1
$04C9	$1283			BCF	STATUS, RP0
$04CA	$00BF			MOVWF	lcd____mrw
$04CB	$0870			MOVF	STACK_0, 0
$04CC	$	L_Lcd_Config_10:
$04CC	$1903			BTFSC	STATUS, Z
$04CD	$2CD2			GOTO	L_Lcd_Config_11
$04CE	$0DBF			RLF	lcd____mrw, 1
$04CF	$103F			BCF	lcd____mrw, 0
$04D0	$3FFF			ADDLW	255
$04D1	$2CCC			GOTO	L_Lcd_Config_10
$04D2	$	L_Lcd_Config_11:
;lcd.ppas,126 :: 		
$04D2	$1683			BSF	STATUS, RP0
$04D3	$083E			MOVF	FARG_Lcd_Config+8, 0
$04D4	$00F0			MOVWF	STACK_0
$04D5	$3001			MOVLW	1
$04D6	$1283			BCF	STATUS, RP0
$04D7	$00A1			MOVWF	lcd____menable
$04D8	$0870			MOVF	STACK_0, 0
$04D9	$	L_Lcd_Config_12:
$04D9	$1903			BTFSC	STATUS, Z
$04DA	$2CDF			GOTO	L_Lcd_Config_13
$04DB	$0DA1			RLF	lcd____menable, 1
$04DC	$1021			BCF	lcd____menable, 0
$04DD	$3FFF			ADDLW	255
$04DE	$2CD9			GOTO	L_Lcd_Config_12
$04DF	$	L_Lcd_Config_13:
;lcd.ppas,128 :: 		
$04DF	$1683			BSF	STATUS, RP0
$04E0	$0836			MOVF	FARG_Lcd_Config, 0
$04E1	$1283			BCF	STATUS, RP0
$04E2	$00A3			MOVWF	lcd_dataport_address
;lcd.ppas,129 :: 		
$04E3	$1683			BSF	STATUS, RP0
$04E4	$083B			MOVF	FARG_Lcd_Config+5, 0
$04E5	$1283			BCF	STATUS, RP0
$04E6	$00A0			MOVWF	lcd_ctrlport_address
;lcd.ppas,131 :: 		
$04E7	$1683			BSF	STATUS, RP0
$04E8	$0836			MOVF	FARG_Lcd_Config, 0
$04E9	$0084			MOVWF	FSR
;lcd.ppas,133 :: 		
$04EA	$0873			MOVF	STACK_3, 0
$04EB	$0474			IORWF	STACK_4, 0
$04EC	$00F0			MOVWF	STACK_0
$04ED	$0872			MOVF	STACK_2, 0
$04EE	$04F0			IORWF	STACK_0, 1
$04EF	$0871			MOVF	STACK_1, 0
$04F0	$04F0			IORWF	STACK_0, 1
$04F1	$09F0			COMF	STACK_0, F
$04F2	$0870			MOVF	STACK_0, 0
$04F3	$0580			ANDWF	INDF, 1
;lcd.ppas,134 :: 		
$04F4	$	lcd_L_56:
$04F4	$1784			BSF	FSR, 7
$04F5	$	lcd_L_57:
;lcd.ppas,135 :: 		
$04F5	$1283			BCF	STATUS, RP0
$04F6	$0825			MOVF	lcd____mdb6, 0
$04F7	$0424			IORWF	lcd____mdb7, 0
$04F8	$00F0			MOVWF	STACK_0
$04F9	$0826			MOVF	lcd____mdb5, 0
$04FA	$04F0			IORWF	STACK_0, 1
$04FB	$0827			MOVF	lcd____mdb4, 0
$04FC	$04F0			IORWF	STACK_0, 1
$04FD	$09F0			COMF	STACK_0, F
$04FE	$0870			MOVF	STACK_0, 0
$04FF	$0580			ANDWF	INDF, 1
;lcd.ppas,136 :: 		
$0500	$1384			BCF	FSR, 7
$0501	$	lcd_L_59:
;lcd.ppas,139 :: 		
$0501	$0820			MOVF	lcd_ctrlport_address, 0
$0502	$0084			MOVWF	FSR
;lcd.ppas,141 :: 		
$0503	$083F			MOVF	lcd____mrw, 0
$0504	$0422			IORWF	lcd____mrs, 0
$0505	$00F0			MOVWF	STACK_0
$0506	$0821			MOVF	lcd____menable, 0
$0507	$04F0			IORWF	STACK_0, 1
$0508	$09F0			COMF	STACK_0, F
$0509	$0870			MOVF	STACK_0, 0
$050A	$0580			ANDWF	INDF, 1
;lcd.ppas,142 :: 		
$050B	$	lcd_L_60:
$050B	$1784			BSF	FSR, 7
$050C	$	lcd_L_61:
;lcd.ppas,143 :: 		
$050C	$083F			MOVF	lcd____mrw, 0
$050D	$0422			IORWF	lcd____mrs, 0
$050E	$00F0			MOVWF	STACK_0
$050F	$0821			MOVF	lcd____menable, 0
$0510	$04F0			IORWF	STACK_0, 1
$0511	$09F0			COMF	STACK_0, F
$0512	$0870			MOVF	STACK_0, 0
$0513	$0580			ANDWF	INDF, 1
;lcd.ppas,144 :: 		
$0514	$1384			BCF	FSR, 7
$0515	$	lcd_L_63:
;lcd.ppas,148 :: 		
$0515	$0823			MOVF	lcd_dataport_address, 0
$0516	$0084			MOVWF	FSR
;lcd.ppas,149 :: 		
$0517	$0826			MOVF	lcd____mdb5, 0
$0518	$0400			IORWF	INDF, 0
$0519	$00F0			MOVWF	STACK_0
$051A	$0827			MOVF	lcd____mdb4, 0
$051B	$0470			IORWF	STACK_0, 0
$051C	$0080			MOVWF	INDF
;lcd.ppas,151 :: 		
$051D	$0820			MOVF	lcd_ctrlport_address, 0
$051E	$0084			MOVWF	FSR
;lcd.ppas,152 :: 		
$051F	$0821			MOVF	lcd____menable, 0
$0520	$0480			IORWF	INDF, 1
;lcd.ppas,153 :: 		
$0521	$0921			COMF	lcd____menable, W
$0522	$00F0			MOVWF	STACK_0
$0523	$0870			MOVF	STACK_0, 0
$0524	$0580			ANDWF	INDF, 1
;lcd.ppas,155 :: 		
$0525	$158A			BSF	PCLATH, 3
$0526	$2733			CALL	_delay_5500us
$0527	$118A			BCF	PCLATH, 3
;lcd.ppas,160 :: 		
$0528	$0821			MOVF	lcd____menable, 0
$0529	$0480			IORWF	INDF, 1
;lcd.ppas,161 :: 		
$052A	$0921			COMF	lcd____menable, W
$052B	$00F0			MOVWF	STACK_0
$052C	$0870			MOVF	STACK_0, 0
$052D	$0580			ANDWF	INDF, 1
;lcd.ppas,163 :: 		
$052E	$158A			BSF	PCLATH, 3
$052F	$2733			CALL	_delay_5500us
$0530	$118A			BCF	PCLATH, 3
;lcd.ppas,168 :: 		
$0531	$0821			MOVF	lcd____menable, 0
$0532	$0480			IORWF	INDF, 1
;lcd.ppas,169 :: 		
$0533	$0921			COMF	lcd____menable, W
$0534	$00F0			MOVWF	STACK_0
$0535	$0870			MOVF	STACK_0, 0
$0536	$0580			ANDWF	INDF, 1
;lcd.ppas,171 :: 		
$0537	$158A			BSF	PCLATH, 3
$0538	$2733			CALL	_delay_5500us
$0539	$118A			BCF	PCLATH, 3
;lcd.ppas,174 :: 		
$053A	$0823			MOVF	lcd_dataport_address, 0
$053B	$0084			MOVWF	FSR
;lcd.ppas,175 :: 		
$053C	$0826			MOVF	lcd____mdb5, 0
$053D	$0480			IORWF	INDF, 1
;lcd.ppas,176 :: 		
$053E	$0927			COMF	lcd____mdb4, W
$053F	$00F0			MOVWF	STACK_0
$0540	$0870			MOVF	STACK_0, 0
$0541	$0580			ANDWF	INDF, 1
;lcd.ppas,178 :: 		
$0542	$0820			MOVF	lcd_ctrlport_address, 0
$0543	$0084			MOVWF	FSR
;lcd.ppas,179 :: 		
$0544	$0821			MOVF	lcd____menable, 0
$0545	$0480			IORWF	INDF, 1
;lcd.ppas,180 :: 		
$0546	$0921			COMF	lcd____menable, W
$0547	$00F0			MOVWF	STACK_0
$0548	$0870			MOVF	STACK_0, 0
$0549	$0580			ANDWF	INDF, 1
;lcd.ppas,182 :: 		
$054A	$158A			BSF	PCLATH, 3
$054B	$2733			CALL	_delay_5500us
$054C	$118A			BCF	PCLATH, 3
;lcd.ppas,187 :: 		
$054D	$0821			MOVF	lcd____menable, 0
$054E	$0480			IORWF	INDF, 1
;lcd.ppas,188 :: 		
$054F	$0921			COMF	lcd____menable, W
$0550	$00F1			MOVWF	STACK_1
$0551	$0871			MOVF	STACK_1, 0
$0552	$0580			ANDWF	INDF, 1
;lcd.ppas,190 :: 		
$0553	$0823			MOVF	lcd_dataport_address, 0
$0554	$0084			MOVWF	FSR
;lcd.ppas,191 :: 		
$0555	$0926			COMF	lcd____mdb5, W
$0556	$00F0			MOVWF	STACK_0
$0557	$0870			MOVF	STACK_0, 0
$0558	$0580			ANDWF	INDF, 1
;lcd.ppas,192 :: 		
$0559	$0824			MOVF	lcd____mdb7, 0
$055A	$0480			IORWF	INDF, 1
;lcd.ppas,194 :: 		
$055B	$0820			MOVF	lcd_ctrlport_address, 0
$055C	$0084			MOVWF	FSR
;lcd.ppas,195 :: 		
$055D	$0821			MOVF	lcd____menable, 0
$055E	$0480			IORWF	INDF, 1
;lcd.ppas,196 :: 		
$055F	$0871			MOVF	STACK_1, 0
$0560	$0580			ANDWF	INDF, 1
;lcd.ppas,198 :: 		
$0561	$158A			BSF	PCLATH, 3
$0562	$2733			CALL	_delay_5500us
$0563	$118A			BCF	PCLATH, 3
;lcd.ppas,201 :: 		
$0564	$0823			MOVF	lcd_dataport_address, 0
$0565	$0084			MOVWF	FSR
;lcd.ppas,202 :: 		
$0566	$0924			COMF	lcd____mdb7, W
$0567	$00F0			MOVWF	STACK_0
$0568	$0870			MOVF	STACK_0, 0
$0569	$0580			ANDWF	INDF, 1
;lcd.ppas,203 :: 		
$056A	$0827			MOVF	lcd____mdb4, 0
$056B	$0480			IORWF	INDF, 1
;lcd.ppas,204 :: 		
$056C	$0820			MOVF	lcd_ctrlport_address, 0
$056D	$0084			MOVWF	FSR
;lcd.ppas,205 :: 		
$056E	$0821			MOVF	lcd____menable, 0
$056F	$0480			IORWF	INDF, 1
;lcd.ppas,206 :: 		
$0570	$0921			COMF	lcd____menable, W
$0571	$00F1			MOVWF	STACK_1
$0572	$0871			MOVF	STACK_1, 0
$0573	$0580			ANDWF	INDF, 1
;lcd.ppas,207 :: 		
$0574	$0823			MOVF	lcd_dataport_address, 0
$0575	$0084			MOVWF	FSR
;lcd.ppas,208 :: 		
$0576	$0927			COMF	lcd____mdb4, W
$0577	$00F0			MOVWF	STACK_0
$0578	$0870			MOVF	STACK_0, 0
$0579	$0580			ANDWF	INDF, 1
;lcd.ppas,209 :: 		
$057A	$0820			MOVF	lcd_ctrlport_address, 0
$057B	$0084			MOVWF	FSR
;lcd.ppas,210 :: 		
$057C	$0821			MOVF	lcd____menable, 0
$057D	$0480			IORWF	INDF, 1
;lcd.ppas,211 :: 		
$057E	$0871			MOVF	STACK_1, 0
$057F	$0580			ANDWF	INDF, 1
;lcd.ppas,213 :: 		
$0580	$158A			BSF	PCLATH, 3
$0581	$2733			CALL	_delay_5500us
$0582	$118A			BCF	PCLATH, 3
;lcd.ppas,218 :: 		
$0583	$0821			MOVF	lcd____menable, 0
$0584	$0480			IORWF	INDF, 1
;lcd.ppas,219 :: 		
$0585	$0921			COMF	lcd____menable, W
$0586	$00F0			MOVWF	STACK_0
$0587	$0870			MOVF	STACK_0, 0
$0588	$0580			ANDWF	INDF, 1
;lcd.ppas,220 :: 		
$0589	$0823			MOVF	lcd_dataport_address, 0
$058A	$0084			MOVWF	FSR
;lcd.ppas,221 :: 		
$058B	$0827			MOVF	lcd____mdb4, 0
$058C	$0480			IORWF	INDF, 1
;lcd.ppas,222 :: 		
$058D	$0820			MOVF	lcd_ctrlport_address, 0
$058E	$0084			MOVWF	FSR
;lcd.ppas,223 :: 		
$058F	$0821			MOVF	lcd____menable, 0
$0590	$0480			IORWF	INDF, 1
;lcd.ppas,224 :: 		
$0591	$0870			MOVF	STACK_0, 0
$0592	$0580			ANDWF	INDF, 1
;lcd.ppas,226 :: 		
$0593	$158A			BSF	PCLATH, 3
$0594	$2733			CALL	_delay_5500us
$0595	$118A			BCF	PCLATH, 3
;lcd.ppas,229 :: 		
$0596	$0823			MOVF	lcd_dataport_address, 0
$0597	$0084			MOVWF	FSR
;lcd.ppas,230 :: 		
$0598	$0927			COMF	lcd____mdb4, W
$0599	$00F0			MOVWF	STACK_0
$059A	$0870			MOVF	STACK_0, 0
$059B	$0580			ANDWF	INDF, 1
;lcd.ppas,231 :: 		
$059C	$0820			MOVF	lcd_ctrlport_address, 0
$059D	$0084			MOVWF	FSR
;lcd.ppas,232 :: 		
$059E	$0821			MOVF	lcd____menable, 0
$059F	$0480			IORWF	INDF, 1
;lcd.ppas,233 :: 		
$05A0	$0921			COMF	lcd____menable, W
$05A1	$00F1			MOVWF	STACK_1
$05A2	$0871			MOVF	STACK_1, 0
$05A3	$0580			ANDWF	INDF, 1
;lcd.ppas,234 :: 		
$05A4	$0823			MOVF	lcd_dataport_address, 0
$05A5	$0084			MOVWF	FSR
;lcd.ppas,235 :: 		
$05A6	$0827			MOVF	lcd____mdb4, 0
$05A7	$0400			IORWF	INDF, 0
$05A8	$00F0			MOVWF	STACK_0
$05A9	$0826			MOVF	lcd____mdb5, 0
$05AA	$04F0			IORWF	STACK_0, 1
$05AB	$0825			MOVF	lcd____mdb6, 0
$05AC	$04F0			IORWF	STACK_0, 1
$05AD	$0824			MOVF	lcd____mdb7, 0
$05AE	$0470			IORWF	STACK_0, 0
$05AF	$0080			MOVWF	INDF
;lcd.ppas,236 :: 		
$05B0	$0820			MOVF	lcd_ctrlport_address, 0
$05B1	$0084			MOVWF	FSR
;lcd.ppas,237 :: 		
$05B2	$0821			MOVF	lcd____menable, 0
$05B3	$0480			IORWF	INDF, 1
;lcd.ppas,238 :: 		
$05B4	$0871			MOVF	STACK_1, 0
$05B5	$0580			ANDWF	INDF, 1
;lcd.ppas,240 :: 		
$05B6	$158A			BSF	PCLATH, 3
$05B7	$2733			CALL	_delay_5500us
$05B8	$118A			BCF	PCLATH, 3
;lcd.ppas,242 :: 		
$05B9	$3001			MOVLW	1
$05BA	$00A8			MOVWF	lcd_lcdcmd_status
$05BB	$	lcd_L_55:
;lcd.ppas,243 :: 		
$05BB	$0008			RETURN
$089C	$	_mertegy:
;Digitalis_forrasztoallomas.pbas,178 :: 		sub procedure mertegy()
;Digitalis_forrasztoallomas.pbas,179 :: 		if mertekegyseg = 1 then
$089C	$3000			MOVLW	0
$089D	$1303			BCF	STATUS, RP1
$089E	$1283			BCF	STATUS, RP0
$089F	$0641			XORWF	_mertekegyseg+1, 0
$08A0	$1D03			BTFSS	STATUS, Z
$08A1	$28A4			GOTO	L_mertegy_6
$08A2	$3001			MOVLW	1
$08A3	$0640			XORWF	_mertekegyseg, 0
$08A4	$	L_mertegy_6:
$08A4	$1D03			BTFSS	STATUS, Z
$08A5	$28C9			GOTO	Digitalis_forrasztoallomas_L_52
$08A6	$	Digitalis_forrasztoallomas_L_51:
;Digitalis_forrasztoallomas.pbas,180 :: 		fokjel(1, 15)
$08A6	$3001			MOVLW	1
$08A7	$1683			BSF	STATUS, RP0
$08A8	$00C7			MOVWF	FARG_fokjel
$08A9	$300F			MOVLW	15
$08AA	$00C8			MOVWF	FARG_fokjel+1
$08AB	$2411			CALL	_fokjel
;Digitalis_forrasztoallomas.pbas,181 :: 		Lcd_out(1, 16, "C")
$08AC	$3001			MOVLW	1
$08AD	$1683			BSF	STATUS, RP0
$08AE	$00CB			MOVWF	FARG_Lcd_Out
$08AF	$3010			MOVLW	16
$08B0	$00CC			MOVWF	FARG_Lcd_Out+1
$08B1	$3043			MOVLW	67
$08B2	$00B6			MOVWF	?mertegy_Local_Text+0
$08B3	$01B7			CLRF	?mertegy_Local_Text+1
$08B4	$30B6			MOVLW	?mertegy_Local_Text
$08B5	$00CD			MOVWF	FARG_Lcd_Out+2
$08B6	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,182 :: 		fokjel(2, 15)
$08B7	$3002			MOVLW	2
$08B8	$1683			BSF	STATUS, RP0
$08B9	$00C7			MOVWF	FARG_fokjel
$08BA	$300F			MOVLW	15
$08BB	$00C8			MOVWF	FARG_fokjel+1
$08BC	$2411			CALL	_fokjel
;Digitalis_forrasztoallomas.pbas,183 :: 		Lcd_out(2, 16, "C")
$08BD	$3002			MOVLW	2
$08BE	$1683			BSF	STATUS, RP0
$08BF	$00CB			MOVWF	FARG_Lcd_Out
$08C0	$3010			MOVLW	16
$08C1	$00CC			MOVWF	FARG_Lcd_Out+1
$08C2	$3043			MOVLW	67
$08C3	$00B6			MOVWF	?mertegy_Local_Text+0
$08C4	$01B7			CLRF	?mertegy_Local_Text+1
$08C5	$30B6			MOVLW	?mertegy_Local_Text
$08C6	$00CD			MOVWF	FARG_Lcd_Out+2
$08C7	$250F			CALL	_lcd_out
$08C8	$290E			GOTO	Digitalis_forrasztoallomas_L_53
;Digitalis_forrasztoallomas.pbas,184 :: 		else
$08C9	$	Digitalis_forrasztoallomas_L_52:
;Digitalis_forrasztoallomas.pbas,185 :: 		if mertekegyseg = 2 then
$08C9	$3000			MOVLW	0
$08CA	$0641			XORWF	_mertekegyseg+1, 0
$08CB	$1D03			BTFSS	STATUS, Z
$08CC	$28CF			GOTO	L_mertegy_7
$08CD	$3002			MOVLW	2
$08CE	$0640			XORWF	_mertekegyseg, 0
$08CF	$	L_mertegy_7:
$08CF	$1D03			BTFSS	STATUS, Z
$08D0	$28EC			GOTO	Digitalis_forrasztoallomas_L_55
$08D1	$	Digitalis_forrasztoallomas_L_54:
;Digitalis_forrasztoallomas.pbas,186 :: 		Lcd_out(1, 15, " K")
$08D1	$3001			MOVLW	1
$08D2	$1683			BSF	STATUS, RP0
$08D3	$00CB			MOVWF	FARG_Lcd_Out
$08D4	$300F			MOVLW	15
$08D5	$00CC			MOVWF	FARG_Lcd_Out+1
$08D6	$3020			MOVLW	32
$08D7	$00B6			MOVWF	?mertegy_Local_Text+0
$08D8	$304B			MOVLW	75
$08D9	$00B7			MOVWF	?mertegy_Local_Text+1
$08DA	$01B8			CLRF	?mertegy_Local_Text+2
$08DB	$30B6			MOVLW	?mertegy_Local_Text
$08DC	$00CD			MOVWF	FARG_Lcd_Out+2
$08DD	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,187 :: 		Lcd_out(2, 15, " K")
$08DE	$3002			MOVLW	2
$08DF	$1683			BSF	STATUS, RP0
$08E0	$00CB			MOVWF	FARG_Lcd_Out
$08E1	$300F			MOVLW	15
$08E2	$00CC			MOVWF	FARG_Lcd_Out+1
$08E3	$3020			MOVLW	32
$08E4	$00B6			MOVWF	?mertegy_Local_Text+0
$08E5	$304B			MOVLW	75
$08E6	$00B7			MOVWF	?mertegy_Local_Text+1
$08E7	$01B8			CLRF	?mertegy_Local_Text+2
$08E8	$30B6			MOVLW	?mertegy_Local_Text
$08E9	$00CD			MOVWF	FARG_Lcd_Out+2
$08EA	$250F			CALL	_lcd_out
$08EB	$290E			GOTO	Digitalis_forrasztoallomas_L_56
;Digitalis_forrasztoallomas.pbas,188 :: 		else
$08EC	$	Digitalis_forrasztoallomas_L_55:
;Digitalis_forrasztoallomas.pbas,189 :: 		fokjel(1, 15)
$08EC	$3001			MOVLW	1
$08ED	$1683			BSF	STATUS, RP0
$08EE	$00C7			MOVWF	FARG_fokjel
$08EF	$300F			MOVLW	15
$08F0	$00C8			MOVWF	FARG_fokjel+1
$08F1	$2411			CALL	_fokjel
;Digitalis_forrasztoallomas.pbas,190 :: 		Lcd_out(1, 16, "F")
$08F2	$3001			MOVLW	1
$08F3	$1683			BSF	STATUS, RP0
$08F4	$00CB			MOVWF	FARG_Lcd_Out
$08F5	$3010			MOVLW	16
$08F6	$00CC			MOVWF	FARG_Lcd_Out+1
$08F7	$3046			MOVLW	70
$08F8	$00B6			MOVWF	?mertegy_Local_Text+0
$08F9	$01B7			CLRF	?mertegy_Local_Text+1
$08FA	$30B6			MOVLW	?mertegy_Local_Text
$08FB	$00CD			MOVWF	FARG_Lcd_Out+2
$08FC	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,191 :: 		fokjel(2, 15)
$08FD	$3002			MOVLW	2
$08FE	$1683			BSF	STATUS, RP0
$08FF	$00C7			MOVWF	FARG_fokjel
$0900	$300F			MOVLW	15
$0901	$00C8			MOVWF	FARG_fokjel+1
$0902	$2411			CALL	_fokjel
;Digitalis_forrasztoallomas.pbas,192 :: 		Lcd_out(2, 16, "F")
$0903	$3002			MOVLW	2
$0904	$1683			BSF	STATUS, RP0
$0905	$00CB			MOVWF	FARG_Lcd_Out
$0906	$3010			MOVLW	16
$0907	$00CC			MOVWF	FARG_Lcd_Out+1
$0908	$3046			MOVLW	70
$0909	$00B6			MOVWF	?mertegy_Local_Text+0
$090A	$01B7			CLRF	?mertegy_Local_Text+1
$090B	$30B6			MOVLW	?mertegy_Local_Text
$090C	$00CD			MOVWF	FARG_Lcd_Out+2
$090D	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,193 :: 		end if
$090E	$	Digitalis_forrasztoallomas_L_56:
;Digitalis_forrasztoallomas.pbas,194 :: 		end if
$090E	$	Digitalis_forrasztoallomas_L_53:
$090E	$	Digitalis_forrasztoallomas_L_50:
$090E	$0008			RETURN
$0E36	$	_kiir_valos:
;Digitalis_forrasztoallomas.pbas,105 :: 		sub procedure kiir_valos()
;Digitalis_forrasztoallomas.pbas,106 :: 		Lcd_out(2, 1, "Val s:          ")
$0E36	$3002			MOVLW	2
$0E37	$1303			BCF	STATUS, RP1
$0E38	$1683			BSF	STATUS, RP0
$0E39	$00CB			MOVWF	FARG_Lcd_Out
$0E3A	$3001			MOVLW	1
$0E3B	$00CC			MOVWF	FARG_Lcd_Out+1
$0E3C	$3056			MOVLW	86
$0E3D	$00B6			MOVWF	?kiir_valos_Local_Text+0
$0E3E	$3061			MOVLW	97
$0E3F	$00B7			MOVWF	?kiir_valos_Local_Text+1
$0E40	$306C			MOVLW	108
$0E41	$00B8			MOVWF	?kiir_valos_Local_Text+2
$0E42	$3020			MOVLW	32
$0E43	$00B9			MOVWF	?kiir_valos_Local_Text+3
$0E44	$3073			MOVLW	115
$0E45	$00BA			MOVWF	?kiir_valos_Local_Text+4
$0E46	$303A			MOVLW	58
$0E47	$00BB			MOVWF	?kiir_valos_Local_Text+5
$0E48	$3020			MOVLW	32
$0E49	$00BC			MOVWF	?kiir_valos_Local_Text+6
$0E4A	$3020			MOVLW	32
$0E4B	$00BD			MOVWF	?kiir_valos_Local_Text+7
$0E4C	$3020			MOVLW	32
$0E4D	$00BE			MOVWF	?kiir_valos_Local_Text+8
$0E4E	$3020			MOVLW	32
$0E4F	$00BF			MOVWF	?kiir_valos_Local_Text+9
$0E50	$3020			MOVLW	32
$0E51	$00C0			MOVWF	?kiir_valos_Local_Text+10
$0E52	$3020			MOVLW	32
$0E53	$00C1			MOVWF	?kiir_valos_Local_Text+11
$0E54	$3020			MOVLW	32
$0E55	$00C2			MOVWF	?kiir_valos_Local_Text+12
$0E56	$3020			MOVLW	32
$0E57	$00C3			MOVWF	?kiir_valos_Local_Text+13
$0E58	$3020			MOVLW	32
$0E59	$00C4			MOVWF	?kiir_valos_Local_Text+14
$0E5A	$3020			MOVLW	32
$0E5B	$00C5			MOVWF	?kiir_valos_Local_Text+15
$0E5C	$01C6			CLRF	?kiir_valos_Local_Text+16
$0E5D	$30B6			MOVLW	?kiir_valos_Local_Text
$0E5E	$00CD			MOVWF	FARG_Lcd_Out+2
$0E5F	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,107 :: 		o(2, 4)
$0E60	$3002			MOVLW	2
$0E61	$1683			BSF	STATUS, RP0
$0E62	$00C7			MOVWF	FARG_o
$0E63	$3004			MOVLW	4
$0E64	$00C8			MOVWF	FARG_o+1
$0E65	$244F			CALL	_o
$0E66	$	Digitalis_forrasztoallomas_L_32:
$0E66	$0008			RETURN
$0D95	$	_kiir_kivant:
;Digitalis_forrasztoallomas.pbas,78 :: 		sub procedure kiir_kivant()
;Digitalis_forrasztoallomas.pbas,79 :: 		Lcd_out(1, 1, "K v nt:         ")
$0D95	$3001			MOVLW	1
$0D96	$1303			BCF	STATUS, RP1
$0D97	$1683			BSF	STATUS, RP0
$0D98	$00CB			MOVWF	FARG_Lcd_Out
$0D99	$3001			MOVLW	1
$0D9A	$00CC			MOVWF	FARG_Lcd_Out+1
$0D9B	$304B			MOVLW	75
$0D9C	$00B6			MOVWF	?kiir_kivant_Local_Text+0
$0D9D	$3020			MOVLW	32
$0D9E	$00B7			MOVWF	?kiir_kivant_Local_Text+1
$0D9F	$3076			MOVLW	118
$0DA0	$00B8			MOVWF	?kiir_kivant_Local_Text+2
$0DA1	$3020			MOVLW	32
$0DA2	$00B9			MOVWF	?kiir_kivant_Local_Text+3
$0DA3	$306E			MOVLW	110
$0DA4	$00BA			MOVWF	?kiir_kivant_Local_Text+4
$0DA5	$3074			MOVLW	116
$0DA6	$00BB			MOVWF	?kiir_kivant_Local_Text+5
$0DA7	$303A			MOVLW	58
$0DA8	$00BC			MOVWF	?kiir_kivant_Local_Text+6
$0DA9	$3020			MOVLW	32
$0DAA	$00BD			MOVWF	?kiir_kivant_Local_Text+7
$0DAB	$3020			MOVLW	32
$0DAC	$00BE			MOVWF	?kiir_kivant_Local_Text+8
$0DAD	$3020			MOVLW	32
$0DAE	$00BF			MOVWF	?kiir_kivant_Local_Text+9
$0DAF	$3020			MOVLW	32
$0DB0	$00C0			MOVWF	?kiir_kivant_Local_Text+10
$0DB1	$3020			MOVLW	32
$0DB2	$00C1			MOVWF	?kiir_kivant_Local_Text+11
$0DB3	$3020			MOVLW	32
$0DB4	$00C2			MOVWF	?kiir_kivant_Local_Text+12
$0DB5	$3020			MOVLW	32
$0DB6	$00C3			MOVWF	?kiir_kivant_Local_Text+13
$0DB7	$3020			MOVLW	32
$0DB8	$00C4			MOVWF	?kiir_kivant_Local_Text+14
$0DB9	$3020			MOVLW	32
$0DBA	$00C5			MOVWF	?kiir_kivant_Local_Text+15
$0DBB	$01C6			CLRF	?kiir_kivant_Local_Text+16
$0DBC	$30B6			MOVLW	?kiir_kivant_Local_Text
$0DBD	$00CD			MOVWF	FARG_Lcd_Out+2
$0DBE	$250F			CALL	_lcd_out
;Digitalis_forrasztoallomas.pbas,80 :: 		i(1, 2)
$0DBF	$3001			MOVLW	1
$0DC0	$1683			BSF	STATUS, RP0
$0DC1	$00C7			MOVWF	FARG_i
$0DC2	$3002			MOVLW	2
$0DC3	$00C8			MOVWF	FARG_i+1
$0DC4	$248D			CALL	_i
;Digitalis_forrasztoallomas.pbas,81 :: 		a(1, 4)
$0DC5	$3001			MOVLW	1
$0DC6	$1683			BSF	STATUS, RP0
$0DC7	$00C7			MOVWF	FARG_a
$0DC8	$3004			MOVLW	4
$0DC9	$00C8			MOVWF	FARG_a+1
$0DCA	$23D3			CALL	_a
$0DCB	$	Digitalis_forrasztoallomas_L_28:
$0DCB	$0008			RETURN
$0E67	$	_kivant:
;Digitalis_forrasztoallomas.pbas,131 :: 		sub procedure kivant()
;Digitalis_forrasztoallomas.pbas,132 :: 		if mertekegyseg = 1 then
$0E67	$3000			MOVLW	0
$0E68	$1303			BCF	STATUS, RP1
$0E69	$1283			BCF	STATUS, RP0
$0E6A	$0641			XORWF	_mertekegyseg+1, 0
$0E6B	$1D03			BTFSS	STATUS, Z
$0E6C	$2E6F			GOTO	L_kivant_2
$0E6D	$3001			MOVLW	1
$0E6E	$0640			XORWF	_mertekegyseg, 0
$0E6F	$	L_kivant_2:
$0E6F	$1D03			BTFSS	STATUS, Z
$0E70	$2E73			GOTO	Digitalis_forrasztoallomas_L_38
$0E71	$	Digitalis_forrasztoallomas_L_37:
;Digitalis_forrasztoallomas.pbas,133 :: 		kivant_celsius()
$0E71	$269C			CALL	_kivant_celsius
$0E72	$2E7E			GOTO	Digitalis_forrasztoallomas_L_39
;Digitalis_forrasztoallomas.pbas,134 :: 		else
$0E73	$	Digitalis_forrasztoallomas_L_38:
;Digitalis_forrasztoallomas.pbas,135 :: 		if mertekegyseg = 2 then
$0E73	$3000			MOVLW	0
$0E74	$0641			XORWF	_mertekegyseg+1, 0
$0E75	$1D03			BTFSS	STATUS, Z
$0E76	$2E79			GOTO	L_kivant_3
$0E77	$3002			MOVLW	2
$0E78	$0640			XORWF	_mertekegyseg, 0
$0E79	$	L_kivant_3:
$0E79	$1D03			BTFSS	STATUS, Z
$0E7A	$2E7D			GOTO	Digitalis_forrasztoallomas_L_41
$0E7B	$	Digitalis_forrasztoallomas_L_40:
;Digitalis_forrasztoallomas.pbas,136 :: 		kivant_kelvin()
$0E7B	$235F			CALL	_kivant_kelvin
$0E7C	$2E7E			GOTO	Digitalis_forrasztoallomas_L_42
;Digitalis_forrasztoallomas.pbas,137 :: 		else
$0E7D	$	Digitalis_forrasztoallomas_L_41:
;Digitalis_forrasztoallomas.pbas,138 :: 		kivant_fahrenheit()
$0E7D	$210F			CALL	_kivant_fahrenheit
;Digitalis_forrasztoallomas.pbas,139 :: 		end if
$0E7E	$	Digitalis_forrasztoallomas_L_42:
;Digitalis_forrasztoallomas.pbas,140 :: 		end if
$0E7E	$	Digitalis_forrasztoallomas_L_39:
$0E7E	$	Digitalis_forrasztoallomas_L_36:
$0E7E	$0008			RETURN
$02B8	$	_valos:
;Digitalis_forrasztoallomas.pbas,144 :: 		sub procedure valos()
;Digitalis_forrasztoallomas.pbas,145 :: 		adcon0=%10001001                                                              'AN1 analóg csatorna
$02B8	$3089			MOVLW	137
$02B9	$1303			BCF	STATUS, RP1
$02BA	$1283			BCF	STATUS, RP0
$02BB	$009F			MOVWF	ADCON0
;Digitalis_forrasztoallomas.pbas,146 :: 		Delay_ms(1)                                                                   'adatgyűjtési idő
$02BC	$3007			MOVLW	7
$02BD	$00FB			MOVWF	STACK_11
$02BE	$30FF			MOVLW	255
$02BF	$00FA			MOVWF	STACK_10
$02C0	$0BFB			DECFSZ	STACK_11, F
$02C1	$2AC3			GOTO	$+2
$02C2	$2AC6			GOTO	$+4
$02C3	$0BFA			DECFSZ	STACK_10, F
$02C4	$2AC3			GOTO	$-1
$02C5	$2AC0			GOTO	$-5
$02C6	$3078			MOVLW	120
$02C7	$00FA			MOVWF	STACK_10
$02C8	$0BFA			DECFSZ	STACK_10, F
$02C9	$2AC8			GOTO	$-1
$02CA	$0000			NOP
$02CB	$0000			NOP
;Digitalis_forrasztoallomas.pbas,147 :: 		adcon0=%10001101                                                              'konverzió indul - GO/DONE bit 1
$02CC	$308D			MOVLW	141
$02CD	$009F			MOVWF	ADCON0
;Digitalis_forrasztoallomas.pbas,148 :: 		Delay_ms(1)                                                                   'konverzió befejeződéséig várakozás
$02CE	$3007			MOVLW	7
$02CF	$00FB			MOVWF	STACK_11
$02D0	$30FF			MOVLW	255
$02D1	$00FA			MOVWF	STACK_10
$02D2	$0BFB			DECFSZ	STACK_11, F
$02D3	$2AD5			GOTO	$+2
$02D4	$2AD8			GOTO	$+4
$02D5	$0BFA			DECFSZ	STACK_10, F
$02D6	$2AD5			GOTO	$-1
$02D7	$2AD2			GOTO	$-5
$02D8	$3078			MOVLW	120
$02D9	$00FA			MOVWF	STACK_10
$02DA	$0BFA			DECFSZ	STACK_10, F
$02DB	$2ADA			GOTO	$-1
$02DC	$0000			NOP
$02DD	$0000			NOP
;Digitalis_forrasztoallomas.pbas,149 :: 		adc1 = Adc_Read(1)                                                            'feszültség meghatározása az
$02DE	$3001			MOVLW	1
$02DF	$1683			BSF	STATUS, RP0
$02E0	$00C7			MOVWF	FARG_ADC_read
$02E1	$158A			BSF	PCLATH, 3
$02E2	$2553			CALL	_adc_read
$02E3	$118A			BCF	PCLATH, 3
$02E4	$158A			BSF	PCLATH, 3
$02E5	$26DF			CALL	_word2double
$02E6	$118A			BCF	PCLATH, 3
$02E7	$0870			MOVF	STACK_0, 0
$02E8	$1683			BSF	STATUS, RP0
$02E9	$00B6			MOVWF	FLOC_valos+0
$02EA	$0871			MOVF	STACK_0+1, 0
$02EB	$00B7			MOVWF	FLOC_valos+1
$02EC	$0872			MOVF	STACK_0+2, 0
$02ED	$00B8			MOVWF	FLOC_valos+2
$02EE	$0873			MOVF	STACK_0+3, 0
$02EF	$00B9			MOVWF	FLOC_valos+3
$02F0	$0836			MOVF	FLOC_valos+0, 0
$02F1	$1283			BCF	STATUS, RP0
$02F2	$00C2			MOVWF	_adc1
$02F3	$1683			BSF	STATUS, RP0
$02F4	$0837			MOVF	FLOC_valos+1, 0
$02F5	$1283			BCF	STATUS, RP0
$02F6	$00C3			MOVWF	_adc1+1
$02F7	$1683			BSF	STATUS, RP0
$02F8	$0838			MOVF	FLOC_valos+2, 0
$02F9	$1283			BCF	STATUS, RP0
$02FA	$00C4			MOVWF	_adc1+2
$02FB	$1683			BSF	STATUS, RP0
$02FC	$0839			MOVF	FLOC_valos+3, 0
$02FD	$1283			BCF	STATUS, RP0
$02FE	$00C5			MOVWF	_adc1+3
;Digitalis_forrasztoallomas.pbas,150 :: 		egy = adc1*5/1024                                                             'AN1-en
$02FF	$3005			MOVLW	5
$0300	$00F0			MOVWF	STACK_0
$0301	$158A			BSF	PCLATH, 3
$0302	$270F			CALL	_byte2double
$0303	$118A			BCF	PCLATH, 3
$0304	$1683			BSF	STATUS, RP0
$0305	$0836			MOVF	FLOC_valos+0, 0
$0306	$00F4			MOVWF	STACK_4
$0307	$0837			MOVF	FLOC_valos+1, 0
$0308	$00F5			MOVWF	STACK_4+1
$0309	$0838			MOVF	FLOC_valos+2, 0
$030A	$00F6			MOVWF	STACK_4+2
$030B	$0839			MOVF	FLOC_valos+3, 0
$030C	$00F7			MOVWF	STACK_4+3
$030D	$158A			BSF	PCLATH, 3
$030E	$21E7			CALL	_mul_32x32_fp
$030F	$118A			BCF	PCLATH, 3
$0310	$0870			MOVF	STACK_0, 0
$0311	$1683			BSF	STATUS, RP0
$0312	$00B6			MOVWF	FLOC_valos+0
$0313	$0871			MOVF	STACK_0+1, 0
$0314	$00B7			MOVWF	FLOC_valos+1
$0315	$0872			MOVF	STACK_0+2, 0
$0316	$00B8			MOVWF	FLOC_valos+2
$0317	$0873			MOVF	STACK_0+3, 0
$0318	$00B9			MOVWF	FLOC_valos+3
$0319	$3000			MOVLW	0
$031A	$00F0			MOVWF	STACK_0
$031B	$3004			MOVLW	4
$031C	$00F1			MOVWF	STACK_0+1
$031D	$158A			BSF	PCLATH, 3
$031E	$26DF			CALL	_word2double
$031F	$118A			BCF	PCLATH, 3
$0320	$0870			MOVF	STACK_0, 0
$0321	$00F4			MOVWF	STACK_4
$0322	$0871			MOVF	STACK_0+1, 0
$0323	$00F5			MOVWF	STACK_4+1
$0324	$0872			MOVF	STACK_0+2, 0
$0325	$00F6			MOVWF	STACK_4+2
$0326	$0873			MOVF	STACK_0+3, 0
$0327	$00F7			MOVWF	STACK_4+3
$0328	$1683			BSF	STATUS, RP0
$0329	$0836			MOVF	FLOC_valos+0, 0
$032A	$00F0			MOVWF	STACK_0
$032B	$0837			MOVF	FLOC_valos+1, 0
$032C	$00F1			MOVWF	STACK_0+1
$032D	$0838			MOVF	FLOC_valos+2, 0
$032E	$00F2			MOVWF	STACK_0+2
$032F	$0839			MOVF	FLOC_valos+3, 0
$0330	$00F3			MOVWF	STACK_0+3
$0331	$158A			BSF	PCLATH, 3
$0332	$2000			CALL	_div_32x32_fp
$0333	$118A			BCF	PCLATH, 3
$0334	$0870			MOVF	STACK_0, 0
$0335	$00C6			MOVWF	_egy
$0336	$0871			MOVF	STACK_0+1, 0
$0337	$00C7			MOVWF	_egy+1
$0338	$0872			MOVF	STACK_0+2, 0
$0339	$00C8			MOVWF	_egy+2
$033A	$0873			MOVF	STACK_0+3, 0
$033B	$00C9			MOVWF	_egy+3
;Digitalis_forrasztoallomas.pbas,151 :: 		adcon0=%10000001                                                              'AN0 analóg csatorna
$033C	$3081			MOVLW	129
$033D	$009F			MOVWF	ADCON0
;Digitalis_forrasztoallomas.pbas,152 :: 		Delay_ms(1)                                                                   'adatgyűjtési idő
$033E	$3007			MOVLW	7
$033F	$00FB			MOVWF	STACK_11
$0340	$30FF			MOVLW	255
$0341	$00FA			MOVWF	STACK_10
$0342	$0BFB			DECFSZ	STACK_11, F
$0343	$2B45			GOTO	$+2
$0344	$2B48			GOTO	$+4
$0345	$0BFA			DECFSZ	STACK_10, F
$0346	$2B45			GOTO	$-1
$0347	$2B42			GOTO	$-5
$0348	$3078			MOVLW	120
$0349	$00FA			MOVWF	STACK_10
$034A	$0BFA			DECFSZ	STACK_10, F
$034B	$2B4A			GOTO	$-1
$034C	$0000			NOP
$034D	$0000			NOP
;Digitalis_forrasztoallomas.pbas,153 :: 		adcon0=%10000101                                                              'konverzió indul - GO/DONE bit 1
$034E	$3085			MOVLW	133
$034F	$009F			MOVWF	ADCON0
;Digitalis_forrasztoallomas.pbas,154 :: 		Delay_ms(1)                                                                   'konverzió befejeződéséig várakozás
$0350	$3007			MOVLW	7
$0351	$00FB			MOVWF	STACK_11
$0352	$30FF			MOVLW	255
$0353	$00FA			MOVWF	STACK_10
$0354	$0BFB			DECFSZ	STACK_11, F
$0355	$2B57			GOTO	$+2
$0356	$2B5A			GOTO	$+4
$0357	$0BFA			DECFSZ	STACK_10, F
$0358	$2B57			GOTO	$-1
$0359	$2B54			GOTO	$-5
$035A	$3078			MOVLW	120
$035B	$00FA			MOVWF	STACK_10
$035C	$0BFA			DECFSZ	STACK_10, F
$035D	$2B5C			GOTO	$-1
$035E	$0000			NOP
$035F	$0000			NOP
;Digitalis_forrasztoallomas.pbas,155 :: 		adc0 = Adc_Read(0)                                                            'feszültség meghatározása az
$0360	$1683			BSF	STATUS, RP0
$0361	$01C7			CLRF	FARG_ADC_read, 1
$0362	$158A			BSF	PCLATH, 3
$0363	$2553			CALL	_adc_read
$0364	$118A			BCF	PCLATH, 3
$0365	$158A			BSF	PCLATH, 3
$0366	$26DF			CALL	_word2double
$0367	$118A			BCF	PCLATH, 3
$0368	$0870			MOVF	STACK_0, 0
$0369	$1683			BSF	STATUS, RP0
$036A	$00B6			MOVWF	FLOC_valos+0
$036B	$0871			MOVF	STACK_0+1, 0
$036C	$00B7			MOVWF	FLOC_valos+1
$036D	$0872			MOVF	STACK_0+2, 0
$036E	$00B8			MOVWF	FLOC_valos+2
$036F	$0873			MOVF	STACK_0+3, 0
$0370	$00B9			MOVWF	FLOC_valos+3
$0371	$0836			MOVF	FLOC_valos+0, 0
$0372	$1283			BCF	STATUS, RP0
$0373	$00CA			MOVWF	_adc0
$0374	$1683			BSF	STATUS, RP0
$0375	$0837			MOVF	FLOC_valos+1, 0
$0376	$1283			BCF	STATUS, RP0
$0377	$00CB			MOVWF	_adc0+1
$0378	$1683			BSF	STATUS, RP0
$0379	$0838			MOVF	FLOC_valos+2, 0
$037A	$1283			BCF	STATUS, RP0
$037B	$00CC			MOVWF	_adc0+2
$037C	$1683			BSF	STATUS, RP0
$037D	$0839			MOVF	FLOC_valos+3, 0
$037E	$1283			BCF	STATUS, RP0
$037F	$00CD			MOVWF	_adc0+3
;Digitalis_forrasztoallomas.pbas,156 :: 		ketto = adc0*5/1024                                                           'AN0-án
$0380	$3005			MOVLW	5
$0381	$00F0			MOVWF	STACK_0
$0382	$158A			BSF	PCLATH, 3
$0383	$270F			CALL	_byte2double
$0384	$118A			BCF	PCLATH, 3
$0385	$1683			BSF	STATUS, RP0
$0386	$0836			MOVF	FLOC_valos+0, 0
$0387	$00F4			MOVWF	STACK_4
$0388	$0837			MOVF	FLOC_valos+1, 0
$0389	$00F5			MOVWF	STACK_4+1
$038A	$0838			MOVF	FLOC_valos+2, 0
$038B	$00F6			MOVWF	STACK_4+2
$038C	$0839			MOVF	FLOC_valos+3, 0
$038D	$00F7			MOVWF	STACK_4+3
$038E	$158A			BSF	PCLATH, 3
$038F	$21E7			CALL	_mul_32x32_fp
$0390	$118A			BCF	PCLATH, 3
$0391	$0870			MOVF	STACK_0, 0
$0392	$1683			BSF	STATUS, RP0
$0393	$00B6			MOVWF	FLOC_valos+0
$0394	$0871			MOVF	STACK_0+1, 0
$0395	$00B7			MOVWF	FLOC_valos+1
$0396	$0872			MOVF	STACK_0+2, 0
$0397	$00B8			MOVWF	FLOC_valos+2
$0398	$0873			MOVF	STACK_0+3, 0
$0399	$00B9			MOVWF	FLOC_valos+3
$039A	$3000			MOVLW	0
$039B	$00F0			MOVWF	STACK_0
$039C	$3004			MOVLW	4
$039D	$00F1			MOVWF	STACK_0+1
$039E	$158A			BSF	PCLATH, 3
$039F	$26DF			CALL	_word2double
$03A0	$118A			BCF	PCLATH, 3
$03A1	$0870			MOVF	STACK_0, 0
$03A2	$00F4			MOVWF	STACK_4
$03A3	$0871			MOVF	STACK_0+1, 0
$03A4	$00F5			MOVWF	STACK_4+1
$03A5	$0872			MOVF	STACK_0+2, 0
$03A6	$00F6			MOVWF	STACK_4+2
$03A7	$0873			MOVF	STACK_0+3, 0
$03A8	$00F7			MOVWF	STACK_4+3
$03A9	$1683			BSF	STATUS, RP0
$03AA	$0836			MOVF	FLOC_valos+0, 0
$03AB	$00F0			MOVWF	STACK_0
$03AC	$0837			MOVF	FLOC_valos+1, 0
$03AD	$00F1			MOVWF	STACK_0+1
$03AE	$0838			MOVF	FLOC_valos+2, 0
$03AF	$00F2			MOVWF	STACK_0+2
$03B0	$0839			MOVF	FLOC_valos+3, 0
$03B1	$00F3			MOVWF	STACK_0+3
$03B2	$158A			BSF	PCLATH, 3
$03B3	$2000			CALL	_div_32x32_fp
$03B4	$118A			BCF	PCLATH, 3
$03B5	$0870			MOVF	STACK_0, 0
$03B6	$1683			BSF	STATUS, RP0
$03B7	$00BA			MOVWF	FLOC_valos+4
$03B8	$0871			MOVF	STACK_0+1, 0
$03B9	$00BB			MOVWF	FLOC_valos+5
$03BA	$0872			MOVF	STACK_0+2, 0
$03BB	$00BC			MOVWF	FLOC_valos+6
$03BC	$0873			MOVF	STACK_0+3, 0
$03BD	$00BD			MOVWF	FLOC_valos+7
$03BE	$083A			MOVF	FLOC_valos+4, 0
$03BF	$1283			BCF	STATUS, RP0
$03C0	$00CE			MOVWF	_ketto
$03C1	$1683			BSF	STATUS, RP0
$03C2	$083B			MOVF	FLOC_valos+5, 0
$03C3	$1283			BCF	STATUS, RP0
$03C4	$00CF			MOVWF	_ketto+1
$03C5	$1683			BSF	STATUS, RP0
$03C6	$083C			MOVF	FLOC_valos+6, 0
$03C7	$1283			BCF	STATUS, RP0
$03C8	$00D0			MOVWF	_ketto+2
$03C9	$1683			BSF	STATUS, RP0
$03CA	$083D			MOVF	FLOC_valos+7, 0
$03CB	$1283			BCF	STATUS, RP0
$03CC	$00D1			MOVWF	_ketto+3
;Digitalis_forrasztoallomas.pbas,158 :: 		seebeck = 203/25000                                                           'seebeck állandó
$03CD	$30C0			MOVLW	192
$03CE	$00D2			MOVWF	_seebeck
$03CF	$3009			MOVLW	9
$03D0	$00D3			MOVWF	_seebeck+1
$03D1	$3005			MOVLW	5
$03D2	$00D4			MOVWF	_seebeck+2
$03D3	$3078			MOVLW	120
$03D4	$00D5			MOVWF	_seebeck+3
;Digitalis_forrasztoallomas.pbas,159 :: 		harom = egy - uoffs18                                                         'hőelemen mért feszültség kompenzálása offset feszültség kivonásával
$03D5	$085A			MOVF	_uoffs18, 0
$03D6	$00F4			MOVWF	STACK_4
$03D7	$085B			MOVF	_uoffs18+1, 0
$03D8	$00F5			MOVWF	STACK_4+1
$03D9	$085C			MOVF	_uoffs18+2, 0
$03DA	$00F6			MOVWF	STACK_4+2
$03DB	$085D			MOVF	_uoffs18+3, 0
$03DC	$00F7			MOVWF	STACK_4+3
$03DD	$0846			MOVF	_egy, 0
$03DE	$00F0			MOVWF	STACK_0
$03DF	$0847			MOVF	_egy+1, 0
$03E0	$00F1			MOVWF	STACK_0+1
$03E1	$0848			MOVF	_egy+2, 0
$03E2	$00F2			MOVWF	STACK_0+2
$03E3	$0849			MOVF	_egy+3, 0
$03E4	$00F3			MOVWF	STACK_0+3
$03E5	$2733			CALL	_sub_32x32_fp
$03E6	$0870			MOVF	STACK_0, 0
$03E7	$00D6			MOVWF	_harom
$03E8	$0871			MOVF	STACK_0+1, 0
$03E9	$00D7			MOVWF	_harom+1
$03EA	$0872			MOVF	STACK_0+2, 0
$03EB	$00D8			MOVWF	_harom+2
$03EC	$0873			MOVF	STACK_0+3, 0
$03ED	$00D9			MOVWF	_harom+3
;Digitalis_forrasztoallomas.pbas,160 :: 		negy = harom/seebeck                                                          'művelet
$03EE	$30C0			MOVLW	192
$03EF	$00F4			MOVWF	STACK_4
$03F0	$3009			MOVLW	9
$03F1	$00F5			MOVWF	STACK_4+1
$03F2	$3005			MOVLW	5
$03F3	$00F6			MOVWF	STACK_4+2
$03F4	$3078			MOVLW	120
$03F5	$00F7			MOVWF	STACK_4+3
$03F6	$158A			BSF	PCLATH, 3
$03F7	$2000			CALL	_div_32x32_fp
$03F8	$118A			BCF	PCLATH, 3
$03F9	$0870			MOVF	STACK_0, 0
$03FA	$1683			BSF	STATUS, RP0
$03FB	$00B6			MOVWF	FLOC_valos+0
$03FC	$0871			MOVF	STACK_0+1, 0
$03FD	$00B7			MOVWF	FLOC_valos+1
$03FE	$0872			MOVF	STACK_0+2, 0
$03FF	$00B8			MOVWF	FLOC_valos+2
$0400	$0873			MOVF	STACK_0+3, 0
$0401	$00B9			MOVWF	FLOC_valos+3
$0402	$0836			MOVF	FLOC_valos+0, 0
$0403	$1283			BCF	STATUS, RP0
$0404	$00DE			MOVWF	_negy
$0405	$1683			BSF	STATUS, RP0
$0406	$0837			MOVF	FLOC_valos+1, 0
$0407	$1283			BCF	STATUS, RP0
$0408	$00DF			MOVWF	_negy+1
$0409	$1683			BSF	STATUS, RP0
$040A	$0838			MOVF	FLOC_valos+2, 0
$040B	$1283			BCF	STATUS, RP0
$040C	$00E0			MOVWF	_negy+2
$040D	$1683			BSF	STATUS, RP0
$040E	$0839			MOVF	FLOC_valos+3, 0
$040F	$1283			BCF	STATUS, RP0
$0410	$00E1			MOVWF	_negy+3
;Digitalis_forrasztoallomas.pbas,161 :: 		ot = ketto-u0                                                                 'művelet, termisztoron mért feszültségből kivonja a 0 °C-on mért feszültséget(offset feszültséggel együtt)
$0411	$0866			MOVF	_u0, 0
$0412	$00F4			MOVWF	STACK_4
$0413	$0867			MOVF	_u0+1, 0
$0414	$00F5			MOVWF	STACK_4+1
$0415	$0868			MOVF	_u0+2, 0
$0416	$00F6			MOVWF	STACK_4+2
$0417	$0869			MOVF	_u0+3, 0
$0418	$00F7			MOVWF	STACK_4+3
$0419	$1683			BSF	STATUS, RP0
$041A	$083A			MOVF	FLOC_valos+4, 0
$041B	$00F0			MOVWF	STACK_0
$041C	$083B			MOVF	FLOC_valos+5, 0
$041D	$00F1			MOVWF	STACK_0+1
$041E	$083C			MOVF	FLOC_valos+6, 0
$041F	$00F2			MOVWF	STACK_0+2
$0420	$083D			MOVF	FLOC_valos+7, 0
$0421	$00F3			MOVWF	STACK_0+3
$0422	$2733			CALL	_sub_32x32_fp
$0423	$0870			MOVF	STACK_0, 0
$0424	$00E2			MOVWF	_ot
$0425	$0871			MOVF	STACK_0+1, 0
$0426	$00E3			MOVWF	_ot+1
$0427	$0872			MOVF	STACK_0+2, 0
$0428	$00E4			MOVWF	_ot+2
$0429	$0873			MOVF	STACK_0+3, 0
$042A	$00E5			MOVWF	_ot+3
;Digitalis_forrasztoallomas.pbas,162 :: 		term = 571/100000                                                             'termisztorra jellemző állandó
$042B	$30F4			MOVLW	244
$042C	$00EA			MOVWF	_term
$042D	$301A			MOVLW	26
$042E	$00EB			MOVWF	_term+1
$042F	$303B			MOVLW	59
$0430	$00EC			MOVWF	_term+2
$0431	$3077			MOVLW	119
$0432	$00ED			MOVWF	_term+3
;Digitalis_forrasztoallomas.pbas,163 :: 		hat = ot/term                                                                 'művelet
$0433	$30F4			MOVLW	244
$0434	$00F4			MOVWF	STACK_4
$0435	$301A			MOVLW	26
$0436	$00F5			MOVWF	STACK_4+1
$0437	$303B			MOVLW	59
$0438	$00F6			MOVWF	STACK_4+2
$0439	$3077			MOVLW	119
$043A	$00F7			MOVWF	STACK_4+3
$043B	$158A			BSF	PCLATH, 3
$043C	$2000			CALL	_div_32x32_fp
$043D	$118A			BCF	PCLATH, 3
$043E	$0870			MOVF	STACK_0, 0
$043F	$1683			BSF	STATUS, RP0
$0440	$00A0			MOVWF	_hat
$0441	$0871			MOVF	STACK_0+1, 0
$0442	$00A1			MOVWF	_hat+1
$0443	$0872			MOVF	STACK_0+2, 0
$0444	$00A2			MOVWF	_hat+2
$0445	$0873			MOVF	STACK_0+3, 0
$0446	$00A3			MOVWF	_hat+3
;Digitalis_forrasztoallomas.pbas,164 :: 		tvalos = negy + hat                                                           'végső művelet
$0447	$0836			MOVF	FLOC_valos+0, 0
$0448	$00F4			MOVWF	STACK_4
$0449	$0837			MOVF	FLOC_valos+1, 0
$044A	$00F5			MOVWF	STACK_4+1
$044B	$0838			MOVF	FLOC_valos+2, 0
$044C	$00F6			MOVWF	STACK_4+2
$044D	$0839			MOVF	FLOC_valos+3, 0
$044E	$00F7			MOVWF	STACK_4+3
$044F	$268B			CALL	_add_32x32_fp
$0450	$158A			BSF	PCLATH, 3
$0451	$2300			CALL	_double2word
$0452	$118A			BCF	PCLATH, 3
$0453	$0870			MOVF	STACK_0, 0
$0454	$00B9			MOVWF	_tvalos
$0455	$0871			MOVF	STACK_0+1, 0
$0456	$00BA			MOVWF	_tvalos+1
;Digitalis_forrasztoallomas.pbas,166 :: 		if mertekegyseg = 1 then
$0457	$3000			MOVLW	0
$0458	$0641			XORWF	_mertekegyseg+1, 0
$0459	$1D03			BTFSS	STATUS, Z
$045A	$2C5D			GOTO	L_valos_4
$045B	$3001			MOVLW	1
$045C	$0640			XORWF	_mertekegyseg, 0
$045D	$	L_valos_4:
$045D	$1D03			BTFSS	STATUS, Z
$045E	$2C63			GOTO	Digitalis_forrasztoallomas_L_45
$045F	$	Digitalis_forrasztoallomas_L_44:
;Digitalis_forrasztoallomas.pbas,167 :: 		valos_celsius()
$045F	$158A			BSF	PCLATH, 3
$0460	$26B0			CALL	_valos_celsius
$0461	$118A			BCF	PCLATH, 3
$0462	$2C72			GOTO	Digitalis_forrasztoallomas_L_46
;Digitalis_forrasztoallomas.pbas,168 :: 		else
$0463	$	Digitalis_forrasztoallomas_L_45:
;Digitalis_forrasztoallomas.pbas,169 :: 		if mertekegyseg = 2 then
$0463	$3000			MOVLW	0
$0464	$0641			XORWF	_mertekegyseg+1, 0
$0465	$1D03			BTFSS	STATUS, Z
$0466	$2C69			GOTO	L_valos_5
$0467	$3002			MOVLW	2
$0468	$0640			XORWF	_mertekegyseg, 0
$0469	$	L_valos_5:
$0469	$1D03			BTFSS	STATUS, Z
$046A	$2C6F			GOTO	Digitalis_forrasztoallomas_L_48
$046B	$	Digitalis_forrasztoallomas_L_47:
;Digitalis_forrasztoallomas.pbas,170 :: 		valos_kelvin()
$046B	$158A			BSF	PCLATH, 3
$046C	$2399			CALL	_valos_kelvin
$046D	$118A			BCF	PCLATH, 3
$046E	$2C72			GOTO	Digitalis_forrasztoallomas_L_49
;Digitalis_forrasztoallomas.pbas,171 :: 		else
$046F	$	Digitalis_forrasztoallomas_L_48:
;Digitalis_forrasztoallomas.pbas,172 :: 		valos_fahrenheit()
$046F	$158A			BSF	PCLATH, 3
$0470	$217B			CALL	_valos_fahrenheit
$0471	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,173 :: 		end if
$0472	$	Digitalis_forrasztoallomas_L_49:
;Digitalis_forrasztoallomas.pbas,174 :: 		end if
$0472	$	Digitalis_forrasztoallomas_L_46:
$0472	$	Digitalis_forrasztoallomas_L_43:
$0472	$0008			RETURN
$0CCA	$	_button:
;button.ppas,7 :: 		
;button.ppas,8 :: 		
$0CCA	$1303			BCF	STATUS, RP1
$0CCB	$1683			BSF	STATUS, RP0
$0CCC	$01BA			CLRF	_button_local_result, 1
;button.ppas,9 :: 		
$0CCD	$0836			MOVF	FARG_Button, 0
$0CCE	$0084			MOVWF	FSR
$0CCF	$0800			MOVF	INDF, 0
$0CD0	$00F1			MOVWF	STACK_1
$0CD1	$3001			MOVLW	1
$0CD2	$00F0			MOVWF	STACK_0
$0CD3	$0837			MOVF	FARG_Button+1, 0
$0CD4	$	L_Button_0:
$0CD4	$1903			BTFSC	STATUS, Z
$0CD5	$2CDA			GOTO	L_Button_1
$0CD6	$0DF0			RLF	STACK_0, 1
$0CD7	$1070			BCF	STACK_0, 0
$0CD8	$3FFF			ADDLW	255
$0CD9	$2CD4			GOTO	L_Button_0
$0CDA	$	L_Button_1:
$0CDA	$0870			MOVF	STACK_0, 0
$0CDB	$05F1			ANDWF	STACK_1, 1
$0CDC	$0837			MOVF	FARG_Button+1, 0
$0CDD	$	L_Button_2:
$0CDD	$1903			BTFSC	STATUS, Z
$0CDE	$2CE3			GOTO	L_Button_3
$0CDF	$0CF1			RRF	STACK_1, 1
$0CE0	$13F1			BCF	STACK_1, 7
$0CE1	$3FFF			ADDLW	255
$0CE2	$2CDD			GOTO	L_Button_2
$0CE3	$	L_Button_3:
$0CE3	$0871			MOVF	STACK_1, 0
$0CE4	$0639			XORWF	FARG_Button+3, 0
$0CE5	$1D03			BTFSS	STATUS, Z
$0CE6	$2D0C			GOTO	button_L_2
$0CE7	$	button_L_1:
;button.ppas,11 :: 		
$0CE7	$	button_L_5:
$0CE7	$0838			MOVF	FARG_Button+2, 0
$0CE8	$3C00			SUBLW	0
$0CE9	$1803			BTFSC	STATUS, C
$0CEA	$2CF0			GOTO	button_L_6
;button.ppas,13 :: 		
$0CEB	$271F			CALL	_delay_500us
;button.ppas,14 :: 		
$0CEC	$271F			CALL	_delay_500us
;button.ppas,15 :: 		
$0CED	$1683			BSF	STATUS, RP0
$0CEE	$03B8			DECF	FARG_Button+2, 1
;button.ppas,16 :: 		
$0CEF	$2CE7			GOTO	button_L_5
$0CF0	$	button_L_6:
;button.ppas,17 :: 		
$0CF0	$0836			MOVF	FARG_Button, 0
$0CF1	$0084			MOVWF	FSR
$0CF2	$0800			MOVF	INDF, 0
$0CF3	$00F1			MOVWF	STACK_1
$0CF4	$3001			MOVLW	1
$0CF5	$00F0			MOVWF	STACK_0
$0CF6	$0837			MOVF	FARG_Button+1, 0
$0CF7	$	L_Button_4:
$0CF7	$1903			BTFSC	STATUS, Z
$0CF8	$2CFD			GOTO	L_Button_5
$0CF9	$0DF0			RLF	STACK_0, 1
$0CFA	$1070			BCF	STACK_0, 0
$0CFB	$3FFF			ADDLW	255
$0CFC	$2CF7			GOTO	L_Button_4
$0CFD	$	L_Button_5:
$0CFD	$0870			MOVF	STACK_0, 0
$0CFE	$05F1			ANDWF	STACK_1, 1
$0CFF	$0837			MOVF	FARG_Button+1, 0
$0D00	$	L_Button_6:
$0D00	$1903			BTFSC	STATUS, Z
$0D01	$2D06			GOTO	L_Button_7
$0D02	$0CF1			RRF	STACK_1, 1
$0D03	$13F1			BCF	STACK_1, 7
$0D04	$3FFF			ADDLW	255
$0D05	$2D00			GOTO	L_Button_6
$0D06	$	L_Button_7:
$0D06	$0871			MOVF	STACK_1, 0
$0D07	$0639			XORWF	FARG_Button+3, 0
$0D08	$1D03			BTFSS	STATUS, Z
$0D09	$2D0C			GOTO	button_L_10
$0D0A	$	button_L_9:
;button.ppas,19 :: 		
$0D0A	$30FF			MOVLW	255
$0D0B	$00BA			MOVWF	_button_local_result
;button.ppas,20 :: 		
$0D0C	$	button_L_10:
$0D0C	$	button_L_11:
;button.ppas,21 :: 		
$0D0C	$	button_L_2:
$0D0C	$	button_L_3:
$0D0C	$	button_L_0:
;button.ppas,22 :: 		
$0D0C	$083A			MOVF	_button_local_result, 0
$0D0D	$00F0			MOVWF	STACK_0
$0D0E	$0008			RETURN
$0EF5	$	_hozzaad:
;Digitalis_forrasztoallomas.pbas,62 :: 		sub procedure hozzaad()
;Digitalis_forrasztoallomas.pbas,63 :: 		szam = szam + 1
$0EF5	$1303			BCF	STATUS, RP1
$0EF6	$1283			BCF	STATUS, RP0
$0EF7	$082D			MOVF	_szam, 0
$0EF8	$3F01			ADDLW	1
$0EF9	$00F1			MOVWF	STACK_1
$0EFA	$3000			MOVLW	0
$0EFB	$1803			BTFSC	STATUS, C
$0EFC	$3F01			ADDLW	1
$0EFD	$072E			ADDWF	_szam+1, 0
$0EFE	$00F2			MOVWF	STACK_1+1
$0EFF	$0871			MOVF	STACK_1, 0
$0F00	$00AD			MOVWF	_szam
$0F01	$0872			MOVF	STACK_1+1, 0
$0F02	$00AE			MOVWF	_szam+1
;Digitalis_forrasztoallomas.pbas,64 :: 		if szam = 451 then
$0F03	$0872			MOVF	STACK_1+1, 0
$0F04	$3A01			XORLW	1
$0F05	$1D03			BTFSS	STATUS, Z
$0F06	$2F09			GOTO	L_hozzaad_0
$0F07	$30C3			MOVLW	195
$0F08	$0671			XORWF	STACK_1, 0
$0F09	$	L_hozzaad_0:
$0F09	$1D03			BTFSS	STATUS, Z
$0F0A	$2F0E			GOTO	Digitalis_forrasztoallomas_L_22
$0F0B	$	Digitalis_forrasztoallomas_L_21:
;Digitalis_forrasztoallomas.pbas,65 :: 		szam = 1
$0F0B	$3001			MOVLW	1
$0F0C	$00AD			MOVWF	_szam
$0F0D	$01AE			CLRF	_szam+1
$0F0E	$	Digitalis_forrasztoallomas_L_22:
;Digitalis_forrasztoallomas.pbas,66 :: 		end if
$0F0E	$	Digitalis_forrasztoallomas_L_23:
$0F0E	$	Digitalis_forrasztoallomas_L_20:
$0F0E	$0008			RETURN
$0EC4	$	_kivon:
;Digitalis_forrasztoallomas.pbas,70 :: 		sub procedure kivon()
;Digitalis_forrasztoallomas.pbas,71 :: 		szam = szam - 1
$0EC4	$3001			MOVLW	1
$0EC5	$1303			BCF	STATUS, RP1
$0EC6	$1283			BCF	STATUS, RP0
$0EC7	$022D			SUBWF	_szam, 0
$0EC8	$00F1			MOVWF	STACK_1
$0EC9	$3000			MOVLW	0
$0ECA	$1C03			BTFSS	STATUS, C
$0ECB	$3F01			ADDLW	1
$0ECC	$022E			SUBWF	_szam+1, 0
$0ECD	$00F2			MOVWF	STACK_1+1
$0ECE	$0871			MOVF	STACK_1, 0
$0ECF	$00AD			MOVWF	_szam
$0ED0	$0872			MOVF	STACK_1+1, 0
$0ED1	$00AE			MOVWF	_szam+1
;Digitalis_forrasztoallomas.pbas,72 :: 		if szam = 0 then
$0ED2	$3000			MOVLW	0
$0ED3	$0672			XORWF	STACK_1+1, 0
$0ED4	$1D03			BTFSS	STATUS, Z
$0ED5	$2ED8			GOTO	L_kivon_1
$0ED6	$3000			MOVLW	0
$0ED7	$0671			XORWF	STACK_1, 0
$0ED8	$	L_kivon_1:
$0ED8	$1D03			BTFSS	STATUS, Z
$0ED9	$2EDE			GOTO	Digitalis_forrasztoallomas_L_26
$0EDA	$	Digitalis_forrasztoallomas_L_25:
;Digitalis_forrasztoallomas.pbas,73 :: 		szam = 450
$0EDA	$30C2			MOVLW	194
$0EDB	$00AD			MOVWF	_szam
$0EDC	$3001			MOVLW	1
$0EDD	$00AE			MOVWF	_szam+1
$0EDE	$	Digitalis_forrasztoallomas_L_26:
;Digitalis_forrasztoallomas.pbas,74 :: 		end if
$0EDE	$	Digitalis_forrasztoallomas_L_27:
$0EDE	$	Digitalis_forrasztoallomas_L_24:
$0EDE	$0008			RETURN
$0004	$	_main:
;Digitalis_forrasztoallomas.pbas,197 :: 		main:
$0004	$	_main_main:
;Digitalis_forrasztoallomas.pbas,198 :: 		trisa=%11111011                                                               'RA2 kimenet, többi bemenet
$0004	$30FB			MOVLW	251
$0005	$1303			BCF	STATUS, RP1
$0006	$1683			BSF	STATUS, RP0
$0007	$0085			MOVWF	TRISA
;Digitalis_forrasztoallomas.pbas,199 :: 		trisb=%00000011                                                               'RB0-RB1 bemenet, többi kimenet
$0008	$3003			MOVLW	3
$0009	$0086			MOVWF	TRISB
;Digitalis_forrasztoallomas.pbas,200 :: 		ansel=%00000011                                                               'RA0-RA1 analóg, többi digitális
$000A	$3003			MOVLW	3
$000B	$009B			MOVWF	ANSEL
;Digitalis_forrasztoallomas.pbas,201 :: 		intcon=%00000000                                                              'megszakítások letiltása
$000C	$018B			CLRF	INTCON, 1
;Digitalis_forrasztoallomas.pbas,202 :: 		adcon1=%00000000                                                              'referencia feszültség VDD-VSS
$000D	$019F			CLRF	ADCON1, 1
;Digitalis_forrasztoallomas.pbas,203 :: 		Lcd_Config(PORTB, 7, 6, 5, 4, PORTB, 2, 2, 3)                                 'lcd csatlakozása
$000E	$3006			MOVLW	PORTB
$000F	$00B6			MOVWF	FARG_Lcd_Config
$0010	$3007			MOVLW	7
$0011	$00B7			MOVWF	FARG_Lcd_Config+1
$0012	$3006			MOVLW	6
$0013	$00B8			MOVWF	FARG_Lcd_Config+2
$0014	$3005			MOVLW	5
$0015	$00B9			MOVWF	FARG_Lcd_Config+3
$0016	$3004			MOVLW	4
$0017	$00BA			MOVWF	FARG_Lcd_Config+4
$0018	$3006			MOVLW	PORTB
$0019	$00BB			MOVWF	FARG_Lcd_Config+5
$001A	$3002			MOVLW	2
$001B	$00BC			MOVWF	FARG_Lcd_Config+6
$001C	$3002			MOVLW	2
$001D	$00BD			MOVWF	FARG_Lcd_Config+7
$001E	$3003			MOVLW	3
$001F	$00BE			MOVWF	FARG_Lcd_Config+8
$0020	$2473			CALL	_lcd_config
;Digitalis_forrasztoallomas.pbas,205 :: 		szam = 50                                                                     'bekapcsolásnál alap hőmérséklet
$0021	$3032			MOVLW	50
$0022	$00AD			MOVWF	_szam
$0023	$01AE			CLRF	_szam+1
;Digitalis_forrasztoallomas.pbas,206 :: 		kapcs = 1                                                                     'bekapcsolásnál 0=fűtés kikapcsolva, 1=fűtés bekapcsolva
$0024	$3001			MOVLW	1
$0025	$00EE			MOVWF	_kapcs
$0026	$01EF			CLRF	_kapcs+1
;Digitalis_forrasztoallomas.pbas,207 :: 		mertekegyseg = 1                                                              'bekapcsolásnál 1=celsius, 2=kelvin, 3=fahrenheit
$0027	$3001			MOVLW	1
$0028	$00C0			MOVWF	_mertekegyseg
$0029	$01C1			CLRF	_mertekegyseg+1
;Digitalis_forrasztoallomas.pbas,208 :: 		u0 = 173/50                                                                   'termisztoron mérhető feszültség 0 °C-on(offset feszültség is bele van számítva)
$002A	$30A4			MOVLW	164
$002B	$00E6			MOVWF	_u0
$002C	$3070			MOVLW	112
$002D	$00E7			MOVWF	_u0+1
$002E	$305D			MOVLW	93
$002F	$00E8			MOVWF	_u0+2
$0030	$3080			MOVLW	128
$0031	$00E9			MOVWF	_u0+3
;Digitalis_forrasztoallomas.pbas,209 :: 		uoffs18 = 17/200                                                              '18-as lábon mérhető offset feszültség
$0032	$307B			MOVLW	123
$0033	$00DA			MOVWF	_uoffs18
$0034	$3014			MOVLW	20
$0035	$00DB			MOVWF	_uoffs18+1
$0036	$302E			MOVLW	46
$0037	$00DC			MOVWF	_uoffs18+2
$0038	$307B			MOVLW	123
$0039	$00DD			MOVWF	_uoffs18+3
;Digitalis_forrasztoallomas.pbas,211 :: 		Lcd_Cmd(Lcd_CURSOR_OFF)                                                       'üdvözlőképernyő 4 másodpercig
$003A	$300C			MOVLW	12
$003B	$1683			BSF	STATUS, RP0
$003C	$00D0			MOVWF	FARG_Lcd_Cmd
$003D	$25BC			CALL	_lcd_cmd
;Digitalis_forrasztoallomas.pbas,212 :: 		Lcd_out(1, 4, "Digit lis")
$003E	$3001			MOVLW	1
$003F	$1683			BSF	STATUS, RP0
$0040	$00CB			MOVWF	FARG_Lcd_Out
$0041	$3004			MOVLW	4
$0042	$00CC			MOVWF	FARG_Lcd_Out+1
$0043	$3044			MOVLW	68
$0044	$00A4			MOVWF	?main_Local_Text+0
$0045	$3069			MOVLW	105
$0046	$00A5			MOVWF	?main_Local_Text+1
$0047	$3067			MOVLW	103
$0048	$00A6			MOVWF	?main_Local_Text+2
$0049	$3069			MOVLW	105
$004A	$00A7			MOVWF	?main_Local_Text+3
$004B	$3074			MOVLW	116
$004C	$00A8			MOVWF	?main_Local_Text+4
$004D	$3020			MOVLW	32
$004E	$00A9			MOVWF	?main_Local_Text+5
$004F	$306C			MOVLW	108
$0050	$00AA			MOVWF	?main_Local_Text+6
$0051	$3069			MOVLW	105
$0052	$00AB			MOVWF	?main_Local_Text+7
$0053	$3073			MOVLW	115
$0054	$00AC			MOVWF	?main_Local_Text+8
$0055	$01AD			CLRF	?main_Local_Text+9
$0056	$30A4			MOVLW	?main_Local_Text
$0057	$00CD			MOVWF	FARG_Lcd_Out+2
$0058	$158A			BSF	PCLATH, 3
$0059	$250F			CALL	_lcd_out
$005A	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,213 :: 		a(1, 9)
$005B	$3001			MOVLW	1
$005C	$1683			BSF	STATUS, RP0
$005D	$00C7			MOVWF	FARG_a
$005E	$3009			MOVLW	9
$005F	$00C8			MOVWF	FARG_a+1
$0060	$158A			BSF	PCLATH, 3
$0061	$23D3			CALL	_a
$0062	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,214 :: 		Lcd_out(2, 1, "forraszt  llom s")
$0063	$3002			MOVLW	2
$0064	$1683			BSF	STATUS, RP0
$0065	$00CB			MOVWF	FARG_Lcd_Out
$0066	$3001			MOVLW	1
$0067	$00CC			MOVWF	FARG_Lcd_Out+1
$0068	$3066			MOVLW	102
$0069	$00A4			MOVWF	?main_Local_Text+0
$006A	$306F			MOVLW	111
$006B	$00A5			MOVWF	?main_Local_Text+1
$006C	$3072			MOVLW	114
$006D	$00A6			MOVWF	?main_Local_Text+2
$006E	$3072			MOVLW	114
$006F	$00A7			MOVWF	?main_Local_Text+3
$0070	$3061			MOVLW	97
$0071	$00A8			MOVWF	?main_Local_Text+4
$0072	$3073			MOVLW	115
$0073	$00A9			MOVWF	?main_Local_Text+5
$0074	$307A			MOVLW	122
$0075	$00AA			MOVWF	?main_Local_Text+6
$0076	$3074			MOVLW	116
$0077	$00AB			MOVWF	?main_Local_Text+7
$0078	$3020			MOVLW	32
$0079	$00AC			MOVWF	?main_Local_Text+8
$007A	$3020			MOVLW	32
$007B	$00AD			MOVWF	?main_Local_Text+9
$007C	$306C			MOVLW	108
$007D	$00AE			MOVWF	?main_Local_Text+10
$007E	$306C			MOVLW	108
$007F	$00AF			MOVWF	?main_Local_Text+11
$0080	$306F			MOVLW	111
$0081	$00B0			MOVWF	?main_Local_Text+12
$0082	$306D			MOVLW	109
$0083	$00B1			MOVWF	?main_Local_Text+13
$0084	$3020			MOVLW	32
$0085	$00B2			MOVWF	?main_Local_Text+14
$0086	$3073			MOVLW	115
$0087	$00B3			MOVWF	?main_Local_Text+15
$0088	$01B4			CLRF	?main_Local_Text+16
$0089	$30A4			MOVLW	?main_Local_Text
$008A	$00CD			MOVWF	FARG_Lcd_Out+2
$008B	$158A			BSF	PCLATH, 3
$008C	$250F			CALL	_lcd_out
$008D	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,215 :: 		o(2, 9)
$008E	$3002			MOVLW	2
$008F	$1683			BSF	STATUS, RP0
$0090	$00C7			MOVWF	FARG_o
$0091	$3009			MOVLW	9
$0092	$00C8			MOVWF	FARG_o+1
$0093	$158A			BSF	PCLATH, 3
$0094	$244F			CALL	_o
$0095	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,216 :: 		a(2, 10)
$0096	$3002			MOVLW	2
$0097	$1683			BSF	STATUS, RP0
$0098	$00C7			MOVWF	FARG_a
$0099	$300A			MOVLW	10
$009A	$00C8			MOVWF	FARG_a+1
$009B	$158A			BSF	PCLATH, 3
$009C	$23D3			CALL	_a
$009D	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,217 :: 		a(2, 15)
$009E	$3002			MOVLW	2
$009F	$1683			BSF	STATUS, RP0
$00A0	$00C7			MOVWF	FARG_a
$00A1	$300F			MOVLW	15
$00A2	$00C8			MOVWF	FARG_a+1
$00A3	$158A			BSF	PCLATH, 3
$00A4	$23D3			CALL	_a
$00A5	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,218 :: 		Delay_ms(4000)
$00A6	$3066			MOVLW	102
$00A7	$00FC			MOVWF	STACK_12
$00A8	$30FF			MOVLW	255
$00A9	$00FB			MOVWF	STACK_11
$00AA	$30FF			MOVLW	255
$00AB	$00FA			MOVWF	STACK_10
$00AC	$0BFC			DECFSZ	STACK_12, F
$00AD	$28AF			GOTO	$+2
$00AE	$28B6			GOTO	$+8
$00AF	$0BFB			DECFSZ	STACK_11, F
$00B0	$28B2			GOTO	$+2
$00B1	$28B5			GOTO	$+4
$00B2	$0BFA			DECFSZ	STACK_10, F
$00B3	$28B2			GOTO	$-1
$00B4	$28AF			GOTO	$-5
$00B5	$28AC			GOTO	$-9
$00B6	$30FC			MOVLW	252
$00B7	$00FB			MOVWF	STACK_11
$00B8	$30FF			MOVLW	255
$00B9	$00FA			MOVWF	STACK_10
$00BA	$0BFB			DECFSZ	STACK_11, F
$00BB	$28BD			GOTO	$+2
$00BC	$28C0			GOTO	$+4
$00BD	$0BFA			DECFSZ	STACK_10, F
$00BE	$28BD			GOTO	$-1
$00BF	$28BA			GOTO	$-5
$00C0	$3069			MOVLW	105
$00C1	$00FA			MOVWF	STACK_10
$00C2	$0BFA			DECFSZ	STACK_10, F
$00C3	$28C2			GOTO	$-1
$00C4	$0000			NOP
$00C5	$0000			NOP
$00C6	$0000			NOP
;Digitalis_forrasztoallomas.pbas,219 :: 		Lcd_cmd(Lcd_Clear)
$00C7	$3001			MOVLW	1
$00C8	$1683			BSF	STATUS, RP0
$00C9	$00D0			MOVWF	FARG_Lcd_Cmd
$00CA	$25BC			CALL	_lcd_cmd
;Digitalis_forrasztoallomas.pbas,221 :: 		if kapcs = 0 then
$00CB	$3000			MOVLW	0
$00CC	$066F			XORWF	_kapcs+1, 0
$00CD	$1D03			BTFSS	STATUS, Z
$00CE	$28D1			GOTO	L_main_8
$00CF	$3000			MOVLW	0
$00D0	$066E			XORWF	_kapcs, 0
$00D1	$	L_main_8:
$00D1	$1D03			BTFSS	STATUS, Z
$00D2	$2905			GOTO	Digitalis_forrasztoallomas_L_59
$00D3	$	Digitalis_forrasztoallomas_L_58:
;Digitalis_forrasztoallomas.pbas,222 :: 		mertegy()                                                                   'mérékegység kiírása
$00D3	$158A			BSF	PCLATH, 3
$00D4	$209C			CALL	_mertegy
$00D5	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,223 :: 		Lcd_out(1, 1, "  Kikapcsolva   ")                                           '"Kikapcsolva" kiírása
$00D6	$3001			MOVLW	1
$00D7	$1683			BSF	STATUS, RP0
$00D8	$00CB			MOVWF	FARG_Lcd_Out
$00D9	$3001			MOVLW	1
$00DA	$00CC			MOVWF	FARG_Lcd_Out+1
$00DB	$3020			MOVLW	32
$00DC	$00A4			MOVWF	?main_Local_Text+0
$00DD	$3020			MOVLW	32
$00DE	$00A5			MOVWF	?main_Local_Text+1
$00DF	$304B			MOVLW	75
$00E0	$00A6			MOVWF	?main_Local_Text+2
$00E1	$3069			MOVLW	105
$00E2	$00A7			MOVWF	?main_Local_Text+3
$00E3	$306B			MOVLW	107
$00E4	$00A8			MOVWF	?main_Local_Text+4
$00E5	$3061			MOVLW	97
$00E6	$00A9			MOVWF	?main_Local_Text+5
$00E7	$3070			MOVLW	112
$00E8	$00AA			MOVWF	?main_Local_Text+6
$00E9	$3063			MOVLW	99
$00EA	$00AB			MOVWF	?main_Local_Text+7
$00EB	$3073			MOVLW	115
$00EC	$00AC			MOVWF	?main_Local_Text+8
$00ED	$306F			MOVLW	111
$00EE	$00AD			MOVWF	?main_Local_Text+9
$00EF	$306C			MOVLW	108
$00F0	$00AE			MOVWF	?main_Local_Text+10
$00F1	$3076			MOVLW	118
$00F2	$00AF			MOVWF	?main_Local_Text+11
$00F3	$3061			MOVLW	97
$00F4	$00B0			MOVWF	?main_Local_Text+12
$00F5	$3020			MOVLW	32
$00F6	$00B1			MOVWF	?main_Local_Text+13
$00F7	$3020			MOVLW	32
$00F8	$00B2			MOVWF	?main_Local_Text+14
$00F9	$3020			MOVLW	32
$00FA	$00B3			MOVWF	?main_Local_Text+15
$00FB	$01B4			CLRF	?main_Local_Text+16
$00FC	$30A4			MOVLW	?main_Local_Text
$00FD	$00CD			MOVWF	FARG_Lcd_Out+2
$00FE	$158A			BSF	PCLATH, 3
$00FF	$250F			CALL	_lcd_out
$0100	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,224 :: 		kiir_valos()                                                                '"Valós:" kiírása
$0101	$158A			BSF	PCLATH, 3
$0102	$2636			CALL	_kiir_valos
$0103	$118A			BCF	PCLATH, 3
$0104	$2911			GOTO	Digitalis_forrasztoallomas_L_60
;Digitalis_forrasztoallomas.pbas,225 :: 		else
$0105	$	Digitalis_forrasztoallomas_L_59:
;Digitalis_forrasztoallomas.pbas,226 :: 		kiir_kivant()                                                               '"Kívánt:" kiírása
$0105	$158A			BSF	PCLATH, 3
$0106	$2595			CALL	_kiir_kivant
$0107	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,227 :: 		kiir_valos()                                                                '"Valós:" kiírása
$0108	$158A			BSF	PCLATH, 3
$0109	$2636			CALL	_kiir_valos
$010A	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,228 :: 		kivant()                                                                    'kívánt értékének kiírása
$010B	$158A			BSF	PCLATH, 3
$010C	$2667			CALL	_kivant
$010D	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,229 :: 		mertegy()                                                                   'mérékegység kiírása
$010E	$158A			BSF	PCLATH, 3
$010F	$209C			CALL	_mertegy
$0110	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,230 :: 		end if
$0111	$	Digitalis_forrasztoallomas_L_60:
;Digitalis_forrasztoallomas.pbas,232 :: 		while TRUE                                                                    'végtelen ciklus
$0111	$	Digitalis_forrasztoallomas_L_62:
;Digitalis_forrasztoallomas.pbas,236 :: 		if kapcs = 0 then
$0111	$3000			MOVLW	0
$0112	$066F			XORWF	_kapcs+1, 0
$0113	$1D03			BTFSS	STATUS, Z
$0114	$2917			GOTO	L_main_9
$0115	$3000			MOVLW	0
$0116	$066E			XORWF	_kapcs, 0
$0117	$	L_main_9:
$0117	$1D03			BTFSS	STATUS, Z
$0118	$2955			GOTO	Digitalis_forrasztoallomas_L_67
$0119	$	Digitalis_forrasztoallomas_L_66:
;Digitalis_forrasztoallomas.pbas,237 :: 		porta.2 = 0                                                               'fűtés kikapcsolva
$0119	$1105			BCF	PORTA, 2
$011A	$	Digitalis_forrasztoallomas_L_70:
;Digitalis_forrasztoallomas.pbas,239 :: 		valos()                                                                   'valós értékének kiírása
$011A	$22B8			CALL	_valos
;Digitalis_forrasztoallomas.pbas,241 :: 		if Button(PORTB, 1, 1, 0) then
$011B	$3006			MOVLW	PORTB
$011C	$1683			BSF	STATUS, RP0
$011D	$00B6			MOVWF	FARG_Button
$011E	$3001			MOVLW	1
$011F	$00B7			MOVWF	FARG_Button+1
$0120	$3001			MOVLW	1
$0121	$00B8			MOVWF	FARG_Button+2
$0122	$01B9			CLRF	FARG_Button+3, 1
$0123	$158A			BSF	PCLATH, 3
$0124	$24CA			CALL	_button
$0125	$118A			BCF	PCLATH, 3
$0126	$0870			MOVF	STACK_0, 0
$0127	$1903			BTFSC	STATUS, Z
$0128	$2935			GOTO	Digitalis_forrasztoallomas_L_72
$0129	$	Digitalis_forrasztoallomas_L_71:
;Digitalis_forrasztoallomas.pbas,242 :: 		kiir_kivant()                                                           '"Kívánt:" kiírása
$0129	$158A			BSF	PCLATH, 3
$012A	$2595			CALL	_kiir_kivant
$012B	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,243 :: 		kivant()                                                                'kívánt értékének kiírása
$012C	$158A			BSF	PCLATH, 3
$012D	$2667			CALL	_kivant
$012E	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,244 :: 		mertegy()                                                               'mérékegység kiírása
$012F	$158A			BSF	PCLATH, 3
$0130	$209C			CALL	_mertegy
$0131	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,245 :: 		kapcs = 1                                                               'fűtés engedélyezése
$0132	$3001			MOVLW	1
$0133	$00EE			MOVWF	_kapcs
$0134	$01EF			CLRF	_kapcs+1
$0135	$	Digitalis_forrasztoallomas_L_72:
;Digitalis_forrasztoallomas.pbas,246 :: 		end if
$0135	$	Digitalis_forrasztoallomas_L_73:
;Digitalis_forrasztoallomas.pbas,248 :: 		Delay_ms(200)
$0135	$1303			BCF	STATUS, RP1
$0136	$1283			BCF	STATUS, RP0
$0137	$3006			MOVLW	6
$0138	$00FC			MOVWF	STACK_12
$0139	$30FF			MOVLW	255
$013A	$00FB			MOVWF	STACK_11
$013B	$30FF			MOVLW	255
$013C	$00FA			MOVWF	STACK_10
$013D	$0BFC			DECFSZ	STACK_12, F
$013E	$2940			GOTO	$+2
$013F	$2947			GOTO	$+8
$0140	$0BFB			DECFSZ	STACK_11, F
$0141	$2943			GOTO	$+2
$0142	$2946			GOTO	$+4
$0143	$0BFA			DECFSZ	STACK_10, F
$0144	$2943			GOTO	$-1
$0145	$2940			GOTO	$-5
$0146	$293D			GOTO	$-9
$0147	$301A			MOVLW	26
$0148	$00FB			MOVWF	STACK_11
$0149	$30FF			MOVLW	255
$014A	$00FA			MOVWF	STACK_10
$014B	$0BFB			DECFSZ	STACK_11, F
$014C	$294E			GOTO	$+2
$014D	$2951			GOTO	$+4
$014E	$0BFA			DECFSZ	STACK_10, F
$014F	$294E			GOTO	$-1
$0150	$294B			GOTO	$-5
$0151	$3042			MOVLW	66
$0152	$00FA			MOVWF	STACK_10
$0153	$0BFA			DECFSZ	STACK_10, F
$0154	$2953			GOTO	$-1
$0155	$	Digitalis_forrasztoallomas_L_67:
;Digitalis_forrasztoallomas.pbas,249 :: 		end if
$0155	$	Digitalis_forrasztoallomas_L_68:
;Digitalis_forrasztoallomas.pbas,254 :: 		if kapcs = 1 then
$0155	$3000			MOVLW	0
$0156	$066F			XORWF	_kapcs+1, 0
$0157	$1D03			BTFSS	STATUS, Z
$0158	$295B			GOTO	L_main_10
$0159	$3001			MOVLW	1
$015A	$066E			XORWF	_kapcs, 0
$015B	$	L_main_10:
$015B	$1D03			BTFSS	STATUS, Z
$015C	$2AB6			GOTO	Digitalis_forrasztoallomas_L_75
$015D	$	Digitalis_forrasztoallomas_L_74:
;Digitalis_forrasztoallomas.pbas,255 :: 		valos()                                                                   'valós értékének kiírása
$015D	$22B8			CALL	_valos
;Digitalis_forrasztoallomas.pbas,257 :: 		if szam <= tvalos then                                                    'a kívánt és a valós érték összehasonlítása
$015E	$082E			MOVF	_szam+1, 0
$015F	$023A			SUBWF	_tvalos+1, 0
$0160	$1D03			BTFSS	STATUS, Z
$0161	$2964			GOTO	L_main_11
$0162	$082D			MOVF	_szam, 0
$0163	$0239			SUBWF	_tvalos, 0
$0164	$	L_main_11:
$0164	$1C03			BTFSS	STATUS, C
$0165	$2968			GOTO	Digitalis_forrasztoallomas_L_78
$0166	$	Digitalis_forrasztoallomas_L_77:
;Digitalis_forrasztoallomas.pbas,258 :: 		porta.2=0                                                               'ha kívánt <= valós akkor a fűtés kikapcsol
$0166	$1105			BCF	PORTA, 2
$0167	$	Digitalis_forrasztoallomas_L_81:
$0167	$2969			GOTO	Digitalis_forrasztoallomas_L_79
;Digitalis_forrasztoallomas.pbas,259 :: 		else
$0168	$	Digitalis_forrasztoallomas_L_78:
;Digitalis_forrasztoallomas.pbas,260 :: 		porta.2=1                                                               'ha nem, akkor a fűtés bekapcsol
$0168	$	Digitalis_forrasztoallomas_L_82:
$0168	$1505			BSF	PORTA, 2
$0169	$	Digitalis_forrasztoallomas_L_83:
;Digitalis_forrasztoallomas.pbas,261 :: 		end if
$0169	$	Digitalis_forrasztoallomas_L_79:
;Digitalis_forrasztoallomas.pbas,263 :: 		if Button(PORTB, 1, 1, 0) then
$0169	$3006			MOVLW	PORTB
$016A	$1683			BSF	STATUS, RP0
$016B	$00B6			MOVWF	FARG_Button
$016C	$3001			MOVLW	1
$016D	$00B7			MOVWF	FARG_Button+1
$016E	$3001			MOVLW	1
$016F	$00B8			MOVWF	FARG_Button+2
$0170	$01B9			CLRF	FARG_Button+3, 1
$0171	$158A			BSF	PCLATH, 3
$0172	$24CA			CALL	_button
$0173	$118A			BCF	PCLATH, 3
$0174	$0870			MOVF	STACK_0, 0
$0175	$1903			BTFSC	STATUS, Z
$0176	$297D			GOTO	Digitalis_forrasztoallomas_L_85
$0177	$	Digitalis_forrasztoallomas_L_84:
;Digitalis_forrasztoallomas.pbas,264 :: 		hozzaad()                                                               'kívánt + 1
$0177	$158A			BSF	PCLATH, 3
$0178	$26F5			CALL	_hozzaad
$0179	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,265 :: 		kivant()                                                                'kívánt értékének kiírása
$017A	$158A			BSF	PCLATH, 3
$017B	$2667			CALL	_kivant
$017C	$118A			BCF	PCLATH, 3
$017D	$	Digitalis_forrasztoallomas_L_85:
;Digitalis_forrasztoallomas.pbas,266 :: 		end if
$017D	$	Digitalis_forrasztoallomas_L_86:
;Digitalis_forrasztoallomas.pbas,268 :: 		if Button(PORTB, 0, 1, 0) then
$017D	$1303			BCF	STATUS, RP1
$017E	$1283			BCF	STATUS, RP0
$017F	$3006			MOVLW	PORTB
$0180	$1683			BSF	STATUS, RP0
$0181	$00B6			MOVWF	FARG_Button
$0182	$01B7			CLRF	FARG_Button+1, 1
$0183	$3001			MOVLW	1
$0184	$00B8			MOVWF	FARG_Button+2
$0185	$01B9			CLRF	FARG_Button+3, 1
$0186	$158A			BSF	PCLATH, 3
$0187	$24CA			CALL	_button
$0188	$118A			BCF	PCLATH, 3
$0189	$0870			MOVF	STACK_0, 0
$018A	$1903			BTFSC	STATUS, Z
$018B	$2992			GOTO	Digitalis_forrasztoallomas_L_88
$018C	$	Digitalis_forrasztoallomas_L_87:
;Digitalis_forrasztoallomas.pbas,269 :: 		kivon()                                                                 'kívánt - 1
$018C	$158A			BSF	PCLATH, 3
$018D	$26C4			CALL	_kivon
$018E	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,270 :: 		kivant()                                                                'kívánt értékének kiírása
$018F	$158A			BSF	PCLATH, 3
$0190	$2667			CALL	_kivant
$0191	$118A			BCF	PCLATH, 3
$0192	$	Digitalis_forrasztoallomas_L_88:
;Digitalis_forrasztoallomas.pbas,271 :: 		end if
$0192	$	Digitalis_forrasztoallomas_L_89:
;Digitalis_forrasztoallomas.pbas,273 :: 		if Button(PORTB, 0, 1, 0) and Button(PORTB, 1, 1, 0) then
$0192	$1303			BCF	STATUS, RP1
$0193	$1283			BCF	STATUS, RP0
$0194	$3006			MOVLW	PORTB
$0195	$1683			BSF	STATUS, RP0
$0196	$00B6			MOVWF	FARG_Button
$0197	$01B7			CLRF	FARG_Button+1, 1
$0198	$3001			MOVLW	1
$0199	$00B8			MOVWF	FARG_Button+2
$019A	$01B9			CLRF	FARG_Button+3, 1
$019B	$158A			BSF	PCLATH, 3
$019C	$24CA			CALL	_button
$019D	$118A			BCF	PCLATH, 3
$019E	$0870			MOVF	STACK_0, 0
$019F	$00B5			MOVWF	FLOC_main+17
$01A0	$3006			MOVLW	PORTB
$01A1	$00B6			MOVWF	FARG_Button
$01A2	$3001			MOVLW	1
$01A3	$00B7			MOVWF	FARG_Button+1
$01A4	$3001			MOVLW	1
$01A5	$00B8			MOVWF	FARG_Button+2
$01A6	$01B9			CLRF	FARG_Button+3, 1
$01A7	$158A			BSF	PCLATH, 3
$01A8	$24CA			CALL	_button
$01A9	$118A			BCF	PCLATH, 3
$01AA	$0835			MOVF	FLOC_main+17, 0
$01AB	$05F0			ANDWF	STACK_0, 1
$01AC	$1903			BTFSC	STATUS, Z
$01AD	$29DA			GOTO	Digitalis_forrasztoallomas_L_91
$01AE	$	Digitalis_forrasztoallomas_L_90:
;Digitalis_forrasztoallomas.pbas,274 :: 		Lcd_out(1, 1, "  Kikapcsolva   ")                                       '"Kikapcsolva" kiírása
$01AE	$3001			MOVLW	1
$01AF	$00CB			MOVWF	FARG_Lcd_Out
$01B0	$3001			MOVLW	1
$01B1	$00CC			MOVWF	FARG_Lcd_Out+1
$01B2	$3020			MOVLW	32
$01B3	$00A4			MOVWF	?main_Local_Text+0
$01B4	$3020			MOVLW	32
$01B5	$00A5			MOVWF	?main_Local_Text+1
$01B6	$304B			MOVLW	75
$01B7	$00A6			MOVWF	?main_Local_Text+2
$01B8	$3069			MOVLW	105
$01B9	$00A7			MOVWF	?main_Local_Text+3
$01BA	$306B			MOVLW	107
$01BB	$00A8			MOVWF	?main_Local_Text+4
$01BC	$3061			MOVLW	97
$01BD	$00A9			MOVWF	?main_Local_Text+5
$01BE	$3070			MOVLW	112
$01BF	$00AA			MOVWF	?main_Local_Text+6
$01C0	$3063			MOVLW	99
$01C1	$00AB			MOVWF	?main_Local_Text+7
$01C2	$3073			MOVLW	115
$01C3	$00AC			MOVWF	?main_Local_Text+8
$01C4	$306F			MOVLW	111
$01C5	$00AD			MOVWF	?main_Local_Text+9
$01C6	$306C			MOVLW	108
$01C7	$00AE			MOVWF	?main_Local_Text+10
$01C8	$3076			MOVLW	118
$01C9	$00AF			MOVWF	?main_Local_Text+11
$01CA	$3061			MOVLW	97
$01CB	$00B0			MOVWF	?main_Local_Text+12
$01CC	$3020			MOVLW	32
$01CD	$00B1			MOVWF	?main_Local_Text+13
$01CE	$3020			MOVLW	32
$01CF	$00B2			MOVWF	?main_Local_Text+14
$01D0	$3020			MOVLW	32
$01D1	$00B3			MOVWF	?main_Local_Text+15
$01D2	$01B4			CLRF	?main_Local_Text+16
$01D3	$30A4			MOVLW	?main_Local_Text
$01D4	$00CD			MOVWF	FARG_Lcd_Out+2
$01D5	$158A			BSF	PCLATH, 3
$01D6	$250F			CALL	_lcd_out
$01D7	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,275 :: 		kapcs = 0                                                               'fűtés tiltása
$01D8	$01EE			CLRF	_kapcs
$01D9	$01EF			CLRF	_kapcs+1
$01DA	$	Digitalis_forrasztoallomas_L_91:
;Digitalis_forrasztoallomas.pbas,276 :: 		end if
$01DA	$	Digitalis_forrasztoallomas_L_92:
;Digitalis_forrasztoallomas.pbas,278 :: 		if Button(PORTA, 3, 1, 0) then
$01DA	$1303			BCF	STATUS, RP1
$01DB	$1283			BCF	STATUS, RP0
$01DC	$3005			MOVLW	PORTA
$01DD	$1683			BSF	STATUS, RP0
$01DE	$00B6			MOVWF	FARG_Button
$01DF	$3003			MOVLW	3
$01E0	$00B7			MOVWF	FARG_Button+1
$01E1	$3001			MOVLW	1
$01E2	$00B8			MOVWF	FARG_Button+2
$01E3	$01B9			CLRF	FARG_Button+3, 1
$01E4	$158A			BSF	PCLATH, 3
$01E5	$24CA			CALL	_button
$01E6	$118A			BCF	PCLATH, 3
$01E7	$0870			MOVF	STACK_0, 0
$01E8	$1903			BTFSC	STATUS, Z
$01E9	$29F1			GOTO	Digitalis_forrasztoallomas_L_94
$01EA	$	Digitalis_forrasztoallomas_L_93:
;Digitalis_forrasztoallomas.pbas,279 :: 		szam = 200                                                              '200-ra ugrás
$01EA	$30C8			MOVLW	200
$01EB	$1283			BCF	STATUS, RP0
$01EC	$00AD			MOVWF	_szam
$01ED	$01AE			CLRF	_szam+1
;Digitalis_forrasztoallomas.pbas,280 :: 		kivant()                                                                'kívánt értékének kiírása
$01EE	$158A			BSF	PCLATH, 3
$01EF	$2667			CALL	_kivant
$01F0	$118A			BCF	PCLATH, 3
$01F1	$	Digitalis_forrasztoallomas_L_94:
;Digitalis_forrasztoallomas.pbas,281 :: 		end if
$01F1	$	Digitalis_forrasztoallomas_L_95:
;Digitalis_forrasztoallomas.pbas,283 :: 		if Button(PORTA, 4, 1, 0) then
$01F1	$1303			BCF	STATUS, RP1
$01F2	$1283			BCF	STATUS, RP0
$01F3	$3005			MOVLW	PORTA
$01F4	$1683			BSF	STATUS, RP0
$01F5	$00B6			MOVWF	FARG_Button
$01F6	$3004			MOVLW	4
$01F7	$00B7			MOVWF	FARG_Button+1
$01F8	$3001			MOVLW	1
$01F9	$00B8			MOVWF	FARG_Button+2
$01FA	$01B9			CLRF	FARG_Button+3, 1
$01FB	$158A			BSF	PCLATH, 3
$01FC	$24CA			CALL	_button
$01FD	$118A			BCF	PCLATH, 3
$01FE	$0870			MOVF	STACK_0, 0
$01FF	$1903			BTFSC	STATUS, Z
$0200	$2A09			GOTO	Digitalis_forrasztoallomas_L_97
$0201	$	Digitalis_forrasztoallomas_L_96:
;Digitalis_forrasztoallomas.pbas,284 :: 		szam = 300                                                              '300-ra ugrás
$0201	$302C			MOVLW	44
$0202	$1283			BCF	STATUS, RP0
$0203	$00AD			MOVWF	_szam
$0204	$3001			MOVLW	1
$0205	$00AE			MOVWF	_szam+1
;Digitalis_forrasztoallomas.pbas,285 :: 		kivant()                                                                'kívánt értékének kiírása
$0206	$158A			BSF	PCLATH, 3
$0207	$2667			CALL	_kivant
$0208	$118A			BCF	PCLATH, 3
$0209	$	Digitalis_forrasztoallomas_L_97:
;Digitalis_forrasztoallomas.pbas,286 :: 		end if
$0209	$	Digitalis_forrasztoallomas_L_98:
;Digitalis_forrasztoallomas.pbas,288 :: 		if Button(PORTA, 5, 1, 0) then
$0209	$1303			BCF	STATUS, RP1
$020A	$1283			BCF	STATUS, RP0
$020B	$3005			MOVLW	PORTA
$020C	$1683			BSF	STATUS, RP0
$020D	$00B6			MOVWF	FARG_Button
$020E	$3005			MOVLW	5
$020F	$00B7			MOVWF	FARG_Button+1
$0210	$3001			MOVLW	1
$0211	$00B8			MOVWF	FARG_Button+2
$0212	$01B9			CLRF	FARG_Button+3, 1
$0213	$158A			BSF	PCLATH, 3
$0214	$24CA			CALL	_button
$0215	$118A			BCF	PCLATH, 3
$0216	$0870			MOVF	STACK_0, 0
$0217	$1903			BTFSC	STATUS, Z
$0218	$2A21			GOTO	Digitalis_forrasztoallomas_L_100
$0219	$	Digitalis_forrasztoallomas_L_99:
;Digitalis_forrasztoallomas.pbas,289 :: 		szam = 400                                                              '400-ra ugrás
$0219	$3090			MOVLW	144
$021A	$1283			BCF	STATUS, RP0
$021B	$00AD			MOVWF	_szam
$021C	$3001			MOVLW	1
$021D	$00AE			MOVWF	_szam+1
;Digitalis_forrasztoallomas.pbas,290 :: 		kivant()                                                                'kívánt értékének kiírása
$021E	$158A			BSF	PCLATH, 3
$021F	$2667			CALL	_kivant
$0220	$118A			BCF	PCLATH, 3
$0221	$	Digitalis_forrasztoallomas_L_100:
;Digitalis_forrasztoallomas.pbas,291 :: 		end if
$0221	$	Digitalis_forrasztoallomas_L_101:
;Digitalis_forrasztoallomas.pbas,293 :: 		if Button(PORTA, 3, 1, 0) and Button(PORTA, 4, 1, 0) then
$0221	$1303			BCF	STATUS, RP1
$0222	$1283			BCF	STATUS, RP0
$0223	$3005			MOVLW	PORTA
$0224	$1683			BSF	STATUS, RP0
$0225	$00B6			MOVWF	FARG_Button
$0226	$3003			MOVLW	3
$0227	$00B7			MOVWF	FARG_Button+1
$0228	$3001			MOVLW	1
$0229	$00B8			MOVWF	FARG_Button+2
$022A	$01B9			CLRF	FARG_Button+3, 1
$022B	$158A			BSF	PCLATH, 3
$022C	$24CA			CALL	_button
$022D	$118A			BCF	PCLATH, 3
$022E	$0870			MOVF	STACK_0, 0
$022F	$00B5			MOVWF	FLOC_main+17
$0230	$3005			MOVLW	PORTA
$0231	$00B6			MOVWF	FARG_Button
$0232	$3004			MOVLW	4
$0233	$00B7			MOVWF	FARG_Button+1
$0234	$3001			MOVLW	1
$0235	$00B8			MOVWF	FARG_Button+2
$0236	$01B9			CLRF	FARG_Button+3, 1
$0237	$158A			BSF	PCLATH, 3
$0238	$24CA			CALL	_button
$0239	$118A			BCF	PCLATH, 3
$023A	$0835			MOVF	FLOC_main+17, 0
$023B	$05F0			ANDWF	STACK_0, 1
$023C	$1903			BTFSC	STATUS, Z
$023D	$2A48			GOTO	Digitalis_forrasztoallomas_L_103
$023E	$	Digitalis_forrasztoallomas_L_102:
;Digitalis_forrasztoallomas.pbas,294 :: 		mertekegyseg = 1                                                        'mértékegység vátása celsiusra
$023E	$3001			MOVLW	1
$023F	$1283			BCF	STATUS, RP0
$0240	$00C0			MOVWF	_mertekegyseg
$0241	$01C1			CLRF	_mertekegyseg+1
;Digitalis_forrasztoallomas.pbas,295 :: 		kivant()                                                                'kívánt értékének kiírása
$0242	$158A			BSF	PCLATH, 3
$0243	$2667			CALL	_kivant
$0244	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,296 :: 		mertegy()                                                               'mérékegység kiírása
$0245	$158A			BSF	PCLATH, 3
$0246	$209C			CALL	_mertegy
$0247	$118A			BCF	PCLATH, 3
$0248	$	Digitalis_forrasztoallomas_L_103:
;Digitalis_forrasztoallomas.pbas,297 :: 		end if
$0248	$	Digitalis_forrasztoallomas_L_104:
;Digitalis_forrasztoallomas.pbas,299 :: 		if Button(PORTA, 4, 1, 0) and Button(PORTA, 5, 1, 0) then
$0248	$1303			BCF	STATUS, RP1
$0249	$1283			BCF	STATUS, RP0
$024A	$3005			MOVLW	PORTA
$024B	$1683			BSF	STATUS, RP0
$024C	$00B6			MOVWF	FARG_Button
$024D	$3004			MOVLW	4
$024E	$00B7			MOVWF	FARG_Button+1
$024F	$3001			MOVLW	1
$0250	$00B8			MOVWF	FARG_Button+2
$0251	$01B9			CLRF	FARG_Button+3, 1
$0252	$158A			BSF	PCLATH, 3
$0253	$24CA			CALL	_button
$0254	$118A			BCF	PCLATH, 3
$0255	$0870			MOVF	STACK_0, 0
$0256	$00B5			MOVWF	FLOC_main+17
$0257	$3005			MOVLW	PORTA
$0258	$00B6			MOVWF	FARG_Button
$0259	$3005			MOVLW	5
$025A	$00B7			MOVWF	FARG_Button+1
$025B	$3001			MOVLW	1
$025C	$00B8			MOVWF	FARG_Button+2
$025D	$01B9			CLRF	FARG_Button+3, 1
$025E	$158A			BSF	PCLATH, 3
$025F	$24CA			CALL	_button
$0260	$118A			BCF	PCLATH, 3
$0261	$0835			MOVF	FLOC_main+17, 0
$0262	$05F0			ANDWF	STACK_0, 1
$0263	$1903			BTFSC	STATUS, Z
$0264	$2A6F			GOTO	Digitalis_forrasztoallomas_L_106
$0265	$	Digitalis_forrasztoallomas_L_105:
;Digitalis_forrasztoallomas.pbas,300 :: 		mertekegyseg = 2                                                        'mértékegység vátása kelvinre
$0265	$3002			MOVLW	2
$0266	$1283			BCF	STATUS, RP0
$0267	$00C0			MOVWF	_mertekegyseg
$0268	$01C1			CLRF	_mertekegyseg+1
;Digitalis_forrasztoallomas.pbas,301 :: 		kivant()                                                                'kívánt értékének kiírása
$0269	$158A			BSF	PCLATH, 3
$026A	$2667			CALL	_kivant
$026B	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,302 :: 		mertegy()                                                               'mérékegység kiírása
$026C	$158A			BSF	PCLATH, 3
$026D	$209C			CALL	_mertegy
$026E	$118A			BCF	PCLATH, 3
$026F	$	Digitalis_forrasztoallomas_L_106:
;Digitalis_forrasztoallomas.pbas,303 :: 		end if
$026F	$	Digitalis_forrasztoallomas_L_107:
;Digitalis_forrasztoallomas.pbas,305 :: 		if Button(PORTA, 3, 1, 0) and Button(PORTA, 5, 1, 0) then
$026F	$1303			BCF	STATUS, RP1
$0270	$1283			BCF	STATUS, RP0
$0271	$3005			MOVLW	PORTA
$0272	$1683			BSF	STATUS, RP0
$0273	$00B6			MOVWF	FARG_Button
$0274	$3003			MOVLW	3
$0275	$00B7			MOVWF	FARG_Button+1
$0276	$3001			MOVLW	1
$0277	$00B8			MOVWF	FARG_Button+2
$0278	$01B9			CLRF	FARG_Button+3, 1
$0279	$158A			BSF	PCLATH, 3
$027A	$24CA			CALL	_button
$027B	$118A			BCF	PCLATH, 3
$027C	$0870			MOVF	STACK_0, 0
$027D	$00B5			MOVWF	FLOC_main+17
$027E	$3005			MOVLW	PORTA
$027F	$00B6			MOVWF	FARG_Button
$0280	$3005			MOVLW	5
$0281	$00B7			MOVWF	FARG_Button+1
$0282	$3001			MOVLW	1
$0283	$00B8			MOVWF	FARG_Button+2
$0284	$01B9			CLRF	FARG_Button+3, 1
$0285	$158A			BSF	PCLATH, 3
$0286	$24CA			CALL	_button
$0287	$118A			BCF	PCLATH, 3
$0288	$0835			MOVF	FLOC_main+17, 0
$0289	$05F0			ANDWF	STACK_0, 1
$028A	$1903			BTFSC	STATUS, Z
$028B	$2A96			GOTO	Digitalis_forrasztoallomas_L_109
$028C	$	Digitalis_forrasztoallomas_L_108:
;Digitalis_forrasztoallomas.pbas,306 :: 		mertekegyseg = 3                                                        'mértékegység vátása fahrenheitre
$028C	$3003			MOVLW	3
$028D	$1283			BCF	STATUS, RP0
$028E	$00C0			MOVWF	_mertekegyseg
$028F	$01C1			CLRF	_mertekegyseg+1
;Digitalis_forrasztoallomas.pbas,307 :: 		kivant()                                                                'kívánt értékének kiírása
$0290	$158A			BSF	PCLATH, 3
$0291	$2667			CALL	_kivant
$0292	$118A			BCF	PCLATH, 3
;Digitalis_forrasztoallomas.pbas,308 :: 		mertegy()                                                               'mérékegység kiírása
$0293	$158A			BSF	PCLATH, 3
$0294	$209C			CALL	_mertegy
$0295	$118A			BCF	PCLATH, 3
$0296	$	Digitalis_forrasztoallomas_L_109:
;Digitalis_forrasztoallomas.pbas,309 :: 		end if
$0296	$	Digitalis_forrasztoallomas_L_110:
;Digitalis_forrasztoallomas.pbas,311 :: 		Delay_ms(200)
$0296	$1303			BCF	STATUS, RP1
$0297	$1283			BCF	STATUS, RP0
$0298	$3006			MOVLW	6
$0299	$00FC			MOVWF	STACK_12
$029A	$30FF			MOVLW	255
$029B	$00FB			MOVWF	STACK_11
$029C	$30FF			MOVLW	255
$029D	$00FA			MOVWF	STACK_10
$029E	$0BFC			DECFSZ	STACK_12, F
$029F	$2AA1			GOTO	$+2
$02A0	$2AA8			GOTO	$+8
$02A1	$0BFB			DECFSZ	STACK_11, F
$02A2	$2AA4			GOTO	$+2
$02A3	$2AA7			GOTO	$+4
$02A4	$0BFA			DECFSZ	STACK_10, F
$02A5	$2AA4			GOTO	$-1
$02A6	$2AA1			GOTO	$-5
$02A7	$2A9E			GOTO	$-9
$02A8	$301A			MOVLW	26
$02A9	$00FB			MOVWF	STACK_11
$02AA	$30FF			MOVLW	255
$02AB	$00FA			MOVWF	STACK_10
$02AC	$0BFB			DECFSZ	STACK_11, F
$02AD	$2AAF			GOTO	$+2
$02AE	$2AB2			GOTO	$+4
$02AF	$0BFA			DECFSZ	STACK_10, F
$02B0	$2AAF			GOTO	$-1
$02B1	$2AAC			GOTO	$-5
$02B2	$3042			MOVLW	66
$02B3	$00FA			MOVWF	STACK_10
$02B4	$0BFA			DECFSZ	STACK_10, F
$02B5	$2AB4			GOTO	$-1
$02B6	$	Digitalis_forrasztoallomas_L_75:
;Digitalis_forrasztoallomas.pbas,312 :: 		end if
$02B6	$	Digitalis_forrasztoallomas_L_76:
$02B6	$2911			GOTO	Digitalis_forrasztoallomas_L_62
;Digitalis_forrasztoallomas.pbas,313 :: 		wend
$02B7	$2AB7			GOTO	$