; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; Let's find out together what makes a PIC Tick! ; ; Code Produced by the Proton BASIC Compiler. Version 3.7.3.3 ; Written by Les Johnson. November 2019 ;---------------------------------------------------------- ; #define Config_Req 1 #define Debug@Req 1 LIST P = 18F2525, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T = ON ; START OF ACCESS SFRS PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_Port=TRISC _I2C_SCL_Pin=3 _I2C_SDA_Port=TRISC _I2C_SDA_Pin=4 ; SFR BITS RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RE3=3 MCLR=3 NOT_MCLR=3 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 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 ABDEN=0 WUE=1 BRG16=3 PP_BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TOUTPS0=3 TOUTPS1=4 TOUTPS2=5 TOUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 FLTS=2 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 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 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F2525 1 #define Xtal 40 #define _Core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0XC000 #define _ADC 10 #define _ADC_Res 10 #define _Eeprom 1024 #define RAM_Banks 15 #define _USART 1 #define _USB 0 #define _Flash 1 #define _Cwrite_Block 64 #define _TRIS_Offset 18 #define __EE_RW_Type 1 #define __MSSP_Type 1 #define __HPWM_Type 1 #define __Adin_Type 1 #define __UART_Type 1 #define Bank0_Start 0X80 #define Bank0_End 0XFF #define Bank1_Start 0X100 #define Bank1_End 0X1FF #define Bank2_Start 0X200 #define Bank2_End 0X2FF #define Bank3_Start 0X300 #define Bank3_End 0X3FF #define Bank4_Start 0X400 #define Bank4_End 0X4FF #define Bank5_Start 0X500 #define Bank5_End 0X5FF #define Bank6_Start 0X600 #define Bank6_End 0X6FF #define Bank7_Start 0X700 #define Bank7_End 0X7FF #define Bank8_Start 0X800 #define Bank8_End 0X8FF #define Bank9_Start 0X900 #define Bank9_End 0X9FF #define Bank10_Start 0XA00 #define Bank10_End 0XAFF #define Bank11_Start 0XB00 #define Bank11_End 0XBFF #define Bank12_Start 0XC00 #define Bank12_End 0XCFF #define Bank13_Start 0XD00 #define Bank13_End 0XDFF #define Bank14_Start 0XE00 #define Bank14_End 0XEFF #define BankA_Start 0X00 #define BankA_End 0X7F #define _System_Variable_Count 50 #define LCD#Type 0 #define __Interrupts_Enabled 1 #define __High_Interrupts_Enabled 1 #define __Low_Interrupts_Enabled 1 #define clrw clrf WREG #define negw negf WREG #define skpc btfss STATUS,0 #define skpnc btfsc STATUS,0 #define clrc bcf STATUS,0 #define setc bsf STATUS,0 #define skpz btfss STATUS,2 #define skpnz btfsc STATUS,2 #define clrz bcf STATUS,2 #define setz bsf STATUS,2 #define _MWRITEANALOG1#REQ 1 #define _MWRITEANALOG2#REQ 1 ; 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 ; USER ACCESS RAM VARIABLES Cnt = 0X10 CntH = 0X11 CntHH = 0X12 CntHHH = 0X13 Bytein = 0X14 MidiIn = 0X15 _I = 0X16 statusbyte = 0X17 noteUit = 0X18 release = 0X19 noteAan = 0X1A velo = 0X1B notePres = 0X1C pres = 0X1D Ctrl = 0X1E value = 0X1F prog = 0X20 CC66 = 0X21 pw1 = 0X22 pw1H = 0X23 pw2 = 0X24 pw2H = 0X25 st = 0X26 b1 = 0X27 b2 = 0X28 Lites = 0X29 idx = 0X2A nxt = 0X2B nxtH = 0X2C nxtHH = 0X2D nxtHHH = 0X2E IndexIn = 0X2F Indexout = 0X30 Resort = 0X31 ; STANDARD VARIABLES Vels = 0X32 variable Vels#0=0X32,Vels#1=0X33,Vels#2=0X34,Vels#3=0X35 variable Vels#4=0X36,Vels#5=0X37,Vels#6=0X38 Ringbuffer = 0X39 variable Ringbuffer#0=0X39,Ringbuffer#1=0X3A,Ringbuffer#2=0X3B,Ringbuffer#3=0X3C variable Ringbuffer#4=0X3D,Ringbuffer#5=0X3E,Ringbuffer#6=0X3F,Ringbuffer#7=0X40 variable Ringbuffer#8=0X41,Ringbuffer#9=0X42,Ringbuffer#10=0X43,Ringbuffer#11=0X44 variable Ringbuffer#12=0X45,Ringbuffer#13=0X46,Ringbuffer#14=0X47,Ringbuffer#15=0X48 variable Ringbuffer#16=0X49,Ringbuffer#17=0X4A,Ringbuffer#18=0X4B,Ringbuffer#19=0X4C variable Ringbuffer#20=0X4D,Ringbuffer#21=0X4E,Ringbuffer#22=0X4F,Ringbuffer#23=0X50 variable Ringbuffer#24=0X51,Ringbuffer#25=0X52,Ringbuffer#26=0X53,Ringbuffer#27=0X54 variable Ringbuffer#28=0X55,Ringbuffer#29=0X56,Ringbuffer#30=0X57,Ringbuffer#31=0X58 variable Ringbuffer#32=0X59,Ringbuffer#33=0X5A,Ringbuffer#34=0X5B,Ringbuffer#35=0X5C variable Ringbuffer#36=0X5D,Ringbuffer#37=0X5E,Ringbuffer#38=0X5F,Ringbuffer#39=0X60 variable Ringbuffer#40=0X61,Ringbuffer#41=0X62,Ringbuffer#42=0X63,Ringbuffer#43=0X64 variable Ringbuffer#44=0X65,Ringbuffer#45=0X66,Ringbuffer#46=0X67,Ringbuffer#47=0X68 variable Ringbuffer#48=0X69,Ringbuffer#49=0X6A,Ringbuffer#50=0X6B,Ringbuffer#51=0X6C variable Ringbuffer#52=0X6D,Ringbuffer#53=0X6E,Ringbuffer#54=0X6F,Ringbuffer#55=0X70 variable Ringbuffer#56=0X71,Ringbuffer#57=0X72,Ringbuffer#58=0X73,Ringbuffer#59=0X74 variable Ringbuffer#60=0X75,Ringbuffer#61=0X76,Ringbuffer#62=0X77,Ringbuffer#63=0X78 variable Ringbuffer#64=0X79,Ringbuffer#65=0X7A,Ringbuffer#66=0X7B,Ringbuffer#67=0X7C variable Ringbuffer#68=0X7D,Ringbuffer#69=0X7E,Ringbuffer#70=0X7F,Ringbuffer#71=0X80 variable Ringbuffer#72=0X81,Ringbuffer#73=0X82,Ringbuffer#74=0X83,Ringbuffer#75=0X84 variable Ringbuffer#76=0X85,Ringbuffer#77=0X86,Ringbuffer#78=0X87,Ringbuffer#79=0X88 variable Ringbuffer#80=0X89,Ringbuffer#81=0X8A,Ringbuffer#82=0X8B,Ringbuffer#83=0X8C variable Ringbuffer#84=0X8D,Ringbuffer#85=0X8E,Ringbuffer#86=0X8F,Ringbuffer#87=0X90 variable Ringbuffer#88=0X91,Ringbuffer#89=0X92,Ringbuffer#90=0X93,Ringbuffer#91=0X94 variable Ringbuffer#92=0X95,Ringbuffer#93=0X96,Ringbuffer#94=0X97,Ringbuffer#95=0X98 variable Ringbuffer#96=0X99,Ringbuffer#97=0X9A,Ringbuffer#98=0X9B,Ringbuffer#99=0X9C variable Ringbuffer#100=0X9D,Ringbuffer#101=0X9E,Ringbuffer#102=0X9F,Ringbuffer#103=0XA0 variable Ringbuffer#104=0XA1,Ringbuffer#105=0XA2,Ringbuffer#106=0XA3,Ringbuffer#107=0XA4 variable Ringbuffer#108=0XA5,Ringbuffer#109=0XA6,Ringbuffer#110=0XA7,Ringbuffer#111=0XA8 variable Ringbuffer#112=0XA9,Ringbuffer#113=0XAA,Ringbuffer#114=0XAB,Ringbuffer#115=0XAC variable Ringbuffer#116=0XAD,Ringbuffer#117=0XAE,Ringbuffer#118=0XAF,Ringbuffer#119=0XB0 variable Ringbuffer#120=0XB1,Ringbuffer#121=0XB2,Ringbuffer#122=0XB3,Ringbuffer#123=0XB4 variable Ringbuffer#124=0XB5,Ringbuffer#125=0XB6,Ringbuffer#126=0XB7,Ringbuffer#127=0XB8 variable Ringbuffer#128=0XB9,Ringbuffer#129=0XBA,Ringbuffer#130=0XBB,Ringbuffer#131=0XBC variable Ringbuffer#132=0XBD,Ringbuffer#133=0XBE,Ringbuffer#134=0XBF,Ringbuffer#135=0XC0 variable Ringbuffer#136=0XC1,Ringbuffer#137=0XC2,Ringbuffer#138=0XC3,Ringbuffer#139=0XC4 variable Ringbuffer#140=0XC5,Ringbuffer#141=0XC6,Ringbuffer#142=0XC7,Ringbuffer#143=0XC8 variable Ringbuffer#144=0XC9,Ringbuffer#145=0XCA,Ringbuffer#146=0XCB,Ringbuffer#147=0XCC variable Ringbuffer#148=0XCD,Ringbuffer#149=0XCE,Ringbuffer#150=0XCF,Ringbuffer#151=0XD0 variable Ringbuffer#152=0XD1,Ringbuffer#153=0XD2,Ringbuffer#154=0XD3,Ringbuffer#155=0XD4 variable Ringbuffer#156=0XD5,Ringbuffer#157=0XD6,Ringbuffer#158=0XD7,Ringbuffer#159=0XD8 variable Ringbuffer#160=0XD9,Ringbuffer#161=0XDA,Ringbuffer#162=0XDB,Ringbuffer#163=0XDC variable Ringbuffer#164=0XDD,Ringbuffer#165=0XDE,Ringbuffer#166=0XDF,Ringbuffer#167=0XE0 variable Ringbuffer#168=0XE1,Ringbuffer#169=0XE2,Ringbuffer#170=0XE3,Ringbuffer#171=0XE4 variable Ringbuffer#172=0XE5,Ringbuffer#173=0XE6,Ringbuffer#174=0XE7,Ringbuffer#175=0XE8 variable Ringbuffer#176=0XE9,Ringbuffer#177=0XEA,Ringbuffer#178=0XEB,Ringbuffer#179=0XEC variable Ringbuffer#180=0XED,Ringbuffer#181=0XEE,Ringbuffer#182=0XEF,Ringbuffer#183=0XF0 variable Ringbuffer#184=0XF1,Ringbuffer#185=0XF2,Ringbuffer#186=0XF3,Ringbuffer#187=0XF4 variable Ringbuffer#188=0XF5,Ringbuffer#189=0XF6,Ringbuffer#190=0XF7,Ringbuffer#191=0XF8 variable Ringbuffer#192=0XF9,Ringbuffer#193=0XFA,Ringbuffer#194=0XFB,Ringbuffer#195=0XFC variable Ringbuffer#196=0XFD,Ringbuffer#197=0XFE,Ringbuffer#198=0XFF,Ringbuffer#199=0X100 variable Ringbuffer#200=0X101,Ringbuffer#201=0X102,Ringbuffer#202=0X103,Ringbuffer#203=0X104 variable Ringbuffer#204=0X105,Ringbuffer#205=0X106,Ringbuffer#206=0X107,Ringbuffer#207=0X108 variable Ringbuffer#208=0X109,Ringbuffer#209=0X10A,Ringbuffer#210=0X10B,Ringbuffer#211=0X10C variable Ringbuffer#212=0X10D,Ringbuffer#213=0X10E,Ringbuffer#214=0X10F,Ringbuffer#215=0X110 variable Ringbuffer#216=0X111,Ringbuffer#217=0X112,Ringbuffer#218=0X113,Ringbuffer#219=0X114 variable Ringbuffer#220=0X115,Ringbuffer#221=0X116,Ringbuffer#222=0X117,Ringbuffer#223=0X118 variable Ringbuffer#224=0X119,Ringbuffer#225=0X11A,Ringbuffer#226=0X11B,Ringbuffer#227=0X11C variable Ringbuffer#228=0X11D,Ringbuffer#229=0X11E,Ringbuffer#230=0X11F,Ringbuffer#231=0X120 variable Ringbuffer#232=0X121,Ringbuffer#233=0X122,Ringbuffer#234=0X123,Ringbuffer#235=0X124 variable Ringbuffer#236=0X125,Ringbuffer#237=0X126,Ringbuffer#238=0X127,Ringbuffer#239=0X128 variable Ringbuffer#240=0X129,Ringbuffer#241=0X12A,Ringbuffer#242=0X12B,Ringbuffer#243=0X12C variable Ringbuffer#244=0X12D,Ringbuffer#245=0X12E,Ringbuffer#246=0X12F,Ringbuffer#247=0X130 variable Ringbuffer#248=0X131,Ringbuffer#249=0X132,Ringbuffer#250=0X133,Ringbuffer#251=0X134 variable Ringbuffer#252=0X135,Ringbuffer#253=0X136,Ringbuffer#254=0X137,Ringbuffer#255=0X138 TimVals = 0X139 TimValsH = 0X13A TimValsHH = 0X13B TimValsHHH = 0X13C variable TimVals#0=0X139,TimVals#0H=0X13A,TimVals#0HH=0X13B,TimVals#0HHH=0X13C variable TimVals#1=0X13D,TimVals#1H=0X13E,TimVals#1HH=0X13F,TimVals#1HHH=0X140 variable TimVals#2=0X141,TimVals#2H=0X142,TimVals#2HH=0X143,TimVals#2HHH=0X144 variable TimVals#3=0X145,TimVals#3H=0X146,TimVals#3HH=0X147,TimVals#3HHH=0X148 variable TimVals#4=0X149,TimVals#4H=0X14A,TimVals#4HH=0X14B,TimVals#4HHH=0X14C variable TimVals#5=0X14D,TimVals#5H=0X14E,TimVals#5HH=0X14F,TimVals#5HHH=0X150 variable TimVals#6=0X151,TimVals#6H=0X152,TimVals#6HH=0X153,TimVals#6HHH=0X154 Dur = 0X155 DurH = 0X156 variable Dur#0=0X155,Dur#0H=0X156,Dur#1=0X157,Dur#1H=0X158 variable Dur#2=0X159,Dur#2H=0X15A,Dur#3=0X15B,Dur#3H=0X15C variable Dur#4=0X15D,Dur#4H=0X15E,Dur#5=0X15F,Dur#5H=0X160 variable Dur#6=0X161,Dur#6H=0X162,Dur#7=0X163,Dur#7H=0X164 variable Dur#8=0X165,Dur#8H=0X166,Dur#9=0X167,Dur#9H=0X168 variable Dur#10=0X169,Dur#10H=0X16A,Dur#11=0X16B,Dur#11H=0X16C variable Dur#12=0X16D,Dur#12H=0X16E,Dur#13=0X16F,Dur#13H=0X170 variable Dur#14=0X171,Dur#14H=0X172,Dur#15=0X173,Dur#15H=0X174 variable Dur#16=0X175,Dur#16H=0X176,Dur#17=0X177,Dur#17H=0X178 variable Dur#18=0X179,Dur#18H=0X17A,Dur#19=0X17B,Dur#19H=0X17C variable Dur#20=0X17D,Dur#20H=0X17E,Dur#21=0X17F,Dur#21H=0X180 variable Dur#22=0X181,Dur#22H=0X182,Dur#23=0X183,Dur#23H=0X184 variable Dur#24=0X185,Dur#24H=0X186,Dur#25=0X187,Dur#25H=0X188 variable Dur#26=0X189,Dur#26H=0X18A,Dur#27=0X18B,Dur#27H=0X18C variable Dur#28=0X18D,Dur#28H=0X18E,Dur#29=0X18F,Dur#29H=0X190 variable Dur#30=0X191,Dur#30H=0X192,Dur#31=0X193,Dur#31H=0X194 variable Dur#32=0X195,Dur#32H=0X196,Dur#33=0X197,Dur#33H=0X198 variable Dur#34=0X199,Dur#34H=0X19A,Dur#35=0X19B,Dur#35H=0X19C variable Dur#36=0X19D,Dur#36H=0X19E,Dur#37=0X19F,Dur#37H=0X1A0 variable Dur#38=0X1A1,Dur#38H=0X1A2,Dur#39=0X1A3,Dur#39H=0X1A4 variable Dur#40=0X1A5,Dur#40H=0X1A6,Dur#41=0X1A7,Dur#41H=0X1A8 variable Dur#42=0X1A9,Dur#42H=0X1AA,Dur#43=0X1AB,Dur#43H=0X1AC variable Dur#44=0X1AD,Dur#44H=0X1AE,Dur#45=0X1AF,Dur#45H=0X1B0 variable Dur#46=0X1B1,Dur#46H=0X1B2,Dur#47=0X1B3,Dur#47H=0X1B4 variable Dur#48=0X1B5,Dur#48H=0X1B6,Dur#49=0X1B7,Dur#49H=0X1B8 variable Dur#50=0X1B9,Dur#50H=0X1BA,Dur#51=0X1BB,Dur#51H=0X1BC variable Dur#52=0X1BD,Dur#52H=0X1BE,Dur#53=0X1BF,Dur#53H=0X1C0 variable Dur#54=0X1C1,Dur#54H=0X1C2,Dur#55=0X1C3,Dur#55H=0X1C4 variable Dur#56=0X1C5,Dur#56H=0X1C6,Dur#57=0X1C7,Dur#57H=0X1C8 variable Dur#58=0X1C9,Dur#58H=0X1CA,Dur#59=0X1CB,Dur#59H=0X1CC variable Dur#60=0X1CD,Dur#60H=0X1CE,Dur#61=0X1CF,Dur#61H=0X1D0 variable Dur#62=0X1D1,Dur#62H=0X1D2,Dur#63=0X1D3,Dur#63H=0X1D4 variable Dur#64=0X1D5,Dur#64H=0X1D6,Dur#65=0X1D7,Dur#65H=0X1D8 variable Dur#66=0X1D9,Dur#66H=0X1DA,Dur#67=0X1DB,Dur#67H=0X1DC variable Dur#68=0X1DD,Dur#68H=0X1DE,Dur#69=0X1DF,Dur#69H=0X1E0 variable Dur#70=0X1E1,Dur#70H=0X1E2,Dur#71=0X1E3,Dur#71H=0X1E4 variable Dur#72=0X1E5,Dur#72H=0X1E6,Dur#73=0X1E7,Dur#73H=0X1E8 variable Dur#74=0X1E9,Dur#74H=0X1EA,Dur#75=0X1EB,Dur#75H=0X1EC variable Dur#76=0X1ED,Dur#76H=0X1EE,Dur#77=0X1EF,Dur#77H=0X1F0 variable Dur#78=0X1F1,Dur#78H=0X1F2,Dur#79=0X1F3,Dur#79H=0X1F4 variable Dur#80=0X1F5,Dur#80H=0X1F6,Dur#81=0X1F7,Dur#81H=0X1F8 variable Dur#82=0X1F9,Dur#82H=0X1FA,Dur#83=0X1FB,Dur#83H=0X1FC variable Dur#84=0X1FD,Dur#84H=0X1FE,Dur#85=0X1FF,Dur#85H=0X200 variable Dur#86=0X201,Dur#86H=0X202,Dur#87=0X203,Dur#87H=0X204 variable Dur#88=0X205,Dur#88H=0X206,Dur#89=0X207,Dur#89H=0X208 variable Dur#90=0X209,Dur#90H=0X20A,Dur#91=0X20B,Dur#91H=0X20C variable Dur#92=0X20D,Dur#92H=0X20E,Dur#93=0X20F,Dur#93H=0X210 variable Dur#94=0X211,Dur#94H=0X212,Dur#95=0X213,Dur#95H=0X214 variable Dur#96=0X215,Dur#96H=0X216,Dur#97=0X217,Dur#97H=0X218 variable Dur#98=0X219,Dur#98H=0X21A,Dur#99=0X21B,Dur#99H=0X21C variable Dur#100=0X21D,Dur#100H=0X21E,Dur#101=0X21F,Dur#101H=0X220 variable Dur#102=0X221,Dur#102H=0X222,Dur#103=0X223,Dur#103H=0X224 variable Dur#104=0X225,Dur#104H=0X226,Dur#105=0X227,Dur#105H=0X228 variable Dur#106=0X229,Dur#106H=0X22A,Dur#107=0X22B,Dur#107H=0X22C variable Dur#108=0X22D,Dur#108H=0X22E,Dur#109=0X22F,Dur#109H=0X230 variable Dur#110=0X231,Dur#110H=0X232,Dur#111=0X233,Dur#111H=0X234 variable Dur#112=0X235,Dur#112H=0X236,Dur#113=0X237,Dur#113H=0X238 variable Dur#114=0X239,Dur#114H=0X23A,Dur#115=0X23B,Dur#115H=0X23C variable Dur#116=0X23D,Dur#116H=0X23E,Dur#117=0X23F,Dur#117H=0X240 variable Dur#118=0X241,Dur#118H=0X242,Dur#119=0X243,Dur#119H=0X244 variable Dur#120=0X245,Dur#120H=0X246,Dur#121=0X247,Dur#121H=0X248 variable Dur#122=0X249,Dur#122H=0X24A,Dur#123=0X24B,Dur#123H=0X24C variable Dur#124=0X24D,Dur#124H=0X24E,Dur#125=0X24F,Dur#125H=0X250 variable Dur#126=0X251,Dur#126H=0X252,Dur#127=0X253,Dur#127H=0X254 Fan = 0X255 FanH = 0X256 variable Fan#0=0X255,Fan#0H=0X256,Fan#1=0X257,Fan#1H=0X258 variable Fan#2=0X259,Fan#2H=0X25A,Fan#3=0X25B,Fan#3H=0X25C variable Fan#4=0X25D,Fan#4H=0X25E,Fan#5=0X25F,Fan#5H=0X260 variable Fan#6=0X261,Fan#6H=0X262,Fan#7=0X263,Fan#7H=0X264 variable Fan#8=0X265,Fan#8H=0X266,Fan#9=0X267,Fan#9H=0X268 variable Fan#10=0X269,Fan#10H=0X26A,Fan#11=0X26B,Fan#11H=0X26C variable Fan#12=0X26D,Fan#12H=0X26E,Fan#13=0X26F,Fan#13H=0X270 variable Fan#14=0X271,Fan#14H=0X272,Fan#15=0X273,Fan#15H=0X274 variable Fan#16=0X275,Fan#16H=0X276,Fan#17=0X277,Fan#17H=0X278 variable Fan#18=0X279,Fan#18H=0X27A,Fan#19=0X27B,Fan#19H=0X27C variable Fan#20=0X27D,Fan#20H=0X27E,Fan#21=0X27F,Fan#21H=0X280 variable Fan#22=0X281,Fan#22H=0X282,Fan#23=0X283,Fan#23H=0X284 variable Fan#24=0X285,Fan#24H=0X286,Fan#25=0X287,Fan#25H=0X288 variable Fan#26=0X289,Fan#26H=0X28A,Fan#27=0X28B,Fan#27H=0X28C variable Fan#28=0X28D,Fan#28H=0X28E,Fan#29=0X28F,Fan#29H=0X290 variable Fan#30=0X291,Fan#30H=0X292,Fan#31=0X293,Fan#31H=0X294 variable Fan#32=0X295,Fan#32H=0X296,Fan#33=0X297,Fan#33H=0X298 variable Fan#34=0X299,Fan#34H=0X29A,Fan#35=0X29B,Fan#35H=0X29C variable Fan#36=0X29D,Fan#36H=0X29E,Fan#37=0X29F,Fan#37H=0X2A0 variable Fan#38=0X2A1,Fan#38H=0X2A2,Fan#39=0X2A3,Fan#39H=0X2A4 variable Fan#40=0X2A5,Fan#40H=0X2A6,Fan#41=0X2A7,Fan#41H=0X2A8 variable Fan#42=0X2A9,Fan#42H=0X2AA,Fan#43=0X2AB,Fan#43H=0X2AC variable Fan#44=0X2AD,Fan#44H=0X2AE,Fan#45=0X2AF,Fan#45H=0X2B0 variable Fan#46=0X2B1,Fan#46H=0X2B2,Fan#47=0X2B3,Fan#47H=0X2B4 variable Fan#48=0X2B5,Fan#48H=0X2B6,Fan#49=0X2B7,Fan#49H=0X2B8 variable Fan#50=0X2B9,Fan#50H=0X2BA,Fan#51=0X2BB,Fan#51H=0X2BC variable Fan#52=0X2BD,Fan#52H=0X2BE,Fan#53=0X2BF,Fan#53H=0X2C0 variable Fan#54=0X2C1,Fan#54H=0X2C2,Fan#55=0X2C3,Fan#55H=0X2C4 variable Fan#56=0X2C5,Fan#56H=0X2C6,Fan#57=0X2C7,Fan#57H=0X2C8 variable Fan#58=0X2C9,Fan#58H=0X2CA,Fan#59=0X2CB,Fan#59H=0X2CC variable Fan#60=0X2CD,Fan#60H=0X2CE,Fan#61=0X2CF,Fan#61H=0X2D0 variable Fan#62=0X2D1,Fan#62H=0X2D2,Fan#63=0X2D3,Fan#63H=0X2D4 variable Fan#64=0X2D5,Fan#64H=0X2D6,Fan#65=0X2D7,Fan#65H=0X2D8 variable Fan#66=0X2D9,Fan#66H=0X2DA,Fan#67=0X2DB,Fan#67H=0X2DC variable Fan#68=0X2DD,Fan#68H=0X2DE,Fan#69=0X2DF,Fan#69H=0X2E0 variable Fan#70=0X2E1,Fan#70H=0X2E2,Fan#71=0X2E3,Fan#71H=0X2E4 variable Fan#72=0X2E5,Fan#72H=0X2E6,Fan#73=0X2E7,Fan#73H=0X2E8 variable Fan#74=0X2E9,Fan#74H=0X2EA,Fan#75=0X2EB,Fan#75H=0X2EC variable Fan#76=0X2ED,Fan#76H=0X2EE,Fan#77=0X2EF,Fan#77H=0X2F0 variable Fan#78=0X2F1,Fan#78H=0X2F2,Fan#79=0X2F3,Fan#79H=0X2F4 variable Fan#80=0X2F5,Fan#80H=0X2F6,Fan#81=0X2F7,Fan#81H=0X2F8 variable Fan#82=0X2F9,Fan#82H=0X2FA,Fan#83=0X2FB,Fan#83H=0X2FC variable Fan#84=0X2FD,Fan#84H=0X2FE,Fan#85=0X2FF,Fan#85H=0X300 variable Fan#86=0X301,Fan#86H=0X302,Fan#87=0X303,Fan#87H=0X304 variable Fan#88=0X305,Fan#88H=0X306,Fan#89=0X307,Fan#89H=0X308 variable Fan#90=0X309,Fan#90H=0X30A,Fan#91=0X30B,Fan#91H=0X30C variable Fan#92=0X30D,Fan#92H=0X30E,Fan#93=0X30F,Fan#93H=0X310 variable Fan#94=0X311,Fan#94H=0X312,Fan#95=0X313,Fan#95H=0X314 variable Fan#96=0X315,Fan#96H=0X316,Fan#97=0X317,Fan#97H=0X318 variable Fan#98=0X319,Fan#98H=0X31A,Fan#99=0X31B,Fan#99H=0X31C variable Fan#100=0X31D,Fan#100H=0X31E,Fan#101=0X31F,Fan#101H=0X320 variable Fan#102=0X321,Fan#102H=0X322,Fan#103=0X323,Fan#103H=0X324 variable Fan#104=0X325,Fan#104H=0X326,Fan#105=0X327,Fan#105H=0X328 variable Fan#106=0X329,Fan#106H=0X32A,Fan#107=0X32B,Fan#107H=0X32C variable Fan#108=0X32D,Fan#108H=0X32E,Fan#109=0X32F,Fan#109H=0X330 variable Fan#110=0X331,Fan#110H=0X332,Fan#111=0X333,Fan#111H=0X334 variable Fan#112=0X335,Fan#112H=0X336,Fan#113=0X337,Fan#113H=0X338 variable Fan#114=0X339,Fan#114H=0X33A,Fan#115=0X33B,Fan#115H=0X33C variable Fan#116=0X33D,Fan#116H=0X33E,Fan#117=0X33F,Fan#117H=0X340 variable Fan#118=0X341,Fan#118H=0X342,Fan#119=0X343,Fan#119H=0X344 variable Fan#120=0X345,Fan#120H=0X346,Fan#121=0X347,Fan#121H=0X348 variable Fan#122=0X349,Fan#122H=0X34A,Fan#123=0X34B,Fan#123H=0X34C variable Fan#124=0X34D,Fan#124H=0X34E,Fan#125=0X34F,Fan#125H=0X350 variable Fan#126=0X351,Fan#126H=0X352,Fan#127=0X353,Fan#127H=0X354 Mot = 0X355 MotH = 0X356 variable Mot#0=0X355,Mot#0H=0X356,Mot#1=0X357,Mot#1H=0X358 variable Mot#2=0X359,Mot#2H=0X35A,Mot#3=0X35B,Mot#3H=0X35C variable Mot#4=0X35D,Mot#4H=0X35E,Mot#5=0X35F,Mot#5H=0X360 variable Mot#6=0X361,Mot#6H=0X362,Mot#7=0X363,Mot#7H=0X364 variable Mot#8=0X365,Mot#8H=0X366,Mot#9=0X367,Mot#9H=0X368 variable Mot#10=0X369,Mot#10H=0X36A,Mot#11=0X36B,Mot#11H=0X36C variable Mot#12=0X36D,Mot#12H=0X36E,Mot#13=0X36F,Mot#13H=0X370 variable Mot#14=0X371,Mot#14H=0X372,Mot#15=0X373,Mot#15H=0X374 variable Mot#16=0X375,Mot#16H=0X376,Mot#17=0X377,Mot#17H=0X378 variable Mot#18=0X379,Mot#18H=0X37A,Mot#19=0X37B,Mot#19H=0X37C variable Mot#20=0X37D,Mot#20H=0X37E,Mot#21=0X37F,Mot#21H=0X380 variable Mot#22=0X381,Mot#22H=0X382,Mot#23=0X383,Mot#23H=0X384 variable Mot#24=0X385,Mot#24H=0X386,Mot#25=0X387,Mot#25H=0X388 variable Mot#26=0X389,Mot#26H=0X38A,Mot#27=0X38B,Mot#27H=0X38C variable Mot#28=0X38D,Mot#28H=0X38E,Mot#29=0X38F,Mot#29H=0X390 variable Mot#30=0X391,Mot#30H=0X392,Mot#31=0X393,Mot#31H=0X394 variable Mot#32=0X395,Mot#32H=0X396,Mot#33=0X397,Mot#33H=0X398 variable Mot#34=0X399,Mot#34H=0X39A,Mot#35=0X39B,Mot#35H=0X39C variable Mot#36=0X39D,Mot#36H=0X39E,Mot#37=0X39F,Mot#37H=0X3A0 variable Mot#38=0X3A1,Mot#38H=0X3A2,Mot#39=0X3A3,Mot#39H=0X3A4 variable Mot#40=0X3A5,Mot#40H=0X3A6,Mot#41=0X3A7,Mot#41H=0X3A8 variable Mot#42=0X3A9,Mot#42H=0X3AA,Mot#43=0X3AB,Mot#43H=0X3AC variable Mot#44=0X3AD,Mot#44H=0X3AE,Mot#45=0X3AF,Mot#45H=0X3B0 variable Mot#46=0X3B1,Mot#46H=0X3B2,Mot#47=0X3B3,Mot#47H=0X3B4 variable Mot#48=0X3B5,Mot#48H=0X3B6,Mot#49=0X3B7,Mot#49H=0X3B8 variable Mot#50=0X3B9,Mot#50H=0X3BA,Mot#51=0X3BB,Mot#51H=0X3BC variable Mot#52=0X3BD,Mot#52H=0X3BE,Mot#53=0X3BF,Mot#53H=0X3C0 variable Mot#54=0X3C1,Mot#54H=0X3C2,Mot#55=0X3C3,Mot#55H=0X3C4 variable Mot#56=0X3C5,Mot#56H=0X3C6,Mot#57=0X3C7,Mot#57H=0X3C8 variable Mot#58=0X3C9,Mot#58H=0X3CA,Mot#59=0X3CB,Mot#59H=0X3CC variable Mot#60=0X3CD,Mot#60H=0X3CE,Mot#61=0X3CF,Mot#61H=0X3D0 variable Mot#62=0X3D1,Mot#62H=0X3D2,Mot#63=0X3D3,Mot#63H=0X3D4 variable Mot#64=0X3D5,Mot#64H=0X3D6,Mot#65=0X3D7,Mot#65H=0X3D8 variable Mot#66=0X3D9,Mot#66H=0X3DA,Mot#67=0X3DB,Mot#67H=0X3DC variable Mot#68=0X3DD,Mot#68H=0X3DE,Mot#69=0X3DF,Mot#69H=0X3E0 variable Mot#70=0X3E1,Mot#70H=0X3E2,Mot#71=0X3E3,Mot#71H=0X3E4 variable Mot#72=0X3E5,Mot#72H=0X3E6,Mot#73=0X3E7,Mot#73H=0X3E8 variable Mot#74=0X3E9,Mot#74H=0X3EA,Mot#75=0X3EB,Mot#75H=0X3EC variable Mot#76=0X3ED,Mot#76H=0X3EE,Mot#77=0X3EF,Mot#77H=0X3F0 variable Mot#78=0X3F1,Mot#78H=0X3F2,Mot#79=0X3F3,Mot#79H=0X3F4 variable Mot#80=0X3F5,Mot#80H=0X3F6,Mot#81=0X3F7,Mot#81H=0X3F8 variable Mot#82=0X3F9,Mot#82H=0X3FA,Mot#83=0X3FB,Mot#83H=0X3FC variable Mot#84=0X3FD,Mot#84H=0X3FE,Mot#85=0X3FF,Mot#85H=0X400 variable Mot#86=0X401,Mot#86H=0X402,Mot#87=0X403,Mot#87H=0X404 variable Mot#88=0X405,Mot#88H=0X406,Mot#89=0X407,Mot#89H=0X408 variable Mot#90=0X409,Mot#90H=0X40A,Mot#91=0X40B,Mot#91H=0X40C variable Mot#92=0X40D,Mot#92H=0X40E,Mot#93=0X40F,Mot#93H=0X410 variable Mot#94=0X411,Mot#94H=0X412,Mot#95=0X413,Mot#95H=0X414 variable Mot#96=0X415,Mot#96H=0X416,Mot#97=0X417,Mot#97H=0X418 variable Mot#98=0X419,Mot#98H=0X41A,Mot#99=0X41B,Mot#99H=0X41C variable Mot#100=0X41D,Mot#100H=0X41E,Mot#101=0X41F,Mot#101H=0X420 variable Mot#102=0X421,Mot#102H=0X422,Mot#103=0X423,Mot#103H=0X424 variable Mot#104=0X425,Mot#104H=0X426,Mot#105=0X427,Mot#105H=0X428 variable Mot#106=0X429,Mot#106H=0X42A,Mot#107=0X42B,Mot#107H=0X42C variable Mot#108=0X42D,Mot#108H=0X42E,Mot#109=0X42F,Mot#109H=0X430 variable Mot#110=0X431,Mot#110H=0X432,Mot#111=0X433,Mot#111H=0X434 variable Mot#112=0X435,Mot#112H=0X436,Mot#113=0X437,Mot#113H=0X438 variable Mot#114=0X439,Mot#114H=0X43A,Mot#115=0X43B,Mot#115H=0X43C variable Mot#116=0X43D,Mot#116H=0X43E,Mot#117=0X43F,Mot#117H=0X440 variable Mot#118=0X441,Mot#118H=0X442,Mot#119=0X443,Mot#119H=0X444 variable Mot#120=0X445,Mot#120H=0X446,Mot#121=0X447,Mot#121H=0X448 variable Mot#122=0X449,Mot#122H=0X44A,Mot#123=0X44B,Mot#123H=0X44C variable Mot#124=0X44D,Mot#124H=0X44E,Mot#125=0X44F,Mot#125H=0X450 variable Mot#126=0X451,Mot#126H=0X452,Mot#127=0X453,Mot#127H=0X454 ; HEAP VARIABLES _Low__Context_Store = 0X455 variable _Low__Context_Store#0=0X455,_Low__Context_Store#1=0X456,_Low__Context_Store#2=0X457 ; ALIAS VARIABLES #define __CCP1_PORT PORTC #define __HPWM1_PORT PORTC #define __CCP1_PORT_PIN PORTC,2 #define __HPWM1_PORT_PIN PORTC,2 #define __CCP2_PORT PORTC #define __HPWM2_PORT PORTC #define __CCP2_PORT_PIN PORTC,1 #define __HPWM2_PORT_PIN PORTC,1 #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 maxtim timeHHH,7 #define StBit Bytein,7 #define PowerOn CC66,0 #define Resort_flag Resort,0 ; CONSTANTS #define __Optimiser_Level 3 #define __Xtal 40 #define __CCP1_PIN 2 #define __HPWM1_PIN 2 #define __CCP2_PIN 1 #define __HPWM2_PIN 1 #define PWMMINF 2442 #define PWMminFH 9 #define MIDICHANNEL 11 #define NOTEOFF_STATUS 139 #define NOTEON_STATUS 155 #define KEYPRES_STATUS 171 #define CONTROL_STATUS 187 #define PROGCHANGE_STATUS 203 #define AFTERTOUCH_STATUS 219 #define PITCHBEND_STATUS 235 #define NRTASKS 7 #define FPWM 20000 #define fPWMH 78 #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 proton#main#start 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 $ ; WHISPER_HUB.BAS F2_SOF equ $ ; 18F2525.INC movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F2525.INC F1_000082 equ $ ; IN [WHISPER_HUB.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000083 equ $ ; IN [WHISPER_HUB.BAS] TRISA = %01000111 movlw 71 movwf TRISA,0 F1_000084 equ $ ; IN [WHISPER_HUB.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000085 equ $ ; IN [WHISPER_HUB.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000104 equ $ ; IN [WHISPER_HUB.BAS] DECLARE ALL_DIGITAL = TRUE F3_SOF equ $ ; WHISPER19_IRQ.INC F3_000043 equ $ ; IN [WHISPER19_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _UART_IRQ F3_000054 equ $ ; IN [WHISPER19_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _lbl__3 F3_000055 equ $ ; IN [WHISPER19_IRQ.INC] IF RCSTA.2 = 1 THEN btfss RCSTA,2,0 bra _lbl__5 F3_000056 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000057 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000058 equ $ ; IN [WHISPER19_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000059 equ $ ; IN [WHISPER19_IRQ.INC] RETFIE FAST retfie 1 F3_000060 equ $ ; IN [WHISPER19_IRQ.INC] ENDIF _lbl__5 F3_000061 equ $ ; IN [WHISPER19_IRQ.INC] IF RCSTA.1 = 1 THEN btfss RCSTA,1,0 bra _lbl__7 F3_000062 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000063 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000064 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000065 equ $ ; IN [WHISPER19_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000066 equ $ ; IN [WHISPER19_IRQ.INC] RETFIE FAST retfie 1 F3_000067 equ $ ; IN [WHISPER19_IRQ.INC] ENDIF _lbl__7 F3_000068 equ $ ; IN [WHISPER19_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000070 equ $ ; IN [WHISPER19_IRQ.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 [WHISPER19_IRQ.INC] RETFIE FAST retfie 1 F3_000072 equ $ ; IN [WHISPER19_IRQ.INC] ENDIF _lbl__3 _Timer0_IRQ F3_000074 equ $ ; IN [WHISPER19_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _lbl__9 F3_000075 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000076 equ $ ; IN [WHISPER19_IRQ.INC] INC CNT.WORD1 infsnz CntHH,F,0 incf CntHHH,F,0 F3_000077 equ $ ; IN [WHISPER19_IRQ.INC] CNT.WORD0 = CNTLW movff TMR0L,Cnt movff TMR0LH,CntH F3_000078 equ $ ; IN [WHISPER19_IRQ.INC] BTG PORTB.5 btg PORTB,5 F3_000079 equ $ ; IN [WHISPER19_IRQ.INC] RETFIE FAST retfie 1 F3_000080 equ $ ; IN [WHISPER19_IRQ.INC] ENDIF _lbl__9 GetMidiIn F3_000084 equ $ ; IN [WHISPER19_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf Indexout,W,0 bz _lbl__11 F3_000085 equ $ ; IN [WHISPER19_IRQ.INC] INC INDEXOUT incf Indexout,F,0 F3_000086 equ $ ; IN [WHISPER19_IRQ.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 [WHISPER19_IRQ.INC] ELSE F3_000088 equ $ ; IN [WHISPER19_IRQ.INC] MIDIIN = 255 setf MidiIn,0 F3_000089 equ $ ; IN [WHISPER19_IRQ.INC] ENDIF _lbl__12 F3_000090 equ $ ; IN [WHISPER19_IRQ.INC] ENDSUB return 0 ; ENDSUB ;--------------------------------------------- Init_Usart_Interrupt F3_000105 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR RINGBUFFER[0] clrf Ringbuffer#0,0 F3_000106 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000107 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR INDEXOUT clrf Indexout,0 F3_000108 equ $ ; IN [WHISPER19_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000110 equ $ ; IN [WHISPER19_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000114 equ $ ; IN [WHISPER19_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000115 equ $ ; IN [WHISPER19_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000117 equ $ ; IN [WHISPER19_IRQ.INC] RETURN return 0 Clear_Serial_Buffer F3_000126 equ $ ; IN [WHISPER19_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000127 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR RINGBUFFER[0] clrf Ringbuffer#0,0 F3_000128 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000129 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR INDEXOUT clrf Indexout,0 F3_000130 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000131 equ $ ; IN [WHISPER19_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000132 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000133 equ $ ; IN [WHISPER19_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000134 equ $ ; IN [WHISPER19_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000135 equ $ ; IN [WHISPER19_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000143 equ $ ; IN [WHISPER19_IRQ.INC] CONTEXT SAVE bcf INTCON,7,0 movff BSR,_Low__Context_Store#0 movff STATUS,_Low__Context_Store#1 movff WREG,_Low__Context_Store#2 bsf INTCON,7,0 movlb 0 F3_000144 equ $ ; IN [WHISPER19_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000151 equ $ ; IN [WHISPER19_IRQ.INC] CONTEXT RESTORE bcf INTCON,7,0 movff _Low__Context_Store#0,BSR movff _Low__Context_Store#1,STATUS movff _Low__Context_Store#2,WREG bsf INTCON,7,0 retfie F3_000152 equ $ ; IN [WHISPER19_IRQ.INC] RETFIE retfie _Over_IRQ_Handler F3_EOF equ $ ; WHISPER19_IRQ.INC F4_SOF equ $ ; HPWM10.INC F4_000017 equ $ ; IN [HPWM10.INC] PR2 = 255 setf PR2,0 F4_000019 equ $ ; IN [HPWM10.INC] CCPR1L = 0 clrf CCPR1L,0 F4_000020 equ $ ; IN [HPWM10.INC] CCP1CON = %00001100 movlw 12 movwf CCP1CON,0 F4_000021 equ $ ; IN [HPWM10.INC] OUTPUT PORTC.2 bcf TRISC,2,0 F4_000028 equ $ ; IN [HPWM10.INC] CCPR2L = 0 clrf CCPR2L,0 F4_000029 equ $ ; IN [HPWM10.INC] CCP2CON = %00001100 movwf CCP2CON,0 F4_000030 equ $ ; IN [HPWM10.INC] OUTPUT PORTC.1 bcf TRISC,1,0 F4_000033 equ $ ; IN [HPWM10.INC] T2CON = %00000101 movlw 5 movwf T2CON,0 F4_000034 equ $ ; IN [HPWM10.INC] PR2 = 127 movlw 127 movwf PR2,0 F4_000035 equ $ ; IN [HPWM10.INC] CCPR1L = 0 clrf CCPR1L,0 F4_000036 equ $ ; IN [HPWM10.INC] CCP1CON = %00001100 movlw 12 movwf CCP1CON,0 F4_000037 equ $ ; IN [HPWM10.INC] OUTPUT PORTC.2 bcf TRISC,2,0 F4_000038 equ $ ; IN [HPWM10.INC] CCPR2L = 0 clrf CCPR2L,0 F4_000039 equ $ ; IN [HPWM10.INC] CCP2CON = %00001100 movwf CCP2CON,0 F4_000040 equ $ ; IN [HPWM10.INC] OUTPUT PORTC.1 bcf TRISC,1,0 F4_EOF equ $ ; HPWM10.INC F1_000168 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000169 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000170 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000171 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000172 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000173 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000174 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000175 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000180 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 0 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 movlw 207 andwf CCP1CON,F movlw 0 iorwf CCP1CON,F movlw 0 movwf CCPR1L F1_000181 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 0 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 movlw 207 andwf CCP2CON,F movlw 0 iorwf CCP2CON,F movlw 0 movwf CCPR2L F1_000183 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000184 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000185 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000186 equ $ ; IN [WHISPER_HUB.BAS] CLEAR CC66 clrf CC66,0 F1_000187 equ $ ; IN [WHISPER_HUB.BAS] GOSUB DUR_LOOKUP call Dur_Lookup MAIN F1_000194 equ $ ; IN [WHISPER_HUB.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000195 equ $ ; IN [WHISPER_HUB.BAS] DELAYMS 50 movlw 50 rcall __delay_ms_ F1_000196 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000197 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000198 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000199 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000200 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000201 equ $ ; IN [WHISPER_HUB.BAS] SET IDX setf idx,0 F1_000202 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000203 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES clrf Lites,0 F1_000204 equ $ ; IN [WHISPER_HUB.BAS] GOSUB INIT_USART_INTERRUPT rcall Init_Usart_Interrupt F1_000206 equ $ ; IN [WHISPER_HUB.BAS] GOSUB CLEAR_SERIAL_BUFFER rcall Clear_Serial_Buffer F1_000216 equ $ ; IN [WHISPER_HUB.BAS] CLEAR T1CON clrf T1CON,0 F1_000217 equ $ ; IN [WHISPER_HUB.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000218 equ $ ; IN [WHISPER_HUB.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000219 equ $ ; IN [WHISPER_HUB.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000228 equ $ ; IN [WHISPER_HUB.BAS] CLEAR T3CON clrf T3CON,0 F1_000229 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000230 equ $ ; IN [WHISPER_HUB.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000232 equ $ ; IN [WHISPER_HUB.BAS] SET RCON.7 bsf RCON,7,0 F1_000233 equ $ ; IN [WHISPER_HUB.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000235 equ $ ; IN [WHISPER_HUB.BAS] T3CON = %10110000 movlw 176 movwf T3CON,0 F1_000243 equ $ ; IN [WHISPER_HUB.BAS] HRSOUT CTRL, 66, 64 movf Ctrl,W,0 rcall __hrsout1__ movlw 66 rcall __hrsout1__ movlw 64 rcall __hrsout1__ F1_000246 equ $ ; IN [WHISPER_HUB.BAS] DO _lbl__13 F1_000248 equ $ ; IN [WHISPER_HUB.BAS] CNT.WORD0 = CNTLW movff TMR0L,Cnt movff TMR0LH,CntH F1_000249 equ $ ; IN [WHISPER_HUB.BAS] GETMIDIIN () rcall GetMidiIn F1_000250 equ $ ; IN [WHISPER_HUB.BAS] BYTEIN = MIDIIN movff MidiIn,Bytein Midi_Parse F1_000253 equ $ ; IN [WHISPER_HUB.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 188 subwf Bytein,W,0 bnc _lbl__17 F1_000254 equ $ ; IN [WHISPER_HUB.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bnc _lbl__19 F1_000258 equ $ ; IN [WHISPER_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _lbl__20 _lbl__19 F1_000259 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000260 equ $ ; IN [WHISPER_HUB.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000261 equ $ ; IN [WHISPER_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000262 equ $ ; IN [WHISPER_HUB.BAS] END IF _lbl__20 F1_000263 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__17 F1_000264 equ $ ; IN [WHISPER_HUB.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _lbl__22 F1_000266 equ $ ; IN [WHISPER_HUB.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000267 equ $ ; IN [WHISPER_HUB.BAS] SELECT BYTEIN F1_000268 equ $ ; IN [WHISPER_HUB.BAS] CASE NOTEOFF_STATUS movlw 139 subwf Bytein,W,0 bnz _lbl__24 F1_000269 equ $ ; IN [WHISPER_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000270 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEUIT setf noteUit,0 F1_000271 equ $ ; IN [WHISPER_HUB.BAS] SET RELEASE setf release,0 bra _lbl__23 _lbl__24 F1_000272 equ $ ; IN [WHISPER_HUB.BAS] CASE NOTEON_STATUS movlw 155 subwf Bytein,W,0 bnz _lbl__27 F1_000273 equ $ ; IN [WHISPER_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000274 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000275 equ $ ; IN [WHISPER_HUB.BAS] SET VELO setf velo,0 bra _lbl__23 _lbl__27 F1_000276 equ $ ; IN [WHISPER_HUB.BAS] CASE KEYPRES_STATUS movlw 171 subwf Bytein,W,0 bnz _lbl__29 F1_000277 equ $ ; IN [WHISPER_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000278 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEPRES setf notePres,0 F1_000279 equ $ ; IN [WHISPER_HUB.BAS] SET PRES setf pres,0 bra _lbl__23 _lbl__29 F1_000280 equ $ ; IN [WHISPER_HUB.BAS] CASE CONTROL_STATUS movlw 187 subwf Bytein,W,0 bnz _lbl__31 F1_000281 equ $ ; IN [WHISPER_HUB.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000282 equ $ ; IN [WHISPER_HUB.BAS] SET CTRL setf Ctrl,0 F1_000283 equ $ ; IN [WHISPER_HUB.BAS] SET VALUE setf value,0 F1_000294 equ $ ; IN [WHISPER_HUB.BAS] END SELECT _lbl__31 _lbl__23 goto _lbl__32 _lbl__22 F1_000295 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000296 equ $ ; IN [WHISPER_HUB.BAS] SELECT STATUSBYTE F1_000297 equ $ ; IN [WHISPER_HUB.BAS] CASE 0 movf statusbyte,F,0 bnz _lbl__34 F1_000298 equ $ ; IN [WHISPER_HUB.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _lbl__33 _lbl__34 F1_000299 equ $ ; IN [WHISPER_HUB.BAS] CASE NOTEOFF_STATUS movlw 139 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__37 F1_000300 equ $ ; IN [WHISPER_HUB.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _lbl__39 F1_000301 equ $ ; IN [WHISPER_HUB.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _lbl__40 _lbl__39 F1_000302 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000304 equ $ ; IN [WHISPER_HUB.BAS] SELECT NOTEUIT F1_000312 equ $ ; IN [WHISPER_HUB.BAS] CASE 72 movlw 72 subwf noteUit,W,0 bnz _lbl__42 F1_000313 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 0 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 movlw 207 andwf CCP2CON,F movlw 0 iorwf CCP2CON,F movlw 0 movwf CCPR2L F1_000314 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 bra _lbl__41 _lbl__42 F1_000315 equ $ ; IN [WHISPER_HUB.BAS] CASE 81 movlw 81 subwf noteUit,W,0 bnz _lbl__45 F1_000316 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 0 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 movlw 207 andwf CCP1CON,F movlw 0 iorwf CCP1CON,F movlw 0 movwf CCPR1L bra _lbl__41 _lbl__45 F1_000318 equ $ ; IN [WHISPER_HUB.BAS] CASE 82 movlw 82 subwf noteUit,W,0 bnz _lbl__47 F1_000319 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000320 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.6 bcf Lites,6,0 F1_000321 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000322 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__41 _lbl__47 F1_000323 equ $ ; IN [WHISPER_HUB.BAS] CASE 83 movlw 83 subwf noteUit,W,0 bnz _lbl__49 F1_000324 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000325 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.4 bcf Lites,4,0 F1_000326 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000327 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__41 _lbl__49 F1_000328 equ $ ; IN [WHISPER_HUB.BAS] CASE 86 movlw 86 subwf noteUit,W,0 bnz _lbl__51 F1_000329 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000330 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.5 bcf Lites,5,0 F1_000331 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000332 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__41 _lbl__51 F1_000333 equ $ ; IN [WHISPER_HUB.BAS] CASE 120 movlw 120 subwf noteUit,W,0 bnz _lbl__53 F1_000334 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.0 bcf Lites,0,0 F1_000335 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000336 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000337 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 movlb 0 bra _lbl__41 _lbl__53 F1_000338 equ $ ; IN [WHISPER_HUB.BAS] CASE 121 movlw 121 subwf noteUit,W,0 bnz _lbl__55 F1_000339 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.1 bcf Lites,1,0 F1_000340 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000341 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000342 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 movlb 0 bra _lbl__41 _lbl__55 F1_000343 equ $ ; IN [WHISPER_HUB.BAS] CASE 122 movlw 122 subwf noteUit,W,0 bnz _lbl__57 F1_000344 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.2 bcf Lites,2,0 F1_000345 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000346 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000347 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 movlb 0 bra _lbl__41 _lbl__57 F1_000348 equ $ ; IN [WHISPER_HUB.BAS] CASE 123 movlw 123 subwf noteUit,W,0 bnz _lbl__59 F1_000349 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.3 bcf Lites,3,0 F1_000350 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000351 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000352 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000353 equ $ ; IN [WHISPER_HUB.BAS] ENDSELECT _lbl__59 movlb 0 _lbl__41 F1_000354 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEUIT setf noteUit,0 F1_000355 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__40 goto _lbl__33 _lbl__37 F1_000356 equ $ ; IN [WHISPER_HUB.BAS] CASE NOTEON_STATUS movlw 155 subwf statusbyte,W,0 btfss STATUS,2,0 goto _lbl__61 F1_000357 equ $ ; IN [WHISPER_HUB.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _lbl__63 F1_000358 equ $ ; IN [WHISPER_HUB.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _lbl__64 _lbl__63 F1_000359 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000360 equ $ ; IN [WHISPER_HUB.BAS] VELO = BYTEIN movff Bytein,velo F1_000361 equ $ ; IN [WHISPER_HUB.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _lbl__66 F1_000362 equ $ ; IN [WHISPER_HUB.BAS] SELECT NOTEAAN F1_000370 equ $ ; IN [WHISPER_HUB.BAS] CASE 72 movlw 72 subwf noteAan,W,0 bnz _lbl__68 F1_000371 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 0 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 movlw 207 andwf CCP2CON,F movlw 0 iorwf CCP2CON,F movlw 0 movwf CCPR2L F1_000372 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 bra _lbl__67 _lbl__68 F1_000373 equ $ ; IN [WHISPER_HUB.BAS] CASE 81 movlw 81 subwf noteAan,W,0 bnz _lbl__71 F1_000374 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 0 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 movlw 207 andwf CCP1CON,F movlw 0 iorwf CCP1CON,F movlw 0 movwf CCPR1L bra _lbl__67 _lbl__71 F1_000376 equ $ ; IN [WHISPER_HUB.BAS] CASE 82 movlw 82 subwf noteAan,W,0 bnz _lbl__73 F1_000377 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000378 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.6 bcf Lites,6,0 F1_000379 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000380 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__67 _lbl__73 F1_000381 equ $ ; IN [WHISPER_HUB.BAS] CASE 83 movlw 83 subwf noteAan,W,0 bnz _lbl__75 F1_000382 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000383 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.4 bcf Lites,4,0 F1_000384 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000385 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__67 _lbl__75 F1_000386 equ $ ; IN [WHISPER_HUB.BAS] CASE 86 movlw 86 subwf noteAan,W,0 bnz _lbl__77 F1_000387 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000388 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.5 bcf Lites,5,0 F1_000389 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000390 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 movlb 0 bra _lbl__67 _lbl__77 F1_000391 equ $ ; IN [WHISPER_HUB.BAS] CASE 120 movlw 120 subwf noteAan,W,0 bnz _lbl__79 F1_000392 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.0 bcf Lites,0,0 F1_000393 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000394 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000395 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 movlb 0 bra _lbl__67 _lbl__79 F1_000396 equ $ ; IN [WHISPER_HUB.BAS] CASE 121 movlw 121 subwf noteAan,W,0 bnz _lbl__81 F1_000397 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.1 bcf Lites,1,0 F1_000398 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000399 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000400 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 movlb 0 bra _lbl__67 _lbl__81 F1_000401 equ $ ; IN [WHISPER_HUB.BAS] CASE 122 movlw 122 subwf noteAan,W,0 bnz _lbl__83 F1_000402 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.2 bcf Lites,2,0 F1_000403 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000404 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000405 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 movlb 0 bra _lbl__67 _lbl__83 F1_000406 equ $ ; IN [WHISPER_HUB.BAS] CASE 123 movlw 123 subwf noteAan,W,0 bnz _lbl__85 F1_000407 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES.3 bcf Lites,3,0 F1_000408 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000409 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000410 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000411 equ $ ; IN [WHISPER_HUB.BAS] ENDSELECT _lbl__85 movlb 0 _lbl__67 F1_000412 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000414 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__66 F1_000415 equ $ ; IN [WHISPER_HUB.BAS] IF POWERON = 1 THEN btfss CC66,0,0 bra _lbl__87 F1_000416 equ $ ; IN [WHISPER_HUB.BAS] SELECT NOTEAAN F1_000426 equ $ ; IN [WHISPER_HUB.BAS] CASE 72 movlw 72 subwf noteAan,W,0 bnz _lbl__89 F1_000428 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 FAN[VELO] lfsr 0,Fan bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Pbs_Var0 movff INDF0,Pbs_Var0H variable prm_1_lng=128 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 lfsr 0,(Pbs_Var0) movlw 207 andwf CCP2CON,F swapf POSTINC0,W andlw 48 iorwf CCP2CON,F rrcf POSTDEC0,W movwf PRODL,0 rrcf INDF0,W movwf CCPR2L rrcf PRODL,F rrcf CCPR2L,F F1_000429 equ $ ; IN [WHISPER_HUB.BAS] SET PORTA.5 bsf LATA,5,0 bra _lbl__88 _lbl__89 F1_000430 equ $ ; IN [WHISPER_HUB.BAS] CASE 81 movlw 81 subwf noteAan,W,0 bnz _lbl__92 F1_000431 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 MOT[VELO] lfsr 0,Mot bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Pbs_Var0 movff INDF0,Pbs_Var0H variable prm_1_lng=128 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 lfsr 0,(Pbs_Var0) movlw 207 andwf CCP1CON,F swapf POSTINC0,W andlw 48 iorwf CCP1CON,F rrcf POSTDEC0,W movwf PRODL,0 rrcf INDF0,W movwf CCPR1L rrcf PRODL,F rrcf CCPR1L,F bra _lbl__88 _lbl__92 F1_000433 equ $ ; IN [WHISPER_HUB.BAS] CASE 82 movlw 82 subwf noteAan,W,0 bnz _lbl__94 F1_000434 equ $ ; IN [WHISPER_HUB.BAS] SET PORTB.4 bsf LATB,4,0 F1_000435 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.6 bsf Lites,6,0 F1_000436 equ $ ; IN [WHISPER_HUB.BAS] IF VELO = 127 THEN movlw 127 subwf velo,W,0 bnz _lbl__96 F1_000437 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 movlb 0 bra _lbl__97 _lbl__96 F1_000438 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000439 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[6] = TIME + DUR[VELO] lfsr 0,Dur 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_000440 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__97 F1_000441 equ $ ; IN [WHISPER_HUB.BAS] VELS[6] = VELO movff velo,Vels#6 F1_000442 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__94 F1_000443 equ $ ; IN [WHISPER_HUB.BAS] CASE 83 movlw 83 subwf noteAan,W,0 bnz _lbl__99 F1_000444 equ $ ; IN [WHISPER_HUB.BAS] SET PORTC.5 bsf LATC,5,0 F1_000445 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.4 bsf Lites,4,0 F1_000446 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__101 F1_000447 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[4] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__102 _lbl__101 F1_000448 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000449 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000450 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__102 movlb 0 F1_000451 equ $ ; IN [WHISPER_HUB.BAS] VELS[4] = VELO movff velo,Vels#4 F1_000452 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__99 F1_000453 equ $ ; IN [WHISPER_HUB.BAS] CASE 86 movlw 86 subwf noteAan,W,0 bnz _lbl__104 F1_000454 equ $ ; IN [WHISPER_HUB.BAS] SET PORTC.4 bsf LATC,4,0 F1_000455 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.5 bsf Lites,5,0 F1_000456 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__106 F1_000457 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[5] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__107 _lbl__106 F1_000458 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000459 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000460 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__107 movlb 0 F1_000461 equ $ ; IN [WHISPER_HUB.BAS] VELS[5] = VELO movff velo,Vels#5 F1_000462 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__104 F1_000463 equ $ ; IN [WHISPER_HUB.BAS] CASE 120 movlw 120 subwf noteAan,W,0 bnz _lbl__109 F1_000464 equ $ ; IN [WHISPER_HUB.BAS] SET PORTB.0 bsf LATB,0,0 F1_000465 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.0 bsf Lites,0,0 F1_000466 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__111 F1_000467 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[0] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__112 _lbl__111 F1_000468 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000469 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000470 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__112 movlb 0 F1_000471 equ $ ; IN [WHISPER_HUB.BAS] VELS[0] = VELO movff velo,Vels#0 F1_000472 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__109 F1_000473 equ $ ; IN [WHISPER_HUB.BAS] CASE 121 movlw 121 subwf noteAan,W,0 bnz _lbl__114 F1_000474 equ $ ; IN [WHISPER_HUB.BAS] SET PORTB.1 bsf LATB,1,0 F1_000475 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.1 bsf Lites,1,0 F1_000476 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__116 F1_000477 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[1] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__117 _lbl__116 F1_000478 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000479 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000480 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__117 movlb 0 F1_000481 equ $ ; IN [WHISPER_HUB.BAS] VELS[1] = VELO movff velo,Vels#1 F1_000482 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__114 F1_000483 equ $ ; IN [WHISPER_HUB.BAS] CASE 122 movlw 122 subwf noteAan,W,0 bnz _lbl__119 F1_000484 equ $ ; IN [WHISPER_HUB.BAS] SET PORTC.3 bsf LATC,3,0 F1_000485 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.2 bsf Lites,2,0 F1_000486 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__121 F1_000487 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[2] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__122 _lbl__121 F1_000488 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000489 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000490 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__122 movlb 0 F1_000491 equ $ ; IN [WHISPER_HUB.BAS] VELS[2] = VELO movff velo,Vels#2 F1_000492 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__88 _lbl__119 F1_000493 equ $ ; IN [WHISPER_HUB.BAS] CASE 123 movlw 123 subwf noteAan,W,0 bnz _lbl__124 F1_000494 equ $ ; IN [WHISPER_HUB.BAS] SET PORTC.0 bsf LATC,0,0 F1_000495 equ $ ; IN [WHISPER_HUB.BAS] SET LITES.3 bsf Lites,3,0 F1_000496 equ $ ; IN [WHISPER_HUB.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _lbl__126 F1_000497 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[3] = TIME + DUR[VELO] lfsr 0,Dur 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 bra _lbl__127 _lbl__126 F1_000498 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000499 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000500 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__127 movlb 0 F1_000501 equ $ ; IN [WHISPER_HUB.BAS] VELS[3] = VELO movff velo,Vels#3 F1_000502 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000503 equ $ ; IN [WHISPER_HUB.BAS] ENDSELECT _lbl__124 _lbl__88 F1_000504 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__87 F1_000505 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEAAN setf noteAan,0 F1_000506 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__64 bra _lbl__33 _lbl__61 F1_000507 equ $ ; IN [WHISPER_HUB.BAS] CASE KEYPRES_STATUS movlw 171 subwf statusbyte,W,0 bnz _lbl__129 F1_000508 equ $ ; IN [WHISPER_HUB.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _lbl__131 F1_000509 equ $ ; IN [WHISPER_HUB.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _lbl__132 _lbl__131 F1_000510 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000511 equ $ ; IN [WHISPER_HUB.BAS] PRES = BYTEIN movff Bytein,pres F1_000512 equ $ ; IN [WHISPER_HUB.BAS] GOSUB KEYPRES rcall KeyPres F1_000513 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__132 bra _lbl__33 _lbl__129 F1_000514 equ $ ; IN [WHISPER_HUB.BAS] CASE CONTROL_STATUS movlw 187 subwf statusbyte,W,0 bnz _lbl__134 F1_000515 equ $ ; IN [WHISPER_HUB.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _lbl__136 F1_000516 equ $ ; IN [WHISPER_HUB.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _lbl__137 _lbl__136 F1_000517 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000518 equ $ ; IN [WHISPER_HUB.BAS] VALUE = BYTEIN movff Bytein,value F1_000519 equ $ ; IN [WHISPER_HUB.BAS] GOSUB CONTROLLER rcall Controller F1_000520 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__137 F1_000526 equ $ ; IN [WHISPER_HUB.BAS] ENDSELECT _lbl__134 _lbl__33 F1_000527 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__32 F1_000529 equ $ ; IN [WHISPER_HUB.BAS] IF RESORT_FLAG = 1 THEN btfsc Resort,0,0 F1_000530 equ $ ; IN [WHISPER_HUB.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000531 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__139 Check_Timers F1_000534 equ $ ; IN [WHISPER_HUB.BAS] IF IDX < NRTASKS THEN movlw 7 subwf idx,W,0 bc _lbl__141 F1_000535 equ $ ; IN [WHISPER_HUB.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 bnc _lbl__143 F1_000537 equ $ ; IN [WHISPER_HUB.BAS] SET NXT.31 bsf nxtHHH,7,0 F1_000540 equ $ ; IN [WHISPER_HUB.BAS] SELECT IDX F1_000541 equ $ ; IN [WHISPER_HUB.BAS] CASE 0 movf idx,F,0 bnz _lbl__145 F1_000542 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK0 call Task0 bra _lbl__144 _lbl__145 F1_000543 equ $ ; IN [WHISPER_HUB.BAS] CASE 1 movlw 1 subwf idx,W,0 bnz _lbl__148 F1_000544 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK1 call Task1 bra _lbl__144 _lbl__148 F1_000545 equ $ ; IN [WHISPER_HUB.BAS] CASE 2 movlw 2 subwf idx,W,0 bnz _lbl__150 F1_000546 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK2 call Task2 bra _lbl__144 _lbl__150 F1_000547 equ $ ; IN [WHISPER_HUB.BAS] CASE 3 movlw 3 subwf idx,W,0 bnz _lbl__152 F1_000548 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK3 call Task3 bra _lbl__144 _lbl__152 F1_000549 equ $ ; IN [WHISPER_HUB.BAS] CASE 4 movlw 4 subwf idx,W,0 bnz _lbl__154 F1_000550 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK4 call Task4 bra _lbl__144 _lbl__154 F1_000551 equ $ ; IN [WHISPER_HUB.BAS] CASE 5 movlw 5 subwf idx,W,0 bnz _lbl__156 F1_000552 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK5 call Task5 bra _lbl__144 _lbl__156 F1_000553 equ $ ; IN [WHISPER_HUB.BAS] CASE 6 movlw 6 subwf idx,W,0 bnz _lbl__158 F1_000554 equ $ ; IN [WHISPER_HUB.BAS] GOSUB TASK6 call Task6 F1_000555 equ $ ; IN [WHISPER_HUB.BAS] CASE ELSE bra _lbl__160 _lbl__158 F1_000557 equ $ ; IN [WHISPER_HUB.BAS] GOTO JUMPOUT bra jumpout F1_000558 equ $ ; IN [WHISPER_HUB.BAS] ENDSELECT _lbl__160 _lbl__144 F1_000559 equ $ ; IN [WHISPER_HUB.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000560 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__143 bra _lbl__161 _lbl__141 F1_000561 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000563 equ $ ; IN [WHISPER_HUB.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _lbl__163 F1_000564 equ $ ; IN [WHISPER_HUB.BAS] CLEAR CNT clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000565 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000566 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES clrf Lites,0 F1_000567 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__163 F1_000568 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__161 jumpout F1_000571 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTB.3 btg PORTB,3 _lbl__15 F1_000572 equ $ ; IN [WHISPER_HUB.BAS] LOOP goto _lbl__13 _lbl__14 SortTimers F1_000578 equ $ ; IN [WHISPER_HUB.BAS] SET IDX setf idx,0 F1_000579 equ $ ; IN [WHISPER_HUB.BAS] SET NXT.31 bsf nxtHHH,7,0 F1_000580 equ $ ; IN [WHISPER_HUB.BAS] FOR I = 0 TO NRTASKS -1 clrf _I,0 _frlb__164 movlw 7 subwf _I,W,0 bc _nxlb__165 F1_000581 equ $ ; IN [WHISPER_HUB.BAS] IF TIMVALS[I] < NXT THEN bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 57 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__168 F1_000582 equ $ ; IN [WHISPER_HUB.BAS] NXT = TIMVALS[I] bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 57 addwf FSR0L,F,0 movlw 1 addwfc FSR0H,F,0 movff INDF0,nxt movff PREINC0,nxtH movff PREINC0,nxtHH movff PREINC0,nxtHHH F1_000583 equ $ ; IN [WHISPER_HUB.BAS] IDX = I movff _I,idx F1_000584 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__168 _ctlb__166 F1_000585 equ $ ; IN [WHISPER_HUB.BAS] NEXT I incf _I,F,0 bnc _frlb__164 _nxlb__165 F1_000586 equ $ ; IN [WHISPER_HUB.BAS] CLEAR RESORT_FLAG bcf Resort,0,0 F1_000587 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 KeyPres F1_000595 equ $ ; IN [WHISPER_HUB.BAS] SELECT NOTEPRES F1_000596 equ $ ; IN [WHISPER_HUB.BAS] CASE 82 movlw 82 subwf notePres,W,0 bnz _lbl__170 F1_000597 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.6 = 1 THEN btfss Lites,6,0 bra _lbl__173 F1_000598 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[6] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000599 equ $ ; IN [WHISPER_HUB.BAS] VELS[6] = PRES movff pres,Vels#6 bra _lbl__174 _lbl__173 F1_000600 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000601 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000602 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000603 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__174 movlb 0 F1_000604 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__170 F1_000605 equ $ ; IN [WHISPER_HUB.BAS] CASE 83 movlw 83 subwf notePres,W,0 bnz _lbl__176 F1_000606 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.4 = 1 THEN btfss Lites,4,0 bra _lbl__178 F1_000607 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[4] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000608 equ $ ; IN [WHISPER_HUB.BAS] VELS[4] = PRES movff pres,Vels#4 bra _lbl__179 _lbl__178 F1_000609 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000610 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000611 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000612 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__179 movlb 0 F1_000613 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__176 F1_000614 equ $ ; IN [WHISPER_HUB.BAS] CASE 86 movlw 86 subwf notePres,W,0 bnz _lbl__181 F1_000615 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.5 = 1 THEN btfss Lites,5,0 bra _lbl__183 F1_000616 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[5] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000617 equ $ ; IN [WHISPER_HUB.BAS] VELS[5] = PRES movff pres,Vels#5 bra _lbl__184 _lbl__183 F1_000618 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000619 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000620 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000621 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__184 movlb 0 F1_000622 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__181 F1_000623 equ $ ; IN [WHISPER_HUB.BAS] CASE 120 movlw 120 subwf notePres,W,0 bnz _lbl__186 F1_000624 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.0 = 1 THEN btfss Lites,0,0 bra _lbl__188 F1_000625 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[0] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000626 equ $ ; IN [WHISPER_HUB.BAS] VELS[0] = PRES movff pres,Vels#0 bra _lbl__189 _lbl__188 F1_000627 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000628 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000629 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000630 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__189 movlb 0 F1_000631 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__186 F1_000632 equ $ ; IN [WHISPER_HUB.BAS] CASE 121 movlw 121 subwf notePres,W,0 bnz _lbl__191 F1_000633 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.1 = 1 THEN btfss Lites,1,0 bra _lbl__193 F1_000634 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[1] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000635 equ $ ; IN [WHISPER_HUB.BAS] VELS[1] = PRES movff pres,Vels#1 bra _lbl__194 _lbl__193 F1_000636 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000637 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000638 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000639 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__194 movlb 0 F1_000640 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__191 F1_000641 equ $ ; IN [WHISPER_HUB.BAS] CASE 122 movlw 122 subwf notePres,W,0 bnz _lbl__196 F1_000642 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.2 = 1 THEN btfss Lites,2,0 bra _lbl__198 F1_000643 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[2] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000644 equ $ ; IN [WHISPER_HUB.BAS] VELS[2] = PRES movff pres,Vels#2 bra _lbl__199 _lbl__198 F1_000645 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000646 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000647 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000648 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__199 movlb 0 F1_000649 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 bra _lbl__169 _lbl__196 F1_000650 equ $ ; IN [WHISPER_HUB.BAS] CASE 123 movlw 123 subwf notePres,W,0 bnz _lbl__201 F1_000651 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.3 = 1 THEN btfss Lites,3,0 bra _lbl__203 F1_000652 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[3] = TIME + DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,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_000653 equ $ ; IN [WHISPER_HUB.BAS] VELS[3] = PRES movff pres,Vels#3 bra _lbl__204 _lbl__203 F1_000654 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000655 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000656 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000657 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__204 movlb 0 F1_000658 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000659 equ $ ; IN [WHISPER_HUB.BAS] END SELECT _lbl__201 _lbl__169 F1_000660 equ $ ; IN [WHISPER_HUB.BAS] SET NOTEPRES setf notePres,0 F1_000661 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Controller F1_000678 equ $ ; IN [WHISPER_HUB.BAS] SELECT CTRL F1_000679 equ $ ; IN [WHISPER_HUB.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__206 F1_000681 equ $ ; IN [WHISPER_HUB.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _lbl__209 F1_000682 equ $ ; IN [WHISPER_HUB.BAS] CLEAR POWERON bcf CC66,0,0 F1_000683 equ $ ; IN [WHISPER_HUB.BAS] CLEAR CC66 clrf CC66,0 F1_000684 equ $ ; IN [WHISPER_HUB.BAS] GOSUB POWERDOWN rcall PowerDown bra _lbl__210 _lbl__209 F1_000685 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000686 equ $ ; IN [WHISPER_HUB.BAS] SET POWERON bsf CC66,0,0 F1_000687 equ $ ; IN [WHISPER_HUB.BAS] SET CC66 setf CC66,0 F1_000688 equ $ ; IN [WHISPER_HUB.BAS] HIGH PORTA.4 bcf TRISA,4,0 bsf LATA,4,0 F1_000689 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__210 bra _lbl__205 _lbl__206 F1_000690 equ $ ; IN [WHISPER_HUB.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__212 F1_000691 equ $ ; IN [WHISPER_HUB.BAS] GOSUB ALLNOTESOFF rcall AllNotesOff F1_000692 equ $ ; IN [WHISPER_HUB.BAS] END SELECT _lbl__212 _lbl__205 F1_000693 equ $ ; IN [WHISPER_HUB.BAS] SET CTRL setf Ctrl,0 F1_000694 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 AllNotesOff F1_000697 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000698 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000704 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 0 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 movlw 207 andwf CCP2CON,F movlw 0 iorwf CCP2CON,F movlw 0 movwf CCPR2L F1_000705 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000706 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 0 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 movlw 207 andwf CCP1CON,F movlw 0 iorwf CCP1CON,F movlw 0 movwf CCPR1L F1_000708 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000709 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000710 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000711 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES clrf Lites,0 F1_000712 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000713 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000714 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000715 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000716 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000717 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 PowerDown F1_000720 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS lfsr 0,TimVals movlw 28 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000721 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000722 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000723 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000724 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000725 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000726 equ $ ; IN [WHISPER_HUB.BAS] CLEAR LITES clrf Lites,0 F1_000727 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PW1 clrf pw1H,0 clrf pw1,0 F1_000728 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PW2 clrf pw2H,0 clrf pw2,0 F1_000734 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG2 0 variable max_params=10,_MWRITEANALOG2_RETURN=0,prm_count=1 movlw 207 andwf CCP2CON,F movlw 0 iorwf CCP2CON,F movlw 0 movwf CCPR2L F1_000735 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000736 equ $ ; IN [WHISPER_HUB.BAS] _MWRITEANALOG1 0 variable max_params=10,_MWRITEANALOG1_RETURN=0,prm_count=1 movlw 207 andwf CCP1CON,F movlw 0 iorwf CCP1CON,F movlw 0 movwf CCPR1L F1_000738 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000739 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000740 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000741 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000742 equ $ ; IN [WHISPER_HUB.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000743 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task0 F1_000746 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.0 = 0 THEN btfsc Lites,0,0 bra _lbl__214 F1_000748 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[0] movlb 1 setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000749 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.0 bcf LATB,0,0 movlb 0 bra _lbl__215 _lbl__214 F1_000750 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000752 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[0] movf Vels#0,W,0 movwf _I,0 F1_000753 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[0] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000754 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTB.0 btg PORTB,0 F1_000755 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__215 F1_000756 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000757 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task1 F1_000760 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.1 = 0 THEN btfsc Lites,1,0 bra _lbl__217 F1_000761 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[1] movlb 1 setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000762 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.1 bcf LATB,1,0 movlb 0 bra _lbl__218 _lbl__217 F1_000763 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000764 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[1] movf Vels#1,W,0 movwf _I,0 F1_000765 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[1] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000766 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTB.1 btg PORTB,1 F1_000767 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__218 F1_000768 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000769 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task2 F1_000772 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.2 = 0 THEN btfsc Lites,2,0 bra _lbl__220 F1_000773 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[2] movlb 1 setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000774 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.3 bcf LATC,3,0 movlb 0 bra _lbl__221 _lbl__220 F1_000775 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000776 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[2] movf Vels#2,W,0 movwf _I,0 F1_000777 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[2] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000778 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTC.3 btg PORTC,3 F1_000779 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__221 F1_000780 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000781 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task3 F1_000784 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.3 = 0 THEN btfsc Lites,3,0 bra _lbl__223 F1_000785 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[3] movlb 1 setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000786 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.0 bcf LATC,0,0 movlb 0 bra _lbl__224 _lbl__223 F1_000787 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000788 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[3] movf Vels#3,W,0 movwf _I,0 F1_000789 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[3] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000790 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTC.0 btg PORTC,0 F1_000791 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__224 F1_000792 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000793 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task4 F1_000796 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.4 = 0 THEN btfsc Lites,4,0 bra _lbl__226 F1_000797 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[4] movlb 1 setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000798 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.5 bcf LATC,5,0 movlb 0 bra _lbl__227 _lbl__226 F1_000799 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000800 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[4] movf Vels#4,W,0 movwf _I,0 F1_000801 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[4] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000802 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTC.5 btg PORTC,5 F1_000803 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__227 F1_000804 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000805 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task5 F1_000808 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.5 = 0 THEN btfsc Lites,5,0 bra _lbl__229 F1_000809 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[5] movlb 1 setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000810 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTC.4 bcf LATC,4,0 movlb 0 bra _lbl__230 _lbl__229 F1_000811 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000812 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[5] movf Vels#5,W,0 movwf _I,0 F1_000813 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[5] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000814 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTC.4 btg PORTC,4 F1_000815 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__230 F1_000816 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000817 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Task6 F1_000820 equ $ ; IN [WHISPER_HUB.BAS] IF LITES.6 = 0 THEN btfsc Lites,6,0 bra _lbl__232 F1_000821 equ $ ; IN [WHISPER_HUB.BAS] SET TIMVALS[6] movlb 1 setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000822 equ $ ; IN [WHISPER_HUB.BAS] CLEAR PORTB.4 bcf LATB,4,0 movlb 0 bra _lbl__233 _lbl__232 F1_000823 equ $ ; IN [WHISPER_HUB.BAS] ELSE F1_000824 equ $ ; IN [WHISPER_HUB.BAS] I = VELS[6] movf Vels#6,W,0 movwf _I,0 F1_000825 equ $ ; IN [WHISPER_HUB.BAS] TIMVALS[6] = TIME + DUR[I] lfsr 0,Dur bcf STATUS,0,0 rlcf _I,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_000826 equ $ ; IN [WHISPER_HUB.BAS] BTG PORTB.4 btg PORTB,4 F1_000827 equ $ ; IN [WHISPER_HUB.BAS] ENDIF _lbl__233 F1_000828 equ $ ; IN [WHISPER_HUB.BAS] SET RESORT_FLAG bsf Resort,0,0 F1_000829 equ $ ; IN [WHISPER_HUB.BAS] RETURN return 0 Dur_Lookup F1_000853 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 1 ] = 59896 movlw 233 movlb 1 movwf Dur#1H,1 movlw 248 movwf Dur#1,1 F1_000854 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 2 ] = 29948 movlw 116 movwf Dur#2H,1 movlw 252 movwf Dur#2,1 F1_000855 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 3 ] = 19965 movlw 77 movwf Dur#3H,1 movlw 253 movwf Dur#3,1 F1_000856 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 4 ] = 14974 movlw 58 movwf Dur#4H,1 movlw 126 movwf Dur#4,1 F1_000857 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 5 ] = 11979 movlw 46 movwf Dur#5H,1 movlw 203 movwf Dur#5,1 F1_000858 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 6 ] = 9983 movlw 38 movwf Dur#6H,1 setf Dur#6,1 F1_000859 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 7 ] = 8557 movlw 33 movwf Dur#7H,1 movlw 109 movwf Dur#7,1 F1_000860 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 8 ] = 7487 movlw 29 movwf Dur#8H,1 movlw 63 movwf Dur#8,1 F1_000861 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 9 ] = 6655 movlw 25 movwf Dur#9H,1 setf Dur#9,1 F1_000862 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 10 ] = 5990 movlw 23 movwf Dur#10H,1 movlw 102 movwf Dur#10,1 F1_000863 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 11 ] = 5445 movlw 21 movwf Dur#11H,1 movlw 69 movwf Dur#11,1 F1_000864 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 12 ] = 4991 movlw 19 movwf Dur#12H,1 movlw 127 movwf Dur#12,1 F1_000865 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 13 ] = 4607 movlw 17 movwf Dur#13H,1 setf Dur#13,1 F1_000866 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 14 ] = 4278 movlw 16 movwf Dur#14H,1 movlw 182 movwf Dur#14,1 F1_000867 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 15 ] = 3993 movlw 15 movwf Dur#15H,1 movlw 153 movwf Dur#15,1 F1_000868 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 16 ] = 3743 movlw 14 movwf Dur#16H,1 movlw 159 movwf Dur#16,1 F1_000869 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 17 ] = 3523 movlw 13 movwf Dur#17H,1 movlw 195 movwf Dur#17,1 F1_000870 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 18 ] = 3328 movlw 13 movwf Dur#18H,1 clrf Dur#18,1 F1_000871 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 19 ] = 3152 movlw 12 movwf Dur#19H,1 movlw 80 movwf Dur#19,1 F1_000872 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 20 ] = 2995 movlw 11 movwf Dur#20H,1 movlw 179 movwf Dur#20,1 F1_000873 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 21 ] = 2852 movlw 11 movwf Dur#21H,1 movlw 36 movwf Dur#21,1 F1_000874 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 22 ] = 2723 movlw 10 movwf Dur#22H,1 movlw 163 movwf Dur#22,1 F1_000875 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 23 ] = 2604 movlw 10 movwf Dur#23H,1 movlw 44 movwf Dur#23,1 F1_000876 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 24 ] = 2496 movlw 9 movwf Dur#24H,1 movlw 192 movwf Dur#24,1 F1_000877 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 25 ] = 2396 movlw 9 movwf Dur#25H,1 movlw 92 movwf Dur#25,1 F1_000878 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 26 ] = 2304 movlw 9 movwf Dur#26H,1 clrf Dur#26,1 F1_000879 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 27 ] = 2218 movlw 8 movwf Dur#27H,1 movlw 170 movwf Dur#27,1 F1_000880 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 28 ] = 2139 movlw 8 movwf Dur#28H,1 movlw 91 movwf Dur#28,1 F1_000881 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 29 ] = 2065 movlw 8 movwf Dur#29H,1 movlw 17 movwf Dur#29,1 F1_000882 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 30 ] = 1997 movlw 7 movwf Dur#30H,1 movlw 205 movwf Dur#30,1 F1_000883 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 31 ] = 1932 movlw 7 movwf Dur#31H,1 movlw 140 movwf Dur#31,1 F1_000884 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 32 ] = 1872 movlw 7 movwf Dur#32H,1 movlw 80 movwf Dur#32,1 F1_000885 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 33 ] = 1815 movlw 7 movwf Dur#33H,1 movlw 23 movwf Dur#33,1 F1_000886 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 34 ] = 1762 movlw 6 movwf Dur#34H,1 movlw 226 movwf Dur#34,1 F1_000887 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 35 ] = 1711 movlw 6 movwf Dur#35H,1 movlw 175 movwf Dur#35,1 F1_000888 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 36 ] = 1664 movlw 6 movwf Dur#36H,1 movlw 128 movwf Dur#36,1 F1_000889 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 37 ] = 1619 movlw 6 movwf Dur#37H,1 movlw 83 movwf Dur#37,1 F1_000890 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 38 ] = 1576 movlw 6 movwf Dur#38H,1 movlw 40 movwf Dur#38,1 F1_000891 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 39 ] = 1536 movlw 6 movwf Dur#39H,1 clrf Dur#39,1 F1_000892 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 40 ] = 1497 movlw 5 movwf Dur#40H,1 movlw 217 movwf Dur#40,1 F1_000893 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 41 ] = 1461 movlw 5 movwf Dur#41H,1 movlw 181 movwf Dur#41,1 F1_000894 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 42 ] = 1426 movlw 5 movwf Dur#42H,1 movlw 146 movwf Dur#42,1 F1_000895 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 43 ] = 1393 movlw 5 movwf Dur#43H,1 movlw 113 movwf Dur#43,1 F1_000896 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 44 ] = 1361 movlw 5 movwf Dur#44H,1 movlw 81 movwf Dur#44,1 F1_000897 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 45 ] = 1331 movlw 5 movwf Dur#45H,1 movlw 51 movwf Dur#45,1 F1_000898 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 46 ] = 1302 movlw 5 movwf Dur#46H,1 movlw 22 movwf Dur#46,1 F1_000899 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 47 ] = 1274 movlw 4 movwf Dur#47H,1 movlw 250 movwf Dur#47,1 F1_000900 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 48 ] = 1248 movlw 4 movwf Dur#48H,1 movlw 224 movwf Dur#48,1 F1_000901 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 49 ] = 1222 movlw 4 movwf Dur#49H,1 movlw 198 movwf Dur#49,1 F1_000902 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 50 ] = 1198 movlw 4 movwf Dur#50H,1 movlw 174 movwf Dur#50,1 F1_000903 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 51 ] = 1174 movlw 4 movwf Dur#51H,1 movlw 150 movwf Dur#51,1 F1_000904 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 52 ] = 1152 movlw 4 movwf Dur#52H,1 movlw 128 movwf Dur#52,1 F1_000905 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 53 ] = 1130 movlw 4 movwf Dur#53H,1 movlw 106 movwf Dur#53,1 F1_000906 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 54 ] = 1109 movlw 4 movwf Dur#54H,1 movlw 85 movwf Dur#54,1 F1_000907 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 55 ] = 1089 movlw 4 movwf Dur#55H,1 movlw 65 movwf Dur#55,1 F1_000908 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 56 ] = 1070 movlw 4 movwf Dur#56H,1 movlw 46 movwf Dur#56,1 F1_000909 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 57 ] = 1051 movlw 4 movwf Dur#57H,1 movlw 27 movwf Dur#57,1 F1_000910 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 58 ] = 1033 movlw 4 movwf Dur#58H,1 movlw 9 movwf Dur#58,1 F1_000911 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 59 ] = 1015 movlw 3 movwf Dur#59H,1 movlw 247 movwf Dur#59,1 F1_000912 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 60 ] = 998 movlw 3 movwf Dur#60H,1 movlw 230 movwf Dur#60,1 F1_000913 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 61 ] = 982 movlw 3 movwf Dur#61H,1 movlw 214 movwf Dur#61,1 F1_000914 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 62 ] = 966 movlw 3 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000915 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 63 ] = 951 movlw 3 movwf Dur#63H,1 movlw 183 movwf Dur#63,1 F1_000916 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 64 ] = 936 movlw 3 movwf Dur#64H,1 movlw 168 movwf Dur#64,1 F1_000917 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 65 ] = 921 movlw 3 movwf Dur#65H,1 movlw 153 movwf Dur#65,1 F1_000918 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 66 ] = 908 movlw 3 movwf Dur#66H,1 movlw 140 movwf Dur#66,1 F1_000919 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 67 ] = 894 movlw 3 movwf Dur#67H,1 movlw 126 movwf Dur#67,1 F1_000920 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 68 ] = 881 movlw 3 movwf Dur#68H,1 movlw 113 movwf Dur#68,1 F1_000921 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 69 ] = 868 movlw 3 movwf Dur#69H,1 movlw 100 movwf Dur#69,1 F1_000922 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 70 ] = 856 movlw 3 movwf Dur#70H,1 movlw 88 movwf Dur#70,1 F1_000923 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 71 ] = 844 movlw 3 movwf Dur#71H,1 movlw 76 movwf Dur#71,1 F1_000924 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 72 ] = 832 movlw 3 movwf Dur#72H,1 movlw 64 movwf Dur#72,1 F1_000925 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 73 ] = 820 movlw 3 movwf Dur#73H,1 movlw 52 movwf Dur#73,1 F1_000926 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 74 ] = 809 movlw 3 movwf Dur#74H,1 movlw 41 movwf Dur#74,1 F1_000927 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 75 ] = 799 movlw 3 movwf Dur#75H,1 movlw 31 movwf Dur#75,1 F1_000928 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 76 ] = 788 movlw 3 movwf Dur#76H,1 movlw 20 movwf Dur#76,1 F1_000929 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 77 ] = 778 movlw 3 movwf Dur#77H,1 movlw 10 movwf Dur#77,1 F1_000930 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 78 ] = 768 movlw 3 movwf Dur#78H,1 clrf Dur#78,1 F1_000931 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 79 ] = 758 movlw 2 movwf Dur#79H,1 movlw 246 movwf Dur#79,1 F1_000932 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 80 ] = 749 movlw 2 movwf Dur#80H,1 movlw 237 movwf Dur#80,1 F1_000933 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 81 ] = 739 movlw 2 movwf Dur#81H,1 movlw 227 movwf Dur#81,1 F1_000934 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 82 ] = 730 movlw 2 movwf Dur#82H,1 movlw 218 movwf Dur#82,1 F1_000935 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 83 ] = 722 movlw 2 movwf Dur#83H,1 movlw 210 movwf Dur#83,1 F1_000936 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 84 ] = 713 movlw 2 movwf Dur#84H,1 movlw 201 movwf Dur#84,1 F1_000937 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 85 ] = 705 movlw 2 movlb 2 movwf Dur#85H,1 movlw 193 movlb 1 movwf Dur#85,1 F1_000938 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 86 ] = 696 movlw 2 movlb 2 movwf Dur#86H,1 movlw 184 movwf Dur#86,1 F1_000939 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 87 ] = 688 movlw 2 movwf Dur#87H,1 movlw 176 movwf Dur#87,1 F1_000940 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 88 ] = 681 movlw 2 movwf Dur#88H,1 movlw 169 movwf Dur#88,1 F1_000941 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 89 ] = 673 movlw 2 movwf Dur#89H,1 movlw 161 movwf Dur#89,1 F1_000942 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 90 ] = 666 movlw 2 movwf Dur#90H,1 movlw 154 movwf Dur#90,1 F1_000943 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 91 ] = 658 movlw 2 movwf Dur#91H,1 movlw 146 movwf Dur#91,1 F1_000944 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 92 ] = 651 movlw 2 movwf Dur#92H,1 movlw 139 movwf Dur#92,1 F1_000945 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 93 ] = 644 movlw 2 movwf Dur#93H,1 movlw 132 movwf Dur#93,1 F1_000946 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 94 ] = 637 movlw 2 movwf Dur#94H,1 movlw 125 movwf Dur#94,1 F1_000947 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 95 ] = 630 movlw 2 movwf Dur#95H,1 movlw 118 movwf Dur#95,1 F1_000948 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 96 ] = 624 movlw 2 movwf Dur#96H,1 movlw 112 movwf Dur#96,1 F1_000949 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 97 ] = 617 movlw 2 movwf Dur#97H,1 movlw 105 movwf Dur#97,1 F1_000950 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 98 ] = 611 movlw 2 movwf Dur#98H,1 movlw 99 movwf Dur#98,1 F1_000951 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 99 ] = 605 movlw 2 movwf Dur#99H,1 movlw 93 movwf Dur#99,1 F1_000952 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 100 ] = 599 movlw 2 movwf Dur#100H,1 movlw 87 movwf Dur#100,1 F1_000953 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 101 ] = 593 movlw 2 movwf Dur#101H,1 movlw 81 movwf Dur#101,1 F1_000954 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 102 ] = 587 movlw 2 movwf Dur#102H,1 movlw 75 movwf Dur#102,1 F1_000955 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 103 ] = 582 movlw 2 movwf Dur#103H,1 movlw 70 movwf Dur#103,1 F1_000956 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 104 ] = 576 movlw 2 movwf Dur#104H,1 movlw 64 movwf Dur#104,1 F1_000957 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 105 ] = 570 movlw 2 movwf Dur#105H,1 movlw 58 movwf Dur#105,1 F1_000958 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 106 ] = 565 movlw 2 movwf Dur#106H,1 movlw 53 movwf Dur#106,1 F1_000959 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 107 ] = 560 movlw 2 movwf Dur#107H,1 movlw 48 movwf Dur#107,1 F1_000960 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 108 ] = 555 movlw 2 movwf Dur#108H,1 movlw 43 movwf Dur#108,1 F1_000961 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 109 ] = 550 movlw 2 movwf Dur#109H,1 movlw 38 movwf Dur#109,1 F1_000962 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 110 ] = 545 movlw 2 movwf Dur#110H,1 movlw 33 movwf Dur#110,1 F1_000963 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 111 ] = 540 movlw 2 movwf Dur#111H,1 movlw 28 movwf Dur#111,1 F1_000964 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 112 ] = 535 movlw 2 movwf Dur#112H,1 movlw 23 movwf Dur#112,1 F1_000965 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 113 ] = 530 movlw 2 movwf Dur#113H,1 movlw 18 movwf Dur#113,1 F1_000966 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 114 ] = 525 movlw 2 movwf Dur#114H,1 movlw 13 movwf Dur#114,1 F1_000967 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 115 ] = 521 movlw 2 movwf Dur#115H,1 movlw 9 movwf Dur#115,1 F1_000968 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 116 ] = 516 movlw 2 movwf Dur#116H,1 movlw 4 movwf Dur#116,1 F1_000969 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 117 ] = 512 movlw 2 movwf Dur#117H,1 clrf Dur#117,1 F1_000970 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 118 ] = 508 movlw 1 movwf Dur#118H,1 movlw 252 movwf Dur#118,1 F1_000971 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 119 ] = 503 movlw 1 movwf Dur#119H,1 movlw 247 movwf Dur#119,1 F1_000972 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 120 ] = 499 movlw 1 movwf Dur#120H,1 movlw 243 movwf Dur#120,1 F1_000973 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 121 ] = 495 movlw 1 movwf Dur#121H,1 movlw 239 movwf Dur#121,1 F1_000974 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 122 ] = 491 movlw 1 movwf Dur#122H,1 movlw 235 movwf Dur#122,1 F1_000975 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 123 ] = 487 movlw 1 movwf Dur#123H,1 movlw 231 movwf Dur#123,1 F1_000976 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 124 ] = 483 movlw 1 movwf Dur#124H,1 movlw 227 movwf Dur#124,1 F1_000977 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 125 ] = 479 movlw 1 movwf Dur#125H,1 movlw 223 movwf Dur#125,1 F1_000978 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 126 ] = 475 movlw 1 movwf Dur#126H,1 movlw 219 movwf Dur#126,1 F1_000979 equ $ ; IN [WHISPER_HUB.BAS] DUR[ 127 ] = 472 movlw 1 movwf Dur#127H,1 movlw 216 movwf Dur#127,1 F1_000984 equ $ ; IN [WHISPER_HUB.BAS] FAN[0] = 0 clrf Fan#0H,1 clrf Fan#0,1 F1_000985 equ $ ; IN [WHISPER_HUB.BAS] FAN[1] = 210 clrf Fan#1H,1 movlw 210 movwf Fan#1,1 F1_000986 equ $ ; IN [WHISPER_HUB.BAS] FOR I = 2 TO 127 movlw 2 movwf _I,0 _frlb__234 movlb 0 movlw 128 subwf _I,W,0 bc _nxlb__235 F1_000987 equ $ ; IN [WHISPER_HUB.BAS] FAN[I] = FAN[1] + (I * 2) movff Fan#1,Pbs_Var1 movff Fan#1H,Pbs_Var1H movf _I,W,0 mullw 2 movff PRODL,PP7 movff PRODH,PP7H movf PP7,W,0 addwf Pbs_Var1,W,0 movwf Pbs_Var0,0 movf PP7H,W,0 addwfc Pbs_Var1H,W,0 movwf Pbs_Var0H,0 lfsr 0,Fan bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff Pbs_Var0,POSTINC0 movff Pbs_Var0H,INDF0 _ctlb__236 F1_000988 equ $ ; IN [WHISPER_HUB.BAS] NEXT I incf _I,F,0 bnc _frlb__234 _nxlb__235 F1_000999 equ $ ; IN [WHISPER_HUB.BAS] FOR I = 0 TO 127 clrf _I,0 _frlb__237 movlw 128 subwf _I,W,0 bc _nxlb__238 F1_001000 equ $ ; IN [WHISPER_HUB.BAS] MOT[I] = 256 + (I * 2) movf _I,W,0 mullw 2 movff PRODL,PP7 movff PRODH,PP7H movlw 0 addwf PP7,W,0 movwf Pbs_Var0,0 movlw 1 addwfc PP7H,W,0 movwf Pbs_Var0H,0 lfsr 0,Mot bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff Pbs_Var0,POSTINC0 movff Pbs_Var0H,INDF0 _ctlb__239 F1_001001 equ $ ; IN [WHISPER_HUB.BAS] NEXT I incf _I,F,0 bnc _frlb__237 _nxlb__238 F1_001002 equ $ ; IN [WHISPER_HUB.BAS] MOT[0] = 0 movlb 3 clrf Mot#0H,1 clrf Mot#0,1 F1_001003 equ $ ; IN [WHISPER_HUB.BAS] MOT[127] = 511 movlw 1 movlb 4 movwf Mot#127H,1 setf Mot#127,1 F1_001004 equ $ ; IN [WHISPER_HUB.BAS] RETURN movlb 0 return 0 F1_EOF equ $ ; WHISPER_HUB.BAS _pblb__240 bra _pblb__240 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off end