;---------------------------------------------------------- ; 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 = 18F2620, 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 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CP3_ON_5 equ 0XF7 CP3_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRT3_ON_6 equ 0XF7 WRT3_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTR3_ON_7 equ 0XF7 EBTR3_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F2620 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0X10000 #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 118 #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#VAR1HH = 6 PBP#VAR1HHH = 7 PBP#VAR2 = 8 PBP#VAR2H = 9 PP0 = 10 PP0H = 11 PP1 = 12 PP1H = 13 PP7 = 14 PP7H = 15 PP7HH = 16 PP7HHH = 17 PP8 = 18 PP8H = 19 PP8HH = 20 PP8HHH = 21 PP9 = 22 PP9H = 23 PP9HH = 24 PP9HHH = 25 PPZ = 26 PPZH = 27 PPZHH = 28 PP_AARG = 29 PP_AARGH = 30 PP_AARGHH = 31 PP_AARGHHH = 32 PP_BARG = 33 PP_BARGH = 34 PP_BARGHH = 35 PP_BARGHHH = 36 _AEXP = 37 _BEXP = 38 _FP_FLAGS = 39 _FP_TEMP = 40 _SIGN = 41 USART_FSR1_Save = 42 USART_FSR1_SaveH = 43 IndexIn = 44 IndexOut = 45 Bytein = 46 _I = 47 statusbyte = 48 noteUit = 49 noteAan = 50 velo = 51 notePres = 52 pres = 53 VelFlags = 54 VelFlagsH = 55 Notes = 56 NotesH = 57 CC66 = 58 time = 59 timeH = 60 timeHH = 61 timeHHH = 62 _T = 63 tog = 64 velo0 = 65 velo0H = 66 velo1 = 67 velo1H = 68 velo2 = 69 velo2H = 70 velo3 = 71 velo3H = 72 velo4 = 73 velo4H = 74 velo5 = 75 velo5H = 76 velo6 = 77 velo6H = 78 velo7 = 79 velo7H = 80 velo8 = 81 velo8H = 82 velo9 = 83 velo9H = 84 velo10 = 85 velo10H = 86 velo11 = 87 velo11H = 88 Rate0 = 89 Rate0H = 90 Rate1 = 91 Rate1H = 92 Rate2 = 93 Rate2H = 94 Rate3 = 95 Rate3H = 96 Rate4 = 97 Rate4H = 98 Rate5 = 99 Rate5H = 100 Rate6 = 101 Rate6H = 102 Rate7 = 103 Rate7H = 104 Rate8 = 105 Rate8H = 106 Rate9 = 107 Rate9H = 108 Rate10 = 109 Rate10H = 110 Rate11 = 111 Rate11H = 112 Nxt = 113 NxtH = 114 NxtHH = 115 NxtHHH = 116 idx = 117 Ctrl = 118 value = 119 Pres0 = 120 Pres1 = 121 Pres2 = 122 Pres3 = 123 Pres4 = 124 Pres5 = 125 Pres6 = 126 Pres7 = 127 Pres8 = 128 Pres9 = 129 Pres10 = 130 Pres11 = 131 TimVals = 132 TimValsH = 133 TimValsHH = 134 TimValsHHH = 135 variable TimVals#0=132,TimVals#0H=133,TimVals#0HH=134,TimVals#0HHH=135 variable TimVals#1=136,TimVals#1H=137,TimVals#1HH=138,TimVals#1HHH=139 variable TimVals#2=140,TimVals#2H=141,TimVals#2HH=142,TimVals#2HHH=143 variable TimVals#3=144,TimVals#3H=145,TimVals#3HH=146,TimVals#3HHH=147 variable TimVals#4=148,TimVals#4H=149,TimVals#4HH=150,TimVals#4HHH=151 variable TimVals#5=152,TimVals#5H=153,TimVals#5HH=154,TimVals#5HHH=155 variable TimVals#6=156,TimVals#6H=157,TimVals#6HH=158,TimVals#6HHH=159 variable TimVals#7=160,TimVals#7H=161,TimVals#7HH=162,TimVals#7HHH=163 variable TimVals#8=164,TimVals#8H=165,TimVals#8HH=166,TimVals#8HHH=167 variable TimVals#9=168,TimVals#9H=169,TimVals#9HH=170,TimVals#9HHH=171 variable TimVals#10=172,TimVals#10H=173,TimVals#10HH=174,TimVals#10HHH=175 variable TimVals#11=176,TimVals#11H=177,TimVals#11HH=178,TimVals#11HHH=179 notused = 180 notusedH = 181 variable notused#0=180,notused#0H=181,notused#1=182,notused#1H=183 variable notused#2=184,notused#2H=185,notused#3=186,notused#3H=187 variable notused#4=188,notused#4H=189,notused#5=190,notused#5H=191 variable notused#6=192,notused#6H=193,notused#7=194,notused#7H=195 variable notused#8=196,notused#8H=197,notused#9=198,notused#9H=199 variable notused#10=200,notused#10H=201,notused#11=202,notused#11H=203 variable notused#12=204,notused#12H=205,notused#13=206,notused#13H=207 variable notused#14=208,notused#14H=209,notused#15=210,notused#15H=211 variable notused#16=212,notused#16H=213,notused#17=214,notused#17H=215 variable notused#18=216,notused#18H=217,notused#19=218,notused#19H=219 variable notused#20=220,notused#20H=221,notused#21=222,notused#21H=223 variable notused#22=224,notused#22H=225,notused#23=226,notused#23H=227 variable notused#24=228,notused#24H=229,notused#25=230,notused#25H=231 variable notused#26=232,notused#26H=233,notused#27=234,notused#27H=235 variable notused#28=236,notused#28H=237,notused#29=238,notused#29H=239 variable notused#30=240,notused#30H=241,notused#31=242,notused#31H=243 variable notused#32=244,notused#32H=245,notused#33=246,notused#33H=247 variable notused#34=248,notused#34H=249,notused#35=250,notused#35H=251 variable notused#36=252,notused#36H=253,notused#37=254,notused#37H=255 variable notused#38=256,notused#38H=257,notused#39=258,notused#39H=259 variable notused#40=260,notused#40H=261,notused#41=262,notused#41H=263 variable notused#42=264,notused#42H=265,notused#43=266,notused#43H=267 variable notused#44=268,notused#44H=269,notused#45=270,notused#45H=271 variable notused#46=272,notused#46H=273,notused#47=274,notused#47H=275 variable notused#48=276,notused#48H=277,notused#49=278,notused#49H=279 variable notused#50=280,notused#50H=281,notused#51=282,notused#51H=283 variable notused#52=284,notused#52H=285,notused#53=286,notused#53H=287 variable notused#54=288,notused#54H=289,notused#55=290,notused#55H=291 variable notused#56=292,notused#56H=293,notused#57=294,notused#57H=295 variable notused#58=296,notused#58H=297,notused#59=298,notused#59H=299 variable notused#60=300,notused#60H=301,notused#61=302,notused#61H=303 variable notused#62=304,notused#62H=305,notused#63=306,notused#63H=307 variable notused#64=308,notused#64H=309,notused#65=310,notused#65H=311 variable notused#66=312,notused#66H=313,notused#67=314,notused#67H=315 variable notused#68=316,notused#68H=317,notused#69=318,notused#69H=319 variable notused#70=320,notused#70H=321,notused#71=322,notused#71H=323 variable notused#72=324,notused#72H=325,notused#73=326,notused#73H=327 variable notused#74=328,notused#74H=329,notused#75=330,notused#75H=331 variable notused#76=332,notused#76H=333,notused#77=334,notused#77H=335 variable notused#78=336,notused#78H=337,notused#79=338,notused#79H=339 variable notused#80=340,notused#80H=341,notused#81=342,notused#81H=343 variable notused#82=344,notused#82H=345,notused#83=346,notused#83H=347 variable notused#84=348,notused#84H=349,notused#85=350,notused#85H=351 variable notused#86=352,notused#86H=353,notused#87=354,notused#87H=355 variable notused#88=356,notused#88H=357,notused#89=358,notused#89H=359 variable notused#90=360,notused#90H=361,notused#91=362,notused#91H=363 variable notused#92=364,notused#92H=365,notused#93=366,notused#93H=367 variable notused#94=368,notused#94H=369,notused#95=370,notused#95H=371 variable notused#96=372,notused#96H=373,notused#97=374,notused#97H=375 variable notused#98=376,notused#98H=377,notused#99=378,notused#99H=379 variable notused#100=380,notused#100H=381,notused#101=382,notused#101H=383 variable notused#102=384,notused#102H=385,notused#103=386,notused#103H=387 variable notused#104=388,notused#104H=389,notused#105=390,notused#105H=391 variable notused#106=392,notused#106H=393,notused#107=394,notused#107H=395 variable notused#108=396,notused#108H=397,notused#109=398,notused#109H=399 variable notused#110=400,notused#110H=401,notused#111=402,notused#111H=403 variable notused#112=404,notused#112H=405,notused#113=406,notused#113H=407 variable notused#114=408,notused#114H=409,notused#115=410,notused#115H=411 variable notused#116=412,notused#116H=413,notused#117=414,notused#117H=415 variable notused#118=416,notused#118H=417,notused#119=418,notused#119H=419 variable notused#120=420,notused#120H=421,notused#121=422,notused#121H=423 variable notused#122=424,notused#122H=425,notused#123=426,notused#123H=427 variable notused#124=428,notused#124H=429,notused#125=430,notused#125H=431 variable notused#126=432,notused#126H=433,notused#127=434,notused#127H=435 variable notused#128=436,notused#128H=437,notused#129=438,notused#129H=439 variable notused#130=440,notused#130H=441,notused#131=442,notused#131H=443 variable notused#132=444,notused#132H=445,notused#133=446,notused#133H=447 variable notused#134=448,notused#134H=449,notused#135=450,notused#135H=451 variable notused#136=452,notused#136H=453,notused#137=454,notused#137H=455 variable notused#138=456,notused#138H=457,notused#139=458,notused#139H=459 variable notused#140=460,notused#140H=461,notused#141=462,notused#141H=463 variable notused#142=464,notused#142H=465,notused#143=466,notused#143H=467 variable notused#144=468,notused#144H=469,notused#145=470,notused#145H=471 variable notused#146=472,notused#146H=473,notused#147=474,notused#147H=475 variable notused#148=476,notused#148H=477,notused#149=478,notused#149H=479 variable notused#150=480,notused#150H=481,notused#151=482,notused#151H=483 variable notused#152=484,notused#152H=485,notused#153=486,notused#153H=487 variable notused#154=488,notused#154H=489,notused#155=490,notused#155H=491 variable notused#156=492,notused#156H=493,notused#157=494,notused#157H=495 variable notused#158=496,notused#158H=497,notused#159=498,notused#159H=499 variable notused#160=500,notused#160H=501,notused#161=502,notused#161H=503 variable notused#162=504,notused#162H=505,notused#163=506,notused#163H=507 variable notused#164=508,notused#164H=509,notused#165=510,notused#165H=511 variable notused#166=512,notused#166H=513,notused#167=514,notused#167H=515 variable notused#168=516,notused#168H=517,notused#169=518,notused#169H=519 variable notused#170=520,notused#170H=521,notused#171=522,notused#171H=523 variable notused#172=524,notused#172H=525,notused#173=526,notused#173H=527 variable notused#174=528,notused#174H=529,notused#175=530,notused#175H=531 variable notused#176=532,notused#176H=533,notused#177=534,notused#177H=535 variable notused#178=536,notused#178H=537,notused#179=538,notused#179H=539 variable notused#180=540,notused#180H=541,notused#181=542,notused#181H=543 variable notused#182=544,notused#182H=545,notused#183=546,notused#183H=547 variable notused#184=548,notused#184H=549,notused#185=550,notused#185H=551 variable notused#186=552,notused#186H=553,notused#187=554,notused#187H=555 variable notused#188=556,notused#188H=557,notused#189=558,notused#189H=559 variable notused#190=560,notused#190H=561,notused#191=562,notused#191H=563 variable notused#192=564,notused#192H=565,notused#193=566,notused#193H=567 variable notused#194=568,notused#194H=569,notused#195=570,notused#195H=571 variable notused#196=572,notused#196H=573,notused#197=574,notused#197H=575 variable notused#198=576,notused#198H=577,notused#199=578,notused#199H=579 variable notused#200=580,notused#200H=581,notused#201=582,notused#201H=583 variable notused#202=584,notused#202H=585,notused#203=586,notused#203H=587 variable notused#204=588,notused#204H=589,notused#205=590,notused#205H=591 variable notused#206=592,notused#206H=593,notused#207=594,notused#207H=595 variable notused#208=596,notused#208H=597,notused#209=598,notused#209H=599 variable notused#210=600,notused#210H=601,notused#211=602,notused#211H=603 variable notused#212=604,notused#212H=605,notused#213=606,notused#213H=607 variable notused#214=608,notused#214H=609,notused#215=610,notused#215H=611 variable notused#216=612,notused#216H=613,notused#217=614,notused#217H=615 variable notused#218=616,notused#218H=617,notused#219=618,notused#219H=619 variable notused#220=620,notused#220H=621,notused#221=622,notused#221H=623 variable notused#222=624,notused#222H=625,notused#223=626,notused#223H=627 variable notused#224=628,notused#224H=629,notused#225=630,notused#225H=631 variable notused#226=632,notused#226H=633,notused#227=634,notused#227H=635 variable notused#228=636,notused#228H=637,notused#229=638,notused#229H=639 variable notused#230=640,notused#230H=641,notused#231=642,notused#231H=643 variable notused#232=644,notused#232H=645,notused#233=646,notused#233H=647 variable notused#234=648,notused#234H=649,notused#235=650,notused#235H=651 variable notused#236=652,notused#236H=653,notused#237=654,notused#237H=655 variable notused#238=656,notused#238H=657,notused#239=658,notused#239H=659 variable notused#240=660,notused#240H=661,notused#241=662,notused#241H=663 variable notused#242=664,notused#242H=665,notused#243=666,notused#243H=667 variable notused#244=668,notused#244H=669,notused#245=670,notused#245H=671 variable notused#246=672,notused#246H=673,notused#247=674,notused#247H=675 variable notused#248=676,notused#248H=677,notused#249=678,notused#249H=679 variable notused#250=680,notused#250H=681,notused#251=682,notused#251H=683 variable notused#252=684,notused#252H=685,notused#253=686,notused#253H=687 variable notused#254=688,notused#254H=689,notused#255=690,notused#255H=691 Vels = 692 VelsH = 693 variable Vels#0=692,Vels#0H=693,Vels#1=694,Vels#1H=695 variable Vels#2=696,Vels#2H=697,Vels#3=698,Vels#3H=699 variable Vels#4=700,Vels#4H=701,Vels#5=702,Vels#5H=703 variable Vels#6=704,Vels#6H=705,Vels#7=706,Vels#7H=707 variable Vels#8=708,Vels#8H=709,Vels#9=710,Vels#9H=711 variable Vels#10=712,Vels#10H=713,Vels#11=714,Vels#11H=715 variable Vels#12=716,Vels#12H=717,Vels#13=718,Vels#13H=719 variable Vels#14=720,Vels#14H=721,Vels#15=722,Vels#15H=723 variable Vels#16=724,Vels#16H=725,Vels#17=726,Vels#17H=727 variable Vels#18=728,Vels#18H=729,Vels#19=730,Vels#19H=731 variable Vels#20=732,Vels#20H=733,Vels#21=734,Vels#21H=735 variable Vels#22=736,Vels#22H=737,Vels#23=738,Vels#23H=739 variable Vels#24=740,Vels#24H=741,Vels#25=742,Vels#25H=743 variable Vels#26=744,Vels#26H=745,Vels#27=746,Vels#27H=747 variable Vels#28=748,Vels#28H=749,Vels#29=750,Vels#29H=751 variable Vels#30=752,Vels#30H=753,Vels#31=754,Vels#31H=755 variable Vels#32=756,Vels#32H=757,Vels#33=758,Vels#33H=759 variable Vels#34=760,Vels#34H=761,Vels#35=762,Vels#35H=763 variable Vels#36=764,Vels#36H=765,Vels#37=766,Vels#37H=767 variable Vels#38=768,Vels#38H=769,Vels#39=770,Vels#39H=771 variable Vels#40=772,Vels#40H=773,Vels#41=774,Vels#41H=775 variable Vels#42=776,Vels#42H=777,Vels#43=778,Vels#43H=779 variable Vels#44=780,Vels#44H=781,Vels#45=782,Vels#45H=783 variable Vels#46=784,Vels#46H=785,Vels#47=786,Vels#47H=787 variable Vels#48=788,Vels#48H=789,Vels#49=790,Vels#49H=791 variable Vels#50=792,Vels#50H=793,Vels#51=794,Vels#51H=795 variable Vels#52=796,Vels#52H=797,Vels#53=798,Vels#53H=799 variable Vels#54=800,Vels#54H=801,Vels#55=802,Vels#55H=803 variable Vels#56=804,Vels#56H=805,Vels#57=806,Vels#57H=807 variable Vels#58=808,Vels#58H=809,Vels#59=810,Vels#59H=811 variable Vels#60=812,Vels#60H=813,Vels#61=814,Vels#61H=815 variable Vels#62=816,Vels#62H=817,Vels#63=818,Vels#63H=819 variable Vels#64=820,Vels#64H=821,Vels#65=822,Vels#65H=823 variable Vels#66=824,Vels#66H=825,Vels#67=826,Vels#67H=827 variable Vels#68=828,Vels#68H=829,Vels#69=830,Vels#69H=831 variable Vels#70=832,Vels#70H=833,Vels#71=834,Vels#71H=835 variable Vels#72=836,Vels#72H=837,Vels#73=838,Vels#73H=839 variable Vels#74=840,Vels#74H=841,Vels#75=842,Vels#75H=843 variable Vels#76=844,Vels#76H=845,Vels#77=846,Vels#77H=847 variable Vels#78=848,Vels#78H=849,Vels#79=850,Vels#79H=851 variable Vels#80=852,Vels#80H=853,Vels#81=854,Vels#81H=855 variable Vels#82=856,Vels#82H=857,Vels#83=858,Vels#83H=859 variable Vels#84=860,Vels#84H=861,Vels#85=862,Vels#85H=863 variable Vels#86=864,Vels#86H=865,Vels#87=866,Vels#87H=867 variable Vels#88=868,Vels#88H=869,Vels#89=870,Vels#89H=871 variable Vels#90=872,Vels#90H=873,Vels#91=874,Vels#91H=875 variable Vels#92=876,Vels#92H=877,Vels#93=878,Vels#93H=879 variable Vels#94=880,Vels#94H=881,Vels#95=882,Vels#95H=883 variable Vels#96=884,Vels#96H=885,Vels#97=886,Vels#97H=887 variable Vels#98=888,Vels#98H=889,Vels#99=890,Vels#99H=891 variable Vels#100=892,Vels#100H=893,Vels#101=894,Vels#101H=895 variable Vels#102=896,Vels#102H=897,Vels#103=898,Vels#103H=899 variable Vels#104=900,Vels#104H=901,Vels#105=902,Vels#105H=903 variable Vels#106=904,Vels#106H=905,Vels#107=906,Vels#107H=907 variable Vels#108=908,Vels#108H=909,Vels#109=910,Vels#109H=911 variable Vels#110=912,Vels#110H=913,Vels#111=914,Vels#111H=915 variable Vels#112=916,Vels#112H=917,Vels#113=918,Vels#113H=919 variable Vels#114=920,Vels#114H=921,Vels#115=922,Vels#115H=923 variable Vels#116=924,Vels#116H=925,Vels#117=926,Vels#117H=927 variable Vels#118=928,Vels#118H=929,Vels#119=930,Vels#119H=931 variable Vels#120=932,Vels#120H=933,Vels#121=934,Vels#121H=935 variable Vels#122=936,Vels#122H=937,Vels#123=938,Vels#123H=939 variable Vels#124=940,Vels#124H=941,Vels#125=942,Vels#125H=943 variable Vels#126=944,Vels#126H=945,Vels#127=946,Vels#127H=947 Dur = 948 DurH = 949 variable Dur#0=948,Dur#0H=949,Dur#1=950,Dur#1H=951 variable Dur#2=952,Dur#2H=953,Dur#3=954,Dur#3H=955 variable Dur#4=956,Dur#4H=957,Dur#5=958,Dur#5H=959 variable Dur#6=960,Dur#6H=961,Dur#7=962,Dur#7H=963 variable Dur#8=964,Dur#8H=965,Dur#9=966,Dur#9H=967 variable Dur#10=968,Dur#10H=969,Dur#11=970,Dur#11H=971 variable Dur#12=972,Dur#12H=973,Dur#13=974,Dur#13H=975 variable Dur#14=976,Dur#14H=977,Dur#15=978,Dur#15H=979 variable Dur#16=980,Dur#16H=981,Dur#17=982,Dur#17H=983 variable Dur#18=984,Dur#18H=985,Dur#19=986,Dur#19H=987 variable Dur#20=988,Dur#20H=989,Dur#21=990,Dur#21H=991 variable Dur#22=992,Dur#22H=993,Dur#23=994,Dur#23H=995 variable Dur#24=996,Dur#24H=997,Dur#25=998,Dur#25H=999 variable Dur#26=1000,Dur#26H=1001,Dur#27=1002,Dur#27H=1003 variable Dur#28=1004,Dur#28H=1005,Dur#29=1006,Dur#29H=1007 variable Dur#30=1008,Dur#30H=1009,Dur#31=1010,Dur#31H=1011 variable Dur#32=1012,Dur#32H=1013,Dur#33=1014,Dur#33H=1015 variable Dur#34=1016,Dur#34H=1017,Dur#35=1018,Dur#35H=1019 variable Dur#36=1020,Dur#36H=1021,Dur#37=1022,Dur#37H=1023 variable Dur#38=1024,Dur#38H=1025,Dur#39=1026,Dur#39H=1027 variable Dur#40=1028,Dur#40H=1029,Dur#41=1030,Dur#41H=1031 variable Dur#42=1032,Dur#42H=1033,Dur#43=1034,Dur#43H=1035 variable Dur#44=1036,Dur#44H=1037,Dur#45=1038,Dur#45H=1039 variable Dur#46=1040,Dur#46H=1041,Dur#47=1042,Dur#47H=1043 variable Dur#48=1044,Dur#48H=1045,Dur#49=1046,Dur#49H=1047 variable Dur#50=1048,Dur#50H=1049,Dur#51=1050,Dur#51H=1051 variable Dur#52=1052,Dur#52H=1053,Dur#53=1054,Dur#53H=1055 variable Dur#54=1056,Dur#54H=1057,Dur#55=1058,Dur#55H=1059 variable Dur#56=1060,Dur#56H=1061,Dur#57=1062,Dur#57H=1063 variable Dur#58=1064,Dur#58H=1065,Dur#59=1066,Dur#59H=1067 variable Dur#60=1068,Dur#60H=1069,Dur#61=1070,Dur#61H=1071 variable Dur#62=1072,Dur#62H=1073,Dur#63=1074,Dur#63H=1075 variable Dur#64=1076,Dur#64H=1077,Dur#65=1078,Dur#65H=1079 variable Dur#66=1080,Dur#66H=1081,Dur#67=1082,Dur#67H=1083 variable Dur#68=1084,Dur#68H=1085,Dur#69=1086,Dur#69H=1087 variable Dur#70=1088,Dur#70H=1089,Dur#71=1090,Dur#71H=1091 variable Dur#72=1092,Dur#72H=1093,Dur#73=1094,Dur#73H=1095 variable Dur#74=1096,Dur#74H=1097,Dur#75=1098,Dur#75H=1099 variable Dur#76=1100,Dur#76H=1101,Dur#77=1102,Dur#77H=1103 variable Dur#78=1104,Dur#78H=1105,Dur#79=1106,Dur#79H=1107 variable Dur#80=1108,Dur#80H=1109,Dur#81=1110,Dur#81H=1111 variable Dur#82=1112,Dur#82H=1113,Dur#83=1114,Dur#83H=1115 variable Dur#84=1116,Dur#84H=1117,Dur#85=1118,Dur#85H=1119 variable Dur#86=1120,Dur#86H=1121,Dur#87=1122,Dur#87H=1123 variable Dur#88=1124,Dur#88H=1125,Dur#89=1126,Dur#89H=1127 variable Dur#90=1128,Dur#90H=1129,Dur#91=1130,Dur#91H=1131 variable Dur#92=1132,Dur#92H=1133,Dur#93=1134,Dur#93H=1135 variable Dur#94=1136,Dur#94H=1137,Dur#95=1138,Dur#95H=1139 variable Dur#96=1140,Dur#96H=1141,Dur#97=1142,Dur#97H=1143 variable Dur#98=1144,Dur#98H=1145,Dur#99=1146,Dur#99H=1147 variable Dur#100=1148,Dur#100H=1149,Dur#101=1150,Dur#101H=1151 variable Dur#102=1152,Dur#102H=1153,Dur#103=1154,Dur#103H=1155 variable Dur#104=1156,Dur#104H=1157,Dur#105=1158,Dur#105H=1159 variable Dur#106=1160,Dur#106H=1161,Dur#107=1162,Dur#107H=1163 variable Dur#108=1164,Dur#108H=1165,Dur#109=1166,Dur#109H=1167 variable Dur#110=1168,Dur#110H=1169,Dur#111=1170,Dur#111H=1171 variable Dur#112=1172,Dur#112H=1173,Dur#113=1174,Dur#113H=1175 variable Dur#114=1176,Dur#114H=1177,Dur#115=1178,Dur#115H=1179 variable Dur#116=1180,Dur#116H=1181,Dur#117=1182,Dur#117H=1183 variable Dur#118=1184,Dur#118H=1185,Dur#119=1186,Dur#119H=1187 variable Dur#120=1188,Dur#120H=1189,Dur#121=1190,Dur#121H=1191 variable Dur#122=1192,Dur#122H=1193,Dur#123=1194,Dur#123H=1195 variable Dur#124=1196,Dur#124H=1197,Dur#125=1198,Dur#125H=1199 variable Dur#126=1200,Dur#126H=1201,Dur#127=1202,Dur#127H=1203 Ringbuffer = 256 variable Ringbuffer#0=256,Ringbuffer#1=257,Ringbuffer#2=258,Ringbuffer#3=259 variable Ringbuffer#4=260,Ringbuffer#5=261,Ringbuffer#6=262,Ringbuffer#7=263 variable Ringbuffer#8=264,Ringbuffer#9=265,Ringbuffer#10=266,Ringbuffer#11=267 variable Ringbuffer#12=268,Ringbuffer#13=269,Ringbuffer#14=270,Ringbuffer#15=271 variable Ringbuffer#16=272,Ringbuffer#17=273,Ringbuffer#18=274,Ringbuffer#19=275 variable Ringbuffer#20=276,Ringbuffer#21=277,Ringbuffer#22=278,Ringbuffer#23=279 variable Ringbuffer#24=280,Ringbuffer#25=281,Ringbuffer#26=282,Ringbuffer#27=283 variable Ringbuffer#28=284,Ringbuffer#29=285,Ringbuffer#30=286,Ringbuffer#31=287 variable Ringbuffer#32=288,Ringbuffer#33=289,Ringbuffer#34=290,Ringbuffer#35=291 variable Ringbuffer#36=292,Ringbuffer#37=293,Ringbuffer#38=294,Ringbuffer#39=295 variable Ringbuffer#40=296,Ringbuffer#41=297,Ringbuffer#42=298,Ringbuffer#43=299 variable Ringbuffer#44=300,Ringbuffer#45=301,Ringbuffer#46=302,Ringbuffer#47=303 variable Ringbuffer#48=304,Ringbuffer#49=305,Ringbuffer#50=306,Ringbuffer#51=307 variable Ringbuffer#52=308,Ringbuffer#53=309,Ringbuffer#54=310,Ringbuffer#55=311 variable Ringbuffer#56=312,Ringbuffer#57=313,Ringbuffer#58=314,Ringbuffer#59=315 variable Ringbuffer#60=316,Ringbuffer#61=317,Ringbuffer#62=318,Ringbuffer#63=319 variable Ringbuffer#64=320,Ringbuffer#65=321,Ringbuffer#66=322,Ringbuffer#67=323 variable Ringbuffer#68=324,Ringbuffer#69=325,Ringbuffer#70=326,Ringbuffer#71=327 variable Ringbuffer#72=328,Ringbuffer#73=329,Ringbuffer#74=330,Ringbuffer#75=331 variable Ringbuffer#76=332,Ringbuffer#77=333,Ringbuffer#78=334,Ringbuffer#79=335 variable Ringbuffer#80=336,Ringbuffer#81=337,Ringbuffer#82=338,Ringbuffer#83=339 variable Ringbuffer#84=340,Ringbuffer#85=341,Ringbuffer#86=342,Ringbuffer#87=343 variable Ringbuffer#88=344,Ringbuffer#89=345,Ringbuffer#90=346,Ringbuffer#91=347 variable Ringbuffer#92=348,Ringbuffer#93=349,Ringbuffer#94=350,Ringbuffer#95=351 variable Ringbuffer#96=352,Ringbuffer#97=353,Ringbuffer#98=354,Ringbuffer#99=355 variable Ringbuffer#100=356,Ringbuffer#101=357,Ringbuffer#102=358,Ringbuffer#103=359 variable Ringbuffer#104=360,Ringbuffer#105=361,Ringbuffer#106=362,Ringbuffer#107=363 variable Ringbuffer#108=364,Ringbuffer#109=365,Ringbuffer#110=366,Ringbuffer#111=367 variable Ringbuffer#112=368,Ringbuffer#113=369,Ringbuffer#114=370,Ringbuffer#115=371 variable Ringbuffer#116=372,Ringbuffer#117=373,Ringbuffer#118=374,Ringbuffer#119=375 variable Ringbuffer#120=376,Ringbuffer#121=377,Ringbuffer#122=378,Ringbuffer#123=379 variable Ringbuffer#124=380,Ringbuffer#125=381,Ringbuffer#126=382,Ringbuffer#127=383 variable Ringbuffer#128=384,Ringbuffer#129=385,Ringbuffer#130=386,Ringbuffer#131=387 variable Ringbuffer#132=388,Ringbuffer#133=389,Ringbuffer#134=390,Ringbuffer#135=391 variable Ringbuffer#136=392,Ringbuffer#137=393,Ringbuffer#138=394,Ringbuffer#139=395 variable Ringbuffer#140=396,Ringbuffer#141=397,Ringbuffer#142=398,Ringbuffer#143=399 variable Ringbuffer#144=400,Ringbuffer#145=401,Ringbuffer#146=402,Ringbuffer#147=403 variable Ringbuffer#148=404,Ringbuffer#149=405,Ringbuffer#150=406,Ringbuffer#151=407 variable Ringbuffer#152=408,Ringbuffer#153=409,Ringbuffer#154=410,Ringbuffer#155=411 variable Ringbuffer#156=412,Ringbuffer#157=413,Ringbuffer#158=414,Ringbuffer#159=415 variable Ringbuffer#160=416,Ringbuffer#161=417,Ringbuffer#162=418,Ringbuffer#163=419 variable Ringbuffer#164=420,Ringbuffer#165=421,Ringbuffer#166=422,Ringbuffer#167=423 variable Ringbuffer#168=424,Ringbuffer#169=425,Ringbuffer#170=426,Ringbuffer#171=427 variable Ringbuffer#172=428,Ringbuffer#173=429,Ringbuffer#174=430,Ringbuffer#175=431 variable Ringbuffer#176=432,Ringbuffer#177=433,Ringbuffer#178=434,Ringbuffer#179=435 variable Ringbuffer#180=436,Ringbuffer#181=437,Ringbuffer#182=438,Ringbuffer#183=439 variable Ringbuffer#184=440,Ringbuffer#185=441,Ringbuffer#186=442,Ringbuffer#187=443 variable Ringbuffer#188=444,Ringbuffer#189=445,Ringbuffer#190=446,Ringbuffer#191=447 variable Ringbuffer#192=448,Ringbuffer#193=449,Ringbuffer#194=450,Ringbuffer#195=451 variable Ringbuffer#196=452,Ringbuffer#197=453,Ringbuffer#198=454,Ringbuffer#199=455 variable Ringbuffer#200=456,Ringbuffer#201=457,Ringbuffer#202=458,Ringbuffer#203=459 variable Ringbuffer#204=460,Ringbuffer#205=461,Ringbuffer#206=462,Ringbuffer#207=463 variable Ringbuffer#208=464,Ringbuffer#209=465,Ringbuffer#210=466,Ringbuffer#211=467 variable Ringbuffer#212=468,Ringbuffer#213=469,Ringbuffer#214=470,Ringbuffer#215=471 variable Ringbuffer#216=472,Ringbuffer#217=473,Ringbuffer#218=474,Ringbuffer#219=475 variable Ringbuffer#220=476,Ringbuffer#221=477,Ringbuffer#222=478,Ringbuffer#223=479 variable Ringbuffer#224=480,Ringbuffer#225=481,Ringbuffer#226=482,Ringbuffer#227=483 variable Ringbuffer#228=484,Ringbuffer#229=485,Ringbuffer#230=486,Ringbuffer#231=487 variable Ringbuffer#232=488,Ringbuffer#233=489,Ringbuffer#234=490,Ringbuffer#235=491 variable Ringbuffer#236=492,Ringbuffer#237=493,Ringbuffer#238=494,Ringbuffer#239=495 variable Ringbuffer#240=496,Ringbuffer#241=497,Ringbuffer#242=498,Ringbuffer#243=499 variable Ringbuffer#244=500,Ringbuffer#245=501,Ringbuffer#246=502,Ringbuffer#247=503 variable Ringbuffer#248=504,Ringbuffer#249=505,Ringbuffer#250=506,Ringbuffer#251=507 variable Ringbuffer#252=508,Ringbuffer#253=509,Ringbuffer#254=510,Ringbuffer#255=511 _Low__Context_Store = 1204 variable _Low__Context_Store#0=1204,_Low__Context_Store#1=1205,_Low__Context_Store#2=1206 #define CntLw TMR0L #define CntLwH TMR0LH #define Tim3 TMR3L #define Tim3H TMR3LH #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 StBit Bytein,7 #define maxtim timeHHH,7 #define tg tog,0 #define __OPTIMISER_LEVEL 3 #define __XTAL 40 #define PWMminF 2442 #define PWMminFH 9 #define Midichannel 5 #define NoteOff_Status 133 #define NoteOn_Status 149 #define Keypres_Status 165 #define Control_Status 181 #define ProgChange_Status 197 #define Aftertouch_Status 213 #define Pitchbend_Status 229 #define note0 72 #define note1 73 #define note2 74 #define note3 75 #define note4 76 #define note5 77 #define note6 78 #define note7 79 #define note8 80 #define note9 81 #define note10 82 #define note11 83 #define note12 84 #define note13 85 #define note14 86 #define note15 87 #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 FPS@32 movlw 128 xorwf PP_BARGH,F,0 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 FPM@32 movf PP_AARGH,W,0 movwf 28,0 xorwf PP_BARGH,W,0 movwf _SIGN,0 movf PP_AARG,W,0 btfss 4056,2,0 movf PP_BARG,W,0 bz FP@MUL_RES0 addwf PP_AARG,F,0 movlw 126 bnc FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_2 bra FP@MUL_OVERFLOW FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_UNDERFLOW FP@MUL_2 movff PP_AARGHHH,26 movff PP_AARGHH,27 bsf 28,7,0 bsf PP_BARGH,7,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 movlw 24 movwf _FP_TEMP,0 FP@MUL_3 rrcf 28,F,0 rrcf 27,F,0 rrcf 26,F,0 bnc FP@MUL_4 movf PP_BARGHHH,W,0 addwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 addwfc PP_AARGHH,F,0 movf PP_BARGH,W,0 addwfc PP_AARGH,F,0 FP@MUL_4 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 decfsz _FP_TEMP,F,0 bra FP@MUL_3 btfsc PP_AARGH,7,0 bra FP@MUL_5 rlcf PP_AARGHHH,F,0 rlcf PP_AARGHH,F,0 rlcf PP_AARGH,F,0 movf PP_AARG,F,0 bz FP@MUL_UNDERFLOW decf PP_AARG,F,0 rlcf 28,W,0 FP@MUL_5 bnc FP@MUL_SET_SIGN incfsz PP_AARGHHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGH,F,0 bra FP@MUL_SET_SIGN bsf 4056,0,0 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 incfsz PP_AARG,F,0 bra FP@MUL_SET_SIGN bra FP@MUL_OVERFLOW FP@MUL_UNDERFLOW bsf _FP_FLAGS,2,0 FP@MUL_RES0 clrf PP_AARG,0 bra FP@MUL_MANTISSA FP@MUL_OVERFLOW bsf _FP_FLAGS,1,0 setf PP_AARG,0 FP@MUL_MANTISSA clrf PP_AARGHHH,0 clrf PP_AARGHH,0 movlw 128 movwf PP_AARGH,0 FP@MUL_SET_SIGN btfss _SIGN,7,0 bcf PP_AARGH,7,0 movf PP_AARGHHH,W,0 return _FL32_TO_INT32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W,0 movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH,0 rlcf PP_AARGHHH,F,0 rrcf _FP_TEMP,F,0 rrcf PP_AARGHHH,F,0 clrf _FP_FLAGS,0 rlcf PP_AARGHHH,F,0 rlcf _FP_TEMP,F,0 bnc _FL32INT__UNPKA1 bsf _FP_FLAGS,2,0 btg _FP_FLAGS,7,0 _FL32INT__UNPKA1 bnz _FL32INT__UNPKANZ bsf _FP_FLAGS,0,0 clrf _FP_TEMP,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKANZ incf _FP_TEMP,W,0 bz _FL32INT__UNPKA2 bsf 4056,0,0 rrcf PP_AARGHHH,F,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKA2 bcf 4056,0,0 rrcf PP_AARGHHH,F,0 bnz _FL32INT__UNPKNAN bsf _FP_FLAGS,1,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKNAN bsf _FP_FLAGS,3,0 _FL32INTUNP__EXIT btfsc _FP_FLAGS,3,0 bra _FL32INT__MAXPOS btfss _FP_FLAGS,1,0 bra _FL32INT__NOTINF _FL32INT__MAX btfsc _FP_FLAGS,2,0 bra _FL32INT__MAXNEG _FL32INT__MAXPOS movlw 127 movwf PP_AARGHHH,0 movlw 255 _FL32INT__WR123 movwf PP_AARGHH,0 movwf PP_AARGH,0 movwf PP_AARG,0 bra _FL32INT__EXIT _FL32INT__MAXNEG movlw 128 movwf PP_AARGHHH,0 bra _FL32INT__WRZ123 _FL32INT__ZERO clrf PP_AARGHHH,0 _FL32INT__WRZ123 movlw 0 bra _FL32INT__WR123 _FL32INT__NOTINF btfsc _FP_FLAGS,0,0 bra _FL32INT__ZERO clrf PP_AARG,0 movlw 159 cpfslt _FP_TEMP,0 bra _FL32INT__MAX movlw 126 cpfsgt _FP_TEMP,0 bra _FL32INT__ZERO _FL32INT__LOOP movlw 158 subwf _FP_TEMP,W,0 bz _FL32INT__LOOPEXIT bcf 4056,0,0 rrcf PP_AARGHHH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGH,F,0 rrcf PP_AARG,F,0 incf _FP_TEMP,F,0 bra _FL32INT__LOOP _FL32INT__LOOPEXIT btfss _FP_FLAGS,2,0 bra _FL32INT__EXIT bsf 4056,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 btfss PP_AARGHHH,7,0 bra _FL32INT__ZERO _FL32INT__EXIT movf PP_AARG,W,0 return _UNS_INT08_TOFL32 movwf PP_AARG,0 clrf PP_AARGH,0 _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 $ ; PSCH.BAS F2_SOF equ $ ; 18F2620.INC F2_EOF equ $ ; 18F2620.INC F1_000050 equ $ ; IN [PSCH.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000051 equ $ ; IN [PSCH.BAS] TRISA = %11000000 movlw 192 movwf TRISA,0 F1_000052 equ $ ; IN [PSCH.BAS] TRISB = %00000000 clrf TRISB,0 F1_000053 equ $ ; IN [PSCH.BAS] TRISC = %11000000 movwf TRISC,0 F1_000090 equ $ ; IN [PSCH.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F3_SOF equ $ ; PSCH_IRQ.INC F3_000065 equ $ ; IN [PSCH_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000077 equ $ ; IN [PSCH_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000078 equ $ ; IN [PSCH_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000084 equ $ ; IN [PSCH_IRQ.INC] BTG PORTC,0 btg PORTC,0 F3_000085 equ $ ; IN [PSCH_IRQ.INC] RETFIE FAST retfie 1 F3_000086 equ $ ; IN [PSCH_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000088 equ $ ; IN [PSCH_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000089 equ $ ; IN [PSCH_IRQ.INC] MOVLW 6 movlw 6 F3_000090 equ $ ; IN [PSCH_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000091 equ $ ; IN [PSCH_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000092 equ $ ; IN [PSCH_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000093 equ $ ; IN [PSCH_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000103 equ $ ; IN [PSCH_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,256 F3_000104 equ $ ; IN [PSCH_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 [PSCH_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000106 equ $ ; IN [PSCH_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000108 equ $ ; IN [PSCH_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000110 equ $ ; IN [PSCH_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000111 equ $ ; IN [PSCH_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000112 equ $ ; IN [PSCH_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000113 equ $ ; IN [PSCH_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000114 equ $ ; IN [PSCH_IRQ.INC] ENDIF _LBL__5 F3_000115 equ $ ; IN [PSCH_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000120 equ $ ; IN [PSCH_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000121 equ $ ; IN [PSCH_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000122 equ $ ; IN [PSCH_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000123 equ $ ; IN [PSCH_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,256 F3_000124 equ $ ; IN [PSCH_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 [PSCH_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000126 equ $ ; IN [PSCH_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000127 equ $ ; IN [PSCH_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000128 equ $ ; IN [PSCH_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000129 equ $ ; IN [PSCH_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000130 equ $ ; IN [PSCH_IRQ.INC] ELSE F3_000131 equ $ ; IN [PSCH_IRQ.INC] WREG = 255 setf WREG,0 F3_000132 equ $ ; IN [PSCH_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000133 equ $ ; IN [PSCH_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000134 equ $ ; IN [PSCH_IRQ.INC] RET return 0 F3_000135 equ $ ; IN [PSCH_IRQ.INC] ENDIF _LBL__8 F3_000136 equ $ ; IN [PSCH_IRQ.INC] RET return 0 _Init_Usart F3_000152 equ $ ; IN [PSCH_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000153 equ $ ; IN [PSCH_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000154 equ $ ; IN [PSCH_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000156 equ $ ; IN [PSCH_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000158 equ $ ; IN [PSCH_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000159 equ $ ; IN [PSCH_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000161 equ $ ; IN [PSCH_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000176 equ $ ; IN [PSCH_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000177 equ $ ; IN [PSCH_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 [PSCH_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000179 equ $ ; IN [PSCH_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000180 equ $ ; IN [PSCH_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000181 equ $ ; IN [PSCH_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000189 equ $ ; IN [PSCH_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 [PSCH_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000196 equ $ ; IN [PSCH_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 [PSCH_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000209 equ $ ; IN [PSCH_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000210 equ $ ; IN [PSCH_IRQ.INC] MOVWF TXREG movwf TXREG F3_000211 equ $ ; IN [PSCH_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; PSCH_IRQ.INC MAIN F1_000196 equ $ ; IN [PSCH.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000197 equ $ ; IN [PSCH.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000198 equ $ ; IN [PSCH.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000199 equ $ ; IN [PSCH.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000200 equ $ ; IN [PSCH.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000201 equ $ ; IN [PSCH.BAS] LOW PORTB.7 bcf TRISB,7,0 bcf LATB,7,0 F1_000202 equ $ ; IN [PSCH.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000203 equ $ ; IN [PSCH.BAS] LOW PORTB.6 bcf TRISB,6,0 bcf LATB,6,0 F1_000204 equ $ ; IN [PSCH.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000205 equ $ ; IN [PSCH.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000206 equ $ ; IN [PSCH.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000207 equ $ ; IN [PSCH.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000209 equ $ ; IN [PSCH.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000210 equ $ ; IN [PSCH.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000211 equ $ ; IN [PSCH.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000212 equ $ ; IN [PSCH.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000214 equ $ ; IN [PSCH.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000215 equ $ ; IN [PSCH.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000220 equ $ ; IN [PSCH.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000221 equ $ ; IN [PSCH.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000222 equ $ ; IN [PSCH.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000223 equ $ ; IN [PSCH.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000224 equ $ ; IN [PSCH.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000225 equ $ ; IN [PSCH.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_000226 equ $ ; IN [PSCH.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_000227 equ $ ; IN [PSCH.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_000228 equ $ ; IN [PSCH.BAS] CLEAR RATE8 clrf Rate8H,0 clrf Rate8,0 F1_000229 equ $ ; IN [PSCH.BAS] CLEAR RATE9 clrf Rate9H,0 clrf Rate9,0 F1_000230 equ $ ; IN [PSCH.BAS] CLEAR RATE10 clrf Rate10H,0 clrf Rate10,0 F1_000231 equ $ ; IN [PSCH.BAS] CLEAR RATE11 clrf Rate11H,0 clrf Rate11,0 F1_000232 equ $ ; IN [PSCH.BAS] CLEAR PRES0 clrf Pres0,0 F1_000233 equ $ ; IN [PSCH.BAS] CLEAR PRES1 clrf Pres1,0 F1_000234 equ $ ; IN [PSCH.BAS] CLEAR PRES2 clrf Pres2,0 F1_000235 equ $ ; IN [PSCH.BAS] CLEAR PRES3 clrf Pres3,0 F1_000236 equ $ ; IN [PSCH.BAS] CLEAR PRES4 clrf Pres4,0 F1_000237 equ $ ; IN [PSCH.BAS] CLEAR PRES5 clrf Pres5,0 F1_000238 equ $ ; IN [PSCH.BAS] CLEAR PRES6 clrf Pres6,0 F1_000239 equ $ ; IN [PSCH.BAS] CLEAR PRES7 clrf Pres7,0 F1_000240 equ $ ; IN [PSCH.BAS] CLEAR PRES8 clrf Pres8,1 F1_000241 equ $ ; IN [PSCH.BAS] CLEAR PRES9 clrf Pres9,1 F1_000242 equ $ ; IN [PSCH.BAS] CLEAR PRES10 clrf Pres10,1 F1_000243 equ $ ; IN [PSCH.BAS] CLEAR PRES11 clrf Pres11,1 F1_000244 equ $ ; IN [PSCH.BAS] CLEAR CC66 clrf CC66,0 F1_000245 equ $ ; IN [PSCH.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000246 equ $ ; IN [PSCH.BAS] GOSUB VELS_LOOKUP call Vels_Lookup F1_000247 equ $ ; IN [PSCH.BAS] CLEAR NOTES clrf NotesH,0 clrf Notes,0 F1_000248 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS clrf VelFlagsH,0 clrf VelFlags,0 F1_000249 equ $ ; IN [PSCH.BAS] LOW PORTB clrf TRISB,0 clrf LATB,0 F1_000253 equ $ ; IN [PSCH.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000255 equ $ ; IN [PSCH.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000265 equ $ ; IN [PSCH.BAS] CLEAR T1CON clrf T1CON,0 F1_000266 equ $ ; IN [PSCH.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000267 equ $ ; IN [PSCH.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000268 equ $ ; IN [PSCH.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000279 equ $ ; IN [PSCH.BAS] CLEAR T3CON clrf T3CON,0 F1_000280 equ $ ; IN [PSCH.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000283 equ $ ; IN [PSCH.BAS] TIM3 = 65506 setf TMR3LH,0 movlw 226 movwf TMR3L,0 F1_000296 equ $ ; IN [PSCH.BAS] SET TIMVALS lfsr 0,TimVals movlw 48 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000297 equ $ ; IN [PSCH.BAS] SET IDX setf idx,0 F1_000298 equ $ ; IN [PSCH.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000301 equ $ ; IN [PSCH.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 LOOP F1_000305 equ $ ; IN [PSCH.BAS] INC T incf _T,F,0 F1_000306 equ $ ; IN [PSCH.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_000307 equ $ ; IN [PSCH.BAS] BTG TG btg tog,0 F1_000308 equ $ ; IN [PSCH.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000309 equ $ ; IN [PSCH.BAS] ENDIF _LBL__11 F1_000313 equ $ ; IN [PSCH.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000316 equ $ ; IN [PSCH.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 182 subwf Bytein,W,0 bnc _LBL__13 F1_000317 equ $ ; IN [PSCH.BAS] IF BYTEIN < 254 THEN CLEAR STATUSBYTE movlw 254 subwf Bytein,W,0 btfss STATUS,0,0 clrf statusbyte,0 _LBL__15 F1_000318 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000319 equ $ ; IN [PSCH.BAS] ENDIF _LBL__13 F1_000320 equ $ ; IN [PSCH.BAS] IF STBIT = 1 THEN btfss Bytein,7,0 bra _LBL__17 F1_000322 equ $ ; IN [PSCH.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000323 equ $ ; IN [PSCH.BAS] SELECT BYTEIN F1_000324 equ $ ; IN [PSCH.BAS] CASE NOTEOFF_STATUS movlw 133 subwf Bytein,W,0 bnz _LBL__19 F1_000325 equ $ ; IN [PSCH.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000326 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 bra _LBL__18 _LBL__19 F1_000327 equ $ ; IN [PSCH.BAS] CASE NOTEON_STATUS movlw 149 subwf Bytein,W,0 bnz _LBL__22 F1_000328 equ $ ; IN [PSCH.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000329 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 bra _LBL__18 _LBL__22 F1_000330 equ $ ; IN [PSCH.BAS] CASE KEYPRES_STATUS movlw 165 subwf Bytein,W,0 bnz _LBL__24 F1_000331 equ $ ; IN [PSCH.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000332 equ $ ; IN [PSCH.BAS] SET NOTEPRES setf notePres,0 bra _LBL__18 _LBL__24 F1_000333 equ $ ; IN [PSCH.BAS] CASE CONTROL_STATUS movlw 181 subwf Bytein,W,0 bnz _LBL__26 F1_000334 equ $ ; IN [PSCH.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000335 equ $ ; IN [PSCH.BAS] SET CTRL setf Ctrl,0 F1_000346 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__26 _LBL__18 F1_000347 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__27 _LBL__17 F1_000348 equ $ ; IN [PSCH.BAS] ELSE F1_000349 equ $ ; IN [PSCH.BAS] SELECT STATUSBYTE F1_000350 equ $ ; IN [PSCH.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__29 F1_000351 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__28 _LBL__29 F1_000352 equ $ ; IN [PSCH.BAS] CASE NOTEOFF_STATUS movlw 133 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__32 F1_000353 equ $ ; IN [PSCH.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__34 F1_000354 equ $ ; IN [PSCH.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit F1_000355 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__35 _LBL__34 F1_000356 equ $ ; IN [PSCH.BAS] ELSE F1_000358 equ $ ; IN [PSCH.BAS] SELECT NOTEUIT F1_000359 equ $ ; IN [PSCH.BAS] CASE NOTE0 movlw 72 subwf noteUit,W,0 bnz _LBL__37 F1_000360 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000361 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.0 bcf VelFlags,0,0 F1_000362 equ $ ; IN [PSCH.BAS] CLEAR NOTES.0 bcf Notes,0,0 F1_000363 equ $ ; IN [PSCH.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 bra _LBL__36 _LBL__37 F1_000364 equ $ ; IN [PSCH.BAS] CASE NOTE1 movlw 73 subwf noteUit,W,0 bnz _LBL__40 F1_000365 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000366 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.1 bcf VelFlags,1,0 F1_000367 equ $ ; IN [PSCH.BAS] CLEAR NOTES.1 bcf Notes,1,0 F1_000368 equ $ ; IN [PSCH.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 bra _LBL__36 _LBL__40 F1_000369 equ $ ; IN [PSCH.BAS] CASE NOTE2 movlw 74 subwf noteUit,W,0 bnz _LBL__42 F1_000370 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000371 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.2 bcf VelFlags,2,0 F1_000372 equ $ ; IN [PSCH.BAS] CLEAR NOTES.2 bcf Notes,2,0 F1_000373 equ $ ; IN [PSCH.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__36 _LBL__42 F1_000374 equ $ ; IN [PSCH.BAS] CASE NOTE3 movlw 75 subwf noteUit,W,0 bnz _LBL__44 F1_000375 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000376 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.3 bcf VelFlags,3,0 F1_000377 equ $ ; IN [PSCH.BAS] CLEAR NOTES.3 bcf Notes,3,0 F1_000378 equ $ ; IN [PSCH.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__36 _LBL__44 F1_000379 equ $ ; IN [PSCH.BAS] CASE NOTE4 movlw 76 subwf noteUit,W,0 bnz _LBL__46 F1_000380 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.4 bcf VelFlags,4,0 F1_000381 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000382 equ $ ; IN [PSCH.BAS] CLEAR NOTES.4 bcf Notes,4,0 F1_000383 equ $ ; IN [PSCH.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__36 _LBL__46 F1_000384 equ $ ; IN [PSCH.BAS] CASE NOTE5 movlw 77 subwf noteUit,W,0 bnz _LBL__48 F1_000385 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.5 bcf VelFlags,5,0 F1_000386 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_000387 equ $ ; IN [PSCH.BAS] CLEAR NOTES.5 bcf Notes,5,0 F1_000388 equ $ ; IN [PSCH.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__36 _LBL__48 F1_000389 equ $ ; IN [PSCH.BAS] CASE NOTE6 movlw 78 subwf noteUit,W,0 bnz _LBL__50 F1_000390 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.6 bcf VelFlags,6,0 F1_000391 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000392 equ $ ; IN [PSCH.BAS] CLEAR NOTES.6 bcf Notes,6,0 F1_000393 equ $ ; IN [PSCH.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__36 _LBL__50 F1_000394 equ $ ; IN [PSCH.BAS] CASE NOTE7 movlw 79 subwf noteUit,W,0 bnz _LBL__52 F1_000395 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.7 bcf VelFlags,7,0 F1_000396 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000397 equ $ ; IN [PSCH.BAS] CLEAR NOTES.7 bcf Notes,7,0 F1_000398 equ $ ; IN [PSCH.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__36 _LBL__52 F1_000399 equ $ ; IN [PSCH.BAS] CASE NOTE8 movlw 80 subwf noteUit,W,0 bnz _LBL__54 F1_000400 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.8 bcf VelFlagsH,0,0 F1_000401 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000402 equ $ ; IN [PSCH.BAS] CLEAR NOTES.8 bcf NotesH,0,0 F1_000403 equ $ ; IN [PSCH.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 bra _LBL__36 _LBL__54 F1_000404 equ $ ; IN [PSCH.BAS] CASE NOTE9 movlw 81 subwf noteUit,W,0 bnz _LBL__56 F1_000405 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.9 bcf VelFlagsH,1,0 F1_000406 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000407 equ $ ; IN [PSCH.BAS] CLEAR NOTES.9 bcf NotesH,1,0 F1_000408 equ $ ; IN [PSCH.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 bra _LBL__36 _LBL__56 F1_000409 equ $ ; IN [PSCH.BAS] CASE NOTE10 movlw 82 subwf noteUit,W,0 bnz _LBL__58 F1_000410 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.10 bcf VelFlagsH,2,0 F1_000411 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000412 equ $ ; IN [PSCH.BAS] CLEAR NOTES.10 bcf NotesH,2,0 F1_000413 equ $ ; IN [PSCH.BAS] SET TIMVALS[10] setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 bra _LBL__36 _LBL__58 F1_000414 equ $ ; IN [PSCH.BAS] CASE NOTE11 movlw 83 subwf noteUit,W,0 bnz _LBL__60 F1_000415 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.11 bcf VelFlagsH,3,0 F1_000416 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_000417 equ $ ; IN [PSCH.BAS] CLEAR NOTES.11 bcf NotesH,3,0 F1_000418 equ $ ; IN [PSCH.BAS] SET TIMVALS[11] setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 bra _LBL__36 _LBL__60 F1_000419 equ $ ; IN [PSCH.BAS] CASE NOTE12, 120 movlw 84 subwf noteUit,W,0 bz _LBL__61 movlw 120 subwf noteUit,W,0 bnz _LBL__62 _LBL__61 F1_000420 equ $ ; IN [PSCH.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000421 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000422 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__36 _LBL__62 F1_000423 equ $ ; IN [PSCH.BAS] CASE NOTE13, 121 movlw 85 subwf noteUit,W,0 bz _LBL__63 movlw 121 subwf noteUit,W,0 bnz _LBL__64 _LBL__63 F1_000424 equ $ ; IN [PSCH.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000425 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000426 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__36 _LBL__64 F1_000427 equ $ ; IN [PSCH.BAS] CASE NOTE14, 122 movlw 86 subwf noteUit,W,0 bz _LBL__65 movlw 122 subwf noteUit,W,0 bnz _LBL__66 _LBL__65 F1_000428 equ $ ; IN [PSCH.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000429 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000430 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__36 _LBL__66 F1_000431 equ $ ; IN [PSCH.BAS] CASE NOTE15, 123 movlw 87 subwf noteUit,W,0 bz _LBL__67 movlw 123 subwf noteUit,W,0 bnz _LBL__68 _LBL__67 F1_000432 equ $ ; IN [PSCH.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000433 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000434 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000435 equ $ ; IN [PSCH.BAS] CASE ELSE bra _LBL__70 _LBL__68 F1_000436 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000437 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000438 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__70 _LBL__36 F1_000439 equ $ ; IN [PSCH.BAS] SET NOTEUIT setf noteUit,0 F1_000440 equ $ ; IN [PSCH.BAS] GOTO RESORT goto resort F1_000441 equ $ ; IN [PSCH.BAS] ENDIF _LBL__35 goto _LBL__28 _LBL__32 F1_000443 equ $ ; IN [PSCH.BAS] CASE NOTEON_STATUS movlw 149 subwf statusbyte,W,0 btfss STATUS,2,0 goto _LBL__72 F1_000444 equ $ ; IN [PSCH.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__74 F1_000445 equ $ ; IN [PSCH.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _LBL__75 _LBL__74 F1_000446 equ $ ; IN [PSCH.BAS] ELSE F1_000447 equ $ ; IN [PSCH.BAS] VELO = BYTEIN movff Bytein,velo F1_000448 equ $ ; IN [PSCH.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _LBL__77 F1_000449 equ $ ; IN [PSCH.BAS] SELECT NOTEAAN F1_000450 equ $ ; IN [PSCH.BAS] CASE NOTE0 movlw 72 subwf noteAan,W,0 bnz _LBL__79 F1_000451 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000452 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.0 bcf VelFlags,0,0 F1_000453 equ $ ; IN [PSCH.BAS] CLEAR NOTES.0 bcf Notes,0,0 F1_000454 equ $ ; IN [PSCH.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 bra _LBL__78 _LBL__79 F1_000455 equ $ ; IN [PSCH.BAS] CASE NOTE1 movlw 73 subwf noteAan,W,0 bnz _LBL__82 F1_000456 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000457 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.1 bcf VelFlags,1,0 F1_000458 equ $ ; IN [PSCH.BAS] CLEAR NOTES.1 bcf Notes,1,0 F1_000459 equ $ ; IN [PSCH.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 bra _LBL__78 _LBL__82 F1_000460 equ $ ; IN [PSCH.BAS] CASE NOTE2 movlw 74 subwf noteAan,W,0 bnz _LBL__84 F1_000461 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000462 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.2 bcf VelFlags,2,0 F1_000463 equ $ ; IN [PSCH.BAS] CLEAR NOTES.2 bcf Notes,2,0 F1_000464 equ $ ; IN [PSCH.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__78 _LBL__84 F1_000465 equ $ ; IN [PSCH.BAS] CASE NOTE3 movlw 75 subwf noteAan,W,0 bnz _LBL__86 F1_000466 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000467 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.3 bcf VelFlags,3,0 F1_000468 equ $ ; IN [PSCH.BAS] CLEAR NOTES.3 bcf Notes,3,0 F1_000469 equ $ ; IN [PSCH.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__78 _LBL__86 F1_000470 equ $ ; IN [PSCH.BAS] CASE NOTE4 movlw 76 subwf noteAan,W,0 bnz _LBL__88 F1_000471 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.4 bcf VelFlags,4,0 F1_000472 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000473 equ $ ; IN [PSCH.BAS] CLEAR NOTES.4 bcf Notes,4,0 F1_000474 equ $ ; IN [PSCH.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__78 _LBL__88 F1_000475 equ $ ; IN [PSCH.BAS] CASE NOTE5 movlw 77 subwf noteAan,W,0 bnz _LBL__90 F1_000476 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.5 bcf VelFlags,5,0 F1_000477 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_000478 equ $ ; IN [PSCH.BAS] CLEAR NOTES.5 bcf Notes,5,0 F1_000479 equ $ ; IN [PSCH.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__78 _LBL__90 F1_000480 equ $ ; IN [PSCH.BAS] CASE NOTE6 movlw 78 subwf noteAan,W,0 bnz _LBL__92 F1_000481 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.6 bcf VelFlags,6,0 F1_000482 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000483 equ $ ; IN [PSCH.BAS] CLEAR NOTES.6 bcf Notes,6,0 F1_000484 equ $ ; IN [PSCH.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__78 _LBL__92 F1_000485 equ $ ; IN [PSCH.BAS] CASE NOTE7 movlw 79 subwf noteAan,W,0 bnz _LBL__94 F1_000486 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.7 bcf VelFlags,7,0 F1_000487 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000488 equ $ ; IN [PSCH.BAS] CLEAR NOTES.7 bcf Notes,7,0 F1_000489 equ $ ; IN [PSCH.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__78 _LBL__94 F1_000490 equ $ ; IN [PSCH.BAS] CASE NOTE8 movlw 80 subwf noteAan,W,0 bnz _LBL__96 F1_000491 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.8 bcf VelFlagsH,0,0 F1_000492 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000493 equ $ ; IN [PSCH.BAS] CLEAR NOTES.8 bcf NotesH,0,0 F1_000494 equ $ ; IN [PSCH.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 bra _LBL__78 _LBL__96 F1_000495 equ $ ; IN [PSCH.BAS] CASE NOTE9 movlw 81 subwf noteAan,W,0 bnz _LBL__98 F1_000496 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.9 bcf VelFlagsH,1,0 F1_000497 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000498 equ $ ; IN [PSCH.BAS] CLEAR NOTES.9 bcf NotesH,1,0 F1_000499 equ $ ; IN [PSCH.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 bra _LBL__78 _LBL__98 F1_000500 equ $ ; IN [PSCH.BAS] CASE NOTE10 movlw 82 subwf noteAan,W,0 bnz _LBL__100 F1_000501 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.10 bcf VelFlagsH,2,0 F1_000502 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000503 equ $ ; IN [PSCH.BAS] CLEAR NOTES.10 bcf NotesH,2,0 F1_000504 equ $ ; IN [PSCH.BAS] SET TIMVALS[10] setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 bra _LBL__78 _LBL__100 F1_000505 equ $ ; IN [PSCH.BAS] CASE NOTE11 movlw 83 subwf noteAan,W,0 bnz _LBL__102 F1_000506 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.11 bcf VelFlagsH,3,0 F1_000507 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_000508 equ $ ; IN [PSCH.BAS] CLEAR NOTES.11 bcf NotesH,3,0 F1_000509 equ $ ; IN [PSCH.BAS] SET TIMVALS[11] setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 bra _LBL__78 _LBL__102 F1_000510 equ $ ; IN [PSCH.BAS] CASE NOTE12, 120 movlw 84 subwf noteAan,W,0 bz _LBL__103 movlw 120 subwf noteAan,W,0 bnz _LBL__104 _LBL__103 F1_000511 equ $ ; IN [PSCH.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000512 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000513 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__78 _LBL__104 F1_000514 equ $ ; IN [PSCH.BAS] CASE NOTE13 , 121 movlw 85 subwf noteAan,W,0 bz _LBL__105 movlw 121 subwf noteAan,W,0 bnz _LBL__106 _LBL__105 F1_000515 equ $ ; IN [PSCH.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000516 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000517 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__78 _LBL__106 F1_000518 equ $ ; IN [PSCH.BAS] CASE NOTE14, 122 movlw 86 subwf noteAan,W,0 bz _LBL__107 movlw 122 subwf noteAan,W,0 bnz _LBL__108 _LBL__107 F1_000519 equ $ ; IN [PSCH.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000520 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000521 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__78 _LBL__108 F1_000522 equ $ ; IN [PSCH.BAS] CASE NOTE15, 123 movlw 87 subwf noteAan,W,0 bz _LBL__109 movlw 123 subwf noteAan,W,0 bnz _LBL__110 _LBL__109 F1_000523 equ $ ; IN [PSCH.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000524 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000525 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000526 equ $ ; IN [PSCH.BAS] CASE ELSE bra _LBL__112 _LBL__110 F1_000527 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000528 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000529 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__112 _LBL__78 F1_000531 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000532 equ $ ; IN [PSCH.BAS] GOTO RESORT goto resort F1_000533 equ $ ; IN [PSCH.BAS] ENDIF _LBL__77 F1_000535 equ $ ; IN [PSCH.BAS] SELECT NOTEAAN & CC66 movf noteAan,W,0 andwf CC66,W,0 clrf PBP#VAR0H,0 movwf PBP#VAR0,0 F1_000536 equ $ ; IN [PSCH.BAS] CASE NOTE0 movf PBP#VAR0,W,0 xorlw 72 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__114 F1_000542 equ $ ; IN [PSCH.BAS] SET PORTA.0 bsf LATA,0,0 F1_000543 equ $ ; IN [PSCH.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_000544 equ $ ; IN [PSCH.BAS] SET VELFLAGS.0 bsf VelFlags,0,0 F1_000545 equ $ ; IN [PSCH.BAS] TIMVALS[0] = TIME + VELO0 movf velo0,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo0H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#0HHH movff PBP#VAR1HH,TimVals#0HH movff PBP#VAR1H,TimVals#0H movff PBP#VAR1,TimVals#0 F1_000546 equ $ ; IN [PSCH.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__117 F1_000547 equ $ ; IN [PSCH.BAS] SET NOTES.0 bsf Notes,0,0 F1_000550 equ $ ; IN [PSCH.BAS] IF DUR[PRES0] <= VELO0 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo0,W,0 movwf PBP#VAR2,0 rlcf velo0H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__119 F1_000551 equ $ ; IN [PSCH.BAS] RATE0 = VELO0 movff velo0H,Rate0H movff velo0,Rate0 bra _LBL__120 _LBL__119 F1_000552 equ $ ; IN [PSCH.BAS] ELSE F1_000553 equ $ ; IN [PSCH.BAS] RATE0 = DUR[PRES0] - VELO0 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo0,W,0 subwf PBP#VAR1,W,0 movwf Rate0,0 movf velo0H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate0H,0 F1_000554 equ $ ; IN [PSCH.BAS] ENDIF _LBL__120 F1_000555 equ $ ; IN [PSCH.BAS] ENDIF _LBL__117 goto _LBL__113 _LBL__114 F1_000556 equ $ ; IN [PSCH.BAS] CASE NOTE1 movf PBP#VAR0,W,0 xorlw 73 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__122 F1_000557 equ $ ; IN [PSCH.BAS] SET PORTA.3 bsf LATA,3,0 F1_000558 equ $ ; IN [PSCH.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_000559 equ $ ; IN [PSCH.BAS] SET VELFLAGS.1 bsf VelFlags,1,0 F1_000560 equ $ ; IN [PSCH.BAS] TIMVALS[1] = TIME + VELO1 movf velo1,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo1H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#1HHH movff PBP#VAR1HH,TimVals#1HH movff PBP#VAR1H,TimVals#1H movff PBP#VAR1,TimVals#1 F1_000561 equ $ ; IN [PSCH.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__124 F1_000562 equ $ ; IN [PSCH.BAS] SET NOTES.1 bsf Notes,1,0 F1_000563 equ $ ; IN [PSCH.BAS] IF DUR[PRES1] <= VELO1 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo1,W,0 movwf PBP#VAR2,0 rlcf velo1H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__126 F1_000564 equ $ ; IN [PSCH.BAS] RATE1 = VELO1 movff velo1H,Rate1H movff velo1,Rate1 bra _LBL__127 _LBL__126 F1_000565 equ $ ; IN [PSCH.BAS] ELSE F1_000566 equ $ ; IN [PSCH.BAS] RATE1 = DUR[PRES1] - VELO1 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo1,W,0 subwf PBP#VAR1,W,0 movwf Rate1,0 movf velo1H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate1H,0 F1_000567 equ $ ; IN [PSCH.BAS] ENDIF _LBL__127 F1_000568 equ $ ; IN [PSCH.BAS] ENDIF _LBL__124 goto _LBL__113 _LBL__122 F1_000569 equ $ ; IN [PSCH.BAS] CASE NOTE2 movf PBP#VAR0,W,0 xorlw 74 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__129 F1_000570 equ $ ; IN [PSCH.BAS] SET PORTB.3 bsf LATB,3,0 F1_000571 equ $ ; IN [PSCH.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_000572 equ $ ; IN [PSCH.BAS] SET VELFLAGS.2 bsf VelFlags,2,0 F1_000573 equ $ ; IN [PSCH.BAS] TIMVALS[2] = TIME + VELO2 movf velo2,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo2H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#2HHH movff PBP#VAR1HH,TimVals#2HH movff PBP#VAR1H,TimVals#2H movff PBP#VAR1,TimVals#2 F1_000574 equ $ ; IN [PSCH.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__131 F1_000575 equ $ ; IN [PSCH.BAS] SET NOTES.2 bsf Notes,2,0 F1_000576 equ $ ; IN [PSCH.BAS] IF DUR[PRES2] <= VELO2 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo2,W,0 movwf PBP#VAR2,0 rlcf velo2H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__133 F1_000577 equ $ ; IN [PSCH.BAS] RATE2 = VELO2 movff velo2H,Rate2H movff velo2,Rate2 bra _LBL__134 _LBL__133 F1_000578 equ $ ; IN [PSCH.BAS] ELSE F1_000579 equ $ ; IN [PSCH.BAS] RATE2 = DUR[PRES2] - VELO2 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo2,W,0 subwf PBP#VAR1,W,0 movwf Rate2,0 movf velo2H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate2H,0 F1_000580 equ $ ; IN [PSCH.BAS] ENDIF _LBL__134 F1_000581 equ $ ; IN [PSCH.BAS] ENDIF _LBL__131 goto _LBL__113 _LBL__129 F1_000582 equ $ ; IN [PSCH.BAS] CASE NOTE3 movf PBP#VAR0,W,0 xorlw 75 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__136 F1_000583 equ $ ; IN [PSCH.BAS] SET PORTA.1 bsf LATA,1,0 F1_000584 equ $ ; IN [PSCH.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_000585 equ $ ; IN [PSCH.BAS] SET VELFLAGS.3 bsf VelFlags,3,0 F1_000586 equ $ ; IN [PSCH.BAS] TIMVALS[3] = TIME + VELO3 movf velo3,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo3H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#3HHH movff PBP#VAR1HH,TimVals#3HH movff PBP#VAR1H,TimVals#3H movff PBP#VAR1,TimVals#3 F1_000587 equ $ ; IN [PSCH.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__138 F1_000588 equ $ ; IN [PSCH.BAS] SET NOTES.3 bsf Notes,3,0 F1_000589 equ $ ; IN [PSCH.BAS] IF DUR[PRES3] <= VELO3 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo3,W,0 movwf PBP#VAR2,0 rlcf velo3H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__140 F1_000590 equ $ ; IN [PSCH.BAS] RATE3 = VELO3 movff velo3H,Rate3H movff velo3,Rate3 bra _LBL__141 _LBL__140 F1_000591 equ $ ; IN [PSCH.BAS] ELSE F1_000592 equ $ ; IN [PSCH.BAS] RATE3 = DUR[PRES3] - VELO3 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo3,W,0 subwf PBP#VAR1,W,0 movwf Rate3,0 movf velo3H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate3H,0 F1_000593 equ $ ; IN [PSCH.BAS] ENDIF _LBL__141 F1_000594 equ $ ; IN [PSCH.BAS] ENDIF _LBL__138 goto _LBL__113 _LBL__136 F1_000595 equ $ ; IN [PSCH.BAS] CASE NOTE4 movf PBP#VAR0,W,0 xorlw 76 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__143 F1_000596 equ $ ; IN [PSCH.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_000597 equ $ ; IN [PSCH.BAS] SET PORTA.2 bsf LATA,2,0 F1_000598 equ $ ; IN [PSCH.BAS] SET VELFLAGS.4 bsf VelFlags,4,0 F1_000599 equ $ ; IN [PSCH.BAS] TIMVALS[4] = TIME + VELO4 movf velo4,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo4H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#4HHH movff PBP#VAR1HH,TimVals#4HH movff PBP#VAR1H,TimVals#4H movff PBP#VAR1,TimVals#4 F1_000600 equ $ ; IN [PSCH.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__145 F1_000601 equ $ ; IN [PSCH.BAS] SET NOTES.4 bsf Notes,4,0 F1_000602 equ $ ; IN [PSCH.BAS] IF DUR[PRES4] <= VELO4 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo4,W,0 movwf PBP#VAR2,0 rlcf velo4H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__147 F1_000603 equ $ ; IN [PSCH.BAS] RATE4 = VELO4 movff velo4H,Rate4H movff velo4,Rate4 bra _LBL__148 _LBL__147 F1_000604 equ $ ; IN [PSCH.BAS] ELSE F1_000605 equ $ ; IN [PSCH.BAS] RATE4 = DUR[PRES4] - VELO4 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo4,W,0 subwf PBP#VAR1,W,0 movwf Rate4,0 movf velo4H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate4H,0 F1_000606 equ $ ; IN [PSCH.BAS] ENDIF _LBL__148 F1_000607 equ $ ; IN [PSCH.BAS] ENDIF _LBL__145 goto _LBL__113 _LBL__143 F1_000608 equ $ ; IN [PSCH.BAS] CASE NOTE5 movf PBP#VAR0,W,0 xorlw 77 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__150 F1_000609 equ $ ; IN [PSCH.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_000610 equ $ ; IN [PSCH.BAS] SET PORTB.7 bsf LATB,7,0 F1_000611 equ $ ; IN [PSCH.BAS] SET VELFLAGS.5 bsf VelFlags,5,0 F1_000612 equ $ ; IN [PSCH.BAS] TIMVALS[5] = TIME + VELO5 movf velo5,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo5H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#5HHH movff PBP#VAR1HH,TimVals#5HH movff PBP#VAR1H,TimVals#5H movff PBP#VAR1,TimVals#5 F1_000613 equ $ ; IN [PSCH.BAS] IF PRES5 > 0 THEN movf Pres5,F,0 bz _LBL__152 F1_000614 equ $ ; IN [PSCH.BAS] SET NOTES.5 bsf Notes,5,0 F1_000615 equ $ ; IN [PSCH.BAS] IF DUR[PRES5] <= VELO5 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo5,W,0 movwf PBP#VAR2,0 rlcf velo5H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__154 F1_000616 equ $ ; IN [PSCH.BAS] RATE5 = VELO5 movff velo5H,Rate5H movff velo5,Rate5 bra _LBL__155 _LBL__154 F1_000617 equ $ ; IN [PSCH.BAS] ELSE F1_000618 equ $ ; IN [PSCH.BAS] RATE5 = DUR[PRES5] - VELO5 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo5,W,0 subwf PBP#VAR1,W,0 movwf Rate5,0 movf velo5H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate5H,0 F1_000619 equ $ ; IN [PSCH.BAS] ENDIF _LBL__155 F1_000620 equ $ ; IN [PSCH.BAS] ENDIF _LBL__152 goto _LBL__113 _LBL__150 F1_000621 equ $ ; IN [PSCH.BAS] CASE NOTE6 movf PBP#VAR0,W,0 xorlw 78 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__157 F1_000622 equ $ ; IN [PSCH.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_000623 equ $ ; IN [PSCH.BAS] SET PORTA.4 bsf LATA,4,0 F1_000624 equ $ ; IN [PSCH.BAS] SET VELFLAGS.6 bsf VelFlags,6,0 F1_000625 equ $ ; IN [PSCH.BAS] TIMVALS[6] = TIME + VELO6 movf velo6,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo6H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#6HHH movff PBP#VAR1HH,TimVals#6HH movff PBP#VAR1H,TimVals#6H movff PBP#VAR1,TimVals#6 F1_000626 equ $ ; IN [PSCH.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__159 F1_000627 equ $ ; IN [PSCH.BAS] SET NOTES.6 bsf Notes,6,0 F1_000628 equ $ ; IN [PSCH.BAS] IF DUR[PRES6] <= VELO6 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo6,W,0 movwf PBP#VAR2,0 rlcf velo6H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__161 F1_000629 equ $ ; IN [PSCH.BAS] RATE6 = VELO6 movff velo6H,Rate6H movff velo6,Rate6 bra _LBL__162 _LBL__161 F1_000630 equ $ ; IN [PSCH.BAS] ELSE F1_000631 equ $ ; IN [PSCH.BAS] RATE6 = DUR[PRES6] - VELO6 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo6,W,0 subwf PBP#VAR1,W,0 movwf Rate6,0 movf velo6H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate6H,0 F1_000632 equ $ ; IN [PSCH.BAS] ENDIF _LBL__162 F1_000633 equ $ ; IN [PSCH.BAS] ENDIF _LBL__159 bra _LBL__113 _LBL__157 F1_000634 equ $ ; IN [PSCH.BAS] CASE NOTE7 movf PBP#VAR0,W,0 xorlw 79 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__164 F1_000635 equ $ ; IN [PSCH.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_000636 equ $ ; IN [PSCH.BAS] SET PORTB.6 bsf LATB,6,0 F1_000637 equ $ ; IN [PSCH.BAS] SET VELFLAGS.7 bsf VelFlags,7,0 F1_000638 equ $ ; IN [PSCH.BAS] TIMVALS[7] = TIME + VELO7 movf velo7,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo7H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#7HHH movff PBP#VAR1HH,TimVals#7HH movff PBP#VAR1H,TimVals#7H movff PBP#VAR1,TimVals#7 F1_000639 equ $ ; IN [PSCH.BAS] IF PRES7 > 0 THEN movf Pres7,F,0 bz _LBL__166 F1_000640 equ $ ; IN [PSCH.BAS] SET NOTES.7 bsf Notes,7,0 F1_000641 equ $ ; IN [PSCH.BAS] IF DUR[PRES7] <= VELO7 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo7,W,0 movwf PBP#VAR2,0 rlcf velo7H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__168 F1_000642 equ $ ; IN [PSCH.BAS] RATE7 = VELO7 movff velo7H,Rate7H movff velo7,Rate7 bra _LBL__169 _LBL__168 F1_000643 equ $ ; IN [PSCH.BAS] ELSE F1_000644 equ $ ; IN [PSCH.BAS] RATE7 = DUR[PRES7] - VELO7 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo7,W,0 subwf PBP#VAR1,W,0 movwf Rate7,0 movf velo7H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate7H,0 F1_000645 equ $ ; IN [PSCH.BAS] ENDIF _LBL__169 F1_000646 equ $ ; IN [PSCH.BAS] ENDIF _LBL__166 bra _LBL__113 _LBL__164 F1_000647 equ $ ; IN [PSCH.BAS] CASE NOTE8 movf PBP#VAR0,W,0 xorlw 80 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__171 F1_000648 equ $ ; IN [PSCH.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_000649 equ $ ; IN [PSCH.BAS] SET PORTB.4 bsf LATB,4,0 F1_000650 equ $ ; IN [PSCH.BAS] SET VELFLAGS.8 bsf VelFlagsH,0,0 F1_000651 equ $ ; IN [PSCH.BAS] TIMVALS[8] = TIME + VELO8 movf velo8,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo8H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#8HHH movff PBP#VAR1HH,TimVals#8HH movff PBP#VAR1H,TimVals#8H movff PBP#VAR1,TimVals#8 F1_000652 equ $ ; IN [PSCH.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__173 F1_000653 equ $ ; IN [PSCH.BAS] SET NOTES.8 bsf NotesH,0,0 F1_000654 equ $ ; IN [PSCH.BAS] IF DUR[PRES8] <= VELO8 << 1 THEN 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 bcf STATUS,0,0 rlcf velo8,W,0 movwf PBP#VAR2,0 rlcf velo8H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__175 F1_000655 equ $ ; IN [PSCH.BAS] RATE8 = VELO8 movff velo8H,Rate8H movff velo8,Rate8 bra _LBL__176 _LBL__175 F1_000656 equ $ ; IN [PSCH.BAS] ELSE F1_000657 equ $ ; IN [PSCH.BAS] RATE8 = DUR[PRES8] - VELO8 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 velo8,W,0 subwf PBP#VAR1,W,0 movwf Rate8,0 movf velo8H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate8H,0 F1_000658 equ $ ; IN [PSCH.BAS] ENDIF _LBL__176 F1_000659 equ $ ; IN [PSCH.BAS] ENDIF _LBL__173 bra _LBL__113 _LBL__171 F1_000660 equ $ ; IN [PSCH.BAS] CASE NOTE9 movf PBP#VAR0,W,0 xorlw 81 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__178 F1_000661 equ $ ; IN [PSCH.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_000662 equ $ ; IN [PSCH.BAS] SET PORTB.2 bsf LATB,2,0 F1_000663 equ $ ; IN [PSCH.BAS] SET VELFLAGS.9 bsf VelFlagsH,1,0 F1_000664 equ $ ; IN [PSCH.BAS] TIMVALS[9] = TIME + VELO9 movf velo9,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo9H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#9HHH movff PBP#VAR1HH,TimVals#9HH movff PBP#VAR1H,TimVals#9H movff PBP#VAR1,TimVals#9 F1_000665 equ $ ; IN [PSCH.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__180 F1_000666 equ $ ; IN [PSCH.BAS] SET NOTES.9 bsf NotesH,1,0 F1_000667 equ $ ; IN [PSCH.BAS] IF DUR[PRES9] <= VELO9 << 1 THEN 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 bcf STATUS,0,0 rlcf velo9,W,0 movwf PBP#VAR2,0 rlcf velo9H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__182 F1_000668 equ $ ; IN [PSCH.BAS] RATE9 = VELO9 movff velo9H,Rate9H movff velo9,Rate9 bra _LBL__183 _LBL__182 F1_000669 equ $ ; IN [PSCH.BAS] ELSE F1_000670 equ $ ; IN [PSCH.BAS] RATE9 = DUR[PRES9] - VELO9 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 velo9,W,0 subwf PBP#VAR1,W,0 movwf Rate9,0 movf velo9H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate9H,0 F1_000671 equ $ ; IN [PSCH.BAS] ENDIF _LBL__183 F1_000672 equ $ ; IN [PSCH.BAS] ENDIF _LBL__180 bra _LBL__113 _LBL__178 F1_000673 equ $ ; IN [PSCH.BAS] CASE NOTE10 movf PBP#VAR0,W,0 xorlw 82 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__185 F1_000674 equ $ ; IN [PSCH.BAS] VELO10 = 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,velo10 movff INDF0,velo10H F1_000675 equ $ ; IN [PSCH.BAS] SET PORTA.5 bsf LATA,5,0 F1_000676 equ $ ; IN [PSCH.BAS] SET VELFLAGS.10 bsf VelFlagsH,2,0 F1_000677 equ $ ; IN [PSCH.BAS] TIMVALS[10] = TIME + VELO10 movf velo10,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo10H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#10HHH movff PBP#VAR1HH,TimVals#10HH movff PBP#VAR1H,TimVals#10H movff PBP#VAR1,TimVals#10 F1_000678 equ $ ; IN [PSCH.BAS] IF PRES10 > 0 THEN movf Pres10,F,1 bz _LBL__187 F1_000679 equ $ ; IN [PSCH.BAS] SET NOTES.10 bsf NotesH,2,0 F1_000680 equ $ ; IN [PSCH.BAS] IF DUR[PRES10] <= VELO10 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres10,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo10,W,0 movwf PBP#VAR2,0 rlcf velo10H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__189 F1_000681 equ $ ; IN [PSCH.BAS] RATE10 = VELO10 movff velo10H,Rate10H movff velo10,Rate10 bra _LBL__190 _LBL__189 F1_000682 equ $ ; IN [PSCH.BAS] ELSE F1_000683 equ $ ; IN [PSCH.BAS] RATE10 = DUR[PRES10] - VELO10 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres10,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo10,W,0 subwf PBP#VAR1,W,0 movwf Rate10,0 movf velo10H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate10H,0 F1_000684 equ $ ; IN [PSCH.BAS] ENDIF _LBL__190 F1_000685 equ $ ; IN [PSCH.BAS] ENDIF _LBL__187 bra _LBL__113 _LBL__185 F1_000686 equ $ ; IN [PSCH.BAS] CASE NOTE11 movf PBP#VAR0,W,0 xorlw 83 iorwf PBP#VAR0H,W,0 btfss STATUS,2,0 bra _LBL__192 F1_000687 equ $ ; IN [PSCH.BAS] VELO11 = 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,velo11 movff INDF0,velo11H F1_000688 equ $ ; IN [PSCH.BAS] SET PORTB.5 bsf LATB,5,0 F1_000689 equ $ ; IN [PSCH.BAS] SET VELFLAGS.11 bsf VelFlagsH,3,0 F1_000690 equ $ ; IN [PSCH.BAS] TIMVALS[11] = TIME + VELO11 movf velo11,W,0 addwf time,W,0 movwf PBP#VAR1,0 movf velo11H,W,0 addwfc timeH,W,0 movwf PBP#VAR1H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR1HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR1HHH,0 movff PBP#VAR1HHH,TimVals#11HHH movff PBP#VAR1HH,TimVals#11HH movff PBP#VAR1H,TimVals#11H movff PBP#VAR1,TimVals#11 F1_000691 equ $ ; IN [PSCH.BAS] IF PRES11 > 0 THEN movf Pres11,F,1 bz _LBL__194 F1_000692 equ $ ; IN [PSCH.BAS] SET NOTES.11 bsf NotesH,3,0 F1_000693 equ $ ; IN [PSCH.BAS] IF DUR[PRES11] <= VELO11 << 1 THEN lfsr 0,Dur bcf STATUS,0,0 rlcf Pres11,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H bcf STATUS,0,0 rlcf velo11,W,0 movwf PBP#VAR2,0 rlcf velo11H,W,0 movwf PBP#VAR2H,0 movf PBP#VAR1,W,0 subwf PBP#VAR2,W,0 movf PBP#VAR1H,W,0 subwfb PBP#VAR2H,W,0 bnc _LBL__196 F1_000694 equ $ ; IN [PSCH.BAS] RATE11 = VELO11 movff velo11H,Rate11H movff velo11,Rate11 bra _LBL__197 _LBL__196 F1_000695 equ $ ; IN [PSCH.BAS] ELSE F1_000696 equ $ ; IN [PSCH.BAS] RATE11 = DUR[PRES11] - VELO11 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres11,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movf velo11,W,0 subwf PBP#VAR1,W,0 movwf Rate11,0 movf velo11H,W,0 subwfb PBP#VAR1H,W,0 movwf Rate11H,0 F1_000697 equ $ ; IN [PSCH.BAS] ENDIF _LBL__197 F1_000698 equ $ ; IN [PSCH.BAS] ENDIF _LBL__194 bra _LBL__113 _LBL__192 F1_000699 equ $ ; IN [PSCH.BAS] CASE NOTE12, 120 movf PBP#VAR0,W,0 xorlw 84 iorwf PBP#VAR0H,W,0 bz _LBL__198 movf PBP#VAR0,W,0 xorlw 120 iorwf PBP#VAR0H,W,0 bnz _LBL__199 _LBL__198 F1_000700 equ $ ; IN [PSCH.BAS] SET PORTB.1 bsf LATB,1,0 F1_000701 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000702 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__113 _LBL__199 F1_000703 equ $ ; IN [PSCH.BAS] CASE NOTE13, 121 movf PBP#VAR0,W,0 xorlw 85 iorwf PBP#VAR0H,W,0 bz _LBL__200 movf PBP#VAR0,W,0 xorlw 121 iorwf PBP#VAR0H,W,0 bnz _LBL__201 _LBL__200 F1_000704 equ $ ; IN [PSCH.BAS] SET PORTB.0 bsf LATB,0,0 F1_000705 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000706 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__113 _LBL__201 F1_000707 equ $ ; IN [PSCH.BAS] CASE NOTE14, 122 movf PBP#VAR0,W,0 xorlw 86 iorwf PBP#VAR0H,W,0 bz _LBL__202 movf PBP#VAR0,W,0 xorlw 122 iorwf PBP#VAR0H,W,0 bnz _LBL__203 _LBL__202 F1_000708 equ $ ; IN [PSCH.BAS] SET PORTC.5 bsf LATC,5,0 F1_000709 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000710 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__113 _LBL__203 F1_000711 equ $ ; IN [PSCH.BAS] CASE NOTE15, 123 movf PBP#VAR0,W,0 xorlw 87 iorwf PBP#VAR0H,W,0 bz _LBL__204 movf PBP#VAR0,W,0 xorlw 123 iorwf PBP#VAR0H,W,0 bnz _LBL__205 _LBL__204 F1_000712 equ $ ; IN [PSCH.BAS] SET PORTC.4 bsf LATC,4,0 F1_000713 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000714 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000715 equ $ ; IN [PSCH.BAS] CASE ELSE bra _LBL__207 _LBL__205 F1_000716 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000717 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000718 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__207 _LBL__113 F1_000723 equ $ ; IN [PSCH.BAS] SET NOTEAAN setf noteAan,0 F1_000724 equ $ ; IN [PSCH.BAS] GOTO RESORT bra resort F1_000725 equ $ ; IN [PSCH.BAS] ENDIF _LBL__75 bra _LBL__28 _LBL__72 F1_000726 equ $ ; IN [PSCH.BAS] CASE KEYPRES_STATUS movlw 165 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__209 F1_000727 equ $ ; IN [PSCH.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__211 F1_000728 equ $ ; IN [PSCH.BAS] NOTEPRES = BYTEIN movff Bytein,notePres F1_000729 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__212 _LBL__211 F1_000730 equ $ ; IN [PSCH.BAS] ELSE F1_000731 equ $ ; IN [PSCH.BAS] SELECT NOTEPRES F1_000732 equ $ ; IN [PSCH.BAS] CASE NOTE0 movlw 72 subwf notePres,W,0 bnz _LBL__214 F1_000733 equ $ ; IN [PSCH.BAS] PRES0 = BYTEIN movff Bytein,Pres0 F1_000734 equ $ ; IN [PSCH.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__217 F1_000735 equ $ ; IN [PSCH.BAS] RATE0 = DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H bra _LBL__218 _LBL__217 F1_000738 equ $ ; IN [PSCH.BAS] ELSE F1_000739 equ $ ; IN [PSCH.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000740 equ $ ; IN [PSCH.BAS] CLEAR NOTES.0 bcf Notes,0,0 F1_000741 equ $ ; IN [PSCH.BAS] ENDIF _LBL__218 bra _LBL__213 _LBL__214 F1_000742 equ $ ; IN [PSCH.BAS] CASE NOTE1 movlw 73 subwf notePres,W,0 bnz _LBL__220 F1_000743 equ $ ; IN [PSCH.BAS] PRES1 = BYTEIN movff Bytein,Pres1 F1_000744 equ $ ; IN [PSCH.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__222 F1_000745 equ $ ; IN [PSCH.BAS] RATE1 = DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H bra _LBL__223 _LBL__222 F1_000746 equ $ ; IN [PSCH.BAS] ELSE F1_000747 equ $ ; IN [PSCH.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000748 equ $ ; IN [PSCH.BAS] CLEAR NOTES.1 bcf Notes,1,0 F1_000749 equ $ ; IN [PSCH.BAS] ENDIF _LBL__223 bra _LBL__213 _LBL__220 F1_000750 equ $ ; IN [PSCH.BAS] CASE NOTE2 movlw 74 subwf notePres,W,0 bnz _LBL__225 F1_000751 equ $ ; IN [PSCH.BAS] PRES2 = BYTEIN movff Bytein,Pres2 F1_000752 equ $ ; IN [PSCH.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__227 F1_000753 equ $ ; IN [PSCH.BAS] RATE2 = DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H bra _LBL__228 _LBL__227 F1_000754 equ $ ; IN [PSCH.BAS] ELSE F1_000755 equ $ ; IN [PSCH.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000756 equ $ ; IN [PSCH.BAS] CLEAR NOTES.2 bcf Notes,2,0 F1_000757 equ $ ; IN [PSCH.BAS] ENDIF _LBL__228 bra _LBL__213 _LBL__225 F1_000758 equ $ ; IN [PSCH.BAS] CASE NOTE3 movlw 75 subwf notePres,W,0 bnz _LBL__230 F1_000759 equ $ ; IN [PSCH.BAS] PRES3 = BYTEIN movff Bytein,Pres3 F1_000760 equ $ ; IN [PSCH.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__232 F1_000761 equ $ ; IN [PSCH.BAS] RATE3 = DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H bra _LBL__233 _LBL__232 F1_000762 equ $ ; IN [PSCH.BAS] ELSE F1_000763 equ $ ; IN [PSCH.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000764 equ $ ; IN [PSCH.BAS] CLEAR NOTES.3 bcf Notes,3,0 F1_000765 equ $ ; IN [PSCH.BAS] ENDIF _LBL__233 bra _LBL__213 _LBL__230 F1_000766 equ $ ; IN [PSCH.BAS] CASE NOTE4 movlw 76 subwf notePres,W,0 bnz _LBL__235 F1_000767 equ $ ; IN [PSCH.BAS] PRES4 = BYTEIN movff Bytein,Pres4 F1_000768 equ $ ; IN [PSCH.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__237 F1_000769 equ $ ; IN [PSCH.BAS] RATE4 = DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H bra _LBL__238 _LBL__237 F1_000770 equ $ ; IN [PSCH.BAS] ELSE F1_000771 equ $ ; IN [PSCH.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000772 equ $ ; IN [PSCH.BAS] CLEAR NOTES.4 bcf Notes,4,0 F1_000773 equ $ ; IN [PSCH.BAS] ENDIF _LBL__238 bra _LBL__213 _LBL__235 F1_000774 equ $ ; IN [PSCH.BAS] CASE NOTE5 movlw 77 subwf notePres,W,0 bnz _LBL__240 F1_000775 equ $ ; IN [PSCH.BAS] PRES5 = BYTEIN movff Bytein,Pres5 F1_000776 equ $ ; IN [PSCH.BAS] IF PRES5 > 0 THEN movf Pres5,F,0 bz _LBL__242 F1_000777 equ $ ; IN [PSCH.BAS] RATE5 = DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H bra _LBL__243 _LBL__242 F1_000778 equ $ ; IN [PSCH.BAS] ELSE F1_000779 equ $ ; IN [PSCH.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_000780 equ $ ; IN [PSCH.BAS] CLEAR NOTES.5 bcf Notes,5,0 F1_000781 equ $ ; IN [PSCH.BAS] ENDIF _LBL__243 bra _LBL__213 _LBL__240 F1_000782 equ $ ; IN [PSCH.BAS] CASE NOTE6 movlw 78 subwf notePres,W,0 bnz _LBL__245 F1_000783 equ $ ; IN [PSCH.BAS] PRES6 = BYTEIN movff Bytein,Pres6 F1_000784 equ $ ; IN [PSCH.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__247 F1_000785 equ $ ; IN [PSCH.BAS] RATE6 = DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H bra _LBL__248 _LBL__247 F1_000786 equ $ ; IN [PSCH.BAS] ELSE F1_000787 equ $ ; IN [PSCH.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_000788 equ $ ; IN [PSCH.BAS] CLEAR NOTES.6 bcf Notes,6,0 F1_000789 equ $ ; IN [PSCH.BAS] ENDIF _LBL__248 bra _LBL__213 _LBL__245 F1_000790 equ $ ; IN [PSCH.BAS] CASE NOTE7 movlw 79 subwf notePres,W,0 bnz _LBL__250 F1_000791 equ $ ; IN [PSCH.BAS] PRES7 = BYTEIN movff Bytein,Pres7 F1_000792 equ $ ; IN [PSCH.BAS] IF PRES7 > 0 THEN movf Pres7,F,0 bz _LBL__252 F1_000793 equ $ ; IN [PSCH.BAS] RATE7 = DUR[PRES7] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate7 movff INDF0,Rate7H bra _LBL__253 _LBL__252 F1_000794 equ $ ; IN [PSCH.BAS] ELSE F1_000795 equ $ ; IN [PSCH.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_000796 equ $ ; IN [PSCH.BAS] CLEAR NOTES.7 bcf Notes,7,0 F1_000797 equ $ ; IN [PSCH.BAS] ENDIF _LBL__253 bra _LBL__213 _LBL__250 F1_000798 equ $ ; IN [PSCH.BAS] CASE NOTE8 movlw 80 subwf notePres,W,0 bnz _LBL__255 F1_000799 equ $ ; IN [PSCH.BAS] PRES8 = BYTEIN movff Bytein,Pres8 F1_000800 equ $ ; IN [PSCH.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__257 F1_000801 equ $ ; IN [PSCH.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__258 _LBL__257 F1_000802 equ $ ; IN [PSCH.BAS] ELSE F1_000803 equ $ ; IN [PSCH.BAS] CLEAR RATE8 clrf Rate8H,0 clrf Rate8,0 F1_000804 equ $ ; IN [PSCH.BAS] CLEAR NOTES.8 bcf NotesH,0,0 F1_000805 equ $ ; IN [PSCH.BAS] ENDIF _LBL__258 bra _LBL__213 _LBL__255 F1_000806 equ $ ; IN [PSCH.BAS] CASE NOTE9 movlw 81 subwf notePres,W,0 bnz _LBL__260 F1_000807 equ $ ; IN [PSCH.BAS] PRES9 = BYTEIN movff Bytein,Pres9 F1_000808 equ $ ; IN [PSCH.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__262 F1_000809 equ $ ; IN [PSCH.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__263 _LBL__262 F1_000810 equ $ ; IN [PSCH.BAS] ELSE F1_000811 equ $ ; IN [PSCH.BAS] CLEAR RATE9 clrf Rate9H,0 clrf Rate9,0 F1_000812 equ $ ; IN [PSCH.BAS] CLEAR NOTES.9 bcf NotesH,1,0 F1_000813 equ $ ; IN [PSCH.BAS] ENDIF _LBL__263 bra _LBL__213 _LBL__260 F1_000814 equ $ ; IN [PSCH.BAS] CASE NOTE10 movlw 82 subwf notePres,W,0 bnz _LBL__265 F1_000815 equ $ ; IN [PSCH.BAS] PRES10 = BYTEIN movff Bytein,Pres10 F1_000816 equ $ ; IN [PSCH.BAS] IF PRES10 > 0 THEN movf Pres10,F,1 bz _LBL__267 F1_000817 equ $ ; IN [PSCH.BAS] RATE10 = DUR[PRES10] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres10,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate10 movff INDF0,Rate10H bra _LBL__268 _LBL__267 F1_000818 equ $ ; IN [PSCH.BAS] ELSE F1_000819 equ $ ; IN [PSCH.BAS] CLEAR RATE10 clrf Rate10H,0 clrf Rate10,0 F1_000820 equ $ ; IN [PSCH.BAS] CLEAR NOTES.10 bcf NotesH,2,0 F1_000821 equ $ ; IN [PSCH.BAS] ENDIF _LBL__268 bra _LBL__213 _LBL__265 F1_000822 equ $ ; IN [PSCH.BAS] CASE NOTE11 movlw 83 subwf notePres,W,0 bnz _LBL__270 F1_000823 equ $ ; IN [PSCH.BAS] PRES11 = BYTEIN movff Bytein,Pres11 F1_000824 equ $ ; IN [PSCH.BAS] IF PRES11 > 0 THEN movf Pres11,F,1 bz _LBL__272 F1_000825 equ $ ; IN [PSCH.BAS] RATE11 = DUR[PRES11] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres11,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate11 movff INDF0,Rate11H bra _LBL__273 _LBL__272 F1_000826 equ $ ; IN [PSCH.BAS] ELSE F1_000827 equ $ ; IN [PSCH.BAS] CLEAR RATE11 clrf Rate11H,0 clrf Rate11,0 F1_000828 equ $ ; IN [PSCH.BAS] CLEAR NOTES.11 bcf NotesH,3,0 F1_000829 equ $ ; IN [PSCH.BAS] ENDIF _LBL__273 F1_000833 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__270 _LBL__213 F1_000834 equ $ ; IN [PSCH.BAS] SET NOTEPRES setf notePres,0 F1_000835 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000836 equ $ ; IN [PSCH.BAS] ENDIF _LBL__212 bra _LBL__28 _LBL__209 F1_000837 equ $ ; IN [PSCH.BAS] CASE CONTROL_STATUS movlw 181 subwf statusbyte,W,0 bnz _LBL__275 F1_000838 equ $ ; IN [PSCH.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__277 F1_000839 equ $ ; IN [PSCH.BAS] CTRL = BYTEIN movff Bytein,Ctrl F1_000840 equ $ ; IN [PSCH.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__278 _LBL__277 F1_000841 equ $ ; IN [PSCH.BAS] ELSE F1_000842 equ $ ; IN [PSCH.BAS] VALUE = BYTEIN movff Bytein,value F1_000843 equ $ ; IN [PSCH.BAS] GOSUB CONTROLLER call Controller F1_000844 equ $ ; IN [PSCH.BAS] ENDIF _LBL__278 F1_000845 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__275 _LBL__28 F1_000846 equ $ ; IN [PSCH.BAS] ENDIF _LBL__27 resort F1_000849 equ $ ; IN [PSCH.BAS] GOSUB SORTTIMERS call SortTimers Check_Timers F1_000855 equ $ ; IN [PSCH.BAS] IF IDX < 12 THEN movlw 12 subwf idx,W,0 btfsc STATUS,0,0 goto _LBL__280 F1_000856 equ $ ; IN [PSCH.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__282 F1_000858 equ $ ; IN [PSCH.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000860 equ $ ; IN [PSCH.BAS] SELECT IDX F1_000861 equ $ ; IN [PSCH.BAS] CASE 0 movf idx,F,0 bnz _LBL__284 F1_000862 equ $ ; IN [PSCH.BAS] IF NOTES.0 = 0 THEN btfsc Notes,0,0 bra _LBL__287 F1_000863 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.0 bcf VelFlags,0,0 F1_000864 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000865 equ $ ; IN [PSCH.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 bra _LBL__288 _LBL__287 F1_000866 equ $ ; IN [PSCH.BAS] ELSE F1_000867 equ $ ; IN [PSCH.BAS] IF VELFLAGS.0 = 1 THEN btfss VelFlags,0,0 bra _LBL__290 F1_000868 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000869 equ $ ; IN [PSCH.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_000870 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.0 bcf VelFlags,0,0 bra _LBL__291 _LBL__290 F1_000871 equ $ ; IN [PSCH.BAS] ELSE F1_000872 equ $ ; IN [PSCH.BAS] SET PORTA.0 bsf LATA,0,0 F1_000873 equ $ ; IN [PSCH.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_000874 equ $ ; IN [PSCH.BAS] SET VELFLAGS.0 bsf VelFlags,0,0 F1_000875 equ $ ; IN [PSCH.BAS] ENDIF _LBL__291 F1_000876 equ $ ; IN [PSCH.BAS] ENDIF _LBL__288 goto _LBL__283 _LBL__284 F1_000877 equ $ ; IN [PSCH.BAS] CASE 1 movlw 1 subwf idx,W,0 bnz _LBL__293 F1_000878 equ $ ; IN [PSCH.BAS] IF NOTES.1 = 0 THEN btfsc Notes,1,0 bra _LBL__295 F1_000879 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.1 bcf VelFlags,1,0 F1_000880 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000881 equ $ ; IN [PSCH.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 bra _LBL__296 _LBL__295 F1_000882 equ $ ; IN [PSCH.BAS] ELSE F1_000883 equ $ ; IN [PSCH.BAS] IF VELFLAGS.1 = 1 THEN btfss VelFlags,1,0 bra _LBL__298 F1_000884 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000885 equ $ ; IN [PSCH.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_000886 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.1 bcf VelFlags,1,0 bra _LBL__299 _LBL__298 F1_000887 equ $ ; IN [PSCH.BAS] ELSE F1_000888 equ $ ; IN [PSCH.BAS] SET PORTA.3 bsf LATA,3,0 F1_000889 equ $ ; IN [PSCH.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_000890 equ $ ; IN [PSCH.BAS] SET VELFLAGS.1 bsf VelFlags,1,0 F1_000891 equ $ ; IN [PSCH.BAS] ENDIF _LBL__299 F1_000892 equ $ ; IN [PSCH.BAS] ENDIF _LBL__296 goto _LBL__283 _LBL__293 F1_000893 equ $ ; IN [PSCH.BAS] CASE 2 movlw 2 subwf idx,W,0 bnz _LBL__301 F1_000894 equ $ ; IN [PSCH.BAS] IF NOTES.2 = 0 THEN btfsc Notes,2,0 bra _LBL__303 F1_000895 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.2 bcf VelFlags,2,0 F1_000896 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000897 equ $ ; IN [PSCH.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__304 _LBL__303 F1_000898 equ $ ; IN [PSCH.BAS] ELSE F1_000899 equ $ ; IN [PSCH.BAS] IF VELFLAGS.2 = 1 THEN btfss VelFlags,2,0 bra _LBL__306 F1_000900 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000901 equ $ ; IN [PSCH.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_000902 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.2 bcf VelFlags,2,0 bra _LBL__307 _LBL__306 F1_000903 equ $ ; IN [PSCH.BAS] ELSE F1_000904 equ $ ; IN [PSCH.BAS] SET PORTB.3 bsf LATB,3,0 F1_000905 equ $ ; IN [PSCH.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_000906 equ $ ; IN [PSCH.BAS] SET VELFLAGS.2 bsf VelFlags,2,0 F1_000907 equ $ ; IN [PSCH.BAS] ENDIF _LBL__307 F1_000908 equ $ ; IN [PSCH.BAS] ENDIF _LBL__304 goto _LBL__283 _LBL__301 F1_000909 equ $ ; IN [PSCH.BAS] CASE 3 movlw 3 subwf idx,W,0 bnz _LBL__309 F1_000910 equ $ ; IN [PSCH.BAS] IF NOTES.3 = 0 THEN btfsc Notes,3,0 bra _LBL__311 F1_000911 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.3 bcf VelFlags,3,0 F1_000912 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000913 equ $ ; IN [PSCH.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__312 _LBL__311 F1_000914 equ $ ; IN [PSCH.BAS] ELSE F1_000915 equ $ ; IN [PSCH.BAS] IF VELFLAGS.3 = 1 THEN btfss VelFlags,3,0 bra _LBL__314 F1_000916 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000917 equ $ ; IN [PSCH.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_000918 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.3 bcf VelFlags,3,0 bra _LBL__315 _LBL__314 F1_000919 equ $ ; IN [PSCH.BAS] ELSE F1_000920 equ $ ; IN [PSCH.BAS] SET PORTA.1 bsf LATA,1,0 F1_000921 equ $ ; IN [PSCH.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_000922 equ $ ; IN [PSCH.BAS] SET VELFLAGS.3 bsf VelFlags,3,0 F1_000923 equ $ ; IN [PSCH.BAS] ENDIF _LBL__315 F1_000924 equ $ ; IN [PSCH.BAS] ENDIF _LBL__312 bra _LBL__283 _LBL__309 F1_000925 equ $ ; IN [PSCH.BAS] CASE 4 movlw 4 subwf idx,W,0 bnz _LBL__317 F1_000926 equ $ ; IN [PSCH.BAS] IF NOTES.4 = 0 THEN btfsc Notes,4,0 bra _LBL__319 F1_000927 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.4 bcf VelFlags,4,0 F1_000928 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000929 equ $ ; IN [PSCH.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__320 _LBL__319 F1_000930 equ $ ; IN [PSCH.BAS] ELSE F1_000931 equ $ ; IN [PSCH.BAS] IF VELFLAGS.4 = 1 THEN btfss VelFlags,4,0 bra _LBL__322 F1_000932 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000933 equ $ ; IN [PSCH.BAS] TIMVALS[4] = TIME + RATE4 movf Rate4,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate4H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_000934 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.4 bcf VelFlags,4,0 bra _LBL__323 _LBL__322 F1_000935 equ $ ; IN [PSCH.BAS] ELSE F1_000936 equ $ ; IN [PSCH.BAS] SET PORTA.2 bsf LATA,2,0 F1_000937 equ $ ; IN [PSCH.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_000938 equ $ ; IN [PSCH.BAS] SET VELFLAGS.4 bsf VelFlags,4,0 F1_000939 equ $ ; IN [PSCH.BAS] ENDIF _LBL__323 F1_000940 equ $ ; IN [PSCH.BAS] ENDIF _LBL__320 bra _LBL__283 _LBL__317 F1_000941 equ $ ; IN [PSCH.BAS] CASE 5 movlw 5 subwf idx,W,0 bnz _LBL__325 F1_000942 equ $ ; IN [PSCH.BAS] IF NOTES.5 = 0 THEN btfsc Notes,5,0 bra _LBL__327 F1_000943 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.5 bcf VelFlags,5,0 F1_000944 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_000945 equ $ ; IN [PSCH.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__328 _LBL__327 F1_000946 equ $ ; IN [PSCH.BAS] ELSE F1_000947 equ $ ; IN [PSCH.BAS] IF VELFLAGS.5 = 1 THEN btfss VelFlags,5,0 bra _LBL__330 F1_000948 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_000949 equ $ ; IN [PSCH.BAS] TIMVALS[5] = TIME + RATE5 movf Rate5,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate5H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_000950 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.5 bcf VelFlags,5,0 bra _LBL__331 _LBL__330 F1_000951 equ $ ; IN [PSCH.BAS] ELSE F1_000952 equ $ ; IN [PSCH.BAS] SET PORTB.7 bsf LATB,7,0 F1_000953 equ $ ; IN [PSCH.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_000954 equ $ ; IN [PSCH.BAS] SET VELFLAGS.5 bsf VelFlags,5,0 F1_000955 equ $ ; IN [PSCH.BAS] ENDIF _LBL__331 F1_000956 equ $ ; IN [PSCH.BAS] ENDIF _LBL__328 bra _LBL__283 _LBL__325 F1_000957 equ $ ; IN [PSCH.BAS] CASE 6 movlw 6 subwf idx,W,0 bnz _LBL__333 F1_000958 equ $ ; IN [PSCH.BAS] IF NOTES.6 = 0 THEN btfsc Notes,6,0 bra _LBL__335 F1_000959 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.6 bcf VelFlags,6,0 F1_000960 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000961 equ $ ; IN [PSCH.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__336 _LBL__335 F1_000962 equ $ ; IN [PSCH.BAS] ELSE F1_000963 equ $ ; IN [PSCH.BAS] IF VELFLAGS.6 = 1 THEN btfss VelFlags,6,0 bra _LBL__338 F1_000964 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000965 equ $ ; IN [PSCH.BAS] TIMVALS[6] = TIME + RATE6 movf Rate6,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate6H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_000966 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.6 bcf VelFlags,6,0 bra _LBL__339 _LBL__338 F1_000967 equ $ ; IN [PSCH.BAS] ELSE F1_000968 equ $ ; IN [PSCH.BAS] SET PORTA.4 bsf LATA,4,0 F1_000969 equ $ ; IN [PSCH.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_000970 equ $ ; IN [PSCH.BAS] SET VELFLAGS.6 bsf VelFlags,6,0 F1_000971 equ $ ; IN [PSCH.BAS] ENDIF _LBL__339 F1_000972 equ $ ; IN [PSCH.BAS] ENDIF _LBL__336 bra _LBL__283 _LBL__333 F1_000973 equ $ ; IN [PSCH.BAS] CASE 7 movlw 7 subwf idx,W,0 bnz _LBL__341 F1_000974 equ $ ; IN [PSCH.BAS] IF NOTES.7 = 0 THEN btfsc Notes,7,0 bra _LBL__343 F1_000975 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.7 bcf VelFlags,7,0 F1_000976 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000977 equ $ ; IN [PSCH.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__344 _LBL__343 F1_000978 equ $ ; IN [PSCH.BAS] ELSE F1_000979 equ $ ; IN [PSCH.BAS] IF VELFLAGS.7 = 1 THEN btfss VelFlags,7,0 bra _LBL__346 F1_000980 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_000981 equ $ ; IN [PSCH.BAS] TIMVALS[7] = TIME + RATE7 movf Rate7,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate7H,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_000982 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.7 bcf VelFlags,7,0 bra _LBL__347 _LBL__346 F1_000983 equ $ ; IN [PSCH.BAS] ELSE F1_000984 equ $ ; IN [PSCH.BAS] SET PORTB.6 bsf LATB,6,0 F1_000985 equ $ ; IN [PSCH.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_000986 equ $ ; IN [PSCH.BAS] SET VELFLAGS.7 bsf VelFlags,7,0 F1_000987 equ $ ; IN [PSCH.BAS] ENDIF _LBL__347 F1_000988 equ $ ; IN [PSCH.BAS] ENDIF _LBL__344 bra _LBL__283 _LBL__341 F1_000989 equ $ ; IN [PSCH.BAS] CASE 8 movlw 8 subwf idx,W,0 bnz _LBL__349 F1_000990 equ $ ; IN [PSCH.BAS] IF NOTES.8 = 0 THEN btfsc NotesH,0,0 bra _LBL__351 F1_000991 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.8 bcf VelFlagsH,0,0 F1_000992 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000993 equ $ ; IN [PSCH.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 bra _LBL__352 _LBL__351 F1_000994 equ $ ; IN [PSCH.BAS] ELSE F1_000995 equ $ ; IN [PSCH.BAS] IF VELFLAGS.8 = 1 THEN btfss VelFlagsH,0,0 bra _LBL__354 F1_000996 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000997 equ $ ; IN [PSCH.BAS] TIMVALS[8] = TIME + RATE8 movf Rate8,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate8H,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_000998 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.8 bcf VelFlagsH,0,0 bra _LBL__355 _LBL__354 F1_000999 equ $ ; IN [PSCH.BAS] ELSE F1_001000 equ $ ; IN [PSCH.BAS] SET PORTB.4 bsf LATB,4,0 F1_001001 equ $ ; IN [PSCH.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_001002 equ $ ; IN [PSCH.BAS] SET VELFLAGS.8 bsf VelFlagsH,0,0 F1_001003 equ $ ; IN [PSCH.BAS] ENDIF _LBL__355 F1_001004 equ $ ; IN [PSCH.BAS] ENDIF _LBL__352 bra _LBL__283 _LBL__349 F1_001005 equ $ ; IN [PSCH.BAS] CASE 9 movlw 9 subwf idx,W,0 bnz _LBL__357 F1_001006 equ $ ; IN [PSCH.BAS] IF NOTES.9 = 0 THEN btfsc NotesH,1,0 bra _LBL__359 F1_001007 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.9 bcf VelFlagsH,1,0 F1_001008 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001009 equ $ ; IN [PSCH.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 bra _LBL__360 _LBL__359 F1_001010 equ $ ; IN [PSCH.BAS] ELSE F1_001011 equ $ ; IN [PSCH.BAS] IF VELFLAGS.9 = 1 THEN btfss VelFlagsH,1,0 bra _LBL__362 F1_001012 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001013 equ $ ; IN [PSCH.BAS] TIMVALS[9] = TIME + RATE9 movf Rate9,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate9H,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_001014 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.9 bcf VelFlagsH,1,0 bra _LBL__363 _LBL__362 F1_001015 equ $ ; IN [PSCH.BAS] ELSE F1_001016 equ $ ; IN [PSCH.BAS] SET PORTB.2 bsf LATB,2,0 F1_001017 equ $ ; IN [PSCH.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_001018 equ $ ; IN [PSCH.BAS] SET VELFLAGS.9 bsf VelFlagsH,1,0 F1_001019 equ $ ; IN [PSCH.BAS] ENDIF _LBL__363 F1_001020 equ $ ; IN [PSCH.BAS] ENDIF _LBL__360 bra _LBL__283 _LBL__357 F1_001021 equ $ ; IN [PSCH.BAS] CASE 10 movlw 10 subwf idx,W,0 bnz _LBL__365 F1_001022 equ $ ; IN [PSCH.BAS] IF NOTES.10 = 0 THEN btfsc NotesH,2,0 bra _LBL__367 F1_001023 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.10 bcf VelFlagsH,2,0 F1_001024 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001025 equ $ ; IN [PSCH.BAS] SET TIMVALS[10] setf TimVals#10HHH,1 setf TimVals#10HH,1 setf TimVals#10H,1 setf TimVals#10,1 bra _LBL__368 _LBL__367 F1_001026 equ $ ; IN [PSCH.BAS] ELSE F1_001027 equ $ ; IN [PSCH.BAS] IF VELFLAGS.10 = 1 THEN btfss VelFlagsH,2,0 bra _LBL__370 F1_001028 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001029 equ $ ; IN [PSCH.BAS] TIMVALS[10] = TIME + RATE10 movf Rate10,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate10H,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#10HHH movff PBP#VAR0HH,TimVals#10HH movff PBP#VAR0H,TimVals#10H movff PBP#VAR0,TimVals#10 F1_001030 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.10 bcf VelFlagsH,2,0 bra _LBL__371 _LBL__370 F1_001031 equ $ ; IN [PSCH.BAS] ELSE F1_001032 equ $ ; IN [PSCH.BAS] SET PORTA.5 bsf LATA,5,0 F1_001033 equ $ ; IN [PSCH.BAS] TIMVALS[10] = TIME + VELO10 movf velo10,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo10H,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#10HHH movff PBP#VAR0HH,TimVals#10HH movff PBP#VAR0H,TimVals#10H movff PBP#VAR0,TimVals#10 F1_001034 equ $ ; IN [PSCH.BAS] SET VELFLAGS.10 bsf VelFlagsH,2,0 F1_001035 equ $ ; IN [PSCH.BAS] ENDIF _LBL__371 F1_001036 equ $ ; IN [PSCH.BAS] ENDIF _LBL__368 bra _LBL__283 _LBL__365 F1_001037 equ $ ; IN [PSCH.BAS] CASE 11 movlw 11 subwf idx,W,0 bnz _LBL__373 F1_001038 equ $ ; IN [PSCH.BAS] IF NOTES.11 = 0 THEN btfsc NotesH,3,0 bra _LBL__375 F1_001039 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.11 bcf VelFlagsH,3,0 F1_001040 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001041 equ $ ; IN [PSCH.BAS] SET TIMVALS[11] setf TimVals#11HHH,1 setf TimVals#11HH,1 setf TimVals#11H,1 setf TimVals#11,1 bra _LBL__376 _LBL__375 F1_001042 equ $ ; IN [PSCH.BAS] ELSE F1_001043 equ $ ; IN [PSCH.BAS] IF VELFLAGS.11 = 1 THEN btfss VelFlagsH,3,0 bra _LBL__378 F1_001044 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001045 equ $ ; IN [PSCH.BAS] TIMVALS[11] = TIME + RATE11 movf Rate11,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf Rate11H,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#11HHH movff PBP#VAR0HH,TimVals#11HH movff PBP#VAR0H,TimVals#11H movff PBP#VAR0,TimVals#11 F1_001046 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS.11 bcf VelFlagsH,3,0 bra _LBL__379 _LBL__378 F1_001047 equ $ ; IN [PSCH.BAS] ELSE F1_001048 equ $ ; IN [PSCH.BAS] SET PORTB.5 bsf LATB,5,0 F1_001049 equ $ ; IN [PSCH.BAS] TIMVALS[11] = TIME + VELO11 movf velo11,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo11H,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#11HHH movff PBP#VAR0HH,TimVals#11HH movff PBP#VAR0H,TimVals#11H movff PBP#VAR0,TimVals#11 F1_001050 equ $ ; IN [PSCH.BAS] SET VELFLAGS.11 bsf VelFlagsH,3,0 F1_001051 equ $ ; IN [PSCH.BAS] ENDIF _LBL__379 F1_001052 equ $ ; IN [PSCH.BAS] ENDIF _LBL__376 F1_001056 equ $ ; IN [PSCH.BAS] END SELECT _LBL__373 _LBL__283 F1_001057 equ $ ; IN [PSCH.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001063 equ $ ; IN [PSCH.BAS] ENDIF _LBL__282 F1_001065 equ $ ; IN [PSCH.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__381 F1_001066 equ $ ; IN [PSCH.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001067 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS clrf VelFlagsH,0 clrf VelFlags,0 F1_001068 equ $ ; IN [PSCH.BAS] CLEAR NOTES clrf NotesH,0 clrf Notes,0 F1_001069 equ $ ; IN [PSCH.BAS] SET TIMVALS lfsr 0,TimVals movlw 48 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001070 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001071 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001072 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001073 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001074 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001075 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001076 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001077 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001078 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001079 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001080 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001081 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001082 equ $ ; IN [PSCH.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001083 equ $ ; IN [PSCH.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001084 equ $ ; IN [PSCH.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001085 equ $ ; IN [PSCH.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001086 equ $ ; IN [PSCH.BAS] ENDIF _LBL__381 bra _LBL__382 _LBL__280 F1_001087 equ $ ; IN [PSCH.BAS] ELSE F1_001089 equ $ ; IN [PSCH.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__384 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__384 F1_001090 equ $ ; IN [PSCH.BAS] ENDIF _LBL__382 F1_001092 equ $ ; IN [PSCH.BAS] BTG PORTC.3 btg PORTC,3 F1_001093 equ $ ; IN [PSCH.BAS] GOTO LOOP goto LOOP SortTimers F1_001098 equ $ ; IN [PSCH.BAS] SET IDX setf idx,0 F1_001099 equ $ ; IN [PSCH.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_001100 equ $ ; IN [PSCH.BAS] FOR I = 0 TO 11 clrf _I,0 _FRLB__385 movlw 12 subwf _I,W,0 bc _NXLB__386 F1_001101 equ $ ; IN [PSCH.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 132 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__389 F1_001102 equ $ ; IN [PSCH.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 132 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_001103 equ $ ; IN [PSCH.BAS] IDX = I movff _I,idx F1_001104 equ $ ; IN [PSCH.BAS] ENDIF _LBL__389 _CTLB__387 F1_001105 equ $ ; IN [PSCH.BAS] NEXT I incf _I,F,0 bnc _FRLB__385 _NXLB__386 F1_001110 equ $ ; IN [PSCH.BAS] RETURN return 0 Controller F1_001127 equ $ ; IN [PSCH.BAS] SELECT CTRL F1_001128 equ $ ; IN [PSCH.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__391 F1_001130 equ $ ; IN [PSCH.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__394 F1_001131 equ $ ; IN [PSCH.BAS] CLEAR NOTES clrf NotesH,0 clrf Notes,0 F1_001132 equ $ ; IN [PSCH.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001133 equ $ ; IN [PSCH.BAS] CLEAR PRES0 clrf Pres0,0 F1_001134 equ $ ; IN [PSCH.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001135 equ $ ; IN [PSCH.BAS] CLEAR PRES1 clrf Pres1,0 F1_001136 equ $ ; IN [PSCH.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001137 equ $ ; IN [PSCH.BAS] CLEAR PRES2 clrf Pres2,0 F1_001138 equ $ ; IN [PSCH.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001139 equ $ ; IN [PSCH.BAS] CLEAR PRES3 clrf Pres3,0 F1_001140 equ $ ; IN [PSCH.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001141 equ $ ; IN [PSCH.BAS] CLEAR PRES4 clrf Pres4,0 F1_001142 equ $ ; IN [PSCH.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001143 equ $ ; IN [PSCH.BAS] CLEAR PRES5 clrf Pres5,0 F1_001144 equ $ ; IN [PSCH.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001145 equ $ ; IN [PSCH.BAS] CLEAR PRES6 clrf Pres6,0 F1_001146 equ $ ; IN [PSCH.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_001147 equ $ ; IN [PSCH.BAS] CLEAR PRES7 clrf Pres7,0 F1_001148 equ $ ; IN [PSCH.BAS] CLEAR RATE8 clrf Rate8H,0 clrf Rate8,0 F1_001149 equ $ ; IN [PSCH.BAS] CLEAR PRES8 clrf Pres8,1 F1_001150 equ $ ; IN [PSCH.BAS] CLEAR RATE9 clrf Rate9H,0 clrf Rate9,0 F1_001151 equ $ ; IN [PSCH.BAS] CLEAR PRES9 clrf Pres9,1 F1_001152 equ $ ; IN [PSCH.BAS] CLEAR RATE10 clrf Rate10H,0 clrf Rate10,0 F1_001153 equ $ ; IN [PSCH.BAS] CLEAR PRES10 clrf Pres10,1 F1_001154 equ $ ; IN [PSCH.BAS] CLEAR RATE11 clrf Rate11H,0 clrf Rate11,0 F1_001155 equ $ ; IN [PSCH.BAS] CLEAR PRES11 clrf Pres11,1 bra _LBL__395 _LBL__394 F1_001156 equ $ ; IN [PSCH.BAS] ELSE F1_001157 equ $ ; IN [PSCH.BAS] PRES0 = VALUE movff value,Pres0 F1_001158 equ $ ; IN [PSCH.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_001159 equ $ ; IN [PSCH.BAS] PRES1 = VALUE movff value,Pres1 F1_001160 equ $ ; IN [PSCH.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_001161 equ $ ; IN [PSCH.BAS] PRES2 = VALUE movff value,Pres2 F1_001162 equ $ ; IN [PSCH.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_001163 equ $ ; IN [PSCH.BAS] PRES3 = VALUE movff value,Pres3 F1_001164 equ $ ; IN [PSCH.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_001165 equ $ ; IN [PSCH.BAS] PRES4 = VALUE movff value,Pres4 F1_001166 equ $ ; IN [PSCH.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_001167 equ $ ; IN [PSCH.BAS] PRES5 = VALUE movff value,Pres5 F1_001168 equ $ ; IN [PSCH.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_001169 equ $ ; IN [PSCH.BAS] PRES6 = VALUE movff value,Pres6 F1_001170 equ $ ; IN [PSCH.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_001171 equ $ ; IN [PSCH.BAS] PRES7 = VALUE movff value,Pres7 F1_001172 equ $ ; IN [PSCH.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_001173 equ $ ; IN [PSCH.BAS] PRES8 = VALUE movff value,Pres8 F1_001174 equ $ ; IN [PSCH.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_001175 equ $ ; IN [PSCH.BAS] PRES9 = VALUE movff value,Pres9 F1_001176 equ $ ; IN [PSCH.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_001177 equ $ ; IN [PSCH.BAS] PRES10 = VALUE movff value,Pres10 F1_001178 equ $ ; IN [PSCH.BAS] RATE10 = 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,Rate10 movff INDF0,Rate10H F1_001179 equ $ ; IN [PSCH.BAS] PRES11 = VALUE movff value,Pres11 F1_001180 equ $ ; IN [PSCH.BAS] RATE11 = 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,Rate11 movff INDF0,Rate11H F1_001181 equ $ ; IN [PSCH.BAS] ENDIF _LBL__395 bra _LBL__390 _LBL__391 F1_001182 equ $ ; IN [PSCH.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__397 F1_001184 equ $ ; IN [PSCH.BAS] IF VALUE = 0 THEN movf value,F,0 btfss STATUS,2,0 bra _LBL__399 F1_001185 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS clrf VelFlagsH,0 clrf VelFlags,0 F1_001186 equ $ ; IN [PSCH.BAS] CLEAR NOTES clrf NotesH,0 clrf Notes,0 F1_001187 equ $ ; IN [PSCH.BAS] SET TIMVALS lfsr 0,TimVals movlw 48 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001188 equ $ ; IN [PSCH.BAS] SET IDX setf idx,0 F1_001189 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001190 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001191 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001192 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001193 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001194 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001195 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001196 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001197 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001198 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001199 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001200 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001202 equ $ ; IN [PSCH.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001203 equ $ ; IN [PSCH.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001204 equ $ ; IN [PSCH.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001205 equ $ ; IN [PSCH.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001206 equ $ ; IN [PSCH.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001207 equ $ ; IN [PSCH.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001208 equ $ ; IN [PSCH.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001209 equ $ ; IN [PSCH.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_001210 equ $ ; IN [PSCH.BAS] CLEAR RATE8 clrf Rate8H,0 clrf Rate8,0 F1_001211 equ $ ; IN [PSCH.BAS] CLEAR RATE9 clrf Rate9H,0 clrf Rate9,0 F1_001212 equ $ ; IN [PSCH.BAS] CLEAR RATE10 clrf Rate10H,0 clrf Rate10,0 F1_001213 equ $ ; IN [PSCH.BAS] CLEAR RATE11 clrf Rate11H,0 clrf Rate11,0 F1_001214 equ $ ; IN [PSCH.BAS] CLEAR PRES0 clrf Pres0,0 F1_001215 equ $ ; IN [PSCH.BAS] CLEAR PRES1 clrf Pres1,0 F1_001216 equ $ ; IN [PSCH.BAS] CLEAR PRES2 clrf Pres2,0 F1_001217 equ $ ; IN [PSCH.BAS] CLEAR PRES3 clrf Pres3,0 F1_001218 equ $ ; IN [PSCH.BAS] CLEAR PRES4 clrf Pres4,0 F1_001219 equ $ ; IN [PSCH.BAS] CLEAR PRES5 clrf Pres5,0 F1_001220 equ $ ; IN [PSCH.BAS] CLEAR PRES6 clrf Pres6,0 F1_001221 equ $ ; IN [PSCH.BAS] CLEAR PRES7 clrf Pres7,0 F1_001222 equ $ ; IN [PSCH.BAS] CLEAR PRES8 clrf Pres8,1 F1_001223 equ $ ; IN [PSCH.BAS] CLEAR PRES9 clrf Pres9,1 F1_001224 equ $ ; IN [PSCH.BAS] CLEAR PRES10 clrf Pres10,1 F1_001225 equ $ ; IN [PSCH.BAS] CLEAR PRES11 clrf Pres11,1 F1_001226 equ $ ; IN [PSCH.BAS] CLEAR CC66 clrf CC66,0 F1_001227 equ $ ; IN [PSCH.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001228 equ $ ; IN [PSCH.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001229 equ $ ; IN [PSCH.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001230 equ $ ; IN [PSCH.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001231 equ $ ; IN [PSCH.BAS] CLEAR PORTC.4 bcf LATC,4,0 bra _LBL__400 _LBL__399 F1_001232 equ $ ; IN [PSCH.BAS] ELSE F1_001234 equ $ ; IN [PSCH.BAS] SET CC66 setf CC66,0 F1_001236 equ $ ; IN [PSCH.BAS] ENDIF _LBL__400 bra _LBL__390 _LBL__397 F1_001237 equ $ ; IN [PSCH.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _LBL__402 F1_001238 equ $ ; IN [PSCH.BAS] CLEAR VELFLAGS clrf VelFlagsH,0 clrf VelFlags,0 F1_001239 equ $ ; IN [PSCH.BAS] CLEAR NOTES clrf NotesH,0 clrf Notes,0 F1_001240 equ $ ; IN [PSCH.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001241 equ $ ; IN [PSCH.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001242 equ $ ; IN [PSCH.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001243 equ $ ; IN [PSCH.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001244 equ $ ; IN [PSCH.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001245 equ $ ; IN [PSCH.BAS] CLEAR PORTB.7 bcf LATB,7,0 F1_001246 equ $ ; IN [PSCH.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001247 equ $ ; IN [PSCH.BAS] CLEAR PORTB.6 bcf LATB,6,0 F1_001248 equ $ ; IN [PSCH.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001249 equ $ ; IN [PSCH.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001250 equ $ ; IN [PSCH.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001251 equ $ ; IN [PSCH.BAS] CLEAR PORTB.5 bcf LATB,5,0 F1_001252 equ $ ; IN [PSCH.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001253 equ $ ; IN [PSCH.BAS] SET TIMVALS lfsr 0,TimVals movlw 48 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001254 equ $ ; IN [PSCH.BAS] SET IDX setf idx,0 F1_001255 equ $ ; IN [PSCH.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001256 equ $ ; IN [PSCH.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001257 equ $ ; IN [PSCH.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001258 equ $ ; IN [PSCH.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001259 equ $ ; IN [PSCH.BAS] ENDSELECT _LBL__402 _LBL__390 F1_001260 equ $ ; IN [PSCH.BAS] SET CTRL setf Ctrl,0 F1_001261 equ $ ; IN [PSCH.BAS] RETURN return 0 Dur_Lookup F1_001266 equ $ ; IN [PSCH.BAS] SET DUR[0] movlb 3 setf Dur#0H,1 setf Dur#0,1 F1_001267 equ $ ; IN [PSCH.BAS] DUR[1] = 41667 movlw 162 movwf Dur#1H,1 movlw 195 movwf Dur#1,1 F1_001268 equ $ ; IN [PSCH.BAS] DUR[2] = 39494 movlw 154 movwf Dur#2H,1 movlw 70 movwf Dur#2,1 F1_001269 equ $ ; IN [PSCH.BAS] DUR[3] = 38450 movlw 150 movwf Dur#3H,1 movlw 50 movwf Dur#3,1 F1_001270 equ $ ; IN [PSCH.BAS] DUR[4] = 37434 movlw 146 movwf Dur#4H,1 movlw 58 movwf Dur#4,1 F1_001271 equ $ ; IN [PSCH.BAS] DUR[5] = 36445 movlw 142 movwf Dur#5H,1 movlw 93 movwf Dur#5,1 F1_001272 equ $ ; IN [PSCH.BAS] DUR[6] = 35482 movlw 138 movwf Dur#6H,1 movlw 154 movwf Dur#6,1 F1_001273 equ $ ; IN [PSCH.BAS] DUR[7] = 34544 movlw 134 movwf Dur#7H,1 movlw 240 movwf Dur#7,1 F1_001274 equ $ ; IN [PSCH.BAS] DUR[8] = 33631 movlw 131 movwf Dur#8H,1 movlw 95 movwf Dur#8,1 F1_001275 equ $ ; IN [PSCH.BAS] DUR[9] = 32743 movlw 127 movwf Dur#9H,1 movlw 231 movwf Dur#9,1 F1_001276 equ $ ; IN [PSCH.BAS] DUR[10] = 31877 movlw 124 movwf Dur#10H,1 movlw 133 movwf Dur#10,1 F1_001277 equ $ ; IN [PSCH.BAS] DUR[11] = 31035 movlw 121 movwf Dur#11H,1 movlw 59 movwf Dur#11,1 F1_001278 equ $ ; IN [PSCH.BAS] DUR[12] = 30215 movlw 118 movwf Dur#12H,1 movlw 7 movwf Dur#12,1 F1_001279 equ $ ; IN [PSCH.BAS] DUR[13] = 29416 movlw 114 movwf Dur#13H,1 movlw 232 movwf Dur#13,1 F1_001280 equ $ ; IN [PSCH.BAS] DUR[14] = 28639 movlw 111 movwf Dur#14H,1 movlw 223 movwf Dur#14,1 F1_001281 equ $ ; IN [PSCH.BAS] DUR[15] = 27882 movlw 108 movwf Dur#15H,1 movlw 234 movwf Dur#15,1 F1_001282 equ $ ; IN [PSCH.BAS] DUR[16] = 27146 movlw 106 movwf Dur#16H,1 movlw 10 movwf Dur#16,1 F1_001283 equ $ ; IN [PSCH.BAS] DUR[17] = 26428 movlw 103 movwf Dur#17H,1 movlw 60 movwf Dur#17,1 F1_001284 equ $ ; IN [PSCH.BAS] DUR[18] = 25730 movlw 100 movwf Dur#18H,1 movlw 130 movwf Dur#18,1 F1_001285 equ $ ; IN [PSCH.BAS] DUR[19] = 25050 movlw 97 movwf Dur#19H,1 movlw 218 movwf Dur#19,1 F1_001286 equ $ ; IN [PSCH.BAS] DUR[20] = 24388 movlw 95 movwf Dur#20H,1 movlw 68 movwf Dur#20,1 F1_001287 equ $ ; IN [PSCH.BAS] DUR[21] = 23743 movlw 92 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_001288 equ $ ; IN [PSCH.BAS] DUR[22] = 23116 movlw 90 movwf Dur#22H,1 movlw 76 movwf Dur#22,1 F1_001289 equ $ ; IN [PSCH.BAS] DUR[23] = 22505 movlw 87 movwf Dur#23H,1 movlw 233 movwf Dur#23,1 F1_001290 equ $ ; IN [PSCH.BAS] DUR[24] = 21910 movlw 85 movwf Dur#24H,1 movlw 150 movwf Dur#24,1 F1_001291 equ $ ; IN [PSCH.BAS] DUR[25] = 21331 movlw 83 movwf Dur#25H,1 movwf Dur#25,1 F1_001292 equ $ ; IN [PSCH.BAS] DUR[26] = 20768 movlw 81 movwf Dur#26H,1 movlw 32 movwf Dur#26,1 F1_001293 equ $ ; IN [PSCH.BAS] DUR[27] = 20219 movlw 78 movwf Dur#27H,1 movlw 251 movwf Dur#27,1 F1_001294 equ $ ; IN [PSCH.BAS] DUR[28] = 19685 movlw 76 movwf Dur#28H,1 movlw 229 movwf Dur#28,1 F1_001295 equ $ ; IN [PSCH.BAS] DUR[29] = 19164 movlw 74 movwf Dur#29H,1 movlw 220 movwf Dur#29,1 F1_001296 equ $ ; IN [PSCH.BAS] DUR[30] = 18658 movlw 72 movwf Dur#30H,1 movlw 226 movwf Dur#30,1 F1_001297 equ $ ; IN [PSCH.BAS] DUR[31] = 18165 movlw 70 movwf Dur#31H,1 movlw 245 movwf Dur#31,1 F1_001298 equ $ ; IN [PSCH.BAS] DUR[32] = 17685 movlw 69 movwf Dur#32H,1 movlw 21 movwf Dur#32,1 F1_001299 equ $ ; IN [PSCH.BAS] DUR[33] = 17218 movlw 67 movwf Dur#33H,1 movlw 66 movwf Dur#33,1 F1_001300 equ $ ; IN [PSCH.BAS] DUR[34] = 16763 movlw 65 movwf Dur#34H,1 movlw 123 movwf Dur#34,1 F1_001301 equ $ ; IN [PSCH.BAS] DUR[35] = 16320 movlw 63 movwf Dur#35H,1 movlw 192 movwf Dur#35,1 F1_001302 equ $ ; IN [PSCH.BAS] DUR[36] = 15888 movlw 62 movwf Dur#36H,1 movlw 16 movwf Dur#36,1 F1_001303 equ $ ; IN [PSCH.BAS] DUR[37] = 15469 movlw 60 movwf Dur#37H,1 movlw 109 movwf Dur#37,1 F1_001304 equ $ ; IN [PSCH.BAS] DUR[38] = 15060 movlw 58 movlb 4 movwf Dur#38H,1 movlw 212 movwf Dur#38,1 F1_001305 equ $ ; IN [PSCH.BAS] DUR[39] = 14662 movlw 57 movwf Dur#39H,1 movlw 70 movwf Dur#39,1 F1_001306 equ $ ; IN [PSCH.BAS] DUR[40] = 14274 movlw 55 movwf Dur#40H,1 movlw 194 movwf Dur#40,1 F1_001307 equ $ ; IN [PSCH.BAS] DUR[41] = 13897 movlw 54 movwf Dur#41H,1 movlw 73 movwf Dur#41,1 F1_001308 equ $ ; IN [PSCH.BAS] DUR[42] = 13530 movlw 52 movwf Dur#42H,1 movlw 218 movwf Dur#42,1 F1_001309 equ $ ; IN [PSCH.BAS] DUR[43] = 13172 movlw 51 movwf Dur#43H,1 movlw 116 movwf Dur#43,1 F1_001310 equ $ ; IN [PSCH.BAS] DUR[44] = 12824 movlw 50 movwf Dur#44H,1 movlw 24 movwf Dur#44,1 F1_001311 equ $ ; IN [PSCH.BAS] DUR[45] = 12485 movlw 48 movwf Dur#45H,1 movlw 197 movwf Dur#45,1 F1_001312 equ $ ; IN [PSCH.BAS] DUR[46] = 12155 movlw 47 movwf Dur#46H,1 movlw 123 movwf Dur#46,1 F1_001313 equ $ ; IN [PSCH.BAS] DUR[47] = 11834 movlw 46 movwf Dur#47H,1 movlw 58 movwf Dur#47,1 F1_001314 equ $ ; IN [PSCH.BAS] DUR[48] = 11522 movlw 45 movwf Dur#48H,1 movlw 2 movwf Dur#48,1 F1_001315 equ $ ; IN [PSCH.BAS] DUR[49] = 11217 movlw 43 movwf Dur#49H,1 movlw 209 movwf Dur#49,1 F1_001316 equ $ ; IN [PSCH.BAS] DUR[50] = 10921 movlw 42 movwf Dur#50H,1 movlw 169 movwf Dur#50,1 F1_001317 equ $ ; IN [PSCH.BAS] DUR[51] = 10632 movlw 41 movwf Dur#51H,1 movlw 136 movwf Dur#51,1 F1_001318 equ $ ; IN [PSCH.BAS] DUR[52] = 10351 movlw 40 movwf Dur#52H,1 movlw 111 movwf Dur#52,1 F1_001319 equ $ ; IN [PSCH.BAS] DUR[53] = 10078 movlw 39 movwf Dur#53H,1 movlw 94 movwf Dur#53,1 F1_001320 equ $ ; IN [PSCH.BAS] DUR[54] = 9811 movlw 38 movwf Dur#54H,1 movlw 83 movwf Dur#54,1 F1_001321 equ $ ; IN [PSCH.BAS] DUR[55] = 9552 movlw 37 movwf Dur#55H,1 movlw 80 movwf Dur#55,1 F1_001322 equ $ ; IN [PSCH.BAS] DUR[56] = 9300 movlw 36 movwf Dur#56H,1 movlw 84 movwf Dur#56,1 F1_001323 equ $ ; IN [PSCH.BAS] DUR[57] = 9054 movlw 35 movwf Dur#57H,1 movlw 94 movwf Dur#57,1 F1_001324 equ $ ; IN [PSCH.BAS] DUR[58] = 8815 movlw 34 movwf Dur#58H,1 movlw 111 movwf Dur#58,1 F1_001325 equ $ ; IN [PSCH.BAS] DUR[59] = 8582 movlw 33 movwf Dur#59H,1 movlw 134 movwf Dur#59,1 F1_001326 equ $ ; IN [PSCH.BAS] DUR[60] = 8355 movlw 32 movwf Dur#60H,1 movlw 163 movwf Dur#60,1 F1_001327 equ $ ; IN [PSCH.BAS] DUR[61] = 8134 movlw 31 movwf Dur#61H,1 movlw 198 movwf Dur#61,1 F1_001328 equ $ ; IN [PSCH.BAS] DUR[62] = 7919 movlw 30 movwf Dur#62H,1 movlw 239 movwf Dur#62,1 F1_001329 equ $ ; IN [PSCH.BAS] DUR[63] = 7710 movlw 30 movwf Dur#63H,1 movwf Dur#63,1 F1_001330 equ $ ; IN [PSCH.BAS] DUR[64] = 7506 movlw 29 movwf Dur#64H,1 movlw 82 movwf Dur#64,1 F1_001331 equ $ ; IN [PSCH.BAS] DUR[65] = 7308 movlw 28 movwf Dur#65H,1 movlw 140 movwf Dur#65,1 F1_001332 equ $ ; IN [PSCH.BAS] DUR[66] = 7115 movlw 27 movwf Dur#66H,1 movlw 203 movwf Dur#66,1 F1_001333 equ $ ; IN [PSCH.BAS] DUR[67] = 6927 movlw 27 movwf Dur#67H,1 movlw 15 movwf Dur#67,1 F1_001334 equ $ ; IN [PSCH.BAS] DUR[68] = 6744 movlw 26 movwf Dur#68H,1 movlw 88 movwf Dur#68,1 F1_001335 equ $ ; IN [PSCH.BAS] DUR[69] = 6565 movlw 25 movwf Dur#69H,1 movlw 165 movwf Dur#69,1 F1_001336 equ $ ; IN [PSCH.BAS] DUR[70] = 6392 movlw 24 movwf Dur#70H,1 movlw 248 movwf Dur#70,1 F1_001337 equ $ ; IN [PSCH.BAS] DUR[71] = 6223 movlw 24 movwf Dur#71H,1 movlw 79 movwf Dur#71,1 F1_001338 equ $ ; IN [PSCH.BAS] DUR[72] = 6059 movlw 23 movwf Dur#72H,1 movlw 171 movwf Dur#72,1 F1_001339 equ $ ; IN [PSCH.BAS] DUR[73] = 5898 movlw 23 movwf Dur#73H,1 movlw 10 movwf Dur#73,1 F1_001340 equ $ ; IN [PSCH.BAS] DUR[74] = 5743 movlw 22 movwf Dur#74H,1 movlw 111 movwf Dur#74,1 F1_001341 equ $ ; IN [PSCH.BAS] DUR[75] = 5591 movlw 21 movwf Dur#75H,1 movlw 215 movwf Dur#75,1 F1_001342 equ $ ; IN [PSCH.BAS] DUR[76] = 5443 movlw 21 movwf Dur#76H,1 movlw 67 movwf Dur#76,1 F1_001343 equ $ ; IN [PSCH.BAS] DUR[77] = 5299 movlw 20 movwf Dur#77H,1 movlw 179 movwf Dur#77,1 F1_001344 equ $ ; IN [PSCH.BAS] DUR[78] = 5159 movlw 20 movwf Dur#78H,1 movlw 39 movwf Dur#78,1 F1_001345 equ $ ; IN [PSCH.BAS] DUR[79] = 5023 movlw 19 movwf Dur#79H,1 movlw 159 movwf Dur#79,1 F1_001346 equ $ ; IN [PSCH.BAS] DUR[80] = 4890 movlw 19 movwf Dur#80H,1 movlw 26 movwf Dur#80,1 F1_001347 equ $ ; IN [PSCH.BAS] DUR[81] = 4761 movlw 18 movwf Dur#81H,1 movlw 153 movwf Dur#81,1 F1_001348 equ $ ; IN [PSCH.BAS] DUR[82] = 4635 movlw 18 movwf Dur#82H,1 movlw 27 movwf Dur#82,1 F1_001349 equ $ ; IN [PSCH.BAS] DUR[83] = 4513 movlw 17 movwf Dur#83H,1 movlw 161 movwf Dur#83,1 F1_001350 equ $ ; IN [PSCH.BAS] DUR[84] = 4393 movlw 17 movwf Dur#84H,1 movlw 41 movwf Dur#84,1 F1_001351 equ $ ; IN [PSCH.BAS] DUR[85] = 4277 movlw 16 movwf Dur#85H,1 movlw 181 movwf Dur#85,1 F1_001352 equ $ ; IN [PSCH.BAS] DUR[86] = 4164 movlw 16 movwf Dur#86H,1 movlw 68 movwf Dur#86,1 F1_001353 equ $ ; IN [PSCH.BAS] DUR[87] = 4054 movlw 15 movwf Dur#87H,1 movlw 214 movwf Dur#87,1 F1_001354 equ $ ; IN [PSCH.BAS] DUR[88] = 3947 movlw 15 movwf Dur#88H,1 movlw 107 movwf Dur#88,1 F1_001355 equ $ ; IN [PSCH.BAS] DUR[89] = 3843 movlw 15 movwf Dur#89H,1 movlw 3 movwf Dur#89,1 F1_001356 equ $ ; IN [PSCH.BAS] DUR[90] = 3741 movlw 14 movwf Dur#90H,1 movlw 157 movwf Dur#90,1 F1_001357 equ $ ; IN [PSCH.BAS] DUR[91] = 3642 movlw 14 movwf Dur#91H,1 movlw 58 movwf Dur#91,1 F1_001358 equ $ ; IN [PSCH.BAS] DUR[92] = 3546 movlw 13 movwf Dur#92H,1 movlw 218 movwf Dur#92,1 F1_001359 equ $ ; IN [PSCH.BAS] DUR[93] = 3452 movlw 13 movwf Dur#93H,1 movlw 124 movwf Dur#93,1 F1_001360 equ $ ; IN [PSCH.BAS] DUR[94] = 3361 movlw 13 movwf Dur#94H,1 movlw 33 movwf Dur#94,1 F1_001361 equ $ ; IN [PSCH.BAS] DUR[95] = 3272 movlw 12 movwf Dur#95H,1 movlw 200 movwf Dur#95,1 F1_001362 equ $ ; IN [PSCH.BAS] DUR[96] = 3186 movlw 12 movwf Dur#96H,1 movlw 114 movwf Dur#96,1 F1_001363 equ $ ; IN [PSCH.BAS] DUR[97] = 3102 movlw 12 movwf Dur#97H,1 movlw 30 movwf Dur#97,1 F1_001364 equ $ ; IN [PSCH.BAS] DUR[98] = 3020 movlw 11 movwf Dur#98H,1 movlw 204 movwf Dur#98,1 F1_001365 equ $ ; IN [PSCH.BAS] DUR[99] = 2940 movlw 11 movwf Dur#99H,1 movlw 124 movwf Dur#99,1 F1_001366 equ $ ; IN [PSCH.BAS] DUR[100] = 2862 movlw 11 movwf Dur#100H,1 movlw 46 movwf Dur#100,1 F1_001367 equ $ ; IN [PSCH.BAS] DUR[101] = 2787 movlw 10 movwf Dur#101H,1 movlw 227 movwf Dur#101,1 F1_001368 equ $ ; IN [PSCH.BAS] DUR[102] = 2713 movlw 10 movwf Dur#102H,1 movlw 153 movwf Dur#102,1 F1_001369 equ $ ; IN [PSCH.BAS] DUR[103] = 2641 movlw 10 movwf Dur#103H,1 movlw 81 movwf Dur#103,1 F1_001370 equ $ ; IN [PSCH.BAS] DUR[104] = 2571 movlw 10 movwf Dur#104H,1 movlw 11 movwf Dur#104,1 F1_001371 equ $ ; IN [PSCH.BAS] DUR[105] = 2504 movlw 9 movwf Dur#105H,1 movlw 200 movwf Dur#105,1 F1_001372 equ $ ; IN [PSCH.BAS] DUR[106] = 2437 movlw 9 movwf Dur#106H,1 movlw 133 movwf Dur#106,1 F1_001373 equ $ ; IN [PSCH.BAS] DUR[107] = 2373 movlw 9 movwf Dur#107H,1 movlw 69 movwf Dur#107,1 F1_001374 equ $ ; IN [PSCH.BAS] DUR[108] = 2310 movlw 9 movwf Dur#108H,1 movlw 6 movwf Dur#108,1 F1_001375 equ $ ; IN [PSCH.BAS] DUR[109] = 2249 movlw 8 movwf Dur#109H,1 movlw 201 movwf Dur#109,1 F1_001376 equ $ ; IN [PSCH.BAS] DUR[110] = 2190 movlw 8 movwf Dur#110H,1 movlw 142 movwf Dur#110,1 F1_001377 equ $ ; IN [PSCH.BAS] DUR[111] = 2132 movlw 8 movwf Dur#111H,1 movlw 84 movwf Dur#111,1 F1_001378 equ $ ; IN [PSCH.BAS] DUR[112] = 2076 movlw 8 movwf Dur#112H,1 movlw 28 movwf Dur#112,1 F1_001379 equ $ ; IN [PSCH.BAS] DUR[113] = 2021 movlw 7 movwf Dur#113H,1 movlw 229 movwf Dur#113,1 F1_001380 equ $ ; IN [PSCH.BAS] DUR[114] = 1967 movlw 7 movwf Dur#114H,1 movlw 175 movwf Dur#114,1 F1_001381 equ $ ; IN [PSCH.BAS] DUR[115] = 1915 movlw 7 movwf Dur#115H,1 movlw 123 movwf Dur#115,1 F1_001382 equ $ ; IN [PSCH.BAS] DUR[116] = 1865 movlw 7 movwf Dur#116H,1 movlw 73 movwf Dur#116,1 F1_001383 equ $ ; IN [PSCH.BAS] DUR[117] = 1815 movlw 7 movwf Dur#117H,1 movlw 23 movwf Dur#117,1 F1_001384 equ $ ; IN [PSCH.BAS] DUR[118] = 1767 movlw 6 movwf Dur#118H,1 movlw 231 movwf Dur#118,1 F1_001385 equ $ ; IN [PSCH.BAS] DUR[119] = 1721 movlw 6 movwf Dur#119H,1 movlw 185 movwf Dur#119,1 F1_001386 equ $ ; IN [PSCH.BAS] DUR[120] = 1675 movlw 6 movwf Dur#120H,1 movlw 139 movwf Dur#120,1 F1_001387 equ $ ; IN [PSCH.BAS] DUR[121] = 1631 movlw 6 movwf Dur#121H,1 movlw 95 movwf Dur#121,1 F1_001388 equ $ ; IN [PSCH.BAS] DUR[122] = 1588 movlw 6 movwf Dur#122H,1 movlw 52 movwf Dur#122,1 F1_001389 equ $ ; IN [PSCH.BAS] DUR[123] = 1546 movlw 6 movwf Dur#123H,1 movlw 10 movwf Dur#123,1 F1_001390 equ $ ; IN [PSCH.BAS] DUR[124] = 1505 movlw 5 movwf Dur#124H,1 movlw 225 movwf Dur#124,1 F1_001391 equ $ ; IN [PSCH.BAS] DUR[125] = 1465 movlw 5 movwf Dur#125H,1 movlw 185 movwf Dur#125,1 F1_001392 equ $ ; IN [PSCH.BAS] DUR[126] = 1427 movlw 5 movwf Dur#126H,1 movlw 147 movwf Dur#126,1 F1_001393 equ $ ; IN [PSCH.BAS] DUR[127] = 1389 movlw 5 movwf Dur#127H,1 movlw 109 movwf Dur#127,1 F1_001394 equ $ ; IN [PSCH.BAS] RETURN movlb 0 return 0 Vels_Lookup F1_001406 equ $ ; IN [PSCH.BAS] FOR I = 1 TO 127 movlw 1 movwf _I,0 _FRLB__403 movlw 128 subwf _I,W,0 btfsc STATUS,0,0 bra _NXLB__404 F1_001407 equ $ ; IN [PSCH.BAS] VELS[I] = 76 + (17.35 * (I-1)) clrf PP7HHH,0 clrf PP7HH,0 movlw 24 movwf PP7H,0 movlw 133 movwf PP7,0 movlw 205 movwf PP8HHH,0 movlw 204 movwf PP8HH,0 movlw 10 movwf PP8H,0 movlw 131 movwf PP8,0 movf _I,W,0 call _UNS_INT08_TOFL32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 127 movwf PP_BARG,0 movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPS@32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 movff PP8HHH,PP_BARGHHH movff PP8HH,PP_BARGHH movff PP8H,PP_BARGH movff PP8,PP_BARG movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPM@32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call 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__405 F1_001408 equ $ ; IN [PSCH.BAS] NEXT I incf _I,F,0 btfss STATUS,0,0 bra _FRLB__403 _NXLB__404 F1_001414 equ $ ; IN [PSCH.BAS] RETURN return 0 F1_EOF equ $ ; PSCH.BAS _PBLB__406 bra _PBLB__406 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off end