;---------------------------------------------------------- ; Code Produced by the Proton Compiler. Ver 3.5.7.3 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. March 2015 ;---------------------------------------------------------- ; #define CONFIG_REQ 1 #define DEBUG@REQ 1 LIST P = 18F2525, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T=ON PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_PORT=TRISC _I2C_SCL_PIN=3 _I2C_SDA_PORT=TRISC _I2C_SDA_PIN=4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RE3=3 MCLR=3 NOT_MCLR=3 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TOUTPS0=3 TOUTPS1=4 TOUTPS2=5 TOUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 FLTS=2 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F2525 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0XC000 #define _ADC 10 #define _ADC_RES 10 #define _EEPROM 1024 #define RAM_BANKS 15 #define _USART 1 #define _USB 0 #define _USB#RAM_START 0 #define _FLASH 1 #define _CWRITE_BLOCK 64 #define BANK0_START 128 #define BANK0_END 255 #define BANK1_START 256 #define BANK1_END 511 #define BANK2_START 512 #define BANK2_END 767 #define BANK3_START 768 #define BANK3_END 1023 #define BANK4_START 1024 #define BANK4_END 1279 #define BANK5_START 1280 #define BANK5_END 1535 #define BANK6_START 1536 #define BANK6_END 1791 #define BANK7_START 1792 #define BANK7_END 2047 #define BANK8_START 2048 #define BANK8_END 2303 #define BANK9_START 2304 #define BANK9_END 2559 #define BANK10_START 2560 #define BANK10_END 2815 #define BANK11_START 2816 #define BANK11_END 3071 #define BANK12_START 3072 #define BANK12_END 3327 #define BANK13_START 3328 #define BANK13_END 3583 #define BANK14_START 3584 #define BANK14_END 3839 #define BANKA_START 0 #define BANKA_END 127 #define _SYSTEM_VARIABLE_COUNT 113 #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 PP0 = 6 PP0H = 7 PP1 = 8 PP1H = 9 Bytein = 10 _I = 11 statusbyte = 12 noteUit = 13 release = 14 noteAan = 15 velo = 16 notePres = 17 pres = 18 Ctrl = 19 value = 20 prog = 21 aft = 22 veltim0 = 23 veltim0H = 24 veltim0HH = 25 veltim0HHH = 26 veltim1 = 27 veltim1H = 28 veltim1HH = 29 veltim1HHH = 30 veltim2 = 31 veltim2H = 32 veltim2HH = 33 veltim2HHH = 34 veltim3 = 35 veltim3H = 36 veltim3HH = 37 veltim3HHH = 38 veltim4 = 39 veltim4H = 40 veltim4HH = 41 veltim4HHH = 42 veltim5 = 43 veltim5H = 44 veltim5HH = 45 veltim5HHH = 46 veltim6 = 47 veltim6H = 48 veltim6HH = 49 veltim6HHH = 50 veltim7 = 51 veltim7H = 52 veltim7HH = 53 veltim7HHH = 54 Velflags = 55 CC66 = 56 notes = 57 Rate0 = 58 Rate0H = 59 Rate1 = 60 Rate1H = 61 Rate2 = 62 Rate2H = 63 Rate3 = 64 Rate3H = 65 Rate4 = 66 Rate4H = 67 Rate5 = 68 Rate5H = 69 Rate6 = 70 Rate6H = 71 Rate7 = 72 Rate7H = 73 velo0 = 74 velo0H = 75 velo1 = 76 velo1H = 77 velo2 = 78 velo2H = 79 velo3 = 80 velo3H = 81 velo4 = 82 velo4H = 83 velo5 = 84 velo5H = 85 velo6 = 86 velo6H = 87 velo7 = 88 velo7H = 89 Pres0 = 90 Pres1 = 91 Pres2 = 92 Pres3 = 93 Pres4 = 94 Pres5 = 95 Pres6 = 96 Pres7 = 97 time = 98 timeH = 99 timeHH = 100 timeHHH = 101 _T = 102 tog = 103 Nxt = 104 NxtH = 105 NxtHH = 106 NxtHHH = 107 idx = 108 USART_FSR1_Save = 109 USART_FSR1_SaveH = 110 IndexIn = 111 IndexOut = 112 LRbyte = 113 TimVals = 114 TimValsH = 115 TimValsHH = 116 TimValsHHH = 117 variable TimVals#0=114,TimVals#0H=115,TimVals#0HH=116,TimVals#0HHH=117 variable TimVals#1=118,TimVals#1H=119,TimVals#1HH=120,TimVals#1HHH=121 variable TimVals#2=122,TimVals#2H=123,TimVals#2HH=124,TimVals#2HHH=125 variable TimVals#3=126,TimVals#3H=127,TimVals#3HH=128,TimVals#3HHH=129 variable TimVals#4=130,TimVals#4H=131,TimVals#4HH=132,TimVals#4HHH=133 variable TimVals#5=134,TimVals#5H=135,TimVals#5HH=136,TimVals#5HHH=137 variable TimVals#6=138,TimVals#6H=139,TimVals#6HH=140,TimVals#6HHH=141 variable TimVals#7=142,TimVals#7H=143,TimVals#7HH=144,TimVals#7HHH=145 dummy = 146 dummyH = 147 variable dummy#0=146,dummy#0H=147,dummy#1=148,dummy#1H=149 variable dummy#2=150,dummy#2H=151,dummy#3=152,dummy#3H=153 variable dummy#4=154,dummy#4H=155,dummy#5=156,dummy#5H=157 variable dummy#6=158,dummy#6H=159,dummy#7=160,dummy#7H=161 variable dummy#8=162,dummy#8H=163,dummy#9=164,dummy#9H=165 variable dummy#10=166,dummy#10H=167,dummy#11=168,dummy#11H=169 variable dummy#12=170,dummy#12H=171,dummy#13=172,dummy#13H=173 variable dummy#14=174,dummy#14H=175,dummy#15=176,dummy#15H=177 variable dummy#16=178,dummy#16H=179,dummy#17=180,dummy#17H=181 variable dummy#18=182,dummy#18H=183,dummy#19=184,dummy#19H=185 variable dummy#20=186,dummy#20H=187,dummy#21=188,dummy#21H=189 variable dummy#22=190,dummy#22H=191,dummy#23=192,dummy#23H=193 variable dummy#24=194,dummy#24H=195,dummy#25=196,dummy#25H=197 variable dummy#26=198,dummy#26H=199,dummy#27=200,dummy#27H=201 variable dummy#28=202,dummy#28H=203,dummy#29=204,dummy#29H=205 variable dummy#30=206,dummy#30H=207,dummy#31=208,dummy#31H=209 variable dummy#32=210,dummy#32H=211,dummy#33=212,dummy#33H=213 variable dummy#34=214,dummy#34H=215,dummy#35=216,dummy#35H=217 variable dummy#36=218,dummy#36H=219,dummy#37=220,dummy#37H=221 variable dummy#38=222,dummy#38H=223,dummy#39=224,dummy#39H=225 variable dummy#40=226,dummy#40H=227,dummy#41=228,dummy#41H=229 variable dummy#42=230,dummy#42H=231,dummy#43=232,dummy#43H=233 variable dummy#44=234,dummy#44H=235,dummy#45=236,dummy#45H=237 variable dummy#46=238,dummy#46H=239,dummy#47=240,dummy#47H=241 variable dummy#48=242,dummy#48H=243,dummy#49=244,dummy#49H=245 variable dummy#50=246,dummy#50H=247,dummy#51=248,dummy#51H=249 variable dummy#52=250,dummy#52H=251,dummy#53=252,dummy#53H=253 variable dummy#54=254,dummy#54H=255,dummy#55=256,dummy#55H=257 variable dummy#56=258,dummy#56H=259,dummy#57=260,dummy#57H=261 variable dummy#58=262,dummy#58H=263,dummy#59=264,dummy#59H=265 variable dummy#60=266,dummy#60H=267,dummy#61=268,dummy#61H=269 variable dummy#62=270,dummy#62H=271,dummy#63=272,dummy#63H=273 variable dummy#64=274,dummy#64H=275,dummy#65=276,dummy#65H=277 variable dummy#66=278,dummy#66H=279,dummy#67=280,dummy#67H=281 variable dummy#68=282,dummy#68H=283,dummy#69=284,dummy#69H=285 variable dummy#70=286,dummy#70H=287,dummy#71=288,dummy#71H=289 variable dummy#72=290,dummy#72H=291,dummy#73=292,dummy#73H=293 variable dummy#74=294,dummy#74H=295,dummy#75=296,dummy#75H=297 variable dummy#76=298,dummy#76H=299,dummy#77=300,dummy#77H=301 variable dummy#78=302,dummy#78H=303,dummy#79=304,dummy#79H=305 variable dummy#80=306,dummy#80H=307,dummy#81=308,dummy#81H=309 variable dummy#82=310,dummy#82H=311,dummy#83=312,dummy#83H=313 variable dummy#84=314,dummy#84H=315,dummy#85=316,dummy#85H=317 variable dummy#86=318,dummy#86H=319,dummy#87=320,dummy#87H=321 variable dummy#88=322,dummy#88H=323,dummy#89=324,dummy#89H=325 variable dummy#90=326,dummy#90H=327,dummy#91=328,dummy#91H=329 variable dummy#92=330,dummy#92H=331,dummy#93=332,dummy#93H=333 variable dummy#94=334,dummy#94H=335,dummy#95=336,dummy#95H=337 variable dummy#96=338,dummy#96H=339,dummy#97=340,dummy#97H=341 variable dummy#98=342,dummy#98H=343,dummy#99=344,dummy#99H=345 variable dummy#100=346,dummy#100H=347,dummy#101=348,dummy#101H=349 variable dummy#102=350,dummy#102H=351,dummy#103=352,dummy#103H=353 variable dummy#104=354,dummy#104H=355,dummy#105=356,dummy#105H=357 variable dummy#106=358,dummy#106H=359,dummy#107=360,dummy#107H=361 variable dummy#108=362,dummy#108H=363,dummy#109=364,dummy#109H=365 variable dummy#110=366,dummy#110H=367,dummy#111=368,dummy#111H=369 variable dummy#112=370,dummy#112H=371,dummy#113=372,dummy#113H=373 variable dummy#114=374,dummy#114H=375,dummy#115=376,dummy#115H=377 variable dummy#116=378,dummy#116H=379,dummy#117=380,dummy#117H=381 variable dummy#118=382,dummy#118H=383,dummy#119=384,dummy#119H=385 variable dummy#120=386,dummy#120H=387,dummy#121=388,dummy#121H=389 variable dummy#122=390,dummy#122H=391,dummy#123=392,dummy#123H=393 variable dummy#124=394,dummy#124H=395,dummy#125=396,dummy#125H=397 variable dummy#126=398,dummy#126H=399,dummy#127=400,dummy#127H=401 variable dummy#128=402,dummy#128H=403,dummy#129=404,dummy#129H=405 variable dummy#130=406,dummy#130H=407,dummy#131=408,dummy#131H=409 variable dummy#132=410,dummy#132H=411,dummy#133=412,dummy#133H=413 variable dummy#134=414,dummy#134H=415,dummy#135=416,dummy#135H=417 variable dummy#136=418,dummy#136H=419,dummy#137=420,dummy#137H=421 variable dummy#138=422,dummy#138H=423,dummy#139=424,dummy#139H=425 variable dummy#140=426,dummy#140H=427,dummy#141=428,dummy#141H=429 variable dummy#142=430,dummy#142H=431,dummy#143=432,dummy#143H=433 variable dummy#144=434,dummy#144H=435,dummy#145=436,dummy#145H=437 variable dummy#146=438,dummy#146H=439,dummy#147=440,dummy#147H=441 variable dummy#148=442,dummy#148H=443,dummy#149=444,dummy#149H=445 variable dummy#150=446,dummy#150H=447,dummy#151=448,dummy#151H=449 variable dummy#152=450,dummy#152H=451,dummy#153=452,dummy#153H=453 variable dummy#154=454,dummy#154H=455,dummy#155=456,dummy#155H=457 variable dummy#156=458,dummy#156H=459,dummy#157=460,dummy#157H=461 variable dummy#158=462,dummy#158H=463,dummy#159=464,dummy#159H=465 variable dummy#160=466,dummy#160H=467,dummy#161=468,dummy#161H=469 variable dummy#162=470,dummy#162H=471,dummy#163=472,dummy#163H=473 variable dummy#164=474,dummy#164H=475,dummy#165=476,dummy#165H=477 variable dummy#166=478,dummy#166H=479,dummy#167=480,dummy#167H=481 variable dummy#168=482,dummy#168H=483,dummy#169=484,dummy#169H=485 variable dummy#170=486,dummy#170H=487,dummy#171=488,dummy#171H=489 variable dummy#172=490,dummy#172H=491,dummy#173=492,dummy#173H=493 variable dummy#174=494,dummy#174H=495,dummy#175=496,dummy#175H=497 variable dummy#176=498,dummy#176H=499,dummy#177=500,dummy#177H=501 variable dummy#178=502,dummy#178H=503,dummy#179=504,dummy#179H=505 variable dummy#180=506,dummy#180H=507,dummy#181=508,dummy#181H=509 variable dummy#182=510,dummy#182H=511,dummy#183=512,dummy#183H=513 variable dummy#184=514,dummy#184H=515,dummy#185=516,dummy#185H=517 variable dummy#186=518,dummy#186H=519,dummy#187=520,dummy#187H=521 variable dummy#188=522,dummy#188H=523,dummy#189=524,dummy#189H=525 variable dummy#190=526,dummy#190H=527,dummy#191=528,dummy#191H=529 variable dummy#192=530,dummy#192H=531,dummy#193=532,dummy#193H=533 variable dummy#194=534,dummy#194H=535,dummy#195=536,dummy#195H=537 variable dummy#196=538,dummy#196H=539,dummy#197=540,dummy#197H=541 variable dummy#198=542,dummy#198H=543,dummy#199=544,dummy#199H=545 variable dummy#200=546,dummy#200H=547,dummy#201=548,dummy#201H=549 variable dummy#202=550,dummy#202H=551,dummy#203=552,dummy#203H=553 variable dummy#204=554,dummy#204H=555,dummy#205=556,dummy#205H=557 variable dummy#206=558,dummy#206H=559,dummy#207=560,dummy#207H=561 variable dummy#208=562,dummy#208H=563,dummy#209=564,dummy#209H=565 variable dummy#210=566,dummy#210H=567,dummy#211=568,dummy#211H=569 variable dummy#212=570,dummy#212H=571,dummy#213=572,dummy#213H=573 variable dummy#214=574,dummy#214H=575,dummy#215=576,dummy#215H=577 variable dummy#216=578,dummy#216H=579,dummy#217=580,dummy#217H=581 variable dummy#218=582,dummy#218H=583,dummy#219=584,dummy#219H=585 variable dummy#220=586,dummy#220H=587,dummy#221=588,dummy#221H=589 variable dummy#222=590,dummy#222H=591,dummy#223=592,dummy#223H=593 variable dummy#224=594,dummy#224H=595,dummy#225=596,dummy#225H=597 variable dummy#226=598,dummy#226H=599,dummy#227=600,dummy#227H=601 variable dummy#228=602,dummy#228H=603,dummy#229=604,dummy#229H=605 variable dummy#230=606,dummy#230H=607,dummy#231=608,dummy#231H=609 variable dummy#232=610,dummy#232H=611,dummy#233=612,dummy#233H=613 variable dummy#234=614,dummy#234H=615,dummy#235=616,dummy#235H=617 variable dummy#236=618,dummy#236H=619,dummy#237=620,dummy#237H=621 variable dummy#238=622,dummy#238H=623,dummy#239=624,dummy#239H=625 variable dummy#240=626,dummy#240H=627,dummy#241=628,dummy#241H=629 variable dummy#242=630,dummy#242H=631,dummy#243=632,dummy#243H=633 variable dummy#244=634,dummy#244H=635,dummy#245=636,dummy#245H=637 variable dummy#246=638,dummy#246H=639,dummy#247=640,dummy#247H=641 variable dummy#248=642,dummy#248H=643,dummy#249=644,dummy#249H=645 variable dummy#250=646,dummy#250H=647,dummy#251=648,dummy#251H=649 variable dummy#252=650,dummy#252H=651,dummy#253=652,dummy#253H=653 variable dummy#254=654,dummy#254H=655,dummy#255=656,dummy#255H=657 vels = 658 velsH = 659 variable vels#0=658,vels#0H=659,vels#1=660,vels#1H=661 variable vels#2=662,vels#2H=663,vels#3=664,vels#3H=665 variable vels#4=666,vels#4H=667,vels#5=668,vels#5H=669 variable vels#6=670,vels#6H=671,vels#7=672,vels#7H=673 variable vels#8=674,vels#8H=675,vels#9=676,vels#9H=677 variable vels#10=678,vels#10H=679,vels#11=680,vels#11H=681 variable vels#12=682,vels#12H=683,vels#13=684,vels#13H=685 variable vels#14=686,vels#14H=687,vels#15=688,vels#15H=689 variable vels#16=690,vels#16H=691,vels#17=692,vels#17H=693 variable vels#18=694,vels#18H=695,vels#19=696,vels#19H=697 variable vels#20=698,vels#20H=699,vels#21=700,vels#21H=701 variable vels#22=702,vels#22H=703,vels#23=704,vels#23H=705 variable vels#24=706,vels#24H=707,vels#25=708,vels#25H=709 variable vels#26=710,vels#26H=711,vels#27=712,vels#27H=713 variable vels#28=714,vels#28H=715,vels#29=716,vels#29H=717 variable vels#30=718,vels#30H=719,vels#31=720,vels#31H=721 variable vels#32=722,vels#32H=723,vels#33=724,vels#33H=725 variable vels#34=726,vels#34H=727,vels#35=728,vels#35H=729 variable vels#36=730,vels#36H=731,vels#37=732,vels#37H=733 variable vels#38=734,vels#38H=735,vels#39=736,vels#39H=737 variable vels#40=738,vels#40H=739,vels#41=740,vels#41H=741 variable vels#42=742,vels#42H=743,vels#43=744,vels#43H=745 variable vels#44=746,vels#44H=747,vels#45=748,vels#45H=749 variable vels#46=750,vels#46H=751,vels#47=752,vels#47H=753 variable vels#48=754,vels#48H=755,vels#49=756,vels#49H=757 variable vels#50=758,vels#50H=759,vels#51=760,vels#51H=761 variable vels#52=762,vels#52H=763,vels#53=764,vels#53H=765 variable vels#54=766,vels#54H=767,vels#55=768,vels#55H=769 variable vels#56=770,vels#56H=771,vels#57=772,vels#57H=773 variable vels#58=774,vels#58H=775,vels#59=776,vels#59H=777 variable vels#60=778,vels#60H=779,vels#61=780,vels#61H=781 variable vels#62=782,vels#62H=783,vels#63=784,vels#63H=785 variable vels#64=786,vels#64H=787,vels#65=788,vels#65H=789 variable vels#66=790,vels#66H=791,vels#67=792,vels#67H=793 variable vels#68=794,vels#68H=795,vels#69=796,vels#69H=797 variable vels#70=798,vels#70H=799,vels#71=800,vels#71H=801 variable vels#72=802,vels#72H=803,vels#73=804,vels#73H=805 variable vels#74=806,vels#74H=807,vels#75=808,vels#75H=809 variable vels#76=810,vels#76H=811,vels#77=812,vels#77H=813 variable vels#78=814,vels#78H=815,vels#79=816,vels#79H=817 variable vels#80=818,vels#80H=819,vels#81=820,vels#81H=821 variable vels#82=822,vels#82H=823,vels#83=824,vels#83H=825 variable vels#84=826,vels#84H=827,vels#85=828,vels#85H=829 variable vels#86=830,vels#86H=831,vels#87=832,vels#87H=833 variable vels#88=834,vels#88H=835,vels#89=836,vels#89H=837 variable vels#90=838,vels#90H=839,vels#91=840,vels#91H=841 variable vels#92=842,vels#92H=843,vels#93=844,vels#93H=845 variable vels#94=846,vels#94H=847,vels#95=848,vels#95H=849 variable vels#96=850,vels#96H=851,vels#97=852,vels#97H=853 variable vels#98=854,vels#98H=855,vels#99=856,vels#99H=857 variable vels#100=858,vels#100H=859,vels#101=860,vels#101H=861 variable vels#102=862,vels#102H=863,vels#103=864,vels#103H=865 variable vels#104=866,vels#104H=867,vels#105=868,vels#105H=869 variable vels#106=870,vels#106H=871,vels#107=872,vels#107H=873 variable vels#108=874,vels#108H=875,vels#109=876,vels#109H=877 variable vels#110=878,vels#110H=879,vels#111=880,vels#111H=881 variable vels#112=882,vels#112H=883,vels#113=884,vels#113H=885 variable vels#114=886,vels#114H=887,vels#115=888,vels#115H=889 variable vels#116=890,vels#116H=891,vels#117=892,vels#117H=893 variable vels#118=894,vels#118H=895,vels#119=896,vels#119H=897 variable vels#120=898,vels#120H=899,vels#121=900,vels#121H=901 variable vels#122=902,vels#122H=903,vels#123=904,vels#123H=905 variable vels#124=906,vels#124H=907,vels#125=908,vels#125H=909 variable vels#126=910,vels#126H=911,vels#127=912,vels#127H=913 Dur = 914 DurH = 915 variable Dur#0=914,Dur#0H=915,Dur#1=916,Dur#1H=917 variable Dur#2=918,Dur#2H=919,Dur#3=920,Dur#3H=921 variable Dur#4=922,Dur#4H=923,Dur#5=924,Dur#5H=925 variable Dur#6=926,Dur#6H=927,Dur#7=928,Dur#7H=929 variable Dur#8=930,Dur#8H=931,Dur#9=932,Dur#9H=933 variable Dur#10=934,Dur#10H=935,Dur#11=936,Dur#11H=937 variable Dur#12=938,Dur#12H=939,Dur#13=940,Dur#13H=941 variable Dur#14=942,Dur#14H=943,Dur#15=944,Dur#15H=945 variable Dur#16=946,Dur#16H=947,Dur#17=948,Dur#17H=949 variable Dur#18=950,Dur#18H=951,Dur#19=952,Dur#19H=953 variable Dur#20=954,Dur#20H=955,Dur#21=956,Dur#21H=957 variable Dur#22=958,Dur#22H=959,Dur#23=960,Dur#23H=961 variable Dur#24=962,Dur#24H=963,Dur#25=964,Dur#25H=965 variable Dur#26=966,Dur#26H=967,Dur#27=968,Dur#27H=969 variable Dur#28=970,Dur#28H=971,Dur#29=972,Dur#29H=973 variable Dur#30=974,Dur#30H=975,Dur#31=976,Dur#31H=977 variable Dur#32=978,Dur#32H=979,Dur#33=980,Dur#33H=981 variable Dur#34=982,Dur#34H=983,Dur#35=984,Dur#35H=985 variable Dur#36=986,Dur#36H=987,Dur#37=988,Dur#37H=989 variable Dur#38=990,Dur#38H=991,Dur#39=992,Dur#39H=993 variable Dur#40=994,Dur#40H=995,Dur#41=996,Dur#41H=997 variable Dur#42=998,Dur#42H=999,Dur#43=1000,Dur#43H=1001 variable Dur#44=1002,Dur#44H=1003,Dur#45=1004,Dur#45H=1005 variable Dur#46=1006,Dur#46H=1007,Dur#47=1008,Dur#47H=1009 variable Dur#48=1010,Dur#48H=1011,Dur#49=1012,Dur#49H=1013 variable Dur#50=1014,Dur#50H=1015,Dur#51=1016,Dur#51H=1017 variable Dur#52=1018,Dur#52H=1019,Dur#53=1020,Dur#53H=1021 variable Dur#54=1022,Dur#54H=1023,Dur#55=1024,Dur#55H=1025 variable Dur#56=1026,Dur#56H=1027,Dur#57=1028,Dur#57H=1029 variable Dur#58=1030,Dur#58H=1031,Dur#59=1032,Dur#59H=1033 variable Dur#60=1034,Dur#60H=1035,Dur#61=1036,Dur#61H=1037 variable Dur#62=1038,Dur#62H=1039,Dur#63=1040,Dur#63H=1041 variable Dur#64=1042,Dur#64H=1043,Dur#65=1044,Dur#65H=1045 variable Dur#66=1046,Dur#66H=1047,Dur#67=1048,Dur#67H=1049 variable Dur#68=1050,Dur#68H=1051,Dur#69=1052,Dur#69H=1053 variable Dur#70=1054,Dur#70H=1055,Dur#71=1056,Dur#71H=1057 variable Dur#72=1058,Dur#72H=1059,Dur#73=1060,Dur#73H=1061 variable Dur#74=1062,Dur#74H=1063,Dur#75=1064,Dur#75H=1065 variable Dur#76=1066,Dur#76H=1067,Dur#77=1068,Dur#77H=1069 variable Dur#78=1070,Dur#78H=1071,Dur#79=1072,Dur#79H=1073 variable Dur#80=1074,Dur#80H=1075,Dur#81=1076,Dur#81H=1077 variable Dur#82=1078,Dur#82H=1079,Dur#83=1080,Dur#83H=1081 variable Dur#84=1082,Dur#84H=1083,Dur#85=1084,Dur#85H=1085 variable Dur#86=1086,Dur#86H=1087,Dur#87=1088,Dur#87H=1089 variable Dur#88=1090,Dur#88H=1091,Dur#89=1092,Dur#89H=1093 variable Dur#90=1094,Dur#90H=1095,Dur#91=1096,Dur#91H=1097 variable Dur#92=1098,Dur#92H=1099,Dur#93=1100,Dur#93H=1101 variable Dur#94=1102,Dur#94H=1103,Dur#95=1104,Dur#95H=1105 variable Dur#96=1106,Dur#96H=1107,Dur#97=1108,Dur#97H=1109 variable Dur#98=1110,Dur#98H=1111,Dur#99=1112,Dur#99H=1113 variable Dur#100=1114,Dur#100H=1115,Dur#101=1116,Dur#101H=1117 variable Dur#102=1118,Dur#102H=1119,Dur#103=1120,Dur#103H=1121 variable Dur#104=1122,Dur#104H=1123,Dur#105=1124,Dur#105H=1125 variable Dur#106=1126,Dur#106H=1127,Dur#107=1128,Dur#107H=1129 variable Dur#108=1130,Dur#108H=1131,Dur#109=1132,Dur#109H=1133 variable Dur#110=1134,Dur#110H=1135,Dur#111=1136,Dur#111H=1137 variable Dur#112=1138,Dur#112H=1139,Dur#113=1140,Dur#113H=1141 variable Dur#114=1142,Dur#114H=1143,Dur#115=1144,Dur#115H=1145 variable Dur#116=1146,Dur#116H=1147,Dur#117=1148,Dur#117H=1149 variable Dur#118=1150,Dur#118H=1151,Dur#119=1152,Dur#119H=1153 variable Dur#120=1154,Dur#120H=1155,Dur#121=1156,Dur#121H=1157 variable Dur#122=1158,Dur#122H=1159,Dur#123=1160,Dur#123H=1161 variable Dur#124=1162,Dur#124H=1163,Dur#125=1164,Dur#125H=1165 variable Dur#126=1166,Dur#126H=1167,Dur#127=1168,Dur#127H=1169 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 = 1170 variable _Low__Context_Store#0=1170,_Low__Context_Store#1=1171,_Low__Context_Store#2=1172 #define StBit Bytein,7 #define PowerOn CC66,0 #define LR0 LRbyte,0 #define LR1 LRbyte,1 #define LR2 LRbyte,2 #define LR3 LRbyte,3 #define LR4 LRbyte,4 #define LR5 LRbyte,5 #define LR6 LRbyte,6 #define LR7 LRbyte,7 #define maxtim timeHHH,7 #define tg tog,0 #define FSR0SaveInt PP0 #define FSR0SaveIntH PP0H #define USART_FSR0_Save FSR0SaveInt #define USART_FSR0_SaveH FSR0SaveIntH #define USART_FSR0 FSR0L #define USART_FSR0H FSR0LH #define USART_FSR1 FSR1L #define USART_FSR1H FSR1LH #define __OPTIMISER_LEVEL 3 #define __XTAL 40 #define PWMminF 2442 #define PWMminFH 9 #define noot0 58 #define noot1 59 #define noot2 60 #define noot3 61 #define noot4 62 #define noot5 63 #define noot6 64 #define noot7 65 #define Midichannel 4 #define NoteOff_Status 132 #define NoteOn_Status 148 #define Keypres_Status 164 #define Control_Status 180 #define ProgChange_Status 196 #define Aftertouch_Status 212 #define Pitchbend_Status 228 #define __HSERIAL_BAUD 31250 #define __HSERIAL_TXSTA 36 HSERIAL_SPBRG = 79 HSERIAL_TXSTA = 36 HSERIAL_RCSTA = 144 HSERIAL_BAUD = 31250 proton#code#start org 0X000000 nop nop goto proton#main#start org 0X000008 bra High_Prior_Interrupt org 0X000018 bra Low_Prior_Interrupt HRSIN#REQ = 1 HRSINX#REQ = 1 HRSIN#CLROERR = 1 __DELAY_MS_ clrf 9,0 __DELAY_MS_W_ movwf 8,0 DLY@P movlw 255 addwf 8,F,0 addwfc 9,F,0 bra $ + 2 btfss 4056,0,0 return movlw 3 movwf 7,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf 7,0 __DELAY_US_W_ addlw 254 movwf 6,0 clrf 4072,0 subwfb 7,F,0 btfss 4056,0,0 return nop decf 6,F,0 bra $ + 2 bra $ - 14 proton#main#start movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; ZI_2.BAS F2_SOF equ $ ; 18F2525.INC F2_EOF equ $ ; 18F2525.INC F1_000058 equ $ ; IN [ZI_2.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F1_000060 equ $ ; IN [ZI_2.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000061 equ $ ; IN [ZI_2.BAS] TRISA = %01000000 movlw 64 movwf TRISA,0 F1_000062 equ $ ; IN [ZI_2.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000063 equ $ ; IN [ZI_2.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F3_SOF equ $ ; ZI_IRQ.INC F3_000064 equ $ ; IN [ZI_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000076 equ $ ; IN [ZI_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000077 equ $ ; IN [ZI_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000082 equ $ ; IN [ZI_IRQ.INC] BTG PORTB,5 btg PORTB,5 F3_000083 equ $ ; IN [ZI_IRQ.INC] RETFIE FAST retfie 1 F3_000084 equ $ ; IN [ZI_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000086 equ $ ; IN [ZI_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000087 equ $ ; IN [ZI_IRQ.INC] MOVLW 6 movlw 6 F3_000088 equ $ ; IN [ZI_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000089 equ $ ; IN [ZI_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000090 equ $ ; IN [ZI_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000091 equ $ ; IN [ZI_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000101 equ $ ; IN [ZI_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,256 F3_000102 equ $ ; IN [ZI_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000103 equ $ ; IN [ZI_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000104 equ $ ; IN [ZI_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000106 equ $ ; IN [ZI_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000108 equ $ ; IN [ZI_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000109 equ $ ; IN [ZI_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000110 equ $ ; IN [ZI_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000111 equ $ ; IN [ZI_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000112 equ $ ; IN [ZI_IRQ.INC] ENDIF _LBL__5 F3_000113 equ $ ; IN [ZI_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000118 equ $ ; IN [ZI_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000119 equ $ ; IN [ZI_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000120 equ $ ; IN [ZI_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000121 equ $ ; IN [ZI_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,256 F3_000122 equ $ ; IN [ZI_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000123 equ $ ; IN [ZI_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000124 equ $ ; IN [ZI_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000125 equ $ ; IN [ZI_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000126 equ $ ; IN [ZI_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000127 equ $ ; IN [ZI_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000128 equ $ ; IN [ZI_IRQ.INC] ELSE F3_000129 equ $ ; IN [ZI_IRQ.INC] WREG = 255 setf WREG,0 F3_000130 equ $ ; IN [ZI_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000131 equ $ ; IN [ZI_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000132 equ $ ; IN [ZI_IRQ.INC] RET return 0 F3_000133 equ $ ; IN [ZI_IRQ.INC] ENDIF _LBL__8 F3_000134 equ $ ; IN [ZI_IRQ.INC] RET return 0 _Init_Usart F3_000150 equ $ ; IN [ZI_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000151 equ $ ; IN [ZI_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000152 equ $ ; IN [ZI_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000154 equ $ ; IN [ZI_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000156 equ $ ; IN [ZI_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000157 equ $ ; IN [ZI_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000159 equ $ ; IN [ZI_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000174 equ $ ; IN [ZI_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000175 equ $ ; IN [ZI_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_000176 equ $ ; IN [ZI_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000177 equ $ ; IN [ZI_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000178 equ $ ; IN [ZI_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000179 equ $ ; IN [ZI_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000187 equ $ ; IN [ZI_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_000188 equ $ ; IN [ZI_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000194 equ $ ; IN [ZI_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_000206 equ $ ; IN [ZI_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000207 equ $ ; IN [ZI_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000208 equ $ ; IN [ZI_IRQ.INC] MOVWF TXREG movwf TXREG F3_000209 equ $ ; IN [ZI_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; ZI_IRQ.INC MAIN F1_000197 equ $ ; IN [ZI_2.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000198 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 rcall __DELAY_MS_ F1_000199 equ $ ; IN [ZI_2.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000201 equ $ ; IN [ZI_2.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000202 equ $ ; IN [ZI_2.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000203 equ $ ; IN [ZI_2.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000204 equ $ ; IN [ZI_2.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000205 equ $ ; IN [ZI_2.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000206 equ $ ; IN [ZI_2.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000207 equ $ ; IN [ZI_2.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000208 equ $ ; IN [ZI_2.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000210 equ $ ; IN [ZI_2.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000211 equ $ ; IN [ZI_2.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000212 equ $ ; IN [ZI_2.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000213 equ $ ; IN [ZI_2.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000214 equ $ ; IN [ZI_2.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000215 equ $ ; IN [ZI_2.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000216 equ $ ; IN [ZI_2.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000217 equ $ ; IN [ZI_2.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000218 equ $ ; IN [ZI_2.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000221 equ $ ; IN [ZI_2.BAS] CLEAR LRBYTE clrf LRbyte,0 F1_000222 equ $ ; IN [ZI_2.BAS] CLEAR NOTES clrf notes,0 F1_000223 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000224 equ $ ; IN [ZI_2.BAS] SET TIMVALS lfsr 0,TimVals movlw 32 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000226 equ $ ; IN [ZI_2.BAS] CLEAR CC66 clrf CC66,0 F1_000228 equ $ ; IN [ZI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_000229 equ $ ; IN [ZI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_000230 equ $ ; IN [ZI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_000231 equ $ ; IN [ZI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_000232 equ $ ; IN [ZI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_000233 equ $ ; IN [ZI_2.BAS] CLEAR PRES5 clrf Pres5,0 F1_000234 equ $ ; IN [ZI_2.BAS] CLEAR PRES6 clrf Pres6,0 F1_000235 equ $ ; IN [ZI_2.BAS] CLEAR PRES7 clrf Pres7,0 F1_000237 equ $ ; IN [ZI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000238 equ $ ; IN [ZI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000239 equ $ ; IN [ZI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000240 equ $ ; IN [ZI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000241 equ $ ; IN [ZI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000242 equ $ ; IN [ZI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_000243 equ $ ; IN [ZI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_000244 equ $ ; IN [ZI_2.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_000246 equ $ ; IN [ZI_2.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_000247 equ $ ; IN [ZI_2.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_000248 equ $ ; IN [ZI_2.BAS] CLEAR VELO2 clrf velo2H,0 clrf velo2,0 F1_000249 equ $ ; IN [ZI_2.BAS] CLEAR VELO3 clrf velo3H,0 clrf velo3,0 F1_000250 equ $ ; IN [ZI_2.BAS] CLEAR VELO4 clrf velo4H,0 clrf velo4,0 F1_000251 equ $ ; IN [ZI_2.BAS] CLEAR VELO5 clrf velo5H,0 clrf velo5,0 F1_000252 equ $ ; IN [ZI_2.BAS] CLEAR VELO6 clrf velo6H,0 clrf velo6,0 F1_000253 equ $ ; IN [ZI_2.BAS] CLEAR VELO7 clrf velo7H,0 clrf velo7,0 F1_000255 equ $ ; IN [ZI_2.BAS] GOSUB PLUCKER_RESET call Plucker_Reset F1_000257 equ $ ; IN [ZI_2.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000259 equ $ ; IN [ZI_2.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000271 equ $ ; IN [ZI_2.BAS] CLEAR T1CON clrf T1CON,0 F1_000272 equ $ ; IN [ZI_2.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000273 equ $ ; IN [ZI_2.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000274 equ $ ; IN [ZI_2.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000309 equ $ ; IN [ZI_2.BAS] CLEAR T3CON clrf T3CON,0 F1_000310 equ $ ; IN [ZI_2.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000311 equ $ ; IN [ZI_2.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000314 equ $ ; IN [ZI_2.BAS] SET RCON.7 bsf RCON,7,0 F1_000315 equ $ ; IN [ZI_2.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000317 equ $ ; IN [ZI_2.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000339 equ $ ; IN [ZI_2.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000340 equ $ ; IN [ZI_2.BAS] GOSUB VELS_LOOKUP call Vels_Lookup LOOP F1_000345 equ $ ; IN [ZI_2.BAS] INC T incf _T,F,0 F1_000346 equ $ ; IN [ZI_2.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_000347 equ $ ; IN [ZI_2.BAS] BTG TG btg tog,0 F1_000348 equ $ ; IN [ZI_2.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000349 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__11 F1_000351 equ $ ; IN [ZI_2.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000354 equ $ ; IN [ZI_2.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 181 subwf Bytein,W,0 bnc _LBL__13 F1_000355 equ $ ; IN [ZI_2.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bc _LBL__16 _LBL__15 F1_000359 equ $ ; IN [ZI_2.BAS] ELSE F1_000360 equ $ ; IN [ZI_2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000361 equ $ ; IN [ZI_2.BAS] END IF _LBL__16 F1_000362 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000363 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__13 F1_000364 equ $ ; IN [ZI_2.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__18 F1_000366 equ $ ; IN [ZI_2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000367 equ $ ; IN [ZI_2.BAS] SELECT BYTEIN F1_000368 equ $ ; IN [ZI_2.BAS] CASE NOTEOFF_STATUS movlw 132 subwf Bytein,W,0 bnz _LBL__20 F1_000369 equ $ ; IN [ZI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000370 equ $ ; IN [ZI_2.BAS] SET NOTEUIT setf noteUit,0 F1_000371 equ $ ; IN [ZI_2.BAS] SET RELEASE setf release,0 bra _LBL__19 _LBL__20 F1_000372 equ $ ; IN [ZI_2.BAS] CASE NOTEON_STATUS movlw 148 subwf Bytein,W,0 bnz _LBL__23 F1_000373 equ $ ; IN [ZI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000374 equ $ ; IN [ZI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000375 equ $ ; IN [ZI_2.BAS] SET VELO setf velo,0 bra _LBL__19 _LBL__23 F1_000376 equ $ ; IN [ZI_2.BAS] CASE KEYPRES_STATUS movlw 164 subwf Bytein,W,0 bnz _LBL__25 F1_000377 equ $ ; IN [ZI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000378 equ $ ; IN [ZI_2.BAS] NOTEPRES = 255 setf notePres,0 F1_000379 equ $ ; IN [ZI_2.BAS] PRES = 255 setf pres,0 bra _LBL__19 _LBL__25 F1_000380 equ $ ; IN [ZI_2.BAS] CASE CONTROL_STATUS movlw 180 subwf Bytein,W,0 bnz _LBL__27 F1_000381 equ $ ; IN [ZI_2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000382 equ $ ; IN [ZI_2.BAS] SET CTRL setf Ctrl,0 F1_000383 equ $ ; IN [ZI_2.BAS] SET VALUE setf value,0 F1_000394 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__27 _LBL__19 goto _LBL__28 _LBL__18 F1_000395 equ $ ; IN [ZI_2.BAS] ELSE F1_000396 equ $ ; IN [ZI_2.BAS] SELECT STATUSBYTE F1_000397 equ $ ; IN [ZI_2.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__30 F1_000398 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__29 _LBL__30 F1_000399 equ $ ; IN [ZI_2.BAS] CASE NOTEOFF_STATUS movlw 132 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__33 F1_000400 equ $ ; IN [ZI_2.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__35 F1_000401 equ $ ; IN [ZI_2.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__36 _LBL__35 F1_000402 equ $ ; IN [ZI_2.BAS] ELSE F1_000403 equ $ ; IN [ZI_2.BAS] RELEASE = BYTEIN movff Bytein,release F1_000404 equ $ ; IN [ZI_2.BAS] SELECT NOTEUIT F1_000405 equ $ ; IN [ZI_2.BAS] CASE NOOT0 movlw 58 subwf noteUit,W,0 bnz _LBL__38 F1_000406 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000407 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000408 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__37 _LBL__38 F1_000416 equ $ ; IN [ZI_2.BAS] CASE NOOT1 movlw 59 subwf noteUit,W,0 bnz _LBL__41 F1_000417 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000418 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000419 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 bra _LBL__37 _LBL__41 F1_000420 equ $ ; IN [ZI_2.BAS] CASE NOOT2 movlw 60 subwf noteUit,W,0 bnz _LBL__43 F1_000421 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000422 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000423 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 bra _LBL__37 _LBL__43 F1_000424 equ $ ; IN [ZI_2.BAS] CASE NOOT3 movlw 61 subwf noteUit,W,0 bnz _LBL__45 F1_000425 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000426 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000427 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 bra _LBL__37 _LBL__45 F1_000428 equ $ ; IN [ZI_2.BAS] CASE NOOT4 movlw 62 subwf noteUit,W,0 bnz _LBL__47 F1_000429 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000430 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000431 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 bra _LBL__37 _LBL__47 F1_000432 equ $ ; IN [ZI_2.BAS] CASE NOOT5 movlw 63 subwf noteUit,W,0 bnz _LBL__49 F1_000433 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000434 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000435 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__37 _LBL__49 F1_000436 equ $ ; IN [ZI_2.BAS] CASE NOOT6 movlw 64 subwf noteUit,W,0 bnz _LBL__51 F1_000437 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000438 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000439 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 bra _LBL__37 _LBL__51 F1_000440 equ $ ; IN [ZI_2.BAS] CASE NOOT7 movlw 65 subwf noteUit,W,0 bnz _LBL__53 F1_000441 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000442 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000443 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000444 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__53 _LBL__37 F1_000445 equ $ ; IN [ZI_2.BAS] SET NOTEUIT setf noteUit,0 F1_000446 equ $ ; IN [ZI_2.BAS] GOTO RESORT goto resort F1_000447 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__36 F1_000448 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__29 _LBL__33 F1_000449 equ $ ; IN [ZI_2.BAS] CASE NOTEON_STATUS movlw 148 subwf statusbyte,W,0 btfss STATUS,2,0 goto _LBL__55 F1_000450 equ $ ; IN [ZI_2.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__57 F1_000451 equ $ ; IN [ZI_2.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _LBL__58 _LBL__57 F1_000452 equ $ ; IN [ZI_2.BAS] ELSE F1_000453 equ $ ; IN [ZI_2.BAS] VELO = BYTEIN movff Bytein,velo F1_000454 equ $ ; IN [ZI_2.BAS] IF VELO = 0 THEN movf velo,F,0 bnz _LBL__60 F1_000455 equ $ ; IN [ZI_2.BAS] SELECT NOTEAAN F1_000456 equ $ ; IN [ZI_2.BAS] CASE NOOT0 movlw 58 subwf noteAan,W,0 bnz _LBL__62 F1_000457 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000458 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000459 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__61 _LBL__62 F1_000460 equ $ ; IN [ZI_2.BAS] CASE NOOT1 movlw 59 subwf noteAan,W,0 bnz _LBL__65 F1_000461 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000462 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000463 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 bra _LBL__61 _LBL__65 F1_000464 equ $ ; IN [ZI_2.BAS] CASE NOOT2 movlw 60 subwf noteAan,W,0 bnz _LBL__67 F1_000465 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000466 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000467 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 bra _LBL__61 _LBL__67 F1_000468 equ $ ; IN [ZI_2.BAS] CASE NOOT3 movlw 61 subwf noteAan,W,0 bnz _LBL__69 F1_000469 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000470 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000471 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 bra _LBL__61 _LBL__69 F1_000472 equ $ ; IN [ZI_2.BAS] CASE NOOT4 movlw 62 subwf noteAan,W,0 bnz _LBL__71 F1_000473 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000474 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000475 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 bra _LBL__61 _LBL__71 F1_000476 equ $ ; IN [ZI_2.BAS] CASE NOOT5 movlw 63 subwf noteAan,W,0 bnz _LBL__73 F1_000477 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000478 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000479 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__61 _LBL__73 F1_000480 equ $ ; IN [ZI_2.BAS] CASE NOOT6 movlw 64 subwf noteAan,W,0 bnz _LBL__75 F1_000481 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000482 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000483 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 bra _LBL__61 _LBL__75 F1_000484 equ $ ; IN [ZI_2.BAS] CASE NOOT7 movlw 65 subwf noteAan,W,0 bnz _LBL__77 F1_000485 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000486 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000487 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000488 equ $ ; IN [ZI_2.BAS] CASE ELSE bra _LBL__79 _LBL__77 F1_000489 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000490 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__79 _LBL__61 F1_000491 equ $ ; IN [ZI_2.BAS] GOTO RESORT goto resort goto _LBL__80 _LBL__60 F1_000492 equ $ ; IN [ZI_2.BAS] ELSE F1_000493 equ $ ; IN [ZI_2.BAS] SELECT NOTEAAN F1_000494 equ $ ; IN [ZI_2.BAS] CASE NOOT0 movlw 58 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__82 F1_000495 equ $ ; IN [ZI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__85 F1_000496 equ $ ; IN [ZI_2.BAS] SET PORTA.0 bsf LATA,0,0 bra _LBL__86 _LBL__85 F1_000497 equ $ ; IN [ZI_2.BAS] ELSE F1_000498 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000499 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__86 F1_000500 equ $ ; IN [ZI_2.BAS] TOGGLE LR0 btg LRbyte,0,0 F1_000501 equ $ ; IN [ZI_2.BAS] SET PORTA.2 bsf LATA,2,0 F1_000502 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000503 equ $ ; IN [ZI_2.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_000504 equ $ ; IN [ZI_2.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_000505 equ $ ; IN [ZI_2.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__88 F1_000506 equ $ ; IN [ZI_2.BAS] SET NOTES.0 bsf notes,0,0 F1_000507 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo0,W,0 subwf PBP#VAR0,W,0 movwf Rate0,0 movf velo0H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate0H,0 bra _LBL__89 _LBL__88 F1_000508 equ $ ; IN [ZI_2.BAS] ELSE F1_000509 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000510 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__89 bra _LBL__81 _LBL__82 F1_000511 equ $ ; IN [ZI_2.BAS] CASE NOOT1 movlw 59 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__91 F1_000512 equ $ ; IN [ZI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__93 F1_000513 equ $ ; IN [ZI_2.BAS] SET PORTA.1 bsf LATA,1,0 bra _LBL__94 _LBL__93 F1_000514 equ $ ; IN [ZI_2.BAS] ELSE F1_000515 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000516 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__94 F1_000517 equ $ ; IN [ZI_2.BAS] TOGGLE LR1 btg LRbyte,1,0 F1_000518 equ $ ; IN [ZI_2.BAS] SET PORTA.3 bsf LATA,3,0 F1_000519 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000520 equ $ ; IN [ZI_2.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_000521 equ $ ; IN [ZI_2.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_000522 equ $ ; IN [ZI_2.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__96 F1_000523 equ $ ; IN [ZI_2.BAS] SET NOTES.1 bsf notes,1,0 F1_000524 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo1,W,0 subwf PBP#VAR0,W,0 movwf Rate1,0 movf velo1H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate1H,0 bra _LBL__97 _LBL__96 F1_000525 equ $ ; IN [ZI_2.BAS] ELSE F1_000526 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000527 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__97 bra _LBL__81 _LBL__91 F1_000528 equ $ ; IN [ZI_2.BAS] CASE NOOT2 movlw 60 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__99 F1_000529 equ $ ; IN [ZI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__101 F1_000530 equ $ ; IN [ZI_2.BAS] SET PORTA.4 bsf LATA,4,0 bra _LBL__102 _LBL__101 F1_000531 equ $ ; IN [ZI_2.BAS] ELSE F1_000532 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000533 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__102 F1_000534 equ $ ; IN [ZI_2.BAS] TOGGLE LR2 btg LRbyte,2,0 F1_000535 equ $ ; IN [ZI_2.BAS] SET PORTC.0 bsf LATC,0,0 F1_000536 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000537 equ $ ; IN [ZI_2.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_000538 equ $ ; IN [ZI_2.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_000539 equ $ ; IN [ZI_2.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__104 F1_000540 equ $ ; IN [ZI_2.BAS] SET NOTES.2 bsf notes,2,0 F1_000541 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo2,W,0 subwf PBP#VAR0,W,0 movwf Rate2,0 movf velo2H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate2H,0 bra _LBL__105 _LBL__104 F1_000542 equ $ ; IN [ZI_2.BAS] ELSE F1_000543 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000544 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__105 bra _LBL__81 _LBL__99 F1_000545 equ $ ; IN [ZI_2.BAS] CASE NOOT3 movlw 61 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__107 F1_000546 equ $ ; IN [ZI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__109 F1_000547 equ $ ; IN [ZI_2.BAS] SET PORTA.5 bsf LATA,5,0 bra _LBL__110 _LBL__109 F1_000548 equ $ ; IN [ZI_2.BAS] ELSE F1_000549 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000550 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__110 F1_000551 equ $ ; IN [ZI_2.BAS] TOGGLE LR3 btg LRbyte,3,0 F1_000552 equ $ ; IN [ZI_2.BAS] SET PORTC.1 bsf LATC,1,0 F1_000553 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000554 equ $ ; IN [ZI_2.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_000555 equ $ ; IN [ZI_2.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_000556 equ $ ; IN [ZI_2.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__112 F1_000557 equ $ ; IN [ZI_2.BAS] SET NOTES.3 bsf notes,3,0 F1_000558 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo3,W,0 subwf PBP#VAR0,W,0 movwf Rate3,0 movf velo3H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate3H,0 bra _LBL__113 _LBL__112 F1_000559 equ $ ; IN [ZI_2.BAS] ELSE F1_000560 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000561 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__113 bra _LBL__81 _LBL__107 F1_000562 equ $ ; IN [ZI_2.BAS] CASE NOOT4 movlw 62 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__115 F1_000563 equ $ ; IN [ZI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__117 F1_000564 equ $ ; IN [ZI_2.BAS] SET PORTC.2 bsf LATC,2,0 bra _LBL__118 _LBL__117 F1_000565 equ $ ; IN [ZI_2.BAS] ELSE F1_000566 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000567 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__118 F1_000568 equ $ ; IN [ZI_2.BAS] TOGGLE LR4 btg LRbyte,4,0 F1_000569 equ $ ; IN [ZI_2.BAS] SET PORTC.4 bsf LATC,4,0 F1_000570 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000571 equ $ ; IN [ZI_2.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_000572 equ $ ; IN [ZI_2.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_000573 equ $ ; IN [ZI_2.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__120 F1_000574 equ $ ; IN [ZI_2.BAS] SET NOTES.4 bsf notes,4,0 F1_000575 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo4,W,0 subwf PBP#VAR0,W,0 movwf Rate4,0 movf velo4H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate4H,0 bra _LBL__121 _LBL__120 F1_000576 equ $ ; IN [ZI_2.BAS] ELSE F1_000577 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000578 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__121 bra _LBL__81 _LBL__115 F1_000579 equ $ ; IN [ZI_2.BAS] CASE NOOT5 movlw 63 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__123 F1_000580 equ $ ; IN [ZI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__125 F1_000581 equ $ ; IN [ZI_2.BAS] SET PORTC.3 bsf LATC,3,0 bra _LBL__126 _LBL__125 F1_000582 equ $ ; IN [ZI_2.BAS] ELSE F1_000583 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000584 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__126 F1_000585 equ $ ; IN [ZI_2.BAS] TOGGLE LR5 btg LRbyte,5,0 F1_000586 equ $ ; IN [ZI_2.BAS] SET PORTC.5 bsf LATC,5,0 F1_000587 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000588 equ $ ; IN [ZI_2.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_000589 equ $ ; IN [ZI_2.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_000590 equ $ ; IN [ZI_2.BAS] IF PRES5 > 0 THEN movf Pres5,F,0 bz _LBL__128 F1_000591 equ $ ; IN [ZI_2.BAS] SET NOTES.5 bsf notes,5,0 F1_000592 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo5,W,0 subwf PBP#VAR0,W,0 movwf Rate5,0 movf velo5H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate5H,0 bra _LBL__129 _LBL__128 F1_000593 equ $ ; IN [ZI_2.BAS] ELSE F1_000594 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000595 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__129 bra _LBL__81 _LBL__123 F1_000596 equ $ ; IN [ZI_2.BAS] CASE NOOT6 movlw 64 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__131 F1_000597 equ $ ; IN [ZI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__133 F1_000598 equ $ ; IN [ZI_2.BAS] SET PORTB.0 bsf LATB,0,0 bra _LBL__134 _LBL__133 F1_000599 equ $ ; IN [ZI_2.BAS] ELSE F1_000600 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000601 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__134 F1_000602 equ $ ; IN [ZI_2.BAS] TOGGLE LR6 btg LRbyte,6,0 F1_000603 equ $ ; IN [ZI_2.BAS] SET PORTB.2 bsf LATB,2,0 F1_000604 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000605 equ $ ; IN [ZI_2.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_000606 equ $ ; IN [ZI_2.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_000607 equ $ ; IN [ZI_2.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__136 F1_000608 equ $ ; IN [ZI_2.BAS] SET NOTES.6 bsf notes,6,0 F1_000609 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo6,W,0 subwf PBP#VAR0,W,0 movwf Rate6,0 movf velo6H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate6H,0 bra _LBL__137 _LBL__136 F1_000610 equ $ ; IN [ZI_2.BAS] ELSE F1_000611 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000612 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__137 bra _LBL__81 _LBL__131 F1_000613 equ $ ; IN [ZI_2.BAS] CASE NOOT7 movlw 65 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__139 F1_000614 equ $ ; IN [ZI_2.BAS] IF LR7 = 0 THEN btfsc LRbyte,7,0 bra _LBL__141 F1_000615 equ $ ; IN [ZI_2.BAS] SET PORTB.1 bsf LATB,1,0 bra _LBL__142 _LBL__141 F1_000616 equ $ ; IN [ZI_2.BAS] ELSE F1_000617 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000618 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__142 F1_000619 equ $ ; IN [ZI_2.BAS] TOGGLE LR7 btg LRbyte,7,0 F1_000620 equ $ ; IN [ZI_2.BAS] SET PORTB.3 bsf LATB,3,0 F1_000621 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_000622 equ $ ; IN [ZI_2.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_000623 equ $ ; IN [ZI_2.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_000624 equ $ ; IN [ZI_2.BAS] IF PRES7 > 0 THEN movf Pres7,F,0 bz _LBL__144 F1_000625 equ $ ; IN [ZI_2.BAS] SET NOTES.7 bsf notes,7,0 F1_000626 equ $ ; IN [ZI_2.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#VAR0 movff INDF0,PBP#VAR0H movf velo7,W,0 subwf PBP#VAR0,W,0 movwf Rate7,0 movf velo7H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate7H,0 bra _LBL__145 _LBL__144 F1_000627 equ $ ; IN [ZI_2.BAS] ELSE F1_000628 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000629 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__145 F1_000630 equ $ ; IN [ZI_2.BAS] CASE ELSE bra _LBL__147 _LBL__139 F1_000631 equ $ ; IN [ZI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000632 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000633 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__147 _LBL__81 F1_000634 equ $ ; IN [ZI_2.BAS] SET NOTEAAN setf noteAan,0 F1_000635 equ $ ; IN [ZI_2.BAS] GOTO RESORT bra resort F1_000636 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__80 F1_000637 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__58 F1_000638 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__29 _LBL__55 F1_000639 equ $ ; IN [ZI_2.BAS] CASE KEYPRES_STATUS movlw 164 subwf statusbyte,W,0 bnz _LBL__149 F1_000642 equ $ ; IN [ZI_2.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__151 F1_000643 equ $ ; IN [ZI_2.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__152 _LBL__151 F1_000644 equ $ ; IN [ZI_2.BAS] ELSE F1_000645 equ $ ; IN [ZI_2.BAS] PRES = BYTEIN movff Bytein,pres F1_000646 equ $ ; IN [ZI_2.BAS] GOSUB KEYPRES call KeyPres F1_000647 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__152 F1_000648 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__29 _LBL__149 F1_000649 equ $ ; IN [ZI_2.BAS] CASE CONTROL_STATUS movlw 180 subwf statusbyte,W,0 bnz _LBL__154 F1_000650 equ $ ; IN [ZI_2.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__156 F1_000651 equ $ ; IN [ZI_2.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__157 _LBL__156 F1_000652 equ $ ; IN [ZI_2.BAS] ELSE F1_000653 equ $ ; IN [ZI_2.BAS] VALUE = BYTEIN movff Bytein,value F1_000654 equ $ ; IN [ZI_2.BAS] GOSUB CONTROLLER call Controller F1_000655 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__157 F1_000656 equ $ ; IN [ZI_2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000669 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__154 _LBL__29 F1_000670 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__28 resort F1_000673 equ $ ; IN [ZI_2.BAS] GOSUB SORTTIMERS call SortTimers Check_Timers F1_000676 equ $ ; IN [ZI_2.BAS] IF IDX < 8 THEN movlw 8 subwf idx,W,0 btfsc STATUS,0,0 goto _LBL__159 F1_000677 equ $ ; IN [ZI_2.BAS] IF TIME >= NXT THEN movf Nxt,W,0 subwf time,W,0 movf NxtH,W,0 subwfb timeH,W,0 movf NxtHH,W,0 subwfb timeHH,W,0 movf NxtHHH,W,0 subwfb timeHHH,W,0 btfss STATUS,0,0 bra _LBL__161 F1_000679 equ $ ; IN [ZI_2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000681 equ $ ; IN [ZI_2.BAS] SELECT IDX F1_000682 equ $ ; IN [ZI_2.BAS] CASE 0 movf idx,F,0 bnz _LBL__163 F1_000683 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000684 equ $ ; IN [ZI_2.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _LBL__166 F1_000685 equ $ ; IN [ZI_2.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 bra _LBL__167 _LBL__166 F1_000686 equ $ ; IN [ZI_2.BAS] ELSE F1_000687 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.0 = 1 THEN btfss Velflags,0,0 bra _LBL__169 F1_000688 equ $ ; IN [ZI_2.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_000689 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 bra _LBL__170 _LBL__169 F1_000690 equ $ ; IN [ZI_2.BAS] ELSE F1_000691 equ $ ; IN [ZI_2.BAS] IF LR0 = 0 THEN btfsc LRbyte,0,0 bra _LBL__172 F1_000692 equ $ ; IN [ZI_2.BAS] SET PORTA.0 bsf LATA,0,0 bra _LBL__173 _LBL__172 F1_000693 equ $ ; IN [ZI_2.BAS] ELSE F1_000694 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000695 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__173 F1_000696 equ $ ; IN [ZI_2.BAS] SET PORTA.2 bsf LATA,2,0 F1_000697 equ $ ; IN [ZI_2.BAS] TOGGLE LR0 btg LRbyte,0,0 F1_000698 equ $ ; IN [ZI_2.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_000699 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000700 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__170 F1_000701 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__167 bra _LBL__162 _LBL__163 F1_000702 equ $ ; IN [ZI_2.BAS] CASE 1 movlw 1 subwf idx,W,0 bnz _LBL__175 F1_000703 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000704 equ $ ; IN [ZI_2.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _LBL__177 F1_000705 equ $ ; IN [ZI_2.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 bra _LBL__178 _LBL__177 F1_000706 equ $ ; IN [ZI_2.BAS] ELSE F1_000707 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.1 = 1 THEN btfss Velflags,1,0 bra _LBL__180 F1_000708 equ $ ; IN [ZI_2.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_000709 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 bra _LBL__181 _LBL__180 F1_000710 equ $ ; IN [ZI_2.BAS] ELSE F1_000711 equ $ ; IN [ZI_2.BAS] IF LR1 = 0 THEN btfsc LRbyte,1,0 bra _LBL__183 F1_000712 equ $ ; IN [ZI_2.BAS] SET PORTA.1 bsf LATA,1,0 bra _LBL__184 _LBL__183 F1_000713 equ $ ; IN [ZI_2.BAS] ELSE F1_000714 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000715 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__184 F1_000716 equ $ ; IN [ZI_2.BAS] SET PORTA.3 bsf LATA,3,0 F1_000717 equ $ ; IN [ZI_2.BAS] TOGGLE LR1 btg LRbyte,1,0 F1_000718 equ $ ; IN [ZI_2.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_000719 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000720 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__181 F1_000721 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__178 bra _LBL__162 _LBL__175 F1_000722 equ $ ; IN [ZI_2.BAS] CASE 2 movlw 2 subwf idx,W,0 bnz _LBL__186 F1_000723 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_000724 equ $ ; IN [ZI_2.BAS] IF NOTES.2 = 0 THEN btfsc notes,2,0 bra _LBL__188 F1_000725 equ $ ; IN [ZI_2.BAS] SET TIMVALS[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 bra _LBL__189 _LBL__188 F1_000726 equ $ ; IN [ZI_2.BAS] ELSE F1_000727 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.2 = 1 THEN btfss Velflags,2,0 bra _LBL__191 F1_000728 equ $ ; IN [ZI_2.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_000729 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 bra _LBL__192 _LBL__191 F1_000730 equ $ ; IN [ZI_2.BAS] ELSE F1_000731 equ $ ; IN [ZI_2.BAS] IF LR2 = 0 THEN btfsc LRbyte,2,0 bra _LBL__194 F1_000732 equ $ ; IN [ZI_2.BAS] SET PORTA.4 bsf LATA,4,0 bra _LBL__195 _LBL__194 F1_000733 equ $ ; IN [ZI_2.BAS] ELSE F1_000734 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000735 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__195 F1_000736 equ $ ; IN [ZI_2.BAS] SET PORTC.0 bsf LATC,0,0 F1_000737 equ $ ; IN [ZI_2.BAS] TOGGLE LR2 btg LRbyte,2,0 F1_000738 equ $ ; IN [ZI_2.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_000739 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000740 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__192 F1_000741 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__189 bra _LBL__162 _LBL__186 F1_000742 equ $ ; IN [ZI_2.BAS] CASE 3 movlw 3 subwf idx,W,0 bnz _LBL__197 F1_000743 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_000744 equ $ ; IN [ZI_2.BAS] IF NOTES.3 = 0 THEN btfsc notes,3,0 bra _LBL__199 F1_000745 equ $ ; IN [ZI_2.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,0 setf TimVals#3,0 bra _LBL__200 _LBL__199 F1_000746 equ $ ; IN [ZI_2.BAS] ELSE F1_000747 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.3 = 1 THEN btfss Velflags,3,0 bra _LBL__202 F1_000748 equ $ ; IN [ZI_2.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_000749 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 bra _LBL__203 _LBL__202 F1_000750 equ $ ; IN [ZI_2.BAS] ELSE F1_000751 equ $ ; IN [ZI_2.BAS] IF LR3 = 0 THEN btfsc LRbyte,3,0 bra _LBL__205 F1_000752 equ $ ; IN [ZI_2.BAS] SET PORTA.5 bsf LATA,5,0 bra _LBL__206 _LBL__205 F1_000753 equ $ ; IN [ZI_2.BAS] ELSE F1_000754 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000755 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__206 F1_000756 equ $ ; IN [ZI_2.BAS] SET PORTC.1 bsf LATC,1,0 F1_000757 equ $ ; IN [ZI_2.BAS] TOGGLE LR3 btg LRbyte,3,0 F1_000758 equ $ ; IN [ZI_2.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_000759 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000760 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__203 F1_000761 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__200 bra _LBL__162 _LBL__197 F1_000762 equ $ ; IN [ZI_2.BAS] CASE 4 movlw 4 subwf idx,W,0 bnz _LBL__208 F1_000763 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000764 equ $ ; IN [ZI_2.BAS] IF NOTES.4 = 0 THEN btfsc notes,4,0 bra _LBL__210 F1_000765 equ $ ; IN [ZI_2.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__211 _LBL__210 F1_000766 equ $ ; IN [ZI_2.BAS] ELSE F1_000767 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.4 = 1 THEN btfss Velflags,4,0 bra _LBL__213 F1_000768 equ $ ; IN [ZI_2.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_000769 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 bra _LBL__214 _LBL__213 F1_000770 equ $ ; IN [ZI_2.BAS] ELSE F1_000771 equ $ ; IN [ZI_2.BAS] IF LR4 = 0 THEN btfsc LRbyte,4,0 bra _LBL__216 F1_000772 equ $ ; IN [ZI_2.BAS] SET PORTC.2 bsf LATC,2,0 bra _LBL__217 _LBL__216 F1_000773 equ $ ; IN [ZI_2.BAS] ELSE F1_000774 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000775 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__217 F1_000776 equ $ ; IN [ZI_2.BAS] SET PORTC.4 bsf LATC,4,0 F1_000777 equ $ ; IN [ZI_2.BAS] TOGGLE LR4 btg LRbyte,4,0 F1_000778 equ $ ; IN [ZI_2.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_000779 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000780 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__214 F1_000781 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__211 bra _LBL__162 _LBL__208 F1_000782 equ $ ; IN [ZI_2.BAS] CASE 5 movlw 5 subwf idx,W,0 bnz _LBL__219 F1_000783 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000784 equ $ ; IN [ZI_2.BAS] IF NOTES.5 = 0 THEN btfsc notes,5,0 bra _LBL__221 F1_000785 equ $ ; IN [ZI_2.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__222 _LBL__221 F1_000786 equ $ ; IN [ZI_2.BAS] ELSE F1_000787 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.5 = 1 THEN btfss Velflags,5,0 bra _LBL__224 F1_000788 equ $ ; IN [ZI_2.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_000789 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 bra _LBL__225 _LBL__224 F1_000790 equ $ ; IN [ZI_2.BAS] ELSE F1_000791 equ $ ; IN [ZI_2.BAS] IF LR5 = 0 THEN btfsc LRbyte,5,0 bra _LBL__227 F1_000792 equ $ ; IN [ZI_2.BAS] SET PORTC.3 bsf LATC,3,0 bra _LBL__228 _LBL__227 F1_000793 equ $ ; IN [ZI_2.BAS] ELSE F1_000794 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000795 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__228 F1_000796 equ $ ; IN [ZI_2.BAS] SET PORTC.5 bsf LATC,5,0 F1_000797 equ $ ; IN [ZI_2.BAS] TOGGLE LR5 btg LRbyte,5,0 F1_000798 equ $ ; IN [ZI_2.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_000799 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000800 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__225 F1_000801 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__222 bra _LBL__162 _LBL__219 F1_000802 equ $ ; IN [ZI_2.BAS] CASE 6 movlw 6 subwf idx,W,0 bnz _LBL__230 F1_000803 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000804 equ $ ; IN [ZI_2.BAS] IF NOTES.6 = 0 THEN btfsc notes,6,0 bra _LBL__232 F1_000805 equ $ ; IN [ZI_2.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__233 _LBL__232 F1_000806 equ $ ; IN [ZI_2.BAS] ELSE F1_000807 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.6 = 1 THEN btfss Velflags,6,0 bra _LBL__235 F1_000808 equ $ ; IN [ZI_2.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_000809 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 bra _LBL__236 _LBL__235 F1_000810 equ $ ; IN [ZI_2.BAS] ELSE F1_000811 equ $ ; IN [ZI_2.BAS] IF LR6 = 0 THEN btfsc LRbyte,6,0 bra _LBL__238 F1_000812 equ $ ; IN [ZI_2.BAS] SET PORTB.0 bsf LATB,0,0 bra _LBL__239 _LBL__238 F1_000813 equ $ ; IN [ZI_2.BAS] ELSE F1_000814 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000815 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__239 F1_000816 equ $ ; IN [ZI_2.BAS] SET PORTB.2 bsf LATB,2,0 F1_000817 equ $ ; IN [ZI_2.BAS] TOGGLE LR6 btg LRbyte,6,0 F1_000818 equ $ ; IN [ZI_2.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_000819 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000820 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__236 F1_000821 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__233 bra _LBL__162 _LBL__230 F1_000822 equ $ ; IN [ZI_2.BAS] CASE 7 movlw 7 subwf idx,W,0 bnz _LBL__241 F1_000823 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000824 equ $ ; IN [ZI_2.BAS] IF NOTES.7 = 0 THEN btfsc notes,7,0 bra _LBL__243 F1_000825 equ $ ; IN [ZI_2.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__244 _LBL__243 F1_000826 equ $ ; IN [ZI_2.BAS] ELSE F1_000827 equ $ ; IN [ZI_2.BAS] IF VELFLAGS.7 = 1 THEN btfss Velflags,7,0 bra _LBL__246 F1_000828 equ $ ; IN [ZI_2.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_000829 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 bra _LBL__247 _LBL__246 F1_000830 equ $ ; IN [ZI_2.BAS] ELSE F1_000831 equ $ ; IN [ZI_2.BAS] IF LR7 = 0 THEN btfsc LRbyte,7,0 bra _LBL__249 F1_000832 equ $ ; IN [ZI_2.BAS] SET PORTB.1 bsf LATB,1,0 bra _LBL__250 _LBL__249 F1_000833 equ $ ; IN [ZI_2.BAS] ELSE F1_000834 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000835 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__250 F1_000836 equ $ ; IN [ZI_2.BAS] SET PORTB.3 bsf LATB,3,0 F1_000837 equ $ ; IN [ZI_2.BAS] TOGGLE LR7 btg LRbyte,7,0 F1_000838 equ $ ; IN [ZI_2.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_000839 equ $ ; IN [ZI_2.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_000840 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__247 F1_000841 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__244 F1_000845 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__241 _LBL__162 F1_000846 equ $ ; IN [ZI_2.BAS] GOSUB SORTTIMERS rcall SortTimers F1_000848 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__161 F1_000850 equ $ ; IN [ZI_2.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__252 F1_000851 equ $ ; IN [ZI_2.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_000852 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_000853 equ $ ; IN [ZI_2.BAS] CLEAR NOTES clrf notes,0 F1_000854 equ $ ; IN [ZI_2.BAS] SET TIMVALS lfsr 0,TimVals movlw 32 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000855 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__252 bra _LBL__253 _LBL__159 F1_000856 equ $ ; IN [ZI_2.BAS] ELSE F1_000858 equ $ ; IN [ZI_2.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__255 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__255 F1_000859 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__253 F1_000862 equ $ ; IN [ZI_2.BAS] GOTO LOOP goto LOOP SortTimers F1_000868 equ $ ; IN [ZI_2.BAS] SET IDX setf idx,0 F1_000869 equ $ ; IN [ZI_2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_000870 equ $ ; IN [ZI_2.BAS] FOR I = 0 TO 7 clrf _I,0 _FRLB__256 movlw 8 subwf _I,W,0 bc _NXLB__257 F1_000871 equ $ ; IN [ZI_2.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 114 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__260 F1_000872 equ $ ; IN [ZI_2.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 114 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000873 equ $ ; IN [ZI_2.BAS] IDX = I movff _I,idx F1_000874 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__260 _CTLB__258 F1_000875 equ $ ; IN [ZI_2.BAS] NEXT I incf _I,F,0 bnc _FRLB__256 _NXLB__257 F1_000876 equ $ ; IN [ZI_2.BAS] RETURN return 0 KeyPres F1_000881 equ $ ; IN [ZI_2.BAS] SELECT NOTEPRES F1_000882 equ $ ; IN [ZI_2.BAS] CASE NOOT0 movlw 58 subwf notePres,W,0 bnz _LBL__262 F1_000883 equ $ ; IN [ZI_2.BAS] PRES0 = PRES movff pres,Pres0 F1_000884 equ $ ; IN [ZI_2.BAS] IF PRES0 > 0 THEN movf Pres0,F,0 bz _LBL__265 F1_000885 equ $ ; IN [ZI_2.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__266 _LBL__265 F1_000888 equ $ ; IN [ZI_2.BAS] ELSE F1_000889 equ $ ; IN [ZI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000890 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000891 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__266 bra _LBL__261 _LBL__262 F1_000892 equ $ ; IN [ZI_2.BAS] CASE NOOT1 movlw 59 subwf notePres,W,0 bnz _LBL__268 F1_000893 equ $ ; IN [ZI_2.BAS] PRES1 = PRES movff pres,Pres1 F1_000894 equ $ ; IN [ZI_2.BAS] IF PRES1 > 0 THEN movf Pres1,F,0 bz _LBL__270 F1_000895 equ $ ; IN [ZI_2.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__271 _LBL__270 F1_000896 equ $ ; IN [ZI_2.BAS] ELSE F1_000897 equ $ ; IN [ZI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000898 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000899 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__271 bra _LBL__261 _LBL__268 F1_000900 equ $ ; IN [ZI_2.BAS] CASE NOOT2 movlw 60 subwf notePres,W,0 bnz _LBL__273 F1_000901 equ $ ; IN [ZI_2.BAS] PRES2 = PRES movff pres,Pres2 F1_000902 equ $ ; IN [ZI_2.BAS] IF PRES2 > 0 THEN movf Pres2,F,0 bz _LBL__275 F1_000903 equ $ ; IN [ZI_2.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__276 _LBL__275 F1_000904 equ $ ; IN [ZI_2.BAS] ELSE F1_000905 equ $ ; IN [ZI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000906 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000907 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__276 bra _LBL__261 _LBL__273 F1_000908 equ $ ; IN [ZI_2.BAS] CASE NOOT3 movlw 61 subwf notePres,W,0 bnz _LBL__278 F1_000909 equ $ ; IN [ZI_2.BAS] PRES3 = PRES movff pres,Pres3 F1_000910 equ $ ; IN [ZI_2.BAS] IF PRES3 > 0 THEN movf Pres3,F,0 bz _LBL__280 F1_000911 equ $ ; IN [ZI_2.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__281 _LBL__280 F1_000912 equ $ ; IN [ZI_2.BAS] ELSE F1_000913 equ $ ; IN [ZI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000914 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000915 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__281 bra _LBL__261 _LBL__278 F1_000916 equ $ ; IN [ZI_2.BAS] CASE NOOT4 movlw 62 subwf notePres,W,0 bnz _LBL__283 F1_000917 equ $ ; IN [ZI_2.BAS] PRES4 = PRES movff pres,Pres4 F1_000918 equ $ ; IN [ZI_2.BAS] IF PRES4 > 0 THEN movf Pres4,F,0 bz _LBL__285 F1_000919 equ $ ; IN [ZI_2.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__286 _LBL__285 F1_000920 equ $ ; IN [ZI_2.BAS] ELSE F1_000921 equ $ ; IN [ZI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000922 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000923 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__286 bra _LBL__261 _LBL__283 F1_000924 equ $ ; IN [ZI_2.BAS] CASE NOOT5 movlw 63 subwf notePres,W,0 bnz _LBL__288 F1_000925 equ $ ; IN [ZI_2.BAS] PRES5 = PRES movff pres,Pres5 F1_000926 equ $ ; IN [ZI_2.BAS] IF PRES5 > 0 THEN movf Pres5,F,0 bz _LBL__290 F1_000927 equ $ ; IN [ZI_2.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__291 _LBL__290 F1_000928 equ $ ; IN [ZI_2.BAS] ELSE F1_000929 equ $ ; IN [ZI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_000930 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000931 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__291 bra _LBL__261 _LBL__288 F1_000932 equ $ ; IN [ZI_2.BAS] CASE NOOT6 movlw 64 subwf notePres,W,0 bnz _LBL__293 F1_000933 equ $ ; IN [ZI_2.BAS] PRES6 = PRES movff pres,Pres6 F1_000934 equ $ ; IN [ZI_2.BAS] IF PRES6 > 0 THEN movf Pres6,F,0 bz _LBL__295 F1_000935 equ $ ; IN [ZI_2.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__296 _LBL__295 F1_000936 equ $ ; IN [ZI_2.BAS] ELSE F1_000937 equ $ ; IN [ZI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_000938 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000939 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__296 bra _LBL__261 _LBL__293 F1_000940 equ $ ; IN [ZI_2.BAS] CASE NOOT7 movlw 65 subwf notePres,W,0 bnz _LBL__298 F1_000941 equ $ ; IN [ZI_2.BAS] PRES7 = PRES movff pres,Pres7 F1_000942 equ $ ; IN [ZI_2.BAS] IF PRES7 > 0 THEN movf Pres7,F,0 bz _LBL__300 F1_000943 equ $ ; IN [ZI_2.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__301 _LBL__300 F1_000944 equ $ ; IN [ZI_2.BAS] ELSE F1_000945 equ $ ; IN [ZI_2.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_000946 equ $ ; IN [ZI_2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000947 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__301 F1_000948 equ $ ; IN [ZI_2.BAS] ENDSELECT _LBL__298 _LBL__261 F1_000950 equ $ ; IN [ZI_2.BAS] SET NOTEPRES setf notePres,0 F1_000951 equ $ ; IN [ZI_2.BAS] RETURN return 0 Aftertouch F1_000977 equ $ ; IN [ZI_2.BAS] SET AFT setf aft,0 F1_000978 equ $ ; IN [ZI_2.BAS] RETURN return 0 Controller F1_000981 equ $ ; IN [ZI_2.BAS] SELECT CTRL F1_000984 equ $ ; IN [ZI_2.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__303 F1_000987 equ $ ; IN [ZI_2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__306 F1_000988 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000989 equ $ ; IN [ZI_2.BAS] CLEAR NOTES clrf notes,0 F1_000990 equ $ ; IN [ZI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_000991 equ $ ; IN [ZI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_000992 equ $ ; IN [ZI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_000993 equ $ ; IN [ZI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_000994 equ $ ; IN [ZI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_000995 equ $ ; IN [ZI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_000996 equ $ ; IN [ZI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_000997 equ $ ; IN [ZI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_000998 equ $ ; IN [ZI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_000999 equ $ ; IN [ZI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_001000 equ $ ; IN [ZI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001001 equ $ ; IN [ZI_2.BAS] CLEAR PRES5 clrf Pres5,0 F1_001002 equ $ ; IN [ZI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001003 equ $ ; IN [ZI_2.BAS] CLEAR PRES6 clrf Pres6,0 F1_001004 equ $ ; IN [ZI_2.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_001005 equ $ ; IN [ZI_2.BAS] CLEAR PRES7 clrf Pres7,0 bra _LBL__307 _LBL__306 F1_001006 equ $ ; IN [ZI_2.BAS] ELSE F1_001007 equ $ ; IN [ZI_2.BAS] PRES0 = VALUE movff value,Pres0 F1_001008 equ $ ; IN [ZI_2.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_001009 equ $ ; IN [ZI_2.BAS] PRES1 = VALUE movff value,Pres1 F1_001010 equ $ ; IN [ZI_2.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_001011 equ $ ; IN [ZI_2.BAS] PRES2 = VALUE movff value,Pres2 F1_001012 equ $ ; IN [ZI_2.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_001013 equ $ ; IN [ZI_2.BAS] PRES3 = VALUE movff value,Pres3 F1_001014 equ $ ; IN [ZI_2.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_001015 equ $ ; IN [ZI_2.BAS] PRES4 = VALUE movff value,Pres4 F1_001016 equ $ ; IN [ZI_2.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_001017 equ $ ; IN [ZI_2.BAS] PRES5 = VALUE movff value,Pres5 F1_001018 equ $ ; IN [ZI_2.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_001019 equ $ ; IN [ZI_2.BAS] PRES6 = VALUE movff value,Pres6 F1_001020 equ $ ; IN [ZI_2.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_001021 equ $ ; IN [ZI_2.BAS] PRES7 = VALUE movff value,Pres7 F1_001022 equ $ ; IN [ZI_2.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_001023 equ $ ; IN [ZI_2.BAS] SET PORTB.4 bsf LATB,4,0 F1_001024 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__307 bra _LBL__302 _LBL__303 F1_001025 equ $ ; IN [ZI_2.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__309 F1_001027 equ $ ; IN [ZI_2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__311 F1_001028 equ $ ; IN [ZI_2.BAS] CLEAR POWERON bcf CC66,0,0 F1_001029 equ $ ; IN [ZI_2.BAS] GOSUB POWERDOWN rcall PowerDown bra _LBL__312 _LBL__311 F1_001030 equ $ ; IN [ZI_2.BAS] ELSE F1_001031 equ $ ; IN [ZI_2.BAS] SET POWERON bsf CC66,0,0 F1_001032 equ $ ; IN [ZI_2.BAS] ENDIF _LBL__312 bra _LBL__302 _LBL__309 F1_001033 equ $ ; IN [ZI_2.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 bnz _LBL__314 F1_001034 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_001035 equ $ ; IN [ZI_2.BAS] CLEAR NOTES clrf notes,0 F1_001036 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001037 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001038 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001039 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001040 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001041 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001042 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001043 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__302 _LBL__314 F1_001044 equ $ ; IN [ZI_2.BAS] CASE 127 movlw 127 subwf Ctrl,W,0 btfsc STATUS,2,0 F1_001046 equ $ ; IN [ZI_2.BAS] GOSUB PLUCKER_RESET rcall Plucker_Reset F1_001047 equ $ ; IN [ZI_2.BAS] END SELECT _LBL__316 _LBL__302 F1_001048 equ $ ; IN [ZI_2.BAS] SET CTRL setf Ctrl,0 F1_001049 equ $ ; IN [ZI_2.BAS] RETURN return 0 PowerDown F1_001053 equ $ ; IN [ZI_2.BAS] CLEAR VELFLAGS clrf Velflags,0 F1_001054 equ $ ; IN [ZI_2.BAS] CLEAR NOTES clrf notes,0 F1_001055 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001056 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001057 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001058 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001059 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001060 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001061 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001062 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001065 equ $ ; IN [ZI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001066 equ $ ; IN [ZI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_001067 equ $ ; IN [ZI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001068 equ $ ; IN [ZI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_001069 equ $ ; IN [ZI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001070 equ $ ; IN [ZI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_001071 equ $ ; IN [ZI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001072 equ $ ; IN [ZI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_001073 equ $ ; IN [ZI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001074 equ $ ; IN [ZI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_001075 equ $ ; IN [ZI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001076 equ $ ; IN [ZI_2.BAS] CLEAR PRES5 clrf Pres5,0 F1_001077 equ $ ; IN [ZI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001078 equ $ ; IN [ZI_2.BAS] CLEAR PRES6 clrf Pres6,0 F1_001079 equ $ ; IN [ZI_2.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_001080 equ $ ; IN [ZI_2.BAS] CLEAR PRES7 clrf Pres7,0 F1_001081 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001082 equ $ ; IN [ZI_2.BAS] RETURN return 0 Plucker_Reset F1_001087 equ $ ; IN [ZI_2.BAS] CLEAR LRBYTE clrf LRbyte,0 F1_001088 equ $ ; IN [ZI_2.BAS] CLEAR RATE0 clrf Rate0H,0 clrf Rate0,0 F1_001089 equ $ ; IN [ZI_2.BAS] CLEAR PRES0 clrf Pres0,0 F1_001090 equ $ ; IN [ZI_2.BAS] CLEAR RATE1 clrf Rate1H,0 clrf Rate1,0 F1_001091 equ $ ; IN [ZI_2.BAS] CLEAR PRES1 clrf Pres1,0 F1_001092 equ $ ; IN [ZI_2.BAS] CLEAR RATE2 clrf Rate2H,0 clrf Rate2,0 F1_001093 equ $ ; IN [ZI_2.BAS] CLEAR PRES2 clrf Pres2,0 F1_001094 equ $ ; IN [ZI_2.BAS] CLEAR RATE3 clrf Rate3H,0 clrf Rate3,0 F1_001095 equ $ ; IN [ZI_2.BAS] CLEAR PRES3 clrf Pres3,0 F1_001096 equ $ ; IN [ZI_2.BAS] CLEAR RATE4 clrf Rate4H,0 clrf Rate4,0 F1_001097 equ $ ; IN [ZI_2.BAS] CLEAR PRES4 clrf Pres4,0 F1_001098 equ $ ; IN [ZI_2.BAS] CLEAR RATE5 clrf Rate5H,0 clrf Rate5,0 F1_001099 equ $ ; IN [ZI_2.BAS] CLEAR PRES5 clrf Pres5,0 F1_001100 equ $ ; IN [ZI_2.BAS] CLEAR RATE6 clrf Rate6H,0 clrf Rate6,0 F1_001101 equ $ ; IN [ZI_2.BAS] CLEAR PRES6 clrf Pres6,0 F1_001102 equ $ ; IN [ZI_2.BAS] CLEAR RATE7 clrf Rate7H,0 clrf Rate7,0 F1_001103 equ $ ; IN [ZI_2.BAS] CLEAR PRES7 clrf Pres7,0 F1_001104 equ $ ; IN [ZI_2.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_001105 equ $ ; IN [ZI_2.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_001106 equ $ ; IN [ZI_2.BAS] CLEAR VELO2 clrf velo2H,0 clrf velo2,0 F1_001107 equ $ ; IN [ZI_2.BAS] CLEAR VELO3 clrf velo3H,0 clrf velo3,0 F1_001108 equ $ ; IN [ZI_2.BAS] CLEAR VELO4 clrf velo4H,0 clrf velo4,0 F1_001109 equ $ ; IN [ZI_2.BAS] CLEAR VELO5 clrf velo5H,0 clrf velo5,0 F1_001110 equ $ ; IN [ZI_2.BAS] CLEAR VELO6 clrf velo6H,0 clrf velo6,0 F1_001111 equ $ ; IN [ZI_2.BAS] CLEAR VELO7 clrf velo7H,0 clrf velo7,0 F1_001112 equ $ ; IN [ZI_2.BAS] SET TIMVALS[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 F1_001113 equ $ ; IN [ZI_2.BAS] SET TIMVALS[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 F1_001114 equ $ ; IN [ZI_2.BAS] SET TIMVALS[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 F1_001115 equ $ ; IN [ZI_2.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,0 setf TimVals#3,0 F1_001116 equ $ ; IN [ZI_2.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 F1_001117 equ $ ; IN [ZI_2.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 F1_001118 equ $ ; IN [ZI_2.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 F1_001119 equ $ ; IN [ZI_2.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 F1_001120 equ $ ; IN [ZI_2.BAS] SET NXT movlw 127 movwf NxtHHH,0 setf NxtHH,0 setf NxtH,0 setf Nxt,0 F1_001121 equ $ ; IN [ZI_2.BAS] SET IDX setf idx,0 F1_001123 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001124 equ $ ; IN [ZI_2.BAS] SET PORTA.2 bsf LATA,2,0 F1_001125 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001126 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001128 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001129 equ $ ; IN [ZI_2.BAS] SET PORTA.3 bsf LATA,3,0 F1_001130 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001131 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001133 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001134 equ $ ; IN [ZI_2.BAS] SET PORTC.0 bsf LATC,0,0 F1_001135 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001136 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.0 bcf LATC,0,0 F1_001138 equ $ ; IN [ZI_2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001139 equ $ ; IN [ZI_2.BAS] SET PORTC.1 bsf LATC,1,0 F1_001140 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001141 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.1 bcf LATC,1,0 F1_001143 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_001144 equ $ ; IN [ZI_2.BAS] SET PORTC.4 bsf LATC,4,0 F1_001145 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001146 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001148 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001149 equ $ ; IN [ZI_2.BAS] SET PORTC.5 bsf LATC,5,0 F1_001150 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001151 equ $ ; IN [ZI_2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001153 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001154 equ $ ; IN [ZI_2.BAS] SET PORTB.2 bsf LATB,2,0 F1_001155 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001156 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001158 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001159 equ $ ; IN [ZI_2.BAS] SET PORTB.3 bsf LATB,3,0 F1_001160 equ $ ; IN [ZI_2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_001161 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001163 equ $ ; IN [ZI_2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001164 equ $ ; IN [ZI_2.BAS] RETURN return 0 Dur_Lookup F1_001170 equ $ ; IN [ZI_2.BAS] SET DUR[0] movlb 3 setf Dur#0H,1 setf Dur#0,1 F1_001171 equ $ ; IN [ZI_2.BAS] DUR[1] = 41667 movlw 162 movwf Dur#1H,1 movlw 195 movwf Dur#1,1 F1_001172 equ $ ; IN [ZI_2.BAS] DUR[2] = 39494 movlw 154 movwf Dur#2H,1 movlw 70 movwf Dur#2,1 F1_001173 equ $ ; IN [ZI_2.BAS] DUR[3] = 38450 movlw 150 movwf Dur#3H,1 movlw 50 movwf Dur#3,1 F1_001174 equ $ ; IN [ZI_2.BAS] DUR[4] = 37434 movlw 146 movwf Dur#4H,1 movlw 58 movwf Dur#4,1 F1_001175 equ $ ; IN [ZI_2.BAS] DUR[5] = 36445 movlw 142 movwf Dur#5H,1 movlw 93 movwf Dur#5,1 F1_001176 equ $ ; IN [ZI_2.BAS] DUR[6] = 35482 movlw 138 movwf Dur#6H,1 movlw 154 movwf Dur#6,1 F1_001177 equ $ ; IN [ZI_2.BAS] DUR[7] = 34544 movlw 134 movwf Dur#7H,1 movlw 240 movwf Dur#7,1 F1_001178 equ $ ; IN [ZI_2.BAS] DUR[8] = 33631 movlw 131 movwf Dur#8H,1 movlw 95 movwf Dur#8,1 F1_001179 equ $ ; IN [ZI_2.BAS] DUR[9] = 32743 movlw 127 movwf Dur#9H,1 movlw 231 movwf Dur#9,1 F1_001180 equ $ ; IN [ZI_2.BAS] DUR[10] = 31877 movlw 124 movwf Dur#10H,1 movlw 133 movwf Dur#10,1 F1_001181 equ $ ; IN [ZI_2.BAS] DUR[11] = 31035 movlw 121 movwf Dur#11H,1 movlw 59 movwf Dur#11,1 F1_001182 equ $ ; IN [ZI_2.BAS] DUR[12] = 30215 movlw 118 movwf Dur#12H,1 movlw 7 movwf Dur#12,1 F1_001183 equ $ ; IN [ZI_2.BAS] DUR[13] = 29416 movlw 114 movwf Dur#13H,1 movlw 232 movwf Dur#13,1 F1_001184 equ $ ; IN [ZI_2.BAS] DUR[14] = 28639 movlw 111 movwf Dur#14H,1 movlw 223 movwf Dur#14,1 F1_001185 equ $ ; IN [ZI_2.BAS] DUR[15] = 27882 movlw 108 movwf Dur#15H,1 movlw 234 movwf Dur#15,1 F1_001186 equ $ ; IN [ZI_2.BAS] DUR[16] = 27146 movlw 106 movwf Dur#16H,1 movlw 10 movwf Dur#16,1 F1_001187 equ $ ; IN [ZI_2.BAS] DUR[17] = 26428 movlw 103 movwf Dur#17H,1 movlw 60 movwf Dur#17,1 F1_001188 equ $ ; IN [ZI_2.BAS] DUR[18] = 25730 movlw 100 movwf Dur#18H,1 movlw 130 movwf Dur#18,1 F1_001189 equ $ ; IN [ZI_2.BAS] DUR[19] = 25050 movlw 97 movwf Dur#19H,1 movlw 218 movwf Dur#19,1 F1_001190 equ $ ; IN [ZI_2.BAS] DUR[20] = 24388 movlw 95 movwf Dur#20H,1 movlw 68 movwf Dur#20,1 F1_001191 equ $ ; IN [ZI_2.BAS] DUR[21] = 23743 movlw 92 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_001192 equ $ ; IN [ZI_2.BAS] DUR[22] = 23116 movlw 90 movwf Dur#22H,1 movlw 76 movwf Dur#22,1 F1_001193 equ $ ; IN [ZI_2.BAS] DUR[23] = 22505 movlw 87 movwf Dur#23H,1 movlw 233 movwf Dur#23,1 F1_001194 equ $ ; IN [ZI_2.BAS] DUR[24] = 21910 movlw 85 movwf Dur#24H,1 movlw 150 movwf Dur#24,1 F1_001195 equ $ ; IN [ZI_2.BAS] DUR[25] = 21331 movlw 83 movwf Dur#25H,1 movwf Dur#25,1 F1_001196 equ $ ; IN [ZI_2.BAS] DUR[26] = 20768 movlw 81 movwf Dur#26H,1 movlw 32 movwf Dur#26,1 F1_001197 equ $ ; IN [ZI_2.BAS] DUR[27] = 20219 movlw 78 movwf Dur#27H,1 movlw 251 movwf Dur#27,1 F1_001198 equ $ ; IN [ZI_2.BAS] DUR[28] = 19685 movlw 76 movwf Dur#28H,1 movlw 229 movwf Dur#28,1 F1_001199 equ $ ; IN [ZI_2.BAS] DUR[29] = 19164 movlw 74 movwf Dur#29H,1 movlw 220 movwf Dur#29,1 F1_001200 equ $ ; IN [ZI_2.BAS] DUR[30] = 18658 movlw 72 movwf Dur#30H,1 movlw 226 movwf Dur#30,1 F1_001201 equ $ ; IN [ZI_2.BAS] DUR[31] = 18165 movlw 70 movwf Dur#31H,1 movlw 245 movwf Dur#31,1 F1_001202 equ $ ; IN [ZI_2.BAS] DUR[32] = 17685 movlw 69 movwf Dur#32H,1 movlw 21 movwf Dur#32,1 F1_001203 equ $ ; IN [ZI_2.BAS] DUR[33] = 17218 movlw 67 movwf Dur#33H,1 movlw 66 movwf Dur#33,1 F1_001204 equ $ ; IN [ZI_2.BAS] DUR[34] = 16763 movlw 65 movwf Dur#34H,1 movlw 123 movwf Dur#34,1 F1_001205 equ $ ; IN [ZI_2.BAS] DUR[35] = 16320 movlw 63 movwf Dur#35H,1 movlw 192 movwf Dur#35,1 F1_001206 equ $ ; IN [ZI_2.BAS] DUR[36] = 15888 movlw 62 movwf Dur#36H,1 movlw 16 movwf Dur#36,1 F1_001207 equ $ ; IN [ZI_2.BAS] DUR[37] = 15469 movlw 60 movwf Dur#37H,1 movlw 109 movwf Dur#37,1 F1_001208 equ $ ; IN [ZI_2.BAS] DUR[38] = 15060 movlw 58 movwf Dur#38H,1 movlw 212 movwf Dur#38,1 F1_001209 equ $ ; IN [ZI_2.BAS] DUR[39] = 14662 movlw 57 movwf Dur#39H,1 movlw 70 movwf Dur#39,1 F1_001210 equ $ ; IN [ZI_2.BAS] DUR[40] = 14274 movlw 55 movwf Dur#40H,1 movlw 194 movwf Dur#40,1 F1_001211 equ $ ; IN [ZI_2.BAS] DUR[41] = 13897 movlw 54 movwf Dur#41H,1 movlw 73 movwf Dur#41,1 F1_001212 equ $ ; IN [ZI_2.BAS] DUR[42] = 13530 movlw 52 movwf Dur#42H,1 movlw 218 movwf Dur#42,1 F1_001213 equ $ ; IN [ZI_2.BAS] DUR[43] = 13172 movlw 51 movwf Dur#43H,1 movlw 116 movwf Dur#43,1 F1_001214 equ $ ; IN [ZI_2.BAS] DUR[44] = 12824 movlw 50 movwf Dur#44H,1 movlw 24 movwf Dur#44,1 F1_001215 equ $ ; IN [ZI_2.BAS] DUR[45] = 12485 movlw 48 movwf Dur#45H,1 movlw 197 movwf Dur#45,1 F1_001216 equ $ ; IN [ZI_2.BAS] DUR[46] = 12155 movlw 47 movwf Dur#46H,1 movlw 123 movwf Dur#46,1 F1_001217 equ $ ; IN [ZI_2.BAS] DUR[47] = 11834 movlw 46 movwf Dur#47H,1 movlw 58 movwf Dur#47,1 F1_001218 equ $ ; IN [ZI_2.BAS] DUR[48] = 11522 movlw 45 movwf Dur#48H,1 movlw 2 movwf Dur#48,1 F1_001219 equ $ ; IN [ZI_2.BAS] DUR[49] = 11217 movlw 43 movwf Dur#49H,1 movlw 209 movwf Dur#49,1 F1_001220 equ $ ; IN [ZI_2.BAS] DUR[50] = 10921 movlw 42 movwf Dur#50H,1 movlw 169 movwf Dur#50,1 F1_001221 equ $ ; IN [ZI_2.BAS] DUR[51] = 10632 movlw 41 movwf Dur#51H,1 movlw 136 movwf Dur#51,1 F1_001222 equ $ ; IN [ZI_2.BAS] DUR[52] = 10351 movlw 40 movwf Dur#52H,1 movlw 111 movwf Dur#52,1 F1_001223 equ $ ; IN [ZI_2.BAS] DUR[53] = 10078 movlw 39 movwf Dur#53H,1 movlw 94 movwf Dur#53,1 F1_001224 equ $ ; IN [ZI_2.BAS] DUR[54] = 9811 movlw 38 movwf Dur#54H,1 movlw 83 movwf Dur#54,1 F1_001225 equ $ ; IN [ZI_2.BAS] DUR[55] = 9552 movlw 37 movlb 4 movwf Dur#55H,1 movlw 80 movwf Dur#55,1 F1_001226 equ $ ; IN [ZI_2.BAS] DUR[56] = 9300 movlw 36 movwf Dur#56H,1 movlw 84 movwf Dur#56,1 F1_001227 equ $ ; IN [ZI_2.BAS] DUR[57] = 9054 movlw 35 movwf Dur#57H,1 movlw 94 movwf Dur#57,1 F1_001228 equ $ ; IN [ZI_2.BAS] DUR[58] = 8815 movlw 34 movwf Dur#58H,1 movlw 111 movwf Dur#58,1 F1_001229 equ $ ; IN [ZI_2.BAS] DUR[59] = 8582 movlw 33 movwf Dur#59H,1 movlw 134 movwf Dur#59,1 F1_001230 equ $ ; IN [ZI_2.BAS] DUR[60] = 8355 movlw 32 movwf Dur#60H,1 movlw 163 movwf Dur#60,1 F1_001231 equ $ ; IN [ZI_2.BAS] DUR[61] = 8134 movlw 31 movwf Dur#61H,1 movlw 198 movwf Dur#61,1 F1_001232 equ $ ; IN [ZI_2.BAS] DUR[62] = 7919 movlw 30 movwf Dur#62H,1 movlw 239 movwf Dur#62,1 F1_001233 equ $ ; IN [ZI_2.BAS] DUR[63] = 7710 movlw 30 movwf Dur#63H,1 movwf Dur#63,1 F1_001234 equ $ ; IN [ZI_2.BAS] DUR[64] = 7506 movlw 29 movwf Dur#64H,1 movlw 82 movwf Dur#64,1 F1_001235 equ $ ; IN [ZI_2.BAS] DUR[65] = 7308 movlw 28 movwf Dur#65H,1 movlw 140 movwf Dur#65,1 F1_001236 equ $ ; IN [ZI_2.BAS] DUR[66] = 7115 movlw 27 movwf Dur#66H,1 movlw 203 movwf Dur#66,1 F1_001237 equ $ ; IN [ZI_2.BAS] DUR[67] = 6927 movlw 27 movwf Dur#67H,1 movlw 15 movwf Dur#67,1 F1_001238 equ $ ; IN [ZI_2.BAS] DUR[68] = 6744 movlw 26 movwf Dur#68H,1 movlw 88 movwf Dur#68,1 F1_001239 equ $ ; IN [ZI_2.BAS] DUR[69] = 6565 movlw 25 movwf Dur#69H,1 movlw 165 movwf Dur#69,1 F1_001240 equ $ ; IN [ZI_2.BAS] DUR[70] = 6392 movlw 24 movwf Dur#70H,1 movlw 248 movwf Dur#70,1 F1_001241 equ $ ; IN [ZI_2.BAS] DUR[71] = 6223 movlw 24 movwf Dur#71H,1 movlw 79 movwf Dur#71,1 F1_001242 equ $ ; IN [ZI_2.BAS] DUR[72] = 6059 movlw 23 movwf Dur#72H,1 movlw 171 movwf Dur#72,1 F1_001243 equ $ ; IN [ZI_2.BAS] DUR[73] = 5898 movlw 23 movwf Dur#73H,1 movlw 10 movwf Dur#73,1 F1_001244 equ $ ; IN [ZI_2.BAS] DUR[74] = 5743 movlw 22 movwf Dur#74H,1 movlw 111 movwf Dur#74,1 F1_001245 equ $ ; IN [ZI_2.BAS] DUR[75] = 5591 movlw 21 movwf Dur#75H,1 movlw 215 movwf Dur#75,1 F1_001246 equ $ ; IN [ZI_2.BAS] DUR[76] = 5443 movlw 21 movwf Dur#76H,1 movlw 67 movwf Dur#76,1 F1_001247 equ $ ; IN [ZI_2.BAS] DUR[77] = 5299 movlw 20 movwf Dur#77H,1 movlw 179 movwf Dur#77,1 F1_001248 equ $ ; IN [ZI_2.BAS] DUR[78] = 5159 movlw 20 movwf Dur#78H,1 movlw 39 movwf Dur#78,1 F1_001249 equ $ ; IN [ZI_2.BAS] DUR[79] = 5023 movlw 19 movwf Dur#79H,1 movlw 159 movwf Dur#79,1 F1_001250 equ $ ; IN [ZI_2.BAS] DUR[80] = 4890 movlw 19 movwf Dur#80H,1 movlw 26 movwf Dur#80,1 F1_001251 equ $ ; IN [ZI_2.BAS] DUR[81] = 4761 movlw 18 movwf Dur#81H,1 movlw 153 movwf Dur#81,1 F1_001252 equ $ ; IN [ZI_2.BAS] DUR[82] = 4635 movlw 18 movwf Dur#82H,1 movlw 27 movwf Dur#82,1 F1_001253 equ $ ; IN [ZI_2.BAS] DUR[83] = 4513 movlw 17 movwf Dur#83H,1 movlw 161 movwf Dur#83,1 F1_001254 equ $ ; IN [ZI_2.BAS] DUR[84] = 4393 movlw 17 movwf Dur#84H,1 movlw 41 movwf Dur#84,1 F1_001255 equ $ ; IN [ZI_2.BAS] DUR[85] = 4277 movlw 16 movwf Dur#85H,1 movlw 181 movwf Dur#85,1 F1_001256 equ $ ; IN [ZI_2.BAS] DUR[86] = 4164 movlw 16 movwf Dur#86H,1 movlw 68 movwf Dur#86,1 F1_001257 equ $ ; IN [ZI_2.BAS] DUR[87] = 4054 movlw 15 movwf Dur#87H,1 movlw 214 movwf Dur#87,1 F1_001258 equ $ ; IN [ZI_2.BAS] DUR[88] = 3947 movlw 15 movwf Dur#88H,1 movlw 107 movwf Dur#88,1 F1_001259 equ $ ; IN [ZI_2.BAS] DUR[89] = 3843 movlw 15 movwf Dur#89H,1 movlw 3 movwf Dur#89,1 F1_001260 equ $ ; IN [ZI_2.BAS] DUR[90] = 3741 movlw 14 movwf Dur#90H,1 movlw 157 movwf Dur#90,1 F1_001261 equ $ ; IN [ZI_2.BAS] DUR[91] = 3642 movlw 14 movwf Dur#91H,1 movlw 58 movwf Dur#91,1 F1_001262 equ $ ; IN [ZI_2.BAS] DUR[92] = 3546 movlw 13 movwf Dur#92H,1 movlw 218 movwf Dur#92,1 F1_001263 equ $ ; IN [ZI_2.BAS] DUR[93] = 3452 movlw 13 movwf Dur#93H,1 movlw 124 movwf Dur#93,1 F1_001264 equ $ ; IN [ZI_2.BAS] DUR[94] = 3361 movlw 13 movwf Dur#94H,1 movlw 33 movwf Dur#94,1 F1_001265 equ $ ; IN [ZI_2.BAS] DUR[95] = 3272 movlw 12 movwf Dur#95H,1 movlw 200 movwf Dur#95,1 F1_001266 equ $ ; IN [ZI_2.BAS] DUR[96] = 3186 movlw 12 movwf Dur#96H,1 movlw 114 movwf Dur#96,1 F1_001267 equ $ ; IN [ZI_2.BAS] DUR[97] = 3102 movlw 12 movwf Dur#97H,1 movlw 30 movwf Dur#97,1 F1_001268 equ $ ; IN [ZI_2.BAS] DUR[98] = 3020 movlw 11 movwf Dur#98H,1 movlw 204 movwf Dur#98,1 F1_001269 equ $ ; IN [ZI_2.BAS] DUR[99] = 2940 movlw 11 movwf Dur#99H,1 movlw 124 movwf Dur#99,1 F1_001270 equ $ ; IN [ZI_2.BAS] DUR[100] = 2862 movlw 11 movwf Dur#100H,1 movlw 46 movwf Dur#100,1 F1_001271 equ $ ; IN [ZI_2.BAS] DUR[101] = 2787 movlw 10 movwf Dur#101H,1 movlw 227 movwf Dur#101,1 F1_001272 equ $ ; IN [ZI_2.BAS] DUR[102] = 2713 movlw 10 movwf Dur#102H,1 movlw 153 movwf Dur#102,1 F1_001273 equ $ ; IN [ZI_2.BAS] DUR[103] = 2641 movlw 10 movwf Dur#103H,1 movlw 81 movwf Dur#103,1 F1_001274 equ $ ; IN [ZI_2.BAS] DUR[104] = 2571 movlw 10 movwf Dur#104H,1 movlw 11 movwf Dur#104,1 F1_001275 equ $ ; IN [ZI_2.BAS] DUR[105] = 2504 movlw 9 movwf Dur#105H,1 movlw 200 movwf Dur#105,1 F1_001276 equ $ ; IN [ZI_2.BAS] DUR[106] = 2437 movlw 9 movwf Dur#106H,1 movlw 133 movwf Dur#106,1 F1_001277 equ $ ; IN [ZI_2.BAS] DUR[107] = 2373 movlw 9 movwf Dur#107H,1 movlw 69 movwf Dur#107,1 F1_001278 equ $ ; IN [ZI_2.BAS] DUR[108] = 2310 movlw 9 movwf Dur#108H,1 movlw 6 movwf Dur#108,1 F1_001279 equ $ ; IN [ZI_2.BAS] DUR[109] = 2249 movlw 8 movwf Dur#109H,1 movlw 201 movwf Dur#109,1 F1_001280 equ $ ; IN [ZI_2.BAS] DUR[110] = 2190 movlw 8 movwf Dur#110H,1 movlw 142 movwf Dur#110,1 F1_001281 equ $ ; IN [ZI_2.BAS] DUR[111] = 2132 movlw 8 movwf Dur#111H,1 movlw 84 movwf Dur#111,1 F1_001282 equ $ ; IN [ZI_2.BAS] DUR[112] = 2076 movlw 8 movwf Dur#112H,1 movlw 28 movwf Dur#112,1 F1_001283 equ $ ; IN [ZI_2.BAS] DUR[113] = 2021 movlw 7 movwf Dur#113H,1 movlw 229 movwf Dur#113,1 F1_001284 equ $ ; IN [ZI_2.BAS] DUR[114] = 1967 movlw 7 movwf Dur#114H,1 movlw 175 movwf Dur#114,1 F1_001285 equ $ ; IN [ZI_2.BAS] DUR[115] = 1915 movlw 7 movwf Dur#115H,1 movlw 123 movwf Dur#115,1 F1_001286 equ $ ; IN [ZI_2.BAS] DUR[116] = 1865 movlw 7 movwf Dur#116H,1 movlw 73 movwf Dur#116,1 F1_001287 equ $ ; IN [ZI_2.BAS] DUR[117] = 1815 movlw 7 movwf Dur#117H,1 movlw 23 movwf Dur#117,1 F1_001288 equ $ ; IN [ZI_2.BAS] DUR[118] = 1767 movlw 6 movwf Dur#118H,1 movlw 231 movwf Dur#118,1 F1_001289 equ $ ; IN [ZI_2.BAS] DUR[119] = 1721 movlw 6 movwf Dur#119H,1 movlw 185 movwf Dur#119,1 F1_001290 equ $ ; IN [ZI_2.BAS] DUR[120] = 1675 movlw 6 movwf Dur#120H,1 movlw 139 movwf Dur#120,1 F1_001291 equ $ ; IN [ZI_2.BAS] DUR[121] = 1631 movlw 6 movwf Dur#121H,1 movlw 95 movwf Dur#121,1 F1_001292 equ $ ; IN [ZI_2.BAS] DUR[122] = 1588 movlw 6 movwf Dur#122H,1 movlw 52 movwf Dur#122,1 F1_001293 equ $ ; IN [ZI_2.BAS] DUR[123] = 1546 movlw 6 movwf Dur#123H,1 movlw 10 movwf Dur#123,1 F1_001294 equ $ ; IN [ZI_2.BAS] DUR[124] = 1505 movlw 5 movwf Dur#124H,1 movlw 225 movwf Dur#124,1 F1_001295 equ $ ; IN [ZI_2.BAS] DUR[125] = 1465 movlw 5 movwf Dur#125H,1 movlw 185 movwf Dur#125,1 F1_001296 equ $ ; IN [ZI_2.BAS] DUR[126] = 1427 movlw 5 movwf Dur#126H,1 movlw 147 movwf Dur#126,1 F1_001297 equ $ ; IN [ZI_2.BAS] DUR[127] = 1389 movlw 5 movwf Dur#127H,1 movlw 109 movwf Dur#127,1 F1_001298 equ $ ; IN [ZI_2.BAS] RETURN movlb 0 return 0 Vels_Lookup F1_001303 equ $ ; IN [ZI_2.BAS] VELS[1] = 47 movlb 2 clrf vels#1H,1 movlw 47 movwf vels#1,1 F1_001304 equ $ ; IN [ZI_2.BAS] VELS[2] = 52 clrf vels#2H,1 movlw 52 movwf vels#2,1 F1_001305 equ $ ; IN [ZI_2.BAS] VELS[3] = 57 clrf vels#3H,1 movlw 57 movwf vels#3,1 F1_001306 equ $ ; IN [ZI_2.BAS] VELS[4] = 62 clrf vels#4H,1 movlw 62 movwf vels#4,1 F1_001307 equ $ ; IN [ZI_2.BAS] VELS[5] = 66 clrf vels#5H,1 movlw 66 movwf vels#5,1 F1_001308 equ $ ; IN [ZI_2.BAS] VELS[6] = 71 clrf vels#6H,1 movlw 71 movwf vels#6,1 F1_001309 equ $ ; IN [ZI_2.BAS] VELS[7] = 76 clrf vels#7H,1 movlw 76 movwf vels#7,1 F1_001310 equ $ ; IN [ZI_2.BAS] VELS[8] = 81 clrf vels#8H,1 movlw 81 movwf vels#8,1 F1_001311 equ $ ; IN [ZI_2.BAS] VELS[9] = 86 clrf vels#9H,1 movlw 86 movwf vels#9,1 F1_001312 equ $ ; IN [ZI_2.BAS] VELS[10] = 91 clrf vels#10H,1 movlw 91 movwf vels#10,1 F1_001313 equ $ ; IN [ZI_2.BAS] VELS[11] = 96 clrf vels#11H,1 movlw 96 movwf vels#11,1 F1_001314 equ $ ; IN [ZI_2.BAS] VELS[12] = 101 clrf vels#12H,1 movlw 101 movwf vels#12,1 F1_001315 equ $ ; IN [ZI_2.BAS] VELS[13] = 105 clrf vels#13H,1 movlw 105 movwf vels#13,1 F1_001316 equ $ ; IN [ZI_2.BAS] VELS[14] = 110 clrf vels#14H,1 movlw 110 movwf vels#14,1 F1_001317 equ $ ; IN [ZI_2.BAS] VELS[15] = 115 clrf vels#15H,1 movlw 115 movwf vels#15,1 F1_001318 equ $ ; IN [ZI_2.BAS] VELS[16] = 120 clrf vels#16H,1 movlw 120 movwf vels#16,1 F1_001319 equ $ ; IN [ZI_2.BAS] VELS[17] = 125 clrf vels#17H,1 movlw 125 movwf vels#17,1 F1_001320 equ $ ; IN [ZI_2.BAS] VELS[18] = 130 clrf vels#18H,1 movlw 130 movwf vels#18,1 F1_001321 equ $ ; IN [ZI_2.BAS] VELS[19] = 135 clrf vels#19H,1 movlw 135 movwf vels#19,1 F1_001322 equ $ ; IN [ZI_2.BAS] VELS[20] = 140 clrf vels#20H,1 movlw 140 movwf vels#20,1 F1_001323 equ $ ; IN [ZI_2.BAS] VELS[21] = 144 clrf vels#21H,1 movlw 144 movwf vels#21,1 F1_001324 equ $ ; IN [ZI_2.BAS] VELS[22] = 149 clrf vels#22H,1 movlw 149 movwf vels#22,1 F1_001325 equ $ ; IN [ZI_2.BAS] VELS[23] = 154 clrf vels#23H,1 movlw 154 movwf vels#23,1 F1_001326 equ $ ; IN [ZI_2.BAS] VELS[24] = 159 clrf vels#24H,1 movlw 159 movwf vels#24,1 F1_001327 equ $ ; IN [ZI_2.BAS] VELS[25] = 164 clrf vels#25H,1 movlw 164 movwf vels#25,1 F1_001328 equ $ ; IN [ZI_2.BAS] VELS[26] = 169 clrf vels#26H,1 movlw 169 movwf vels#26,1 F1_001329 equ $ ; IN [ZI_2.BAS] VELS[27] = 174 clrf vels#27H,1 movlw 174 movwf vels#27,1 F1_001330 equ $ ; IN [ZI_2.BAS] VELS[28] = 179 clrf vels#28H,1 movlw 179 movwf vels#28,1 F1_001331 equ $ ; IN [ZI_2.BAS] VELS[29] = 183 clrf vels#29H,1 movlw 183 movwf vels#29,1 F1_001332 equ $ ; IN [ZI_2.BAS] VELS[30] = 188 clrf vels#30H,1 movlw 188 movwf vels#30,1 F1_001333 equ $ ; IN [ZI_2.BAS] VELS[31] = 193 clrf vels#31H,1 movlw 193 movwf vels#31,1 F1_001334 equ $ ; IN [ZI_2.BAS] VELS[32] = 198 clrf vels#32H,1 movlw 198 movwf vels#32,1 F1_001335 equ $ ; IN [ZI_2.BAS] VELS[33] = 203 clrf vels#33H,1 movlw 203 movwf vels#33,1 F1_001336 equ $ ; IN [ZI_2.BAS] VELS[34] = 208 clrf vels#34H,1 movlw 208 movwf vels#34,1 F1_001337 equ $ ; IN [ZI_2.BAS] VELS[35] = 213 clrf vels#35H,1 movlw 213 movwf vels#35,1 F1_001338 equ $ ; IN [ZI_2.BAS] VELS[36] = 218 clrf vels#36H,1 movlw 218 movwf vels#36,1 F1_001339 equ $ ; IN [ZI_2.BAS] VELS[37] = 222 clrf vels#37H,1 movlw 222 movwf vels#37,1 F1_001340 equ $ ; IN [ZI_2.BAS] VELS[38] = 227 clrf vels#38H,1 movlw 227 movwf vels#38,1 F1_001341 equ $ ; IN [ZI_2.BAS] VELS[39] = 232 clrf vels#39H,1 movlw 232 movwf vels#39,1 F1_001342 equ $ ; IN [ZI_2.BAS] VELS[40] = 237 clrf vels#40H,1 movlw 237 movwf vels#40,1 F1_001343 equ $ ; IN [ZI_2.BAS] VELS[41] = 242 clrf vels#41H,1 movlw 242 movwf vels#41,1 F1_001344 equ $ ; IN [ZI_2.BAS] VELS[42] = 247 clrf vels#42H,1 movlw 247 movwf vels#42,1 F1_001345 equ $ ; IN [ZI_2.BAS] VELS[43] = 252 clrf vels#43H,1 movlw 252 movwf vels#43,1 F1_001346 equ $ ; IN [ZI_2.BAS] VELS[44] = 257 movlw 1 movwf vels#44H,1 movwf vels#44,1 F1_001347 equ $ ; IN [ZI_2.BAS] VELS[45] = 261 movwf vels#45H,1 movlw 5 movwf vels#45,1 F1_001348 equ $ ; IN [ZI_2.BAS] VELS[46] = 266 movlw 1 movwf vels#46H,1 movlw 10 movwf vels#46,1 F1_001349 equ $ ; IN [ZI_2.BAS] VELS[47] = 271 movlw 1 movwf vels#47H,1 movlw 15 movwf vels#47,1 F1_001350 equ $ ; IN [ZI_2.BAS] VELS[48] = 276 movlw 1 movwf vels#48H,1 movlw 20 movwf vels#48,1 F1_001351 equ $ ; IN [ZI_2.BAS] VELS[49] = 281 movlw 1 movwf vels#49H,1 movlw 25 movwf vels#49,1 F1_001352 equ $ ; IN [ZI_2.BAS] VELS[50] = 286 movlw 1 movwf vels#50H,1 movlw 30 movwf vels#50,1 F1_001353 equ $ ; IN [ZI_2.BAS] VELS[51] = 291 movlw 1 movwf vels#51H,1 movlw 35 movwf vels#51,1 F1_001354 equ $ ; IN [ZI_2.BAS] VELS[52] = 296 movlw 1 movwf vels#52H,1 movlw 40 movwf vels#52,1 F1_001355 equ $ ; IN [ZI_2.BAS] VELS[53] = 300 movlw 1 movwf vels#53H,1 movlw 44 movwf vels#53,1 F1_001356 equ $ ; IN [ZI_2.BAS] VELS[54] = 305 movlw 1 movwf vels#54H,1 movlw 49 movwf vels#54,1 F1_001357 equ $ ; IN [ZI_2.BAS] VELS[55] = 310 movlw 1 movlb 3 movwf vels#55H,1 movlw 54 movwf vels#55,1 F1_001358 equ $ ; IN [ZI_2.BAS] VELS[56] = 315 movlw 1 movwf vels#56H,1 movlw 59 movwf vels#56,1 F1_001359 equ $ ; IN [ZI_2.BAS] VELS[57] = 320 movlw 1 movwf vels#57H,1 movlw 64 movwf vels#57,1 F1_001360 equ $ ; IN [ZI_2.BAS] VELS[58] = 325 movlw 1 movwf vels#58H,1 movlw 69 movwf vels#58,1 F1_001361 equ $ ; IN [ZI_2.BAS] VELS[59] = 330 movlw 1 movwf vels#59H,1 movlw 74 movwf vels#59,1 F1_001362 equ $ ; IN [ZI_2.BAS] VELS[60] = 335 movlw 1 movwf vels#60H,1 movlw 79 movwf vels#60,1 F1_001363 equ $ ; IN [ZI_2.BAS] VELS[61] = 339 movlw 1 movwf vels#61H,1 movlw 83 movwf vels#61,1 F1_001364 equ $ ; IN [ZI_2.BAS] VELS[62] = 344 movlw 1 movwf vels#62H,1 movlw 88 movwf vels#62,1 F1_001365 equ $ ; IN [ZI_2.BAS] VELS[63] = 349 movlw 1 movwf vels#63H,1 movlw 93 movwf vels#63,1 F1_001366 equ $ ; IN [ZI_2.BAS] VELS[64] = 354 movlw 1 movwf vels#64H,1 movlw 98 movwf vels#64,1 F1_001367 equ $ ; IN [ZI_2.BAS] VELS[65] = 359 movlw 1 movwf vels#65H,1 movlw 103 movwf vels#65,1 F1_001368 equ $ ; IN [ZI_2.BAS] VELS[66] = 364 movlw 1 movwf vels#66H,1 movlw 108 movwf vels#66,1 F1_001369 equ $ ; IN [ZI_2.BAS] VELS[67] = 369 movlw 1 movwf vels#67H,1 movlw 113 movwf vels#67,1 F1_001370 equ $ ; IN [ZI_2.BAS] VELS[68] = 374 movlw 1 movwf vels#68H,1 movlw 118 movwf vels#68,1 F1_001371 equ $ ; IN [ZI_2.BAS] VELS[69] = 378 movlw 1 movwf vels#69H,1 movlw 122 movwf vels#69,1 F1_001372 equ $ ; IN [ZI_2.BAS] VELS[70] = 383 movlw 1 movwf vels#70H,1 movlw 127 movwf vels#70,1 F1_001373 equ $ ; IN [ZI_2.BAS] VELS[71] = 388 movlw 1 movwf vels#71H,1 movlw 132 movwf vels#71,1 F1_001374 equ $ ; IN [ZI_2.BAS] VELS[72] = 393 movlw 1 movwf vels#72H,1 movlw 137 movwf vels#72,1 F1_001375 equ $ ; IN [ZI_2.BAS] VELS[73] = 398 movlw 1 movwf vels#73H,1 movlw 142 movwf vels#73,1 F1_001376 equ $ ; IN [ZI_2.BAS] VELS[74] = 403 movlw 1 movwf vels#74H,1 movlw 147 movwf vels#74,1 F1_001377 equ $ ; IN [ZI_2.BAS] VELS[75] = 408 movlw 1 movwf vels#75H,1 movlw 152 movwf vels#75,1 F1_001378 equ $ ; IN [ZI_2.BAS] VELS[76] = 413 movlw 1 movwf vels#76H,1 movlw 157 movwf vels#76,1 F1_001379 equ $ ; IN [ZI_2.BAS] VELS[77] = 417 movlw 1 movwf vels#77H,1 movlw 161 movwf vels#77,1 F1_001380 equ $ ; IN [ZI_2.BAS] VELS[78] = 422 movlw 1 movwf vels#78H,1 movlw 166 movwf vels#78,1 F1_001381 equ $ ; IN [ZI_2.BAS] VELS[79] = 427 movlw 1 movwf vels#79H,1 movlw 171 movwf vels#79,1 F1_001382 equ $ ; IN [ZI_2.BAS] VELS[80] = 432 movlw 1 movwf vels#80H,1 movlw 176 movwf vels#80,1 F1_001383 equ $ ; IN [ZI_2.BAS] VELS[81] = 437 movlw 1 movwf vels#81H,1 movlw 181 movwf vels#81,1 F1_001384 equ $ ; IN [ZI_2.BAS] VELS[82] = 442 movlw 1 movwf vels#82H,1 movlw 186 movwf vels#82,1 F1_001385 equ $ ; IN [ZI_2.BAS] VELS[83] = 447 movlw 1 movwf vels#83H,1 movlw 191 movwf vels#83,1 F1_001386 equ $ ; IN [ZI_2.BAS] VELS[84] = 452 movlw 1 movwf vels#84H,1 movlw 196 movwf vels#84,1 F1_001387 equ $ ; IN [ZI_2.BAS] VELS[85] = 456 movlw 1 movwf vels#85H,1 movlw 200 movwf vels#85,1 F1_001388 equ $ ; IN [ZI_2.BAS] VELS[86] = 461 movlw 1 movwf vels#86H,1 movlw 205 movwf vels#86,1 F1_001389 equ $ ; IN [ZI_2.BAS] VELS[87] = 466 movlw 1 movwf vels#87H,1 movlw 210 movwf vels#87,1 F1_001390 equ $ ; IN [ZI_2.BAS] VELS[88] = 471 movlw 1 movwf vels#88H,1 movlw 215 movwf vels#88,1 F1_001391 equ $ ; IN [ZI_2.BAS] VELS[89] = 476 movlw 1 movwf vels#89H,1 movlw 220 movwf vels#89,1 F1_001392 equ $ ; IN [ZI_2.BAS] VELS[90] = 481 movlw 1 movwf vels#90H,1 movlw 225 movwf vels#90,1 F1_001393 equ $ ; IN [ZI_2.BAS] VELS[91] = 486 movlw 1 movwf vels#91H,1 movlw 230 movwf vels#91,1 F1_001394 equ $ ; IN [ZI_2.BAS] VELS[92] = 491 movlw 1 movwf vels#92H,1 movlw 235 movwf vels#92,1 F1_001395 equ $ ; IN [ZI_2.BAS] VELS[93] = 495 movlw 1 movwf vels#93H,1 movlw 239 movwf vels#93,1 F1_001396 equ $ ; IN [ZI_2.BAS] VELS[94] = 500 movlw 1 movwf vels#94H,1 movlw 244 movwf vels#94,1 F1_001397 equ $ ; IN [ZI_2.BAS] VELS[95] = 505 movlw 1 movwf vels#95H,1 movlw 249 movwf vels#95,1 F1_001398 equ $ ; IN [ZI_2.BAS] VELS[96] = 510 movlw 1 movwf vels#96H,1 movlw 254 movwf vels#96,1 F1_001399 equ $ ; IN [ZI_2.BAS] VELS[97] = 515 movlw 2 movwf vels#97H,1 movlw 3 movwf vels#97,1 F1_001400 equ $ ; IN [ZI_2.BAS] VELS[98] = 520 movlw 2 movwf vels#98H,1 movlw 8 movwf vels#98,1 F1_001401 equ $ ; IN [ZI_2.BAS] VELS[99] = 525 movlw 2 movwf vels#99H,1 movlw 13 movwf vels#99,1 F1_001402 equ $ ; IN [ZI_2.BAS] VELS[100] = 530 movlw 2 movwf vels#100H,1 movlw 18 movwf vels#100,1 F1_001403 equ $ ; IN [ZI_2.BAS] VELS[101] = 534 movlw 2 movwf vels#101H,1 movlw 22 movwf vels#101,1 F1_001404 equ $ ; IN [ZI_2.BAS] VELS[102] = 539 movlw 2 movwf vels#102H,1 movlw 27 movwf vels#102,1 F1_001405 equ $ ; IN [ZI_2.BAS] VELS[103] = 544 movlw 2 movwf vels#103H,1 movlw 32 movwf vels#103,1 F1_001406 equ $ ; IN [ZI_2.BAS] VELS[104] = 549 movlw 2 movwf vels#104H,1 movlw 37 movwf vels#104,1 F1_001407 equ $ ; IN [ZI_2.BAS] VELS[105] = 554 movlw 2 movwf vels#105H,1 movlw 42 movwf vels#105,1 F1_001408 equ $ ; IN [ZI_2.BAS] VELS[106] = 559 movlw 2 movwf vels#106H,1 movlw 47 movwf vels#106,1 F1_001409 equ $ ; IN [ZI_2.BAS] VELS[107] = 564 movlw 2 movwf vels#107H,1 movlw 52 movwf vels#107,1 F1_001410 equ $ ; IN [ZI_2.BAS] VELS[108] = 569 movlw 2 movwf vels#108H,1 movlw 57 movwf vels#108,1 F1_001411 equ $ ; IN [ZI_2.BAS] VELS[109] = 573 movlw 2 movwf vels#109H,1 movlw 61 movwf vels#109,1 F1_001412 equ $ ; IN [ZI_2.BAS] VELS[110] = 578 movlw 2 movwf vels#110H,1 movlw 66 movwf vels#110,1 F1_001413 equ $ ; IN [ZI_2.BAS] VELS[111] = 583 movlw 2 movwf vels#111H,1 movlw 71 movwf vels#111,1 F1_001414 equ $ ; IN [ZI_2.BAS] VELS[112] = 588 movlw 2 movwf vels#112H,1 movlw 76 movwf vels#112,1 F1_001415 equ $ ; IN [ZI_2.BAS] VELS[113] = 593 movlw 2 movwf vels#113H,1 movlw 81 movwf vels#113,1 F1_001416 equ $ ; IN [ZI_2.BAS] VELS[114] = 598 movlw 2 movwf vels#114H,1 movlw 86 movwf vels#114,1 F1_001417 equ $ ; IN [ZI_2.BAS] VELS[115] = 603 movlw 2 movwf vels#115H,1 movlw 91 movwf vels#115,1 F1_001418 equ $ ; IN [ZI_2.BAS] VELS[116] = 608 movlw 2 movwf vels#116H,1 movlw 96 movwf vels#116,1 F1_001419 equ $ ; IN [ZI_2.BAS] VELS[117] = 612 movlw 2 movwf vels#117H,1 movlw 100 movwf vels#117,1 F1_001420 equ $ ; IN [ZI_2.BAS] VELS[118] = 617 movlw 2 movwf vels#118H,1 movlw 105 movwf vels#118,1 F1_001421 equ $ ; IN [ZI_2.BAS] VELS[119] = 622 movlw 2 movwf vels#119H,1 movlw 110 movwf vels#119,1 F1_001422 equ $ ; IN [ZI_2.BAS] VELS[120] = 627 movlw 2 movwf vels#120H,1 movlw 115 movwf vels#120,1 F1_001423 equ $ ; IN [ZI_2.BAS] VELS[121] = 632 movlw 2 movwf vels#121H,1 movlw 120 movwf vels#121,1 F1_001424 equ $ ; IN [ZI_2.BAS] VELS[122] = 637 movlw 2 movwf vels#122H,1 movlw 125 movwf vels#122,1 F1_001425 equ $ ; IN [ZI_2.BAS] VELS[123] = 642 movlw 2 movwf vels#123H,1 movlw 130 movwf vels#123,1 F1_001426 equ $ ; IN [ZI_2.BAS] VELS[124] = 647 movlw 2 movwf vels#124H,1 movlw 135 movwf vels#124,1 F1_001427 equ $ ; IN [ZI_2.BAS] VELS[125] = 651 movlw 2 movwf vels#125H,1 movlw 139 movwf vels#125,1 F1_001428 equ $ ; IN [ZI_2.BAS] VELS[126] = 656 movlw 2 movwf vels#126H,1 movlw 144 movwf vels#126,1 F1_001429 equ $ ; IN [ZI_2.BAS] VELS[127] = 661 movlw 2 movwf vels#127H,1 movlw 149 movwf vels#127,1 F1_001432 equ $ ; IN [ZI_2.BAS] FOR I = 1 TO 127 movlw 1 movwf _I,0 _FRLB__317 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__318 F1_001433 equ $ ; IN [ZI_2.BAS] VELS[I] = VELS[I] * 2 lfsr 0,vels bcf STATUS,0,0 rlcf _I,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 PBP#VAR1,W,0 movwf PBP#VAR0,0 rlcf PBP#VAR1H,W,0 movwf PBP#VAR0H,0 lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__319 F1_001434 equ $ ; IN [ZI_2.BAS] NEXT I incf _I,F,0 bnc _FRLB__317 _NXLB__318 F1_001436 equ $ ; IN [ZI_2.BAS] RETURN return 0 F1_EOF equ $ ; ZI_2.BAS _PBLB__320 bra _PBLB__320 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off config PWRT = on end