; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; Let's find out together what makes a PIC Tick! ; ; Code Produced by the Proton BASIC Compiler. Version 3.7.3.1 ; Written by Les Johnson. November 2019 ;---------------------------------------------------------- ; #define Config_Req 1 #define Debug@Req 1 LIST P = 18F4620, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T = ON ; START OF ACCESS SFRS PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTD equ 0X0F83 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B LATD equ 0X0F8C LATE equ 0X0F8D DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 DDRD equ 0X0F95 TRISD equ 0X0F95 DDRE equ 0X0F96 TRISE equ 0X0F96 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 ECCP1AS equ 0X0FB6 PWM1CON equ 0X0FB7 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_Port=TRISC _I2C_SCL_Pin=3 _I2C_SDA_Port=TRISC _I2C_SDA_Pin=4 ; 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 RD0=0 PP_RD0=0 RD1=1 PP_RD1=1 RD2=2 PP_RD2=2 RD3=3 PP_RD3=3 RD4=4 PP_RD4=4 RD5=5 PP_RD5=5 RD6=6 PP_RD6=6 RD7=7 PP_RD7=7 PSP0=0 PSP1=1 PSP2=2 PSP3=3 PSP4=4 PSP5=5 PSP6=6 PSP7=7 P1B=5 P1C=6 P1D=7 RE0=0 RE1=1 RE2=2 RE3=3 RD=0 PP_RD=0 WR=1 PP_WR=1 CS=2 MCLR=3 NOT_RD=0 NOT_WR=1 NOT_CS=2 NOT_MCLR=3 AN5=0 AN6=1 AN7=2 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 LATD0=0 LATD1=1 LATD2=2 LATD3=3 LATD4=4 LATD5=5 LATD6=6 LATD7=7 LATE0=0 LATE1=1 LATE2=2 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TRISD0=0 TRISD1=1 TRISD2=2 TRISD3=3 TRISD4=4 TRISD5=5 TRISD6=6 TRISD7=7 TRISE0=0 TRISE1=1 TRISE2=2 PSPMODE=4 IBOV=5 OBF=6 IBF=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 PSPIE=7 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 PSPIF=7 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 PSPIP=7 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 PP_BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 PSSBD0=0 PSSBD1=1 PSSAC0=2 PSSAC1=3 ECCPAS0=4 ECCPAS1=5 ECCPAS2=6 ECCPASE=7 PDC0=0 PDC1=1 PDC2=2 PDC3=3 PDC4=4 PDC5=5 PDC6=6 PRSEN=7 ABDEN=0 WUE=1 BRG16=3 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 P1M0=6 P1M1=7 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 PP_RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8E-0X0F91 __BADRAM 0X0F97-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CP3_ON_5 equ 0XF7 CP3_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRT3_ON_6 equ 0XF7 WRT3_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTR3_ON_7 equ 0XF7 EBTR3_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F4620 1 #define Xtal 40 #define _Core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0X10000 #define _ADC 13 #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 73 #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 ; COMPILER SYSTEM VARIABLES BPF = 0X00 BPFH = 0X01 Pbs_Var0 = 0X02 Pbs_Var0H = 0X03 Pbs_Var0HH = 0X04 Pbs_Var0HHH = 0X05 Pbs_Var1 = 0X06 Pbs_Var1H = 0X07 PP0 = 0X08 PP0H = 0X09 PP1 = 0X0A PP1H = 0X0B PP3H = 0X0C PP4 = 0X0D PP7 = 0X0E PP7H = 0X0F PP7HH = 0X10 PP7HHH = 0X11 PP8 = 0X12 PP8H = 0X13 PP8HH = 0X14 PP8HHH = 0X15 PPZ = 0X16 PPZH = 0X17 PPZHH = 0X18 PP_AARG = 0X19 PP_AARGH = 0X1A PP_AARGHH = 0X1B PP_AARGHHH = 0X1C PP_BARG = 0X1D PP_BARGH = 0X1E PP_BARGHH = 0X1F PP_BARGHHH = 0X20 _AEXP = 0X21 _BEXP = 0X22 _FP_FLAGS = 0X23 _FP_SIGN = 0X24 _FP_TEMP = 0X25 ; USER ACCESS RAM VARIABLES Cnt = 0X26 CntH = 0X27 CntHH = 0X28 CntHHH = 0X29 Cnt3 = 0X2A Cnt3H = 0X2B Cnt3HH = 0X2C Cnt3HHH = 0X2D Bytein = 0X2E _I = 0X2F Nxt = 0X30 NxtH = 0X31 NxtHH = 0X32 NxtHHH = 0X33 idx = 0X34 _T = 0X35 tog = 0X36 statusbyte = 0X37 noteUit = 0X38 release = 0X39 noteAan = 0X3A velo = 0X3B notePres = 0X3C pres = 0X3D Ctrl = 0X3E value = 0X3F prog = 0X40 aft = 0X41 pblsb = 0X42 pbmsb = 0X43 CC66 = 0X44 MidiIn = 0X45 IndexIn = 0X46 IndexOut = 0X47 Resort = 0X48 ; STANDARD VARIABLES Ringbuffer = 0X49 variable Ringbuffer#0=0X49,Ringbuffer#1=0X4A,Ringbuffer#2=0X4B,Ringbuffer#3=0X4C variable Ringbuffer#4=0X4D,Ringbuffer#5=0X4E,Ringbuffer#6=0X4F,Ringbuffer#7=0X50 variable Ringbuffer#8=0X51,Ringbuffer#9=0X52,Ringbuffer#10=0X53,Ringbuffer#11=0X54 variable Ringbuffer#12=0X55,Ringbuffer#13=0X56,Ringbuffer#14=0X57,Ringbuffer#15=0X58 variable Ringbuffer#16=0X59,Ringbuffer#17=0X5A,Ringbuffer#18=0X5B,Ringbuffer#19=0X5C variable Ringbuffer#20=0X5D,Ringbuffer#21=0X5E,Ringbuffer#22=0X5F,Ringbuffer#23=0X60 variable Ringbuffer#24=0X61,Ringbuffer#25=0X62,Ringbuffer#26=0X63,Ringbuffer#27=0X64 variable Ringbuffer#28=0X65,Ringbuffer#29=0X66,Ringbuffer#30=0X67,Ringbuffer#31=0X68 variable Ringbuffer#32=0X69,Ringbuffer#33=0X6A,Ringbuffer#34=0X6B,Ringbuffer#35=0X6C variable Ringbuffer#36=0X6D,Ringbuffer#37=0X6E,Ringbuffer#38=0X6F,Ringbuffer#39=0X70 variable Ringbuffer#40=0X71,Ringbuffer#41=0X72,Ringbuffer#42=0X73,Ringbuffer#43=0X74 variable Ringbuffer#44=0X75,Ringbuffer#45=0X76,Ringbuffer#46=0X77,Ringbuffer#47=0X78 variable Ringbuffer#48=0X79,Ringbuffer#49=0X7A,Ringbuffer#50=0X7B,Ringbuffer#51=0X7C variable Ringbuffer#52=0X7D,Ringbuffer#53=0X7E,Ringbuffer#54=0X7F,Ringbuffer#55=0X80 variable Ringbuffer#56=0X81,Ringbuffer#57=0X82,Ringbuffer#58=0X83,Ringbuffer#59=0X84 variable Ringbuffer#60=0X85,Ringbuffer#61=0X86,Ringbuffer#62=0X87,Ringbuffer#63=0X88 variable Ringbuffer#64=0X89,Ringbuffer#65=0X8A,Ringbuffer#66=0X8B,Ringbuffer#67=0X8C variable Ringbuffer#68=0X8D,Ringbuffer#69=0X8E,Ringbuffer#70=0X8F,Ringbuffer#71=0X90 variable Ringbuffer#72=0X91,Ringbuffer#73=0X92,Ringbuffer#74=0X93,Ringbuffer#75=0X94 variable Ringbuffer#76=0X95,Ringbuffer#77=0X96,Ringbuffer#78=0X97,Ringbuffer#79=0X98 variable Ringbuffer#80=0X99,Ringbuffer#81=0X9A,Ringbuffer#82=0X9B,Ringbuffer#83=0X9C variable Ringbuffer#84=0X9D,Ringbuffer#85=0X9E,Ringbuffer#86=0X9F,Ringbuffer#87=0XA0 variable Ringbuffer#88=0XA1,Ringbuffer#89=0XA2,Ringbuffer#90=0XA3,Ringbuffer#91=0XA4 variable Ringbuffer#92=0XA5,Ringbuffer#93=0XA6,Ringbuffer#94=0XA7,Ringbuffer#95=0XA8 variable Ringbuffer#96=0XA9,Ringbuffer#97=0XAA,Ringbuffer#98=0XAB,Ringbuffer#99=0XAC variable Ringbuffer#100=0XAD,Ringbuffer#101=0XAE,Ringbuffer#102=0XAF,Ringbuffer#103=0XB0 variable Ringbuffer#104=0XB1,Ringbuffer#105=0XB2,Ringbuffer#106=0XB3,Ringbuffer#107=0XB4 variable Ringbuffer#108=0XB5,Ringbuffer#109=0XB6,Ringbuffer#110=0XB7,Ringbuffer#111=0XB8 variable Ringbuffer#112=0XB9,Ringbuffer#113=0XBA,Ringbuffer#114=0XBB,Ringbuffer#115=0XBC variable Ringbuffer#116=0XBD,Ringbuffer#117=0XBE,Ringbuffer#118=0XBF,Ringbuffer#119=0XC0 variable Ringbuffer#120=0XC1,Ringbuffer#121=0XC2,Ringbuffer#122=0XC3,Ringbuffer#123=0XC4 variable Ringbuffer#124=0XC5,Ringbuffer#125=0XC6,Ringbuffer#126=0XC7,Ringbuffer#127=0XC8 variable Ringbuffer#128=0XC9,Ringbuffer#129=0XCA,Ringbuffer#130=0XCB,Ringbuffer#131=0XCC variable Ringbuffer#132=0XCD,Ringbuffer#133=0XCE,Ringbuffer#134=0XCF,Ringbuffer#135=0XD0 variable Ringbuffer#136=0XD1,Ringbuffer#137=0XD2,Ringbuffer#138=0XD3,Ringbuffer#139=0XD4 variable Ringbuffer#140=0XD5,Ringbuffer#141=0XD6,Ringbuffer#142=0XD7,Ringbuffer#143=0XD8 variable Ringbuffer#144=0XD9,Ringbuffer#145=0XDA,Ringbuffer#146=0XDB,Ringbuffer#147=0XDC variable Ringbuffer#148=0XDD,Ringbuffer#149=0XDE,Ringbuffer#150=0XDF,Ringbuffer#151=0XE0 variable Ringbuffer#152=0XE1,Ringbuffer#153=0XE2,Ringbuffer#154=0XE3,Ringbuffer#155=0XE4 variable Ringbuffer#156=0XE5,Ringbuffer#157=0XE6,Ringbuffer#158=0XE7,Ringbuffer#159=0XE8 variable Ringbuffer#160=0XE9,Ringbuffer#161=0XEA,Ringbuffer#162=0XEB,Ringbuffer#163=0XEC variable Ringbuffer#164=0XED,Ringbuffer#165=0XEE,Ringbuffer#166=0XEF,Ringbuffer#167=0XF0 variable Ringbuffer#168=0XF1,Ringbuffer#169=0XF2,Ringbuffer#170=0XF3,Ringbuffer#171=0XF4 variable Ringbuffer#172=0XF5,Ringbuffer#173=0XF6,Ringbuffer#174=0XF7,Ringbuffer#175=0XF8 variable Ringbuffer#176=0XF9,Ringbuffer#177=0XFA,Ringbuffer#178=0XFB,Ringbuffer#179=0XFC variable Ringbuffer#180=0XFD,Ringbuffer#181=0XFE,Ringbuffer#182=0XFF,Ringbuffer#183=0X100 variable Ringbuffer#184=0X101,Ringbuffer#185=0X102,Ringbuffer#186=0X103,Ringbuffer#187=0X104 variable Ringbuffer#188=0X105,Ringbuffer#189=0X106,Ringbuffer#190=0X107,Ringbuffer#191=0X108 variable Ringbuffer#192=0X109,Ringbuffer#193=0X10A,Ringbuffer#194=0X10B,Ringbuffer#195=0X10C variable Ringbuffer#196=0X10D,Ringbuffer#197=0X10E,Ringbuffer#198=0X10F,Ringbuffer#199=0X110 variable Ringbuffer#200=0X111,Ringbuffer#201=0X112,Ringbuffer#202=0X113,Ringbuffer#203=0X114 variable Ringbuffer#204=0X115,Ringbuffer#205=0X116,Ringbuffer#206=0X117,Ringbuffer#207=0X118 variable Ringbuffer#208=0X119,Ringbuffer#209=0X11A,Ringbuffer#210=0X11B,Ringbuffer#211=0X11C variable Ringbuffer#212=0X11D,Ringbuffer#213=0X11E,Ringbuffer#214=0X11F,Ringbuffer#215=0X120 variable Ringbuffer#216=0X121,Ringbuffer#217=0X122,Ringbuffer#218=0X123,Ringbuffer#219=0X124 variable Ringbuffer#220=0X125,Ringbuffer#221=0X126,Ringbuffer#222=0X127,Ringbuffer#223=0X128 variable Ringbuffer#224=0X129,Ringbuffer#225=0X12A,Ringbuffer#226=0X12B,Ringbuffer#227=0X12C variable Ringbuffer#228=0X12D,Ringbuffer#229=0X12E,Ringbuffer#230=0X12F,Ringbuffer#231=0X130 variable Ringbuffer#232=0X131,Ringbuffer#233=0X132,Ringbuffer#234=0X133,Ringbuffer#235=0X134 variable Ringbuffer#236=0X135,Ringbuffer#237=0X136,Ringbuffer#238=0X137,Ringbuffer#239=0X138 variable Ringbuffer#240=0X139,Ringbuffer#241=0X13A,Ringbuffer#242=0X13B,Ringbuffer#243=0X13C variable Ringbuffer#244=0X13D,Ringbuffer#245=0X13E,Ringbuffer#246=0X13F,Ringbuffer#247=0X140 variable Ringbuffer#248=0X141,Ringbuffer#249=0X142,Ringbuffer#250=0X143,Ringbuffer#251=0X144 variable Ringbuffer#252=0X145,Ringbuffer#253=0X146,Ringbuffer#254=0X147,Ringbuffer#255=0X148 TimVals = 0X149 TimValsH = 0X14A TimValsHH = 0X14B TimValsHHH = 0X14C variable TimVals#0=0X149,TimVals#0H=0X14A,TimVals#0HH=0X14B,TimVals#0HHH=0X14C variable TimVals#1=0X14D,TimVals#1H=0X14E,TimVals#1HH=0X14F,TimVals#1HHH=0X150 variable TimVals#2=0X151,TimVals#2H=0X152,TimVals#2HH=0X153,TimVals#2HHH=0X154 variable TimVals#3=0X155,TimVals#3H=0X156,TimVals#3HH=0X157,TimVals#3HHH=0X158 variable TimVals#4=0X159,TimVals#4H=0X15A,TimVals#4HH=0X15B,TimVals#4HHH=0X15C variable TimVals#5=0X15D,TimVals#5H=0X15E,TimVals#5HH=0X15F,TimVals#5HHH=0X160 variable TimVals#6=0X161,TimVals#6H=0X162,TimVals#6HH=0X163,TimVals#6HHH=0X164 variable TimVals#7=0X165,TimVals#7H=0X166,TimVals#7HH=0X167,TimVals#7HHH=0X168 variable TimVals#8=0X169,TimVals#8H=0X16A,TimVals#8HH=0X16B,TimVals#8HHH=0X16C variable TimVals#9=0X16D,TimVals#9H=0X16E,TimVals#9HH=0X16F,TimVals#9HHH=0X170 variable TimVals#10=0X171,TimVals#10H=0X172,TimVals#10HH=0X173,TimVals#10HHH=0X174 variable TimVals#11=0X175,TimVals#11H=0X176,TimVals#11HH=0X177,TimVals#11HHH=0X178 variable TimVals#12=0X179,TimVals#12H=0X17A,TimVals#12HH=0X17B,TimVals#12HHH=0X17C variable TimVals#13=0X17D,TimVals#13H=0X17E,TimVals#13HH=0X17F,TimVals#13HHH=0X180 variable TimVals#14=0X181,TimVals#14H=0X182,TimVals#14HH=0X183,TimVals#14HHH=0X184 variable TimVals#15=0X185,TimVals#15H=0X186,TimVals#15HH=0X187,TimVals#15HHH=0X188 variable TimVals#16=0X189,TimVals#16H=0X18A,TimVals#16HH=0X18B,TimVals#16HHH=0X18C variable TimVals#17=0X18D,TimVals#17H=0X18E,TimVals#17HH=0X18F,TimVals#17HHH=0X190 notes = 0X191 notesH = 0X192 notesHH = 0X193 notesHHH = 0X194 Dur0 = 0X195 Dur0H = 0X196 variable Dur0#0=0X195,Dur0#0H=0X196,Dur0#1=0X197,Dur0#1H=0X198 variable Dur0#2=0X199,Dur0#2H=0X19A,Dur0#3=0X19B,Dur0#3H=0X19C variable Dur0#4=0X19D,Dur0#4H=0X19E,Dur0#5=0X19F,Dur0#5H=0X1A0 variable Dur0#6=0X1A1,Dur0#6H=0X1A2,Dur0#7=0X1A3,Dur0#7H=0X1A4 variable Dur0#8=0X1A5,Dur0#8H=0X1A6,Dur0#9=0X1A7,Dur0#9H=0X1A8 variable Dur0#10=0X1A9,Dur0#10H=0X1AA,Dur0#11=0X1AB,Dur0#11H=0X1AC variable Dur0#12=0X1AD,Dur0#12H=0X1AE,Dur0#13=0X1AF,Dur0#13H=0X1B0 variable Dur0#14=0X1B1,Dur0#14H=0X1B2,Dur0#15=0X1B3,Dur0#15H=0X1B4 variable Dur0#16=0X1B5,Dur0#16H=0X1B6,Dur0#17=0X1B7,Dur0#17H=0X1B8 variable Dur0#18=0X1B9,Dur0#18H=0X1BA,Dur0#19=0X1BB,Dur0#19H=0X1BC variable Dur0#20=0X1BD,Dur0#20H=0X1BE,Dur0#21=0X1BF,Dur0#21H=0X1C0 variable Dur0#22=0X1C1,Dur0#22H=0X1C2,Dur0#23=0X1C3,Dur0#23H=0X1C4 variable Dur0#24=0X1C5,Dur0#24H=0X1C6,Dur0#25=0X1C7,Dur0#25H=0X1C8 variable Dur0#26=0X1C9,Dur0#26H=0X1CA,Dur0#27=0X1CB,Dur0#27H=0X1CC variable Dur0#28=0X1CD,Dur0#28H=0X1CE,Dur0#29=0X1CF,Dur0#29H=0X1D0 variable Dur0#30=0X1D1,Dur0#30H=0X1D2,Dur0#31=0X1D3,Dur0#31H=0X1D4 variable Dur0#32=0X1D5,Dur0#32H=0X1D6,Dur0#33=0X1D7,Dur0#33H=0X1D8 variable Dur0#34=0X1D9,Dur0#34H=0X1DA,Dur0#35=0X1DB,Dur0#35H=0X1DC variable Dur0#36=0X1DD,Dur0#36H=0X1DE,Dur0#37=0X1DF,Dur0#37H=0X1E0 variable Dur0#38=0X1E1,Dur0#38H=0X1E2,Dur0#39=0X1E3,Dur0#39H=0X1E4 variable Dur0#40=0X1E5,Dur0#40H=0X1E6,Dur0#41=0X1E7,Dur0#41H=0X1E8 variable Dur0#42=0X1E9,Dur0#42H=0X1EA,Dur0#43=0X1EB,Dur0#43H=0X1EC variable Dur0#44=0X1ED,Dur0#44H=0X1EE,Dur0#45=0X1EF,Dur0#45H=0X1F0 variable Dur0#46=0X1F1,Dur0#46H=0X1F2,Dur0#47=0X1F3,Dur0#47H=0X1F4 variable Dur0#48=0X1F5,Dur0#48H=0X1F6,Dur0#49=0X1F7,Dur0#49H=0X1F8 variable Dur0#50=0X1F9,Dur0#50H=0X1FA,Dur0#51=0X1FB,Dur0#51H=0X1FC variable Dur0#52=0X1FD,Dur0#52H=0X1FE,Dur0#53=0X1FF,Dur0#53H=0X200 variable Dur0#54=0X201,Dur0#54H=0X202,Dur0#55=0X203,Dur0#55H=0X204 variable Dur0#56=0X205,Dur0#56H=0X206,Dur0#57=0X207,Dur0#57H=0X208 variable Dur0#58=0X209,Dur0#58H=0X20A,Dur0#59=0X20B,Dur0#59H=0X20C variable Dur0#60=0X20D,Dur0#60H=0X20E,Dur0#61=0X20F,Dur0#61H=0X210 variable Dur0#62=0X211,Dur0#62H=0X212,Dur0#63=0X213,Dur0#63H=0X214 variable Dur0#64=0X215,Dur0#64H=0X216,Dur0#65=0X217,Dur0#65H=0X218 variable Dur0#66=0X219,Dur0#66H=0X21A,Dur0#67=0X21B,Dur0#67H=0X21C variable Dur0#68=0X21D,Dur0#68H=0X21E,Dur0#69=0X21F,Dur0#69H=0X220 variable Dur0#70=0X221,Dur0#70H=0X222,Dur0#71=0X223,Dur0#71H=0X224 variable Dur0#72=0X225,Dur0#72H=0X226,Dur0#73=0X227,Dur0#73H=0X228 variable Dur0#74=0X229,Dur0#74H=0X22A,Dur0#75=0X22B,Dur0#75H=0X22C variable Dur0#76=0X22D,Dur0#76H=0X22E,Dur0#77=0X22F,Dur0#77H=0X230 variable Dur0#78=0X231,Dur0#78H=0X232,Dur0#79=0X233,Dur0#79H=0X234 variable Dur0#80=0X235,Dur0#80H=0X236,Dur0#81=0X237,Dur0#81H=0X238 variable Dur0#82=0X239,Dur0#82H=0X23A,Dur0#83=0X23B,Dur0#83H=0X23C variable Dur0#84=0X23D,Dur0#84H=0X23E,Dur0#85=0X23F,Dur0#85H=0X240 variable Dur0#86=0X241,Dur0#86H=0X242,Dur0#87=0X243,Dur0#87H=0X244 variable Dur0#88=0X245,Dur0#88H=0X246,Dur0#89=0X247,Dur0#89H=0X248 variable Dur0#90=0X249,Dur0#90H=0X24A,Dur0#91=0X24B,Dur0#91H=0X24C variable Dur0#92=0X24D,Dur0#92H=0X24E,Dur0#93=0X24F,Dur0#93H=0X250 variable Dur0#94=0X251,Dur0#94H=0X252,Dur0#95=0X253,Dur0#95H=0X254 variable Dur0#96=0X255,Dur0#96H=0X256,Dur0#97=0X257,Dur0#97H=0X258 variable Dur0#98=0X259,Dur0#98H=0X25A,Dur0#99=0X25B,Dur0#99H=0X25C variable Dur0#100=0X25D,Dur0#100H=0X25E,Dur0#101=0X25F,Dur0#101H=0X260 variable Dur0#102=0X261,Dur0#102H=0X262,Dur0#103=0X263,Dur0#103H=0X264 variable Dur0#104=0X265,Dur0#104H=0X266,Dur0#105=0X267,Dur0#105H=0X268 variable Dur0#106=0X269,Dur0#106H=0X26A,Dur0#107=0X26B,Dur0#107H=0X26C variable Dur0#108=0X26D,Dur0#108H=0X26E,Dur0#109=0X26F,Dur0#109H=0X270 variable Dur0#110=0X271,Dur0#110H=0X272,Dur0#111=0X273,Dur0#111H=0X274 variable Dur0#112=0X275,Dur0#112H=0X276,Dur0#113=0X277,Dur0#113H=0X278 variable Dur0#114=0X279,Dur0#114H=0X27A,Dur0#115=0X27B,Dur0#115H=0X27C variable Dur0#116=0X27D,Dur0#116H=0X27E,Dur0#117=0X27F,Dur0#117H=0X280 variable Dur0#118=0X281,Dur0#118H=0X282,Dur0#119=0X283,Dur0#119H=0X284 variable Dur0#120=0X285,Dur0#120H=0X286,Dur0#121=0X287,Dur0#121H=0X288 variable Dur0#122=0X289,Dur0#122H=0X28A,Dur0#123=0X28B,Dur0#123H=0X28C variable Dur0#124=0X28D,Dur0#124H=0X28E,Dur0#125=0X28F,Dur0#125H=0X290 variable Dur0#126=0X291,Dur0#126H=0X292,Dur0#127=0X293,Dur0#127H=0X294 Dur1 = 0X295 Dur1H = 0X296 variable Dur1#0=0X295,Dur1#0H=0X296,Dur1#1=0X297,Dur1#1H=0X298 variable Dur1#2=0X299,Dur1#2H=0X29A,Dur1#3=0X29B,Dur1#3H=0X29C variable Dur1#4=0X29D,Dur1#4H=0X29E,Dur1#5=0X29F,Dur1#5H=0X2A0 variable Dur1#6=0X2A1,Dur1#6H=0X2A2,Dur1#7=0X2A3,Dur1#7H=0X2A4 variable Dur1#8=0X2A5,Dur1#8H=0X2A6,Dur1#9=0X2A7,Dur1#9H=0X2A8 variable Dur1#10=0X2A9,Dur1#10H=0X2AA,Dur1#11=0X2AB,Dur1#11H=0X2AC variable Dur1#12=0X2AD,Dur1#12H=0X2AE,Dur1#13=0X2AF,Dur1#13H=0X2B0 variable Dur1#14=0X2B1,Dur1#14H=0X2B2,Dur1#15=0X2B3,Dur1#15H=0X2B4 variable Dur1#16=0X2B5,Dur1#16H=0X2B6,Dur1#17=0X2B7,Dur1#17H=0X2B8 variable Dur1#18=0X2B9,Dur1#18H=0X2BA,Dur1#19=0X2BB,Dur1#19H=0X2BC variable Dur1#20=0X2BD,Dur1#20H=0X2BE,Dur1#21=0X2BF,Dur1#21H=0X2C0 variable Dur1#22=0X2C1,Dur1#22H=0X2C2,Dur1#23=0X2C3,Dur1#23H=0X2C4 variable Dur1#24=0X2C5,Dur1#24H=0X2C6,Dur1#25=0X2C7,Dur1#25H=0X2C8 variable Dur1#26=0X2C9,Dur1#26H=0X2CA,Dur1#27=0X2CB,Dur1#27H=0X2CC variable Dur1#28=0X2CD,Dur1#28H=0X2CE,Dur1#29=0X2CF,Dur1#29H=0X2D0 variable Dur1#30=0X2D1,Dur1#30H=0X2D2,Dur1#31=0X2D3,Dur1#31H=0X2D4 variable Dur1#32=0X2D5,Dur1#32H=0X2D6,Dur1#33=0X2D7,Dur1#33H=0X2D8 variable Dur1#34=0X2D9,Dur1#34H=0X2DA,Dur1#35=0X2DB,Dur1#35H=0X2DC variable Dur1#36=0X2DD,Dur1#36H=0X2DE,Dur1#37=0X2DF,Dur1#37H=0X2E0 variable Dur1#38=0X2E1,Dur1#38H=0X2E2,Dur1#39=0X2E3,Dur1#39H=0X2E4 variable Dur1#40=0X2E5,Dur1#40H=0X2E6,Dur1#41=0X2E7,Dur1#41H=0X2E8 variable Dur1#42=0X2E9,Dur1#42H=0X2EA,Dur1#43=0X2EB,Dur1#43H=0X2EC variable Dur1#44=0X2ED,Dur1#44H=0X2EE,Dur1#45=0X2EF,Dur1#45H=0X2F0 variable Dur1#46=0X2F1,Dur1#46H=0X2F2,Dur1#47=0X2F3,Dur1#47H=0X2F4 variable Dur1#48=0X2F5,Dur1#48H=0X2F6,Dur1#49=0X2F7,Dur1#49H=0X2F8 variable Dur1#50=0X2F9,Dur1#50H=0X2FA,Dur1#51=0X2FB,Dur1#51H=0X2FC variable Dur1#52=0X2FD,Dur1#52H=0X2FE,Dur1#53=0X2FF,Dur1#53H=0X300 variable Dur1#54=0X301,Dur1#54H=0X302,Dur1#55=0X303,Dur1#55H=0X304 variable Dur1#56=0X305,Dur1#56H=0X306,Dur1#57=0X307,Dur1#57H=0X308 variable Dur1#58=0X309,Dur1#58H=0X30A,Dur1#59=0X30B,Dur1#59H=0X30C variable Dur1#60=0X30D,Dur1#60H=0X30E,Dur1#61=0X30F,Dur1#61H=0X310 variable Dur1#62=0X311,Dur1#62H=0X312,Dur1#63=0X313,Dur1#63H=0X314 variable Dur1#64=0X315,Dur1#64H=0X316,Dur1#65=0X317,Dur1#65H=0X318 variable Dur1#66=0X319,Dur1#66H=0X31A,Dur1#67=0X31B,Dur1#67H=0X31C variable Dur1#68=0X31D,Dur1#68H=0X31E,Dur1#69=0X31F,Dur1#69H=0X320 variable Dur1#70=0X321,Dur1#70H=0X322,Dur1#71=0X323,Dur1#71H=0X324 variable Dur1#72=0X325,Dur1#72H=0X326,Dur1#73=0X327,Dur1#73H=0X328 variable Dur1#74=0X329,Dur1#74H=0X32A,Dur1#75=0X32B,Dur1#75H=0X32C variable Dur1#76=0X32D,Dur1#76H=0X32E,Dur1#77=0X32F,Dur1#77H=0X330 variable Dur1#78=0X331,Dur1#78H=0X332,Dur1#79=0X333,Dur1#79H=0X334 variable Dur1#80=0X335,Dur1#80H=0X336,Dur1#81=0X337,Dur1#81H=0X338 variable Dur1#82=0X339,Dur1#82H=0X33A,Dur1#83=0X33B,Dur1#83H=0X33C variable Dur1#84=0X33D,Dur1#84H=0X33E,Dur1#85=0X33F,Dur1#85H=0X340 variable Dur1#86=0X341,Dur1#86H=0X342,Dur1#87=0X343,Dur1#87H=0X344 variable Dur1#88=0X345,Dur1#88H=0X346,Dur1#89=0X347,Dur1#89H=0X348 variable Dur1#90=0X349,Dur1#90H=0X34A,Dur1#91=0X34B,Dur1#91H=0X34C variable Dur1#92=0X34D,Dur1#92H=0X34E,Dur1#93=0X34F,Dur1#93H=0X350 variable Dur1#94=0X351,Dur1#94H=0X352,Dur1#95=0X353,Dur1#95H=0X354 variable Dur1#96=0X355,Dur1#96H=0X356,Dur1#97=0X357,Dur1#97H=0X358 variable Dur1#98=0X359,Dur1#98H=0X35A,Dur1#99=0X35B,Dur1#99H=0X35C variable Dur1#100=0X35D,Dur1#100H=0X35E,Dur1#101=0X35F,Dur1#101H=0X360 variable Dur1#102=0X361,Dur1#102H=0X362,Dur1#103=0X363,Dur1#103H=0X364 variable Dur1#104=0X365,Dur1#104H=0X366,Dur1#105=0X367,Dur1#105H=0X368 variable Dur1#106=0X369,Dur1#106H=0X36A,Dur1#107=0X36B,Dur1#107H=0X36C variable Dur1#108=0X36D,Dur1#108H=0X36E,Dur1#109=0X36F,Dur1#109H=0X370 variable Dur1#110=0X371,Dur1#110H=0X372,Dur1#111=0X373,Dur1#111H=0X374 variable Dur1#112=0X375,Dur1#112H=0X376,Dur1#113=0X377,Dur1#113H=0X378 variable Dur1#114=0X379,Dur1#114H=0X37A,Dur1#115=0X37B,Dur1#115H=0X37C variable Dur1#116=0X37D,Dur1#116H=0X37E,Dur1#117=0X37F,Dur1#117H=0X380 variable Dur1#118=0X381,Dur1#118H=0X382,Dur1#119=0X383,Dur1#119H=0X384 variable Dur1#120=0X385,Dur1#120H=0X386,Dur1#121=0X387,Dur1#121H=0X388 variable Dur1#122=0X389,Dur1#122H=0X38A,Dur1#123=0X38B,Dur1#123H=0X38C variable Dur1#124=0X38D,Dur1#124H=0X38E,Dur1#125=0X38F,Dur1#125H=0X390 variable Dur1#126=0X391,Dur1#126H=0X392,Dur1#127=0X393,Dur1#127H=0X394 Dur2 = 0X395 Dur2H = 0X396 variable Dur2#0=0X395,Dur2#0H=0X396,Dur2#1=0X397,Dur2#1H=0X398 variable Dur2#2=0X399,Dur2#2H=0X39A,Dur2#3=0X39B,Dur2#3H=0X39C variable Dur2#4=0X39D,Dur2#4H=0X39E,Dur2#5=0X39F,Dur2#5H=0X3A0 variable Dur2#6=0X3A1,Dur2#6H=0X3A2,Dur2#7=0X3A3,Dur2#7H=0X3A4 variable Dur2#8=0X3A5,Dur2#8H=0X3A6,Dur2#9=0X3A7,Dur2#9H=0X3A8 variable Dur2#10=0X3A9,Dur2#10H=0X3AA,Dur2#11=0X3AB,Dur2#11H=0X3AC variable Dur2#12=0X3AD,Dur2#12H=0X3AE,Dur2#13=0X3AF,Dur2#13H=0X3B0 variable Dur2#14=0X3B1,Dur2#14H=0X3B2,Dur2#15=0X3B3,Dur2#15H=0X3B4 variable Dur2#16=0X3B5,Dur2#16H=0X3B6,Dur2#17=0X3B7,Dur2#17H=0X3B8 variable Dur2#18=0X3B9,Dur2#18H=0X3BA,Dur2#19=0X3BB,Dur2#19H=0X3BC variable Dur2#20=0X3BD,Dur2#20H=0X3BE,Dur2#21=0X3BF,Dur2#21H=0X3C0 variable Dur2#22=0X3C1,Dur2#22H=0X3C2,Dur2#23=0X3C3,Dur2#23H=0X3C4 variable Dur2#24=0X3C5,Dur2#24H=0X3C6,Dur2#25=0X3C7,Dur2#25H=0X3C8 variable Dur2#26=0X3C9,Dur2#26H=0X3CA,Dur2#27=0X3CB,Dur2#27H=0X3CC variable Dur2#28=0X3CD,Dur2#28H=0X3CE,Dur2#29=0X3CF,Dur2#29H=0X3D0 variable Dur2#30=0X3D1,Dur2#30H=0X3D2,Dur2#31=0X3D3,Dur2#31H=0X3D4 variable Dur2#32=0X3D5,Dur2#32H=0X3D6,Dur2#33=0X3D7,Dur2#33H=0X3D8 variable Dur2#34=0X3D9,Dur2#34H=0X3DA,Dur2#35=0X3DB,Dur2#35H=0X3DC variable Dur2#36=0X3DD,Dur2#36H=0X3DE,Dur2#37=0X3DF,Dur2#37H=0X3E0 variable Dur2#38=0X3E1,Dur2#38H=0X3E2,Dur2#39=0X3E3,Dur2#39H=0X3E4 variable Dur2#40=0X3E5,Dur2#40H=0X3E6,Dur2#41=0X3E7,Dur2#41H=0X3E8 variable Dur2#42=0X3E9,Dur2#42H=0X3EA,Dur2#43=0X3EB,Dur2#43H=0X3EC variable Dur2#44=0X3ED,Dur2#44H=0X3EE,Dur2#45=0X3EF,Dur2#45H=0X3F0 variable Dur2#46=0X3F1,Dur2#46H=0X3F2,Dur2#47=0X3F3,Dur2#47H=0X3F4 variable Dur2#48=0X3F5,Dur2#48H=0X3F6,Dur2#49=0X3F7,Dur2#49H=0X3F8 variable Dur2#50=0X3F9,Dur2#50H=0X3FA,Dur2#51=0X3FB,Dur2#51H=0X3FC variable Dur2#52=0X3FD,Dur2#52H=0X3FE,Dur2#53=0X3FF,Dur2#53H=0X400 variable Dur2#54=0X401,Dur2#54H=0X402,Dur2#55=0X403,Dur2#55H=0X404 variable Dur2#56=0X405,Dur2#56H=0X406,Dur2#57=0X407,Dur2#57H=0X408 variable Dur2#58=0X409,Dur2#58H=0X40A,Dur2#59=0X40B,Dur2#59H=0X40C variable Dur2#60=0X40D,Dur2#60H=0X40E,Dur2#61=0X40F,Dur2#61H=0X410 variable Dur2#62=0X411,Dur2#62H=0X412,Dur2#63=0X413,Dur2#63H=0X414 variable Dur2#64=0X415,Dur2#64H=0X416,Dur2#65=0X417,Dur2#65H=0X418 variable Dur2#66=0X419,Dur2#66H=0X41A,Dur2#67=0X41B,Dur2#67H=0X41C variable Dur2#68=0X41D,Dur2#68H=0X41E,Dur2#69=0X41F,Dur2#69H=0X420 variable Dur2#70=0X421,Dur2#70H=0X422,Dur2#71=0X423,Dur2#71H=0X424 variable Dur2#72=0X425,Dur2#72H=0X426,Dur2#73=0X427,Dur2#73H=0X428 variable Dur2#74=0X429,Dur2#74H=0X42A,Dur2#75=0X42B,Dur2#75H=0X42C variable Dur2#76=0X42D,Dur2#76H=0X42E,Dur2#77=0X42F,Dur2#77H=0X430 variable Dur2#78=0X431,Dur2#78H=0X432,Dur2#79=0X433,Dur2#79H=0X434 variable Dur2#80=0X435,Dur2#80H=0X436,Dur2#81=0X437,Dur2#81H=0X438 variable Dur2#82=0X439,Dur2#82H=0X43A,Dur2#83=0X43B,Dur2#83H=0X43C variable Dur2#84=0X43D,Dur2#84H=0X43E,Dur2#85=0X43F,Dur2#85H=0X440 variable Dur2#86=0X441,Dur2#86H=0X442,Dur2#87=0X443,Dur2#87H=0X444 variable Dur2#88=0X445,Dur2#88H=0X446,Dur2#89=0X447,Dur2#89H=0X448 variable Dur2#90=0X449,Dur2#90H=0X44A,Dur2#91=0X44B,Dur2#91H=0X44C variable Dur2#92=0X44D,Dur2#92H=0X44E,Dur2#93=0X44F,Dur2#93H=0X450 variable Dur2#94=0X451,Dur2#94H=0X452,Dur2#95=0X453,Dur2#95H=0X454 variable Dur2#96=0X455,Dur2#96H=0X456,Dur2#97=0X457,Dur2#97H=0X458 variable Dur2#98=0X459,Dur2#98H=0X45A,Dur2#99=0X45B,Dur2#99H=0X45C variable Dur2#100=0X45D,Dur2#100H=0X45E,Dur2#101=0X45F,Dur2#101H=0X460 variable Dur2#102=0X461,Dur2#102H=0X462,Dur2#103=0X463,Dur2#103H=0X464 variable Dur2#104=0X465,Dur2#104H=0X466,Dur2#105=0X467,Dur2#105H=0X468 variable Dur2#106=0X469,Dur2#106H=0X46A,Dur2#107=0X46B,Dur2#107H=0X46C variable Dur2#108=0X46D,Dur2#108H=0X46E,Dur2#109=0X46F,Dur2#109H=0X470 variable Dur2#110=0X471,Dur2#110H=0X472,Dur2#111=0X473,Dur2#111H=0X474 variable Dur2#112=0X475,Dur2#112H=0X476,Dur2#113=0X477,Dur2#113H=0X478 variable Dur2#114=0X479,Dur2#114H=0X47A,Dur2#115=0X47B,Dur2#115H=0X47C variable Dur2#116=0X47D,Dur2#116H=0X47E,Dur2#117=0X47F,Dur2#117H=0X480 variable Dur2#118=0X481,Dur2#118H=0X482,Dur2#119=0X483,Dur2#119H=0X484 variable Dur2#120=0X485,Dur2#120H=0X486,Dur2#121=0X487,Dur2#121H=0X488 variable Dur2#122=0X489,Dur2#122H=0X48A,Dur2#123=0X48B,Dur2#123H=0X48C variable Dur2#124=0X48D,Dur2#124H=0X48E,Dur2#125=0X48F,Dur2#125H=0X490 variable Dur2#126=0X491,Dur2#126H=0X492,Dur2#127=0X493,Dur2#127H=0X494 stap = 0X495 stapH = 0X496 stapHH = 0X497 stapHHH = 0X498 tmp = 0X499 tmpH = 0X49A tmpHH = 0X49B tmpHHH = 0X49C ; HEAP VARIABLES _Low__Context_Store = 0X49D variable _Low__Context_Store#0=0X49D,_Low__Context_Store#1=0X49E,_Low__Context_Store#2=0X49F ; ALIAS VARIABLES #define CntHw CntHH #define CntHwH CntHHH #define CntLw TMR0L #define CntLwH TMR0LH #define time Cnt #define timeH CntH #define timeHH CntHH #define timeHHH CntHHH #define Cnt3Hw Cnt3HH #define Cnt3HwH Cnt3HHH #define Tim3 TMR3L #define Tim3H TMR3LH #define StBit Bytein,7 #define maxtim timeHHH,7 #define tg tog,0 #define PowerOn CC66,0 #define Resort_flag Resort,0 ; CONSTANTS #define __Optimiser_Level 3 #define __Xtal 40 #define PWMMINF 2442 #define PWMminFH 9 #define LOWTES 48 #define HIGHTES 65 #define MIDICHANNEL 4 #define NOTEOFF_STATUS 132 #define NOTEON_STATUS 148 #define KEYPRES_STATUS 164 #define CONTROL_STATUS 180 #define PROGCHANGE_STATUS 196 #define AFTERTOUCH_STATUS 212 #define PITCHBEND_STATUS 228 #define NRTASKS 18 #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 return __delay_ms_ clrf PP1H __delay_ms_w_ movwf PP1 __delayms_from_regs__ movlw 255 addwf PP1,F addwfc PP1H,F bra $ + 2 btfss STATUS,0 return movlw 3 movwf PP0H movlw 230 rcall __delay_us_w_ bra __delayms_from_regs__ __delay_us_ clrf PP0H __delay_us_w_ addlw 254 movwf PP0 clrf WREG subwfb PP0H,F btfss STATUS,0 return nop decf PP0,F bra $ + 2 bra $ - 14 __fpsub_32__ movlw 128 xorwf PP_BARGH,F __fpadd_32__ movf PP_BARG,W subwf PP_AARG,W movwf _BEXP bc __fpadd_32_1 negf _BEXP,0 movf PP_AARG,W movff PP_BARG,PP_AARG movwf PP_BARG movf PP_AARGH,W movff PP_BARGH,PP_AARGH movwf PP_BARGH movf PP_AARGHH,W movff PP_BARGHH,PP_AARGHH movwf PP_BARGHH movf PP_AARGHHH,W movff PP_BARGHHH,PP_AARGHHH movwf PP_BARGHHH __fpadd_32_1 movlw 26 cpfslt _BEXP,0 bra __fpadd_32_ret movf PP_BARG,F bz __fpadd_32_ret clrf _AEXP movf PP_AARGH,W movwf _FP_TEMP xorwf PP_BARGH,W movwf _FP_SIGN bsf PP_AARGH,7 bsf PP_BARGH,7 __fpadd_32_2 movlw 8 subwf _BEXP,F bnc __fpadd_32_3 movff PP_BARGHHH,_AEXP movff PP_BARGHH,PP_BARGHHH movff PP_BARGH,PP_BARGHH clrf PP_BARGH bra __fpadd_32_2 __fpadd_32_3 addwf _BEXP,F bz __fpadd_32_5 __fpadd_32_4 bcf STATUS,0 rrcf PP_BARGH,F rrcf PP_BARGHH,F rrcf PP_BARGHHH,F rrcf _AEXP,F decfsz _BEXP,F bra __fpadd_32_4 __fpadd_32_5 btfss _FP_SIGN,7 bra __fpadd_32_11 movf PP_BARGHHH,W subwf PP_AARGHHH,F movf PP_BARGHH,W subwfb PP_AARGHH,F movf PP_BARGH,W subwfb PP_AARGH,F bc __fpadd_32_6 bsf STATUS,0 movlw 0 subfwb PP_AARGHHH,F subfwb PP_AARGHH,F subfwb PP_AARGH,F movlw 128 xorwf _FP_TEMP,F __fpadd_32_6 negf _AEXP,0 bz __fpadd_32_7 decf PP_AARGHHH,F movlw 0 subwfb PP_AARGHH,F subwfb PP_AARGH,F __fpadd_32_7 movlw 4 movwf _BEXP __fpadd_32_8 tstfsz PP_AARGH,0 bra __fpadd_32_9 movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH movff _AEXP,PP_AARGHHH clrf _AEXP movlw 8 subwf PP_AARG,F bnc __fpadd_32_Res0 decfsz _BEXP,F bra __fpadd_32_8 bra __fpadd_32_Res0 __fpadd_32_9 btfsc PP_AARGH,7 bra __fpadd_32_10 bcf STATUS,0 rlcf _AEXP,F rlcf PP_AARGHHH,F rlcf PP_AARGHH,F rlcf PP_AARGH,F decfsz PP_AARG,F bra __fpadd_32_9 bra __fpadd_32_Res0 __fpadd_32_10 btfss _AEXP,7 bra __fpadd_32_Set_Sign clrf _AEXP bra __fpadd_32_increment __fpadd_32_11 movf PP_BARGHHH,W addwf PP_AARGHHH,F movf PP_BARGHH,W addwfc PP_AARGHH,F movf PP_BARGH,W addwfc PP_AARGH,F bnc __fpadd_32_13 __fpadd_32_adjust_right rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F rrcf _AEXP,F infsnz PP_AARG,F bra __fpadd_32_Overflow __fpadd_32_13 btfss _AEXP,7 bra __fpadd_32_Set_Sign __fpadd_32_increment incfsz PP_AARGHHH,F bra __fpadd_32_Set_Sign incfsz PP_AARGHH,F bra __fpadd_32_Set_Sign incfsz PP_AARGH,F bra __fpadd_32_Set_Sign bsf STATUS,0 bcf PP_AARGHHH,0 bra __fpadd_32_adjust_right __fpadd_32_Res0 clrf PP_AARG bra __fpadd_32_Mantissa __fpadd_32_Overflow bsf _FP_FLAGS,1 setf PP_AARG __fpadd_32_Mantissa clrf PP_AARGHHH clrf PP_AARGHH movlw 128 movwf PP_AARGH __fpadd_32_Set_Sign btfss _FP_TEMP,7 bcf PP_AARGH,7 __fpadd_32_ret movf PP_AARGHHH,W return __fpmult_32__ movf PP_AARGH,W movwf PPZHH xorwf PP_BARGH,W movwf _FP_SIGN movf PP_AARG,W btfss STATUS,2 movf PP_BARG,W bz __fpmult_32_Res0 addwf PP_AARG,F movlw 126 bnc __fpmult_32_1 subwf PP_AARG,F bnc __fpmult_32_2 bra __fpmult_32_Overflow __fpmult_32_1 subwf PP_AARG,F bnc __fpmult_32_Underflow __fpmult_32_2 movff PP_AARGHHH,PPZ movff PP_AARGHH,PPZH bsf PPZHH,7 bsf PP_BARGH,7 clrf PP_AARGHHH clrf PP_AARGHH clrf PP_AARGH movlw 24 movwf _FP_TEMP __fpmult_32_3 rrcf PPZHH,F rrcf PPZH,F rrcf PPZ,F bnc __fpmult_32_4 movf PP_BARGHHH,W addwf PP_AARGHHH,F movf PP_BARGHH,W addwfc PP_AARGHH,F movf PP_BARGH,W addwfc PP_AARGH,F __fpmult_32_4 rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F decfsz _FP_TEMP,F bra __fpmult_32_3 btfsc PP_AARGH,7 bra __fpmult_32_5 rlcf PP_AARGHHH,F rlcf PP_AARGHH,F rlcf PP_AARGH,F movf PP_AARG,F bz __fpmult_32_Underflow decf PP_AARG,F rlcf PPZHH,W __fpmult_32_5 bnc __fpmult_32_Set_Sign incfsz PP_AARGHHH,F bra __fpmult_32_Set_Sign incfsz PP_AARGHH,F bra __fpmult_32_Set_Sign incfsz PP_AARGH,F bra __fpmult_32_Set_Sign bsf STATUS,0 rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F incfsz PP_AARG,F bra __fpmult_32_Set_Sign bra __fpmult_32_Overflow __fpmult_32_Underflow bsf _FP_FLAGS,2 __fpmult_32_Res0 clrf PP_AARG bra __fpmult_32_Mantissa __fpmult_32_Overflow bsf _FP_FLAGS,1 setf PP_AARG __fpmult_32_Mantissa clrf PP_AARGHHH clrf PP_AARGHH movlw 128 movwf PP_AARGH __fpmult_32_Set_Sign btfss _FP_SIGN,7 bcf PP_AARGH,7 movf PP_AARGHHH,W return _Fl32_To_Int32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH rlcf PP_AARGHHH,F rrcf _FP_TEMP,F rrcf PP_AARGHHH,F clrf _FP_FLAGS rlcf PP_AARGHHH,F rlcf _FP_TEMP,F bnc _Fl32Int__UnpkA1 bsf _FP_FLAGS,2 btg _FP_FLAGS,7,0 _Fl32Int__UnpkA1 bnz _Fl32Int__UnpkANZ bsf _FP_FLAGS,0 clrf _FP_TEMP clrf PP_AARGHHH clrf PP_AARGHH clrf PP_AARGH bra _Fl32IntUnp__Exit _Fl32Int__UnpkANZ incf _FP_TEMP,W bz _Fl32Int__UnpkA2 bsf STATUS,0 rrcf PP_AARGHHH,F bra _Fl32IntUnp__Exit _Fl32Int__UnpkA2 bcf STATUS,0 rrcf PP_AARGHHH,F bnz _Fl32Int__UnpkNaN bsf _FP_FLAGS,1 bra _Fl32IntUnp__Exit _Fl32Int__UnpkNaN bsf _FP_FLAGS,3 _Fl32IntUnp__Exit btfsc _FP_FLAGS,3 bra _Fl32Int__MaxPos btfss _FP_FLAGS,1 bra _Fl32Int__NotInf _Fl32Int__Max btfsc _FP_FLAGS,2 bra _Fl32Int__MaxNeg _Fl32Int__MaxPos movlw 127 movwf PP_AARGHHH movlw 255 _Fl32Int__Wr123 movwf PP_AARGHH movwf PP_AARGH movwf PP_AARG bra _Fl32Int__Exit _Fl32Int__MaxNeg movlw 128 movwf PP_AARGHHH bra _Fl32Int__WrZ123 _Fl32Int__Zero clrf PP_AARGHHH _Fl32Int__WrZ123 movlw 0 bra _Fl32Int__Wr123 _Fl32Int__NotInf btfsc _FP_FLAGS,0 bra _Fl32Int__Zero clrf PP_AARG movlw 159 cpfslt _FP_TEMP,0 bra _Fl32Int__Max movlw 126 cpfsgt _FP_TEMP,0 bra _Fl32Int__Zero _Fl32Int__Loop movlw 158 subwf _FP_TEMP,W bz _Fl32Int__LoopExit bcf STATUS,0 rrcf PP_AARGHHH,F rrcf PP_AARGHH,F rrcf PP_AARGH,F rrcf PP_AARG,F incf _FP_TEMP,F bra _Fl32Int__Loop _Fl32Int__LoopExit btfss _FP_FLAGS,2 bra _Fl32Int__Exit bsf STATUS,0 movlw 0 subfwb PP_AARG,F subfwb PP_AARGH,F subfwb PP_AARGHH,F subfwb PP_AARGHHH,F btfss PP_AARGHHH,7 bra _Fl32Int__Zero _Fl32Int__Exit movf PP_AARG,W return _Sgn_Int08_ToFl32 movwf PP_AARG movlw 0 btfsc PP_AARG,7 movlw 255 movwf PP_AARGH movwf PP_AARGHH movwf PP_AARGHHH bra _Sgn_Int32_ToFl32 _Uns_Int08_ToFl32 movwf PP_AARG clrf PP_AARGH _Uns_Int16_ToFl32 clrf PP_AARGHH clrf PP_AARGHHH _UnSgn_Int32_ToFl32 bcf _FP_SIGN,7 bra __Int32_ToFl32_L5 _Sgn_Int32_ToFl32 bcf _FP_SIGN,7 btfss PP_AARGHHH,7 bra __Int32_ToFl32_L5 bsf STATUS,0 movlw 0 subfwb PP_AARG,F subfwb PP_AARGH,F subfwb PP_AARGHH,F subfwb PP_AARGHHH,F bsf _FP_SIGN,7 __Int32_ToFl32_L5 movlw 150 movwf _FP_TEMP movf PP_AARGHHH,F bz __Int32_ToFl32_L7 __Int32_ToFl32_L17 movlw 8 addwf _FP_TEMP,F movff PP_AARGH,PP_AARG movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH bra __Int32_ToFl32_L18 __Int32_ToFl32_L7 movf PP_AARGHH,F bnz __Int32_ToFl32_L18 movlw 8 subwf _FP_TEMP,F movf PP_AARGH,W bnz __Int32_ToFl32_L20 movlw 8 subwf _FP_TEMP,F movf PP_AARG,W bnz __Int32_ToFl32_L22 movf PP_AARGHHH,W bra __Int32_ToFl32_Exit __Int32_ToFl32_L22 clrf PP_AARG __Int32_ToFl32_L20 movwf PP_AARGHH movff PP_AARG,PP_AARGH clrf PP_AARG __Int32_ToFl32_L18 btfsc PP_AARGHH,7 bra __Int32_ToFl32_L24 bcf STATUS,0 rlcf PP_AARG,F rlcf PP_AARGH,F rlcf PP_AARGHH,F decf _FP_TEMP,F bra __Int32_ToFl32_L18 __Int32_ToFl32_L24 btfss _FP_SIGN,7 bcf PP_AARGHH,7 __Int32_ToFl32_L26 movf _FP_TEMP,W __Int32_ToFl32_Exit movff PP_AARG,PP_AARGHHH movwf PP_AARG movf PP_AARGHH,W movff PP_AARGH,PP_AARGHH movwf PP_AARGH return proton#main#start movlw 64 movwf _FP_FLAGS clrf BPF ; UART1_ACTUALBAUD = 31250 ; UART1_BAUDERROR = 0 movlw 79 movwf SPBRG clrf SPBRGH movlw 36 movwf TXSTA movlw 144 movwf RCSTA movlb 0 F1_SOF equ $ ; TUBO_BEAT4865.BAS F2_SOF equ $ ; 18F4620.INC movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F4620.INC F1_000075 equ $ ; IN [TUBO_BEAT4865.BAS] DECLARE ALL_DIGITAL = TRUE F1_000076 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000078 equ $ ; IN [TUBO_BEAT4865.BAS] TRISA = %11000000 movlw 192 movwf TRISA,0 F1_000079 equ $ ; IN [TUBO_BEAT4865.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000080 equ $ ; IN [TUBO_BEAT4865.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000081 equ $ ; IN [TUBO_BEAT4865.BAS] TRISD = %00000000 clrf TRISD,0 F1_000082 equ $ ; IN [TUBO_BEAT4865.BAS] TRISE = %11101000 movlw 232 movwf TRISE,0 F3_SOF equ $ ; TUBO_DAMP_IRQ_000.INC F3_000043 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _UART_IRQ F3_000054 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _lbl__3 F3_000055 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] IF RCSTA.2 = 1 THEN btfss RCSTA,2,0 bra _lbl__5 F3_000056 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000057 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000058 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000059 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETFIE FAST retfie 1 F3_000060 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDIF _lbl__5 F3_000061 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] IF RCSTA.1 = 1 THEN btfss RCSTA,1,0 bra _lbl__7 F3_000062 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000063 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000064 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000065 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000066 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETFIE FAST retfie 1 F3_000067 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDIF _lbl__7 F3_000068 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] INC INDEXIN incf IndexIn,F,0 F3_000070 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RINGBUFFER[INDEXIN] = RCREG lfsr 0,Ringbuffer movf IndexIn,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff RCREG,INDF0 F3_000071 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETFIE FAST retfie 1 F3_000072 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDIF _lbl__3 _Timer0_IRQ F3_000074 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _lbl__9 F3_000075 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000076 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] INC CNT.WORD1 infsnz CntHH,F,0 incf CntHHH,F,0 F3_000077 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CNT.WORD0 = CNTLW movff TMR0L,Cnt movff TMR0LH,CntH F3_000078 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] BTG PORTB.3 btg PORTB,3 F3_000079 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETFIE FAST retfie 1 F3_000080 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDIF _lbl__9 GetMidiIn F3_000084 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _lbl__11 F3_000085 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] INC INDEXOUT incf IndexOut,F,0 F3_000086 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] MIDIIN = RINGBUFFER[INDEXOUT] lfsr 0,Ringbuffer movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movf INDF0,W,0 movwf MidiIn,0 bra _lbl__12 _lbl__11 F3_000087 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ELSE F3_000088 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] MIDIIN = 255 setf MidiIn,0 F3_000089 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDIF _lbl__12 F3_000090 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] ENDSUB return 0 ; ENDSUB ;--------------------------------------------- Init_Usart_Interrupt F3_000104 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR RINGBUFFER[0] clrf Ringbuffer#0,0 F3_000105 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000106 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000107 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET PIE1.5 bsf PIE1,5,0 F3_000109 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET IPR1.5 bsf IPR1,5,0 F3_000113 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET INTCON.7 bsf INTCON,7,0 F3_000114 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET INTCON.6 bsf INTCON,6,0 F3_000116 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETURN return 0 Clear_Serial_Buffer F3_000124 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000125 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR RINGBUFFER[0] clrf Ringbuffer#0,0 F3_000126 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000127 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000128 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000129 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] WREG = RCREG movf RCREG,W,0 F3_000130 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000131 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000132 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] SET PIE1.5 bsf PIE1,5,0 F3_000133 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000141 equ $ ; IN [TUBO_DAMP_IRQ_000.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_000142 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000143 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] TIM3 = 0 clrf TMR3LH,0 clrf TMR3L,0 F3_000149 equ $ ; IN [TUBO_DAMP_IRQ_000.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 F3_000150 equ $ ; IN [TUBO_DAMP_IRQ_000.INC] RETFIE retfie _Over_IRQ_Handler F3_EOF equ $ ; TUBO_DAMP_IRQ_000.INC MAIN F1_000177 equ $ ; IN [TUBO_BEAT4865.BAS] HIGH PORTB.3 bcf TRISB,3,0 bsf LATB,3,0 F1_000178 equ $ ; IN [TUBO_BEAT4865.BAS] DELAYMS 10 movlw 10 call __delay_ms_ F1_000179 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000181 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000182 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000183 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000184 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000185 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000186 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000187 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000188 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000189 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000190 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000191 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000192 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000193 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000194 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000195 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000196 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000197 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000198 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000199 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000200 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000201 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000202 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000203 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000204 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000205 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000206 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000208 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000209 equ $ ; IN [TUBO_BEAT4865.BAS] SET IDX setf idx,0 F1_000210 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS lfsr 0,TimVals movlw 72 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000211 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR CC66 clrf CC66,0 F1_000212 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB INIT_USART_INTERRUPT rcall Init_Usart_Interrupt F1_000214 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB CLEAR_SERIAL_BUFFER rcall Clear_Serial_Buffer F1_000226 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR T1CON clrf T1CON,0 F1_000227 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000228 equ $ ; IN [TUBO_BEAT4865.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000229 equ $ ; IN [TUBO_BEAT4865.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000257 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR T3CON clrf T3CON,0 F1_000258 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000259 equ $ ; IN [TUBO_BEAT4865.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000261 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR TIM3 clrf TMR3LH,0 clrf TMR3L,0 F1_000262 equ $ ; IN [TUBO_BEAT4865.BAS] SET RCON.7 bsf RCON,7,0 F1_000263 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000265 equ $ ; IN [TUBO_BEAT4865.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000288 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES movlb 1 clrf notesHHH,1 clrf notesHH,1 clrf notesH,1 clrf notes,1 F1_000289 equ $ ; IN [TUBO_BEAT4865.BAS] HRSOUT CTRL, 25,64 movf Ctrl,W,0 call __hrsout1__ movlw 25 call __hrsout1__ movlw 64 call __hrsout1__ Hoofdlus movlb 0 F1_000292 equ $ ; IN [TUBO_BEAT4865.BAS] DO _lbl__13 F1_000300 equ $ ; IN [TUBO_BEAT4865.BAS] CNT.WORD0 = CNTLW movff TMR0L,Cnt movff TMR0LH,CntH F1_000302 equ $ ; IN [TUBO_BEAT4865.BAS] GETMIDIIN () rcall GetMidiIn F1_000303 equ $ ; IN [TUBO_BEAT4865.BAS] BYTEIN = MIDIIN movff MidiIn,Bytein Midi_Parse F1_000307 equ $ ; IN [TUBO_BEAT4865.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 181 subwf Bytein,W,0 bnc _lbl__17 F1_000308 equ $ ; IN [TUBO_BEAT4865.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bnc _lbl__19 bra _lbl__20 _lbl__19 F1_000312 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000313 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000314 equ $ ; IN [TUBO_BEAT4865.BAS] END IF _lbl__20 F1_000315 equ $ ; IN [TUBO_BEAT4865.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000316 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__17 F1_000317 equ $ ; IN [TUBO_BEAT4865.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _lbl__22 F1_000319 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000320 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT BYTEIN F1_000321 equ $ ; IN [TUBO_BEAT4865.BAS] CASE NOTEOFF_STATUS movlw 132 subwf Bytein,W,0 bnz _lbl__24 F1_000322 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000323 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEUIT setf noteUit,0 F1_000324 equ $ ; IN [TUBO_BEAT4865.BAS] SET RELEASE setf release,0 bra _lbl__23 _lbl__24 F1_000325 equ $ ; IN [TUBO_BEAT4865.BAS] CASE NOTEON_STATUS movlw 148 subwf Bytein,W,0 bnz _lbl__27 F1_000326 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000327 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEAAN setf noteAan,0 F1_000328 equ $ ; IN [TUBO_BEAT4865.BAS] SET VELO setf velo,0 bra _lbl__23 _lbl__27 F1_000329 equ $ ; IN [TUBO_BEAT4865.BAS] CASE KEYPRES_STATUS movlw 164 subwf Bytein,W,0 bnz _lbl__29 F1_000330 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000331 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEPRES setf notePres,0 F1_000332 equ $ ; IN [TUBO_BEAT4865.BAS] SET PRES setf pres,0 bra _lbl__23 _lbl__29 F1_000333 equ $ ; IN [TUBO_BEAT4865.BAS] CASE CONTROL_STATUS movlw 180 subwf Bytein,W,0 bnz _lbl__31 F1_000334 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000335 equ $ ; IN [TUBO_BEAT4865.BAS] SET CTRL setf Ctrl,0 F1_000336 equ $ ; IN [TUBO_BEAT4865.BAS] SET VALUE setf value,0 bra _lbl__23 _lbl__31 F1_000337 equ $ ; IN [TUBO_BEAT4865.BAS] CASE PROGCHANGE_STATUS movlw 196 subwf Bytein,W,0 bnz _lbl__33 F1_000338 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000339 equ $ ; IN [TUBO_BEAT4865.BAS] SET PROG setf prog,0 bra _lbl__23 _lbl__33 F1_000340 equ $ ; IN [TUBO_BEAT4865.BAS] CASE AFTERTOUCH_STATUS movlw 212 subwf Bytein,W,0 bnz _lbl__35 F1_000341 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000342 equ $ ; IN [TUBO_BEAT4865.BAS] SET AFT setf aft,0 bra _lbl__23 _lbl__35 F1_000343 equ $ ; IN [TUBO_BEAT4865.BAS] CASE PITCHBEND_STATUS movlw 228 subwf Bytein,W,0 bnz _lbl__37 F1_000344 equ $ ; IN [TUBO_BEAT4865.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000345 equ $ ; IN [TUBO_BEAT4865.BAS] SET PBLSB setf pblsb,0 F1_000346 equ $ ; IN [TUBO_BEAT4865.BAS] SET PBMSB setf pbmsb,0 F1_000347 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__37 _lbl__23 goto _lbl__38 _lbl__22 F1_000348 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000349 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT STATUSBYTE F1_000350 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 0 movf statusbyte,F,0 bnz _lbl__40 F1_000351 equ $ ; IN [TUBO_BEAT4865.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _lbl__39 _lbl__40 F1_000352 equ $ ; IN [TUBO_BEAT4865.BAS] CASE NOTEOFF_STATUS movlw 132 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__43 F1_000353 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _lbl__45 F1_000354 equ $ ; IN [TUBO_BEAT4865.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _lbl__46 _lbl__45 F1_000355 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000356 equ $ ; IN [TUBO_BEAT4865.BAS] RELEASE = BYTEIN movff Bytein,release F1_000357 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT NOTEUIT F1_000358 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 48 movlw 48 subwf noteUit,W,0 bnz _lbl__48 F1_000360 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000361 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000362 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.0 bcf notes,0,1 F1_000363 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__48 F1_000364 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 49 movlw 49 subwf noteUit,W,0 bnz _lbl__51 F1_000365 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000366 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000367 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.1 bcf notes,1,1 F1_000368 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__51 F1_000369 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 50 movlw 50 subwf noteUit,W,0 bnz _lbl__53 F1_000370 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000371 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000372 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.2 bcf notes,2,1 F1_000373 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__53 F1_000374 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 51 movlw 51 subwf noteUit,W,0 bnz _lbl__55 F1_000375 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000376 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000377 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.3 bcf notes,3,1 F1_000378 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__55 F1_000379 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 52 movlw 52 subwf noteUit,W,0 bnz _lbl__57 F1_000380 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000381 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000382 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.4 bcf notes,4,1 F1_000383 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__57 F1_000384 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 53 movlw 53 subwf noteUit,W,0 bnz _lbl__59 F1_000385 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000386 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000387 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.5 bcf notes,5,1 F1_000388 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__59 F1_000389 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 54 movlw 54 subwf noteUit,W,0 bnz _lbl__61 F1_000390 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000391 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000392 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.6 bcf notes,6,1 F1_000393 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__61 F1_000394 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 55 movlw 55 subwf noteUit,W,0 bnz _lbl__63 F1_000395 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000396 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[7] movlb 1 setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_000397 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.7 bcf notes,7,1 F1_000398 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__63 F1_000399 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 56 movlw 56 subwf noteUit,W,0 bnz _lbl__65 F1_000400 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000401 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[8] movlb 1 setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_000402 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.8 bcf notesH,0,1 F1_000403 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__65 F1_000404 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 57 movlw 57 subwf noteUit,W,0 bnz _lbl__67 F1_000405 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000406 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[9] movlb 1 setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_000407 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.9 bcf notesH,1,1 F1_000408 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__67 F1_000409 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 58 movlw 58 subwf noteUit,W,0 bnz _lbl__69 F1_000410 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000411 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[10] movlb 1 setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 F1_000412 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.10 bcf notesH,2,1 F1_000413 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__69 F1_000414 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 59 movlw 59 subwf noteUit,W,0 bnz _lbl__71 F1_000415 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000416 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[11] movlb 1 setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 F1_000417 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.11 bcf notesH,3,1 F1_000418 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__71 F1_000419 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 60 movlw 60 subwf noteUit,W,0 bnz _lbl__73 F1_000420 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000421 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[12] movlb 1 setf TimVals#12HHH,1 setf TimVals#12HH,1 setf TimVals#12H,1 setf TimVals#12,1 F1_000422 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.12 bcf notesH,4,1 F1_000423 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__73 F1_000424 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 61 movlw 61 subwf noteUit,W,0 bnz _lbl__75 F1_000425 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000426 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[13] movlb 1 setf TimVals#13HHH,1 setf TimVals#13HH,1 setf TimVals#13H,1 setf TimVals#13,1 F1_000427 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.13 bcf notesH,5,1 F1_000428 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__75 F1_000429 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 62 movlw 62 subwf noteUit,W,0 bnz _lbl__77 F1_000430 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000431 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[14] movlb 1 setf TimVals#14HHH,1 setf TimVals#14HH,1 setf TimVals#14H,1 setf TimVals#14,1 F1_000432 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.14 bcf notesH,6,1 F1_000433 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__77 F1_000434 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 63 movlw 63 subwf noteUit,W,0 bnz _lbl__79 F1_000435 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000436 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[15] movlb 1 setf TimVals#15HHH,1 setf TimVals#15HH,1 setf TimVals#15H,1 setf TimVals#15,1 F1_000437 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.15 bcf notesH,7,1 F1_000438 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__79 F1_000439 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 64 movlw 64 subwf noteUit,W,0 bnz _lbl__81 F1_000440 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000441 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[16] movlb 1 setf TimVals#16HHH,1 setf TimVals#16HH,1 setf TimVals#16H,1 setf TimVals#16,1 F1_000442 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.16 bcf notesHH,0,1 F1_000443 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__47 _lbl__81 F1_000444 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 65 movlw 65 subwf noteUit,W,0 bnz _lbl__83 F1_000445 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000446 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[17] movlb 1 setf TimVals#17HHH,1 setf TimVals#17HH,1 setf TimVals#17H,1 setf TimVals#17,1 F1_000447 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.17 bcf notesHH,1,1 F1_000448 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000449 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__83 movlb 0 _lbl__47 F1_000450 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEUIT setf noteUit,0 F1_000451 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__46 goto _lbl__39 _lbl__43 F1_000453 equ $ ; IN [TUBO_BEAT4865.BAS] CASE NOTEON_STATUS movlw 148 subwf statusbyte,W,0 btfss STATUS,2,0 goto _lbl__85 F1_000454 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _lbl__87 F1_000455 equ $ ; IN [TUBO_BEAT4865.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _lbl__88 _lbl__87 F1_000456 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000457 equ $ ; IN [TUBO_BEAT4865.BAS] VELO = BYTEIN movff Bytein,velo F1_000458 equ $ ; IN [TUBO_BEAT4865.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _lbl__90 F1_000459 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT NOTEAAN F1_000460 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 48 movlw 48 subwf noteAan,W,0 bnz _lbl__92 F1_000462 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000463 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000464 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.0 bcf notes,0,1 F1_000465 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__92 F1_000466 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 49 movlw 49 subwf noteAan,W,0 bnz _lbl__95 F1_000467 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000468 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000469 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.1 bcf notes,1,1 F1_000470 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__95 F1_000471 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 50 movlw 50 subwf noteAan,W,0 bnz _lbl__97 F1_000472 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000473 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000474 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.2 bcf notes,2,1 F1_000475 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__97 F1_000476 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 51 movlw 51 subwf noteAan,W,0 bnz _lbl__99 F1_000477 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000478 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000479 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.3 bcf notes,3,1 F1_000480 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__99 F1_000481 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 52 movlw 52 subwf noteAan,W,0 bnz _lbl__101 F1_000482 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000483 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000484 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.4 bcf notes,4,1 F1_000485 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__101 F1_000486 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 53 movlw 53 subwf noteAan,W,0 bnz _lbl__103 F1_000487 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000488 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000489 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.5 bcf notes,5,1 F1_000490 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__103 F1_000491 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 54 movlw 54 subwf noteAan,W,0 bnz _lbl__105 F1_000492 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000493 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000494 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.6 bcf notes,6,1 F1_000495 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__105 F1_000496 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 55 movlw 55 subwf noteAan,W,0 bnz _lbl__107 F1_000497 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000498 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[7] movlb 1 setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_000499 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.7 bcf notes,7,1 F1_000500 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__107 F1_000501 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 56 movlw 56 subwf noteAan,W,0 bnz _lbl__109 F1_000502 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000503 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[8] movlb 1 setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_000504 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.8 bcf notesH,0,1 F1_000505 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__109 F1_000506 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 57 movlw 57 subwf noteAan,W,0 bnz _lbl__111 F1_000507 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000508 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[9] movlb 1 setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_000509 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.9 bcf notesH,1,1 F1_000510 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__111 F1_000511 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 58 movlw 58 subwf noteAan,W,0 bnz _lbl__113 F1_000512 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000513 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[10] movlb 1 setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 F1_000514 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.10 bcf notesH,2,1 F1_000515 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__113 F1_000516 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 59 movlw 59 subwf noteAan,W,0 bnz _lbl__115 F1_000517 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000518 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[11] movlb 1 setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 F1_000519 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.11 bcf notesH,3,1 F1_000520 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__115 F1_000521 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 60 movlw 60 subwf noteAan,W,0 bnz _lbl__117 F1_000522 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000523 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[12] movlb 1 setf TimVals#12HHH,1 setf TimVals#12HH,1 setf TimVals#12H,1 setf TimVals#12,1 F1_000524 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.12 bcf notesH,4,1 F1_000525 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__117 F1_000526 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 61 movlw 61 subwf noteAan,W,0 bnz _lbl__119 F1_000527 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000528 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[13] movlb 1 setf TimVals#13HHH,1 setf TimVals#13HH,1 setf TimVals#13H,1 setf TimVals#13,1 F1_000529 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.13 bcf notesH,5,1 F1_000530 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__119 F1_000531 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 62 movlw 62 subwf noteAan,W,0 bnz _lbl__121 F1_000532 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000533 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[14] movlb 1 setf TimVals#14HHH,1 setf TimVals#14HH,1 setf TimVals#14H,1 setf TimVals#14,1 F1_000534 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.14 bcf notesH,6,1 F1_000535 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__121 F1_000536 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 63 movlw 63 subwf noteAan,W,0 bnz _lbl__123 F1_000537 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000538 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[15] movlb 1 setf TimVals#15HHH,1 setf TimVals#15HH,1 setf TimVals#15H,1 setf TimVals#15,1 F1_000539 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.15 bcf notesH,7,1 F1_000540 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__123 F1_000541 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 64 movlw 64 subwf noteAan,W,0 bnz _lbl__125 F1_000542 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000543 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[16] movlb 1 setf TimVals#16HHH,1 setf TimVals#16HH,1 setf TimVals#16H,1 setf TimVals#16,1 F1_000544 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.16 bcf notesHH,0,1 F1_000545 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__91 _lbl__125 F1_000546 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 65 movlw 65 subwf noteAan,W,0 bnz _lbl__127 F1_000547 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000548 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[17] movlb 1 setf TimVals#17HHH,1 setf TimVals#17HH,1 setf TimVals#17H,1 setf TimVals#17,1 F1_000549 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.17 bcf notesHH,1,1 F1_000550 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000551 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__127 movlb 0 _lbl__91 goto _lbl__128 _lbl__90 F1_000552 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000553 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT NOTEAAN F1_000554 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 48 movlw 48 subwf noteAan,W,0 bnz _lbl__130 F1_000556 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.0 = 0 THEN movlb 1 rrcf notes,W,1 movlb 0 bc _lbl__133 F1_000557 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.0 bsf LATA,0,0 F1_000558 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[0] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,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 [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000560 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.0 movlb 1 bsf notes,0,1 F1_000561 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__133 movlb 0 goto _lbl__129 _lbl__130 F1_000562 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 49 movlw 49 subwf noteAan,W,0 bnz _lbl__135 F1_000563 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.1 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,1,0 bra _lbl__137 F1_000564 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.1 bsf LATA,1,0 F1_000565 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[1] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,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_000566 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000567 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.1 movlb 1 bsf notes,1,1 F1_000568 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__137 movlb 0 goto _lbl__129 _lbl__135 F1_000569 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 50 movlw 50 subwf noteAan,W,0 bnz _lbl__139 F1_000570 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.2 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,2,0 bra _lbl__141 F1_000571 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.2 bsf LATA,2,0 F1_000572 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[2] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#2HHH movff Pbs_Var0HH,TimVals#2HH movff Pbs_Var0H,TimVals#2H movff Pbs_Var0,TimVals#2 F1_000573 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000574 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.2 movlb 1 bsf notes,2,1 F1_000575 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__141 movlb 0 goto _lbl__129 _lbl__139 F1_000576 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 51 movlw 51 subwf noteAan,W,0 bnz _lbl__143 F1_000577 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.3 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,3,0 bra _lbl__145 F1_000578 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.3 bsf LATA,3,0 F1_000579 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[3] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,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_000580 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000581 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.3 movlb 1 bsf notes,3,1 F1_000582 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__145 movlb 0 goto _lbl__129 _lbl__143 F1_000583 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 52 movlw 52 subwf noteAan,W,0 bnz _lbl__147 F1_000584 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.4 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,4,0 bra _lbl__149 F1_000585 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.4 bsf LATA,4,0 F1_000586 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[4] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#4HHH movff Pbs_Var0HH,TimVals#4HH movff Pbs_Var0H,TimVals#4H movff Pbs_Var0,TimVals#4 F1_000587 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000588 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.4 movlb 1 bsf notes,4,1 F1_000589 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__149 movlb 0 goto _lbl__129 _lbl__147 F1_000590 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 53 movlw 53 subwf noteAan,W,0 bnz _lbl__151 F1_000591 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.5 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,5,0 bra _lbl__153 F1_000592 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTA.5 bsf LATA,5,0 F1_000593 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[5] = TIME + DUR0[VELO] lfsr 0,Dur0 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,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_000594 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000595 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.5 movlb 1 bsf notes,5,1 F1_000596 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__153 movlb 0 goto _lbl__129 _lbl__151 F1_000597 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 54 movlw 54 subwf noteAan,W,0 bnz _lbl__155 F1_000598 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.6 = 0 THEN movlb 1 movf notes,W,1 movlb 0 btfsc WREG,6,0 bra _lbl__157 F1_000599 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTE.0 bsf LATE,0,0 F1_000600 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[6] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,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_000601 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000602 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.6 movlb 1 bsf notes,6,1 F1_000603 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__157 movlb 0 bra _lbl__129 _lbl__155 F1_000604 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 55 movlw 55 subwf noteAan,W,0 bnz _lbl__159 F1_000605 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.7 =0 THEN movlb 1 rlcf notes,W,1 movlb 0 bc _lbl__161 F1_000606 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTE.1 bsf LATE,1,0 F1_000607 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[7] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#7HHH movff Pbs_Var0HH,TimVals#7HH movff Pbs_Var0H,TimVals#7H movff Pbs_Var0,TimVals#7 F1_000608 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000609 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.7 movlb 1 bsf notes,7,1 F1_000610 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__161 movlb 0 bra _lbl__129 _lbl__159 F1_000611 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 56 movlw 56 subwf noteAan,W,0 bnz _lbl__163 F1_000612 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.8 = 0 THEN movlb 1 rrcf notesH,W,1 movlb 0 bc _lbl__165 F1_000613 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTE.2 bsf LATE,2,0 F1_000614 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[8] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#8HHH movff Pbs_Var0HH,TimVals#8HH movff Pbs_Var0H,TimVals#8H movff Pbs_Var0,TimVals#8 F1_000615 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000616 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.8 movlb 1 bsf notesH,0,1 F1_000617 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__165 movlb 0 bra _lbl__129 _lbl__163 F1_000618 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 57 movlw 57 subwf noteAan,W,0 bnz _lbl__167 F1_000619 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.9 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,1,0 bra _lbl__169 F1_000620 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTC.0 bsf LATC,0,0 F1_000621 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[9] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#9HHH movff Pbs_Var0HH,TimVals#9HH movff Pbs_Var0H,TimVals#9H movff Pbs_Var0,TimVals#9 F1_000622 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000623 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.9 movlb 1 bsf notesH,1,1 F1_000624 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__169 movlb 0 bra _lbl__129 _lbl__167 F1_000625 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 58 movlw 58 subwf noteAan,W,0 bnz _lbl__171 F1_000626 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.10 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,2,0 bra _lbl__173 F1_000627 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTC.1 bsf LATC,1,0 F1_000628 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[10] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#10HHH movff Pbs_Var0HH,TimVals#10HH movff Pbs_Var0H,TimVals#10H movff Pbs_Var0,TimVals#10 F1_000629 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000630 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.10 movlb 1 bsf notesH,2,1 F1_000631 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__173 movlb 0 bra _lbl__129 _lbl__171 F1_000632 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 59 movlw 59 subwf noteAan,W,0 bnz _lbl__175 F1_000633 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.11 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,3,0 bra _lbl__177 F1_000634 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTC.2 bsf LATC,2,0 F1_000635 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[11] = TIME + DUR1[VELO] lfsr 0,Dur1 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#11HHH movff Pbs_Var0HH,TimVals#11HH movff Pbs_Var0H,TimVals#11H movff Pbs_Var0,TimVals#11 F1_000636 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000637 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.11 movlb 1 bsf notesH,3,1 F1_000638 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__177 movlb 0 bra _lbl__129 _lbl__175 F1_000639 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 60 movlw 60 subwf noteAan,W,0 bnz _lbl__179 F1_000640 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.12 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,4,0 bra _lbl__181 F1_000641 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTC.3 bsf LATC,3,0 F1_000642 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[12] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#12HHH movff Pbs_Var0HH,TimVals#12HH movff Pbs_Var0H,TimVals#12H movff Pbs_Var0,TimVals#12 F1_000643 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000644 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.12 movlb 1 bsf notesH,4,1 F1_000645 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__181 movlb 0 bra _lbl__129 _lbl__179 F1_000646 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 61 movlw 61 subwf noteAan,W,0 bnz _lbl__183 F1_000647 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.13 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,5,0 bra _lbl__185 F1_000648 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTD.0 bsf LATD,0,0 F1_000649 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[13] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#13HHH movff Pbs_Var0HH,TimVals#13HH movff Pbs_Var0H,TimVals#13H movff Pbs_Var0,TimVals#13 F1_000650 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000651 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.13 movlb 1 bsf notesH,5,1 F1_000652 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__185 movlb 0 bra _lbl__129 _lbl__183 F1_000653 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 62 movlw 62 subwf noteAan,W,0 bnz _lbl__187 F1_000654 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.14 = 0 THEN movlb 1 movf notesH,W,1 movlb 0 btfsc WREG,6,0 bra _lbl__189 F1_000655 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTD.1 bsf LATD,1,0 F1_000656 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[14] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#14HHH movff Pbs_Var0HH,TimVals#14HH movff Pbs_Var0H,TimVals#14H movff Pbs_Var0,TimVals#14 F1_000657 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000658 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.14 movlb 1 bsf notesH,6,1 F1_000659 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__189 movlb 0 bra _lbl__129 _lbl__187 F1_000660 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 63 movlw 63 subwf noteAan,W,0 bnz _lbl__191 F1_000661 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.15 = 0 THEN movlb 1 rlcf notesH,W,1 movlb 0 bc _lbl__193 F1_000662 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTD.7 bsf LATD,7,0 F1_000663 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[15] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#15HHH movff Pbs_Var0HH,TimVals#15HH movff Pbs_Var0H,TimVals#15H movff Pbs_Var0,TimVals#15 F1_000664 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000665 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.15 movlb 1 bsf notesH,7,1 F1_000666 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__193 movlb 0 bra _lbl__129 _lbl__191 F1_000667 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 64 movlw 64 subwf noteAan,W,0 bnz _lbl__195 F1_000668 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.16 = 0 THEN movlb 1 rrcf notesHH,W,1 movlb 0 bc _lbl__197 F1_000669 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTD.6 bsf LATD,6,0 F1_000670 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[16] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#16HHH movff Pbs_Var0HH,TimVals#16HH movff Pbs_Var0H,TimVals#16H movff Pbs_Var0,TimVals#16 F1_000671 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000672 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.16 movlb 1 bsf notesHH,0,1 F1_000673 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__197 movlb 0 bra _lbl__129 _lbl__195 F1_000674 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 65 movlw 65 subwf noteAan,W,0 bnz _lbl__199 F1_000675 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTES.17 = 0 THEN movlb 1 movf notesHH,W,1 movlb 0 btfsc WREG,1,0 bra _lbl__201 F1_000676 equ $ ; IN [TUBO_BEAT4865.BAS] SET PORTD.5 bsf LATD,5,0 F1_000677 equ $ ; IN [TUBO_BEAT4865.BAS] TIMVALS[17] = TIME + DUR2[VELO] lfsr 0,Dur2 bcf STATUS,0,0 rlcf velo,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 Cnt,W,0 movwf Pbs_Var0,0 movf Pbs_Var1H,W,0 addwfc CntH,W,0 movwf Pbs_Var0H,0 movlw 0 addwfc CntHH,W,0 movwf Pbs_Var0HH,0 movlw 0 addwfc CntHHH,W,0 movwf Pbs_Var0HHH,0 movff Pbs_Var0HHH,TimVals#17HHH movff Pbs_Var0HH,TimVals#17HH movff Pbs_Var0H,TimVals#17H movff Pbs_Var0,TimVals#17 F1_000678 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000679 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTES.17 movlb 1 bsf notesHH,1,1 F1_000680 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__201 movlb 0 F1_000681 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__199 _lbl__129 F1_000682 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEAAN setf noteAan,0 F1_000683 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__128 F1_000684 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__88 bra _lbl__39 _lbl__85 F1_000685 equ $ ; IN [TUBO_BEAT4865.BAS] CASE KEYPRES_STATUS movlw 164 subwf statusbyte,W,0 bnz _lbl__203 F1_000686 equ $ ; IN [TUBO_BEAT4865.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _lbl__205 F1_000687 equ $ ; IN [TUBO_BEAT4865.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _lbl__206 _lbl__205 F1_000688 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000689 equ $ ; IN [TUBO_BEAT4865.BAS] PRES = BYTEIN movff Bytein,pres F1_000690 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB KEYPRES rcall KeyPres F1_000691 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__206 F1_000692 equ $ ; IN [TUBO_BEAT4865.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _lbl__39 _lbl__203 F1_000693 equ $ ; IN [TUBO_BEAT4865.BAS] CASE CONTROL_STATUS movlw 180 subwf statusbyte,W,0 bnz _lbl__208 F1_000694 equ $ ; IN [TUBO_BEAT4865.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _lbl__210 F1_000695 equ $ ; IN [TUBO_BEAT4865.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _lbl__211 _lbl__210 F1_000696 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000697 equ $ ; IN [TUBO_BEAT4865.BAS] VALUE = BYTEIN movff Bytein,value F1_000698 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB CONTROLLER rcall Controller F1_000699 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__211 bra _lbl__39 _lbl__208 F1_000700 equ $ ; IN [TUBO_BEAT4865.BAS] CASE PROGCHANGE_STATUS movlw 196 subwf statusbyte,W,0 bnz _lbl__213 F1_000701 equ $ ; IN [TUBO_BEAT4865.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _lbl__215 F1_000702 equ $ ; IN [TUBO_BEAT4865.BAS] PROG = BYTEIN movff Bytein,prog F1_000703 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB PROGCHANGE rcall ProgChange F1_000704 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__215 bra _lbl__39 _lbl__213 F1_000705 equ $ ; IN [TUBO_BEAT4865.BAS] CASE AFTERTOUCH_STATUS movlw 212 subwf statusbyte,W,0 bnz _lbl__217 F1_000706 equ $ ; IN [TUBO_BEAT4865.BAS] IF AFT = 255 THEN incf aft,W,0 bnz _lbl__219 F1_000707 equ $ ; IN [TUBO_BEAT4865.BAS] AFT = BYTEIN movff Bytein,aft F1_000708 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB AFTERTOUCH rcall Aftertouch F1_000709 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__219 F1_000710 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__217 _lbl__39 F1_000711 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__38 F1_000713 equ $ ; IN [TUBO_BEAT4865.BAS] IF RESORT_FLAG = 1 THEN btfsc Resort,0,0 F1_000714 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000715 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__221 Check_Timers F1_000718 equ $ ; IN [TUBO_BEAT4865.BAS] IF IDX < NRTASKS THEN movlw 18 subwf idx,W,0 btfsc STATUS,0,0 bra _lbl__223 F1_000719 equ $ ; IN [TUBO_BEAT4865.BAS] IF TIME >= NXT THEN movf Nxt,W,0 subwf Cnt,W,0 movf NxtH,W,0 subwfb CntH,W,0 movf NxtHH,W,0 subwfb CntHH,W,0 movf NxtHHH,W,0 subwfb CntHHH,W,0 btfss STATUS,0,0 bra _lbl__225 F1_000721 equ $ ; IN [TUBO_BEAT4865.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000724 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT IDX F1_000725 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 0 movf idx,F,0 bnz _lbl__227 F1_000726 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000727 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000728 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.0 bcf notes,0,1 movlb 0 bra _lbl__226 _lbl__227 F1_000729 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 1 movlw 1 subwf idx,W,0 bnz _lbl__230 F1_000730 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000731 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000732 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.1 bcf notes,1,1 movlb 0 bra _lbl__226 _lbl__230 F1_000733 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 2 movlw 2 subwf idx,W,0 bnz _lbl__232 F1_000734 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000735 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000736 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.2 bcf notes,2,1 movlb 0 bra _lbl__226 _lbl__232 F1_000737 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 3 movlw 3 subwf idx,W,0 bnz _lbl__234 F1_000738 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000739 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000740 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.3 bcf notes,3,1 movlb 0 bra _lbl__226 _lbl__234 F1_000741 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 4 movlw 4 subwf idx,W,0 bnz _lbl__236 F1_000742 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000743 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000744 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.4 bcf notes,4,1 movlb 0 bra _lbl__226 _lbl__236 F1_000745 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 5 movlw 5 subwf idx,W,0 bnz _lbl__238 F1_000746 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000747 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000748 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.5 bcf notes,5,1 movlb 0 bra _lbl__226 _lbl__238 F1_000749 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 6 movlw 6 subwf idx,W,0 bnz _lbl__240 F1_000750 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000751 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000752 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.6 bcf notes,6,1 movlb 0 bra _lbl__226 _lbl__240 F1_000753 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 7 movlw 7 subwf idx,W,0 bnz _lbl__242 F1_000754 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000755 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[7] movlb 1 setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_000756 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.7 bcf notes,7,1 movlb 0 bra _lbl__226 _lbl__242 F1_000757 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 8 movlw 8 subwf idx,W,0 bnz _lbl__244 F1_000758 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000759 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[8] movlb 1 setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_000760 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.8 bcf notesH,0,1 movlb 0 bra _lbl__226 _lbl__244 F1_000761 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 9 movlw 9 subwf idx,W,0 bnz _lbl__246 F1_000762 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000763 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[9] movlb 1 setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_000764 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.9 bcf notesH,1,1 movlb 0 bra _lbl__226 _lbl__246 F1_000765 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 10 movlw 10 subwf idx,W,0 bnz _lbl__248 F1_000766 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000767 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[10] movlb 1 setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 F1_000768 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.10 bcf notesH,2,1 movlb 0 bra _lbl__226 _lbl__248 F1_000769 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 11 movlw 11 subwf idx,W,0 bnz _lbl__250 F1_000770 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000771 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[11] movlb 1 setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 F1_000772 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.11 bcf notesH,3,1 movlb 0 bra _lbl__226 _lbl__250 F1_000773 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 12 movlw 12 subwf idx,W,0 bnz _lbl__252 F1_000774 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000775 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[12] movlb 1 setf TimVals#12HHH,1 setf TimVals#12HH,1 setf TimVals#12H,1 setf TimVals#12,1 F1_000776 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.12 bcf notesH,4,1 movlb 0 bra _lbl__226 _lbl__252 F1_000777 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 13 movlw 13 subwf idx,W,0 bnz _lbl__254 F1_000778 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000779 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[13] movlb 1 setf TimVals#13HHH,1 setf TimVals#13HH,1 setf TimVals#13H,1 setf TimVals#13,1 F1_000780 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.13 bcf notesH,5,1 movlb 0 bra _lbl__226 _lbl__254 F1_000781 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 14 movlw 14 subwf idx,W,0 bnz _lbl__256 F1_000782 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_000783 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[14] movlb 1 setf TimVals#14HHH,1 setf TimVals#14HH,1 setf TimVals#14H,1 setf TimVals#14,1 F1_000784 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.14 bcf notesH,6,1 movlb 0 bra _lbl__226 _lbl__256 F1_000785 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 15 movlw 15 subwf idx,W,0 bnz _lbl__258 F1_000786 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000787 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[15] movlb 1 setf TimVals#15HHH,1 setf TimVals#15HH,1 setf TimVals#15H,1 setf TimVals#15,1 F1_000788 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.15 bcf notesH,7,1 movlb 0 bra _lbl__226 _lbl__258 F1_000789 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 16 movlw 16 subwf idx,W,0 bnz _lbl__260 F1_000790 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000791 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[16] movlb 1 setf TimVals#16HHH,1 setf TimVals#16HH,1 setf TimVals#16H,1 setf TimVals#16,1 F1_000792 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.16 bcf notesHH,0,1 movlb 0 bra _lbl__226 _lbl__260 F1_000793 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 17 movlw 17 subwf idx,W,0 bnz _lbl__262 F1_000794 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000795 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS[17] movlb 1 setf TimVals#17HHH,1 setf TimVals#17HH,1 setf TimVals#17H,1 setf TimVals#17,1 F1_000796 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES.17 bcf notesHH,1,1 F1_000797 equ $ ; IN [TUBO_BEAT4865.BAS] CASE ELSE movlb 0 bra _lbl__264 _lbl__262 F1_000799 equ $ ; IN [TUBO_BEAT4865.BAS] GOTO JUMPOUT bra Jumpout F1_000800 equ $ ; IN [TUBO_BEAT4865.BAS] ENDSELECT _lbl__264 _lbl__226 F1_000801 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000802 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__225 bra _lbl__265 _lbl__223 F1_000803 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000805 equ $ ; IN [TUBO_BEAT4865.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _lbl__267 F1_000806 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR CNT clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000807 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS lfsr 0,TimVals movlw 72 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000808 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES movlb 1 clrf notesHHH,1 clrf notesHH,1 clrf notesH,1 clrf notes,1 F1_000809 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__267 movlb 0 F1_000810 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__265 Jumpout F1_000814 equ $ ; IN [TUBO_BEAT4865.BAS] BTG PORTB.4 btg PORTB,4 _lbl__15 F1_000820 equ $ ; IN [TUBO_BEAT4865.BAS] LOOP goto _lbl__13 _lbl__14 SortTimers F1_000825 equ $ ; IN [TUBO_BEAT4865.BAS] SET IDX setf idx,0 F1_000826 equ $ ; IN [TUBO_BEAT4865.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000827 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 0 TO NRTASKS -1 clrf _I,0 _frlb__268 movlw 18 subwf _I,W,0 bc _nxlb__269 F1_000828 equ $ ; IN [TUBO_BEAT4865.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 73 addwf FSR0L,F,0 movlw 1 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__272 F1_000829 equ $ ; IN [TUBO_BEAT4865.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 73 addwf FSR0L,F,0 movlw 1 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000830 equ $ ; IN [TUBO_BEAT4865.BAS] IDX = I movff _I,idx F1_000831 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__272 _ctlb__270 F1_000832 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 bnc _frlb__268 _nxlb__269 F1_000833 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR RESORT_FLAG bcf Resort,0,0 F1_000834 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 KeyPres F1_000837 equ $ ; IN [TUBO_BEAT4865.BAS] SET NOTEPRES setf notePres,0 F1_000838 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 ProgChange F1_000845 equ $ ; IN [TUBO_BEAT4865.BAS] SET PROG setf prog,0 F1_000846 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 Pitchbend F1_000850 equ $ ; IN [TUBO_BEAT4865.BAS] SET PBLSB setf pblsb,0 F1_000851 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 Aftertouch F1_000855 equ $ ; IN [TUBO_BEAT4865.BAS] SET AFT setf aft,0 F1_000856 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 Controller F1_000859 equ $ ; IN [TUBO_BEAT4865.BAS] SELECT CTRL F1_000860 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__274 F1_000862 equ $ ; IN [TUBO_BEAT4865.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _lbl__277 F1_000863 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR POWERON bcf CC66,0,0 F1_000864 equ $ ; IN [TUBO_BEAT4865.BAS] GOSUB POWERDOWN rcall PowerDown bra _lbl__278 _lbl__277 F1_000865 equ $ ; IN [TUBO_BEAT4865.BAS] ELSE F1_000866 equ $ ; IN [TUBO_BEAT4865.BAS] SET POWERON bsf CC66,0,0 F1_000867 equ $ ; IN [TUBO_BEAT4865.BAS] ENDIF _lbl__278 bra _lbl__273 _lbl__274 F1_000870 equ $ ; IN [TUBO_BEAT4865.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__280 F1_000872 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS lfsr 0,TimVals movlw 72 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000873 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000874 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000875 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000876 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000877 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000878 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000879 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000880 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000881 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000882 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000883 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000884 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000885 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000886 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000887 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000888 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000889 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000890 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000891 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES movlb 1 clrf notesHHH,1 clrf notesHH,1 clrf notesH,1 clrf notes,1 F1_000892 equ $ ; IN [TUBO_BEAT4865.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000893 equ $ ; IN [TUBO_BEAT4865.BAS] END SELECT _lbl__280 movlb 0 _lbl__273 F1_000894 equ $ ; IN [TUBO_BEAT4865.BAS] SET CTRL setf Ctrl,0 F1_000895 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 PowerDown F1_000900 equ $ ; IN [TUBO_BEAT4865.BAS] SET TIMVALS lfsr 0,TimVals movlw 72 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000901 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000902 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000903 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000904 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000905 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000906 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000907 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000908 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000909 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000910 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000911 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000912 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000913 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000914 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000915 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000916 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000917 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000918 equ $ ; IN [TUBO_BEAT4865.BAS] LOW PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000919 equ $ ; IN [TUBO_BEAT4865.BAS] CLEAR NOTES movlb 1 clrf notesHHH,1 clrf notesHH,1 clrf notesH,1 clrf notes,1 F1_000920 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN movlb 0 return 0 Dur_Lookup F1_000930 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[1] = 280 movlw 1 movlb 1 movwf Dur0#1H,1 movlw 24 movwf Dur0#1,1 F1_000931 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[32] = 481 movlw 1 movwf Dur0#32H,1 movlw 225 movwf Dur0#32,1 F1_000932 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[64] = 646 movlw 2 movlb 2 movwf Dur0#64H,1 movlw 134 movwf Dur0#64,1 F1_000933 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[96] = 976 movlw 3 movwf Dur0#96H,1 movlw 208 movwf Dur0#96,1 F1_000934 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[127] = 1057 movlw 4 movwf Dur0#127H,1 movlw 33 movwf Dur0#127,1 F1_000936 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR0[32] - DUR0[1]) / 32.0 movff Dur0#32,Pbs_Var0 movff Dur0#32H,Pbs_Var0H movff Dur0#1,Pbs_Var1 movff Dur0#1H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__2 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__2 movlb 4 movwf stap,1 F1_000937 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 2 TO 31 movlw 2 movwf _I,0 _frlb__281 movlb 0 movlw 32 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__282 F1_000938 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * I) + DUR0[1] movf _I,W,0 call _Uns_Int08_ToFl32 movff stapHHH,PP_BARGHHH movff stapHH,PP_BARGHH movff stapH,PP_BARGH movff stap,PP_BARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur0#1,Pbs_Var0 movff Dur0#1H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000939 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__283 F1_000940 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__281 _nxlb__282 F1_000942 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR0[64] - DUR0[32]) / 32.0 movff Dur0#64,Pbs_Var0 movff Dur0#64H,Pbs_Var0H movff Dur0#32,Pbs_Var1 movff Dur0#32H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__3 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__3 movlb 4 movwf stap,1 F1_000943 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 33 TO 63 movlw 33 movwf _I,0 _frlb__284 movlb 0 movlw 64 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__285 F1_000944 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 32)) + DUR0[32] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 132 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur0#32,Pbs_Var0 movff Dur0#32H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000945 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__286 F1_000946 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__284 _nxlb__285 F1_000948 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR0[96] - DUR0[64]) / 32.0 movff Dur0#96,Pbs_Var0 movff Dur0#96H,Pbs_Var0H movff Dur0#64,Pbs_Var1 movff Dur0#64H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__4 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__4 movlb 4 movwf stap,1 F1_000949 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 65 TO 95 movlw 65 movwf _I,0 _frlb__287 movlb 0 movlw 96 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__288 F1_000950 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 64)) + DUR0[64] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur0#64,Pbs_Var0 movff Dur0#64H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000951 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__289 F1_000952 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__287 _nxlb__288 F1_000954 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR0[127] - DUR0[96]) / 32.0 movff Dur0#127,Pbs_Var0 movff Dur0#127H,Pbs_Var0H movff Dur0#96,Pbs_Var1 movff Dur0#96H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__5 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__5 movlb 4 movwf stap,1 F1_000955 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 97 TO 126 movlw 97 movwf _I,0 _frlb__290 movlb 0 movlw 127 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__291 F1_000956 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 96)) + DUR0[96] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 movlw 64 movwf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur0#96,Pbs_Var0 movff Dur0#96H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000957 equ $ ; IN [TUBO_BEAT4865.BAS] DUR0[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur0 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__292 F1_000958 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__290 _nxlb__291 F1_000963 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[1] = 280 movlw 1 movlb 2 movwf Dur1#1H,1 movlw 24 movwf Dur1#1,1 F1_000964 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[32] = 481 movlw 1 movwf Dur1#32H,1 movlw 225 movwf Dur1#32,1 F1_000965 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[64] = 646 movlw 2 movlb 3 movwf Dur1#64H,1 movlw 134 movwf Dur1#64,1 F1_000966 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[96] = 914 movlw 3 movwf Dur1#96H,1 movlw 146 movwf Dur1#96,1 F1_000967 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[127] = 1040 movlw 4 movwf Dur1#127H,1 movlw 16 movwf Dur1#127,1 F1_000969 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR1[32] - DUR1[1]) / 32.0 movff Dur1#32,Pbs_Var0 movff Dur1#32H,Pbs_Var0H movff Dur1#1,Pbs_Var1 movff Dur1#1H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__6 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__6 movlb 4 movwf stap,1 F1_000970 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 2 TO 31 movlw 2 movwf _I,0 _frlb__293 movlb 0 movlw 32 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__294 F1_000971 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * I) + DUR1[1] movf _I,W,0 call _Uns_Int08_ToFl32 movff stapHHH,PP_BARGHHH movff stapHH,PP_BARGHH movff stapH,PP_BARGH movff stap,PP_BARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur1#1,Pbs_Var0 movff Dur1#1H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000972 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur1 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__295 F1_000973 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__293 _nxlb__294 F1_000974 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR1[64] - DUR1[32]) / 32.0 movff Dur1#64,Pbs_Var0 movff Dur1#64H,Pbs_Var0H movff Dur1#32,Pbs_Var1 movff Dur1#32H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__7 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__7 movlb 4 movwf stap,1 F1_000975 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 33 TO 63 movlw 33 movwf _I,0 _frlb__296 movlb 0 movlw 64 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__297 F1_000976 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 32)) + DUR1[32] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 132 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur1#32,Pbs_Var0 movff Dur1#32H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000977 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur1 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__298 F1_000978 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__296 _nxlb__297 F1_000979 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR1[96] - DUR1[64]) / 32.0 movff Dur1#96,Pbs_Var0 movff Dur1#96H,Pbs_Var0H movff Dur1#64,Pbs_Var1 movff Dur1#64H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__8 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__8 movlb 4 movwf stap,1 F1_000980 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 65 TO 95 movlw 65 movwf _I,0 _frlb__299 movlb 0 movlw 96 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__300 F1_000981 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 64)) + DUR1[64] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur1#64,Pbs_Var0 movff Dur1#64H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000982 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur1 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__301 F1_000983 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__299 _nxlb__300 F1_000984 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR1[127] - DUR1[96]) / 32.0 movff Dur1#127,Pbs_Var0 movff Dur1#127H,Pbs_Var0H movff Dur1#96,Pbs_Var1 movff Dur1#96H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__9 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__9 movlb 4 movwf stap,1 F1_000985 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 97 TO 126 movlw 97 movwf _I,0 _frlb__302 movlb 0 movlw 127 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__303 F1_000986 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 96)) + DUR1[96] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 movlw 64 movwf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur1#96,Pbs_Var0 movff Dur1#96H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_000987 equ $ ; IN [TUBO_BEAT4865.BAS] DUR1[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur1 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__304 F1_000988 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__302 _nxlb__303 F1_000993 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[1] = 280 movlw 1 movlb 3 movwf Dur2#1H,1 movlw 24 movwf Dur2#1,1 F1_000994 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[32] = 481 movlw 1 movwf Dur2#32H,1 movlw 225 movwf Dur2#32,1 F1_000995 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[64] = 646 movlw 2 movlb 4 movwf Dur2#64H,1 movlw 134 movwf Dur2#64,1 F1_000996 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[96] = 772 movlw 3 movwf Dur2#96H,1 movlw 4 movwf Dur2#96,1 F1_000997 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[127] = 980 movlw 3 movwf Dur2#127H,1 movlw 212 movwf Dur2#127,1 F1_000999 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR2[32] - DUR2[1]) / 32.0 movff Dur2#32,Pbs_Var0 movff Dur2#32H,Pbs_Var0H movff Dur2#1,Pbs_Var1 movff Dur2#1H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__10 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__10 movlb 4 movwf stap,1 F1_001000 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 2 TO 31 movlw 2 movwf _I,0 _frlb__305 movlb 0 movlw 32 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__306 F1_001001 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * I) + DUR2[1] movf _I,W,0 call _Uns_Int08_ToFl32 movff stapHHH,PP_BARGHHH movff stapHH,PP_BARGHH movff stapH,PP_BARGH movff stap,PP_BARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur2#1,Pbs_Var0 movff Dur2#1H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_001002 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur2 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__307 F1_001003 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__305 _nxlb__306 F1_001005 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR2[64] - DUR2[32]) / 32.0 movff Dur2#64,Pbs_Var0 movff Dur2#64H,Pbs_Var0H movff Dur2#32,Pbs_Var1 movff Dur2#32H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__11 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__11 movlb 4 movwf stap,1 F1_001006 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 33 TO 63 movlw 33 movwf _I,0 _frlb__308 movlb 0 movlw 64 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__309 F1_001007 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 32)) + DUR2[32] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 132 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur2#32,Pbs_Var0 movff Dur2#32H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_001008 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur2 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__310 F1_001009 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__308 _nxlb__309 F1_001011 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR2[96] - DUR2[64]) / 32.0 movff Dur2#96,Pbs_Var0 movff Dur2#96H,Pbs_Var0H movff Dur2#64,Pbs_Var1 movff Dur2#64H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__12 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__12 movlb 4 movwf stap,1 F1_001012 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 65 TO 95 movlw 65 movwf _I,0 _frlb__311 movlb 0 movlw 96 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__312 F1_001013 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 64)) + DUR2[64] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur2#64,Pbs_Var0 movff Dur2#64H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_001014 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur2 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__313 F1_001015 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__311 _nxlb__312 F1_001017 equ $ ; IN [TUBO_BEAT4865.BAS] STAP = (DUR2[127] - DUR2[96]) / 32.0 movff Dur2#127,Pbs_Var0 movff Dur2#127H,Pbs_Var0H movff Dur2#96,Pbs_Var1 movff Dur2#96H,Pbs_Var1H movf Pbs_Var1,W,0 subwf Pbs_Var0,W,0 movwf PP_AARG,0 movf Pbs_Var1H,W,0 subwfb Pbs_Var0H,W,0 movwf PP_AARGH,0 call _Uns_Int16_ToFl32 movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff PP7HHH,stapHHH movff PP7HH,stapHH movff PP7H,stapH movlw 5 subwf PP7,W,0 bc _dvlb__13 bsf _FP_FLAGS,2,0 movlw 0 _dvlb__13 movlb 4 movwf stap,1 F1_001018 equ $ ; IN [TUBO_BEAT4865.BAS] FOR I = 97 TO 126 movlw 97 movwf _I,0 _frlb__314 movlb 0 movlw 127 subwf _I,W,0 btfsc STATUS,0,0 bra _nxlb__315 F1_001019 equ $ ; IN [TUBO_BEAT4865.BAS] TMP = (STAP * (I- 96)) + DUR2[96] movff stapHHH,PP7HHH movff stapHH,PP7HH movff stapH,PP7H movff stap,PP7 movf _I,W,0 call _Sgn_Int08_ToFl32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 movlw 64 movwf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpsub_32__ movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call __fpmult_32__ movff PP_AARGHHH,PP7HHH movff PP_AARGHH,PP7HH movff PP_AARGH,PP7H movff PP_AARG,PP7 movff Dur2#96,Pbs_Var0 movff Dur2#96H,Pbs_Var0H movff Pbs_Var0,PP_AARG movff Pbs_Var0H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG call __fpadd_32__ movff PP_AARGHHH,tmpHHH movff PP_AARGHH,tmpHH movff PP_AARGH,tmpH movff PP_AARG,tmp F1_001020 equ $ ; IN [TUBO_BEAT4865.BAS] DUR2[I] = TMP movff tmpHHH,PP_AARGHHH movff tmpHH,PP_AARGHH movff tmpH,PP_AARGH movff tmp,PP_AARG call _Fl32_To_Int32 lfsr 0,Dur2 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PP_AARG,POSTINC0 movff PP_AARGH,INDF0 _ctlb__316 F1_001021 equ $ ; IN [TUBO_BEAT4865.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _frlb__314 _nxlb__315 F1_001023 equ $ ; IN [TUBO_BEAT4865.BAS] RETURN return 0 F1_EOF equ $ ; TUBO_BEAT4865.BAS _pblb__317 bra _pblb__317 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CP2 = off config CP3 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRT2 = off config WRT3 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTR2 = off config EBTR3 = off config EBTRB = off config PWRT = on end