;---------------------------------------------------------- ; Code Produced by the Proton Compiler. Ver 3.5.8.1 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. April 2016 ;---------------------------------------------------------- ; #define CONFIG_REQ 1 #define DEBUG@REQ 1 LIST P = 18F2525, 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 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 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 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 RE3=3 MCLR=3 NOT_MCLR=3 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 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 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 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 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 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_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 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_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 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 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 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 TOUTPS0=3 TOUTPS1=4 TOUTPS2=5 TOUTPS3=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 FLTS=2 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 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __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 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 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 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 __18F2525 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0XC000 #define _ADC 10 #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 76 #define LCD#TYPE 0 #define __INTERRUPTS_ENABLED 1 #define __HIGH_INTERRUPTS_ENABLED 1 #define __LOW_INTERRUPTS_ENABLED 1 #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 GEN = 0 PBP#VAR0 = 1 PBP#VAR0H = 2 PBP#VAR0HH = 3 PBP#VAR0HHH = 4 PBP#VAR1 = 5 PBP#VAR1H = 6 PP0 = 7 PP0H = 8 PP1 = 9 PP1H = 10 PP2 = 11 PP2H = 12 PP3 = 13 PP3H = 14 PP4 = 15 PP4H = 16 PP5 = 17 PP6H = 18 flags = 19 Bytein = 20 _I = 21 statusbyte = 22 noteUit = 23 release = 24 noteAan = 25 velo = 26 notePres = 27 pres = 28 Ctrl = 29 value = 30 prog = 31 aft = 32 pblsb = 33 pbmsb = 34 Velflags = 35 CC66 = 36 notes = 37 SawPos = 38 SawPosH = 39 SollPos = 40 SollPosH = 41 maxpos = 42 maxposH = 43 minpos = 44 minposH = 45 velo0 = 46 velo0H = 47 velo1 = 48 velo1H = 49 pres0 = 50 pres1 = 51 time = 52 timeH = 53 timeHH = 54 timeHHH = 55 _T = 56 tog = 57 Nxt = 58 NxtH = 59 NxtHH = 60 NxtHHH = 61 idx = 62 MotSpeed = 63 SollSpeed = 64 RampSpeed = 65 Period = 66 PeriodH = 67 _J = 68 PBvalue = 69 PBvalueH = 70 rotcnt = 71 USART_FSR1_Save = 72 USART_FSR1_SaveH = 73 IndexIn = 74 IndexOut = 75 Ringbuffer = 76 variable Ringbuffer#0=76,Ringbuffer#1=77,Ringbuffer#2=78,Ringbuffer#3=79 variable Ringbuffer#4=80,Ringbuffer#5=81,Ringbuffer#6=82,Ringbuffer#7=83 variable Ringbuffer#8=84,Ringbuffer#9=85,Ringbuffer#10=86,Ringbuffer#11=87 variable Ringbuffer#12=88,Ringbuffer#13=89,Ringbuffer#14=90,Ringbuffer#15=91 variable Ringbuffer#16=92,Ringbuffer#17=93,Ringbuffer#18=94,Ringbuffer#19=95 variable Ringbuffer#20=96,Ringbuffer#21=97,Ringbuffer#22=98,Ringbuffer#23=99 variable Ringbuffer#24=100,Ringbuffer#25=101,Ringbuffer#26=102,Ringbuffer#27=103 variable Ringbuffer#28=104,Ringbuffer#29=105,Ringbuffer#30=106,Ringbuffer#31=107 variable Ringbuffer#32=108,Ringbuffer#33=109,Ringbuffer#34=110,Ringbuffer#35=111 variable Ringbuffer#36=112,Ringbuffer#37=113,Ringbuffer#38=114,Ringbuffer#39=115 variable Ringbuffer#40=116,Ringbuffer#41=117,Ringbuffer#42=118,Ringbuffer#43=119 variable Ringbuffer#44=120,Ringbuffer#45=121,Ringbuffer#46=122,Ringbuffer#47=123 variable Ringbuffer#48=124,Ringbuffer#49=125,Ringbuffer#50=126,Ringbuffer#51=127 variable Ringbuffer#52=128,Ringbuffer#53=129,Ringbuffer#54=130,Ringbuffer#55=131 variable Ringbuffer#56=132,Ringbuffer#57=133,Ringbuffer#58=134,Ringbuffer#59=135 variable Ringbuffer#60=136,Ringbuffer#61=137,Ringbuffer#62=138,Ringbuffer#63=139 variable Ringbuffer#64=140,Ringbuffer#65=141,Ringbuffer#66=142,Ringbuffer#67=143 variable Ringbuffer#68=144,Ringbuffer#69=145,Ringbuffer#70=146,Ringbuffer#71=147 variable Ringbuffer#72=148,Ringbuffer#73=149,Ringbuffer#74=150,Ringbuffer#75=151 variable Ringbuffer#76=152,Ringbuffer#77=153,Ringbuffer#78=154,Ringbuffer#79=155 variable Ringbuffer#80=156,Ringbuffer#81=157,Ringbuffer#82=158,Ringbuffer#83=159 variable Ringbuffer#84=160,Ringbuffer#85=161,Ringbuffer#86=162,Ringbuffer#87=163 variable Ringbuffer#88=164,Ringbuffer#89=165,Ringbuffer#90=166,Ringbuffer#91=167 variable Ringbuffer#92=168,Ringbuffer#93=169,Ringbuffer#94=170,Ringbuffer#95=171 variable Ringbuffer#96=172,Ringbuffer#97=173,Ringbuffer#98=174,Ringbuffer#99=175 variable Ringbuffer#100=176,Ringbuffer#101=177,Ringbuffer#102=178,Ringbuffer#103=179 variable Ringbuffer#104=180,Ringbuffer#105=181,Ringbuffer#106=182,Ringbuffer#107=183 variable Ringbuffer#108=184,Ringbuffer#109=185,Ringbuffer#110=186,Ringbuffer#111=187 variable Ringbuffer#112=188,Ringbuffer#113=189,Ringbuffer#114=190,Ringbuffer#115=191 variable Ringbuffer#116=192,Ringbuffer#117=193,Ringbuffer#118=194,Ringbuffer#119=195 variable Ringbuffer#120=196,Ringbuffer#121=197,Ringbuffer#122=198,Ringbuffer#123=199 variable Ringbuffer#124=200,Ringbuffer#125=201,Ringbuffer#126=202,Ringbuffer#127=203 variable Ringbuffer#128=204,Ringbuffer#129=205,Ringbuffer#130=206,Ringbuffer#131=207 variable Ringbuffer#132=208,Ringbuffer#133=209,Ringbuffer#134=210,Ringbuffer#135=211 variable Ringbuffer#136=212,Ringbuffer#137=213,Ringbuffer#138=214,Ringbuffer#139=215 variable Ringbuffer#140=216,Ringbuffer#141=217,Ringbuffer#142=218,Ringbuffer#143=219 variable Ringbuffer#144=220,Ringbuffer#145=221,Ringbuffer#146=222,Ringbuffer#147=223 variable Ringbuffer#148=224,Ringbuffer#149=225,Ringbuffer#150=226,Ringbuffer#151=227 variable Ringbuffer#152=228,Ringbuffer#153=229,Ringbuffer#154=230,Ringbuffer#155=231 variable Ringbuffer#156=232,Ringbuffer#157=233,Ringbuffer#158=234,Ringbuffer#159=235 variable Ringbuffer#160=236,Ringbuffer#161=237,Ringbuffer#162=238,Ringbuffer#163=239 variable Ringbuffer#164=240,Ringbuffer#165=241,Ringbuffer#166=242,Ringbuffer#167=243 variable Ringbuffer#168=244,Ringbuffer#169=245,Ringbuffer#170=246,Ringbuffer#171=247 variable Ringbuffer#172=248,Ringbuffer#173=249,Ringbuffer#174=250,Ringbuffer#175=251 variable Ringbuffer#176=252,Ringbuffer#177=253,Ringbuffer#178=254,Ringbuffer#179=255 variable Ringbuffer#180=256,Ringbuffer#181=257,Ringbuffer#182=258,Ringbuffer#183=259 variable Ringbuffer#184=260,Ringbuffer#185=261,Ringbuffer#186=262,Ringbuffer#187=263 variable Ringbuffer#188=264,Ringbuffer#189=265,Ringbuffer#190=266,Ringbuffer#191=267 variable Ringbuffer#192=268,Ringbuffer#193=269,Ringbuffer#194=270,Ringbuffer#195=271 variable Ringbuffer#196=272,Ringbuffer#197=273,Ringbuffer#198=274,Ringbuffer#199=275 variable Ringbuffer#200=276,Ringbuffer#201=277,Ringbuffer#202=278,Ringbuffer#203=279 variable Ringbuffer#204=280,Ringbuffer#205=281,Ringbuffer#206=282,Ringbuffer#207=283 variable Ringbuffer#208=284,Ringbuffer#209=285,Ringbuffer#210=286,Ringbuffer#211=287 variable Ringbuffer#212=288,Ringbuffer#213=289,Ringbuffer#214=290,Ringbuffer#215=291 variable Ringbuffer#216=292,Ringbuffer#217=293,Ringbuffer#218=294,Ringbuffer#219=295 variable Ringbuffer#220=296,Ringbuffer#221=297,Ringbuffer#222=298,Ringbuffer#223=299 variable Ringbuffer#224=300,Ringbuffer#225=301,Ringbuffer#226=302,Ringbuffer#227=303 variable Ringbuffer#228=304,Ringbuffer#229=305,Ringbuffer#230=306,Ringbuffer#231=307 variable Ringbuffer#232=308,Ringbuffer#233=309,Ringbuffer#234=310,Ringbuffer#235=311 variable Ringbuffer#236=312,Ringbuffer#237=313,Ringbuffer#238=314,Ringbuffer#239=315 variable Ringbuffer#240=316,Ringbuffer#241=317,Ringbuffer#242=318,Ringbuffer#243=319 variable Ringbuffer#244=320,Ringbuffer#245=321,Ringbuffer#246=322,Ringbuffer#247=323 variable Ringbuffer#248=324,Ringbuffer#249=325,Ringbuffer#250=326,Ringbuffer#251=327 variable Ringbuffer#252=328,Ringbuffer#253=329,Ringbuffer#254=330,Ringbuffer#255=331 Dur5 = 332 Dur5H = 333 variable Dur5#0=332,Dur5#0H=333,Dur5#1=334,Dur5#1H=335 variable Dur5#2=336,Dur5#2H=337,Dur5#3=338,Dur5#3H=339 variable Dur5#4=340,Dur5#4H=341,Dur5#5=342,Dur5#5H=343 variable Dur5#6=344,Dur5#6H=345,Dur5#7=346,Dur5#7H=347 variable Dur5#8=348,Dur5#8H=349,Dur5#9=350,Dur5#9H=351 variable Dur5#10=352,Dur5#10H=353,Dur5#11=354,Dur5#11H=355 variable Dur5#12=356,Dur5#12H=357,Dur5#13=358,Dur5#13H=359 variable Dur5#14=360,Dur5#14H=361,Dur5#15=362,Dur5#15H=363 variable Dur5#16=364,Dur5#16H=365,Dur5#17=366,Dur5#17H=367 variable Dur5#18=368,Dur5#18H=369,Dur5#19=370,Dur5#19H=371 variable Dur5#20=372,Dur5#20H=373,Dur5#21=374,Dur5#21H=375 variable Dur5#22=376,Dur5#22H=377,Dur5#23=378,Dur5#23H=379 variable Dur5#24=380,Dur5#24H=381,Dur5#25=382,Dur5#25H=383 variable Dur5#26=384,Dur5#26H=385,Dur5#27=386,Dur5#27H=387 variable Dur5#28=388,Dur5#28H=389,Dur5#29=390,Dur5#29H=391 variable Dur5#30=392,Dur5#30H=393,Dur5#31=394,Dur5#31H=395 variable Dur5#32=396,Dur5#32H=397,Dur5#33=398,Dur5#33H=399 variable Dur5#34=400,Dur5#34H=401,Dur5#35=402,Dur5#35H=403 variable Dur5#36=404,Dur5#36H=405,Dur5#37=406,Dur5#37H=407 variable Dur5#38=408,Dur5#38H=409,Dur5#39=410,Dur5#39H=411 variable Dur5#40=412,Dur5#40H=413,Dur5#41=414,Dur5#41H=415 variable Dur5#42=416,Dur5#42H=417,Dur5#43=418,Dur5#43H=419 variable Dur5#44=420,Dur5#44H=421,Dur5#45=422,Dur5#45H=423 variable Dur5#46=424,Dur5#46H=425,Dur5#47=426,Dur5#47H=427 variable Dur5#48=428,Dur5#48H=429,Dur5#49=430,Dur5#49H=431 variable Dur5#50=432,Dur5#50H=433,Dur5#51=434,Dur5#51H=435 variable Dur5#52=436,Dur5#52H=437,Dur5#53=438,Dur5#53H=439 variable Dur5#54=440,Dur5#54H=441,Dur5#55=442,Dur5#55H=443 variable Dur5#56=444,Dur5#56H=445,Dur5#57=446,Dur5#57H=447 variable Dur5#58=448,Dur5#58H=449,Dur5#59=450,Dur5#59H=451 variable Dur5#60=452,Dur5#60H=453,Dur5#61=454,Dur5#61H=455 variable Dur5#62=456,Dur5#62H=457,Dur5#63=458,Dur5#63H=459 variable Dur5#64=460,Dur5#64H=461,Dur5#65=462,Dur5#65H=463 variable Dur5#66=464,Dur5#66H=465,Dur5#67=466,Dur5#67H=467 variable Dur5#68=468,Dur5#68H=469,Dur5#69=470,Dur5#69H=471 variable Dur5#70=472,Dur5#70H=473,Dur5#71=474,Dur5#71H=475 variable Dur5#72=476,Dur5#72H=477,Dur5#73=478,Dur5#73H=479 variable Dur5#74=480,Dur5#74H=481,Dur5#75=482,Dur5#75H=483 variable Dur5#76=484,Dur5#76H=485,Dur5#77=486,Dur5#77H=487 variable Dur5#78=488,Dur5#78H=489,Dur5#79=490,Dur5#79H=491 variable Dur5#80=492,Dur5#80H=493,Dur5#81=494,Dur5#81H=495 variable Dur5#82=496,Dur5#82H=497,Dur5#83=498,Dur5#83H=499 variable Dur5#84=500,Dur5#84H=501,Dur5#85=502,Dur5#85H=503 variable Dur5#86=504,Dur5#86H=505,Dur5#87=506,Dur5#87H=507 variable Dur5#88=508,Dur5#88H=509,Dur5#89=510,Dur5#89H=511 variable Dur5#90=512,Dur5#90H=513,Dur5#91=514,Dur5#91H=515 variable Dur5#92=516,Dur5#92H=517,Dur5#93=518,Dur5#93H=519 variable Dur5#94=520,Dur5#94H=521,Dur5#95=522,Dur5#95H=523 variable Dur5#96=524,Dur5#96H=525,Dur5#97=526,Dur5#97H=527 variable Dur5#98=528,Dur5#98H=529,Dur5#99=530,Dur5#99H=531 variable Dur5#100=532,Dur5#100H=533,Dur5#101=534,Dur5#101H=535 variable Dur5#102=536,Dur5#102H=537,Dur5#103=538,Dur5#103H=539 variable Dur5#104=540,Dur5#104H=541,Dur5#105=542,Dur5#105H=543 variable Dur5#106=544,Dur5#106H=545,Dur5#107=546,Dur5#107H=547 variable Dur5#108=548,Dur5#108H=549,Dur5#109=550,Dur5#109H=551 variable Dur5#110=552,Dur5#110H=553,Dur5#111=554,Dur5#111H=555 variable Dur5#112=556,Dur5#112H=557,Dur5#113=558,Dur5#113H=559 variable Dur5#114=560,Dur5#114H=561,Dur5#115=562,Dur5#115H=563 variable Dur5#116=564,Dur5#116H=565,Dur5#117=566,Dur5#117H=567 variable Dur5#118=568,Dur5#118H=569,Dur5#119=570,Dur5#119H=571 variable Dur5#120=572,Dur5#120H=573,Dur5#121=574,Dur5#121H=575 variable Dur5#122=576,Dur5#122H=577,Dur5#123=578,Dur5#123H=579 variable Dur5#124=580,Dur5#124H=581,Dur5#125=582,Dur5#125H=583 variable Dur5#126=584,Dur5#126H=585,Dur5#127=586,Dur5#127H=587 Freqs = 588 FreqsH = 589 variable Freqs#0=588,Freqs#0H=589,Freqs#1=590,Freqs#1H=591 variable Freqs#2=592,Freqs#2H=593,Freqs#3=594,Freqs#3H=595 variable Freqs#4=596,Freqs#4H=597,Freqs#5=598,Freqs#5H=599 variable Freqs#6=600,Freqs#6H=601,Freqs#7=602,Freqs#7H=603 variable Freqs#8=604,Freqs#8H=605,Freqs#9=606,Freqs#9H=607 variable Freqs#10=608,Freqs#10H=609,Freqs#11=610,Freqs#11H=611 variable Freqs#12=612,Freqs#12H=613,Freqs#13=614,Freqs#13H=615 variable Freqs#14=616,Freqs#14H=617,Freqs#15=618,Freqs#15H=619 variable Freqs#16=620,Freqs#16H=621,Freqs#17=622,Freqs#17H=623 variable Freqs#18=624,Freqs#18H=625,Freqs#19=626,Freqs#19H=627 variable Freqs#20=628,Freqs#20H=629,Freqs#21=630,Freqs#21H=631 variable Freqs#22=632,Freqs#22H=633,Freqs#23=634,Freqs#23H=635 variable Freqs#24=636,Freqs#24H=637,Freqs#25=638,Freqs#25H=639 variable Freqs#26=640,Freqs#26H=641,Freqs#27=642,Freqs#27H=643 variable Freqs#28=644,Freqs#28H=645,Freqs#29=646,Freqs#29H=647 variable Freqs#30=648,Freqs#30H=649,Freqs#31=650,Freqs#31H=651 variable Freqs#32=652,Freqs#32H=653,Freqs#33=654,Freqs#33H=655 variable Freqs#34=656,Freqs#34H=657,Freqs#35=658,Freqs#35H=659 variable Freqs#36=660,Freqs#36H=661,Freqs#37=662,Freqs#37H=663 variable Freqs#38=664,Freqs#38H=665,Freqs#39=666,Freqs#39H=667 variable Freqs#40=668,Freqs#40H=669,Freqs#41=670,Freqs#41H=671 variable Freqs#42=672,Freqs#42H=673,Freqs#43=674,Freqs#43H=675 variable Freqs#44=676,Freqs#44H=677,Freqs#45=678,Freqs#45H=679 variable Freqs#46=680,Freqs#46H=681,Freqs#47=682,Freqs#47H=683 variable Freqs#48=684,Freqs#48H=685,Freqs#49=686,Freqs#49H=687 variable Freqs#50=688,Freqs#50H=689,Freqs#51=690,Freqs#51H=691 variable Freqs#52=692,Freqs#52H=693,Freqs#53=694,Freqs#53H=695 variable Freqs#54=696,Freqs#54H=697,Freqs#55=698,Freqs#55H=699 variable Freqs#56=700,Freqs#56H=701,Freqs#57=702,Freqs#57H=703 variable Freqs#58=704,Freqs#58H=705,Freqs#59=706,Freqs#59H=707 variable Freqs#60=708,Freqs#60H=709,Freqs#61=710,Freqs#61H=711 variable Freqs#62=712,Freqs#62H=713,Freqs#63=714,Freqs#63H=715 variable Freqs#64=716,Freqs#64H=717,Freqs#65=718,Freqs#65H=719 variable Freqs#66=720,Freqs#66H=721,Freqs#67=722,Freqs#67H=723 variable Freqs#68=724,Freqs#68H=725,Freqs#69=726,Freqs#69H=727 variable Freqs#70=728,Freqs#70H=729,Freqs#71=730,Freqs#71H=731 variable Freqs#72=732,Freqs#72H=733,Freqs#73=734,Freqs#73H=735 variable Freqs#74=736,Freqs#74H=737,Freqs#75=738,Freqs#75H=739 variable Freqs#76=740,Freqs#76H=741,Freqs#77=742,Freqs#77H=743 variable Freqs#78=744,Freqs#78H=745,Freqs#79=746,Freqs#79H=747 variable Freqs#80=748,Freqs#80H=749,Freqs#81=750,Freqs#81H=751 variable Freqs#82=752,Freqs#82H=753,Freqs#83=754,Freqs#83H=755 variable Freqs#84=756,Freqs#84H=757,Freqs#85=758,Freqs#85H=759 variable Freqs#86=760,Freqs#86H=761,Freqs#87=762,Freqs#87H=763 variable Freqs#88=764,Freqs#88H=765,Freqs#89=766,Freqs#89H=767 variable Freqs#90=768,Freqs#90H=769,Freqs#91=770,Freqs#91H=771 variable Freqs#92=772,Freqs#92H=773,Freqs#93=774,Freqs#93H=775 variable Freqs#94=776,Freqs#94H=777,Freqs#95=778,Freqs#95H=779 variable Freqs#96=780,Freqs#96H=781,Freqs#97=782,Freqs#97H=783 variable Freqs#98=784,Freqs#98H=785,Freqs#99=786,Freqs#99H=787 variable Freqs#100=788,Freqs#100H=789,Freqs#101=790,Freqs#101H=791 variable Freqs#102=792,Freqs#102H=793,Freqs#103=794,Freqs#103H=795 variable Freqs#104=796,Freqs#104H=797,Freqs#105=798,Freqs#105H=799 variable Freqs#106=800,Freqs#106H=801,Freqs#107=802,Freqs#107H=803 variable Freqs#108=804,Freqs#108H=805,Freqs#109=806,Freqs#109H=807 variable Freqs#110=808,Freqs#110H=809,Freqs#111=810,Freqs#111H=811 variable Freqs#112=812,Freqs#112H=813,Freqs#113=814,Freqs#113H=815 variable Freqs#114=816,Freqs#114H=817,Freqs#115=818,Freqs#115H=819 variable Freqs#116=820,Freqs#116H=821,Freqs#117=822,Freqs#117H=823 variable Freqs#118=824,Freqs#118H=825,Freqs#119=826,Freqs#119H=827 variable Freqs#120=828,Freqs#120H=829,Freqs#121=830,Freqs#121H=831 variable Freqs#122=832,Freqs#122H=833,Freqs#123=834,Freqs#123H=835 variable Freqs#124=836,Freqs#124H=837,Freqs#125=838,Freqs#125H=839 variable Freqs#126=840,Freqs#126H=841,Freqs#127=842,Freqs#127H=843 TimVals = 844 TimValsH = 845 TimValsHH = 846 TimValsHHH = 847 variable TimVals#0=844,TimVals#0H=845,TimVals#0HH=846,TimVals#0HHH=847 variable TimVals#1=848,TimVals#1H=849,TimVals#1HH=850,TimVals#1HHH=851 variable TimVals#2=852,TimVals#2H=853,TimVals#2HH=854,TimVals#2HHH=855 Vels = 856 VelsH = 857 variable Vels#0=856,Vels#0H=857,Vels#1=858,Vels#1H=859 variable Vels#2=860,Vels#2H=861,Vels#3=862,Vels#3H=863 variable Vels#4=864,Vels#4H=865,Vels#5=866,Vels#5H=867 variable Vels#6=868,Vels#6H=869,Vels#7=870,Vels#7H=871 variable Vels#8=872,Vels#8H=873,Vels#9=874,Vels#9H=875 variable Vels#10=876,Vels#10H=877,Vels#11=878,Vels#11H=879 variable Vels#12=880,Vels#12H=881,Vels#13=882,Vels#13H=883 variable Vels#14=884,Vels#14H=885,Vels#15=886,Vels#15H=887 variable Vels#16=888,Vels#16H=889,Vels#17=890,Vels#17H=891 variable Vels#18=892,Vels#18H=893,Vels#19=894,Vels#19H=895 variable Vels#20=896,Vels#20H=897,Vels#21=898,Vels#21H=899 variable Vels#22=900,Vels#22H=901,Vels#23=902,Vels#23H=903 variable Vels#24=904,Vels#24H=905,Vels#25=906,Vels#25H=907 variable Vels#26=908,Vels#26H=909,Vels#27=910,Vels#27H=911 variable Vels#28=912,Vels#28H=913,Vels#29=914,Vels#29H=915 variable Vels#30=916,Vels#30H=917,Vels#31=918,Vels#31H=919 variable Vels#32=920,Vels#32H=921,Vels#33=922,Vels#33H=923 variable Vels#34=924,Vels#34H=925,Vels#35=926,Vels#35H=927 variable Vels#36=928,Vels#36H=929,Vels#37=930,Vels#37H=931 variable Vels#38=932,Vels#38H=933,Vels#39=934,Vels#39H=935 variable Vels#40=936,Vels#40H=937,Vels#41=938,Vels#41H=939 variable Vels#42=940,Vels#42H=941,Vels#43=942,Vels#43H=943 variable Vels#44=944,Vels#44H=945,Vels#45=946,Vels#45H=947 variable Vels#46=948,Vels#46H=949,Vels#47=950,Vels#47H=951 variable Vels#48=952,Vels#48H=953,Vels#49=954,Vels#49H=955 variable Vels#50=956,Vels#50H=957,Vels#51=958,Vels#51H=959 variable Vels#52=960,Vels#52H=961,Vels#53=962,Vels#53H=963 variable Vels#54=964,Vels#54H=965,Vels#55=966,Vels#55H=967 variable Vels#56=968,Vels#56H=969,Vels#57=970,Vels#57H=971 variable Vels#58=972,Vels#58H=973,Vels#59=974,Vels#59H=975 variable Vels#60=976,Vels#60H=977,Vels#61=978,Vels#61H=979 variable Vels#62=980,Vels#62H=981,Vels#63=982,Vels#63H=983 variable Vels#64=984,Vels#64H=985,Vels#65=986,Vels#65H=987 variable Vels#66=988,Vels#66H=989,Vels#67=990,Vels#67H=991 variable Vels#68=992,Vels#68H=993,Vels#69=994,Vels#69H=995 variable Vels#70=996,Vels#70H=997,Vels#71=998,Vels#71H=999 variable Vels#72=1000,Vels#72H=1001,Vels#73=1002,Vels#73H=1003 variable Vels#74=1004,Vels#74H=1005,Vels#75=1006,Vels#75H=1007 variable Vels#76=1008,Vels#76H=1009,Vels#77=1010,Vels#77H=1011 variable Vels#78=1012,Vels#78H=1013,Vels#79=1014,Vels#79H=1015 variable Vels#80=1016,Vels#80H=1017,Vels#81=1018,Vels#81H=1019 variable Vels#82=1020,Vels#82H=1021,Vels#83=1022,Vels#83H=1023 variable Vels#84=1024,Vels#84H=1025,Vels#85=1026,Vels#85H=1027 variable Vels#86=1028,Vels#86H=1029,Vels#87=1030,Vels#87H=1031 variable Vels#88=1032,Vels#88H=1033,Vels#89=1034,Vels#89H=1035 variable Vels#90=1036,Vels#90H=1037,Vels#91=1038,Vels#91H=1039 variable Vels#92=1040,Vels#92H=1041,Vels#93=1042,Vels#93H=1043 variable Vels#94=1044,Vels#94H=1045,Vels#95=1046,Vels#95H=1047 variable Vels#96=1048,Vels#96H=1049,Vels#97=1050,Vels#97H=1051 variable Vels#98=1052,Vels#98H=1053,Vels#99=1054,Vels#99H=1055 variable Vels#100=1056,Vels#100H=1057,Vels#101=1058,Vels#101H=1059 variable Vels#102=1060,Vels#102H=1061,Vels#103=1062,Vels#103H=1063 variable Vels#104=1064,Vels#104H=1065,Vels#105=1066,Vels#105H=1067 variable Vels#106=1068,Vels#106H=1069,Vels#107=1070,Vels#107H=1071 variable Vels#108=1072,Vels#108H=1073,Vels#109=1074,Vels#109H=1075 variable Vels#110=1076,Vels#110H=1077,Vels#111=1078,Vels#111H=1079 variable Vels#112=1080,Vels#112H=1081,Vels#113=1082,Vels#113H=1083 variable Vels#114=1084,Vels#114H=1085,Vels#115=1086,Vels#115H=1087 variable Vels#116=1088,Vels#116H=1089,Vels#117=1090,Vels#117H=1091 variable Vels#118=1092,Vels#118H=1093,Vels#119=1094,Vels#119H=1095 variable Vels#120=1096,Vels#120H=1097,Vels#121=1098,Vels#121H=1099 variable Vels#122=1100,Vels#122H=1101,Vels#123=1102,Vels#123H=1103 variable Vels#124=1104,Vels#124H=1105,Vels#125=1106,Vels#125H=1107 variable Vels#126=1108,Vels#126H=1109,Vels#127=1110,Vels#127H=1111 Dur = 1112 DurH = 1113 variable Dur#0=1112,Dur#0H=1113,Dur#1=1114,Dur#1H=1115 variable Dur#2=1116,Dur#2H=1117,Dur#3=1118,Dur#3H=1119 variable Dur#4=1120,Dur#4H=1121,Dur#5=1122,Dur#5H=1123 variable Dur#6=1124,Dur#6H=1125,Dur#7=1126,Dur#7H=1127 variable Dur#8=1128,Dur#8H=1129,Dur#9=1130,Dur#9H=1131 variable Dur#10=1132,Dur#10H=1133,Dur#11=1134,Dur#11H=1135 variable Dur#12=1136,Dur#12H=1137,Dur#13=1138,Dur#13H=1139 variable Dur#14=1140,Dur#14H=1141,Dur#15=1142,Dur#15H=1143 variable Dur#16=1144,Dur#16H=1145,Dur#17=1146,Dur#17H=1147 variable Dur#18=1148,Dur#18H=1149,Dur#19=1150,Dur#19H=1151 variable Dur#20=1152,Dur#20H=1153,Dur#21=1154,Dur#21H=1155 variable Dur#22=1156,Dur#22H=1157,Dur#23=1158,Dur#23H=1159 variable Dur#24=1160,Dur#24H=1161,Dur#25=1162,Dur#25H=1163 variable Dur#26=1164,Dur#26H=1165,Dur#27=1166,Dur#27H=1167 variable Dur#28=1168,Dur#28H=1169,Dur#29=1170,Dur#29H=1171 variable Dur#30=1172,Dur#30H=1173,Dur#31=1174,Dur#31H=1175 variable Dur#32=1176,Dur#32H=1177,Dur#33=1178,Dur#33H=1179 variable Dur#34=1180,Dur#34H=1181,Dur#35=1182,Dur#35H=1183 variable Dur#36=1184,Dur#36H=1185,Dur#37=1186,Dur#37H=1187 variable Dur#38=1188,Dur#38H=1189,Dur#39=1190,Dur#39H=1191 variable Dur#40=1192,Dur#40H=1193,Dur#41=1194,Dur#41H=1195 variable Dur#42=1196,Dur#42H=1197,Dur#43=1198,Dur#43H=1199 variable Dur#44=1200,Dur#44H=1201,Dur#45=1202,Dur#45H=1203 variable Dur#46=1204,Dur#46H=1205,Dur#47=1206,Dur#47H=1207 variable Dur#48=1208,Dur#48H=1209,Dur#49=1210,Dur#49H=1211 variable Dur#50=1212,Dur#50H=1213,Dur#51=1214,Dur#51H=1215 variable Dur#52=1216,Dur#52H=1217,Dur#53=1218,Dur#53H=1219 variable Dur#54=1220,Dur#54H=1221,Dur#55=1222,Dur#55H=1223 variable Dur#56=1224,Dur#56H=1225,Dur#57=1226,Dur#57H=1227 variable Dur#58=1228,Dur#58H=1229,Dur#59=1230,Dur#59H=1231 variable Dur#60=1232,Dur#60H=1233,Dur#61=1234,Dur#61H=1235 variable Dur#62=1236,Dur#62H=1237,Dur#63=1238,Dur#63H=1239 variable Dur#64=1240,Dur#64H=1241,Dur#65=1242,Dur#65H=1243 variable Dur#66=1244,Dur#66H=1245,Dur#67=1246,Dur#67H=1247 variable Dur#68=1248,Dur#68H=1249,Dur#69=1250,Dur#69H=1251 variable Dur#70=1252,Dur#70H=1253,Dur#71=1254,Dur#71H=1255 variable Dur#72=1256,Dur#72H=1257,Dur#73=1258,Dur#73H=1259 variable Dur#74=1260,Dur#74H=1261,Dur#75=1262,Dur#75H=1263 variable Dur#76=1264,Dur#76H=1265,Dur#77=1266,Dur#77H=1267 variable Dur#78=1268,Dur#78H=1269,Dur#79=1270,Dur#79H=1271 variable Dur#80=1272,Dur#80H=1273,Dur#81=1274,Dur#81H=1275 variable Dur#82=1276,Dur#82H=1277,Dur#83=1278,Dur#83H=1279 variable Dur#84=1280,Dur#84H=1281,Dur#85=1282,Dur#85H=1283 variable Dur#86=1284,Dur#86H=1285,Dur#87=1286,Dur#87H=1287 variable Dur#88=1288,Dur#88H=1289,Dur#89=1290,Dur#89H=1291 variable Dur#90=1292,Dur#90H=1293,Dur#91=1294,Dur#91H=1295 variable Dur#92=1296,Dur#92H=1297,Dur#93=1298,Dur#93H=1299 variable Dur#94=1300,Dur#94H=1301,Dur#95=1302,Dur#95H=1303 variable Dur#96=1304,Dur#96H=1305,Dur#97=1306,Dur#97H=1307 variable Dur#98=1308,Dur#98H=1309,Dur#99=1310,Dur#99H=1311 variable Dur#100=1312,Dur#100H=1313,Dur#101=1314,Dur#101H=1315 variable Dur#102=1316,Dur#102H=1317,Dur#103=1318,Dur#103H=1319 variable Dur#104=1320,Dur#104H=1321,Dur#105=1322,Dur#105H=1323 variable Dur#106=1324,Dur#106H=1325,Dur#107=1326,Dur#107H=1327 variable Dur#108=1328,Dur#108H=1329,Dur#109=1330,Dur#109H=1331 variable Dur#110=1332,Dur#110H=1333,Dur#111=1334,Dur#111H=1335 variable Dur#112=1336,Dur#112H=1337,Dur#113=1338,Dur#113H=1339 variable Dur#114=1340,Dur#114H=1341,Dur#115=1342,Dur#115H=1343 variable Dur#116=1344,Dur#116H=1345,Dur#117=1346,Dur#117H=1347 variable Dur#118=1348,Dur#118H=1349,Dur#119=1350,Dur#119H=1351 variable Dur#120=1352,Dur#120H=1353,Dur#121=1354,Dur#121H=1355 variable Dur#122=1356,Dur#122H=1357,Dur#123=1358,Dur#123H=1359 variable Dur#124=1360,Dur#124H=1361,Dur#125=1362,Dur#125H=1363 variable Dur#126=1364,Dur#126H=1365,Dur#127=1366,Dur#127H=1367 _Low__Context_Store = 1368 variable _Low__Context_Store#0=1368,_Low__Context_Store#1=1369,_Low__Context_Store#2=1370 #define Ack1 flags,0 #define Ack2 flags,1 #define Ack3 flags,2 #define Ack4 flags,3 #define Ack5 flags,4 #define Ack6 flags,5 #define Ack7 flags,6 #define CntLw TMR0L #define CntLwH TMR0LH #define Tim3 TMR3L #define Tim3H TMR3LH #define StBit Bytein,7 #define PowerOn CC66,0 #define maxtim timeHHH,7 #define tg tog,0 #define PB_Pi_Saw _J,0 #define PB_e_Saw _J,1 #define Calibrated_Low _J,2 #define Calibrated_High _J,3 #define Previousstate _J,4 #define resort_flag _J,5 #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 fPwm 19536 #define fPwmH 76 #define PiPos 36 #define epos 37 #define PiStretch 38 #define estretch 39 #define PiBend 40 #define eBend 41 #define Beat_Motor_Pi 72 #define Beat_Motor_Pi2 73 #define Beater_Pi1 74 #define Beater_Pi2 75 #define Beat_Motor_e 84 #define Beat_Motor_e2 85 #define Beater_e1 86 #define Beater_e2 87 #define True 1 #define False 0 #define Rampspeed_default 64 #define Hysteresis 3 #define Traject 235 #define Deathtime 100 #define Midichannel 12 #define NoteOff_Status 140 #define NoteOn_Status 156 #define Keypres_Status 172 #define Control_Status 188 #define ProgChange_Status 204 #define Aftertouch_Status 220 #define Pitchbend_Status 236 #define __HSERIAL_BAUD 31250 #define __HSERIAL_TXSTA 36 HSERIAL_SPBRG = 79 HSERIAL_TXSTA = 36 HSERIAL_RCSTA = 144 HSERIAL_BAUD = 31250 proton#code#start org 0X000000 nop nop 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 __HPWM_ movwf PP4H,0 movlw 150 movwf PP0,0 movlw 152 movwf PP0H,0 rcall __DIVIDE_U1616_ btfsc STATUS,2,0 bcf 4042,PP_T2CKPS0,0 btfss STATUS,2,0 bsf 4042,PP_T2CKPS0,0 addlw 252 btfss STATUS,0,0 bcf 4042,PP_T2CKPS1,0 btfsc STATUS,0,0 bsf 4042,PP_T2CKPS1,0 movlw 128 movwf PP0,0 movlw 150 movwf PP0H,0 movlw 152 movwf PP2,0 clrf PP2H,0 btfsc 4042,PP_T2CKPS0,0 rcall HPW@2S btfsc 4042,PP_T2CKPS1,0 rcall HPW@2S rcall __DIVIDE_INT_U1616_ decf PP0,W,0 movwf 4043,0 movff PP0,PP1 movff PP0H,PP1H movf GEN,W,0 movwf PP3,0 movwf PP3H,0 incfsz GEN,W,0 clrf PP3H,0 rcall __MULTIPLY_U1616_ movf PP2H,W,0 decfsz PP4H,F,0 bra HPW@SK1 movwf 4030,0 movlw 12 movwf 4029,0 btfsc PP2,7,0 bsf 4029,5,0 btfsc PP2,6,0 bsf 4029,4,0 bcf TRISB,2,0 HPWM@FIN bsf 4042,PP_TMR2ON,0 return HPW@SK1 movwf 4027,0 movlw 12 movwf 4026,0 btfsc PP2,7,0 bsf 4026,5,0 btfsc PP2,6,0 bsf 4026,4,0 bcf TRISC,1,0 bra HPWM@FIN HPW@2S rcall HPW@2L HPW@2L bcf STATUS,0,0 rrcf PP2,F,0 rrcf PP0H,F,0 rrcf PP0,F,0 return __DELAY_MS_ clrf PP1H,0 __DELAY_MS_W_ movwf PP1,0 DLY@P movlw 255 addwf PP1,F,0 addwfc PP1H,F,0 bra $ + 2 btfss STATUS,0,0 return movlw 3 movwf PP0H,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf PP0H,0 __DELAY_US_W_ addlw 254 movwf PP0,0 clrf WREG,0 subwfb PP0H,F,0 btfss STATUS,0,0 return nop decf PP0,F,0 bra $ + 2 bra $ - 14 __DIVIDE_U1616_ clrf PP2H,0 clrf PP2,0 __DIVIDE_INT_U1616_ movlw 16 movwf PRODL,0 DV@LP rlcf PP0H,W,0 rlcf PP2,F,0 rlcf PP2H,F,0 movf PP1,W,0 subwf PP2,W,0 movf PP1H,W,0 subwfb PP2H,W,0 bnc D@K movf PP1,W,0 subwf PP2,F,0 movf PP1H,W,0 subwfb PP2H,F,0 bsf STATUS,0,0 D@K rlcf PP0,F,0 rlcf PP0H,F,0 decfsz PRODL,F,0 bra DV@LP movf PP0,W,0 return __MULTIPLY_U1616_ movf PP1,W,0 mulwf PP3,0 movff PRODL,PP2 movff PRODH,PP2H movf PP1H,W,0 mulwf PP3,0 movf PRODL,W,0 addwf PP2H,F,0 movf PP1,W,0 mulwf PP3H,0 movf PRODL,W,0 addwf PP2H,F,0 movf PP2,W,0 return proton#main#start movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; FLEX_PI_SAW.BAS F2_SOF equ $ ; 18F2525.INC F2_EOF equ $ ; 18F2525.INC F1_000153 equ $ ; IN [FLEX_PI_SAW.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F1_000154 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000156 equ $ ; IN [FLEX_PI_SAW.BAS] TRISA = %11000111 movlw 199 movwf TRISA,0 F1_000157 equ $ ; IN [FLEX_PI_SAW.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000158 equ $ ; IN [FLEX_PI_SAW.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000159 equ $ ; IN [FLEX_PI_SAW.BAS] INPUT PORTA.0 bsf TRISA,0,0 F1_000161 equ $ ; IN [FLEX_PI_SAW.BAS] INPUT PORTA.1 bsf TRISA,1,0 F1_000163 equ $ ; IN [FLEX_PI_SAW.BAS] INPUT PORTA.2 bsf TRISA,2,0 F1_000164 equ $ ; IN [FLEX_PI_SAW.BAS] OUTPUT PORTC.2 bcf TRISC,2,0 F1_000165 equ $ ; IN [FLEX_PI_SAW.BAS] OUTPUT PORTC.1 bcf TRISC,1,0 F3_SOF equ $ ; FLEX_SAW_IRQ.INC F3_000067 equ $ ; IN [FLEX_SAW_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000079 equ $ ; IN [FLEX_SAW_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000080 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000084 equ $ ; IN [FLEX_SAW_IRQ.INC] BTG PORTB.5 btg PORTB,5 F3_000085 equ $ ; IN [FLEX_SAW_IRQ.INC] RETFIE FAST retfie 1 F3_000086 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000088 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000089 equ $ ; IN [FLEX_SAW_IRQ.INC] MOVLW 6 movlw 6 F3_000090 equ $ ; IN [FLEX_SAW_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000091 equ $ ; IN [FLEX_SAW_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000092 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000093 equ $ ; IN [FLEX_SAW_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000103 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,76 F3_000104 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000105 equ $ ; IN [FLEX_SAW_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000106 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000108 equ $ ; IN [FLEX_SAW_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000110 equ $ ; IN [FLEX_SAW_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000111 equ $ ; IN [FLEX_SAW_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000112 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000113 equ $ ; IN [FLEX_SAW_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000114 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__5 F3_000115 equ $ ; IN [FLEX_SAW_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000120 equ $ ; IN [FLEX_SAW_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000121 equ $ ; IN [FLEX_SAW_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000122 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000123 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,76 F3_000124 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000125 equ $ ; IN [FLEX_SAW_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000126 equ $ ; IN [FLEX_SAW_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000127 equ $ ; IN [FLEX_SAW_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000128 equ $ ; IN [FLEX_SAW_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000129 equ $ ; IN [FLEX_SAW_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000130 equ $ ; IN [FLEX_SAW_IRQ.INC] ELSE F3_000131 equ $ ; IN [FLEX_SAW_IRQ.INC] WREG = 255 setf WREG,0 F3_000132 equ $ ; IN [FLEX_SAW_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000133 equ $ ; IN [FLEX_SAW_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000134 equ $ ; IN [FLEX_SAW_IRQ.INC] RET return 0 F3_000135 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__8 F3_000136 equ $ ; IN [FLEX_SAW_IRQ.INC] RET return 0 _Init_Usart F3_000152 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000153 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000154 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000156 equ $ ; IN [FLEX_SAW_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000158 equ $ ; IN [FLEX_SAW_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000159 equ $ ; IN [FLEX_SAW_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000161 equ $ ; IN [FLEX_SAW_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000175 equ $ ; IN [FLEX_SAW_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000176 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR RINGBUFFER lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _PBLB__9 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _PBLB__9 F3_000177 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000178 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000179 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000180 equ $ ; IN [FLEX_SAW_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000190 equ $ ; IN [FLEX_SAW_IRQ.INC] CONTEXT SAVE bcf INTCON,7,0 movff BSR,_Low__Context_Store#0 movff STATUS,_Low__Context_Store#1 movff WREG,_Low__Context_Store#2 bsf INTCON,7,0 movlb 0 F3_000191 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000192 equ $ ; IN [FLEX_SAW_IRQ.INC] TIM3 = PERIOD movff PeriodH,TMR3LH movff Period,TMR3L F3_000193 equ $ ; IN [FLEX_SAW_IRQ.INC] BTG PORTA.5 btg PORTA,5 F3_000195 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTA.4 = 0 THEN INC ROTCNT btfss PORTA,4,0 incf rotcnt,F,0 _LBL__11 F3_000198 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTA.0 = 1 THEN btfss PORTA,0,0 bra _LBL__13 F3_000199 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTC.0 = 0 THEN btfsc PORTC,0,0 bra _LBL__15 F3_000200 equ $ ; IN [FLEX_SAW_IRQ.INC] MINPOS = SAWPOS movff SawPosH,minposH movff SawPos,minpos F3_000201 equ $ ; IN [FLEX_SAW_IRQ.INC] MAXPOS = MINPOS + TRAJECT movlw 235 addwf minpos,W,0 movwf maxpos,0 movlw 0 addwfc minposH,W,0 movwf maxposH,0 F3_000202 equ $ ; IN [FLEX_SAW_IRQ.INC] SET CALIBRATED_LOW bsf _J,2,0 F3_000203 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PORTA.5 bsf LATA,5,0 F3_000204 equ $ ; IN [FLEX_SAW_IRQ.INC] TOGGLE PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F3_000205 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 F3_000206 equ $ ; IN [FLEX_SAW_IRQ.INC] IF ACK1 = 0 THEN btfsc flags,0,0 bra _LBL__17 F3_000208 equ $ ; IN [FLEX_SAW_IRQ.INC] FLAGS = %00000001 movlw 1 movwf flags,0 F3_000209 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__17 F3_000210 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__15 F3_000211 equ $ ; IN [FLEX_SAW_IRQ.INC] GOTO EXIT_ISR bra exit_ISR bra _LBL__18 _LBL__13 F3_000214 equ $ ; IN [FLEX_SAW_IRQ.INC] ELSE F3_000216 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR ACK1 bcf flags,0,0 F3_000217 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__18 F3_000218 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTA.1 = 1 THEN btfss PORTA,1,0 bra _LBL__20 F3_000219 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTC.0 = 1 THEN btfss PORTC,0,0 bra _LBL__22 F3_000220 equ $ ; IN [FLEX_SAW_IRQ.INC] MAXPOS = SAWPOS movff SawPosH,maxposH movff SawPos,maxpos F3_000221 equ $ ; IN [FLEX_SAW_IRQ.INC] MINPOS = MAXPOS - TRAJECT movlw 235 subwf maxpos,W,0 movwf minpos,0 movlw 0 subwfb maxposH,W,0 movwf minposH,0 F3_000222 equ $ ; IN [FLEX_SAW_IRQ.INC] SET CALIBRATED_HIGH bsf _J,3,0 F3_000223 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PORTA.5 bsf LATA,5,0 F3_000224 equ $ ; IN [FLEX_SAW_IRQ.INC] TOGGLE PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F3_000225 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 F3_000226 equ $ ; IN [FLEX_SAW_IRQ.INC] IF ACK2 = 0 THEN btfsc flags,1,0 bra _LBL__24 F3_000228 equ $ ; IN [FLEX_SAW_IRQ.INC] FLAGS = %00000010 movlw 2 movwf flags,0 F3_000229 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__24 F3_000230 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__22 F3_000231 equ $ ; IN [FLEX_SAW_IRQ.INC] GOTO EXIT_ISR bra exit_ISR bra _LBL__25 _LBL__20 F3_000233 equ $ ; IN [FLEX_SAW_IRQ.INC] ELSE F3_000234 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR ACK2 bcf flags,1,0 F3_000235 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__25 F3_000238 equ $ ; IN [FLEX_SAW_IRQ.INC] SELECT SAWPOS F3_000239 equ $ ; IN [FLEX_SAW_IRQ.INC] CASE SOLLPOS movf SollPosH,W,0 subwf SawPosH,W,0 bnz _LBL__27 movf SollPos,W,0 subwf SawPos,W,0 bnz _LBL__27 F3_000240 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTA.4 = 0 THEN btfsc PORTA,4,0 bra _LBL__30 F3_000241 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PORTA.5 bsf LATA,5,0 F3_000242 equ $ ; IN [FLEX_SAW_IRQ.INC] TOGGLE PORTA.4 btg PORTA,4,0 bcf TRISA,4,0 F3_000243 equ $ ; IN [FLEX_SAW_IRQ.INC] IF ACK3 = 0 THEN btfsc flags,2,0 bra _LBL__32 F3_000244 equ $ ; IN [FLEX_SAW_IRQ.INC] FLAGS = %00000100 movlw 4 movwf flags,0 F3_000245 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__32 F3_000246 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__30 bra _LBL__26 _LBL__27 F3_000247 equ $ ; IN [FLEX_SAW_IRQ.INC] CASE < SOLLPOS movf SollPos,W,0 subwf SawPos,W,0 movf SollPosH,W,0 subwfb SawPosH,W,0 bc _LBL__34 F3_000248 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTC.0 = 0 THEN btfsc PORTC,0,0 bra _LBL__36 F3_000249 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PORTA.5 bsf LATA,5,0 F3_000250 equ $ ; IN [FLEX_SAW_IRQ.INC] TOGGLE PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F3_000251 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 F3_000252 equ $ ; IN [FLEX_SAW_IRQ.INC] IF ACK4 = 0 THEN btfsc flags,3,0 bra _LBL__38 F3_000253 equ $ ; IN [FLEX_SAW_IRQ.INC] FLAGS = %00001000 movlw 8 movwf flags,0 F3_000254 equ $ ; IN [FLEX_SAW_IRQ.INC] GOTO EXIT_ISR bra exit_ISR F3_000255 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__38 F3_000256 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__36 F3_000258 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__26 _LBL__34 F3_000259 equ $ ; IN [FLEX_SAW_IRQ.INC] CASE > SOLLPOS movf SawPos,W,0 subwf SollPos,W,0 movf SawPosH,W,0 subwfb SollPosH,W,0 bc _LBL__40 F3_000260 equ $ ; IN [FLEX_SAW_IRQ.INC] IF PORTC.0 = 1 THEN btfss PORTC,0,0 bra _LBL__42 F3_000261 equ $ ; IN [FLEX_SAW_IRQ.INC] SET PORTA.5 bsf LATA,5,0 F3_000262 equ $ ; IN [FLEX_SAW_IRQ.INC] TOGGLE PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F3_000263 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 F3_000264 equ $ ; IN [FLEX_SAW_IRQ.INC] IF ACK5 = 0 THEN btfsc flags,4,0 bra _LBL__44 F3_000265 equ $ ; IN [FLEX_SAW_IRQ.INC] FLAGS = %00010000 movlw 16 movwf flags,0 F3_000266 equ $ ; IN [FLEX_SAW_IRQ.INC] GOTO EXIT_ISR bra exit_ISR F3_000267 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__44 F3_000268 equ $ ; IN [FLEX_SAW_IRQ.INC] ENDIF _LBL__42 F3_000270 equ $ ; IN [FLEX_SAW_IRQ.INC] CLEAR PORTA.4 bcf LATA,4,0 F3_000271 equ $ ; IN [FLEX_SAW_IRQ.INC] END SELECT _LBL__40 _LBL__26 exit_ISR F3_000273 equ $ ; IN [FLEX_SAW_IRQ.INC] CONTEXT RESTORE bcf INTCON,7,0 movff _Low__Context_Store#0,BSR movff _Low__Context_Store#1,STATUS movff _Low__Context_Store#2,WREG bsf INTCON,7,0 retfie HRSOUT F3_000282 equ $ ; IN [FLEX_SAW_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000283 equ $ ; IN [FLEX_SAW_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000284 equ $ ; IN [FLEX_SAW_IRQ.INC] MOVWF TXREG movwf TXREG F3_000285 equ $ ; IN [FLEX_SAW_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; FLEX_SAW_IRQ.INC MAIN F1_000292 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000293 equ $ ; IN [FLEX_PI_SAW.BAS] DELAYMS 10 movlw 10 rcall __DELAY_MS_ F1_000294 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000295 equ $ ; IN [FLEX_PI_SAW.BAS] PORTC.4 = PORTA.0 btfsc PORTA,0,0 bsf PORTC,4,0 btfss PORTA,0,0 bcf PORTC,4,0 F1_000296 equ $ ; IN [FLEX_PI_SAW.BAS] PORTC.5 = PORTA.1 btfsc PORTA,1,0 bsf PORTC,5,0 btfss PORTA,1,0 bcf PORTC,5,0 F1_000297 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTA.5 bcf TRISA,5,0 bsf LATA,5,0 F1_000298 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000299 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000300 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTA.4 bcf TRISA,4,0 bsf LATA,4,0 F1_000301 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000302 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000303 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000304 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000305 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000306 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000308 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000309 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB VELS_LOOKUP call Vels_Lookup F1_000310 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB FREQ_LOOKUP call Freq_Lookup F1_000313 equ $ ; IN [FLEX_PI_SAW.BAS] RAMPSPEED = RAMPSPEED_DEFAULT movlw 64 movwf RampSpeed,0 F1_000314 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR CALIBRATED_LOW bcf _J,2,0 F1_000315 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR CALIBRATED_HIGH bcf _J,3,0 F1_000320 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR FLAGS clrf flags,0 F1_000322 equ $ ; IN [FLEX_PI_SAW.BAS] SET MAXPOS setf maxposH,0 setf maxpos,0 F1_000323 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR MINPOS clrf minposH,0 clrf minpos,0 F1_000324 equ $ ; IN [FLEX_PI_SAW.BAS] SAWPOS = MAXPOS >> 1 bcf STATUS,0,0 rrcf maxposH,W,0 movwf SawPosH,0 rrcf maxpos,W,0 movwf SawPos,0 F1_000325 equ $ ; IN [FLEX_PI_SAW.BAS] MOTSPEED = 1 movlw 1 movwf MotSpeed,0 F1_000326 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 64 movlw 64 movwf SollSpeed,0 F1_000327 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH F1_000328 equ $ ; IN [FLEX_PI_SAW.BAS] SET PREVIOUSSTATE bsf _J,4,0 F1_000329 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR ROTCNT clrf rotcnt,0 F1_000332 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 rcall __HPWM_ F1_000333 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 rcall __HPWM_ F1_000334 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES clrf notes,0 F1_000335 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000336 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS lfsr 0,TimVals movlw 12 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000337 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR CC66 clrf CC66,0 F1_000341 equ $ ; IN [FLEX_PI_SAW.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000343 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000354 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR T1CON clrf T1CON,0 F1_000355 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000356 equ $ ; IN [FLEX_PI_SAW.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000357 equ $ ; IN [FLEX_PI_SAW.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000382 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR T3CON clrf T3CON,0 F1_000383 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000384 equ $ ; IN [FLEX_PI_SAW.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000385 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR TIM3 clrf TMR3LH,0 clrf TMR3L,0 F1_000386 equ $ ; IN [FLEX_PI_SAW.BAS] SET RCON.7 bsf RCON,7,0 F1_000387 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000389 equ $ ; IN [FLEX_PI_SAW.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 LOOP F1_000405 equ $ ; IN [FLEX_PI_SAW.BAS] INC T incf _T,F,0 F1_000406 equ $ ; IN [FLEX_PI_SAW.BAS] IF T.1 = TG THEN clrf WREG,0 btfsc _T,1,0 addlw 1 btfsc tog,0,0 sublw 1 bnz _LBL__46 F1_000407 equ $ ; IN [FLEX_PI_SAW.BAS] BTG TG btg tog,0 F1_000408 equ $ ; IN [FLEX_PI_SAW.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000409 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__46 F1_000411 equ $ ; IN [FLEX_PI_SAW.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000414 equ $ ; IN [FLEX_PI_SAW.BAS] IF BYTEIN > PITCHBEND_STATUS THEN movlw 237 subwf Bytein,W,0 bnc _LBL__48 F1_000415 equ $ ; IN [FLEX_PI_SAW.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bc _LBL__51 _LBL__50 F1_000419 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000420 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000421 equ $ ; IN [FLEX_PI_SAW.BAS] END IF _LBL__51 F1_000422 equ $ ; IN [FLEX_PI_SAW.BAS] GOTO POSITIONING bra Positioning F1_000423 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__48 F1_000424 equ $ ; IN [FLEX_PI_SAW.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__53 F1_000426 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000427 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT BYTEIN F1_000428 equ $ ; IN [FLEX_PI_SAW.BAS] CASE NOTEOFF_STATUS movlw 140 subwf Bytein,W,0 bnz _LBL__55 F1_000429 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000430 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEUIT setf noteUit,0 F1_000431 equ $ ; IN [FLEX_PI_SAW.BAS] SET RELEASE setf release,0 bra _LBL__54 _LBL__55 F1_000432 equ $ ; IN [FLEX_PI_SAW.BAS] CASE NOTEON_STATUS movlw 156 subwf Bytein,W,0 bnz _LBL__58 F1_000433 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000434 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEAAN setf noteAan,0 F1_000435 equ $ ; IN [FLEX_PI_SAW.BAS] SET VELO setf velo,0 bra _LBL__54 _LBL__58 F1_000436 equ $ ; IN [FLEX_PI_SAW.BAS] CASE KEYPRES_STATUS movlw 172 subwf Bytein,W,0 bnz _LBL__60 F1_000437 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000438 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEPRES setf notePres,0 F1_000439 equ $ ; IN [FLEX_PI_SAW.BAS] SET PRES setf pres,0 bra _LBL__54 _LBL__60 F1_000440 equ $ ; IN [FLEX_PI_SAW.BAS] CASE CONTROL_STATUS movlw 188 subwf Bytein,W,0 bnz _LBL__62 F1_000441 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000442 equ $ ; IN [FLEX_PI_SAW.BAS] SET CTRL setf Ctrl,0 F1_000443 equ $ ; IN [FLEX_PI_SAW.BAS] SET VALUE setf value,0 bra _LBL__54 _LBL__62 F1_000444 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PROGCHANGE_STATUS movlw 204 subwf Bytein,W,0 bnz _LBL__64 F1_000445 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000446 equ $ ; IN [FLEX_PI_SAW.BAS] SET PROG setf prog,0 bra _LBL__54 _LBL__64 F1_000447 equ $ ; IN [FLEX_PI_SAW.BAS] CASE AFTERTOUCH_STATUS movlw 220 subwf Bytein,W,0 bnz _LBL__66 F1_000448 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000449 equ $ ; IN [FLEX_PI_SAW.BAS] SET AFT setf aft,0 bra _LBL__54 _LBL__66 F1_000450 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PITCHBEND_STATUS movlw 236 subwf Bytein,W,0 bnz _LBL__68 F1_000451 equ $ ; IN [FLEX_PI_SAW.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000452 equ $ ; IN [FLEX_PI_SAW.BAS] SET PBLSB setf pblsb,0 F1_000453 equ $ ; IN [FLEX_PI_SAW.BAS] SET PBMSB setf pbmsb,0 F1_000454 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__68 _LBL__54 bra _LBL__69 _LBL__53 F1_000455 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000456 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT STATUSBYTE F1_000457 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__71 F1_000458 equ $ ; IN [FLEX_PI_SAW.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__70 _LBL__71 F1_000459 equ $ ; IN [FLEX_PI_SAW.BAS] CASE NOTEOFF_STATUS movlw 140 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__74 F1_000460 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__76 F1_000461 equ $ ; IN [FLEX_PI_SAW.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__77 _LBL__76 F1_000462 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000463 equ $ ; IN [FLEX_PI_SAW.BAS] RELEASE = BYTEIN movff Bytein,release F1_000464 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT NOTEUIT F1_000465 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIPOS movlw 36 subwf noteUit,W,0 bnz _LBL__79 F1_000466 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000467 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.2 bcf notes,2,0 bra _LBL__78 _LBL__79 F1_000468 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PISTRETCH movlw 38 subwf noteUit,W,0 bnz _LBL__82 F1_000469 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000470 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.5 bcf notes,5,0 bra _LBL__78 _LBL__82 F1_000471 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIBEND movlw 40 subwf noteUit,W,0 bnz _LBL__84 F1_000472 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000473 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.6 bcf notes,6,0 bra _LBL__78 _LBL__84 F1_000474 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI movlw 72 subwf noteUit,W,0 bnz _LBL__86 F1_000475 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000476 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.3 bcf notes,3,0 bra _LBL__78 _LBL__86 F1_000477 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI2 movlw 73 subwf noteUit,W,0 bnz _LBL__88 F1_000478 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000479 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.4 bcf notes,4,0 bra _LBL__78 _LBL__88 F1_000480 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI1 movlw 74 subwf noteUit,W,0 bnz _LBL__90 F1_000481 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000482 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000483 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000484 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[0] movlb 3 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000485 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 movlb 0 bra _LBL__78 _LBL__90 F1_000486 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI2 movlw 75 subwf noteUit,W,0 bnz _LBL__92 F1_000487 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000488 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000489 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000490 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[1] movlb 3 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000491 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000492 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__92 movlb 0 _LBL__78 F1_000493 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEUIT setf noteUit,0 F1_000494 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__77 bra _LBL__70 _LBL__74 F1_000495 equ $ ; IN [FLEX_PI_SAW.BAS] CASE NOTEON_STATUS movlw 156 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__94 F1_000496 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__96 F1_000497 equ $ ; IN [FLEX_PI_SAW.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan bra _LBL__97 _LBL__96 F1_000498 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000499 equ $ ; IN [FLEX_PI_SAW.BAS] VELO = BYTEIN movff Bytein,velo F1_000500 equ $ ; IN [FLEX_PI_SAW.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _LBL__99 F1_000501 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT NOTEAAN F1_000502 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIPOS movlw 36 subwf noteAan,W,0 bnz _LBL__101 F1_000503 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000504 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.2 bcf notes,2,0 bra _LBL__100 _LBL__101 F1_000505 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PISTRETCH movlw 38 subwf noteAan,W,0 bnz _LBL__104 F1_000506 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000507 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.5 bcf notes,5,0 bra _LBL__100 _LBL__104 F1_000508 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIBEND movlw 40 subwf noteAan,W,0 bnz _LBL__106 F1_000509 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000510 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.6 bcf notes,6,0 bra _LBL__100 _LBL__106 F1_000511 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI movlw 72 subwf noteAan,W,0 bnz _LBL__108 F1_000512 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000513 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.3 bcf notes,3,0 bra _LBL__100 _LBL__108 F1_000514 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI2 movlw 73 subwf noteAan,W,0 bnz _LBL__110 F1_000515 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000516 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.4 bcf notes,4,0 bra _LBL__100 _LBL__110 F1_000517 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI1 movlw 74 subwf noteAan,W,0 bnz _LBL__112 F1_000518 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000519 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000520 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000521 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[0] movlb 3 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000522 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 movlb 0 bra _LBL__100 _LBL__112 F1_000523 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI2 movlw 75 subwf noteAan,W,0 bnz _LBL__114 F1_000524 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000525 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000526 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000527 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[1] movlb 3 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000528 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000529 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__114 movlb 0 _LBL__100 bra _LBL__115 _LBL__99 F1_000530 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000531 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT NOTEAAN F1_000532 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIPOS movlw 36 subwf noteAan,W,0 bnz _LBL__117 F1_000535 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = VELO movff velo,SollSpeed F1_000538 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.2 bsf notes,2,0 bra _LBL__116 _LBL__117 F1_000539 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PISTRETCH movlw 38 subwf noteAan,W,0 bnz _LBL__120 F1_000541 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = VELO movff velo,SollSpeed F1_000542 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR SOLLPOS clrf SollPosH,0 clrf SollPos,0 F1_000543 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.5 bsf notes,5,0 bra _LBL__116 _LBL__120 F1_000544 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIBEND movlw 40 subwf noteAan,W,0 bnz _LBL__122 F1_000545 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = VELO movff velo,SollSpeed F1_000546 equ $ ; IN [FLEX_PI_SAW.BAS] SET SOLLPOS setf SollPosH,0 setf SollPos,0 F1_000547 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.6 bsf notes,6,0 bra _LBL__116 _LBL__122 F1_000548 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI movlw 72 subwf noteAan,W,0 bnz _LBL__124 F1_000549 equ $ ; IN [FLEX_PI_SAW.BAS] IF POWERON = 1 THEN btfss CC66,0,0 bra _LBL__126 F1_000550 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, VELO , FPWM movff velo,GEN movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000551 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.3 bsf notes,3,0 F1_000552 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__126 bra _LBL__116 _LBL__124 F1_000553 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI2 movlw 73 subwf noteAan,W,0 bnz _LBL__128 F1_000554 equ $ ; IN [FLEX_PI_SAW.BAS] IF POWERON = 1 THEN btfss CC66,0,0 bra _LBL__130 F1_000555 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, VELO, FPWM movff velo,GEN movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000556 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.4 bsf notes,4,0 F1_000557 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__130 bra _LBL__116 _LBL__128 F1_000558 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI1 movlw 74 subwf noteAan,W,0 bnz _LBL__132 F1_000560 equ $ ; IN [FLEX_PI_SAW.BAS] VELO0 = VELO clrf velo0H,0 movff velo,velo0 F1_000561 equ $ ; IN [FLEX_PI_SAW.BAS] SET PORTB.3 bsf LATB,3,0 F1_000562 equ $ ; IN [FLEX_PI_SAW.BAS] IF PRES0 > 0 THEN movf pres0,F,0 bz _LBL__134 F1_000563 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.0 bsf notes,0,0 bra _LBL__135 _LBL__134 F1_000564 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000565 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000566 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__135 F1_000567 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[0] = TIME + VELS[VELO0] lfsr 0,Vels bcf STATUS,0,0 rlcf velo0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000568 equ $ ; IN [FLEX_PI_SAW.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000569 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 bra _LBL__116 _LBL__132 F1_000570 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI2 movlw 75 subwf noteAan,W,0 bnz _LBL__137 F1_000571 equ $ ; IN [FLEX_PI_SAW.BAS] VELO1 = VELO clrf velo1H,0 movff velo,velo1 F1_000572 equ $ ; IN [FLEX_PI_SAW.BAS] SET PORTB.2 bsf LATB,2,0 F1_000573 equ $ ; IN [FLEX_PI_SAW.BAS] IF PRES0 > 0 THEN movf pres0,F,0 bz _LBL__139 F1_000574 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTES.1 bsf notes,1,0 bra _LBL__140 _LBL__139 F1_000575 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000576 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000577 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__140 F1_000578 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[1] = TIME + VELS[VELO1] lfsr 0,Vels bcf STATUS,0,0 rlcf velo1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000579 equ $ ; IN [FLEX_PI_SAW.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000580 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000581 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__137 _LBL__116 F1_000582 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEAAN setf noteAan,0 F1_000583 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__115 F1_000584 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__97 bra _LBL__70 _LBL__94 F1_000585 equ $ ; IN [FLEX_PI_SAW.BAS] CASE KEYPRES_STATUS movlw 172 subwf statusbyte,W,0 bnz _LBL__142 F1_000586 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__144 F1_000587 equ $ ; IN [FLEX_PI_SAW.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__145 _LBL__144 F1_000588 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000589 equ $ ; IN [FLEX_PI_SAW.BAS] PRES = BYTEIN movff Bytein,pres F1_000590 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB KEYPRES call KeyPres F1_000591 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__145 bra _LBL__70 _LBL__142 F1_000592 equ $ ; IN [FLEX_PI_SAW.BAS] CASE CONTROL_STATUS movlw 188 subwf statusbyte,W,0 bnz _LBL__147 F1_000593 equ $ ; IN [FLEX_PI_SAW.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__149 F1_000594 equ $ ; IN [FLEX_PI_SAW.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__150 _LBL__149 F1_000595 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000596 equ $ ; IN [FLEX_PI_SAW.BAS] VALUE = BYTEIN movff Bytein,value F1_000597 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB CONTROLLER call Controller F1_000598 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__150 bra _LBL__70 _LBL__147 F1_000599 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PROGCHANGE_STATUS movlw 204 subwf statusbyte,W,0 bnz _LBL__152 F1_000600 equ $ ; IN [FLEX_PI_SAW.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _LBL__154 F1_000601 equ $ ; IN [FLEX_PI_SAW.BAS] PROG = BYTEIN movff Bytein,prog F1_000602 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB PROGCHANGE call ProgChange F1_000603 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__154 bra _LBL__70 _LBL__152 F1_000604 equ $ ; IN [FLEX_PI_SAW.BAS] CASE AFTERTOUCH_STATUS movlw 220 subwf statusbyte,W,0 bnz _LBL__156 F1_000605 equ $ ; IN [FLEX_PI_SAW.BAS] IF AFT = 255 THEN incf aft,W,0 bnz _LBL__158 F1_000606 equ $ ; IN [FLEX_PI_SAW.BAS] AFT = BYTEIN movff Bytein,aft F1_000607 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB AFTERTOUCH call Aftertouch F1_000608 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__158 bra _LBL__70 _LBL__156 F1_000609 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PITCHBEND_STATUS movlw 236 subwf statusbyte,W,0 bnz _LBL__160 F1_000610 equ $ ; IN [FLEX_PI_SAW.BAS] IF PBLSB = 255 THEN incf pblsb,W,0 bnz _LBL__162 F1_000611 equ $ ; IN [FLEX_PI_SAW.BAS] PBLSB = BYTEIN movff Bytein,pblsb bra _LBL__163 _LBL__162 F1_000612 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000613 equ $ ; IN [FLEX_PI_SAW.BAS] PBMSB = BYTEIN movff Bytein,pbmsb F1_000614 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB PITCHBEND call Pitchbend F1_000615 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__163 F1_000616 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__160 _LBL__70 F1_000617 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__69 Positioning F1_000621 equ $ ; IN [FLEX_PI_SAW.BAS] IF FLAGS > 0 THEN movf flags,F,0 btfsc STATUS,2,0 bra _LBL__165 F1_000622 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR T3CON.0 bcf T3CON,0,0 F1_000623 equ $ ; IN [FLEX_PI_SAW.BAS] MOTSPEED = 1 movlw 1 movwf MotSpeed,0 F1_000624 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[1] movff Freqs#1,Period movff Freqs#1H,PeriodH F1_000625 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT FLAGS F1_000626 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 1 movlw 1 subwf flags,W,0 bnz _LBL__167 F1_000628 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = MINPOS + HYSTERESIS movlw 3 addwf minpos,W,0 movwf SollPos,0 movlw 0 addwfc minposH,W,0 movwf SollPosH,0 F1_000630 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 64 movlw 64 movwf SollSpeed,0 F1_000631 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 bra _LBL__166 _LBL__167 F1_000632 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 2 movlw 2 subwf flags,W,0 bnz _LBL__170 F1_000633 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = MAXPOS - HYSTERESIS movlw 3 subwf maxpos,W,0 movwf SollPos,0 movlw 0 subwfb maxposH,W,0 movwf SollPosH,0 F1_000634 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 64 movlw 64 movwf SollSpeed,0 F1_000635 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 bra _LBL__166 _LBL__170 F1_000636 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 4 movlw 4 subwf flags,W,0 bnz _LBL__172 F1_000637 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = MOTSPEED movff MotSpeed,SollSpeed F1_000638 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[2] movlb 3 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 movlb 0 bra _LBL__166 _LBL__172 F1_000639 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 8 movlw 8 subwf flags,W,0 bnz _LBL__174 F1_000640 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 bra _LBL__166 _LBL__174 F1_000641 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 16 movlw 16 subwf flags,W,0 bnz _LBL__176 F1_000642 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000643 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__176 _LBL__166 F1_000644 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR FLAGS clrf flags,0 F1_000645 equ $ ; IN [FLEX_PI_SAW.BAS] SET T3CON.0 bsf T3CON,0,0 F1_000646 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000647 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__165 F1_000649 equ $ ; IN [FLEX_PI_SAW.BAS] IF RESORT_FLAG =1 THEN btfsc _J,5,0 F1_000650 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000652 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__178 Check_Timers F1_000655 equ $ ; IN [FLEX_PI_SAW.BAS] IF IDX < 3 THEN movlw 3 subwf idx,W,0 btfsc STATUS,0,0 bra _LBL__180 F1_000656 equ $ ; IN [FLEX_PI_SAW.BAS] IF TIME >= NXT THEN movf Nxt,W,0 subwf time,W,0 movf NxtH,W,0 subwfb timeH,W,0 movf NxtHH,W,0 subwfb timeHH,W,0 movf NxtHHH,W,0 subwfb timeHHH,W,0 btfss STATUS,0,0 bra _LBL__182 F1_000658 equ $ ; IN [FLEX_PI_SAW.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000660 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT IDX F1_000661 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 0 movf idx,F,0 btfss STATUS,2,0 bra _LBL__184 F1_000662 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _LBL__187 F1_000663 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000664 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000665 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[0] movlb 3 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 movlb 0 bra _LBL__188 _LBL__187 F1_000666 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000667 equ $ ; IN [FLEX_PI_SAW.BAS] IF VELFLAGS.0 = 1 THEN btfss Velflags,0,0 bra _LBL__190 F1_000668 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000669 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[0] = TIME + DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000670 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 bra _LBL__191 _LBL__190 F1_000671 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000672 equ $ ; IN [FLEX_PI_SAW.BAS] SET PORTB.3 bsf LATB,3,0 F1_000673 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[0] = TIME + VELS[VELO0] lfsr 0,Vels bcf STATUS,0,0 rlcf velo0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000674 equ $ ; IN [FLEX_PI_SAW.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000675 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__191 F1_000676 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__188 bra _LBL__183 _LBL__184 F1_000677 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 1 movlw 1 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__193 F1_000678 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _LBL__195 F1_000679 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000680 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000681 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[1] movlb 3 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 movlb 0 bra _LBL__196 _LBL__195 F1_000682 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000683 equ $ ; IN [FLEX_PI_SAW.BAS] IF VELFLAGS.1 = 1 THEN btfss Velflags,1,0 bra _LBL__198 F1_000684 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000685 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[1] = TIME + DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000686 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 bra _LBL__199 _LBL__198 F1_000687 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000688 equ $ ; IN [FLEX_PI_SAW.BAS] SET PORTB.2 bsf LATB,2,0 F1_000689 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[1] = TIME + VELS[VELO1] lfsr 0,Vels bcf STATUS,0,0 rlcf velo1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000690 equ $ ; IN [FLEX_PI_SAW.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000691 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__199 F1_000692 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__196 bra _LBL__183 _LBL__193 F1_000693 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 2 movlw 2 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__201 F1_000695 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT MOTSPEED F1_000696 equ $ ; IN [FLEX_PI_SAW.BAS] CASE SOLLSPEED movf MotSpeed,W,0 subwf SollSpeed,W,0 bnz _LBL__203 F1_000698 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[2] movlb 3 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000699 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH movlb 0 bra _LBL__202 _LBL__203 F1_000700 equ $ ; IN [FLEX_PI_SAW.BAS] CASE < SOLLSPEED movf SollSpeed,W,0 subwf MotSpeed,W,0 bc _LBL__206 F1_000701 equ $ ; IN [FLEX_PI_SAW.BAS] INC MOTSPEED incf MotSpeed,F,0 F1_000702 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH F1_000703 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 bra _LBL__202 _LBL__206 F1_000704 equ $ ; IN [FLEX_PI_SAW.BAS] CASE > SOLLSPEED movf MotSpeed,W,0 subwf SollSpeed,W,0 bc _LBL__208 F1_000705 equ $ ; IN [FLEX_PI_SAW.BAS] DEC MOTSPEED decf MotSpeed,F,0 F1_000706 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH F1_000707 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000708 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__208 _LBL__202 F1_000712 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__201 _LBL__183 F1_000713 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000714 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__182 F1_000716 equ $ ; IN [FLEX_PI_SAW.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__210 F1_000717 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_000718 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES clrf notes,0 F1_000719 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS lfsr 0,TimVals movlw 12 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000720 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__210 bra _LBL__211 _LBL__180 F1_000721 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000723 equ $ ; IN [FLEX_PI_SAW.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__213 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__213 F1_000724 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__211 F1_000729 equ $ ; IN [FLEX_PI_SAW.BAS] IF PORTA.2 = 0 THEN btfsc PORTA,2,0 bra _LBL__215 F1_000730 equ $ ; IN [FLEX_PI_SAW.BAS] IF PREVIOUSSTATE = 1 THEN btfss _J,4,0 bra _LBL__217 F1_000731 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PREVIOUSSTATE bcf _J,4,0 F1_000733 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR ROTCNT clrf rotcnt,0 F1_000734 equ $ ; IN [FLEX_PI_SAW.BAS] IF PORTA.4 = 0 THEN btfsc PORTA,4,0 bra _LBL__219 F1_000735 equ $ ; IN [FLEX_PI_SAW.BAS] IF PORTC.0 = 0 THEN btfsc PORTC,0,0 bra _LBL__221 F1_000736 equ $ ; IN [FLEX_PI_SAW.BAS] DEC SAWPOS decf SawPos,F,0 movlw 0 subwfb SawPosH,F,0 bra _LBL__222 _LBL__221 F1_000737 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000738 equ $ ; IN [FLEX_PI_SAW.BAS] INC SAWPOS infsnz SawPos,F,0 incf SawPosH,F,0 F1_000739 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__222 bra _LBL__223 _LBL__219 F1_000741 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000746 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__223 F1_000747 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__217 bra _LBL__224 _LBL__215 F1_000748 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000749 equ $ ; IN [FLEX_PI_SAW.BAS] IF ROTCNT > DEATHTIME THEN movlw 101 subwf rotcnt,W,0 bnc _LBL__226 F1_000750 equ $ ; IN [FLEX_PI_SAW.BAS] SET PREVIOUSSTATE bsf _J,4,0 F1_000751 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR ROTCNT clrf rotcnt,0 F1_000752 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__226 F1_000753 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__224 F1_000755 equ $ ; IN [FLEX_PI_SAW.BAS] PORTC.4 = PORTA.0 btfsc PORTA,0,0 bsf PORTC,4,0 btfss PORTA,0,0 bcf PORTC,4,0 F1_000756 equ $ ; IN [FLEX_PI_SAW.BAS] PORTC.5 = PORTA.1 btfsc PORTA,1,0 bsf PORTC,5,0 btfss PORTA,1,0 bcf PORTC,5,0 F1_000758 equ $ ; IN [FLEX_PI_SAW.BAS] BTG PORTB.0 btg PORTB,0 F1_000761 equ $ ; IN [FLEX_PI_SAW.BAS] GOTO LOOP goto LOOP SortTimers F1_000766 equ $ ; IN [FLEX_PI_SAW.BAS] SET IDX setf idx,0 F1_000767 equ $ ; IN [FLEX_PI_SAW.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000768 equ $ ; IN [FLEX_PI_SAW.BAS] FOR I = 0 TO 2 clrf _I,0 _FRLB__227 movlw 3 subwf _I,W,0 bc _NXLB__228 F1_000769 equ $ ; IN [FLEX_PI_SAW.BAS] IF TIMVALS[I] < NXT THEN bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 76 addwf FSR0L,F,0 movlw 3 addwfc FSR0H,F,0 movff INDF0,PBP#VAR0 movff PREINC0,PBP#VAR0H movff PREINC0,PBP#VAR0HH movff PREINC0,PBP#VAR0HHH movf Nxt,W,0 subwf PBP#VAR0,W,0 movf NxtH,W,0 subwfb PBP#VAR0H,W,0 movf NxtHH,W,0 subwfb PBP#VAR0HH,W,0 movf NxtHHH,W,0 subwfb PBP#VAR0HHH,W,0 bc _LBL__231 F1_000770 equ $ ; IN [FLEX_PI_SAW.BAS] NXT = TIMVALS[I] bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 76 addwf FSR0L,F,0 movlw 3 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000771 equ $ ; IN [FLEX_PI_SAW.BAS] IDX = I movff _I,idx F1_000772 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__231 _CTLB__229 F1_000773 equ $ ; IN [FLEX_PI_SAW.BAS] NEXT I incf _I,F,0 bnc _FRLB__227 _NXLB__228 F1_000774 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR RESORT_FLAG bcf _J,5,0 F1_000775 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 KeyPres F1_000779 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT NOTEPRES F1_000780 equ $ ; IN [FLEX_PI_SAW.BAS] CASE PIPOS, PISTRETCH, PIBEND movlw 36 subwf notePres,W,0 bz _LBL__234 movlw 38 subwf notePres,W,0 bz _LBL__234 movlw 40 subwf notePres,W,0 bnz _LBL__233 _LBL__234 F1_000782 equ $ ; IN [FLEX_PI_SAW.BAS] IF PORTA.4 = 0 THEN btfsc PORTA,4,0 bra _LBL__236 F1_000783 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = PRES movff pres,SollSpeed F1_000784 equ $ ; IN [FLEX_PI_SAW.BAS] IF SOLLSPEED <> MOTSPEED THEN movf SollSpeed,W,0 subwf MotSpeed,W,0 bz _LBL__238 F1_000785 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH F1_000786 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED] lfsr 0,Dur5 bcf STATUS,0,0 rlcf RampSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000787 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000788 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__238 F1_000789 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__236 bra _LBL__232 _LBL__233 F1_000790 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI movlw 72 subwf notePres,W,0 bnz _LBL__240 F1_000792 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTES.3 = 1 THEN btfss notes,3,0 bra _LBL__242 F1_000793 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, PRES, FPWM movff pres,GEN movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000794 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__242 bra _LBL__232 _LBL__240 F1_000795 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEAT_MOTOR_PI2 movlw 73 subwf notePres,W,0 bnz _LBL__244 F1_000796 equ $ ; IN [FLEX_PI_SAW.BAS] IF NOTES.4 =1 THEN btfss notes,4,0 bra _LBL__246 F1_000797 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, PRES, FPWM movff pres,GEN movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000798 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__246 bra _LBL__232 _LBL__244 F1_000799 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI1 movlw 74 subwf notePres,W,0 bnz _LBL__248 F1_000801 equ $ ; IN [FLEX_PI_SAW.BAS] PRES0 = PRES movff pres,pres0 bra _LBL__232 _LBL__248 F1_000802 equ $ ; IN [FLEX_PI_SAW.BAS] CASE BEATER_PI2 movlw 75 subwf notePres,W,0 bnz _LBL__250 F1_000803 equ $ ; IN [FLEX_PI_SAW.BAS] PRES1 = PRES movff pres,pres1 F1_000805 equ $ ; IN [FLEX_PI_SAW.BAS] ENDSELECT _LBL__250 _LBL__232 F1_000806 equ $ ; IN [FLEX_PI_SAW.BAS] SET NOTEPRES setf notePres,0 F1_000807 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 ProgChange F1_000811 equ $ ; IN [FLEX_PI_SAW.BAS] SET PROG setf prog,0 F1_000812 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 Pitchbend F1_000819 equ $ ; IN [FLEX_PI_SAW.BAS] IF CALIBRATED_LOW = 1 THEN btfss _J,2,0 bra _LBL__252 F1_000820 equ $ ; IN [FLEX_PI_SAW.BAS] IF PB_PI_SAW = 1 THEN btfss _J,0,0 bra _LBL__254 F1_000821 equ $ ; IN [FLEX_PI_SAW.BAS] PBVALUE = PBMSB << 7 bcf STATUS,0,0 rrcf pbmsb,W,0 movwf PBvalueH,0 clrf PBvalue,0 rrcf PBvalue,F,0 F1_000822 equ $ ; IN [FLEX_PI_SAW.BAS] PBVALUE = PBVALUE + PBLSB movf pblsb,W,0 addwf PBvalue,F,0 movlw 0 addwfc PBvalueH,F,0 F1_000823 equ $ ; IN [FLEX_PI_SAW.BAS] IF PBVALUE > TRAJECT - HYSTERESIS THEN PBVALUE = TRAJECT - HYSTERESIS movf PBvalueH,F,0 bnz _CPLB__2 movlw 233 subwf PBvalue,W,0 bnc _LBL__256 _CPLB__2 clrf PBvalueH,0 movlw 232 movwf PBvalue,0 _LBL__256 movlb 0 F1_000824 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = MINPOS + PBVALUE movf PBvalue,W,0 addwf minpos,W,0 movwf SollPos,0 movf PBvalueH,W,0 addwfc minposH,W,0 movwf SollPosH,0 F1_000825 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__254 F1_000826 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__252 F1_000827 equ $ ; IN [FLEX_PI_SAW.BAS] SET PBLSB setf pblsb,0 F1_000828 equ $ ; IN [FLEX_PI_SAW.BAS] SET PBMSB setf pbmsb,0 F1_000829 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 Aftertouch F1_000834 equ $ ; IN [FLEX_PI_SAW.BAS] SET AFT setf aft,0 F1_000835 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 Controller F1_000838 equ $ ; IN [FLEX_PI_SAW.BAS] SELECT CTRL F1_000839 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 bnz _LBL__258 F1_000841 equ $ ; IN [FLEX_PI_SAW.BAS] PRES0 = PRES movff pres,pres0 F1_000842 equ $ ; IN [FLEX_PI_SAW.BAS] PRES1 = PRES movff pres,pres1 bra _LBL__257 _LBL__258 F1_000843 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 45 movlw 45 subwf Ctrl,W,0 bnz _LBL__261 F1_000845 equ $ ; IN [FLEX_PI_SAW.BAS] IF VALUE <= 63 THEN movlw 64 subwf value,W,0 bc _LBL__263 F1_000846 equ $ ; IN [FLEX_PI_SAW.BAS] SET PB_PI_SAW bsf _J,0,0 F1_000847 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PB_E_SAW bcf _J,1,0 bra _LBL__264 _LBL__263 F1_000848 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000849 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PB_PI_SAW bcf _J,0,0 F1_000850 equ $ ; IN [FLEX_PI_SAW.BAS] SET PB_E_SAW bsf _J,1,0 F1_000851 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__264 bra _LBL__257 _LBL__261 F1_000852 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 46 movlw 46 subwf Ctrl,W,0 bnz _LBL__266 F1_000854 equ $ ; IN [FLEX_PI_SAW.BAS] RAMPSPEED = VALUE movff value,RampSpeed bra _LBL__257 _LBL__266 F1_000855 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__268 F1_000857 equ $ ; IN [FLEX_PI_SAW.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__270 F1_000858 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR POWERON bcf CC66,0,0 F1_000859 equ $ ; IN [FLEX_PI_SAW.BAS] GOSUB POWERDOWN rcall PowerDown bra _LBL__271 _LBL__270 F1_000860 equ $ ; IN [FLEX_PI_SAW.BAS] ELSE F1_000861 equ $ ; IN [FLEX_PI_SAW.BAS] SET POWERON bsf CC66,0,0 F1_000862 equ $ ; IN [FLEX_PI_SAW.BAS] SET T3CON.0 bsf T3CON,0,0 F1_000864 equ $ ; IN [FLEX_PI_SAW.BAS] IF CALIBRATED_LOW = 0 THEN btfsc _J,2,0 bra _LBL__273 F1_000866 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR FLAGS clrf flags,0 F1_000868 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR SOLLPOS clrf SollPosH,0 clrf SollPos,0 F1_000869 equ $ ; IN [FLEX_PI_SAW.BAS] MOTSPEED = 1 movlw 1 movwf MotSpeed,0 F1_000870 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 72 movlw 72 movwf SollSpeed,0 F1_000871 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[1] movff Freqs#1,Period movff Freqs#1H,PeriodH F1_000872 equ $ ; IN [FLEX_PI_SAW.BAS] TIMVALS[2] = TIME + DUR5[RAMPSPEED_DEFAULT] movff Dur5#64,PBP#VAR1 movff Dur5#64H,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000873 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTA.5 bcf TRISA,5,0 bsf LATA,5,0 F1_000874 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000875 equ $ ; IN [FLEX_PI_SAW.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000876 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000877 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__273 F1_000878 equ $ ; IN [FLEX_PI_SAW.BAS] ENDIF _LBL__271 bra _LBL__257 _LBL__268 F1_000879 equ $ ; IN [FLEX_PI_SAW.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _LBL__275 F1_000881 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES clrf notes,0 F1_000882 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000883 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000884 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000885 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[2] movlb 3 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000886 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTA.4 bcf TRISA,4,0 bsf LATA,4,0 F1_000887 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000888 equ $ ; IN [FLEX_PI_SAW.BAS] MOTSPEED = 1 movlw 1 movwf MotSpeed,0 F1_000889 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 1 movwf SollSpeed,0 F1_000890 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000891 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000892 equ $ ; IN [FLEX_PI_SAW.BAS] END SELECT _LBL__275 movlb 0 _LBL__257 F1_000893 equ $ ; IN [FLEX_PI_SAW.BAS] SET CTRL setf Ctrl,0 F1_000894 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 PowerDown F1_000898 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR T3CON.0 bcf T3CON,0,0 F1_000899 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR FLAGS clrf flags,0 F1_000900 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000901 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR NOTES clrf notes,0 F1_000902 equ $ ; IN [FLEX_PI_SAW.BAS] SET RESORT_FLAG bsf _J,5,0 F1_000903 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLPOS = SAWPOS movff SawPosH,SollPosH movff SawPos,SollPos F1_000905 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_000906 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_000907 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PRES0 clrf pres0,0 F1_000908 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PRES1 clrf pres1,0 F1_000909 equ $ ; IN [FLEX_PI_SAW.BAS] HIGH PORTA.4 bcf TRISA,4,0 bsf LATA,4,0 F1_000910 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 1 call __HPWM_ F1_000911 equ $ ; IN [FLEX_PI_SAW.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 76 movwf PP1H,0 movlw 80 movwf PP1,0 movlw 2 call __HPWM_ F1_000912 equ $ ; IN [FLEX_PI_SAW.BAS] SET PB_PI_SAW bsf _J,0,0 F1_000913 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PB_E_SAW bcf _J,1,0 F1_000914 equ $ ; IN [FLEX_PI_SAW.BAS] RAMPSPEED = RAMPSPEED_DEFAULT movlw 64 movwf RampSpeed,0 F1_000915 equ $ ; IN [FLEX_PI_SAW.BAS] SET TIMVALS[2] movlb 3 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000916 equ $ ; IN [FLEX_PI_SAW.BAS] MOTSPEED = 1 movlw 1 movwf MotSpeed,0 F1_000917 equ $ ; IN [FLEX_PI_SAW.BAS] SOLLSPEED = 1 movwf SollSpeed,0 F1_000918 equ $ ; IN [FLEX_PI_SAW.BAS] PERIOD = FREQS[MOTSPEED] lfsr 0,Freqs bcf STATUS,0,0 rlcf MotSpeed,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Period movff INDF0,PeriodH F1_000919 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000920 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000921 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR CC66 clrf CC66,0 F1_000922 equ $ ; IN [FLEX_PI_SAW.BAS] CLEAR ROTCNT clrf rotcnt,0 F1_000923 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN movlb 0 return 0 Dur_Lookup F1_000927 equ $ ; IN [FLEX_PI_SAW.BAS] SET DUR[0] movlb 4 setf Dur#0H,1 setf Dur#0,1 F1_000932 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[1] = 23674 movlw 92 movwf Dur#1H,1 movlw 122 movwf Dur#1,1 F1_000933 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[2] = 22917 movlw 89 movwf Dur#2H,1 movlw 133 movwf Dur#2,1 F1_000934 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[3] = 22548 movlw 88 movwf Dur#3H,1 movlw 20 movwf Dur#3,1 F1_000935 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[4] = 22185 movlw 86 movwf Dur#4H,1 movlw 169 movwf Dur#4,1 F1_000936 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[5] = 21827 movlw 85 movwf Dur#5H,1 movlw 67 movwf Dur#5,1 F1_000937 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[6] = 21475 movlw 83 movwf Dur#6H,1 movlw 227 movwf Dur#6,1 F1_000938 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[7] = 21129 movlw 82 movwf Dur#7H,1 movlw 137 movwf Dur#7,1 F1_000939 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[8] = 20789 movlw 81 movwf Dur#8H,1 movlw 53 movwf Dur#8,1 F1_000940 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[9] = 20454 movlw 79 movwf Dur#9H,1 movlw 230 movwf Dur#9,1 F1_000941 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[10] = 20124 movlw 78 movwf Dur#10H,1 movlw 156 movwf Dur#10,1 F1_000942 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[11] = 19800 movlw 77 movwf Dur#11H,1 movlw 88 movwf Dur#11,1 F1_000943 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[12] = 19481 movlw 76 movwf Dur#12H,1 movlw 25 movwf Dur#12,1 F1_000944 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[13] = 19167 movlw 74 movwf Dur#13H,1 movlw 223 movwf Dur#13,1 F1_000945 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[14] = 18858 movlw 73 movwf Dur#14H,1 movlw 170 movwf Dur#14,1 F1_000946 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[15] = 18554 movlw 72 movwf Dur#15H,1 movlw 122 movwf Dur#15,1 F1_000947 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[16] = 18255 movlw 71 movwf Dur#16H,1 movlw 79 movwf Dur#16,1 F1_000948 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[17] = 17961 movlw 70 movwf Dur#17H,1 movlw 41 movwf Dur#17,1 F1_000949 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[18] = 17672 movlw 69 movwf Dur#18H,1 movlw 8 movwf Dur#18,1 F1_000950 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[19] = 17387 movlw 67 movwf Dur#19H,1 movlw 235 movwf Dur#19,1 F1_000951 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[20] = 17107 movlw 66 movwf Dur#20H,1 movlw 211 movwf Dur#20,1 F1_000952 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[21] = 16831 movlw 65 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_000953 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[22] = 16560 movlw 64 movwf Dur#22H,1 movlw 176 movwf Dur#22,1 F1_000954 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[23] = 16293 movlw 63 movwf Dur#23H,1 movlw 165 movwf Dur#23,1 F1_000955 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[24] = 16030 movlw 62 movwf Dur#24H,1 movlw 158 movwf Dur#24,1 F1_000956 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[25] = 15772 movlw 61 movwf Dur#25H,1 movlw 156 movwf Dur#25,1 F1_000957 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[26] = 15518 movlw 60 movwf Dur#26H,1 movlw 158 movwf Dur#26,1 F1_000958 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[27] = 15268 movlw 59 movwf Dur#27H,1 movlw 164 movwf Dur#27,1 F1_000959 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[28] = 15022 movlw 58 movwf Dur#28H,1 movlw 174 movwf Dur#28,1 F1_000960 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[29] = 14780 movlw 57 movwf Dur#29H,1 movlw 188 movwf Dur#29,1 F1_000961 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[30] = 14542 movlw 56 movwf Dur#30H,1 movlw 206 movwf Dur#30,1 F1_000962 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[31] = 14307 movlw 55 movwf Dur#31H,1 movlw 227 movwf Dur#31,1 F1_000963 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[32] = 14077 movlw 54 movwf Dur#32H,1 movlw 253 movwf Dur#32,1 F1_000964 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[33] = 13850 movlw 54 movwf Dur#33H,1 movlw 26 movwf Dur#33,1 F1_000965 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[34] = 13627 movlw 53 movwf Dur#34H,1 movlw 59 movwf Dur#34,1 F1_000966 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[35] = 13407 movlw 52 movwf Dur#35H,1 movlw 95 movwf Dur#35,1 F1_000967 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[36] = 13191 movlw 51 movwf Dur#36H,1 movlw 135 movwf Dur#36,1 F1_000968 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[37] = 12978 movlw 50 movwf Dur#37H,1 movlw 178 movwf Dur#37,1 F1_000969 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[38] = 12769 movlw 49 movwf Dur#38H,1 movlw 225 movwf Dur#38,1 F1_000970 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[39] = 12564 movlw 49 movwf Dur#39H,1 movlw 20 movwf Dur#39,1 F1_000971 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[40] = 12361 movlw 48 movwf Dur#40H,1 movlw 73 movwf Dur#40,1 F1_000972 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[41] = 12162 movlw 47 movwf Dur#41H,1 movlw 130 movwf Dur#41,1 F1_000973 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[42] = 11966 movlw 46 movwf Dur#42H,1 movlw 190 movwf Dur#42,1 F1_000974 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[43] = 11773 movlw 45 movwf Dur#43H,1 movlw 253 movwf Dur#43,1 F1_000975 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[44] = 11583 movlw 45 movwf Dur#44H,1 movlw 63 movwf Dur#44,1 F1_000976 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[45] = 11397 movlw 44 movwf Dur#45H,1 movlw 133 movwf Dur#45,1 F1_000977 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[46] = 11213 movlw 43 movwf Dur#46H,1 movlw 205 movwf Dur#46,1 F1_000978 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[47] = 11032 movlw 43 movwf Dur#47H,1 movlw 24 movwf Dur#47,1 F1_000979 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[48] = 10855 movlw 42 movwf Dur#48H,1 movlw 103 movwf Dur#48,1 F1_000980 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[49] = 10680 movlw 41 movwf Dur#49H,1 movlw 184 movwf Dur#49,1 F1_000981 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[50] = 10508 movlw 41 movwf Dur#50H,1 movlw 12 movwf Dur#50,1 F1_000982 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[51] = 10338 movlw 40 movwf Dur#51H,1 movlw 98 movwf Dur#51,1 F1_000983 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[52] = 10172 movlw 39 movwf Dur#52H,1 movlw 188 movwf Dur#52,1 F1_000984 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[53] = 10008 movlw 39 movwf Dur#53H,1 movlw 24 movwf Dur#53,1 F1_000985 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[54] = 9846 movlw 38 movwf Dur#54H,1 movlw 118 movwf Dur#54,1 F1_000986 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[55] = 9688 movlw 37 movwf Dur#55H,1 movlw 216 movwf Dur#55,1 F1_000987 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[56] = 9532 movlw 37 movwf Dur#56H,1 movlw 60 movwf Dur#56,1 F1_000988 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[57] = 9378 movlw 36 movwf Dur#57H,1 movlw 162 movwf Dur#57,1 F1_000989 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[58] = 9227 movlw 36 movwf Dur#58H,1 movlw 11 movwf Dur#58,1 F1_000990 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[59] = 9078 movlw 35 movwf Dur#59H,1 movlw 118 movwf Dur#59,1 F1_000991 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[60] = 8932 movlw 34 movwf Dur#60H,1 movlw 228 movwf Dur#60,1 F1_000992 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[61] = 8788 movlw 34 movwf Dur#61H,1 movlw 84 movwf Dur#61,1 F1_000993 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[62] = 8646 movlw 33 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000994 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[63] = 8507 movlw 33 movwf Dur#63H,1 movlw 59 movwf Dur#63,1 F1_000995 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[64] = 8370 movlw 32 movwf Dur#64H,1 movlw 178 movwf Dur#64,1 F1_000996 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[65] = 8235 movlw 32 movwf Dur#65H,1 movlw 43 movwf Dur#65,1 F1_000997 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[66] = 8102 movlw 31 movwf Dur#66H,1 movlw 166 movwf Dur#66,1 F1_000998 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[67] = 7972 movlw 31 movwf Dur#67H,1 movlw 36 movwf Dur#67,1 F1_000999 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[68] = 7843 movlw 30 movwf Dur#68H,1 movlw 163 movwf Dur#68,1 F1_001000 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[69] = 7717 movlw 30 movwf Dur#69H,1 movlw 37 movwf Dur#69,1 F1_001001 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[70] = 7593 movlw 29 movwf Dur#70H,1 movlw 169 movwf Dur#70,1 F1_001002 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[71] = 7470 movlw 29 movwf Dur#71H,1 movlw 46 movwf Dur#71,1 F1_001003 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[72] = 7350 movlw 28 movwf Dur#72H,1 movlw 182 movwf Dur#72,1 F1_001004 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[73] = 7231 movlw 28 movwf Dur#73H,1 movlw 63 movwf Dur#73,1 F1_001005 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[74] = 7115 movlw 27 movwf Dur#74H,1 movlw 203 movwf Dur#74,1 F1_001006 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[75] = 7000 movlw 27 movwf Dur#75H,1 movlw 88 movwf Dur#75,1 F1_001007 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[76] = 6888 movlw 26 movwf Dur#76H,1 movlw 232 movwf Dur#76,1 F1_001008 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[77] = 6777 movlw 26 movwf Dur#77H,1 movlw 121 movwf Dur#77,1 F1_001009 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[78] = 6667 movlw 26 movwf Dur#78H,1 movlw 11 movwf Dur#78,1 F1_001010 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[79] = 6560 movlw 25 movwf Dur#79H,1 movlw 160 movwf Dur#79,1 F1_001011 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[80] = 6454 movlw 25 movwf Dur#80H,1 movlw 54 movwf Dur#80,1 F1_001012 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[81] = 6350 movlw 24 movwf Dur#81H,1 movlw 206 movwf Dur#81,1 F1_001013 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[82] = 6248 movlw 24 movwf Dur#82H,1 movlw 104 movwf Dur#82,1 F1_001014 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[83] = 6147 movlw 24 movwf Dur#83H,1 movlw 3 movwf Dur#83,1 F1_001015 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[84] = 6048 movlw 23 movlb 5 movwf Dur#84H,1 movlw 160 movwf Dur#84,1 F1_001016 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[85] = 5951 movlw 23 movwf Dur#85H,1 movlw 63 movwf Dur#85,1 F1_001017 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[86] = 5855 movlw 22 movwf Dur#86H,1 movlw 223 movwf Dur#86,1 F1_001018 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[87] = 5760 movlw 22 movwf Dur#87H,1 movlw 128 movwf Dur#87,1 F1_001019 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[88] = 5668 movlw 22 movwf Dur#88H,1 movlw 36 movwf Dur#88,1 F1_001020 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[89] = 5576 movlw 21 movwf Dur#89H,1 movlw 200 movwf Dur#89,1 F1_001021 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[90] = 5486 movlw 21 movwf Dur#90H,1 movlw 110 movwf Dur#90,1 F1_001022 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[91] = 5398 movlw 21 movwf Dur#91H,1 movlw 22 movwf Dur#91,1 F1_001023 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[92] = 5311 movlw 20 movwf Dur#92H,1 movlw 191 movwf Dur#92,1 F1_001024 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[93] = 5225 movlw 20 movwf Dur#93H,1 movlw 105 movwf Dur#93,1 F1_001025 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[94] = 5141 movlw 20 movwf Dur#94H,1 movlw 21 movwf Dur#94,1 F1_001026 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[95] = 5058 movlw 19 movwf Dur#95H,1 movlw 194 movwf Dur#95,1 F1_001027 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[96] = 4977 movlw 19 movwf Dur#96H,1 movlw 113 movwf Dur#96,1 F1_001028 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[97] = 4897 movlw 19 movwf Dur#97H,1 movlw 33 movwf Dur#97,1 F1_001029 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[98] = 4818 movlw 18 movwf Dur#98H,1 movlw 210 movwf Dur#98,1 F1_001030 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[99] = 4740 movlw 18 movwf Dur#99H,1 movlw 132 movwf Dur#99,1 F1_001031 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[100] = 4664 movlw 18 movwf Dur#100H,1 movlw 56 movwf Dur#100,1 F1_001032 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[101] = 4589 movlw 17 movwf Dur#101H,1 movlw 237 movwf Dur#101,1 F1_001033 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[102] = 4515 movlw 17 movwf Dur#102H,1 movlw 163 movwf Dur#102,1 F1_001034 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[103] = 4442 movlw 17 movwf Dur#103H,1 movlw 90 movwf Dur#103,1 F1_001035 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[104] = 4370 movlw 17 movwf Dur#104H,1 movlw 18 movwf Dur#104,1 F1_001036 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[105] = 4300 movlw 16 movwf Dur#105H,1 movlw 204 movwf Dur#105,1 F1_001037 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[106] = 4231 movlw 16 movwf Dur#106H,1 movlw 135 movwf Dur#106,1 F1_001038 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[107] = 4162 movlw 16 movwf Dur#107H,1 movlw 66 movwf Dur#107,1 F1_001039 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[108] = 4095 movlw 15 movwf Dur#108H,1 setf Dur#108,1 F1_001040 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[109] = 4029 movwf Dur#109H,1 movlw 189 movwf Dur#109,1 F1_001041 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[110] = 3964 movlw 15 movwf Dur#110H,1 movlw 124 movwf Dur#110,1 F1_001042 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[111] = 3901 movlw 15 movwf Dur#111H,1 movlw 61 movwf Dur#111,1 F1_001043 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[112] = 3838 movlw 14 movwf Dur#112H,1 movlw 254 movwf Dur#112,1 F1_001044 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[113] = 3776 movlw 14 movwf Dur#113H,1 movlw 192 movwf Dur#113,1 F1_001045 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[114] = 3715 movlw 14 movwf Dur#114H,1 movlw 131 movwf Dur#114,1 F1_001046 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[115] = 3655 movlw 14 movwf Dur#115H,1 movlw 71 movwf Dur#115,1 F1_001047 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[116] = 3596 movlw 14 movwf Dur#116H,1 movlw 12 movwf Dur#116,1 F1_001048 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[117] = 3538 movlw 13 movwf Dur#117H,1 movlw 210 movwf Dur#117,1 F1_001049 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[118] = 3481 movlw 13 movwf Dur#118H,1 movlw 153 movwf Dur#118,1 F1_001050 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[119] = 3425 movlw 13 movwf Dur#119H,1 movlw 97 movwf Dur#119,1 F1_001051 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[120] = 3370 movlw 13 movwf Dur#120H,1 movlw 42 movwf Dur#120,1 F1_001052 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[121] = 3316 movlw 12 movwf Dur#121H,1 movlw 244 movwf Dur#121,1 F1_001053 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[122] = 3262 movlw 12 movwf Dur#122H,1 movlw 190 movwf Dur#122,1 F1_001054 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[123] = 3210 movlw 12 movwf Dur#123H,1 movlw 138 movwf Dur#123,1 F1_001055 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[124] = 3158 movlw 12 movwf Dur#124H,1 movlw 86 movwf Dur#124,1 F1_001056 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[125] = 3107 movlw 12 movwf Dur#125H,1 movlw 35 movwf Dur#125,1 F1_001057 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[126] = 3057 movlw 11 movwf Dur#126H,1 movlw 241 movwf Dur#126,1 F1_001058 equ $ ; IN [FLEX_PI_SAW.BAS] DUR[127] = 3008 movlw 11 movwf Dur#127H,1 movlw 192 movwf Dur#127,1 F1_001061 equ $ ; IN [FLEX_PI_SAW.BAS] SET DUR5[0] movlb 1 setf Dur5#0H,1 setf Dur5#0,1 F1_001062 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[1] = 41667 movlw 162 movwf Dur5#1H,1 movlw 195 movwf Dur5#1,1 F1_001063 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[2] = 39494 movlw 154 movwf Dur5#2H,1 movlw 70 movwf Dur5#2,1 F1_001064 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[3] = 38450 movlw 150 movwf Dur5#3H,1 movlw 50 movwf Dur5#3,1 F1_001065 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[4] = 37434 movlw 146 movwf Dur5#4H,1 movlw 58 movwf Dur5#4,1 F1_001066 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[5] = 36445 movlw 142 movwf Dur5#5H,1 movlw 93 movwf Dur5#5,1 F1_001067 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[6] = 35482 movlw 138 movwf Dur5#6H,1 movlw 154 movwf Dur5#6,1 F1_001068 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[7] = 34544 movlw 134 movwf Dur5#7H,1 movlw 240 movwf Dur5#7,1 F1_001069 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[8] = 33631 movlw 131 movwf Dur5#8H,1 movlw 95 movwf Dur5#8,1 F1_001070 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[9] = 32743 movlw 127 movwf Dur5#9H,1 movlw 231 movwf Dur5#9,1 F1_001071 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[10] = 31877 movlw 124 movwf Dur5#10H,1 movlw 133 movwf Dur5#10,1 F1_001072 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[11] = 31035 movlw 121 movwf Dur5#11H,1 movlw 59 movwf Dur5#11,1 F1_001073 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[12] = 30215 movlw 118 movwf Dur5#12H,1 movlw 7 movwf Dur5#12,1 F1_001074 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[13] = 29416 movlw 114 movwf Dur5#13H,1 movlw 232 movwf Dur5#13,1 F1_001075 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[14] = 28639 movlw 111 movwf Dur5#14H,1 movlw 223 movwf Dur5#14,1 F1_001076 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[15] = 27882 movlw 108 movwf Dur5#15H,1 movlw 234 movwf Dur5#15,1 F1_001077 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[16] = 27146 movlw 106 movwf Dur5#16H,1 movlw 10 movwf Dur5#16,1 F1_001078 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[17] = 26428 movlw 103 movwf Dur5#17H,1 movlw 60 movwf Dur5#17,1 F1_001079 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[18] = 25730 movlw 100 movwf Dur5#18H,1 movlw 130 movwf Dur5#18,1 F1_001080 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[19] = 25050 movlw 97 movwf Dur5#19H,1 movlw 218 movwf Dur5#19,1 F1_001081 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[20] = 24388 movlw 95 movwf Dur5#20H,1 movlw 68 movwf Dur5#20,1 F1_001082 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[21] = 23743 movlw 92 movwf Dur5#21H,1 movlw 191 movwf Dur5#21,1 F1_001083 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[22] = 23116 movlw 90 movwf Dur5#22H,1 movlw 76 movwf Dur5#22,1 F1_001084 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[23] = 22505 movlw 87 movwf Dur5#23H,1 movlw 233 movwf Dur5#23,1 F1_001085 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[24] = 21910 movlw 85 movwf Dur5#24H,1 movlw 150 movwf Dur5#24,1 F1_001086 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[25] = 21331 movlw 83 movwf Dur5#25H,1 movwf Dur5#25,1 F1_001087 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[26] = 20768 movlw 81 movwf Dur5#26H,1 movlw 32 movwf Dur5#26,1 F1_001088 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[27] = 20219 movlw 78 movwf Dur5#27H,1 movlw 251 movwf Dur5#27,1 F1_001089 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[28] = 19685 movlw 76 movwf Dur5#28H,1 movlw 229 movwf Dur5#28,1 F1_001090 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[29] = 19164 movlw 74 movwf Dur5#29H,1 movlw 220 movwf Dur5#29,1 F1_001091 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[30] = 18658 movlw 72 movwf Dur5#30H,1 movlw 226 movwf Dur5#30,1 F1_001092 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[31] = 18165 movlw 70 movwf Dur5#31H,1 movlw 245 movwf Dur5#31,1 F1_001093 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[32] = 17685 movlw 69 movwf Dur5#32H,1 movlw 21 movwf Dur5#32,1 F1_001094 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[33] = 17218 movlw 67 movwf Dur5#33H,1 movlw 66 movwf Dur5#33,1 F1_001095 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[34] = 16763 movlw 65 movwf Dur5#34H,1 movlw 123 movwf Dur5#34,1 F1_001096 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[35] = 16320 movlw 63 movwf Dur5#35H,1 movlw 192 movwf Dur5#35,1 F1_001097 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[36] = 15888 movlw 62 movwf Dur5#36H,1 movlw 16 movwf Dur5#36,1 F1_001098 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[37] = 15469 movlw 60 movwf Dur5#37H,1 movlw 109 movwf Dur5#37,1 F1_001099 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[38] = 15060 movlw 58 movwf Dur5#38H,1 movlw 212 movwf Dur5#38,1 F1_001100 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[39] = 14662 movlw 57 movwf Dur5#39H,1 movlw 70 movwf Dur5#39,1 F1_001101 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[40] = 14274 movlw 55 movwf Dur5#40H,1 movlw 194 movwf Dur5#40,1 F1_001102 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[41] = 13897 movlw 54 movwf Dur5#41H,1 movlw 73 movwf Dur5#41,1 F1_001103 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[42] = 13530 movlw 52 movwf Dur5#42H,1 movlw 218 movwf Dur5#42,1 F1_001104 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[43] = 13172 movlw 51 movwf Dur5#43H,1 movlw 116 movwf Dur5#43,1 F1_001105 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[44] = 12824 movlw 50 movwf Dur5#44H,1 movlw 24 movwf Dur5#44,1 F1_001106 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[45] = 12485 movlw 48 movwf Dur5#45H,1 movlw 197 movwf Dur5#45,1 F1_001107 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[46] = 12155 movlw 47 movwf Dur5#46H,1 movlw 123 movwf Dur5#46,1 F1_001108 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[47] = 11834 movlw 46 movwf Dur5#47H,1 movlw 58 movwf Dur5#47,1 F1_001109 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[48] = 11522 movlw 45 movwf Dur5#48H,1 movlw 2 movwf Dur5#48,1 F1_001110 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[49] = 11217 movlw 43 movwf Dur5#49H,1 movlw 209 movwf Dur5#49,1 F1_001111 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[50] = 10921 movlw 42 movwf Dur5#50H,1 movlw 169 movwf Dur5#50,1 F1_001112 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[51] = 10632 movlw 41 movwf Dur5#51H,1 movlw 136 movwf Dur5#51,1 F1_001113 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[52] = 10351 movlw 40 movwf Dur5#52H,1 movlw 111 movwf Dur5#52,1 F1_001114 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[53] = 10078 movlw 39 movwf Dur5#53H,1 movlw 94 movwf Dur5#53,1 F1_001115 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[54] = 9811 movlw 38 movwf Dur5#54H,1 movlw 83 movwf Dur5#54,1 F1_001116 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[55] = 9552 movlw 37 movwf Dur5#55H,1 movlw 80 movwf Dur5#55,1 F1_001117 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[56] = 9300 movlw 36 movwf Dur5#56H,1 movlw 84 movwf Dur5#56,1 F1_001118 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[57] = 9054 movlw 35 movwf Dur5#57H,1 movlw 94 movwf Dur5#57,1 F1_001119 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[58] = 8815 movlw 34 movwf Dur5#58H,1 movlw 111 movwf Dur5#58,1 F1_001120 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[59] = 8582 movlw 33 movwf Dur5#59H,1 movlw 134 movwf Dur5#59,1 F1_001121 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[60] = 8355 movlw 32 movwf Dur5#60H,1 movlw 163 movwf Dur5#60,1 F1_001122 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[61] = 8134 movlw 31 movwf Dur5#61H,1 movlw 198 movwf Dur5#61,1 F1_001123 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[62] = 7919 movlw 30 movwf Dur5#62H,1 movlw 239 movwf Dur5#62,1 F1_001124 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[63] = 7710 movlw 30 movwf Dur5#63H,1 movwf Dur5#63,1 F1_001125 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[64] = 7506 movlw 29 movwf Dur5#64H,1 movlw 82 movwf Dur5#64,1 F1_001126 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[65] = 7308 movlw 28 movwf Dur5#65H,1 movlw 140 movwf Dur5#65,1 F1_001127 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[66] = 7115 movlw 27 movwf Dur5#66H,1 movlw 203 movwf Dur5#66,1 F1_001128 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[67] = 6927 movlw 27 movwf Dur5#67H,1 movlw 15 movwf Dur5#67,1 F1_001129 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[68] = 6744 movlw 26 movwf Dur5#68H,1 movlw 88 movwf Dur5#68,1 F1_001130 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[69] = 6565 movlw 25 movwf Dur5#69H,1 movlw 165 movwf Dur5#69,1 F1_001131 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[70] = 6392 movlw 24 movwf Dur5#70H,1 movlw 248 movwf Dur5#70,1 F1_001132 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[71] = 6223 movlw 24 movwf Dur5#71H,1 movlw 79 movwf Dur5#71,1 F1_001133 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[72] = 6059 movlw 23 movwf Dur5#72H,1 movlw 171 movwf Dur5#72,1 F1_001134 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[73] = 5898 movlw 23 movwf Dur5#73H,1 movlw 10 movwf Dur5#73,1 F1_001135 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[74] = 5743 movlw 22 movwf Dur5#74H,1 movlw 111 movwf Dur5#74,1 F1_001136 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[75] = 5591 movlw 21 movwf Dur5#75H,1 movlw 215 movwf Dur5#75,1 F1_001137 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[76] = 5443 movlw 21 movwf Dur5#76H,1 movlw 67 movwf Dur5#76,1 F1_001138 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[77] = 5299 movlw 20 movwf Dur5#77H,1 movlw 179 movwf Dur5#77,1 F1_001139 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[78] = 5159 movlw 20 movwf Dur5#78H,1 movlw 39 movwf Dur5#78,1 F1_001140 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[79] = 5023 movlw 19 movwf Dur5#79H,1 movlw 159 movwf Dur5#79,1 F1_001141 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[80] = 4890 movlw 19 movwf Dur5#80H,1 movlw 26 movwf Dur5#80,1 F1_001142 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[81] = 4761 movlw 18 movwf Dur5#81H,1 movlw 153 movwf Dur5#81,1 F1_001143 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[82] = 4635 movlw 18 movwf Dur5#82H,1 movlw 27 movwf Dur5#82,1 F1_001144 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[83] = 4513 movlw 17 movwf Dur5#83H,1 movlw 161 movwf Dur5#83,1 F1_001145 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[84] = 4393 movlw 17 movwf Dur5#84H,1 movlw 41 movwf Dur5#84,1 F1_001146 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[85] = 4277 movlw 16 movwf Dur5#85H,1 movlw 181 movwf Dur5#85,1 F1_001147 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[86] = 4164 movlw 16 movwf Dur5#86H,1 movlw 68 movwf Dur5#86,1 F1_001148 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[87] = 4054 movlw 15 movwf Dur5#87H,1 movlw 214 movwf Dur5#87,1 F1_001149 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[88] = 3947 movlw 15 movwf Dur5#88H,1 movlw 107 movwf Dur5#88,1 F1_001150 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[89] = 3843 movlw 15 movwf Dur5#89H,1 movlw 3 movwf Dur5#89,1 F1_001151 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[90] = 3741 movlw 14 movlb 2 movwf Dur5#90H,1 movlw 157 movwf Dur5#90,1 F1_001152 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[91] = 3642 movlw 14 movwf Dur5#91H,1 movlw 58 movwf Dur5#91,1 F1_001153 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[92] = 3546 movlw 13 movwf Dur5#92H,1 movlw 218 movwf Dur5#92,1 F1_001154 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[93] = 3452 movlw 13 movwf Dur5#93H,1 movlw 124 movwf Dur5#93,1 F1_001155 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[94] = 3361 movlw 13 movwf Dur5#94H,1 movlw 33 movwf Dur5#94,1 F1_001156 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[95] = 3272 movlw 12 movwf Dur5#95H,1 movlw 200 movwf Dur5#95,1 F1_001157 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[96] = 3186 movlw 12 movwf Dur5#96H,1 movlw 114 movwf Dur5#96,1 F1_001158 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[97] = 3102 movlw 12 movwf Dur5#97H,1 movlw 30 movwf Dur5#97,1 F1_001159 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[98] = 3020 movlw 11 movwf Dur5#98H,1 movlw 204 movwf Dur5#98,1 F1_001160 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[99] = 2940 movlw 11 movwf Dur5#99H,1 movlw 124 movwf Dur5#99,1 F1_001161 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[100] = 2862 movlw 11 movwf Dur5#100H,1 movlw 46 movwf Dur5#100,1 F1_001162 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[101] = 2787 movlw 10 movwf Dur5#101H,1 movlw 227 movwf Dur5#101,1 F1_001163 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[102] = 2713 movlw 10 movwf Dur5#102H,1 movlw 153 movwf Dur5#102,1 F1_001164 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[103] = 2641 movlw 10 movwf Dur5#103H,1 movlw 81 movwf Dur5#103,1 F1_001165 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[104] = 2571 movlw 10 movwf Dur5#104H,1 movlw 11 movwf Dur5#104,1 F1_001166 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[105] = 2504 movlw 9 movwf Dur5#105H,1 movlw 200 movwf Dur5#105,1 F1_001167 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[106] = 2437 movlw 9 movwf Dur5#106H,1 movlw 133 movwf Dur5#106,1 F1_001168 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[107] = 2373 movlw 9 movwf Dur5#107H,1 movlw 69 movwf Dur5#107,1 F1_001169 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[108] = 2310 movlw 9 movwf Dur5#108H,1 movlw 6 movwf Dur5#108,1 F1_001170 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[109] = 2249 movlw 8 movwf Dur5#109H,1 movlw 201 movwf Dur5#109,1 F1_001171 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[110] = 2190 movlw 8 movwf Dur5#110H,1 movlw 142 movwf Dur5#110,1 F1_001172 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[111] = 2132 movlw 8 movwf Dur5#111H,1 movlw 84 movwf Dur5#111,1 F1_001173 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[112] = 2076 movlw 8 movwf Dur5#112H,1 movlw 28 movwf Dur5#112,1 F1_001174 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[113] = 2021 movlw 7 movwf Dur5#113H,1 movlw 229 movwf Dur5#113,1 F1_001175 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[114] = 1967 movlw 7 movwf Dur5#114H,1 movlw 175 movwf Dur5#114,1 F1_001176 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[115] = 1915 movlw 7 movwf Dur5#115H,1 movlw 123 movwf Dur5#115,1 F1_001177 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[116] = 1865 movlw 7 movwf Dur5#116H,1 movlw 73 movwf Dur5#116,1 F1_001178 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[117] = 1815 movlw 7 movwf Dur5#117H,1 movlw 23 movwf Dur5#117,1 F1_001179 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[118] = 1767 movlw 6 movwf Dur5#118H,1 movlw 231 movwf Dur5#118,1 F1_001180 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[119] = 1721 movlw 6 movwf Dur5#119H,1 movlw 185 movwf Dur5#119,1 F1_001181 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[120] = 1675 movlw 6 movwf Dur5#120H,1 movlw 139 movwf Dur5#120,1 F1_001182 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[121] = 1631 movlw 6 movwf Dur5#121H,1 movlw 95 movwf Dur5#121,1 F1_001183 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[122] = 1588 movlw 6 movwf Dur5#122H,1 movlw 52 movwf Dur5#122,1 F1_001184 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[123] = 1546 movlw 6 movwf Dur5#123H,1 movlw 10 movwf Dur5#123,1 F1_001185 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[124] = 1505 movlw 5 movwf Dur5#124H,1 movlw 225 movwf Dur5#124,1 F1_001186 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[125] = 1465 movlw 5 movwf Dur5#125H,1 movlw 185 movwf Dur5#125,1 F1_001187 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[126] = 1427 movlw 5 movwf Dur5#126H,1 movlw 147 movwf Dur5#126,1 F1_001188 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[127] = 1389 movlw 5 movwf Dur5#127H,1 movlw 109 movwf Dur5#127,1 F1_001189 equ $ ; IN [FLEX_PI_SAW.BAS] FOR I = 0 TO 127 clrf _I,0 _FRLB__276 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__277 F1_001190 equ $ ; IN [FLEX_PI_SAW.BAS] DUR5[I] = DUR5[I] >> 3 lfsr 0,Dur5 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H rrcf PBP#VAR1H,W,0 movwf PBP#VAR0H,0 rrcf PBP#VAR1,W,0 movwf PBP#VAR0,0 rrcf PBP#VAR0H,F,0 rrcf PBP#VAR0,F,0 rrcf PBP#VAR0H,F,0 rrcf PBP#VAR0,F,0 movlw 31 andwf PBP#VAR0H,F,0 lfsr 0,Dur5 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__278 F1_001191 equ $ ; IN [FLEX_PI_SAW.BAS] NEXT I incf _I,F,0 bnc _FRLB__276 _NXLB__277 F1_001192 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN return 0 Vels_Lookup F1_001197 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[1] = 1160 movlw 4 movlb 3 movwf Vels#1H,1 movlw 136 movwf Vels#1,1 F1_001198 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[2] = 1190 movlw 4 movwf Vels#2H,1 movlw 166 movwf Vels#2,1 F1_001199 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[3] = 1206 movlw 4 movwf Vels#3H,1 movlw 182 movwf Vels#3,1 F1_001200 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[4] = 1222 movlw 4 movwf Vels#4H,1 movlw 198 movwf Vels#4,1 F1_001201 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[5] = 1238 movlw 4 movwf Vels#5H,1 movlw 214 movwf Vels#5,1 F1_001202 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[6] = 1254 movlw 4 movwf Vels#6H,1 movlw 230 movwf Vels#6,1 F1_001203 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[7] = 1270 movlw 4 movwf Vels#7H,1 movlw 246 movwf Vels#7,1 F1_001204 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[8] = 1287 movlw 5 movwf Vels#8H,1 movlw 7 movwf Vels#8,1 F1_001205 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[9] = 1303 movlw 5 movwf Vels#9H,1 movlw 23 movwf Vels#9,1 F1_001206 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[10] = 1320 movlw 5 movwf Vels#10H,1 movlw 40 movwf Vels#10,1 F1_001207 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[11] = 1337 movlw 5 movwf Vels#11H,1 movlw 57 movwf Vels#11,1 F1_001208 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[12] = 1355 movlw 5 movwf Vels#12H,1 movlw 75 movwf Vels#12,1 F1_001209 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[13] = 1373 movlw 5 movwf Vels#13H,1 movlw 93 movwf Vels#13,1 F1_001210 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[14] = 1390 movlw 5 movwf Vels#14H,1 movlw 110 movwf Vels#14,1 F1_001211 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[15] = 1408 movlw 5 movwf Vels#15H,1 movlw 128 movwf Vels#15,1 F1_001212 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[16] = 1427 movlw 5 movwf Vels#16H,1 movlw 147 movwf Vels#16,1 F1_001213 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[17] = 1445 movlw 5 movwf Vels#17H,1 movlw 165 movwf Vels#17,1 F1_001214 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[18] = 1464 movlw 5 movwf Vels#18H,1 movlw 184 movwf Vels#18,1 F1_001215 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[19] = 1483 movlw 5 movwf Vels#19H,1 movlw 203 movwf Vels#19,1 F1_001216 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[20] = 1503 movlw 5 movwf Vels#20H,1 movlw 223 movwf Vels#20,1 F1_001217 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[21] = 1522 movlw 5 movwf Vels#21H,1 movlw 242 movwf Vels#21,1 F1_001218 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[22] = 1542 movlw 6 movwf Vels#22H,1 movwf Vels#22,1 F1_001219 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[23] = 1562 movwf Vels#23H,1 movlw 26 movwf Vels#23,1 F1_001220 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[24] = 1582 movlw 6 movwf Vels#24H,1 movlw 46 movwf Vels#24,1 F1_001221 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[25] = 1603 movlw 6 movwf Vels#25H,1 movlw 67 movwf Vels#25,1 F1_001222 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[26] = 1624 movlw 6 movwf Vels#26H,1 movlw 88 movwf Vels#26,1 F1_001223 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[27] = 1645 movlw 6 movwf Vels#27H,1 movlw 109 movwf Vels#27,1 F1_001224 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[28] = 1667 movlw 6 movwf Vels#28H,1 movlw 131 movwf Vels#28,1 F1_001225 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[29] = 1688 movlw 6 movwf Vels#29H,1 movlw 152 movwf Vels#29,1 F1_001226 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[30] = 1710 movlw 6 movwf Vels#30H,1 movlw 174 movwf Vels#30,1 F1_001227 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[31] = 1732 movlw 6 movwf Vels#31H,1 movlw 196 movwf Vels#31,1 F1_001228 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[32] = 1755 movlw 6 movwf Vels#32H,1 movlw 219 movwf Vels#32,1 F1_001229 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[33] = 1778 movlw 6 movwf Vels#33H,1 movlw 242 movwf Vels#33,1 F1_001230 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[34] = 1801 movlw 7 movwf Vels#34H,1 movlw 9 movwf Vels#34,1 F1_001231 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[35] = 1825 movlw 7 movwf Vels#35H,1 movlw 33 movwf Vels#35,1 F1_001232 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[36] = 1848 movlw 7 movwf Vels#36H,1 movlw 56 movwf Vels#36,1 F1_001233 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[37] = 1872 movlw 7 movwf Vels#37H,1 movlw 80 movwf Vels#37,1 F1_001234 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[38] = 1897 movlw 7 movwf Vels#38H,1 movlw 105 movwf Vels#38,1 F1_001235 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[39] = 1921 movlw 7 movwf Vels#39H,1 movlw 129 movwf Vels#39,1 F1_001236 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[40] = 1946 movlw 7 movwf Vels#40H,1 movlw 154 movwf Vels#40,1 F1_001237 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[41] = 1972 movlw 7 movwf Vels#41H,1 movlw 180 movwf Vels#41,1 F1_001238 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[42] = 1997 movlw 7 movwf Vels#42H,1 movlw 205 movwf Vels#42,1 F1_001239 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[43] = 2023 movlw 7 movwf Vels#43H,1 movlw 231 movwf Vels#43,1 F1_001240 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[44] = 2050 movlw 8 movwf Vels#44H,1 movlw 2 movwf Vels#44,1 F1_001241 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[45] = 2077 movlw 8 movwf Vels#45H,1 movlw 29 movwf Vels#45,1 F1_001242 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[46] = 2104 movlw 8 movwf Vels#46H,1 movlw 56 movwf Vels#46,1 F1_001243 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[47] = 2131 movlw 8 movwf Vels#47H,1 movlw 83 movwf Vels#47,1 F1_001244 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[48] = 2159 movlw 8 movwf Vels#48H,1 movlw 111 movwf Vels#48,1 F1_001245 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[49] = 2187 movlw 8 movwf Vels#49H,1 movlw 139 movwf Vels#49,1 F1_001246 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[50] = 2215 movlw 8 movwf Vels#50H,1 movlw 167 movwf Vels#50,1 F1_001247 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[51] = 2244 movlw 8 movwf Vels#51H,1 movlw 196 movwf Vels#51,1 F1_001248 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[52] = 2273 movlw 8 movwf Vels#52H,1 movlw 225 movwf Vels#52,1 F1_001249 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[53] = 2303 movlw 8 movwf Vels#53H,1 setf Vels#53,1 F1_001250 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[54] = 2333 movlw 9 movwf Vels#54H,1 movlw 29 movwf Vels#54,1 F1_001251 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[55] = 2363 movlw 9 movwf Vels#55H,1 movlw 59 movwf Vels#55,1 F1_001252 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[56] = 2394 movlw 9 movwf Vels#56H,1 movlw 90 movwf Vels#56,1 F1_001253 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[57] = 2425 movlw 9 movwf Vels#57H,1 movlw 121 movwf Vels#57,1 F1_001254 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[58] = 2457 movlw 9 movwf Vels#58H,1 movlw 153 movwf Vels#58,1 F1_001255 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[59] = 2489 movlw 9 movwf Vels#59H,1 movlw 185 movwf Vels#59,1 F1_001256 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[60] = 2521 movlw 9 movwf Vels#60H,1 movlw 217 movwf Vels#60,1 F1_001257 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[61] = 2554 movlw 9 movwf Vels#61H,1 movlw 250 movwf Vels#61,1 F1_001258 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[62] = 2587 movlw 10 movwf Vels#62H,1 movlw 27 movwf Vels#62,1 F1_001259 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[63] = 2621 movlw 10 movwf Vels#63H,1 movlw 61 movwf Vels#63,1 F1_001260 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[64] = 2655 movlw 10 movwf Vels#64H,1 movlw 95 movwf Vels#64,1 F1_001261 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[65] = 2690 movlw 10 movwf Vels#65H,1 movlw 130 movwf Vels#65,1 F1_001262 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[66] = 2725 movlw 10 movwf Vels#66H,1 movlw 165 movwf Vels#66,1 F1_001263 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[67] = 2760 movlw 10 movwf Vels#67H,1 movlw 200 movwf Vels#67,1 F1_001264 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[68] = 2796 movlw 10 movwf Vels#68H,1 movlw 236 movwf Vels#68,1 F1_001265 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[69] = 2833 movlw 11 movwf Vels#69H,1 movlw 17 movwf Vels#69,1 F1_001266 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[70] = 2870 movlw 11 movwf Vels#70H,1 movlw 54 movwf Vels#70,1 F1_001267 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[71] = 2907 movlw 11 movwf Vels#71H,1 movlw 91 movwf Vels#71,1 F1_001268 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[72] = 2945 movlw 11 movwf Vels#72H,1 movlw 129 movwf Vels#72,1 F1_001269 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[73] = 2983 movlw 11 movwf Vels#73H,1 movlw 167 movwf Vels#73,1 F1_001270 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[74] = 3022 movlw 11 movwf Vels#74H,1 movlw 206 movwf Vels#74,1 F1_001271 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[75] = 3061 movlw 11 movwf Vels#75H,1 movlw 245 movwf Vels#75,1 F1_001272 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[76] = 3101 movlw 12 movwf Vels#76H,1 movlw 29 movwf Vels#76,1 F1_001273 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[77] = 3142 movlw 12 movwf Vels#77H,1 movlw 70 movwf Vels#77,1 F1_001274 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[78] = 3183 movlw 12 movwf Vels#78H,1 movlw 111 movwf Vels#78,1 F1_001275 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[79] = 3224 movlw 12 movwf Vels#79H,1 movlw 152 movwf Vels#79,1 F1_001276 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[80] = 3266 movlw 12 movwf Vels#80H,1 movlw 194 movwf Vels#80,1 F1_001277 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[81] = 3309 movlw 12 movwf Vels#81H,1 movlw 237 movwf Vels#81,1 F1_001278 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[82] = 3352 movlw 13 movwf Vels#82H,1 movlw 24 movwf Vels#82,1 F1_001279 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[83] = 3395 movlw 13 movwf Vels#83H,1 movlw 67 movwf Vels#83,1 F1_001280 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[84] = 3440 movlw 13 movlb 4 movwf Vels#84H,1 movlw 112 movwf Vels#84,1 F1_001281 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[85] = 3484 movlw 13 movwf Vels#85H,1 movlw 156 movwf Vels#85,1 F1_001282 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[86] = 3530 movlw 13 movwf Vels#86H,1 movlw 202 movwf Vels#86,1 F1_001283 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[87] = 3576 movlw 13 movwf Vels#87H,1 movlw 248 movwf Vels#87,1 F1_001284 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[88] = 3622 movlw 14 movwf Vels#88H,1 movlw 38 movwf Vels#88,1 F1_001285 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[89] = 3669 movlw 14 movwf Vels#89H,1 movlw 85 movwf Vels#89,1 F1_001286 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[90] = 3717 movlw 14 movwf Vels#90H,1 movlw 133 movwf Vels#90,1 F1_001287 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[91] = 3766 movlw 14 movwf Vels#91H,1 movlw 182 movwf Vels#91,1 F1_001288 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[92] = 3815 movlw 14 movwf Vels#92H,1 movlw 231 movwf Vels#92,1 F1_001289 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[93] = 3864 movlw 15 movwf Vels#93H,1 movlw 24 movwf Vels#93,1 F1_001290 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[94] = 3915 movlw 15 movwf Vels#94H,1 movlw 75 movwf Vels#94,1 F1_001291 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[95] = 3966 movlw 15 movwf Vels#95H,1 movlw 126 movwf Vels#95,1 F1_001292 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[96] = 4017 movlw 15 movwf Vels#96H,1 movlw 177 movwf Vels#96,1 F1_001293 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[97] = 4070 movlw 15 movwf Vels#97H,1 movlw 230 movwf Vels#97,1 F1_001294 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[98] = 4123 movlw 16 movwf Vels#98H,1 movlw 27 movwf Vels#98,1 F1_001295 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[99] = 4176 movlw 16 movwf Vels#99H,1 movlw 80 movwf Vels#99,1 F1_001296 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[100] = 4231 movlw 16 movwf Vels#100H,1 movlw 135 movwf Vels#100,1 F1_001297 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[101] = 4286 movlw 16 movwf Vels#101H,1 movlw 190 movwf Vels#101,1 F1_001298 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[102] = 4342 movlw 16 movwf Vels#102H,1 movlw 246 movwf Vels#102,1 F1_001299 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[103] = 4398 movlw 17 movwf Vels#103H,1 movlw 46 movwf Vels#103,1 F1_001300 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[104] = 4456 movlw 17 movwf Vels#104H,1 movlw 104 movwf Vels#104,1 F1_001301 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[105] = 4514 movlw 17 movwf Vels#105H,1 movlw 162 movwf Vels#105,1 F1_001302 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[106] = 4572 movlw 17 movwf Vels#106H,1 movlw 220 movwf Vels#106,1 F1_001303 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[107] = 4632 movlw 18 movwf Vels#107H,1 movlw 24 movwf Vels#107,1 F1_001304 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[108] = 4692 movlw 18 movwf Vels#108H,1 movlw 84 movwf Vels#108,1 F1_001305 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[109] = 4753 movlw 18 movwf Vels#109H,1 movlw 145 movwf Vels#109,1 F1_001306 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[110] = 4815 movlw 18 movwf Vels#110H,1 movlw 207 movwf Vels#110,1 F1_001307 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[111] = 4878 movlw 19 movwf Vels#111H,1 movlw 14 movwf Vels#111,1 F1_001308 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[112] = 4941 movlw 19 movwf Vels#112H,1 movlw 77 movwf Vels#112,1 F1_001309 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[113] = 5006 movlw 19 movwf Vels#113H,1 movlw 142 movwf Vels#113,1 F1_001310 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[114] = 5071 movlw 19 movwf Vels#114H,1 movlw 207 movwf Vels#114,1 F1_001311 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[115] = 5137 movlw 20 movwf Vels#115H,1 movlw 17 movwf Vels#115,1 F1_001312 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[116] = 5204 movlw 20 movwf Vels#116H,1 movlw 84 movwf Vels#116,1 F1_001313 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[117] = 5272 movlw 20 movwf Vels#117H,1 movlw 152 movwf Vels#117,1 F1_001314 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[118] = 5340 movlw 20 movwf Vels#118H,1 movlw 220 movwf Vels#118,1 F1_001315 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[119] = 5410 movlw 21 movwf Vels#119H,1 movlw 34 movwf Vels#119,1 F1_001316 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[120] = 5480 movlw 21 movwf Vels#120H,1 movlw 104 movwf Vels#120,1 F1_001317 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[121] = 5552 movlw 21 movwf Vels#121H,1 movlw 176 movwf Vels#121,1 F1_001318 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[122] = 5624 movlw 21 movwf Vels#122H,1 movlw 248 movwf Vels#122,1 F1_001319 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[123] = 5697 movlw 22 movwf Vels#123H,1 movlw 65 movwf Vels#123,1 F1_001320 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[124] = 5772 movlw 22 movwf Vels#124H,1 movlw 140 movwf Vels#124,1 F1_001321 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[125] = 5847 movlw 22 movwf Vels#125H,1 movlw 215 movwf Vels#125,1 F1_001322 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[126] = 5923 movlw 23 movwf Vels#126H,1 movlw 35 movwf Vels#126,1 F1_001323 equ $ ; IN [FLEX_PI_SAW.BAS] VELS[127] = 6000 movlw 23 movwf Vels#127H,1 movlw 112 movwf Vels#127,1 F1_001324 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN movlb 0 return 0 Freq_Lookup F1_001330 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[0] = 64285 movlw 251 movlb 2 movwf Freqs#0H,1 movlw 29 movwf Freqs#0,1 F1_001331 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[1] = 64294 movlw 251 movwf Freqs#1H,1 movlw 38 movwf Freqs#1,1 F1_001332 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[2] = 64303 movlw 251 movwf Freqs#2H,1 movlw 47 movwf Freqs#2,1 F1_001333 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[3] = 64311 movlw 251 movwf Freqs#3H,1 movlw 55 movwf Freqs#3,1 F1_001334 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[4] = 64320 movlw 251 movwf Freqs#4H,1 movlw 64 movwf Freqs#4,1 F1_001335 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[5] = 64329 movlw 251 movwf Freqs#5H,1 movlw 73 movwf Freqs#5,1 F1_001336 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[6] = 64338 movlw 251 movwf Freqs#6H,1 movlw 82 movwf Freqs#6,1 F1_001337 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[7] = 64347 movlw 251 movwf Freqs#7H,1 movlw 91 movwf Freqs#7,1 F1_001338 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[8] = 64355 movlw 251 movwf Freqs#8H,1 movlw 99 movwf Freqs#8,1 F1_001339 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[9] = 64364 movlw 251 movwf Freqs#9H,1 movlw 108 movwf Freqs#9,1 F1_001340 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[10] = 64373 movlw 251 movwf Freqs#10H,1 movlw 117 movwf Freqs#10,1 F1_001341 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[11] = 64382 movlw 251 movwf Freqs#11H,1 movlw 126 movwf Freqs#11,1 F1_001342 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[12] = 64390 movlw 251 movwf Freqs#12H,1 movlw 134 movwf Freqs#12,1 F1_001343 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[13] = 64399 movlw 251 movwf Freqs#13H,1 movlw 143 movwf Freqs#13,1 F1_001344 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[14] = 64408 movlw 251 movwf Freqs#14H,1 movlw 152 movwf Freqs#14,1 F1_001345 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[15] = 64417 movlw 251 movwf Freqs#15H,1 movlw 161 movwf Freqs#15,1 F1_001346 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[16] = 64426 movlw 251 movwf Freqs#16H,1 movlw 170 movwf Freqs#16,1 F1_001347 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[17] = 64434 movlw 251 movwf Freqs#17H,1 movlw 178 movwf Freqs#17,1 F1_001348 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[18] = 64443 movlw 251 movwf Freqs#18H,1 movlw 187 movwf Freqs#18,1 F1_001349 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[19] = 64452 movlw 251 movwf Freqs#19H,1 movlw 196 movwf Freqs#19,1 F1_001350 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[20] = 64461 movlw 251 movwf Freqs#20H,1 movlw 205 movwf Freqs#20,1 F1_001351 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[21] = 64470 movlw 251 movwf Freqs#21H,1 movlw 214 movwf Freqs#21,1 F1_001352 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[22] = 64478 movlw 251 movwf Freqs#22H,1 movlw 222 movwf Freqs#22,1 F1_001353 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[23] = 64487 movlw 251 movwf Freqs#23H,1 movlw 231 movwf Freqs#23,1 F1_001354 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[24] = 64496 movlw 251 movwf Freqs#24H,1 movlw 240 movwf Freqs#24,1 F1_001355 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[25] = 64505 movlw 251 movwf Freqs#25H,1 movlw 249 movwf Freqs#25,1 F1_001356 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[26] = 64514 movlw 252 movwf Freqs#26H,1 movlw 2 movwf Freqs#26,1 F1_001357 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[27] = 64522 movlw 252 movwf Freqs#27H,1 movlw 10 movwf Freqs#27,1 F1_001358 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[28] = 64531 movlw 252 movwf Freqs#28H,1 movlw 19 movwf Freqs#28,1 F1_001359 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[29] = 64540 movlw 252 movwf Freqs#29H,1 movlw 28 movwf Freqs#29,1 F1_001360 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[30] = 64549 movlw 252 movwf Freqs#30H,1 movlw 37 movwf Freqs#30,1 F1_001361 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[31] = 64557 movlw 252 movwf Freqs#31H,1 movlw 45 movwf Freqs#31,1 F1_001362 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[32] = 64566 movlw 252 movwf Freqs#32H,1 movlw 54 movwf Freqs#32,1 F1_001363 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[33] = 64575 movlw 252 movwf Freqs#33H,1 movlw 63 movwf Freqs#33,1 F1_001364 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[34] = 64584 movlw 252 movwf Freqs#34H,1 movlw 72 movwf Freqs#34,1 F1_001365 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[35] = 64593 movlw 252 movwf Freqs#35H,1 movlw 81 movwf Freqs#35,1 F1_001366 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[36] = 64601 movlw 252 movwf Freqs#36H,1 movlw 89 movwf Freqs#36,1 F1_001367 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[37] = 64610 movlw 252 movwf Freqs#37H,1 movlw 98 movwf Freqs#37,1 F1_001368 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[38] = 64619 movlw 252 movwf Freqs#38H,1 movlw 107 movwf Freqs#38,1 F1_001369 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[39] = 64628 movlw 252 movwf Freqs#39H,1 movlw 116 movwf Freqs#39,1 F1_001370 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[40] = 64637 movlw 252 movwf Freqs#40H,1 movlw 125 movwf Freqs#40,1 F1_001371 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[41] = 64645 movlw 252 movwf Freqs#41H,1 movlw 133 movwf Freqs#41,1 F1_001372 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[42] = 64654 movlw 252 movwf Freqs#42H,1 movlw 142 movwf Freqs#42,1 F1_001373 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[43] = 64663 movlw 252 movwf Freqs#43H,1 movlw 151 movwf Freqs#43,1 F1_001374 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[44] = 64672 movlw 252 movwf Freqs#44H,1 movlw 160 movwf Freqs#44,1 F1_001375 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[45] = 64681 movlw 252 movwf Freqs#45H,1 movlw 169 movwf Freqs#45,1 F1_001376 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[46] = 64689 movlw 252 movwf Freqs#46H,1 movlw 177 movwf Freqs#46,1 F1_001377 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[47] = 64698 movlw 252 movwf Freqs#47H,1 movlw 186 movwf Freqs#47,1 F1_001378 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[48] = 64707 movlw 252 movwf Freqs#48H,1 movlw 195 movwf Freqs#48,1 F1_001379 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[49] = 64716 movlw 252 movwf Freqs#49H,1 movlw 204 movwf Freqs#49,1 F1_001380 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[50] = 64724 movlw 252 movwf Freqs#50H,1 movlw 212 movwf Freqs#50,1 F1_001381 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[51] = 64733 movlw 252 movwf Freqs#51H,1 movlw 221 movwf Freqs#51,1 F1_001382 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[52] = 64742 movlw 252 movwf Freqs#52H,1 movlw 230 movwf Freqs#52,1 F1_001383 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[53] = 64751 movlw 252 movwf Freqs#53H,1 movlw 239 movwf Freqs#53,1 F1_001384 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[54] = 64760 movlw 252 movwf Freqs#54H,1 movlw 248 movwf Freqs#54,1 F1_001385 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[55] = 64768 movlw 253 movwf Freqs#55H,1 clrf Freqs#55,1 F1_001386 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[56] = 64777 movwf Freqs#56H,1 movlw 9 movwf Freqs#56,1 F1_001387 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[57] = 64786 movlw 253 movwf Freqs#57H,1 movlw 18 movwf Freqs#57,1 F1_001388 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[58] = 64795 movlw 253 movwf Freqs#58H,1 movlw 27 movwf Freqs#58,1 F1_001389 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[59] = 64804 movlw 253 movwf Freqs#59H,1 movlw 36 movwf Freqs#59,1 F1_001390 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[60] = 64812 movlw 253 movwf Freqs#60H,1 movlw 44 movwf Freqs#60,1 F1_001391 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[61] = 64821 movlw 253 movwf Freqs#61H,1 movlw 53 movwf Freqs#61,1 F1_001392 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[62] = 64830 movlw 253 movwf Freqs#62H,1 movlw 62 movwf Freqs#62,1 F1_001393 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[63] = 64839 movlw 253 movwf Freqs#63H,1 movlw 71 movwf Freqs#63,1 F1_001394 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[64] = 64848 movlw 253 movwf Freqs#64H,1 movlw 80 movwf Freqs#64,1 F1_001395 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[65] = 64856 movlw 253 movwf Freqs#65H,1 movlw 88 movwf Freqs#65,1 F1_001396 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[66] = 64865 movlw 253 movwf Freqs#66H,1 movlw 97 movwf Freqs#66,1 F1_001397 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[67] = 64874 movlw 253 movwf Freqs#67H,1 movlw 106 movwf Freqs#67,1 F1_001398 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[68] = 64883 movlw 253 movwf Freqs#68H,1 movlw 115 movwf Freqs#68,1 F1_001399 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[69] = 64891 movlw 253 movwf Freqs#69H,1 movlw 123 movwf Freqs#69,1 F1_001400 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[70] = 64900 movlw 253 movwf Freqs#70H,1 movlw 132 movwf Freqs#70,1 F1_001401 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[71] = 64909 movlw 253 movwf Freqs#71H,1 movlw 141 movwf Freqs#71,1 F1_001402 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[72] = 64918 movlw 253 movwf Freqs#72H,1 movlw 150 movwf Freqs#72,1 F1_001403 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[73] = 64927 movlw 253 movwf Freqs#73H,1 movlw 159 movwf Freqs#73,1 F1_001404 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[74] = 64935 movlw 253 movwf Freqs#74H,1 movlw 167 movwf Freqs#74,1 F1_001405 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[75] = 64944 movlw 253 movwf Freqs#75H,1 movlw 176 movwf Freqs#75,1 F1_001406 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[76] = 64953 movlw 253 movwf Freqs#76H,1 movlw 185 movwf Freqs#76,1 F1_001407 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[77] = 64962 movlw 253 movwf Freqs#77H,1 movlw 194 movwf Freqs#77,1 F1_001408 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[78] = 64971 movlw 253 movwf Freqs#78H,1 movlw 203 movwf Freqs#78,1 F1_001409 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[79] = 64979 movlw 253 movwf Freqs#79H,1 movlw 211 movwf Freqs#79,1 F1_001410 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[80] = 64988 movlw 253 movwf Freqs#80H,1 movlw 220 movwf Freqs#80,1 F1_001411 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[81] = 64997 movlw 253 movwf Freqs#81H,1 movlw 229 movwf Freqs#81,1 F1_001412 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[82] = 65006 movlw 253 movwf Freqs#82H,1 movlw 238 movwf Freqs#82,1 F1_001413 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[83] = 65014 movlw 253 movwf Freqs#83H,1 movlw 246 movwf Freqs#83,1 F1_001414 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[84] = 65023 movlw 253 movwf Freqs#84H,1 setf Freqs#84,1 F1_001415 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[85] = 65032 movlw 254 movwf Freqs#85H,1 movlw 8 movwf Freqs#85,1 F1_001416 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[86] = 65041 movlw 254 movwf Freqs#86H,1 movlw 17 movwf Freqs#86,1 F1_001417 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[87] = 65050 movlw 254 movwf Freqs#87H,1 movlw 26 movwf Freqs#87,1 F1_001418 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[88] = 65058 movlw 254 movwf Freqs#88H,1 movlw 34 movwf Freqs#88,1 F1_001419 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[89] = 65067 movlw 254 movwf Freqs#89H,1 movlw 43 movwf Freqs#89,1 F1_001420 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[90] = 65076 movlw 254 movlb 3 movwf Freqs#90H,1 movlw 52 movwf Freqs#90,1 F1_001421 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[91] = 65085 movlw 254 movwf Freqs#91H,1 movlw 61 movwf Freqs#91,1 F1_001422 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[92] = 65094 movlw 254 movwf Freqs#92H,1 movlw 70 movwf Freqs#92,1 F1_001423 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[93] = 65102 movlw 254 movwf Freqs#93H,1 movlw 78 movwf Freqs#93,1 F1_001424 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[94] = 65111 movlw 254 movwf Freqs#94H,1 movlw 87 movwf Freqs#94,1 F1_001425 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[95] = 65120 movlw 254 movwf Freqs#95H,1 movlw 96 movwf Freqs#95,1 F1_001426 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[96] = 65129 movlw 254 movwf Freqs#96H,1 movlw 105 movwf Freqs#96,1 F1_001427 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[97] = 65138 movlw 254 movwf Freqs#97H,1 movlw 114 movwf Freqs#97,1 F1_001428 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[98] = 65146 movlw 254 movwf Freqs#98H,1 movlw 122 movwf Freqs#98,1 F1_001429 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[99] = 65155 movlw 254 movwf Freqs#99H,1 movlw 131 movwf Freqs#99,1 F1_001430 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[100] = 65164 movlw 254 movwf Freqs#100H,1 movlw 140 movwf Freqs#100,1 F1_001431 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[101] = 65173 movlw 254 movwf Freqs#101H,1 movlw 149 movwf Freqs#101,1 F1_001432 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[102] = 65181 movlw 254 movwf Freqs#102H,1 movlw 157 movwf Freqs#102,1 F1_001433 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[103] = 65190 movlw 254 movwf Freqs#103H,1 movlw 166 movwf Freqs#103,1 F1_001434 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[104] = 65199 movlw 254 movwf Freqs#104H,1 movlw 175 movwf Freqs#104,1 F1_001435 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[105] = 65208 movlw 254 movwf Freqs#105H,1 movlw 184 movwf Freqs#105,1 F1_001436 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[106] = 65217 movlw 254 movwf Freqs#106H,1 movlw 193 movwf Freqs#106,1 F1_001437 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[107] = 65225 movlw 254 movwf Freqs#107H,1 movlw 201 movwf Freqs#107,1 F1_001438 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[108] = 65234 movlw 254 movwf Freqs#108H,1 movlw 210 movwf Freqs#108,1 F1_001439 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[109] = 65243 movlw 254 movwf Freqs#109H,1 movlw 219 movwf Freqs#109,1 F1_001440 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[110] = 65252 movlw 254 movwf Freqs#110H,1 movlw 228 movwf Freqs#110,1 F1_001441 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[111] = 65261 movlw 254 movwf Freqs#111H,1 movlw 237 movwf Freqs#111,1 F1_001442 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[112] = 65269 movlw 254 movwf Freqs#112H,1 movlw 245 movwf Freqs#112,1 F1_001443 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[113] = 65278 movlw 254 movwf Freqs#113H,1 movwf Freqs#113,1 F1_001444 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[114] = 65287 setf Freqs#114H,1 movlw 7 movwf Freqs#114,1 F1_001445 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[115] = 65296 setf Freqs#115H,1 movlw 16 movwf Freqs#115,1 F1_001446 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[116] = 65305 setf Freqs#116H,1 movlw 25 movwf Freqs#116,1 F1_001447 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[117] = 65313 setf Freqs#117H,1 movlw 33 movwf Freqs#117,1 F1_001448 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[118] = 65322 setf Freqs#118H,1 movlw 42 movwf Freqs#118,1 F1_001449 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[119] = 65331 setf Freqs#119H,1 movlw 51 movwf Freqs#119,1 F1_001450 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[120] = 65340 setf Freqs#120H,1 movlw 60 movwf Freqs#120,1 F1_001451 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[121] = 65348 setf Freqs#121H,1 movlw 68 movwf Freqs#121,1 F1_001452 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[122] = 65357 setf Freqs#122H,1 movlw 77 movwf Freqs#122,1 F1_001453 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[123] = 65366 setf Freqs#123H,1 movlw 86 movwf Freqs#123,1 F1_001454 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[124] = 65375 setf Freqs#124H,1 movlw 95 movwf Freqs#124,1 F1_001455 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[125] = 65384 setf Freqs#125H,1 movlw 104 movwf Freqs#125,1 F1_001456 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[126] = 65392 setf Freqs#126H,1 movlw 112 movwf Freqs#126,1 F1_001457 equ $ ; IN [FLEX_PI_SAW.BAS] FREQS[127] = 65401 setf Freqs#127H,1 movlw 121 movwf Freqs#127,1 F1_001458 equ $ ; IN [FLEX_PI_SAW.BAS] RETURN movlb 0 return 0 F1_EOF equ $ ; FLEX_PI_SAW.BAS _PBLB__279 bra _PBLB__279 __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 CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off config PWRT = on end