adc_on_lcd.lst

PIC MICROCONTROLLER PROJECTS 3

;  ASM code generated by mikroVirtualMachine for PIC - V. 7.0.0.3
;  Date/Time: 1/29/2008 4:44:03 PM
;  Info: http://www.mikroelektronika.co.yu


; ADDRESS	OPCODE	ASM
; ----------------------------------------------
$0000	$29AB			GOTO	_main
$0004	$	_Delay_1us:
$0004	$0000			NOP
$0005	$0000			NOP
$0006	$0008			RETURN
$0007	$	_Delay_5500us:
$0007	$300F			MOVLW	15
$0008	$1303			BCF	STATUS, RP1
$0009	$1283			BCF	STATUS, RP0
$000A	$00FB			MOVWF	STACK_11
$000B	$30FF			MOVLW	255
$000C	$00FA			MOVWF	STACK_10
$000D	$0BFB			DECFSZ	STACK_11, F
$000E	$2810			GOTO	$+2
$000F	$2813			GOTO	$+4
$0010	$0BFA			DECFSZ	STACK_10, F
$0011	$2810			GOTO	$-1
$0012	$280D			GOTO	$-5
$0013	$303E			MOVLW	62
$0014	$00FA			MOVWF	STACK_10
$0015	$0BFA			DECFSZ	STACK_10, F
$0016	$2815			GOTO	$-1
$0017	$0000			NOP
$0018	$0008			RETURN
$0019	$	_Delay_50us:
$0019	$3021			MOVLW	33
$001A	$1303			BCF	STATUS, RP1
$001B	$1283			BCF	STATUS, RP0
$001C	$00FA			MOVWF	STACK_10
$001D	$0BFA			DECFSZ	STACK_10, F
$001E	$281D			GOTO	$-1
$001F	$0008			RETURN
$0020	$	_Lcd_Cmd:
$0020	$1303			BCF	STATUS, RP1
$0021	$1283			BCF	STATUS, RP0
$0022	$0820			MOVF	LCD_port_address, 0
$0023	$0084			MOVWF	FSR
$0024	$0857			MOVF	FARG_Lcd_Cmd+0, 0
$0025	$1903			BTFSC	STATUS, Z
$0026	$2827			GOTO	L_Lcd_Cmd_0
$0027	$	L_Lcd_Cmd_0:
$0027	$1180			BCF	INDF, ___ENABLE
$0028	$1100			BCF	INDF, ___RS
$0029	$1380			BCF	INDF, ___DB7
$002A	$1300			BCF	INDF, ___DB6
$002B	$1280			BCF	INDF, ___DB5
$002C	$1200			BCF	INDF, ___DB4
$002D	$1BD7			BTFSC	FARG_Lcd_Cmd+0, 7
$002E	$1780			BSF	INDF, ___DB7
$002F	$1B57			BTFSC	FARG_Lcd_Cmd+0, 6
$0030	$1700			BSF	INDF, ___DB6
$0031	$1AD7			BTFSC	FARG_Lcd_Cmd+0, 5
$0032	$1680			BSF	INDF, ___DB5
$0033	$1A57			BTFSC	FARG_Lcd_Cmd+0, 4
$0034	$1600			BSF	INDF, ___DB4
$0035	$0821			MOVF	LCD_cmd_status, 0
$0036	$1903			BTFSC	STATUS, Z
$0037	$283A			GOTO	L_Lcd_Cmd_1
$0038	$1100			BCF	INDF, ___RS
$0039	$283B			GOTO	L_Lcd_Cmd_2
$003A	$	L_Lcd_Cmd_1:
$003A	$1500			BSF	INDF, ___RS
$003B	$	L_Lcd_Cmd_2:
$003B	$1580			BSF	INDF, ___ENABLE
$003C	$2004			CALL	_Delay_1us
$003D	$0857			MOVF	FARG_Lcd_Cmd+0, 0
$003E	$1903			BTFSC	STATUS, Z
$003F	$2840			GOTO	L_Lcd_Cmd_3
$0040	$	L_Lcd_Cmd_3:
$0040	$1180			BCF	INDF, ___ENABLE
$0041	$1100			BCF	INDF, ___RS
$0042	$1380			BCF	INDF, ___DB7
$0043	$1300			BCF	INDF, ___DB6
$0044	$1280			BCF	INDF, ___DB5
$0045	$1200			BCF	INDF, ___DB4
$0046	$19D7			BTFSC	FARG_Lcd_Cmd+0, 3
$0047	$1780			BSF	INDF, ___DB7
$0048	$1957			BTFSC	FARG_Lcd_Cmd+0, 2
$0049	$1700			BSF	INDF, ___DB6
$004A	$18D7			BTFSC	FARG_Lcd_Cmd+0, 1
$004B	$1680			BSF	INDF, ___DB5
$004C	$1857			BTFSC	FARG_Lcd_Cmd+0, 0
$004D	$1600			BSF	INDF, ___DB4
$004E	$0821			MOVF	LCD_cmd_status, 0
$004F	$1903			BTFSC	STATUS, Z
$0050	$2853			GOTO	L_Lcd_Cmd_4
$0051	$1100			BCF	INDF, ___RS
$0052	$2854			GOTO	L_Lcd_Cmd_5
$0053	$	L_Lcd_Cmd_4:
$0053	$1500			BSF	INDF, ___RS
$0054	$	L_Lcd_Cmd_5:
$0054	$1580			BSF	INDF, ___ENABLE
$0055	$2004			CALL	_Delay_1us
$0056	$1180			BCF	INDF, ___ENABLE
$0057	$0821			MOVF	LCD_cmd_status, 0
$0058	$1903			BTFSC	STATUS, Z
$0059	$285C			GOTO	L_Lcd_Cmd_6
$005A	$2007			CALL	_Delay_5500us
$005B	$285D			GOTO	L_Lcd_Cmd_7
$005C	$	L_Lcd_Cmd_6:
$005C	$2019			CALL	_Delay_50us
$005D	$	L_Lcd_Cmd_7:
$005D	$0008			RETURN
$005E	$	_Lcd_Chr_CP:
$005E	$1303			BCF	STATUS, RP1
$005F	$1283			BCF	STATUS, RP0
$0060	$01A1			CLRF	LCD_cmd_status, 1
$0061	$0856			MOVF	FARG_Lcd_Chr_CP+0, 0
$0062	$00D7			MOVWF	FARG_Lcd_Cmd+0
$0063	$2020			CALL	_Lcd_Cmd
$0064	$3001			MOVLW	1
$0065	$00A1			MOVWF	LCD_cmd_status
$0066	$0008			RETURN
$0067	$	_Delay_22us:
$0067	$300E			MOVLW	14
$0068	$1303			BCF	STATUS, RP1
$0069	$1283			BCF	STATUS, RP0
$006A	$00FA			MOVWF	STACK_10
$006B	$0BFA			DECFSZ	STACK_10, F
$006C	$286B			GOTO	$-1
$006D	$0000			NOP
$006E	$0008			RETURN
$006F	$	_Lcd_Init:
$006F	$2007			CALL	_Delay_5500us
$0070	$2007			CALL	_Delay_5500us
$0071	$2007			CALL	_Delay_5500us
$0072	$0852			MOVF	FARG_Lcd_Init+0, 0
$0073	$00A0			MOVWF	LCD_port_address
$0074	$0852			MOVF	FARG_Lcd_Init+0, 0
$0075	$0084			MOVWF	FSR
$0076	$1784			BSF	FSR, 7
$0077	$1180			BCF	INDF, ___ENABLE
$0078	$1100			BCF	INDF, ___RS
$0079	$1000			BCF	INDF, ___RW
$007A	$1380			BCF	INDF, ___DB7
$007B	$1300			BCF	INDF, ___DB6
$007C	$1280			BCF	INDF, ___DB5
$007D	$1200			BCF	INDF, ___DB4
$007E	$1384			BCF	FSR, 7
$007F	$1180			BCF	INDF, ___ENABLE
$0080	$1100			BCF	INDF, ___RS
$0081	$1000			BCF	INDF, ___RW
$0082	$1380			BCF	INDF, ___DB7
$0083	$1300			BCF	INDF, ___DB6
$0084	$1280			BCF	INDF, ___DB5
$0085	$1200			BCF	INDF, ___DB4
$0086	$1680			BSF	INDF, ___DB5
$0087	$1600			BSF	INDF, ___DB4
$0088	$1580			BSF	INDF, ___ENABLE
$0089	$1180			BCF	INDF, ___ENABLE
$008A	$2007			CALL	_Delay_5500us
$008B	$1580			BSF	INDF, ___ENABLE
$008C	$1180			BCF	INDF, ___ENABLE
$008D	$2007			CALL	_Delay_5500us
$008E	$1580			BSF	INDF, ___ENABLE
$008F	$1180			BCF	INDF, ___ENABLE
$0090	$2007			CALL	_Delay_5500us
$0091	$1680			BSF	INDF, ___DB5
$0092	$1200			BCF	INDF, ___DB4
$0093	$1580			BSF	INDF, ___ENABLE
$0094	$1180			BCF	INDF, ___ENABLE
$0095	$2007			CALL	_Delay_5500us
$0096	$0180			CLRF	INDF
$0097	$1680			BSF	INDF, ___DB5
$0098	$1580			BSF	INDF, ___ENABLE
$0099	$1180			BCF	INDF, ___ENABLE
$009A	$0180			CLRF	INDF
$009B	$1780			BSF	INDF, ___DB7
$009C	$1580			BSF	INDF, ___ENABLE
$009D	$1180			BCF	INDF, ___ENABLE
$009E	$2007			CALL	_Delay_5500us
$009F	$0180			CLRF	INDF
$00A0	$1600			BSF	INDF, ___DB4
$00A1	$1580			BSF	INDF, ___ENABLE
$00A2	$1180			BCF	INDF, ___ENABLE
$00A3	$0180			CLRF	INDF
$00A4	$1580			BSF	INDF, ___ENABLE
$00A5	$1180			BCF	INDF, ___ENABLE
$00A6	$2007			CALL	_Delay_5500us
$00A7	$0180			CLRF	INDF
$00A8	$1580			BSF	INDF, ___ENABLE
$00A9	$1180			BCF	INDF, ___ENABLE
$00AA	$1600			BSF	INDF, ___DB4
$00AB	$1580			BSF	INDF, ___ENABLE
$00AC	$1180			BCF	INDF, ___ENABLE
$00AD	$2007			CALL	_Delay_5500us
$00AE	$0180			CLRF	INDF
$00AF	$1580			BSF	INDF, ___ENABLE
$00B0	$1180			BCF	INDF, ___ENABLE
$00B1	$1600			BSF	INDF, ___DB4
$00B2	$1680			BSF	INDF, ___DB5
$00B3	$1700			BSF	INDF, ___DB6
$00B4	$1780			BSF	INDF, ___DB7
$00B5	$1580			BSF	INDF, ___ENABLE
$00B6	$1180			BCF	INDF, ___ENABLE
$00B7	$2007			CALL	_Delay_5500us
$00B8	$3001			MOVLW	1
$00B9	$00A1			MOVWF	LCD_cmd_status
$00BA	$0008			RETURN
$00BB	$	_LCD_Out:
$00BB	$28CD			GOTO	L_LCD_Out_17
$00BC	$	L_LCD_Out_19:
$00BC	$3080			MOVLW	128
$00BD	$1303			BCF	STATUS, RP1
$00BE	$1283			BCF	STATUS, RP0
$00BF	$00D2			MOVWF	FARG_LCD_Out+0
$00C0	$28E0			GOTO	L_LCD_Out_18
$00C1	$	L_LCD_Out_20:
$00C1	$30C0			MOVLW	192
$00C2	$00D2			MOVWF	FARG_LCD_Out+0
$00C3	$28E0			GOTO	L_LCD_Out_18
$00C4	$	L_LCD_Out_21:
$00C4	$3094			MOVLW	148
$00C5	$00D2			MOVWF	FARG_LCD_Out+0
$00C6	$28E0			GOTO	L_LCD_Out_18
$00C7	$	L_LCD_Out_22:
$00C7	$30D4			MOVLW	212
$00C8	$00D2			MOVWF	FARG_LCD_Out+0
$00C9	$28E0			GOTO	L_LCD_Out_18
$00CA	$	L_LCD_Out_23:
$00CA	$3080			MOVLW	128
$00CB	$00D2			MOVWF	FARG_LCD_Out+0
$00CC	$28E0			GOTO	L_LCD_Out_18
$00CD	$	L_LCD_Out_17:
$00CD	$1303			BCF	STATUS, RP1
$00CE	$1283			BCF	STATUS, RP0
$00CF	$0852			MOVF	FARG_LCD_Out+0, 0
$00D0	$3A01			XORLW	1
$00D1	$1903			BTFSC	STATUS, Z
$00D2	$28BC			GOTO	L_LCD_Out_19
$00D3	$0852			MOVF	FARG_LCD_Out+0, 0
$00D4	$3A02			XORLW	2
$00D5	$1903			BTFSC	STATUS, Z
$00D6	$28C1			GOTO	L_LCD_Out_20
$00D7	$0852			MOVF	FARG_LCD_Out+0, 0
$00D8	$3A03			XORLW	3
$00D9	$1903			BTFSC	STATUS, Z
$00DA	$28C4			GOTO	L_LCD_Out_21
$00DB	$0852			MOVF	FARG_LCD_Out+0, 0
$00DC	$3A04			XORLW	4
$00DD	$1903			BTFSC	STATUS, Z
$00DE	$28C7			GOTO	L_LCD_Out_22
$00DF	$28CA			GOTO	L_LCD_Out_23
$00E0	$	L_LCD_Out_18:
$00E0	$0353			DECF	FARG_LCD_Out+1, 0
$00E1	$00F0			MOVWF	STACK_0
$00E2	$0852			MOVF	FARG_LCD_Out+0, 0
$00E3	$07F0			ADDWF	STACK_0, 1
$00E4	$0870			MOVF	STACK_0, 0
$00E5	$00D2			MOVWF	FARG_LCD_Out+0
$00E6	$0870			MOVF	STACK_0, 0
$00E7	$00D7			MOVWF	FARG_Lcd_Cmd+0
$00E8	$2020			CALL	_Lcd_Cmd
$00E9	$01A1			CLRF	LCD_cmd_status, 1
$00EA	$01D5			CLRF	LCD_Out_i_L0, 1
$00EB	$	L_LCD_Out_24:
$00EB	$0855			MOVF	LCD_Out_i_L0, 0
$00EC	$0754			ADDWF	FARG_LCD_Out+2, 0
$00ED	$0084			MOVWF	FSR
$00EE	$0800			MOVF	INDF, 0
$00EF	$00F0			MOVWF	STACK_0
$00F0	$0870			MOVF	STACK_0, 0
$00F1	$1903			BTFSC	STATUS, Z
$00F2	$28FB			GOTO	L_LCD_Out_25
$00F3	$0855			MOVF	LCD_Out_i_L0, 0
$00F4	$0754			ADDWF	FARG_LCD_Out+2, 0
$00F5	$0084			MOVWF	FSR
$00F6	$0800			MOVF	INDF, 0
$00F7	$00D6			MOVWF	FARG_Lcd_Chr_CP+0
$00F8	$205E			CALL	_Lcd_Chr_CP
$00F9	$0AD5			INCF	LCD_Out_i_L0, 1
$00FA	$28EB			GOTO	L_LCD_Out_24
$00FB	$	L_LCD_Out_25:
$00FB	$3001			MOVLW	1
$00FC	$00A1			MOVWF	LCD_cmd_status
$00FD	$0008			RETURN
$00FE	$	_Adc_Read:
$00FE	$1303			BCF	STATUS, RP1
$00FF	$1283			BCF	STATUS, RP0
$0100	$019F			CLRF	ADCON0, 1
$0101	$30C0			MOVLW	192
$0102	$049F			IORWF	ADCON0, 1
$0103	$1683			BSF	STATUS, RP0
$0104	$171F			BSF	ADCON1, 6
$0105	$179F			BSF	ADCON1, 7
$0106	$1283			BCF	STATUS, RP0
$0107	$0852			MOVF	FARG_Adc_Read+0, 0
$0108	$00F0			MOVWF	STACK_0
$0109	$0DF0			RLF	STACK_0, 1
$010A	$1070			BCF	STACK_0, 0
$010B	$0DF0			RLF	STACK_0, 1
$010C	$1070			BCF	STACK_0, 0
$010D	$0DF0			RLF	STACK_0, 1
$010E	$1070			BCF	STACK_0, 0
$010F	$0870			MOVF	STACK_0, 0
$0110	$049F			IORWF	ADCON0, 1
$0111	$141F			BSF	ADCON0, 0
$0112	$2067			CALL	_Delay_22us
$0113	$151F			BSF	ADCON0, 2
$0114	$	L_Adc_Read_0:
$0114	$1D1F			BTFSS	ADCON0, 2
$0115	$2918			GOTO	L_Adc_Read_1
$0116	$0000			NOP
$0117	$2914			GOTO	L_Adc_Read_0
$0118	$	L_Adc_Read_1:
$0118	$101F			BCF	ADCON0, 0
$0119	$3008			MOVLW	8
$011A	$00F2			MOVWF	STACK_2
$011B	$081E			MOVF	ADRESH, 0
$011C	$00F0			MOVWF	STACK_0
$011D	$01F1			CLRF	STACK_0+1
$011E	$0872			MOVF	STACK_2, 0
$011F	$	L_Adc_Read_2:
$011F	$1903			BTFSC	STATUS, Z
$0120	$2926			GOTO	L_Adc_Read_3
$0121	$0DF0			RLF	STACK_0, 1
$0122	$0DF1			RLF	STACK_0+1, 1
$0123	$1070			BCF	STACK_0, 0
$0124	$3FFF			ADDLW	255
$0125	$291F			GOTO	L_Adc_Read_2
$0126	$	L_Adc_Read_3:
$0126	$1683			BSF	STATUS, RP0
$0127	$081E			MOVF	ADRESL, 0
$0128	$04F0			IORWF	STACK_0, 1
$0129	$3000			MOVLW	0
$012A	$04F1			IORWF	STACK_0+1, 1
$012B	$0008			RETURN
$012C	$	_Lcd_Chr:
$012C	$293E			GOTO	L_Lcd_Chr_8
$012D	$	L_Lcd_Chr_10:
$012D	$3080			MOVLW	128
$012E	$1303			BCF	STATUS, RP1
$012F	$1283			BCF	STATUS, RP0
$0130	$00D2			MOVWF	FARG_Lcd_Chr+0
$0131	$2951			GOTO	L_Lcd_Chr_9
$0132	$	L_Lcd_Chr_11:
$0132	$30C0			MOVLW	192
$0133	$00D2			MOVWF	FARG_Lcd_Chr+0
$0134	$2951			GOTO	L_Lcd_Chr_9
$0135	$	L_Lcd_Chr_12:
$0135	$3094			MOVLW	148
$0136	$00D2			MOVWF	FARG_Lcd_Chr+0
$0137	$2951			GOTO	L_Lcd_Chr_9
$0138	$	L_Lcd_Chr_13:
$0138	$30D4			MOVLW	212
$0139	$00D2			MOVWF	FARG_Lcd_Chr+0
$013A	$2951			GOTO	L_Lcd_Chr_9
$013B	$	L_Lcd_Chr_14:
$013B	$3080			MOVLW	128
$013C	$00D2			MOVWF	FARG_Lcd_Chr+0
$013D	$2951			GOTO	L_Lcd_Chr_9
$013E	$	L_Lcd_Chr_8:
$013E	$1303			BCF	STATUS, RP1
$013F	$1283			BCF	STATUS, RP0
$0140	$0852			MOVF	FARG_Lcd_Chr+0, 0
$0141	$3A01			XORLW	1
$0142	$1903			BTFSC	STATUS, Z
$0143	$292D			GOTO	L_Lcd_Chr_10
$0144	$0852			MOVF	FARG_Lcd_Chr+0, 0
$0145	$3A02			XORLW	2
$0146	$1903			BTFSC	STATUS, Z
$0147	$2932			GOTO	L_Lcd_Chr_11
$0148	$0852			MOVF	FARG_Lcd_Chr+0, 0
$0149	$3A03			XORLW	3
$014A	$1903			BTFSC	STATUS, Z
$014B	$2935			GOTO	L_Lcd_Chr_12
$014C	$0852			MOVF	FARG_Lcd_Chr+0, 0
$014D	$3A04			XORLW	4
$014E	$1903			BTFSC	STATUS, Z
$014F	$2938			GOTO	L_Lcd_Chr_13
$0150	$293B			GOTO	L_Lcd_Chr_14
$0151	$	L_Lcd_Chr_9:
$0151	$0353			DECF	FARG_Lcd_Chr+1, 0
$0152	$00F0			MOVWF	STACK_0
$0153	$0852			MOVF	FARG_Lcd_Chr+0, 0
$0154	$07F0			ADDWF	STACK_0, 1
$0155	$0870			MOVF	STACK_0, 0
$0156	$00D2			MOVWF	FARG_Lcd_Chr+0
$0157	$3001			MOVLW	1
$0158	$00A1			MOVWF	LCD_cmd_status
$0159	$0870			MOVF	STACK_0, 0
$015A	$00D7			MOVWF	FARG_Lcd_Cmd+0
$015B	$2020			CALL	_Lcd_Cmd
$015C	$01A1			CLRF	LCD_cmd_status, 1
$015D	$0854			MOVF	FARG_Lcd_Chr+2, 0
$015E	$00D7			MOVWF	FARG_Lcd_Cmd+0
$015F	$2020			CALL	_Lcd_Cmd
$0160	$3001			MOVLW	1
$0161	$00A1			MOVWF	LCD_cmd_status
$0162	$0008			RETURN
$0163	$	_Mul_16x16_U:
$0163	$1303			BCF	STATUS, RP1
$0164	$1283			BCF	STATUS, RP0
$0165	$01FB			CLRF	STACK_11
$0166	$01FA			CLRF	STACK_10
$0167	$01F9			CLRF	STACK_9
$0168	$3080			MOVLW	128
$0169	$00F8			MOVWF	STACK_8
$016A	$0CF1			RRF	STACK_1, F
$016B	$0CF0			RRF	STACK_0, F
$016C	$1C03			BTFSS	STATUS, C
$016D	$2977			GOTO	$+10
$016E	$0874			MOVF	STACK_4, W
$016F	$07F9			ADDWF	STACK_9, F
$0170	$0875			MOVF	STACK_5, W
$0171	$1803			BTFSC	STATUS, C
$0172	$0F75			INCFSZ	STACK_5, W
$0173	$07FA			ADDWF	STACK_10, F
$0174	$1803			BTFSC	STATUS, C
$0175	$0AFB			INCF	STACK_11, F
$0176	$1003			BCF	STATUS, C
$0177	$1FF0			BTFSS	STACK_0, 7
$0178	$297F			GOTO	$+7
$0179	$0874			MOVF	STACK_4, W
$017A	$07FA			ADDWF	STACK_10, F
$017B	$0875			MOVF	STACK_5, W
$017C	$1803			BTFSC	STATUS, C
$017D	$0F75			INCFSZ	STACK_5, W
$017E	$07FB			ADDWF	STACK_11, F
$017F	$0CFB			RRF	STACK_11, F
$0180	$0CFA			RRF	STACK_10, F
$0181	$0CF9			RRF	STACK_9, F
$0182	$0CF8			RRF	STACK_8, F
$0183	$1C03			BTFSS	STATUS, C
$0184	$296A			GOTO	$-26
$0185	$087B			MOVF	STACK_11, W
$0186	$00F3			MOVWF	STACK_3
$0187	$087A			MOVF	STACK_10, W
$0188	$00F2			MOVWF	STACK_2
$0189	$0879			MOVF	STACK_9, W
$018A	$00F1			MOVWF	STACK_1
$018B	$0878			MOVF	STACK_8, W
$018C	$00F0			MOVWF	STACK_0
$018D	$0008			RETURN
$018E	$	_Div_16x16_U:
$018E	$1303			BCF	STATUS, RP1
$018F	$1283			BCF	STATUS, RP0
$0190	$01F8			CLRF	STACK_8
$0191	$01F9			CLRF	STACK_9
$0192	$3010			MOVLW	16
$0193	$00FC			MOVWF	STACK_12
$0194	$0D71			RLF	STACK_1, W
$0195	$0DF8			RLF	STACK_8, F
$0196	$0DF9			RLF	STACK_9, F
$0197	$0874			MOVF	STACK_4, W
$0198	$02F8			SUBWF	STACK_8, F
$0199	$0875			MOVF	STACK_5, W
$019A	$1C03			BTFSS	STATUS, C
$019B	$0F75			INCFSZ	STACK_5, W
$019C	$02F9			SUBWF	STACK_9, F
$019D	$1803			BTFSC	STATUS, C
$019E	$29A6			GOTO	$+8
$019F	$0874			MOVF	STACK_4, W
$01A0	$07F8			ADDWF	STACK_8, F
$01A1	$0875			MOVF	STACK_5, W
$01A2	$1803			BTFSC	STATUS, C
$01A3	$0F75			INCFSZ	STACK_5, W
$01A4	$07F9			ADDWF	STACK_9, F
$01A5	$1003			BCF	STATUS, C