;---------------------------------------------------------- ; Code Produced by the Proton 3.5.0.6 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. June 2010 ;---------------------------------------------------------- ; #DEFINE CONFIG_REQ 1 #DEFINE DEBUG@REQ 1 LIST P = 18F4620, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T=ON PORTA EQU 0X0F80 PORTB EQU 0X0F81 PORTC EQU 0X0F82 PORTD EQU 0X0F83 PORTE EQU 0X0F84 LATA EQU 0X0F89 LATB EQU 0X0F8A LATC EQU 0X0F8B LATD EQU 0X0F8C LATE EQU 0X0F8D DDRA EQU 0X0F92 TRISA EQU 0X0F92 DDRB EQU 0X0F93 TRISB EQU 0X0F93 DDRC EQU 0X0F94 TRISC EQU 0X0F94 DDRD EQU 0X0F95 TRISD EQU 0X0F95 DDRE EQU 0X0F96 TRISE EQU 0X0F96 OSCTUNE EQU 0X0F9B PIE1 EQU 0X0F9D PIR1 EQU 0X0F9E IPR1 EQU 0X0F9F PIE2 EQU 0X0FA0 PIR2 EQU 0X0FA1 IPR2 EQU 0X0FA2 EECON1 EQU 0X0FA6 EECON2 EQU 0X0FA7 EEDATL EQU 0X0FA8 EEDATA EQU 0X0FA8 EEADR EQU 0X0FA9 EEADRH EQU 0X0FAA RCSTA EQU 0X0FAB TXSTA EQU 0X0FAC TXREG EQU 0X0FAD RCREG EQU 0X0FAE SPBRG EQU 0X0FAF SPBRGH EQU 0X0FB0 T3CON EQU 0X0FB1 TMR3L EQU 0X0FB2 TMR3LH EQU 0X0FB3 TMR3H EQU 0X0FB3 CMCON EQU 0X0FB4 CVRCON EQU 0X0FB5 ECCP1AS EQU 0X0FB6 PWM1CON EQU 0X0FB7 BAUDCON EQU 0X0FB8 BAUDCTL EQU 0X0FB8 CCP2CON EQU 0X0FBA CCPR2 EQU 0X0FBB CCPR2L EQU 0X0FBB CCPR2LH EQU 0X0FBC CCPR2H EQU 0X0FBC CCP1CON EQU 0X0FBD CCPR1 EQU 0X0FBE CCPR1L EQU 0X0FBE CCPR1LH EQU 0X0FBF CCPR1H EQU 0X0FBF ADCON2 EQU 0X0FC0 ADCON1 EQU 0X0FC1 ADCON0 EQU 0X0FC2 ADRES EQU 0X0FC3 ADRESL EQU 0X0FC3 ADRESLH EQU 0X0FC4 ADRESH EQU 0X0FC4 SSPCON2 EQU 0X0FC5 SSPCON1 EQU 0X0FC6 SSPSTAT EQU 0X0FC7 SSPADD EQU 0X0FC8 SSPBUF EQU 0X0FC9 T2CON EQU 0X0FCA PR2 EQU 0X0FCB TMR2 EQU 0X0FCC T1CON EQU 0X0FCD TMR1L EQU 0X0FCE TMR1LH EQU 0X0FCF TMR1H EQU 0X0FCF RCON EQU 0X0FD0 WDTCON EQU 0X0FD1 HLVDCON EQU 0X0FD2 LVDCON EQU 0X0FD2 OSCCON EQU 0X0FD3 DEBUG EQU 0X0FD4 T0CON EQU 0X0FD5 TMR0L EQU 0X0FD6 TMR0LH EQU 0X0FD7 TMR0H EQU 0X0FD7 STATUS EQU 0X0FD8 FSR2L EQU 0X0FD9 FSR2LH EQU 0X0FDA FSR2H EQU 0X0FDA PLUSW2 EQU 0X0FDB PREINC2 EQU 0X0FDC POSTDEC2 EQU 0X0FDD POSTINC2 EQU 0X0FDE INDF2 EQU 0X0FDF BSR EQU 0X0FE0 FSR1L EQU 0X0FE1 FSR1LH EQU 0X0FE2 FSR1H EQU 0X0FE2 PLUSW1 EQU 0X0FE3 PREINC1 EQU 0X0FE4 POSTDEC1 EQU 0X0FE5 POSTINC1 EQU 0X0FE6 INDF1 EQU 0X0FE7 WREG EQU 0X0FE8 FSR0L EQU 0X0FE9 FSR0LH EQU 0X0FEA FSR0H EQU 0X0FEA PLUSW0 EQU 0X0FEB PREINC0 EQU 0X0FEC POSTDEC0 EQU 0X0FED POSTINC0 EQU 0X0FEE INDF0 EQU 0X0FEF INTCON3 EQU 0X0FF0 INTCON2 EQU 0X0FF1 INTCON EQU 0X0FF2 PRODL EQU 0X0FF3 PRODLH EQU 0X0FF4 PRODH EQU 0X0FF4 TABLAT EQU 0X0FF5 TBLPTRL EQU 0X0FF6 TBLPTRLH EQU 0X0FF7 TBLPTRH EQU 0X0FF7 TBLPTRU EQU 0X0FF8 TBLPTRLHH EQU 0X0FF8 PC EQU 0X0FF9 PCL EQU 0X0FF9 PCLATH EQU 0X0FFA PCLATU EQU 0X0FFB STKPTR EQU 0X0FFC TOS EQU 0X0FFD TOSL EQU 0X0FFD TOSLH EQU 0X0FFE TOSH EQU 0X0FFE TOSU EQU 0X0FFF _I2C_SCL_PORT = TRISC _I2C_SCL_PIN = 3 _I2C_SDA_PORT = TRISC _I2C_SDA_PIN = 4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RD0=0 RD1=1 RD2=2 RD3=3 RD4=4 RD5=5 RD6=6 RD7=7 PSP0=0 PSP1=1 PSP2=2 PSP3=3 PSP4=4 PSP5=5 PSP6=6 PSP7=7 P1B=5 P1C=6 P1D=7 RE0=0 RE1=1 RE2=2 RE3=3 RD=0 PP_RD=0 WR=1 PP_WR=1 CS=2 MCLR=3 NOT_RD=0 NOT_WR=1 NOT_CS=2 NOT_MCLR=3 AN5=0 AN6=1 AN7=2 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 LATD0=0 LATD1=1 LATD2=2 LATD3=3 LATD4=4 LATD5=5 LATD6=6 LATD7=7 LATE0=0 LATE1=1 LATE2=2 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TRISD0=0 TRISD1=1 TRISD2=2 TRISD3=3 TRISD4=4 TRISD5=5 TRISD6=6 TRISD7=7 TRISE0=0 TRISE1=1 TRISE2=2 PSPMODE=4 IBOV=5 OBF=6 IBF=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 PSPIE=7 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 PSPIF=7 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 PSPIP=7 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 WREN=2 PP_WREN=2 WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 PSSBD0=0 PSSBD1=1 PSSAC0=2 PSSAC1=3 ECCPAS0=4 ECCPAS1=5 ECCPAS2=6 ECCPASE=7 PDC0=0 PDC1=1 PDC2=2 PDC3=3 PDC4=4 PDC5=5 PDC6=6 PRSEN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 P1M0=6 P1M1=7 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 R=2 S=3 P=4 D=5 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8E-0X0F91 __BADRAM 0X0F97-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB9 CONFIG1H EQU 0X300001 CONFIG2L EQU 0X300002 CONFIG2H EQU 0X300003 CONFIG3H EQU 0X300005 CONFIG4L EQU 0X300006 CONFIG5L EQU 0X300008 CONFIG5H EQU 0X300009 CONFIG6L EQU 0X30000A CONFIG6H EQU 0X30000B CONFIG7L EQU 0X30000C CONFIG7H EQU 0X30000D OSC_LP_1 EQU 0XF0 OSC_XT_1 EQU 0XF1 OSC_HS_1 EQU 0XF2 OSC_RC_1 EQU 0XF3 OSC_EC_1 EQU 0XF4 OSC_ECIO6_1 EQU 0XF5 OSC_HSPLL_1 EQU 0XF6 OSC_RCIO6_1 EQU 0XF7 OSC_INTIO67_1 EQU 0XF8 OSC_INTIO7_1 EQU 0XF9 FCMEN_OFF_1 EQU 0XBF FCMEN_ON_1 EQU 0XFF IESO_OFF_1 EQU 0X7F IESO_ON_1 EQU 0XFF PWRT_ON_2 EQU 0XFE PWRT_OFF_2 EQU 0XFF BOREN_OFF_2 EQU 0XF9 BOREN_ON_2 EQU 0XFB BOREN_NOSLP_2 EQU 0XFD BOREN_SBORDIS_2 EQU 0XFF BORV_0_2 EQU 0XE7 BORV_1_2 EQU 0XEF BORV_2_2 EQU 0XF7 BORV_3_2 EQU 0XFF WDT_OFF_2 EQU 0XFE WDT_ON_2 EQU 0XFF WDTPS_1_2 EQU 0XE1 WDTPS_2_2 EQU 0XE3 WDTPS_4_2 EQU 0XE5 WDTPS_8_2 EQU 0XE7 WDTPS_16_2 EQU 0XE9 WDTPS_32_2 EQU 0XEB WDTPS_64_2 EQU 0XED WDTPS_128_2 EQU 0XEF WDTPS_256_2 EQU 0XF1 WDTPS_512_2 EQU 0XF3 WDTPS_1024_2 EQU 0XF5 WDTPS_2048_2 EQU 0XF7 WDTPS_4096_2 EQU 0XF9 WDTPS_8192_2 EQU 0XFB WDTPS_16384_2 EQU 0XFD WDTPS_32768_2 EQU 0XFF MCLRE_OFF_3 EQU 0X7F MCLRE_ON_3 EQU 0XFF LPT1OSC_OFF_3 EQU 0XFB LPT1OSC_ON_3 EQU 0XFF PBADEN_OFF_3 EQU 0XFD PBADEN_ON_3 EQU 0XFF CCP2MX_PORTBE_3 EQU 0XFE CCP2MX_PORTC_3 EQU 0XFF STVREN_OFF_4 EQU 0XFE STVREN_ON_4 EQU 0XFF LVP_OFF_4 EQU 0XFB LVP_ON_4 EQU 0XFF XINST_OFF_4 EQU 0XBF XINST_ON_4 EQU 0XFF DEBUG_ON_4 EQU 0X7F DEBUG_OFF_4 EQU 0XFF CP0_ON_5 EQU 0XFE CP0_OFF_5 EQU 0XFF CP1_ON_5 EQU 0XFD CP1_OFF_5 EQU 0XFF CP2_ON_5 EQU 0XFB CP2_OFF_5 EQU 0XFF CP3_ON_5 EQU 0XF7 CP3_OFF_5 EQU 0XFF CPB_ON_5 EQU 0XBF CPB_OFF_5 EQU 0XFF CPD_ON_5 EQU 0X7F CPD_OFF_5 EQU 0XFF WRT0_ON_6 EQU 0XFE WRT0_OFF_6 EQU 0XFF WRT1_ON_6 EQU 0XFD WRT1_OFF_6 EQU 0XFF WRT2_ON_6 EQU 0XFB WRT2_OFF_6 EQU 0XFF WRT3_ON_6 EQU 0XF7 WRT3_OFF_6 EQU 0XFF WRTB_ON_6 EQU 0XBF WRTB_OFF_6 EQU 0XFF WRTC_ON_6 EQU 0XDF WRTC_OFF_6 EQU 0XFF WRTD_ON_6 EQU 0X7F WRTD_OFF_6 EQU 0XFF EBTR0_ON_7 EQU 0XFE EBTR0_OFF_7 EQU 0XFF EBTR1_ON_7 EQU 0XFD EBTR1_OFF_7 EQU 0XFF EBTR2_ON_7 EQU 0XFB EBTR2_OFF_7 EQU 0XFF EBTR3_ON_7 EQU 0XF7 EBTR3_OFF_7 EQU 0XFF EBTRB_ON_7 EQU 0XBF EBTRB_OFF_7 EQU 0XFF DEVID1 EQU 0X3FFFFE DEVID2 EQU 0X3FFFFF IDLOC0 EQU 0X200000 __IDLOC0 EQU 0X200000 IDLOC1 EQU 0X200001 __IDLOC1 EQU 0X200001 IDLOC2 EQU 0X200002 __IDLOC2 EQU 0X200002 IDLOC3 EQU 0X200003 __IDLOC3 EQU 0X200003 IDLOC4 EQU 0X200004 __IDLOC4 EQU 0X200004 IDLOC5 EQU 0X200005 __IDLOC5 EQU 0X200005 IDLOC6 EQU 0X200006 __IDLOC6 EQU 0X200006 IDLOC7 EQU 0X200007 __IDLOC7 EQU 0X200007 #DEFINE __18F4620 1 #DEFINE XTAL 40 #DEFINE _CORE 16 #DEFINE _MAXRAM 3671 #DEFINE _RAM_END 3968 #DEFINE _MAXMEM 65536 #DEFINE _ADC 13 #DEFINE _ADC_RES 10 #DEFINE _EEPROM 1024 #DEFINE RAM_BANKS 15 #DEFINE _USART 1 #DEFINE _USB 0 #DEFINE _USB#RAM_START 0 #DEFINE _FLASH 1 #DEFINE _CWRITE_BLOCK 64 #DEFINE BANK0_START 128 #DEFINE BANK0_END 255 #DEFINE BANK1_START 256 #DEFINE BANK1_END 511 #DEFINE BANK2_START 512 #DEFINE BANK2_END 767 #DEFINE BANK3_START 768 #DEFINE BANK3_END 1023 #DEFINE BANK4_START 1024 #DEFINE BANK4_END 1279 #DEFINE BANK5_START 1280 #DEFINE BANK5_END 1535 #DEFINE BANK6_START 1536 #DEFINE BANK6_END 1791 #DEFINE BANK7_START 1792 #DEFINE BANK7_END 2047 #DEFINE BANK8_START 2048 #DEFINE BANK8_END 2303 #DEFINE BANK9_START 2304 #DEFINE BANK9_END 2559 #DEFINE BANK10_START 2560 #DEFINE BANK10_END 2815 #DEFINE BANK11_START 2816 #DEFINE BANK11_END 3071 #DEFINE BANK12_START 3072 #DEFINE BANK12_END 3327 #DEFINE BANK13_START 3328 #DEFINE BANK13_END 3583 #DEFINE BANK14_START 3584 #DEFINE BANK14_END 3839 #DEFINE BANKA_START 0 #DEFINE BANKA_END 127 #DEFINE _SYSTEM_VARIABLE_COUNT 45 #DEFINE LCD#TYPE 0 #DEFINE __HIGH_INTERRUPTS_ENABLED 1 #DEFINE __LOW_INTERRUPTS_ENABLED 1 #DEFINE _HIGH_INT_SUB_ADDRESS 3689 #DEFINE _HIGH_INT_SUB_AMOUNT 12 #DEFINE _LOW_INT_SUB_ADDRESS 3672 #DEFINE _LOW_INT_SUB_AMOUNT 17 #DEFINE CLRW CLRF WREG #DEFINE NEGW NEGF WREG #DEFINE SKPC BTFSS STATUS,0 #DEFINE SKPNC BTFSC STATUS,0 #DEFINE CLRC BCF STATUS,0 #DEFINE SETC BSF STATUS,0 #DEFINE SKPZ BTFSS STATUS,2 #DEFINE SKPNZ BTFSC STATUS,2 #DEFINE CLRZ BCF STATUS,2 #DEFINE SETZ BSF STATUS,2 #DEFINE INIT_USART_INTERRUPT#REQ 1 #DEFINE CLEAR_SERIAL_BUFFER#REQ 1 PBP#VAR0 = 0 PP0 = 1 PP0H = 2 PP1 = 3 PP1H = 4 CNT = 5 CNTH = 6 CNTHH = 7 CNTHHH = 8 CNT3 = 9 CNT3H = 10 CNT3HH = 11 CNT3HHH = 12 BYTEIN = 13 _I = 14 STATUSBYTE = 15 NOTEUIT = 16 RELEASE = 17 NOTEAAN = 18 VELO = 19 CTRL = 20 VALUE = 21 AFT = 22 VELTIM0 = 23 VELTIM0H = 24 VELTIM0HH = 25 VELTIM0HHH = 26 VELFLAGS0 = 27 CC66 = 28 ST = 29 B1 = 30 B2 = 31 IDX = 32 PLAYINGNOTE = 33 CC30 = 34 RELEASETIME = 35 RELEASETIMEH = 36 VIBRATOPERIOD = 37 VIBRATOPERIODH = 38 VIBRATOVALVE = 39 CC31 = 40 USART_FSR1_SAVE = 41 USART_FSR1_SAVEH = 42 INDEXIN = 43 INDEXOUT = 44 FINGERSA = 45 VARIABLE FINGERSA#0=45,FINGERSA#1=46,FINGERSA#2=47,FINGERSA#3=48 VARIABLE FINGERSA#4=49,FINGERSA#5=50,FINGERSA#6=51,FINGERSA#7=52 VARIABLE FINGERSA#8=53,FINGERSA#9=54,FINGERSA#10=55,FINGERSA#11=56 VARIABLE FINGERSA#12=57,FINGERSA#13=58,FINGERSA#14=59,FINGERSA#15=60 VARIABLE FINGERSA#16=61,FINGERSA#17=62,FINGERSA#18=63,FINGERSA#19=64 VARIABLE FINGERSA#20=65,FINGERSA#21=66,FINGERSA#22=67,FINGERSA#23=68 VARIABLE FINGERSA#24=69,FINGERSA#25=70,FINGERSA#26=71,FINGERSA#27=72 VARIABLE FINGERSA#28=73,FINGERSA#29=74,FINGERSA#30=75,FINGERSA#31=76 VARIABLE FINGERSA#32=77,FINGERSA#33=78,FINGERSA#34=79,FINGERSA#35=80 VARIABLE FINGERSA#36=81,FINGERSA#37=82,FINGERSA#38=83,FINGERSA#39=84 VARIABLE FINGERSA#40=85,FINGERSA#41=86,FINGERSA#42=87,FINGERSA#43=88 VARIABLE FINGERSA#44=89,FINGERSA#45=90,FINGERSA#46=91,FINGERSA#47=92 VARIABLE FINGERSA#48=93,FINGERSA#49=94,FINGERSA#50=95,FINGERSA#51=96 VARIABLE FINGERSA#52=97,FINGERSA#53=98,FINGERSA#54=99,FINGERSA#55=100 VARIABLE FINGERSA#56=101,FINGERSA#57=102,FINGERSA#58=103,FINGERSA#59=104 VARIABLE FINGERSA#60=105,FINGERSA#61=106,FINGERSA#62=107,FINGERSA#63=108 FINGERSB = 109 VARIABLE FINGERSB#0=109,FINGERSB#1=110,FINGERSB#2=111,FINGERSB#3=112 VARIABLE FINGERSB#4=113,FINGERSB#5=114,FINGERSB#6=115,FINGERSB#7=116 VARIABLE FINGERSB#8=117,FINGERSB#9=118,FINGERSB#10=119,FINGERSB#11=120 VARIABLE FINGERSB#12=121,FINGERSB#13=122,FINGERSB#14=123,FINGERSB#15=124 VARIABLE FINGERSB#16=125,FINGERSB#17=126,FINGERSB#18=127,FINGERSB#19=128 VARIABLE FINGERSB#20=129,FINGERSB#21=130,FINGERSB#22=131,FINGERSB#23=132 VARIABLE FINGERSB#24=133,FINGERSB#25=134,FINGERSB#26=135,FINGERSB#27=136 VARIABLE FINGERSB#28=137,FINGERSB#29=138,FINGERSB#30=139,FINGERSB#31=140 VARIABLE FINGERSB#32=141,FINGERSB#33=142,FINGERSB#34=143,FINGERSB#35=144 VARIABLE FINGERSB#36=145,FINGERSB#37=146,FINGERSB#38=147,FINGERSB#39=148 VARIABLE FINGERSB#40=149,FINGERSB#41=150,FINGERSB#42=151,FINGERSB#43=152 VARIABLE FINGERSB#44=153,FINGERSB#45=154,FINGERSB#46=155,FINGERSB#47=156 VARIABLE FINGERSB#48=157,FINGERSB#49=158,FINGERSB#50=159,FINGERSB#51=160 VARIABLE FINGERSB#52=161,FINGERSB#53=162,FINGERSB#54=163,FINGERSB#55=164 VARIABLE FINGERSB#56=165,FINGERSB#57=166,FINGERSB#58=167,FINGERSB#59=168 VARIABLE FINGERSB#60=169,FINGERSB#61=170,FINGERSB#62=171,FINGERSB#63=172 FINGERSC = 173 VARIABLE FINGERSC#0=173,FINGERSC#1=174,FINGERSC#2=175,FINGERSC#3=176 VARIABLE FINGERSC#4=177,FINGERSC#5=178,FINGERSC#6=179,FINGERSC#7=180 VARIABLE FINGERSC#8=181,FINGERSC#9=182,FINGERSC#10=183,FINGERSC#11=184 VARIABLE FINGERSC#12=185,FINGERSC#13=186,FINGERSC#14=187,FINGERSC#15=188 VARIABLE FINGERSC#16=189,FINGERSC#17=190,FINGERSC#18=191,FINGERSC#19=192 VARIABLE FINGERSC#20=193,FINGERSC#21=194,FINGERSC#22=195,FINGERSC#23=196 VARIABLE FINGERSC#24=197,FINGERSC#25=198,FINGERSC#26=199,FINGERSC#27=200 VARIABLE FINGERSC#28=201,FINGERSC#29=202,FINGERSC#30=203,FINGERSC#31=204 VARIABLE FINGERSC#32=205,FINGERSC#33=206,FINGERSC#34=207,FINGERSC#35=208 VARIABLE FINGERSC#36=209,FINGERSC#37=210,FINGERSC#38=211,FINGERSC#39=212 VARIABLE FINGERSC#40=213,FINGERSC#41=214,FINGERSC#42=215,FINGERSC#43=216 VARIABLE FINGERSC#44=217,FINGERSC#45=218,FINGERSC#46=219,FINGERSC#47=220 VARIABLE FINGERSC#48=221,FINGERSC#49=222,FINGERSC#50=223,FINGERSC#51=224 VARIABLE FINGERSC#52=225,FINGERSC#53=226,FINGERSC#54=227,FINGERSC#55=228 VARIABLE FINGERSC#56=229,FINGERSC#57=230,FINGERSC#58=231,FINGERSC#59=232 VARIABLE FINGERSC#60=233,FINGERSC#61=234,FINGERSC#62=235,FINGERSC#63=236 FINGERSD = 237 VARIABLE FINGERSD#0=237,FINGERSD#1=238,FINGERSD#2=239,FINGERSD#3=240 VARIABLE FINGERSD#4=241,FINGERSD#5=242,FINGERSD#6=243,FINGERSD#7=244 VARIABLE FINGERSD#8=245,FINGERSD#9=246,FINGERSD#10=247,FINGERSD#11=248 VARIABLE FINGERSD#12=249,FINGERSD#13=250,FINGERSD#14=251,FINGERSD#15=252 VARIABLE FINGERSD#16=253,FINGERSD#17=254,FINGERSD#18=255,FINGERSD#19=256 VARIABLE FINGERSD#20=257,FINGERSD#21=258,FINGERSD#22=259,FINGERSD#23=260 VARIABLE FINGERSD#24=261,FINGERSD#25=262,FINGERSD#26=263,FINGERSD#27=264 VARIABLE FINGERSD#28=265,FINGERSD#29=266,FINGERSD#30=267,FINGERSD#31=268 VARIABLE FINGERSD#32=269,FINGERSD#33=270,FINGERSD#34=271,FINGERSD#35=272 VARIABLE FINGERSD#36=273,FINGERSD#37=274,FINGERSD#38=275,FINGERSD#39=276 VARIABLE FINGERSD#40=277,FINGERSD#41=278,FINGERSD#42=279,FINGERSD#43=280 VARIABLE FINGERSD#44=281,FINGERSD#45=282,FINGERSD#46=283,FINGERSD#47=284 VARIABLE FINGERSD#48=285,FINGERSD#49=286,FINGERSD#50=287,FINGERSD#51=288 VARIABLE FINGERSD#52=289,FINGERSD#53=290,FINGERSD#54=291,FINGERSD#55=292 VARIABLE FINGERSD#56=293,FINGERSD#57=294,FINGERSD#58=295,FINGERSD#59=296 VARIABLE FINGERSD#60=297,FINGERSD#61=298,FINGERSD#62=299,FINGERSD#63=300 FINGERSE = 301 VARIABLE FINGERSE#0=301,FINGERSE#1=302,FINGERSE#2=303,FINGERSE#3=304 VARIABLE FINGERSE#4=305,FINGERSE#5=306,FINGERSE#6=307,FINGERSE#7=308 VARIABLE FINGERSE#8=309,FINGERSE#9=310,FINGERSE#10=311,FINGERSE#11=312 VARIABLE FINGERSE#12=313,FINGERSE#13=314,FINGERSE#14=315,FINGERSE#15=316 VARIABLE FINGERSE#16=317,FINGERSE#17=318,FINGERSE#18=319,FINGERSE#19=320 VARIABLE FINGERSE#20=321,FINGERSE#21=322,FINGERSE#22=323,FINGERSE#23=324 VARIABLE FINGERSE#24=325,FINGERSE#25=326,FINGERSE#26=327,FINGERSE#27=328 VARIABLE FINGERSE#28=329,FINGERSE#29=330,FINGERSE#30=331,FINGERSE#31=332 VARIABLE FINGERSE#32=333,FINGERSE#33=334,FINGERSE#34=335,FINGERSE#35=336 VARIABLE FINGERSE#36=337,FINGERSE#37=338,FINGERSE#38=339,FINGERSE#39=340 VARIABLE FINGERSE#40=341,FINGERSE#41=342,FINGERSE#42=343,FINGERSE#43=344 VARIABLE FINGERSE#44=345,FINGERSE#45=346,FINGERSE#46=347,FINGERSE#47=348 VARIABLE FINGERSE#48=349,FINGERSE#49=350,FINGERSE#50=351,FINGERSE#51=352 VARIABLE FINGERSE#52=353,FINGERSE#53=354,FINGERSE#54=355,FINGERSE#55=356 VARIABLE FINGERSE#56=357,FINGERSE#57=358,FINGERSE#58=359,FINGERSE#59=360 VARIABLE FINGERSE#60=361,FINGERSE#61=362,FINGERSE#62=363,FINGERSE#63=364 VIB = 365 VARIABLE VIB#0=365,VIB#1=366,VIB#2=367,VIB#3=368 VARIABLE VIB#4=369,VIB#5=370,VIB#6=371,VIB#7=372 VARIABLE VIB#8=373,VIB#9=374,VIB#10=375,VIB#11=376 VARIABLE VIB#12=377,VIB#13=378,VIB#14=379,VIB#15=380 VARIABLE VIB#16=381,VIB#17=382,VIB#18=383,VIB#19=384 VARIABLE VIB#20=385,VIB#21=386,VIB#22=387,VIB#23=388 VARIABLE VIB#24=389,VIB#25=390,VIB#26=391,VIB#27=392 VARIABLE VIB#28=393,VIB#29=394,VIB#30=395,VIB#31=396 VARIABLE VIB#32=397,VIB#33=398,VIB#34=399,VIB#35=400 VARIABLE VIB#36=401,VIB#37=402,VIB#38=403,VIB#39=404 VARIABLE VIB#40=405,VIB#41=406,VIB#42=407,VIB#43=408 VARIABLE VIB#44=409,VIB#45=410,VIB#46=411,VIB#47=412 VARIABLE VIB#48=413,VIB#49=414,VIB#50=415,VIB#51=416 VARIABLE VIB#52=417,VIB#53=418,VIB#54=419,VIB#55=420 VARIABLE VIB#56=421,VIB#57=422,VIB#58=423,VIB#59=424 VARIABLE VIB#60=425,VIB#61=426,VIB#62=427,VIB#63=428 LITES = 429 RINGBUFFER = 3712 VARIABLE RINGBUFFER#0=3712,RINGBUFFER#1=3713,RINGBUFFER#2=3714,RINGBUFFER#3=3715 VARIABLE RINGBUFFER#4=3716,RINGBUFFER#5=3717,RINGBUFFER#6=3718,RINGBUFFER#7=3719 VARIABLE RINGBUFFER#8=3720,RINGBUFFER#9=3721,RINGBUFFER#10=3722,RINGBUFFER#11=3723 VARIABLE RINGBUFFER#12=3724,RINGBUFFER#13=3725,RINGBUFFER#14=3726,RINGBUFFER#15=3727 VARIABLE RINGBUFFER#16=3728,RINGBUFFER#17=3729,RINGBUFFER#18=3730,RINGBUFFER#19=3731 VARIABLE RINGBUFFER#20=3732,RINGBUFFER#21=3733,RINGBUFFER#22=3734,RINGBUFFER#23=3735 VARIABLE RINGBUFFER#24=3736,RINGBUFFER#25=3737,RINGBUFFER#26=3738,RINGBUFFER#27=3739 VARIABLE RINGBUFFER#28=3740,RINGBUFFER#29=3741,RINGBUFFER#30=3742,RINGBUFFER#31=3743 VARIABLE RINGBUFFER#32=3744,RINGBUFFER#33=3745,RINGBUFFER#34=3746,RINGBUFFER#35=3747 VARIABLE RINGBUFFER#36=3748,RINGBUFFER#37=3749,RINGBUFFER#38=3750,RINGBUFFER#39=3751 VARIABLE RINGBUFFER#40=3752,RINGBUFFER#41=3753,RINGBUFFER#42=3754,RINGBUFFER#43=3755 VARIABLE RINGBUFFER#44=3756,RINGBUFFER#45=3757,RINGBUFFER#46=3758,RINGBUFFER#47=3759 VARIABLE RINGBUFFER#48=3760,RINGBUFFER#49=3761,RINGBUFFER#50=3762,RINGBUFFER#51=3763 VARIABLE RINGBUFFER#52=3764,RINGBUFFER#53=3765,RINGBUFFER#54=3766,RINGBUFFER#55=3767 VARIABLE RINGBUFFER#56=3768,RINGBUFFER#57=3769,RINGBUFFER#58=3770,RINGBUFFER#59=3771 VARIABLE RINGBUFFER#60=3772,RINGBUFFER#61=3773,RINGBUFFER#62=3774,RINGBUFFER#63=3775 VARIABLE RINGBUFFER#64=3776,RINGBUFFER#65=3777,RINGBUFFER#66=3778,RINGBUFFER#67=3779 VARIABLE RINGBUFFER#68=3780,RINGBUFFER#69=3781,RINGBUFFER#70=3782,RINGBUFFER#71=3783 VARIABLE RINGBUFFER#72=3784,RINGBUFFER#73=3785,RINGBUFFER#74=3786,RINGBUFFER#75=3787 VARIABLE RINGBUFFER#76=3788,RINGBUFFER#77=3789,RINGBUFFER#78=3790,RINGBUFFER#79=3791 VARIABLE RINGBUFFER#80=3792,RINGBUFFER#81=3793,RINGBUFFER#82=3794,RINGBUFFER#83=3795 VARIABLE RINGBUFFER#84=3796,RINGBUFFER#85=3797,RINGBUFFER#86=3798,RINGBUFFER#87=3799 VARIABLE RINGBUFFER#88=3800,RINGBUFFER#89=3801,RINGBUFFER#90=3802,RINGBUFFER#91=3803 VARIABLE RINGBUFFER#92=3804,RINGBUFFER#93=3805,RINGBUFFER#94=3806,RINGBUFFER#95=3807 VARIABLE RINGBUFFER#96=3808,RINGBUFFER#97=3809,RINGBUFFER#98=3810,RINGBUFFER#99=3811 VARIABLE RINGBUFFER#100=3812,RINGBUFFER#101=3813,RINGBUFFER#102=3814,RINGBUFFER#103=3815 VARIABLE RINGBUFFER#104=3816,RINGBUFFER#105=3817,RINGBUFFER#106=3818,RINGBUFFER#107=3819 VARIABLE RINGBUFFER#108=3820,RINGBUFFER#109=3821,RINGBUFFER#110=3822,RINGBUFFER#111=3823 VARIABLE RINGBUFFER#112=3824,RINGBUFFER#113=3825,RINGBUFFER#114=3826,RINGBUFFER#115=3827 VARIABLE RINGBUFFER#116=3828,RINGBUFFER#117=3829,RINGBUFFER#118=3830,RINGBUFFER#119=3831 VARIABLE RINGBUFFER#120=3832,RINGBUFFER#121=3833,RINGBUFFER#122=3834,RINGBUFFER#123=3835 VARIABLE RINGBUFFER#124=3836,RINGBUFFER#125=3837,RINGBUFFER#126=3838,RINGBUFFER#127=3839 VARIABLE RINGBUFFER#128=3840,RINGBUFFER#129=3841,RINGBUFFER#130=3842,RINGBUFFER#131=3843 VARIABLE RINGBUFFER#132=3844,RINGBUFFER#133=3845,RINGBUFFER#134=3846,RINGBUFFER#135=3847 VARIABLE RINGBUFFER#136=3848,RINGBUFFER#137=3849,RINGBUFFER#138=3850,RINGBUFFER#139=3851 VARIABLE RINGBUFFER#140=3852,RINGBUFFER#141=3853,RINGBUFFER#142=3854,RINGBUFFER#143=3855 VARIABLE RINGBUFFER#144=3856,RINGBUFFER#145=3857,RINGBUFFER#146=3858,RINGBUFFER#147=3859 VARIABLE RINGBUFFER#148=3860,RINGBUFFER#149=3861,RINGBUFFER#150=3862,RINGBUFFER#151=3863 VARIABLE RINGBUFFER#152=3864,RINGBUFFER#153=3865,RINGBUFFER#154=3866,RINGBUFFER#155=3867 VARIABLE RINGBUFFER#156=3868,RINGBUFFER#157=3869,RINGBUFFER#158=3870,RINGBUFFER#159=3871 VARIABLE RINGBUFFER#160=3872,RINGBUFFER#161=3873,RINGBUFFER#162=3874,RINGBUFFER#163=3875 VARIABLE RINGBUFFER#164=3876,RINGBUFFER#165=3877,RINGBUFFER#166=3878,RINGBUFFER#167=3879 VARIABLE RINGBUFFER#168=3880,RINGBUFFER#169=3881,RINGBUFFER#170=3882,RINGBUFFER#171=3883 VARIABLE RINGBUFFER#172=3884,RINGBUFFER#173=3885,RINGBUFFER#174=3886,RINGBUFFER#175=3887 VARIABLE RINGBUFFER#176=3888,RINGBUFFER#177=3889,RINGBUFFER#178=3890,RINGBUFFER#179=3891 VARIABLE RINGBUFFER#180=3892,RINGBUFFER#181=3893,RINGBUFFER#182=3894,RINGBUFFER#183=3895 VARIABLE RINGBUFFER#184=3896,RINGBUFFER#185=3897,RINGBUFFER#186=3898,RINGBUFFER#187=3899 VARIABLE RINGBUFFER#188=3900,RINGBUFFER#189=3901,RINGBUFFER#190=3902,RINGBUFFER#191=3903 VARIABLE RINGBUFFER#192=3904,RINGBUFFER#193=3905,RINGBUFFER#194=3906,RINGBUFFER#195=3907 VARIABLE RINGBUFFER#196=3908,RINGBUFFER#197=3909,RINGBUFFER#198=3910,RINGBUFFER#199=3911 VARIABLE RINGBUFFER#200=3912,RINGBUFFER#201=3913,RINGBUFFER#202=3914,RINGBUFFER#203=3915 VARIABLE RINGBUFFER#204=3916,RINGBUFFER#205=3917,RINGBUFFER#206=3918,RINGBUFFER#207=3919 VARIABLE RINGBUFFER#208=3920,RINGBUFFER#209=3921,RINGBUFFER#210=3922,RINGBUFFER#211=3923 VARIABLE RINGBUFFER#212=3924,RINGBUFFER#213=3925,RINGBUFFER#214=3926,RINGBUFFER#215=3927 VARIABLE RINGBUFFER#216=3928,RINGBUFFER#217=3929,RINGBUFFER#218=3930,RINGBUFFER#219=3931 VARIABLE RINGBUFFER#220=3932,RINGBUFFER#221=3933,RINGBUFFER#222=3934,RINGBUFFER#223=3935 VARIABLE RINGBUFFER#224=3936,RINGBUFFER#225=3937,RINGBUFFER#226=3938,RINGBUFFER#227=3939 VARIABLE RINGBUFFER#228=3940,RINGBUFFER#229=3941,RINGBUFFER#230=3942,RINGBUFFER#231=3943 VARIABLE RINGBUFFER#232=3944,RINGBUFFER#233=3945,RINGBUFFER#234=3946,RINGBUFFER#235=3947 VARIABLE RINGBUFFER#236=3948,RINGBUFFER#237=3949,RINGBUFFER#238=3950,RINGBUFFER#239=3951 VARIABLE RINGBUFFER#240=3952,RINGBUFFER#241=3953,RINGBUFFER#242=3954,RINGBUFFER#243=3955 VARIABLE RINGBUFFER#244=3956,RINGBUFFER#245=3957,RINGBUFFER#246=3958,RINGBUFFER#247=3959 VARIABLE RINGBUFFER#248=3960,RINGBUFFER#249=3961,RINGBUFFER#250=3962,RINGBUFFER#251=3963 VARIABLE RINGBUFFER#252=3964,RINGBUFFER#253=3965,RINGBUFFER#254=3966,RINGBUFFER#255=3967 #DEFINE CNTHW CNTHH #DEFINE CNTHWH CNTHHH #DEFINE CNTLW TMR0L #DEFINE CNTLWH TMR0LH #DEFINE TIM1 TMR1L #DEFINE TIM1H TMR1LH #DEFINE CNT3HW CNT3HH #DEFINE CNT3HWH CNT3HHH #DEFINE TIM3 TMR3L #DEFINE TIM3H TMR3LH #DEFINE STBIT BYTEIN,7 #DEFINE POWERON CC66,0 #DEFINE FSR0SAVEINT PP0 #DEFINE FSR0SAVEINTH PP0H #DEFINE USART_FSR0_SAVE FSR0SAVEINT #DEFINE USART_FSR0_SAVEH FSR0SAVEINTH #DEFINE USART_FSR0 FSR0L #DEFINE USART_FSR0H FSR0LH #DEFINE USART_FSR1 FSR1L #DEFINE USART_FSR1H FSR1LH #DEFINE __OPTIMISER_LEVEL 3 #DEFINE __XTAL 40 #DEFINE PWMMINF 2442 #DEFINE PWMMINFH 9 #DEFINE MIDICHANNEL 5 #DEFINE NOTEOFF_STATUS 133 #DEFINE NOTEON_STATUS 149 #DEFINE KEYPRES_STATUS 165 #DEFINE CONTROL_STATUS 181 #DEFINE AFTERTOUCH_STATUS 213 #DEFINE __HSERIAL_BAUD 31250 #DEFINE __HSERIAL_TXSTA 36 #DEFINE __START_OF_RESERVE_RAM 3712 #DEFINE __RESERVE_RAM_SIZE 256 HSERIAL_SPBRG = 79 HSERIAL_TXSTA = 36 HSERIAL_RCSTA = 144 HSERIAL_BAUD = 31250 PROTON#CODE#START ORG 0X000000 GOTO PROTON#MAIN#START ORG 0X000008 BRA HIGH_PRIOR_INTERRUPT ORG 0X000018 BRA LOW_PRIOR_INTERRUPT HRSIN#REQ = 1 HRSINX#REQ = 1 HRSIN#CLROERR = 1 DL@MS CLRF 4 DLY@W MOVWF 3 DLY@P MOVLW 255 ADDWF 3,F ADDWFC 4,F BRA $ + 2 BTFSS 4056,0 RETURN MOVLW 3 MOVWF 2 MOVLW 231 RCALL DLUS@W BRA DLY@P DL@US CLRF 2 DLUS@W ADDLW 254 MOVWF 1 CLRF 4072 SUBWFB 2,F BTFSS 4056,0 RETURN NOP DECF 1,F BRA $ + 2 BRA $ - 14 PROTON#MAIN#START CLRF 4088 MOVLW 79 MOVWF 4015 MOVLW 36 MOVWF 4012 MOVLW 144 MOVWF 4011 MOVLB 0 F2_SOF EQU $ ; KLAR_VALVES.PRP F2_EOF EQU $ ; KLAR_VALVES.PRP F1_SOF EQU $ ; KLAR_VALVES.BAS F3_SOF EQU $ ; 18F4620.INC F3_EOF EQU $ ; 18F4620.INC F1_000068 EQU $ ; IN [KLAR_VALVES.BAS] DECLARE ALL_DIGITAL = TRUE MOVLW 7 MOVWF CMCON,0 MOVLW 15 MOVWF ADCON1,0 F1_000069 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR SSPCON1.5 BCF SSPCON1,5,0 F1_000071 EQU $ ; IN [KLAR_VALVES.BAS] TRISA = %11000000 MOVLW 192 MOVWF TRISA,0 F1_000072 EQU $ ; IN [KLAR_VALVES.BAS] TRISB = %11100000 MOVLW 224 MOVWF TRISB,0 F1_000073 EQU $ ; IN [KLAR_VALVES.BAS] TRISC = %11000000 MOVLW 192 MOVWF TRISC,0 F1_000074 EQU $ ; IN [KLAR_VALVES.BAS] TRISD = %00000000 CLRF TRISD,0 F1_000075 EQU $ ; IN [KLAR_VALVES.BAS] TRISE = %11101000 MOVLW 232 MOVWF TRISE,0 F4_SOF EQU $ ; KLAR_VALVES_MIDI_IRQ.INC F4_000052 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO _OVER_IRQ_HANDLER BRA _OVER_IRQ_HANDLER HIGH_PRIOR_INTERRUPT F4_000063 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] IF PIR1.5 = 1 THEN BTFSS PIR1,5 BRA BC@LL2 F4_000064 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] MOVLW 6 MOVLW 6 F4_000065 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ANDWF RCSTA,W ANDWF RCSTA,W F4_000066 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BNZ _UART_ERROR BNZ _UART_ERROR F4_000067 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 MOVFF FSR1L,USART_FSR1_SAVE MOVFF FSR1LH,USART_FSR1_SAVEH F4_000068 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] INC INDEXIN INCF INDEXIN,F,0 F4_000078 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER LFSR 1,RINGBUFFER F4_000079 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN MOVF INDEXIN,W,0 ADDWF FSR1L,F,0 MOVLW 0 ADDWFC FSR1LH,F,0 F4_000080 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] INDF1 = RCREG MOVFF RCREG,INDF1 F4_000081 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE MOVFF USART_FSR1_SAVE,FSR1L MOVFF USART_FSR1_SAVEH,FSR1LH F4_000083 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETFIE FAST RETFIE 1 _UART_ERROR F4_000085 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] WREG = RCREG MOVF RCREG,W,0 F4_000086 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] WREG = RCREG MOVF RCREG,W,0 F4_000087 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR RCSTA.4 BCF RCSTA,4,0 F4_000088 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET RCSTA.4 BSF RCSTA,4,0 F4_000089 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETFIE FAST RETFIE 1 BRA BC@LL3 BC@LL2 F4_000090 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ELSE _TIMER0_IRQ F4_000092 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] IF INTCON.2 = 1 THEN BTFSS INTCON,2 BRA BC@LL5 F4_000093 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR INTCON.2 BCF INTCON,2,0 F4_000094 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] INC CNTHW INFSNZ CNTHH,F,0 INCF CNTHHH,F,0 F4_000095 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.5 BTG PORTB,5 F4_000097 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR CNT.BYTE1 CLRF CNTH,0 F4_000098 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CNT.BYTE0 = TMR0L MOVFF TMR0L,CNT F4_000099 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETFIE FAST RETFIE 1 F4_000100 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ENDIF BC@LL5 F4_000101 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ENDIF BC@LL3 F4_000102 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETFIE FAST RETFIE 1 HRSIN: F4_000106 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] IF INDEXIN <> INDEXOUT THEN MOVF INDEXIN,W,0 SUBWF INDEXOUT,W,0 BZ BC@LL7 F4_000107 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] INC INDEXOUT INCF INDEXOUT,F,0 F4_000108 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 MOVFF FSR0L,FSR0SAVEINT MOVFF FSR0LH,FSR0SAVEINTH F4_000109 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER LFSR 0,RINGBUFFER F4_000110 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT MOVF INDEXOUT,W,0 ADDWF FSR0L,F,0 MOVLW 0 ADDWFC FSR0LH,F,0 F4_000111 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] WREG = INDF0 MOVF INDF0,W,0 F4_000112 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] PP0 = WREG MOVWF PP0,0 F4_000113 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE MOVFF FSR0SAVEINT,FSR0L MOVFF FSR0SAVEINTH,FSR0LH F4_000114 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET STATUS.0 BSF STATUS,0,0 F4_000115 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RET RETURN 0 BRA BC@LL8 BC@LL7 F4_000116 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ELSE F4_000117 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] WREG = 255 SETF WREG,0 F4_000118 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] PP0 = WREG MOVWF PP0,0 F4_000119 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTFSS STATUS,C BTFSS STATUS,C F4_000120 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RET RETURN 0 F4_000121 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ENDIF BC@LL8 F4_000122 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RET RETURN 0 _INIT_USART F4_000138 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR INDEXIN CLRF INDEXIN,0 F4_000139 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR INDEXOUT CLRF INDEXOUT,0 F4_000140 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET PIE1.5 BSF PIE1,5,0 F4_000142 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET IPR1.5 BSF IPR1,5,0 F4_000144 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET INTCON.7 BSF INTCON,7,0 F4_000145 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET INTCON.6 BSF INTCON,6,0 F4_000147 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETURN RETURN 0 _CLEAR_USART_BUFFER F4_000161 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] PIE1.5 = 0 BCF PIE1,5,0 F4_000162 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR RINGBUFFER LFSR 0,RINGBUFFER MOVLW 0 CLRF POSTINC0,0 DECFSZ WREG,F,0 BRA $ - 4 F4_000163 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR INDEXIN CLRF INDEXIN,0 F4_000164 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR INDEXOUT CLRF INDEXOUT,0 F4_000165 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] SET PIE1.5 BSF PIE1,5,0 F4_000166 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETURN RETURN 0 LOW_PRIOR_INTERRUPT TIMER3_ISR F4_000175 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CONTEXT SAVE BCF INTCON,7,0 MOVFF STATUS,3672 MOVFF WREG,3673 MOVFF BSR,3674 MOVFF FSR0L,3675 MOVFF FSR0H,3676 MOVFF FSR1L,3677 MOVFF FSR1H,3678 MOVFF FSR2L,3679 MOVFF FSR2H,3680 MOVFF TBLPTRL,3681 MOVFF TBLPTRH,3682 MOVFF TABLAT,3683 MOVFF PRODL,3684 MOVFF PRODH,3685 MOVFF EECON1,3686 MOVFF PP0,3687 MOVFF PP1,3688 BSF INTCON,7,0 MOVLB 0 F4_000176 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR PIR2.1 BCF PIR2,1,0 F4_000177 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] IF VELFLAGS0.1 = 1 THEN BTFSS VELFLAGS0,1 BRA BC@LL10 F4_000178 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] TIM3 = VIBRATOPERIOD MOVFF VIBRATOPERIOD,TMR3L MOVFF VIBRATOPERIODH,TMR3LH F4_000180 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] INC CNT3HW INFSNZ CNT3HH,F,0 INCF CNT3HHH,F,0 F4_000181 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] IF CNT3HW.1 = 1 THEN BTFSS CNT3HH,1 BRA BC@LL12 F4_000182 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR CNT3HW CLRF CNT3HH,0 CLRF CNT3HHH,0 F4_000184 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BRANCHL VIBRATOVALVE,[I_END, IV1, IV2, IV3, IV4, IV5, IV6, IV7, IV8, IV9, IV10, IV11, IV12, IV13, IV14, IV15, IV16, IV17, IV18, IV19, IV20, IV21] MOVF VIBRATOVALVE,W,0 MOVWF PP0,0 SUBLW 21 BNC JE@LB1 CLRF PCLATH,0 BCF STATUS,0,0 RLCF PP0,F,0 RLCF PCLATH,F,0 RLCF PP0,F,0 RLCF PCLATH,F,0 MOVLW 174 ADDWF PP0,F,0 MOVLW 1 ADDWFC PCLATH,F,0 CLRF PCLATU,0 MOVLW 0 ADDWFC PCLATU,F,0 MOVF PP0,W,0 MOVWF PCL,0 JP@LB2 GOTO I_END GOTO IV1 GOTO IV2 GOTO IV3 GOTO IV4 GOTO IV5 GOTO IV6 GOTO IV7 GOTO IV8 GOTO IV9 GOTO IV10 GOTO IV11 GOTO IV12 GOTO IV13 GOTO IV14 GOTO IV15 GOTO IV16 GOTO IV17 GOTO IV18 GOTO IV19 GOTO IV20 GOTO IV21 JE@LB1 F4_000185 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ENDIF BC@LL12 F4_000186 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END F4_000187 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] ENDIF BC@LL10 F4_000188 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CLEAR CNT3HW CLRF CNT3HH,0 CLRF CNT3HHH,0 F4_000189 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV0 F4_000191 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV1 F4_000193 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.2 BTG PORTA,2 F4_000194 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV2 F4_000196 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.1 BTG PORTA,1 F4_000197 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV3 F4_000199 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.0 BTG PORTA,0 F4_000200 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV4 F4_000202 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.3 BTG PORTA,3 F4_000203 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV5 F4_000205 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.4 BTG PORTA,4 F4_000206 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV6 F4_000208 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTA.5 BTG PORTA,5 F4_000209 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV7 F4_000211 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTE.0 BTG PORTE,0 F4_000212 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV8 F4_000214 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTE.1 BTG PORTE,1 F4_000215 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV9 F4_000217 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTE.2 BTG PORTE,2 F4_000218 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV10 F4_000220 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.4 BTG PORTB,4 F4_000221 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV11 F4_000223 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.3 BTG PORTB,3 F4_000224 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV12 F4_000226 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.2 BTG PORTB,2 F4_000227 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV13 F4_000229 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.1 BTG PORTB,1 F4_000230 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV14 F4_000232 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTB.0 BTG PORTB,0 F4_000233 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV15 F4_000235 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTD.7 BTG PORTD,7 F4_000236 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV16 F4_000238 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTD.6 BTG PORTD,6 F4_000239 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV17 F4_000241 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTD.5 BTG PORTD,5 F4_000242 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV18 F4_000244 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTD.4 BTG PORTD,4 F4_000245 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV19 F4_000247 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTC.5 BTG PORTC,5 F4_000248 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV20 F4_000250 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTC.4 BTG PORTC,4 F4_000251 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END IV21 F4_000253 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTG PORTD.3 BTG PORTD,3 F4_000254 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] GOTO I_END BRA I_END I_END F4_000277 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] CONTEXT RESTORE BCF INTCON,7,0 MOVFF 3672,STATUS MOVFF 3673,WREG MOVFF 3674,BSR MOVFF 3675,FSR0L MOVFF 3676,FSR0H MOVFF 3677,FSR1L MOVFF 3678,FSR1H MOVFF 3679,FSR2L MOVFF 3680,FSR2H MOVFF 3681,TBLPTRL MOVFF 3682,TBLPTRH MOVFF 3683,TABLAT MOVFF 3684,PRODL MOVFF 3685,PRODH MOVFF 3686,EECON1 MOVFF 3687,PP0 MOVFF 3688,PP1 BSF INTCON,7,0 RETFIE HRSOUT F4_000288 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BTFSS PIR1.4 BTFSS PIR1,4 F4_000289 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] BRA ($ - 2) BRA ($ - 2) F4_000290 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] MOVWF TXREG MOVWF TXREG F4_000291 EQU $ ; IN [KLAR_VALVES_MIDI_IRQ.INC] RETURN RETURN 0 _OVER_IRQ_HANDLER F4_EOF EQU $ ; KLAR_VALVES_MIDI_IRQ.INC MAIN F1_000153 EQU $ ; IN [KLAR_VALVES.BAS] HIGH PORTB.5 BCF TRISB,5,0 BSF LATB,5,0 F1_000154 EQU $ ; IN [KLAR_VALVES.BAS] DELAYMS 10 MOVLW 10 RCALL DL@MS F1_000155 EQU $ ; IN [KLAR_VALVES.BAS] LOW PORTB.5 BCF TRISB,5,0 BCF LATB,5,0 F1_000156 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB POWERDOWN RCALL POWERDOWN F1_000157 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB VALVE_TABLE CALL VALVE_TABLE F1_000158 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CC66 CLRF CC66,0 F1_000159 EQU $ ; IN [KLAR_VALVES.BAS] CC30 = 120 MOVLW 120 MOVWF CC30,0 F1_000160 EQU $ ; IN [KLAR_VALVES.BAS] RELEASETIME = CC30 <<9 MOVFF CC30,RELEASETIMEH CLRF RELEASETIME,0 BCF STATUS,0,0 RLCF RELEASETIMEH,F,0 F1_000161 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CC31 CLRF CC31,0 F1_000163 EQU $ ; IN [KLAR_VALVES.BAS] INIT_USART_INTERRUPT VARIABLE MAX_PARAMS=10,INIT_USART_INTERRUPT_RETURN=0,PRM_COUNT=0 RCALL _INIT_USART F1_000165 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR_SERIAL_BUFFER VARIABLE MAX_PARAMS=10,CLEAR_SERIAL_BUFFER_RETURN=0,PRM_COUNT=0 RCALL _CLEAR_USART_BUFFER F1_000182 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T1CON CLRF T1CON,0 F1_000183 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR INTCON.2 BCF INTCON,2,0 F1_000184 EQU $ ; IN [KLAR_VALVES.BAS] SET INTCON.5 BSF INTCON,5,0 F1_000185 EQU $ ; IN [KLAR_VALVES.BAS] T0CON = %10000111 MOVLW 135 MOVWF T0CON,0 F1_000221 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON CLRF T3CON,0 F1_000222 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PIR2.1 BCF PIR2,1,0 F1_000223 EQU $ ; IN [KLAR_VALVES.BAS] SET PIE2.1 BSF PIE2,1,0 F1_000225 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR TIM3 CLRF TMR3L,0 CLRF TMR3LH,0 F1_000226 EQU $ ; IN [KLAR_VALVES.BAS] SET RCON.7 BSF RCON,7,0 F1_000227 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR IPR2.1 BCF IPR2,1,0 F1_000229 EQU $ ; IN [KLAR_VALVES.BAS] T3CON = %10110001 MOVLW 177 MOVWF T3CON,0 LOOP F1_000255 EQU $ ; IN [KLAR_VALVES.BAS] BYTEIN = HRSIN RCALL HRSIN MOVWF BYTEIN,0 MIDI_PARSE F1_000258 EQU $ ; IN [KLAR_VALVES.BAS] IF BYTEIN > CONTROL_STATUS THEN MOVLW 182 SUBWF BYTEIN,W,0 BNC BC@LL14 F1_000259 EQU $ ; IN [KLAR_VALVES.BAS] IF BYTEIN > 253 THEN MOVLW 254 SUBWF BYTEIN,W,0 BNC BC@LL16 F1_000263 EQU $ ; IN [KLAR_VALVES.BAS] GOTO CHECK_TIMERS BRA CHECK_TIMERS BRA BC@LL17 BC@LL16 F1_000264 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000265 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR STATUSBYTE CLRF STATUSBYTE,0 F1_000266 EQU $ ; IN [KLAR_VALVES.BAS] GOTO CHECK_TIMERS BRA CHECK_TIMERS F1_000267 EQU $ ; IN [KLAR_VALVES.BAS] END IF BC@LL17 F1_000268 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL14 F1_000269 EQU $ ; IN [KLAR_VALVES.BAS] IF STBIT =1 THEN BTFSS BYTEIN,7 BRA BC@LL19 F1_000271 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR STATUSBYTE CLRF STATUSBYTE,0 F1_000272 EQU $ ; IN [KLAR_VALVES.BAS] SELECT BYTEIN F1_000273 EQU $ ; IN [KLAR_VALVES.BAS] CASE NOTEOFF_STATUS MOVLW 133 SUBWF BYTEIN,W,0 BNZ BC@LL21 F1_000274 EQU $ ; IN [KLAR_VALVES.BAS] STATUSBYTE = BYTEIN MOVFF BYTEIN,STATUSBYTE F1_000275 EQU $ ; IN [KLAR_VALVES.BAS] SET NOTEUIT SETF NOTEUIT,0 F1_000276 EQU $ ; IN [KLAR_VALVES.BAS] SET RELEASE SETF RELEASE,0 BRA BC@LL20 BC@LL21 F1_000277 EQU $ ; IN [KLAR_VALVES.BAS] CASE NOTEON_STATUS MOVLW 149 SUBWF BYTEIN,W,0 BNZ BC@LL24 F1_000278 EQU $ ; IN [KLAR_VALVES.BAS] STATUSBYTE = BYTEIN MOVFF BYTEIN,STATUSBYTE F1_000279 EQU $ ; IN [KLAR_VALVES.BAS] SET NOTEAAN SETF NOTEAAN,0 F1_000280 EQU $ ; IN [KLAR_VALVES.BAS] SET VELO SETF VELO,0 BRA BC@LL20 BC@LL24 F1_000285 EQU $ ; IN [KLAR_VALVES.BAS] CASE CONTROL_STATUS MOVLW 181 SUBWF BYTEIN,W,0 BNZ BC@LL26 F1_000286 EQU $ ; IN [KLAR_VALVES.BAS] STATUSBYTE = BYTEIN MOVFF BYTEIN,STATUSBYTE F1_000287 EQU $ ; IN [KLAR_VALVES.BAS] SET CTRL SETF CTRL,0 F1_000288 EQU $ ; IN [KLAR_VALVES.BAS] SET VALUE SETF VALUE,0 BRA BC@LL20 BC@LL26 F1_000292 EQU $ ; IN [KLAR_VALVES.BAS] CASE AFTERTOUCH_STATUS MOVLW 213 SUBWF BYTEIN,W,0 BNZ BC@LL28 F1_000293 EQU $ ; IN [KLAR_VALVES.BAS] STATUSBYTE = BYTEIN MOVFF BYTEIN,STATUSBYTE F1_000294 EQU $ ; IN [KLAR_VALVES.BAS] SET AFT SETF AFT,0 F1_000299 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL28 BC@LL20 BRA BC@LL29 BC@LL19 F1_000300 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000301 EQU $ ; IN [KLAR_VALVES.BAS] SELECT STATUSBYTE F1_000302 EQU $ ; IN [KLAR_VALVES.BAS] CASE 0 MOVF STATUSBYTE,F,0 BNZ BC@LL31 F1_000303 EQU $ ; IN [KLAR_VALVES.BAS] GOTO CHECK_TIMERS BRA CHECK_TIMERS BRA BC@LL30 BC@LL31 F1_000304 EQU $ ; IN [KLAR_VALVES.BAS] CASE NOTEOFF_STATUS MOVLW 133 SUBWF STATUSBYTE,W,0 BNZ BC@LL34 F1_000305 EQU $ ; IN [KLAR_VALVES.BAS] IF NOTEUIT = 255 THEN INCF NOTEUIT,W,0 BNZ BC@LL36 F1_000306 EQU $ ; IN [KLAR_VALVES.BAS] NOTEUIT = BYTEIN MOVFF BYTEIN,NOTEUIT BRA BC@LL37 BC@LL36 F1_000307 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000308 EQU $ ; IN [KLAR_VALVES.BAS] RELEASE = BYTEIN MOVFF BYTEIN,RELEASE F1_000309 EQU $ ; IN [KLAR_VALVES.BAS] SELECT NOTEUIT F1_000310 EQU $ ; IN [KLAR_VALVES.BAS] CASE 43 TO 106 MOVLW 43 SUBWF NOTEUIT,W,0 BNC BC@LL39 MOVLW 107 SUBWF NOTEUIT,W,0 BC BC@LL39 F1_000313 EQU $ ; IN [KLAR_VALVES.BAS] SET VELFLAGS0.0 BSF VELFLAGS0,0,0 F1_000314 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000315 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PLAYINGNOTE CLRF PLAYINGNOTE,0 F1_000316 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0.1 BCF VELFLAGS0,1,0 F1_000317 EQU $ ; IN [KLAR_VALVES.BAS] CNT.WORD0 = CNTLW MOVFF TMR0L,CNT MOVFF TMR0LH,CNTH F1_000318 EQU $ ; IN [KLAR_VALVES.BAS] VELTIM0 = CNT + RELEASETIME MOVF RELEASETIME,W,0 ADDWF CNT,W,0 MOVWF VELTIM0,0 MOVF RELEASETIMEH,W,0 ADDWFC CNTH,W,0 MOVWF VELTIM0H,0 MOVLW 0 ADDWFC CNTHH,W,0 MOVWF VELTIM0HH,0 MOVLW 0 ADDWFC CNTHHH,W,0 MOVWF VELTIM0HHH,0 BRA BC@LL38 BC@LL39 F1_000319 EQU $ ; IN [KLAR_VALVES.BAS] CASE 124 MOVLW 124 SUBWF NOTEUIT,W,0 BNZ BC@LL42 F1_000320 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.0 MOVLB 1 BCF LITES,0 F1_000321 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.0 BCF LATD,0,0 MOVLB 0 BRA BC@LL38 BC@LL42 F1_000322 EQU $ ; IN [KLAR_VALVES.BAS] CASE 125 MOVLW 125 SUBWF NOTEUIT,W,0 BNZ BC@LL44 F1_000323 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.1 MOVLB 1 BCF LITES,1 F1_000324 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.1 BCF LATD,1,0 MOVLB 0 BRA BC@LL38 BC@LL44 F1_000325 EQU $ ; IN [KLAR_VALVES.BAS] CASE 126 MOVLW 126 SUBWF NOTEUIT,W,0 BNZ BC@LL46 F1_000326 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.2 MOVLB 1 BCF LITES,2 F1_000327 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.2 BCF LATD,2,0 F1_000328 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL46 MOVLB 0 BC@LL38 F1_000329 EQU $ ; IN [KLAR_VALVES.BAS] SET NOTEUIT SETF NOTEUIT,0 F1_000330 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL37 BRA BC@LL30 BC@LL34 F1_000332 EQU $ ; IN [KLAR_VALVES.BAS] CASE NOTEON_STATUS MOVLW 149 SUBWF STATUSBYTE,W,0 BTFSS STATUS,2 BRA BC@LL48 F1_000333 EQU $ ; IN [KLAR_VALVES.BAS] IF NOTEAAN = 255 THEN INCF NOTEAAN,W,0 BNZ BC@LL50 F1_000334 EQU $ ; IN [KLAR_VALVES.BAS] NOTEAAN = BYTEIN MOVFF BYTEIN,NOTEAAN BRA BC@LL51 BC@LL50 F1_000335 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000336 EQU $ ; IN [KLAR_VALVES.BAS] VELO = BYTEIN MOVFF BYTEIN,VELO F1_000337 EQU $ ; IN [KLAR_VALVES.BAS] IF VELO = 0 THEN MOVF VELO,F,0 BNZ BC@LL53 F1_000338 EQU $ ; IN [KLAR_VALVES.BAS] SELECT NOTEAAN F1_000339 EQU $ ; IN [KLAR_VALVES.BAS] CASE 43 TO 106 MOVLW 43 SUBWF NOTEAAN,W,0 BNC BC@LL55 MOVLW 107 SUBWF NOTEAAN,W,0 BC BC@LL55 F1_000342 EQU $ ; IN [KLAR_VALVES.BAS] SET VELFLAGS0.0 BSF VELFLAGS0,0,0 F1_000343 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000344 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0.1 BCF VELFLAGS0,1,0 F1_000345 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PLAYINGNOTE CLRF PLAYINGNOTE,0 F1_000346 EQU $ ; IN [KLAR_VALVES.BAS] CNT.WORD0 = CNTLW MOVFF TMR0L,CNT MOVFF TMR0LH,CNTH F1_000347 EQU $ ; IN [KLAR_VALVES.BAS] VELTIM0 = CNT + RELEASETIME MOVF RELEASETIME,W,0 ADDWF CNT,W,0 MOVWF VELTIM0,0 MOVF RELEASETIMEH,W,0 ADDWFC CNTH,W,0 MOVWF VELTIM0H,0 MOVLW 0 ADDWFC CNTHH,W,0 MOVWF VELTIM0HH,0 MOVLW 0 ADDWFC CNTHHH,W,0 MOVWF VELTIM0HHH,0 BRA BC@LL54 BC@LL55 F1_000348 EQU $ ; IN [KLAR_VALVES.BAS] CASE 124 MOVLW 124 SUBWF NOTEAAN,W,0 BNZ BC@LL58 F1_000349 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.0 MOVLB 1 BCF LITES,0 F1_000350 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.0 BCF LATD,0,0 MOVLB 0 BRA BC@LL54 BC@LL58 F1_000351 EQU $ ; IN [KLAR_VALVES.BAS] CASE 125 MOVLW 125 SUBWF NOTEAAN,W,0 BNZ BC@LL60 F1_000352 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.1 MOVLB 1 BCF LITES,1 F1_000353 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.1 BCF LATD,1,0 MOVLB 0 BRA BC@LL54 BC@LL60 F1_000354 EQU $ ; IN [KLAR_VALVES.BAS] CASE 126 MOVLW 126 SUBWF NOTEAAN,W,0 BNZ BC@LL62 F1_000355 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES.2 MOVLB 1 BCF LITES,2 F1_000356 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.2 BCF LATD,2,0 F1_000357 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL62 MOVLB 0 BC@LL54 BRA BC@LL63 BC@LL53 F1_000358 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000359 EQU $ ; IN [KLAR_VALVES.BAS] SELECT NOTEAAN F1_000360 EQU $ ; IN [KLAR_VALVES.BAS] CASE 43 TO 106 MOVLW 43 SUBWF NOTEAAN,W,0 BNC BC@LL65 MOVLW 107 SUBWF NOTEAAN,W,0 BC BC@LL65 F1_000361 EQU $ ; IN [KLAR_VALVES.BAS] IDX = NOTEAAN - 43 MOVLW 43 SUBWF NOTEAAN,W,0 MOVWF IDX,0 F1_000362 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0.0 BCF VELFLAGS0,0,0 F1_000363 EQU $ ; IN [KLAR_VALVES.BAS] PORTA = FINGERSA[IDX] LFSR 0,FINGERSA MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF PORTA,0 F1_000366 EQU $ ; IN [KLAR_VALVES.BAS] I = FINGERSB[IDX] LFSR 0,FINGERSB MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF _I,0 F1_000367 EQU $ ; IN [KLAR_VALVES.BAS] I.5 = PORTB.5 BSF _I,5,0 BTFSS PORTB,5,0 BCF _I,5,0 F1_000368 EQU $ ; IN [KLAR_VALVES.BAS] PORTB = I MOVFF _I,PORTB F1_000373 EQU $ ; IN [KLAR_VALVES.BAS] PORTC = FINGERSC[IDX] LFSR 0,FINGERSC MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF PORTC,0 F1_000375 EQU $ ; IN [KLAR_VALVES.BAS] PORTD = FINGERSD[IDX] + LITES LFSR 0,FINGERSD MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF PBP#VAR0,0 MOVLB 1 MOVF LITES,W ADDWF PBP#VAR0,W,0 MOVWF PORTD,0 F1_000381 EQU $ ; IN [KLAR_VALVES.BAS] PORTE= FINGERSE[IDX] LFSR 0,FINGERSE MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF PORTE,0 F1_000382 EQU $ ; IN [KLAR_VALVES.BAS] PLAYINGNOTE = NOTEAAN MOVFF NOTEAAN,PLAYINGNOTE F1_000383 EQU $ ; IN [KLAR_VALVES.BAS] IF CC31 > 0 THEN MOVF CC31,F,0 MOVLB 0 BZ BC@LL68 F1_000384 EQU $ ; IN [KLAR_VALVES.BAS] VIBRATOVALVE = VIB[IDX] LFSR 0,VIB MOVF IDX,W,0 MOVF PLUSW0,W,0 MOVWF VIBRATOVALVE,0 F1_000385 EQU $ ; IN [KLAR_VALVES.BAS] SET VELFLAGS0.1 BSF VELFLAGS0,1,0 F1_000386 EQU $ ; IN [KLAR_VALVES.BAS] SET T3CON.0 BSF T3CON,0,0 F1_000387 EQU $ ; IN [KLAR_VALVES.BAS] END IF BC@LL68 BRA BC@LL64 BC@LL65 F1_000388 EQU $ ; IN [KLAR_VALVES.BAS] CASE 124 MOVLW 124 SUBWF NOTEAAN,W,0 BNZ BC@LL70 F1_000389 EQU $ ; IN [KLAR_VALVES.BAS] SET LITES.0 MOVLB 1 BSF LITES,0 F1_000390 EQU $ ; IN [KLAR_VALVES.BAS] SET PORTD.0 BSF LATD,0,0 MOVLB 0 BRA BC@LL64 BC@LL70 F1_000391 EQU $ ; IN [KLAR_VALVES.BAS] CASE 125 MOVLW 125 SUBWF NOTEAAN,W,0 BNZ BC@LL72 F1_000392 EQU $ ; IN [KLAR_VALVES.BAS] SET LITES.1 MOVLB 1 BSF LITES,1 F1_000393 EQU $ ; IN [KLAR_VALVES.BAS] SET PORTD.1 BSF LATD,1,0 MOVLB 0 BRA BC@LL64 BC@LL72 F1_000394 EQU $ ; IN [KLAR_VALVES.BAS] CASE 126 MOVLW 126 SUBWF NOTEAAN,W,0 BNZ BC@LL74 F1_000395 EQU $ ; IN [KLAR_VALVES.BAS] SET LITES.2 MOVLB 1 BSF LITES,2 F1_000396 EQU $ ; IN [KLAR_VALVES.BAS] SET PORTD.2 BSF LATD,2,0 F1_000397 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL74 MOVLB 0 BC@LL64 F1_000398 EQU $ ; IN [KLAR_VALVES.BAS] SET NOTEAAN SETF NOTEAAN,0 F1_000399 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL63 F1_000400 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL51 BRA BC@LL30 BC@LL48 F1_000412 EQU $ ; IN [KLAR_VALVES.BAS] CASE CONTROL_STATUS MOVLW 181 SUBWF STATUSBYTE,W,0 BNZ BC@LL76 F1_000413 EQU $ ; IN [KLAR_VALVES.BAS] IF CTRL = 255 THEN INCF CTRL,W,0 BNZ BC@LL78 F1_000414 EQU $ ; IN [KLAR_VALVES.BAS] CTRL = BYTEIN MOVFF BYTEIN,CTRL BRA BC@LL79 BC@LL78 F1_000415 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000416 EQU $ ; IN [KLAR_VALVES.BAS] VALUE = BYTEIN MOVFF BYTEIN,VALUE F1_000417 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB CONTROLLER RCALL CONTROLLER F1_000418 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL79 BRA BC@LL30 BC@LL76 F1_000425 EQU $ ; IN [KLAR_VALVES.BAS] CASE AFTERTOUCH_STATUS MOVLW 213 SUBWF STATUSBYTE,W,0 BNZ BC@LL81 F1_000426 EQU $ ; IN [KLAR_VALVES.BAS] IF AFT = 255 THEN INCF AFT,W,0 BNZ BC@LL83 F1_000427 EQU $ ; IN [KLAR_VALVES.BAS] AFT = BYTEIN MOVFF BYTEIN,AFT F1_000428 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB AFTERTOUCH RCALL AFTERTOUCH F1_000429 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL83 F1_000431 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL81 BC@LL30 F1_000432 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL29 CHECK_TIMERS F1_000440 EQU $ ; IN [KLAR_VALVES.BAS] IF VELFLAGS0.0 = 1 THEN BTFSS VELFLAGS0,0 BRA BC@LL85 F1_000441 EQU $ ; IN [KLAR_VALVES.BAS] CNT.WORD0 = CNTLW MOVFF TMR0L,CNT MOVFF TMR0LH,CNTH F1_000442 EQU $ ; IN [KLAR_VALVES.BAS] IF CNT >= VELTIM0 THEN MOVF VELTIM0,W,0 SUBWF CNT,W,0 MOVF VELTIM0H,W,0 SUBWFB CNTH,W,0 MOVF VELTIM0HH,W,0 SUBWFB CNTHH,W,0 MOVF VELTIM0HHH,W,0 SUBWFB CNTHHH,W,0 MOVF CNTHHH,W,0 XORWF VELTIM0HHH,W,0 BTFSC STATUS,0,0 XORLW 128 BNN BC@LL87 F1_000443 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB VALVES_DOWN RCALL VALVES_DOWN F1_000444 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0.0 BCF VELFLAGS0,0,0 F1_000445 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL87 F1_000446 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL85 F1_000447 EQU $ ; IN [KLAR_VALVES.BAS] GOTO LOOP BRA LOOP AFTERTOUCH F1_000468 EQU $ ; IN [KLAR_VALVES.BAS] IF AFT > 0 THEN MOVF AFT,F,0 BZ BC@LL89 F1_000469 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000470 EQU $ ; IN [KLAR_VALVES.BAS] CC31 = AFT MOVFF AFT,CC31 F1_000471 EQU $ ; IN [KLAR_VALVES.BAS] VIBRATOPERIOD = CC31 << 9 MOVFF CC31,VIBRATOPERIODH CLRF VIBRATOPERIOD,0 BCF STATUS,0,0 RLCF VIBRATOPERIODH,F,0 F1_000472 EQU $ ; IN [KLAR_VALVES.BAS] TIM3 = VIBRATOPERIOD MOVFF VIBRATOPERIOD,TMR3L MOVFF VIBRATOPERIODH,TMR3LH F1_000473 EQU $ ; IN [KLAR_VALVES.BAS] SET T3CON.0 BSF T3CON,0,0 BRA BC@LL90 BC@LL89 F1_000474 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000475 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CC31 CLRF CC31,0 F1_000476 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VIBRATOPERIOD CLRF VIBRATOPERIOD,0 CLRF VIBRATOPERIODH,0 F1_000477 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000478 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL90 F1_000479 EQU $ ; IN [KLAR_VALVES.BAS] SET AFT SETF AFT,0 F1_000480 EQU $ ; IN [KLAR_VALVES.BAS] RETURN RETURN 0 CONTROLLER F1_000484 EQU $ ; IN [KLAR_VALVES.BAS] SELECT CTRL F1_000485 EQU $ ; IN [KLAR_VALVES.BAS] CASE 30 MOVLW 30 SUBWF CTRL,W,0 BNZ BC@LL92 F1_000486 EQU $ ; IN [KLAR_VALVES.BAS] CC30 = VALUE MOVFF VALUE,CC30 F1_000487 EQU $ ; IN [KLAR_VALVES.BAS] IF CC30 = 0 THEN MOVF CC30,F,0 BNZ BC@LL95 F1_000488 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0.0 BCF VELFLAGS0,0,0 BRA BC@LL96 BC@LL95 F1_000489 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000490 EQU $ ; IN [KLAR_VALVES.BAS] RELEASETIME = CC30 << 9 MOVFF CC30,RELEASETIMEH CLRF RELEASETIME,0 BCF STATUS,0,0 RLCF RELEASETIMEH,F,0 F1_000491 EQU $ ; IN [KLAR_VALVES.BAS] END IF BC@LL96 BRA BC@LL91 BC@LL92 F1_000492 EQU $ ; IN [KLAR_VALVES.BAS] CASE 31 MOVLW 31 SUBWF CTRL,W,0 BNZ BC@LL98 F1_000493 EQU $ ; IN [KLAR_VALVES.BAS] IF VALUE <> CC31 THEN MOVF VALUE,W,0 SUBWF CC31,W,0 BZ BC@LL100 F1_000494 EQU $ ; IN [KLAR_VALVES.BAS] IF VALUE > 0 THEN MOVF VALUE,F,0 BZ BC@LL102 F1_000495 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000496 EQU $ ; IN [KLAR_VALVES.BAS] CC31 = VALUE MOVFF VALUE,CC31 F1_000497 EQU $ ; IN [KLAR_VALVES.BAS] VIBRATOPERIOD = CC31 << 9 MOVFF CC31,VIBRATOPERIODH CLRF VIBRATOPERIOD,0 BCF STATUS,0,0 RLCF VIBRATOPERIODH,F,0 F1_000498 EQU $ ; IN [KLAR_VALVES.BAS] TIM3 = VIBRATOPERIOD MOVFF VIBRATOPERIOD,TMR3L MOVFF VIBRATOPERIODH,TMR3LH F1_000499 EQU $ ; IN [KLAR_VALVES.BAS] SET T3CON.0 BSF T3CON,0,0 BRA BC@LL103 BC@LL102 F1_000500 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000501 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR T3CON.0 BCF T3CON,0,0 F1_000502 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CC31 CLRF CC31,0 F1_000503 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VIBRATOPERIOD CLRF VIBRATOPERIOD,0 CLRF VIBRATOPERIODH,0 F1_000504 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL103 F1_000505 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL100 BRA BC@LL91 BC@LL98 F1_000506 EQU $ ; IN [KLAR_VALVES.BAS] CASE 66 MOVLW 66 SUBWF CTRL,W,0 BNZ BC@LL105 F1_000508 EQU $ ; IN [KLAR_VALVES.BAS] IF VALUE = 0 THEN MOVF VALUE,F,0 BNZ BC@LL107 F1_000509 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR POWERON BCF CC66,0,0 F1_000510 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB POWERDOWN RCALL POWERDOWN BRA BC@LL108 BC@LL107 F1_000511 EQU $ ; IN [KLAR_VALVES.BAS] ELSE F1_000512 EQU $ ; IN [KLAR_VALVES.BAS] SET POWERON BSF CC66,0,0 F1_000514 EQU $ ; IN [KLAR_VALVES.BAS] ENDIF BC@LL108 BRA BC@LL91 BC@LL105 F1_000515 EQU $ ; IN [KLAR_VALVES.BAS] CASE 100 MOVLW 100 SUBWF CTRL,W,0 BNZ BC@LL110 F1_000516 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.2 = VALUE.0 BTFSC VALUE,0,0 BSF PORTA,2,0 BTFSS VALUE,0,0 BCF PORTA,2,0 F1_000517 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.1 = VALUE.1 BTFSC VALUE,1,0 BSF PORTA,1,0 BTFSS VALUE,1,0 BCF PORTA,1,0 F1_000518 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.0 = VALUE.2 BTFSC VALUE,2,0 BSF PORTA,0,0 BTFSS VALUE,2,0 BCF PORTA,0,0 F1_000519 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.3 = VALUE.3 BTFSC VALUE,3,0 BSF PORTA,3,0 BTFSS VALUE,3,0 BCF PORTA,3,0 F1_000520 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.4 = VALUE.4 BTFSC VALUE,4,0 BSF PORTA,4,0 BTFSS VALUE,4,0 BCF PORTA,4,0 F1_000521 EQU $ ; IN [KLAR_VALVES.BAS] PORTA.5 = VALUE.5 BTFSC VALUE,5,0 BSF PORTA,5,0 BTFSS VALUE,5,0 BCF PORTA,5,0 F1_000522 EQU $ ; IN [KLAR_VALVES.BAS] PORTE.0 = VALUE.6 BTFSC VALUE,6,0 BSF PORTE,0,0 BTFSS VALUE,6,0 BCF PORTE,0,0 BRA BC@LL91 BC@LL110 F1_000523 EQU $ ; IN [KLAR_VALVES.BAS] CASE 101 MOVLW 101 SUBWF CTRL,W,0 BNZ BC@LL112 F1_000524 EQU $ ; IN [KLAR_VALVES.BAS] PORTE.1 = VALUE.0 BTFSC VALUE,0,0 BSF PORTE,1,0 BTFSS VALUE,0,0 BCF PORTE,1,0 F1_000525 EQU $ ; IN [KLAR_VALVES.BAS] PORTE.2 = VALUE.1 BTFSC VALUE,1,0 BSF PORTE,2,0 BTFSS VALUE,1,0 BCF PORTE,2,0 F1_000526 EQU $ ; IN [KLAR_VALVES.BAS] PORTB.4 = VALUE.2 BTFSC VALUE,2,0 BSF PORTB,4,0 BTFSS VALUE,2,0 BCF PORTB,4,0 F1_000527 EQU $ ; IN [KLAR_VALVES.BAS] PORTB.3 = VALUE.3 BTFSC VALUE,3,0 BSF PORTB,3,0 BTFSS VALUE,3,0 BCF PORTB,3,0 F1_000528 EQU $ ; IN [KLAR_VALVES.BAS] PORTB.2 = VALUE.4 BTFSC VALUE,4,0 BSF PORTB,2,0 BTFSS VALUE,4,0 BCF PORTB,2,0 F1_000529 EQU $ ; IN [KLAR_VALVES.BAS] PORTB.1 = VALUE.5 BTFSC VALUE,5,0 BSF PORTB,1,0 BTFSS VALUE,5,0 BCF PORTB,1,0 F1_000530 EQU $ ; IN [KLAR_VALVES.BAS] PORTB.0 = VALUE.6 BTFSC VALUE,6,0 BSF PORTB,0,0 BTFSS VALUE,6,0 BCF PORTB,0,0 BRA BC@LL91 BC@LL112 F1_000531 EQU $ ; IN [KLAR_VALVES.BAS] CASE 102 MOVLW 102 SUBWF CTRL,W,0 BNZ BC@LL114 F1_000532 EQU $ ; IN [KLAR_VALVES.BAS] PORTD.7 = VALUE.0 BTFSC VALUE,0,0 BSF PORTD,7,0 BTFSS VALUE,0,0 BCF PORTD,7,0 F1_000533 EQU $ ; IN [KLAR_VALVES.BAS] PORTD.6 = VALUE.1 BTFSC VALUE,1,0 BSF PORTD,6,0 BTFSS VALUE,1,0 BCF PORTD,6,0 F1_000534 EQU $ ; IN [KLAR_VALVES.BAS] PORTD.5 = VALUE.2 BTFSC VALUE,2,0 BSF PORTD,5,0 BTFSS VALUE,2,0 BCF PORTD,5,0 F1_000535 EQU $ ; IN [KLAR_VALVES.BAS] PORTD.4 = VALUE.3 BTFSC VALUE,3,0 BSF PORTD,4,0 BTFSS VALUE,3,0 BCF PORTD,4,0 F1_000536 EQU $ ; IN [KLAR_VALVES.BAS] PORTC.5 = VALUE.4 BTFSC VALUE,4,0 BSF PORTC,5,0 BTFSS VALUE,4,0 BCF PORTC,5,0 F1_000537 EQU $ ; IN [KLAR_VALVES.BAS] PORTC.4 = VALUE.5 BTFSC VALUE,5,0 BSF PORTC,4,0 BTFSS VALUE,5,0 BCF PORTC,4,0 F1_000538 EQU $ ; IN [KLAR_VALVES.BAS] PORTD.3 = VALUE.6 BTFSC VALUE,6,0 BSF PORTD,3,0 BTFSS VALUE,6,0 BCF PORTD,3,0 BRA BC@LL91 BC@LL114 F1_000547 EQU $ ; IN [KLAR_VALVES.BAS] CASE 123 MOVLW 123 SUBWF CTRL,W,0 BTFSC STATUS,2 F1_000548 EQU $ ; IN [KLAR_VALVES.BAS] GOSUB POWERDOWN RCALL POWERDOWN F1_000549 EQU $ ; IN [KLAR_VALVES.BAS] END SELECT BC@LL116 BC@LL91 F1_000550 EQU $ ; IN [KLAR_VALVES.BAS] SET CTRL SETF CTRL,0 F1_000551 EQU $ ; IN [KLAR_VALVES.BAS] RETURN RETURN 0 POWERDOWN F1_000556 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR VELFLAGS0 CLRF VELFLAGS0,0 F1_000557 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CNTHW CLRF CNTHH,0 CLRF CNTHHH,0 F1_000560 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.2 BCF LATA,2,0 F1_000561 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.1 BCF LATA,1,0 F1_000562 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.0 BCF LATA,0,0 F1_000563 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.3 BCF LATA,3,0 F1_000564 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.4 BCF LATA,4,0 F1_000565 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.5 BCF LATA,5,0 F1_000566 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.0 BCF LATE,0,0 F1_000567 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.1 BCF LATE,1,0 F1_000568 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.2 BCF LATE,2,0 F1_000569 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.4 BCF LATB,4,0 F1_000570 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.3 BCF LATB,3,0 F1_000571 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.2 BCF LATB,2,0 F1_000572 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.1 BCF LATB,1,0 F1_000573 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.0 BCF LATB,0,0 F1_000574 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.7 BCF LATD,7,0 F1_000575 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.6 BCF LATD,6,0 F1_000576 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.5 BCF LATD,5,0 F1_000577 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.4 BCF LATD,4,0 F1_000578 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTC.5 BCF LATC,5,0 F1_000579 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTC.4 BCF LATC,4,0 F1_000580 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.3 BCF LATD,3,0 F1_000588 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.0 BCF LATD,0,0 F1_000589 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.1 BCF LATD,1,0 F1_000590 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.2 BCF LATD,2,0 F1_000591 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR LITES MOVLB 1 CLRF LITES F1_000593 EQU $ ; IN [KLAR_VALVES.BAS] CC30 = 120 MOVLW 120 MOVWF CC30,0 F1_000594 EQU $ ; IN [KLAR_VALVES.BAS] RELEASETIME = CC30 <<9 MOVFF CC30,RELEASETIMEH CLRF RELEASETIME,0 BCF STATUS,0,0 RLCF RELEASETIMEH,F,0 F1_000595 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR CC31 CLRF CC31,0 F1_000596 EQU $ ; IN [KLAR_VALVES.BAS] RETURN MOVLB 0 RETURN 0 VALVES_DOWN F1_000600 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.2 BCF LATA,2,0 F1_000601 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.1 BCF LATA,1,0 F1_000602 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.0 BCF LATA,0,0 F1_000603 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.3 BCF LATA,3,0 F1_000604 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.4 BCF LATA,4,0 F1_000605 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTA.5 BCF LATA,5,0 F1_000606 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.0 BCF LATE,0,0 F1_000607 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.1 BCF LATE,1,0 F1_000608 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTE.2 BCF LATE,2,0 F1_000609 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.4 BCF LATB,4,0 F1_000610 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.3 BCF LATB,3,0 F1_000611 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.2 BCF LATB,2,0 F1_000612 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.1 BCF LATB,1,0 F1_000613 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTB.0 BCF LATB,0,0 F1_000614 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.7 BCF LATD,7,0 F1_000615 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.6 BCF LATD,6,0 F1_000616 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.5 BCF LATD,5,0 F1_000617 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.4 BCF LATD,4,0 F1_000618 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTC.5 BCF LATC,5,0 F1_000619 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTC.4 BCF LATC,4,0 F1_000620 EQU $ ; IN [KLAR_VALVES.BAS] CLEAR PORTD.3 BCF LATD,3,0 F1_000621 EQU $ ; IN [KLAR_VALVES.BAS] RETURN RETURN 0 VALVE_TABLE F1_000626 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[0] = %00010101 MOVLW 21 MOVWF FINGERSA#0,0 F1_000627 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[0] = %00001010 MOVLW 10 MOVWF FINGERSB#0,0 F1_000628 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[0] = %00000000 CLRF FINGERSC#0 F1_000629 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[0] = %11100000 MOVLW 224 MOVWF FINGERSD#0 F1_000630 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[0] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#0 F1_000632 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[1] = %00010001 MOVLW 17 MOVWF FINGERSA#1,0 F1_000633 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[1] = %00001010 MOVLW 10 MOVWF FINGERSB#1,0 F1_000634 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[1] = %00000000 MOVLB 0 CLRF FINGERSC#1 F1_000635 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[1] = %11100000 MOVLW 224 MOVWF FINGERSD#1 F1_000636 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[1] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#1 F1_000638 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[2] = %00010011 MOVLW 19 MOVWF FINGERSA#2,0 F1_000639 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[2] = %00001010 MOVLW 10 MOVWF FINGERSB#2,0 F1_000640 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[2] = %00000000 MOVLB 0 CLRF FINGERSC#2 F1_000641 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[2] = %11100000 MOVLW 224 MOVWF FINGERSD#2 F1_000642 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[2] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#2 F1_000644 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[3] = %00001000 MOVLW 8 MOVWF FINGERSA#3,0 F1_000645 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[3] = %00001010 MOVLW 10 MOVWF FINGERSB#3,0 F1_000646 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[3] = %00000000 MOVLB 0 CLRF FINGERSC#3 F1_000647 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[3] = %11100000 MOVLW 224 MOVWF FINGERSD#3 F1_000648 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[3] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#3 F1_000650 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[4] = %00011000 MOVLW 24 MOVWF FINGERSA#4,0 F1_000651 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[4] = %00001010 MOVLW 10 MOVWF FINGERSB#4,0 F1_000652 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[4] = %00000000 MOVLB 0 CLRF FINGERSC#4 F1_000653 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[4] = %11100000 MOVLW 224 MOVWF FINGERSD#4 F1_000654 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[4] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#4 F1_000656 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[5] = %00000000 CLRF FINGERSA#5,0 F1_000657 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[5] = %00001010 MOVLW 10 MOVWF FINGERSB#5,0 F1_000658 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[5] = %00000000 MOVLB 0 CLRF FINGERSC#5 F1_000659 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[5] = %11100000 MOVLW 224 MOVWF FINGERSD#5 F1_000660 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[5] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#5 F1_000662 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[6] = %00111000 MOVLW 56 MOVWF FINGERSA#6,0 F1_000663 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[6] = %00001010 MOVLW 10 MOVWF FINGERSB#6,0 F1_000664 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[6] = %00000000 MOVLB 0 CLRF FINGERSC#6 F1_000665 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[6] = %11100000 MOVLW 224 MOVWF FINGERSD#6 F1_000666 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[6] = %0111 MOVLW 7 MOVLB 1 MOVWF FINGERSE#6 F1_000668 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[7] = %00000000 CLRF FINGERSA#7,0 F1_000669 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[7] = %00001010 MOVLW 10 MOVWF FINGERSB#7,0 F1_000670 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[7] = %00000000 MOVLB 0 CLRF FINGERSC#7 F1_000671 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[7] = %11100000 MOVLW 224 MOVWF FINGERSD#7 F1_000672 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[7] = %00000100 MOVLW 4 MOVLB 1 MOVWF FINGERSE#7 F1_000674 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[8] = %00000000 CLRF FINGERSA#8,0 F1_000675 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[8] = %00001010 MOVLW 10 MOVWF FINGERSB#8,0 F1_000676 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[8] = %00000000 MOVLB 0 CLRF FINGERSC#8 F1_000677 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[8] = %11100000 MOVLW 224 MOVWF FINGERSD#8 F1_000678 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[8] = %00000000 MOVLB 1 CLRF FINGERSE#8 F1_000680 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[9] = %00000000 CLRF FINGERSA#9,0 F1_000681 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[9] = %00011010 MOVLW 26 MOVWF FINGERSB#9,0 F1_000682 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[9] = %00000000 MOVLB 0 CLRF FINGERSC#9 F1_000683 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[9] = %11100000 MOVLW 224 MOVWF FINGERSD#9 F1_000684 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[9] = %00000000 MOVLB 1 CLRF FINGERSE#9 F1_000686 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[10] = %00000000 CLRF FINGERSA#10,0 F1_000687 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[10] = %00000010 MOVLW 2 MOVWF FINGERSB#10,0 F1_000688 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[10] = %00000000 MOVLB 0 CLRF FINGERSC#10 F1_000689 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[10] = %11100000 MOVLW 224 MOVWF FINGERSD#10 F1_000690 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[10] = %00000000 MOVLB 1 CLRF FINGERSE#10 F1_000692 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[11] = %00000000 CLRF FINGERSA#11,0 F1_000693 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[11] = %00000110 MOVLW 6 MOVWF FINGERSB#11,0 F1_000694 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[11] = %00000000 MOVLB 0 CLRF FINGERSC#11 F1_000695 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[11] = %11100000 MOVLW 224 MOVWF FINGERSD#11 F1_000696 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[11] = %00000000 MOVLB 1 CLRF FINGERSE#11 F1_000698 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[12] = %00000000 CLRF FINGERSA#12,0 F1_000699 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[12] = %00000010 MOVLW 2 MOVWF FINGERSB#12,0 F1_000700 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[12] = %00000000 MOVLB 0 CLRF FINGERSC#12 F1_000701 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[12] = %11100000 MOVLW 224 MOVWF FINGERSD#12 F1_000702 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[12] = %00000000 MOVLB 1 CLRF FINGERSE#12 F1_000704 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[13] = %00000000 CLRF FINGERSA#13,0 F1_000705 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[13] = %00000011 MOVLW 3 MOVWF FINGERSB#13,0 F1_000706 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[13] = %00000000 MOVLB 0 CLRF FINGERSC#13 F1_000707 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[13] = %11100000 MOVLW 224 MOVWF FINGERSD#13 F1_000708 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[13] = %00000000 MOVLB 1 CLRF FINGERSE#13 F1_000710 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[14] = %00000000 CLRF FINGERSA#14,0 F1_000711 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[14] = %00000000 CLRF FINGERSB#14,0 F1_000712 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[14] = %00000000 MOVLB 0 CLRF FINGERSC#14 F1_000713 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[14] = %00100000 MOVLW 32 MOVWF FINGERSD#14 F1_000714 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[14] = %00000000 MOVLB 1 CLRF FINGERSE#14 F1_000716 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[15] = %00000000 CLRF FINGERSA#15,0 F1_000717 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[15] = %00000000 CLRF FINGERSB#15,0 F1_000718 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[15] = %00000000 MOVLB 0 CLRF FINGERSC#15 F1_000719 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[15] = %00000000 CLRF FINGERSD#15 F1_000720 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[15] = %00000000 MOVLB 1 CLRF FINGERSE#15 F1_000722 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[16] = %00000000 CLRF FINGERSA#16,0 F1_000723 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[16] = %00000000 CLRF FINGERSB#16,0 F1_000724 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[16] = %00000000 MOVLB 0 CLRF FINGERSC#16 F1_000725 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[16] = %00010000 MOVLW 16 MOVWF FINGERSD#16 F1_000726 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[16] = %00000000 MOVLB 1 CLRF FINGERSE#16 F1_000728 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[17] = %00000000 CLRF FINGERSA#17,0 F1_000729 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[17] = %00000000 CLRF FINGERSB#17,0 F1_000730 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[17] = %00100000 MOVLW 32 MOVLB 0 MOVWF FINGERSC#17 F1_000731 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[17] = %00000000 CLRF FINGERSD#17 F1_000732 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[17] = %00000000 MOVLB 1 CLRF FINGERSE#17 F1_000734 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[18] = %00000000 CLRF FINGERSA#18,0 F1_000735 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[18] = %00000000 CLRF FINGERSB#18,0 F1_000736 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[18] = %00010000 MOVLW 16 MOVLB 0 MOVWF FINGERSC#18 F1_000737 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[18] = %00000000 CLRF FINGERSD#18 F1_000738 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[18] = %00000000 MOVLB 1 CLRF FINGERSE#18 F1_000740 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[19] = %00010101 MOVLW 21 MOVWF FINGERSA#19,0 F1_000741 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[19] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#19 F1_000742 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[19] = %00000000 CLRF FINGERSC#19 F1_000743 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[19] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#19 F1_000744 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[19] = %00000111 MOVLW 7 MOVWF FINGERSE#19 F1_000746 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[20] = %00010001 MOVLW 17 MOVWF FINGERSA#20,0 F1_000747 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[20] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#20 F1_000748 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[20] = %00000000 CLRF FINGERSC#20 F1_000749 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[20] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#20 F1_000750 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[20] = %00000111 MOVLW 7 MOVWF FINGERSE#20 F1_000752 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[21] = %00010011 MOVLW 19 MOVWF FINGERSA#21,0 F1_000753 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[21] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#21 F1_000754 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[21] = %00000000 CLRF FINGERSC#21 F1_000755 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[21] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#21 F1_000756 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[21] = %00000111 MOVLW 7 MOVWF FINGERSE#21 F1_000758 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[22] = %00010000 MOVLW 16 MOVWF FINGERSA#22,0 F1_000759 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[22] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#22 F1_000760 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[22] = %00000000 CLRF FINGERSC#22 F1_000761 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[22] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#22 F1_000762 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[22] = %00000111 MOVLW 7 MOVWF FINGERSE#22 F1_000764 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[23] = %00011000 MOVLW 24 MOVWF FINGERSA#23,0 F1_000765 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[23] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#23 F1_000766 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[23] = %00000000 CLRF FINGERSC#23 F1_000767 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[23] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#23 F1_000768 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[23] = %00000111 MOVLW 7 MOVWF FINGERSE#23 F1_000770 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[24] = %00000000 CLRF FINGERSA#24,0 F1_000771 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[24] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#24 F1_000772 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[24] = %00000000 CLRF FINGERSC#24 F1_000773 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[24] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#24 F1_000774 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[24] = %00000111 MOVLW 7 MOVWF FINGERSE#24 F1_000776 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[25] = %00111000 MOVLW 56 MOVWF FINGERSA#25,0 F1_000777 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[25] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#25 F1_000778 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[25] = %00000000 CLRF FINGERSC#25 F1_000779 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[25] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#25 F1_000780 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[25] = %00000111 MOVLW 7 MOVWF FINGERSE#25 F1_000782 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[26] = %00000000 CLRF FINGERSA#26,0 F1_000783 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[26] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#26 F1_000784 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[26] = %00000000 CLRF FINGERSC#26 F1_000785 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[26] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#26 F1_000786 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[26] = %00000100 MOVLW 4 MOVWF FINGERSE#26 F1_000788 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[27] = %00000000 CLRF FINGERSA#27,0 F1_000789 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[27] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#27 F1_000790 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[27] = %00000000 CLRF FINGERSC#27 F1_000791 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[27] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#27 F1_000792 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[27] = %00000000 CLRF FINGERSE#27 F1_000794 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[28] = %00000000 CLRF FINGERSA#28,0 F1_000795 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[28] = %00011010 MOVLW 26 MOVLB 0 MOVWF FINGERSB#28 F1_000796 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[28] = %00000000 CLRF FINGERSC#28 F1_000797 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[28] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#28 F1_000798 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[28] = %00000000 CLRF FINGERSE#28 F1_000800 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[29] = %00000000 CLRF FINGERSA#29,0 F1_000801 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[29] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#29 F1_000802 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[29] = %00000000 CLRF FINGERSC#29 F1_000803 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[29] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#29 F1_000804 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[29] = %00000000 CLRF FINGERSE#29 F1_000806 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[30] = %00000000 CLRF FINGERSA#30,0 F1_000807 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[30] = %00001000 MOVLW 8 MOVLB 0 MOVWF FINGERSB#30 F1_000808 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[30] = %00000000 CLRF FINGERSC#30 F1_000809 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[30] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#30 F1_000810 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[30] = %00000000 CLRF FINGERSE#30 F1_000812 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[31] = %00000000 CLRF FINGERSA#31,0 F1_000813 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[31] = %00000011 MOVLW 3 MOVLB 0 MOVWF FINGERSB#31 F1_000814 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[31] = %00000000 CLRF FINGERSC#31 F1_000815 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[31] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#31 F1_000816 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[31] = %00000000 CLRF FINGERSE#31 F1_000818 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[32] = %00000000 CLRF FINGERSA#32,0 F1_000819 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[32] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#32 F1_000820 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[32] = %00000000 CLRF FINGERSC#32 F1_000821 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[32] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#32 F1_000822 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[32] = %00000000 CLRF FINGERSE#32 F1_000824 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[33] = %00000000 CLRF FINGERSA#33,0 F1_000825 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[33] = %00000000 MOVLB 0 CLRF FINGERSB#33 F1_000826 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[33] = %00000000 CLRF FINGERSC#33 F1_000827 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[33] = %00100000 MOVLB 1 MOVWF FINGERSD#33 F1_000828 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[33] = %00000000 CLRF FINGERSE#33 F1_000830 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[34] = %00000000 CLRF FINGERSA#34,0 F1_000831 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[34] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#34 F1_000832 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[34] = %00000000 CLRF FINGERSC#34 F1_000833 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[34] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#34 F1_000834 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[34] = %00000000 CLRF FINGERSE#34 F1_000836 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[35] = %00000000 CLRF FINGERSA#35,0 F1_000837 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[35] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#35 F1_000838 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[35] = %00000000 CLRF FINGERSC#35 F1_000839 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[35] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#35 F1_000840 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[35] = %00000001 MOVLW 1 MOVWF FINGERSE#35 F1_000842 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[36] = %00000000 CLRF FINGERSA#36,0 F1_000843 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[36] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#36 F1_000844 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[36] = %00000000 CLRF FINGERSC#36 F1_000845 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[36] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#36 F1_000846 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[36] = %00000000 CLRF FINGERSE#36 F1_000848 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[37] = %00000000 CLRF FINGERSA#37,0 F1_000849 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[37] = %00001000 MOVLW 8 MOVLB 0 MOVWF FINGERSB#37 F1_000850 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[37] = %00000000 CLRF FINGERSC#37 F1_000851 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[37] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#37 F1_000852 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[37] = %00000000 CLRF FINGERSE#37 F1_000854 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[38] = %00000000 CLRF FINGERSA#38,0 F1_000855 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[38] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#38 F1_000856 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[38] = %00000000 CLRF FINGERSC#38 F1_000857 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[38] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#38 F1_000858 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[38] = %00000000 CLRF FINGERSE#38 F1_000860 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[39] = %00000000 CLRF FINGERSA#39,0 F1_000861 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[39] = %00000110 MOVLW 6 MOVLB 0 MOVWF FINGERSB#39 F1_000862 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[39] = %00000000 CLRF FINGERSC#39 F1_000863 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[39] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#39 F1_000864 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[39] = %00000000 CLRF FINGERSE#39 F1_000866 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[40] = %00010000 MOVLW 16 MOVWF FINGERSA#40,0 F1_000867 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[40] = %00001000 MOVLW 8 MOVLB 0 MOVWF FINGERSB#40 F1_000868 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[40] = %00000000 CLRF FINGERSC#40 F1_000869 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[40] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#40 F1_000870 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[40] = %00000001 MOVLW 1 MOVWF FINGERSE#40 F1_000872 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[41] = %00011000 MOVLW 24 MOVWF FINGERSA#41,0 F1_000873 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[41] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#41 F1_000874 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[41] = %00000000 CLRF FINGERSC#41 F1_000875 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[41] = %10100000 MOVLW 160 MOVLB 1 MOVWF FINGERSD#41 F1_000876 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[41] = %00000101 MOVLW 5 MOVWF FINGERSE#41 F1_000878 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[42] = %00010010 MOVLW 18 MOVWF FINGERSA#42,0 F1_000879 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[42] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#42 F1_000880 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[42] = %00000000 CLRF FINGERSC#42 F1_000881 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[42] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#42 F1_000882 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[42] = %00000101 MOVLW 5 MOVWF FINGERSE#42 F1_000884 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[43] = %00000010 MOVLW 2 MOVWF FINGERSA#43,0 F1_000885 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[43] = %00000010 MOVLB 0 MOVWF FINGERSB#43 F1_000886 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[43] = %00000000 CLRF FINGERSC#43 F1_000887 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[43] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#43 F1_000888 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[43] = %00000101 MOVLW 5 MOVWF FINGERSE#43 F1_000890 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[44] = %00100010 MOVLW 34 MOVWF FINGERSA#44,0 F1_000891 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[44] = %00000000 MOVLB 0 CLRF FINGERSB#44 F1_000892 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[44] = %00000000 CLRF FINGERSC#44 F1_000893 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[44] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#44 F1_000894 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[44] = %00000101 MOVLW 5 MOVWF FINGERSE#44 F1_000896 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[45] = %00011000 MOVLW 24 MOVWF FINGERSA#45,0 F1_000897 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[45] = %00001000 MOVLW 8 MOVLB 0 MOVWF FINGERSB#45 F1_000898 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[45] = %00000000 CLRF FINGERSC#45 F1_000899 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[45] = %11100000 MOVLW 224 MOVLB 1 MOVWF FINGERSD#45 F1_000900 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[45] = %00000101 MOVLW 5 MOVWF FINGERSE#45 F1_000902 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[46] = %00000010 MOVLW 2 MOVWF FINGERSA#46,0 F1_000903 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[46] = %00000010 MOVLB 0 MOVWF FINGERSB#46 F1_000904 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[46] = %00000000 CLRF FINGERSC#46 F1_000905 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[46] = %00100000 MOVLW 32 MOVLB 1 MOVWF FINGERSD#46 F1_000906 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[46] = %00000101 MOVLW 5 MOVWF FINGERSE#46 F1_000908 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[47] = %00010000 MOVLW 16 MOVWF FINGERSA#47,0 F1_000909 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[47] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#47 F1_000910 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[47] = %00000000 CLRF FINGERSC#47 F1_000911 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[47] = %00101000 MOVLW 40 MOVLB 1 MOVWF FINGERSD#47 F1_000912 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[47] = %00000101 MOVLW 5 MOVWF FINGERSE#47 F1_000914 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[48] = %00010101 MOVLW 21 MOVWF FINGERSA#48,0 F1_000915 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[48] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#48 F1_000916 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[48] = %00000000 CLRF FINGERSC#48 F1_000917 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[48] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#48 F1_000918 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[48] = %00000111 MOVLW 7 MOVWF FINGERSE#48 F1_000920 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[49] = %00010001 MOVLW 17 MOVWF FINGERSA#49,0 F1_000921 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[49] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#49 F1_000922 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[49] = %00000000 CLRF FINGERSC#49 F1_000923 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[49] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#49 F1_000924 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[49] = %00000111 MOVLW 7 MOVWF FINGERSE#49 F1_000926 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[50] = %00010011 MOVLW 19 MOVWF FINGERSA#50,0 F1_000927 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[50] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#50 F1_000928 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[50] = %00000000 CLRF FINGERSC#50 F1_000929 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[50] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#50 F1_000930 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[50] = %00000111 MOVLW 7 MOVWF FINGERSE#50 F1_000932 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[51] = %00010000 MOVLW 16 MOVWF FINGERSA#51,0 F1_000933 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[51] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#51 F1_000934 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[51] = %00000000 CLRF FINGERSC#51 F1_000935 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[51] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#51 F1_000936 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[51] = %00000111 MOVLW 7 MOVWF FINGERSE#51 F1_000938 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[52] = %00110000 MOVLW 48 MOVWF FINGERSA#52,0 F1_000939 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[52] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#52 F1_000940 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[52] = %00000000 CLRF FINGERSC#52 F1_000941 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[52] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#52 F1_000942 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[52] = %00000111 MOVLW 7 MOVWF FINGERSE#52 F1_000944 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[53] = %00000000 CLRF FINGERSA#53,0 F1_000945 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[53] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#53 F1_000946 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[53] = %00000000 CLRF FINGERSC#53 F1_000947 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[53] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#53 F1_000948 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[53] = %00000111 MOVLW 7 MOVWF FINGERSE#53 F1_000950 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[54] = %00111000 MOVLW 56 MOVWF FINGERSA#54,0 F1_000951 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[54] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#54 F1_000952 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[54] = %00000000 CLRF FINGERSC#54 F1_000953 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[54] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#54 F1_000954 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[54] = %00000111 MOVLW 7 MOVWF FINGERSE#54 F1_000956 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[55] = %00000000 CLRF FINGERSA#55,0 F1_000957 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[55] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#55 F1_000958 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[55] = %00000000 CLRF FINGERSC#55 F1_000959 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[55] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#55 F1_000960 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[55] = %00000100 MOVLW 4 MOVWF FINGERSE#55 F1_000962 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[56] = %00000000 CLRF FINGERSA#56,0 F1_000963 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[56] = %00001010 MOVLW 10 MOVLB 0 MOVWF FINGERSB#56 F1_000964 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[56] = %00000000 CLRF FINGERSC#56 F1_000965 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[56] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#56 F1_000966 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[56] = %00000000 CLRF FINGERSE#56 F1_000968 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[57] = %00000000 CLRF FINGERSA#57,0 F1_000969 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[57] = %00011010 MOVLW 26 MOVLB 0 MOVWF FINGERSB#57 F1_000970 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[57] = %00000000 CLRF FINGERSC#57 F1_000971 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[57] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#57 F1_000972 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[57] = %00000000 CLRF FINGERSE#57 F1_000974 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[58] = %00000000 CLRF FINGERSA#58,0 F1_000975 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[58] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#58 F1_000976 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[58] = %00000000 CLRF FINGERSC#58 F1_000977 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[58] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#58 F1_000978 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[58] = %00000000 CLRF FINGERSE#58 F1_000980 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[59] = %00000000 CLRF FINGERSA#59,0 F1_000981 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[59] = %00000110 MOVLW 6 MOVLB 0 MOVWF FINGERSB#59 F1_000982 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[59] = %00000000 CLRF FINGERSC#59 F1_000983 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[59] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#59 F1_000984 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[59] = %00000000 CLRF FINGERSE#59 F1_000986 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[60] = %00000000 CLRF FINGERSA#60,0 F1_000987 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[60] = %00000010 MOVLW 2 MOVLB 0 MOVWF FINGERSB#60 F1_000988 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[60] = %00000000 CLRF FINGERSC#60 F1_000989 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[60] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#60 F1_000990 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[60] = %00000000 CLRF FINGERSE#60 F1_000992 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[61] = %00000000 CLRF FINGERSA#61,0 F1_000993 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[61] = %00000011 MOVLW 3 MOVLB 0 MOVWF FINGERSB#61 F1_000994 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[61] = %00000000 CLRF FINGERSC#61 F1_000995 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[61] = %11101000 MOVLW 232 MOVLB 1 MOVWF FINGERSD#61 F1_000996 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[61] = %00000000 CLRF FINGERSE#61 F1_000998 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[62] = %00000000 CLRF FINGERSA#62,0 F1_000999 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[62] = %00000000 MOVLB 0 CLRF FINGERSB#62 F1_001000 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[62] = %00000000 CLRF FINGERSC#62 F1_001001 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[62] = %00101000 MOVLW 40 MOVLB 1 MOVWF FINGERSD#62 F1_001002 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[62] = %00000000 CLRF FINGERSE#62 F1_001004 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSA[63] = %00000000 CLRF FINGERSA#63,0 F1_001005 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSB[63] = %00000000 MOVLB 0 CLRF FINGERSB#63 F1_001006 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSC[63] = %00000000 CLRF FINGERSC#63 F1_001007 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSD[63] = %00001000 MOVLW 8 MOVLB 1 MOVWF FINGERSD#63 F1_001008 EQU $ ; IN [KLAR_VALVES.BAS] FINGERSE[63] = %00000000 CLRF FINGERSE#63 F1_001027 EQU $ ; IN [KLAR_VALVES.BAS] VIB[0] = 21 MOVLW 21 MOVWF VIB#0 F1_001028 EQU $ ; IN [KLAR_VALVES.BAS] VIB[1] = 19 MOVLW 19 MOVWF VIB#1 F1_001029 EQU $ ; IN [KLAR_VALVES.BAS] VIB[2] = 18 MOVLW 18 MOVWF VIB#2 F1_001030 EQU $ ; IN [KLAR_VALVES.BAS] VIB[3] = 19 MOVLW 19 MOVWF VIB#3 F1_001031 EQU $ ; IN [KLAR_VALVES.BAS] VIB[4] = 20 MOVLW 20 MOVWF VIB#4 F1_001032 EQU $ ; IN [KLAR_VALVES.BAS] VIB[5] = 3 MOVLW 3 MOVWF VIB#5 F1_001033 EQU $ ; IN [KLAR_VALVES.BAS] VIB[6] = 14 MOVLW 14 MOVWF VIB#6 F1_001034 EQU $ ; IN [KLAR_VALVES.BAS] VIB[7] = 19 MOVLW 19 MOVWF VIB#7 F1_001035 EQU $ ; IN [KLAR_VALVES.BAS] VIB[8] = 18 MOVLW 18 MOVWF VIB#8 F1_001036 EQU $ ; IN [KLAR_VALVES.BAS] VIB[9] = 14 MOVLW 14 MOVWF VIB#9 F1_001037 EQU $ ; IN [KLAR_VALVES.BAS] VIB[10] = 9 MOVLW 9 MOVWF VIB#10 F1_001038 EQU $ ; IN [KLAR_VALVES.BAS] VIB[11] = 11 MOVLW 11 MOVWF VIB#11 F1_001039 EQU $ ; IN [KLAR_VALVES.BAS] VIB[12] = 14 MOVLW 14 MOVWF VIB#12 F1_001040 EQU $ ; IN [KLAR_VALVES.BAS] VIB[13] = 21 MOVLW 21 MOVWF VIB#13 F1_001041 EQU $ ; IN [KLAR_VALVES.BAS] VIB[14] = 11 MOVLW 11 MOVWF VIB#14 F1_001042 EQU $ ; IN [KLAR_VALVES.BAS] VIB[15] = 20 MOVLW 20 MOVWF VIB#15 F1_001043 EQU $ ; IN [KLAR_VALVES.BAS] VIB[16] = 21 MOVLW 21 MOVWF VIB#16 F1_001044 EQU $ ; IN [KLAR_VALVES.BAS] VIB[17] = 21 MOVWF VIB#17 F1_001045 EQU $ ; IN [KLAR_VALVES.BAS] VIB[18] = 8 MOVLW 8 MOVWF VIB#18 F1_001046 EQU $ ; IN [KLAR_VALVES.BAS] VIB[19] = 21 MOVLW 21 MOVWF VIB#19 F1_001047 EQU $ ; IN [KLAR_VALVES.BAS] VIB[20] = 1 MOVLW 1 MOVWF VIB#20 F1_001048 EQU $ ; IN [KLAR_VALVES.BAS] VIB[21] = 18 MOVLW 18 MOVWF VIB#21 F1_001049 EQU $ ; IN [KLAR_VALVES.BAS] VIB[22] = 1 MOVLW 1 MOVWF VIB#22 F1_001050 EQU $ ; IN [KLAR_VALVES.BAS] VIB[23] = 3 MOVLW 3 MOVWF VIB#23 F1_001051 EQU $ ; IN [KLAR_VALVES.BAS] VIB[24] = 1 MOVLW 1 MOVWF VIB#24 F1_001052 EQU $ ; IN [KLAR_VALVES.BAS] VIB[25] = 3 MOVLW 3 MOVWF VIB#25 F1_001053 EQU $ ; IN [KLAR_VALVES.BAS] VIB[26] = 3 MOVWF VIB#26 F1_001054 EQU $ ; IN [KLAR_VALVES.BAS] VIB[27] = 4 MOVLW 4 MOVWF VIB#27 F1_001055 EQU $ ; IN [KLAR_VALVES.BAS] VIB[28] = 1 MOVLW 1 MOVWF VIB#28 F1_001056 EQU $ ; IN [KLAR_VALVES.BAS] VIB[29] = 2 MOVLW 2 MOVWF VIB#29 F1_001057 EQU $ ; IN [KLAR_VALVES.BAS] VIB[30] = 3 MOVLW 3 MOVWF VIB#30 F1_001058 EQU $ ; IN [KLAR_VALVES.BAS] VIB[31] = 4 MOVLW 4 MOVWF VIB#31 F1_001059 EQU $ ; IN [KLAR_VALVES.BAS] VIB[32] = 6 MOVLW 6 MOVWF VIB#32 F1_001060 EQU $ ; IN [KLAR_VALVES.BAS] VIB[33] = 1 MOVLW 1 MOVWF VIB#33 F1_001061 EQU $ ; IN [KLAR_VALVES.BAS] VIB[34] = 8 MOVLW 8 MOVWF VIB#34 F1_001062 EQU $ ; IN [KLAR_VALVES.BAS] VIB[35] = 1 MOVLW 1 MOVWF VIB#35 F1_001063 EQU $ ; IN [KLAR_VALVES.BAS] VIB[36] = 1 MOVWF VIB#36 F1_001064 EQU $ ; IN [KLAR_VALVES.BAS] VIB[37] = 1 MOVWF VIB#37 F1_001065 EQU $ ; IN [KLAR_VALVES.BAS] VIB[38] = 5 MOVLW 5 MOVWF VIB#38 F1_001066 EQU $ ; IN [KLAR_VALVES.BAS] VIB[39] = 5 MOVWF VIB#39 F1_001067 EQU $ ; IN [KLAR_VALVES.BAS] VIB[40] = 8 MOVLW 8 MOVWF VIB#40 F1_001068 EQU $ ; IN [KLAR_VALVES.BAS] VIB[41] = 9 MOVLW 9 MOVWF VIB#41 F1_001069 EQU $ ; IN [KLAR_VALVES.BAS] VIB[42] = 1 MOVLW 1 MOVWF VIB#42 F1_001070 EQU $ ; IN [KLAR_VALVES.BAS] VIB[43] = 1 MOVWF VIB#43 F1_001071 EQU $ ; IN [KLAR_VALVES.BAS] VIB[44] = 6 MOVLW 6 MOVWF VIB#44 F1_001072 EQU $ ; IN [KLAR_VALVES.BAS] VIB[45] = 7 MOVLW 7 MOVWF VIB#45 F1_001073 EQU $ ; IN [KLAR_VALVES.BAS] VIB[46] = 8 MOVLW 8 MOVWF VIB#46 F1_001074 EQU $ ; IN [KLAR_VALVES.BAS] VIB[47] = 1 MOVLW 1 MOVWF VIB#47 F1_001075 EQU $ ; IN [KLAR_VALVES.BAS] VIB[48] = 1 MOVWF VIB#48 F1_001076 EQU $ ; IN [KLAR_VALVES.BAS] VIB[49] = 1 MOVWF VIB#49 F1_001077 EQU $ ; IN [KLAR_VALVES.BAS] VIB[50] = 5 MOVLW 5 MOVWF VIB#50 F1_001078 EQU $ ; IN [KLAR_VALVES.BAS] VIB[51] = 5 MOVWF VIB#51 F1_001079 EQU $ ; IN [KLAR_VALVES.BAS] VIB[52] = 8 MOVLW 8 MOVWF VIB#52 F1_001080 EQU $ ; IN [KLAR_VALVES.BAS] VIB[53] = 12 MOVLW 12 MOVWF VIB#53 F1_001081 EQU $ ; IN [KLAR_VALVES.BAS] VIB[54] = 1 MOVLW 1 MOVWF VIB#54 F1_001082 EQU $ ; IN [KLAR_VALVES.BAS] VIB[55] = 10 MOVLW 10 MOVWF VIB#55 F1_001083 EQU $ ; IN [KLAR_VALVES.BAS] VIB[56] = 8 MOVLW 8 MOVWF VIB#56 F1_001084 EQU $ ; IN [KLAR_VALVES.BAS] VIB[57] = 8 MOVWF VIB#57 F1_001085 EQU $ ; IN [KLAR_VALVES.BAS] VIB[58] = 17 MOVLW 17 MOVWF VIB#58 F1_001086 EQU $ ; IN [KLAR_VALVES.BAS] VIB[59] = 17 MOVWF VIB#59 F1_001087 EQU $ ; IN [KLAR_VALVES.BAS] VIB[60] = 17 MOVWF VIB#60 F1_001088 EQU $ ; IN [KLAR_VALVES.BAS] VIB[61] = 17 MOVWF VIB#61 F1_001089 EQU $ ; IN [KLAR_VALVES.BAS] VIB[62] = 17 MOVWF VIB#62 F1_001090 EQU $ ; IN [KLAR_VALVES.BAS] VIB[63] = 17 MOVWF VIB#63 F1_001091 EQU $ ; IN [KLAR_VALVES.BAS] RETURN MOVLB 0 RETURN 0 F1_EOF EQU $ ; KLAR_VALVES.BAS PB@LB118 BRA PB@LB118 __EOF CONFIG DEBUG = OFF CONFIG XINST = OFF CONFIG STVREN = OFF CONFIG FCMEN = OFF CONFIG OSC = HSPLL CONFIG IESO = OFF CONFIG WDT = OFF CONFIG WDTPS = 128 CONFIG BOREN = SBORDIS CONFIG BORV = 2 CONFIG MCLRE = ON CONFIG LPT1OSC = ON CONFIG PBADEN = OFF CONFIG CCP2MX = PORTC CONFIG LVP = OFF CONFIG CP0 = OFF CONFIG CP1 = OFF CONFIG CP2 = OFF CONFIG CP3 = OFF CONFIG CPB = OFF CONFIG CPD = OFF CONFIG WRT0 = OFF CONFIG WRT1 = OFF CONFIG WRT2 = OFF CONFIG WRT3 = OFF CONFIG WRTB = OFF CONFIG WRTC = OFF CONFIG WRTD = OFF CONFIG EBTR0 = OFF CONFIG EBTR1 = OFF CONFIG EBTR2 = OFF CONFIG EBTR3 = OFF CONFIG EBTRB = OFF CONFIG PWRT = ON END