; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; Let's find out together what makes a PIC Tick! ; ; Code Produced by the Proton BASIC Compiler. Version 3.6.2.7 ; Written by Les Johnson. November 2018 ;---------------------------------------------------------- ; #define Config_Req 1 #define Debug@Req 1 LIST P = 18F2620, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T = ON ; START OF ACCESS SFRS PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_Port=TRISC _I2C_SCL_Pin=3 _I2C_SDA_Port=TRISC _I2C_SDA_Pin=4 ; SFR BITS RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RE3=3 MCLR=3 NOT_MCLR=3 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 ABDEN=0 WUE=1 BRG16=3 PP_BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 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 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF 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 __18F2620 1 #define Xtal 40 #define _Core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0X10000 #define _ADC 10 #define _ADC_Res 10 #define _Eeprom 1024 #define RAM_Banks 15 #define _USART 1 #define _USB 0 #define _Flash 1 #define _Cwrite_Block 64 #define _TRIS_Offset 18 #define __EE_RW_Type 1 #define __MSSP_Type 1 #define __HPWM_Type 1 #define __Adin_Type 1 #define __UART_Type 1 #define Bank0_Start 0X80 #define Bank0_End 0XFF #define Bank1_Start 0X100 #define Bank1_End 0X1FF #define Bank2_Start 0X200 #define Bank2_End 0X2FF #define Bank3_Start 0X300 #define Bank3_End 0X3FF #define Bank4_Start 0X400 #define Bank4_End 0X4FF #define Bank5_Start 0X500 #define Bank5_End 0X5FF #define Bank6_Start 0X600 #define Bank6_End 0X6FF #define Bank7_Start 0X700 #define Bank7_End 0X7FF #define Bank8_Start 0X800 #define Bank8_End 0X8FF #define Bank9_Start 0X900 #define Bank9_End 0X9FF #define Bank10_Start 0XA00 #define Bank10_End 0XAFF #define Bank11_Start 0XB00 #define Bank11_End 0XBFF #define Bank12_Start 0XC00 #define Bank12_End 0XCFF #define Bank13_Start 0XD00 #define Bank13_End 0XDFF #define Bank14_Start 0XE00 #define Bank14_End 0XEFF #define BankA_Start 0X00 #define BankA_End 0X7F #define _System_Variable_Count 64 #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 ; COMPILER SYSTEM VARIABLES BPF = 0X00 BPFH = 0X01 GEN = 0X02 PBS_VAR0 = 0X03 PBS_VAR0H = 0X04 PBS_VAR0HH = 0X05 PBS_VAR0HHH = 0X06 PBS_VAR1 = 0X07 PBS_VAR1H = 0X08 PP0 = 0X09 PP0H = 0X0A PP1 = 0X0B PP1H = 0X0C PP2 = 0X0D PP2H = 0X0E PP3 = 0X0F PP3H = 0X10 PP4 = 0X11 PP4H = 0X12 PP5 = 0X13 PP5H = 0X14 PP6H = 0X15 ; USER ACCESS RAM VARIABLES Bytein = 0X16 _I = 0X17 statusbyte = 0X18 noteUit = 0X19 release = 0X1A noteAan = 0X1B velo = 0X1C notePres = 0X1D pres = 0X1E Ctrl = 0X1F value = 0X20 prog = 0X21 aft = 0X22 pblsb = 0X23 pbmsb = 0X24 Velflags = 0X25 CC66 = 0X26 notes = 0X27 CC30 = 0X28 pres0 = 0X29 pres1 = 0X2A pres3 = 0X2B pres5 = 0X2C pres6 = 0X2D pres7 = 0X2E MotSpeed = 0X2F time = 0X30 timeH = 0X31 timeHH = 0X32 timeHHH = 0X33 _T = 0X34 tog = 0X35 Nxt = 0X36 NxtH = 0X37 NxtHH = 0X38 NxtHHH = 0X39 idx = 0X3A MidiIn = 0X3B USART_FSR1_Save = 0X3C USART_FSR1_SaveH = 0X3D IndexIn = 0X3E IndexOut = 0X3F ; STANDARD VARIABLES TimVals = 0X40 TimValsH = 0X41 TimValsHH = 0X42 TimValsHHH = 0X43 variable TimVals#0=0X40,TimVals#0H=0X41,TimVals#0HH=0X42,TimVals#0HHH=0X43 variable TimVals#1=0X44,TimVals#1H=0X45,TimVals#1HH=0X46,TimVals#1HHH=0X47 variable TimVals#2=0X48,TimVals#2H=0X49,TimVals#2HH=0X4A,TimVals#2HHH=0X4B variable TimVals#3=0X4C,TimVals#3H=0X4D,TimVals#3HH=0X4E,TimVals#3HHH=0X4F variable TimVals#4=0X50,TimVals#4H=0X51,TimVals#4HH=0X52,TimVals#4HHH=0X53 variable TimVals#5=0X54,TimVals#5H=0X55,TimVals#5HH=0X56,TimVals#5HHH=0X57 variable TimVals#6=0X58,TimVals#6H=0X59,TimVals#6HH=0X5A,TimVals#6HHH=0X5B Ringbuffer = 0X5C variable Ringbuffer#0=0X5C,Ringbuffer#1=0X5D,Ringbuffer#2=0X5E,Ringbuffer#3=0X5F variable Ringbuffer#4=0X60,Ringbuffer#5=0X61,Ringbuffer#6=0X62,Ringbuffer#7=0X63 variable Ringbuffer#8=0X64,Ringbuffer#9=0X65,Ringbuffer#10=0X66,Ringbuffer#11=0X67 variable Ringbuffer#12=0X68,Ringbuffer#13=0X69,Ringbuffer#14=0X6A,Ringbuffer#15=0X6B variable Ringbuffer#16=0X6C,Ringbuffer#17=0X6D,Ringbuffer#18=0X6E,Ringbuffer#19=0X6F variable Ringbuffer#20=0X70,Ringbuffer#21=0X71,Ringbuffer#22=0X72,Ringbuffer#23=0X73 variable Ringbuffer#24=0X74,Ringbuffer#25=0X75,Ringbuffer#26=0X76,Ringbuffer#27=0X77 variable Ringbuffer#28=0X78,Ringbuffer#29=0X79,Ringbuffer#30=0X7A,Ringbuffer#31=0X7B variable Ringbuffer#32=0X7C,Ringbuffer#33=0X7D,Ringbuffer#34=0X7E,Ringbuffer#35=0X7F variable Ringbuffer#36=0X80,Ringbuffer#37=0X81,Ringbuffer#38=0X82,Ringbuffer#39=0X83 variable Ringbuffer#40=0X84,Ringbuffer#41=0X85,Ringbuffer#42=0X86,Ringbuffer#43=0X87 variable Ringbuffer#44=0X88,Ringbuffer#45=0X89,Ringbuffer#46=0X8A,Ringbuffer#47=0X8B variable Ringbuffer#48=0X8C,Ringbuffer#49=0X8D,Ringbuffer#50=0X8E,Ringbuffer#51=0X8F variable Ringbuffer#52=0X90,Ringbuffer#53=0X91,Ringbuffer#54=0X92,Ringbuffer#55=0X93 variable Ringbuffer#56=0X94,Ringbuffer#57=0X95,Ringbuffer#58=0X96,Ringbuffer#59=0X97 variable Ringbuffer#60=0X98,Ringbuffer#61=0X99,Ringbuffer#62=0X9A,Ringbuffer#63=0X9B variable Ringbuffer#64=0X9C,Ringbuffer#65=0X9D,Ringbuffer#66=0X9E,Ringbuffer#67=0X9F variable Ringbuffer#68=0XA0,Ringbuffer#69=0XA1,Ringbuffer#70=0XA2,Ringbuffer#71=0XA3 variable Ringbuffer#72=0XA4,Ringbuffer#73=0XA5,Ringbuffer#74=0XA6,Ringbuffer#75=0XA7 variable Ringbuffer#76=0XA8,Ringbuffer#77=0XA9,Ringbuffer#78=0XAA,Ringbuffer#79=0XAB variable Ringbuffer#80=0XAC,Ringbuffer#81=0XAD,Ringbuffer#82=0XAE,Ringbuffer#83=0XAF variable Ringbuffer#84=0XB0,Ringbuffer#85=0XB1,Ringbuffer#86=0XB2,Ringbuffer#87=0XB3 variable Ringbuffer#88=0XB4,Ringbuffer#89=0XB5,Ringbuffer#90=0XB6,Ringbuffer#91=0XB7 variable Ringbuffer#92=0XB8,Ringbuffer#93=0XB9,Ringbuffer#94=0XBA,Ringbuffer#95=0XBB variable Ringbuffer#96=0XBC,Ringbuffer#97=0XBD,Ringbuffer#98=0XBE,Ringbuffer#99=0XBF variable Ringbuffer#100=0XC0,Ringbuffer#101=0XC1,Ringbuffer#102=0XC2,Ringbuffer#103=0XC3 variable Ringbuffer#104=0XC4,Ringbuffer#105=0XC5,Ringbuffer#106=0XC6,Ringbuffer#107=0XC7 variable Ringbuffer#108=0XC8,Ringbuffer#109=0XC9,Ringbuffer#110=0XCA,Ringbuffer#111=0XCB variable Ringbuffer#112=0XCC,Ringbuffer#113=0XCD,Ringbuffer#114=0XCE,Ringbuffer#115=0XCF variable Ringbuffer#116=0XD0,Ringbuffer#117=0XD1,Ringbuffer#118=0XD2,Ringbuffer#119=0XD3 variable Ringbuffer#120=0XD4,Ringbuffer#121=0XD5,Ringbuffer#122=0XD6,Ringbuffer#123=0XD7 variable Ringbuffer#124=0XD8,Ringbuffer#125=0XD9,Ringbuffer#126=0XDA,Ringbuffer#127=0XDB variable Ringbuffer#128=0XDC,Ringbuffer#129=0XDD,Ringbuffer#130=0XDE,Ringbuffer#131=0XDF variable Ringbuffer#132=0XE0,Ringbuffer#133=0XE1,Ringbuffer#134=0XE2,Ringbuffer#135=0XE3 variable Ringbuffer#136=0XE4,Ringbuffer#137=0XE5,Ringbuffer#138=0XE6,Ringbuffer#139=0XE7 variable Ringbuffer#140=0XE8,Ringbuffer#141=0XE9,Ringbuffer#142=0XEA,Ringbuffer#143=0XEB variable Ringbuffer#144=0XEC,Ringbuffer#145=0XED,Ringbuffer#146=0XEE,Ringbuffer#147=0XEF variable Ringbuffer#148=0XF0,Ringbuffer#149=0XF1,Ringbuffer#150=0XF2,Ringbuffer#151=0XF3 variable Ringbuffer#152=0XF4,Ringbuffer#153=0XF5,Ringbuffer#154=0XF6,Ringbuffer#155=0XF7 variable Ringbuffer#156=0XF8,Ringbuffer#157=0XF9,Ringbuffer#158=0XFA,Ringbuffer#159=0XFB variable Ringbuffer#160=0XFC,Ringbuffer#161=0XFD,Ringbuffer#162=0XFE,Ringbuffer#163=0XFF variable Ringbuffer#164=0X100,Ringbuffer#165=0X101,Ringbuffer#166=0X102,Ringbuffer#167=0X103 variable Ringbuffer#168=0X104,Ringbuffer#169=0X105,Ringbuffer#170=0X106,Ringbuffer#171=0X107 variable Ringbuffer#172=0X108,Ringbuffer#173=0X109,Ringbuffer#174=0X10A,Ringbuffer#175=0X10B variable Ringbuffer#176=0X10C,Ringbuffer#177=0X10D,Ringbuffer#178=0X10E,Ringbuffer#179=0X10F variable Ringbuffer#180=0X110,Ringbuffer#181=0X111,Ringbuffer#182=0X112,Ringbuffer#183=0X113 variable Ringbuffer#184=0X114,Ringbuffer#185=0X115,Ringbuffer#186=0X116,Ringbuffer#187=0X117 variable Ringbuffer#188=0X118,Ringbuffer#189=0X119,Ringbuffer#190=0X11A,Ringbuffer#191=0X11B variable Ringbuffer#192=0X11C,Ringbuffer#193=0X11D,Ringbuffer#194=0X11E,Ringbuffer#195=0X11F variable Ringbuffer#196=0X120,Ringbuffer#197=0X121,Ringbuffer#198=0X122,Ringbuffer#199=0X123 variable Ringbuffer#200=0X124,Ringbuffer#201=0X125,Ringbuffer#202=0X126,Ringbuffer#203=0X127 variable Ringbuffer#204=0X128,Ringbuffer#205=0X129,Ringbuffer#206=0X12A,Ringbuffer#207=0X12B variable Ringbuffer#208=0X12C,Ringbuffer#209=0X12D,Ringbuffer#210=0X12E,Ringbuffer#211=0X12F variable Ringbuffer#212=0X130,Ringbuffer#213=0X131,Ringbuffer#214=0X132,Ringbuffer#215=0X133 variable Ringbuffer#216=0X134,Ringbuffer#217=0X135,Ringbuffer#218=0X136,Ringbuffer#219=0X137 variable Ringbuffer#220=0X138,Ringbuffer#221=0X139,Ringbuffer#222=0X13A,Ringbuffer#223=0X13B variable Ringbuffer#224=0X13C,Ringbuffer#225=0X13D,Ringbuffer#226=0X13E,Ringbuffer#227=0X13F variable Ringbuffer#228=0X140,Ringbuffer#229=0X141,Ringbuffer#230=0X142,Ringbuffer#231=0X143 variable Ringbuffer#232=0X144,Ringbuffer#233=0X145,Ringbuffer#234=0X146,Ringbuffer#235=0X147 variable Ringbuffer#236=0X148,Ringbuffer#237=0X149,Ringbuffer#238=0X14A,Ringbuffer#239=0X14B variable Ringbuffer#240=0X14C,Ringbuffer#241=0X14D,Ringbuffer#242=0X14E,Ringbuffer#243=0X14F variable Ringbuffer#244=0X150,Ringbuffer#245=0X151,Ringbuffer#246=0X152,Ringbuffer#247=0X153 variable Ringbuffer#248=0X154,Ringbuffer#249=0X155,Ringbuffer#250=0X156,Ringbuffer#251=0X157 variable Ringbuffer#252=0X158,Ringbuffer#253=0X159,Ringbuffer#254=0X15A,Ringbuffer#255=0X15B Vels = 0X15C VelsH = 0X15D variable Vels#0=0X15C,Vels#0H=0X15D,Vels#1=0X15E,Vels#1H=0X15F variable Vels#2=0X160,Vels#2H=0X161,Vels#3=0X162,Vels#3H=0X163 variable Vels#4=0X164,Vels#4H=0X165,Vels#5=0X166,Vels#5H=0X167 variable Vels#6=0X168,Vels#6H=0X169,Vels#7=0X16A,Vels#7H=0X16B variable Vels#8=0X16C,Vels#8H=0X16D,Vels#9=0X16E,Vels#9H=0X16F variable Vels#10=0X170,Vels#10H=0X171,Vels#11=0X172,Vels#11H=0X173 variable Vels#12=0X174,Vels#12H=0X175,Vels#13=0X176,Vels#13H=0X177 variable Vels#14=0X178,Vels#14H=0X179,Vels#15=0X17A,Vels#15H=0X17B variable Vels#16=0X17C,Vels#16H=0X17D,Vels#17=0X17E,Vels#17H=0X17F variable Vels#18=0X180,Vels#18H=0X181,Vels#19=0X182,Vels#19H=0X183 variable Vels#20=0X184,Vels#20H=0X185,Vels#21=0X186,Vels#21H=0X187 variable Vels#22=0X188,Vels#22H=0X189,Vels#23=0X18A,Vels#23H=0X18B variable Vels#24=0X18C,Vels#24H=0X18D,Vels#25=0X18E,Vels#25H=0X18F variable Vels#26=0X190,Vels#26H=0X191,Vels#27=0X192,Vels#27H=0X193 variable Vels#28=0X194,Vels#28H=0X195,Vels#29=0X196,Vels#29H=0X197 variable Vels#30=0X198,Vels#30H=0X199,Vels#31=0X19A,Vels#31H=0X19B variable Vels#32=0X19C,Vels#32H=0X19D,Vels#33=0X19E,Vels#33H=0X19F variable Vels#34=0X1A0,Vels#34H=0X1A1,Vels#35=0X1A2,Vels#35H=0X1A3 variable Vels#36=0X1A4,Vels#36H=0X1A5,Vels#37=0X1A6,Vels#37H=0X1A7 variable Vels#38=0X1A8,Vels#38H=0X1A9,Vels#39=0X1AA,Vels#39H=0X1AB variable Vels#40=0X1AC,Vels#40H=0X1AD,Vels#41=0X1AE,Vels#41H=0X1AF variable Vels#42=0X1B0,Vels#42H=0X1B1,Vels#43=0X1B2,Vels#43H=0X1B3 variable Vels#44=0X1B4,Vels#44H=0X1B5,Vels#45=0X1B6,Vels#45H=0X1B7 variable Vels#46=0X1B8,Vels#46H=0X1B9,Vels#47=0X1BA,Vels#47H=0X1BB variable Vels#48=0X1BC,Vels#48H=0X1BD,Vels#49=0X1BE,Vels#49H=0X1BF variable Vels#50=0X1C0,Vels#50H=0X1C1,Vels#51=0X1C2,Vels#51H=0X1C3 variable Vels#52=0X1C4,Vels#52H=0X1C5,Vels#53=0X1C6,Vels#53H=0X1C7 variable Vels#54=0X1C8,Vels#54H=0X1C9,Vels#55=0X1CA,Vels#55H=0X1CB variable Vels#56=0X1CC,Vels#56H=0X1CD,Vels#57=0X1CE,Vels#57H=0X1CF variable Vels#58=0X1D0,Vels#58H=0X1D1,Vels#59=0X1D2,Vels#59H=0X1D3 variable Vels#60=0X1D4,Vels#60H=0X1D5,Vels#61=0X1D6,Vels#61H=0X1D7 variable Vels#62=0X1D8,Vels#62H=0X1D9,Vels#63=0X1DA,Vels#63H=0X1DB variable Vels#64=0X1DC,Vels#64H=0X1DD,Vels#65=0X1DE,Vels#65H=0X1DF variable Vels#66=0X1E0,Vels#66H=0X1E1,Vels#67=0X1E2,Vels#67H=0X1E3 variable Vels#68=0X1E4,Vels#68H=0X1E5,Vels#69=0X1E6,Vels#69H=0X1E7 variable Vels#70=0X1E8,Vels#70H=0X1E9,Vels#71=0X1EA,Vels#71H=0X1EB variable Vels#72=0X1EC,Vels#72H=0X1ED,Vels#73=0X1EE,Vels#73H=0X1EF variable Vels#74=0X1F0,Vels#74H=0X1F1,Vels#75=0X1F2,Vels#75H=0X1F3 variable Vels#76=0X1F4,Vels#76H=0X1F5,Vels#77=0X1F6,Vels#77H=0X1F7 variable Vels#78=0X1F8,Vels#78H=0X1F9,Vels#79=0X1FA,Vels#79H=0X1FB variable Vels#80=0X1FC,Vels#80H=0X1FD,Vels#81=0X1FE,Vels#81H=0X1FF variable Vels#82=0X200,Vels#82H=0X201,Vels#83=0X202,Vels#83H=0X203 variable Vels#84=0X204,Vels#84H=0X205,Vels#85=0X206,Vels#85H=0X207 variable Vels#86=0X208,Vels#86H=0X209,Vels#87=0X20A,Vels#87H=0X20B variable Vels#88=0X20C,Vels#88H=0X20D,Vels#89=0X20E,Vels#89H=0X20F variable Vels#90=0X210,Vels#90H=0X211,Vels#91=0X212,Vels#91H=0X213 variable Vels#92=0X214,Vels#92H=0X215,Vels#93=0X216,Vels#93H=0X217 variable Vels#94=0X218,Vels#94H=0X219,Vels#95=0X21A,Vels#95H=0X21B variable Vels#96=0X21C,Vels#96H=0X21D,Vels#97=0X21E,Vels#97H=0X21F variable Vels#98=0X220,Vels#98H=0X221,Vels#99=0X222,Vels#99H=0X223 variable Vels#100=0X224,Vels#100H=0X225,Vels#101=0X226,Vels#101H=0X227 variable Vels#102=0X228,Vels#102H=0X229,Vels#103=0X22A,Vels#103H=0X22B variable Vels#104=0X22C,Vels#104H=0X22D,Vels#105=0X22E,Vels#105H=0X22F variable Vels#106=0X230,Vels#106H=0X231,Vels#107=0X232,Vels#107H=0X233 variable Vels#108=0X234,Vels#108H=0X235,Vels#109=0X236,Vels#109H=0X237 variable Vels#110=0X238,Vels#110H=0X239,Vels#111=0X23A,Vels#111H=0X23B variable Vels#112=0X23C,Vels#112H=0X23D,Vels#113=0X23E,Vels#113H=0X23F variable Vels#114=0X240,Vels#114H=0X241,Vels#115=0X242,Vels#115H=0X243 variable Vels#116=0X244,Vels#116H=0X245,Vels#117=0X246,Vels#117H=0X247 variable Vels#118=0X248,Vels#118H=0X249,Vels#119=0X24A,Vels#119H=0X24B variable Vels#120=0X24C,Vels#120H=0X24D,Vels#121=0X24E,Vels#121H=0X24F variable Vels#122=0X250,Vels#122H=0X251,Vels#123=0X252,Vels#123H=0X253 variable Vels#124=0X254,Vels#124H=0X255,Vels#125=0X256,Vels#125H=0X257 variable Vels#126=0X258,Vels#126H=0X259,Vels#127=0X25A,Vels#127H=0X25B Dur = 0X25C DurH = 0X25D variable Dur#0=0X25C,Dur#0H=0X25D,Dur#1=0X25E,Dur#1H=0X25F variable Dur#2=0X260,Dur#2H=0X261,Dur#3=0X262,Dur#3H=0X263 variable Dur#4=0X264,Dur#4H=0X265,Dur#5=0X266,Dur#5H=0X267 variable Dur#6=0X268,Dur#6H=0X269,Dur#7=0X26A,Dur#7H=0X26B variable Dur#8=0X26C,Dur#8H=0X26D,Dur#9=0X26E,Dur#9H=0X26F variable Dur#10=0X270,Dur#10H=0X271,Dur#11=0X272,Dur#11H=0X273 variable Dur#12=0X274,Dur#12H=0X275,Dur#13=0X276,Dur#13H=0X277 variable Dur#14=0X278,Dur#14H=0X279,Dur#15=0X27A,Dur#15H=0X27B variable Dur#16=0X27C,Dur#16H=0X27D,Dur#17=0X27E,Dur#17H=0X27F variable Dur#18=0X280,Dur#18H=0X281,Dur#19=0X282,Dur#19H=0X283 variable Dur#20=0X284,Dur#20H=0X285,Dur#21=0X286,Dur#21H=0X287 variable Dur#22=0X288,Dur#22H=0X289,Dur#23=0X28A,Dur#23H=0X28B variable Dur#24=0X28C,Dur#24H=0X28D,Dur#25=0X28E,Dur#25H=0X28F variable Dur#26=0X290,Dur#26H=0X291,Dur#27=0X292,Dur#27H=0X293 variable Dur#28=0X294,Dur#28H=0X295,Dur#29=0X296,Dur#29H=0X297 variable Dur#30=0X298,Dur#30H=0X299,Dur#31=0X29A,Dur#31H=0X29B variable Dur#32=0X29C,Dur#32H=0X29D,Dur#33=0X29E,Dur#33H=0X29F variable Dur#34=0X2A0,Dur#34H=0X2A1,Dur#35=0X2A2,Dur#35H=0X2A3 variable Dur#36=0X2A4,Dur#36H=0X2A5,Dur#37=0X2A6,Dur#37H=0X2A7 variable Dur#38=0X2A8,Dur#38H=0X2A9,Dur#39=0X2AA,Dur#39H=0X2AB variable Dur#40=0X2AC,Dur#40H=0X2AD,Dur#41=0X2AE,Dur#41H=0X2AF variable Dur#42=0X2B0,Dur#42H=0X2B1,Dur#43=0X2B2,Dur#43H=0X2B3 variable Dur#44=0X2B4,Dur#44H=0X2B5,Dur#45=0X2B6,Dur#45H=0X2B7 variable Dur#46=0X2B8,Dur#46H=0X2B9,Dur#47=0X2BA,Dur#47H=0X2BB variable Dur#48=0X2BC,Dur#48H=0X2BD,Dur#49=0X2BE,Dur#49H=0X2BF variable Dur#50=0X2C0,Dur#50H=0X2C1,Dur#51=0X2C2,Dur#51H=0X2C3 variable Dur#52=0X2C4,Dur#52H=0X2C5,Dur#53=0X2C6,Dur#53H=0X2C7 variable Dur#54=0X2C8,Dur#54H=0X2C9,Dur#55=0X2CA,Dur#55H=0X2CB variable Dur#56=0X2CC,Dur#56H=0X2CD,Dur#57=0X2CE,Dur#57H=0X2CF variable Dur#58=0X2D0,Dur#58H=0X2D1,Dur#59=0X2D2,Dur#59H=0X2D3 variable Dur#60=0X2D4,Dur#60H=0X2D5,Dur#61=0X2D6,Dur#61H=0X2D7 variable Dur#62=0X2D8,Dur#62H=0X2D9,Dur#63=0X2DA,Dur#63H=0X2DB variable Dur#64=0X2DC,Dur#64H=0X2DD,Dur#65=0X2DE,Dur#65H=0X2DF variable Dur#66=0X2E0,Dur#66H=0X2E1,Dur#67=0X2E2,Dur#67H=0X2E3 variable Dur#68=0X2E4,Dur#68H=0X2E5,Dur#69=0X2E6,Dur#69H=0X2E7 variable Dur#70=0X2E8,Dur#70H=0X2E9,Dur#71=0X2EA,Dur#71H=0X2EB variable Dur#72=0X2EC,Dur#72H=0X2ED,Dur#73=0X2EE,Dur#73H=0X2EF variable Dur#74=0X2F0,Dur#74H=0X2F1,Dur#75=0X2F2,Dur#75H=0X2F3 variable Dur#76=0X2F4,Dur#76H=0X2F5,Dur#77=0X2F6,Dur#77H=0X2F7 variable Dur#78=0X2F8,Dur#78H=0X2F9,Dur#79=0X2FA,Dur#79H=0X2FB variable Dur#80=0X2FC,Dur#80H=0X2FD,Dur#81=0X2FE,Dur#81H=0X2FF variable Dur#82=0X300,Dur#82H=0X301,Dur#83=0X302,Dur#83H=0X303 variable Dur#84=0X304,Dur#84H=0X305,Dur#85=0X306,Dur#85H=0X307 variable Dur#86=0X308,Dur#86H=0X309,Dur#87=0X30A,Dur#87H=0X30B variable Dur#88=0X30C,Dur#88H=0X30D,Dur#89=0X30E,Dur#89H=0X30F variable Dur#90=0X310,Dur#90H=0X311,Dur#91=0X312,Dur#91H=0X313 variable Dur#92=0X314,Dur#92H=0X315,Dur#93=0X316,Dur#93H=0X317 variable Dur#94=0X318,Dur#94H=0X319,Dur#95=0X31A,Dur#95H=0X31B variable Dur#96=0X31C,Dur#96H=0X31D,Dur#97=0X31E,Dur#97H=0X31F variable Dur#98=0X320,Dur#98H=0X321,Dur#99=0X322,Dur#99H=0X323 variable Dur#100=0X324,Dur#100H=0X325,Dur#101=0X326,Dur#101H=0X327 variable Dur#102=0X328,Dur#102H=0X329,Dur#103=0X32A,Dur#103H=0X32B variable Dur#104=0X32C,Dur#104H=0X32D,Dur#105=0X32E,Dur#105H=0X32F variable Dur#106=0X330,Dur#106H=0X331,Dur#107=0X332,Dur#107H=0X333 variable Dur#108=0X334,Dur#108H=0X335,Dur#109=0X336,Dur#109H=0X337 variable Dur#110=0X338,Dur#110H=0X339,Dur#111=0X33A,Dur#111H=0X33B variable Dur#112=0X33C,Dur#112H=0X33D,Dur#113=0X33E,Dur#113H=0X33F variable Dur#114=0X340,Dur#114H=0X341,Dur#115=0X342,Dur#115H=0X343 variable Dur#116=0X344,Dur#116H=0X345,Dur#117=0X346,Dur#117H=0X347 variable Dur#118=0X348,Dur#118H=0X349,Dur#119=0X34A,Dur#119H=0X34B variable Dur#120=0X34C,Dur#120H=0X34D,Dur#121=0X34E,Dur#121H=0X34F variable Dur#122=0X350,Dur#122H=0X351,Dur#123=0X352,Dur#123H=0X353 variable Dur#124=0X354,Dur#124H=0X355,Dur#125=0X356,Dur#125H=0X357 variable Dur#126=0X358,Dur#126H=0X359,Dur#127=0X35A,Dur#127H=0X35B Dur5 = 0X35C Dur5H = 0X35D variable Dur5#0=0X35C,Dur5#0H=0X35D,Dur5#1=0X35E,Dur5#1H=0X35F variable Dur5#2=0X360,Dur5#2H=0X361,Dur5#3=0X362,Dur5#3H=0X363 variable Dur5#4=0X364,Dur5#4H=0X365,Dur5#5=0X366,Dur5#5H=0X367 variable Dur5#6=0X368,Dur5#6H=0X369,Dur5#7=0X36A,Dur5#7H=0X36B variable Dur5#8=0X36C,Dur5#8H=0X36D,Dur5#9=0X36E,Dur5#9H=0X36F variable Dur5#10=0X370,Dur5#10H=0X371,Dur5#11=0X372,Dur5#11H=0X373 variable Dur5#12=0X374,Dur5#12H=0X375,Dur5#13=0X376,Dur5#13H=0X377 variable Dur5#14=0X378,Dur5#14H=0X379,Dur5#15=0X37A,Dur5#15H=0X37B variable Dur5#16=0X37C,Dur5#16H=0X37D,Dur5#17=0X37E,Dur5#17H=0X37F variable Dur5#18=0X380,Dur5#18H=0X381,Dur5#19=0X382,Dur5#19H=0X383 variable Dur5#20=0X384,Dur5#20H=0X385,Dur5#21=0X386,Dur5#21H=0X387 variable Dur5#22=0X388,Dur5#22H=0X389,Dur5#23=0X38A,Dur5#23H=0X38B variable Dur5#24=0X38C,Dur5#24H=0X38D,Dur5#25=0X38E,Dur5#25H=0X38F variable Dur5#26=0X390,Dur5#26H=0X391,Dur5#27=0X392,Dur5#27H=0X393 variable Dur5#28=0X394,Dur5#28H=0X395,Dur5#29=0X396,Dur5#29H=0X397 variable Dur5#30=0X398,Dur5#30H=0X399,Dur5#31=0X39A,Dur5#31H=0X39B variable Dur5#32=0X39C,Dur5#32H=0X39D,Dur5#33=0X39E,Dur5#33H=0X39F variable Dur5#34=0X3A0,Dur5#34H=0X3A1,Dur5#35=0X3A2,Dur5#35H=0X3A3 variable Dur5#36=0X3A4,Dur5#36H=0X3A5,Dur5#37=0X3A6,Dur5#37H=0X3A7 variable Dur5#38=0X3A8,Dur5#38H=0X3A9,Dur5#39=0X3AA,Dur5#39H=0X3AB variable Dur5#40=0X3AC,Dur5#40H=0X3AD,Dur5#41=0X3AE,Dur5#41H=0X3AF variable Dur5#42=0X3B0,Dur5#42H=0X3B1,Dur5#43=0X3B2,Dur5#43H=0X3B3 variable Dur5#44=0X3B4,Dur5#44H=0X3B5,Dur5#45=0X3B6,Dur5#45H=0X3B7 variable Dur5#46=0X3B8,Dur5#46H=0X3B9,Dur5#47=0X3BA,Dur5#47H=0X3BB variable Dur5#48=0X3BC,Dur5#48H=0X3BD,Dur5#49=0X3BE,Dur5#49H=0X3BF variable Dur5#50=0X3C0,Dur5#50H=0X3C1,Dur5#51=0X3C2,Dur5#51H=0X3C3 variable Dur5#52=0X3C4,Dur5#52H=0X3C5,Dur5#53=0X3C6,Dur5#53H=0X3C7 variable Dur5#54=0X3C8,Dur5#54H=0X3C9,Dur5#55=0X3CA,Dur5#55H=0X3CB variable Dur5#56=0X3CC,Dur5#56H=0X3CD,Dur5#57=0X3CE,Dur5#57H=0X3CF variable Dur5#58=0X3D0,Dur5#58H=0X3D1,Dur5#59=0X3D2,Dur5#59H=0X3D3 variable Dur5#60=0X3D4,Dur5#60H=0X3D5,Dur5#61=0X3D6,Dur5#61H=0X3D7 variable Dur5#62=0X3D8,Dur5#62H=0X3D9,Dur5#63=0X3DA,Dur5#63H=0X3DB variable Dur5#64=0X3DC,Dur5#64H=0X3DD,Dur5#65=0X3DE,Dur5#65H=0X3DF variable Dur5#66=0X3E0,Dur5#66H=0X3E1,Dur5#67=0X3E2,Dur5#67H=0X3E3 variable Dur5#68=0X3E4,Dur5#68H=0X3E5,Dur5#69=0X3E6,Dur5#69H=0X3E7 variable Dur5#70=0X3E8,Dur5#70H=0X3E9,Dur5#71=0X3EA,Dur5#71H=0X3EB variable Dur5#72=0X3EC,Dur5#72H=0X3ED,Dur5#73=0X3EE,Dur5#73H=0X3EF variable Dur5#74=0X3F0,Dur5#74H=0X3F1,Dur5#75=0X3F2,Dur5#75H=0X3F3 variable Dur5#76=0X3F4,Dur5#76H=0X3F5,Dur5#77=0X3F6,Dur5#77H=0X3F7 variable Dur5#78=0X3F8,Dur5#78H=0X3F9,Dur5#79=0X3FA,Dur5#79H=0X3FB variable Dur5#80=0X3FC,Dur5#80H=0X3FD,Dur5#81=0X3FE,Dur5#81H=0X3FF variable Dur5#82=0X400,Dur5#82H=0X401,Dur5#83=0X402,Dur5#83H=0X403 variable Dur5#84=0X404,Dur5#84H=0X405,Dur5#85=0X406,Dur5#85H=0X407 variable Dur5#86=0X408,Dur5#86H=0X409,Dur5#87=0X40A,Dur5#87H=0X40B variable Dur5#88=0X40C,Dur5#88H=0X40D,Dur5#89=0X40E,Dur5#89H=0X40F variable Dur5#90=0X410,Dur5#90H=0X411,Dur5#91=0X412,Dur5#91H=0X413 variable Dur5#92=0X414,Dur5#92H=0X415,Dur5#93=0X416,Dur5#93H=0X417 variable Dur5#94=0X418,Dur5#94H=0X419,Dur5#95=0X41A,Dur5#95H=0X41B variable Dur5#96=0X41C,Dur5#96H=0X41D,Dur5#97=0X41E,Dur5#97H=0X41F variable Dur5#98=0X420,Dur5#98H=0X421,Dur5#99=0X422,Dur5#99H=0X423 variable Dur5#100=0X424,Dur5#100H=0X425,Dur5#101=0X426,Dur5#101H=0X427 variable Dur5#102=0X428,Dur5#102H=0X429,Dur5#103=0X42A,Dur5#103H=0X42B variable Dur5#104=0X42C,Dur5#104H=0X42D,Dur5#105=0X42E,Dur5#105H=0X42F variable Dur5#106=0X430,Dur5#106H=0X431,Dur5#107=0X432,Dur5#107H=0X433 variable Dur5#108=0X434,Dur5#108H=0X435,Dur5#109=0X436,Dur5#109H=0X437 variable Dur5#110=0X438,Dur5#110H=0X439,Dur5#111=0X43A,Dur5#111H=0X43B variable Dur5#112=0X43C,Dur5#112H=0X43D,Dur5#113=0X43E,Dur5#113H=0X43F variable Dur5#114=0X440,Dur5#114H=0X441,Dur5#115=0X442,Dur5#115H=0X443 variable Dur5#116=0X444,Dur5#116H=0X445,Dur5#117=0X446,Dur5#117H=0X447 variable Dur5#118=0X448,Dur5#118H=0X449,Dur5#119=0X44A,Dur5#119H=0X44B variable Dur5#120=0X44C,Dur5#120H=0X44D,Dur5#121=0X44E,Dur5#121H=0X44F variable Dur5#122=0X450,Dur5#122H=0X451,Dur5#123=0X452,Dur5#123H=0X453 variable Dur5#124=0X454,Dur5#124H=0X455,Dur5#125=0X456,Dur5#125H=0X457 variable Dur5#126=0X458,Dur5#126H=0X459,Dur5#127=0X45A,Dur5#127H=0X45B ; HEAP VARIABLES _Low__Context_Store = 0X45C variable _Low__Context_Store#0=0X45C,_Low__Context_Store#1=0X45D,_Low__Context_Store#2=0X45E ; ALIAS VARIABLES #define CntLw TMR0L #define CntLwH TMR0LH #define Tim3 TMR3L #define Tim3H TMR3LH #define StBit Bytein,7 #define PowerOn CC66,0 #define maxtim timeHHH,7 #define tg tog,0 #define 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 ; CONSTANTS #define __OPTIMISER_LEVEL 3 #define __Xtal 40 #define PWMMINF 2442 #define PWMminFH 9 #define FPWM 21000 #define fPwmH 82 #define HORN1_NOTE 96 #define HORN2_NOTE 97 #define ORLITE_NOTE 120 #define BLUE_LITE_NOTE 122 #define ORLEFT_NOTE 123 #define ORRIGHT_NOTE 124 #define SIREN_LOW_NOTE 42 #define SIREN_HIGH_NOTE 84 #define SIREN2_NOTE 24 #define SIREN3_NOTE 25 #define BELL_NOTE 28 #define HORN3_NOTE 98 #define HORN4_NOTE 99 #define TRUE 1 #define FALSE 0 #define MIDICHANNEL 15 #define NOTEOFF_STATUS 143 #define NOTEON_STATUS 159 #define KEYPRES_STATUS 175 #define CONTROL_STATUS 191 #define PROGCHANGE_STATUS 207 #define AFTERTOUCH_STATUS 223 #define PITCHBEND_STATUS 239 #define __HSERIAL_TXSTA 36 PROTON#CODE#START org 0X000000 nop nop goto proton#main#start org 0X000008 bra High_Prior_Interrupt org 0X000018 bra Low_Prior_Interrupt __hrsout1__ btfss PIR1,PP_TXIF bra $ - 2 movwf TXREG,0 return __hpwm_ movwf PP4H,0 movlw 150 movwf PP0,0 movlw 152 movwf PP0H,0 rcall __divide_u1616_ btfsc STATUS,2 bcf T2CON,PP_T2CKPS0 btfss STATUS,2 bsf T2CON,PP_T2CKPS0 addlw 252 btfss STATUS,0 bcf T2CON,PP_T2CKPS1 btfsc STATUS,0 bsf T2CON,PP_T2CKPS1 movlw 128 movwf PP0,0 movlw 150 movwf PP0H,0 movlw 152 movwf PP2,0 clrf PP2H,0 btfsc T2CON,PP_T2CKPS0 rcall hpw@2s btfsc T2CON,PP_T2CKPS1 rcall hpw@2s rcall __divide_int_u1616_ decf PP0,W,0 movwf PR2,0 movff PP0,PP1 movff PP0H,PP1H movf GEN,W,0 movwf PP3,0 movwf PP3H,0 incfsz GEN,W,0 clrf PP3H,0 rcall __multiply_u1616_ movf PP2H,W,0 decfsz PP4H,F,0 bra hpw@sk1 movwf CCPR1L,0 movlw 12 movwf CCP1CON,0 btfsc PP2,7 bsf CCP1CON,5 btfsc PP2,6 bsf CCP1CON,4 bcf TRISC,2 __HPWM_Exit__ bsf T2CON,PP_TMR2ON return hpw@sk1 hpw@2s rcall hpw@2l hpw@2l bcf STATUS,0 rrcf PP2,F,0 rrcf PP0H,F,0 rrcf PP0,F,0 return __delay_ms_ clrf PP1H,0 __delay_ms_w_ movwf PP1,0 __delayms_from_regs__ movlw 255 addwf PP1,F,0 addwfc PP1H,F,0 bra $ + 2 btfss STATUS,0 return movlw 3 movwf PP0H,0 movlw 230 rcall __delay_us_w_ bra __delayms_from_regs__ __delay_us_ clrf PP0H,0 __delay_us_w_ addlw 254 movwf PP0,0 clrf WREG,0 subwfb PP0H,F,0 btfss STATUS,0 return nop decf PP0,F,0 bra $ + 2 bra $ - 14 __divide_u1616_ clrf PP2H,0 clrf PP2,0 __divide_int_u1616_ movlw 16 movwf PRODL,0 __divide_u1616_loop_ rlcf PP0H,W,0 rlcf PP2,F,0 rlcf PP2H,F,0 movf PP1,W,0 subwf PP2,W,0 movf PP1H,W,0 subwfb PP2H,W,0 bnc __divide_u1616_k_ movf PP1,W,0 subwf PP2,F,0 movf PP1H,W,0 subwfb PP2H,F,0 bsf STATUS,0 __divide_u1616_k_ rlcf PP0,F,0 rlcf PP0H,F,0 decfsz PRODL,F,0 bra __divide_u1616_loop_ movf PP0,W,0 return __multiply_u1616_ movf PP1,W,0 mulwf PP3,0 movff PRODL,PP2 movff PRODH,PP2H movf PP1H,W,0 mulwf PP3,0 movf PRODL,W,0 addwf PP2H,F,0 movf PP1,W,0 mulwf PP3H,0 movf PRODL,W,0 addwf PP2H,F,0 movf PP2,W,0 return proton#main#start clrf BPF,0 ; UART1_ACTUALBAUD = 31250 ; UART1_BAUDERROR = 0 movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; BALSI_HUB.BAS F2_SOF equ $ ; 18F2620.INC movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F2620.INC F1_000051 equ $ ; IN [BALSI_HUB.BAS] CLEAR lfsr 0,3967 _pblb__2 clrf POSTDEC0,0 movf FSR0L,W,0 iorwf FSR0H,W,0 bnz _pblb__2 clrf INDF0,0 F1_000070 equ $ ; IN [BALSI_HUB.BAS] DECLARE ALL_DIGITAL = TRUE F1_000071 equ $ ; IN [BALSI_HUB.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000073 equ $ ; IN [BALSI_HUB.BAS] TRISA = %11000011 movlw 195 movwf TRISA,0 F1_000074 equ $ ; IN [BALSI_HUB.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000075 equ $ ; IN [BALSI_HUB.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000076 equ $ ; IN [BALSI_HUB.BAS] INPUT PORTA.0 bsf TRISA,0,0 F1_000077 equ $ ; IN [BALSI_HUB.BAS] INPUT PORTA.1 bsf TRISA,1,0 F3_SOF equ $ ; BALSI_HUB_IRQ.INC F3_000070 equ $ ; IN [BALSI_HUB_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000084 equ $ ; IN [BALSI_HUB_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _lbl__4 F3_000085 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000090 equ $ ; IN [BALSI_HUB_IRQ.INC] BTG PORTB,5 btg PORTB,5 F3_000091 equ $ ; IN [BALSI_HUB_IRQ.INC] RETFIE FAST retfie 1 F3_000092 equ $ ; IN [BALSI_HUB_IRQ.INC] ENDIF _lbl__4 _UART_IRQ F3_000094 equ $ ; IN [BALSI_HUB_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _lbl__6 F3_000095 equ $ ; IN [BALSI_HUB_IRQ.INC] MOVLW 6 movlw 6 F3_000096 equ $ ; IN [BALSI_HUB_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000097 equ $ ; IN [BALSI_HUB_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000098 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000099 equ $ ; IN [BALSI_HUB_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000109 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,92 F3_000110 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000111 equ $ ; IN [BALSI_HUB_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000112 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000114 equ $ ; IN [BALSI_HUB_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000116 equ $ ; IN [BALSI_HUB_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000117 equ $ ; IN [BALSI_HUB_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000118 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000119 equ $ ; IN [BALSI_HUB_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000120 equ $ ; IN [BALSI_HUB_IRQ.INC] ENDIF _lbl__6 F3_000121 equ $ ; IN [BALSI_HUB_IRQ.INC] RETFIE FAST retfie 1 GetMidiIn F3_000146 equ $ ; IN [BALSI_HUB_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _lbl__8 F3_000147 equ $ ; IN [BALSI_HUB_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000148 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000149 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,92 F3_000150 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000151 equ $ ; IN [BALSI_HUB_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000152 equ $ ; IN [BALSI_HUB_IRQ.INC] MIDIIN = WREG movwf MidiIn,0 F3_000153 equ $ ; IN [BALSI_HUB_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000154 equ $ ; IN [BALSI_HUB_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000155 equ $ ; IN [BALSI_HUB_IRQ.INC] RET return 0 bra _lbl__9 _lbl__8 F3_000156 equ $ ; IN [BALSI_HUB_IRQ.INC] ELSE F3_000157 equ $ ; IN [BALSI_HUB_IRQ.INC] WREG = 255 setf WREG,0 F3_000158 equ $ ; IN [BALSI_HUB_IRQ.INC] MIDIIN = WREG movwf MidiIn,0 F3_000159 equ $ ; IN [BALSI_HUB_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000160 equ $ ; IN [BALSI_HUB_IRQ.INC] RET return 0 F3_000161 equ $ ; IN [BALSI_HUB_IRQ.INC] ENDIF _lbl__9 F3_000163 equ $ ; IN [BALSI_HUB_IRQ.INC] ENDSUB return 0 ; ENDSUB _Init_Usart F3_000180 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000181 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000182 equ $ ; IN [BALSI_HUB_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000184 equ $ ; IN [BALSI_HUB_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000186 equ $ ; IN [BALSI_HUB_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000187 equ $ ; IN [BALSI_HUB_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000189 equ $ ; IN [BALSI_HUB_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000203 equ $ ; IN [BALSI_HUB_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000204 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR RINGBUFFER lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _pblb__10 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _pblb__10 F3_000205 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000206 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000207 equ $ ; IN [BALSI_HUB_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000208 equ $ ; IN [BALSI_HUB_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000218 equ $ ; IN [BALSI_HUB_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_000219 equ $ ; IN [BALSI_HUB_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000220 equ $ ; IN [BALSI_HUB_IRQ.INC] TIM3 = 0 clrf TMR3LH,0 clrf TMR3L,0 F3_000226 equ $ ; IN [BALSI_HUB_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 _Over_IRQ_Handler F3_EOF equ $ ; BALSI_HUB_IRQ.INC MAIN F1_000171 equ $ ; IN [BALSI_HUB.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000172 equ $ ; IN [BALSI_HUB.BAS] DELAYMS 10 movlw 10 rcall __delay_ms_ F1_000173 equ $ ; IN [BALSI_HUB.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000174 equ $ ; IN [BALSI_HUB.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000175 equ $ ; IN [BALSI_HUB.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000176 equ $ ; IN [BALSI_HUB.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000177 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000178 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000179 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000180 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000181 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000182 equ $ ; IN [BALSI_HUB.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000183 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES clrf notes,0 F1_000184 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000185 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000186 equ $ ; IN [BALSI_HUB.BAS] CLEAR CC66 clrf CC66,0 F1_000187 equ $ ; IN [BALSI_HUB.BAS] MOTSPEED = 127 movlw 127 movwf MotSpeed,0 F1_000189 equ $ ; IN [BALSI_HUB.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000191 equ $ ; IN [BALSI_HUB.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000200 equ $ ; IN [BALSI_HUB.BAS] CLEAR T1CON clrf T1CON,0 F1_000201 equ $ ; IN [BALSI_HUB.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000202 equ $ ; IN [BALSI_HUB.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000203 equ $ ; IN [BALSI_HUB.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000228 equ $ ; IN [BALSI_HUB.BAS] CLEAR T3CON clrf T3CON,0 F1_000229 equ $ ; IN [BALSI_HUB.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000230 equ $ ; IN [BALSI_HUB.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000231 equ $ ; IN [BALSI_HUB.BAS] CLEAR TIM3 clrf TMR3LH,0 clrf TMR3L,0 F1_000232 equ $ ; IN [BALSI_HUB.BAS] SET RCON.7 bsf RCON,7,0 F1_000233 equ $ ; IN [BALSI_HUB.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000235 equ $ ; IN [BALSI_HUB.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000248 equ $ ; IN [BALSI_HUB.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000249 equ $ ; IN [BALSI_HUB.BAS] GOSUB VELS_LOOKUP call Vels_Lookup F1_000253 equ $ ; IN [BALSI_HUB.BAS] DO _lbl__11 F1_000254 equ $ ; IN [BALSI_HUB.BAS] INC T incf _T,F,0 F1_000255 equ $ ; IN [BALSI_HUB.BAS] IF T.1 = TG THEN clrf WREG,0 btfsc _T,1,0 addlw 1 btfsc tog,0,0 sublw 1 bnz _lbl__15 F1_000256 equ $ ; IN [BALSI_HUB.BAS] BTG TG btg tog,0 F1_000257 equ $ ; IN [BALSI_HUB.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000258 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__15 F1_000261 equ $ ; IN [BALSI_HUB.BAS] GETMIDIIN () rcall GetMidiIn F1_000262 equ $ ; IN [BALSI_HUB.BAS] BYTEIN = MIDIIN movff MidiIn,Bytein Midi_Parse F1_000266 equ $ ; IN [BALSI_HUB.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 192 subwf Bytein,W,0 bnc _lbl__17 F1_000267 equ $ ; IN [BALSI_HUB.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bnc _lbl__19 bra _lbl__20 _lbl__19 F1_000271 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000272 equ $ ; IN [BALSI_HUB.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000273 equ $ ; IN [BALSI_HUB.BAS] END IF _lbl__20 F1_000274 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000275 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__17 F1_000276 equ $ ; IN [BALSI_HUB.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _lbl__22 F1_000278 equ $ ; IN [BALSI_HUB.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000279 equ $ ; IN [BALSI_HUB.BAS] SELECT BYTEIN F1_000280 equ $ ; IN [BALSI_HUB.BAS] CASE NOTEOFF_STATUS movlw 143 subwf Bytein,W,0 bnz _lbl__24 F1_000281 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000282 equ $ ; IN [BALSI_HUB.BAS] SET NOTEUIT setf noteUit,0 F1_000283 equ $ ; IN [BALSI_HUB.BAS] SET RELEASE setf release,0 bra _lbl__23 _lbl__24 F1_000284 equ $ ; IN [BALSI_HUB.BAS] CASE NOTEON_STATUS movlw 159 subwf Bytein,W,0 bnz _lbl__27 F1_000285 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000286 equ $ ; IN [BALSI_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000287 equ $ ; IN [BALSI_HUB.BAS] SET VELO setf velo,0 bra _lbl__23 _lbl__27 F1_000288 equ $ ; IN [BALSI_HUB.BAS] CASE KEYPRES_STATUS movlw 175 subwf Bytein,W,0 bnz _lbl__29 F1_000289 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000290 equ $ ; IN [BALSI_HUB.BAS] SET NOTEPRES setf notePres,0 F1_000291 equ $ ; IN [BALSI_HUB.BAS] SET PRES setf pres,0 bra _lbl__23 _lbl__29 F1_000292 equ $ ; IN [BALSI_HUB.BAS] CASE CONTROL_STATUS movlw 191 subwf Bytein,W,0 bnz _lbl__31 F1_000293 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000294 equ $ ; IN [BALSI_HUB.BAS] SET CTRL setf Ctrl,0 F1_000295 equ $ ; IN [BALSI_HUB.BAS] SET VALUE setf value,0 bra _lbl__23 _lbl__31 F1_000296 equ $ ; IN [BALSI_HUB.BAS] CASE PROGCHANGE_STATUS movlw 207 subwf Bytein,W,0 bnz _lbl__33 F1_000297 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000298 equ $ ; IN [BALSI_HUB.BAS] SET PROG setf prog,0 bra _lbl__23 _lbl__33 F1_000299 equ $ ; IN [BALSI_HUB.BAS] CASE AFTERTOUCH_STATUS movlw 223 subwf Bytein,W,0 bnz _lbl__35 F1_000300 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000301 equ $ ; IN [BALSI_HUB.BAS] SET AFT setf aft,0 bra _lbl__23 _lbl__35 F1_000302 equ $ ; IN [BALSI_HUB.BAS] CASE PITCHBEND_STATUS movlw 239 subwf Bytein,W,0 bnz _lbl__37 F1_000303 equ $ ; IN [BALSI_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000304 equ $ ; IN [BALSI_HUB.BAS] SET PBLSB setf pblsb,0 F1_000305 equ $ ; IN [BALSI_HUB.BAS] SET PBMSB setf pbmsb,0 F1_000306 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__37 _lbl__23 goto _lbl__38 _lbl__22 F1_000307 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000308 equ $ ; IN [BALSI_HUB.BAS] SELECT STATUSBYTE F1_000309 equ $ ; IN [BALSI_HUB.BAS] CASE 0 movf statusbyte,F,0 bnz _lbl__40 F1_000310 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _lbl__39 _lbl__40 F1_000311 equ $ ; IN [BALSI_HUB.BAS] CASE NOTEOFF_STATUS movlw 143 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__43 F1_000312 equ $ ; IN [BALSI_HUB.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _lbl__45 F1_000313 equ $ ; IN [BALSI_HUB.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _lbl__46 _lbl__45 F1_000314 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000315 equ $ ; IN [BALSI_HUB.BAS] RELEASE = BYTEIN movff Bytein,release F1_000316 equ $ ; IN [BALSI_HUB.BAS] SELECT NOTEUIT F1_000317 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN2_NOTE movlw 24 subwf noteUit,W,0 bnz _lbl__48 F1_000318 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEOFF_STATUS, SIREN2_NOTE, RELEASE movlw 143 rcall __hrsout1__ movlw 24 rcall __hrsout1__ movf release,W,0 rcall __hrsout1__ bra _lbl__47 _lbl__48 F1_000319 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN3_NOTE movlw 25 subwf noteUit,W,0 bnz _lbl__51 F1_000320 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEOFF_STATUS, SIREN3_NOTE, RELEASE movlw 143 rcall __hrsout1__ movlw 25 rcall __hrsout1__ movf release,W,0 rcall __hrsout1__ bra _lbl__47 _lbl__51 F1_000321 equ $ ; IN [BALSI_HUB.BAS] CASE BELL_NOTE movlw 28 subwf noteUit,W,0 bnz _lbl__53 F1_000322 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEOFF_STATUS, NOTEUIT, 0 movlw 143 rcall __hrsout1__ movf noteUit,W,0 rcall __hrsout1__ movlw 0 rcall __hrsout1__ bra _lbl__47 _lbl__53 F1_000323 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN_LOW_NOTE TO SIREN_HIGH_NOTE movlw 42 subwf noteUit,W,0 bnc _lbl__55 movlw 85 subwf noteUit,W,0 bc _lbl__55 F1_000324 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEOFF_STATUS, NOTEUIT, RELEASE movlw 143 rcall __hrsout1__ movf noteUit,W,0 rcall __hrsout1__ movf release,W,0 rcall __hrsout1__ bra _lbl__47 _lbl__55 F1_000325 equ $ ; IN [BALSI_HUB.BAS] CASE HORN1_NOTE movlw 96 subwf noteUit,W,0 bnz _lbl__57 F1_000326 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000327 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000328 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000329 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 bra _lbl__47 _lbl__57 F1_000330 equ $ ; IN [BALSI_HUB.BAS] CASE HORN2_NOTE movlw 97 subwf noteUit,W,0 bnz _lbl__59 F1_000331 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000332 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000333 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000334 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 bra _lbl__47 _lbl__59 F1_000335 equ $ ; IN [BALSI_HUB.BAS] CASE HORN3_NOTE, HORN4_NOTE movlw 98 subwf noteUit,W,0 bz _lbl__60 movlw 99 subwf noteUit,W,0 bnz _lbl__61 _lbl__60 F1_000336 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEOFF_STATUS, NOTEUIT, 0 movlw 143 rcall __hrsout1__ movf noteUit,W,0 rcall __hrsout1__ movlw 0 rcall __hrsout1__ bra _lbl__47 _lbl__61 F1_000337 equ $ ; IN [BALSI_HUB.BAS] CASE ORLITE_NOTE movlw 120 subwf noteUit,W,0 bnz _lbl__63 F1_000339 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000340 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 rcall __hpwm_ F1_000341 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000342 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 bra _lbl__47 _lbl__63 F1_000343 equ $ ; IN [BALSI_HUB.BAS] CASE BLUE_LITE_NOTE movlw 122 subwf noteUit,W,0 bnz _lbl__65 F1_000344 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 bra _lbl__47 _lbl__65 F1_000345 equ $ ; IN [BALSI_HUB.BAS] CASE ORLEFT_NOTE movlw 123 subwf noteUit,W,0 bnz _lbl__67 F1_000346 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000347 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000348 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000349 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[5] setf TimVals#5HHH,0 setf TimVals#5HH,0 setf TimVals#5H,0 setf TimVals#5,0 bra _lbl__47 _lbl__67 F1_000350 equ $ ; IN [BALSI_HUB.BAS] CASE ORRIGHT_NOTE movlw 124 subwf noteUit,W,0 bnz _lbl__69 F1_000351 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000352 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000353 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000354 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[6] setf TimVals#6HHH,0 setf TimVals#6HH,0 setf TimVals#6H,0 setf TimVals#6,0 F1_000355 equ $ ; IN [BALSI_HUB.BAS] CASE ELSE bra _lbl__71 _lbl__69 F1_000356 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000357 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__71 _lbl__47 F1_000358 equ $ ; IN [BALSI_HUB.BAS] SET NOTEUIT setf noteUit,0 F1_000359 equ $ ; IN [BALSI_HUB.BAS] GOTO RESORT goto resort F1_000360 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__46 F1_000361 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _lbl__39 _lbl__43 F1_000362 equ $ ; IN [BALSI_HUB.BAS] CASE NOTEON_STATUS movlw 159 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__73 F1_000363 equ $ ; IN [BALSI_HUB.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _lbl__75 F1_000364 equ $ ; IN [BALSI_HUB.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan bra _lbl__76 _lbl__75 F1_000365 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000366 equ $ ; IN [BALSI_HUB.BAS] VELO = BYTEIN movff Bytein,velo F1_000367 equ $ ; IN [BALSI_HUB.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _lbl__78 F1_000368 equ $ ; IN [BALSI_HUB.BAS] SELECT NOTEAAN F1_000369 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN2_NOTE movlw 24 subwf noteAan,W,0 bnz _lbl__80 F1_000370 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, SIREN2_NOTE, 0 movlw 159 call __hrsout1__ movlw 24 call __hrsout1__ movlw 0 call __hrsout1__ bra _lbl__79 _lbl__80 F1_000371 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN3_NOTE movlw 25 subwf noteAan,W,0 bnz _lbl__83 F1_000372 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, SIREN3_NOTE, 0 movlw 159 call __hrsout1__ movlw 25 call __hrsout1__ movlw 0 call __hrsout1__ bra _lbl__79 _lbl__83 F1_000373 equ $ ; IN [BALSI_HUB.BAS] CASE BELL_NOTE movlw 28 subwf noteAan,W,0 bnz _lbl__85 F1_000374 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, 0 movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movlw 0 call __hrsout1__ bra _lbl__79 _lbl__85 F1_000375 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN_LOW_NOTE TO SIREN_HIGH_NOTE movlw 42 subwf noteAan,W,0 bnc _lbl__87 movlw 85 subwf noteAan,W,0 bc _lbl__87 F1_000376 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, 0 movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movlw 0 call __hrsout1__ bra _lbl__79 _lbl__87 F1_000377 equ $ ; IN [BALSI_HUB.BAS] CASE HORN1_NOTE movlw 96 subwf noteAan,W,0 bnz _lbl__89 F1_000378 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000379 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000380 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000381 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 bra _lbl__79 _lbl__89 F1_000382 equ $ ; IN [BALSI_HUB.BAS] CASE HORN2_NOTE movlw 97 subwf noteAan,W,0 bnz _lbl__91 F1_000383 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000384 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000385 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000386 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 bra _lbl__79 _lbl__91 F1_000387 equ $ ; IN [BALSI_HUB.BAS] CASE HORN3_NOTE, HORN4_NOTE movlw 98 subwf noteAan,W,0 bz _lbl__92 movlw 99 subwf noteAan,W,0 bnz _lbl__93 _lbl__92 F1_000388 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, 0 movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movlw 0 call __hrsout1__ bra _lbl__79 _lbl__93 F1_000389 equ $ ; IN [BALSI_HUB.BAS] CASE ORLITE_NOTE movlw 120 subwf noteAan,W,0 bnz _lbl__95 F1_000390 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000392 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000393 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000394 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 bra _lbl__79 _lbl__95 F1_000395 equ $ ; IN [BALSI_HUB.BAS] CASE BLUE_LITE_NOTE movlw 122 subwf noteAan,W,0 bnz _lbl__97 F1_000396 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 bra _lbl__79 _lbl__97 F1_000397 equ $ ; IN [BALSI_HUB.BAS] CASE ORLEFT_NOTE movlw 123 subwf noteAan,W,0 bnz _lbl__99 F1_000398 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000399 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000400 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000401 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[5] setf TimVals#5HHH,0 setf TimVals#5HH,0 setf TimVals#5H,0 setf TimVals#5,0 bra _lbl__79 _lbl__99 F1_000402 equ $ ; IN [BALSI_HUB.BAS] CASE ORRIGHT_NOTE movlw 124 subwf noteAan,W,0 bnz _lbl__101 F1_000403 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000404 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000405 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000406 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[6] setf TimVals#6HHH,0 setf TimVals#6HH,0 setf TimVals#6H,0 setf TimVals#6,0 F1_000407 equ $ ; IN [BALSI_HUB.BAS] CASE ELSE bra _lbl__103 _lbl__101 F1_000408 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000409 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__103 _lbl__79 F1_000410 equ $ ; IN [BALSI_HUB.BAS] GOTO RESORT bra resort bra _lbl__104 _lbl__78 F1_000411 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000412 equ $ ; IN [BALSI_HUB.BAS] IF POWERON = 1 THEN btfss CC66,0,0 bra _lbl__106 F1_000413 equ $ ; IN [BALSI_HUB.BAS] SELECT NOTEAAN F1_000414 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN2_NOTE movlw 24 subwf noteAan,W,0 bnz _lbl__108 F1_000415 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, SIREN2_NOTE, VELO movlw 159 call __hrsout1__ movlw 24 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__107 _lbl__108 F1_000416 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN3_NOTE movlw 25 subwf noteAan,W,0 bnz _lbl__111 F1_000417 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, SIREN3_NOTE, VELO movlw 159 call __hrsout1__ movlw 25 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__107 _lbl__111 F1_000418 equ $ ; IN [BALSI_HUB.BAS] CASE BELL_NOTE movlw 28 subwf noteAan,W,0 bnz _lbl__113 F1_000419 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, VELO movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__107 _lbl__113 F1_000420 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN_LOW_NOTE TO SIREN_HIGH_NOTE movlw 42 subwf noteAan,W,0 bnc _lbl__115 movlw 85 subwf noteAan,W,0 bc _lbl__115 F1_000421 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, VELO movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__107 _lbl__115 F1_000422 equ $ ; IN [BALSI_HUB.BAS] CASE HORN1_NOTE movlw 96 subwf noteAan,W,0 bnz _lbl__117 F1_000423 equ $ ; IN [BALSI_HUB.BAS] PRES0 = VELO movff velo,pres0 F1_000424 equ $ ; IN [BALSI_HUB.BAS] SET PORTA.5 bsf LATA,5,0 F1_000425 equ $ ; IN [BALSI_HUB.BAS] IF PRES0 < 127 THEN movlw 127 subwf pres0,W,0 bc _lbl__119 F1_000426 equ $ ; IN [BALSI_HUB.BAS] SET NOTES.0 bsf notes,0,0 F1_000427 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[0] = TIME + DUR5[PRES0] lfsr 0,Dur5 bcf STATUS,0,0 rlcf pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#0HHH movff PBS_VAR0HH,TimVals#0HH movff PBS_VAR0H,TimVals#0H movff PBS_VAR0,TimVals#0 F1_000428 equ $ ; IN [BALSI_HUB.BAS] SET VELFLAGS.0 bsf Velflags,0,0 bra _lbl__120 _lbl__119 F1_000429 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000430 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000431 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000432 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 F1_000433 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__120 bra _lbl__107 _lbl__117 F1_000434 equ $ ; IN [BALSI_HUB.BAS] CASE HORN2_NOTE movlw 97 subwf noteAan,W,0 bnz _lbl__122 F1_000435 equ $ ; IN [BALSI_HUB.BAS] PRES1 = VELO movff velo,pres1 F1_000436 equ $ ; IN [BALSI_HUB.BAS] SET PORTC.0 bsf LATC,0,0 F1_000437 equ $ ; IN [BALSI_HUB.BAS] IF PRES1 < 127 THEN movlw 127 subwf pres1,W,0 bc _lbl__124 F1_000438 equ $ ; IN [BALSI_HUB.BAS] SET NOTES.1 bsf notes,1,0 F1_000439 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[1] = TIME + DUR5[PRES1] lfsr 0,Dur5 bcf STATUS,0,0 rlcf pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#1HHH movff PBS_VAR0HH,TimVals#1HH movff PBS_VAR0H,TimVals#1H movff PBS_VAR0,TimVals#1 F1_000440 equ $ ; IN [BALSI_HUB.BAS] SET VELFLAGS.1 bsf Velflags,1,0 bra _lbl__125 _lbl__124 F1_000441 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000442 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000443 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000444 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 F1_000445 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__125 bra _lbl__107 _lbl__122 F1_000446 equ $ ; IN [BALSI_HUB.BAS] CASE HORN3_NOTE, HORN4_NOTE movlw 98 subwf noteAan,W,0 bz _lbl__126 movlw 99 subwf noteAan,W,0 bnz _lbl__127 _lbl__126 F1_000447 equ $ ; IN [BALSI_HUB.BAS] HRSOUT NOTEON_STATUS, NOTEAAN, VELO movlw 159 call __hrsout1__ movf noteAan,W,0 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__107 _lbl__127 F1_000448 equ $ ; IN [BALSI_HUB.BAS] CASE ORLITE_NOTE movlw 120 subwf noteAan,W,0 bnz _lbl__129 F1_000450 equ $ ; IN [BALSI_HUB.BAS] SET PORTC.1 bsf LATC,1,0 F1_000451 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, MOTSPEED, FPWM movff MotSpeed,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000452 equ $ ; IN [BALSI_HUB.BAS] PRES3 = VELO movff velo,pres3 F1_000453 equ $ ; IN [BALSI_HUB.BAS] IF PRES3 < 127 THEN movlw 127 subwf pres3,W,0 bc _lbl__131 F1_000454 equ $ ; IN [BALSI_HUB.BAS] SET NOTES.3 bsf notes,3,0 F1_000455 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[3] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#3HHH movff PBS_VAR0HH,TimVals#3HH movff PBS_VAR0H,TimVals#3H movff PBS_VAR0,TimVals#3 F1_000456 equ $ ; IN [BALSI_HUB.BAS] SET VELFLAGS.3 bsf Velflags,3,0 bra _lbl__132 _lbl__131 F1_000457 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000458 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000459 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000460 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 F1_000461 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__132 bra _lbl__107 _lbl__129 F1_000462 equ $ ; IN [BALSI_HUB.BAS] CASE BLUE_LITE_NOTE movlw 122 subwf noteAan,W,0 bnz _lbl__134 F1_000463 equ $ ; IN [BALSI_HUB.BAS] SET PORTC.3 bsf LATC,3,0 bra _lbl__107 _lbl__134 F1_000464 equ $ ; IN [BALSI_HUB.BAS] CASE ORLEFT_NOTE movlw 123 subwf noteAan,W,0 bnz _lbl__136 F1_000465 equ $ ; IN [BALSI_HUB.BAS] PRES5 = VELO movff velo,pres5 F1_000466 equ $ ; IN [BALSI_HUB.BAS] SET PORTC.4 bsf LATC,4,0 F1_000467 equ $ ; IN [BALSI_HUB.BAS] IF PRES5 < 127 THEN movlw 127 subwf pres5,W,0 bc _lbl__138 F1_000468 equ $ ; IN [BALSI_HUB.BAS] SET NOTES.5 bsf notes,5,0 F1_000469 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[5] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#5HHH movff PBS_VAR0HH,TimVals#5HH movff PBS_VAR0H,TimVals#5H movff PBS_VAR0,TimVals#5 F1_000470 equ $ ; IN [BALSI_HUB.BAS] SET VELFLAGS.5 bsf Velflags,5,0 bra _lbl__139 _lbl__138 F1_000471 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000472 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000473 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000474 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[5] setf TimVals#5HHH,0 setf TimVals#5HH,0 setf TimVals#5H,0 setf TimVals#5,0 F1_000475 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__139 bra _lbl__107 _lbl__136 F1_000476 equ $ ; IN [BALSI_HUB.BAS] CASE ORRIGHT_NOTE movlw 124 subwf noteAan,W,0 bnz _lbl__141 F1_000477 equ $ ; IN [BALSI_HUB.BAS] PRES6 = VELO movff velo,pres6 F1_000478 equ $ ; IN [BALSI_HUB.BAS] SET PORTC.5 bsf LATC,5,0 F1_000479 equ $ ; IN [BALSI_HUB.BAS] IF PRES6 < 127 THEN movlw 127 subwf pres6,W,0 bc _lbl__143 F1_000480 equ $ ; IN [BALSI_HUB.BAS] SET NOTES.6 bsf notes,6,0 F1_000481 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[6] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#6HHH movff PBS_VAR0HH,TimVals#6HH movff PBS_VAR0H,TimVals#6H movff PBS_VAR0,TimVals#6 F1_000482 equ $ ; IN [BALSI_HUB.BAS] SET VELFLAGS.6 bsf Velflags,6,0 bra _lbl__144 _lbl__143 F1_000483 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000484 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000485 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000486 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[6] setf TimVals#6HHH,0 setf TimVals#6HH,0 setf TimVals#6H,0 setf TimVals#6,0 F1_000487 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__144 F1_000488 equ $ ; IN [BALSI_HUB.BAS] CASE ELSE bra _lbl__146 _lbl__141 F1_000489 equ $ ; IN [BALSI_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000490 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000491 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__146 _lbl__107 F1_000492 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__106 F1_000493 equ $ ; IN [BALSI_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000494 equ $ ; IN [BALSI_HUB.BAS] GOTO RESORT bra resort F1_000495 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__104 F1_000496 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__76 F1_000497 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__73 F1_000498 equ $ ; IN [BALSI_HUB.BAS] CASE KEYPRES_STATUS movlw 175 subwf statusbyte,W,0 bnz _lbl__148 F1_000499 equ $ ; IN [BALSI_HUB.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _lbl__150 F1_000500 equ $ ; IN [BALSI_HUB.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _lbl__151 _lbl__150 F1_000501 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000502 equ $ ; IN [BALSI_HUB.BAS] PRES = BYTEIN movff Bytein,pres F1_000503 equ $ ; IN [BALSI_HUB.BAS] GOSUB KEYPRES rcall KeyPres F1_000504 equ $ ; IN [BALSI_HUB.BAS] GOTO RESORT bra resort F1_000505 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__151 F1_000506 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__148 F1_000507 equ $ ; IN [BALSI_HUB.BAS] CASE CONTROL_STATUS movlw 191 subwf statusbyte,W,0 bnz _lbl__153 F1_000508 equ $ ; IN [BALSI_HUB.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _lbl__155 F1_000509 equ $ ; IN [BALSI_HUB.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _lbl__156 _lbl__155 F1_000510 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000511 equ $ ; IN [BALSI_HUB.BAS] VALUE = BYTEIN movff Bytein,value F1_000512 equ $ ; IN [BALSI_HUB.BAS] GOSUB CONTROLLER rcall Controller F1_000513 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__156 F1_000514 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__153 F1_000515 equ $ ; IN [BALSI_HUB.BAS] CASE PROGCHANGE_STATUS movlw 207 subwf statusbyte,W,0 bnz _lbl__158 F1_000516 equ $ ; IN [BALSI_HUB.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _lbl__160 F1_000517 equ $ ; IN [BALSI_HUB.BAS] PROG = BYTEIN movff Bytein,prog F1_000521 equ $ ; IN [BALSI_HUB.BAS] SET PROG setf prog,0 F1_000522 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__160 F1_000523 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__158 F1_000524 equ $ ; IN [BALSI_HUB.BAS] CASE AFTERTOUCH_STATUS movlw 223 subwf statusbyte,W,0 bnz _lbl__162 F1_000525 equ $ ; IN [BALSI_HUB.BAS] IF AFT = 255 THEN incf aft,W,0 bnz _lbl__164 F1_000526 equ $ ; IN [BALSI_HUB.BAS] AFT = BYTEIN movff Bytein,aft F1_000527 equ $ ; IN [BALSI_HUB.BAS] GOSUB AFTERTOUCH rcall Aftertouch F1_000528 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__164 F1_000529 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__162 F1_000530 equ $ ; IN [BALSI_HUB.BAS] CASE PITCHBEND_STATUS movlw 239 subwf statusbyte,W,0 bnz _lbl__166 F1_000531 equ $ ; IN [BALSI_HUB.BAS] IF PBLSB = 255 THEN incf pblsb,W,0 bnz _lbl__168 F1_000532 equ $ ; IN [BALSI_HUB.BAS] PBLSB = BYTEIN movff Bytein,pblsb bra _lbl__169 _lbl__168 F1_000533 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000534 equ $ ; IN [BALSI_HUB.BAS] PBMSB = BYTEIN movff Bytein,pbmsb F1_000535 equ $ ; IN [BALSI_HUB.BAS] GOSUB PITCHBEND rcall Pitchbend F1_000536 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__169 F1_000537 equ $ ; IN [BALSI_HUB.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000538 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__166 _lbl__39 F1_000539 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__38 resort F1_000542 equ $ ; IN [BALSI_HUB.BAS] GOSUB SORTTIMERS rcall SortTimers Check_Timers F1_000545 equ $ ; IN [BALSI_HUB.BAS] IF IDX < 7 THEN movlw 7 subwf idx,W,0 btfsc STATUS,0,0 bra _lbl__171 F1_000546 equ $ ; IN [BALSI_HUB.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__173 F1_000548 equ $ ; IN [BALSI_HUB.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000550 equ $ ; IN [BALSI_HUB.BAS] SELECT IDX F1_000551 equ $ ; IN [BALSI_HUB.BAS] CASE 0 movf idx,F,0 bnz _lbl__175 F1_000553 equ $ ; IN [BALSI_HUB.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _lbl__178 F1_000554 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000555 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 bra _lbl__179 _lbl__178 F1_000556 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000557 equ $ ; IN [BALSI_HUB.BAS] TOGGLE PORTA.5 btg PORTA,5,0 bcf TRISA,5,0 F1_000558 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[0] = TIME + DUR5[PRES0] lfsr 0,Dur5 bcf STATUS,0,0 rlcf pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#0HHH movff PBS_VAR0HH,TimVals#0HH movff PBS_VAR0H,TimVals#0H movff PBS_VAR0,TimVals#0 F1_000559 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__179 bra _lbl__174 _lbl__175 F1_000560 equ $ ; IN [BALSI_HUB.BAS] CASE 1 movlw 1 subwf idx,W,0 bnz _lbl__181 F1_000561 equ $ ; IN [BALSI_HUB.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _lbl__183 F1_000562 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000563 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 bra _lbl__184 _lbl__183 F1_000564 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000565 equ $ ; IN [BALSI_HUB.BAS] TOGGLE PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F1_000566 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[1] = TIME + DUR5[PRES1] lfsr 0,Dur5 bcf STATUS,0,0 rlcf pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#1HHH movff PBS_VAR0HH,TimVals#1HH movff PBS_VAR0H,TimVals#1H movff PBS_VAR0,TimVals#1 F1_000567 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__184 bra _lbl__174 _lbl__181 F1_000568 equ $ ; IN [BALSI_HUB.BAS] CASE 2 movlw 2 subwf idx,W,0 bnz _lbl__186 F1_000571 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 bra _lbl__174 _lbl__186 F1_000576 equ $ ; IN [BALSI_HUB.BAS] CASE 3 movlw 3 subwf idx,W,0 bnz _lbl__188 F1_000577 equ $ ; IN [BALSI_HUB.BAS] IF NOTES.3 = 0 THEN btfsc notes,3,0 bra _lbl__190 F1_000578 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000579 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 bra _lbl__191 _lbl__190 F1_000580 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000581 equ $ ; IN [BALSI_HUB.BAS] TOGGLE PORTC.1 btg PORTC,1,0 bcf TRISC,1,0 F1_000582 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[3] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#3HHH movff PBS_VAR0HH,TimVals#3HH movff PBS_VAR0H,TimVals#3H movff PBS_VAR0,TimVals#3 F1_000583 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__191 bra _lbl__174 _lbl__188 F1_000584 equ $ ; IN [BALSI_HUB.BAS] CASE 4 movlw 4 subwf idx,W,0 bnz _lbl__193 F1_000587 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[4] setf TimVals#4HHH,0 setf TimVals#4HH,0 setf TimVals#4H,0 setf TimVals#4,0 bra _lbl__174 _lbl__193 F1_000592 equ $ ; IN [BALSI_HUB.BAS] CASE 5 movlw 5 subwf idx,W,0 bnz _lbl__195 F1_000593 equ $ ; IN [BALSI_HUB.BAS] IF NOTES.5 = 0 THEN btfsc notes,5,0 bra _lbl__197 F1_000594 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000595 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[5] setf TimVals#5HHH,0 setf TimVals#5HH,0 setf TimVals#5H,0 setf TimVals#5,0 bra _lbl__198 _lbl__197 F1_000596 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000597 equ $ ; IN [BALSI_HUB.BAS] TOGGLE PORTC.4 btg PORTC,4,0 bcf TRISC,4,0 F1_000598 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[5] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#5HHH movff PBS_VAR0HH,TimVals#5HH movff PBS_VAR0H,TimVals#5H movff PBS_VAR0,TimVals#5 F1_000599 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__198 bra _lbl__174 _lbl__195 F1_000600 equ $ ; IN [BALSI_HUB.BAS] CASE 6 movlw 6 subwf idx,W,0 bnz _lbl__200 F1_000601 equ $ ; IN [BALSI_HUB.BAS] IF NOTES.6 = 0 THEN btfsc notes,6,0 bra _lbl__202 F1_000602 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000603 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS[6] setf TimVals#6HHH,0 setf TimVals#6HH,0 setf TimVals#6H,0 setf TimVals#6,0 bra _lbl__203 _lbl__202 F1_000604 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000605 equ $ ; IN [BALSI_HUB.BAS] TOGGLE PORTC.5 btg PORTC,5,0 bcf TRISC,5,0 F1_000606 equ $ ; IN [BALSI_HUB.BAS] TIMVALS[6] = TIME + 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,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf time,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc timeH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0HHH,TimVals#6HHH movff PBS_VAR0HH,TimVals#6HH movff PBS_VAR0H,TimVals#6H movff PBS_VAR0,TimVals#6 F1_000607 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__203 F1_000611 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__200 _lbl__174 F1_000612 equ $ ; IN [BALSI_HUB.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000613 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__173 F1_000615 equ $ ; IN [BALSI_HUB.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _lbl__205 F1_000616 equ $ ; IN [BALSI_HUB.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_000617 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES clrf notes,0 F1_000618 equ $ ; IN [BALSI_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000619 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__205 bra _lbl__206 _lbl__171 F1_000620 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000622 equ $ ; IN [BALSI_HUB.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _lbl__208 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _lbl__208 F1_000623 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__206 F1_000626 equ $ ; IN [BALSI_HUB.BAS] BTG PORTB.0 btg PORTB,0 _lbl__13 F1_000630 equ $ ; IN [BALSI_HUB.BAS] LOOP goto _lbl__11 _lbl__12 SortTimers F1_000636 equ $ ; IN [BALSI_HUB.BAS] SET IDX setf idx,0 F1_000637 equ $ ; IN [BALSI_HUB.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000638 equ $ ; IN [BALSI_HUB.BAS] FOR I = 0 TO 6 clrf _I,0 _frlb__209 movlw 7 subwf _I,W,0 bc _nxlb__210 F1_000639 equ $ ; IN [BALSI_HUB.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 64 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,PBS_VAR0 movff PREINC0,PBS_VAR0H movff PREINC0,PBS_VAR0HH movff PREINC0,PBS_VAR0HHH movf Nxt,W,0 subwf PBS_VAR0,W,0 movf NxtH,W,0 subwfb PBS_VAR0H,W,0 movf NxtHH,W,0 subwfb PBS_VAR0HH,W,0 movf NxtHHH,W,0 subwfb PBS_VAR0HHH,W,0 bc _lbl__213 F1_000640 equ $ ; IN [BALSI_HUB.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 64 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000641 equ $ ; IN [BALSI_HUB.BAS] IDX = I movff _I,idx F1_000642 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__213 _ctlb__211 F1_000643 equ $ ; IN [BALSI_HUB.BAS] NEXT I incf _I,F,0 bnc _frlb__209 _nxlb__210 F1_000644 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 KeyPres F1_000648 equ $ ; IN [BALSI_HUB.BAS] SELECT NOTEPRES F1_000651 equ $ ; IN [BALSI_HUB.BAS] CASE HORN1_NOTE movlw 96 subwf notePres,W,0 bnz _lbl__215 F1_000653 equ $ ; IN [BALSI_HUB.BAS] PRES0 = PRES movff pres,pres0 bra _lbl__214 _lbl__215 F1_000654 equ $ ; IN [BALSI_HUB.BAS] CASE HORN2_NOTE movlw 97 subwf notePres,W,0 bnz _lbl__218 F1_000655 equ $ ; IN [BALSI_HUB.BAS] PRES1 = PRES movff pres,pres1 bra _lbl__214 _lbl__218 F1_000656 equ $ ; IN [BALSI_HUB.BAS] CASE HORN3_NOTE, HORN4_NOTE movlw 98 subwf notePres,W,0 bz _lbl__219 movlw 99 subwf notePres,W,0 bnz _lbl__220 _lbl__219 F1_000657 equ $ ; IN [BALSI_HUB.BAS] HRSOUT KEYPRES_STATUS, NOTEPRES, PRES movlw 175 call __hrsout1__ movf notePres,W,0 call __hrsout1__ movf pres,W,0 call __hrsout1__ bra _lbl__214 _lbl__220 F1_000658 equ $ ; IN [BALSI_HUB.BAS] CASE ORLITE_NOTE movlw 120 subwf notePres,W,0 bnz _lbl__222 F1_000659 equ $ ; IN [BALSI_HUB.BAS] PRES3 = PRES movff pres,pres3 bra _lbl__214 _lbl__222 F1_000660 equ $ ; IN [BALSI_HUB.BAS] CASE ORLEFT_NOTE movlw 123 subwf notePres,W,0 bnz _lbl__224 F1_000661 equ $ ; IN [BALSI_HUB.BAS] PRES5 = PRES movff pres,pres5 bra _lbl__214 _lbl__224 F1_000662 equ $ ; IN [BALSI_HUB.BAS] CASE ORRIGHT_NOTE movlw 124 subwf notePres,W,0 bnz _lbl__226 F1_000663 equ $ ; IN [BALSI_HUB.BAS] PRES6 = PRES movff pres,pres6 F1_000664 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__226 _lbl__214 F1_000666 equ $ ; IN [BALSI_HUB.BAS] SET NOTEPRES setf notePres,0 F1_000667 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 ProgChange F1_000671 equ $ ; IN [BALSI_HUB.BAS] SET PROG setf prog,0 F1_000672 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 Pitchbend F1_000675 equ $ ; IN [BALSI_HUB.BAS] SET PBLSB setf pblsb,0 F1_000676 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 Aftertouch F1_000681 equ $ ; IN [BALSI_HUB.BAS] SET AFT setf aft,0 F1_000682 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 Controller F1_000685 equ $ ; IN [BALSI_HUB.BAS] SELECT CTRL F1_000686 equ $ ; IN [BALSI_HUB.BAS] CASE 7 movlw 7 subwf Ctrl,W,0 bnz _lbl__228 F1_000687 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 7, VALUE movlw 191 call __hrsout1__ movlw 7 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__228 F1_000688 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN2_NOTE movlw 24 subwf Ctrl,W,0 bnz _lbl__231 F1_000689 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 24, VALUE movlw 191 call __hrsout1__ movlw 24 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__231 F1_000690 equ $ ; IN [BALSI_HUB.BAS] CASE SIREN3_NOTE movlw 25 subwf Ctrl,W,0 bnz _lbl__233 F1_000691 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 25, VALUE movlw 191 call __hrsout1__ movlw 25 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__233 F1_000692 equ $ ; IN [BALSI_HUB.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 bnz _lbl__235 F1_000696 equ $ ; IN [BALSI_HUB.BAS] PRES0 = VALUE movff value,pres0 F1_000697 equ $ ; IN [BALSI_HUB.BAS] PRES1 = VALUE movff value,pres1 F1_000698 equ $ ; IN [BALSI_HUB.BAS] PRES3 = VALUE movff value,pres3 F1_000699 equ $ ; IN [BALSI_HUB.BAS] PRES5 = VALUE movff value,pres5 F1_000700 equ $ ; IN [BALSI_HUB.BAS] PRES6 = VALUE movff value,pres6 F1_000701 equ $ ; IN [BALSI_HUB.BAS] PRES7 = VALUE movff value,pres7 bra _lbl__227 _lbl__235 F1_000702 equ $ ; IN [BALSI_HUB.BAS] CASE 48 movlw 48 subwf Ctrl,W,0 bnz _lbl__237 F1_000703 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 48, VALUE movlw 191 call __hrsout1__ movlw 48 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__237 F1_000704 equ $ ; IN [BALSI_HUB.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__239 F1_000707 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 66, VALUE movlw 191 call __hrsout1__ movlw 66 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000708 equ $ ; IN [BALSI_HUB.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _lbl__241 F1_000709 equ $ ; IN [BALSI_HUB.BAS] CLEAR POWERON bcf CC66,0,0 F1_000710 equ $ ; IN [BALSI_HUB.BAS] GOSUB POWERDOWN rcall PowerDown bra _lbl__242 _lbl__241 F1_000711 equ $ ; IN [BALSI_HUB.BAS] ELSE F1_000712 equ $ ; IN [BALSI_HUB.BAS] HIGH PORTA.4 bcf TRISA,4,0 bsf LATA,4,0 F1_000713 equ $ ; IN [BALSI_HUB.BAS] SET PORTB.2 bsf LATB,2,0 F1_000714 equ $ ; IN [BALSI_HUB.BAS] SET POWERON bsf CC66,0,0 F1_000715 equ $ ; IN [BALSI_HUB.BAS] ENDIF _lbl__242 bra _lbl__227 _lbl__239 F1_000716 equ $ ; IN [BALSI_HUB.BAS] CASE 67 movlw 67 subwf Ctrl,W,0 bnz _lbl__244 F1_000717 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 67, VALUE movlw 191 call __hrsout1__ movlw 67 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__244 F1_000718 equ $ ; IN [BALSI_HUB.BAS] CASE 68 movlw 68 subwf Ctrl,W,0 bnz _lbl__246 F1_000719 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 68, VALUE movlw 191 call __hrsout1__ movlw 68 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__227 _lbl__246 F1_000720 equ $ ; IN [BALSI_HUB.BAS] CASE 120 movlw 120 subwf Ctrl,W,0 bnz _lbl__248 F1_000721 equ $ ; IN [BALSI_HUB.BAS] MOTSPEED = VALUE + VALUE movf value,W,0 addwf value,W,0 movwf MotSpeed,0 F1_000722 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, MOTSPEED, FPWM movff MotSpeed,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ bra _lbl__227 _lbl__248 F1_000723 equ $ ; IN [BALSI_HUB.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__250 F1_000725 equ $ ; IN [BALSI_HUB.BAS] HRSOUT CONTROL_STATUS, 123, 0 movlw 191 call __hrsout1__ movlw 123 call __hrsout1__ movlw 0 call __hrsout1__ F1_000726 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES clrf notes,0 F1_000727 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000728 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000729 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000731 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000732 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000733 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000734 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000735 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000736 equ $ ; IN [BALSI_HUB.BAS] ENDSELECT _lbl__250 _lbl__227 F1_000737 equ $ ; IN [BALSI_HUB.BAS] SET CTRL setf Ctrl,0 F1_000738 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 PowerDown F1_000742 equ $ ; IN [BALSI_HUB.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000743 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000744 equ $ ; IN [BALSI_HUB.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000745 equ $ ; IN [BALSI_HUB.BAS] CLEAR NOTES clrf notes,0 F1_000746 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES0 clrf pres0,0 F1_000747 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES1 clrf pres1,0 F1_000748 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES3 clrf pres3,0 F1_000749 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES5 clrf pres5,0 F1_000750 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES6 clrf pres6,0 F1_000751 equ $ ; IN [BALSI_HUB.BAS] CLEAR PRES7 clrf pres7,0 F1_000752 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000753 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000755 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000756 equ $ ; IN [BALSI_HUB.BAS] HPWM 1, 0, FPWM clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000757 equ $ ; IN [BALSI_HUB.BAS] MOTSPEED = 127 movlw 127 movwf MotSpeed,0 F1_000758 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000759 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000760 equ $ ; IN [BALSI_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000761 equ $ ; IN [BALSI_HUB.BAS] CLEAR CC66 clrf CC66,0 F1_000762 equ $ ; IN [BALSI_HUB.BAS] RETURN return 0 Dur_Lookup F1_000766 equ $ ; IN [BALSI_HUB.BAS] SET DUR[0] movlb 2 setf Dur#0H,1 setf Dur#0,1 F1_000771 equ $ ; IN [BALSI_HUB.BAS] DUR[1] = 23674 movlw 92 movwf Dur#1H,1 movlw 122 movwf Dur#1,1 F1_000772 equ $ ; IN [BALSI_HUB.BAS] DUR[2] = 22917 movlw 89 movwf Dur#2H,1 movlw 133 movwf Dur#2,1 F1_000773 equ $ ; IN [BALSI_HUB.BAS] DUR[3] = 22548 movlw 88 movwf Dur#3H,1 movlw 20 movwf Dur#3,1 F1_000774 equ $ ; IN [BALSI_HUB.BAS] DUR[4] = 22185 movlw 86 movwf Dur#4H,1 movlw 169 movwf Dur#4,1 F1_000775 equ $ ; IN [BALSI_HUB.BAS] DUR[5] = 21827 movlw 85 movwf Dur#5H,1 movlw 67 movwf Dur#5,1 F1_000776 equ $ ; IN [BALSI_HUB.BAS] DUR[6] = 21475 movlw 83 movwf Dur#6H,1 movlw 227 movwf Dur#6,1 F1_000777 equ $ ; IN [BALSI_HUB.BAS] DUR[7] = 21129 movlw 82 movwf Dur#7H,1 movlw 137 movwf Dur#7,1 F1_000778 equ $ ; IN [BALSI_HUB.BAS] DUR[8] = 20789 movlw 81 movwf Dur#8H,1 movlw 53 movwf Dur#8,1 F1_000779 equ $ ; IN [BALSI_HUB.BAS] DUR[9] = 20454 movlw 79 movwf Dur#9H,1 movlw 230 movwf Dur#9,1 F1_000780 equ $ ; IN [BALSI_HUB.BAS] DUR[10] = 20124 movlw 78 movwf Dur#10H,1 movlw 156 movwf Dur#10,1 F1_000781 equ $ ; IN [BALSI_HUB.BAS] DUR[11] = 19800 movlw 77 movwf Dur#11H,1 movlw 88 movwf Dur#11,1 F1_000782 equ $ ; IN [BALSI_HUB.BAS] DUR[12] = 19481 movlw 76 movwf Dur#12H,1 movlw 25 movwf Dur#12,1 F1_000783 equ $ ; IN [BALSI_HUB.BAS] DUR[13] = 19167 movlw 74 movwf Dur#13H,1 movlw 223 movwf Dur#13,1 F1_000784 equ $ ; IN [BALSI_HUB.BAS] DUR[14] = 18858 movlw 73 movwf Dur#14H,1 movlw 170 movwf Dur#14,1 F1_000785 equ $ ; IN [BALSI_HUB.BAS] DUR[15] = 18554 movlw 72 movwf Dur#15H,1 movlw 122 movwf Dur#15,1 F1_000786 equ $ ; IN [BALSI_HUB.BAS] DUR[16] = 18255 movlw 71 movwf Dur#16H,1 movlw 79 movwf Dur#16,1 F1_000787 equ $ ; IN [BALSI_HUB.BAS] DUR[17] = 17961 movlw 70 movwf Dur#17H,1 movlw 41 movwf Dur#17,1 F1_000788 equ $ ; IN [BALSI_HUB.BAS] DUR[18] = 17672 movlw 69 movwf Dur#18H,1 movlw 8 movwf Dur#18,1 F1_000789 equ $ ; IN [BALSI_HUB.BAS] DUR[19] = 17387 movlw 67 movwf Dur#19H,1 movlw 235 movwf Dur#19,1 F1_000790 equ $ ; IN [BALSI_HUB.BAS] DUR[20] = 17107 movlw 66 movwf Dur#20H,1 movlw 211 movwf Dur#20,1 F1_000791 equ $ ; IN [BALSI_HUB.BAS] DUR[21] = 16831 movlw 65 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_000792 equ $ ; IN [BALSI_HUB.BAS] DUR[22] = 16560 movlw 64 movwf Dur#22H,1 movlw 176 movwf Dur#22,1 F1_000793 equ $ ; IN [BALSI_HUB.BAS] DUR[23] = 16293 movlw 63 movwf Dur#23H,1 movlw 165 movwf Dur#23,1 F1_000794 equ $ ; IN [BALSI_HUB.BAS] DUR[24] = 16030 movlw 62 movwf Dur#24H,1 movlw 158 movwf Dur#24,1 F1_000795 equ $ ; IN [BALSI_HUB.BAS] DUR[25] = 15772 movlw 61 movwf Dur#25H,1 movlw 156 movwf Dur#25,1 F1_000796 equ $ ; IN [BALSI_HUB.BAS] DUR[26] = 15518 movlw 60 movwf Dur#26H,1 movlw 158 movwf Dur#26,1 F1_000797 equ $ ; IN [BALSI_HUB.BAS] DUR[27] = 15268 movlw 59 movwf Dur#27H,1 movlw 164 movwf Dur#27,1 F1_000798 equ $ ; IN [BALSI_HUB.BAS] DUR[28] = 15022 movlw 58 movwf Dur#28H,1 movlw 174 movwf Dur#28,1 F1_000799 equ $ ; IN [BALSI_HUB.BAS] DUR[29] = 14780 movlw 57 movwf Dur#29H,1 movlw 188 movwf Dur#29,1 F1_000800 equ $ ; IN [BALSI_HUB.BAS] DUR[30] = 14542 movlw 56 movwf Dur#30H,1 movlw 206 movwf Dur#30,1 F1_000801 equ $ ; IN [BALSI_HUB.BAS] DUR[31] = 14307 movlw 55 movwf Dur#31H,1 movlw 227 movwf Dur#31,1 F1_000802 equ $ ; IN [BALSI_HUB.BAS] DUR[32] = 14077 movlw 54 movwf Dur#32H,1 movlw 253 movwf Dur#32,1 F1_000803 equ $ ; IN [BALSI_HUB.BAS] DUR[33] = 13850 movlw 54 movwf Dur#33H,1 movlw 26 movwf Dur#33,1 F1_000804 equ $ ; IN [BALSI_HUB.BAS] DUR[34] = 13627 movlw 53 movwf Dur#34H,1 movlw 59 movwf Dur#34,1 F1_000805 equ $ ; IN [BALSI_HUB.BAS] DUR[35] = 13407 movlw 52 movwf Dur#35H,1 movlw 95 movwf Dur#35,1 F1_000806 equ $ ; IN [BALSI_HUB.BAS] DUR[36] = 13191 movlw 51 movwf Dur#36H,1 movlw 135 movwf Dur#36,1 F1_000807 equ $ ; IN [BALSI_HUB.BAS] DUR[37] = 12978 movlw 50 movwf Dur#37H,1 movlw 178 movwf Dur#37,1 F1_000808 equ $ ; IN [BALSI_HUB.BAS] DUR[38] = 12769 movlw 49 movwf Dur#38H,1 movlw 225 movwf Dur#38,1 F1_000809 equ $ ; IN [BALSI_HUB.BAS] DUR[39] = 12564 movlw 49 movwf Dur#39H,1 movlw 20 movwf Dur#39,1 F1_000810 equ $ ; IN [BALSI_HUB.BAS] DUR[40] = 12361 movlw 48 movwf Dur#40H,1 movlw 73 movwf Dur#40,1 F1_000811 equ $ ; IN [BALSI_HUB.BAS] DUR[41] = 12162 movlw 47 movwf Dur#41H,1 movlw 130 movwf Dur#41,1 F1_000812 equ $ ; IN [BALSI_HUB.BAS] DUR[42] = 11966 movlw 46 movwf Dur#42H,1 movlw 190 movwf Dur#42,1 F1_000813 equ $ ; IN [BALSI_HUB.BAS] DUR[43] = 11773 movlw 45 movwf Dur#43H,1 movlw 253 movwf Dur#43,1 F1_000814 equ $ ; IN [BALSI_HUB.BAS] DUR[44] = 11583 movlw 45 movwf Dur#44H,1 movlw 63 movwf Dur#44,1 F1_000815 equ $ ; IN [BALSI_HUB.BAS] DUR[45] = 11397 movlw 44 movwf Dur#45H,1 movlw 133 movwf Dur#45,1 F1_000816 equ $ ; IN [BALSI_HUB.BAS] DUR[46] = 11213 movlw 43 movwf Dur#46H,1 movlw 205 movwf Dur#46,1 F1_000817 equ $ ; IN [BALSI_HUB.BAS] DUR[47] = 11032 movlw 43 movwf Dur#47H,1 movlw 24 movwf Dur#47,1 F1_000818 equ $ ; IN [BALSI_HUB.BAS] DUR[48] = 10855 movlw 42 movwf Dur#48H,1 movlw 103 movwf Dur#48,1 F1_000819 equ $ ; IN [BALSI_HUB.BAS] DUR[49] = 10680 movlw 41 movwf Dur#49H,1 movlw 184 movwf Dur#49,1 F1_000820 equ $ ; IN [BALSI_HUB.BAS] DUR[50] = 10508 movlw 41 movwf Dur#50H,1 movlw 12 movwf Dur#50,1 F1_000821 equ $ ; IN [BALSI_HUB.BAS] DUR[51] = 10338 movlw 40 movwf Dur#51H,1 movlw 98 movwf Dur#51,1 F1_000822 equ $ ; IN [BALSI_HUB.BAS] DUR[52] = 10172 movlw 39 movwf Dur#52H,1 movlw 188 movwf Dur#52,1 F1_000823 equ $ ; IN [BALSI_HUB.BAS] DUR[53] = 10008 movlw 39 movwf Dur#53H,1 movlw 24 movwf Dur#53,1 F1_000824 equ $ ; IN [BALSI_HUB.BAS] DUR[54] = 9846 movlw 38 movwf Dur#54H,1 movlw 118 movwf Dur#54,1 F1_000825 equ $ ; IN [BALSI_HUB.BAS] DUR[55] = 9688 movlw 37 movwf Dur#55H,1 movlw 216 movwf Dur#55,1 F1_000826 equ $ ; IN [BALSI_HUB.BAS] DUR[56] = 9532 movlw 37 movwf Dur#56H,1 movlw 60 movwf Dur#56,1 F1_000827 equ $ ; IN [BALSI_HUB.BAS] DUR[57] = 9378 movlw 36 movwf Dur#57H,1 movlw 162 movwf Dur#57,1 F1_000828 equ $ ; IN [BALSI_HUB.BAS] DUR[58] = 9227 movlw 36 movwf Dur#58H,1 movlw 11 movwf Dur#58,1 F1_000829 equ $ ; IN [BALSI_HUB.BAS] DUR[59] = 9078 movlw 35 movwf Dur#59H,1 movlw 118 movwf Dur#59,1 F1_000830 equ $ ; IN [BALSI_HUB.BAS] DUR[60] = 8932 movlw 34 movwf Dur#60H,1 movlw 228 movwf Dur#60,1 F1_000831 equ $ ; IN [BALSI_HUB.BAS] DUR[61] = 8788 movlw 34 movwf Dur#61H,1 movlw 84 movwf Dur#61,1 F1_000832 equ $ ; IN [BALSI_HUB.BAS] DUR[62] = 8646 movlw 33 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000833 equ $ ; IN [BALSI_HUB.BAS] DUR[63] = 8507 movlw 33 movwf Dur#63H,1 movlw 59 movwf Dur#63,1 F1_000834 equ $ ; IN [BALSI_HUB.BAS] DUR[64] = 8370 movlw 32 movwf Dur#64H,1 movlw 178 movwf Dur#64,1 F1_000835 equ $ ; IN [BALSI_HUB.BAS] DUR[65] = 8235 movlw 32 movwf Dur#65H,1 movlw 43 movwf Dur#65,1 F1_000836 equ $ ; IN [BALSI_HUB.BAS] DUR[66] = 8102 movlw 31 movwf Dur#66H,1 movlw 166 movwf Dur#66,1 F1_000837 equ $ ; IN [BALSI_HUB.BAS] DUR[67] = 7972 movlw 31 movwf Dur#67H,1 movlw 36 movwf Dur#67,1 F1_000838 equ $ ; IN [BALSI_HUB.BAS] DUR[68] = 7843 movlw 30 movwf Dur#68H,1 movlw 163 movwf Dur#68,1 F1_000839 equ $ ; IN [BALSI_HUB.BAS] DUR[69] = 7717 movlw 30 movwf Dur#69H,1 movlw 37 movwf Dur#69,1 F1_000840 equ $ ; IN [BALSI_HUB.BAS] DUR[70] = 7593 movlw 29 movwf Dur#70H,1 movlw 169 movwf Dur#70,1 F1_000841 equ $ ; IN [BALSI_HUB.BAS] DUR[71] = 7470 movlw 29 movwf Dur#71H,1 movlw 46 movwf Dur#71,1 F1_000842 equ $ ; IN [BALSI_HUB.BAS] DUR[72] = 7350 movlw 28 movwf Dur#72H,1 movlw 182 movwf Dur#72,1 F1_000843 equ $ ; IN [BALSI_HUB.BAS] DUR[73] = 7231 movlw 28 movwf Dur#73H,1 movlw 63 movwf Dur#73,1 F1_000844 equ $ ; IN [BALSI_HUB.BAS] DUR[74] = 7115 movlw 27 movwf Dur#74H,1 movlw 203 movwf Dur#74,1 F1_000845 equ $ ; IN [BALSI_HUB.BAS] DUR[75] = 7000 movlw 27 movwf Dur#75H,1 movlw 88 movwf Dur#75,1 F1_000846 equ $ ; IN [BALSI_HUB.BAS] DUR[76] = 6888 movlw 26 movwf Dur#76H,1 movlw 232 movwf Dur#76,1 F1_000847 equ $ ; IN [BALSI_HUB.BAS] DUR[77] = 6777 movlw 26 movwf Dur#77H,1 movlw 121 movwf Dur#77,1 F1_000848 equ $ ; IN [BALSI_HUB.BAS] DUR[78] = 6667 movlw 26 movwf Dur#78H,1 movlw 11 movwf Dur#78,1 F1_000849 equ $ ; IN [BALSI_HUB.BAS] DUR[79] = 6560 movlw 25 movwf Dur#79H,1 movlw 160 movwf Dur#79,1 F1_000850 equ $ ; IN [BALSI_HUB.BAS] DUR[80] = 6454 movlw 25 movwf Dur#80H,1 movlw 54 movwf Dur#80,1 F1_000851 equ $ ; IN [BALSI_HUB.BAS] DUR[81] = 6350 movlw 24 movwf Dur#81H,1 movlw 206 movwf Dur#81,1 F1_000852 equ $ ; IN [BALSI_HUB.BAS] DUR[82] = 6248 movlw 24 movlb 3 movwf Dur#82H,1 movlw 104 movwf Dur#82,1 F1_000853 equ $ ; IN [BALSI_HUB.BAS] DUR[83] = 6147 movlw 24 movwf Dur#83H,1 movlw 3 movwf Dur#83,1 F1_000854 equ $ ; IN [BALSI_HUB.BAS] DUR[84] = 6048 movlw 23 movwf Dur#84H,1 movlw 160 movwf Dur#84,1 F1_000855 equ $ ; IN [BALSI_HUB.BAS] DUR[85] = 5951 movlw 23 movwf Dur#85H,1 movlw 63 movwf Dur#85,1 F1_000856 equ $ ; IN [BALSI_HUB.BAS] DUR[86] = 5855 movlw 22 movwf Dur#86H,1 movlw 223 movwf Dur#86,1 F1_000857 equ $ ; IN [BALSI_HUB.BAS] DUR[87] = 5760 movlw 22 movwf Dur#87H,1 movlw 128 movwf Dur#87,1 F1_000858 equ $ ; IN [BALSI_HUB.BAS] DUR[88] = 5668 movlw 22 movwf Dur#88H,1 movlw 36 movwf Dur#88,1 F1_000859 equ $ ; IN [BALSI_HUB.BAS] DUR[89] = 5576 movlw 21 movwf Dur#89H,1 movlw 200 movwf Dur#89,1 F1_000860 equ $ ; IN [BALSI_HUB.BAS] DUR[90] = 5486 movlw 21 movwf Dur#90H,1 movlw 110 movwf Dur#90,1 F1_000861 equ $ ; IN [BALSI_HUB.BAS] DUR[91] = 5398 movlw 21 movwf Dur#91H,1 movlw 22 movwf Dur#91,1 F1_000862 equ $ ; IN [BALSI_HUB.BAS] DUR[92] = 5311 movlw 20 movwf Dur#92H,1 movlw 191 movwf Dur#92,1 F1_000863 equ $ ; IN [BALSI_HUB.BAS] DUR[93] = 5225 movlw 20 movwf Dur#93H,1 movlw 105 movwf Dur#93,1 F1_000864 equ $ ; IN [BALSI_HUB.BAS] DUR[94] = 5141 movlw 20 movwf Dur#94H,1 movlw 21 movwf Dur#94,1 F1_000865 equ $ ; IN [BALSI_HUB.BAS] DUR[95] = 5058 movlw 19 movwf Dur#95H,1 movlw 194 movwf Dur#95,1 F1_000866 equ $ ; IN [BALSI_HUB.BAS] DUR[96] = 4977 movlw 19 movwf Dur#96H,1 movlw 113 movwf Dur#96,1 F1_000867 equ $ ; IN [BALSI_HUB.BAS] DUR[97] = 4897 movlw 19 movwf Dur#97H,1 movlw 33 movwf Dur#97,1 F1_000868 equ $ ; IN [BALSI_HUB.BAS] DUR[98] = 4818 movlw 18 movwf Dur#98H,1 movlw 210 movwf Dur#98,1 F1_000869 equ $ ; IN [BALSI_HUB.BAS] DUR[99] = 4740 movlw 18 movwf Dur#99H,1 movlw 132 movwf Dur#99,1 F1_000870 equ $ ; IN [BALSI_HUB.BAS] DUR[100] = 4664 movlw 18 movwf Dur#100H,1 movlw 56 movwf Dur#100,1 F1_000871 equ $ ; IN [BALSI_HUB.BAS] DUR[101] = 4589 movlw 17 movwf Dur#101H,1 movlw 237 movwf Dur#101,1 F1_000872 equ $ ; IN [BALSI_HUB.BAS] DUR[102] = 4515 movlw 17 movwf Dur#102H,1 movlw 163 movwf Dur#102,1 F1_000873 equ $ ; IN [BALSI_HUB.BAS] DUR[103] = 4442 movlw 17 movwf Dur#103H,1 movlw 90 movwf Dur#103,1 F1_000874 equ $ ; IN [BALSI_HUB.BAS] DUR[104] = 4370 movlw 17 movwf Dur#104H,1 movlw 18 movwf Dur#104,1 F1_000875 equ $ ; IN [BALSI_HUB.BAS] DUR[105] = 4300 movlw 16 movwf Dur#105H,1 movlw 204 movwf Dur#105,1 F1_000876 equ $ ; IN [BALSI_HUB.BAS] DUR[106] = 4231 movlw 16 movwf Dur#106H,1 movlw 135 movwf Dur#106,1 F1_000877 equ $ ; IN [BALSI_HUB.BAS] DUR[107] = 4162 movlw 16 movwf Dur#107H,1 movlw 66 movwf Dur#107,1 F1_000878 equ $ ; IN [BALSI_HUB.BAS] DUR[108] = 4095 movlw 15 movwf Dur#108H,1 setf Dur#108,1 F1_000879 equ $ ; IN [BALSI_HUB.BAS] DUR[109] = 4029 movwf Dur#109H,1 movlw 189 movwf Dur#109,1 F1_000880 equ $ ; IN [BALSI_HUB.BAS] DUR[110] = 3964 movlw 15 movwf Dur#110H,1 movlw 124 movwf Dur#110,1 F1_000881 equ $ ; IN [BALSI_HUB.BAS] DUR[111] = 3901 movlw 15 movwf Dur#111H,1 movlw 61 movwf Dur#111,1 F1_000882 equ $ ; IN [BALSI_HUB.BAS] DUR[112] = 3838 movlw 14 movwf Dur#112H,1 movlw 254 movwf Dur#112,1 F1_000883 equ $ ; IN [BALSI_HUB.BAS] DUR[113] = 3776 movlw 14 movwf Dur#113H,1 movlw 192 movwf Dur#113,1 F1_000884 equ $ ; IN [BALSI_HUB.BAS] DUR[114] = 3715 movlw 14 movwf Dur#114H,1 movlw 131 movwf Dur#114,1 F1_000885 equ $ ; IN [BALSI_HUB.BAS] DUR[115] = 3655 movlw 14 movwf Dur#115H,1 movlw 71 movwf Dur#115,1 F1_000886 equ $ ; IN [BALSI_HUB.BAS] DUR[116] = 3596 movlw 14 movwf Dur#116H,1 movlw 12 movwf Dur#116,1 F1_000887 equ $ ; IN [BALSI_HUB.BAS] DUR[117] = 3538 movlw 13 movwf Dur#117H,1 movlw 210 movwf Dur#117,1 F1_000888 equ $ ; IN [BALSI_HUB.BAS] DUR[118] = 3481 movlw 13 movwf Dur#118H,1 movlw 153 movwf Dur#118,1 F1_000889 equ $ ; IN [BALSI_HUB.BAS] DUR[119] = 3425 movlw 13 movwf Dur#119H,1 movlw 97 movwf Dur#119,1 F1_000890 equ $ ; IN [BALSI_HUB.BAS] DUR[120] = 3370 movlw 13 movwf Dur#120H,1 movlw 42 movwf Dur#120,1 F1_000891 equ $ ; IN [BALSI_HUB.BAS] DUR[121] = 3316 movlw 12 movwf Dur#121H,1 movlw 244 movwf Dur#121,1 F1_000892 equ $ ; IN [BALSI_HUB.BAS] DUR[122] = 3262 movlw 12 movwf Dur#122H,1 movlw 190 movwf Dur#122,1 F1_000893 equ $ ; IN [BALSI_HUB.BAS] DUR[123] = 3210 movlw 12 movwf Dur#123H,1 movlw 138 movwf Dur#123,1 F1_000894 equ $ ; IN [BALSI_HUB.BAS] DUR[124] = 3158 movlw 12 movwf Dur#124H,1 movlw 86 movwf Dur#124,1 F1_000895 equ $ ; IN [BALSI_HUB.BAS] DUR[125] = 3107 movlw 12 movwf Dur#125H,1 movlw 35 movwf Dur#125,1 F1_000896 equ $ ; IN [BALSI_HUB.BAS] DUR[126] = 3057 movlw 11 movwf Dur#126H,1 movlw 241 movwf Dur#126,1 F1_000897 equ $ ; IN [BALSI_HUB.BAS] DUR[127] = 3008 movlw 11 movwf Dur#127H,1 movlw 192 movwf Dur#127,1 F1_000900 equ $ ; IN [BALSI_HUB.BAS] SET DUR5[0] setf Dur5#0H,1 setf Dur5#0,1 F1_000901 equ $ ; IN [BALSI_HUB.BAS] DUR5[1] = 41667 movlw 162 movwf Dur5#1H,1 movlw 195 movwf Dur5#1,1 F1_000902 equ $ ; IN [BALSI_HUB.BAS] DUR5[2] = 39494 movlw 154 movwf Dur5#2H,1 movlw 70 movwf Dur5#2,1 F1_000903 equ $ ; IN [BALSI_HUB.BAS] DUR5[3] = 38450 movlw 150 movwf Dur5#3H,1 movlw 50 movwf Dur5#3,1 F1_000904 equ $ ; IN [BALSI_HUB.BAS] DUR5[4] = 37434 movlw 146 movwf Dur5#4H,1 movlw 58 movwf Dur5#4,1 F1_000905 equ $ ; IN [BALSI_HUB.BAS] DUR5[5] = 36445 movlw 142 movwf Dur5#5H,1 movlw 93 movwf Dur5#5,1 F1_000906 equ $ ; IN [BALSI_HUB.BAS] DUR5[6] = 35482 movlw 138 movwf Dur5#6H,1 movlw 154 movwf Dur5#6,1 F1_000907 equ $ ; IN [BALSI_HUB.BAS] DUR5[7] = 34544 movlw 134 movwf Dur5#7H,1 movlw 240 movwf Dur5#7,1 F1_000908 equ $ ; IN [BALSI_HUB.BAS] DUR5[8] = 33631 movlw 131 movwf Dur5#8H,1 movlw 95 movwf Dur5#8,1 F1_000909 equ $ ; IN [BALSI_HUB.BAS] DUR5[9] = 32743 movlw 127 movwf Dur5#9H,1 movlw 231 movwf Dur5#9,1 F1_000910 equ $ ; IN [BALSI_HUB.BAS] DUR5[10] = 31877 movlw 124 movwf Dur5#10H,1 movlw 133 movwf Dur5#10,1 F1_000911 equ $ ; IN [BALSI_HUB.BAS] DUR5[11] = 31035 movlw 121 movwf Dur5#11H,1 movlw 59 movwf Dur5#11,1 F1_000912 equ $ ; IN [BALSI_HUB.BAS] DUR5[12] = 30215 movlw 118 movwf Dur5#12H,1 movlw 7 movwf Dur5#12,1 F1_000913 equ $ ; IN [BALSI_HUB.BAS] DUR5[13] = 29416 movlw 114 movwf Dur5#13H,1 movlw 232 movwf Dur5#13,1 F1_000914 equ $ ; IN [BALSI_HUB.BAS] DUR5[14] = 28639 movlw 111 movwf Dur5#14H,1 movlw 223 movwf Dur5#14,1 F1_000915 equ $ ; IN [BALSI_HUB.BAS] DUR5[15] = 27882 movlw 108 movwf Dur5#15H,1 movlw 234 movwf Dur5#15,1 F1_000916 equ $ ; IN [BALSI_HUB.BAS] DUR5[16] = 27146 movlw 106 movwf Dur5#16H,1 movlw 10 movwf Dur5#16,1 F1_000917 equ $ ; IN [BALSI_HUB.BAS] DUR5[17] = 26428 movlw 103 movwf Dur5#17H,1 movlw 60 movwf Dur5#17,1 F1_000918 equ $ ; IN [BALSI_HUB.BAS] DUR5[18] = 25730 movlw 100 movwf Dur5#18H,1 movlw 130 movwf Dur5#18,1 F1_000919 equ $ ; IN [BALSI_HUB.BAS] DUR5[19] = 25050 movlw 97 movwf Dur5#19H,1 movlw 218 movwf Dur5#19,1 F1_000920 equ $ ; IN [BALSI_HUB.BAS] DUR5[20] = 24388 movlw 95 movwf Dur5#20H,1 movlw 68 movwf Dur5#20,1 F1_000921 equ $ ; IN [BALSI_HUB.BAS] DUR5[21] = 23743 movlw 92 movwf Dur5#21H,1 movlw 191 movwf Dur5#21,1 F1_000922 equ $ ; IN [BALSI_HUB.BAS] DUR5[22] = 23116 movlw 90 movwf Dur5#22H,1 movlw 76 movwf Dur5#22,1 F1_000923 equ $ ; IN [BALSI_HUB.BAS] DUR5[23] = 22505 movlw 87 movwf Dur5#23H,1 movlw 233 movwf Dur5#23,1 F1_000924 equ $ ; IN [BALSI_HUB.BAS] DUR5[24] = 21910 movlw 85 movwf Dur5#24H,1 movlw 150 movwf Dur5#24,1 F1_000925 equ $ ; IN [BALSI_HUB.BAS] DUR5[25] = 21331 movlw 83 movwf Dur5#25H,1 movwf Dur5#25,1 F1_000926 equ $ ; IN [BALSI_HUB.BAS] DUR5[26] = 20768 movlw 81 movwf Dur5#26H,1 movlw 32 movwf Dur5#26,1 F1_000927 equ $ ; IN [BALSI_HUB.BAS] DUR5[27] = 20219 movlw 78 movwf Dur5#27H,1 movlw 251 movwf Dur5#27,1 F1_000928 equ $ ; IN [BALSI_HUB.BAS] DUR5[28] = 19685 movlw 76 movwf Dur5#28H,1 movlw 229 movwf Dur5#28,1 F1_000929 equ $ ; IN [BALSI_HUB.BAS] DUR5[29] = 19164 movlw 74 movwf Dur5#29H,1 movlw 220 movwf Dur5#29,1 F1_000930 equ $ ; IN [BALSI_HUB.BAS] DUR5[30] = 18658 movlw 72 movwf Dur5#30H,1 movlw 226 movwf Dur5#30,1 F1_000931 equ $ ; IN [BALSI_HUB.BAS] DUR5[31] = 18165 movlw 70 movwf Dur5#31H,1 movlw 245 movwf Dur5#31,1 F1_000932 equ $ ; IN [BALSI_HUB.BAS] DUR5[32] = 17685 movlw 69 movwf Dur5#32H,1 movlw 21 movwf Dur5#32,1 F1_000933 equ $ ; IN [BALSI_HUB.BAS] DUR5[33] = 17218 movlw 67 movwf Dur5#33H,1 movlw 66 movwf Dur5#33,1 F1_000934 equ $ ; IN [BALSI_HUB.BAS] DUR5[34] = 16763 movlw 65 movwf Dur5#34H,1 movlw 123 movwf Dur5#34,1 F1_000935 equ $ ; IN [BALSI_HUB.BAS] DUR5[35] = 16320 movlw 63 movwf Dur5#35H,1 movlw 192 movwf Dur5#35,1 F1_000936 equ $ ; IN [BALSI_HUB.BAS] DUR5[36] = 15888 movlw 62 movwf Dur5#36H,1 movlw 16 movwf Dur5#36,1 F1_000937 equ $ ; IN [BALSI_HUB.BAS] DUR5[37] = 15469 movlw 60 movwf Dur5#37H,1 movlw 109 movwf Dur5#37,1 F1_000938 equ $ ; IN [BALSI_HUB.BAS] DUR5[38] = 15060 movlw 58 movwf Dur5#38H,1 movlw 212 movwf Dur5#38,1 F1_000939 equ $ ; IN [BALSI_HUB.BAS] DUR5[39] = 14662 movlw 57 movwf Dur5#39H,1 movlw 70 movwf Dur5#39,1 F1_000940 equ $ ; IN [BALSI_HUB.BAS] DUR5[40] = 14274 movlw 55 movwf Dur5#40H,1 movlw 194 movwf Dur5#40,1 F1_000941 equ $ ; IN [BALSI_HUB.BAS] DUR5[41] = 13897 movlw 54 movwf Dur5#41H,1 movlw 73 movwf Dur5#41,1 F1_000942 equ $ ; IN [BALSI_HUB.BAS] DUR5[42] = 13530 movlw 52 movwf Dur5#42H,1 movlw 218 movwf Dur5#42,1 F1_000943 equ $ ; IN [BALSI_HUB.BAS] DUR5[43] = 13172 movlw 51 movwf Dur5#43H,1 movlw 116 movwf Dur5#43,1 F1_000944 equ $ ; IN [BALSI_HUB.BAS] DUR5[44] = 12824 movlw 50 movwf Dur5#44H,1 movlw 24 movwf Dur5#44,1 F1_000945 equ $ ; IN [BALSI_HUB.BAS] DUR5[45] = 12485 movlw 48 movwf Dur5#45H,1 movlw 197 movwf Dur5#45,1 F1_000946 equ $ ; IN [BALSI_HUB.BAS] DUR5[46] = 12155 movlw 47 movwf Dur5#46H,1 movlw 123 movwf Dur5#46,1 F1_000947 equ $ ; IN [BALSI_HUB.BAS] DUR5[47] = 11834 movlw 46 movwf Dur5#47H,1 movlw 58 movwf Dur5#47,1 F1_000948 equ $ ; IN [BALSI_HUB.BAS] DUR5[48] = 11522 movlw 45 movwf Dur5#48H,1 movlw 2 movwf Dur5#48,1 F1_000949 equ $ ; IN [BALSI_HUB.BAS] DUR5[49] = 11217 movlw 43 movwf Dur5#49H,1 movlw 209 movwf Dur5#49,1 F1_000950 equ $ ; IN [BALSI_HUB.BAS] DUR5[50] = 10921 movlw 42 movwf Dur5#50H,1 movlw 169 movwf Dur5#50,1 F1_000951 equ $ ; IN [BALSI_HUB.BAS] DUR5[51] = 10632 movlw 41 movwf Dur5#51H,1 movlw 136 movwf Dur5#51,1 F1_000952 equ $ ; IN [BALSI_HUB.BAS] DUR5[52] = 10351 movlw 40 movwf Dur5#52H,1 movlw 111 movwf Dur5#52,1 F1_000953 equ $ ; IN [BALSI_HUB.BAS] DUR5[53] = 10078 movlw 39 movwf Dur5#53H,1 movlw 94 movwf Dur5#53,1 F1_000954 equ $ ; IN [BALSI_HUB.BAS] DUR5[54] = 9811 movlw 38 movwf Dur5#54H,1 movlw 83 movwf Dur5#54,1 F1_000955 equ $ ; IN [BALSI_HUB.BAS] DUR5[55] = 9552 movlw 37 movwf Dur5#55H,1 movlw 80 movwf Dur5#55,1 F1_000956 equ $ ; IN [BALSI_HUB.BAS] DUR5[56] = 9300 movlw 36 movwf Dur5#56H,1 movlw 84 movwf Dur5#56,1 F1_000957 equ $ ; IN [BALSI_HUB.BAS] DUR5[57] = 9054 movlw 35 movwf Dur5#57H,1 movlw 94 movwf Dur5#57,1 F1_000958 equ $ ; IN [BALSI_HUB.BAS] DUR5[58] = 8815 movlw 34 movwf Dur5#58H,1 movlw 111 movwf Dur5#58,1 F1_000959 equ $ ; IN [BALSI_HUB.BAS] DUR5[59] = 8582 movlw 33 movwf Dur5#59H,1 movlw 134 movwf Dur5#59,1 F1_000960 equ $ ; IN [BALSI_HUB.BAS] DUR5[60] = 8355 movlw 32 movwf Dur5#60H,1 movlw 163 movwf Dur5#60,1 F1_000961 equ $ ; IN [BALSI_HUB.BAS] DUR5[61] = 8134 movlw 31 movwf Dur5#61H,1 movlw 198 movwf Dur5#61,1 F1_000962 equ $ ; IN [BALSI_HUB.BAS] DUR5[62] = 7919 movlw 30 movwf Dur5#62H,1 movlw 239 movwf Dur5#62,1 F1_000963 equ $ ; IN [BALSI_HUB.BAS] DUR5[63] = 7710 movlw 30 movwf Dur5#63H,1 movwf Dur5#63,1 F1_000964 equ $ ; IN [BALSI_HUB.BAS] DUR5[64] = 7506 movlw 29 movwf Dur5#64H,1 movlw 82 movwf Dur5#64,1 F1_000965 equ $ ; IN [BALSI_HUB.BAS] DUR5[65] = 7308 movlw 28 movwf Dur5#65H,1 movlw 140 movwf Dur5#65,1 F1_000966 equ $ ; IN [BALSI_HUB.BAS] DUR5[66] = 7115 movlw 27 movwf Dur5#66H,1 movlw 203 movwf Dur5#66,1 F1_000967 equ $ ; IN [BALSI_HUB.BAS] DUR5[67] = 6927 movlw 27 movwf Dur5#67H,1 movlw 15 movwf Dur5#67,1 F1_000968 equ $ ; IN [BALSI_HUB.BAS] DUR5[68] = 6744 movlw 26 movwf Dur5#68H,1 movlw 88 movwf Dur5#68,1 F1_000969 equ $ ; IN [BALSI_HUB.BAS] DUR5[69] = 6565 movlw 25 movwf Dur5#69H,1 movlw 165 movwf Dur5#69,1 F1_000970 equ $ ; IN [BALSI_HUB.BAS] DUR5[70] = 6392 movlw 24 movwf Dur5#70H,1 movlw 248 movwf Dur5#70,1 F1_000971 equ $ ; IN [BALSI_HUB.BAS] DUR5[71] = 6223 movlw 24 movwf Dur5#71H,1 movlw 79 movwf Dur5#71,1 F1_000972 equ $ ; IN [BALSI_HUB.BAS] DUR5[72] = 6059 movlw 23 movwf Dur5#72H,1 movlw 171 movwf Dur5#72,1 F1_000973 equ $ ; IN [BALSI_HUB.BAS] DUR5[73] = 5898 movlw 23 movwf Dur5#73H,1 movlw 10 movwf Dur5#73,1 F1_000974 equ $ ; IN [BALSI_HUB.BAS] DUR5[74] = 5743 movlw 22 movwf Dur5#74H,1 movlw 111 movwf Dur5#74,1 F1_000975 equ $ ; IN [BALSI_HUB.BAS] DUR5[75] = 5591 movlw 21 movwf Dur5#75H,1 movlw 215 movwf Dur5#75,1 F1_000976 equ $ ; IN [BALSI_HUB.BAS] DUR5[76] = 5443 movlw 21 movwf Dur5#76H,1 movlw 67 movwf Dur5#76,1 F1_000977 equ $ ; IN [BALSI_HUB.BAS] DUR5[77] = 5299 movlw 20 movwf Dur5#77H,1 movlw 179 movwf Dur5#77,1 F1_000978 equ $ ; IN [BALSI_HUB.BAS] DUR5[78] = 5159 movlw 20 movwf Dur5#78H,1 movlw 39 movwf Dur5#78,1 F1_000979 equ $ ; IN [BALSI_HUB.BAS] DUR5[79] = 5023 movlw 19 movwf Dur5#79H,1 movlw 159 movwf Dur5#79,1 F1_000980 equ $ ; IN [BALSI_HUB.BAS] DUR5[80] = 4890 movlw 19 movwf Dur5#80H,1 movlw 26 movwf Dur5#80,1 F1_000981 equ $ ; IN [BALSI_HUB.BAS] DUR5[81] = 4761 movlw 18 movwf Dur5#81H,1 movlw 153 movwf Dur5#81,1 F1_000982 equ $ ; IN [BALSI_HUB.BAS] DUR5[82] = 4635 movlw 18 movlb 4 movwf Dur5#82H,1 movlw 27 movwf Dur5#82,1 F1_000983 equ $ ; IN [BALSI_HUB.BAS] DUR5[83] = 4513 movlw 17 movwf Dur5#83H,1 movlw 161 movwf Dur5#83,1 F1_000984 equ $ ; IN [BALSI_HUB.BAS] DUR5[84] = 4393 movlw 17 movwf Dur5#84H,1 movlw 41 movwf Dur5#84,1 F1_000985 equ $ ; IN [BALSI_HUB.BAS] DUR5[85] = 4277 movlw 16 movwf Dur5#85H,1 movlw 181 movwf Dur5#85,1 F1_000986 equ $ ; IN [BALSI_HUB.BAS] DUR5[86] = 4164 movlw 16 movwf Dur5#86H,1 movlw 68 movwf Dur5#86,1 F1_000987 equ $ ; IN [BALSI_HUB.BAS] DUR5[87] = 4054 movlw 15 movwf Dur5#87H,1 movlw 214 movwf Dur5#87,1 F1_000988 equ $ ; IN [BALSI_HUB.BAS] DUR5[88] = 3947 movlw 15 movwf Dur5#88H,1 movlw 107 movwf Dur5#88,1 F1_000989 equ $ ; IN [BALSI_HUB.BAS] DUR5[89] = 3843 movlw 15 movwf Dur5#89H,1 movlw 3 movwf Dur5#89,1 F1_000990 equ $ ; IN [BALSI_HUB.BAS] DUR5[90] = 3741 movlw 14 movwf Dur5#90H,1 movlw 157 movwf Dur5#90,1 F1_000991 equ $ ; IN [BALSI_HUB.BAS] DUR5[91] = 3642 movlw 14 movwf Dur5#91H,1 movlw 58 movwf Dur5#91,1 F1_000992 equ $ ; IN [BALSI_HUB.BAS] DUR5[92] = 3546 movlw 13 movwf Dur5#92H,1 movlw 218 movwf Dur5#92,1 F1_000993 equ $ ; IN [BALSI_HUB.BAS] DUR5[93] = 3452 movlw 13 movwf Dur5#93H,1 movlw 124 movwf Dur5#93,1 F1_000994 equ $ ; IN [BALSI_HUB.BAS] DUR5[94] = 3361 movlw 13 movwf Dur5#94H,1 movlw 33 movwf Dur5#94,1 F1_000995 equ $ ; IN [BALSI_HUB.BAS] DUR5[95] = 3272 movlw 12 movwf Dur5#95H,1 movlw 200 movwf Dur5#95,1 F1_000996 equ $ ; IN [BALSI_HUB.BAS] DUR5[96] = 3186 movlw 12 movwf Dur5#96H,1 movlw 114 movwf Dur5#96,1 F1_000997 equ $ ; IN [BALSI_HUB.BAS] DUR5[97] = 3102 movlw 12 movwf Dur5#97H,1 movlw 30 movwf Dur5#97,1 F1_000998 equ $ ; IN [BALSI_HUB.BAS] DUR5[98] = 3020 movlw 11 movwf Dur5#98H,1 movlw 204 movwf Dur5#98,1 F1_000999 equ $ ; IN [BALSI_HUB.BAS] DUR5[99] = 2940 movlw 11 movwf Dur5#99H,1 movlw 124 movwf Dur5#99,1 F1_001000 equ $ ; IN [BALSI_HUB.BAS] DUR5[100] = 2862 movlw 11 movwf Dur5#100H,1 movlw 46 movwf Dur5#100,1 F1_001001 equ $ ; IN [BALSI_HUB.BAS] DUR5[101] = 2787 movlw 10 movwf Dur5#101H,1 movlw 227 movwf Dur5#101,1 F1_001002 equ $ ; IN [BALSI_HUB.BAS] DUR5[102] = 2713 movlw 10 movwf Dur5#102H,1 movlw 153 movwf Dur5#102,1 F1_001003 equ $ ; IN [BALSI_HUB.BAS] DUR5[103] = 2641 movlw 10 movwf Dur5#103H,1 movlw 81 movwf Dur5#103,1 F1_001004 equ $ ; IN [BALSI_HUB.BAS] DUR5[104] = 2571 movlw 10 movwf Dur5#104H,1 movlw 11 movwf Dur5#104,1 F1_001005 equ $ ; IN [BALSI_HUB.BAS] DUR5[105] = 2504 movlw 9 movwf Dur5#105H,1 movlw 200 movwf Dur5#105,1 F1_001006 equ $ ; IN [BALSI_HUB.BAS] DUR5[106] = 2437 movlw 9 movwf Dur5#106H,1 movlw 133 movwf Dur5#106,1 F1_001007 equ $ ; IN [BALSI_HUB.BAS] DUR5[107] = 2373 movlw 9 movwf Dur5#107H,1 movlw 69 movwf Dur5#107,1 F1_001008 equ $ ; IN [BALSI_HUB.BAS] DUR5[108] = 2310 movlw 9 movwf Dur5#108H,1 movlw 6 movwf Dur5#108,1 F1_001009 equ $ ; IN [BALSI_HUB.BAS] DUR5[109] = 2249 movlw 8 movwf Dur5#109H,1 movlw 201 movwf Dur5#109,1 F1_001010 equ $ ; IN [BALSI_HUB.BAS] DUR5[110] = 2190 movlw 8 movwf Dur5#110H,1 movlw 142 movwf Dur5#110,1 F1_001011 equ $ ; IN [BALSI_HUB.BAS] DUR5[111] = 2132 movlw 8 movwf Dur5#111H,1 movlw 84 movwf Dur5#111,1 F1_001012 equ $ ; IN [BALSI_HUB.BAS] DUR5[112] = 2076 movlw 8 movwf Dur5#112H,1 movlw 28 movwf Dur5#112,1 F1_001013 equ $ ; IN [BALSI_HUB.BAS] DUR5[113] = 2021 movlw 7 movwf Dur5#113H,1 movlw 229 movwf Dur5#113,1 F1_001014 equ $ ; IN [BALSI_HUB.BAS] DUR5[114] = 1967 movlw 7 movwf Dur5#114H,1 movlw 175 movwf Dur5#114,1 F1_001015 equ $ ; IN [BALSI_HUB.BAS] DUR5[115] = 1915 movlw 7 movwf Dur5#115H,1 movlw 123 movwf Dur5#115,1 F1_001016 equ $ ; IN [BALSI_HUB.BAS] DUR5[116] = 1865 movlw 7 movwf Dur5#116H,1 movlw 73 movwf Dur5#116,1 F1_001017 equ $ ; IN [BALSI_HUB.BAS] DUR5[117] = 1815 movlw 7 movwf Dur5#117H,1 movlw 23 movwf Dur5#117,1 F1_001018 equ $ ; IN [BALSI_HUB.BAS] DUR5[118] = 1767 movlw 6 movwf Dur5#118H,1 movlw 231 movwf Dur5#118,1 F1_001019 equ $ ; IN [BALSI_HUB.BAS] DUR5[119] = 1721 movlw 6 movwf Dur5#119H,1 movlw 185 movwf Dur5#119,1 F1_001020 equ $ ; IN [BALSI_HUB.BAS] DUR5[120] = 1675 movlw 6 movwf Dur5#120H,1 movlw 139 movwf Dur5#120,1 F1_001021 equ $ ; IN [BALSI_HUB.BAS] DUR5[121] = 1631 movlw 6 movwf Dur5#121H,1 movlw 95 movwf Dur5#121,1 F1_001022 equ $ ; IN [BALSI_HUB.BAS] DUR5[122] = 1588 movlw 6 movwf Dur5#122H,1 movlw 52 movwf Dur5#122,1 F1_001023 equ $ ; IN [BALSI_HUB.BAS] DUR5[123] = 1546 movlw 6 movwf Dur5#123H,1 movlw 10 movwf Dur5#123,1 F1_001024 equ $ ; IN [BALSI_HUB.BAS] DUR5[124] = 1505 movlw 5 movwf Dur5#124H,1 movlw 225 movwf Dur5#124,1 F1_001025 equ $ ; IN [BALSI_HUB.BAS] DUR5[125] = 1465 movlw 5 movwf Dur5#125H,1 movlw 185 movwf Dur5#125,1 F1_001026 equ $ ; IN [BALSI_HUB.BAS] DUR5[126] = 1427 movlw 5 movwf Dur5#126H,1 movlw 147 movwf Dur5#126,1 F1_001027 equ $ ; IN [BALSI_HUB.BAS] DUR5[127] = 1389 movlw 5 movwf Dur5#127H,1 movlw 109 movwf Dur5#127,1 F1_001028 equ $ ; IN [BALSI_HUB.BAS] RETURN movlb 0 return 0 Vels_Lookup F1_001035 equ $ ; IN [BALSI_HUB.BAS] VELS[1] = 1160 movlw 4 movlb 1 movwf Vels#1H,1 movlw 136 movwf Vels#1,1 F1_001036 equ $ ; IN [BALSI_HUB.BAS] VELS[2] = 1190 movlw 4 movwf Vels#2H,1 movlw 166 movwf Vels#2,1 F1_001037 equ $ ; IN [BALSI_HUB.BAS] VELS[3] = 1206 movlw 4 movwf Vels#3H,1 movlw 182 movwf Vels#3,1 F1_001038 equ $ ; IN [BALSI_HUB.BAS] VELS[4] = 1222 movlw 4 movwf Vels#4H,1 movlw 198 movwf Vels#4,1 F1_001039 equ $ ; IN [BALSI_HUB.BAS] VELS[5] = 1238 movlw 4 movwf Vels#5H,1 movlw 214 movwf Vels#5,1 F1_001040 equ $ ; IN [BALSI_HUB.BAS] VELS[6] = 1254 movlw 4 movwf Vels#6H,1 movlw 230 movwf Vels#6,1 F1_001041 equ $ ; IN [BALSI_HUB.BAS] VELS[7] = 1270 movlw 4 movwf Vels#7H,1 movlw 246 movwf Vels#7,1 F1_001042 equ $ ; IN [BALSI_HUB.BAS] VELS[8] = 1287 movlw 5 movwf Vels#8H,1 movlw 7 movwf Vels#8,1 F1_001043 equ $ ; IN [BALSI_HUB.BAS] VELS[9] = 1303 movlw 5 movwf Vels#9H,1 movlw 23 movwf Vels#9,1 F1_001044 equ $ ; IN [BALSI_HUB.BAS] VELS[10] = 1320 movlw 5 movwf Vels#10H,1 movlw 40 movwf Vels#10,1 F1_001045 equ $ ; IN [BALSI_HUB.BAS] VELS[11] = 1337 movlw 5 movwf Vels#11H,1 movlw 57 movwf Vels#11,1 F1_001046 equ $ ; IN [BALSI_HUB.BAS] VELS[12] = 1355 movlw 5 movwf Vels#12H,1 movlw 75 movwf Vels#12,1 F1_001047 equ $ ; IN [BALSI_HUB.BAS] VELS[13] = 1373 movlw 5 movwf Vels#13H,1 movlw 93 movwf Vels#13,1 F1_001048 equ $ ; IN [BALSI_HUB.BAS] VELS[14] = 1390 movlw 5 movwf Vels#14H,1 movlw 110 movwf Vels#14,1 F1_001049 equ $ ; IN [BALSI_HUB.BAS] VELS[15] = 1408 movlw 5 movwf Vels#15H,1 movlw 128 movwf Vels#15,1 F1_001050 equ $ ; IN [BALSI_HUB.BAS] VELS[16] = 1427 movlw 5 movwf Vels#16H,1 movlw 147 movwf Vels#16,1 F1_001051 equ $ ; IN [BALSI_HUB.BAS] VELS[17] = 1445 movlw 5 movwf Vels#17H,1 movlw 165 movwf Vels#17,1 F1_001052 equ $ ; IN [BALSI_HUB.BAS] VELS[18] = 1464 movlw 5 movwf Vels#18H,1 movlw 184 movwf Vels#18,1 F1_001053 equ $ ; IN [BALSI_HUB.BAS] VELS[19] = 1483 movlw 5 movwf Vels#19H,1 movlw 203 movwf Vels#19,1 F1_001054 equ $ ; IN [BALSI_HUB.BAS] VELS[20] = 1503 movlw 5 movwf Vels#20H,1 movlw 223 movwf Vels#20,1 F1_001055 equ $ ; IN [BALSI_HUB.BAS] VELS[21] = 1522 movlw 5 movwf Vels#21H,1 movlw 242 movwf Vels#21,1 F1_001056 equ $ ; IN [BALSI_HUB.BAS] VELS[22] = 1542 movlw 6 movwf Vels#22H,1 movwf Vels#22,1 F1_001057 equ $ ; IN [BALSI_HUB.BAS] VELS[23] = 1562 movwf Vels#23H,1 movlw 26 movwf Vels#23,1 F1_001058 equ $ ; IN [BALSI_HUB.BAS] VELS[24] = 1582 movlw 6 movwf Vels#24H,1 movlw 46 movwf Vels#24,1 F1_001059 equ $ ; IN [BALSI_HUB.BAS] VELS[25] = 1603 movlw 6 movwf Vels#25H,1 movlw 67 movwf Vels#25,1 F1_001060 equ $ ; IN [BALSI_HUB.BAS] VELS[26] = 1624 movlw 6 movwf Vels#26H,1 movlw 88 movwf Vels#26,1 F1_001061 equ $ ; IN [BALSI_HUB.BAS] VELS[27] = 1645 movlw 6 movwf Vels#27H,1 movlw 109 movwf Vels#27,1 F1_001062 equ $ ; IN [BALSI_HUB.BAS] VELS[28] = 1667 movlw 6 movwf Vels#28H,1 movlw 131 movwf Vels#28,1 F1_001063 equ $ ; IN [BALSI_HUB.BAS] VELS[29] = 1688 movlw 6 movwf Vels#29H,1 movlw 152 movwf Vels#29,1 F1_001064 equ $ ; IN [BALSI_HUB.BAS] VELS[30] = 1710 movlw 6 movwf Vels#30H,1 movlw 174 movwf Vels#30,1 F1_001065 equ $ ; IN [BALSI_HUB.BAS] VELS[31] = 1732 movlw 6 movwf Vels#31H,1 movlw 196 movwf Vels#31,1 F1_001066 equ $ ; IN [BALSI_HUB.BAS] VELS[32] = 1755 movlw 6 movwf Vels#32H,1 movlw 219 movwf Vels#32,1 F1_001067 equ $ ; IN [BALSI_HUB.BAS] VELS[33] = 1778 movlw 6 movwf Vels#33H,1 movlw 242 movwf Vels#33,1 F1_001068 equ $ ; IN [BALSI_HUB.BAS] VELS[34] = 1801 movlw 7 movwf Vels#34H,1 movlw 9 movwf Vels#34,1 F1_001069 equ $ ; IN [BALSI_HUB.BAS] VELS[35] = 1825 movlw 7 movwf Vels#35H,1 movlw 33 movwf Vels#35,1 F1_001070 equ $ ; IN [BALSI_HUB.BAS] VELS[36] = 1848 movlw 7 movwf Vels#36H,1 movlw 56 movwf Vels#36,1 F1_001071 equ $ ; IN [BALSI_HUB.BAS] VELS[37] = 1872 movlw 7 movwf Vels#37H,1 movlw 80 movwf Vels#37,1 F1_001072 equ $ ; IN [BALSI_HUB.BAS] VELS[38] = 1897 movlw 7 movwf Vels#38H,1 movlw 105 movwf Vels#38,1 F1_001073 equ $ ; IN [BALSI_HUB.BAS] VELS[39] = 1921 movlw 7 movwf Vels#39H,1 movlw 129 movwf Vels#39,1 F1_001074 equ $ ; IN [BALSI_HUB.BAS] VELS[40] = 1946 movlw 7 movwf Vels#40H,1 movlw 154 movwf Vels#40,1 F1_001075 equ $ ; IN [BALSI_HUB.BAS] VELS[41] = 1972 movlw 7 movwf Vels#41H,1 movlw 180 movwf Vels#41,1 F1_001076 equ $ ; IN [BALSI_HUB.BAS] VELS[42] = 1997 movlw 7 movwf Vels#42H,1 movlw 205 movwf Vels#42,1 F1_001077 equ $ ; IN [BALSI_HUB.BAS] VELS[43] = 2023 movlw 7 movwf Vels#43H,1 movlw 231 movwf Vels#43,1 F1_001078 equ $ ; IN [BALSI_HUB.BAS] VELS[44] = 2050 movlw 8 movwf Vels#44H,1 movlw 2 movwf Vels#44,1 F1_001079 equ $ ; IN [BALSI_HUB.BAS] VELS[45] = 2077 movlw 8 movwf Vels#45H,1 movlw 29 movwf Vels#45,1 F1_001080 equ $ ; IN [BALSI_HUB.BAS] VELS[46] = 2104 movlw 8 movwf Vels#46H,1 movlw 56 movwf Vels#46,1 F1_001081 equ $ ; IN [BALSI_HUB.BAS] VELS[47] = 2131 movlw 8 movwf Vels#47H,1 movlw 83 movwf Vels#47,1 F1_001082 equ $ ; IN [BALSI_HUB.BAS] VELS[48] = 2159 movlw 8 movwf Vels#48H,1 movlw 111 movwf Vels#48,1 F1_001083 equ $ ; IN [BALSI_HUB.BAS] VELS[49] = 2187 movlw 8 movwf Vels#49H,1 movlw 139 movwf Vels#49,1 F1_001084 equ $ ; IN [BALSI_HUB.BAS] VELS[50] = 2215 movlw 8 movwf Vels#50H,1 movlw 167 movwf Vels#50,1 F1_001085 equ $ ; IN [BALSI_HUB.BAS] VELS[51] = 2244 movlw 8 movwf Vels#51H,1 movlw 196 movwf Vels#51,1 F1_001086 equ $ ; IN [BALSI_HUB.BAS] VELS[52] = 2273 movlw 8 movwf Vels#52H,1 movlw 225 movwf Vels#52,1 F1_001087 equ $ ; IN [BALSI_HUB.BAS] VELS[53] = 2303 movlw 8 movwf Vels#53H,1 setf Vels#53,1 F1_001088 equ $ ; IN [BALSI_HUB.BAS] VELS[54] = 2333 movlw 9 movwf Vels#54H,1 movlw 29 movwf Vels#54,1 F1_001089 equ $ ; IN [BALSI_HUB.BAS] VELS[55] = 2363 movlw 9 movwf Vels#55H,1 movlw 59 movwf Vels#55,1 F1_001090 equ $ ; IN [BALSI_HUB.BAS] VELS[56] = 2394 movlw 9 movwf Vels#56H,1 movlw 90 movwf Vels#56,1 F1_001091 equ $ ; IN [BALSI_HUB.BAS] VELS[57] = 2425 movlw 9 movwf Vels#57H,1 movlw 121 movwf Vels#57,1 F1_001092 equ $ ; IN [BALSI_HUB.BAS] VELS[58] = 2457 movlw 9 movwf Vels#58H,1 movlw 153 movwf Vels#58,1 F1_001093 equ $ ; IN [BALSI_HUB.BAS] VELS[59] = 2489 movlw 9 movwf Vels#59H,1 movlw 185 movwf Vels#59,1 F1_001094 equ $ ; IN [BALSI_HUB.BAS] VELS[60] = 2521 movlw 9 movwf Vels#60H,1 movlw 217 movwf Vels#60,1 F1_001095 equ $ ; IN [BALSI_HUB.BAS] VELS[61] = 2554 movlw 9 movwf Vels#61H,1 movlw 250 movwf Vels#61,1 F1_001096 equ $ ; IN [BALSI_HUB.BAS] VELS[62] = 2587 movlw 10 movwf Vels#62H,1 movlw 27 movwf Vels#62,1 F1_001097 equ $ ; IN [BALSI_HUB.BAS] VELS[63] = 2621 movlw 10 movwf Vels#63H,1 movlw 61 movwf Vels#63,1 F1_001098 equ $ ; IN [BALSI_HUB.BAS] VELS[64] = 2655 movlw 10 movwf Vels#64H,1 movlw 95 movwf Vels#64,1 F1_001099 equ $ ; IN [BALSI_HUB.BAS] VELS[65] = 2690 movlw 10 movwf Vels#65H,1 movlw 130 movwf Vels#65,1 F1_001100 equ $ ; IN [BALSI_HUB.BAS] VELS[66] = 2725 movlw 10 movwf Vels#66H,1 movlw 165 movwf Vels#66,1 F1_001101 equ $ ; IN [BALSI_HUB.BAS] VELS[67] = 2760 movlw 10 movwf Vels#67H,1 movlw 200 movwf Vels#67,1 F1_001102 equ $ ; IN [BALSI_HUB.BAS] VELS[68] = 2796 movlw 10 movwf Vels#68H,1 movlw 236 movwf Vels#68,1 F1_001103 equ $ ; IN [BALSI_HUB.BAS] VELS[69] = 2833 movlw 11 movwf Vels#69H,1 movlw 17 movwf Vels#69,1 F1_001104 equ $ ; IN [BALSI_HUB.BAS] VELS[70] = 2870 movlw 11 movwf Vels#70H,1 movlw 54 movwf Vels#70,1 F1_001105 equ $ ; IN [BALSI_HUB.BAS] VELS[71] = 2907 movlw 11 movwf Vels#71H,1 movlw 91 movwf Vels#71,1 F1_001106 equ $ ; IN [BALSI_HUB.BAS] VELS[72] = 2945 movlw 11 movwf Vels#72H,1 movlw 129 movwf Vels#72,1 F1_001107 equ $ ; IN [BALSI_HUB.BAS] VELS[73] = 2983 movlw 11 movwf Vels#73H,1 movlw 167 movwf Vels#73,1 F1_001108 equ $ ; IN [BALSI_HUB.BAS] VELS[74] = 3022 movlw 11 movwf Vels#74H,1 movlw 206 movwf Vels#74,1 F1_001109 equ $ ; IN [BALSI_HUB.BAS] VELS[75] = 3061 movlw 11 movwf Vels#75H,1 movlw 245 movwf Vels#75,1 F1_001110 equ $ ; IN [BALSI_HUB.BAS] VELS[76] = 3101 movlw 12 movwf Vels#76H,1 movlw 29 movwf Vels#76,1 F1_001111 equ $ ; IN [BALSI_HUB.BAS] VELS[77] = 3142 movlw 12 movwf Vels#77H,1 movlw 70 movwf Vels#77,1 F1_001112 equ $ ; IN [BALSI_HUB.BAS] VELS[78] = 3183 movlw 12 movwf Vels#78H,1 movlw 111 movwf Vels#78,1 F1_001113 equ $ ; IN [BALSI_HUB.BAS] VELS[79] = 3224 movlw 12 movwf Vels#79H,1 movlw 152 movwf Vels#79,1 F1_001114 equ $ ; IN [BALSI_HUB.BAS] VELS[80] = 3266 movlw 12 movwf Vels#80H,1 movlw 194 movwf Vels#80,1 F1_001115 equ $ ; IN [BALSI_HUB.BAS] VELS[81] = 3309 movlw 12 movwf Vels#81H,1 movlw 237 movwf Vels#81,1 F1_001116 equ $ ; IN [BALSI_HUB.BAS] VELS[82] = 3352 movlw 13 movlb 2 movwf Vels#82H,1 movlw 24 movwf Vels#82,1 F1_001117 equ $ ; IN [BALSI_HUB.BAS] VELS[83] = 3395 movlw 13 movwf Vels#83H,1 movlw 67 movwf Vels#83,1 F1_001118 equ $ ; IN [BALSI_HUB.BAS] VELS[84] = 3440 movlw 13 movwf Vels#84H,1 movlw 112 movwf Vels#84,1 F1_001119 equ $ ; IN [BALSI_HUB.BAS] VELS[85] = 3484 movlw 13 movwf Vels#85H,1 movlw 156 movwf Vels#85,1 F1_001120 equ $ ; IN [BALSI_HUB.BAS] VELS[86] = 3530 movlw 13 movwf Vels#86H,1 movlw 202 movwf Vels#86,1 F1_001121 equ $ ; IN [BALSI_HUB.BAS] VELS[87] = 3576 movlw 13 movwf Vels#87H,1 movlw 248 movwf Vels#87,1 F1_001122 equ $ ; IN [BALSI_HUB.BAS] VELS[88] = 3622 movlw 14 movwf Vels#88H,1 movlw 38 movwf Vels#88,1 F1_001123 equ $ ; IN [BALSI_HUB.BAS] VELS[89] = 3669 movlw 14 movwf Vels#89H,1 movlw 85 movwf Vels#89,1 F1_001124 equ $ ; IN [BALSI_HUB.BAS] VELS[90] = 3717 movlw 14 movwf Vels#90H,1 movlw 133 movwf Vels#90,1 F1_001125 equ $ ; IN [BALSI_HUB.BAS] VELS[91] = 3766 movlw 14 movwf Vels#91H,1 movlw 182 movwf Vels#91,1 F1_001126 equ $ ; IN [BALSI_HUB.BAS] VELS[92] = 3815 movlw 14 movwf Vels#92H,1 movlw 231 movwf Vels#92,1 F1_001127 equ $ ; IN [BALSI_HUB.BAS] VELS[93] = 3864 movlw 15 movwf Vels#93H,1 movlw 24 movwf Vels#93,1 F1_001128 equ $ ; IN [BALSI_HUB.BAS] VELS[94] = 3915 movlw 15 movwf Vels#94H,1 movlw 75 movwf Vels#94,1 F1_001129 equ $ ; IN [BALSI_HUB.BAS] VELS[95] = 3966 movlw 15 movwf Vels#95H,1 movlw 126 movwf Vels#95,1 F1_001130 equ $ ; IN [BALSI_HUB.BAS] VELS[96] = 4017 movlw 15 movwf Vels#96H,1 movlw 177 movwf Vels#96,1 F1_001131 equ $ ; IN [BALSI_HUB.BAS] VELS[97] = 4070 movlw 15 movwf Vels#97H,1 movlw 230 movwf Vels#97,1 F1_001132 equ $ ; IN [BALSI_HUB.BAS] VELS[98] = 4123 movlw 16 movwf Vels#98H,1 movlw 27 movwf Vels#98,1 F1_001133 equ $ ; IN [BALSI_HUB.BAS] VELS[99] = 4176 movlw 16 movwf Vels#99H,1 movlw 80 movwf Vels#99,1 F1_001134 equ $ ; IN [BALSI_HUB.BAS] VELS[100] = 4231 movlw 16 movwf Vels#100H,1 movlw 135 movwf Vels#100,1 F1_001135 equ $ ; IN [BALSI_HUB.BAS] VELS[101] = 4286 movlw 16 movwf Vels#101H,1 movlw 190 movwf Vels#101,1 F1_001136 equ $ ; IN [BALSI_HUB.BAS] VELS[102] = 4342 movlw 16 movwf Vels#102H,1 movlw 246 movwf Vels#102,1 F1_001137 equ $ ; IN [BALSI_HUB.BAS] VELS[103] = 4398 movlw 17 movwf Vels#103H,1 movlw 46 movwf Vels#103,1 F1_001138 equ $ ; IN [BALSI_HUB.BAS] VELS[104] = 4456 movlw 17 movwf Vels#104H,1 movlw 104 movwf Vels#104,1 F1_001139 equ $ ; IN [BALSI_HUB.BAS] VELS[105] = 4514 movlw 17 movwf Vels#105H,1 movlw 162 movwf Vels#105,1 F1_001140 equ $ ; IN [BALSI_HUB.BAS] VELS[106] = 4572 movlw 17 movwf Vels#106H,1 movlw 220 movwf Vels#106,1 F1_001141 equ $ ; IN [BALSI_HUB.BAS] VELS[107] = 4632 movlw 18 movwf Vels#107H,1 movlw 24 movwf Vels#107,1 F1_001142 equ $ ; IN [BALSI_HUB.BAS] VELS[108] = 4692 movlw 18 movwf Vels#108H,1 movlw 84 movwf Vels#108,1 F1_001143 equ $ ; IN [BALSI_HUB.BAS] VELS[109] = 4753 movlw 18 movwf Vels#109H,1 movlw 145 movwf Vels#109,1 F1_001144 equ $ ; IN [BALSI_HUB.BAS] VELS[110] = 4815 movlw 18 movwf Vels#110H,1 movlw 207 movwf Vels#110,1 F1_001145 equ $ ; IN [BALSI_HUB.BAS] VELS[111] = 4878 movlw 19 movwf Vels#111H,1 movlw 14 movwf Vels#111,1 F1_001146 equ $ ; IN [BALSI_HUB.BAS] VELS[112] = 4941 movlw 19 movwf Vels#112H,1 movlw 77 movwf Vels#112,1 F1_001147 equ $ ; IN [BALSI_HUB.BAS] VELS[113] = 5006 movlw 19 movwf Vels#113H,1 movlw 142 movwf Vels#113,1 F1_001148 equ $ ; IN [BALSI_HUB.BAS] VELS[114] = 5071 movlw 19 movwf Vels#114H,1 movlw 207 movwf Vels#114,1 F1_001149 equ $ ; IN [BALSI_HUB.BAS] VELS[115] = 5137 movlw 20 movwf Vels#115H,1 movlw 17 movwf Vels#115,1 F1_001150 equ $ ; IN [BALSI_HUB.BAS] VELS[116] = 5204 movlw 20 movwf Vels#116H,1 movlw 84 movwf Vels#116,1 F1_001151 equ $ ; IN [BALSI_HUB.BAS] VELS[117] = 5272 movlw 20 movwf Vels#117H,1 movlw 152 movwf Vels#117,1 F1_001152 equ $ ; IN [BALSI_HUB.BAS] VELS[118] = 5340 movlw 20 movwf Vels#118H,1 movlw 220 movwf Vels#118,1 F1_001153 equ $ ; IN [BALSI_HUB.BAS] VELS[119] = 5410 movlw 21 movwf Vels#119H,1 movlw 34 movwf Vels#119,1 F1_001154 equ $ ; IN [BALSI_HUB.BAS] VELS[120] = 5480 movlw 21 movwf Vels#120H,1 movlw 104 movwf Vels#120,1 F1_001155 equ $ ; IN [BALSI_HUB.BAS] VELS[121] = 5552 movlw 21 movwf Vels#121H,1 movlw 176 movwf Vels#121,1 F1_001156 equ $ ; IN [BALSI_HUB.BAS] VELS[122] = 5624 movlw 21 movwf Vels#122H,1 movlw 248 movwf Vels#122,1 F1_001157 equ $ ; IN [BALSI_HUB.BAS] VELS[123] = 5697 movlw 22 movwf Vels#123H,1 movlw 65 movwf Vels#123,1 F1_001158 equ $ ; IN [BALSI_HUB.BAS] VELS[124] = 5772 movlw 22 movwf Vels#124H,1 movlw 140 movwf Vels#124,1 F1_001159 equ $ ; IN [BALSI_HUB.BAS] VELS[125] = 5847 movlw 22 movwf Vels#125H,1 movlw 215 movwf Vels#125,1 F1_001160 equ $ ; IN [BALSI_HUB.BAS] VELS[126] = 5923 movlw 23 movwf Vels#126H,1 movlw 35 movwf Vels#126,1 F1_001161 equ $ ; IN [BALSI_HUB.BAS] VELS[127] = 6000 movlw 23 movwf Vels#127H,1 movlw 112 movwf Vels#127,1 F1_001162 equ $ ; IN [BALSI_HUB.BAS] RETURN movlb 0 return 0 F1_EOF equ $ ; BALSI_HUB.BAS _pblb__251 bra _pblb__251 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off config PWRT = on end