0% found this document useful (0 votes)
73 views

Assembler Mechprothese

This document contains assembly code generated by mikroVirtualMachine for an 8-bit microcontroller. The code includes subroutines for delays of 1us, 50us, and 5500us. It also contains a subroutine called _lcd8_cmd that writes command bytes to an LCD by setting the appropriate data bus pins.

Uploaded by

ErRobert Ch
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
73 views

Assembler Mechprothese

This document contains assembly code generated by mikroVirtualMachine for an 8-bit microcontroller. The code includes subroutines for delays of 1us, 50us, and 5500us. It also contains a subroutine called _lcd8_cmd that writes command bytes to an LCD by setting the appropriate data bus pins.

Uploaded by

ErRobert Ch
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOC, PDF, TXT or read online on Scribd
You are on page 1/ 62

; Assembly code generated by mikroVirtualMachine - V. 5.0.0.

3
; Date/Time: 10/05/2007 20:05:21
; Info: http://www.mikroe.com

; ADDRESS OPCODE ASM


; ----------------------------------------------
$0000 $158A BSF PCLATH, 3
$0001 $2800 GOTO _main
$0004 $ _delay_1us:
;delays.pbas,5 :: sub procedure Delay_1us
;delays.pbas,6 :: Delay_us(1)
$0004 $0000 NOP
$0005 $0000 NOP
$0006 $ delays_L_0:
$0006 $0008 RETURN
$0007 $ _delay_5500us:
;delays.pbas,29 :: sub procedure Delay_5500us
;delays.pbas,30 :: Delay_us(5500)
$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 $ delays_L_6:
$0018 $0008 RETURN
$0019 $ _delay_50us:
;delays.pbas,17 :: sub procedure Delay_50us
;delays.pbas,18 :: Delay_us(50)
$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 $ delays_L_3:
$001F $0008 RETURN
$0020 $ _lcd8_cmd:
;__lib_lcd8custom.ppas,56 ::
;__lib_lcd8custom.ppas,58 ::
$0020 $1303 BCF STATUS, RP1
$0021 $1283 BCF STATUS, RP0
$0022 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$0023 $0084 MOVWF FSR
$0024 $0180 CLRF INDF, 1
;__lib_lcd8custom.ppas,59 ::
$0025 $3000 MOVLW 0
$0026 $1683 BSF STATUS, RP0
$0027 $1BC6 BTFSC FARG_Lcd8_Cmd, 7
$0028 $3001 MOVLW 1
$0029 $00F1 MOVWF STACK_1
$002A $0871 MOVFSTACK_1, 0
$002B $3A00 XORLW 0
$002C $1903 BTFSC STATUS, Z
$002D $2839 GOTO __lib_lcd8custom_L_2
$002E $ __lib_lcd8custom_L_1:
;__lib_lcd8custom.ppas,60 ::
$002E $1283 BCF STATUS, RP0
$002F $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$0030 $0084 MOVWF FSR
$0031 $0800 MOVFINDF, 0
$0032 $00F0 MOVWF STACK_0
$0033 $0822 MOVF__lib_lcd8custom___lcd8_db7, 0
$0034 $04F0 IORWF STACK_0, 1
$0035 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$0036 $0084 MOVWF FSR
$0037 $0870 MOVFSTACK_0, 0
$0038 $0080 MOVWF INDF
$0039 $ __lib_lcd8custom_L_2:
$0039 $ __lib_lcd8custom_L_3:
$0039 $1303 BCF STATUS, RP1
$003A $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,61 ::
$003B $3000 MOVLW 0
$003C $1683 BSF STATUS, RP0
$003D $1B46 BTFSC FARG_Lcd8_Cmd, 6
$003E $3001 MOVLW 1
$003F $00F1 MOVWF STACK_1
$0040 $0871 MOVFSTACK_1, 0
$0041 $3A00 XORLW 0
$0042 $1903 BTFSC STATUS, Z
$0043 $284F GOTO __lib_lcd8custom_L_5
$0044 $ __lib_lcd8custom_L_4:
;__lib_lcd8custom.ppas,62 ::
$0044 $1283 BCF STATUS, RP0
$0045 $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$0046 $0084 MOVWF FSR
$0047 $0800 MOVFINDF, 0
$0048 $00F0 MOVWF STACK_0
$0049 $0823 MOVF__lib_lcd8custom___lcd8_db6, 0
$004A $04F0 IORWF STACK_0, 1
$004B $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$004C $0084 MOVWF FSR
$004D $0870 MOVFSTACK_0, 0
$004E $0080 MOVWF INDF
$004F $ __lib_lcd8custom_L_5:
$004F $ __lib_lcd8custom_L_6:
$004F $1303 BCF STATUS, RP1
$0050 $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,63 ::
$0051 $3000 MOVLW 0
$0052 $1683 BSF STATUS, RP0
$0053 $1AC6 BTFSC FARG_Lcd8_Cmd, 5
$0054 $3001 MOVLW 1
$0055 $00F1 MOVWF STACK_1
$0056 $0871 MOVFSTACK_1, 0
$0057 $3A00 XORLW 0
$0058 $1903 BTFSC STATUS, Z
$0059 $2865 GOTO __lib_lcd8custom_L_8
$005A $ __lib_lcd8custom_L_7:
;__lib_lcd8custom.ppas,64 ::
$005A $1283 BCF STATUS, RP0
$005B $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$005C $0084 MOVWF FSR
$005D $0800 MOVFINDF, 0
$005E $00F0 MOVWF STACK_0
$005F $0824 MOVF__lib_lcd8custom___lcd8_db5, 0
$0060 $04F0 IORWF STACK_0, 1
$0061 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$0062 $0084 MOVWF FSR
$0063 $0870 MOVFSTACK_0, 0
$0064 $0080 MOVWF INDF
$0065 $ __lib_lcd8custom_L_8:
$0065 $ __lib_lcd8custom_L_9:
$0065 $1303 BCF STATUS, RP1
$0066 $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,65 ::
$0067 $3000 MOVLW 0
$0068 $1683 BSF STATUS, RP0
$0069 $1A46 BTFSC FARG_Lcd8_Cmd, 4
$006A $3001 MOVLW 1
$006B $00F1 MOVWF STACK_1
$006C $0871 MOVFSTACK_1, 0
$006D $3A00 XORLW 0
$006E $1903 BTFSC STATUS, Z
$006F $287B GOTO __lib_lcd8custom_L_11
$0070 $ __lib_lcd8custom_L_10:
;__lib_lcd8custom.ppas,66 ::
$0070 $1283 BCF STATUS, RP0
$0071 $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$0072 $0084 MOVWF FSR
$0073 $0800 MOVFINDF, 0
$0074 $00F0 MOVWF STACK_0
$0075 $0825 MOVF__lib_lcd8custom___lcd8_db4, 0
$0076 $04F0 IORWF STACK_0, 1
$0077 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$0078 $0084 MOVWF FSR
$0079 $0870 MOVFSTACK_0, 0
$007A $0080 MOVWF INDF
$007B $ __lib_lcd8custom_L_11:
$007B $ __lib_lcd8custom_L_12:
$007B $1303 BCF STATUS, RP1
$007C $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,67 ::
$007D $3000 MOVLW 0
$007E $1683 BSF STATUS, RP0
$007F $19C6 BTFSC FARG_Lcd8_Cmd, 3
$0080 $3001 MOVLW 1
$0081 $00F1 MOVWF STACK_1
$0082 $0871 MOVFSTACK_1, 0
$0083 $3A00 XORLW 0
$0084 $1903 BTFSC STATUS, Z
$0085 $2891 GOTO __lib_lcd8custom_L_14
$0086 $ __lib_lcd8custom_L_13:
;__lib_lcd8custom.ppas,68 ::
$0086 $1283 BCF STATUS, RP0
$0087 $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$0088 $0084 MOVWF FSR
$0089 $0800 MOVFINDF, 0
$008A $00F0 MOVWF STACK_0
$008B $0826 MOVF__lib_lcd8custom___lcd8_db3, 0
$008C $04F0 IORWF STACK_0, 1
$008D $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$008E $0084 MOVWF FSR
$008F $0870 MOVFSTACK_0, 0
$0090 $0080 MOVWF INDF
$0091 $ __lib_lcd8custom_L_14:
$0091 $ __lib_lcd8custom_L_15:
$0091 $1303 BCF STATUS, RP1
$0092 $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,69 ::
$0093 $3000 MOVLW 0
$0094 $1683 BSF STATUS, RP0
$0095 $1946 BTFSC FARG_Lcd8_Cmd, 2
$0096 $3001 MOVLW 1
$0097 $00F1 MOVWF STACK_1
$0098 $0871 MOVFSTACK_1, 0
$0099 $3A00 XORLW 0
$009A $1903 BTFSC STATUS, Z
$009B $28A7 GOTO __lib_lcd8custom_L_17
$009C $ __lib_lcd8custom_L_16:
;__lib_lcd8custom.ppas,70 ::
$009C $1283 BCF STATUS, RP0
$009D $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$009E $0084 MOVWF FSR
$009F $0800 MOVFINDF, 0
$00A0 $00F0 MOVWF STACK_0
$00A1 $0827 MOVF__lib_lcd8custom___lcd8_db2, 0
$00A2 $04F0 IORWF STACK_0, 1
$00A3 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$00A4 $0084 MOVWF FSR
$00A5 $0870 MOVFSTACK_0, 0
$00A6 $0080 MOVWF INDF
$00A7 $ __lib_lcd8custom_L_17:
$00A7 $ __lib_lcd8custom_L_18:
$00A7 $1303 BCF STATUS, RP1
$00A8 $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,71 ::
$00A9 $3000 MOVLW 0
$00AA$1683 BSF STATUS, RP0
$00AB$18C6 BTFSC FARG_Lcd8_Cmd, 1
$00AC$3001 MOVLW 1
$00AD$00F1 MOVWF STACK_1
$00AE $0871 MOVFSTACK_1, 0
$00AF $3A00 XORLW 0
$00B0 $1903 BTFSC STATUS, Z
$00B1 $28BD GOTO __lib_lcd8custom_L_20
$00B2 $ __lib_lcd8custom_L_19:
;__lib_lcd8custom.ppas,72 ::
$00B2 $1283 BCF STATUS, RP0
$00B3 $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$00B4 $0084 MOVWF FSR
$00B5 $0800 MOVFINDF, 0
$00B6 $00F0 MOVWF STACK_0
$00B7 $0828 MOVF__lib_lcd8custom___lcd8_db1, 0
$00B8 $04F0 IORWF STACK_0, 1
$00B9 $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$00BA$0084 MOVWF FSR
$00BB $0870 MOVFSTACK_0, 0
$00BC $0080 MOVWF INDF
$00BD$ __lib_lcd8custom_L_20:
$00BD$ __lib_lcd8custom_L_21:
$00BD$1303 BCF STATUS, RP1
$00BE $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,73 ::
$00BF $3001 MOVLW 1
$00C0 $1683 BSF STATUS, RP0
$00C1 $0546 ANDWF FARG_Lcd8_Cmd, 0
$00C2 $00F1 MOVWF STACK_1
$00C3 $0871 MOVFSTACK_1, 0
$00C4 $3A00 XORLW 0
$00C5 $1903 BTFSC STATUS, Z
$00C6 $28D2 GOTO __lib_lcd8custom_L_23
$00C7 $ __lib_lcd8custom_L_22:
;__lib_lcd8custom.ppas,74 ::
$00C7 $1283 BCF STATUS, RP0
$00C8 $0821 MOVF__lib_lcd8custom__port_dataaddress, 0
$00C9 $0084 MOVWF FSR
$00CA$0800 MOVFINDF, 0
$00CB $00F0 MOVWF STACK_0
$00CC $0829 MOVF__lib_lcd8custom___lcd8_db0, 0
$00CD$04F0 IORWF STACK_0, 1
$00CE $0820 MOVF__lib_lcd8custom__lat_dataaddress, 0
$00CF $0084 MOVWF FSR
$00D0 $0870 MOVFSTACK_0, 0
$00D1 $0080 MOVWF INDF
$00D2 $ __lib_lcd8custom_L_23:
$00D2 $ __lib_lcd8custom_L_24:
$00D2 $1303 BCF STATUS, RP1
$00D3 $1283 BCF STATUS, RP0
;__lib_lcd8custom.ppas,76 ::
$00D4 $082A MOVF__lib_lcd8custom__cmd, 0
$00D5 $3A01 XORLW 1
$00D6 $1D03 BTFSSSTATUS, Z
$00D7 $28E5 GOTO __lib_lcd8custom_L_26
$00D8 $ __lib_lcd8custom_L_25:
;__lib_lcd8custom.ppas,77 ::
$00D8 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00D9 $0084 MOVWF FSR
$00DA$0800 MOVFINDF, 0
$00DB$00F1 MOVWF STACK_1
$00DC$092C COMF __lib_lcd8custom___lcd8_rs, W
$00DD$00F0 MOVWF STACK_0
$00DE $0871 MOVFSTACK_1, 0
$00DF $05F0 ANDWF STACK_0, 1
$00E0 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00E1 $0084 MOVWF FSR
$00E2 $0870 MOVFSTACK_0, 0
$00E3 $0080 MOVWF INDF
$00E4 $28EF GOTO __lib_lcd8custom_L_27
;__lib_lcd8custom.ppas,78 ::
$00E5 $ __lib_lcd8custom_L_26:
;__lib_lcd8custom.ppas,79 ::
$00E5 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00E6 $0084 MOVWF FSR
$00E7 $0800 MOVFINDF, 0
$00E8 $00F0 MOVWF STACK_0
$00E9 $082C MOVF__lib_lcd8custom___lcd8_rs, 0
$00EA $04F0 IORWF STACK_0, 1
$00EB $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00EC $0084 MOVWF FSR
$00ED $0870 MOVFSTACK_0, 0
$00EE $0080 MOVWF INDF
$00EF $ __lib_lcd8custom_L_27:
;__lib_lcd8custom.ppas,81 ::
$00EF $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00F0 $0084 MOVWF FSR
$00F1 $0800 MOVFINDF, 0
$00F2 $00F0 MOVWF STACK_0
$00F3 $082D MOVF__lib_lcd8custom___lcd8_enable, 0
$00F4 $04F0 IORWF STACK_0, 1
$00F5 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00F6 $0084 MOVWF FSR
$00F7 $0870 MOVFSTACK_0, 0
$00F8 $0080 MOVWF INDF
;__lib_lcd8custom.ppas,82 ::
$00F9 $2004 CALL _delay_1us
;__lib_lcd8custom.ppas,83 ::
$00FA $082B MOVF__lib_lcd8custom__ctrladdress, 0
$00FB $0084 MOVWF FSR
$00FC $0800 MOVFINDF, 0
$00FD $00F1 MOVWF STACK_1
$00FE $092D COMF __lib_lcd8custom___lcd8_enable, W
$00FF $00F0 MOVWF STACK_0
$0100 $0871 MOVFSTACK_1, 0
$0101 $05F0 ANDWF STACK_0, 1
$0102 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$0103 $0084 MOVWF FSR
$0104 $0870 MOVFSTACK_0, 0
$0105 $0080 MOVWF INDF
;__lib_lcd8custom.ppas,84 ::
$0106 $2004 CALL _delay_1us
;__lib_lcd8custom.ppas,86 ::
$0107 $082A MOVF__lib_lcd8custom__cmd, 0
$0108 $3A01 XORLW 1
$0109 $1D03 BTFSSSTATUS, Z
$010A $290D GOTO __lib_lcd8custom_L_29
$010B $ __lib_lcd8custom_L_28:
;__lib_lcd8custom.ppas,87 ::
$010B $2007 CALL _delay_5500us
$010C $290E GOTO __lib_lcd8custom_L_30
;__lib_lcd8custom.ppas,88 ::
$010D $ __lib_lcd8custom_L_29:
;__lib_lcd8custom.ppas,89 ::
$010D $2019 CALL _delay_50us
$010E $ __lib_lcd8custom_L_30:
$010E $ __lib_lcd8custom_L_0:
;__lib_lcd8custom.ppas,90 ::
$010E $0008 RETURN
$010F $ _delay_22us:
;delays.pbas,13 :: sub procedure Delay_22us
;delays.pbas,14 :: Delay_us(22)
$010F $300E MOVLW 14
$0110 $1303 BCF STATUS, RP1
$0111 $1283 BCF STATUS, RP0
$0112 $00FA MOVWF STACK_10
$0113 $0BFA DECFSZ STACK_10, F
$0114 $2913 GOTO $-1
$0115 $0000 NOP
$0116 $ delays_L_2:
$0116 $0008 RETURN
$0117 $ _div_16x16_u:
$0117 $1303 BCF STATUS, RP1
$0118 $1283 BCF STATUS, RP0
;math.ppas,107 ::
;math.ppas,110 ::
$0119 $01F8 CLRF STACK_8
;math.ppas,111 ::
$011A $01F9 CLRF STACK_9
;math.ppas,112 ::
$011B $3010 MOVLW 16
;math.ppas,113 ::
$011C $00FC MOVWF STACK_12
;math.ppas,114 ::
$011D $0D71 RLF STACK_1, W
;math.ppas,115 ::
$011E $0DF8 RLF STACK_8, F
;math.ppas,116 ::
$011F $0DF9 RLF STACK_9, F
;math.ppas,117 ::
$0120 $0874 MOVFSTACK_4, W
;math.ppas,118 ::
$0121 $02F8 SUBWF STACK_8, F
;math.ppas,119 ::
$0122 $0875 MOVFSTACK_5, W
;math.ppas,120 ::
$0123 $1C03 BTFSSSTATUS, C
;math.ppas,121 ::
$0124 $0F75 INCFSZ STACK_5, W
;math.ppas,122 ::
$0125 $02F9 SUBWF STACK_9, F
;math.ppas,123 ::
$0126 $1803 BTFSC STATUS, C
;math.ppas,124 ::
$0127 $292F GOTO $+8
;math.ppas,125 ::
$0128 $0874 MOVFSTACK_4, W
;math.ppas,126 ::
$0129 $07F8 ADDWF STACK_8, F
;math.ppas,127 ::
$012A $0875 MOVFSTACK_5, W
;math.ppas,128 ::
$012B $1803 BTFSC STATUS, C
;math.ppas,129 ::
$012C $0F75 INCFSZ STACK_5, W
;math.ppas,130 ::
$012D $07F9 ADDWF STACK_9, F
;math.ppas,131 ::
$012E $1003 BCF STATUS, C
;math.ppas,132 ::
$012F $0DF0 RLF STACK_0, F
;math.ppas,133 ::
$0130 $0DF1 RLF STACK_1, F
;math.ppas,134 ::
$0131 $0BFC DECFSZ STACK_12, F
;math.ppas,135 ::
$0132 $291D GOTO $-21
;math.ppas,136 ::
$0133 $ math_L_3:
;math.ppas,137 ::
$0133 $0008 RETURN
$0134 $ _lcd8_out:
;__lib_lcd8custom.ppas,169 ::
;__lib_lcd8custom.ppas,172 ::
$0134 $ __lib_lcd8custom_L_50:
$0134 $1303 BCF STATUS, RP1
$0135 $1683 BSF STATUS, RP0
$0136 $0842 MOVFFARG_Lcd8_Out, 0
$0137 $3A01 XORLW 1
$0138 $1D03 BTFSSSTATUS, Z
$0139 $293D GOTO __lib_lcd8custom_L_51
$013A $ __lib_lcd8custom_L_49:
$013A $3080 MOVLW 128
$013B $00C2 MOVWF FARG_Lcd8_Out
$013C $2954 GOTO __lib_lcd8custom_L_48
$013D $ __lib_lcd8custom_L_51:
;__lib_lcd8custom.ppas,173 ::
$013D $ __lib_lcd8custom_L_53:
$013D $0842 MOVFFARG_Lcd8_Out, 0
$013E $3A02 XORLW 2
$013F $1D03 BTFSSSTATUS, Z
$0140 $2944 GOTO __lib_lcd8custom_L_54
$0141 $ __lib_lcd8custom_L_52:
$0141 $30C0 MOVLW 192
$0142 $00C2 MOVWF FARG_Lcd8_Out
$0143 $2954 GOTO __lib_lcd8custom_L_48
$0144 $ __lib_lcd8custom_L_54:
;__lib_lcd8custom.ppas,174 ::
$0144 $ __lib_lcd8custom_L_56:
$0144 $0842 MOVFFARG_Lcd8_Out, 0
$0145 $3A03 XORLW 3
$0146 $1D03 BTFSSSTATUS, Z
$0147 $294B GOTO __lib_lcd8custom_L_57
$0148 $ __lib_lcd8custom_L_55:
$0148 $3094 MOVLW 148
$0149 $00C2 MOVWF FARG_Lcd8_Out
$014A $2954 GOTO __lib_lcd8custom_L_48
$014B $ __lib_lcd8custom_L_57:
;__lib_lcd8custom.ppas,175 ::
$014B $ __lib_lcd8custom_L_59:
$014B $0842 MOVFFARG_Lcd8_Out, 0
$014C $3A04 XORLW 4
$014D $1D03 BTFSSSTATUS, Z
$014E $2952 GOTO __lib_lcd8custom_L_60
$014F $ __lib_lcd8custom_L_58:
$014F $30D4 MOVLW 212
$0150 $00C2 MOVWF FARG_Lcd8_Out
;__lib_lcd8custom.ppas,176 ::
$0151 $2954 GOTO __lib_lcd8custom_L_48
$0152 $ __lib_lcd8custom_L_60:
;__lib_lcd8custom.ppas,177 ::
$0152 $3080 MOVLW 128
$0153 $00C2 MOVWF FARG_Lcd8_Out
$0154 $ __lib_lcd8custom_L_48:
;__lib_lcd8custom.ppas,180 ::
$0154 $0843 MOVFFARG_Lcd8_Out+1, 0
$0155 $0742 ADDWF FARG_Lcd8_Out, 0
$0156 $00F0 MOVWF STACK_0
$0157 $03F0 DECF STACK_0, 1
$0158 $0870 MOVFSTACK_0, 0
$0159 $00C2 MOVWF FARG_Lcd8_Out
;__lib_lcd8custom.ppas,181 ::
$015A $3001 MOVLW 1
$015B $1283 BCF STATUS, RP0
$015C $00AA MOVWF __lib_lcd8custom__cmd
;__lib_lcd8custom.ppas,182 ::
$015D $0870 MOVFSTACK_0, 0
$015E $1683 BSF STATUS, RP0
$015F $00C6 MOVWF FARG_Lcd8_Cmd
$0160 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,184 ::
$0161 $01AA CLRF __lib_lcd8custom__cmd, 1
;__lib_lcd8custom.ppas,185 ::
$0162 $1683 BSF STATUS, RP0
$0163 $01C5 CLRF _lcd8_out_local_i, 1
;__lib_lcd8custom.ppas,186 ::
$0164 $ __lib_lcd8custom_L_62:
$0164 $0845 MOVF_lcd8_out_local_i, 0
$0165 $0744 ADDWF FARG_Lcd8_Out+2, 0
$0166 $00F0 MOVWF STACK_0
$0167 $0870 MOVFSTACK_0, 0
$0168 $0084 MOVWF FSR
$0169 $0800 MOVFINDF, 0
$016A $00F2 MOVWF STACK_2
$016B $0872 MOVFSTACK_2, 0
$016C $3A00 XORLW 0
$016D $1903 BTFSC STATUS, Z
$016E $297A GOTO __lib_lcd8custom_L_63
;__lib_lcd8custom.ppas,188 ::
$016F $0845 MOVF_lcd8_out_local_i, 0
$0170 $0744 ADDWF FARG_Lcd8_Out+2, 0
$0171 $00F0 MOVWF STACK_0
$0172 $0870 MOVFSTACK_0, 0
$0173 $0084 MOVWF FSR
$0174 $0800 MOVFINDF, 0
$0175 $00C6 MOVWF FARG_Lcd8_Cmd
$0176 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,189 ::
$0177 $1683 BSF STATUS, RP0
$0178 $0AC5 INCF _lcd8_out_local_i, 1
;__lib_lcd8custom.ppas,190 ::
$0179 $2964 GOTO __lib_lcd8custom_L_62
$017A $ __lib_lcd8custom_L_63:
;__lib_lcd8custom.ppas,191 ::
$017A $3001 MOVLW 1
$017B $1283 BCF STATUS, RP0
$017C $00AA MOVWF __lib_lcd8custom__cmd
$017D $ __lib_lcd8custom_L_47:
;__lib_lcd8custom.ppas,192 ::
$017D $0008 RETURN
$017E $ _adc_read:
;adclib_a_c.ppas,11 ::
;adclib_a_c.ppas,13 ::
$017E $1303 BCF STATUS, RP1
$017F $1283 BCF STATUS, RP0
$0180 $019F CLRF ADCON0, 1
;adclib_a_c.ppas,14 ::
$0181 $30C0 MOVLW 192
$0182 $049F IORWF ADCON0, 1
;adclib_a_c.ppas,15 ::
$0183 $3040 MOVLW 64
$0184 $1683 BSF STATUS, RP0
$0185 $041F IORWF ADCON1, 0
$0186 $00F0 MOVWF STACK_0
$0187 $0870 MOVFSTACK_0, 0
$0188 $009F MOVWF ADCON1
;adclib_a_c.ppas,17 ::
$0189 $3080 MOVLW 128
$018A $0470 IORWF STACK_0, 0
$018B $009F MOVWF ADCON1
;adclib_a_c.ppas,18 ::
$018C $0842 MOVFFARG_ADC_read, 0
$018D $00F0 MOVWF STACK_0
$018E $0DF0 RLF STACK_0, 1
$018F $1070 BCF STACK_0, 0
$0190 $0DF0 RLF STACK_0, 1
$0191 $1070 BCF STACK_0, 0
$0192 $0DF0 RLF STACK_0, 1
$0193 $1070 BCF STACK_0, 0
$0194 $0870 MOVFSTACK_0, 0
$0195 $1283 BCF STATUS, RP0
$0196 $049F IORWF ADCON0, 1
;adclib_a_c.ppas,19 ::
$0197 $141F BSF ADCON0, 0
;adclib_a_c.ppas,20 ::
$0198 $210F CALL _delay_22us
;adclib_a_c.ppas,21 ::
$0199 $151F BSF ADCON0, 2
;adclib_a_c.ppas,22 ::
$019A $ adclib_a_c_L_2:
$019A $3000 MOVLW 0
$019B $191F BTFSC ADCON0, 2
$019C $3001 MOVLW 1
$019D $00F2 MOVWF STACK_2
$019E $0872 MOVFSTACK_2, 0
$019F $3A01 XORLW 1
$01A0 $1D03 BTFSSSTATUS, Z
$01A1 $29A4 GOTO adclib_a_c_L_3
;adclib_a_c.ppas,23 ::
$01A2 $0000 NOP
$01A3 $299A GOTO adclib_a_c_L_2
$01A4 $ adclib_a_c_L_3:
;adclib_a_c.ppas,24 ::
$01A4 $081E MOVFADRESH, 0
$01A5 $00F2 MOVWF STACK_2
$01A6 $01F3 CLRF STACK_2+1
$01A7 $0872 MOVFSTACK_2, 0
$01A8 $00F3 MOVWF STACK_2+1
$01A9 $01F2 CLRF STACK_2
$01AA$0872 MOVFSTACK_2, 0
$01AB$1683 BSF STATUS, RP0
$01AC$00C3 MOVWF _adc_read_local_result
$01AD$0873 MOVFSTACK_2+1, 0
$01AE $00C4 MOVWF _adc_read_local_result+1
;adclib_a_c.ppas,25 ::
$01AF $081E MOVFADRESL, 0
$01B0 $0472 IORWF STACK_2, 0
$01B1 $00C3 MOVWF _adc_read_local_result
$01B2 $0873 MOVFSTACK_2+1, 0
$01B3 $00C4 MOVWF _adc_read_local_result+1
$01B4 $3000 MOVLW 0
$01B5 $04C4 IORWF _adc_read_local_result+1, 1
;adclib_a_c.ppas,26 ::
$01B6 $1283 BCF STATUS, RP0
$01B7 $101F BCF ADCON0, 0
$01B8 $ adclib_a_c_L_0:
$01B8 $1683 BSF STATUS, RP0
$01B9 $0843 MOVF_adc_read_local_result, 0
$01BA$00F0 MOVWF STACK_0
$01BB $0844 MOVF_adc_read_local_result+1, 0
$01BC $00F1 MOVWF STACK_0+1
;adclib_a_c.ppas,27 ::
$01BD$0008 RETURN
$01BE $ _wordtostr:
;conv.ppas,30 ::
;conv.ppas,32 ::
$01BE $3001 MOVLW 1
$01BF $1303 BCF STATUS, RP1
$01C0 $1683 BSF STATUS, RP0
$01C1 $00C5 MOVWF _wordtostr_local_len
;conv.ppas,33 ::
$01C2 $0843 MOVFFARG_WordToStr+1, 0
$01C3 $3C00 SUBLW 0
$01C4 $1D03 BTFSSSTATUS, Z
$01C5 $29C8 GOTO L_WordToStr_0
$01C6 $0842 MOVFFARG_WordToStr, 0
$01C7 $3C09 SUBLW 9
$01C8 $ L_WordToStr_0:
$01C8 $1803 BTFSC STATUS, C
$01C9 $29CB GOTO conv_L_15
$01CA$ conv_L_14:
;conv.ppas,34 ::
$01CA$0AC5 INCF _wordtostr_local_len, 1
$01CB $ conv_L_15:
$01CB $ conv_L_16:
;conv.ppas,35 ::
$01CB $0843 MOVFFARG_WordToStr+1, 0
$01CC $3C00 SUBLW 0
$01CD$1D03 BTFSSSTATUS, Z
$01CE $29D1 GOTO L_WordToStr_1
$01CF $0842 MOVFFARG_WordToStr, 0
$01D0 $3C63 SUBLW 99
$01D1 $ L_WordToStr_1:
$01D1 $1803 BTFSC STATUS, C
$01D2 $29D4 GOTO conv_L_18
$01D3 $ conv_L_17:
;conv.ppas,36 ::
$01D3 $0AC5 INCF _wordtostr_local_len, 1
$01D4 $ conv_L_18:
$01D4 $ conv_L_19:
;conv.ppas,37 ::
$01D4 $0843 MOVFFARG_WordToStr+1, 0
$01D5 $3C03 SUBLW 3
$01D6 $1D03 BTFSSSTATUS, Z
$01D7 $29DA GOTO L_WordToStr_2
$01D8 $0842 MOVFFARG_WordToStr, 0
$01D9 $3CE7 SUBLW 231
$01DA$ L_WordToStr_2:
$01DA$1803 BTFSC STATUS, C
$01DB$29DD GOTO conv_L_21
$01DC$ conv_L_20:
;conv.ppas,38 ::
$01DC$0AC5 INCF _wordtostr_local_len, 1
$01DD$ conv_L_21:
$01DD$ conv_L_22:
;conv.ppas,39 ::
$01DD$0843 MOVFFARG_WordToStr+1, 0
$01DE $3C27 SUBLW 39
$01DF $1D03 BTFSSSTATUS, Z
$01E0 $29E3 GOTO L_WordToStr_3
$01E1 $0842 MOVFFARG_WordToStr, 0
$01E2 $3C0F SUBLW 15
$01E3 $ L_WordToStr_3:
$01E3 $1803 BTFSC STATUS, C
$01E4 $29E6 GOTO conv_L_24
$01E5 $ conv_L_23:
;conv.ppas,40 ::
$01E5 $0AC5 INCF _wordtostr_local_len, 1
$01E6 $ conv_L_24:
$01E6 $ conv_L_25:
;conv.ppas,41 ::
$01E6 $0844 MOVFFARG_WordToStr+2, 0
$01E7 $0084 MOVWF FSR
$01E8 $3020 MOVLW 32
$01E9 $0080 MOVWF INDF
$01EA $0A84 INCF FSR, 1
$01EB $0080 MOVWF INDF
$01EC $0A84 INCF FSR, 1
$01ED $0080 MOVWF INDF
$01EE $0A84 INCF FSR, 1
$01EF $0080 MOVWF INDF
$01F0 $0A84 INCF FSR, 1
$01F1 $0080 MOVWF INDF
$01F2 $0A84 INCF FSR, 1
$01F3 $0180 CLRF INDF
;conv.ppas,42 ::
$01F4 $0384 DECF FSR, 1
;conv.ppas,43 ::
$01F5 $ conv_L_28:
$01F5 $0845 MOVF_wordtostr_local_len, 0
$01F6 $3C00 SUBLW 0
$01F7 $1803 BTFSC STATUS, C
$01F8 $2A19 GOTO conv_L_29
;conv.ppas,45 ::
$01F9 $300A MOVLW 10
$01FA $00F4 MOVWF STACK_4
$01FB $01F5 CLRF STACK_4+1
$01FC $0842 MOVFFARG_WordToStr, 0
$01FD $00F0 MOVWF STACK_0
$01FE $0843 MOVFFARG_WordToStr+1, 0
$01FF $00F1 MOVWF STACK_0+1
$0200 $2117 CALL _div_16x16_u
$0201 $0878 MOVFSTACK_8, 0
$0202 $00F0 MOVWF STACK_0
$0203 $0879 MOVFSTACK_9, 0
$0204 $00F1 MOVWF STACK_1
$0205 $3030 MOVLW 48
$0206 $0770 ADDWF STACK_0, 0
$0207 $0080 MOVWF INDF
;conv.ppas,46 ::
;conv.ppas,47 ::
$0208 $0384 DECF FSR, 1
;conv.ppas,48 ::
$0209 $300A MOVLW 10
$020A $00F4 MOVWF STACK_4
$020B $01F5 CLRF STACK_4+1
$020C $1683 BSF STATUS, RP0
$020D $0842 MOVFFARG_WordToStr, 0
$020E $00F0 MOVWF STACK_0
$020F $0843 MOVFFARG_WordToStr+1, 0
$0210 $00F1 MOVWF STACK_0+1
$0211 $2117 CALL _div_16x16_u
$0212 $0870 MOVFSTACK_0, 0
$0213 $1683 BSF STATUS, RP0
$0214 $00C2 MOVWF FARG_WordToStr
$0215 $0871 MOVFSTACK_0+1, 0
$0216 $00C3 MOVWF FARG_WordToStr+1
;conv.ppas,49 ::
$0217 $03C5 DECF _wordtostr_local_len, 1
;conv.ppas,50 ::
$0218 $29F5 GOTO conv_L_28
$0219 $ conv_L_29:
$0219 $ conv_L_13:
;conv.ppas,51 ::
$0219 $0008 RETURN
$021A $ _mul_16x16_u:
$021A $1303 BCF STATUS, RP1
$021B $1283 BCF STATUS, RP0
;math.ppas,41 ::
;math.ppas,44 ::
$021C $01FB CLRF STACK_11
;math.ppas,45 ::
$021D $01FA CLRF STACK_10
;math.ppas,46 ::
$021E $01F9 CLRF STACK_9
;math.ppas,47 ::
$021F $3080 MOVLW 128
;math.ppas,48 ::
$0220 $00F8 MOVWF STACK_8
;math.ppas,49 ::
$0221 $0CF1 RRF STACK_1, F
;math.ppas,50 ::
$0222 $0CF0 RRF STACK_0, F
;math.ppas,51 ::
$0223 $1C03 BTFSSSTATUS, C
;math.ppas,52 ::
$0224 $2A2E GOTO $+10
;math.ppas,53 ::
$0225 $0874 MOVFSTACK_4, W
;math.ppas,54 ::
$0226 $07F9 ADDWF STACK_9, F
;math.ppas,55 ::
$0227 $0875 MOVFSTACK_5, W
;math.ppas,56 ::
$0228 $1803 BTFSC STATUS, C
;math.ppas,57 ::
$0229 $0F75 INCFSZ STACK_5, W
;math.ppas,58 ::
$022A $07FA ADDWF STACK_10, F
;math.ppas,59 ::
$022B $1803 BTFSC STATUS, C
;math.ppas,60 ::
$022C $0AFB INCF STACK_11, F
;math.ppas,61 ::
$022D $1003 BCF STATUS, C
;math.ppas,62 ::
$022E $1FF0 BTFSSSTACK_0, 7
;math.ppas,63 ::
$022F $2A36 GOTO $+7
;math.ppas,64 ::
$0230 $0874 MOVFSTACK_4, W
;math.ppas,65 ::
$0231 $07FA ADDWF STACK_10, F
;math.ppas,66 ::
$0232 $0875 MOVFSTACK_5, W
;math.ppas,67 ::
$0233 $1803 BTFSC STATUS, C
;math.ppas,68 ::
$0234 $0F75 INCFSZ STACK_5, W
;math.ppas,69 ::
$0235 $07FB ADDWF STACK_11, F
;math.ppas,70 ::
$0236 $0CFB RRF STACK_11, F
;math.ppas,71 ::
$0237 $0CFA RRF STACK_10, F
;math.ppas,72 ::
$0238 $0CF9 RRF STACK_9, F
;math.ppas,73 ::
$0239 $0CF8 RRF STACK_8, F
;math.ppas,74 ::
$023A $1C03 BTFSSSTATUS, C
;math.ppas,75 ::
$023B $2A21 GOTO $-26
;math.ppas,76 ::
$023C $087B MOVFSTACK_11, W
;math.ppas,77 ::
$023D $00F3 MOVWF STACK_3
;math.ppas,78 ::
$023E $087A MOVFSTACK_10, W
;math.ppas,79 ::
$023F $00F2 MOVWF STACK_2
;math.ppas,80 ::
$0240 $0879 MOVFSTACK_9, W
;math.ppas,81 ::
$0241 $00F1 MOVWF STACK_1
;math.ppas,82 ::
$0242 $0878 MOVFSTACK_8, W
;math.ppas,83 ::
$0243 $00F0 MOVWF STACK_0
;math.ppas,84 ::
$0244 $ math_L_1:
;math.ppas,85 ::
$0244 $0008 RETURN
$0245 $ _lcd8_init:
;__lib_lcd8custom.ppas,125 ::
;__lib_lcd8custom.ppas,127 ::
$0245 $2007 CALL _delay_5500us
;__lib_lcd8custom.ppas,128 ::
$0246 $2007 CALL _delay_5500us
;__lib_lcd8custom.ppas,129 ::
$0247 $2007 CALL _delay_5500us
;__lib_lcd8custom.ppas,131 ::
$0248 $1683 BSF STATUS, RP0
$0249 $0832 MOVFFARG_Lcd8_Init+1, 0
$024A $00F0 MOVWF STACK_0
$024B $3001 MOVLW 1
$024C $1283 BCF STATUS, RP0
$024D $00A2 MOVWF __lib_lcd8custom___lcd8_db7
$024E $0870 MOVFSTACK_0, 0
$024F $ L_Lcd8_Init_0:
$024F $1903 BTFSC STATUS, Z
$0250 $2A55 GOTO L_Lcd8_Init_1
$0251 $0DA2 RLF __lib_lcd8custom___lcd8_db7, 1
$0252 $1022 BCF __lib_lcd8custom___lcd8_db7, 0
$0253 $3FFF ADDLW 255
$0254 $2A4F GOTO L_Lcd8_Init_0
$0255 $ L_Lcd8_Init_1:
;__lib_lcd8custom.ppas,132 ::
$0255 $1683 BSF STATUS, RP0
$0256 $0833 MOVFFARG_Lcd8_Init+2, 0
$0257 $00F0 MOVWF STACK_0
$0258 $3001 MOVLW 1
$0259 $1283 BCF STATUS, RP0
$025A $00A3 MOVWF __lib_lcd8custom___lcd8_db6
$025B $0870 MOVFSTACK_0, 0
$025C $ L_Lcd8_Init_2:
$025C $1903 BTFSC STATUS, Z
$025D $2A62 GOTO L_Lcd8_Init_3
$025E $0DA3 RLF __lib_lcd8custom___lcd8_db6, 1
$025F $1023 BCF __lib_lcd8custom___lcd8_db6, 0
$0260 $3FFF ADDLW 255
$0261 $2A5C GOTO L_Lcd8_Init_2
$0262 $ L_Lcd8_Init_3:
;__lib_lcd8custom.ppas,133 ::
$0262 $1683 BSF STATUS, RP0
$0263 $0834 MOVFFARG_Lcd8_Init+3, 0
$0264 $00F0 MOVWF STACK_0
$0265 $3001 MOVLW 1
$0266 $1283 BCF STATUS, RP0
$0267 $00A4 MOVWF __lib_lcd8custom___lcd8_db5
$0268 $0870 MOVFSTACK_0, 0
$0269 $ L_Lcd8_Init_4:
$0269 $1903 BTFSC STATUS, Z
$026A $2A6F GOTO L_Lcd8_Init_5
$026B $0DA4 RLF __lib_lcd8custom___lcd8_db5, 1
$026C $1024 BCF __lib_lcd8custom___lcd8_db5, 0
$026D $3FFF ADDLW 255
$026E $2A69 GOTO L_Lcd8_Init_4
$026F $ L_Lcd8_Init_5:
;__lib_lcd8custom.ppas,134 ::
$026F $1683 BSF STATUS, RP0
$0270 $0835 MOVFFARG_Lcd8_Init+4, 0
$0271 $00F0 MOVWF STACK_0
$0272 $3001 MOVLW 1
$0273 $1283 BCF STATUS, RP0
$0274 $00A5 MOVWF __lib_lcd8custom___lcd8_db4
$0275 $0870 MOVFSTACK_0, 0
$0276 $ L_Lcd8_Init_6:
$0276 $1903 BTFSC STATUS, Z
$0277 $2A7C GOTO L_Lcd8_Init_7
$0278 $0DA5 RLF __lib_lcd8custom___lcd8_db4, 1
$0279 $1025 BCF __lib_lcd8custom___lcd8_db4, 0
$027A $3FFF ADDLW 255
$027B $2A76 GOTO L_Lcd8_Init_6
$027C $ L_Lcd8_Init_7:
;__lib_lcd8custom.ppas,135 ::
$027C $1683 BSF STATUS, RP0
$027D $0836 MOVFFARG_Lcd8_Init+5, 0
$027E $00F0 MOVWF STACK_0
$027F $3001 MOVLW 1
$0280 $1283 BCF STATUS, RP0
$0281 $00A6 MOVWF __lib_lcd8custom___lcd8_db3
$0282 $0870 MOVFSTACK_0, 0
$0283 $ L_Lcd8_Init_8:
$0283 $1903 BTFSC STATUS, Z
$0284 $2A89 GOTO L_Lcd8_Init_9
$0285 $0DA6 RLF __lib_lcd8custom___lcd8_db3, 1
$0286 $1026 BCF __lib_lcd8custom___lcd8_db3, 0
$0287 $3FFF ADDLW 255
$0288 $2A83 GOTO L_Lcd8_Init_8
$0289 $ L_Lcd8_Init_9:
;__lib_lcd8custom.ppas,136 ::
$0289 $1683 BSF STATUS, RP0
$028A $0837 MOVFFARG_Lcd8_Init+6, 0
$028B $00F0 MOVWF STACK_0
$028C $3001 MOVLW 1
$028D $1283 BCF STATUS, RP0
$028E $00A7 MOVWF __lib_lcd8custom___lcd8_db2
$028F $0870 MOVFSTACK_0, 0
$0290 $ L_Lcd8_Init_10:
$0290 $1903 BTFSC STATUS, Z
$0291 $2A96 GOTO L_Lcd8_Init_11
$0292 $0DA7 RLF __lib_lcd8custom___lcd8_db2, 1
$0293 $1027 BCF __lib_lcd8custom___lcd8_db2, 0
$0294 $3FFF ADDLW 255
$0295 $2A90 GOTO L_Lcd8_Init_10
$0296 $ L_Lcd8_Init_11:
;__lib_lcd8custom.ppas,137 ::
$0296 $1683 BSF STATUS, RP0
$0297 $0838 MOVFFARG_Lcd8_Init+7, 0
$0298 $00F0 MOVWF STACK_0
$0299 $3001 MOVLW 1
$029A $1283 BCF STATUS, RP0
$029B $00A8 MOVWF __lib_lcd8custom___lcd8_db1
$029C $0870 MOVFSTACK_0, 0
$029D $ L_Lcd8_Init_12:
$029D $1903 BTFSC STATUS, Z
$029E $2AA3 GOTO L_Lcd8_Init_13
$029F $0DA8 RLF __lib_lcd8custom___lcd8_db1, 1
$02A0 $1028 BCF __lib_lcd8custom___lcd8_db1, 0
$02A1 $3FFF ADDLW 255
$02A2 $2A9D GOTO L_Lcd8_Init_12
$02A3 $ L_Lcd8_Init_13:
;__lib_lcd8custom.ppas,138 ::
$02A3 $1683 BSF STATUS, RP0
$02A4 $0839 MOVFFARG_Lcd8_Init+8, 0
$02A5 $00F0 MOVWF STACK_0
$02A6 $3001 MOVLW 1
$02A7 $1283 BCF STATUS, RP0
$02A8 $00A9 MOVWF __lib_lcd8custom___lcd8_db0
$02A9 $0870 MOVFSTACK_0, 0
$02AA$ L_Lcd8_Init_14:
$02AA$1903 BTFSC STATUS, Z
$02AB$2AB0 GOTO L_Lcd8_Init_15
$02AC$0DA9 RLF __lib_lcd8custom___lcd8_db0, 1
$02AD$1029 BCF __lib_lcd8custom___lcd8_db0, 0
$02AE $3FFF ADDLW 255
$02AF $2AAA GOTO L_Lcd8_Init_14
$02B0 $ L_Lcd8_Init_15:
;__lib_lcd8custom.ppas,139 ::
$02B0 $1683 BSF STATUS, RP0
$02B1 $083B MOVFFARG_Lcd8_Init+10, 0
$02B2 $00F0 MOVWF STACK_0
$02B3 $3001 MOVLW 1
$02B4 $1283 BCF STATUS, RP0
$02B5 $00AC MOVWF __lib_lcd8custom___lcd8_rs
$02B6 $0870 MOVFSTACK_0, 0
$02B7 $ L_Lcd8_Init_16:
$02B7 $1903 BTFSC STATUS, Z
$02B8 $2ABD GOTO L_Lcd8_Init_17
$02B9 $0DAC RLF __lib_lcd8custom___lcd8_rs, 1
$02BA$102C BCF __lib_lcd8custom___lcd8_rs, 0
$02BB $3FFF ADDLW 255
$02BC $2AB7 GOTO L_Lcd8_Init_16
$02BD$ L_Lcd8_Init_17:
;__lib_lcd8custom.ppas,140 ::
$02BD$1683 BSF STATUS, RP0
$02BE $083C MOVFFARG_Lcd8_Init+11, 0
$02BF $00F0 MOVWF STACK_0
$02C0 $3001 MOVLW 1
$02C1 $1283 BCF STATUS, RP0
$02C2 $00AE MOVWF __lib_lcd8custom___lcd8_rw
$02C3 $0870 MOVFSTACK_0, 0
$02C4 $ L_Lcd8_Init_18:
$02C4 $1903 BTFSC STATUS, Z
$02C5 $2ACA GOTO L_Lcd8_Init_19
$02C6 $0DAE RLF __lib_lcd8custom___lcd8_rw, 1
$02C7 $102E BCF __lib_lcd8custom___lcd8_rw, 0
$02C8 $3FFF ADDLW 255
$02C9 $2AC4 GOTO L_Lcd8_Init_18
$02CA$ L_Lcd8_Init_19:
;__lib_lcd8custom.ppas,141 ::
$02CA$1683 BSF STATUS, RP0
$02CB $083D MOVFFARG_Lcd8_Init+12, 0
$02CC $00F0 MOVWF STACK_0
$02CD$3001 MOVLW 1
$02CE $1283 BCF STATUS, RP0
$02CF $00AD MOVWF __lib_lcd8custom___lcd8_enable
$02D0 $0870 MOVFSTACK_0, 0
$02D1 $ L_Lcd8_Init_20:
$02D1 $1903 BTFSC STATUS, Z
$02D2 $2AD7 GOTO L_Lcd8_Init_21
$02D3 $0DAD RLF __lib_lcd8custom___lcd8_enable, 1
$02D4 $102D BCF __lib_lcd8custom___lcd8_enable, 0
$02D5 $3FFF ADDLW 255
$02D6 $2AD1 GOTO L_Lcd8_Init_20
$02D7 $ L_Lcd8_Init_21:
;__lib_lcd8custom.ppas,143 ::
$02D7 $1683 BSF STATUS, RP0
$02D8 $0831 MOVFFARG_Lcd8_Init, 0
$02D9 $1283 BCF STATUS, RP0
$02DA$00A0 MOVWF __lib_lcd8custom__lat_dataaddress
;__lib_lcd8custom.ppas,144 ::
$02DB$1683 BSF STATUS, RP0
$02DC$0831 MOVFFARG_Lcd8_Init, 0
$02DD$1283 BCF STATUS, RP0
$02DE $00A1 MOVWF __lib_lcd8custom__port_dataaddress
;__lib_lcd8custom.ppas,145 ::
$02DF $1683 BSF STATUS, RP0
$02E0 $083A MOVFFARG_Lcd8_Init+9, 0
$02E1 $1283 BCF STATUS, RP0
$02E2 $00AB MOVWF __lib_lcd8custom__ctrladdress
;__lib_lcd8custom.ppas,147 ::
$02E3 $1683 BSF STATUS, RP0
$02E4 $0831 MOVFFARG_Lcd8_Init, 0
$02E5 $0084 MOVWF FSR
$02E6 $0180 CLRF INDF, 1
;__lib_lcd8custom.ppas,148 ::
$02E7 $3080 MOVLW 128
$02E8 $0431 IORWF FARG_Lcd8_Init, 0
$02E9 $00F0 MOVWF STACK_0
$02EA $0870 MOVFSTACK_0, 0
$02EB $1283 BCF STATUS, RP0
$02EC $00A0 MOVWF __lib_lcd8custom__lat_dataaddress
;__lib_lcd8custom.ppas,149 ::
$02ED $0870 MOVFSTACK_0, 0
$02EE $0084 MOVWF FSR
$02EF $0180 CLRF INDF, 1
;__lib_lcd8custom.ppas,150 ::
$02F0 $1683 BSF STATUS, RP0
$02F1 $0831 MOVFFARG_Lcd8_Init, 0
$02F2 $1283 BCF STATUS, RP0
$02F3 $00A0 MOVWF __lib_lcd8custom__lat_dataaddress
;__lib_lcd8custom.ppas,152 ::
$02F4 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$02F5 $0084 MOVWF FSR
$02F6 $0800 MOVFINDF, 0
$02F7 $00F1 MOVWF STACK_1
$02F8 $082D MOVF__lib_lcd8custom___lcd8_enable, 0
$02F9 $042C IORWF __lib_lcd8custom___lcd8_rs, 0
$02FA $00F0 MOVWF STACK_0
$02FB $082E MOVF__lib_lcd8custom___lcd8_rw, 0
$02FC $04F0 IORWF STACK_0, 1
$02FD $09F0 COMF STACK_0, F
$02FE $0871 MOVFSTACK_1, 0
$02FF $05F0 ANDWF STACK_0, 1
$0300 $082B MOVF__lib_lcd8custom__ctrladdress, 0
$0301 $0084 MOVWF FSR
$0302 $0870 MOVFSTACK_0, 0
$0303 $0080 MOVWF INDF
;__lib_lcd8custom.ppas,153 ::
$0304 $3080 MOVLW 128
$0305 $042B IORWF __lib_lcd8custom__ctrladdress, 0
$0306 $00F2 MOVWF STACK_2
$0307 $0872 MOVFSTACK_2, 0
$0308 $00AB MOVWF __lib_lcd8custom__ctrladdress
;__lib_lcd8custom.ppas,154 ::
$0309 $0872 MOVFSTACK_2, 0
$030A $0084 MOVWF FSR
$030B $0800 MOVFINDF, 0
$030C $00F1 MOVWF STACK_1
$030D $082D MOVF__lib_lcd8custom___lcd8_enable, 0
$030E $042C IORWF __lib_lcd8custom___lcd8_rs, 0
$030F $00F0 MOVWF STACK_0
$0310 $082E MOVF__lib_lcd8custom___lcd8_rw, 0
$0311 $04F0 IORWF STACK_0, 1
$0312 $09F0 COMF STACK_0, F
$0313 $0871 MOVFSTACK_1, 0
$0314 $05F0 ANDWF STACK_0, 1
$0315 $0872 MOVFSTACK_2, 0
$0316 $0084 MOVWF FSR
$0317 $0870 MOVFSTACK_0, 0
$0318 $0080 MOVWF INDF
;__lib_lcd8custom.ppas,155 ::
$0319 $3080 MOVLW 128
$031A $06AB XORWF __lib_lcd8custom__ctrladdress, 1
;__lib_lcd8custom.ppas,157 ::
$031B $3030 MOVLW 48
$031C $1683 BSF STATUS, RP0
$031D $00C6 MOVWF FARG_Lcd8_Cmd
$031E $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,158 ::
$031F $3030 MOVLW 48
$0320 $1683 BSF STATUS, RP0
$0321 $00C6 MOVWF FARG_Lcd8_Cmd
$0322 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,159 ::
$0323 $3030 MOVLW 48
$0324 $1683 BSF STATUS, RP0
$0325 $00C6 MOVWF FARG_Lcd8_Cmd
$0326 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,160 ::
$0327 $3038 MOVLW 56
$0328 $1683 BSF STATUS, RP0
$0329 $00C6 MOVWF FARG_Lcd8_Cmd
$032A $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,161 ::
$032B $3008 MOVLW 8
$032C $1683 BSF STATUS, RP0
$032D $00C6 MOVWF FARG_Lcd8_Cmd
$032E $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,162 ::
$032F $3001 MOVLW 1
$0330 $1683 BSF STATUS, RP0
$0331 $00C6 MOVWF FARG_Lcd8_Cmd
$0332 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,163 ::
$0333 $3006 MOVLW 6
$0334 $1683 BSF STATUS, RP0
$0335 $00C6 MOVWF FARG_Lcd8_Cmd
$0336 $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,164 ::
$0337 $300C MOVLW 12
$0338 $1683 BSF STATUS, RP0
$0339 $00C6 MOVWF FARG_Lcd8_Cmd
$033A $2020 CALL _lcd8_cmd
;__lib_lcd8custom.ppas,165 ::
$033B $3001 MOVLW 1
$033C $00AA MOVWF __lib_lcd8custom__cmd
$033D $ __lib_lcd8custom_L_46:
;__lib_lcd8custom.ppas,166 ::
$033D $0008 RETURN
$033E $ _welcome:
;mechprothese.pbas,59 :: sub procedure welcome 'write welcome text to
LCD
;mechprothese.pbas,62 :: Lcd8_out(1,1,"*** welcome! ***")
$033E $3001 MOVLW 1
$033F $1303 BCF STATUS, RP1
$0340 $1683 BSF STATUS, RP0
$0341 $00C2 MOVWF FARG_Lcd8_Out
$0342 $3001 MOVLW 1
$0343 $00C3 MOVWF FARG_Lcd8_Out+1
$0344 $302A MOVLW 42
$0345 $00B1 MOVWF ?welcome_Local_Text+0
$0346 $302A MOVLW 42
$0347 $00B2 MOVWF ?welcome_Local_Text+1
$0348 $302A MOVLW 42
$0349 $00B3 MOVWF ?welcome_Local_Text+2
$034A $3020 MOVLW 32
$034B $00B4 MOVWF ?welcome_Local_Text+3
$034C $3077 MOVLW 119
$034D $00B5 MOVWF ?welcome_Local_Text+4
$034E $3065 MOVLW 101
$034F $00B6 MOVWF ?welcome_Local_Text+5
$0350 $306C MOVLW 108
$0351 $00B7 MOVWF ?welcome_Local_Text+6
$0352 $3063 MOVLW 99
$0353 $00B8 MOVWF ?welcome_Local_Text+7
$0354 $306F MOVLW 111
$0355 $00B9 MOVWF ?welcome_Local_Text+8
$0356 $306D MOVLW 109
$0357 $00BA MOVWF ?welcome_Local_Text+9
$0358 $3065 MOVLW 101
$0359 $00BB MOVWF ?welcome_Local_Text+10
$035A $3021 MOVLW 33
$035B $00BC MOVWF ?welcome_Local_Text+11
$035C $3020 MOVLW 32
$035D $00BD MOVWF ?welcome_Local_Text+12
$035E $302A MOVLW 42
$035F $00BE MOVWF ?welcome_Local_Text+13
$0360 $302A MOVLW 42
$0361 $00BF MOVWF ?welcome_Local_Text+14
$0362 $302A MOVLW 42
$0363 $00C0 MOVWF ?welcome_Local_Text+15
$0364 $01C1 CLRF ?welcome_Local_Text+16
$0365 $30B1 MOVLW ?welcome_Local_Text
$0366 $00C4 MOVWF FARG_Lcd8_Out+2
$0367 $2134 CALL _lcd8_out
;mechprothese.pbas,63 :: Lcd8_out(2,1," BEENPROTHESE ")
$0368 $3002 MOVLW 2
$0369 $1683 BSF STATUS, RP0
$036A $00C2 MOVWF FARG_Lcd8_Out
$036B $3001 MOVLW 1
$036C $00C3 MOVWF FARG_Lcd8_Out+1
$036D $3020 MOVLW 32
$036E $00B1 MOVWF ?welcome_Local_Text+0
$036F $3020 MOVLW 32
$0370 $00B2 MOVWF ?welcome_Local_Text+1
$0371 $3042 MOVLW 66
$0372 $00B3 MOVWF ?welcome_Local_Text+2
$0373 $3045 MOVLW 69
$0374 $00B4 MOVWF ?welcome_Local_Text+3
$0375 $3045 MOVLW 69
$0376 $00B5 MOVWF ?welcome_Local_Text+4
$0377 $304E MOVLW 78
$0378 $00B6 MOVWF ?welcome_Local_Text+5
$0379 $3050 MOVLW 80
$037A $00B7 MOVWF ?welcome_Local_Text+6
$037B $3052 MOVLW 82
$037C $00B8 MOVWF ?welcome_Local_Text+7
$037D $304F MOVLW 79
$037E $00B9 MOVWF ?welcome_Local_Text+8
$037F $3054 MOVLW 84
$0380 $00BA MOVWF ?welcome_Local_Text+9
$0381 $3048 MOVLW 72
$0382 $00BB MOVWF ?welcome_Local_Text+10
$0383 $3045 MOVLW 69
$0384 $00BC MOVWF ?welcome_Local_Text+11
$0385 $3053 MOVLW 83
$0386 $00BD MOVWF ?welcome_Local_Text+12
$0387 $3045 MOVLW 69
$0388 $00BE MOVWF ?welcome_Local_Text+13
$0389 $3020 MOVLW 32
$038A $00BF MOVWF ?welcome_Local_Text+14
$038B $3020 MOVLW 32
$038C $00C0 MOVWF ?welcome_Local_Text+15
$038D $01C1 CLRF ?welcome_Local_Text+16
$038E $30B1 MOVLW ?welcome_Local_Text
$038F $00C4 MOVWF FARG_Lcd8_Out+2
$0390 $2134 CALL _lcd8_out
;mechprothese.pbas,64 :: Lcd8_out(3,-3,"Arman & Max 2007")
$0391 $3003 MOVLW 3
$0392 $1683 BSF STATUS, RP0
$0393 $00C2 MOVWF FARG_Lcd8_Out
$0394 $30FD MOVLW 253
$0395 $00C3 MOVWF FARG_Lcd8_Out+1
$0396 $3041 MOVLW 65
$0397 $00B1 MOVWF ?welcome_Local_Text+0
$0398 $3072 MOVLW 114
$0399 $00B2 MOVWF ?welcome_Local_Text+1
$039A $306D MOVLW 109
$039B $00B3 MOVWF ?welcome_Local_Text+2
$039C $3061 MOVLW 97
$039D $00B4 MOVWF ?welcome_Local_Text+3
$039E $306E MOVLW 110
$039F $00B5 MOVWF ?welcome_Local_Text+4
$03A0 $3020 MOVLW 32
$03A1 $00B6 MOVWF ?welcome_Local_Text+5
$03A2 $3026 MOVLW 38
$03A3 $00B7 MOVWF ?welcome_Local_Text+6
$03A4 $3020 MOVLW 32
$03A5 $00B8 MOVWF ?welcome_Local_Text+7
$03A6 $304D MOVLW 77
$03A7 $00B9 MOVWF ?welcome_Local_Text+8
$03A8 $3061 MOVLW 97
$03A9 $00BA MOVWF ?welcome_Local_Text+9
$03AA$3078 MOVLW 120
$03AB$00BB MOVWF ?welcome_Local_Text+10
$03AC$3020 MOVLW 32
$03AD$00BC MOVWF ?welcome_Local_Text+11
$03AE $3032 MOVLW 50
$03AF $00BD MOVWF ?welcome_Local_Text+12
$03B0 $3030 MOVLW 48
$03B1 $00BE MOVWF ?welcome_Local_Text+13
$03B2 $3030 MOVLW 48
$03B3 $00BF MOVWF ?welcome_Local_Text+14
$03B4 $3037 MOVLW 55
$03B5 $00C0 MOVWF ?welcome_Local_Text+15
$03B6 $01C1 CLRF ?welcome_Local_Text+16
$03B7 $30B1 MOVLW ?welcome_Local_Text
$03B8 $00C4 MOVWF FARG_Lcd8_Out+2
$03B9 $2134 CALL _lcd8_out
;mechprothese.pbas,65 :: Lcd8_out(4,-3,"INITALISING .")
$03BA$3004 MOVLW 4
$03BB $1683 BSF STATUS, RP0
$03BC $00C2 MOVWF FARG_Lcd8_Out
$03BD$30FD MOVLW 253
$03BE $00C3 MOVWF FARG_Lcd8_Out+1
$03BF $3049 MOVLW 73
$03C0 $00B1 MOVWF ?welcome_Local_Text+0
$03C1 $304E MOVLW 78
$03C2 $00B2 MOVWF ?welcome_Local_Text+1
$03C3 $3049 MOVLW 73
$03C4 $00B3 MOVWF ?welcome_Local_Text+2
$03C5 $3054 MOVLW 84
$03C6 $00B4 MOVWF ?welcome_Local_Text+3
$03C7 $3041 MOVLW 65
$03C8 $00B5 MOVWF ?welcome_Local_Text+4
$03C9 $304C MOVLW 76
$03CA$00B6 MOVWF ?welcome_Local_Text+5
$03CB $3049 MOVLW 73
$03CC $00B7 MOVWF ?welcome_Local_Text+6
$03CD$3053 MOVLW 83
$03CE $00B8 MOVWF ?welcome_Local_Text+7
$03CF $3049 MOVLW 73
$03D0 $00B9 MOVWF ?welcome_Local_Text+8
$03D1 $304E MOVLW 78
$03D2 $00BA MOVWF ?welcome_Local_Text+9
$03D3 $3047 MOVLW 71
$03D4 $00BB MOVWF ?welcome_Local_Text+10
$03D5 $3020 MOVLW 32
$03D6 $00BC MOVWF ?welcome_Local_Text+11
$03D7 $302E MOVLW 46
$03D8 $00BD MOVWF ?welcome_Local_Text+12
$03D9 $01BE CLRF ?welcome_Local_Text+13
$03DA$30B1 MOVLW ?welcome_Local_Text
$03DB$00C4 MOVWF FARG_Lcd8_Out+2
$03DC$2134 CALL _lcd8_out
;mechprothese.pbas,66 :: Delay_ms(1000)
$03DD$300B MOVLW 11
$03DE $00FC MOVWF STACK_12
$03DF $30FF MOVLW 255
$03E0 $00FB MOVWF STACK_11
$03E1 $30FF MOVLW 255
$03E2 $00FA MOVWF STACK_10
$03E3 $0BFC DECFSZ STACK_12, F
$03E4 $2BE6 GOTO $+2
$03E5 $2BED GOTO $+8
$03E6 $0BFB DECFSZ STACK_11, F
$03E7 $2BE9 GOTO $+2
$03E8 $2BEC GOTO $+4
$03E9 $0BFA DECFSZ STACK_10, F
$03EA $2BE9 GOTO $-1
$03EB $2BE6 GOTO $-5
$03EC $2BE3 GOTO $-9
$03ED $3033 MOVLW 51
$03EE $00FB MOVWF STACK_11
$03EF $30FF MOVLW 255
$03F0 $00FA MOVWF STACK_10
$03F1 $0BFB DECFSZ STACK_11, F
$03F2 $2BF4 GOTO $+2
$03F3 $2BF7 GOTO $+4
$03F4 $0BFA DECFSZ STACK_10, F
$03F5 $2BF4 GOTO $-1
$03F6 $2BF1 GOTO $-5
$03F7 $3088 MOVLW 136
$03F8 $00FA MOVWF STACK_10
$03F9 $0BFA DECFSZ STACK_10, F
$03FA $2BF9 GOTO $-1
$03FB $0000 NOP
$03FC $0000 NOP
;mechprothese.pbas,67 :: Lcd8_out(4,-3,"INITALISING ..")
$03FD $3004 MOVLW 4
$03FE $1683 BSF STATUS, RP0
$03FF $00C2 MOVWF FARG_Lcd8_Out
$0400 $30FD MOVLW 253
$0401 $00C3 MOVWF FARG_Lcd8_Out+1
$0402 $3049 MOVLW 73
$0403 $00B1 MOVWF ?welcome_Local_Text+0
$0404 $304E MOVLW 78
$0405 $00B2 MOVWF ?welcome_Local_Text+1
$0406 $3049 MOVLW 73
$0407 $00B3 MOVWF ?welcome_Local_Text+2
$0408 $3054 MOVLW 84
$0409 $00B4 MOVWF ?welcome_Local_Text+3
$040A $3041 MOVLW 65
$040B $00B5 MOVWF ?welcome_Local_Text+4
$040C $304C MOVLW 76
$040D $00B6 MOVWF ?welcome_Local_Text+5
$040E $3049 MOVLW 73
$040F $00B7 MOVWF ?welcome_Local_Text+6
$0410 $3053 MOVLW 83
$0411 $00B8 MOVWF ?welcome_Local_Text+7
$0412 $3049 MOVLW 73
$0413 $00B9 MOVWF ?welcome_Local_Text+8
$0414 $304E MOVLW 78
$0415 $00BA MOVWF ?welcome_Local_Text+9
$0416 $3047 MOVLW 71
$0417 $00BB MOVWF ?welcome_Local_Text+10
$0418 $3020 MOVLW 32
$0419 $00BC MOVWF ?welcome_Local_Text+11
$041A $302E MOVLW 46
$041B $00BD MOVWF ?welcome_Local_Text+12
$041C $302E MOVLW 46
$041D $00BE MOVWF ?welcome_Local_Text+13
$041E $01BF CLRF ?welcome_Local_Text+14
$041F $30B1 MOVLW ?welcome_Local_Text
$0420 $00C4 MOVWF FARG_Lcd8_Out+2
$0421 $2134 CALL _lcd8_out
;mechprothese.pbas,68 :: Delay_ms(1000)
$0422 $300B MOVLW 11
$0423 $00FC MOVWF STACK_12
$0424 $30FF MOVLW 255
$0425 $00FB MOVWF STACK_11
$0426 $30FF MOVLW 255
$0427 $00FA MOVWF STACK_10
$0428 $0BFC DECFSZ STACK_12, F
$0429 $2C2B GOTO $+2
$042A $2C32 GOTO $+8
$042B $0BFB DECFSZ STACK_11, F
$042C $2C2E GOTO $+2
$042D $2C31 GOTO $+4
$042E $0BFA DECFSZ STACK_10, F
$042F $2C2E GOTO $-1
$0430 $2C2B GOTO $-5
$0431 $2C28 GOTO $-9
$0432 $3033 MOVLW 51
$0433 $00FB MOVWF STACK_11
$0434 $30FF MOVLW 255
$0435 $00FA MOVWF STACK_10
$0436 $0BFB DECFSZ STACK_11, F
$0437 $2C39 GOTO $+2
$0438 $2C3C GOTO $+4
$0439 $0BFA DECFSZ STACK_10, F
$043A $2C39 GOTO $-1
$043B $2C36 GOTO $-5
$043C $3088 MOVLW 136
$043D $00FA MOVWF STACK_10
$043E $0BFA DECFSZ STACK_10, F
$043F $2C3E GOTO $-1
$0440 $0000 NOP
$0441 $0000 NOP
;mechprothese.pbas,69 :: Lcd8_out(4,-3,"INITALISING ...")
$0442 $3004 MOVLW 4
$0443 $1683 BSF STATUS, RP0
$0444 $00C2 MOVWF FARG_Lcd8_Out
$0445 $30FD MOVLW 253
$0446 $00C3 MOVWF FARG_Lcd8_Out+1
$0447 $3049 MOVLW 73
$0448 $00B1 MOVWF ?welcome_Local_Text+0
$0449 $304E MOVLW 78
$044A $00B2 MOVWF ?welcome_Local_Text+1
$044B $3049 MOVLW 73
$044C $00B3 MOVWF ?welcome_Local_Text+2
$044D $3054 MOVLW 84
$044E $00B4 MOVWF ?welcome_Local_Text+3
$044F $3041 MOVLW 65
$0450 $00B5 MOVWF ?welcome_Local_Text+4
$0451 $304C MOVLW 76
$0452 $00B6 MOVWF ?welcome_Local_Text+5
$0453 $3049 MOVLW 73
$0454 $00B7 MOVWF ?welcome_Local_Text+6
$0455 $3053 MOVLW 83
$0456 $00B8 MOVWF ?welcome_Local_Text+7
$0457 $3049 MOVLW 73
$0458 $00B9 MOVWF ?welcome_Local_Text+8
$0459 $304E MOVLW 78
$045A $00BA MOVWF ?welcome_Local_Text+9
$045B $3047 MOVLW 71
$045C $00BB MOVWF ?welcome_Local_Text+10
$045D $3020 MOVLW 32
$045E $00BC MOVWF ?welcome_Local_Text+11
$045F $302E MOVLW 46
$0460 $00BD MOVWF ?welcome_Local_Text+12
$0461 $302E MOVLW 46
$0462 $00BE MOVWF ?welcome_Local_Text+13
$0463 $302E MOVLW 46
$0464 $00BF MOVWF ?welcome_Local_Text+14
$0465 $01C0 CLRF ?welcome_Local_Text+15
$0466 $30B1 MOVLW ?welcome_Local_Text
$0467 $00C4 MOVWF FARG_Lcd8_Out+2
$0468 $2134 CALL _lcd8_out
;mechprothese.pbas,70 :: Delay_ms(1000)
$0469 $300B MOVLW 11
$046A $00FC MOVWF STACK_12
$046B $30FF MOVLW 255
$046C $00FB MOVWF STACK_11
$046D $30FF MOVLW 255
$046E $00FA MOVWF STACK_10
$046F $0BFC DECFSZ STACK_12, F
$0470 $2C72 GOTO $+2
$0471 $2C79 GOTO $+8
$0472 $0BFB DECFSZ STACK_11, F
$0473 $2C75 GOTO $+2
$0474 $2C78 GOTO $+4
$0475 $0BFA DECFSZ STACK_10, F
$0476 $2C75 GOTO $-1
$0477 $2C72 GOTO $-5
$0478 $2C6F GOTO $-9
$0479 $3033 MOVLW 51
$047A $00FB MOVWF STACK_11
$047B $30FF MOVLW 255
$047C $00FA MOVWF STACK_10
$047D $0BFB DECFSZ STACK_11, F
$047E $2C80 GOTO $+2
$047F $2C83 GOTO $+4
$0480 $0BFA DECFSZ STACK_10, F
$0481 $2C80 GOTO $-1
$0482 $2C7D GOTO $-5
$0483 $3088 MOVLW 136
$0484 $00FA MOVWF STACK_10
$0485 $0BFA DECFSZ STACK_10, F
$0486 $2C85 GOTO $-1
$0487 $0000 NOP
$0488 $0000 NOP
;mechprothese.pbas,71 :: Lcd8_out(4,-3,"INITALISING ....")
$0489 $3004 MOVLW 4
$048A $1683 BSF STATUS, RP0
$048B $00C2 MOVWF FARG_Lcd8_Out
$048C $30FD MOVLW 253
$048D $00C3 MOVWF FARG_Lcd8_Out+1
$048E $3049 MOVLW 73
$048F $00B1 MOVWF ?welcome_Local_Text+0
$0490 $304E MOVLW 78
$0491 $00B2 MOVWF ?welcome_Local_Text+1
$0492 $3049 MOVLW 73
$0493 $00B3 MOVWF ?welcome_Local_Text+2
$0494 $3054 MOVLW 84
$0495 $00B4 MOVWF ?welcome_Local_Text+3
$0496 $3041 MOVLW 65
$0497 $00B5 MOVWF ?welcome_Local_Text+4
$0498 $304C MOVLW 76
$0499 $00B6 MOVWF ?welcome_Local_Text+5
$049A $3049 MOVLW 73
$049B $00B7 MOVWF ?welcome_Local_Text+6
$049C $3053 MOVLW 83
$049D $00B8 MOVWF ?welcome_Local_Text+7
$049E $3049 MOVLW 73
$049F $00B9 MOVWF ?welcome_Local_Text+8
$04A0 $304E MOVLW 78
$04A1 $00BA MOVWF ?welcome_Local_Text+9
$04A2 $3047 MOVLW 71
$04A3 $00BB MOVWF ?welcome_Local_Text+10
$04A4 $3020 MOVLW 32
$04A5 $00BC MOVWF ?welcome_Local_Text+11
$04A6 $302E MOVLW 46
$04A7 $00BD MOVWF ?welcome_Local_Text+12
$04A8 $302E MOVLW 46
$04A9 $00BE MOVWF ?welcome_Local_Text+13
$04AA$302E MOVLW 46
$04AB$00BF MOVWF ?welcome_Local_Text+14
$04AC$302E MOVLW 46
$04AD$00C0 MOVWF ?welcome_Local_Text+15
$04AE $01C1 CLRF ?welcome_Local_Text+16
$04AF $30B1 MOVLW ?welcome_Local_Text
$04B0 $00C4 MOVWF FARG_Lcd8_Out+2
$04B1 $2134 CALL _lcd8_out
;mechprothese.pbas,76 :: Delay_ms(1000)
$04B2 $300B MOVLW 11
$04B3 $00FC MOVWF STACK_12
$04B4 $30FF MOVLW 255
$04B5 $00FB MOVWF STACK_11
$04B6 $30FF MOVLW 255
$04B7 $00FA MOVWF STACK_10
$04B8 $0BFC DECFSZ STACK_12, F
$04B9 $2CBB GOTO $+2
$04BA$2CC2 GOTO $+8
$04BB $0BFB DECFSZ STACK_11, F
$04BC $2CBE GOTO $+2
$04BD$2CC1 GOTO $+4
$04BE $0BFA DECFSZ STACK_10, F
$04BF $2CBE GOTO $-1
$04C0 $2CBB GOTO $-5
$04C1 $2CB8 GOTO $-9
$04C2 $3033 MOVLW 51
$04C3 $00FB MOVWF STACK_11
$04C4 $30FF MOVLW 255
$04C5 $00FA MOVWF STACK_10
$04C6 $0BFB DECFSZ STACK_11, F
$04C7 $2CC9 GOTO $+2
$04C8 $2CCC GOTO $+4
$04C9 $0BFA DECFSZ STACK_10, F
$04CA$2CC9 GOTO $-1
$04CB $2CC6 GOTO $-5
$04CC $3088 MOVLW 136
$04CD$00FA MOVWF STACK_10
$04CE $0BFA DECFSZ STACK_10, F
$04CF $2CCE GOTO $-1
$04D0 $0000 NOP
$04D1 $0000 NOP
$04D2 $ mechprothese_L_2:
$04D2 $0008 RETURN
$04D3 $ _pwm1_start:
;pwm_c21.ppas,61 ::
;pwm_c21.ppas,63 ::
$04D3 $1303 BCF STATUS, RP1
$04D4 $1683 BSF STATUS, RP0
$04D5 $1107 BCF TRISC, 2
;pwm_c21.ppas,64 ::
$04D6 $1283 BCF STATUS, RP0
$04D7 $1512 BSF T2CON, 2
;pwm_c21.ppas,65 ::
$04D8 $300C MOVLW 12
$04D9 $0497 IORWF CCP1CON, 1
$04DA$ pwm_c21_L_8:
;pwm_c21.ppas,66 ::
$04DA$0008 RETURN
$04DB$ _pwm2_start:
;pwm_c21.ppas,96 ::
;pwm_c21.ppas,98 ::
$04DB$1303 BCF STATUS, RP1
$04DC$1683 BSF STATUS, RP0
$04DD$1087 BCF TRISC, 1
;pwm_c21.ppas,99 ::
$04DE $1283 BCF STATUS, RP0
$04DF $1512 BSF T2CON, 2
;pwm_c21.ppas,100 ::
$04E0 $300C MOVLW 12
$04E1 $049D IORWF CCP2CON, 1
$04E2 $ pwm_c21_L_14:
;pwm_c21.ppas,101 ::
$04E2 $0008 RETURN
$04E3 $ _readvalues:
;mechprothese.pbas,29 :: sub procedure ReadValues
;mechprothese.pbas,31 :: Manual = (ADC_read(4))/41 * 10 'read the level of the
manual switch
$04E3 $3004 MOVLW 4
$04E4 $1303 BCF STATUS, RP1
$04E5 $1683 BSF STATUS, RP0
$04E6 $00C2 MOVWF FARG_ADC_read
$04E7 $217E CALL _adc_read
$04E8 $3029 MOVLW 41
$04E9 $00F4 MOVWF STACK_4
$04EA $01F5 CLRF STACK_4+1
$04EB $2117 CALL _div_16x16_u
$04EC $300A MOVLW 10
$04ED $00F4 MOVWF STACK_4
$04EE $01F5 CLRF STACK_4+1
$04EF $221A CALL _mul_16x16_u
$04F0 $0870 MOVFSTACK_0, 0
$04F1 $00AF MOVWF _manual
$04F2 $0871 MOVFSTACK_0+1, 0
$04F3 $00B0 MOVWF _manual+1
;mechprothese.pbas,32 :: Manualdisplay = (Manual)*10/24
$04F4 $300A MOVLW 10
$04F5 $00F4 MOVWF STACK_4
$04F6 $01F5 CLRF STACK_4+1
$04F7 $221A CALL _mul_16x16_u
$04F8 $3018 MOVLW 24
$04F9 $00F4 MOVWF STACK_4
$04FA $01F5 CLRF STACK_4+1
$04FB $2117 CALL _div_16x16_u
$04FC $0870 MOVFSTACK_0, 0
$04FD $00B1 MOVWF _manualdisplay
$04FE $0871 MOVFSTACK_0+1, 0
$04FF $00B2 MOVWF _manualdisplay+1
;mechprothese.pbas,33 :: WordToStr(Manualdisplay,Stifness)
$0500 $0870 MOVFSTACK_0, 0
$0501 $1683 BSF STATUS, RP0
$0502 $00C2 MOVWF FARG_WordToStr
$0503 $0871 MOVFSTACK_0+1, 0
$0504 $00C3 MOVWF FARG_WordToStr+1
$0505 $3033 MOVLW _stifness
$0506 $00C4 MOVWF FARG_WordToStr+2
$0507 $21BE CALL _wordtostr
;mechprothese.pbas,35 :: Spier1 = (ADC_read(0)-80)*5' 0 'read pressure in
Spier1 and conversion to: min 0 mbar (steps of 100mbar) max 3000mbar
$0508 $01C2 CLRF FARG_ADC_read, 1
$0509 $217E CALL _adc_read
$050A $3050 MOVLW 80
$050B $02F0 SUBWF STACK_0, 1
$050C $1C03 BTFSSSTATUS, C
$050D $03F1 DECF STACK_0+1, 1
$050E $3005 MOVLW 5
$050F $00F4 MOVWF STACK_4
$0510 $01F5 CLRF STACK_4+1
$0511 $221A CALL _mul_16x16_u
$0512 $0870 MOVFSTACK_0, 0
$0513 $00BA MOVWF _spier1
$0514 $0871 MOVFSTACK_0+1, 0
$0515 $00BB MOVWF _spier1+1
;mechprothese.pbas,36 :: WordToStr(Spier1,SP1) ' convert word to string for
display on LCD
$0516 $0870 MOVFSTACK_0, 0
$0517 $1683 BSF STATUS, RP0
$0518 $00C2 MOVWF FARG_WordToStr
$0519 $0871 MOVFSTACK_0+1, 0
$051A $00C3 MOVWF FARG_WordToStr+1
$051B $303C MOVLW _sp1
$051C $00C4 MOVWF FARG_WordToStr+2
$051D $21BE CALL _wordtostr
;mechprothese.pbas,39 :: Spier2 = (ADC_read(1)-80)*5'/ 34 *100 'read pressure
in Spier2 and conversion to: min 0 mbar (steps of 100mbar) max 3000mbar
$051E $3001 MOVLW 1
$051F $00C2 MOVWF FARG_ADC_read
$0520 $217E CALL _adc_read
$0521 $3050 MOVLW 80
$0522 $02F0 SUBWF STACK_0, 1
$0523 $1C03 BTFSSSTATUS, C
$0524 $03F1 DECF STACK_0+1, 1
$0525 $3005 MOVLW 5
$0526 $00F4 MOVWF STACK_4
$0527 $01F5 CLRF STACK_4+1
$0528 $221A CALL _mul_16x16_u
$0529 $0870 MOVFSTACK_0, 0
$052A $00C3 MOVWF _spier2
$052B $0871 MOVFSTACK_0+1, 0
$052C $00C4 MOVWF _spier2+1
;mechprothese.pbas,40 :: WordToStr(Spier2,SP2) ' convert word to string for
display on LCD
$052D $0870 MOVFSTACK_0, 0
$052E $1683 BSF STATUS, RP0
$052F $00C2 MOVWF FARG_WordToStr
$0530 $0871 MOVFSTACK_0+1, 0
$0531 $00C3 MOVWF FARG_WordToStr+1
$0532 $3045 MOVLW _sp2
$0533 $00C4 MOVWF FARG_WordToStr+2
$0534 $21BE CALL _wordtostr
;mechprothese.pbas,42 :: Spier3 = (ADC_read(2)-80)*5'/ 34 * 100 'read pressure
in Spier3 and conversion to: min 0 mbar (steps of 100mbar) max 3000mbar
$0535 $3002 MOVLW 2
$0536 $00C2 MOVWF FARG_ADC_read
$0537 $217E CALL _adc_read
$0538 $3050 MOVLW 80
$0539 $02F0 SUBWF STACK_0, 1
$053A $1C03 BTFSSSTATUS, C
$053B $03F1 DECF STACK_0+1, 1
$053C $3005 MOVLW 5
$053D $00F4 MOVWF STACK_4
$053E $01F5 CLRF STACK_4+1
$053F $221A CALL _mul_16x16_u
$0540 $0870 MOVFSTACK_0, 0
$0541 $00CC MOVWF _spier3
$0542 $0871 MOVFSTACK_0+1, 0
$0543 $00CD MOVWF _spier3+1
;mechprothese.pbas,43 :: WordToStr(Spier3,SP3) ' convert word to string for
display on LCD
$0544 $0870 MOVFSTACK_0, 0
$0545 $1683 BSF STATUS, RP0
$0546 $00C2 MOVWF FARG_WordToStr
$0547 $0871 MOVFSTACK_0+1, 0
$0548 $00C3 MOVWF FARG_WordToStr+1
$0549 $304E MOVLW _sp3
$054A $00C4 MOVWF FARG_WordToStr+2
$054B $21BE CALL _wordtostr
;mechprothese.pbas,45 :: Fr = ADC_read(3) '/ 50 'Read frequentie
$054C $3003 MOVLW 3
$054D $00C2 MOVWF FARG_ADC_read
$054E $217E CALL _adc_read
$054F $0870 MOVFSTACK_0, 0
$0550 $1283 BCF STATUS, RP0
$0551 $00D5 MOVWF _fr
$0552 $0871 MOVFSTACK_0+1, 0
$0553 $00D6 MOVWF _fr+1
;mechprothese.pbas,46 :: WordToStr(Fr,Frequentie)
$0554 $0870 MOVFSTACK_0, 0
$0555 $1683 BSF STATUS, RP0
$0556 $00C2 MOVWF FARG_WordToStr
$0557 $0871 MOVFSTACK_0+1, 0
$0558 $00C3 MOVWF FARG_WordToStr+1
$0559 $3057 MOVLW _frequentie
$055A $00C4 MOVWF FARG_WordToStr+2
$055B $21BE CALL _wordtostr
$055C $ mechprothese_L_0:
$055C $0008 RETURN
$055D $ _display:
;mechprothese.pbas,50 :: sub procedure Display 'write to LCD
;mechprothese.pbas,52 :: Lcd8_out(1,8,SP1) 'value of Spier1
$055D $3001 MOVLW 1
$055E $1303 BCF STATUS, RP1
$055F $1683 BSF STATUS, RP0
$0560 $00C2 MOVWF FARG_Lcd8_Out
$0561 $3008 MOVLW 8
$0562 $00C3 MOVWF FARG_Lcd8_Out+1
$0563 $303C MOVLW _sp1
$0564 $00C4 MOVWF FARG_Lcd8_Out+2
$0565 $2134 CALL _lcd8_out
;mechprothese.pbas,53 :: Lcd8_out(2,8,SP2) 'value of Spier2
$0566 $3002 MOVLW 2
$0567 $1683 BSF STATUS, RP0
$0568 $00C2 MOVWF FARG_Lcd8_Out
$0569 $3008 MOVLW 8
$056A $00C3 MOVWF FARG_Lcd8_Out+1
$056B $3045 MOVLW _sp2
$056C $00C4 MOVWF FARG_Lcd8_Out+2
$056D $2134 CALL _lcd8_out
;mechprothese.pbas,54 :: Lcd8_out(3,4,SP3) 'value of Spier3
$056E $3003 MOVLW 3
$056F $1683 BSF STATUS, RP0
$0570 $00C2 MOVWF FARG_Lcd8_Out
$0571 $3004 MOVLW 4
$0572 $00C3 MOVWF FARG_Lcd8_Out+1
$0573 $304E MOVLW _sp3
$0574 $00C4 MOVWF FARG_Lcd8_Out+2
$0575 $2134 CALL _lcd8_out
;mechprothese.pbas,57 :: Delay_ms(100)
$0576 $3002 MOVLW 2
$0577 $00FC MOVWF STACK_12
$0578 $30FF MOVLW 255
$0579 $00FB MOVWF STACK_11
$057A $30FF MOVLW 255
$057B $00FA MOVWF STACK_10
$057C $0BFC DECFSZ STACK_12, F
$057D $2D7F GOTO $+2
$057E $2D86 GOTO $+8
$057F $0BFB DECFSZ STACK_11, F
$0580 $2D82 GOTO $+2
$0581 $2D85 GOTO $+4
$0582 $0BFA DECFSZ STACK_10, F
$0583 $2D82 GOTO $-1
$0584 $2D7F GOTO $-5
$0585 $2D7C GOTO $-9
$0586 $3006 MOVLW 6
$0587 $00FB MOVWF STACK_11
$0588 $30FF MOVLW 255
$0589 $00FA MOVWF STACK_10
$058A $0BFB DECFSZ STACK_11, F
$058B $2D8D GOTO $+2
$058C $2D90 GOTO $+4
$058D $0BFA DECFSZ STACK_10, F
$058E $2D8D GOTO $-1
$058F $2D8A GOTO $-5
$0590 $300A MOVLW 10
$0591 $00FA MOVWF STACK_10
$0592 $0BFA DECFSZ STACK_10, F
$0593 $2D92 GOTO $-1
$0594 $0000 NOP
$0595 $ mechprothese_L_1:
$0595 $0008 RETURN
$0596 $ _pwm1_change_duty:
;pwm_c21.ppas,52 ::
;pwm_c21.ppas,54 ::
$0596 $1303 BCF STATUS, RP1
$0597 $1683 BSF STATUS, RP0
$0598 $0812 MOVFPR2, 0
$0599 $00F0 MOVWF STACK_0
$059A $01F1 CLRF STACK_0+1
$059B $0870 MOVFSTACK_0, 0
$059C $3F01 ADDLW 1
$059D $00F4 MOVWF STACK_4
$059E $3000 MOVLW 0
$059F $1803 BTFSC STATUS, C
$05A0 $3F01 ADDLW 1
$05A1 $0771 ADDWF STACK_0+1, 0
$05A2 $00F5 MOVWF STACK_4+1
$05A3 $1283 BCF STATUS, RP0
$05A4 $086C MOVFFARG_PWM1_Change_Duty, 0
$05A5 $00F0 MOVWF STACK_0
$05A6 $01F1 CLRF STACK_0+1
$05A7 $221A CALL _mul_16x16_u
$05A8 $3006 MOVLW 6
$05A9 $00F2 MOVWF STACK_2
$05AA$0870 MOVFSTACK_0, 0
$05AB$00F8 MOVWF STACK_8
$05AC$0871 MOVFSTACK_0+1, 0
$05AD$00F9 MOVWF STACK_8+1
$05AE $0872 MOVFSTACK_2, 0
$05AF $ L_PWM1_Change_Duty_2:
$05AF $1903 BTFSC STATUS, Z
$05B0 $2DB6 GOTO L_PWM1_Change_Duty_3
$05B1 $0CF9 RRF STACK_8+1, 1
$05B2 $0CF8 RRF STACK_8, 1
$05B3 $13F9 BCF STACK_8+1, 7
$05B4 $3FFF ADDLW 255
$05B5 $2DAF GOTO L_PWM1_Change_Duty_2
$05B6 $ L_PWM1_Change_Duty_3:
;pwm_c21.ppas,55 ::
$05B6 $0878 MOVFSTACK_8, 0
$05B7 $00F0 MOVWF STACK_0
$05B8 $0879 MOVFSTACK_8+1, 0
$05B9 $00F1 MOVWF STACK_0+1
$05BA$0DF0 RLF STACK_0, 1
$05BB $0DF1 RLF STACK_0+1, 1
$05BC $1070 BCF STACK_0, 0
$05BD$0DF0 RLF STACK_0, 1
$05BE $0DF1 RLF STACK_0+1, 1
$05BF $1070 BCF STACK_0, 0
$05C0 $0DF0 RLF STACK_0, 1
$05C1 $0DF1 RLF STACK_0+1, 1
$05C2 $1070 BCF STACK_0, 0
$05C3 $0DF0 RLF STACK_0, 1
$05C4 $0DF1 RLF STACK_0+1, 1
$05C5 $1070 BCF STACK_0, 0
$05C6 $3030 MOVLW 48
$05C7 $0570 ANDWF STACK_0, 0
$05C8 $00F6 MOVWF STACK_6
$05C9 $0871 MOVFSTACK_0+1, 0
$05CA$00F7 MOVWF STACK_6+1
$05CB $3000 MOVLW 0
$05CC $05F7 ANDWF STACK_6+1, 1
;pwm_c21.ppas,56 ::
$05CD$0878 MOVFSTACK_8, 0
$05CE $00F0 MOVWF STACK_0
$05CF $0879 MOVFSTACK_8+1, 0
$05D0 $00F1 MOVWF STACK_0+1
$05D1 $0CF1 RRF STACK_0+1, 1
$05D2 $0CF0 RRF STACK_0, 1
$05D3 $13F1 BCF STACK_0+1, 7
$05D4 $0CF1 RRF STACK_0+1, 1
$05D5 $0CF0 RRF STACK_0, 1
$05D6 $13F1 BCF STACK_0+1, 7
$05D7 $0870 MOVFSTACK_0, 0
$05D8 $0095 MOVWF CCPR1L
;pwm_c21.ppas,57 ::
$05D9 $300F MOVLW 15
$05DA$0597 ANDWF CCP1CON, 1
;pwm_c21.ppas,58 ::
$05DB$0876 MOVFSTACK_6, 0
$05DC$0497 IORWF CCP1CON, 1
$05DD$ pwm_c21_L_7:
;pwm_c21.ppas,59 ::
$05DD$0008 RETURN
$05DE $ _pwm2_change_duty:
;pwm_c21.ppas,87 ::
;pwm_c21.ppas,89 ::
$05DE $1303 BCF STATUS, RP1
$05DF $1683 BSF STATUS, RP0
$05E0 $0812 MOVFPR2, 0
$05E1 $00F0 MOVWF STACK_0
$05E2 $01F1 CLRF STACK_0+1
$05E3 $0870 MOVFSTACK_0, 0
$05E4 $3F01 ADDLW 1
$05E5 $00F4 MOVWF STACK_4
$05E6 $3000 MOVLW 0
$05E7 $1803 BTFSC STATUS, C
$05E8 $3F01 ADDLW 1
$05E9 $0771 ADDWF STACK_0+1, 0
$05EA $00F5 MOVWF STACK_4+1
$05EB $1283 BCF STATUS, RP0
$05EC $086C MOVFFARG_PWM2_Change_Duty, 0
$05ED $00F0 MOVWF STACK_0
$05EE $01F1 CLRF STACK_0+1
$05EF $221A CALL _mul_16x16_u
$05F0 $3006 MOVLW 6
$05F1 $00F2 MOVWF STACK_2
$05F2 $0870 MOVFSTACK_0, 0
$05F3 $00F8 MOVWF STACK_8
$05F4 $0871 MOVFSTACK_0+1, 0
$05F5 $00F9 MOVWF STACK_8+1
$05F6 $0872 MOVFSTACK_2, 0
$05F7 $ L_PWM2_Change_Duty_4:
$05F7 $1903 BTFSC STATUS, Z
$05F8 $2DFE GOTO L_PWM2_Change_Duty_5
$05F9 $0CF9 RRF STACK_8+1, 1
$05FA $0CF8 RRF STACK_8, 1
$05FB $13F9 BCF STACK_8+1, 7
$05FC $3FFF ADDLW 255
$05FD $2DF7 GOTO L_PWM2_Change_Duty_4
$05FE $ L_PWM2_Change_Duty_5:
;pwm_c21.ppas,90 ::
$05FE $0878 MOVFSTACK_8, 0
$05FF $00F0 MOVWF STACK_0
$0600 $0879 MOVFSTACK_8+1, 0
$0601 $00F1 MOVWF STACK_0+1
$0602 $0DF0 RLF STACK_0, 1
$0603 $0DF1 RLF STACK_0+1, 1
$0604 $1070 BCF STACK_0, 0
$0605 $0DF0 RLF STACK_0, 1
$0606 $0DF1 RLF STACK_0+1, 1
$0607 $1070 BCF STACK_0, 0
$0608 $0DF0 RLF STACK_0, 1
$0609 $0DF1 RLF STACK_0+1, 1
$060A $1070 BCF STACK_0, 0
$060B $0DF0 RLF STACK_0, 1
$060C $0DF1 RLF STACK_0+1, 1
$060D $1070 BCF STACK_0, 0
$060E $3030 MOVLW 48
$060F $0570 ANDWF STACK_0, 0
$0610 $00F6 MOVWF STACK_6
$0611 $0871 MOVFSTACK_0+1, 0
$0612 $00F7 MOVWF STACK_6+1
$0613 $3000 MOVLW 0
$0614 $05F7 ANDWF STACK_6+1, 1
;pwm_c21.ppas,91 ::
$0615 $0878 MOVFSTACK_8, 0
$0616 $00F0 MOVWF STACK_0
$0617 $0879 MOVFSTACK_8+1, 0
$0618 $00F1 MOVWF STACK_0+1
$0619 $0CF1 RRF STACK_0+1, 1
$061A $0CF0 RRF STACK_0, 1
$061B $13F1 BCF STACK_0+1, 7
$061C $0CF1 RRF STACK_0+1, 1
$061D $0CF0 RRF STACK_0, 1
$061E $13F1 BCF STACK_0+1, 7
$061F $0870 MOVFSTACK_0, 0
$0620 $009B MOVWF CCPR2L
;pwm_c21.ppas,92 ::
$0621 $300F MOVLW 15
$0622 $059D ANDWF CCP2CON, 1
;pwm_c21.ppas,93 ::
$0623 $0876 MOVFSTACK_6, 0
$0624 $049D IORWF CCP2CON, 1
$0625 $ pwm_c21_L_13:
;pwm_c21.ppas,94 ::
$0625 $0008 RETURN
$0626 $ _pwm1_init:
;pwm_c21.ppas,43 ::
;pwm_c21.ppas,45 ::
$0626 $1303 BCF STATUS, RP1
$0627 $1283 BCF STATUS, RP0
$0628 $0195 CLRF CCPR1L, 1
;pwm_c21.ppas,46 ::
$0629 $1217 BCF CCP1CON, 4
;pwm_c21.ppas,47 ::
$062A $1297 BCF CCP1CON, 5
$062B $ pwm_c21_L_6:
;pwm_c21.ppas,48 ::
$062B $0008 RETURN
$062C $ _pwm2_init:
;pwm_c21.ppas,78 ::
;pwm_c21.ppas,80 ::
$062C $1303 BCF STATUS, RP1
$062D $1283 BCF STATUS, RP0
$062E $019B CLRF CCPR2L, 1
;pwm_c21.ppas,81 ::
$062F $121D BCF CCP2CON, 4
;pwm_c21.ppas,82 ::
$0630 $129D BCF CCP2CON, 5
$0631 $ pwm_c21_L_12:
;pwm_c21.ppas,83 ::
$0631 $0008 RETURN
$0800 $ _main:
;mechprothese.pbas,84 :: main:
$0800 $ _main_main:
;mechprothese.pbas,85 :: ADCON1 = %10000010 ' configure analog inputs and
Vref
$0800 $3082 MOVLW 130
$0801 $1303 BCF STATUS, RP1
$0802 $1683 BSF STATUS, RP0
$0803 $009F MOVWF ADCON1
;mechprothese.pbas,87 :: TRISA = %00101111 ' designate PORTA as input (Bit
0-3 :Spier1,2,3,hoek, Bit 5: Manual) !!!en toch ADC_read(4)!!!
$0804 $302F MOVLW 47
$0805 $0085 MOVWF TRISA
;mechprothese.pbas,88 :: TRISB = %00000000 ' Port B as output (Display DB0-
DB7)
$0806 $0186 CLRF TRISB, 1
;mechprothese.pbas,89 :: TRISC = %00011001 ' 7 => 0
(E,RW,RS,switch2,switch1, Spier2+spier3,Spier1,switch0)
$0807 $3019 MOVLW 25
$0808 $0087 MOVWF TRISC
;mechprothese.pbas,92 ::
Lcd8_Init(PORTB,7,6,5,4,3,2,1,0,PORTC,5,6,7)'initialising Display (standard
procedure) (DB7,...,DB0,RS,R/W,E)
$0809 $3006 MOVLW PORTB
$080A $00B1 MOVWF FARG_Lcd8_Init
$080B $3007 MOVLW 7
$080C $00B2 MOVWF FARG_Lcd8_Init+1
$080D $3006 MOVLW 6
$080E $00B3 MOVWF FARG_Lcd8_Init+2
$080F $3005 MOVLW 5
$0810 $00B4 MOVWF FARG_Lcd8_Init+3
$0811 $3004 MOVLW 4
$0812 $00B5 MOVWF FARG_Lcd8_Init+4
$0813 $3003 MOVLW 3
$0814 $00B6 MOVWF FARG_Lcd8_Init+5
$0815 $3002 MOVLW 2
$0816 $00B7 MOVWF FARG_Lcd8_Init+6
$0817 $3001 MOVLW 1
$0818 $00B8 MOVWF FARG_Lcd8_Init+7
$0819 $01B9 CLRF FARG_Lcd8_Init+8, 1
$081A $3007 MOVLW PORTC
$081B $00BA MOVWF FARG_Lcd8_Init+9
$081C $3005 MOVLW 5
$081D $00BB MOVWF FARG_Lcd8_Init+10
$081E $3006 MOVLW 6
$081F $00BC MOVWF FARG_Lcd8_Init+11
$0820 $3007 MOVLW 7
$0821 $00BD MOVWF FARG_Lcd8_Init+12
$0822 $118A BCF PCLATH, 3
$0823 $2245 CALL _lcd8_init
$0824 $158A BSF PCLATH, 3
;mechprothese.pbas,93 :: Lcd8_Cmd(LCD_CLEAR) 'clear screen
$0825 $3001 MOVLW 1
$0826 $1683 BSF STATUS, RP0
$0827 $00C6 MOVWF FARG_Lcd8_Cmd
$0828 $118A BCF PCLATH, 3
$0829 $2020 CALL _lcd8_cmd
$082A $158A BSF PCLATH, 3
;mechprothese.pbas,94 :: Delay_ms(1000) '1sec delay
$082B $300B MOVLW 11
$082C $00FC MOVWF STACK_12
$082D $30FF MOVLW 255
$082E $00FB MOVWF STACK_11
$082F $30FF MOVLW 255
$0830 $00FA MOVWF STACK_10
$0831 $0BFC DECFSZ STACK_12, F
$0832 $2834 GOTO $+2
$0833 $283B GOTO $+8
$0834 $0BFB DECFSZ STACK_11, F
$0835 $2837 GOTO $+2
$0836 $283A GOTO $+4
$0837 $0BFA DECFSZ STACK_10, F
$0838 $2837 GOTO $-1
$0839 $2834 GOTO $-5
$083A $2831 GOTO $-9
$083B $3033 MOVLW 51
$083C $00FB MOVWF STACK_11
$083D $30FF MOVLW 255
$083E $00FA MOVWF STACK_10
$083F $0BFB DECFSZ STACK_11, F
$0840 $2842 GOTO $+2
$0841 $2845 GOTO $+4
$0842 $0BFA DECFSZ STACK_10, F
$0843 $2842 GOTO $-1
$0844 $283F GOTO $-5
$0845 $3088 MOVLW 136
$0846 $00FA MOVWF STACK_10
$0847 $0BFA DECFSZ STACK_10, F
$0848 $2847 GOTO $-1
$0849 $0000 NOP
$084A $0000 NOP
;mechprothese.pbas,97 :: welcome
$084B $118A BCF PCLATH, 3
$084C $233E CALL _welcome
$084D $158A BSF PCLATH, 3
;mechprothese.pbas,98 :: Delay_ms(1000) '1sec delay
$084E $300B MOVLW 11
$084F $00FC MOVWF STACK_12
$0850 $30FF MOVLW 255
$0851 $00FB MOVWF STACK_11
$0852 $30FF MOVLW 255
$0853 $00FA MOVWF STACK_10
$0854 $0BFC DECFSZ STACK_12, F
$0855 $2857 GOTO $+2
$0856 $285E GOTO $+8
$0857 $0BFB DECFSZ STACK_11, F
$0858 $285A GOTO $+2
$0859 $285D GOTO $+4
$085A $0BFA DECFSZ STACK_10, F
$085B $285A GOTO $-1
$085C $2857 GOTO $-5
$085D $2854 GOTO $-9
$085E $3033 MOVLW 51
$085F $00FB MOVWF STACK_11
$0860 $30FF MOVLW 255
$0861 $00FA MOVWF STACK_10
$0862 $0BFB DECFSZ STACK_11, F
$0863 $2865 GOTO $+2
$0864 $2868 GOTO $+4
$0865 $0BFA DECFSZ STACK_10, F
$0866 $2865 GOTO $-1
$0867 $2862 GOTO $-5
$0868 $3088 MOVLW 136
$0869 $00FA MOVWF STACK_10
$086A $0BFA DECFSZ STACK_10, F
$086B $286A GOTO $-1
$086C $0000 NOP
$086D $0000 NOP
;mechprothese.pbas,100 :: Lcd8_out(1,1,"Spier1: mb") 'standard
procedure to write to LCD
$086E $3001 MOVLW 1
$086F $1683 BSF STATUS, RP0
$0870 $00C2 MOVWF FARG_Lcd8_Out
$0871 $3001 MOVLW 1
$0872 $00C3 MOVWF FARG_Lcd8_Out+1
$0873 $3053 MOVLW 83
$0874 $00A0 MOVWF ?main_Local_Text+0
$0875 $3070 MOVLW 112
$0876 $00A1 MOVWF ?main_Local_Text+1
$0877 $3069 MOVLW 105
$0878 $00A2 MOVWF ?main_Local_Text+2
$0879 $3065 MOVLW 101
$087A $00A3 MOVWF ?main_Local_Text+3
$087B $3072 MOVLW 114
$087C $00A4 MOVWF ?main_Local_Text+4
$087D $3031 MOVLW 49
$087E $00A5 MOVWF ?main_Local_Text+5
$087F $303A MOVLW 58
$0880 $00A6 MOVWF ?main_Local_Text+6
$0881 $3020 MOVLW 32
$0882 $00A7 MOVWF ?main_Local_Text+7
$0883 $3020 MOVLW 32
$0884 $00A8 MOVWF ?main_Local_Text+8
$0885 $3020 MOVLW 32
$0886 $00A9 MOVWF ?main_Local_Text+9
$0887 $3020 MOVLW 32
$0888 $00AA MOVWF ?main_Local_Text+10
$0889 $3020 MOVLW 32
$088A $00AB MOVWF ?main_Local_Text+11
$088B $3020 MOVLW 32
$088C $00AC MOVWF ?main_Local_Text+12
$088D $3020 MOVLW 32
$088E $00AD MOVWF ?main_Local_Text+13
$088F $306D MOVLW 109
$0890 $00AE MOVWF ?main_Local_Text+14
$0891 $3062 MOVLW 98
$0892 $00AF MOVWF ?main_Local_Text+15
$0893 $01B0 CLRF ?main_Local_Text+16
$0894 $30A0 MOVLW ?main_Local_Text
$0895 $00C4 MOVWF FARG_Lcd8_Out+2
$0896 $118A BCF PCLATH, 3
$0897 $2134 CALL _lcd8_out
$0898 $158A BSF PCLATH, 3
;mechprothese.pbas,101 :: Lcd8_out(2,1,"Spier2: mb")
$0899 $3002 MOVLW 2
$089A $1683 BSF STATUS, RP0
$089B $00C2 MOVWF FARG_Lcd8_Out
$089C $3001 MOVLW 1
$089D $00C3 MOVWF FARG_Lcd8_Out+1
$089E $3053 MOVLW 83
$089F $00A0 MOVWF ?main_Local_Text+0
$08A0 $3070 MOVLW 112
$08A1 $00A1 MOVWF ?main_Local_Text+1
$08A2 $3069 MOVLW 105
$08A3 $00A2 MOVWF ?main_Local_Text+2
$08A4 $3065 MOVLW 101
$08A5 $00A3 MOVWF ?main_Local_Text+3
$08A6 $3072 MOVLW 114
$08A7 $00A4 MOVWF ?main_Local_Text+4
$08A8 $3032 MOVLW 50
$08A9 $00A5 MOVWF ?main_Local_Text+5
$08AA$303A MOVLW 58
$08AB$00A6 MOVWF ?main_Local_Text+6
$08AC$3020 MOVLW 32
$08AD$00A7 MOVWF ?main_Local_Text+7
$08AE $3020 MOVLW 32
$08AF $00A8 MOVWF ?main_Local_Text+8
$08B0 $3020 MOVLW 32
$08B1 $00A9 MOVWF ?main_Local_Text+9
$08B2 $3020 MOVLW 32
$08B3 $00AA MOVWF ?main_Local_Text+10
$08B4 $3020 MOVLW 32
$08B5 $00AB MOVWF ?main_Local_Text+11
$08B6 $3020 MOVLW 32
$08B7 $00AC MOVWF ?main_Local_Text+12
$08B8 $3020 MOVLW 32
$08B9 $00AD MOVWF ?main_Local_Text+13
$08BA$306D MOVLW 109
$08BB $00AE MOVWF ?main_Local_Text+14
$08BC $3062 MOVLW 98
$08BD$00AF MOVWF ?main_Local_Text+15
$08BE $01B0 CLRF ?main_Local_Text+16
$08BF $30A0 MOVLW ?main_Local_Text
$08C0 $00C4 MOVWF FARG_Lcd8_Out+2
$08C1 $118A BCF PCLATH, 3
$08C2 $2134 CALL _lcd8_out
$08C3 $158A BSF PCLATH, 3
;mechprothese.pbas,102 :: Lcd8_out(3,-3,"Spier3: mb") 'to
syncronise positions you have to scoop 5 places on line 3 and 4
$08C4 $3003 MOVLW 3
$08C5 $1683 BSF STATUS, RP0
$08C6 $00C2 MOVWF FARG_Lcd8_Out
$08C7 $30FD MOVLW 253
$08C8 $00C3 MOVWF FARG_Lcd8_Out+1
$08C9 $3053 MOVLW 83
$08CA$00A0 MOVWF ?main_Local_Text+0
$08CB $3070 MOVLW 112
$08CC $00A1 MOVWF ?main_Local_Text+1
$08CD$3069 MOVLW 105
$08CE $00A2 MOVWF ?main_Local_Text+2
$08CF $3065 MOVLW 101
$08D0 $00A3 MOVWF ?main_Local_Text+3
$08D1 $3072 MOVLW 114
$08D2 $00A4 MOVWF ?main_Local_Text+4
$08D3 $3033 MOVLW 51
$08D4 $00A5 MOVWF ?main_Local_Text+5
$08D5 $303A MOVLW 58
$08D6 $00A6 MOVWF ?main_Local_Text+6
$08D7 $3020 MOVLW 32
$08D8 $00A7 MOVWF ?main_Local_Text+7
$08D9 $3020 MOVLW 32
$08DA$00A8 MOVWF ?main_Local_Text+8
$08DB$3020 MOVLW 32
$08DC$00A9 MOVWF ?main_Local_Text+9
$08DD$3020 MOVLW 32
$08DE $00AA MOVWF ?main_Local_Text+10
$08DF $3020 MOVLW 32
$08E0 $00AB MOVWF ?main_Local_Text+11
$08E1 $3020 MOVLW 32
$08E2 $00AC MOVWF ?main_Local_Text+12
$08E3 $3020 MOVLW 32
$08E4 $00AD MOVWF ?main_Local_Text+13
$08E5 $306D MOVLW 109
$08E6 $00AE MOVWF ?main_Local_Text+14
$08E7 $3062 MOVLW 98
$08E8 $00AF MOVWF ?main_Local_Text+15
$08E9 $01B0 CLRF ?main_Local_Text+16
$08EA $30A0 MOVLW ?main_Local_Text
$08EB $00C4 MOVWF FARG_Lcd8_Out+2
$08EC $118A BCF PCLATH, 3
$08ED $2134 CALL _lcd8_out
$08EE $158A BSF PCLATH, 3
;mechprothese.pbas,107 :: Count = 0
$08EF $01DE CLRF _count
$08F0 $01DF CLRF _count+1
;mechprothese.pbas,108 :: V=0
$08F1 $01E0 CLRF _v
$08F2 $01E1 CLRF _v+1
;mechprothese.pbas,109 :: A=0
$08F3 $01E2 CLRF _a
$08F4 $01E3 CLRF _a+1
;mechprothese.pbas,110 :: DemoKnop=0
$08F5 $01E4 CLRF _demoknop, 1
;mechprothese.pbas,111 :: ManKnop=0
$08F6 $01E5 CLRF _manknop, 1
;mechprothese.pbas,112 :: NopKnop=0
$08F7 $01E6 CLRF _nopknop, 1
;mechprothese.pbas,115 :: PWM1_init(8000) ' For Spier2 en 3 portC.2
$08F8 $30F9 MOVLW 249
$08F9 $1683 BSF STATUS, RP0
$08FA $0092 MOVWF PR2
$08FB $118A BCF PCLATH, 3
$08FC $2626 CALL _pwm1_init
$08FD $158A BSF PCLATH, 3
;mechprothese.pbas,116 :: PWM1_start
$08FE $118A BCF PCLATH, 3
$08FF $24D3 CALL _pwm1_start
$0900 $158A BSF PCLATH, 3
;mechprothese.pbas,118 :: PWM2_init(8000) ' For Spier1 portC.1
$0901 $30F9 MOVLW 249
$0902 $1683 BSF STATUS, RP0
$0903 $0092 MOVWF PR2
$0904 $118A BCF PCLATH, 3
$0905 $262C CALL _pwm2_init
$0906 $158A BSF PCLATH, 3
;mechprothese.pbas,119 :: PWM2_start
$0907 $118A BCF PCLATH, 3
$0908 $24DB CALL _pwm2_start
$0909 $158A BSF PCLATH, 3
;mechprothese.pbas,123 :: Lus:
$090A $ _main_lus:
;mechprothese.pbas,125 :: ReadValues 'Spier1,2,3 and Hoek are read and convert
to the right values
$090A $118A BCF PCLATH, 3
$090B $24E3 CALL _readvalues
$090C $158A BSF PCLATH, 3
;mechprothese.pbas,126 :: Display 'puts the values on the Display
$090D $118A BCF PCLATH, 3
$090E $255D CALL _display
$090F $158A BSF PCLATH, 3
;mechprothese.pbas,131 :: if PORTC.0 =1 then
$0910 $3001 MOVLW 1
$0911 $0507 ANDWF PORTC, 0
$0912 $00F2 MOVWF STACK_2
$0913 $0872 MOVFSTACK_2, 0
$0914 $3A01 XORLW 1
$0915 $1D03 BTFSSSTATUS, Z
$0916 $2954 GOTO mechprothese_L_5
$0917 $ mechprothese_L_4:
;mechprothese.pbas,132 :: DemoKnop=1
$0917 $3001 MOVLW 1
$0918 $00E4 MOVWF _demoknop
;mechprothese.pbas,133 :: ManKnop=0
$0919 $01E5 CLRF _manknop, 1
;mechprothese.pbas,134 :: NopKnop=0
$091A $01E6 CLRF _nopknop, 1
;mechprothese.pbas,135 :: Lcd8_out(4,-3," ")
$091B $3004 MOVLW 4
$091C $1683 BSF STATUS, RP0
$091D $00C2 MOVWF FARG_Lcd8_Out
$091E $30FD MOVLW 253
$091F $00C3 MOVWF FARG_Lcd8_Out+1
$0920 $3020 MOVLW 32
$0921 $00A0 MOVWF ?main_Local_Text+0
$0922 $3020 MOVLW 32
$0923 $00A1 MOVWF ?main_Local_Text+1
$0924 $3020 MOVLW 32
$0925 $00A2 MOVWF ?main_Local_Text+2
$0926 $3020 MOVLW 32
$0927 $00A3 MOVWF ?main_Local_Text+3
$0928 $3020 MOVLW 32
$0929 $00A4 MOVWF ?main_Local_Text+4
$092A $3020 MOVLW 32
$092B $00A5 MOVWF ?main_Local_Text+5
$092C $3020 MOVLW 32
$092D $00A6 MOVWF ?main_Local_Text+6
$092E $3020 MOVLW 32
$092F $00A7 MOVWF ?main_Local_Text+7
$0930 $3020 MOVLW 32
$0931 $00A8 MOVWF ?main_Local_Text+8
$0932 $3020 MOVLW 32
$0933 $00A9 MOVWF ?main_Local_Text+9
$0934 $3020 MOVLW 32
$0935 $00AA MOVWF ?main_Local_Text+10
$0936 $3020 MOVLW 32
$0937 $00AB MOVWF ?main_Local_Text+11
$0938 $3020 MOVLW 32
$0939 $00AC MOVWF ?main_Local_Text+12
$093A $3020 MOVLW 32
$093B $00AD MOVWF ?main_Local_Text+13
$093C $3020 MOVLW 32
$093D $00AE MOVWF ?main_Local_Text+14
$093E $3020 MOVLW 32
$093F $00AF MOVWF ?main_Local_Text+15
$0940 $01B0 CLRF ?main_Local_Text+16
$0941 $30A0 MOVLW ?main_Local_Text
$0942 $00C4 MOVWF FARG_Lcd8_Out+2
$0943 $118A BCF PCLATH, 3
$0944 $2134 CALL _lcd8_out
$0945 $158A BSF PCLATH, 3
;mechprothese.pbas,136 :: Count = 0
$0946 $01DE CLRF _count
$0947 $01DF CLRF _count+1
;mechprothese.pbas,137 :: A=0
$0948 $01E2 CLRF _a
$0949 $01E3 CLRF _a+1
;mechprothese.pbas,138 :: V=0
$094A $01E0 CLRF _v
$094B $01E1 CLRF _v+1
;mechprothese.pbas,139 :: PWM1_change_duty(0)
$094C $01EC CLRF FARG_PWM1_Change_Duty, 1
$094D $118A BCF PCLATH, 3
$094E $2596 CALL _pwm1_change_duty
$094F $158A BSF PCLATH, 3
;mechprothese.pbas,140 :: PWM2_change_duty(0)
$0950 $01EC CLRF FARG_PWM2_Change_Duty, 1
$0951 $118A BCF PCLATH, 3
$0952 $25DE CALL _pwm2_change_duty
$0953 $158A BSF PCLATH, 3
$0954 $ mechprothese_L_5:
;mechprothese.pbas,141 :: end if
$0954 $ mechprothese_L_6:
;mechprothese.pbas,143 :: if PORTC.3=1 then
$0954 $3000 MOVLW 0
$0955 $1987 BTFSC PORTC, 3
$0956 $3001 MOVLW 1
$0957 $00F2 MOVWF STACK_2
$0958 $0872 MOVFSTACK_2, 0
$0959 $3A01 XORLW 1
$095A $1D03 BTFSSSTATUS, Z
$095B $2999 GOTO mechprothese_L_8
$095C $ mechprothese_L_7:
;mechprothese.pbas,144 :: DemoKnop=0
$095C $01E4 CLRF _demoknop, 1
;mechprothese.pbas,145 :: ManKnop=1
$095D $3001 MOVLW 1
$095E $00E5 MOVWF _manknop
;mechprothese.pbas,146 :: NopKnop=0
$095F $01E6 CLRF _nopknop, 1
;mechprothese.pbas,147 :: Lcd8_out(4,-3," ")
$0960 $3004 MOVLW 4
$0961 $1683 BSF STATUS, RP0
$0962 $00C2 MOVWF FARG_Lcd8_Out
$0963 $30FD MOVLW 253
$0964 $00C3 MOVWF FARG_Lcd8_Out+1
$0965 $3020 MOVLW 32
$0966 $00A0 MOVWF ?main_Local_Text+0
$0967 $3020 MOVLW 32
$0968 $00A1 MOVWF ?main_Local_Text+1
$0969 $3020 MOVLW 32
$096A $00A2 MOVWF ?main_Local_Text+2
$096B $3020 MOVLW 32
$096C $00A3 MOVWF ?main_Local_Text+3
$096D $3020 MOVLW 32
$096E $00A4 MOVWF ?main_Local_Text+4
$096F $3020 MOVLW 32
$0970 $00A5 MOVWF ?main_Local_Text+5
$0971 $3020 MOVLW 32
$0972 $00A6 MOVWF ?main_Local_Text+6
$0973 $3020 MOVLW 32
$0974 $00A7 MOVWF ?main_Local_Text+7
$0975 $3020 MOVLW 32
$0976 $00A8 MOVWF ?main_Local_Text+8
$0977 $3020 MOVLW 32
$0978 $00A9 MOVWF ?main_Local_Text+9
$0979 $3020 MOVLW 32
$097A $00AA MOVWF ?main_Local_Text+10
$097B $3020 MOVLW 32
$097C $00AB MOVWF ?main_Local_Text+11
$097D $3020 MOVLW 32
$097E $00AC MOVWF ?main_Local_Text+12
$097F $3020 MOVLW 32
$0980 $00AD MOVWF ?main_Local_Text+13
$0981 $3020 MOVLW 32
$0982 $00AE MOVWF ?main_Local_Text+14
$0983 $3020 MOVLW 32
$0984 $00AF MOVWF ?main_Local_Text+15
$0985 $01B0 CLRF ?main_Local_Text+16
$0986 $30A0 MOVLW ?main_Local_Text
$0987 $00C4 MOVWF FARG_Lcd8_Out+2
$0988 $118A BCF PCLATH, 3
$0989 $2134 CALL _lcd8_out
$098A $158A BSF PCLATH, 3
;mechprothese.pbas,148 :: Count = 0
$098B $01DE CLRF _count
$098C $01DF CLRF _count+1
;mechprothese.pbas,149 :: A=0
$098D $01E2 CLRF _a
$098E $01E3 CLRF _a+1
;mechprothese.pbas,150 :: V=0
$098F $01E0 CLRF _v
$0990 $01E1 CLRF _v+1
;mechprothese.pbas,151 :: PWM1_change_duty(0)
$0991 $01EC CLRF FARG_PWM1_Change_Duty, 1
$0992 $118A BCF PCLATH, 3
$0993 $2596 CALL _pwm1_change_duty
$0994 $158A BSF PCLATH, 3
;mechprothese.pbas,152 :: PWM2_change_duty(0)
$0995 $01EC CLRF FARG_PWM2_Change_Duty, 1
$0996 $118A BCF PCLATH, 3
$0997 $25DE CALL _pwm2_change_duty
$0998 $158A BSF PCLATH, 3
$0999 $ mechprothese_L_8:
;mechprothese.pbas,154 :: end if
$0999 $ mechprothese_L_9:
;mechprothese.pbas,157 :: if PORTC.4=1 then
$0999 $3000 MOVLW 0
$099A $1A07 BTFSC PORTC, 4
$099B $3001 MOVLW 1
$099C $00F2 MOVWF STACK_2
$099D $0872 MOVFSTACK_2, 0
$099E $3A01 XORLW 1
$099F $1D03 BTFSSSTATUS, Z
$09A0 $29A5 GOTO mechprothese_L_11
$09A1 $ mechprothese_L_10:
;mechprothese.pbas,158 :: DemoKnop=0
$09A1 $01E4 CLRF _demoknop, 1
;mechprothese.pbas,159 :: ManKnop=0
$09A2 $01E5 CLRF _manknop, 1
;mechprothese.pbas,160 :: NopKnop=1
$09A3 $3001 MOVLW 1
$09A4 $00E6 MOVWF _nopknop
$09A5 $ mechprothese_L_11:
;mechprothese.pbas,161 :: end if
$09A5 $ mechprothese_L_12:
;mechprothese.pbas,165 :: if DemoKnop=1 then
$09A5 $0864 MOVF_demoknop, 0
$09A6 $3A01 XORLW 1
$09A7 $1D03 BTFSSSTATUS, Z
$09A8 $29AA GOTO mechprothese_L_14
$09A9 $ mechprothese_L_13:
;mechprothese.pbas,166 :: goto Demo
$09A9 $29EE GOTO _main_demo
$09AA$ mechprothese_L_14:
;mechprothese.pbas,167 :: end if
$09AA$ mechprothese_L_15:
;mechprothese.pbas,169 :: if ManKnop=1 then
$09AA$0865 MOVF_manknop, 0
$09AB$3A01 XORLW 1
$09AC$1D03 BTFSSSTATUS, Z
$09AD$29AF GOTO mechprothese_L_17
$09AE $ mechprothese_L_16:
;mechprothese.pbas,170 :: goto manual
$09AE $2AF4 GOTO _main_manual
$09AF $ mechprothese_L_17:
;mechprothese.pbas,171 :: end if
$09AF $ mechprothese_L_18:
;mechprothese.pbas,173 :: if NopKnop=1 then
$09AF $0866 MOVF_nopknop, 0
$09B0 $3A01 XORLW 1
$09B1 $1D03 BTFSSSTATUS, Z
$09B2 $29B4 GOTO mechprothese_L_20
$09B3 $ mechprothese_L_19:
;mechprothese.pbas,174 :: goto NOP_lus
$09B3 $29B4 GOTO _main_nop_lus
$09B4 $ mechprothese_L_20:
;mechprothese.pbas,175 :: end if
$09B4 $ mechprothese_L_21:
;mechprothese.pbas,178 :: NOP_lus:
$09B4 $ _main_nop_lus:
;mechprothese.pbas,179 :: Lcd8_out(4,-3," ")
$09B4 $3004 MOVLW 4
$09B5 $1683 BSF STATUS, RP0
$09B6 $00C2 MOVWF FARG_Lcd8_Out
$09B7 $30FD MOVLW 253
$09B8 $00C3 MOVWF FARG_Lcd8_Out+1
$09B9 $3020 MOVLW 32
$09BA$00A0 MOVWF ?main_Local_Text+0
$09BB $3020 MOVLW 32
$09BC $00A1 MOVWF ?main_Local_Text+1
$09BD$3020 MOVLW 32
$09BE $00A2 MOVWF ?main_Local_Text+2
$09BF $3020 MOVLW 32
$09C0 $00A3 MOVWF ?main_Local_Text+3
$09C1 $3020 MOVLW 32
$09C2 $00A4 MOVWF ?main_Local_Text+4
$09C3 $3020 MOVLW 32
$09C4 $00A5 MOVWF ?main_Local_Text+5
$09C5 $3020 MOVLW 32
$09C6 $00A6 MOVWF ?main_Local_Text+6
$09C7 $3020 MOVLW 32
$09C8 $00A7 MOVWF ?main_Local_Text+7
$09C9 $3020 MOVLW 32
$09CA$00A8 MOVWF ?main_Local_Text+8
$09CB $3020 MOVLW 32
$09CC $00A9 MOVWF ?main_Local_Text+9
$09CD$3020 MOVLW 32
$09CE $00AA MOVWF ?main_Local_Text+10
$09CF $3020 MOVLW 32
$09D0 $00AB MOVWF ?main_Local_Text+11
$09D1 $3020 MOVLW 32
$09D2 $00AC MOVWF ?main_Local_Text+12
$09D3 $3020 MOVLW 32
$09D4 $00AD MOVWF ?main_Local_Text+13
$09D5 $3020 MOVLW 32
$09D6 $00AE MOVWF ?main_Local_Text+14
$09D7 $3020 MOVLW 32
$09D8 $00AF MOVWF ?main_Local_Text+15
$09D9 $01B0 CLRF ?main_Local_Text+16
$09DA$30A0 MOVLW ?main_Local_Text
$09DB$00C4 MOVWF FARG_Lcd8_Out+2
$09DC$118A BCF PCLATH, 3
$09DD$2134 CALL _lcd8_out
$09DE $158A BSF PCLATH, 3
;mechprothese.pbas,180 :: Count = 0
$09DF $01DE CLRF _count
$09E0 $01DF CLRF _count+1
;mechprothese.pbas,181 :: A=0
$09E1 $01E2 CLRF _a
$09E2 $01E3 CLRF _a+1
;mechprothese.pbas,182 :: V=0
$09E3 $01E0 CLRF _v
$09E4 $01E1 CLRF _v+1
;mechprothese.pbas,183 :: PWM1_change_duty(0)
$09E5 $01EC CLRF FARG_PWM1_Change_Duty, 1
$09E6 $118A BCF PCLATH, 3
$09E7 $2596 CALL _pwm1_change_duty
$09E8 $158A BSF PCLATH, 3
;mechprothese.pbas,184 :: PWM2_change_duty(0)
$09E9 $01EC CLRF FARG_PWM2_Change_Duty, 1
$09EA $118A BCF PCLATH, 3
$09EB $25DE CALL _pwm2_change_duty
$09EC $158A BSF PCLATH, 3
;mechprothese.pbas,186 :: goto Lus
$09ED $290A GOTO _main_lus
;mechprothese.pbas,187 :: Demo:
$09EE $ _main_demo:
;mechprothese.pbas,188 :: Lcd8_out(4,7," Demo")
$09EE $3004 MOVLW 4
$09EF $1683 BSF STATUS, RP0
$09F0 $00C2 MOVWF FARG_Lcd8_Out
$09F1 $3007 MOVLW 7
$09F2 $00C3 MOVWF FARG_Lcd8_Out+1
$09F3 $3020 MOVLW 32
$09F4 $00A0 MOVWF ?main_Local_Text+0
$09F5 $3044 MOVLW 68
$09F6 $00A1 MOVWF ?main_Local_Text+1
$09F7 $3065 MOVLW 101
$09F8 $00A2 MOVWF ?main_Local_Text+2
$09F9 $306D MOVLW 109
$09FA $00A3 MOVWF ?main_Local_Text+3
$09FB $306F MOVLW 111
$09FC $00A4 MOVWF ?main_Local_Text+4
$09FD $01A5 CLRF ?main_Local_Text+5
$09FE $30A0 MOVLW ?main_Local_Text
$09FF $00C4 MOVWF FARG_Lcd8_Out+2
$0A00 $118A BCF PCLATH, 3
$0A01 $2134 CALL _lcd8_out
$0A02 $158A BSF PCLATH, 3
;mechprothese.pbas,190 :: if Fr<300 then
$0A03 $3001 MOVLW 1
$0A04 $0256 SUBWF _fr+1, 0
$0A05 $1D03 BTFSSSTATUS, Z
$0A06 $2A09 GOTO L_main_0
$0A07 $302C MOVLW 44
$0A08 $0255 SUBWF _fr, 0
$0A09 $ L_main_0:
$0A09 $1803 BTFSC STATUS, C
$0A0A$2A28 GOTO mechprothese_L_23
$0A0B$ mechprothese_L_22:
;mechprothese.pbas,191 :: T=10
$0A0B$300A MOVLW 10
$0A0C$00E7 MOVWF _t
$0A0D$01E8 CLRF _t+1
;mechprothese.pbas,192 :: periode=60
$0A0E $303C MOVLW 60
$0A0F $00E9 MOVWF _periode
$0A10 $01EA CLRF _periode+1
;mechprothese.pbas,193 :: Lcd8_out(4,-3,"Slow ")
$0A11 $3004 MOVLW 4
$0A12 $1683 BSF STATUS, RP0
$0A13 $00C2 MOVWF FARG_Lcd8_Out
$0A14 $30FD MOVLW 253
$0A15 $00C3 MOVWF FARG_Lcd8_Out+1
$0A16 $3053 MOVLW 83
$0A17 $00A0 MOVWF ?main_Local_Text+0
$0A18 $306C MOVLW 108
$0A19 $00A1 MOVWF ?main_Local_Text+1
$0A1A$306F MOVLW 111
$0A1B$00A2 MOVWF ?main_Local_Text+2
$0A1C$3077 MOVLW 119
$0A1D$00A3 MOVWF ?main_Local_Text+3
$0A1E $3020 MOVLW 32
$0A1F $00A4 MOVWF ?main_Local_Text+4
$0A20 $3020 MOVLW 32
$0A21 $00A5 MOVWF ?main_Local_Text+5
$0A22 $01A6 CLRF ?main_Local_Text+6
$0A23 $30A0 MOVLW ?main_Local_Text
$0A24 $00C4 MOVWF FARG_Lcd8_Out+2
$0A25 $118A BCF PCLATH, 3
$0A26 $2134 CALL _lcd8_out
$0A27 $158A BSF PCLATH, 3
$0A28 $ mechprothese_L_23:
;mechprothese.pbas,194 :: end if
$0A28 $ mechprothese_L_24:
;mechprothese.pbas,196 :: if Fr>=300 and (Fr<=400) then
$0A28 $0856 MOVF_fr+1, 0
$0A29 $3C01 SUBLW 1
$0A2A$1D03 BTFSSSTATUS, Z
$0A2B$2A2E GOTO L_main_1
$0A2C$0855 MOVF_fr, 0
$0A2D$3C90 SUBLW 144
$0A2E $ L_main_1:
$0A2E $30FF MOVLW 255
$0A2F $1C03 BTFSSSTATUS, C
$0A30 $3000 MOVLW 0
$0A31 $00F0 MOVWF STACK_0
$0A32 $302C MOVLW 44
$0A33 $0570 ANDWF STACK_0, 0
$0A34 $00F2 MOVWF STACK_2
$0A35 $3000 MOVLW 0
$0A36 $3901 ANDLW 1
$0A37 $00F3 MOVWF STACK_2+1
$0A38 $0873 MOVFSTACK_2+1, 0
$0A39 $0256 SUBWF _fr+1, 0
$0A3A$1D03 BTFSSSTATUS, Z
$0A3B$2A3E GOTO L_main_2
$0A3C$0872 MOVFSTACK_2, 0
$0A3D$0255 SUBWF _fr, 0
$0A3E $ L_main_2:
$0A3E $1C03 BTFSSSTATUS, C
$0A3F $2A5D GOTO mechprothese_L_26
$0A40 $ mechprothese_L_25:
;mechprothese.pbas,197 :: T=25
$0A40 $3019 MOVLW 25
$0A41 $00E7 MOVWF _t
$0A42 $01E8 CLRF _t+1
;mechprothese.pbas,198 :: periode=40
$0A43 $3028 MOVLW 40
$0A44 $00E9 MOVWF _periode
$0A45 $01EA CLRF _periode+1
;mechprothese.pbas,199 :: Lcd8_out(4,-3,"Medium")
$0A46 $3004 MOVLW 4
$0A47 $1683 BSF STATUS, RP0
$0A48 $00C2 MOVWF FARG_Lcd8_Out
$0A49 $30FD MOVLW 253
$0A4A$00C3 MOVWF FARG_Lcd8_Out+1
$0A4B$304D MOVLW 77
$0A4C$00A0 MOVWF ?main_Local_Text+0
$0A4D$3065 MOVLW 101
$0A4E $00A1 MOVWF ?main_Local_Text+1
$0A4F $3064 MOVLW 100
$0A50 $00A2 MOVWF ?main_Local_Text+2
$0A51 $3069 MOVLW 105
$0A52 $00A3 MOVWF ?main_Local_Text+3
$0A53 $3075 MOVLW 117
$0A54 $00A4 MOVWF ?main_Local_Text+4
$0A55 $306D MOVLW 109
$0A56 $00A5 MOVWF ?main_Local_Text+5
$0A57 $01A6 CLRF ?main_Local_Text+6
$0A58 $30A0 MOVLW ?main_Local_Text
$0A59 $00C4 MOVWF FARG_Lcd8_Out+2
$0A5A$118A BCF PCLATH, 3
$0A5B$2134 CALL _lcd8_out
$0A5C$158A BSF PCLATH, 3
$0A5D$ mechprothese_L_26:
;mechprothese.pbas,200 :: end if
$0A5D$ mechprothese_L_27:
;mechprothese.pbas,202 :: if Fr>400 then
$0A5D$0856 MOVF_fr+1, 0
$0A5E $3C01 SUBLW 1
$0A5F $1D03 BTFSSSTATUS, Z
$0A60 $2A63 GOTO L_main_3
$0A61 $0855 MOVF_fr, 0
$0A62 $3C90 SUBLW 144
$0A63 $ L_main_3:
$0A63 $1803 BTFSC STATUS, C
$0A64 $2A82 GOTO mechprothese_L_29
$0A65 $ mechprothese_L_28:
;mechprothese.pbas,203 :: T=50
$0A65 $3032 MOVLW 50
$0A66 $00E7 MOVWF _t
$0A67 $01E8 CLRF _t+1
;mechprothese.pbas,204 :: periode=25
$0A68 $3019 MOVLW 25
$0A69 $00E9 MOVWF _periode
$0A6A$01EA CLRF _periode+1
;mechprothese.pbas,205 :: Lcd8_out(4,-3,"Fast ")
$0A6B$3004 MOVLW 4
$0A6C$1683 BSF STATUS, RP0
$0A6D$00C2 MOVWF FARG_Lcd8_Out
$0A6E $30FD MOVLW 253
$0A6F $00C3 MOVWF FARG_Lcd8_Out+1
$0A70 $3046 MOVLW 70
$0A71 $00A0 MOVWF ?main_Local_Text+0
$0A72 $3061 MOVLW 97
$0A73 $00A1 MOVWF ?main_Local_Text+1
$0A74 $3073 MOVLW 115
$0A75 $00A2 MOVWF ?main_Local_Text+2
$0A76 $3074 MOVLW 116
$0A77 $00A3 MOVWF ?main_Local_Text+3
$0A78 $3020 MOVLW 32
$0A79 $00A4 MOVWF ?main_Local_Text+4
$0A7A$3020 MOVLW 32
$0A7B$00A5 MOVWF ?main_Local_Text+5
$0A7C$01A6 CLRF ?main_Local_Text+6
$0A7D$30A0 MOVLW ?main_Local_Text
$0A7E $00C4 MOVWF FARG_Lcd8_Out+2
$0A7F $118A BCF PCLATH, 3
$0A80 $2134 CALL _lcd8_out
$0A81 $158A BSF PCLATH, 3
$0A82 $ mechprothese_L_29:
;mechprothese.pbas,206 :: end if
$0A82 $ mechprothese_L_30:
;mechprothese.pbas,208 :: Inc(Count)
$0A82 $0ADE INCF _count, 1
$0A83 $1903 BTFSC STATUS, Z
$0A84 $0ADF INCF _count+1, 1
;mechprothese.pbas,210 :: If Count < periode then
$0A85 $086A MOVF_periode+1, 0
$0A86 $025F SUBWF _count+1, 0
$0A87 $1D03 BTFSSSTATUS, Z
$0A88 $2A8B GOTO L_main_4
$0A89 $0869 MOVF_periode, 0
$0A8A$025E SUBWF _count, 0
$0A8B$ L_main_4:
$0A8B$1803 BTFSC STATUS, C
$0A8C$2AA6 GOTO mechprothese_L_32
$0A8D$ mechprothese_L_31:
;mechprothese.pbas,212 :: if A<250 then
$0A8D$3000 MOVLW 0
$0A8E $0263 SUBWF _a+1, 0
$0A8F $1D03 BTFSSSTATUS, Z
$0A90 $2A93 GOTO L_main_5
$0A91 $30FA MOVLW 250
$0A92 $0262 SUBWF _a, 0
$0A93 $ L_main_5:
$0A93 $1803 BTFSC STATUS, C
$0A94 $2A9B GOTO mechprothese_L_35
$0A95 $ mechprothese_L_34:
;mechprothese.pbas,213 :: A=A+T
$0A95 $0867 MOVF_t, 0
$0A96 $07E2 ADDWF _a, 1
$0A97 $0868 MOVF_t+1, 0
$0A98 $1803 BTFSC STATUS, C
$0A99 $3F01 ADDLW 1
$0A9A$07E3 ADDWF _a+1, 1
$0A9B$ mechprothese_L_35:
;mechprothese.pbas,214 :: end if
$0A9B$ mechprothese_L_36:
;mechprothese.pbas,216 :: PWM1_change_duty(0)
$0A9B$01EC CLRF FARG_PWM1_Change_Duty, 1
$0A9C$118A BCF PCLATH, 3
$0A9D$2596 CALL _pwm1_change_duty
$0A9E $158A BSF PCLATH, 3
;mechprothese.pbas,217 :: PWM2_change_duty(A)
$0A9F $0862 MOVF_a, 0
$0AA0$00EC MOVWF FARG_PWM2_Change_Duty
$0AA1$118A BCF PCLATH, 3
$0AA2$25DE CALL _pwm2_change_duty
$0AA3$158A BSF PCLATH, 3
;mechprothese.pbas,218 :: B=1
$0AA4$3001 MOVLW 1
$0AA5$00EB MOVWF _b
$0AA6$ mechprothese_L_32:
;mechprothese.pbas,219 :: end if
$0AA6$ mechprothese_L_33:
;mechprothese.pbas,221 :: If Count > periode then
$0AA6$085F MOVF_count+1, 0
$0AA7$026A SUBWF _periode+1, 0
$0AA8$1D03 BTFSSSTATUS, Z
$0AA9$2AAC GOTO L_main_6
$0AAA $085E MOVF_count, 0
$0AAB $0269 SUBWF _periode, 0
$0AAC $ L_main_6:
$0AAC $1803 BTFSC STATUS, C
$0AAD $2AD9 GOTO mechprothese_L_38
$0AAE $ mechprothese_L_37:
;mechprothese.pbas,223 :: if A=250 and(B=1) then
$0AAE $086B MOVF_b, 0
$0AAF $3A01 XORLW 1
$0AB0$30FF MOVLW 255
$0AB1$1D03 BTFSSSTATUS, Z
$0AB2$3000 MOVLW 0
$0AB3$00F0 MOVWF STACK_0
$0AB4$30FA MOVLW 250
$0AB5$0570 ANDWF STACK_0, 0
$0AB6$00F2 MOVWF STACK_2
$0AB7$3000 MOVLW 0
$0AB8$0663 XORWF _a+1, 0
$0AB9$1D03 BTFSSSTATUS, Z
$0ABA $2ABD GOTO L_main_7
$0ABB $0872 MOVFSTACK_2, 0
$0ABC $0662 XORWF _a, 0
$0ABD $ L_main_7:
$0ABD $1D03 BTFSSSTATUS, Z
$0ABE $2AC2 GOTO mechprothese_L_41
$0ABF$ mechprothese_L_40:
;mechprothese.pbas,224 :: A=0
$0ABF$01E2 CLRF _a
$0AC0$01E3 CLRF _a+1
;mechprothese.pbas,225 :: B=0
$0AC1$01EB CLRF _b, 1
$0AC2$ mechprothese_L_41:
;mechprothese.pbas,226 :: end if
$0AC2$ mechprothese_L_42:
;mechprothese.pbas,228 :: if A<250 then
$0AC2$3000 MOVLW 0
$0AC3$0263 SUBWF _a+1, 0
$0AC4$1D03 BTFSSSTATUS, Z
$0AC5$2AC8 GOTO L_main_8
$0AC6$30FA MOVLW 250
$0AC7$0262 SUBWF _a, 0
$0AC8$ L_main_8:
$0AC8$1803 BTFSC STATUS, C
$0AC9$2AD0 GOTO mechprothese_L_44
$0ACA $ mechprothese_L_43:
;mechprothese.pbas,229 :: A=A+T
$0ACA $0867 MOVF_t, 0
$0ACB $07E2 ADDWF _a, 1
$0ACC $0868 MOVF_t+1, 0
$0ACD $1803 BTFSC STATUS, C
$0ACE $3F01 ADDLW 1
$0ACF$07E3 ADDWF _a+1, 1
$0AD0$ mechprothese_L_44:
;mechprothese.pbas,230 :: end if
$0AD0$ mechprothese_L_45:
;mechprothese.pbas,232 :: PWM1_change_duty(A)
$0AD0$0862 MOVF_a, 0
$0AD1$00EC MOVWF FARG_PWM1_Change_Duty
$0AD2$118A BCF PCLATH, 3
$0AD3$2596 CALL _pwm1_change_duty
$0AD4$158A BSF PCLATH, 3
;mechprothese.pbas,233 :: PWM2_change_duty(0)
$0AD5$01EC CLRF FARG_PWM2_Change_Duty, 1
$0AD6$118A BCF PCLATH, 3
$0AD7$25DE CALL _pwm2_change_duty
$0AD8$158A BSF PCLATH, 3
$0AD9$ mechprothese_L_38:
;mechprothese.pbas,235 :: end if
$0AD9$ mechprothese_L_39:
;mechprothese.pbas,236 :: If Count > 2*periode then
$0AD9$3001 MOVLW 1
$0ADA $00F4 MOVWF STACK_4
$0ADB $0869 MOVF_periode, 0
$0ADC $00F0 MOVWF STACK_0
$0ADD $086A MOVF_periode+1, 0
$0ADE $00F1 MOVWF STACK_0+1
$0ADF $0874 MOVFSTACK_4, 0
$0AE0 $ L_main_9:
$0AE0 $1903 BTFSC STATUS, Z
$0AE1 $2AE7 GOTO L_main_10
$0AE2 $0DF0 RLF STACK_0, 1
$0AE3 $0DF1 RLF STACK_0+1, 1
$0AE4 $1070 BCF STACK_0, 0
$0AE5 $3FFF ADDLW 255
$0AE6 $2AE0 GOTO L_main_9
$0AE7 $ L_main_10:
$0AE7 $085F MOVF_count+1, 0
$0AE8 $0271 SUBWF STACK_0+1, 0
$0AE9 $1D03 BTFSSSTATUS, Z
$0AEA $2AED GOTO L_main_11
$0AEB $085E MOVF_count, 0
$0AEC $0270 SUBWF STACK_0, 0
$0AED $ L_main_11:
$0AED $1803 BTFSC STATUS, C
$0AEE$2AF3 GOTO mechprothese_L_47
$0AEF$ mechprothese_L_46:
;mechprothese.pbas,237 :: Count = 0
$0AEF$01DE CLRF _count
$0AF0 $01DF CLRF _count+1
;mechprothese.pbas,238 :: A=0
$0AF1 $01E2 CLRF _a
$0AF2 $01E3 CLRF _a+1
$0AF3 $ mechprothese_L_47:
;mechprothese.pbas,239 :: end if
$0AF3 $ mechprothese_L_48:
;mechprothese.pbas,240 :: goto Lus
$0AF3 $290A GOTO _main_lus
;mechprothese.pbas,281 :: Manual:
$0AF4 $ _main_manual:
;mechprothese.pbas,283 :: Lcd8_out(4,7,"Manual")
$0AF4 $3004 MOVLW 4
$0AF5 $1683 BSF STATUS, RP0
$0AF6 $00C2 MOVWF FARG_Lcd8_Out
$0AF7 $3007 MOVLW 7
$0AF8 $00C3 MOVWF FARG_Lcd8_Out+1
$0AF9 $304D MOVLW 77
$0AFA$00A0 MOVWF ?main_Local_Text+0
$0AFB$3061 MOVLW 97
$0AFC$00A1 MOVWF ?main_Local_Text+1
$0AFD $306E MOVLW 110
$0AFE$00A2 MOVWF ?main_Local_Text+2
$0AFF $3075 MOVLW 117
$0B00 $00A3 MOVWF ?main_Local_Text+3
$0B01 $3061 MOVLW 97
$0B02 $00A4 MOVWF ?main_Local_Text+4
$0B03 $306C MOVLW 108
$0B04 $00A5 MOVWF ?main_Local_Text+5
$0B05 $01A6 CLRF ?main_Local_Text+6
$0B06 $30A0 MOVLW ?main_Local_Text
$0B07 $00C4 MOVWF FARG_Lcd8_Out+2
$0B08 $118A BCF PCLATH, 3
$0B09 $2134 CALL _lcd8_out
$0B0A$158A BSF PCLATH, 3
;mechprothese.pbas,284 :: Lcd8_out(4,0,stifness) 'value of Hoek
$0B0B $3004 MOVLW 4
$0B0C $1683 BSF STATUS, RP0
$0B0D$00C2 MOVWF FARG_Lcd8_Out
$0B0E $01C3 CLRF FARG_Lcd8_Out+1, 1
$0B0F $3033 MOVLW _stifness
$0B10 $00C4 MOVWF FARG_Lcd8_Out+2
$0B11 $118A BCF PCLATH, 3
$0B12 $2134 CALL _lcd8_out
$0B13 $158A BSF PCLATH, 3
;mechprothese.pbas,285 :: Lcd8_out(4,-3,"Stif:")
$0B14 $3004 MOVLW 4
$0B15 $1683 BSF STATUS, RP0
$0B16 $00C2 MOVWF FARG_Lcd8_Out
$0B17 $30FD MOVLW 253
$0B18 $00C3 MOVWF FARG_Lcd8_Out+1
$0B19 $3053 MOVLW 83
$0B1A$00A0 MOVWF ?main_Local_Text+0
$0B1B $3074 MOVLW 116
$0B1C $00A1 MOVWF ?main_Local_Text+1
$0B1D$3069 MOVLW 105
$0B1E $00A2 MOVWF ?main_Local_Text+2
$0B1F $3066 MOVLW 102
$0B20 $00A3 MOVWF ?main_Local_Text+3
$0B21 $303A MOVLW 58
$0B22 $00A4 MOVWF ?main_Local_Text+4
$0B23 $01A5 CLRF ?main_Local_Text+5
$0B24 $30A0 MOVLW ?main_Local_Text
$0B25 $00C4 MOVWF FARG_Lcd8_Out+2
$0B26 $118A BCF PCLATH, 3
$0B27 $2134 CALL _lcd8_out
$0B28 $158A BSF PCLATH, 3
;mechprothese.pbas,286 :: Lcd8_out(4,5,"%")
$0B29 $3004 MOVLW 4
$0B2A$1683 BSF STATUS, RP0
$0B2B $00C2 MOVWF FARG_Lcd8_Out
$0B2C $3005 MOVLW 5
$0B2D$00C3 MOVWF FARG_Lcd8_Out+1
$0B2E $3025 MOVLW 37
$0B2F $00A0 MOVWF ?main_Local_Text+0
$0B30 $01A1 CLRF ?main_Local_Text+1
$0B31 $30A0 MOVLW ?main_Local_Text
$0B32 $00C4 MOVWF FARG_Lcd8_Out+2
$0B33 $118A BCF PCLATH, 3
$0B34 $2134 CALL _lcd8_out
$0B35 $158A BSF PCLATH, 3
;mechprothese.pbas,288 :: if A>(Manual) then
$0B36 $0863 MOVF_a+1, 0
$0B37 $0230 SUBWF _manual+1, 0
$0B38 $1D03 BTFSSSTATUS, Z
$0B39 $2B3C GOTO L_main_12
$0B3A$0862 MOVF_a, 0
$0B3B $022F SUBWF _manual, 0
$0B3C $ L_main_12:
$0B3C $1803 BTFSC STATUS, C
$0B3D$2B42 GOTO mechprothese_L_50
$0B3E $ mechprothese_L_49:
;mechprothese.pbas,290 :: A=A-10
$0B3E $300A MOVLW 10
$0B3F $02E2 SUBWF _a, 1
$0B40 $1C03 BTFSSSTATUS, C
$0B41 $03E3 DECF _a+1, 1
$0B42 $ mechprothese_L_50:
;mechprothese.pbas,292 :: end if
$0B42 $ mechprothese_L_51:
;mechprothese.pbas,296 :: if A<(Manual) then
$0B42 $0830 MOVF_manual+1, 0
$0B43 $0263 SUBWF _a+1, 0
$0B44 $1D03 BTFSSSTATUS, Z
$0B45 $2B48 GOTO L_main_13
$0B46 $082F MOVF_manual, 0
$0B47 $0262 SUBWF _a, 0
$0B48 $ L_main_13:
$0B48 $1803 BTFSC STATUS, C
$0B49 $2B4E GOTO mechprothese_L_53
$0B4A$ mechprothese_L_52:
;mechprothese.pbas,297 :: A=A+ 10
$0B4A$300A MOVLW 10
$0B4B $07E2 ADDWF _a, 1
$0B4C $1803 BTFSC STATUS, C
$0B4D$0AE3 INCF _a+1, 1
$0B4E $ mechprothese_L_53:
;mechprothese.pbas,299 :: end if
$0B4E $ mechprothese_L_54:
;mechprothese.pbas,301 :: PWM2_change_duty(A) 'voorste spier
$0B4E $0862 MOVF_a, 0
$0B4F $00EC MOVWF FARG_PWM2_Change_Duty
$0B50 $118A BCF PCLATH, 3
$0B51 $25DE CALL _pwm2_change_duty
$0B52 $158A BSF PCLATH, 3
;mechprothese.pbas,302 :: PWM1_change_duty(A)
$0B53 $0862 MOVF_a, 0
$0B54 $00EC MOVWF FARG_PWM1_Change_Duty
$0B55 $118A BCF PCLATH, 3
$0B56 $2596 CALL _pwm1_change_duty
$0B57 $158A BSF PCLATH, 3
;mechprothese.pbas,322 :: goto Lus
$0B58 $290A GOTO _main_lus
$0B59 $2B59 GOTO $

You might also like