;---------------------------------------------------------- ; Code Produced by the Proton Compiler. Ver 3.5.7.3 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. March 2015 ;---------------------------------------------------------- ; #define CONFIG_REQ 1 #define DEBUG@REQ 1 LIST P = 18F4620, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T=ON PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTD equ 0X0F83 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B LATD equ 0X0F8C LATE equ 0X0F8D DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 DDRD equ 0X0F95 TRISD equ 0X0F95 DDRE equ 0X0F96 TRISE equ 0X0F96 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 ECCP1AS equ 0X0FB6 PWM1CON equ 0X0FB7 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_PORT=TRISC _I2C_SCL_PIN=3 _I2C_SDA_PORT=TRISC _I2C_SDA_PIN=4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RD0=0 PP_RD0=0 RD1=1 PP_RD1=1 RD2=2 PP_RD2=2 RD3=3 PP_RD3=3 RD4=4 PP_RD4=4 RD5=5 PP_RD5=5 RD6=6 PP_RD6=6 RD7=7 PP_RD7=7 PSP0=0 PSP1=1 PSP2=2 PSP3=3 PSP4=4 PSP5=5 PSP6=6 PSP7=7 P1B=5 P1C=6 P1D=7 RE0=0 RE1=1 RE2=2 RE3=3 RD=0 PP_RD=0 WR=1 PP_WR=1 CS=2 MCLR=3 NOT_RD=0 NOT_WR=1 NOT_CS=2 NOT_MCLR=3 AN5=0 AN6=1 AN7=2 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 LATD0=0 LATD1=1 LATD2=2 LATD3=3 LATD4=4 LATD5=5 LATD6=6 LATD7=7 LATE0=0 LATE1=1 LATE2=2 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TRISD0=0 TRISD1=1 TRISD2=2 TRISD3=3 TRISD4=4 TRISD5=5 TRISD6=6 TRISD7=7 TRISE0=0 TRISE1=1 TRISE2=2 PSPMODE=4 IBOV=5 OBF=6 IBF=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 PSPIE=7 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 PSPIF=7 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 PSPIP=7 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 WREN=2 PP_WREN=2 WRERR=3 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 PSSBD0=0 PSSBD1=1 PSSAC0=2 PSSAC1=3 ECCPAS0=4 ECCPAS1=5 ECCPAS2=6 ECCPASE=7 PDC0=0 PDC1=1 PDC2=2 PDC3=3 PDC4=4 PDC5=5 PDC6=6 PRSEN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 P1M0=6 P1M1=7 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8E-0X0F91 __BADRAM 0X0F97-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CP3_ON_5 equ 0XF7 CP3_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRT3_ON_6 equ 0XF7 WRT3_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTR3_ON_7 equ 0XF7 EBTR3_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F4620 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0X10000 #define _ADC 13 #define _ADC_RES 10 #define _EEPROM 1024 #define RAM_BANKS 15 #define _USART 1 #define _USB 0 #define _USB#RAM_START 0 #define _FLASH 1 #define _CWRITE_BLOCK 64 #define BANK0_START 128 #define BANK0_END 255 #define BANK1_START 256 #define BANK1_END 511 #define BANK2_START 512 #define BANK2_END 767 #define BANK3_START 768 #define BANK3_END 1023 #define BANK4_START 1024 #define BANK4_END 1279 #define BANK5_START 1280 #define BANK5_END 1535 #define BANK6_START 1536 #define BANK6_END 1791 #define BANK7_START 1792 #define BANK7_END 2047 #define BANK8_START 2048 #define BANK8_END 2303 #define BANK9_START 2304 #define BANK9_END 2559 #define BANK10_START 2560 #define BANK10_END 2815 #define BANK11_START 2816 #define BANK11_END 3071 #define BANK12_START 3072 #define BANK12_END 3327 #define BANK13_START 3328 #define BANK13_END 3583 #define BANK14_START 3584 #define BANK14_END 3839 #define BANKA_START 0 #define BANKA_END 127 #define _SYSTEM_VARIABLE_COUNT 121 #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 PBP#VAR0 = 0 PBP#VAR0H = 1 PBP#VAR0HH = 2 PBP#VAR0HHH = 3 PBP#VAR1 = 4 PBP#VAR1H = 5 PP0 = 6 PP0H = 7 PP1 = 8 PP1H = 9 PPZ = 10 PPZH = 11 PPZHH = 12 PP_AARG = 13 PP_AARGH = 14 PP_AARGHH = 15 PP_AARGHHH = 16 PP_BARG = 17 PP_BARGH = 18 PP_BARGHH = 19 PP_BARGHHH = 20 _BEXP = 21 _FP_FLAGS = 22 _FP_TEMP = 23 _SIGN = 24 Bytein = 25 _I = 26 statusbyte = 27 noteUit = 28 release = 29 noteAan = 30 velo = 31 notePres = 32 pres = 33 Ctrl = 34 value = 35 prog = 36 aft = 37 pblsb = 38 pbmsb = 39 veltim0 = 40 veltim0H = 41 veltim0HH = 42 veltim0HHH = 43 veltim1 = 44 veltim1H = 45 veltim1HH = 46 veltim1HHH = 47 veltim2 = 48 veltim2H = 49 veltim2HH = 50 veltim2HHH = 51 veltim3 = 52 veltim3H = 53 veltim3HH = 54 veltim3HHH = 55 veltim4 = 56 veltim4H = 57 veltim4HH = 58 veltim4HHH = 59 veltim5 = 60 veltim5H = 61 veltim5HH = 62 veltim5HHH = 63 veltim6 = 64 veltim6H = 65 veltim6HH = 66 veltim6HHH = 67 Velflags = 68 CC66 = 69 notes = 70 Rate0 = 71 Rate0H = 72 Rate1 = 73 Rate1H = 74 Rate2 = 75 Rate2H = 76 Rate3 = 77 Rate3H = 78 Rate4 = 79 Rate4H = 80 Rate5 = 81 Rate5H = 82 Rate6 = 83 Rate6H = 84 velo0 = 85 velo0H = 86 velo1 = 87 velo1H = 88 velo2 = 89 velo2H = 90 velo3 = 91 velo3H = 92 velo4 = 93 velo4H = 94 velo5 = 95 velo5H = 96 velo6 = 97 velo6H = 98 Pres0 = 99 Pres1 = 100 Pres2 = 101 Pres3 = 102 Pres4 = 103 pres5 = 104 Pres6 = 105 time = 106 timeH = 107 timeHH = 108 timeHHH = 109 _T = 110 tog = 111 Nxt = 112 NxtH = 113 NxtHH = 114 NxtHHH = 115 idx = 116 USART_FSR1_Save = 117 USART_FSR1_SaveH = 118 IndexIn = 119 IndexOut = 120 LRbyte = 121 TimVals = 122 TimValsH = 123 TimValsHH = 124 TimValsHHH = 125 variable TimVals#0=122,TimVals#0H=123,TimVals#0HH=124,TimVals#0HHH=125 variable TimVals#1=126,TimVals#1H=127,TimVals#1HH=128,TimVals#1HHH=129 variable TimVals#2=130,TimVals#2H=131,TimVals#2HH=132,TimVals#2HHH=133 variable TimVals#3=134,TimVals#3H=135,TimVals#3HH=136,TimVals#3HHH=137 variable TimVals#4=138,TimVals#4H=139,TimVals#4HH=140,TimVals#4HHH=141 variable TimVals#5=142,TimVals#5H=143,TimVals#5HH=144,TimVals#5HHH=145 variable TimVals#6=146,TimVals#6H=147,TimVals#6HH=148,TimVals#6HHH=149 dummy = 150 dummyH = 151 variable dummy#0=150,dummy#0H=151,dummy#1=152,dummy#1H=153 variable dummy#2=154,dummy#2H=155,dummy#3=156,dummy#3H=157 variable dummy#4=158,dummy#4H=159,dummy#5=160,dummy#5H=161 variable dummy#6=162,dummy#6H=163,dummy#7=164,dummy#7H=165 variable dummy#8=166,dummy#8H=167,dummy#9=168,dummy#9H=169 variable dummy#10=170,dummy#10H=171,dummy#11=172,dummy#11H=173 variable dummy#12=174,dummy#12H=175,dummy#13=176,dummy#13H=177 variable dummy#14=178,dummy#14H=179,dummy#15=180,dummy#15H=181 variable dummy#16=182,dummy#16H=183,dummy#17=184,dummy#17H=185 variable dummy#18=186,dummy#18H=187,dummy#19=188,dummy#19H=189 variable dummy#20=190,dummy#20H=191,dummy#21=192,dummy#21H=193 variable dummy#22=194,dummy#22H=195,dummy#23=196,dummy#23H=197 variable dummy#24=198,dummy#24H=199,dummy#25=200,dummy#25H=201 variable dummy#26=202,dummy#26H=203,dummy#27=204,dummy#27H=205 variable dummy#28=206,dummy#28H=207,dummy#29=208,dummy#29H=209 variable dummy#30=210,dummy#30H=211,dummy#31=212,dummy#31H=213 variable dummy#32=214,dummy#32H=215,dummy#33=216,dummy#33H=217 variable dummy#34=218,dummy#34H=219,dummy#35=220,dummy#35H=221 variable dummy#36=222,dummy#36H=223,dummy#37=224,dummy#37H=225 variable dummy#38=226,dummy#38H=227,dummy#39=228,dummy#39H=229 variable dummy#40=230,dummy#40H=231,dummy#41=232,dummy#41H=233 variable dummy#42=234,dummy#42H=235,dummy#43=236,dummy#43H=237 variable dummy#44=238,dummy#44H=239,dummy#45=240,dummy#45H=241 variable dummy#46=242,dummy#46H=243,dummy#47=244,dummy#47H=245 variable dummy#48=246,dummy#48H=247,dummy#49=248,dummy#49H=249 variable dummy#50=250,dummy#50H=251,dummy#51=252,dummy#51H=253 variable dummy#52=254,dummy#52H=255,dummy#53=256,dummy#53H=257 variable dummy#54=258,dummy#54H=259,dummy#55=260,dummy#55H=261 variable dummy#56=262,dummy#56H=263,dummy#57=264,dummy#57H=265 variable dummy#58=266,dummy#58H=267,dummy#59=268,dummy#59H=269 variable dummy#60=270,dummy#60H=271,dummy#61=272,dummy#61H=273 variable dummy#62=274,dummy#62H=275,dummy#63=276,dummy#63H=277 variable dummy#64=278,dummy#64H=279,dummy#65=280,dummy#65H=281 variable dummy#66=282,dummy#66H=283,dummy#67=284,dummy#67H=285 variable dummy#68=286,dummy#68H=287,dummy#69=288,dummy#69H=289 variable dummy#70=290,dummy#70H=291,dummy#71=292,dummy#71H=293 variable dummy#72=294,dummy#72H=295,dummy#73=296,dummy#73H=297 variable dummy#74=298,dummy#74H=299,dummy#75=300,dummy#75H=301 variable dummy#76=302,dummy#76H=303,dummy#77=304,dummy#77H=305 variable dummy#78=306,dummy#78H=307,dummy#79=308,dummy#79H=309 variable dummy#80=310,dummy#80H=311,dummy#81=312,dummy#81H=313 variable dummy#82=314,dummy#82H=315,dummy#83=316,dummy#83H=317 variable dummy#84=318,dummy#84H=319,dummy#85=320,dummy#85H=321 variable dummy#86=322,dummy#86H=323,dummy#87=324,dummy#87H=325 variable dummy#88=326,dummy#88H=327,dummy#89=328,dummy#89H=329 variable dummy#90=330,dummy#90H=331,dummy#91=332,dummy#91H=333 variable dummy#92=334,dummy#92H=335,dummy#93=336,dummy#93H=337 variable dummy#94=338,dummy#94H=339,dummy#95=340,dummy#95H=341 variable dummy#96=342,dummy#96H=343,dummy#97=344,dummy#97H=345 variable dummy#98=346,dummy#98H=347,dummy#99=348,dummy#99H=349 variable dummy#100=350,dummy#100H=351,dummy#101=352,dummy#101H=353 variable dummy#102=354,dummy#102H=355,dummy#103=356,dummy#103H=357 variable dummy#104=358,dummy#104H=359,dummy#105=360,dummy#105H=361 variable dummy#106=362,dummy#106H=363,dummy#107=364,dummy#107H=365 variable dummy#108=366,dummy#108H=367,dummy#109=368,dummy#109H=369 variable dummy#110=370,dummy#110H=371,dummy#111=372,dummy#111H=373 variable dummy#112=374,dummy#112H=375,dummy#113=376,dummy#113H=377 variable dummy#114=378,dummy#114H=379,dummy#115=380,dummy#115H=381 variable dummy#116=382,dummy#116H=383,dummy#117=384,dummy#117H=385 variable dummy#118=386,dummy#118H=387,dummy#119=388,dummy#119H=389 variable dummy#120=390,dummy#120H=391,dummy#121=392,dummy#121H=393 variable dummy#122=394,dummy#122H=395,dummy#123=396,dummy#123H=397 variable dummy#124=398,dummy#124H=399,dummy#125=400,dummy#125H=401 variable dummy#126=402,dummy#126H=403,dummy#127=404,dummy#127H=405 vels = 406 velsH = 407 variable vels#0=406,vels#0H=407,vels#1=408,vels#1H=409 variable vels#2=410,vels#2H=411,vels#3=412,vels#3H=413 variable vels#4=414,vels#4H=415,vels#5=416,vels#5H=417 variable vels#6=418,vels#6H=419,vels#7=420,vels#7H=421 variable vels#8=422,vels#8H=423,vels#9=424,vels#9H=425 variable vels#10=426,vels#10H=427,vels#11=428,vels#11H=429 variable vels#12=430,vels#12H=431,vels#13=432,vels#13H=433 variable vels#14=434,vels#14H=435,vels#15=436,vels#15H=437 variable vels#16=438,vels#16H=439,vels#17=440,vels#17H=441 variable vels#18=442,vels#18H=443,vels#19=444,vels#19H=445 variable vels#20=446,vels#20H=447,vels#21=448,vels#21H=449 variable vels#22=450,vels#22H=451,vels#23=452,vels#23H=453 variable vels#24=454,vels#24H=455,vels#25=456,vels#25H=457 variable vels#26=458,vels#26H=459,vels#27=460,vels#27H=461 variable vels#28=462,vels#28H=463,vels#29=464,vels#29H=465 variable vels#30=466,vels#30H=467,vels#31=468,vels#31H=469 variable vels#32=470,vels#32H=471,vels#33=472,vels#33H=473 variable vels#34=474,vels#34H=475,vels#35=476,vels#35H=477 variable vels#36=478,vels#36H=479,vels#37=480,vels#37H=481 variable vels#38=482,vels#38H=483,vels#39=484,vels#39H=485 variable vels#40=486,vels#40H=487,vels#41=488,vels#41H=489 variable vels#42=490,vels#42H=491,vels#43=492,vels#43H=493 variable vels#44=494,vels#44H=495,vels#45=496,vels#45H=497 variable vels#46=498,vels#46H=499,vels#47=500,vels#47H=501 variable vels#48=502,vels#48H=503,vels#49=504,vels#49H=505 variable vels#50=506,vels#50H=507,vels#51=508,vels#51H=509 variable vels#52=510,vels#52H=511,vels#53=512,vels#53H=513 variable vels#54=514,vels#54H=515,vels#55=516,vels#55H=517 variable vels#56=518,vels#56H=519,vels#57=520,vels#57H=521 variable vels#58=522,vels#58H=523,vels#59=524,vels#59H=525 variable vels#60=526,vels#60H=527,vels#61=528,vels#61H=529 variable vels#62=530,vels#62H=531,vels#63=532,vels#63H=533 variable vels#64=534,vels#64H=535,vels#65=536,vels#65H=537 variable vels#66=538,vels#66H=539,vels#67=540,vels#67H=541 variable vels#68=542,vels#68H=543,vels#69=544,vels#69H=545 variable vels#70=546,vels#70H=547,vels#71=548,vels#71H=549 variable vels#72=550,vels#72H=551,vels#73=552,vels#73H=553 variable vels#74=554,vels#74H=555,vels#75=556,vels#75H=557 variable vels#76=558,vels#76H=559,vels#77=560,vels#77H=561 variable vels#78=562,vels#78H=563,vels#79=564,vels#79H=565 variable vels#80=566,vels#80H=567,vels#81=568,vels#81H=569 variable vels#82=570,vels#82H=571,vels#83=572,vels#83H=573 variable vels#84=574,vels#84H=575,vels#85=576,vels#85H=577 variable vels#86=578,vels#86H=579,vels#87=580,vels#87H=581 variable vels#88=582,vels#88H=583,vels#89=584,vels#89H=585 variable vels#90=586,vels#90H=587,vels#91=588,vels#91H=589 variable vels#92=590,vels#92H=591,vels#93=592,vels#93H=593 variable vels#94=594,vels#94H=595,vels#95=596,vels#95H=597 variable vels#96=598,vels#96H=599,vels#97=600,vels#97H=601 variable vels#98=602,vels#98H=603,vels#99=604,vels#99H=605 variable vels#100=606,vels#100H=607,vels#101=608,vels#101H=609 variable vels#102=610,vels#102H=611,vels#103=612,vels#103H=613 variable vels#104=614,vels#104H=615,vels#105=616,vels#105H=617 variable vels#106=618,vels#106H=619,vels#107=620,vels#107H=621 variable vels#108=622,vels#108H=623,vels#109=624,vels#109H=625 variable vels#110=626,vels#110H=627,vels#111=628,vels#111H=629 variable vels#112=630,vels#112H=631,vels#113=632,vels#113H=633 variable vels#114=634,vels#114H=635,vels#115=636,vels#115H=637 variable vels#116=638,vels#116H=639,vels#117=640,vels#117H=641 variable vels#118=642,vels#118H=643,vels#119=644,vels#119H=645 variable vels#120=646,vels#120H=647,vels#121=648,vels#121H=649 variable vels#122=650,vels#122H=651,vels#123=652,vels#123H=653 variable vels#124=654,vels#124H=655,vels#125=656,vels#125H=657 variable vels#126=658,vels#126H=659,vels#127=660,vels#127H=661 Vels0 = 662 Vels0H = 663 variable Vels0#0=662,Vels0#0H=663,Vels0#1=664,Vels0#1H=665 variable Vels0#2=666,Vels0#2H=667,Vels0#3=668,Vels0#3H=669 variable Vels0#4=670,Vels0#4H=671,Vels0#5=672,Vels0#5H=673 variable Vels0#6=674,Vels0#6H=675,Vels0#7=676,Vels0#7H=677 variable Vels0#8=678,Vels0#8H=679,Vels0#9=680,Vels0#9H=681 variable Vels0#10=682,Vels0#10H=683,Vels0#11=684,Vels0#11H=685 variable Vels0#12=686,Vels0#12H=687,Vels0#13=688,Vels0#13H=689 variable Vels0#14=690,Vels0#14H=691,Vels0#15=692,Vels0#15H=693 variable Vels0#16=694,Vels0#16H=695,Vels0#17=696,Vels0#17H=697 variable Vels0#18=698,Vels0#18H=699,Vels0#19=700,Vels0#19H=701 variable Vels0#20=702,Vels0#20H=703,Vels0#21=704,Vels0#21H=705 variable Vels0#22=706,Vels0#22H=707,Vels0#23=708,Vels0#23H=709 variable Vels0#24=710,Vels0#24H=711,Vels0#25=712,Vels0#25H=713 variable Vels0#26=714,Vels0#26H=715,Vels0#27=716,Vels0#27H=717 variable Vels0#28=718,Vels0#28H=719,Vels0#29=720,Vels0#29H=721 variable Vels0#30=722,Vels0#30H=723,Vels0#31=724,Vels0#31H=725 variable Vels0#32=726,Vels0#32H=727,Vels0#33=728,Vels0#33H=729 variable Vels0#34=730,Vels0#34H=731,Vels0#35=732,Vels0#35H=733 variable Vels0#36=734,Vels0#36H=735,Vels0#37=736,Vels0#37H=737 variable Vels0#38=738,Vels0#38H=739,Vels0#39=740,Vels0#39H=741 variable Vels0#40=742,Vels0#40H=743,Vels0#41=744,Vels0#41H=745 variable Vels0#42=746,Vels0#42H=747,Vels0#43=748,Vels0#43H=749 variable Vels0#44=750,Vels0#44H=751,Vels0#45=752,Vels0#45H=753 variable Vels0#46=754,Vels0#46H=755,Vels0#47=756,Vels0#47H=757 variable Vels0#48=758,Vels0#48H=759,Vels0#49=760,Vels0#49H=761 variable Vels0#50=762,Vels0#50H=763,Vels0#51=764,Vels0#51H=765 variable Vels0#52=766,Vels0#52H=767,Vels0#53=768,Vels0#53H=769 variable Vels0#54=770,Vels0#54H=771,Vels0#55=772,Vels0#55H=773 variable Vels0#56=774,Vels0#56H=775,Vels0#57=776,Vels0#57H=777 variable Vels0#58=778,Vels0#58H=779,Vels0#59=780,Vels0#59H=781 variable Vels0#60=782,Vels0#60H=783,Vels0#61=784,Vels0#61H=785 variable Vels0#62=786,Vels0#62H=787,Vels0#63=788,Vels0#63H=789 variable Vels0#64=790,Vels0#64H=791,Vels0#65=792,Vels0#65H=793 variable Vels0#66=794,Vels0#66H=795,Vels0#67=796,Vels0#67H=797 variable Vels0#68=798,Vels0#68H=799,Vels0#69=800,Vels0#69H=801 variable Vels0#70=802,Vels0#70H=803,Vels0#71=804,Vels0#71H=805 variable Vels0#72=806,Vels0#72H=807,Vels0#73=808,Vels0#73H=809 variable Vels0#74=810,Vels0#74H=811,Vels0#75=812,Vels0#75H=813 variable Vels0#76=814,Vels0#76H=815,Vels0#77=816,Vels0#77H=817 variable Vels0#78=818,Vels0#78H=819,Vels0#79=820,Vels0#79H=821 variable Vels0#80=822,Vels0#80H=823,Vels0#81=824,Vels0#81H=825 variable Vels0#82=826,Vels0#82H=827,Vels0#83=828,Vels0#83H=829 variable Vels0#84=830,Vels0#84H=831,Vels0#85=832,Vels0#85H=833 variable Vels0#86=834,Vels0#86H=835,Vels0#87=836,Vels0#87H=837 variable Vels0#88=838,Vels0#88H=839,Vels0#89=840,Vels0#89H=841 variable Vels0#90=842,Vels0#90H=843,Vels0#91=844,Vels0#91H=845 variable Vels0#92=846,Vels0#92H=847,Vels0#93=848,Vels0#93H=849 variable Vels0#94=850,Vels0#94H=851,Vels0#95=852,Vels0#95H=853 variable Vels0#96=854,Vels0#96H=855,Vels0#97=856,Vels0#97H=857 variable Vels0#98=858,Vels0#98H=859,Vels0#99=860,Vels0#99H=861 variable Vels0#100=862,Vels0#100H=863,Vels0#101=864,Vels0#101H=865 variable Vels0#102=866,Vels0#102H=867,Vels0#103=868,Vels0#103H=869 variable Vels0#104=870,Vels0#104H=871,Vels0#105=872,Vels0#105H=873 variable Vels0#106=874,Vels0#106H=875,Vels0#107=876,Vels0#107H=877 variable Vels0#108=878,Vels0#108H=879,Vels0#109=880,Vels0#109H=881 variable Vels0#110=882,Vels0#110H=883,Vels0#111=884,Vels0#111H=885 variable Vels0#112=886,Vels0#112H=887,Vels0#113=888,Vels0#113H=889 variable Vels0#114=890,Vels0#114H=891,Vels0#115=892,Vels0#115H=893 variable Vels0#116=894,Vels0#116H=895,Vels0#117=896,Vels0#117H=897 variable Vels0#118=898,Vels0#118H=899,Vels0#119=900,Vels0#119H=901 variable Vels0#120=902,Vels0#120H=903,Vels0#121=904,Vels0#121H=905 variable Vels0#122=906,Vels0#122H=907,Vels0#123=908,Vels0#123H=909 variable Vels0#124=910,Vels0#124H=911,Vels0#125=912,Vels0#125H=913 variable Vels0#126=914,Vels0#126H=915,Vels0#127=916,Vels0#127H=917 Vels1 = 918 Vels1H = 919 variable Vels1#0=918,Vels1#0H=919,Vels1#1=920,Vels1#1H=921 variable Vels1#2=922,Vels1#2H=923,Vels1#3=924,Vels1#3H=925 variable Vels1#4=926,Vels1#4H=927,Vels1#5=928,Vels1#5H=929 variable Vels1#6=930,Vels1#6H=931,Vels1#7=932,Vels1#7H=933 variable Vels1#8=934,Vels1#8H=935,Vels1#9=936,Vels1#9H=937 variable Vels1#10=938,Vels1#10H=939,Vels1#11=940,Vels1#11H=941 variable Vels1#12=942,Vels1#12H=943,Vels1#13=944,Vels1#13H=945 variable Vels1#14=946,Vels1#14H=947,Vels1#15=948,Vels1#15H=949 variable Vels1#16=950,Vels1#16H=951,Vels1#17=952,Vels1#17H=953 variable Vels1#18=954,Vels1#18H=955,Vels1#19=956,Vels1#19H=957 variable Vels1#20=958,Vels1#20H=959,Vels1#21=960,Vels1#21H=961 variable Vels1#22=962,Vels1#22H=963,Vels1#23=964,Vels1#23H=965 variable Vels1#24=966,Vels1#24H=967,Vels1#25=968,Vels1#25H=969 variable Vels1#26=970,Vels1#26H=971,Vels1#27=972,Vels1#27H=973 variable Vels1#28=974,Vels1#28H=975,Vels1#29=976,Vels1#29H=977 variable Vels1#30=978,Vels1#30H=979,Vels1#31=980,Vels1#31H=981 variable Vels1#32=982,Vels1#32H=983,Vels1#33=984,Vels1#33H=985 variable Vels1#34=986,Vels1#34H=987,Vels1#35=988,Vels1#35H=989 variable Vels1#36=990,Vels1#36H=991,Vels1#37=992,Vels1#37H=993 variable Vels1#38=994,Vels1#38H=995,Vels1#39=996,Vels1#39H=997 variable Vels1#40=998,Vels1#40H=999,Vels1#41=1000,Vels1#41H=1001 variable Vels1#42=1002,Vels1#42H=1003,Vels1#43=1004,Vels1#43H=1005 variable Vels1#44=1006,Vels1#44H=1007,Vels1#45=1008,Vels1#45H=1009 variable Vels1#46=1010,Vels1#46H=1011,Vels1#47=1012,Vels1#47H=1013 variable Vels1#48=1014,Vels1#48H=1015,Vels1#49=1016,Vels1#49H=1017 variable Vels1#50=1018,Vels1#50H=1019,Vels1#51=1020,Vels1#51H=1021 variable Vels1#52=1022,Vels1#52H=1023,Vels1#53=1024,Vels1#53H=1025 variable Vels1#54=1026,Vels1#54H=1027,Vels1#55=1028,Vels1#55H=1029 variable Vels1#56=1030,Vels1#56H=1031,Vels1#57=1032,Vels1#57H=1033 variable Vels1#58=1034,Vels1#58H=1035,Vels1#59=1036,Vels1#59H=1037 variable Vels1#60=1038,Vels1#60H=1039,Vels1#61=1040,Vels1#61H=1041 variable Vels1#62=1042,Vels1#62H=1043,Vels1#63=1044,Vels1#63H=1045 variable Vels1#64=1046,Vels1#64H=1047,Vels1#65=1048,Vels1#65H=1049 variable Vels1#66=1050,Vels1#66H=1051,Vels1#67=1052,Vels1#67H=1053 variable Vels1#68=1054,Vels1#68H=1055,Vels1#69=1056,Vels1#69H=1057 variable Vels1#70=1058,Vels1#70H=1059,Vels1#71=1060,Vels1#71H=1061 variable Vels1#72=1062,Vels1#72H=1063,Vels1#73=1064,Vels1#73H=1065 variable Vels1#74=1066,Vels1#74H=1067,Vels1#75=1068,Vels1#75H=1069 variable Vels1#76=1070,Vels1#76H=1071,Vels1#77=1072,Vels1#77H=1073 variable Vels1#78=1074,Vels1#78H=1075,Vels1#79=1076,Vels1#79H=1077 variable Vels1#80=1078,Vels1#80H=1079,Vels1#81=1080,Vels1#81H=1081 variable Vels1#82=1082,Vels1#82H=1083,Vels1#83=1084,Vels1#83H=1085 variable Vels1#84=1086,Vels1#84H=1087,Vels1#85=1088,Vels1#85H=1089 variable Vels1#86=1090,Vels1#86H=1091,Vels1#87=1092,Vels1#87H=1093 variable Vels1#88=1094,Vels1#88H=1095,Vels1#89=1096,Vels1#89H=1097 variable Vels1#90=1098,Vels1#90H=1099,Vels1#91=1100,Vels1#91H=1101 variable Vels1#92=1102,Vels1#92H=1103,Vels1#93=1104,Vels1#93H=1105 variable Vels1#94=1106,Vels1#94H=1107,Vels1#95=1108,Vels1#95H=1109 variable Vels1#96=1110,Vels1#96H=1111,Vels1#97=1112,Vels1#97H=1113 variable Vels1#98=1114,Vels1#98H=1115,Vels1#99=1116,Vels1#99H=1117 variable Vels1#100=1118,Vels1#100H=1119,Vels1#101=1120,Vels1#101H=1121 variable Vels1#102=1122,Vels1#102H=1123,Vels1#103=1124,Vels1#103H=1125 variable Vels1#104=1126,Vels1#104H=1127,Vels1#105=1128,Vels1#105H=1129 variable Vels1#106=1130,Vels1#106H=1131,Vels1#107=1132,Vels1#107H=1133 variable Vels1#108=1134,Vels1#108H=1135,Vels1#109=1136,Vels1#109H=1137 variable Vels1#110=1138,Vels1#110H=1139,Vels1#111=1140,Vels1#111H=1141 variable Vels1#112=1142,Vels1#112H=1143,Vels1#113=1144,Vels1#113H=1145 variable Vels1#114=1146,Vels1#114H=1147,Vels1#115=1148,Vels1#115H=1149 variable Vels1#116=1150,Vels1#116H=1151,Vels1#117=1152,Vels1#117H=1153 variable Vels1#118=1154,Vels1#118H=1155,Vels1#119=1156,Vels1#119H=1157 variable Vels1#120=1158,Vels1#120H=1159,Vels1#121=1160,Vels1#121H=1161 variable Vels1#122=1162,Vels1#122H=1163,Vels1#123=1164,Vels1#123H=1165 variable Vels1#124=1166,Vels1#124H=1167,Vels1#125=1168,Vels1#125H=1169 variable Vels1#126=1170,Vels1#126H=1171,Vels1#127=1172,Vels1#127H=1173 Vels2 = 1174 Vels2H = 1175 variable Vels2#0=1174,Vels2#0H=1175,Vels2#1=1176,Vels2#1H=1177 variable Vels2#2=1178,Vels2#2H=1179,Vels2#3=1180,Vels2#3H=1181 variable Vels2#4=1182,Vels2#4H=1183,Vels2#5=1184,Vels2#5H=1185 variable Vels2#6=1186,Vels2#6H=1187,Vels2#7=1188,Vels2#7H=1189 variable Vels2#8=1190,Vels2#8H=1191,Vels2#9=1192,Vels2#9H=1193 variable Vels2#10=1194,Vels2#10H=1195,Vels2#11=1196,Vels2#11H=1197 variable Vels2#12=1198,Vels2#12H=1199,Vels2#13=1200,Vels2#13H=1201 variable Vels2#14=1202,Vels2#14H=1203,Vels2#15=1204,Vels2#15H=1205 variable Vels2#16=1206,Vels2#16H=1207,Vels2#17=1208,Vels2#17H=1209 variable Vels2#18=1210,Vels2#18H=1211,Vels2#19=1212,Vels2#19H=1213 variable Vels2#20=1214,Vels2#20H=1215,Vels2#21=1216,Vels2#21H=1217 variable Vels2#22=1218,Vels2#22H=1219,Vels2#23=1220,Vels2#23H=1221 variable Vels2#24=1222,Vels2#24H=1223,Vels2#25=1224,Vels2#25H=1225 variable Vels2#26=1226,Vels2#26H=1227,Vels2#27=1228,Vels2#27H=1229 variable Vels2#28=1230,Vels2#28H=1231,Vels2#29=1232,Vels2#29H=1233 variable Vels2#30=1234,Vels2#30H=1235,Vels2#31=1236,Vels2#31H=1237 variable Vels2#32=1238,Vels2#32H=1239,Vels2#33=1240,Vels2#33H=1241 variable Vels2#34=1242,Vels2#34H=1243,Vels2#35=1244,Vels2#35H=1245 variable Vels2#36=1246,Vels2#36H=1247,Vels2#37=1248,Vels2#37H=1249 variable Vels2#38=1250,Vels2#38H=1251,Vels2#39=1252,Vels2#39H=1253 variable Vels2#40=1254,Vels2#40H=1255,Vels2#41=1256,Vels2#41H=1257 variable Vels2#42=1258,Vels2#42H=1259,Vels2#43=1260,Vels2#43H=1261 variable Vels2#44=1262,Vels2#44H=1263,Vels2#45=1264,Vels2#45H=1265 variable Vels2#46=1266,Vels2#46H=1267,Vels2#47=1268,Vels2#47H=1269 variable Vels2#48=1270,Vels2#48H=1271,Vels2#49=1272,Vels2#49H=1273 variable Vels2#50=1274,Vels2#50H=1275,Vels2#51=1276,Vels2#51H=1277 variable Vels2#52=1278,Vels2#52H=1279,Vels2#53=1280,Vels2#53H=1281 variable Vels2#54=1282,Vels2#54H=1283,Vels2#55=1284,Vels2#55H=1285 variable Vels2#56=1286,Vels2#56H=1287,Vels2#57=1288,Vels2#57H=1289 variable Vels2#58=1290,Vels2#58H=1291,Vels2#59=1292,Vels2#59H=1293 variable Vels2#60=1294,Vels2#60H=1295,Vels2#61=1296,Vels2#61H=1297 variable Vels2#62=1298,Vels2#62H=1299,Vels2#63=1300,Vels2#63H=1301 variable Vels2#64=1302,Vels2#64H=1303,Vels2#65=1304,Vels2#65H=1305 variable Vels2#66=1306,Vels2#66H=1307,Vels2#67=1308,Vels2#67H=1309 variable Vels2#68=1310,Vels2#68H=1311,Vels2#69=1312,Vels2#69H=1313 variable Vels2#70=1314,Vels2#70H=1315,Vels2#71=1316,Vels2#71H=1317 variable Vels2#72=1318,Vels2#72H=1319,Vels2#73=1320,Vels2#73H=1321 variable Vels2#74=1322,Vels2#74H=1323,Vels2#75=1324,Vels2#75H=1325 variable Vels2#76=1326,Vels2#76H=1327,Vels2#77=1328,Vels2#77H=1329 variable Vels2#78=1330,Vels2#78H=1331,Vels2#79=1332,Vels2#79H=1333 variable Vels2#80=1334,Vels2#80H=1335,Vels2#81=1336,Vels2#81H=1337 variable Vels2#82=1338,Vels2#82H=1339,Vels2#83=1340,Vels2#83H=1341 variable Vels2#84=1342,Vels2#84H=1343,Vels2#85=1344,Vels2#85H=1345 variable Vels2#86=1346,Vels2#86H=1347,Vels2#87=1348,Vels2#87H=1349 variable Vels2#88=1350,Vels2#88H=1351,Vels2#89=1352,Vels2#89H=1353 variable Vels2#90=1354,Vels2#90H=1355,Vels2#91=1356,Vels2#91H=1357 variable Vels2#92=1358,Vels2#92H=1359,Vels2#93=1360,Vels2#93H=1361 variable Vels2#94=1362,Vels2#94H=1363,Vels2#95=1364,Vels2#95H=1365 variable Vels2#96=1366,Vels2#96H=1367,Vels2#97=1368,Vels2#97H=1369 variable Vels2#98=1370,Vels2#98H=1371,Vels2#99=1372,Vels2#99H=1373 variable Vels2#100=1374,Vels2#100H=1375,Vels2#101=1376,Vels2#101H=1377 variable Vels2#102=1378,Vels2#102H=1379,Vels2#103=1380,Vels2#103H=1381 variable Vels2#104=1382,Vels2#104H=1383,Vels2#105=1384,Vels2#105H=1385 variable Vels2#106=1386,Vels2#106H=1387,Vels2#107=1388,Vels2#107H=1389 variable Vels2#108=1390,Vels2#108H=1391,Vels2#109=1392,Vels2#109H=1393 variable Vels2#110=1394,Vels2#110H=1395,Vels2#111=1396,Vels2#111H=1397 variable Vels2#112=1398,Vels2#112H=1399,Vels2#113=1400,Vels2#113H=1401 variable Vels2#114=1402,Vels2#114H=1403,Vels2#115=1404,Vels2#115H=1405 variable Vels2#116=1406,Vels2#116H=1407,Vels2#117=1408,Vels2#117H=1409 variable Vels2#118=1410,Vels2#118H=1411,Vels2#119=1412,Vels2#119H=1413 variable Vels2#120=1414,Vels2#120H=1415,Vels2#121=1416,Vels2#121H=1417 variable Vels2#122=1418,Vels2#122H=1419,Vels2#123=1420,Vels2#123H=1421 variable Vels2#124=1422,Vels2#124H=1423,Vels2#125=1424,Vels2#125H=1425 variable Vels2#126=1426,Vels2#126H=1427,Vels2#127=1428,Vels2#127H=1429 Vels3 = 1430 Vels3H = 1431 variable Vels3#0=1430,Vels3#0H=1431,Vels3#1=1432,Vels3#1H=1433 variable Vels3#2=1434,Vels3#2H=1435,Vels3#3=1436,Vels3#3H=1437 variable Vels3#4=1438,Vels3#4H=1439,Vels3#5=1440,Vels3#5H=1441 variable Vels3#6=1442,Vels3#6H=1443,Vels3#7=1444,Vels3#7H=1445 variable Vels3#8=1446,Vels3#8H=1447,Vels3#9=1448,Vels3#9H=1449 variable Vels3#10=1450,Vels3#10H=1451,Vels3#11=1452,Vels3#11H=1453 variable Vels3#12=1454,Vels3#12H=1455,Vels3#13=1456,Vels3#13H=1457 variable Vels3#14=1458,Vels3#14H=1459,Vels3#15=1460,Vels3#15H=1461 variable Vels3#16=1462,Vels3#16H=1463,Vels3#17=1464,Vels3#17H=1465 variable Vels3#18=1466,Vels3#18H=1467,Vels3#19=1468,Vels3#19H=1469 variable Vels3#20=1470,Vels3#20H=1471,Vels3#21=1472,Vels3#21H=1473 variable Vels3#22=1474,Vels3#22H=1475,Vels3#23=1476,Vels3#23H=1477 variable Vels3#24=1478,Vels3#24H=1479,Vels3#25=1480,Vels3#25H=1481 variable Vels3#26=1482,Vels3#26H=1483,Vels3#27=1484,Vels3#27H=1485 variable Vels3#28=1486,Vels3#28H=1487,Vels3#29=1488,Vels3#29H=1489 variable Vels3#30=1490,Vels3#30H=1491,Vels3#31=1492,Vels3#31H=1493 variable Vels3#32=1494,Vels3#32H=1495,Vels3#33=1496,Vels3#33H=1497 variable Vels3#34=1498,Vels3#34H=1499,Vels3#35=1500,Vels3#35H=1501 variable Vels3#36=1502,Vels3#36H=1503,Vels3#37=1504,Vels3#37H=1505 variable Vels3#38=1506,Vels3#38H=1507,Vels3#39=1508,Vels3#39H=1509 variable Vels3#40=1510,Vels3#40H=1511,Vels3#41=1512,Vels3#41H=1513 variable Vels3#42=1514,Vels3#42H=1515,Vels3#43=1516,Vels3#43H=1517 variable Vels3#44=1518,Vels3#44H=1519,Vels3#45=1520,Vels3#45H=1521 variable Vels3#46=1522,Vels3#46H=1523,Vels3#47=1524,Vels3#47H=1525 variable Vels3#48=1526,Vels3#48H=1527,Vels3#49=1528,Vels3#49H=1529 variable Vels3#50=1530,Vels3#50H=1531,Vels3#51=1532,Vels3#51H=1533 variable Vels3#52=1534,Vels3#52H=1535,Vels3#53=1536,Vels3#53H=1537 variable Vels3#54=1538,Vels3#54H=1539,Vels3#55=1540,Vels3#55H=1541 variable Vels3#56=1542,Vels3#56H=1543,Vels3#57=1544,Vels3#57H=1545 variable Vels3#58=1546,Vels3#58H=1547,Vels3#59=1548,Vels3#59H=1549 variable Vels3#60=1550,Vels3#60H=1551,Vels3#61=1552,Vels3#61H=1553 variable Vels3#62=1554,Vels3#62H=1555,Vels3#63=1556,Vels3#63H=1557 variable Vels3#64=1558,Vels3#64H=1559,Vels3#65=1560,Vels3#65H=1561 variable Vels3#66=1562,Vels3#66H=1563,Vels3#67=1564,Vels3#67H=1565 variable Vels3#68=1566,Vels3#68H=1567,Vels3#69=1568,Vels3#69H=1569 variable Vels3#70=1570,Vels3#70H=1571,Vels3#71=1572,Vels3#71H=1573 variable Vels3#72=1574,Vels3#72H=1575,Vels3#73=1576,Vels3#73H=1577 variable Vels3#74=1578,Vels3#74H=1579,Vels3#75=1580,Vels3#75H=1581 variable Vels3#76=1582,Vels3#76H=1583,Vels3#77=1584,Vels3#77H=1585 variable Vels3#78=1586,Vels3#78H=1587,Vels3#79=1588,Vels3#79H=1589 variable Vels3#80=1590,Vels3#80H=1591,Vels3#81=1592,Vels3#81H=1593 variable Vels3#82=1594,Vels3#82H=1595,Vels3#83=1596,Vels3#83H=1597 variable Vels3#84=1598,Vels3#84H=1599,Vels3#85=1600,Vels3#85H=1601 variable Vels3#86=1602,Vels3#86H=1603,Vels3#87=1604,Vels3#87H=1605 variable Vels3#88=1606,Vels3#88H=1607,Vels3#89=1608,Vels3#89H=1609 variable Vels3#90=1610,Vels3#90H=1611,Vels3#91=1612,Vels3#91H=1613 variable Vels3#92=1614,Vels3#92H=1615,Vels3#93=1616,Vels3#93H=1617 variable Vels3#94=1618,Vels3#94H=1619,Vels3#95=1620,Vels3#95H=1621 variable Vels3#96=1622,Vels3#96H=1623,Vels3#97=1624,Vels3#97H=1625 variable Vels3#98=1626,Vels3#98H=1627,Vels3#99=1628,Vels3#99H=1629 variable Vels3#100=1630,Vels3#100H=1631,Vels3#101=1632,Vels3#101H=1633 variable Vels3#102=1634,Vels3#102H=1635,Vels3#103=1636,Vels3#103H=1637 variable Vels3#104=1638,Vels3#104H=1639,Vels3#105=1640,Vels3#105H=1641 variable Vels3#106=1642,Vels3#106H=1643,Vels3#107=1644,Vels3#107H=1645 variable Vels3#108=1646,Vels3#108H=1647,Vels3#109=1648,Vels3#109H=1649 variable Vels3#110=1650,Vels3#110H=1651,Vels3#111=1652,Vels3#111H=1653 variable Vels3#112=1654,Vels3#112H=1655,Vels3#113=1656,Vels3#113H=1657 variable Vels3#114=1658,Vels3#114H=1659,Vels3#115=1660,Vels3#115H=1661 variable Vels3#116=1662,Vels3#116H=1663,Vels3#117=1664,Vels3#117H=1665 variable Vels3#118=1666,Vels3#118H=1667,Vels3#119=1668,Vels3#119H=1669 variable Vels3#120=1670,Vels3#120H=1671,Vels3#121=1672,Vels3#121H=1673 variable Vels3#122=1674,Vels3#122H=1675,Vels3#123=1676,Vels3#123H=1677 variable Vels3#124=1678,Vels3#124H=1679,Vels3#125=1680,Vels3#125H=1681 variable Vels3#126=1682,Vels3#126H=1683,Vels3#127=1684,Vels3#127H=1685 Vels4 = 1686 Vels4H = 1687 variable Vels4#0=1686,Vels4#0H=1687,Vels4#1=1688,Vels4#1H=1689 variable Vels4#2=1690,Vels4#2H=1691,Vels4#3=1692,Vels4#3H=1693 variable Vels4#4=1694,Vels4#4H=1695,Vels4#5=1696,Vels4#5H=1697 variable Vels4#6=1698,Vels4#6H=1699,Vels4#7=1700,Vels4#7H=1701 variable Vels4#8=1702,Vels4#8H=1703,Vels4#9=1704,Vels4#9H=1705 variable Vels4#10=1706,Vels4#10H=1707,Vels4#11=1708,Vels4#11H=1709 variable Vels4#12=1710,Vels4#12H=1711,Vels4#13=1712,Vels4#13H=1713 variable Vels4#14=1714,Vels4#14H=1715,Vels4#15=1716,Vels4#15H=1717 variable Vels4#16=1718,Vels4#16H=1719,Vels4#17=1720,Vels4#17H=1721 variable Vels4#18=1722,Vels4#18H=1723,Vels4#19=1724,Vels4#19H=1725 variable Vels4#20=1726,Vels4#20H=1727,Vels4#21=1728,Vels4#21H=1729 variable Vels4#22=1730,Vels4#22H=1731,Vels4#23=1732,Vels4#23H=1733 variable Vels4#24=1734,Vels4#24H=1735,Vels4#25=1736,Vels4#25H=1737 variable Vels4#26=1738,Vels4#26H=1739,Vels4#27=1740,Vels4#27H=1741 variable Vels4#28=1742,Vels4#28H=1743,Vels4#29=1744,Vels4#29H=1745 variable Vels4#30=1746,Vels4#30H=1747,Vels4#31=1748,Vels4#31H=1749 variable Vels4#32=1750,Vels4#32H=1751,Vels4#33=1752,Vels4#33H=1753 variable Vels4#34=1754,Vels4#34H=1755,Vels4#35=1756,Vels4#35H=1757 variable Vels4#36=1758,Vels4#36H=1759,Vels4#37=1760,Vels4#37H=1761 variable Vels4#38=1762,Vels4#38H=1763,Vels4#39=1764,Vels4#39H=1765 variable Vels4#40=1766,Vels4#40H=1767,Vels4#41=1768,Vels4#41H=1769 variable Vels4#42=1770,Vels4#42H=1771,Vels4#43=1772,Vels4#43H=1773 variable Vels4#44=1774,Vels4#44H=1775,Vels4#45=1776,Vels4#45H=1777 variable Vels4#46=1778,Vels4#46H=1779,Vels4#47=1780,Vels4#47H=1781 variable Vels4#48=1782,Vels4#48H=1783,Vels4#49=1784,Vels4#49H=1785 variable Vels4#50=1786,Vels4#50H=1787,Vels4#51=1788,Vels4#51H=1789 variable Vels4#52=1790,Vels4#52H=1791,Vels4#53=1792,Vels4#53H=1793 variable Vels4#54=1794,Vels4#54H=1795,Vels4#55=1796,Vels4#55H=1797 variable Vels4#56=1798,Vels4#56H=1799,Vels4#57=1800,Vels4#57H=1801 variable Vels4#58=1802,Vels4#58H=1803,Vels4#59=1804,Vels4#59H=1805 variable Vels4#60=1806,Vels4#60H=1807,Vels4#61=1808,Vels4#61H=1809 variable Vels4#62=1810,Vels4#62H=1811,Vels4#63=1812,Vels4#63H=1813 variable Vels4#64=1814,Vels4#64H=1815,Vels4#65=1816,Vels4#65H=1817 variable Vels4#66=1818,Vels4#66H=1819,Vels4#67=1820,Vels4#67H=1821 variable Vels4#68=1822,Vels4#68H=1823,Vels4#69=1824,Vels4#69H=1825 variable Vels4#70=1826,Vels4#70H=1827,Vels4#71=1828,Vels4#71H=1829 variable Vels4#72=1830,Vels4#72H=1831,Vels4#73=1832,Vels4#73H=1833 variable Vels4#74=1834,Vels4#74H=1835,Vels4#75=1836,Vels4#75H=1837 variable Vels4#76=1838,Vels4#76H=1839,Vels4#77=1840,Vels4#77H=1841 variable Vels4#78=1842,Vels4#78H=1843,Vels4#79=1844,Vels4#79H=1845 variable Vels4#80=1846,Vels4#80H=1847,Vels4#81=1848,Vels4#81H=1849 variable Vels4#82=1850,Vels4#82H=1851,Vels4#83=1852,Vels4#83H=1853 variable Vels4#84=1854,Vels4#84H=1855,Vels4#85=1856,Vels4#85H=1857 variable Vels4#86=1858,Vels4#86H=1859,Vels4#87=1860,Vels4#87H=1861 variable Vels4#88=1862,Vels4#88H=1863,Vels4#89=1864,Vels4#89H=1865 variable Vels4#90=1866,Vels4#90H=1867,Vels4#91=1868,Vels4#91H=1869 variable Vels4#92=1870,Vels4#92H=1871,Vels4#93=1872,Vels4#93H=1873 variable Vels4#94=1874,Vels4#94H=1875,Vels4#95=1876,Vels4#95H=1877 variable Vels4#96=1878,Vels4#96H=1879,Vels4#97=1880,Vels4#97H=1881 variable Vels4#98=1882,Vels4#98H=1883,Vels4#99=1884,Vels4#99H=1885 variable Vels4#100=1886,Vels4#100H=1887,Vels4#101=1888,Vels4#101H=1889 variable Vels4#102=1890,Vels4#102H=1891,Vels4#103=1892,Vels4#103H=1893 variable Vels4#104=1894,Vels4#104H=1895,Vels4#105=1896,Vels4#105H=1897 variable Vels4#106=1898,Vels4#106H=1899,Vels4#107=1900,Vels4#107H=1901 variable Vels4#108=1902,Vels4#108H=1903,Vels4#109=1904,Vels4#109H=1905 variable Vels4#110=1906,Vels4#110H=1907,Vels4#111=1908,Vels4#111H=1909 variable Vels4#112=1910,Vels4#112H=1911,Vels4#113=1912,Vels4#113H=1913 variable Vels4#114=1914,Vels4#114H=1915,Vels4#115=1916,Vels4#115H=1917 variable Vels4#116=1918,Vels4#116H=1919,Vels4#117=1920,Vels4#117H=1921 variable Vels4#118=1922,Vels4#118H=1923,Vels4#119=1924,Vels4#119H=1925 variable Vels4#120=1926,Vels4#120H=1927,Vels4#121=1928,Vels4#121H=1929 variable Vels4#122=1930,Vels4#122H=1931,Vels4#123=1932,Vels4#123H=1933 variable Vels4#124=1934,Vels4#124H=1935,Vels4#125=1936,Vels4#125H=1937 variable Vels4#126=1938,Vels4#126H=1939,Vels4#127=1940,Vels4#127H=1941 Vels5 = 1942 Vels5H = 1943 variable Vels5#0=1942,Vels5#0H=1943,Vels5#1=1944,Vels5#1H=1945 variable Vels5#2=1946,Vels5#2H=1947,Vels5#3=1948,Vels5#3H=1949 variable Vels5#4=1950,Vels5#4H=1951,Vels5#5=1952,Vels5#5H=1953 variable Vels5#6=1954,Vels5#6H=1955,Vels5#7=1956,Vels5#7H=1957 variable Vels5#8=1958,Vels5#8H=1959,Vels5#9=1960,Vels5#9H=1961 variable Vels5#10=1962,Vels5#10H=1963,Vels5#11=1964,Vels5#11H=1965 variable Vels5#12=1966,Vels5#12H=1967,Vels5#13=1968,Vels5#13H=1969 variable Vels5#14=1970,Vels5#14H=1971,Vels5#15=1972,Vels5#15H=1973 variable Vels5#16=1974,Vels5#16H=1975,Vels5#17=1976,Vels5#17H=1977 variable Vels5#18=1978,Vels5#18H=1979,Vels5#19=1980,Vels5#19H=1981 variable Vels5#20=1982,Vels5#20H=1983,Vels5#21=1984,Vels5#21H=1985 variable Vels5#22=1986,Vels5#22H=1987,Vels5#23=1988,Vels5#23H=1989 variable Vels5#24=1990,Vels5#24H=1991,Vels5#25=1992,Vels5#25H=1993 variable Vels5#26=1994,Vels5#26H=1995,Vels5#27=1996,Vels5#27H=1997 variable Vels5#28=1998,Vels5#28H=1999,Vels5#29=2000,Vels5#29H=2001 variable Vels5#30=2002,Vels5#30H=2003,Vels5#31=2004,Vels5#31H=2005 variable Vels5#32=2006,Vels5#32H=2007,Vels5#33=2008,Vels5#33H=2009 variable Vels5#34=2010,Vels5#34H=2011,Vels5#35=2012,Vels5#35H=2013 variable Vels5#36=2014,Vels5#36H=2015,Vels5#37=2016,Vels5#37H=2017 variable Vels5#38=2018,Vels5#38H=2019,Vels5#39=2020,Vels5#39H=2021 variable Vels5#40=2022,Vels5#40H=2023,Vels5#41=2024,Vels5#41H=2025 variable Vels5#42=2026,Vels5#42H=2027,Vels5#43=2028,Vels5#43H=2029 variable Vels5#44=2030,Vels5#44H=2031,Vels5#45=2032,Vels5#45H=2033 variable Vels5#46=2034,Vels5#46H=2035,Vels5#47=2036,Vels5#47H=2037 variable Vels5#48=2038,Vels5#48H=2039,Vels5#49=2040,Vels5#49H=2041 variable Vels5#50=2042,Vels5#50H=2043,Vels5#51=2044,Vels5#51H=2045 variable Vels5#52=2046,Vels5#52H=2047,Vels5#53=2048,Vels5#53H=2049 variable Vels5#54=2050,Vels5#54H=2051,Vels5#55=2052,Vels5#55H=2053 variable Vels5#56=2054,Vels5#56H=2055,Vels5#57=2056,Vels5#57H=2057 variable Vels5#58=2058,Vels5#58H=2059,Vels5#59=2060,Vels5#59H=2061 variable Vels5#60=2062,Vels5#60H=2063,Vels5#61=2064,Vels5#61H=2065 variable Vels5#62=2066,Vels5#62H=2067,Vels5#63=2068,Vels5#63H=2069 variable Vels5#64=2070,Vels5#64H=2071,Vels5#65=2072,Vels5#65H=2073 variable Vels5#66=2074,Vels5#66H=2075,Vels5#67=2076,Vels5#67H=2077 variable Vels5#68=2078,Vels5#68H=2079,Vels5#69=2080,Vels5#69H=2081 variable Vels5#70=2082,Vels5#70H=2083,Vels5#71=2084,Vels5#71H=2085 variable Vels5#72=2086,Vels5#72H=2087,Vels5#73=2088,Vels5#73H=2089 variable Vels5#74=2090,Vels5#74H=2091,Vels5#75=2092,Vels5#75H=2093 variable Vels5#76=2094,Vels5#76H=2095,Vels5#77=2096,Vels5#77H=2097 variable Vels5#78=2098,Vels5#78H=2099,Vels5#79=2100,Vels5#79H=2101 variable Vels5#80=2102,Vels5#80H=2103,Vels5#81=2104,Vels5#81H=2105 variable Vels5#82=2106,Vels5#82H=2107,Vels5#83=2108,Vels5#83H=2109 variable Vels5#84=2110,Vels5#84H=2111,Vels5#85=2112,Vels5#85H=2113 variable Vels5#86=2114,Vels5#86H=2115,Vels5#87=2116,Vels5#87H=2117 variable Vels5#88=2118,Vels5#88H=2119,Vels5#89=2120,Vels5#89H=2121 variable Vels5#90=2122,Vels5#90H=2123,Vels5#91=2124,Vels5#91H=2125 variable Vels5#92=2126,Vels5#92H=2127,Vels5#93=2128,Vels5#93H=2129 variable Vels5#94=2130,Vels5#94H=2131,Vels5#95=2132,Vels5#95H=2133 variable Vels5#96=2134,Vels5#96H=2135,Vels5#97=2136,Vels5#97H=2137 variable Vels5#98=2138,Vels5#98H=2139,Vels5#99=2140,Vels5#99H=2141 variable Vels5#100=2142,Vels5#100H=2143,Vels5#101=2144,Vels5#101H=2145 variable Vels5#102=2146,Vels5#102H=2147,Vels5#103=2148,Vels5#103H=2149 variable Vels5#104=2150,Vels5#104H=2151,Vels5#105=2152,Vels5#105H=2153 variable Vels5#106=2154,Vels5#106H=2155,Vels5#107=2156,Vels5#107H=2157 variable Vels5#108=2158,Vels5#108H=2159,Vels5#109=2160,Vels5#109H=2161 variable Vels5#110=2162,Vels5#110H=2163,Vels5#111=2164,Vels5#111H=2165 variable Vels5#112=2166,Vels5#112H=2167,Vels5#113=2168,Vels5#113H=2169 variable Vels5#114=2170,Vels5#114H=2171,Vels5#115=2172,Vels5#115H=2173 variable Vels5#116=2174,Vels5#116H=2175,Vels5#117=2176,Vels5#117H=2177 variable Vels5#118=2178,Vels5#118H=2179,Vels5#119=2180,Vels5#119H=2181 variable Vels5#120=2182,Vels5#120H=2183,Vels5#121=2184,Vels5#121H=2185 variable Vels5#122=2186,Vels5#122H=2187,Vels5#123=2188,Vels5#123H=2189 variable Vels5#124=2190,Vels5#124H=2191,Vels5#125=2192,Vels5#125H=2193 variable Vels5#126=2194,Vels5#126H=2195,Vels5#127=2196,Vels5#127H=2197 Vels6 = 2198 Vels6H = 2199 variable Vels6#0=2198,Vels6#0H=2199,Vels6#1=2200,Vels6#1H=2201 variable Vels6#2=2202,Vels6#2H=2203,Vels6#3=2204,Vels6#3H=2205 variable Vels6#4=2206,Vels6#4H=2207,Vels6#5=2208,Vels6#5H=2209 variable Vels6#6=2210,Vels6#6H=2211,Vels6#7=2212,Vels6#7H=2213 variable Vels6#8=2214,Vels6#8H=2215,Vels6#9=2216,Vels6#9H=2217 variable Vels6#10=2218,Vels6#10H=2219,Vels6#11=2220,Vels6#11H=2221 variable Vels6#12=2222,Vels6#12H=2223,Vels6#13=2224,Vels6#13H=2225 variable Vels6#14=2226,Vels6#14H=2227,Vels6#15=2228,Vels6#15H=2229 variable Vels6#16=2230,Vels6#16H=2231,Vels6#17=2232,Vels6#17H=2233 variable Vels6#18=2234,Vels6#18H=2235,Vels6#19=2236,Vels6#19H=2237 variable Vels6#20=2238,Vels6#20H=2239,Vels6#21=2240,Vels6#21H=2241 variable Vels6#22=2242,Vels6#22H=2243,Vels6#23=2244,Vels6#23H=2245 variable Vels6#24=2246,Vels6#24H=2247,Vels6#25=2248,Vels6#25H=2249 variable Vels6#26=2250,Vels6#26H=2251,Vels6#27=2252,Vels6#27H=2253 variable Vels6#28=2254,Vels6#28H=2255,Vels6#29=2256,Vels6#29H=2257 variable Vels6#30=2258,Vels6#30H=2259,Vels6#31=2260,Vels6#31H=2261 variable Vels6#32=2262,Vels6#32H=2263,Vels6#33=2264,Vels6#33H=2265 variable Vels6#34=2266,Vels6#34H=2267,Vels6#35=2268,Vels6#35H=2269 variable Vels6#36=2270,Vels6#36H=2271,Vels6#37=2272,Vels6#37H=2273 variable Vels6#38=2274,Vels6#38H=2275,Vels6#39=2276,Vels6#39H=2277 variable Vels6#40=2278,Vels6#40H=2279,Vels6#41=2280,Vels6#41H=2281 variable Vels6#42=2282,Vels6#42H=2283,Vels6#43=2284,Vels6#43H=2285 variable Vels6#44=2286,Vels6#44H=2287,Vels6#45=2288,Vels6#45H=2289 variable Vels6#46=2290,Vels6#46H=2291,Vels6#47=2292,Vels6#47H=2293 variable Vels6#48=2294,Vels6#48H=2295,Vels6#49=2296,Vels6#49H=2297 variable Vels6#50=2298,Vels6#50H=2299,Vels6#51=2300,Vels6#51H=2301 variable Vels6#52=2302,Vels6#52H=2303,Vels6#53=2304,Vels6#53H=2305 variable Vels6#54=2306,Vels6#54H=2307,Vels6#55=2308,Vels6#55H=2309 variable Vels6#56=2310,Vels6#56H=2311,Vels6#57=2312,Vels6#57H=2313 variable Vels6#58=2314,Vels6#58H=2315,Vels6#59=2316,Vels6#59H=2317 variable Vels6#60=2318,Vels6#60H=2319,Vels6#61=2320,Vels6#61H=2321 variable Vels6#62=2322,Vels6#62H=2323,Vels6#63=2324,Vels6#63H=2325 variable Vels6#64=2326,Vels6#64H=2327,Vels6#65=2328,Vels6#65H=2329 variable Vels6#66=2330,Vels6#66H=2331,Vels6#67=2332,Vels6#67H=2333 variable Vels6#68=2334,Vels6#68H=2335,Vels6#69=2336,Vels6#69H=2337 variable Vels6#70=2338,Vels6#70H=2339,Vels6#71=2340,Vels6#71H=2341 variable Vels6#72=2342,Vels6#72H=2343,Vels6#73=2344,Vels6#73H=2345 variable Vels6#74=2346,Vels6#74H=2347,Vels6#75=2348,Vels6#75H=2349 variable Vels6#76=2350,Vels6#76H=2351,Vels6#77=2352,Vels6#77H=2353 variable Vels6#78=2354,Vels6#78H=2355,Vels6#79=2356,Vels6#79H=2357 variable Vels6#80=2358,Vels6#80H=2359,Vels6#81=2360,Vels6#81H=2361 variable Vels6#82=2362,Vels6#82H=2363,Vels6#83=2364,Vels6#83H=2365 variable Vels6#84=2366,Vels6#84H=2367,Vels6#85=2368,Vels6#85H=2369 variable Vels6#86=2370,Vels6#86H=2371,Vels6#87=2372,Vels6#87H=2373 variable Vels6#88=2374,Vels6#88H=2375,Vels6#89=2376,Vels6#89H=2377 variable Vels6#90=2378,Vels6#90H=2379,Vels6#91=2380,Vels6#91H=2381 variable Vels6#92=2382,Vels6#92H=2383,Vels6#93=2384,Vels6#93H=2385 variable Vels6#94=2386,Vels6#94H=2387,Vels6#95=2388,Vels6#95H=2389 variable Vels6#96=2390,Vels6#96H=2391,Vels6#97=2392,Vels6#97H=2393 variable Vels6#98=2394,Vels6#98H=2395,Vels6#99=2396,Vels6#99H=2397 variable Vels6#100=2398,Vels6#100H=2399,Vels6#101=2400,Vels6#101H=2401 variable Vels6#102=2402,Vels6#102H=2403,Vels6#103=2404,Vels6#103H=2405 variable Vels6#104=2406,Vels6#104H=2407,Vels6#105=2408,Vels6#105H=2409 variable Vels6#106=2410,Vels6#106H=2411,Vels6#107=2412,Vels6#107H=2413 variable Vels6#108=2414,Vels6#108H=2415,Vels6#109=2416,Vels6#109H=2417 variable Vels6#110=2418,Vels6#110H=2419,Vels6#111=2420,Vels6#111H=2421 variable Vels6#112=2422,Vels6#112H=2423,Vels6#113=2424,Vels6#113H=2425 variable Vels6#114=2426,Vels6#114H=2427,Vels6#115=2428,Vels6#115H=2429 variable Vels6#116=2430,Vels6#116H=2431,Vels6#117=2432,Vels6#117H=2433 variable Vels6#118=2434,Vels6#118H=2435,Vels6#119=2436,Vels6#119H=2437 variable Vels6#120=2438,Vels6#120H=2439,Vels6#121=2440,Vels6#121H=2441 variable Vels6#122=2442,Vels6#122H=2443,Vels6#123=2444,Vels6#123H=2445 variable Vels6#124=2446,Vels6#124H=2447,Vels6#125=2448,Vels6#125H=2449 variable Vels6#126=2450,Vels6#126H=2451,Vels6#127=2452,Vels6#127H=2453 Dur = 2454 DurH = 2455 variable Dur#0=2454,Dur#0H=2455,Dur#1=2456,Dur#1H=2457 variable Dur#2=2458,Dur#2H=2459,Dur#3=2460,Dur#3H=2461 variable Dur#4=2462,Dur#4H=2463,Dur#5=2464,Dur#5H=2465 variable Dur#6=2466,Dur#6H=2467,Dur#7=2468,Dur#7H=2469 variable Dur#8=2470,Dur#8H=2471,Dur#9=2472,Dur#9H=2473 variable Dur#10=2474,Dur#10H=2475,Dur#11=2476,Dur#11H=2477 variable Dur#12=2478,Dur#12H=2479,Dur#13=2480,Dur#13H=2481 variable Dur#14=2482,Dur#14H=2483,Dur#15=2484,Dur#15H=2485 variable Dur#16=2486,Dur#16H=2487,Dur#17=2488,Dur#17H=2489 variable Dur#18=2490,Dur#18H=2491,Dur#19=2492,Dur#19H=2493 variable Dur#20=2494,Dur#20H=2495,Dur#21=2496,Dur#21H=2497 variable Dur#22=2498,Dur#22H=2499,Dur#23=2500,Dur#23H=2501 variable Dur#24=2502,Dur#24H=2503,Dur#25=2504,Dur#25H=2505 variable Dur#26=2506,Dur#26H=2507,Dur#27=2508,Dur#27H=2509 variable Dur#28=2510,Dur#28H=2511,Dur#29=2512,Dur#29H=2513 variable Dur#30=2514,Dur#30H=2515,Dur#31=2516,Dur#31H=2517 variable Dur#32=2518,Dur#32H=2519,Dur#33=2520,Dur#33H=2521 variable Dur#34=2522,Dur#34H=2523,Dur#35=2524,Dur#35H=2525 variable Dur#36=2526,Dur#36H=2527,Dur#37=2528,Dur#37H=2529 variable Dur#38=2530,Dur#38H=2531,Dur#39=2532,Dur#39H=2533 variable Dur#40=2534,Dur#40H=2535,Dur#41=2536,Dur#41H=2537 variable Dur#42=2538,Dur#42H=2539,Dur#43=2540,Dur#43H=2541 variable Dur#44=2542,Dur#44H=2543,Dur#45=2544,Dur#45H=2545 variable Dur#46=2546,Dur#46H=2547,Dur#47=2548,Dur#47H=2549 variable Dur#48=2550,Dur#48H=2551,Dur#49=2552,Dur#49H=2553 variable Dur#50=2554,Dur#50H=2555,Dur#51=2556,Dur#51H=2557 variable Dur#52=2558,Dur#52H=2559,Dur#53=2560,Dur#53H=2561 variable Dur#54=2562,Dur#54H=2563,Dur#55=2564,Dur#55H=2565 variable Dur#56=2566,Dur#56H=2567,Dur#57=2568,Dur#57H=2569 variable Dur#58=2570,Dur#58H=2571,Dur#59=2572,Dur#59H=2573 variable Dur#60=2574,Dur#60H=2575,Dur#61=2576,Dur#61H=2577 variable Dur#62=2578,Dur#62H=2579,Dur#63=2580,Dur#63H=2581 variable Dur#64=2582,Dur#64H=2583,Dur#65=2584,Dur#65H=2585 variable Dur#66=2586,Dur#66H=2587,Dur#67=2588,Dur#67H=2589 variable Dur#68=2590,Dur#68H=2591,Dur#69=2592,Dur#69H=2593 variable Dur#70=2594,Dur#70H=2595,Dur#71=2596,Dur#71H=2597 variable Dur#72=2598,Dur#72H=2599,Dur#73=2600,Dur#73H=2601 variable Dur#74=2602,Dur#74H=2603,Dur#75=2604,Dur#75H=2605 variable Dur#76=2606,Dur#76H=2607,Dur#77=2608,Dur#77H=2609 variable Dur#78=2610,Dur#78H=2611,Dur#79=2612,Dur#79H=2613 variable Dur#80=2614,Dur#80H=2615,Dur#81=2616,Dur#81H=2617 variable Dur#82=2618,Dur#82H=2619,Dur#83=2620,Dur#83H=2621 variable Dur#84=2622,Dur#84H=2623,Dur#85=2624,Dur#85H=2625 variable Dur#86=2626,Dur#86H=2627,Dur#87=2628,Dur#87H=2629 variable Dur#88=2630,Dur#88H=2631,Dur#89=2632,Dur#89H=2633 variable Dur#90=2634,Dur#90H=2635,Dur#91=2636,Dur#91H=2637 variable Dur#92=2638,Dur#92H=2639,Dur#93=2640,Dur#93H=2641 variable Dur#94=2642,Dur#94H=2643,Dur#95=2644,Dur#95H=2645 variable Dur#96=2646,Dur#96H=2647,Dur#97=2648,Dur#97H=2649 variable Dur#98=2650,Dur#98H=2651,Dur#99=2652,Dur#99H=2653 variable Dur#100=2654,Dur#100H=2655,Dur#101=2656,Dur#101H=2657 variable Dur#102=2658,Dur#102H=2659,Dur#103=2660,Dur#103H=2661 variable Dur#104=2662,Dur#104H=2663,Dur#105=2664,Dur#105H=2665 variable Dur#106=2666,Dur#106H=2667,Dur#107=2668,Dur#107H=2669 variable Dur#108=2670,Dur#108H=2671,Dur#109=2672,Dur#109H=2673 variable Dur#110=2674,Dur#110H=2675,Dur#111=2676,Dur#111H=2677 variable Dur#112=2678,Dur#112H=2679,Dur#113=2680,Dur#113H=2681 variable Dur#114=2682,Dur#114H=2683,Dur#115=2684,Dur#115H=2685 variable Dur#116=2686,Dur#116H=2687,Dur#117=2688,Dur#117H=2689 variable Dur#118=2690,Dur#118H=2691,Dur#119=2692,Dur#119H=2693 variable Dur#120=2694,Dur#120H=2695,Dur#121=2696,Dur#121H=2697 variable Dur#122=2698,Dur#122H=2699,Dur#123=2700,Dur#123H=2701 variable Dur#124=2702,Dur#124H=2703,Dur#125=2704,Dur#125H=2705 variable Dur#126=2706,Dur#126H=2707,Dur#127=2708,Dur#127H=2709 Ringbuffer = 256 variable Ringbuffer#0=256,Ringbuffer#1=257,Ringbuffer#2=258,Ringbuffer#3=259 variable Ringbuffer#4=260,Ringbuffer#5=261,Ringbuffer#6=262,Ringbuffer#7=263 variable Ringbuffer#8=264,Ringbuffer#9=265,Ringbuffer#10=266,Ringbuffer#11=267 variable Ringbuffer#12=268,Ringbuffer#13=269,Ringbuffer#14=270,Ringbuffer#15=271 variable Ringbuffer#16=272,Ringbuffer#17=273,Ringbuffer#18=274,Ringbuffer#19=275 variable Ringbuffer#20=276,Ringbuffer#21=277,Ringbuffer#22=278,Ringbuffer#23=279 variable Ringbuffer#24=280,Ringbuffer#25=281,Ringbuffer#26=282,Ringbuffer#27=283 variable Ringbuffer#28=284,Ringbuffer#29=285,Ringbuffer#30=286,Ringbuffer#31=287 variable Ringbuffer#32=288,Ringbuffer#33=289,Ringbuffer#34=290,Ringbuffer#35=291 variable Ringbuffer#36=292,Ringbuffer#37=293,Ringbuffer#38=294,Ringbuffer#39=295 variable Ringbuffer#40=296,Ringbuffer#41=297,Ringbuffer#42=298,Ringbuffer#43=299 variable Ringbuffer#44=300,Ringbuffer#45=301,Ringbuffer#46=302,Ringbuffer#47=303 variable Ringbuffer#48=304,Ringbuffer#49=305,Ringbuffer#50=306,Ringbuffer#51=307 variable Ringbuffer#52=308,Ringbuffer#53=309,Ringbuffer#54=310,Ringbuffer#55=311 variable Ringbuffer#56=312,Ringbuffer#57=313,Ringbuffer#58=314,Ringbuffer#59=315 variable Ringbuffer#60=316,Ringbuffer#61=317,Ringbuffer#62=318,Ringbuffer#63=319 variable Ringbuffer#64=320,Ringbuffer#65=321,Ringbuffer#66=322,Ringbuffer#67=323 variable Ringbuffer#68=324,Ringbuffer#69=325,Ringbuffer#70=326,Ringbuffer#71=327 variable Ringbuffer#72=328,Ringbuffer#73=329,Ringbuffer#74=330,Ringbuffer#75=331 variable Ringbuffer#76=332,Ringbuffer#77=333,Ringbuffer#78=334,Ringbuffer#79=335 variable Ringbuffer#80=336,Ringbuffer#81=337,Ringbuffer#82=338,Ringbuffer#83=339 variable Ringbuffer#84=340,Ringbuffer#85=341,Ringbuffer#86=342,Ringbuffer#87=343 variable Ringbuffer#88=344,Ringbuffer#89=345,Ringbuffer#90=346,Ringbuffer#91=347 variable Ringbuffer#92=348,Ringbuffer#93=349,Ringbuffer#94=350,Ringbuffer#95=351 variable Ringbuffer#96=352,Ringbuffer#97=353,Ringbuffer#98=354,Ringbuffer#99=355 variable Ringbuffer#100=356,Ringbuffer#101=357,Ringbuffer#102=358,Ringbuffer#103=359 variable Ringbuffer#104=360,Ringbuffer#105=361,Ringbuffer#106=362,Ringbuffer#107=363 variable Ringbuffer#108=364,Ringbuffer#109=365,Ringbuffer#110=366,Ringbuffer#111=367 variable Ringbuffer#112=368,Ringbuffer#113=369,Ringbuffer#114=370,Ringbuffer#115=371 variable Ringbuffer#116=372,Ringbuffer#117=373,Ringbuffer#118=374,Ringbuffer#119=375 variable Ringbuffer#120=376,Ringbuffer#121=377,Ringbuffer#122=378,Ringbuffer#123=379 variable Ringbuffer#124=380,Ringbuffer#125=381,Ringbuffer#126=382,Ringbuffer#127=383 variable Ringbuffer#128=384,Ringbuffer#129=385,Ringbuffer#130=386,Ringbuffer#131=387 variable Ringbuffer#132=388,Ringbuffer#133=389,Ringbuffer#134=390,Ringbuffer#135=391 variable Ringbuffer#136=392,Ringbuffer#137=393,Ringbuffer#138=394,Ringbuffer#139=395 variable Ringbuffer#140=396,Ringbuffer#141=397,Ringbuffer#142=398,Ringbuffer#143=399 variable Ringbuffer#144=400,Ringbuffer#145=401,Ringbuffer#146=402,Ringbuffer#147=403 variable Ringbuffer#148=404,Ringbuffer#149=405,Ringbuffer#150=406,Ringbuffer#151=407 variable Ringbuffer#152=408,Ringbuffer#153=409,Ringbuffer#154=410,Ringbuffer#155=411 variable Ringbuffer#156=412,Ringbuffer#157=413,Ringbuffer#158=414,Ringbuffer#159=415 variable Ringbuffer#160=416,Ringbuffer#161=417,Ringbuffer#162=418,Ringbuffer#163=419 variable Ringbuffer#164=420,Ringbuffer#165=421,Ringbuffer#166=422,Ringbuffer#167=423 variable Ringbuffer#168=424,Ringbuffer#169=425,Ringbuffer#170=426,Ringbuffer#171=427 variable Ringbuffer#172=428,Ringbuffer#173=429,Ringbuffer#174=430,Ringbuffer#175=431 variable Ringbuffer#176=432,Ringbuffer#177=433,Ringbuffer#178=434,Ringbuffer#179=435 variable Ringbuffer#180=436,Ringbuffer#181=437,Ringbuffer#182=438,Ringbuffer#183=439 variable Ringbuffer#184=440,Ringbuffer#185=441,Ringbuffer#186=442,Ringbuffer#187=443 variable Ringbuffer#188=444,Ringbuffer#189=445,Ringbuffer#190=446,Ringbuffer#191=447 variable Ringbuffer#192=448,Ringbuffer#193=449,Ringbuffer#194=450,Ringbuffer#195=451 variable Ringbuffer#196=452,Ringbuffer#197=453,Ringbuffer#198=454,Ringbuffer#199=455 variable Ringbuffer#200=456,Ringbuffer#201=457,Ringbuffer#202=458,Ringbuffer#203=459 variable Ringbuffer#204=460,Ringbuffer#205=461,Ringbuffer#206=462,Ringbuffer#207=463 variable Ringbuffer#208=464,Ringbuffer#209=465,Ringbuffer#210=466,Ringbuffer#211=467 variable Ringbuffer#212=468,Ringbuffer#213=469,Ringbuffer#214=470,Ringbuffer#215=471 variable Ringbuffer#216=472,Ringbuffer#217=473,Ringbuffer#218=474,Ringbuffer#219=475 variable Ringbuffer#220=476,Ringbuffer#221=477,Ringbuffer#222=478,Ringbuffer#223=479 variable Ringbuffer#224=480,Ringbuffer#225=481,Ringbuffer#226=482,Ringbuffer#227=483 variable Ringbuffer#228=484,Ringbuffer#229=485,Ringbuffer#230=486,Ringbuffer#231=487 variable Ringbuffer#232=488,Ringbuffer#233=489,Ringbuffer#234=490,Ringbuffer#235=491 variable Ringbuffer#236=492,Ringbuffer#237=493,Ringbuffer#238=494,Ringbuffer#239=495 variable Ringbuffer#240=496,Ringbuffer#241=497,Ringbuffer#242=498,Ringbuffer#243=499 variable Ringbuffer#244=500,Ringbuffer#245=501,Ringbuffer#246=502,Ringbuffer#247=503 variable Ringbuffer#248=504,Ringbuffer#249=505,Ringbuffer#250=506,Ringbuffer#251=507 variable Ringbuffer#252=508,Ringbuffer#253=509,Ringbuffer#254=510,Ringbuffer#255=511 _Low__Context_Store = 2710 variable _Low__Context_Store#0=2710,_Low__Context_Store#1=2711,_Low__Context_Store#2=2712 #define StBit Bytein,7 #define PowerOn CC66,0 #define LR0 LRbyte,0 #define LR1 LRbyte,1 #define LR2 LRbyte,2 #define LR3 LRbyte,3 #define LR4 LRbyte,4 #define LR5 LRbyte,5 #define LR6 LRbyte,6 #define maxtim timeHHH,7 #define tg tog,0 #define FSR0SaveInt PP0 #define FSR0SaveIntH PP0H #define USART_FSR0_Save FSR0SaveInt #define USART_FSR0_SaveH FSR0SaveIntH #define USART_FSR0 FSR0L #define USART_FSR0H FSR0LH #define USART_FSR1 FSR1L #define USART_FSR1H FSR1LH #define __OPTIMISER_LEVEL 3 #define __XTAL 40 #define PWMminF 2442 #define PWMminFH 9 #define Bel1 94 #define Bel2 95 #define Bel3 96 #define Bel4 97 #define Bel5 98 #define Bel6 99 #define Bel7 100 #define Midichannel 11 #define NoteOff_Status 139 #define NoteOn_Status 155 #define Keypres_Status 171 #define Control_Status 187 #define ProgChange_Status 203 #define Aftertouch_Status 219 #define Pitchbend_Status 235 #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 __DELAY_MS_ clrf 9,0 __DELAY_MS_W_ movwf 8,0 DLY@P movlw 255 addwf 8,F,0 addwfc 9,F,0 bra $ + 2 btfss 4056,0,0 return movlw 3 movwf 7,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf 7,0 __DELAY_US_W_ addlw 254 movwf 6,0 clrf 4072,0 subwfb 7,F,0 btfss 4056,0,0 return nop decf 6,F,0 bra $ + 2 bra $ - 14 FPM@32 movf PP_AARGH,W,0 movwf 12,0 xorwf PP_BARGH,W,0 movwf _SIGN,0 movf PP_AARG,W,0 btfss 4056,2,0 movf PP_BARG,W,0 bz FP@MUL_RES0 addwf PP_AARG,F,0 movlw 126 bnc FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_2 bra FP@MUL_OVERFLOW FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_UNDERFLOW FP@MUL_2 movff PP_AARGHHH,10 movff PP_AARGHH,11 bsf 12,7,0 bsf PP_BARGH,7,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 movlw 24 movwf _FP_TEMP,0 FP@MUL_3 rrcf 12,F,0 rrcf 11,F,0 rrcf 10,F,0 bnc FP@MUL_4 movf PP_BARGHHH,W,0 addwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 addwfc PP_AARGHH,F,0 movf PP_BARGH,W,0 addwfc PP_AARGH,F,0 FP@MUL_4 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 decfsz _FP_TEMP,F,0 bra FP@MUL_3 btfsc PP_AARGH,7,0 bra FP@MUL_5 rlcf PP_AARGHHH,F,0 rlcf PP_AARGHH,F,0 rlcf PP_AARGH,F,0 movf PP_AARG,F,0 bz FP@MUL_UNDERFLOW decf PP_AARG,F,0 rlcf 12,W,0 FP@MUL_5 bnc FP@MUL_SET_SIGN incfsz PP_AARGHHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGH,F,0 bra FP@MUL_SET_SIGN bsf 4056,0,0 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 incfsz PP_AARG,F,0 bra FP@MUL_SET_SIGN bra FP@MUL_OVERFLOW FP@MUL_UNDERFLOW bsf _FP_FLAGS,2,0 FP@MUL_RES0 clrf PP_AARG,0 bra FP@MUL_MANTISSA FP@MUL_OVERFLOW bsf _FP_FLAGS,1,0 setf PP_AARG,0 FP@MUL_MANTISSA clrf PP_AARGHHH,0 clrf PP_AARGHH,0 movlw 128 movwf PP_AARGH,0 FP@MUL_SET_SIGN btfss _SIGN,7,0 bcf PP_AARGH,7,0 movf PP_AARGHHH,W,0 return _FL32_TO_INT32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W,0 movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH,0 rlcf PP_AARGHHH,F,0 rrcf _FP_TEMP,F,0 rrcf PP_AARGHHH,F,0 clrf _FP_FLAGS,0 rlcf PP_AARGHHH,F,0 rlcf _FP_TEMP,F,0 bnc _FL32INT__UNPKA1 bsf _FP_FLAGS,2,0 btg _FP_FLAGS,7,0 _FL32INT__UNPKA1 bnz _FL32INT__UNPKANZ bsf _FP_FLAGS,0,0 clrf _FP_TEMP,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKANZ incf _FP_TEMP,W,0 bz _FL32INT__UNPKA2 bsf 4056,0,0 rrcf PP_AARGHHH,F,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKA2 bcf 4056,0,0 rrcf PP_AARGHHH,F,0 bnz _FL32INT__UNPKNAN bsf _FP_FLAGS,1,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKNAN bsf _FP_FLAGS,3,0 _FL32INTUNP__EXIT btfsc _FP_FLAGS,3,0 bra _FL32INT__MAXPOS btfss _FP_FLAGS,1,0 bra _FL32INT__NOTINF _FL32INT__MAX btfsc _FP_FLAGS,2,0 bra _FL32INT__MAXNEG _FL32INT__MAXPOS movlw 127 movwf PP_AARGHHH,0 movlw 255 _FL32INT__WR123 movwf PP_AARGHH,0 movwf PP_AARGH,0 movwf PP_AARG,0 bra _FL32INT__EXIT _FL32INT__MAXNEG movlw 128 movwf PP_AARGHHH,0 bra _FL32INT__WRZ123 _FL32INT__ZERO clrf PP_AARGHHH,0 _FL32INT__WRZ123 movlw 0 bra _FL32INT__WR123 _FL32INT__NOTINF btfsc _FP_FLAGS,0,0 bra _FL32INT__ZERO clrf PP_AARG,0 movlw 159 cpfslt _FP_TEMP,0 bra _FL32INT__MAX movlw 126 cpfsgt _FP_TEMP,0 bra _FL32INT__ZERO _FL32INT__LOOP movlw 158 subwf _FP_TEMP,W,0 bz _FL32INT__LOOPEXIT bcf 4056,0,0 rrcf PP_AARGHHH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGH,F,0 rrcf PP_AARG,F,0 incf _FP_TEMP,F,0 bra _FL32INT__LOOP _FL32INT__LOOPEXIT btfss _FP_FLAGS,2,0 bra _FL32INT__EXIT bsf 4056,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 btfss PP_AARGHHH,7,0 bra _FL32INT__ZERO _FL32INT__EXIT movf PP_AARG,W,0 return _UNS_INT16_TOFL32 clrf PP_AARGHH,0 clrf PP_AARGHHH,0 _UNSGN_INT32_TOFL32 bcf _SIGN,7,0 bra IF@L5 _SGN_INT32_TOFL32 bcf _SIGN,7,0 btfss PP_AARGHHH,7,0 bra IF@L5 bsf STATUS,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 bsf _SIGN,7,0 IF@L5 movlw 150 movwf _FP_TEMP,0 movf PP_AARGHHH,F,0 bz IF@L7 IF@L17 movlw 8 addwf _FP_TEMP,F,0 movff PP_AARGH,PP_AARG movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH bra IF@L18 IF@L7 movf PP_AARGHH,F,0 bnz IF@L18 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARGH,W,0 bnz IF@L20 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARG,W,0 bnz IF@L22 movf PP_AARGHHH,W,0 bra IF@EXIT IF@L22 clrf PP_AARG,0 IF@L20 movwf PP_AARGHH,0 movff PP_AARG,PP_AARGH clrf PP_AARG,0 IF@L18 btfsc PP_AARGHH,7,0 bra IF@L24 bcf 4056,0,0 rlcf PP_AARG,F,0 rlcf PP_AARGH,F,0 rlcf PP_AARGHH,F,0 decf _FP_TEMP,F,0 bra IF@L18 IF@L24 btfss _SIGN,7,0 bcf PP_AARGHH,7,0 IF@L26 movf _FP_TEMP,W,0 IF@EXIT movff PP_AARG,PP_AARGHHH movwf PP_AARG,0 movf PP_AARGHH,W,0 movff PP_AARGH,PP_AARGHH movwf PP_AARGH,0 return proton#main#start movlw 64 movwf _FP_FLAGS,0 movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; TINTI_2.BAS F2_SOF equ $ ; 18F4620.INC F2_EOF equ $ ; 18F4620.INC F1_000081 equ $ ; IN [TINTI_2.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F1_000082 equ $ ; IN [TINTI_2.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000084 equ $ ; IN [TINTI_2.BAS] TRISA = %11000000 movlw 192 movwf TRISA,0 F1_000085 equ $ ; IN [TINTI_2.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000086 equ $ ; IN [TINTI_2.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000087 equ $ ; IN [TINTI_2.BAS] TRISD = %00000000 clrf TRISD,0 F1_000088 equ $ ; IN [TINTI_2.BAS] TRISE = %11101000 movlw 232 movwf TRISE,0 F3_SOF equ $ ; TINTI_IRQ.INC F3_000059 equ $ ; IN [TINTI_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000071 equ $ ; IN [TINTI_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000072 equ $ ; IN [TINTI_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000077 equ $ ; IN [TINTI_IRQ.INC] BTG PORTB,5 btg PORTB,5 F3_000078 equ $ ; IN [TINTI_IRQ.INC] RETFIE FAST retfie 1 F3_000079 equ $ ; IN [TINTI_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000081 equ $ ; IN [TINTI_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000082 equ $ ; IN [TINTI_IRQ.INC] MOVLW 6 movlw 6 F3_000083 equ $ ; IN [TINTI_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000084 equ $ ; IN [TINTI_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000085 equ $ ; IN [TINTI_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000086 equ $ ; IN [TINTI_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000096 equ $ ; IN [TINTI_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,256 F3_000097 equ $ ; IN [TINTI_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000098 equ $ ; IN [TINTI_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000099 equ $ ; IN [TINTI_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000101 equ $ ; IN [TINTI_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000103 equ $ ; IN [TINTI_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000104 equ $ ; IN [TINTI_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000105 equ $ ; IN [TINTI_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000106 equ $ ; IN [TINTI_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000107 equ $ ; IN [TINTI_IRQ.INC] ENDIF _LBL__5 F3_000108 equ $ ; IN [TINTI_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000113 equ $ ; IN [TINTI_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000114 equ $ ; IN [TINTI_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000115 equ $ ; IN [TINTI_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000116 equ $ ; IN [TINTI_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,256 F3_000117 equ $ ; IN [TINTI_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000118 equ $ ; IN [TINTI_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000119 equ $ ; IN [TINTI_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000120 equ $ ; IN [TINTI_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000121 equ $ ; IN [TINTI_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000122 equ $ ; IN [TINTI_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000123 equ $ ; IN [TINTI_IRQ.INC] ELSE F3_000124 equ $ ; IN [TINTI_IRQ.INC] WREG = 255 setf WREG,0 F3_000125 equ $ ; IN [TINTI_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000126 equ $ ; IN [TINTI_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000127 equ $ ; IN [TINTI_IRQ.INC] RET return 0 F3_000128 equ $ ; IN [TINTI_IRQ.INC] ENDIF _LBL__8 F3_000129 equ $ ; IN [TINTI_IRQ.INC] RET return 0 _Init_Usart F3_000145 equ $ ; IN [TINTI_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000146 equ $ ; IN [TINTI_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000147 equ $ ; IN [TINTI_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000149 equ $ ; IN [TINTI_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000151 equ $ ; IN [TINTI_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000152 equ $ ; IN [TINTI_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000154 equ $ ; IN [TINTI_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000169 equ $ ; IN [TINTI_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000170 equ $ ; IN [TINTI_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_000171 equ $ ; IN [TINTI_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000172 equ $ ; IN [TINTI_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000173 equ $ ; IN [TINTI_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000174 equ $ ; IN [TINTI_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000182 equ $ ; IN [TINTI_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_000183 equ $ ; IN [TINTI_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000189 equ $ ; IN [TINTI_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_000201 equ $ ; IN [TINTI_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000202 equ $ ; IN [TINTI_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000203 equ $ ; IN [TINTI_IRQ.INC] MOVWF TXREG movwf TXREG F3_000204 equ $ ; IN [TINTI_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; TINTI_IRQ.INC MAIN F1_000247 equ $ ; IN [TINTI_2.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000248 equ $ ; IN [TINTI_2.BAS] DELAYMS 10 movlw 10 rcall __DELAY_MS_ F1_000249 equ $ ; IN [TINTI_2.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000251 equ $ ; IN [TINTI_2.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000252 equ $ ; IN [TINTI_2.BAS] LOW PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000253 equ $ ; IN [TINTI_2.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000254 equ $ ; IN [TINTI_2.BAS] LOW PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000255 equ $ ; IN [TINTI_2.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000256 equ $ ; IN [TINTI_2.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000257 equ $ ; IN [TINTI_2.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000259 equ $ ; IN [TINTI_2.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000260 equ $ ; IN [TINTI_2.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000261 equ $ ; IN [TINTI_2.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000262 equ $ ; IN [TINTI_2.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000263 equ $ ; IN [TINTI_2.BAS] LOW PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000264 equ $ ; IN [TINTI_2.BAS] LOW PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000265 equ $ ; IN [TINTI_2.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000267 equ $ ; IN [TINTI_2.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000268 equ $ ; IN [TINTI_2.BAS] LOW PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000269 equ $ ; IN [TINTI_2.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000270 equ $ ; IN [TINTI_2.BAS] LOW PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000271 equ $ ; IN [TINTI_2.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000272 equ $ ; IN [TINTI_2.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000273 equ $ ; IN [TINTI_2.BAS] LOW PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000275 equ $ ; IN [TINTI_2.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000276 equ $ ; IN [TINTI_2.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000277 equ $ ; IN [TINTI_2.BAS] LOW PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000278 equ $ ; IN [TINTI_2.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000279 equ $ ; IN [TINTI_2.BAS] LOW PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000280 equ $ ; IN [TINTI_2.BAS] LOW PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000281 equ $ ; IN [TINTI_2.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000285 equ $ ; IN [TINTI_2.BAS] CLEAR LRBYTE clrf LRbyte,0 F1_000287 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES clrf notes,0 F1_000288 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000289 equ $ ; IN [TINTI_2.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000290 equ $ ; IN [TINTI_2.BAS] CLEAR CC66 clrf CC66,0 F1_000292 equ $ ; IN [TINTI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_000293 equ $ ; IN [TINTI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_000294 equ $ ; IN [TINTI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_000295 equ $ ; IN [TINTI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_000296 equ $ ; IN [TINTI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_000297 equ $ ; IN [TINTI_2.BAS] CLEAR PRES5 clrf pres5,0 F1_000298 equ $ ; IN [TINTI_2.BAS] CLEAR PRES6 clrf Pres6,0 F1_000300 equ $ ; IN [TINTI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000301 equ $ ; IN [TINTI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000302 equ $ ; IN [TINTI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000303 equ $ ; IN [TINTI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000304 equ $ ; IN [TINTI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000305 equ $ ; IN [TINTI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_000306 equ $ ; IN [TINTI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_000308 equ $ ; IN [TINTI_2.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_000309 equ $ ; IN [TINTI_2.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_000310 equ $ ; IN [TINTI_2.BAS] CLEAR VELO2 clrf velo2H,0 clrf velo2,0 F1_000311 equ $ ; IN [TINTI_2.BAS] CLEAR VELO3 clrf velo3H,0 clrf velo3,0 F1_000312 equ $ ; IN [TINTI_2.BAS] CLEAR VELO4 clrf velo4H,0 clrf velo4,0 F1_000313 equ $ ; IN [TINTI_2.BAS] CLEAR VELO5 clrf velo5H,0 clrf velo5,0 F1_000314 equ $ ; IN [TINTI_2.BAS] CLEAR VELO6 clrf velo6H,0 clrf velo6,0 F1_000316 equ $ ; IN [TINTI_2.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000318 equ $ ; IN [TINTI_2.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000330 equ $ ; IN [TINTI_2.BAS] CLEAR T1CON clrf T1CON,0 F1_000331 equ $ ; IN [TINTI_2.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000332 equ $ ; IN [TINTI_2.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000333 equ $ ; IN [TINTI_2.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000368 equ $ ; IN [TINTI_2.BAS] CLEAR T3CON clrf T3CON,0 F1_000369 equ $ ; IN [TINTI_2.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000370 equ $ ; IN [TINTI_2.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000373 equ $ ; IN [TINTI_2.BAS] SET RCON.7 bsf RCON,7,0 F1_000374 equ $ ; IN [TINTI_2.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000376 equ $ ; IN [TINTI_2.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000398 equ $ ; IN [TINTI_2.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000399 equ $ ; IN [TINTI_2.BAS] GOSUB VELS_LOOKUP call Vels_Lookup LOOP F1_000403 equ $ ; IN [TINTI_2.BAS] INC T incf _T,F,0 F1_000404 equ $ ; IN [TINTI_2.BAS] IF T.1 = TG THEN clrf WREG,0 btfsc _T,1,0 addlw 1 btfsc tog,0,0 sublw 1 bnz _LBL__11 F1_000405 equ $ ; IN [TINTI_2.BAS] BTG TG btg tog,0 F1_000406 equ $ ; IN [TINTI_2.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000407 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__11 F1_000409 equ $ ; IN [TINTI_2.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000412 equ $ ; IN [TINTI_2.BAS] IF BYTEIN > PITCHBEND_STATUS THEN movlw 236 subwf Bytein,W,0 bnc _LBL__13 F1_000413 equ $ ; IN [TINTI_2.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bc _LBL__16 _LBL__15 F1_000417 equ $ ; IN [TINTI_2.BAS] ELSE F1_000418 equ $ ; IN [TINTI_2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000419 equ $ ; IN [TINTI_2.BAS] END IF _LBL__16 F1_000420 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000421 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__13 F1_000422 equ $ ; IN [TINTI_2.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__18 F1_000424 equ $ ; IN [TINTI_2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000425 equ $ ; IN [TINTI_2.BAS] SELECT BYTEIN F1_000426 equ $ ; IN [TINTI_2.BAS] CASE NOTEOFF_STATUS movlw 139 subwf Bytein,W,0 bnz _LBL__20 F1_000427 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000428 equ $ ; IN [TINTI_2.BAS] SET NOTEUIT setf noteUit,0 F1_000429 equ $ ; IN [TINTI_2.BAS] SET RELEASE setf release,0 bra _LBL__19 _LBL__20 F1_000430 equ $ ; IN [TINTI_2.BAS] CASE NOTEON_STATUS movlw 155 subwf Bytein,W,0 bnz _LBL__23 F1_000431 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000432 equ $ ; IN [TINTI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000433 equ $ ; IN [TINTI_2.BAS] SET VELO setf velo,0 bra _LBL__19 _LBL__23 F1_000434 equ $ ; IN [TINTI_2.BAS] CASE KEYPRES_STATUS movlw 171 subwf Bytein,W,0 bnz _LBL__25 F1_000435 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000436 equ $ ; IN [TINTI_2.BAS] NOTEPRES = 255 setf notePres,0 F1_000437 equ $ ; IN [TINTI_2.BAS] PRES = 255 setf pres,0 bra _LBL__19 _LBL__25 F1_000438 equ $ ; IN [TINTI_2.BAS] CASE CONTROL_STATUS movlw 187 subwf Bytein,W,0 bnz _LBL__27 F1_000439 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000440 equ $ ; IN [TINTI_2.BAS] SET CTRL setf Ctrl,0 F1_000441 equ $ ; IN [TINTI_2.BAS] SET VALUE setf value,0 bra _LBL__19 _LBL__27 F1_000442 equ $ ; IN [TINTI_2.BAS] CASE PROGCHANGE_STATUS movlw 203 subwf Bytein,W,0 bnz _LBL__29 F1_000443 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000444 equ $ ; IN [TINTI_2.BAS] PROG = 255 setf prog,0 bra _LBL__19 _LBL__29 F1_000445 equ $ ; IN [TINTI_2.BAS] CASE AFTERTOUCH_STATUS movlw 219 subwf Bytein,W,0 bnz _LBL__31 F1_000446 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000447 equ $ ; IN [TINTI_2.BAS] SET AFT setf aft,0 bra _LBL__19 _LBL__31 F1_000448 equ $ ; IN [TINTI_2.BAS] CASE PITCHBEND_STATUS movlw 235 subwf Bytein,W,0 bnz _LBL__33 F1_000449 equ $ ; IN [TINTI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000450 equ $ ; IN [TINTI_2.BAS] PBLSB = 255 setf pblsb,0 F1_000451 equ $ ; IN [TINTI_2.BAS] PBMSB = 255 setf pbmsb,0 F1_000452 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__33 _LBL__19 goto _LBL__34 _LBL__18 F1_000453 equ $ ; IN [TINTI_2.BAS] ELSE F1_000454 equ $ ; IN [TINTI_2.BAS] SELECT STATUSBYTE F1_000455 equ $ ; IN [TINTI_2.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__36 F1_000456 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__35 _LBL__36 F1_000457 equ $ ; IN [TINTI_2.BAS] CASE NOTEOFF_STATUS movlw 139 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__39 F1_000458 equ $ ; IN [TINTI_2.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__41 F1_000459 equ $ ; IN [TINTI_2.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__42 _LBL__41 F1_000460 equ $ ; IN [TINTI_2.BAS] ELSE F1_000461 equ $ ; IN [TINTI_2.BAS] RELEASE = BYTEIN movff Bytein,release F1_000462 equ $ ; IN [TINTI_2.BAS] SELECT NOTEUIT F1_000463 equ $ ; IN [TINTI_2.BAS] CASE BEL1 movlw 94 subwf noteUit,W,0 bnz _LBL__44 F1_000464 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000465 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000466 equ $ ; IN [TINTI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__47 F1_000467 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000468 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 bra _LBL__48 _LBL__47 F1_000469 equ $ ; IN [TINTI_2.BAS] ELSE F1_000470 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000471 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000472 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__48 bra _LBL__43 _LBL__44 F1_000473 equ $ ; IN [TINTI_2.BAS] CASE BEL2 movlw 95 subwf noteUit,W,0 bnz _LBL__50 F1_000474 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000475 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000476 equ $ ; IN [TINTI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__52 F1_000477 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.2 bcf LATD,2,0 F1_000478 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 bra _LBL__53 _LBL__52 F1_000479 equ $ ; IN [TINTI_2.BAS] ELSE F1_000480 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000481 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000482 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__53 bra _LBL__43 _LBL__50 F1_000483 equ $ ; IN [TINTI_2.BAS] CASE BEL3 movlw 96 subwf noteUit,W,0 bnz _LBL__55 F1_000484 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000485 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000486 equ $ ; IN [TINTI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__57 F1_000487 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000488 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 bra _LBL__58 _LBL__57 F1_000489 equ $ ; IN [TINTI_2.BAS] ELSE F1_000490 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000491 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000492 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__58 bra _LBL__43 _LBL__55 F1_000493 equ $ ; IN [TINTI_2.BAS] CASE BEL4 movlw 97 subwf noteUit,W,0 bnz _LBL__60 F1_000494 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000495 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000496 equ $ ; IN [TINTI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__62 F1_000497 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000498 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__63 _LBL__62 F1_000499 equ $ ; IN [TINTI_2.BAS] ELSE F1_000500 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000501 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000502 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__63 bra _LBL__43 _LBL__60 F1_000503 equ $ ; IN [TINTI_2.BAS] CASE BEL5 movlw 98 subwf noteUit,W,0 bnz _LBL__65 F1_000504 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000505 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000506 equ $ ; IN [TINTI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__67 F1_000507 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000508 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 bra _LBL__68 _LBL__67 F1_000509 equ $ ; IN [TINTI_2.BAS] ELSE F1_000510 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000511 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000512 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__68 bra _LBL__43 _LBL__65 F1_000513 equ $ ; IN [TINTI_2.BAS] CASE BEL6 movlw 99 subwf noteUit,W,0 bnz _LBL__70 F1_000514 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000515 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000516 equ $ ; IN [TINTI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__72 F1_000517 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000518 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__73 _LBL__72 F1_000519 equ $ ; IN [TINTI_2.BAS] ELSE F1_000520 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000521 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000522 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__73 bra _LBL__43 _LBL__70 F1_000523 equ $ ; IN [TINTI_2.BAS] CASE BEL7 movlw 100 subwf noteUit,W,0 bnz _LBL__75 F1_000524 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000525 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000526 equ $ ; IN [TINTI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__77 F1_000527 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000528 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__78 _LBL__77 F1_000529 equ $ ; IN [TINTI_2.BAS] ELSE F1_000530 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000531 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000532 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__78 F1_000533 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__75 _LBL__43 F1_000534 equ $ ; IN [TINTI_2.BAS] SET NOTEUIT setf noteUit,0 F1_000535 equ $ ; IN [TINTI_2.BAS] GOTO RESORT goto resort F1_000536 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__42 F1_000537 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__35 _LBL__39 F1_000538 equ $ ; IN [TINTI_2.BAS] CASE NOTEON_STATUS movlw 155 subwf statusbyte,W,0 btfss STATUS,2,0 goto _LBL__80 F1_000539 equ $ ; IN [TINTI_2.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__82 F1_000540 equ $ ; IN [TINTI_2.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _LBL__83 _LBL__82 F1_000541 equ $ ; IN [TINTI_2.BAS] ELSE F1_000542 equ $ ; IN [TINTI_2.BAS] VELO = BYTEIN movff Bytein,velo F1_000543 equ $ ; IN [TINTI_2.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _LBL__85 F1_000544 equ $ ; IN [TINTI_2.BAS] SELECT NOTEAAN F1_000545 equ $ ; IN [TINTI_2.BAS] CASE BEL1 movlw 94 subwf noteAan,W,0 bnz _LBL__87 F1_000546 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000547 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000548 equ $ ; IN [TINTI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__90 F1_000549 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000550 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 bra _LBL__91 _LBL__90 F1_000551 equ $ ; IN [TINTI_2.BAS] ELSE F1_000552 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000553 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000554 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__91 bra _LBL__86 _LBL__87 F1_000555 equ $ ; IN [TINTI_2.BAS] CASE BEL2 movlw 95 subwf noteAan,W,0 bnz _LBL__93 F1_000556 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000557 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000558 equ $ ; IN [TINTI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__95 F1_000559 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.2 bcf LATD,2,0 F1_000560 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 bra _LBL__96 _LBL__95 F1_000561 equ $ ; IN [TINTI_2.BAS] ELSE F1_000562 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000563 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000564 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__96 bra _LBL__86 _LBL__93 F1_000565 equ $ ; IN [TINTI_2.BAS] CASE BEL3 movlw 96 subwf noteAan,W,0 bnz _LBL__98 F1_000566 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000567 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000568 equ $ ; IN [TINTI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__100 F1_000569 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000570 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 bra _LBL__101 _LBL__100 F1_000571 equ $ ; IN [TINTI_2.BAS] ELSE F1_000572 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000573 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000574 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__101 bra _LBL__86 _LBL__98 F1_000575 equ $ ; IN [TINTI_2.BAS] CASE BEL4 movlw 97 subwf noteAan,W,0 bnz _LBL__103 F1_000576 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000577 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000578 equ $ ; IN [TINTI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__105 F1_000579 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000580 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__106 _LBL__105 F1_000581 equ $ ; IN [TINTI_2.BAS] ELSE F1_000582 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000583 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000584 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__106 bra _LBL__86 _LBL__103 F1_000585 equ $ ; IN [TINTI_2.BAS] CASE BEL5 movlw 98 subwf noteAan,W,0 bnz _LBL__108 F1_000586 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000587 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000588 equ $ ; IN [TINTI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__110 F1_000589 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000590 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 bra _LBL__111 _LBL__110 F1_000591 equ $ ; IN [TINTI_2.BAS] ELSE F1_000592 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000593 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000594 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__111 bra _LBL__86 _LBL__108 F1_000595 equ $ ; IN [TINTI_2.BAS] CASE BEL6 movlw 99 subwf noteAan,W,0 bnz _LBL__113 F1_000596 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000597 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000598 equ $ ; IN [TINTI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__115 F1_000599 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000600 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__116 _LBL__115 F1_000601 equ $ ; IN [TINTI_2.BAS] ELSE F1_000602 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000603 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000604 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__116 bra _LBL__86 _LBL__113 F1_000605 equ $ ; IN [TINTI_2.BAS] CASE BEL7 movlw 100 subwf noteAan,W,0 bnz _LBL__118 F1_000606 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000607 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000608 equ $ ; IN [TINTI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__120 F1_000609 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000610 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__121 _LBL__120 F1_000611 equ $ ; IN [TINTI_2.BAS] ELSE F1_000612 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000613 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000614 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__121 F1_000615 equ $ ; IN [TINTI_2.BAS] CASE ELSE bra _LBL__123 _LBL__118 F1_000616 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000617 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__123 _LBL__86 F1_000618 equ $ ; IN [TINTI_2.BAS] GOTO RESORT goto resort goto _LBL__124 _LBL__85 F1_000619 equ $ ; IN [TINTI_2.BAS] ELSE F1_000620 equ $ ; IN [TINTI_2.BAS] SELECT NOTEAAN F1_000621 equ $ ; IN [TINTI_2.BAS] CASE BEL1 movlw 94 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__126 F1_000622 equ $ ; IN [TINTI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__129 F1_000623 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000624 equ $ ; IN [TINTI_2.BAS] SET PORTD.1 bsf LATD,1,0 bra _LBL__130 _LBL__129 F1_000625 equ $ ; IN [TINTI_2.BAS] ELSE F1_000626 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000627 equ $ ; IN [TINTI_2.BAS] SET PORTC.3 bsf LATC,3,0 F1_000628 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__130 F1_000629 equ $ ; IN [TINTI_2.BAS] TOGGLE LR6 btg LRbyte,6,0 F1_000630 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000631 equ $ ; IN [TINTI_2.BAS] VELO6 = VELS6[VELO] lfsr 0,Vels6 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo6 movff INDF0,velo6H F1_000632 equ $ ; IN [TINTI_2.BAS] TIMVALS[6] = TIME + VELO6 movf velo6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo6H,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#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000633 equ $ ; IN [TINTI_2.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__132 F1_000634 equ $ ; IN [TINTI_2.BAS] SET NOTES.6 bsf notes,6,0 F1_000635 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES6] <= VELO6 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo6,W,0 movf PBP#VAR0H,W,0 subwfb velo6H,W,0 bnc _LBL__134 F1_000636 equ $ ; IN [TINTI_2.BAS] RATE6 = VELO6 movff velo6H,Rate6H movff velo6,Rate6 bra _LBL__135 _LBL__134 F1_000637 equ $ ; IN [TINTI_2.BAS] ELSE F1_000638 equ $ ; IN [TINTI_2.BAS] RATE6 = DUR[PRES6] - VELO6 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo6,W,0 subwf PBP#VAR0,W,0 movwf Rate6,0 movf velo6H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate6H,0 F1_000639 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__135 F1_000640 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__132 bra _LBL__125 _LBL__126 F1_000641 equ $ ; IN [TINTI_2.BAS] CASE BEL2 movlw 95 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__137 F1_000642 equ $ ; IN [TINTI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__139 F1_000643 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 F1_000644 equ $ ; IN [TINTI_2.BAS] SET PORTC.1 bsf LATC,1,0 bra _LBL__140 _LBL__139 F1_000645 equ $ ; IN [TINTI_2.BAS] ELSE F1_000646 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000647 equ $ ; IN [TINTI_2.BAS] SET PORTD.2 bsf LATD,2,0 F1_000648 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__140 F1_000649 equ $ ; IN [TINTI_2.BAS] TOGGLE LR5 btg LRbyte,5,0 F1_000650 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000651 equ $ ; IN [TINTI_2.BAS] VELO5 = VELS5[VELO] lfsr 0,Vels5 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo5 movff INDF0,velo5H F1_000652 equ $ ; IN [TINTI_2.BAS] TIMVALS[5] = TIME + VELO5 movf velo5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo5H,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#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000653 equ $ ; IN [TINTI_2.BAS] IF PRES5 > 0 THEN movf pres5,F,0 bz _LBL__142 F1_000654 equ $ ; IN [TINTI_2.BAS] SET NOTES.5 bsf notes,5,0 F1_000655 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES5] <= VELO5 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo5,W,0 movf PBP#VAR0H,W,0 subwfb velo5H,W,0 bnc _LBL__144 F1_000656 equ $ ; IN [TINTI_2.BAS] RATE5 = VELO5 movff velo5H,Rate5H movff velo5,Rate5 bra _LBL__145 _LBL__144 F1_000657 equ $ ; IN [TINTI_2.BAS] ELSE F1_000658 equ $ ; IN [TINTI_2.BAS] RATE5 = DUR[PRES5] - VELO5 lfsr 0,Dur bcf STATUS,0,0 rlcf pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo5,W,0 subwf PBP#VAR0,W,0 movwf Rate5,0 movf velo5H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate5H,0 F1_000659 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__145 F1_000660 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__142 bra _LBL__125 _LBL__137 F1_000661 equ $ ; IN [TINTI_2.BAS] CASE BEL3 movlw 96 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__147 F1_000662 equ $ ; IN [TINTI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__149 F1_000663 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000664 equ $ ; IN [TINTI_2.BAS] SET PORTC.4 bsf LATC,4,0 bra _LBL__150 _LBL__149 F1_000665 equ $ ; IN [TINTI_2.BAS] ELSE F1_000666 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000667 equ $ ; IN [TINTI_2.BAS] SET PORTD.4 bsf LATD,4,0 F1_000668 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__150 F1_000669 equ $ ; IN [TINTI_2.BAS] TOGGLE LR4 btg LRbyte,4,0 F1_000670 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000671 equ $ ; IN [TINTI_2.BAS] VELO4 = VELS4[VELO] lfsr 0,Vels4 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo4 movff INDF0,velo4H F1_000672 equ $ ; IN [TINTI_2.BAS] TIMVALS[4] = TIME + VELO4 movf velo4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo4H,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#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000673 equ $ ; IN [TINTI_2.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__152 F1_000674 equ $ ; IN [TINTI_2.BAS] SET NOTES.4 bsf notes,4,0 F1_000675 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES4] <= VELO4 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo4,W,0 movf PBP#VAR0H,W,0 subwfb velo4H,W,0 bnc _LBL__154 F1_000676 equ $ ; IN [TINTI_2.BAS] RATE4 = VELO4 movff velo4H,Rate4H movff velo4,Rate4 bra _LBL__155 _LBL__154 F1_000677 equ $ ; IN [TINTI_2.BAS] ELSE F1_000678 equ $ ; IN [TINTI_2.BAS] RATE4 = DUR[PRES4] - VELO4 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo4,W,0 subwf PBP#VAR0,W,0 movwf Rate4,0 movf velo4H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate4H,0 F1_000679 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__155 F1_000680 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__152 bra _LBL__125 _LBL__147 F1_000681 equ $ ; IN [TINTI_2.BAS] CASE BEL4 movlw 97 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__157 F1_000682 equ $ ; IN [TINTI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__159 F1_000683 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000684 equ $ ; IN [TINTI_2.BAS] SET PORTD.6 bsf LATD,6,0 bra _LBL__160 _LBL__159 F1_000685 equ $ ; IN [TINTI_2.BAS] ELSE F1_000686 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000687 equ $ ; IN [TINTI_2.BAS] SET PORTB.0 bsf LATB,0,0 F1_000688 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__160 F1_000689 equ $ ; IN [TINTI_2.BAS] TOGGLE LR3 btg LRbyte,3,0 F1_000690 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000691 equ $ ; IN [TINTI_2.BAS] VELO3= VELS3[VELO] lfsr 0,Vels3 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo3 movff INDF0,velo3H F1_000692 equ $ ; IN [TINTI_2.BAS] TIMVALS[3] = TIME + VELO3 movf velo3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo3H,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#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000693 equ $ ; IN [TINTI_2.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__162 F1_000694 equ $ ; IN [TINTI_2.BAS] SET NOTES.3 bsf notes,3,0 F1_000695 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES3] <= VELO3 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo3,W,0 movf PBP#VAR0H,W,0 subwfb velo3H,W,0 bnc _LBL__164 F1_000696 equ $ ; IN [TINTI_2.BAS] RATE3 = VELO3 movff velo3H,Rate3H movff velo3,Rate3 bra _LBL__165 _LBL__164 F1_000697 equ $ ; IN [TINTI_2.BAS] ELSE F1_000698 equ $ ; IN [TINTI_2.BAS] RATE3 = DUR[PRES3] - VELO3 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo3,W,0 subwf PBP#VAR0,W,0 movwf Rate3,0 movf velo3H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate3H,0 F1_000699 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__165 F1_000700 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__162 bra _LBL__125 _LBL__157 F1_000701 equ $ ; IN [TINTI_2.BAS] CASE BEL5 movlw 98 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__167 F1_000702 equ $ ; IN [TINTI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__169 F1_000703 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000704 equ $ ; IN [TINTI_2.BAS] SET PORTB.2 bsf LATB,2,0 bra _LBL__170 _LBL__169 F1_000705 equ $ ; IN [TINTI_2.BAS] ELSE F1_000706 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000707 equ $ ; IN [TINTI_2.BAS] SET PORTB.4 bsf LATB,4,0 F1_000708 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__170 F1_000709 equ $ ; IN [TINTI_2.BAS] TOGGLE LR2 btg LRbyte,2,0 F1_000710 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000711 equ $ ; IN [TINTI_2.BAS] VELO2= VELS2[VELO] lfsr 0,Vels2 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo2 movff INDF0,velo2H F1_000712 equ $ ; IN [TINTI_2.BAS] TIMVALS[2] = TIME + VELO2 movf velo2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo2H,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_000713 equ $ ; IN [TINTI_2.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__172 F1_000714 equ $ ; IN [TINTI_2.BAS] SET NOTES.2 bsf notes,2,0 F1_000715 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES2] <= VELO2 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo2,W,0 movf PBP#VAR0H,W,0 subwfb velo2H,W,0 bnc _LBL__174 F1_000716 equ $ ; IN [TINTI_2.BAS] RATE2 = VELO2 movff velo2H,Rate2H movff velo2,Rate2 bra _LBL__175 _LBL__174 F1_000717 equ $ ; IN [TINTI_2.BAS] ELSE F1_000718 equ $ ; IN [TINTI_2.BAS] RATE2 = DUR[PRES2] - VELO2 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo2,W,0 subwf PBP#VAR0,W,0 movwf Rate2,0 movf velo2H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate2H,0 F1_000719 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__175 F1_000720 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__172 bra _LBL__125 _LBL__167 F1_000721 equ $ ; IN [TINTI_2.BAS] CASE BEL6 movlw 99 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__177 F1_000722 equ $ ; IN [TINTI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__179 F1_000723 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000724 equ $ ; IN [TINTI_2.BAS] SET PORTE.1 bsf LATE,1,0 bra _LBL__180 _LBL__179 F1_000725 equ $ ; IN [TINTI_2.BAS] ELSE F1_000726 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000727 equ $ ; IN [TINTI_2.BAS] SET PORTA.5 bsf LATA,5,0 F1_000728 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__180 F1_000729 equ $ ; IN [TINTI_2.BAS] TOGGLE LR1 btg LRbyte,1,0 F1_000730 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000731 equ $ ; IN [TINTI_2.BAS] VELO1= VELS1[VELO] lfsr 0,Vels1 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo1 movff INDF0,velo1H F1_000732 equ $ ; IN [TINTI_2.BAS] TIMVALS[1] = TIME + VELO1 movf velo1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo1H,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_000733 equ $ ; IN [TINTI_2.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__182 F1_000734 equ $ ; IN [TINTI_2.BAS] SET NOTES.1 bsf notes,1,0 F1_000735 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES1] <= VELO1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo1,W,0 movf PBP#VAR0H,W,0 subwfb velo1H,W,0 bnc _LBL__184 F1_000736 equ $ ; IN [TINTI_2.BAS] RATE1 = VELO1 movff velo1H,Rate1H movff velo1,Rate1 bra _LBL__185 _LBL__184 F1_000737 equ $ ; IN [TINTI_2.BAS] ELSE F1_000738 equ $ ; IN [TINTI_2.BAS] RATE1 = DUR[PRES1] - VELO1 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo1,W,0 subwf PBP#VAR0,W,0 movwf Rate1,0 movf velo1H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate1H,0 F1_000739 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__185 F1_000740 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__182 bra _LBL__125 _LBL__177 F1_000741 equ $ ; IN [TINTI_2.BAS] CASE BEL7 movlw 100 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__187 F1_000742 equ $ ; IN [TINTI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__189 F1_000743 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000744 equ $ ; IN [TINTI_2.BAS] SET PORTA.3 bsf LATA,3,0 bra _LBL__190 _LBL__189 F1_000745 equ $ ; IN [TINTI_2.BAS] ELSE F1_000746 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000747 equ $ ; IN [TINTI_2.BAS] SET PORTA.1 bsf LATA,1,0 F1_000748 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__190 F1_000749 equ $ ; IN [TINTI_2.BAS] TOGGLE LR0 btg LRbyte,0,0 F1_000750 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000751 equ $ ; IN [TINTI_2.BAS] VELO0= VELS0[VELO] lfsr 0,Vels0 bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo0 movff INDF0,velo0H F1_000752 equ $ ; IN [TINTI_2.BAS] TIMVALS[0] = TIME + VELO0 movf velo0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo0H,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_000753 equ $ ; IN [TINTI_2.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__192 F1_000754 equ $ ; IN [TINTI_2.BAS] SET NOTES.0 bsf notes,0,0 F1_000755 equ $ ; IN [TINTI_2.BAS] IF DUR[PRES0] <= VELO0 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf PBP#VAR0,W,0 subwf velo0,W,0 movf PBP#VAR0H,W,0 subwfb velo0H,W,0 bnc _LBL__194 F1_000756 equ $ ; IN [TINTI_2.BAS] RATE0 = VELO0 movff velo0H,Rate0H movff velo0,Rate0 bra _LBL__195 _LBL__194 F1_000757 equ $ ; IN [TINTI_2.BAS] ELSE F1_000758 equ $ ; IN [TINTI_2.BAS] RATE0 = DUR[PRES0] - VELO0 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo0,W,0 subwf PBP#VAR0,W,0 movwf Rate0,0 movf velo0H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate0H,0 F1_000759 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__195 F1_000760 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__192 F1_000761 equ $ ; IN [TINTI_2.BAS] CASE ELSE bra _LBL__197 _LBL__187 F1_000762 equ $ ; IN [TINTI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000763 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000764 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__197 _LBL__125 F1_000765 equ $ ; IN [TINTI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000766 equ $ ; IN [TINTI_2.BAS] GOTO RESORT bra resort F1_000767 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__124 F1_000768 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__83 F1_000769 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__35 _LBL__80 F1_000770 equ $ ; IN [TINTI_2.BAS] CASE KEYPRES_STATUS movlw 171 subwf statusbyte,W,0 bnz _LBL__199 F1_000773 equ $ ; IN [TINTI_2.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__201 F1_000774 equ $ ; IN [TINTI_2.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__202 _LBL__201 F1_000775 equ $ ; IN [TINTI_2.BAS] ELSE F1_000776 equ $ ; IN [TINTI_2.BAS] PRES = BYTEIN movff Bytein,pres F1_000777 equ $ ; IN [TINTI_2.BAS] GOSUB KEYPRES call KeyPres F1_000778 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__202 F1_000779 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__35 _LBL__199 F1_000780 equ $ ; IN [TINTI_2.BAS] CASE CONTROL_STATUS movlw 187 subwf statusbyte,W,0 bnz _LBL__204 F1_000781 equ $ ; IN [TINTI_2.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__206 F1_000782 equ $ ; IN [TINTI_2.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__207 _LBL__206 F1_000783 equ $ ; IN [TINTI_2.BAS] ELSE F1_000784 equ $ ; IN [TINTI_2.BAS] VALUE = BYTEIN movff Bytein,value F1_000785 equ $ ; IN [TINTI_2.BAS] GOSUB CONTROLLER call Controller F1_000786 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__207 F1_000787 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__35 _LBL__204 F1_000788 equ $ ; IN [TINTI_2.BAS] CASE PROGCHANGE_STATUS movlw 203 subwf statusbyte,W,0 bnz _LBL__209 F1_000789 equ $ ; IN [TINTI_2.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _LBL__211 F1_000790 equ $ ; IN [TINTI_2.BAS] PROG = BYTEIN movff Bytein,prog F1_000791 equ $ ; IN [TINTI_2.BAS] GOSUB PROGCHANGE call ProgChange F1_000792 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__211 F1_000793 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__35 _LBL__209 F1_000794 equ $ ; IN [TINTI_2.BAS] CASE AFTERTOUCH_STATUS movlw 219 subwf statusbyte,W,0 bnz _LBL__213 F1_000795 equ $ ; IN [TINTI_2.BAS] IF AFT = 255 THEN incf aft,W,0 bnz _LBL__215 F1_000796 equ $ ; IN [TINTI_2.BAS] AFT = BYTEIN movff Bytein,aft F1_000797 equ $ ; IN [TINTI_2.BAS] GOSUB AFTERTOUCH call Aftertouch F1_000798 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__215 F1_000799 equ $ ; IN [TINTI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000800 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__213 _LBL__35 F1_000801 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__34 resort F1_000804 equ $ ; IN [TINTI_2.BAS] GOSUB SORTTIMERS call SortTimers Check_Timers F1_000807 equ $ ; IN [TINTI_2.BAS] IF IDX < 7 THEN movlw 7 subwf idx,W,0 btfsc STATUS,0,0 goto _LBL__217 F1_000808 equ $ ; IN [TINTI_2.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__219 F1_000810 equ $ ; IN [TINTI_2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000812 equ $ ; IN [TINTI_2.BAS] SELECT IDX F1_000813 equ $ ; IN [TINTI_2.BAS] CASE 6 movlw 6 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__221 F1_000814 equ $ ; IN [TINTI_2.BAS] IF NOTES.6 = 0 THEN btfsc notes,6,0 bra _LBL__224 F1_000815 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000816 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000817 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000818 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000819 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000820 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__225 _LBL__224 F1_000821 equ $ ; IN [TINTI_2.BAS] ELSE F1_000822 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.6 = 1 THEN btfss Velflags,6,0 bra _LBL__227 F1_000823 equ $ ; IN [TINTI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__229 F1_000824 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000825 equ $ ; IN [TINTI_2.BAS] SET PORTC.2 bsf LATC,2,0 bra _LBL__230 _LBL__229 F1_000827 equ $ ; IN [TINTI_2.BAS] ELSE F1_000828 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000829 equ $ ; IN [TINTI_2.BAS] SET PORTD.0 bsf LATD,0,0 F1_000830 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__230 F1_000831 equ $ ; IN [TINTI_2.BAS] TIMVALS[6] = TIME + RATE6 movf Rate6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate6H,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#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000832 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 bra _LBL__231 _LBL__227 F1_000833 equ $ ; IN [TINTI_2.BAS] ELSE F1_000834 equ $ ; IN [TINTI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__233 F1_000835 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000836 equ $ ; IN [TINTI_2.BAS] SET PORTD.1 bsf LATD,1,0 bra _LBL__234 _LBL__233 F1_000837 equ $ ; IN [TINTI_2.BAS] ELSE F1_000838 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000839 equ $ ; IN [TINTI_2.BAS] SET PORTC.3 bsf LATC,3,0 F1_000840 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__234 F1_000841 equ $ ; IN [TINTI_2.BAS] TOGGLE LR6 btg LRbyte,6,0 F1_000842 equ $ ; IN [TINTI_2.BAS] TIMVALS[6] = TIME + VELO6 movf velo6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo6H,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#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000843 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000844 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__231 F1_000845 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__225 bra _LBL__220 _LBL__221 F1_000846 equ $ ; IN [TINTI_2.BAS] CASE 5 movlw 5 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__236 F1_000847 equ $ ; IN [TINTI_2.BAS] IF NOTES.5 = 0 THEN btfsc notes,5,0 bra _LBL__238 F1_000848 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000849 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 F1_000850 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000851 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.2 bcf LATD,2,0 F1_000852 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000853 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__239 _LBL__238 F1_000854 equ $ ; IN [TINTI_2.BAS] ELSE F1_000855 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.5 = 1 THEN btfss Velflags,5,0 bra _LBL__241 F1_000856 equ $ ; IN [TINTI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__243 F1_000857 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.2 bcf LATD,2,0 F1_000858 equ $ ; IN [TINTI_2.BAS] SET PORTD.3 bsf LATD,3,0 bra _LBL__244 _LBL__243 F1_000860 equ $ ; IN [TINTI_2.BAS] ELSE F1_000861 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000862 equ $ ; IN [TINTI_2.BAS] SET PORTC.0 bsf LATC,0,0 F1_000863 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__244 F1_000864 equ $ ; IN [TINTI_2.BAS] TIMVALS[5] = TIME + RATE5 movf Rate5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate5H,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#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000865 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 bra _LBL__245 _LBL__241 F1_000866 equ $ ; IN [TINTI_2.BAS] ELSE F1_000867 equ $ ; IN [TINTI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__247 F1_000868 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 F1_000869 equ $ ; IN [TINTI_2.BAS] SET PORTC.1 bsf LATC,1,0 bra _LBL__248 _LBL__247 F1_000870 equ $ ; IN [TINTI_2.BAS] ELSE F1_000871 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000872 equ $ ; IN [TINTI_2.BAS] SET PORTD.2 bsf LATD,2,0 F1_000873 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__248 F1_000874 equ $ ; IN [TINTI_2.BAS] TOGGLE LR5 btg LRbyte,5,0 F1_000875 equ $ ; IN [TINTI_2.BAS] TIMVALS[5] = TIME + VELO5 movf velo5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo5H,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#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000876 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000877 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__245 F1_000878 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__239 bra _LBL__220 _LBL__236 F1_000879 equ $ ; IN [TINTI_2.BAS] CASE 4 movlw 4 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__250 F1_000880 equ $ ; IN [TINTI_2.BAS] IF NOTES.4 = 0 THEN btfsc notes,4,0 bra _LBL__252 F1_000881 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000882 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000883 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000884 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000885 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000886 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__253 _LBL__252 F1_000887 equ $ ; IN [TINTI_2.BAS] ELSE F1_000888 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.4 = 1 THEN btfss Velflags,4,0 bra _LBL__255 F1_000889 equ $ ; IN [TINTI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__257 F1_000890 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000891 equ $ ; IN [TINTI_2.BAS] SET PORTD.5 bsf LATD,5,0 bra _LBL__258 _LBL__257 F1_000893 equ $ ; IN [TINTI_2.BAS] ELSE F1_000894 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000895 equ $ ; IN [TINTI_2.BAS] SET PORTC.5 bsf LATC,5,0 F1_000896 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__258 F1_000897 equ $ ; IN [TINTI_2.BAS] TIMVALS[4] = TIME + RATE4 movf Rate4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate4H,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#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000898 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 bra _LBL__259 _LBL__255 F1_000899 equ $ ; IN [TINTI_2.BAS] ELSE F1_000900 equ $ ; IN [TINTI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__261 F1_000901 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000902 equ $ ; IN [TINTI_2.BAS] SET PORTC.4 bsf LATC,4,0 bra _LBL__262 _LBL__261 F1_000903 equ $ ; IN [TINTI_2.BAS] ELSE F1_000904 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000905 equ $ ; IN [TINTI_2.BAS] SET PORTD.4 bsf LATD,4,0 F1_000906 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__262 F1_000907 equ $ ; IN [TINTI_2.BAS] TOGGLE LR4 btg LRbyte,4,0 F1_000908 equ $ ; IN [TINTI_2.BAS] TIMVALS[4] = TIME + VELO4 movf velo4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo4H,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#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000909 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000910 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__259 F1_000911 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__253 bra _LBL__220 _LBL__250 F1_000912 equ $ ; IN [TINTI_2.BAS] CASE 3 movlw 3 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__264 F1_000913 equ $ ; IN [TINTI_2.BAS] IF NOTES.3 = 0 THEN btfsc notes,3,0 bra _LBL__266 F1_000914 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000915 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000916 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000917 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000918 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000919 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__267 _LBL__266 F1_000920 equ $ ; IN [TINTI_2.BAS] ELSE F1_000921 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.3 = 1 THEN btfss Velflags,3,0 bra _LBL__269 F1_000922 equ $ ; IN [TINTI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__271 F1_000923 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000924 equ $ ; IN [TINTI_2.BAS] SET PORTB.1 bsf LATB,1,0 bra _LBL__272 _LBL__271 F1_000925 equ $ ; IN [TINTI_2.BAS] ELSE F1_000926 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000927 equ $ ; IN [TINTI_2.BAS] SET PORTD.7 bsf LATD,7,0 F1_000928 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__272 F1_000929 equ $ ; IN [TINTI_2.BAS] TIMVALS[3] = TIME + RATE3 movf Rate3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate3H,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#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000930 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 bra _LBL__273 _LBL__269 F1_000931 equ $ ; IN [TINTI_2.BAS] ELSE F1_000932 equ $ ; IN [TINTI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__275 F1_000933 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000934 equ $ ; IN [TINTI_2.BAS] SET PORTD.6 bsf LATD,6,0 bra _LBL__276 _LBL__275 F1_000935 equ $ ; IN [TINTI_2.BAS] ELSE F1_000936 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000937 equ $ ; IN [TINTI_2.BAS] SET PORTB.0 bsf LATB,0,0 F1_000938 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__276 F1_000939 equ $ ; IN [TINTI_2.BAS] TOGGLE LR3 btg LRbyte,3,0 F1_000940 equ $ ; IN [TINTI_2.BAS] TIMVALS[3] = TIME + VELO3 movf velo3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo3H,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#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000941 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000942 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__273 F1_000943 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__267 bra _LBL__220 _LBL__264 F1_000944 equ $ ; IN [TINTI_2.BAS] CASE 2 movlw 2 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__278 F1_000945 equ $ ; IN [TINTI_2.BAS] IF NOTES.2 = 0 THEN btfsc notes,2,0 bra _LBL__280 F1_000946 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000947 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000948 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000949 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000950 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000951 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__281 _LBL__280 F1_000952 equ $ ; IN [TINTI_2.BAS] ELSE F1_000953 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.2 = 1 THEN btfss Velflags,2,0 bra _LBL__283 F1_000954 equ $ ; IN [TINTI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__285 F1_000955 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000956 equ $ ; IN [TINTI_2.BAS] SET PORTE.2 bsf LATE,2,0 bra _LBL__286 _LBL__285 F1_000957 equ $ ; IN [TINTI_2.BAS] ELSE F1_000958 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000959 equ $ ; IN [TINTI_2.BAS] SET PORTB.3 bsf LATB,3,0 F1_000960 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__286 F1_000961 equ $ ; IN [TINTI_2.BAS] TIMVALS[2] = TIME + RATE2 movf Rate2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate2H,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_000962 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 bra _LBL__287 _LBL__283 F1_000963 equ $ ; IN [TINTI_2.BAS] ELSE F1_000964 equ $ ; IN [TINTI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__289 F1_000965 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000966 equ $ ; IN [TINTI_2.BAS] SET PORTB.2 bsf LATB,2,0 bra _LBL__290 _LBL__289 F1_000967 equ $ ; IN [TINTI_2.BAS] ELSE F1_000968 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000969 equ $ ; IN [TINTI_2.BAS] SET PORTB.4 bsf LATB,4,0 F1_000970 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__290 F1_000971 equ $ ; IN [TINTI_2.BAS] TOGGLE LR2 btg LRbyte,2,0 F1_000972 equ $ ; IN [TINTI_2.BAS] TIMVALS[2] = TIME + VELO2 movf velo2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo2H,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_000973 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000974 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__287 F1_000975 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__281 bra _LBL__220 _LBL__278 F1_000976 equ $ ; IN [TINTI_2.BAS] CASE 1 movlw 1 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__292 F1_000977 equ $ ; IN [TINTI_2.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _LBL__294 F1_000978 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000979 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000980 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000981 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000982 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000983 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,0 setf TimVals#1,0 bra _LBL__295 _LBL__294 F1_000984 equ $ ; IN [TINTI_2.BAS] ELSE F1_000985 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.1 = 1 THEN btfss Velflags,1,0 bra _LBL__297 F1_000986 equ $ ; IN [TINTI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__299 F1_000987 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000988 equ $ ; IN [TINTI_2.BAS] SET PORTA.4 bsf LATA,4,0 bra _LBL__300 _LBL__299 F1_000989 equ $ ; IN [TINTI_2.BAS] ELSE F1_000990 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000991 equ $ ; IN [TINTI_2.BAS] SET PORTE.0 bsf LATE,0,0 F1_000992 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__300 F1_000993 equ $ ; IN [TINTI_2.BAS] TIMVALS[1] = TIME + RATE1 movf Rate1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate1H,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_000994 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 bra _LBL__301 _LBL__297 F1_000995 equ $ ; IN [TINTI_2.BAS] ELSE F1_000996 equ $ ; IN [TINTI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__303 F1_000997 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000998 equ $ ; IN [TINTI_2.BAS] SET PORTE.1 bsf LATE,1,0 bra _LBL__304 _LBL__303 F1_000999 equ $ ; IN [TINTI_2.BAS] ELSE F1_001000 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_001001 equ $ ; IN [TINTI_2.BAS] SET PORTA.5 bsf LATA,5,0 F1_001002 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__304 F1_001003 equ $ ; IN [TINTI_2.BAS] TOGGLE LR1 btg LRbyte,1,0 F1_001004 equ $ ; IN [TINTI_2.BAS] TIMVALS[1] = TIME + VELO1 movf velo1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo1H,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_001005 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_001006 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__301 F1_001007 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__295 bra _LBL__220 _LBL__292 F1_001008 equ $ ; IN [TINTI_2.BAS] CASE 0 movf idx,F,0 btfss STATUS,2,0 bra _LBL__306 F1_001009 equ $ ; IN [TINTI_2.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _LBL__308 F1_001010 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_001011 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001012 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001013 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001014 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001015 equ $ ; IN [TINTI_2.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 bra _LBL__309 _LBL__308 F1_001016 equ $ ; IN [TINTI_2.BAS] ELSE F1_001017 equ $ ; IN [TINTI_2.BAS] IF VELFLAGS.0 = 1 THEN btfss Velflags,0,0 bra _LBL__311 F1_001018 equ $ ; IN [TINTI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__313 F1_001019 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001020 equ $ ; IN [TINTI_2.BAS] SET PORTA.2 bsf LATA,2,0 bra _LBL__314 _LBL__313 F1_001021 equ $ ; IN [TINTI_2.BAS] ELSE F1_001022 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001023 equ $ ; IN [TINTI_2.BAS] SET PORTA.0 bsf LATA,0,0 F1_001024 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__314 F1_001025 equ $ ; IN [TINTI_2.BAS] TIMVALS[0] = TIME + RATE0 movf Rate0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate0H,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_001026 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 bra _LBL__315 _LBL__311 F1_001027 equ $ ; IN [TINTI_2.BAS] ELSE F1_001028 equ $ ; IN [TINTI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__317 F1_001029 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001030 equ $ ; IN [TINTI_2.BAS] SET PORTA.3 bsf LATA,3,0 bra _LBL__318 _LBL__317 F1_001031 equ $ ; IN [TINTI_2.BAS] ELSE F1_001032 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001033 equ $ ; IN [TINTI_2.BAS] SET PORTA.1 bsf LATA,1,0 F1_001034 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__318 F1_001035 equ $ ; IN [TINTI_2.BAS] TOGGLE LR0 btg LRbyte,0,0 F1_001036 equ $ ; IN [TINTI_2.BAS] TIMVALS[0] = TIME + VELO0 movf velo0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo0H,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_001037 equ $ ; IN [TINTI_2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_001038 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__315 F1_001039 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__309 F1_001044 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__306 _LBL__220 F1_001045 equ $ ; IN [TINTI_2.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001047 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__219 F1_001049 equ $ ; IN [TINTI_2.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__320 F1_001050 equ $ ; IN [TINTI_2.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001051 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_001052 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES clrf notes,0 F1_001053 equ $ ; IN [TINTI_2.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001054 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__320 bra _LBL__321 _LBL__217 F1_001055 equ $ ; IN [TINTI_2.BAS] ELSE F1_001057 equ $ ; IN [TINTI_2.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__323 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__323 F1_001058 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__321 F1_001061 equ $ ; IN [TINTI_2.BAS] GOTO LOOP goto LOOP SortTimers F1_001067 equ $ ; IN [TINTI_2.BAS] SET IDX setf idx,0 F1_001068 equ $ ; IN [TINTI_2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_001069 equ $ ; IN [TINTI_2.BAS] FOR I = 0 TO 6 clrf _I,0 _FRLB__324 movlw 7 subwf _I,W,0 bc _NXLB__325 F1_001070 equ $ ; IN [TINTI_2.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 122 addwf FSR0L,F,0 movlw 0 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__328 F1_001071 equ $ ; IN [TINTI_2.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 122 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_001072 equ $ ; IN [TINTI_2.BAS] IDX = I movff _I,idx F1_001073 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__328 _CTLB__326 F1_001074 equ $ ; IN [TINTI_2.BAS] NEXT I incf _I,F,0 bnc _FRLB__324 _NXLB__325 F1_001075 equ $ ; IN [TINTI_2.BAS] RETURN return 0 KeyPres F1_001080 equ $ ; IN [TINTI_2.BAS] SELECT NOTEPRES F1_001081 equ $ ; IN [TINTI_2.BAS] CASE BEL7 movlw 100 subwf notePres,W,0 bnz _LBL__330 F1_001082 equ $ ; IN [TINTI_2.BAS] PRES0 = PRES movff pres,Pres0 F1_001083 equ $ ; IN [TINTI_2.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__333 F1_001084 equ $ ; IN [TINTI_2.BAS] RATE0 = 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,Rate0 movff INDF0,Rate0H bra _LBL__334 _LBL__333 F1_001087 equ $ ; IN [TINTI_2.BAS] ELSE F1_001088 equ $ ; IN [TINTI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001089 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_001090 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__334 bra _LBL__329 _LBL__330 F1_001091 equ $ ; IN [TINTI_2.BAS] CASE BEL6 movlw 99 subwf notePres,W,0 bnz _LBL__336 F1_001092 equ $ ; IN [TINTI_2.BAS] PRES1 = PRES movff pres,Pres1 F1_001093 equ $ ; IN [TINTI_2.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__338 F1_001094 equ $ ; IN [TINTI_2.BAS] RATE1 = 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,Rate1 movff INDF0,Rate1H bra _LBL__339 _LBL__338 F1_001095 equ $ ; IN [TINTI_2.BAS] ELSE F1_001096 equ $ ; IN [TINTI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001097 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_001098 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__339 bra _LBL__329 _LBL__336 F1_001099 equ $ ; IN [TINTI_2.BAS] CASE BEL5 movlw 98 subwf notePres,W,0 bnz _LBL__341 F1_001100 equ $ ; IN [TINTI_2.BAS] PRES2 = PRES movff pres,Pres2 F1_001101 equ $ ; IN [TINTI_2.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__343 F1_001102 equ $ ; IN [TINTI_2.BAS] RATE2 = DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H bra _LBL__344 _LBL__343 F1_001103 equ $ ; IN [TINTI_2.BAS] ELSE F1_001104 equ $ ; IN [TINTI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001105 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_001106 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__344 bra _LBL__329 _LBL__341 F1_001107 equ $ ; IN [TINTI_2.BAS] CASE BEL4 movlw 97 subwf notePres,W,0 bnz _LBL__346 F1_001108 equ $ ; IN [TINTI_2.BAS] PRES3 = PRES movff pres,Pres3 F1_001109 equ $ ; IN [TINTI_2.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__348 F1_001110 equ $ ; IN [TINTI_2.BAS] RATE3 = DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H bra _LBL__349 _LBL__348 F1_001111 equ $ ; IN [TINTI_2.BAS] ELSE F1_001112 equ $ ; IN [TINTI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001113 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_001114 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__349 bra _LBL__329 _LBL__346 F1_001115 equ $ ; IN [TINTI_2.BAS] CASE BEL3 movlw 96 subwf notePres,W,0 bnz _LBL__351 F1_001116 equ $ ; IN [TINTI_2.BAS] PRES4 = PRES movff pres,Pres4 F1_001117 equ $ ; IN [TINTI_2.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__353 F1_001118 equ $ ; IN [TINTI_2.BAS] RATE4 = DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H bra _LBL__354 _LBL__353 F1_001119 equ $ ; IN [TINTI_2.BAS] ELSE F1_001120 equ $ ; IN [TINTI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001121 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_001122 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__354 bra _LBL__329 _LBL__351 F1_001123 equ $ ; IN [TINTI_2.BAS] CASE BEL2 movlw 95 subwf notePres,W,0 bnz _LBL__356 F1_001124 equ $ ; IN [TINTI_2.BAS] PRES5 = PRES movff pres,pres5 F1_001125 equ $ ; IN [TINTI_2.BAS] IF PRES5 > 0 THEN movf pres5,F,0 bz _LBL__358 F1_001126 equ $ ; IN [TINTI_2.BAS] RATE5 = DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H bra _LBL__359 _LBL__358 F1_001127 equ $ ; IN [TINTI_2.BAS] ELSE F1_001128 equ $ ; IN [TINTI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001129 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_001130 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__359 bra _LBL__329 _LBL__356 F1_001131 equ $ ; IN [TINTI_2.BAS] CASE BEL1 movlw 94 subwf notePres,W,0 bnz _LBL__361 F1_001132 equ $ ; IN [TINTI_2.BAS] PRES6 = PRES movff pres,Pres6 F1_001133 equ $ ; IN [TINTI_2.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__363 F1_001134 equ $ ; IN [TINTI_2.BAS] RATE6 = DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H bra _LBL__364 _LBL__363 F1_001135 equ $ ; IN [TINTI_2.BAS] ELSE F1_001136 equ $ ; IN [TINTI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001137 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_001138 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__364 F1_001139 equ $ ; IN [TINTI_2.BAS] ENDSELECT _LBL__361 _LBL__329 F1_001141 equ $ ; IN [TINTI_2.BAS] SET NOTEPRES setf notePres,0 F1_001142 equ $ ; IN [TINTI_2.BAS] RETURN return 0 ProgChange F1_001145 equ $ ; IN [TINTI_2.BAS] SET PROG setf prog,0 F1_001146 equ $ ; IN [TINTI_2.BAS] RETURN return 0 Pitchbend F1_001149 equ $ ; IN [TINTI_2.BAS] SET PBLSB setf pblsb,0 F1_001150 equ $ ; IN [TINTI_2.BAS] RETURN return 0 Aftertouch F1_001168 equ $ ; IN [TINTI_2.BAS] SET AFT setf aft,0 F1_001169 equ $ ; IN [TINTI_2.BAS] RETURN return 0 Controller F1_001172 equ $ ; IN [TINTI_2.BAS] SELECT CTRL F1_001175 equ $ ; IN [TINTI_2.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__366 F1_001178 equ $ ; IN [TINTI_2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__369 F1_001179 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES clrf notes,0 F1_001180 equ $ ; IN [TINTI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001181 equ $ ; IN [TINTI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_001182 equ $ ; IN [TINTI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001183 equ $ ; IN [TINTI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_001184 equ $ ; IN [TINTI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001185 equ $ ; IN [TINTI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_001186 equ $ ; IN [TINTI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001187 equ $ ; IN [TINTI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_001188 equ $ ; IN [TINTI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001189 equ $ ; IN [TINTI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_001190 equ $ ; IN [TINTI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001191 equ $ ; IN [TINTI_2.BAS] CLEAR PRES5 clrf pres5,0 F1_001192 equ $ ; IN [TINTI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001193 equ $ ; IN [TINTI_2.BAS] CLEAR PRES6 clrf Pres6,0 bra _LBL__370 _LBL__369 F1_001194 equ $ ; IN [TINTI_2.BAS] ELSE F1_001195 equ $ ; IN [TINTI_2.BAS] PRES0 = VALUE movff value,Pres0 F1_001196 equ $ ; IN [TINTI_2.BAS] RATE0 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H F1_001197 equ $ ; IN [TINTI_2.BAS] PRES1 = VALUE movff value,Pres1 F1_001198 equ $ ; IN [TINTI_2.BAS] RATE1 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H F1_001199 equ $ ; IN [TINTI_2.BAS] PRES2 = VALUE movff value,Pres2 F1_001200 equ $ ; IN [TINTI_2.BAS] RATE2 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H F1_001201 equ $ ; IN [TINTI_2.BAS] PRES3 = VALUE movff value,Pres3 F1_001202 equ $ ; IN [TINTI_2.BAS] RATE3 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H F1_001203 equ $ ; IN [TINTI_2.BAS] PRES4 = VALUE movff value,Pres4 F1_001204 equ $ ; IN [TINTI_2.BAS] RATE4 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H F1_001205 equ $ ; IN [TINTI_2.BAS] PRES5 = VALUE movff value,pres5 F1_001206 equ $ ; IN [TINTI_2.BAS] RATE5 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H F1_001207 equ $ ; IN [TINTI_2.BAS] PRES6 = VALUE movff value,Pres6 F1_001208 equ $ ; IN [TINTI_2.BAS] RATE6 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H F1_001209 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__370 bra _LBL__365 _LBL__366 F1_001210 equ $ ; IN [TINTI_2.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__372 F1_001212 equ $ ; IN [TINTI_2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__374 F1_001213 equ $ ; IN [TINTI_2.BAS] CLEAR POWERON bcf CC66,0,0 F1_001214 equ $ ; IN [TINTI_2.BAS] GOSUB POWERDOWN rcall PowerDown bra _LBL__375 _LBL__374 F1_001215 equ $ ; IN [TINTI_2.BAS] ELSE F1_001216 equ $ ; IN [TINTI_2.BAS] SET POWERON bsf CC66,0,0 F1_001217 equ $ ; IN [TINTI_2.BAS] ENDIF _LBL__375 bra _LBL__365 _LBL__372 F1_001218 equ $ ; IN [TINTI_2.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 btfsc STATUS,2,0 F1_001219 equ $ ; IN [TINTI_2.BAS] GOSUB POWERDOWN rcall PowerDown F1_001220 equ $ ; IN [TINTI_2.BAS] END SELECT _LBL__377 _LBL__365 F1_001221 equ $ ; IN [TINTI_2.BAS] SET CTRL setf Ctrl,0 F1_001222 equ $ ; IN [TINTI_2.BAS] RETURN return 0 PowerDown F1_001226 equ $ ; IN [TINTI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_001227 equ $ ; IN [TINTI_2.BAS] CLEAR NOTES clrf notes,0 F1_001229 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001230 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001231 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001232 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_001233 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001234 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001235 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001236 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_001237 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_001238 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001239 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.2 bcf LATD,2,0 F1_001240 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001241 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_001242 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001244 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001245 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001246 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_001247 equ $ ; IN [TINTI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001248 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001249 equ $ ; IN [TINTI_2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_001250 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_001251 equ $ ; IN [TINTI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001252 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001253 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_001254 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001255 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.3 bcf LATD,3,0 F1_001256 equ $ ; IN [TINTI_2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_001257 equ $ ; IN [TINTI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001258 equ $ ; IN [TINTI_2.BAS] RETURN return 0 Dur_Lookup F1_001264 equ $ ; IN [TINTI_2.BAS] SET DUR[0] movlb 9 setf Dur#0H,1 setf Dur#0,1 F1_001265 equ $ ; IN [TINTI_2.BAS] DUR[1] = 41667 movlw 162 movwf Dur#1H,1 movlw 195 movwf Dur#1,1 F1_001266 equ $ ; IN [TINTI_2.BAS] DUR[2] = 39494 movlw 154 movwf Dur#2H,1 movlw 70 movwf Dur#2,1 F1_001267 equ $ ; IN [TINTI_2.BAS] DUR[3] = 38450 movlw 150 movwf Dur#3H,1 movlw 50 movwf Dur#3,1 F1_001268 equ $ ; IN [TINTI_2.BAS] DUR[4] = 37434 movlw 146 movwf Dur#4H,1 movlw 58 movwf Dur#4,1 F1_001269 equ $ ; IN [TINTI_2.BAS] DUR[5] = 36445 movlw 142 movwf Dur#5H,1 movlw 93 movwf Dur#5,1 F1_001270 equ $ ; IN [TINTI_2.BAS] DUR[6] = 35482 movlw 138 movwf Dur#6H,1 movlw 154 movwf Dur#6,1 F1_001271 equ $ ; IN [TINTI_2.BAS] DUR[7] = 34544 movlw 134 movwf Dur#7H,1 movlw 240 movwf Dur#7,1 F1_001272 equ $ ; IN [TINTI_2.BAS] DUR[8] = 33631 movlw 131 movwf Dur#8H,1 movlw 95 movwf Dur#8,1 F1_001273 equ $ ; IN [TINTI_2.BAS] DUR[9] = 32743 movlw 127 movwf Dur#9H,1 movlw 231 movwf Dur#9,1 F1_001274 equ $ ; IN [TINTI_2.BAS] DUR[10] = 31877 movlw 124 movwf Dur#10H,1 movlw 133 movwf Dur#10,1 F1_001275 equ $ ; IN [TINTI_2.BAS] DUR[11] = 31035 movlw 121 movwf Dur#11H,1 movlw 59 movwf Dur#11,1 F1_001276 equ $ ; IN [TINTI_2.BAS] DUR[12] = 30215 movlw 118 movwf Dur#12H,1 movlw 7 movwf Dur#12,1 F1_001277 equ $ ; IN [TINTI_2.BAS] DUR[13] = 29416 movlw 114 movwf Dur#13H,1 movlw 232 movwf Dur#13,1 F1_001278 equ $ ; IN [TINTI_2.BAS] DUR[14] = 28639 movlw 111 movwf Dur#14H,1 movlw 223 movwf Dur#14,1 F1_001279 equ $ ; IN [TINTI_2.BAS] DUR[15] = 27882 movlw 108 movwf Dur#15H,1 movlw 234 movwf Dur#15,1 F1_001280 equ $ ; IN [TINTI_2.BAS] DUR[16] = 27146 movlw 106 movwf Dur#16H,1 movlw 10 movwf Dur#16,1 F1_001281 equ $ ; IN [TINTI_2.BAS] DUR[17] = 26428 movlw 103 movwf Dur#17H,1 movlw 60 movwf Dur#17,1 F1_001282 equ $ ; IN [TINTI_2.BAS] DUR[18] = 25730 movlw 100 movwf Dur#18H,1 movlw 130 movwf Dur#18,1 F1_001283 equ $ ; IN [TINTI_2.BAS] DUR[19] = 25050 movlw 97 movwf Dur#19H,1 movlw 218 movwf Dur#19,1 F1_001284 equ $ ; IN [TINTI_2.BAS] DUR[20] = 24388 movlw 95 movwf Dur#20H,1 movlw 68 movwf Dur#20,1 F1_001285 equ $ ; IN [TINTI_2.BAS] DUR[21] = 23743 movlw 92 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_001286 equ $ ; IN [TINTI_2.BAS] DUR[22] = 23116 movlw 90 movwf Dur#22H,1 movlw 76 movwf Dur#22,1 F1_001287 equ $ ; IN [TINTI_2.BAS] DUR[23] = 22505 movlw 87 movwf Dur#23H,1 movlw 233 movwf Dur#23,1 F1_001288 equ $ ; IN [TINTI_2.BAS] DUR[24] = 21910 movlw 85 movwf Dur#24H,1 movlw 150 movwf Dur#24,1 F1_001289 equ $ ; IN [TINTI_2.BAS] DUR[25] = 21331 movlw 83 movwf Dur#25H,1 movwf Dur#25,1 F1_001290 equ $ ; IN [TINTI_2.BAS] DUR[26] = 20768 movlw 81 movwf Dur#26H,1 movlw 32 movwf Dur#26,1 F1_001291 equ $ ; IN [TINTI_2.BAS] DUR[27] = 20219 movlw 78 movwf Dur#27H,1 movlw 251 movwf Dur#27,1 F1_001292 equ $ ; IN [TINTI_2.BAS] DUR[28] = 19685 movlw 76 movwf Dur#28H,1 movlw 229 movwf Dur#28,1 F1_001293 equ $ ; IN [TINTI_2.BAS] DUR[29] = 19164 movlw 74 movwf Dur#29H,1 movlw 220 movwf Dur#29,1 F1_001294 equ $ ; IN [TINTI_2.BAS] DUR[30] = 18658 movlw 72 movwf Dur#30H,1 movlw 226 movwf Dur#30,1 F1_001295 equ $ ; IN [TINTI_2.BAS] DUR[31] = 18165 movlw 70 movwf Dur#31H,1 movlw 245 movwf Dur#31,1 F1_001296 equ $ ; IN [TINTI_2.BAS] DUR[32] = 17685 movlw 69 movwf Dur#32H,1 movlw 21 movwf Dur#32,1 F1_001297 equ $ ; IN [TINTI_2.BAS] DUR[33] = 17218 movlw 67 movwf Dur#33H,1 movlw 66 movwf Dur#33,1 F1_001298 equ $ ; IN [TINTI_2.BAS] DUR[34] = 16763 movlw 65 movwf Dur#34H,1 movlw 123 movwf Dur#34,1 F1_001299 equ $ ; IN [TINTI_2.BAS] DUR[35] = 16320 movlw 63 movwf Dur#35H,1 movlw 192 movwf Dur#35,1 F1_001300 equ $ ; IN [TINTI_2.BAS] DUR[36] = 15888 movlw 62 movwf Dur#36H,1 movlw 16 movwf Dur#36,1 F1_001301 equ $ ; IN [TINTI_2.BAS] DUR[37] = 15469 movlw 60 movwf Dur#37H,1 movlw 109 movwf Dur#37,1 F1_001302 equ $ ; IN [TINTI_2.BAS] DUR[38] = 15060 movlw 58 movwf Dur#38H,1 movlw 212 movwf Dur#38,1 F1_001303 equ $ ; IN [TINTI_2.BAS] DUR[39] = 14662 movlw 57 movwf Dur#39H,1 movlw 70 movwf Dur#39,1 F1_001304 equ $ ; IN [TINTI_2.BAS] DUR[40] = 14274 movlw 55 movwf Dur#40H,1 movlw 194 movwf Dur#40,1 F1_001305 equ $ ; IN [TINTI_2.BAS] DUR[41] = 13897 movlw 54 movwf Dur#41H,1 movlw 73 movwf Dur#41,1 F1_001306 equ $ ; IN [TINTI_2.BAS] DUR[42] = 13530 movlw 52 movwf Dur#42H,1 movlw 218 movwf Dur#42,1 F1_001307 equ $ ; IN [TINTI_2.BAS] DUR[43] = 13172 movlw 51 movwf Dur#43H,1 movlw 116 movwf Dur#43,1 F1_001308 equ $ ; IN [TINTI_2.BAS] DUR[44] = 12824 movlw 50 movwf Dur#44H,1 movlw 24 movwf Dur#44,1 F1_001309 equ $ ; IN [TINTI_2.BAS] DUR[45] = 12485 movlw 48 movwf Dur#45H,1 movlw 197 movwf Dur#45,1 F1_001310 equ $ ; IN [TINTI_2.BAS] DUR[46] = 12155 movlw 47 movwf Dur#46H,1 movlw 123 movwf Dur#46,1 F1_001311 equ $ ; IN [TINTI_2.BAS] DUR[47] = 11834 movlw 46 movwf Dur#47H,1 movlw 58 movwf Dur#47,1 F1_001312 equ $ ; IN [TINTI_2.BAS] DUR[48] = 11522 movlw 45 movwf Dur#48H,1 movlw 2 movwf Dur#48,1 F1_001313 equ $ ; IN [TINTI_2.BAS] DUR[49] = 11217 movlw 43 movwf Dur#49H,1 movlw 209 movwf Dur#49,1 F1_001314 equ $ ; IN [TINTI_2.BAS] DUR[50] = 10921 movlw 42 movwf Dur#50H,1 movlw 169 movwf Dur#50,1 F1_001315 equ $ ; IN [TINTI_2.BAS] DUR[51] = 10632 movlw 41 movwf Dur#51H,1 movlw 136 movwf Dur#51,1 F1_001316 equ $ ; IN [TINTI_2.BAS] DUR[52] = 10351 movlw 40 movwf Dur#52H,1 movlw 111 movwf Dur#52,1 F1_001317 equ $ ; IN [TINTI_2.BAS] DUR[53] = 10078 movlw 39 movlb 10 movwf Dur#53H,1 movlw 94 movwf Dur#53,1 F1_001318 equ $ ; IN [TINTI_2.BAS] DUR[54] = 9811 movlw 38 movwf Dur#54H,1 movlw 83 movwf Dur#54,1 F1_001319 equ $ ; IN [TINTI_2.BAS] DUR[55] = 9552 movlw 37 movwf Dur#55H,1 movlw 80 movwf Dur#55,1 F1_001320 equ $ ; IN [TINTI_2.BAS] DUR[56] = 9300 movlw 36 movwf Dur#56H,1 movlw 84 movwf Dur#56,1 F1_001321 equ $ ; IN [TINTI_2.BAS] DUR[57] = 9054 movlw 35 movwf Dur#57H,1 movlw 94 movwf Dur#57,1 F1_001322 equ $ ; IN [TINTI_2.BAS] DUR[58] = 8815 movlw 34 movwf Dur#58H,1 movlw 111 movwf Dur#58,1 F1_001323 equ $ ; IN [TINTI_2.BAS] DUR[59] = 8582 movlw 33 movwf Dur#59H,1 movlw 134 movwf Dur#59,1 F1_001324 equ $ ; IN [TINTI_2.BAS] DUR[60] = 8355 movlw 32 movwf Dur#60H,1 movlw 163 movwf Dur#60,1 F1_001325 equ $ ; IN [TINTI_2.BAS] DUR[61] = 8134 movlw 31 movwf Dur#61H,1 movlw 198 movwf Dur#61,1 F1_001326 equ $ ; IN [TINTI_2.BAS] DUR[62] = 7919 movlw 30 movwf Dur#62H,1 movlw 239 movwf Dur#62,1 F1_001327 equ $ ; IN [TINTI_2.BAS] DUR[63] = 7710 movlw 30 movwf Dur#63H,1 movwf Dur#63,1 F1_001328 equ $ ; IN [TINTI_2.BAS] DUR[64] = 7506 movlw 29 movwf Dur#64H,1 movlw 82 movwf Dur#64,1 F1_001329 equ $ ; IN [TINTI_2.BAS] DUR[65] = 7308 movlw 28 movwf Dur#65H,1 movlw 140 movwf Dur#65,1 F1_001330 equ $ ; IN [TINTI_2.BAS] DUR[66] = 7115 movlw 27 movwf Dur#66H,1 movlw 203 movwf Dur#66,1 F1_001331 equ $ ; IN [TINTI_2.BAS] DUR[67] = 6927 movlw 27 movwf Dur#67H,1 movlw 15 movwf Dur#67,1 F1_001332 equ $ ; IN [TINTI_2.BAS] DUR[68] = 6744 movlw 26 movwf Dur#68H,1 movlw 88 movwf Dur#68,1 F1_001333 equ $ ; IN [TINTI_2.BAS] DUR[69] = 6565 movlw 25 movwf Dur#69H,1 movlw 165 movwf Dur#69,1 F1_001334 equ $ ; IN [TINTI_2.BAS] DUR[70] = 6392 movlw 24 movwf Dur#70H,1 movlw 248 movwf Dur#70,1 F1_001335 equ $ ; IN [TINTI_2.BAS] DUR[71] = 6223 movlw 24 movwf Dur#71H,1 movlw 79 movwf Dur#71,1 F1_001336 equ $ ; IN [TINTI_2.BAS] DUR[72] = 6059 movlw 23 movwf Dur#72H,1 movlw 171 movwf Dur#72,1 F1_001337 equ $ ; IN [TINTI_2.BAS] DUR[73] = 5898 movlw 23 movwf Dur#73H,1 movlw 10 movwf Dur#73,1 F1_001338 equ $ ; IN [TINTI_2.BAS] DUR[74] = 5743 movlw 22 movwf Dur#74H,1 movlw 111 movwf Dur#74,1 F1_001339 equ $ ; IN [TINTI_2.BAS] DUR[75] = 5591 movlw 21 movwf Dur#75H,1 movlw 215 movwf Dur#75,1 F1_001340 equ $ ; IN [TINTI_2.BAS] DUR[76] = 5443 movlw 21 movwf Dur#76H,1 movlw 67 movwf Dur#76,1 F1_001341 equ $ ; IN [TINTI_2.BAS] DUR[77] = 5299 movlw 20 movwf Dur#77H,1 movlw 179 movwf Dur#77,1 F1_001342 equ $ ; IN [TINTI_2.BAS] DUR[78] = 5159 movlw 20 movwf Dur#78H,1 movlw 39 movwf Dur#78,1 F1_001343 equ $ ; IN [TINTI_2.BAS] DUR[79] = 5023 movlw 19 movwf Dur#79H,1 movlw 159 movwf Dur#79,1 F1_001344 equ $ ; IN [TINTI_2.BAS] DUR[80] = 4890 movlw 19 movwf Dur#80H,1 movlw 26 movwf Dur#80,1 F1_001345 equ $ ; IN [TINTI_2.BAS] DUR[81] = 4761 movlw 18 movwf Dur#81H,1 movlw 153 movwf Dur#81,1 F1_001346 equ $ ; IN [TINTI_2.BAS] DUR[82] = 4635 movlw 18 movwf Dur#82H,1 movlw 27 movwf Dur#82,1 F1_001347 equ $ ; IN [TINTI_2.BAS] DUR[83] = 4513 movlw 17 movwf Dur#83H,1 movlw 161 movwf Dur#83,1 F1_001348 equ $ ; IN [TINTI_2.BAS] DUR[84] = 4393 movlw 17 movwf Dur#84H,1 movlw 41 movwf Dur#84,1 F1_001349 equ $ ; IN [TINTI_2.BAS] DUR[85] = 4277 movlw 16 movwf Dur#85H,1 movlw 181 movwf Dur#85,1 F1_001350 equ $ ; IN [TINTI_2.BAS] DUR[86] = 4164 movlw 16 movwf Dur#86H,1 movlw 68 movwf Dur#86,1 F1_001351 equ $ ; IN [TINTI_2.BAS] DUR[87] = 4054 movlw 15 movwf Dur#87H,1 movlw 214 movwf Dur#87,1 F1_001352 equ $ ; IN [TINTI_2.BAS] DUR[88] = 3947 movlw 15 movwf Dur#88H,1 movlw 107 movwf Dur#88,1 F1_001353 equ $ ; IN [TINTI_2.BAS] DUR[89] = 3843 movlw 15 movwf Dur#89H,1 movlw 3 movwf Dur#89,1 F1_001354 equ $ ; IN [TINTI_2.BAS] DUR[90] = 3741 movlw 14 movwf Dur#90H,1 movlw 157 movwf Dur#90,1 F1_001355 equ $ ; IN [TINTI_2.BAS] DUR[91] = 3642 movlw 14 movwf Dur#91H,1 movlw 58 movwf Dur#91,1 F1_001356 equ $ ; IN [TINTI_2.BAS] DUR[92] = 3546 movlw 13 movwf Dur#92H,1 movlw 218 movwf Dur#92,1 F1_001357 equ $ ; IN [TINTI_2.BAS] DUR[93] = 3452 movlw 13 movwf Dur#93H,1 movlw 124 movwf Dur#93,1 F1_001358 equ $ ; IN [TINTI_2.BAS] DUR[94] = 3361 movlw 13 movwf Dur#94H,1 movlw 33 movwf Dur#94,1 F1_001359 equ $ ; IN [TINTI_2.BAS] DUR[95] = 3272 movlw 12 movwf Dur#95H,1 movlw 200 movwf Dur#95,1 F1_001360 equ $ ; IN [TINTI_2.BAS] DUR[96] = 3186 movlw 12 movwf Dur#96H,1 movlw 114 movwf Dur#96,1 F1_001361 equ $ ; IN [TINTI_2.BAS] DUR[97] = 3102 movlw 12 movwf Dur#97H,1 movlw 30 movwf Dur#97,1 F1_001362 equ $ ; IN [TINTI_2.BAS] DUR[98] = 3020 movlw 11 movwf Dur#98H,1 movlw 204 movwf Dur#98,1 F1_001363 equ $ ; IN [TINTI_2.BAS] DUR[99] = 2940 movlw 11 movwf Dur#99H,1 movlw 124 movwf Dur#99,1 F1_001364 equ $ ; IN [TINTI_2.BAS] DUR[100] = 2862 movlw 11 movwf Dur#100H,1 movlw 46 movwf Dur#100,1 F1_001365 equ $ ; IN [TINTI_2.BAS] DUR[101] = 2787 movlw 10 movwf Dur#101H,1 movlw 227 movwf Dur#101,1 F1_001366 equ $ ; IN [TINTI_2.BAS] DUR[102] = 2713 movlw 10 movwf Dur#102H,1 movlw 153 movwf Dur#102,1 F1_001367 equ $ ; IN [TINTI_2.BAS] DUR[103] = 2641 movlw 10 movwf Dur#103H,1 movlw 81 movwf Dur#103,1 F1_001368 equ $ ; IN [TINTI_2.BAS] DUR[104] = 2571 movlw 10 movwf Dur#104H,1 movlw 11 movwf Dur#104,1 F1_001369 equ $ ; IN [TINTI_2.BAS] DUR[105] = 2504 movlw 9 movwf Dur#105H,1 movlw 200 movwf Dur#105,1 F1_001370 equ $ ; IN [TINTI_2.BAS] DUR[106] = 2437 movlw 9 movwf Dur#106H,1 movlw 133 movwf Dur#106,1 F1_001371 equ $ ; IN [TINTI_2.BAS] DUR[107] = 2373 movlw 9 movwf Dur#107H,1 movlw 69 movwf Dur#107,1 F1_001372 equ $ ; IN [TINTI_2.BAS] DUR[108] = 2310 movlw 9 movwf Dur#108H,1 movlw 6 movwf Dur#108,1 F1_001373 equ $ ; IN [TINTI_2.BAS] DUR[109] = 2249 movlw 8 movwf Dur#109H,1 movlw 201 movwf Dur#109,1 F1_001374 equ $ ; IN [TINTI_2.BAS] DUR[110] = 2190 movlw 8 movwf Dur#110H,1 movlw 142 movwf Dur#110,1 F1_001375 equ $ ; IN [TINTI_2.BAS] DUR[111] = 2132 movlw 8 movwf Dur#111H,1 movlw 84 movwf Dur#111,1 F1_001376 equ $ ; IN [TINTI_2.BAS] DUR[112] = 2076 movlw 8 movwf Dur#112H,1 movlw 28 movwf Dur#112,1 F1_001377 equ $ ; IN [TINTI_2.BAS] DUR[113] = 2021 movlw 7 movwf Dur#113H,1 movlw 229 movwf Dur#113,1 F1_001378 equ $ ; IN [TINTI_2.BAS] DUR[114] = 1967 movlw 7 movwf Dur#114H,1 movlw 175 movwf Dur#114,1 F1_001379 equ $ ; IN [TINTI_2.BAS] DUR[115] = 1915 movlw 7 movwf Dur#115H,1 movlw 123 movwf Dur#115,1 F1_001380 equ $ ; IN [TINTI_2.BAS] DUR[116] = 1865 movlw 7 movwf Dur#116H,1 movlw 73 movwf Dur#116,1 F1_001381 equ $ ; IN [TINTI_2.BAS] DUR[117] = 1815 movlw 7 movwf Dur#117H,1 movlw 23 movwf Dur#117,1 F1_001382 equ $ ; IN [TINTI_2.BAS] DUR[118] = 1767 movlw 6 movwf Dur#118H,1 movlw 231 movwf Dur#118,1 F1_001383 equ $ ; IN [TINTI_2.BAS] DUR[119] = 1721 movlw 6 movwf Dur#119H,1 movlw 185 movwf Dur#119,1 F1_001384 equ $ ; IN [TINTI_2.BAS] DUR[120] = 1675 movlw 6 movwf Dur#120H,1 movlw 139 movwf Dur#120,1 F1_001385 equ $ ; IN [TINTI_2.BAS] DUR[121] = 1631 movlw 6 movwf Dur#121H,1 movlw 95 movwf Dur#121,1 F1_001386 equ $ ; IN [TINTI_2.BAS] DUR[122] = 1588 movlw 6 movwf Dur#122H,1 movlw 52 movwf Dur#122,1 F1_001387 equ $ ; IN [TINTI_2.BAS] DUR[123] = 1546 movlw 6 movwf Dur#123H,1 movlw 10 movwf Dur#123,1 F1_001388 equ $ ; IN [TINTI_2.BAS] DUR[124] = 1505 movlw 5 movwf Dur#124H,1 movlw 225 movwf Dur#124,1 F1_001389 equ $ ; IN [TINTI_2.BAS] DUR[125] = 1465 movlw 5 movwf Dur#125H,1 movlw 185 movwf Dur#125,1 F1_001390 equ $ ; IN [TINTI_2.BAS] DUR[126] = 1427 movlw 5 movwf Dur#126H,1 movlw 147 movwf Dur#126,1 F1_001391 equ $ ; IN [TINTI_2.BAS] DUR[127] = 1389 movlw 5 movwf Dur#127H,1 movlw 109 movwf Dur#127,1 F1_001392 equ $ ; IN [TINTI_2.BAS] RETURN movlb 0 return 0 Vels_Lookup F1_001398 equ $ ; IN [TINTI_2.BAS] VELS0[1] = 47 movlb 2 clrf Vels0#1H,1 movlw 47 movwf Vels0#1,1 F1_001399 equ $ ; IN [TINTI_2.BAS] VELS0[2] = 52 clrf Vels0#2H,1 movlw 52 movwf Vels0#2,1 F1_001400 equ $ ; IN [TINTI_2.BAS] VELS0[3] = 57 clrf Vels0#3H,1 movlw 57 movwf Vels0#3,1 F1_001401 equ $ ; IN [TINTI_2.BAS] VELS0[4] = 62 clrf Vels0#4H,1 movlw 62 movwf Vels0#4,1 F1_001402 equ $ ; IN [TINTI_2.BAS] VELS0[5] = 66 clrf Vels0#5H,1 movlw 66 movwf Vels0#5,1 F1_001403 equ $ ; IN [TINTI_2.BAS] VELS0[6] = 71 clrf Vels0#6H,1 movlw 71 movwf Vels0#6,1 F1_001404 equ $ ; IN [TINTI_2.BAS] VELS0[7] = 76 clrf Vels0#7H,1 movlw 76 movwf Vels0#7,1 F1_001405 equ $ ; IN [TINTI_2.BAS] VELS0[8] = 81 clrf Vels0#8H,1 movlw 81 movwf Vels0#8,1 F1_001406 equ $ ; IN [TINTI_2.BAS] VELS0[9] = 86 clrf Vels0#9H,1 movlw 86 movwf Vels0#9,1 F1_001407 equ $ ; IN [TINTI_2.BAS] VELS0[10] = 91 clrf Vels0#10H,1 movlw 91 movwf Vels0#10,1 F1_001408 equ $ ; IN [TINTI_2.BAS] VELS0[11] = 96 clrf Vels0#11H,1 movlw 96 movwf Vels0#11,1 F1_001409 equ $ ; IN [TINTI_2.BAS] VELS0[12] = 101 clrf Vels0#12H,1 movlw 101 movwf Vels0#12,1 F1_001410 equ $ ; IN [TINTI_2.BAS] VELS0[13] = 105 clrf Vels0#13H,1 movlw 105 movwf Vels0#13,1 F1_001411 equ $ ; IN [TINTI_2.BAS] VELS0[14] = 110 clrf Vels0#14H,1 movlw 110 movwf Vels0#14,1 F1_001412 equ $ ; IN [TINTI_2.BAS] VELS0[15] = 115 clrf Vels0#15H,1 movlw 115 movwf Vels0#15,1 F1_001413 equ $ ; IN [TINTI_2.BAS] VELS0[16] = 120 clrf Vels0#16H,1 movlw 120 movwf Vels0#16,1 F1_001414 equ $ ; IN [TINTI_2.BAS] VELS0[17] = 125 clrf Vels0#17H,1 movlw 125 movwf Vels0#17,1 F1_001415 equ $ ; IN [TINTI_2.BAS] VELS0[18] = 130 clrf Vels0#18H,1 movlw 130 movwf Vels0#18,1 F1_001416 equ $ ; IN [TINTI_2.BAS] VELS0[19] = 135 clrf Vels0#19H,1 movlw 135 movwf Vels0#19,1 F1_001417 equ $ ; IN [TINTI_2.BAS] VELS0[20] = 140 clrf Vels0#20H,1 movlw 140 movwf Vels0#20,1 F1_001418 equ $ ; IN [TINTI_2.BAS] VELS0[21] = 144 clrf Vels0#21H,1 movlw 144 movwf Vels0#21,1 F1_001419 equ $ ; IN [TINTI_2.BAS] VELS0[22] = 149 clrf Vels0#22H,1 movlw 149 movwf Vels0#22,1 F1_001420 equ $ ; IN [TINTI_2.BAS] VELS0[23] = 154 clrf Vels0#23H,1 movlw 154 movwf Vels0#23,1 F1_001421 equ $ ; IN [TINTI_2.BAS] VELS0[24] = 159 clrf Vels0#24H,1 movlw 159 movwf Vels0#24,1 F1_001422 equ $ ; IN [TINTI_2.BAS] VELS0[25] = 164 clrf Vels0#25H,1 movlw 164 movwf Vels0#25,1 F1_001423 equ $ ; IN [TINTI_2.BAS] VELS0[26] = 169 clrf Vels0#26H,1 movlw 169 movwf Vels0#26,1 F1_001424 equ $ ; IN [TINTI_2.BAS] VELS0[27] = 174 clrf Vels0#27H,1 movlw 174 movwf Vels0#27,1 F1_001425 equ $ ; IN [TINTI_2.BAS] VELS0[28] = 179 clrf Vels0#28H,1 movlw 179 movwf Vels0#28,1 F1_001426 equ $ ; IN [TINTI_2.BAS] VELS0[29] = 183 clrf Vels0#29H,1 movlw 183 movwf Vels0#29,1 F1_001427 equ $ ; IN [TINTI_2.BAS] VELS0[30] = 188 clrf Vels0#30H,1 movlw 188 movwf Vels0#30,1 F1_001428 equ $ ; IN [TINTI_2.BAS] VELS0[31] = 193 clrf Vels0#31H,1 movlw 193 movwf Vels0#31,1 F1_001429 equ $ ; IN [TINTI_2.BAS] VELS0[32] = 198 clrf Vels0#32H,1 movlw 198 movwf Vels0#32,1 F1_001430 equ $ ; IN [TINTI_2.BAS] VELS0[33] = 203 clrf Vels0#33H,1 movlw 203 movwf Vels0#33,1 F1_001431 equ $ ; IN [TINTI_2.BAS] VELS0[34] = 208 clrf Vels0#34H,1 movlw 208 movwf Vels0#34,1 F1_001432 equ $ ; IN [TINTI_2.BAS] VELS0[35] = 213 clrf Vels0#35H,1 movlw 213 movwf Vels0#35,1 F1_001433 equ $ ; IN [TINTI_2.BAS] VELS0[36] = 218 clrf Vels0#36H,1 movlw 218 movwf Vels0#36,1 F1_001434 equ $ ; IN [TINTI_2.BAS] VELS0[37] = 222 clrf Vels0#37H,1 movlw 222 movwf Vels0#37,1 F1_001435 equ $ ; IN [TINTI_2.BAS] VELS0[38] = 227 clrf Vels0#38H,1 movlw 227 movwf Vels0#38,1 F1_001436 equ $ ; IN [TINTI_2.BAS] VELS0[39] = 232 clrf Vels0#39H,1 movlw 232 movwf Vels0#39,1 F1_001437 equ $ ; IN [TINTI_2.BAS] VELS0[40] = 237 clrf Vels0#40H,1 movlw 237 movwf Vels0#40,1 F1_001438 equ $ ; IN [TINTI_2.BAS] VELS0[41] = 242 clrf Vels0#41H,1 movlw 242 movwf Vels0#41,1 F1_001439 equ $ ; IN [TINTI_2.BAS] VELS0[42] = 247 clrf Vels0#42H,1 movlw 247 movwf Vels0#42,1 F1_001440 equ $ ; IN [TINTI_2.BAS] VELS0[43] = 252 clrf Vels0#43H,1 movlw 252 movwf Vels0#43,1 F1_001441 equ $ ; IN [TINTI_2.BAS] VELS0[44] = 257 movlw 1 movwf Vels0#44H,1 movwf Vels0#44,1 F1_001442 equ $ ; IN [TINTI_2.BAS] VELS0[45] = 261 movwf Vels0#45H,1 movlw 5 movwf Vels0#45,1 F1_001443 equ $ ; IN [TINTI_2.BAS] VELS0[46] = 266 movlw 1 movwf Vels0#46H,1 movlw 10 movwf Vels0#46,1 F1_001444 equ $ ; IN [TINTI_2.BAS] VELS0[47] = 271 movlw 1 movwf Vels0#47H,1 movlw 15 movwf Vels0#47,1 F1_001445 equ $ ; IN [TINTI_2.BAS] VELS0[48] = 276 movlw 1 movwf Vels0#48H,1 movlw 20 movwf Vels0#48,1 F1_001446 equ $ ; IN [TINTI_2.BAS] VELS0[49] = 281 movlw 1 movwf Vels0#49H,1 movlw 25 movwf Vels0#49,1 F1_001447 equ $ ; IN [TINTI_2.BAS] VELS0[50] = 286 movlw 1 movwf Vels0#50H,1 movlw 30 movwf Vels0#50,1 F1_001448 equ $ ; IN [TINTI_2.BAS] VELS0[51] = 291 movlw 1 movwf Vels0#51H,1 movlw 35 movwf Vels0#51,1 F1_001449 equ $ ; IN [TINTI_2.BAS] VELS0[52] = 296 movlw 1 movwf Vels0#52H,1 movlw 40 movwf Vels0#52,1 F1_001450 equ $ ; IN [TINTI_2.BAS] VELS0[53] = 300 movlw 1 movlb 3 movwf Vels0#53H,1 movlw 44 movwf Vels0#53,1 F1_001451 equ $ ; IN [TINTI_2.BAS] VELS0[54] = 305 movlw 1 movwf Vels0#54H,1 movlw 49 movwf Vels0#54,1 F1_001452 equ $ ; IN [TINTI_2.BAS] VELS0[55] = 310 movlw 1 movwf Vels0#55H,1 movlw 54 movwf Vels0#55,1 F1_001453 equ $ ; IN [TINTI_2.BAS] VELS0[56] = 315 movlw 1 movwf Vels0#56H,1 movlw 59 movwf Vels0#56,1 F1_001454 equ $ ; IN [TINTI_2.BAS] VELS0[57] = 320 movlw 1 movwf Vels0#57H,1 movlw 64 movwf Vels0#57,1 F1_001455 equ $ ; IN [TINTI_2.BAS] VELS0[58] = 325 movlw 1 movwf Vels0#58H,1 movlw 69 movwf Vels0#58,1 F1_001456 equ $ ; IN [TINTI_2.BAS] VELS0[59] = 330 movlw 1 movwf Vels0#59H,1 movlw 74 movwf Vels0#59,1 F1_001457 equ $ ; IN [TINTI_2.BAS] VELS0[60] = 335 movlw 1 movwf Vels0#60H,1 movlw 79 movwf Vels0#60,1 F1_001458 equ $ ; IN [TINTI_2.BAS] VELS0[61] = 339 movlw 1 movwf Vels0#61H,1 movlw 83 movwf Vels0#61,1 F1_001459 equ $ ; IN [TINTI_2.BAS] VELS0[62] = 344 movlw 1 movwf Vels0#62H,1 movlw 88 movwf Vels0#62,1 F1_001460 equ $ ; IN [TINTI_2.BAS] VELS0[63] = 349 movlw 1 movwf Vels0#63H,1 movlw 93 movwf Vels0#63,1 F1_001461 equ $ ; IN [TINTI_2.BAS] VELS0[64] = 354 movlw 1 movwf Vels0#64H,1 movlw 98 movwf Vels0#64,1 F1_001462 equ $ ; IN [TINTI_2.BAS] VELS0[65] = 359 movlw 1 movwf Vels0#65H,1 movlw 103 movwf Vels0#65,1 F1_001463 equ $ ; IN [TINTI_2.BAS] VELS0[66] = 364 movlw 1 movwf Vels0#66H,1 movlw 108 movwf Vels0#66,1 F1_001464 equ $ ; IN [TINTI_2.BAS] VELS0[67] = 369 movlw 1 movwf Vels0#67H,1 movlw 113 movwf Vels0#67,1 F1_001465 equ $ ; IN [TINTI_2.BAS] VELS0[68] = 374 movlw 1 movwf Vels0#68H,1 movlw 118 movwf Vels0#68,1 F1_001466 equ $ ; IN [TINTI_2.BAS] VELS0[69] = 378 movlw 1 movwf Vels0#69H,1 movlw 122 movwf Vels0#69,1 F1_001467 equ $ ; IN [TINTI_2.BAS] VELS0[70] = 383 movlw 1 movwf Vels0#70H,1 movlw 127 movwf Vels0#70,1 F1_001468 equ $ ; IN [TINTI_2.BAS] VELS0[71] = 388 movlw 1 movwf Vels0#71H,1 movlw 132 movwf Vels0#71,1 F1_001469 equ $ ; IN [TINTI_2.BAS] VELS0[72] = 393 movlw 1 movwf Vels0#72H,1 movlw 137 movwf Vels0#72,1 F1_001470 equ $ ; IN [TINTI_2.BAS] VELS0[73] = 398 movlw 1 movwf Vels0#73H,1 movlw 142 movwf Vels0#73,1 F1_001471 equ $ ; IN [TINTI_2.BAS] VELS0[74] = 403 movlw 1 movwf Vels0#74H,1 movlw 147 movwf Vels0#74,1 F1_001472 equ $ ; IN [TINTI_2.BAS] VELS0[75] = 408 movlw 1 movwf Vels0#75H,1 movlw 152 movwf Vels0#75,1 F1_001473 equ $ ; IN [TINTI_2.BAS] VELS0[76] = 413 movlw 1 movwf Vels0#76H,1 movlw 157 movwf Vels0#76,1 F1_001474 equ $ ; IN [TINTI_2.BAS] VELS0[77] = 417 movlw 1 movwf Vels0#77H,1 movlw 161 movwf Vels0#77,1 F1_001475 equ $ ; IN [TINTI_2.BAS] VELS0[78] = 422 movlw 1 movwf Vels0#78H,1 movlw 166 movwf Vels0#78,1 F1_001476 equ $ ; IN [TINTI_2.BAS] VELS0[79] = 427 movlw 1 movwf Vels0#79H,1 movlw 171 movwf Vels0#79,1 F1_001477 equ $ ; IN [TINTI_2.BAS] VELS0[80] = 432 movlw 1 movwf Vels0#80H,1 movlw 176 movwf Vels0#80,1 F1_001478 equ $ ; IN [TINTI_2.BAS] VELS0[81] = 437 movlw 1 movwf Vels0#81H,1 movlw 181 movwf Vels0#81,1 F1_001479 equ $ ; IN [TINTI_2.BAS] VELS0[82] = 442 movlw 1 movwf Vels0#82H,1 movlw 186 movwf Vels0#82,1 F1_001480 equ $ ; IN [TINTI_2.BAS] VELS0[83] = 447 movlw 1 movwf Vels0#83H,1 movlw 191 movwf Vels0#83,1 F1_001481 equ $ ; IN [TINTI_2.BAS] VELS0[84] = 452 movlw 1 movwf Vels0#84H,1 movlw 196 movwf Vels0#84,1 F1_001482 equ $ ; IN [TINTI_2.BAS] VELS0[85] = 456 movlw 1 movwf Vels0#85H,1 movlw 200 movwf Vels0#85,1 F1_001483 equ $ ; IN [TINTI_2.BAS] VELS0[86] = 461 movlw 1 movwf Vels0#86H,1 movlw 205 movwf Vels0#86,1 F1_001484 equ $ ; IN [TINTI_2.BAS] VELS0[87] = 466 movlw 1 movwf Vels0#87H,1 movlw 210 movwf Vels0#87,1 F1_001485 equ $ ; IN [TINTI_2.BAS] VELS0[88] = 471 movlw 1 movwf Vels0#88H,1 movlw 215 movwf Vels0#88,1 F1_001486 equ $ ; IN [TINTI_2.BAS] VELS0[89] = 476 movlw 1 movwf Vels0#89H,1 movlw 220 movwf Vels0#89,1 F1_001487 equ $ ; IN [TINTI_2.BAS] VELS0[90] = 481 movlw 1 movwf Vels0#90H,1 movlw 225 movwf Vels0#90,1 F1_001488 equ $ ; IN [TINTI_2.BAS] VELS0[91] = 486 movlw 1 movwf Vels0#91H,1 movlw 230 movwf Vels0#91,1 F1_001489 equ $ ; IN [TINTI_2.BAS] VELS0[92] = 491 movlw 1 movwf Vels0#92H,1 movlw 235 movwf Vels0#92,1 F1_001490 equ $ ; IN [TINTI_2.BAS] VELS0[93] = 495 movlw 1 movwf Vels0#93H,1 movlw 239 movwf Vels0#93,1 F1_001491 equ $ ; IN [TINTI_2.BAS] VELS0[94] = 500 movlw 1 movwf Vels0#94H,1 movlw 244 movwf Vels0#94,1 F1_001492 equ $ ; IN [TINTI_2.BAS] VELS0[95] = 505 movlw 1 movwf Vels0#95H,1 movlw 249 movwf Vels0#95,1 F1_001493 equ $ ; IN [TINTI_2.BAS] VELS0[96] = 510 movlw 1 movwf Vels0#96H,1 movlw 254 movwf Vels0#96,1 F1_001494 equ $ ; IN [TINTI_2.BAS] VELS0[97] = 515 movlw 2 movwf Vels0#97H,1 movlw 3 movwf Vels0#97,1 F1_001495 equ $ ; IN [TINTI_2.BAS] VELS0[98] = 520 movlw 2 movwf Vels0#98H,1 movlw 8 movwf Vels0#98,1 F1_001496 equ $ ; IN [TINTI_2.BAS] VELS0[99] = 525 movlw 2 movwf Vels0#99H,1 movlw 13 movwf Vels0#99,1 F1_001497 equ $ ; IN [TINTI_2.BAS] VELS0[100] = 530 movlw 2 movwf Vels0#100H,1 movlw 18 movwf Vels0#100,1 F1_001498 equ $ ; IN [TINTI_2.BAS] VELS0[101] = 534 movlw 2 movwf Vels0#101H,1 movlw 22 movwf Vels0#101,1 F1_001499 equ $ ; IN [TINTI_2.BAS] VELS0[102] = 539 movlw 2 movwf Vels0#102H,1 movlw 27 movwf Vels0#102,1 F1_001500 equ $ ; IN [TINTI_2.BAS] VELS0[103] = 544 movlw 2 movwf Vels0#103H,1 movlw 32 movwf Vels0#103,1 F1_001501 equ $ ; IN [TINTI_2.BAS] VELS0[104] = 549 movlw 2 movwf Vels0#104H,1 movlw 37 movwf Vels0#104,1 F1_001502 equ $ ; IN [TINTI_2.BAS] VELS0[105] = 554 movlw 2 movwf Vels0#105H,1 movlw 42 movwf Vels0#105,1 F1_001503 equ $ ; IN [TINTI_2.BAS] VELS0[106] = 559 movlw 2 movwf Vels0#106H,1 movlw 47 movwf Vels0#106,1 F1_001504 equ $ ; IN [TINTI_2.BAS] VELS0[107] = 564 movlw 2 movwf Vels0#107H,1 movlw 52 movwf Vels0#107,1 F1_001505 equ $ ; IN [TINTI_2.BAS] VELS0[108] = 569 movlw 2 movwf Vels0#108H,1 movlw 57 movwf Vels0#108,1 F1_001506 equ $ ; IN [TINTI_2.BAS] VELS0[109] = 573 movlw 2 movwf Vels0#109H,1 movlw 61 movwf Vels0#109,1 F1_001507 equ $ ; IN [TINTI_2.BAS] VELS0[110] = 578 movlw 2 movwf Vels0#110H,1 movlw 66 movwf Vels0#110,1 F1_001508 equ $ ; IN [TINTI_2.BAS] VELS0[111] = 583 movlw 2 movwf Vels0#111H,1 movlw 71 movwf Vels0#111,1 F1_001509 equ $ ; IN [TINTI_2.BAS] VELS0[112] = 588 movlw 2 movwf Vels0#112H,1 movlw 76 movwf Vels0#112,1 F1_001510 equ $ ; IN [TINTI_2.BAS] VELS0[113] = 593 movlw 2 movwf Vels0#113H,1 movlw 81 movwf Vels0#113,1 F1_001511 equ $ ; IN [TINTI_2.BAS] VELS0[114] = 598 movlw 2 movwf Vels0#114H,1 movlw 86 movwf Vels0#114,1 F1_001512 equ $ ; IN [TINTI_2.BAS] VELS0[115] = 603 movlw 2 movwf Vels0#115H,1 movlw 91 movwf Vels0#115,1 F1_001513 equ $ ; IN [TINTI_2.BAS] VELS0[116] = 608 movlw 2 movwf Vels0#116H,1 movlw 96 movwf Vels0#116,1 F1_001514 equ $ ; IN [TINTI_2.BAS] VELS0[117] = 612 movlw 2 movwf Vels0#117H,1 movlw 100 movwf Vels0#117,1 F1_001515 equ $ ; IN [TINTI_2.BAS] VELS0[118] = 617 movlw 2 movwf Vels0#118H,1 movlw 105 movwf Vels0#118,1 F1_001516 equ $ ; IN [TINTI_2.BAS] VELS0[119] = 622 movlw 2 movwf Vels0#119H,1 movlw 110 movwf Vels0#119,1 F1_001517 equ $ ; IN [TINTI_2.BAS] VELS0[120] = 627 movlw 2 movwf Vels0#120H,1 movlw 115 movwf Vels0#120,1 F1_001518 equ $ ; IN [TINTI_2.BAS] VELS0[121] = 632 movlw 2 movwf Vels0#121H,1 movlw 120 movwf Vels0#121,1 F1_001519 equ $ ; IN [TINTI_2.BAS] VELS0[122] = 637 movlw 2 movwf Vels0#122H,1 movlw 125 movwf Vels0#122,1 F1_001520 equ $ ; IN [TINTI_2.BAS] VELS0[123] = 642 movlw 2 movwf Vels0#123H,1 movlw 130 movwf Vels0#123,1 F1_001521 equ $ ; IN [TINTI_2.BAS] VELS0[124] = 647 movlw 2 movwf Vels0#124H,1 movlw 135 movwf Vels0#124,1 F1_001522 equ $ ; IN [TINTI_2.BAS] VELS0[125] = 651 movlw 2 movwf Vels0#125H,1 movlw 139 movwf Vels0#125,1 F1_001523 equ $ ; IN [TINTI_2.BAS] VELS0[126] = 656 movlw 2 movwf Vels0#126H,1 movlw 144 movwf Vels0#126,1 F1_001524 equ $ ; IN [TINTI_2.BAS] VELS0[127] = 661 movlw 2 movwf Vels0#127H,1 movlw 149 movwf Vels0#127,1 F1_001527 equ $ ; IN [TINTI_2.BAS] FOR I = 1 TO 127 movlw 1 movwf _I,0 _FRLB__378 movlb 0 movlw 128 subwf _I,W,0 btfsc STATUS,0,0 bra _NXLB__379 F1_001528 equ $ ; IN [TINTI_2.BAS] VELS0[I] = VELS0[I] * 2.8 lfsr 0,Vels0 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 movff PBP#VAR1,PP_AARG movff PBP#VAR1H,PP_AARGH call _UNS_INT16_TOFL32 movlw 51 movwf PP_BARGHHH,0 movwf PP_BARGHH,0 movwf PP_BARGH,0 movlw 128 movwf PP_BARG,0 call FPM@32 call _FL32_TO_INT32 movwf PBP#VAR0,0 movff PP_AARGH,PBP#VAR0H lfsr 0,Vels0 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 F1_001529 equ $ ; IN [TINTI_2.BAS] VELS1[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels1 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 F1_001530 equ $ ; IN [TINTI_2.BAS] VELS2[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels2 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 F1_001531 equ $ ; IN [TINTI_2.BAS] VELS3[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels3 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 F1_001532 equ $ ; IN [TINTI_2.BAS] VELS4[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels4 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 F1_001533 equ $ ; IN [TINTI_2.BAS] VELS5[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels5 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 F1_001534 equ $ ; IN [TINTI_2.BAS] VELS6[I] = VELS0[I] lfsr 0,Vels0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H lfsr 0,Vels6 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__380 F1_001535 equ $ ; IN [TINTI_2.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _FRLB__378 _NXLB__379 F1_001537 equ $ ; IN [TINTI_2.BAS] RETURN return 0 F1_EOF equ $ ; TINTI_2.BAS _PBLB__381 bra _PBLB__381 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CP2 = off config CP3 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRT2 = off config WRT3 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTR2 = off config EBTR3 = off config EBTRB = off config PWRT = on end