;---------------------------------------------------------- ; Code Produced by the Proton Compiler. Ver 3.5.7.3 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. March 2015 ;---------------------------------------------------------- ; #define CONFIG_REQ 1 #define DEBUG@REQ 1 LIST P = 18F2525, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T=ON PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_PORT=TRISC _I2C_SCL_PIN=3 _I2C_SDA_PORT=TRISC _I2C_SDA_PIN=4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RE3=3 MCLR=3 NOT_MCLR=3 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TOUTPS0=3 TOUTPS1=4 TOUTPS2=5 TOUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 FLTS=2 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F2525 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0XC000 #define _ADC 10 #define _ADC_RES 10 #define _EEPROM 1024 #define RAM_BANKS 15 #define _USART 1 #define _USB 0 #define _USB#RAM_START 0 #define _FLASH 1 #define _CWRITE_BLOCK 64 #define BANK0_START 128 #define BANK0_END 255 #define BANK1_START 256 #define BANK1_END 511 #define BANK2_START 512 #define BANK2_END 767 #define BANK3_START 768 #define BANK3_END 1023 #define BANK4_START 1024 #define BANK4_END 1279 #define BANK5_START 1280 #define BANK5_END 1535 #define BANK6_START 1536 #define BANK6_END 1791 #define BANK7_START 1792 #define BANK7_END 2047 #define BANK8_START 2048 #define BANK8_END 2303 #define BANK9_START 2304 #define BANK9_END 2559 #define BANK10_START 2560 #define BANK10_END 2815 #define BANK11_START 2816 #define BANK11_END 3071 #define BANK12_START 3072 #define BANK12_END 3327 #define BANK13_START 3328 #define BANK13_END 3583 #define BANK14_START 3584 #define BANK14_END 3839 #define BANKA_START 0 #define BANKA_END 127 #define _SYSTEM_VARIABLE_COUNT 120 #define LCD#TYPE 0 #define __INTERRUPTS_ENABLED 1 #define __HIGH_INTERRUPTS_ENABLED 1 #define __LOW_INTERRUPTS_ENABLED 1 #define clrw clrf WREG #define negw negf WREG #define skpc btfss STATUS,0 #define skpnc btfsc STATUS,0 #define clrc bcf STATUS,0 #define setc bsf STATUS,0 #define skpz btfss STATUS,2 #define skpnz btfsc STATUS,2 #define clrz bcf STATUS,2 #define setz bsf STATUS,2 #define INIT_USART_INTERRUPT#REQ 1 #define CLEAR_SERIAL_BUFFER#REQ 1 PBP#VAR0 = 0 PBP#VAR0H = 1 PBP#VAR0HH = 2 PBP#VAR0HHH = 3 PBP#VAR1 = 4 PBP#VAR1H = 5 PBP#VAR2 = 6 PP0 = 7 PP0H = 8 PP1 = 9 PP1H = 10 PPZ = 11 PP_AARG = 12 PP_AARGH = 13 PP_AARGHH = 14 PP_AARGHHH = 15 PP_BARG = 16 PP_BARGH = 17 PP_BARGHH = 18 PP_BARGHHH = 19 _AEXP = 20 _BEXP = 21 _FP_FLAGS = 22 _FP_TEMP = 23 _SIGN = 24 Bytein = 25 _I = 26 statusbyte = 27 noteUit = 28 release = 29 noteAan = 30 velo = 31 notePres = 32 pres = 33 Ctrl = 34 value = 35 prog = 36 veltim0 = 37 veltim0H = 38 veltim0HH = 39 veltim0HHH = 40 veltim1 = 41 veltim1H = 42 veltim1HH = 43 veltim1HHH = 44 veltim2 = 45 veltim2H = 46 veltim2HH = 47 veltim2HHH = 48 veltim3 = 49 veltim3H = 50 veltim3HH = 51 veltim3HHH = 52 veltim4 = 53 veltim4H = 54 veltim4HH = 55 veltim4HHH = 56 veltim5 = 57 veltim5H = 58 veltim5HH = 59 veltim5HHH = 60 veltim6 = 61 veltim6H = 62 veltim6HH = 63 veltim6HHH = 64 veltim7 = 65 veltim7H = 66 veltim7HH = 67 veltim7HHH = 68 veltim8 = 69 veltim8H = 70 veltim8HH = 71 veltim8HHH = 72 veltim9 = 73 veltim9H = 74 veltim9HH = 75 veltim9HHH = 76 Velflags = 77 VelflagsH = 78 Holdflags = 79 HoldflagsH = 80 Waitflags = 81 WaitflagsH = 82 notes = 83 notesH = 84 velo0 = 85 velo0H = 86 velo1 = 87 velo1H = 88 velo2 = 89 velo2H = 90 velo3 = 91 velo3H = 92 velo4 = 93 velo4H = 94 velo5 = 95 velo5H = 96 velo6 = 97 velo6H = 98 velo7 = 99 velo7H = 100 velo8 = 101 velo8H = 102 velo9 = 103 velo9H = 104 time = 105 timeH = 106 timeHH = 107 timeHHH = 108 _T = 109 tog = 110 Nxt = 111 NxtH = 112 NxtHH = 113 NxtHHH = 114 idx = 115 USART_FSR1_Save = 116 USART_FSR1_SaveH = 117 IndexIn = 118 IndexOut = 119 Rate0 = 120 Rate0H = 121 Rate1 = 122 Rate1H = 123 Rate2 = 124 Rate2H = 125 Rate3 = 126 Rate3H = 127 Rate4 = 128 Rate4H = 129 Rate5 = 130 Rate5H = 131 Rate6 = 132 Rate6H = 133 Rate7 = 134 Rate7H = 135 Rate8 = 136 Rate8H = 137 Rate9 = 138 Rate9H = 139 Pres0 = 140 Pres1 = 141 Pres2 = 142 Pres3 = 143 Pres4 = 144 Pres5 = 145 Pres6 = 146 Pres7 = 147 Pres8 = 148 Pres9 = 149 TimVals = 150 TimValsH = 151 TimValsHH = 152 TimValsHHH = 153 variable TimVals#0=150,TimVals#0H=151,TimVals#0HH=152,TimVals#0HHH=153 variable TimVals#1=154,TimVals#1H=155,TimVals#1HH=156,TimVals#1HHH=157 variable TimVals#2=158,TimVals#2H=159,TimVals#2HH=160,TimVals#2HHH=161 variable TimVals#3=162,TimVals#3H=163,TimVals#3HH=164,TimVals#3HHH=165 variable TimVals#4=166,TimVals#4H=167,TimVals#4HH=168,TimVals#4HHH=169 variable TimVals#5=170,TimVals#5H=171,TimVals#5HH=172,TimVals#5HHH=173 variable TimVals#6=174,TimVals#6H=175,TimVals#6HH=176,TimVals#6HHH=177 variable TimVals#7=178,TimVals#7H=179,TimVals#7HH=180,TimVals#7HHH=181 variable TimVals#8=182,TimVals#8H=183,TimVals#8HH=184,TimVals#8HHH=185 variable TimVals#9=186,TimVals#9H=187,TimVals#9HH=188,TimVals#9HHH=189 Ringbuffer = 190 variable Ringbuffer#0=190,Ringbuffer#1=191,Ringbuffer#2=192,Ringbuffer#3=193 variable Ringbuffer#4=194,Ringbuffer#5=195,Ringbuffer#6=196,Ringbuffer#7=197 variable Ringbuffer#8=198,Ringbuffer#9=199,Ringbuffer#10=200,Ringbuffer#11=201 variable Ringbuffer#12=202,Ringbuffer#13=203,Ringbuffer#14=204,Ringbuffer#15=205 variable Ringbuffer#16=206,Ringbuffer#17=207,Ringbuffer#18=208,Ringbuffer#19=209 variable Ringbuffer#20=210,Ringbuffer#21=211,Ringbuffer#22=212,Ringbuffer#23=213 variable Ringbuffer#24=214,Ringbuffer#25=215,Ringbuffer#26=216,Ringbuffer#27=217 variable Ringbuffer#28=218,Ringbuffer#29=219,Ringbuffer#30=220,Ringbuffer#31=221 variable Ringbuffer#32=222,Ringbuffer#33=223,Ringbuffer#34=224,Ringbuffer#35=225 variable Ringbuffer#36=226,Ringbuffer#37=227,Ringbuffer#38=228,Ringbuffer#39=229 variable Ringbuffer#40=230,Ringbuffer#41=231,Ringbuffer#42=232,Ringbuffer#43=233 variable Ringbuffer#44=234,Ringbuffer#45=235,Ringbuffer#46=236,Ringbuffer#47=237 variable Ringbuffer#48=238,Ringbuffer#49=239,Ringbuffer#50=240,Ringbuffer#51=241 variable Ringbuffer#52=242,Ringbuffer#53=243,Ringbuffer#54=244,Ringbuffer#55=245 variable Ringbuffer#56=246,Ringbuffer#57=247,Ringbuffer#58=248,Ringbuffer#59=249 variable Ringbuffer#60=250,Ringbuffer#61=251,Ringbuffer#62=252,Ringbuffer#63=253 variable Ringbuffer#64=254,Ringbuffer#65=255,Ringbuffer#66=256,Ringbuffer#67=257 variable Ringbuffer#68=258,Ringbuffer#69=259,Ringbuffer#70=260,Ringbuffer#71=261 variable Ringbuffer#72=262,Ringbuffer#73=263,Ringbuffer#74=264,Ringbuffer#75=265 variable Ringbuffer#76=266,Ringbuffer#77=267,Ringbuffer#78=268,Ringbuffer#79=269 variable Ringbuffer#80=270,Ringbuffer#81=271,Ringbuffer#82=272,Ringbuffer#83=273 variable Ringbuffer#84=274,Ringbuffer#85=275,Ringbuffer#86=276,Ringbuffer#87=277 variable Ringbuffer#88=278,Ringbuffer#89=279,Ringbuffer#90=280,Ringbuffer#91=281 variable Ringbuffer#92=282,Ringbuffer#93=283,Ringbuffer#94=284,Ringbuffer#95=285 variable Ringbuffer#96=286,Ringbuffer#97=287,Ringbuffer#98=288,Ringbuffer#99=289 variable Ringbuffer#100=290,Ringbuffer#101=291,Ringbuffer#102=292,Ringbuffer#103=293 variable Ringbuffer#104=294,Ringbuffer#105=295,Ringbuffer#106=296,Ringbuffer#107=297 variable Ringbuffer#108=298,Ringbuffer#109=299,Ringbuffer#110=300,Ringbuffer#111=301 variable Ringbuffer#112=302,Ringbuffer#113=303,Ringbuffer#114=304,Ringbuffer#115=305 variable Ringbuffer#116=306,Ringbuffer#117=307,Ringbuffer#118=308,Ringbuffer#119=309 variable Ringbuffer#120=310,Ringbuffer#121=311,Ringbuffer#122=312,Ringbuffer#123=313 variable Ringbuffer#124=314,Ringbuffer#125=315,Ringbuffer#126=316,Ringbuffer#127=317 variable Ringbuffer#128=318,Ringbuffer#129=319,Ringbuffer#130=320,Ringbuffer#131=321 variable Ringbuffer#132=322,Ringbuffer#133=323,Ringbuffer#134=324,Ringbuffer#135=325 variable Ringbuffer#136=326,Ringbuffer#137=327,Ringbuffer#138=328,Ringbuffer#139=329 variable Ringbuffer#140=330,Ringbuffer#141=331,Ringbuffer#142=332,Ringbuffer#143=333 variable Ringbuffer#144=334,Ringbuffer#145=335,Ringbuffer#146=336,Ringbuffer#147=337 variable Ringbuffer#148=338,Ringbuffer#149=339,Ringbuffer#150=340,Ringbuffer#151=341 variable Ringbuffer#152=342,Ringbuffer#153=343,Ringbuffer#154=344,Ringbuffer#155=345 variable Ringbuffer#156=346,Ringbuffer#157=347,Ringbuffer#158=348,Ringbuffer#159=349 variable Ringbuffer#160=350,Ringbuffer#161=351,Ringbuffer#162=352,Ringbuffer#163=353 variable Ringbuffer#164=354,Ringbuffer#165=355,Ringbuffer#166=356,Ringbuffer#167=357 variable Ringbuffer#168=358,Ringbuffer#169=359,Ringbuffer#170=360,Ringbuffer#171=361 variable Ringbuffer#172=362,Ringbuffer#173=363,Ringbuffer#174=364,Ringbuffer#175=365 variable Ringbuffer#176=366,Ringbuffer#177=367,Ringbuffer#178=368,Ringbuffer#179=369 variable Ringbuffer#180=370,Ringbuffer#181=371,Ringbuffer#182=372,Ringbuffer#183=373 variable Ringbuffer#184=374,Ringbuffer#185=375,Ringbuffer#186=376,Ringbuffer#187=377 variable Ringbuffer#188=378,Ringbuffer#189=379,Ringbuffer#190=380,Ringbuffer#191=381 variable Ringbuffer#192=382,Ringbuffer#193=383,Ringbuffer#194=384,Ringbuffer#195=385 variable Ringbuffer#196=386,Ringbuffer#197=387,Ringbuffer#198=388,Ringbuffer#199=389 variable Ringbuffer#200=390,Ringbuffer#201=391,Ringbuffer#202=392,Ringbuffer#203=393 variable Ringbuffer#204=394,Ringbuffer#205=395,Ringbuffer#206=396,Ringbuffer#207=397 variable Ringbuffer#208=398,Ringbuffer#209=399,Ringbuffer#210=400,Ringbuffer#211=401 variable Ringbuffer#212=402,Ringbuffer#213=403,Ringbuffer#214=404,Ringbuffer#215=405 variable Ringbuffer#216=406,Ringbuffer#217=407,Ringbuffer#218=408,Ringbuffer#219=409 variable Ringbuffer#220=410,Ringbuffer#221=411,Ringbuffer#222=412,Ringbuffer#223=413 variable Ringbuffer#224=414,Ringbuffer#225=415,Ringbuffer#226=416,Ringbuffer#227=417 variable Ringbuffer#228=418,Ringbuffer#229=419,Ringbuffer#230=420,Ringbuffer#231=421 variable Ringbuffer#232=422,Ringbuffer#233=423,Ringbuffer#234=424,Ringbuffer#235=425 variable Ringbuffer#236=426,Ringbuffer#237=427,Ringbuffer#238=428,Ringbuffer#239=429 variable Ringbuffer#240=430,Ringbuffer#241=431,Ringbuffer#242=432,Ringbuffer#243=433 variable Ringbuffer#244=434,Ringbuffer#245=435,Ringbuffer#246=436,Ringbuffer#247=437 variable Ringbuffer#248=438,Ringbuffer#249=439,Ringbuffer#250=440,Ringbuffer#251=441 variable Ringbuffer#252=442,Ringbuffer#253=443,Ringbuffer#254=444,Ringbuffer#255=445 vels = 446 velsH = 447 variable vels#0=446,vels#0H=447,vels#1=448,vels#1H=449 variable vels#2=450,vels#2H=451,vels#3=452,vels#3H=453 variable vels#4=454,vels#4H=455,vels#5=456,vels#5H=457 variable vels#6=458,vels#6H=459,vels#7=460,vels#7H=461 variable vels#8=462,vels#8H=463,vels#9=464,vels#9H=465 variable vels#10=466,vels#10H=467,vels#11=468,vels#11H=469 variable vels#12=470,vels#12H=471,vels#13=472,vels#13H=473 variable vels#14=474,vels#14H=475,vels#15=476,vels#15H=477 variable vels#16=478,vels#16H=479,vels#17=480,vels#17H=481 variable vels#18=482,vels#18H=483,vels#19=484,vels#19H=485 variable vels#20=486,vels#20H=487,vels#21=488,vels#21H=489 variable vels#22=490,vels#22H=491,vels#23=492,vels#23H=493 variable vels#24=494,vels#24H=495,vels#25=496,vels#25H=497 variable vels#26=498,vels#26H=499,vels#27=500,vels#27H=501 variable vels#28=502,vels#28H=503,vels#29=504,vels#29H=505 variable vels#30=506,vels#30H=507,vels#31=508,vels#31H=509 variable vels#32=510,vels#32H=511,vels#33=512,vels#33H=513 variable vels#34=514,vels#34H=515,vels#35=516,vels#35H=517 variable vels#36=518,vels#36H=519,vels#37=520,vels#37H=521 variable vels#38=522,vels#38H=523,vels#39=524,vels#39H=525 variable vels#40=526,vels#40H=527,vels#41=528,vels#41H=529 variable vels#42=530,vels#42H=531,vels#43=532,vels#43H=533 variable vels#44=534,vels#44H=535,vels#45=536,vels#45H=537 variable vels#46=538,vels#46H=539,vels#47=540,vels#47H=541 variable vels#48=542,vels#48H=543,vels#49=544,vels#49H=545 variable vels#50=546,vels#50H=547,vels#51=548,vels#51H=549 variable vels#52=550,vels#52H=551,vels#53=552,vels#53H=553 variable vels#54=554,vels#54H=555,vels#55=556,vels#55H=557 variable vels#56=558,vels#56H=559,vels#57=560,vels#57H=561 variable vels#58=562,vels#58H=563,vels#59=564,vels#59H=565 variable vels#60=566,vels#60H=567,vels#61=568,vels#61H=569 variable vels#62=570,vels#62H=571,vels#63=572,vels#63H=573 variable vels#64=574,vels#64H=575,vels#65=576,vels#65H=577 variable vels#66=578,vels#66H=579,vels#67=580,vels#67H=581 variable vels#68=582,vels#68H=583,vels#69=584,vels#69H=585 variable vels#70=586,vels#70H=587,vels#71=588,vels#71H=589 variable vels#72=590,vels#72H=591,vels#73=592,vels#73H=593 variable vels#74=594,vels#74H=595,vels#75=596,vels#75H=597 variable vels#76=598,vels#76H=599,vels#77=600,vels#77H=601 variable vels#78=602,vels#78H=603,vels#79=604,vels#79H=605 variable vels#80=606,vels#80H=607,vels#81=608,vels#81H=609 variable vels#82=610,vels#82H=611,vels#83=612,vels#83H=613 variable vels#84=614,vels#84H=615,vels#85=616,vels#85H=617 variable vels#86=618,vels#86H=619,vels#87=620,vels#87H=621 variable vels#88=622,vels#88H=623,vels#89=624,vels#89H=625 variable vels#90=626,vels#90H=627,vels#91=628,vels#91H=629 variable vels#92=630,vels#92H=631,vels#93=632,vels#93H=633 variable vels#94=634,vels#94H=635,vels#95=636,vels#95H=637 variable vels#96=638,vels#96H=639,vels#97=640,vels#97H=641 variable vels#98=642,vels#98H=643,vels#99=644,vels#99H=645 variable vels#100=646,vels#100H=647,vels#101=648,vels#101H=649 variable vels#102=650,vels#102H=651,vels#103=652,vels#103H=653 variable vels#104=654,vels#104H=655,vels#105=656,vels#105H=657 variable vels#106=658,vels#106H=659,vels#107=660,vels#107H=661 variable vels#108=662,vels#108H=663,vels#109=664,vels#109H=665 variable vels#110=666,vels#110H=667,vels#111=668,vels#111H=669 variable vels#112=670,vels#112H=671,vels#113=672,vels#113H=673 variable vels#114=674,vels#114H=675,vels#115=676,vels#115H=677 variable vels#116=678,vels#116H=679,vels#117=680,vels#117H=681 variable vels#118=682,vels#118H=683,vels#119=684,vels#119H=685 variable vels#120=686,vels#120H=687,vels#121=688,vels#121H=689 variable vels#122=690,vels#122H=691,vels#123=692,vels#123H=693 variable vels#124=694,vels#124H=695,vels#125=696,vels#125H=697 variable vels#126=698,vels#126H=699,vels#127=700,vels#127H=701 Dur = 702 DurH = 703 variable Dur#0=702,Dur#0H=703,Dur#1=704,Dur#1H=705 variable Dur#2=706,Dur#2H=707,Dur#3=708,Dur#3H=709 variable Dur#4=710,Dur#4H=711,Dur#5=712,Dur#5H=713 variable Dur#6=714,Dur#6H=715,Dur#7=716,Dur#7H=717 variable Dur#8=718,Dur#8H=719,Dur#9=720,Dur#9H=721 variable Dur#10=722,Dur#10H=723,Dur#11=724,Dur#11H=725 variable Dur#12=726,Dur#12H=727,Dur#13=728,Dur#13H=729 variable Dur#14=730,Dur#14H=731,Dur#15=732,Dur#15H=733 variable Dur#16=734,Dur#16H=735,Dur#17=736,Dur#17H=737 variable Dur#18=738,Dur#18H=739,Dur#19=740,Dur#19H=741 variable Dur#20=742,Dur#20H=743,Dur#21=744,Dur#21H=745 variable Dur#22=746,Dur#22H=747,Dur#23=748,Dur#23H=749 variable Dur#24=750,Dur#24H=751,Dur#25=752,Dur#25H=753 variable Dur#26=754,Dur#26H=755,Dur#27=756,Dur#27H=757 variable Dur#28=758,Dur#28H=759,Dur#29=760,Dur#29H=761 variable Dur#30=762,Dur#30H=763,Dur#31=764,Dur#31H=765 variable Dur#32=766,Dur#32H=767,Dur#33=768,Dur#33H=769 variable Dur#34=770,Dur#34H=771,Dur#35=772,Dur#35H=773 variable Dur#36=774,Dur#36H=775,Dur#37=776,Dur#37H=777 variable Dur#38=778,Dur#38H=779,Dur#39=780,Dur#39H=781 variable Dur#40=782,Dur#40H=783,Dur#41=784,Dur#41H=785 variable Dur#42=786,Dur#42H=787,Dur#43=788,Dur#43H=789 variable Dur#44=790,Dur#44H=791,Dur#45=792,Dur#45H=793 variable Dur#46=794,Dur#46H=795,Dur#47=796,Dur#47H=797 variable Dur#48=798,Dur#48H=799,Dur#49=800,Dur#49H=801 variable Dur#50=802,Dur#50H=803,Dur#51=804,Dur#51H=805 variable Dur#52=806,Dur#52H=807,Dur#53=808,Dur#53H=809 variable Dur#54=810,Dur#54H=811,Dur#55=812,Dur#55H=813 variable Dur#56=814,Dur#56H=815,Dur#57=816,Dur#57H=817 variable Dur#58=818,Dur#58H=819,Dur#59=820,Dur#59H=821 variable Dur#60=822,Dur#60H=823,Dur#61=824,Dur#61H=825 variable Dur#62=826,Dur#62H=827,Dur#63=828,Dur#63H=829 variable Dur#64=830,Dur#64H=831,Dur#65=832,Dur#65H=833 variable Dur#66=834,Dur#66H=835,Dur#67=836,Dur#67H=837 variable Dur#68=838,Dur#68H=839,Dur#69=840,Dur#69H=841 variable Dur#70=842,Dur#70H=843,Dur#71=844,Dur#71H=845 variable Dur#72=846,Dur#72H=847,Dur#73=848,Dur#73H=849 variable Dur#74=850,Dur#74H=851,Dur#75=852,Dur#75H=853 variable Dur#76=854,Dur#76H=855,Dur#77=856,Dur#77H=857 variable Dur#78=858,Dur#78H=859,Dur#79=860,Dur#79H=861 variable Dur#80=862,Dur#80H=863,Dur#81=864,Dur#81H=865 variable Dur#82=866,Dur#82H=867,Dur#83=868,Dur#83H=869 variable Dur#84=870,Dur#84H=871,Dur#85=872,Dur#85H=873 variable Dur#86=874,Dur#86H=875,Dur#87=876,Dur#87H=877 variable Dur#88=878,Dur#88H=879,Dur#89=880,Dur#89H=881 variable Dur#90=882,Dur#90H=883,Dur#91=884,Dur#91H=885 variable Dur#92=886,Dur#92H=887,Dur#93=888,Dur#93H=889 variable Dur#94=890,Dur#94H=891,Dur#95=892,Dur#95H=893 variable Dur#96=894,Dur#96H=895,Dur#97=896,Dur#97H=897 variable Dur#98=898,Dur#98H=899,Dur#99=900,Dur#99H=901 variable Dur#100=902,Dur#100H=903,Dur#101=904,Dur#101H=905 variable Dur#102=906,Dur#102H=907,Dur#103=908,Dur#103H=909 variable Dur#104=910,Dur#104H=911,Dur#105=912,Dur#105H=913 variable Dur#106=914,Dur#106H=915,Dur#107=916,Dur#107H=917 variable Dur#108=918,Dur#108H=919,Dur#109=920,Dur#109H=921 variable Dur#110=922,Dur#110H=923,Dur#111=924,Dur#111H=925 variable Dur#112=926,Dur#112H=927,Dur#113=928,Dur#113H=929 variable Dur#114=930,Dur#114H=931,Dur#115=932,Dur#115H=933 variable Dur#116=934,Dur#116H=935,Dur#117=936,Dur#117H=937 variable Dur#118=938,Dur#118H=939,Dur#119=940,Dur#119H=941 variable Dur#120=942,Dur#120H=943,Dur#121=944,Dur#121H=945 variable Dur#122=946,Dur#122H=947,Dur#123=948,Dur#123H=949 variable Dur#124=950,Dur#124H=951,Dur#125=952,Dur#125H=953 variable Dur#126=954,Dur#126H=955,Dur#127=956,Dur#127H=957 _Low__Context_Store = 958 variable _Low__Context_Store#0=958,_Low__Context_Store#1=959,_Low__Context_Store#2=960 #define StBit Bytein,7 #define maxtim timeHHH,7 #define tg tog,0 #define FSR0SaveInt PP0 #define FSR0SaveIntH PP0H #define USART_FSR0_Save FSR0SaveInt #define USART_FSR0_SaveH FSR0SaveIntH #define USART_FSR0 FSR0L #define USART_FSR0H FSR0LH #define USART_FSR1 FSR1L #define USART_FSR1H FSR1LH #define __OPTIMISER_LEVEL 3 #define __XTAL 40 #define PWMminF 2442 #define PWMminFH 9 #define noot0 21 #define noot1 22 #define noot2 23 #define noot3 24 #define noot4 25 #define noot5 26 #define noot6 27 #define noot7 28 #define noot8 29 #define noot9 30 #define Midichannel 0 #define NoteOff_Status 128 #define NoteOn_Status 144 #define Keypres_Status 160 #define Control_Status 176 #define ProgChange_Status 192 #define Aftertouch_Status 208 #define Pitchbend_Status 224 #define __HSERIAL_BAUD 31250 #define __HSERIAL_TXSTA 36 HSERIAL_SPBRG = 79 HSERIAL_TXSTA = 36 HSERIAL_RCSTA = 144 HSERIAL_BAUD = 31250 proton#code#start org 0X000000 nop nop goto proton#main#start org 0X000008 bra High_Prior_Interrupt org 0X000018 bra Low_Prior_Interrupt HRSIN#REQ = 1 HRSINX#REQ = 1 HRSIN#CLROERR = 1 __DELAY_MS_ clrf 10,0 __DELAY_MS_W_ movwf 9,0 DLY@P movlw 255 addwf 9,F,0 addwfc 10,F,0 bra $ + 2 btfss 4056,0,0 return movlw 3 movwf 8,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf 8,0 __DELAY_US_W_ addlw 254 movwf 7,0 clrf 4072,0 subwfb 8,F,0 btfss 4056,0,0 return nop decf 7,F,0 bra $ + 2 bra $ - 14 FPA@32 movf PP_BARG,W,0 subwf PP_AARG,W,0 movwf _BEXP,0 bc FL@ADD_1 negf _BEXP,0 movf PP_AARG,W,0 movff PP_BARG,PP_AARG movwf PP_BARG,0 movf PP_AARGH,W,0 movff PP_BARGH,PP_AARGH movwf PP_BARGH,0 movf PP_AARGHH,W,0 movff PP_BARGHH,PP_AARGHH movwf PP_BARGHH,0 movf PP_AARGHHH,W,0 movff PP_BARGHHH,PP_AARGHHH movwf PP_BARGHHH,0 FL@ADD_1 movlw 26 cpfslt _BEXP,0 bra FL@ADD_RET movf PP_BARG,F,0 bz FL@ADD_RET clrf _AEXP,0 movf PP_AARGH,W,0 movwf _FP_TEMP,0 xorwf PP_BARGH,W,0 movwf _SIGN,0 bsf PP_AARGH,7,0 bsf PP_BARGH,7,0 FL@ADD_2 movlw 8 subwf _BEXP,F,0 bnc FL@ADD_3 movff PP_BARGHHH,_AEXP movff PP_BARGHH,PP_BARGHHH movff PP_BARGH,PP_BARGHH clrf PP_BARGH,0 bra FL@ADD_2 FL@ADD_3 addwf _BEXP,F,0 bz FL@ADD_5 FL@ADD_4 bcf 4056,0,0 rrcf PP_BARGH,F,0 rrcf PP_BARGHH,F,0 rrcf PP_BARGHHH,F,0 rrcf _AEXP,F,0 decfsz _BEXP,F,0 bra FL@ADD_4 FL@ADD_5 btfss _SIGN,7,0 bra FL@ADD_11 movf PP_BARGHHH,W,0 subwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 subwfb PP_AARGHH,F,0 movf PP_BARGH,W,0 subwfb PP_AARGH,F,0 bc FL@ADD_6 bsf 4056,0,0 movlw 0 subfwb PP_AARGHHH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGH,F,0 movlw 128 xorwf _FP_TEMP,F,0 FL@ADD_6 negf _AEXP,0 bz FL@ADD_7 decf PP_AARGHHH,F,0 movlw 0 subwfb PP_AARGHH,F,0 subwfb PP_AARGH,F,0 FL@ADD_7 movlw 4 movwf _BEXP,0 FL@ADD_8 tstfsz PP_AARGH,0 bra FL@ADD_9 movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH movff _AEXP,PP_AARGHHH clrf _AEXP,0 movlw 8 subwf PP_AARG,F,0 bnc FL@ADD_RES0 decfsz _BEXP,F,0 bra FL@ADD_8 bra FL@ADD_RES0 FL@ADD_9 btfsc PP_AARGH,7,0 bra FL@ADD_10 bcf 4056,0,0 rlcf _AEXP,F,0 rlcf PP_AARGHHH,F,0 rlcf PP_AARGHH,F,0 rlcf PP_AARGH,F,0 decfsz PP_AARG,F,0 bra FL@ADD_9 bra FL@ADD_RES0 FL@ADD_10 btfss _AEXP,7,0 bra FL@ADD_SET_SIGN clrf _AEXP,0 bra FL@ADD_INCREMENT FL@ADD_11 movf PP_BARGHHH,W,0 addwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 addwfc PP_AARGHH,F,0 movf PP_BARGH,W,0 addwfc PP_AARGH,F,0 bnc FL@ADD_13 FL@ADD_ADJUST_RIGHT rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 rrcf _AEXP,F,0 infsnz PP_AARG,F,0 bra FL@ADD_OVERFLOW FL@ADD_13 btfss _AEXP,7,0 bra FL@ADD_SET_SIGN FL@ADD_INCREMENT incfsz PP_AARGHHH,F,0 bra FL@ADD_SET_SIGN incfsz PP_AARGHH,F,0 bra FL@ADD_SET_SIGN incfsz PP_AARGH,F,0 bra FL@ADD_SET_SIGN bsf 4056,0,0 bcf PP_AARGHHH,0,0 bra FL@ADD_ADJUST_RIGHT FL@ADD_RES0 clrf PP_AARG,0 bra FL@ADD_MANTISSA FL@ADD_OVERFLOW bsf _FP_FLAGS,1,0 setf PP_AARG,0 FL@ADD_MANTISSA clrf PP_AARGHHH,0 clrf PP_AARGHH,0 movlw 128 movwf PP_AARGH,0 FL@ADD_SET_SIGN btfss _FP_TEMP,7,0 bcf PP_AARGH,7,0 FL@ADD_RET movf PP_AARGHHH,W,0 return _FL32_TO_INT32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W,0 movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH,0 rlcf PP_AARGHHH,F,0 rrcf _FP_TEMP,F,0 rrcf PP_AARGHHH,F,0 clrf _FP_FLAGS,0 rlcf PP_AARGHHH,F,0 rlcf _FP_TEMP,F,0 bnc _FL32INT__UNPKA1 bsf _FP_FLAGS,2,0 btg _FP_FLAGS,7,0 _FL32INT__UNPKA1 bnz _FL32INT__UNPKANZ bsf _FP_FLAGS,0,0 clrf _FP_TEMP,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKANZ incf _FP_TEMP,W,0 bz _FL32INT__UNPKA2 bsf 4056,0,0 rrcf PP_AARGHHH,F,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKA2 bcf 4056,0,0 rrcf PP_AARGHHH,F,0 bnz _FL32INT__UNPKNAN bsf _FP_FLAGS,1,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKNAN bsf _FP_FLAGS,3,0 _FL32INTUNP__EXIT btfsc _FP_FLAGS,3,0 bra _FL32INT__MAXPOS btfss _FP_FLAGS,1,0 bra _FL32INT__NOTINF _FL32INT__MAX btfsc _FP_FLAGS,2,0 bra _FL32INT__MAXNEG _FL32INT__MAXPOS movlw 127 movwf PP_AARGHHH,0 movlw 255 _FL32INT__WR123 movwf PP_AARGHH,0 movwf PP_AARGH,0 movwf PP_AARG,0 bra _FL32INT__EXIT _FL32INT__MAXNEG movlw 128 movwf PP_AARGHHH,0 bra _FL32INT__WRZ123 _FL32INT__ZERO clrf PP_AARGHHH,0 _FL32INT__WRZ123 movlw 0 bra _FL32INT__WR123 _FL32INT__NOTINF btfsc _FP_FLAGS,0,0 bra _FL32INT__ZERO clrf PP_AARG,0 movlw 159 cpfslt _FP_TEMP,0 bra _FL32INT__MAX movlw 126 cpfsgt _FP_TEMP,0 bra _FL32INT__ZERO _FL32INT__LOOP movlw 158 subwf _FP_TEMP,W,0 bz _FL32INT__LOOPEXIT bcf 4056,0,0 rrcf PP_AARGHHH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGH,F,0 rrcf PP_AARG,F,0 incf _FP_TEMP,F,0 bra _FL32INT__LOOP _FL32INT__LOOPEXIT btfss _FP_FLAGS,2,0 bra _FL32INT__EXIT bsf 4056,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 btfss PP_AARGHHH,7,0 bra _FL32INT__ZERO _FL32INT__EXIT movf PP_AARG,W,0 return _UNS_INT16_TOFL32 clrf PP_AARGHH,0 clrf PP_AARGHHH,0 _UNSGN_INT32_TOFL32 bcf _SIGN,7,0 bra IF@L5 _SGN_INT32_TOFL32 bcf _SIGN,7,0 btfss PP_AARGHHH,7,0 bra IF@L5 bsf STATUS,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 bsf _SIGN,7,0 IF@L5 movlw 150 movwf _FP_TEMP,0 movf PP_AARGHHH,F,0 bz IF@L7 IF@L17 movlw 8 addwf _FP_TEMP,F,0 movff PP_AARGH,PP_AARG movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH bra IF@L18 IF@L7 movf PP_AARGHH,F,0 bnz IF@L18 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARGH,W,0 bnz IF@L20 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARG,W,0 bnz IF@L22 movf PP_AARGHHH,W,0 bra IF@EXIT IF@L22 clrf PP_AARG,0 IF@L20 movwf PP_AARGHH,0 movff PP_AARG,PP_AARGH clrf PP_AARG,0 IF@L18 btfsc PP_AARGHH,7,0 bra IF@L24 bcf 4056,0,0 rlcf PP_AARG,F,0 rlcf PP_AARGH,F,0 rlcf PP_AARGHH,F,0 decf _FP_TEMP,F,0 bra IF@L18 IF@L24 btfss _SIGN,7,0 bcf PP_AARGHH,7,0 IF@L26 movf _FP_TEMP,W,0 IF@EXIT movff PP_AARG,PP_AARGHHH movwf PP_AARG,0 movf PP_AARGHH,W,0 movff PP_AARGH,PP_AARGHH movwf PP_AARGH,0 return proton#main#start movlw 64 movwf _FP_FLAGS,0 movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; PP2-1.BAS F2_SOF equ $ ; 18F2525.INC F2_EOF equ $ ; 18F2525.INC F1_000058 equ $ ; IN [PP2-1.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F1_000060 equ $ ; IN [PP2-1.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000061 equ $ ; IN [PP2-1.BAS] TRISA = %01000000 movlw 64 movwf TRISA,0 F1_000062 equ $ ; IN [PP2-1.BAS] TRISB = %00000000 clrf TRISB,0 F1_000063 equ $ ; IN [PP2-1.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F3_SOF equ $ ; PP2_IRQ.INC F3_000065 equ $ ; IN [PP2_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000077 equ $ ; IN [PP2_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000078 equ $ ; IN [PP2_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000085 equ $ ; IN [PP2_IRQ.INC] RETFIE FAST retfie 1 F3_000086 equ $ ; IN [PP2_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000088 equ $ ; IN [PP2_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000089 equ $ ; IN [PP2_IRQ.INC] MOVLW 6 movlw 6 F3_000090 equ $ ; IN [PP2_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000091 equ $ ; IN [PP2_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000092 equ $ ; IN [PP2_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000093 equ $ ; IN [PP2_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000103 equ $ ; IN [PP2_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,190 F3_000104 equ $ ; IN [PP2_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000105 equ $ ; IN [PP2_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000106 equ $ ; IN [PP2_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000108 equ $ ; IN [PP2_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000110 equ $ ; IN [PP2_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000111 equ $ ; IN [PP2_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000112 equ $ ; IN [PP2_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000113 equ $ ; IN [PP2_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000114 equ $ ; IN [PP2_IRQ.INC] ENDIF _LBL__5 F3_000115 equ $ ; IN [PP2_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000120 equ $ ; IN [PP2_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000121 equ $ ; IN [PP2_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000122 equ $ ; IN [PP2_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000123 equ $ ; IN [PP2_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,190 F3_000124 equ $ ; IN [PP2_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000125 equ $ ; IN [PP2_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000126 equ $ ; IN [PP2_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000127 equ $ ; IN [PP2_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000128 equ $ ; IN [PP2_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000129 equ $ ; IN [PP2_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000130 equ $ ; IN [PP2_IRQ.INC] ELSE F3_000131 equ $ ; IN [PP2_IRQ.INC] WREG = 255 setf WREG,0 F3_000132 equ $ ; IN [PP2_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000133 equ $ ; IN [PP2_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000134 equ $ ; IN [PP2_IRQ.INC] RET return 0 F3_000135 equ $ ; IN [PP2_IRQ.INC] ENDIF _LBL__8 F3_000136 equ $ ; IN [PP2_IRQ.INC] RET return 0 _Init_Usart F3_000152 equ $ ; IN [PP2_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000153 equ $ ; IN [PP2_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000154 equ $ ; IN [PP2_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000156 equ $ ; IN [PP2_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000158 equ $ ; IN [PP2_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000159 equ $ ; IN [PP2_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000161 equ $ ; IN [PP2_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000176 equ $ ; IN [PP2_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000177 equ $ ; IN [PP2_IRQ.INC] CLEAR RINGBUFFER lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _PBLB__9 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _PBLB__9 F3_000178 equ $ ; IN [PP2_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000179 equ $ ; IN [PP2_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000180 equ $ ; IN [PP2_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000181 equ $ ; IN [PP2_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000189 equ $ ; IN [PP2_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_000190 equ $ ; IN [PP2_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000196 equ $ ; IN [PP2_IRQ.INC] CONTEXT RESTORE bcf INTCON,7,0 movff _Low__Context_Store#0,BSR movff _Low__Context_Store#1,STATUS movff _Low__Context_Store#2,WREG bsf INTCON,7,0 retfie HRSOUT F3_000208 equ $ ; IN [PP2_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000209 equ $ ; IN [PP2_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000210 equ $ ; IN [PP2_IRQ.INC] MOVWF TXREG movwf TXREG F3_000211 equ $ ; IN [PP2_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; PP2_IRQ.INC MAIN F1_000204 equ $ ; IN [PP2-1.BAS] DELAYMS 10 movlw 10 rcall __DELAY_MS_ F1_000206 equ $ ; IN [PP2-1.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000207 equ $ ; IN [PP2-1.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000208 equ $ ; IN [PP2-1.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000209 equ $ ; IN [PP2-1.BAS] LOW PORTB.6 bcf TRISB,6,0 bcf LATB,6,0 F1_000210 equ $ ; IN [PP2-1.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000211 equ $ ; IN [PP2-1.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000212 equ $ ; IN [PP2-1.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000213 equ $ ; IN [PP2-1.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000214 equ $ ; IN [PP2-1.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000215 equ $ ; IN [PP2-1.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000216 equ $ ; IN [PP2-1.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000217 equ $ ; IN [PP2-1.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000218 equ $ ; IN [PP2-1.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000219 equ $ ; IN [PP2-1.BAS] LOW PORTB.7 bcf TRISB,7,0 bcf LATB,7,0 F1_000220 equ $ ; IN [PP2-1.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000221 equ $ ; IN [PP2-1.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000222 equ $ ; IN [PP2-1.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000223 equ $ ; IN [PP2-1.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000224 equ $ ; IN [PP2-1.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000225 equ $ ; IN [PP2-1.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000227 equ $ ; IN [PP2-1.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_000228 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_000229 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS clrf HoldflagsH,0 clrf Holdflags,0 F1_000230 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS clrf WaitflagsH,0 clrf Waitflags,0 F1_000231 equ $ ; IN [PP2-1.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000233 equ $ ; IN [PP2-1.BAS] CLEAR PRES0 clrf Pres0,1 F1_000234 equ $ ; IN [PP2-1.BAS] CLEAR PRES1 clrf Pres1,1 F1_000235 equ $ ; IN [PP2-1.BAS] CLEAR PRES2 clrf Pres2,1 F1_000236 equ $ ; IN [PP2-1.BAS] CLEAR PRES3 clrf Pres3,1 F1_000237 equ $ ; IN [PP2-1.BAS] CLEAR PRES4 clrf Pres4,1 F1_000238 equ $ ; IN [PP2-1.BAS] CLEAR PRES5 clrf Pres5,1 F1_000239 equ $ ; IN [PP2-1.BAS] CLEAR PRES6 clrf Pres6,1 F1_000240 equ $ ; IN [PP2-1.BAS] CLEAR PRES7 clrf Pres7,1 F1_000241 equ $ ; IN [PP2-1.BAS] CLEAR PRES8 clrf Pres8,1 F1_000242 equ $ ; IN [PP2-1.BAS] CLEAR PRES9 clrf Pres9,1 F1_000244 equ $ ; IN [PP2-1.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000245 equ $ ; IN [PP2-1.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000246 equ $ ; IN [PP2-1.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000247 equ $ ; IN [PP2-1.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000248 equ $ ; IN [PP2-1.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_000249 equ $ ; IN [PP2-1.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_000250 equ $ ; IN [PP2-1.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_000251 equ $ ; IN [PP2-1.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_000252 equ $ ; IN [PP2-1.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_000253 equ $ ; IN [PP2-1.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_000255 equ $ ; IN [PP2-1.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_000256 equ $ ; IN [PP2-1.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_000257 equ $ ; IN [PP2-1.BAS] CLEAR VELO2 clrf velo2H,0 clrf velo2,0 F1_000258 equ $ ; IN [PP2-1.BAS] CLEAR VELO3 clrf velo3H,0 clrf velo3,0 F1_000259 equ $ ; IN [PP2-1.BAS] CLEAR VELO4 clrf velo4H,0 clrf velo4,0 F1_000260 equ $ ; IN [PP2-1.BAS] CLEAR VELO5 clrf velo5H,0 clrf velo5,0 F1_000261 equ $ ; IN [PP2-1.BAS] CLEAR VELO6 clrf velo6H,0 clrf velo6,0 F1_000262 equ $ ; IN [PP2-1.BAS] CLEAR VELO7 clrf velo7H,0 clrf velo7,0 F1_000263 equ $ ; IN [PP2-1.BAS] CLEAR VELO8 clrf velo8H,0 clrf velo8,0 F1_000264 equ $ ; IN [PP2-1.BAS] CLEAR VELO9 clrf velo9H,0 clrf velo9,0 F1_000266 equ $ ; IN [PP2-1.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000268 equ $ ; IN [PP2-1.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000280 equ $ ; IN [PP2-1.BAS] CLEAR T1CON clrf T1CON,0 F1_000281 equ $ ; IN [PP2-1.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000282 equ $ ; IN [PP2-1.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000283 equ $ ; IN [PP2-1.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000318 equ $ ; IN [PP2-1.BAS] CLEAR T3CON clrf T3CON,0 F1_000319 equ $ ; IN [PP2-1.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000320 equ $ ; IN [PP2-1.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000323 equ $ ; IN [PP2-1.BAS] SET RCON.7 bsf RCON,7,0 F1_000324 equ $ ; IN [PP2-1.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000326 equ $ ; IN [PP2-1.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000348 equ $ ; IN [PP2-1.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000349 equ $ ; IN [PP2-1.BAS] GOSUB VELS_LOOKUP_0 call Vels_Lookup_0 LOOP F1_000354 equ $ ; IN [PP2-1.BAS] INC T incf _T,F,0 F1_000355 equ $ ; IN [PP2-1.BAS] IF T.1 = TG THEN clrf WREG,0 btfsc _T,1,0 addlw 1 btfsc tog,0,0 sublw 1 bnz _LBL__11 F1_000356 equ $ ; IN [PP2-1.BAS] BTG TG btg tog,0 F1_000357 equ $ ; IN [PP2-1.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000358 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__11 F1_000360 equ $ ; IN [PP2-1.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000363 equ $ ; IN [PP2-1.BAS] IF BYTEIN > PROGCHANGE_STATUS THEN movlw 193 subwf Bytein,W,0 bnc _LBL__13 F1_000364 equ $ ; IN [PP2-1.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bc _LBL__16 _LBL__15 F1_000368 equ $ ; IN [PP2-1.BAS] ELSE F1_000369 equ $ ; IN [PP2-1.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000370 equ $ ; IN [PP2-1.BAS] END IF _LBL__16 F1_000371 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000372 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__13 F1_000373 equ $ ; IN [PP2-1.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__18 F1_000375 equ $ ; IN [PP2-1.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000376 equ $ ; IN [PP2-1.BAS] SELECT BYTEIN F1_000377 equ $ ; IN [PP2-1.BAS] CASE NOTEOFF_STATUS movlw 128 subwf Bytein,W,0 bnz _LBL__20 F1_000378 equ $ ; IN [PP2-1.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000379 equ $ ; IN [PP2-1.BAS] SET NOTEUIT setf noteUit,0 F1_000380 equ $ ; IN [PP2-1.BAS] SET RELEASE setf release,0 bra _LBL__19 _LBL__20 F1_000381 equ $ ; IN [PP2-1.BAS] CASE NOTEON_STATUS movlw 144 subwf Bytein,W,0 bnz _LBL__23 F1_000382 equ $ ; IN [PP2-1.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000383 equ $ ; IN [PP2-1.BAS] SET NOTEAAN setf noteAan,0 F1_000384 equ $ ; IN [PP2-1.BAS] SET VELO setf velo,0 bra _LBL__19 _LBL__23 F1_000385 equ $ ; IN [PP2-1.BAS] CASE KEYPRES_STATUS movlw 160 subwf Bytein,W,0 bnz _LBL__25 F1_000386 equ $ ; IN [PP2-1.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000387 equ $ ; IN [PP2-1.BAS] NOTEPRES = 255 setf notePres,0 F1_000388 equ $ ; IN [PP2-1.BAS] PRES = 255 setf pres,0 bra _LBL__19 _LBL__25 F1_000389 equ $ ; IN [PP2-1.BAS] CASE CONTROL_STATUS movlw 176 subwf Bytein,W,0 bnz _LBL__27 F1_000390 equ $ ; IN [PP2-1.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000391 equ $ ; IN [PP2-1.BAS] SET CTRL setf Ctrl,0 F1_000392 equ $ ; IN [PP2-1.BAS] SET VALUE setf value,0 bra _LBL__19 _LBL__27 F1_000393 equ $ ; IN [PP2-1.BAS] CASE PROGCHANGE_STATUS movlw 192 subwf Bytein,W,0 bnz _LBL__29 F1_000394 equ $ ; IN [PP2-1.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000395 equ $ ; IN [PP2-1.BAS] PROG = 255 setf prog,0 F1_000403 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__29 _LBL__19 goto _LBL__30 _LBL__18 F1_000404 equ $ ; IN [PP2-1.BAS] ELSE F1_000405 equ $ ; IN [PP2-1.BAS] SELECT STATUSBYTE F1_000406 equ $ ; IN [PP2-1.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__32 F1_000407 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__31 _LBL__32 F1_000408 equ $ ; IN [PP2-1.BAS] CASE NOTEOFF_STATUS movlw 128 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__35 F1_000409 equ $ ; IN [PP2-1.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__37 F1_000410 equ $ ; IN [PP2-1.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__38 _LBL__37 F1_000411 equ $ ; IN [PP2-1.BAS] ELSE F1_000412 equ $ ; IN [PP2-1.BAS] RELEASE = BYTEIN movff Bytein,release F1_000413 equ $ ; IN [PP2-1.BAS] SELECT NOTEUIT F1_000414 equ $ ; IN [PP2-1.BAS] CASE NOOT0 movlw 21 subwf noteUit,W,0 bnz _LBL__40 F1_000415 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000416 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000417 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.0 bcf Holdflags,0,0 F1_000418 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.0 bcf Waitflags,0,0 F1_000419 equ $ ; IN [PP2-1.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000420 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000421 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__39 _LBL__40 F1_000422 equ $ ; IN [PP2-1.BAS] CASE NOOT1 movlw 22 subwf noteUit,W,0 bnz _LBL__43 F1_000423 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000424 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.1 bcf Holdflags,1,0 F1_000425 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.1 bcf Waitflags,1,0 F1_000426 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000427 equ $ ; IN [PP2-1.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000428 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000429 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 bra _LBL__39 _LBL__43 F1_000430 equ $ ; IN [PP2-1.BAS] CASE NOOT2 movlw 23 subwf noteUit,W,0 bnz _LBL__45 F1_000431 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000432 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.2 bcf Holdflags,2,0 F1_000433 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.2 bcf Waitflags,2,0 F1_000434 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000435 equ $ ; IN [PP2-1.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000436 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000437 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__39 _LBL__45 F1_000438 equ $ ; IN [PP2-1.BAS] CASE NOOT3 movlw 24 subwf noteUit,W,0 bnz _LBL__47 F1_000439 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000440 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.3 bcf Holdflags,3,0 F1_000441 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.3 bcf Waitflags,3,0 F1_000442 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000443 equ $ ; IN [PP2-1.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000444 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000445 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 bra _LBL__39 _LBL__47 F1_000446 equ $ ; IN [PP2-1.BAS] CASE NOOT4 movlw 25 subwf noteUit,W,0 bnz _LBL__49 F1_000447 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000448 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.4 bcf Holdflags,4,0 F1_000449 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.4 bcf Waitflags,4,0 F1_000450 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000451 equ $ ; IN [PP2-1.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000452 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000453 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 bra _LBL__39 _LBL__49 F1_000454 equ $ ; IN [PP2-1.BAS] CASE NOOT5 movlw 26 subwf noteUit,W,0 bnz _LBL__51 F1_000455 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000456 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.5 bcf Holdflags,5,0 F1_000457 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.5 bcf Waitflags,5,0 F1_000458 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000459 equ $ ; IN [PP2-1.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000460 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000461 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__39 _LBL__51 F1_000462 equ $ ; IN [PP2-1.BAS] CASE NOOT6 movlw 27 subwf noteUit,W,0 bnz _LBL__53 F1_000463 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000464 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.6 bcf Holdflags,6,0 F1_000465 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.6 bcf Waitflags,6,0 F1_000466 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000467 equ $ ; IN [PP2-1.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000468 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000469 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__39 _LBL__53 F1_000470 equ $ ; IN [PP2-1.BAS] CASE NOOT7 movlw 28 subwf noteUit,W,0 bnz _LBL__55 F1_000471 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000472 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.7 bcf Holdflags,7,0 F1_000473 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.7 bcf Waitflags,7,0 F1_000474 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000475 equ $ ; IN [PP2-1.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_000476 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000477 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__39 _LBL__55 F1_000478 equ $ ; IN [PP2-1.BAS] CASE NOOT8 movlw 29 subwf noteUit,W,0 bnz _LBL__57 F1_000479 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_000480 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.8 bcf HoldflagsH,0,0 F1_000481 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.8 bcf WaitflagsH,0,0 F1_000482 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000483 equ $ ; IN [PP2-1.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_000484 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000485 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 bra _LBL__39 _LBL__57 F1_000486 equ $ ; IN [PP2-1.BAS] CASE NOOT9 movlw 30 subwf noteUit,W,0 bnz _LBL__59 F1_000487 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_000488 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.9 bcf HoldflagsH,1,0 F1_000489 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.9 bcf WaitflagsH,1,0 F1_000490 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000491 equ $ ; IN [PP2-1.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_000492 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000493 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000494 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__59 _LBL__39 F1_000495 equ $ ; IN [PP2-1.BAS] SET NOTEUIT setf noteUit,0 F1_000496 equ $ ; IN [PP2-1.BAS] GOTO RESORT goto resort F1_000497 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__38 F1_000498 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__31 _LBL__35 F1_000499 equ $ ; IN [PP2-1.BAS] CASE NOTEON_STATUS movlw 144 subwf statusbyte,W,0 btfss STATUS,2,0 goto _LBL__61 F1_000500 equ $ ; IN [PP2-1.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__63 F1_000501 equ $ ; IN [PP2-1.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _LBL__64 _LBL__63 F1_000502 equ $ ; IN [PP2-1.BAS] ELSE F1_000503 equ $ ; IN [PP2-1.BAS] VELO = BYTEIN movff Bytein,velo F1_000504 equ $ ; IN [PP2-1.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _LBL__66 F1_000505 equ $ ; IN [PP2-1.BAS] SELECT NOTEAAN F1_000506 equ $ ; IN [PP2-1.BAS] CASE NOOT0 movlw 21 subwf noteAan,W,0 bnz _LBL__68 F1_000507 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000508 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.0 bcf Holdflags,0,0 F1_000509 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.0 bcf Waitflags,0,0 F1_000510 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000511 equ $ ; IN [PP2-1.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_000512 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000513 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__67 _LBL__68 F1_000514 equ $ ; IN [PP2-1.BAS] CASE NOOT1 movlw 22 subwf noteAan,W,0 bnz _LBL__71 F1_000515 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000516 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.1 bcf Holdflags,1,0 F1_000517 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.1 bcf Waitflags,1,0 F1_000518 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000519 equ $ ; IN [PP2-1.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_000520 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000521 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 bra _LBL__67 _LBL__71 F1_000522 equ $ ; IN [PP2-1.BAS] CASE NOOT2 movlw 23 subwf noteAan,W,0 bnz _LBL__73 F1_000523 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000524 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.2 bcf Holdflags,2,0 F1_000525 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.2 bcf Waitflags,2,0 F1_000526 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000527 equ $ ; IN [PP2-1.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_000528 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000529 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__67 _LBL__73 F1_000530 equ $ ; IN [PP2-1.BAS] CASE NOOT3 movlw 24 subwf noteAan,W,0 bnz _LBL__75 F1_000531 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000532 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.3 bcf Holdflags,3,0 F1_000533 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.3 bcf Waitflags,3,0 F1_000534 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000535 equ $ ; IN [PP2-1.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_000536 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000537 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 bra _LBL__67 _LBL__75 F1_000538 equ $ ; IN [PP2-1.BAS] CASE NOOT4 movlw 25 subwf noteAan,W,0 bnz _LBL__77 F1_000539 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000540 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.4 bcf Holdflags,4,0 F1_000541 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.4 bcf Waitflags,4,0 F1_000542 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000543 equ $ ; IN [PP2-1.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_000544 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000545 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 bra _LBL__67 _LBL__77 F1_000546 equ $ ; IN [PP2-1.BAS] CASE NOOT5 movlw 26 subwf noteAan,W,0 bnz _LBL__79 F1_000547 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000548 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.5 bcf Holdflags,5,0 F1_000549 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.5 bcf Waitflags,5,0 F1_000550 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000551 equ $ ; IN [PP2-1.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_000552 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000553 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__67 _LBL__79 F1_000554 equ $ ; IN [PP2-1.BAS] CASE NOOT6 movlw 27 subwf noteAan,W,0 bnz _LBL__81 F1_000555 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000556 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.6 bcf Holdflags,6,0 F1_000557 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.6 bcf Waitflags,6,0 F1_000558 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000559 equ $ ; IN [PP2-1.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_000560 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000561 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__67 _LBL__81 F1_000562 equ $ ; IN [PP2-1.BAS] CASE NOOT7 movlw 28 subwf noteAan,W,0 bnz _LBL__83 F1_000563 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000564 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.7 bcf Holdflags,7,0 F1_000565 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.7 bcf Waitflags,7,0 F1_000566 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000567 equ $ ; IN [PP2-1.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_000568 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000569 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__67 _LBL__83 F1_000570 equ $ ; IN [PP2-1.BAS] CASE NOOT8 movlw 29 subwf noteAan,W,0 bnz _LBL__85 F1_000571 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_000572 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.8 bcf HoldflagsH,0,0 F1_000573 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.8 bcf WaitflagsH,0,0 F1_000574 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000575 equ $ ; IN [PP2-1.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_000576 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000577 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 bra _LBL__67 _LBL__85 F1_000578 equ $ ; IN [PP2-1.BAS] CASE NOOT9 movlw 30 subwf noteAan,W,0 bnz _LBL__87 F1_000579 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_000580 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.9 bcf HoldflagsH,1,0 F1_000581 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.9 bcf WaitflagsH,1,0 F1_000582 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000583 equ $ ; IN [PP2-1.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_000584 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000585 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000586 equ $ ; IN [PP2-1.BAS] CASE ELSE bra _LBL__89 _LBL__87 F1_000587 equ $ ; IN [PP2-1.BAS] SET NOTEAAN setf noteAan,0 F1_000588 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000589 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__89 _LBL__67 F1_000590 equ $ ; IN [PP2-1.BAS] SET NOTEAAN setf noteAan,0 F1_000591 equ $ ; IN [PP2-1.BAS] GOTO RESORT goto resort goto _LBL__90 _LBL__66 F1_000592 equ $ ; IN [PP2-1.BAS] ELSE F1_000593 equ $ ; IN [PP2-1.BAS] SELECT NOTEAAN F1_000594 equ $ ; IN [PP2-1.BAS] CASE NOOT0 movlw 21 subwf noteAan,W,0 bnz _LBL__92 F1_000595 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000596 equ $ ; IN [PP2-1.BAS] VELO0 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo0 movff INDF0,velo0H F1_000597 equ $ ; IN [PP2-1.BAS] TIMVALS[0] = TIME + VELO0 movf velo0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo0H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000598 equ $ ; IN [PP2-1.BAS] SET PORTA.1 bsf LATA,1,0 F1_000599 equ $ ; IN [PP2-1.BAS] IF PRES0 > 0 THEN movf Pres0,F,1 bz _LBL__95 F1_000600 equ $ ; IN [PP2-1.BAS] SET NOTES.0 bsf notes,0,0 F1_000602 equ $ ; IN [PP2-1.BAS] RATE0 = DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H bra _LBL__96 _LBL__95 F1_000603 equ $ ; IN [PP2-1.BAS] ELSE F1_000604 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000605 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__96 bra _LBL__91 _LBL__92 F1_000606 equ $ ; IN [PP2-1.BAS] CASE NOOT1 movlw 22 subwf noteAan,W,0 bnz _LBL__98 F1_000607 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000608 equ $ ; IN [PP2-1.BAS] VELO1 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo1 movff INDF0,velo1H F1_000609 equ $ ; IN [PP2-1.BAS] TIMVALS[1] = TIME + VELO1 movf velo1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000610 equ $ ; IN [PP2-1.BAS] SET PORTA.3 bsf LATA,3,0 F1_000611 equ $ ; IN [PP2-1.BAS] IF PRES1 > 0 THEN movf Pres1,F,1 bz _LBL__100 F1_000612 equ $ ; IN [PP2-1.BAS] SET NOTES.1 bsf notes,1,0 F1_000614 equ $ ; IN [PP2-1.BAS] RATE1 = DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H bra _LBL__101 _LBL__100 F1_000615 equ $ ; IN [PP2-1.BAS] ELSE F1_000616 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000617 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__101 bra _LBL__91 _LBL__98 F1_000618 equ $ ; IN [PP2-1.BAS] CASE NOOT2 movlw 23 subwf noteAan,W,0 bnz _LBL__103 F1_000619 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000620 equ $ ; IN [PP2-1.BAS] VELO2 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo2 movff INDF0,velo2H F1_000621 equ $ ; IN [PP2-1.BAS] TIMVALS[2] = TIME + VELO2 movf velo2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo2H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000622 equ $ ; IN [PP2-1.BAS] SET PORTA.5 bsf LATA,5,0 F1_000623 equ $ ; IN [PP2-1.BAS] IF PRES2 > 0 THEN movf Pres2,F,1 bz _LBL__105 F1_000624 equ $ ; IN [PP2-1.BAS] SET NOTES.2 bsf notes,2,0 F1_000626 equ $ ; IN [PP2-1.BAS] RATE2 = DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H bra _LBL__106 _LBL__105 F1_000627 equ $ ; IN [PP2-1.BAS] ELSE F1_000628 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000629 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__106 bra _LBL__91 _LBL__103 F1_000630 equ $ ; IN [PP2-1.BAS] CASE NOOT3 movlw 24 subwf noteAan,W,0 bnz _LBL__108 F1_000631 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000632 equ $ ; IN [PP2-1.BAS] VELO3 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo3 movff INDF0,velo3H F1_000633 equ $ ; IN [PP2-1.BAS] TIMVALS[3] = TIME + VELO3 movf velo3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo3H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000634 equ $ ; IN [PP2-1.BAS] SET PORTB.6 bsf LATB,6,0 F1_000635 equ $ ; IN [PP2-1.BAS] IF PRES3 > 0 THEN movf Pres3,F,1 bz _LBL__110 F1_000636 equ $ ; IN [PP2-1.BAS] SET NOTES.3 bsf notes,3,0 F1_000638 equ $ ; IN [PP2-1.BAS] RATE3 = DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H bra _LBL__111 _LBL__110 F1_000639 equ $ ; IN [PP2-1.BAS] ELSE F1_000640 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000641 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__111 bra _LBL__91 _LBL__108 F1_000642 equ $ ; IN [PP2-1.BAS] CASE NOOT4 movlw 25 subwf noteAan,W,0 bnz _LBL__113 F1_000643 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000644 equ $ ; IN [PP2-1.BAS] VELO4 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo4 movff INDF0,velo4H F1_000645 equ $ ; IN [PP2-1.BAS] TIMVALS[4] = TIME + VELO4 movf velo4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo4H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000646 equ $ ; IN [PP2-1.BAS] SET PORTB.4 bsf LATB,4,0 F1_000647 equ $ ; IN [PP2-1.BAS] IF PRES4 > 0 THEN movf Pres4,F,1 bz _LBL__115 F1_000648 equ $ ; IN [PP2-1.BAS] SET NOTES.4 bsf notes,4,0 F1_000649 equ $ ; IN [PP2-1.BAS] RATE4 = DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H bra _LBL__116 _LBL__115 F1_000650 equ $ ; IN [PP2-1.BAS] ELSE F1_000651 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000652 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__116 bra _LBL__91 _LBL__113 F1_000653 equ $ ; IN [PP2-1.BAS] CASE NOOT5 movlw 26 subwf noteAan,W,0 bnz _LBL__118 F1_000654 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000655 equ $ ; IN [PP2-1.BAS] VELO5 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo5 movff INDF0,velo5H F1_000656 equ $ ; IN [PP2-1.BAS] TIMVALS[5] = TIME + VELO5 movf velo5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo5H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000657 equ $ ; IN [PP2-1.BAS] SET PORTB.2 bsf LATB,2,0 F1_000658 equ $ ; IN [PP2-1.BAS] IF PRES5 > 0 THEN movf Pres5,F,1 bz _LBL__120 F1_000659 equ $ ; IN [PP2-1.BAS] SET NOTES.5 bsf notes,5,0 F1_000660 equ $ ; IN [PP2-1.BAS] RATE5 = DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H bra _LBL__121 _LBL__120 F1_000661 equ $ ; IN [PP2-1.BAS] ELSE F1_000662 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000663 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__121 bra _LBL__91 _LBL__118 F1_000664 equ $ ; IN [PP2-1.BAS] CASE NOOT6 movlw 27 subwf noteAan,W,0 bnz _LBL__123 F1_000665 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000666 equ $ ; IN [PP2-1.BAS] VELO6 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo6 movff INDF0,velo6H F1_000667 equ $ ; IN [PP2-1.BAS] TIMVALS[6] = TIME + VELO6 movf velo6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo6H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000668 equ $ ; IN [PP2-1.BAS] SET PORTB.0 bsf LATB,0,0 F1_000669 equ $ ; IN [PP2-1.BAS] IF PRES6 > 0 THEN movf Pres6,F,1 bz _LBL__125 F1_000670 equ $ ; IN [PP2-1.BAS] SET NOTES.6 bsf notes,6,0 F1_000671 equ $ ; IN [PP2-1.BAS] RATE6 = DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H bra _LBL__126 _LBL__125 F1_000672 equ $ ; IN [PP2-1.BAS] ELSE F1_000673 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000674 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__126 bra _LBL__91 _LBL__123 F1_000675 equ $ ; IN [PP2-1.BAS] CASE NOOT7 movlw 28 subwf noteAan,W,0 bnz _LBL__128 F1_000676 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_000677 equ $ ; IN [PP2-1.BAS] VELO7 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo7 movff INDF0,velo7H F1_000678 equ $ ; IN [PP2-1.BAS] TIMVALS[7] = TIME + VELO7 movf velo7,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo7H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#7HHH movff PBP#VAR0HH,TimVals#7HH movff PBP#VAR0H,TimVals#7H movff PBP#VAR0,TimVals#7 F1_000679 equ $ ; IN [PP2-1.BAS] SET PORTC.4 bsf LATC,4,0 F1_000680 equ $ ; IN [PP2-1.BAS] IF PRES7 > 0 THEN movf Pres7,F,1 bz _LBL__130 F1_000681 equ $ ; IN [PP2-1.BAS] SET NOTES.7 bsf notes,7,0 F1_000682 equ $ ; IN [PP2-1.BAS] RATE7 = DUR[PRES7] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate7 movff INDF0,Rate7H bra _LBL__131 _LBL__130 F1_000683 equ $ ; IN [PP2-1.BAS] ELSE F1_000684 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000685 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__131 bra _LBL__91 _LBL__128 F1_000686 equ $ ; IN [PP2-1.BAS] CASE NOOT8 movlw 29 subwf noteAan,W,0 bnz _LBL__133 F1_000687 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.8 bsf VelflagsH,0,0 F1_000688 equ $ ; IN [PP2-1.BAS] VELO8 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo8 movff INDF0,velo8H F1_000689 equ $ ; IN [PP2-1.BAS] TIMVALS[8] = TIME + VELO8 movf velo8,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo8H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_000690 equ $ ; IN [PP2-1.BAS] SET PORTC.1 bsf LATC,1,0 F1_000691 equ $ ; IN [PP2-1.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__135 F1_000692 equ $ ; IN [PP2-1.BAS] SET NOTES.8 bsf notesH,0,0 F1_000693 equ $ ; IN [PP2-1.BAS] RATE8 = DUR[PRES8] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres8,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate8 movff INDF0,Rate8H bra _LBL__136 _LBL__135 F1_000694 equ $ ; IN [PP2-1.BAS] ELSE F1_000695 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000696 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__136 bra _LBL__91 _LBL__133 F1_000697 equ $ ; IN [PP2-1.BAS] CASE NOOT9 movlw 30 subwf noteAan,W,0 bnz _LBL__138 F1_000698 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.9 bsf VelflagsH,1,0 F1_000699 equ $ ; IN [PP2-1.BAS] VELO9 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo9 movff INDF0,velo9H F1_000700 equ $ ; IN [PP2-1.BAS] TIMVALS[9] = TIME + VELO9 movf velo9,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo9H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_000701 equ $ ; IN [PP2-1.BAS] SET PORTC.3 bsf LATC,3,0 F1_000702 equ $ ; IN [PP2-1.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__140 F1_000703 equ $ ; IN [PP2-1.BAS] SET NOTES.9 bsf notesH,1,0 F1_000704 equ $ ; IN [PP2-1.BAS] RATE9 = DUR[PRES9] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres9,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate9 movff INDF0,Rate9H bra _LBL__141 _LBL__140 F1_000705 equ $ ; IN [PP2-1.BAS] ELSE F1_000706 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000707 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__141 F1_000708 equ $ ; IN [PP2-1.BAS] CASE ELSE bra _LBL__143 _LBL__138 F1_000709 equ $ ; IN [PP2-1.BAS] SET NOTEAAN setf noteAan,0 F1_000710 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000711 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__143 _LBL__91 F1_000712 equ $ ; IN [PP2-1.BAS] SET NOTEAAN setf noteAan,0 F1_000713 equ $ ; IN [PP2-1.BAS] GOTO RESORT bra resort F1_000714 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__90 F1_000715 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__64 F1_000716 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__61 F1_000717 equ $ ; IN [PP2-1.BAS] CASE KEYPRES_STATUS movlw 160 subwf statusbyte,W,0 bnz _LBL__145 F1_000718 equ $ ; IN [PP2-1.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__147 F1_000719 equ $ ; IN [PP2-1.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__148 _LBL__147 F1_000720 equ $ ; IN [PP2-1.BAS] ELSE F1_000721 equ $ ; IN [PP2-1.BAS] PRES = BYTEIN movff Bytein,pres F1_000722 equ $ ; IN [PP2-1.BAS] GOSUB KEYPRES call KeyPres F1_000723 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__148 F1_000724 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__145 F1_000725 equ $ ; IN [PP2-1.BAS] CASE CONTROL_STATUS movlw 176 subwf statusbyte,W,0 bnz _LBL__150 F1_000726 equ $ ; IN [PP2-1.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__152 F1_000727 equ $ ; IN [PP2-1.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__153 _LBL__152 F1_000728 equ $ ; IN [PP2-1.BAS] ELSE F1_000729 equ $ ; IN [PP2-1.BAS] VALUE = BYTEIN movff Bytein,value F1_000730 equ $ ; IN [PP2-1.BAS] GOSUB CONTROLLER call Controller F1_000731 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__153 F1_000732 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__150 F1_000733 equ $ ; IN [PP2-1.BAS] CASE PROGCHANGE_STATUS movlw 192 subwf statusbyte,W,0 bnz _LBL__155 F1_000734 equ $ ; IN [PP2-1.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _LBL__157 F1_000735 equ $ ; IN [PP2-1.BAS] PROG = BYTEIN movff Bytein,prog F1_000736 equ $ ; IN [PP2-1.BAS] GOSUB PROGCHANGE call ProgChange F1_000737 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__157 F1_000738 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000739 equ $ ; IN [PP2-1.BAS] CASE ELSE bra _LBL__159 _LBL__155 F1_000740 equ $ ; IN [PP2-1.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000741 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__159 _LBL__31 F1_000742 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__30 resort F1_000745 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS call SortTimers Check_Timers F1_000748 equ $ ; IN [PP2-1.BAS] IF IDX < 10 THEN movlw 10 subwf idx,W,0 btfsc STATUS,0,0 goto _LBL__161 F1_000749 equ $ ; IN [PP2-1.BAS] IF TIME >= NXT THEN movf Nxt,W,0 subwf time,W,0 movf NxtH,W,0 subwfb timeH,W,0 movf NxtHH,W,0 subwfb timeHH,W,0 movf NxtHHH,W,0 subwfb timeHHH,W,0 btfss STATUS,0,0 goto _LBL__163 F1_000751 equ $ ; IN [PP2-1.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000753 equ $ ; IN [PP2-1.BAS] SELECT IDX F1_000754 equ $ ; IN [PP2-1.BAS] CASE 0 movf idx,F,0 btfss STATUS,2,0 bra _LBL__165 F1_000755 equ $ ; IN [PP2-1.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _LBL__168 F1_000757 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000758 equ $ ; IN [PP2-1.BAS] SET PORTA.2 bsf LATA,2,0 F1_000759 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000760 equ $ ; IN [PP2-1.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 bra _LBL__169 _LBL__168 F1_000761 equ $ ; IN [PP2-1.BAS] ELSE F1_000763 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.0 = 1 THEN btfss Waitflags,0,0 bra _LBL__171 F1_000765 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000766 equ $ ; IN [PP2-1.BAS] TIMVALS[0] = TIME + VELO0 movf velo0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo0H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000767 equ $ ; IN [PP2-1.BAS] SET PORTA.1 bsf LATA,1,0 F1_000768 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.0 bcf Waitflags,0,0 bra _LBL__170 F1_000769 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.0 = 1 THEN _LBL__171 btfss Holdflags,0,0 bra _LBL__172 F1_000771 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000772 equ $ ; IN [PP2-1.BAS] TIMVALS[0] = TIME + DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000773 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.0 bcf Holdflags,0,0 F1_000774 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.0 bsf Waitflags,0,0 bra _LBL__170 F1_000775 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.0 = 1 THEN _LBL__172 btfss Velflags,0,0 bra _LBL__173 F1_000777 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000778 equ $ ; IN [PP2-1.BAS] TIMVALS[0] = TIME + RATE0 movf Rate0,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate0H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_000779 equ $ ; IN [PP2-1.BAS] SET PORTA.2 bsf LATA,2,0 F1_000780 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.0 bsf Holdflags,0,0 F1_000781 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000782 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__173 _LBL__170 F1_000783 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__169 goto _LBL__164 _LBL__165 F1_000784 equ $ ; IN [PP2-1.BAS] CASE 1 movlw 1 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__175 F1_000785 equ $ ; IN [PP2-1.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _LBL__177 F1_000787 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000788 equ $ ; IN [PP2-1.BAS] SET PORTA.0 bsf LATA,0,0 F1_000789 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000790 equ $ ; IN [PP2-1.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 bra _LBL__178 _LBL__177 F1_000791 equ $ ; IN [PP2-1.BAS] ELSE F1_000793 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.1 = 1 THEN btfss Waitflags,1,0 bra _LBL__180 F1_000795 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000796 equ $ ; IN [PP2-1.BAS] TIMVALS[1] = TIME + VELO1 movf velo1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000797 equ $ ; IN [PP2-1.BAS] SET PORTA.3 bsf LATA,3,0 F1_000798 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.1 bcf Waitflags,1,0 bra _LBL__179 F1_000799 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.1 = 1 THEN _LBL__180 btfss Holdflags,1,0 bra _LBL__181 F1_000801 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000802 equ $ ; IN [PP2-1.BAS] TIMVALS[1] = TIME + DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000803 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.1 bcf Holdflags,1,0 F1_000804 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.1 bsf Waitflags,1,0 bra _LBL__179 F1_000805 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.1 = 1 THEN _LBL__181 btfss Velflags,1,0 bra _LBL__182 F1_000807 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000808 equ $ ; IN [PP2-1.BAS] TIMVALS[1] = TIME + RATE1 movf Rate1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_000809 equ $ ; IN [PP2-1.BAS] SET PORTA.0 bsf LATA,0,0 F1_000810 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.1 bsf Holdflags,1,0 F1_000811 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000812 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__182 _LBL__179 F1_000813 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__178 goto _LBL__164 _LBL__175 F1_000814 equ $ ; IN [PP2-1.BAS] CASE 2 movlw 2 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__184 F1_000815 equ $ ; IN [PP2-1.BAS] IF NOTES.2 = 0 THEN btfsc notes,2,0 bra _LBL__186 F1_000817 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000818 equ $ ; IN [PP2-1.BAS] SET PORTA.4 bsf LATA,4,0 F1_000819 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000820 equ $ ; IN [PP2-1.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__187 _LBL__186 F1_000821 equ $ ; IN [PP2-1.BAS] ELSE F1_000823 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.2 = 1 THEN btfss Waitflags,2,0 bra _LBL__189 F1_000825 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000826 equ $ ; IN [PP2-1.BAS] TIMVALS[2] = TIME + VELO2 movf velo2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo2H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000827 equ $ ; IN [PP2-1.BAS] SET PORTA.5 bsf LATA,5,0 F1_000828 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.2 bcf Waitflags,2,0 bra _LBL__188 F1_000829 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.2 = 1 THEN _LBL__189 btfss Holdflags,2,0 bra _LBL__190 F1_000831 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000832 equ $ ; IN [PP2-1.BAS] TIMVALS[2] = TIME + DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000833 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.2 bcf Holdflags,2,0 F1_000834 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.2 bsf Waitflags,2,0 bra _LBL__188 F1_000835 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.2 = 1 THEN _LBL__190 btfss Velflags,2,0 bra _LBL__191 F1_000837 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000838 equ $ ; IN [PP2-1.BAS] TIMVALS[2] = TIME + RATE2 movf Rate2,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate2H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_000839 equ $ ; IN [PP2-1.BAS] SET PORTA.4 bsf LATA,4,0 F1_000840 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.2 bsf Holdflags,2,0 F1_000841 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000842 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__191 _LBL__188 F1_000843 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__187 goto _LBL__164 _LBL__184 F1_000844 equ $ ; IN [PP2-1.BAS] CASE 3 movlw 3 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__193 F1_000845 equ $ ; IN [PP2-1.BAS] IF NOTES.3 = 0 THEN btfsc notes,3,0 bra _LBL__195 F1_000847 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000848 equ $ ; IN [PP2-1.BAS] SET PORTB.7 bsf LATB,7,0 F1_000849 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000850 equ $ ; IN [PP2-1.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__196 _LBL__195 F1_000851 equ $ ; IN [PP2-1.BAS] ELSE F1_000853 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.3 = 1 THEN btfss Waitflags,3,0 bra _LBL__198 F1_000855 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000856 equ $ ; IN [PP2-1.BAS] TIMVALS[3] = TIME + VELO3 movf velo3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo3H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000857 equ $ ; IN [PP2-1.BAS] SET PORTB.6 bsf LATB,6,0 F1_000858 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.3 bcf Waitflags,3,0 bra _LBL__197 F1_000859 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.3 = 1 THEN _LBL__198 btfss Holdflags,3,0 bra _LBL__199 F1_000861 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_000862 equ $ ; IN [PP2-1.BAS] TIMVALS[3] = TIME + DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000863 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.3 bcf Holdflags,3,0 F1_000864 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.3 bsf Waitflags,3,0 bra _LBL__197 F1_000865 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.3 = 1 THEN _LBL__199 btfss Velflags,3,0 bra _LBL__200 F1_000867 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000868 equ $ ; IN [PP2-1.BAS] TIMVALS[3] = TIME + RATE3 movf Rate3,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate3H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_000869 equ $ ; IN [PP2-1.BAS] SET PORTB.7 bsf LATB,7,0 F1_000870 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.3 bsf Holdflags,3,0 F1_000871 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000872 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__200 _LBL__197 F1_000873 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__196 goto _LBL__164 _LBL__193 F1_000874 equ $ ; IN [PP2-1.BAS] CASE 4 movlw 4 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__202 F1_000875 equ $ ; IN [PP2-1.BAS] IF NOTES.4 = 0 THEN btfsc notes,4,0 bra _LBL__204 F1_000877 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000878 equ $ ; IN [PP2-1.BAS] SET PORTB.5 bsf LATB,5,0 F1_000879 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000880 equ $ ; IN [PP2-1.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__205 _LBL__204 F1_000881 equ $ ; IN [PP2-1.BAS] ELSE F1_000883 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.4 = 1 THEN btfss Waitflags,4,0 bra _LBL__207 F1_000885 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000886 equ $ ; IN [PP2-1.BAS] TIMVALS[4] = TIME + VELO4 movf velo4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo4H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000887 equ $ ; IN [PP2-1.BAS] SET PORTB.4 bsf LATB,4,0 F1_000888 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.4 bcf Waitflags,4,0 bra _LBL__206 F1_000889 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.4 = 1 THEN _LBL__207 btfss Holdflags,4,0 bra _LBL__208 F1_000891 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_000892 equ $ ; IN [PP2-1.BAS] TIMVALS[4] = TIME + DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000893 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.4 bcf Holdflags,4,0 F1_000894 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.4 bsf Waitflags,4,0 bra _LBL__206 F1_000895 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.4 = 1 THEN _LBL__208 btfss Velflags,4,0 bra _LBL__209 F1_000897 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000898 equ $ ; IN [PP2-1.BAS] TIMVALS[4] = TIME + RATE4 movf Rate4,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate4H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000899 equ $ ; IN [PP2-1.BAS] SET PORTB.5 bsf LATB,5,0 F1_000900 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.4 bsf Holdflags,4,0 F1_000901 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000902 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__209 _LBL__206 F1_000903 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__205 bra _LBL__164 _LBL__202 F1_000904 equ $ ; IN [PP2-1.BAS] CASE 5 movlw 5 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__211 F1_000905 equ $ ; IN [PP2-1.BAS] IF NOTES.5 = 0 THEN btfsc notes,5,0 bra _LBL__213 F1_000907 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000908 equ $ ; IN [PP2-1.BAS] SET PORTB.3 bsf LATB,3,0 F1_000909 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000910 equ $ ; IN [PP2-1.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__214 _LBL__213 F1_000911 equ $ ; IN [PP2-1.BAS] ELSE F1_000913 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.5 = 1 THEN btfss Waitflags,5,0 bra _LBL__216 F1_000915 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000916 equ $ ; IN [PP2-1.BAS] TIMVALS[5] = TIME + VELO5 movf velo5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo5H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000917 equ $ ; IN [PP2-1.BAS] SET PORTB.2 bsf LATB,2,0 F1_000918 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.5 bcf Waitflags,5,0 bra _LBL__215 F1_000919 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.5 = 1 THEN _LBL__216 btfss Holdflags,5,0 bra _LBL__217 F1_000921 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000922 equ $ ; IN [PP2-1.BAS] TIMVALS[5] = TIME + DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000923 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.5 bcf Holdflags,5,0 F1_000924 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.5 bsf Waitflags,5,0 bra _LBL__215 F1_000925 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.5 = 1 THEN _LBL__217 btfss Velflags,5,0 bra _LBL__218 F1_000927 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000928 equ $ ; IN [PP2-1.BAS] TIMVALS[5] = TIME + RATE5 movf Rate5,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate5H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000929 equ $ ; IN [PP2-1.BAS] SET PORTB.3 bsf LATB,3,0 F1_000930 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.5 bsf Holdflags,5,0 F1_000931 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000932 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__218 _LBL__215 F1_000933 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__214 bra _LBL__164 _LBL__211 F1_000934 equ $ ; IN [PP2-1.BAS] CASE 6 movlw 6 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__220 F1_000935 equ $ ; IN [PP2-1.BAS] IF NOTES.6 = 0 THEN btfsc notes,6,0 bra _LBL__222 F1_000937 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000938 equ $ ; IN [PP2-1.BAS] SET PORTB.1 bsf LATB,1,0 F1_000939 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000940 equ $ ; IN [PP2-1.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__223 _LBL__222 F1_000941 equ $ ; IN [PP2-1.BAS] ELSE F1_000943 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.6 = 1 THEN btfss Waitflags,6,0 bra _LBL__225 F1_000945 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000946 equ $ ; IN [PP2-1.BAS] TIMVALS[6] = TIME + VELO6 movf velo6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo6H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000947 equ $ ; IN [PP2-1.BAS] SET PORTB.0 bsf LATB,0,0 F1_000948 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.6 bcf Waitflags,6,0 bra _LBL__224 F1_000949 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.6 = 1 THEN _LBL__225 btfss Holdflags,6,0 bra _LBL__226 F1_000951 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000952 equ $ ; IN [PP2-1.BAS] TIMVALS[6] = TIME + DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000953 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.6 bcf Holdflags,6,0 F1_000954 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.6 bsf Waitflags,6,0 bra _LBL__224 F1_000955 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.6 = 1 THEN _LBL__226 btfss Velflags,6,0 bra _LBL__227 F1_000957 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000958 equ $ ; IN [PP2-1.BAS] TIMVALS[6] = TIME + RATE6 movf Rate6,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate6H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000959 equ $ ; IN [PP2-1.BAS] SET PORTB.1 bsf LATB,1,0 F1_000960 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.6 bsf Holdflags,6,0 F1_000961 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000962 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__227 _LBL__224 F1_000963 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__223 bra _LBL__164 _LBL__220 F1_000964 equ $ ; IN [PP2-1.BAS] CASE 7 movlw 7 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__229 F1_000965 equ $ ; IN [PP2-1.BAS] IF NOTES.7 = 0 THEN btfsc notes,7,0 bra _LBL__231 F1_000967 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000968 equ $ ; IN [PP2-1.BAS] SET PORTC.5 bsf LATC,5,0 F1_000969 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000970 equ $ ; IN [PP2-1.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__232 _LBL__231 F1_000971 equ $ ; IN [PP2-1.BAS] ELSE F1_000973 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.7 = 1 THEN btfss Waitflags,7,0 bra _LBL__234 F1_000975 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_000976 equ $ ; IN [PP2-1.BAS] TIMVALS[7] = TIME + VELO7 movf velo7,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo7H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#7HHH movff PBP#VAR0HH,TimVals#7HH movff PBP#VAR0H,TimVals#7H movff PBP#VAR0,TimVals#7 F1_000977 equ $ ; IN [PP2-1.BAS] SET PORTC.4 bsf LATC,4,0 F1_000978 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.7 bcf Waitflags,7,0 bra _LBL__233 F1_000979 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.7 = 1 THEN _LBL__234 btfss Holdflags,7,0 bra _LBL__235 F1_000981 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000982 equ $ ; IN [PP2-1.BAS] TIMVALS[7] = TIME + DUR[PRES7] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#7HHH movff PBP#VAR0HH,TimVals#7HH movff PBP#VAR0H,TimVals#7H movff PBP#VAR0,TimVals#7 F1_000983 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.7 bcf Holdflags,7,0 F1_000984 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.7 bsf Waitflags,7,0 bra _LBL__233 F1_000985 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.7 = 1 THEN _LBL__235 btfss Velflags,7,0 bra _LBL__236 F1_000987 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000988 equ $ ; IN [PP2-1.BAS] TIMVALS[7] = TIME + RATE7 movf Rate7,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate7H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#7HHH movff PBP#VAR0HH,TimVals#7HH movff PBP#VAR0H,TimVals#7H movff PBP#VAR0,TimVals#7 F1_000989 equ $ ; IN [PP2-1.BAS] SET PORTC.5 bsf LATC,5,0 F1_000990 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.7 bsf Holdflags,7,0 F1_000991 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000992 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__236 _LBL__233 F1_000993 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__232 bra _LBL__164 _LBL__229 F1_000994 equ $ ; IN [PP2-1.BAS] CASE 8 movlw 8 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__238 F1_000995 equ $ ; IN [PP2-1.BAS] IF NOTES.8 = 0 THEN btfsc notesH,0,0 bra _LBL__240 F1_000997 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000998 equ $ ; IN [PP2-1.BAS] SET PORTC.0 bsf LATC,0,0 F1_000999 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_001000 equ $ ; IN [PP2-1.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 bra _LBL__241 _LBL__240 F1_001001 equ $ ; IN [PP2-1.BAS] ELSE F1_001003 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.8 = 1 THEN btfss WaitflagsH,0,0 bra _LBL__243 F1_001005 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.8 bsf VelflagsH,0,0 F1_001006 equ $ ; IN [PP2-1.BAS] TIMVALS[8] = TIME + VELO8 movf velo8,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo8H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_001007 equ $ ; IN [PP2-1.BAS] SET PORTC.1 bsf LATC,1,0 F1_001008 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.8 bcf WaitflagsH,0,0 bra _LBL__242 F1_001009 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.8 = 1 THEN _LBL__243 btfss HoldflagsH,0,0 bra _LBL__244 F1_001011 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001012 equ $ ; IN [PP2-1.BAS] TIMVALS[8] = TIME + DUR[PRES8] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres8,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_001013 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.8 bcf HoldflagsH,0,0 F1_001014 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.8 bsf WaitflagsH,0,0 bra _LBL__242 F1_001015 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.8 = 1 THEN _LBL__244 btfss VelflagsH,0,0 bra _LBL__245 F1_001017 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001018 equ $ ; IN [PP2-1.BAS] TIMVALS[8] = TIME + RATE8 movf Rate8,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate8H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_001019 equ $ ; IN [PP2-1.BAS] SET PORTC.0 bsf LATC,0,0 F1_001020 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.8 bsf HoldflagsH,0,0 F1_001021 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_001022 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__245 _LBL__242 F1_001023 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__241 bra _LBL__164 _LBL__238 F1_001024 equ $ ; IN [PP2-1.BAS] CASE 9 movlw 9 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__247 F1_001025 equ $ ; IN [PP2-1.BAS] IF NOTES.9 = 0 THEN btfsc notesH,1,0 bra _LBL__249 F1_001027 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001028 equ $ ; IN [PP2-1.BAS] SET PORTC.2 bsf LATC,2,0 F1_001029 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_001030 equ $ ; IN [PP2-1.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 bra _LBL__250 _LBL__249 F1_001031 equ $ ; IN [PP2-1.BAS] ELSE F1_001033 equ $ ; IN [PP2-1.BAS] IF WAITFLAGS.9 = 1 THEN btfss WaitflagsH,1,0 bra _LBL__252 F1_001035 equ $ ; IN [PP2-1.BAS] SET VELFLAGS.9 bsf VelflagsH,1,0 F1_001036 equ $ ; IN [PP2-1.BAS] TIMVALS[9] = TIME + VELO9 movf velo9,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo9H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_001037 equ $ ; IN [PP2-1.BAS] SET PORTC.3 bsf LATC,3,0 F1_001038 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.9 bcf WaitflagsH,1,0 bra _LBL__251 F1_001039 equ $ ; IN [PP2-1.BAS] ELSEIF HOLDFLAGS.9 = 1 THEN _LBL__252 btfss HoldflagsH,1,0 bra _LBL__253 F1_001041 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001042 equ $ ; IN [PP2-1.BAS] TIMVALS[9] = TIME + DUR[PRES9] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres9,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf PBP#VAR1,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf PBP#VAR1H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_001043 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.9 bcf HoldflagsH,1,0 F1_001044 equ $ ; IN [PP2-1.BAS] SET WAITFLAGS.9 bsf WaitflagsH,1,0 bra _LBL__251 F1_001045 equ $ ; IN [PP2-1.BAS] ELSEIF VELFLAGS.9 = 1 THEN _LBL__253 btfss VelflagsH,1,0 bra _LBL__254 F1_001047 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001048 equ $ ; IN [PP2-1.BAS] TIMVALS[9] = TIME + RATE9 movf Rate9,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate9H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_001049 equ $ ; IN [PP2-1.BAS] SET PORTC.2 bsf LATC,2,0 F1_001050 equ $ ; IN [PP2-1.BAS] SET HOLDFLAGS.9 bsf HoldflagsH,1,0 F1_001051 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_001052 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__254 _LBL__251 F1_001053 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__250 F1_001057 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__247 _LBL__164 F1_001058 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001060 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__163 F1_001062 equ $ ; IN [PP2-1.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__256 F1_001063 equ $ ; IN [PP2-1.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001064 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001065 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS clrf HoldflagsH,0 clrf Holdflags,0 F1_001066 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS clrf WaitflagsH,0 clrf Waitflags,0 F1_001067 equ $ ; IN [PP2-1.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001068 equ $ ; IN [PP2-1.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001069 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__256 bra _LBL__257 _LBL__161 F1_001070 equ $ ; IN [PP2-1.BAS] ELSE F1_001072 equ $ ; IN [PP2-1.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__259 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__259 F1_001073 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__257 F1_001076 equ $ ; IN [PP2-1.BAS] GOTO LOOP goto LOOP SortTimers F1_001082 equ $ ; IN [PP2-1.BAS] SET IDX setf idx,0 F1_001083 equ $ ; IN [PP2-1.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_001084 equ $ ; IN [PP2-1.BAS] FOR I = 0 TO 9 clrf _I,0 _FRLB__260 movlw 10 subwf _I,W,0 bc _NXLB__261 F1_001085 equ $ ; IN [PP2-1.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 150 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,PBP#VAR0 movff PREINC0,PBP#VAR0H movff PREINC0,PBP#VAR0HH movff PREINC0,PBP#VAR0HHH movf Nxt,W,0 subwf PBP#VAR0,W,0 movf NxtH,W,0 subwfb PBP#VAR0H,W,0 movf NxtHH,W,0 subwfb PBP#VAR0HH,W,0 movf NxtHHH,W,0 subwfb PBP#VAR0HHH,W,0 bc _LBL__264 F1_001086 equ $ ; IN [PP2-1.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 150 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_001087 equ $ ; IN [PP2-1.BAS] IDX = I movff _I,idx F1_001088 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__264 _CTLB__262 F1_001089 equ $ ; IN [PP2-1.BAS] NEXT I incf _I,F,0 bnc _FRLB__260 _NXLB__261 F1_001090 equ $ ; IN [PP2-1.BAS] RETURN return 0 KeyPres F1_001095 equ $ ; IN [PP2-1.BAS] SELECT NOTEPRES F1_001096 equ $ ; IN [PP2-1.BAS] CASE NOOT0 movlw 21 subwf notePres,W,0 bnz _LBL__266 F1_001097 equ $ ; IN [PP2-1.BAS] PRES0 = PRES movff pres,Pres0 F1_001098 equ $ ; IN [PP2-1.BAS] IF PRES0 > 0 THEN movf Pres0,F,1 bz _LBL__269 F1_001099 equ $ ; IN [PP2-1.BAS] RATE0 = DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H bra _LBL__270 _LBL__269 F1_001102 equ $ ; IN [PP2-1.BAS] ELSE F1_001103 equ $ ; IN [PP2-1.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001104 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_001106 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_001107 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.0 bcf Holdflags,0,0 F1_001108 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.0 bcf Waitflags,0,0 F1_001109 equ $ ; IN [PP2-1.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 F1_001110 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001111 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001112 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001113 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__270 bra _LBL__265 _LBL__266 F1_001114 equ $ ; IN [PP2-1.BAS] CASE NOOT1 movlw 22 subwf notePres,W,0 bnz _LBL__272 F1_001115 equ $ ; IN [PP2-1.BAS] PRES1 = PRES movff pres,Pres1 F1_001116 equ $ ; IN [PP2-1.BAS] IF PRES1 > 0 THEN movf Pres1,F,1 bz _LBL__274 F1_001117 equ $ ; IN [PP2-1.BAS] RATE1 = DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H bra _LBL__275 _LBL__274 F1_001118 equ $ ; IN [PP2-1.BAS] ELSE F1_001119 equ $ ; IN [PP2-1.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001120 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_001122 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_001123 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.1 bcf Holdflags,1,0 F1_001124 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.1 bcf Waitflags,1,0 F1_001125 equ $ ; IN [PP2-1.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 F1_001126 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001127 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001128 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001129 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__275 bra _LBL__265 _LBL__272 F1_001130 equ $ ; IN [PP2-1.BAS] CASE NOOT2 movlw 23 subwf notePres,W,0 bnz _LBL__277 F1_001131 equ $ ; IN [PP2-1.BAS] PRES2 = PRES movff pres,Pres2 F1_001132 equ $ ; IN [PP2-1.BAS] IF PRES2 > 0 THEN movf Pres2,F,1 bz _LBL__279 F1_001133 equ $ ; IN [PP2-1.BAS] RATE2 = DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H bra _LBL__280 _LBL__279 F1_001134 equ $ ; IN [PP2-1.BAS] ELSE F1_001135 equ $ ; IN [PP2-1.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001136 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_001137 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_001138 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.2 bcf Holdflags,2,0 F1_001139 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.2 bcf Waitflags,2,0 F1_001140 equ $ ; IN [PP2-1.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 F1_001141 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001142 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001143 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001145 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__280 bra _LBL__265 _LBL__277 F1_001146 equ $ ; IN [PP2-1.BAS] CASE NOOT3 movlw 24 subwf notePres,W,0 bnz _LBL__282 F1_001147 equ $ ; IN [PP2-1.BAS] PRES3 = PRES movff pres,Pres3 F1_001148 equ $ ; IN [PP2-1.BAS] IF PRES3 > 0 THEN movf Pres3,F,1 bz _LBL__284 F1_001149 equ $ ; IN [PP2-1.BAS] RATE3 = DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H bra _LBL__285 _LBL__284 F1_001150 equ $ ; IN [PP2-1.BAS] ELSE F1_001151 equ $ ; IN [PP2-1.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001152 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_001153 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_001154 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.3 bcf Holdflags,3,0 F1_001155 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.3 bcf Waitflags,3,0 F1_001156 equ $ ; IN [PP2-1.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 F1_001157 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001158 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001159 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001160 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__285 bra _LBL__265 _LBL__282 F1_001161 equ $ ; IN [PP2-1.BAS] CASE NOOT4 movlw 25 subwf notePres,W,0 bnz _LBL__287 F1_001162 equ $ ; IN [PP2-1.BAS] PRES4 = PRES movff pres,Pres4 F1_001163 equ $ ; IN [PP2-1.BAS] IF PRES4 > 0 THEN movf Pres4,F,1 bz _LBL__289 F1_001164 equ $ ; IN [PP2-1.BAS] RATE4 = DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H bra _LBL__290 _LBL__289 F1_001165 equ $ ; IN [PP2-1.BAS] ELSE F1_001166 equ $ ; IN [PP2-1.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001167 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_001168 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_001169 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.4 bcf Holdflags,4,0 F1_001170 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.4 bcf Waitflags,4,0 F1_001171 equ $ ; IN [PP2-1.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_001172 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001173 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001174 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001175 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__290 bra _LBL__265 _LBL__287 F1_001176 equ $ ; IN [PP2-1.BAS] CASE NOOT5 movlw 26 subwf notePres,W,0 bnz _LBL__292 F1_001177 equ $ ; IN [PP2-1.BAS] PRES5 = PRES movff pres,Pres5 F1_001178 equ $ ; IN [PP2-1.BAS] IF PRES5 > 0 THEN movf Pres5,F,1 bz _LBL__294 F1_001179 equ $ ; IN [PP2-1.BAS] RATE5 = DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H bra _LBL__295 _LBL__294 F1_001180 equ $ ; IN [PP2-1.BAS] ELSE F1_001181 equ $ ; IN [PP2-1.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001182 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_001183 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_001184 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.5 bcf Holdflags,5,0 F1_001185 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.5 bcf Waitflags,5,0 F1_001186 equ $ ; IN [PP2-1.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_001187 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001188 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001189 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001190 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__295 bra _LBL__265 _LBL__292 F1_001191 equ $ ; IN [PP2-1.BAS] CASE NOOT6 movlw 27 subwf notePres,W,0 bnz _LBL__297 F1_001192 equ $ ; IN [PP2-1.BAS] PRES6 = PRES movff pres,Pres6 F1_001193 equ $ ; IN [PP2-1.BAS] IF PRES6 > 0 THEN movf Pres6,F,1 bz _LBL__299 F1_001194 equ $ ; IN [PP2-1.BAS] RATE6 = DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H bra _LBL__300 _LBL__299 F1_001195 equ $ ; IN [PP2-1.BAS] ELSE F1_001196 equ $ ; IN [PP2-1.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001197 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_001198 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_001199 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.6 bcf Holdflags,6,0 F1_001200 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.6 bcf Waitflags,6,0 F1_001201 equ $ ; IN [PP2-1.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_001202 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001203 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001204 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001205 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__300 bra _LBL__265 _LBL__297 F1_001206 equ $ ; IN [PP2-1.BAS] CASE NOOT7 movlw 28 subwf notePres,W,0 bnz _LBL__302 F1_001207 equ $ ; IN [PP2-1.BAS] PRES7 = PRES movff pres,Pres7 F1_001208 equ $ ; IN [PP2-1.BAS] IF PRES7 > 0 THEN movf Pres7,F,1 bz _LBL__304 F1_001209 equ $ ; IN [PP2-1.BAS] RATE7 = DUR[PRES7] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate7 movff INDF0,Rate7H bra _LBL__305 _LBL__304 F1_001210 equ $ ; IN [PP2-1.BAS] ELSE F1_001211 equ $ ; IN [PP2-1.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001212 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_001213 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_001214 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.7 bcf Holdflags,7,0 F1_001215 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.7 bcf Waitflags,7,0 F1_001216 equ $ ; IN [PP2-1.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_001217 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001218 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001219 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001220 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__305 bra _LBL__265 _LBL__302 F1_001221 equ $ ; IN [PP2-1.BAS] CASE NOOT8 movlw 29 subwf notePres,W,0 bnz _LBL__307 F1_001222 equ $ ; IN [PP2-1.BAS] PRES8 = PRES movff pres,Pres8 F1_001223 equ $ ; IN [PP2-1.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__309 F1_001224 equ $ ; IN [PP2-1.BAS] RATE8 = DUR[PRES8] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres8,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate8 movff INDF0,Rate8H bra _LBL__310 _LBL__309 F1_001225 equ $ ; IN [PP2-1.BAS] ELSE F1_001226 equ $ ; IN [PP2-1.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001227 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_001228 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_001229 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.8 bcf HoldflagsH,0,0 F1_001230 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.8 bcf WaitflagsH,0,0 F1_001231 equ $ ; IN [PP2-1.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 F1_001232 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001233 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001234 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001235 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__310 bra _LBL__265 _LBL__307 F1_001236 equ $ ; IN [PP2-1.BAS] CASE NOOT9 movlw 30 subwf notePres,W,0 bnz _LBL__312 F1_001237 equ $ ; IN [PP2-1.BAS] PRES9 = PRES movff pres,Pres9 F1_001238 equ $ ; IN [PP2-1.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__314 F1_001239 equ $ ; IN [PP2-1.BAS] RATE9 = DUR[PRES9] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres9,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate9 movff INDF0,Rate9H bra _LBL__315 _LBL__314 F1_001240 equ $ ; IN [PP2-1.BAS] ELSE F1_001241 equ $ ; IN [PP2-1.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001242 equ $ ; IN [PP2-1.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_001243 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_001244 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS.9 bcf HoldflagsH,1,0 F1_001245 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS.9 bcf WaitflagsH,1,0 F1_001246 equ $ ; IN [PP2-1.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 F1_001247 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001248 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001249 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001250 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__315 F1_001251 equ $ ; IN [PP2-1.BAS] ENDSELECT _LBL__312 _LBL__265 F1_001255 equ $ ; IN [PP2-1.BAS] SET NOTEPRES setf notePres,0 F1_001256 equ $ ; IN [PP2-1.BAS] RETURN return 0 ProgChange F1_001261 equ $ ; IN [PP2-1.BAS] SELECT PROG F1_001262 equ $ ; IN [PP2-1.BAS] CASE 0 movf prog,F,0 bnz _LBL__317 F1_001263 equ $ ; IN [PP2-1.BAS] GOSUB VELS_LOOKUP_0 call Vels_Lookup_0 bra _LBL__316 _LBL__317 F1_001264 equ $ ; IN [PP2-1.BAS] CASE 122 movlw 122 subwf prog,W,0 bnz _LBL__320 F1_001265 equ $ ; IN [PP2-1.BAS] GOSUB VELS_LOOKUP_122 call Vels_Lookup_122 bra _LBL__316 _LBL__320 F1_001266 equ $ ; IN [PP2-1.BAS] CASE 123 movlw 123 subwf prog,W,0 btfsc STATUS,2,0 F1_001267 equ $ ; IN [PP2-1.BAS] GOSUB VELS_LOOKUP_123 call Vels_Lookup_123 F1_001268 equ $ ; IN [PP2-1.BAS] ENDSELECT _LBL__322 _LBL__316 F1_001269 equ $ ; IN [PP2-1.BAS] SET PROG setf prog,0 F1_001270 equ $ ; IN [PP2-1.BAS] RETURN return 0 Controller F1_001297 equ $ ; IN [PP2-1.BAS] SELECT CTRL F1_001298 equ $ ; IN [PP2-1.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__324 F1_001301 equ $ ; IN [PP2-1.BAS] IF VALUE = 0 THEN movf value,F,0 btfss STATUS,2,0 bra _LBL__327 F1_001302 equ $ ; IN [PP2-1.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001303 equ $ ; IN [PP2-1.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001304 equ $ ; IN [PP2-1.BAS] CLEAR PRES0 clrf Pres0,1 F1_001305 equ $ ; IN [PP2-1.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001306 equ $ ; IN [PP2-1.BAS] CLEAR PRES1 clrf Pres1,1 F1_001307 equ $ ; IN [PP2-1.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001308 equ $ ; IN [PP2-1.BAS] CLEAR PRES2 clrf Pres2,1 F1_001309 equ $ ; IN [PP2-1.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001310 equ $ ; IN [PP2-1.BAS] CLEAR PRES3 clrf Pres3,1 F1_001311 equ $ ; IN [PP2-1.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001312 equ $ ; IN [PP2-1.BAS] CLEAR PRES4 clrf Pres4,1 F1_001313 equ $ ; IN [PP2-1.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001314 equ $ ; IN [PP2-1.BAS] CLEAR PRES5 clrf Pres5,1 F1_001315 equ $ ; IN [PP2-1.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001316 equ $ ; IN [PP2-1.BAS] CLEAR PRES6 clrf Pres6,1 F1_001317 equ $ ; IN [PP2-1.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001318 equ $ ; IN [PP2-1.BAS] CLEAR PRES7 clrf Pres7,1 F1_001319 equ $ ; IN [PP2-1.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001320 equ $ ; IN [PP2-1.BAS] CLEAR PRES8 clrf Pres8,1 F1_001321 equ $ ; IN [PP2-1.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001322 equ $ ; IN [PP2-1.BAS] CLEAR PRES9 clrf Pres9,1 F1_001325 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001326 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS clrf HoldflagsH,0 clrf Holdflags,0 F1_001327 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS clrf WaitflagsH,0 clrf Waitflags,0 F1_001328 equ $ ; IN [PP2-1.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001329 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001330 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001331 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001332 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001333 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001334 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001335 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001336 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001337 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001338 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001339 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001340 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001341 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001342 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001343 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001344 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001345 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001346 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001347 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001348 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001349 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS rcall SortTimers bra _LBL__328 _LBL__327 F1_001350 equ $ ; IN [PP2-1.BAS] ELSE F1_001351 equ $ ; IN [PP2-1.BAS] PRES0 = VALUE movff value,Pres0 F1_001352 equ $ ; IN [PP2-1.BAS] RATE0 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H F1_001353 equ $ ; IN [PP2-1.BAS] PRES1 = VALUE movff value,Pres1 F1_001354 equ $ ; IN [PP2-1.BAS] RATE1 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H F1_001355 equ $ ; IN [PP2-1.BAS] PRES2 = VALUE movff value,Pres2 F1_001356 equ $ ; IN [PP2-1.BAS] RATE2 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H F1_001357 equ $ ; IN [PP2-1.BAS] PRES3 = VALUE movff value,Pres3 F1_001358 equ $ ; IN [PP2-1.BAS] RATE3 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H F1_001359 equ $ ; IN [PP2-1.BAS] PRES4 = VALUE movff value,Pres4 F1_001360 equ $ ; IN [PP2-1.BAS] RATE4 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H F1_001361 equ $ ; IN [PP2-1.BAS] PRES5 = VALUE movff value,Pres5 F1_001362 equ $ ; IN [PP2-1.BAS] RATE5 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H F1_001363 equ $ ; IN [PP2-1.BAS] PRES6 = VALUE movff value,Pres6 F1_001364 equ $ ; IN [PP2-1.BAS] RATE6 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H F1_001365 equ $ ; IN [PP2-1.BAS] PRES7 = VALUE movff value,Pres7 F1_001366 equ $ ; IN [PP2-1.BAS] RATE7 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate7 movff INDF0,Rate7H F1_001367 equ $ ; IN [PP2-1.BAS] PRES8 = VALUE movff value,Pres8 F1_001368 equ $ ; IN [PP2-1.BAS] RATE8 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate8 movff INDF0,Rate8H F1_001369 equ $ ; IN [PP2-1.BAS] PRES9 = VALUE movff value,Pres9 F1_001370 equ $ ; IN [PP2-1.BAS] RATE9 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate9 movff INDF0,Rate9H F1_001371 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__328 bra _LBL__323 _LBL__324 F1_001372 equ $ ; IN [PP2-1.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__330 F1_001374 equ $ ; IN [PP2-1.BAS] IF VALUE = 0 THEN movf value,F,0 btfsc STATUS,2,0 F1_001375 equ $ ; IN [PP2-1.BAS] GOSUB POWERDOWN rcall PowerDown F1_001376 equ $ ; IN [PP2-1.BAS] ENDIF _LBL__332 bra _LBL__323 _LBL__330 F1_001377 equ $ ; IN [PP2-1.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _LBL__334 F1_001378 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001379 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS clrf HoldflagsH,0 clrf Holdflags,0 F1_001380 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS clrf WaitflagsH,0 clrf Waitflags,0 F1_001381 equ $ ; IN [PP2-1.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001382 equ $ ; IN [PP2-1.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001383 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001384 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001385 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001386 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001387 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001388 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001389 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001390 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001391 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001392 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001393 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001394 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001395 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001396 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001397 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001398 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001399 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001400 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001401 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001402 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001403 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS call SortTimers F1_001404 equ $ ; IN [PP2-1.BAS] END SELECT _LBL__334 _LBL__323 F1_001405 equ $ ; IN [PP2-1.BAS] SET CTRL setf Ctrl,0 F1_001406 equ $ ; IN [PP2-1.BAS] RETURN return 0 PowerDown F1_001411 equ $ ; IN [PP2-1.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001412 equ $ ; IN [PP2-1.BAS] CLEAR HOLDFLAGS clrf HoldflagsH,0 clrf Holdflags,0 F1_001413 equ $ ; IN [PP2-1.BAS] CLEAR WAITFLAGS clrf WaitflagsH,0 clrf Waitflags,0 F1_001414 equ $ ; IN [PP2-1.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001415 equ $ ; IN [PP2-1.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001416 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001417 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001418 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001419 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001420 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001421 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001422 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001423 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001424 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001425 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001426 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001427 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001428 equ $ ; IN [PP2-1.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001429 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001430 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001431 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001432 equ $ ; IN [PP2-1.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001433 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001434 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001435 equ $ ; IN [PP2-1.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001437 equ $ ; IN [PP2-1.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001438 equ $ ; IN [PP2-1.BAS] CLEAR PRES0 clrf Pres0,1 F1_001439 equ $ ; IN [PP2-1.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001440 equ $ ; IN [PP2-1.BAS] CLEAR PRES1 clrf Pres1,1 F1_001441 equ $ ; IN [PP2-1.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001442 equ $ ; IN [PP2-1.BAS] CLEAR PRES2 clrf Pres2,1 F1_001443 equ $ ; IN [PP2-1.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001444 equ $ ; IN [PP2-1.BAS] CLEAR PRES3 clrf Pres3,1 F1_001445 equ $ ; IN [PP2-1.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001446 equ $ ; IN [PP2-1.BAS] CLEAR PRES4 clrf Pres4,1 F1_001447 equ $ ; IN [PP2-1.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001448 equ $ ; IN [PP2-1.BAS] CLEAR PRES5 clrf Pres5,1 F1_001449 equ $ ; IN [PP2-1.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001450 equ $ ; IN [PP2-1.BAS] CLEAR PRES6 clrf Pres6,1 F1_001451 equ $ ; IN [PP2-1.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001452 equ $ ; IN [PP2-1.BAS] CLEAR PRES7 clrf Pres7,1 F1_001453 equ $ ; IN [PP2-1.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001454 equ $ ; IN [PP2-1.BAS] CLEAR PRES8 clrf Pres8,1 F1_001455 equ $ ; IN [PP2-1.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001456 equ $ ; IN [PP2-1.BAS] CLEAR PRES9 clrf Pres9,1 F1_001457 equ $ ; IN [PP2-1.BAS] GOSUB SORTTIMERS goto SortTimers Dur_Lookup F1_001462 equ $ ; IN [PP2-1.BAS] SET DUR[0] movlb 2 setf Dur#0H,1 setf Dur#0,1 F1_001466 equ $ ; IN [PP2-1.BAS] DUR[1] = 23674 movlw 92 movwf Dur#1H,1 movlw 122 movwf Dur#1,1 F1_001467 equ $ ; IN [PP2-1.BAS] DUR[2] = 22917 movlw 89 movwf Dur#2H,1 movlw 133 movwf Dur#2,1 F1_001468 equ $ ; IN [PP2-1.BAS] DUR[3] = 22548 movlw 88 movwf Dur#3H,1 movlw 20 movwf Dur#3,1 F1_001469 equ $ ; IN [PP2-1.BAS] DUR[4] = 22185 movlw 86 movwf Dur#4H,1 movlw 169 movwf Dur#4,1 F1_001470 equ $ ; IN [PP2-1.BAS] DUR[5] = 21827 movlw 85 movwf Dur#5H,1 movlw 67 movwf Dur#5,1 F1_001471 equ $ ; IN [PP2-1.BAS] DUR[6] = 21475 movlw 83 movwf Dur#6H,1 movlw 227 movwf Dur#6,1 F1_001472 equ $ ; IN [PP2-1.BAS] DUR[7] = 21129 movlw 82 movwf Dur#7H,1 movlw 137 movwf Dur#7,1 F1_001473 equ $ ; IN [PP2-1.BAS] DUR[8] = 20789 movlw 81 movwf Dur#8H,1 movlw 53 movwf Dur#8,1 F1_001474 equ $ ; IN [PP2-1.BAS] DUR[9] = 20454 movlw 79 movwf Dur#9H,1 movlw 230 movwf Dur#9,1 F1_001475 equ $ ; IN [PP2-1.BAS] DUR[10] = 20124 movlw 78 movwf Dur#10H,1 movlw 156 movwf Dur#10,1 F1_001476 equ $ ; IN [PP2-1.BAS] DUR[11] = 19800 movlw 77 movwf Dur#11H,1 movlw 88 movwf Dur#11,1 F1_001477 equ $ ; IN [PP2-1.BAS] DUR[12] = 19481 movlw 76 movwf Dur#12H,1 movlw 25 movwf Dur#12,1 F1_001478 equ $ ; IN [PP2-1.BAS] DUR[13] = 19167 movlw 74 movwf Dur#13H,1 movlw 223 movwf Dur#13,1 F1_001479 equ $ ; IN [PP2-1.BAS] DUR[14] = 18858 movlw 73 movwf Dur#14H,1 movlw 170 movwf Dur#14,1 F1_001480 equ $ ; IN [PP2-1.BAS] DUR[15] = 18554 movlw 72 movwf Dur#15H,1 movlw 122 movwf Dur#15,1 F1_001481 equ $ ; IN [PP2-1.BAS] DUR[16] = 18255 movlw 71 movwf Dur#16H,1 movlw 79 movwf Dur#16,1 F1_001482 equ $ ; IN [PP2-1.BAS] DUR[17] = 17961 movlw 70 movwf Dur#17H,1 movlw 41 movwf Dur#17,1 F1_001483 equ $ ; IN [PP2-1.BAS] DUR[18] = 17672 movlw 69 movwf Dur#18H,1 movlw 8 movwf Dur#18,1 F1_001484 equ $ ; IN [PP2-1.BAS] DUR[19] = 17387 movlw 67 movwf Dur#19H,1 movlw 235 movwf Dur#19,1 F1_001485 equ $ ; IN [PP2-1.BAS] DUR[20] = 17107 movlw 66 movwf Dur#20H,1 movlw 211 movwf Dur#20,1 F1_001486 equ $ ; IN [PP2-1.BAS] DUR[21] = 16831 movlw 65 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_001487 equ $ ; IN [PP2-1.BAS] DUR[22] = 16560 movlw 64 movwf Dur#22H,1 movlw 176 movwf Dur#22,1 F1_001488 equ $ ; IN [PP2-1.BAS] DUR[23] = 16293 movlw 63 movwf Dur#23H,1 movlw 165 movwf Dur#23,1 F1_001489 equ $ ; IN [PP2-1.BAS] DUR[24] = 16030 movlw 62 movwf Dur#24H,1 movlw 158 movwf Dur#24,1 F1_001490 equ $ ; IN [PP2-1.BAS] DUR[25] = 15772 movlw 61 movwf Dur#25H,1 movlw 156 movwf Dur#25,1 F1_001491 equ $ ; IN [PP2-1.BAS] DUR[26] = 15518 movlw 60 movwf Dur#26H,1 movlw 158 movwf Dur#26,1 F1_001492 equ $ ; IN [PP2-1.BAS] DUR[27] = 15268 movlw 59 movwf Dur#27H,1 movlw 164 movwf Dur#27,1 F1_001493 equ $ ; IN [PP2-1.BAS] DUR[28] = 15022 movlw 58 movwf Dur#28H,1 movlw 174 movwf Dur#28,1 F1_001494 equ $ ; IN [PP2-1.BAS] DUR[29] = 14780 movlw 57 movwf Dur#29H,1 movlw 188 movwf Dur#29,1 F1_001495 equ $ ; IN [PP2-1.BAS] DUR[30] = 14542 movlw 56 movwf Dur#30H,1 movlw 206 movwf Dur#30,1 F1_001496 equ $ ; IN [PP2-1.BAS] DUR[31] = 14307 movlw 55 movwf Dur#31H,1 movlw 227 movwf Dur#31,1 F1_001497 equ $ ; IN [PP2-1.BAS] DUR[32] = 14077 movlw 54 movwf Dur#32H,1 movlw 253 movwf Dur#32,1 F1_001498 equ $ ; IN [PP2-1.BAS] DUR[33] = 13850 movlw 54 movlb 3 movwf Dur#33H,1 movlw 26 movwf Dur#33,1 F1_001499 equ $ ; IN [PP2-1.BAS] DUR[34] = 13627 movlw 53 movwf Dur#34H,1 movlw 59 movwf Dur#34,1 F1_001500 equ $ ; IN [PP2-1.BAS] DUR[35] = 13407 movlw 52 movwf Dur#35H,1 movlw 95 movwf Dur#35,1 F1_001501 equ $ ; IN [PP2-1.BAS] DUR[36] = 13191 movlw 51 movwf Dur#36H,1 movlw 135 movwf Dur#36,1 F1_001502 equ $ ; IN [PP2-1.BAS] DUR[37] = 12978 movlw 50 movwf Dur#37H,1 movlw 178 movwf Dur#37,1 F1_001503 equ $ ; IN [PP2-1.BAS] DUR[38] = 12769 movlw 49 movwf Dur#38H,1 movlw 225 movwf Dur#38,1 F1_001504 equ $ ; IN [PP2-1.BAS] DUR[39] = 12564 movlw 49 movwf Dur#39H,1 movlw 20 movwf Dur#39,1 F1_001505 equ $ ; IN [PP2-1.BAS] DUR[40] = 12361 movlw 48 movwf Dur#40H,1 movlw 73 movwf Dur#40,1 F1_001506 equ $ ; IN [PP2-1.BAS] DUR[41] = 12162 movlw 47 movwf Dur#41H,1 movlw 130 movwf Dur#41,1 F1_001507 equ $ ; IN [PP2-1.BAS] DUR[42] = 11966 movlw 46 movwf Dur#42H,1 movlw 190 movwf Dur#42,1 F1_001508 equ $ ; IN [PP2-1.BAS] DUR[43] = 11773 movlw 45 movwf Dur#43H,1 movlw 253 movwf Dur#43,1 F1_001509 equ $ ; IN [PP2-1.BAS] DUR[44] = 11583 movlw 45 movwf Dur#44H,1 movlw 63 movwf Dur#44,1 F1_001510 equ $ ; IN [PP2-1.BAS] DUR[45] = 11397 movlw 44 movwf Dur#45H,1 movlw 133 movwf Dur#45,1 F1_001511 equ $ ; IN [PP2-1.BAS] DUR[46] = 11213 movlw 43 movwf Dur#46H,1 movlw 205 movwf Dur#46,1 F1_001512 equ $ ; IN [PP2-1.BAS] DUR[47] = 11032 movlw 43 movwf Dur#47H,1 movlw 24 movwf Dur#47,1 F1_001513 equ $ ; IN [PP2-1.BAS] DUR[48] = 10855 movlw 42 movwf Dur#48H,1 movlw 103 movwf Dur#48,1 F1_001514 equ $ ; IN [PP2-1.BAS] DUR[49] = 10680 movlw 41 movwf Dur#49H,1 movlw 184 movwf Dur#49,1 F1_001515 equ $ ; IN [PP2-1.BAS] DUR[50] = 10508 movlw 41 movwf Dur#50H,1 movlw 12 movwf Dur#50,1 F1_001516 equ $ ; IN [PP2-1.BAS] DUR[51] = 10338 movlw 40 movwf Dur#51H,1 movlw 98 movwf Dur#51,1 F1_001517 equ $ ; IN [PP2-1.BAS] DUR[52] = 10172 movlw 39 movwf Dur#52H,1 movlw 188 movwf Dur#52,1 F1_001518 equ $ ; IN [PP2-1.BAS] DUR[53] = 10008 movlw 39 movwf Dur#53H,1 movlw 24 movwf Dur#53,1 F1_001519 equ $ ; IN [PP2-1.BAS] DUR[54] = 9846 movlw 38 movwf Dur#54H,1 movlw 118 movwf Dur#54,1 F1_001520 equ $ ; IN [PP2-1.BAS] DUR[55] = 9688 movlw 37 movwf Dur#55H,1 movlw 216 movwf Dur#55,1 F1_001521 equ $ ; IN [PP2-1.BAS] DUR[56] = 9532 movlw 37 movwf Dur#56H,1 movlw 60 movwf Dur#56,1 F1_001522 equ $ ; IN [PP2-1.BAS] DUR[57] = 9378 movlw 36 movwf Dur#57H,1 movlw 162 movwf Dur#57,1 F1_001523 equ $ ; IN [PP2-1.BAS] DUR[58] = 9227 movlw 36 movwf Dur#58H,1 movlw 11 movwf Dur#58,1 F1_001524 equ $ ; IN [PP2-1.BAS] DUR[59] = 9078 movlw 35 movwf Dur#59H,1 movlw 118 movwf Dur#59,1 F1_001525 equ $ ; IN [PP2-1.BAS] DUR[60] = 8932 movlw 34 movwf Dur#60H,1 movlw 228 movwf Dur#60,1 F1_001526 equ $ ; IN [PP2-1.BAS] DUR[61] = 8788 movlw 34 movwf Dur#61H,1 movlw 84 movwf Dur#61,1 F1_001527 equ $ ; IN [PP2-1.BAS] DUR[62] = 8646 movlw 33 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_001528 equ $ ; IN [PP2-1.BAS] DUR[63] = 8507 movlw 33 movwf Dur#63H,1 movlw 59 movwf Dur#63,1 F1_001529 equ $ ; IN [PP2-1.BAS] DUR[64] = 8370 movlw 32 movwf Dur#64H,1 movlw 178 movwf Dur#64,1 F1_001530 equ $ ; IN [PP2-1.BAS] DUR[65] = 8235 movlw 32 movwf Dur#65H,1 movlw 43 movwf Dur#65,1 F1_001531 equ $ ; IN [PP2-1.BAS] DUR[66] = 8102 movlw 31 movwf Dur#66H,1 movlw 166 movwf Dur#66,1 F1_001532 equ $ ; IN [PP2-1.BAS] DUR[67] = 7972 movlw 31 movwf Dur#67H,1 movlw 36 movwf Dur#67,1 F1_001533 equ $ ; IN [PP2-1.BAS] DUR[68] = 7843 movlw 30 movwf Dur#68H,1 movlw 163 movwf Dur#68,1 F1_001534 equ $ ; IN [PP2-1.BAS] DUR[69] = 7717 movlw 30 movwf Dur#69H,1 movlw 37 movwf Dur#69,1 F1_001535 equ $ ; IN [PP2-1.BAS] DUR[70] = 7593 movlw 29 movwf Dur#70H,1 movlw 169 movwf Dur#70,1 F1_001536 equ $ ; IN [PP2-1.BAS] DUR[71] = 7470 movlw 29 movwf Dur#71H,1 movlw 46 movwf Dur#71,1 F1_001537 equ $ ; IN [PP2-1.BAS] DUR[72] = 7350 movlw 28 movwf Dur#72H,1 movlw 182 movwf Dur#72,1 F1_001538 equ $ ; IN [PP2-1.BAS] DUR[73] = 7231 movlw 28 movwf Dur#73H,1 movlw 63 movwf Dur#73,1 F1_001539 equ $ ; IN [PP2-1.BAS] DUR[74] = 7115 movlw 27 movwf Dur#74H,1 movlw 203 movwf Dur#74,1 F1_001540 equ $ ; IN [PP2-1.BAS] DUR[75] = 7000 movlw 27 movwf Dur#75H,1 movlw 88 movwf Dur#75,1 F1_001541 equ $ ; IN [PP2-1.BAS] DUR[76] = 6888 movlw 26 movwf Dur#76H,1 movlw 232 movwf Dur#76,1 F1_001542 equ $ ; IN [PP2-1.BAS] DUR[77] = 6777 movlw 26 movwf Dur#77H,1 movlw 121 movwf Dur#77,1 F1_001543 equ $ ; IN [PP2-1.BAS] DUR[78] = 6667 movlw 26 movwf Dur#78H,1 movlw 11 movwf Dur#78,1 F1_001544 equ $ ; IN [PP2-1.BAS] DUR[79] = 6560 movlw 25 movwf Dur#79H,1 movlw 160 movwf Dur#79,1 F1_001545 equ $ ; IN [PP2-1.BAS] DUR[80] = 6454 movlw 25 movwf Dur#80H,1 movlw 54 movwf Dur#80,1 F1_001546 equ $ ; IN [PP2-1.BAS] DUR[81] = 6350 movlw 24 movwf Dur#81H,1 movlw 206 movwf Dur#81,1 F1_001547 equ $ ; IN [PP2-1.BAS] DUR[82] = 6248 movlw 24 movwf Dur#82H,1 movlw 104 movwf Dur#82,1 F1_001548 equ $ ; IN [PP2-1.BAS] DUR[83] = 6147 movlw 24 movwf Dur#83H,1 movlw 3 movwf Dur#83,1 F1_001549 equ $ ; IN [PP2-1.BAS] DUR[84] = 6048 movlw 23 movwf Dur#84H,1 movlw 160 movwf Dur#84,1 F1_001550 equ $ ; IN [PP2-1.BAS] DUR[85] = 5951 movlw 23 movwf Dur#85H,1 movlw 63 movwf Dur#85,1 F1_001551 equ $ ; IN [PP2-1.BAS] DUR[86] = 5855 movlw 22 movwf Dur#86H,1 movlw 223 movwf Dur#86,1 F1_001552 equ $ ; IN [PP2-1.BAS] DUR[87] = 5760 movlw 22 movwf Dur#87H,1 movlw 128 movwf Dur#87,1 F1_001553 equ $ ; IN [PP2-1.BAS] DUR[88] = 5668 movlw 22 movwf Dur#88H,1 movlw 36 movwf Dur#88,1 F1_001554 equ $ ; IN [PP2-1.BAS] DUR[89] = 5576 movlw 21 movwf Dur#89H,1 movlw 200 movwf Dur#89,1 F1_001555 equ $ ; IN [PP2-1.BAS] DUR[90] = 5486 movlw 21 movwf Dur#90H,1 movlw 110 movwf Dur#90,1 F1_001556 equ $ ; IN [PP2-1.BAS] DUR[91] = 5398 movlw 21 movwf Dur#91H,1 movlw 22 movwf Dur#91,1 F1_001557 equ $ ; IN [PP2-1.BAS] DUR[92] = 5311 movlw 20 movwf Dur#92H,1 movlw 191 movwf Dur#92,1 F1_001558 equ $ ; IN [PP2-1.BAS] DUR[93] = 5225 movlw 20 movwf Dur#93H,1 movlw 105 movwf Dur#93,1 F1_001559 equ $ ; IN [PP2-1.BAS] DUR[94] = 5141 movlw 20 movwf Dur#94H,1 movlw 21 movwf Dur#94,1 F1_001560 equ $ ; IN [PP2-1.BAS] DUR[95] = 5058 movlw 19 movwf Dur#95H,1 movlw 194 movwf Dur#95,1 F1_001561 equ $ ; IN [PP2-1.BAS] DUR[96] = 4977 movlw 19 movwf Dur#96H,1 movlw 113 movwf Dur#96,1 F1_001562 equ $ ; IN [PP2-1.BAS] DUR[97] = 4897 movlw 19 movwf Dur#97H,1 movlw 33 movwf Dur#97,1 F1_001563 equ $ ; IN [PP2-1.BAS] DUR[98] = 4818 movlw 18 movwf Dur#98H,1 movlw 210 movwf Dur#98,1 F1_001564 equ $ ; IN [PP2-1.BAS] DUR[99] = 4740 movlw 18 movwf Dur#99H,1 movlw 132 movwf Dur#99,1 F1_001565 equ $ ; IN [PP2-1.BAS] DUR[100] = 4664 movlw 18 movwf Dur#100H,1 movlw 56 movwf Dur#100,1 F1_001566 equ $ ; IN [PP2-1.BAS] DUR[101] = 4589 movlw 17 movwf Dur#101H,1 movlw 237 movwf Dur#101,1 F1_001567 equ $ ; IN [PP2-1.BAS] DUR[102] = 4515 movlw 17 movwf Dur#102H,1 movlw 163 movwf Dur#102,1 F1_001568 equ $ ; IN [PP2-1.BAS] DUR[103] = 4442 movlw 17 movwf Dur#103H,1 movlw 90 movwf Dur#103,1 F1_001569 equ $ ; IN [PP2-1.BAS] DUR[104] = 4370 movlw 17 movwf Dur#104H,1 movlw 18 movwf Dur#104,1 F1_001570 equ $ ; IN [PP2-1.BAS] DUR[105] = 4300 movlw 16 movwf Dur#105H,1 movlw 204 movwf Dur#105,1 F1_001571 equ $ ; IN [PP2-1.BAS] DUR[106] = 4231 movlw 16 movwf Dur#106H,1 movlw 135 movwf Dur#106,1 F1_001572 equ $ ; IN [PP2-1.BAS] DUR[107] = 4162 movlw 16 movwf Dur#107H,1 movlw 66 movwf Dur#107,1 F1_001573 equ $ ; IN [PP2-1.BAS] DUR[108] = 4095 movlw 15 movwf Dur#108H,1 setf Dur#108,1 F1_001574 equ $ ; IN [PP2-1.BAS] DUR[109] = 4029 movwf Dur#109H,1 movlw 189 movwf Dur#109,1 F1_001575 equ $ ; IN [PP2-1.BAS] DUR[110] = 3964 movlw 15 movwf Dur#110H,1 movlw 124 movwf Dur#110,1 F1_001576 equ $ ; IN [PP2-1.BAS] DUR[111] = 3901 movlw 15 movwf Dur#111H,1 movlw 61 movwf Dur#111,1 F1_001577 equ $ ; IN [PP2-1.BAS] DUR[112] = 3838 movlw 14 movwf Dur#112H,1 movlw 254 movwf Dur#112,1 F1_001578 equ $ ; IN [PP2-1.BAS] DUR[113] = 3776 movlw 14 movwf Dur#113H,1 movlw 192 movwf Dur#113,1 F1_001579 equ $ ; IN [PP2-1.BAS] DUR[114] = 3715 movlw 14 movwf Dur#114H,1 movlw 131 movwf Dur#114,1 F1_001580 equ $ ; IN [PP2-1.BAS] DUR[115] = 3655 movlw 14 movwf Dur#115H,1 movlw 71 movwf Dur#115,1 F1_001581 equ $ ; IN [PP2-1.BAS] DUR[116] = 3596 movlw 14 movwf Dur#116H,1 movlw 12 movwf Dur#116,1 F1_001582 equ $ ; IN [PP2-1.BAS] DUR[117] = 3538 movlw 13 movwf Dur#117H,1 movlw 210 movwf Dur#117,1 F1_001583 equ $ ; IN [PP2-1.BAS] DUR[118] = 3481 movlw 13 movwf Dur#118H,1 movlw 153 movwf Dur#118,1 F1_001584 equ $ ; IN [PP2-1.BAS] DUR[119] = 3425 movlw 13 movwf Dur#119H,1 movlw 97 movwf Dur#119,1 F1_001585 equ $ ; IN [PP2-1.BAS] DUR[120] = 3370 movlw 13 movwf Dur#120H,1 movlw 42 movwf Dur#120,1 F1_001586 equ $ ; IN [PP2-1.BAS] DUR[121] = 3316 movlw 12 movwf Dur#121H,1 movlw 244 movwf Dur#121,1 F1_001587 equ $ ; IN [PP2-1.BAS] DUR[122] = 3262 movlw 12 movwf Dur#122H,1 movlw 190 movwf Dur#122,1 F1_001588 equ $ ; IN [PP2-1.BAS] DUR[123] = 3210 movlw 12 movwf Dur#123H,1 movlw 138 movwf Dur#123,1 F1_001589 equ $ ; IN [PP2-1.BAS] DUR[124] = 3158 movlw 12 movwf Dur#124H,1 movlw 86 movwf Dur#124,1 F1_001590 equ $ ; IN [PP2-1.BAS] DUR[125] = 3107 movlw 12 movwf Dur#125H,1 movlw 35 movwf Dur#125,1 F1_001591 equ $ ; IN [PP2-1.BAS] DUR[126] = 3057 movlw 11 movwf Dur#126H,1 movlw 241 movwf Dur#126,1 F1_001592 equ $ ; IN [PP2-1.BAS] DUR[127] = 3008 movlw 11 movwf Dur#127H,1 movlw 192 movwf Dur#127,1 F1_001593 equ $ ; IN [PP2-1.BAS] RETURN movlb 0 return 0 Vels_Lookup_0 F1_001613 equ $ ; IN [PP2-1.BAS] VELS[1] = 52 movlb 1 clrf vels#1H,1 movlw 52 movwf vels#1,1 F1_001616 equ $ ; IN [PP2-1.BAS] FOR I = 2 TO 127 movlw 2 movwf _I,0 _FRLB__335 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__336 F1_001617 equ $ ; IN [PP2-1.BAS] VELS[I] = VELS[I-1] + 32.8 decf _I,W,0 movwf PBP#VAR2,0 lfsr 0,vels bcf STATUS,0,0 rlcf PBP#VAR2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movff PBP#VAR1,PP_AARG movff PBP#VAR1H,PP_AARGH call _UNS_INT16_TOFL32 movff PP_AARGHHH,PP_BARGHHH movff PP_AARGHH,PP_BARGHH movff PP_AARGH,PP_BARGH movff PP_AARG,PP_BARG movlw 51 movwf PP_AARGHHH,0 movwf PP_AARGHH,0 movlw 3 movwf PP_AARGH,0 movlw 132 movwf PP_AARG,0 call FPA@32 call _FL32_TO_INT32 movwf PBP#VAR0,0 movff PP_AARGH,PBP#VAR0H lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__337 F1_001618 equ $ ; IN [PP2-1.BAS] NEXT I incf _I,F,0 bnc _FRLB__335 _NXLB__336 F1_001623 equ $ ; IN [PP2-1.BAS] RETURN return 0 Vels_Lookup_122 F1_001630 equ $ ; IN [PP2-1.BAS] VELS[1] = 47 movlb 1 clrf vels#1H,1 movlw 47 movwf vels#1,1 F1_001631 equ $ ; IN [PP2-1.BAS] FOR I = 2 TO 127 movlw 2 movwf _I,0 _FRLB__338 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__339 F1_001632 equ $ ; IN [PP2-1.BAS] VELS[I] = VELS[I-1] + 20 decf _I,W,0 movwf PBP#VAR2,0 lfsr 0,vels bcf STATUS,0,0 rlcf PBP#VAR2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movlw 20 addwf PBP#VAR1,W,0 movwf PBP#VAR0,0 movlw 0 addwfc PBP#VAR1H,W,0 movwf PBP#VAR0H,0 lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__340 F1_001633 equ $ ; IN [PP2-1.BAS] NEXT I incf _I,F,0 bnc _FRLB__338 _NXLB__339 F1_001634 equ $ ; IN [PP2-1.BAS] RETURN return 0 Vels_Lookup_123 F1_001641 equ $ ; IN [PP2-1.BAS] VELS[1] = 46 movlb 1 clrf vels#1H,1 movlw 46 movwf vels#1,1 F1_001642 equ $ ; IN [PP2-1.BAS] FOR I = 2 TO 127 movlw 2 movwf _I,0 _FRLB__341 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__342 F1_001643 equ $ ; IN [PP2-1.BAS] VELS[I] = VELS[I-1] + 12.49 decf _I,W,0 movwf PBP#VAR2,0 lfsr 0,vels bcf STATUS,0,0 rlcf PBP#VAR2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movff PBP#VAR1,PP_AARG movff PBP#VAR1H,PP_AARGH call _UNS_INT16_TOFL32 movff PP_AARGHHH,PP_BARGHHH movff PP_AARGHH,PP_BARGHH movff PP_AARGH,PP_BARGH movff PP_AARG,PP_BARG movlw 10 movwf PP_AARGHHH,0 movlw 215 movwf PP_AARGHH,0 movlw 71 movwf PP_AARGH,0 movlw 130 movwf PP_AARG,0 call FPA@32 call _FL32_TO_INT32 movwf PBP#VAR0,0 movff PP_AARGH,PBP#VAR0H lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__343 F1_001644 equ $ ; IN [PP2-1.BAS] NEXT I incf _I,F,0 bnc _FRLB__341 _NXLB__342 F1_001645 equ $ ; IN [PP2-1.BAS] RETURN return 0 F1_EOF equ $ ; PP2-1.BAS _PBLB__344 bra _PBLB__344 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off config PWRT = on end