;---------------------------------------------------------- ; 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 = 18F4620, 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 PORTD equ 0X0F83 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B LATD equ 0X0F8C LATE equ 0X0F8D DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 DDRD equ 0X0F95 TRISD equ 0X0F95 DDRE equ 0X0F96 TRISE equ 0X0F96 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 ECCP1AS equ 0X0FB6 PWM1CON equ 0X0FB7 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_PORT=TRISC _I2C_SCL_PIN=3 _I2C_SDA_PORT=TRISC _I2C_SDA_PIN=4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RD0=0 PP_RD0=0 RD1=1 PP_RD1=1 RD2=2 PP_RD2=2 RD3=3 PP_RD3=3 RD4=4 PP_RD4=4 RD5=5 PP_RD5=5 RD6=6 PP_RD6=6 RD7=7 PP_RD7=7 PSP0=0 PSP1=1 PSP2=2 PSP3=3 PSP4=4 PSP5=5 PSP6=6 PSP7=7 P1B=5 P1C=6 P1D=7 RE0=0 RE1=1 RE2=2 RE3=3 RD=0 PP_RD=0 WR=1 PP_WR=1 CS=2 MCLR=3 NOT_RD=0 NOT_WR=1 NOT_CS=2 NOT_MCLR=3 AN5=0 AN6=1 AN7=2 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 LATD0=0 LATD1=1 LATD2=2 LATD3=3 LATD4=4 LATD5=5 LATD6=6 LATD7=7 LATE0=0 LATE1=1 LATE2=2 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TRISD0=0 TRISD1=1 TRISD2=2 TRISD3=3 TRISD4=4 TRISD5=5 TRISD6=6 TRISD7=7 TRISE0=0 TRISE1=1 TRISE2=2 PSPMODE=4 IBOV=5 OBF=6 IBF=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 PSPIE=7 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 PSPIF=7 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 PSPIP=7 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 PSSBD0=0 PSSBD1=1 PSSAC0=2 PSSAC1=3 ECCPAS0=4 ECCPAS1=5 ECCPAS2=6 ECCPASE=7 PDC0=0 PDC1=1 PDC2=2 PDC3=3 PDC4=4 PDC5=5 PDC6=6 PRSEN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 P1M0=6 P1M1=7 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8E-0X0F91 __BADRAM 0X0F97-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CP3_ON_5 equ 0XF7 CP3_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRT3_ON_6 equ 0XF7 WRT3_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTR3_ON_7 equ 0XF7 EBTR3_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F4620 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0X10000 #define _ADC 13 #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 128 #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 PP0 = 4 PP0H = 5 PP1 = 6 PP1H = 7 PP7 = 8 PP7H = 9 PP7HH = 10 PP7HHH = 11 PP8 = 12 PP8H = 13 PP8HH = 14 PP8HHH = 15 PP9 = 16 PP9H = 17 PP9HH = 18 PP9HHH = 19 PPZ = 20 PPZH = 21 PPZHH = 22 PP_AARG = 23 PP_AARGH = 24 PP_AARGHH = 25 PP_AARGHHH = 26 PP_BARG = 27 PP_BARGH = 28 PP_BARGHH = 29 PP_BARGHHH = 30 _AEXP = 31 _BEXP = 32 _FP_FLAGS = 33 _FP_TEMP = 34 _SIGN = 35 Bytein = 36 statusbyte = 37 noteUit = 38 noteAan = 39 velo = 40 notePres = 41 pres = 42 Ctrl = 43 value = 44 prog = 45 veltim0 = 46 veltim0H = 47 veltim0HH = 48 veltim0HHH = 49 veltim1 = 50 veltim1H = 51 veltim1HH = 52 veltim1HHH = 53 veltim2 = 54 veltim2H = 55 veltim2HH = 56 veltim2HHH = 57 veltim3 = 58 veltim3H = 59 veltim3HH = 60 veltim3HHH = 61 veltim4 = 62 veltim4H = 63 veltim4HH = 64 veltim4HHH = 65 veltim5 = 66 veltim5H = 67 veltim5HH = 68 veltim5HHH = 69 veltim6 = 70 veltim6H = 71 veltim6HH = 72 veltim6HHH = 73 veltim7 = 74 veltim7H = 75 veltim7HH = 76 veltim7HHH = 77 veltim8 = 78 veltim8H = 79 veltim8HH = 80 veltim8HHH = 81 veltim9 = 82 veltim9H = 83 veltim9HH = 84 veltim9HHH = 85 Velflags = 86 VelflagsH = 87 CC66 = 88 notes = 89 notesH = 90 LRword = 91 LRwordH = 92 velo0 = 93 velo0H = 94 velo1 = 95 velo1H = 96 velo2 = 97 velo2H = 98 velo3 = 99 velo3H = 100 velo4 = 101 velo4H = 102 velo5 = 103 velo5H = 104 velo6 = 105 velo6H = 106 velo7 = 107 velo7H = 108 velo8 = 109 velo8H = 110 velo9 = 111 velo9H = 112 time = 113 timeH = 114 timeHH = 115 timeHHH = 116 _T = 117 tog = 118 Nxt = 119 NxtH = 120 NxtHH = 121 NxtHHH = 122 idx = 123 USART_FSR1_Save = 124 USART_FSR1_SaveH = 125 IndexIn = 126 IndexOut = 127 _I = 128 release = 129 Rate0 = 130 Rate0H = 131 Rate1 = 132 Rate1H = 133 Rate2 = 134 Rate2H = 135 Rate3 = 136 Rate3H = 137 Rate4 = 138 Rate4H = 139 Rate5 = 140 Rate5H = 141 Rate6 = 142 Rate6H = 143 Rate7 = 144 Rate7H = 145 Rate8 = 146 Rate8H = 147 Rate9 = 148 Rate9H = 149 Pres0 = 150 Pres1 = 151 Pres2 = 152 Pres3 = 153 Pres4 = 154 Pres5 = 155 Pres6 = 156 Pres7 = 157 Pres8 = 158 Pres9 = 159 TimVals = 160 TimValsH = 161 TimValsHH = 162 TimValsHHH = 163 variable TimVals#0=160,TimVals#0H=161,TimVals#0HH=162,TimVals#0HHH=163 variable TimVals#1=164,TimVals#1H=165,TimVals#1HH=166,TimVals#1HHH=167 variable TimVals#2=168,TimVals#2H=169,TimVals#2HH=170,TimVals#2HHH=171 variable TimVals#3=172,TimVals#3H=173,TimVals#3HH=174,TimVals#3HHH=175 variable TimVals#4=176,TimVals#4H=177,TimVals#4HH=178,TimVals#4HHH=179 variable TimVals#5=180,TimVals#5H=181,TimVals#5HH=182,TimVals#5HHH=183 variable TimVals#6=184,TimVals#6H=185,TimVals#6HH=186,TimVals#6HHH=187 variable TimVals#7=188,TimVals#7H=189,TimVals#7HH=190,TimVals#7HHH=191 variable TimVals#8=192,TimVals#8H=193,TimVals#8HH=194,TimVals#8HHH=195 variable TimVals#9=196,TimVals#9H=197,TimVals#9HH=198,TimVals#9HHH=199 oldprog = 200 dummy = 201 dummyH = 202 variable dummy#0=201,dummy#0H=202,dummy#1=203,dummy#1H=204 variable dummy#2=205,dummy#2H=206,dummy#3=207,dummy#3H=208 variable dummy#4=209,dummy#4H=210,dummy#5=211,dummy#5H=212 variable dummy#6=213,dummy#6H=214,dummy#7=215,dummy#7H=216 variable dummy#8=217,dummy#8H=218,dummy#9=219,dummy#9H=220 variable dummy#10=221,dummy#10H=222,dummy#11=223,dummy#11H=224 variable dummy#12=225,dummy#12H=226,dummy#13=227,dummy#13H=228 variable dummy#14=229,dummy#14H=230,dummy#15=231,dummy#15H=232 variable dummy#16=233,dummy#16H=234,dummy#17=235,dummy#17H=236 variable dummy#18=237,dummy#18H=238,dummy#19=239,dummy#19H=240 variable dummy#20=241,dummy#20H=242,dummy#21=243,dummy#21H=244 variable dummy#22=245,dummy#22H=246,dummy#23=247,dummy#23H=248 variable dummy#24=249,dummy#24H=250,dummy#25=251,dummy#25H=252 variable dummy#26=253,dummy#26H=254,dummy#27=255,dummy#27H=256 variable dummy#28=257,dummy#28H=258,dummy#29=259,dummy#29H=260 variable dummy#30=261,dummy#30H=262,dummy#31=263,dummy#31H=264 variable dummy#32=265,dummy#32H=266,dummy#33=267,dummy#33H=268 variable dummy#34=269,dummy#34H=270,dummy#35=271,dummy#35H=272 variable dummy#36=273,dummy#36H=274,dummy#37=275,dummy#37H=276 variable dummy#38=277,dummy#38H=278,dummy#39=279,dummy#39H=280 variable dummy#40=281,dummy#40H=282,dummy#41=283,dummy#41H=284 variable dummy#42=285,dummy#42H=286,dummy#43=287,dummy#43H=288 variable dummy#44=289,dummy#44H=290,dummy#45=291,dummy#45H=292 variable dummy#46=293,dummy#46H=294,dummy#47=295,dummy#47H=296 variable dummy#48=297,dummy#48H=298,dummy#49=299,dummy#49H=300 variable dummy#50=301,dummy#50H=302,dummy#51=303,dummy#51H=304 variable dummy#52=305,dummy#52H=306,dummy#53=307,dummy#53H=308 variable dummy#54=309,dummy#54H=310,dummy#55=311,dummy#55H=312 variable dummy#56=313,dummy#56H=314,dummy#57=315,dummy#57H=316 variable dummy#58=317,dummy#58H=318,dummy#59=319,dummy#59H=320 variable dummy#60=321,dummy#60H=322,dummy#61=323,dummy#61H=324 variable dummy#62=325,dummy#62H=326,dummy#63=327,dummy#63H=328 variable dummy#64=329,dummy#64H=330,dummy#65=331,dummy#65H=332 variable dummy#66=333,dummy#66H=334,dummy#67=335,dummy#67H=336 variable dummy#68=337,dummy#68H=338,dummy#69=339,dummy#69H=340 variable dummy#70=341,dummy#70H=342,dummy#71=343,dummy#71H=344 variable dummy#72=345,dummy#72H=346,dummy#73=347,dummy#73H=348 variable dummy#74=349,dummy#74H=350,dummy#75=351,dummy#75H=352 variable dummy#76=353,dummy#76H=354,dummy#77=355,dummy#77H=356 variable dummy#78=357,dummy#78H=358,dummy#79=359,dummy#79H=360 variable dummy#80=361,dummy#80H=362,dummy#81=363,dummy#81H=364 variable dummy#82=365,dummy#82H=366,dummy#83=367,dummy#83H=368 variable dummy#84=369,dummy#84H=370,dummy#85=371,dummy#85H=372 variable dummy#86=373,dummy#86H=374,dummy#87=375,dummy#87H=376 variable dummy#88=377,dummy#88H=378,dummy#89=379,dummy#89H=380 variable dummy#90=381,dummy#90H=382,dummy#91=383,dummy#91H=384 variable dummy#92=385,dummy#92H=386,dummy#93=387,dummy#93H=388 variable dummy#94=389,dummy#94H=390,dummy#95=391,dummy#95H=392 variable dummy#96=393,dummy#96H=394,dummy#97=395,dummy#97H=396 variable dummy#98=397,dummy#98H=398,dummy#99=399,dummy#99H=400 variable dummy#100=401,dummy#100H=402,dummy#101=403,dummy#101H=404 variable dummy#102=405,dummy#102H=406,dummy#103=407,dummy#103H=408 variable dummy#104=409,dummy#104H=410,dummy#105=411,dummy#105H=412 variable dummy#106=413,dummy#106H=414,dummy#107=415,dummy#107H=416 variable dummy#108=417,dummy#108H=418,dummy#109=419,dummy#109H=420 variable dummy#110=421,dummy#110H=422,dummy#111=423,dummy#111H=424 variable dummy#112=425,dummy#112H=426,dummy#113=427,dummy#113H=428 variable dummy#114=429,dummy#114H=430,dummy#115=431,dummy#115H=432 variable dummy#116=433,dummy#116H=434,dummy#117=435,dummy#117H=436 variable dummy#118=437,dummy#118H=438,dummy#119=439,dummy#119H=440 variable dummy#120=441,dummy#120H=442,dummy#121=443,dummy#121H=444 variable dummy#122=445,dummy#122H=446,dummy#123=447,dummy#123H=448 variable dummy#124=449,dummy#124H=450,dummy#125=451,dummy#125H=452 variable dummy#126=453,dummy#126H=454,dummy#127=455,dummy#127H=456 variable dummy#128=457,dummy#128H=458,dummy#129=459,dummy#129H=460 variable dummy#130=461,dummy#130H=462,dummy#131=463,dummy#131H=464 variable dummy#132=465,dummy#132H=466,dummy#133=467,dummy#133H=468 variable dummy#134=469,dummy#134H=470,dummy#135=471,dummy#135H=472 variable dummy#136=473,dummy#136H=474,dummy#137=475,dummy#137H=476 variable dummy#138=477,dummy#138H=478,dummy#139=479,dummy#139H=480 variable dummy#140=481,dummy#140H=482,dummy#141=483,dummy#141H=484 variable dummy#142=485,dummy#142H=486,dummy#143=487,dummy#143H=488 variable dummy#144=489,dummy#144H=490,dummy#145=491,dummy#145H=492 variable dummy#146=493,dummy#146H=494,dummy#147=495,dummy#147H=496 variable dummy#148=497,dummy#148H=498,dummy#149=499,dummy#149H=500 variable dummy#150=501,dummy#150H=502,dummy#151=503,dummy#151H=504 variable dummy#152=505,dummy#152H=506,dummy#153=507,dummy#153H=508 variable dummy#154=509,dummy#154H=510,dummy#155=511,dummy#155H=512 variable dummy#156=513,dummy#156H=514,dummy#157=515,dummy#157H=516 variable dummy#158=517,dummy#158H=518,dummy#159=519,dummy#159H=520 variable dummy#160=521,dummy#160H=522,dummy#161=523,dummy#161H=524 variable dummy#162=525,dummy#162H=526,dummy#163=527,dummy#163H=528 variable dummy#164=529,dummy#164H=530,dummy#165=531,dummy#165H=532 variable dummy#166=533,dummy#166H=534,dummy#167=535,dummy#167H=536 variable dummy#168=537,dummy#168H=538,dummy#169=539,dummy#169H=540 variable dummy#170=541,dummy#170H=542,dummy#171=543,dummy#171H=544 variable dummy#172=545,dummy#172H=546,dummy#173=547,dummy#173H=548 variable dummy#174=549,dummy#174H=550,dummy#175=551,dummy#175H=552 variable dummy#176=553,dummy#176H=554,dummy#177=555,dummy#177H=556 variable dummy#178=557,dummy#178H=558,dummy#179=559,dummy#179H=560 variable dummy#180=561,dummy#180H=562,dummy#181=563,dummy#181H=564 variable dummy#182=565,dummy#182H=566,dummy#183=567,dummy#183H=568 variable dummy#184=569,dummy#184H=570,dummy#185=571,dummy#185H=572 variable dummy#186=573,dummy#186H=574,dummy#187=575,dummy#187H=576 variable dummy#188=577,dummy#188H=578,dummy#189=579,dummy#189H=580 variable dummy#190=581,dummy#190H=582,dummy#191=583,dummy#191H=584 variable dummy#192=585,dummy#192H=586,dummy#193=587,dummy#193H=588 variable dummy#194=589,dummy#194H=590,dummy#195=591,dummy#195H=592 variable dummy#196=593,dummy#196H=594,dummy#197=595,dummy#197H=596 variable dummy#198=597,dummy#198H=598,dummy#199=599,dummy#199H=600 variable dummy#200=601,dummy#200H=602,dummy#201=603,dummy#201H=604 variable dummy#202=605,dummy#202H=606,dummy#203=607,dummy#203H=608 variable dummy#204=609,dummy#204H=610,dummy#205=611,dummy#205H=612 variable dummy#206=613,dummy#206H=614,dummy#207=615,dummy#207H=616 variable dummy#208=617,dummy#208H=618,dummy#209=619,dummy#209H=620 variable dummy#210=621,dummy#210H=622,dummy#211=623,dummy#211H=624 variable dummy#212=625,dummy#212H=626,dummy#213=627,dummy#213H=628 variable dummy#214=629,dummy#214H=630,dummy#215=631,dummy#215H=632 variable dummy#216=633,dummy#216H=634,dummy#217=635,dummy#217H=636 variable dummy#218=637,dummy#218H=638,dummy#219=639,dummy#219H=640 variable dummy#220=641,dummy#220H=642,dummy#221=643,dummy#221H=644 variable dummy#222=645,dummy#222H=646,dummy#223=647,dummy#223H=648 variable dummy#224=649,dummy#224H=650,dummy#225=651,dummy#225H=652 variable dummy#226=653,dummy#226H=654,dummy#227=655,dummy#227H=656 variable dummy#228=657,dummy#228H=658,dummy#229=659,dummy#229H=660 variable dummy#230=661,dummy#230H=662,dummy#231=663,dummy#231H=664 variable dummy#232=665,dummy#232H=666,dummy#233=667,dummy#233H=668 variable dummy#234=669,dummy#234H=670,dummy#235=671,dummy#235H=672 variable dummy#236=673,dummy#236H=674,dummy#237=675,dummy#237H=676 variable dummy#238=677,dummy#238H=678,dummy#239=679,dummy#239H=680 variable dummy#240=681,dummy#240H=682,dummy#241=683,dummy#241H=684 variable dummy#242=685,dummy#242H=686,dummy#243=687,dummy#243H=688 variable dummy#244=689,dummy#244H=690,dummy#245=691,dummy#245H=692 variable dummy#246=693,dummy#246H=694,dummy#247=695,dummy#247H=696 variable dummy#248=697,dummy#248H=698,dummy#249=699,dummy#249H=700 variable dummy#250=701,dummy#250H=702,dummy#251=703,dummy#251H=704 variable dummy#252=705,dummy#252H=706,dummy#253=707,dummy#253H=708 variable dummy#254=709,dummy#254H=710,dummy#255=711,dummy#255H=712 vels = 713 velsH = 714 variable vels#0=713,vels#0H=714,vels#1=715,vels#1H=716 variable vels#2=717,vels#2H=718,vels#3=719,vels#3H=720 variable vels#4=721,vels#4H=722,vels#5=723,vels#5H=724 variable vels#6=725,vels#6H=726,vels#7=727,vels#7H=728 variable vels#8=729,vels#8H=730,vels#9=731,vels#9H=732 variable vels#10=733,vels#10H=734,vels#11=735,vels#11H=736 variable vels#12=737,vels#12H=738,vels#13=739,vels#13H=740 variable vels#14=741,vels#14H=742,vels#15=743,vels#15H=744 variable vels#16=745,vels#16H=746,vels#17=747,vels#17H=748 variable vels#18=749,vels#18H=750,vels#19=751,vels#19H=752 variable vels#20=753,vels#20H=754,vels#21=755,vels#21H=756 variable vels#22=757,vels#22H=758,vels#23=759,vels#23H=760 variable vels#24=761,vels#24H=762,vels#25=763,vels#25H=764 variable vels#26=765,vels#26H=766,vels#27=767,vels#27H=768 variable vels#28=769,vels#28H=770,vels#29=771,vels#29H=772 variable vels#30=773,vels#30H=774,vels#31=775,vels#31H=776 variable vels#32=777,vels#32H=778,vels#33=779,vels#33H=780 variable vels#34=781,vels#34H=782,vels#35=783,vels#35H=784 variable vels#36=785,vels#36H=786,vels#37=787,vels#37H=788 variable vels#38=789,vels#38H=790,vels#39=791,vels#39H=792 variable vels#40=793,vels#40H=794,vels#41=795,vels#41H=796 variable vels#42=797,vels#42H=798,vels#43=799,vels#43H=800 variable vels#44=801,vels#44H=802,vels#45=803,vels#45H=804 variable vels#46=805,vels#46H=806,vels#47=807,vels#47H=808 variable vels#48=809,vels#48H=810,vels#49=811,vels#49H=812 variable vels#50=813,vels#50H=814,vels#51=815,vels#51H=816 variable vels#52=817,vels#52H=818,vels#53=819,vels#53H=820 variable vels#54=821,vels#54H=822,vels#55=823,vels#55H=824 variable vels#56=825,vels#56H=826,vels#57=827,vels#57H=828 variable vels#58=829,vels#58H=830,vels#59=831,vels#59H=832 variable vels#60=833,vels#60H=834,vels#61=835,vels#61H=836 variable vels#62=837,vels#62H=838,vels#63=839,vels#63H=840 variable vels#64=841,vels#64H=842,vels#65=843,vels#65H=844 variable vels#66=845,vels#66H=846,vels#67=847,vels#67H=848 variable vels#68=849,vels#68H=850,vels#69=851,vels#69H=852 variable vels#70=853,vels#70H=854,vels#71=855,vels#71H=856 variable vels#72=857,vels#72H=858,vels#73=859,vels#73H=860 variable vels#74=861,vels#74H=862,vels#75=863,vels#75H=864 variable vels#76=865,vels#76H=866,vels#77=867,vels#77H=868 variable vels#78=869,vels#78H=870,vels#79=871,vels#79H=872 variable vels#80=873,vels#80H=874,vels#81=875,vels#81H=876 variable vels#82=877,vels#82H=878,vels#83=879,vels#83H=880 variable vels#84=881,vels#84H=882,vels#85=883,vels#85H=884 variable vels#86=885,vels#86H=886,vels#87=887,vels#87H=888 variable vels#88=889,vels#88H=890,vels#89=891,vels#89H=892 variable vels#90=893,vels#90H=894,vels#91=895,vels#91H=896 variable vels#92=897,vels#92H=898,vels#93=899,vels#93H=900 variable vels#94=901,vels#94H=902,vels#95=903,vels#95H=904 variable vels#96=905,vels#96H=906,vels#97=907,vels#97H=908 variable vels#98=909,vels#98H=910,vels#99=911,vels#99H=912 variable vels#100=913,vels#100H=914,vels#101=915,vels#101H=916 variable vels#102=917,vels#102H=918,vels#103=919,vels#103H=920 variable vels#104=921,vels#104H=922,vels#105=923,vels#105H=924 variable vels#106=925,vels#106H=926,vels#107=927,vels#107H=928 variable vels#108=929,vels#108H=930,vels#109=931,vels#109H=932 variable vels#110=933,vels#110H=934,vels#111=935,vels#111H=936 variable vels#112=937,vels#112H=938,vels#113=939,vels#113H=940 variable vels#114=941,vels#114H=942,vels#115=943,vels#115H=944 variable vels#116=945,vels#116H=946,vels#117=947,vels#117H=948 variable vels#118=949,vels#118H=950,vels#119=951,vels#119H=952 variable vels#120=953,vels#120H=954,vels#121=955,vels#121H=956 variable vels#122=957,vels#122H=958,vels#123=959,vels#123H=960 variable vels#124=961,vels#124H=962,vels#125=963,vels#125H=964 variable vels#126=965,vels#126H=966,vels#127=967,vels#127H=968 Dur = 969 DurH = 970 variable Dur#0=969,Dur#0H=970,Dur#1=971,Dur#1H=972 variable Dur#2=973,Dur#2H=974,Dur#3=975,Dur#3H=976 variable Dur#4=977,Dur#4H=978,Dur#5=979,Dur#5H=980 variable Dur#6=981,Dur#6H=982,Dur#7=983,Dur#7H=984 variable Dur#8=985,Dur#8H=986,Dur#9=987,Dur#9H=988 variable Dur#10=989,Dur#10H=990,Dur#11=991,Dur#11H=992 variable Dur#12=993,Dur#12H=994,Dur#13=995,Dur#13H=996 variable Dur#14=997,Dur#14H=998,Dur#15=999,Dur#15H=1000 variable Dur#16=1001,Dur#16H=1002,Dur#17=1003,Dur#17H=1004 variable Dur#18=1005,Dur#18H=1006,Dur#19=1007,Dur#19H=1008 variable Dur#20=1009,Dur#20H=1010,Dur#21=1011,Dur#21H=1012 variable Dur#22=1013,Dur#22H=1014,Dur#23=1015,Dur#23H=1016 variable Dur#24=1017,Dur#24H=1018,Dur#25=1019,Dur#25H=1020 variable Dur#26=1021,Dur#26H=1022,Dur#27=1023,Dur#27H=1024 variable Dur#28=1025,Dur#28H=1026,Dur#29=1027,Dur#29H=1028 variable Dur#30=1029,Dur#30H=1030,Dur#31=1031,Dur#31H=1032 variable Dur#32=1033,Dur#32H=1034,Dur#33=1035,Dur#33H=1036 variable Dur#34=1037,Dur#34H=1038,Dur#35=1039,Dur#35H=1040 variable Dur#36=1041,Dur#36H=1042,Dur#37=1043,Dur#37H=1044 variable Dur#38=1045,Dur#38H=1046,Dur#39=1047,Dur#39H=1048 variable Dur#40=1049,Dur#40H=1050,Dur#41=1051,Dur#41H=1052 variable Dur#42=1053,Dur#42H=1054,Dur#43=1055,Dur#43H=1056 variable Dur#44=1057,Dur#44H=1058,Dur#45=1059,Dur#45H=1060 variable Dur#46=1061,Dur#46H=1062,Dur#47=1063,Dur#47H=1064 variable Dur#48=1065,Dur#48H=1066,Dur#49=1067,Dur#49H=1068 variable Dur#50=1069,Dur#50H=1070,Dur#51=1071,Dur#51H=1072 variable Dur#52=1073,Dur#52H=1074,Dur#53=1075,Dur#53H=1076 variable Dur#54=1077,Dur#54H=1078,Dur#55=1079,Dur#55H=1080 variable Dur#56=1081,Dur#56H=1082,Dur#57=1083,Dur#57H=1084 variable Dur#58=1085,Dur#58H=1086,Dur#59=1087,Dur#59H=1088 variable Dur#60=1089,Dur#60H=1090,Dur#61=1091,Dur#61H=1092 variable Dur#62=1093,Dur#62H=1094,Dur#63=1095,Dur#63H=1096 variable Dur#64=1097,Dur#64H=1098,Dur#65=1099,Dur#65H=1100 variable Dur#66=1101,Dur#66H=1102,Dur#67=1103,Dur#67H=1104 variable Dur#68=1105,Dur#68H=1106,Dur#69=1107,Dur#69H=1108 variable Dur#70=1109,Dur#70H=1110,Dur#71=1111,Dur#71H=1112 variable Dur#72=1113,Dur#72H=1114,Dur#73=1115,Dur#73H=1116 variable Dur#74=1117,Dur#74H=1118,Dur#75=1119,Dur#75H=1120 variable Dur#76=1121,Dur#76H=1122,Dur#77=1123,Dur#77H=1124 variable Dur#78=1125,Dur#78H=1126,Dur#79=1127,Dur#79H=1128 variable Dur#80=1129,Dur#80H=1130,Dur#81=1131,Dur#81H=1132 variable Dur#82=1133,Dur#82H=1134,Dur#83=1135,Dur#83H=1136 variable Dur#84=1137,Dur#84H=1138,Dur#85=1139,Dur#85H=1140 variable Dur#86=1141,Dur#86H=1142,Dur#87=1143,Dur#87H=1144 variable Dur#88=1145,Dur#88H=1146,Dur#89=1147,Dur#89H=1148 variable Dur#90=1149,Dur#90H=1150,Dur#91=1151,Dur#91H=1152 variable Dur#92=1153,Dur#92H=1154,Dur#93=1155,Dur#93H=1156 variable Dur#94=1157,Dur#94H=1158,Dur#95=1159,Dur#95H=1160 variable Dur#96=1161,Dur#96H=1162,Dur#97=1163,Dur#97H=1164 variable Dur#98=1165,Dur#98H=1166,Dur#99=1167,Dur#99H=1168 variable Dur#100=1169,Dur#100H=1170,Dur#101=1171,Dur#101H=1172 variable Dur#102=1173,Dur#102H=1174,Dur#103=1175,Dur#103H=1176 variable Dur#104=1177,Dur#104H=1178,Dur#105=1179,Dur#105H=1180 variable Dur#106=1181,Dur#106H=1182,Dur#107=1183,Dur#107H=1184 variable Dur#108=1185,Dur#108H=1186,Dur#109=1187,Dur#109H=1188 variable Dur#110=1189,Dur#110H=1190,Dur#111=1191,Dur#111H=1192 variable Dur#112=1193,Dur#112H=1194,Dur#113=1195,Dur#113H=1196 variable Dur#114=1197,Dur#114H=1198,Dur#115=1199,Dur#115H=1200 variable Dur#116=1201,Dur#116H=1202,Dur#117=1203,Dur#117H=1204 variable Dur#118=1205,Dur#118H=1206,Dur#119=1207,Dur#119H=1208 variable Dur#120=1209,Dur#120H=1210,Dur#121=1211,Dur#121H=1212 variable Dur#122=1213,Dur#122H=1214,Dur#123=1215,Dur#123H=1216 variable Dur#124=1217,Dur#124H=1218,Dur#125=1219,Dur#125H=1220 variable Dur#126=1221,Dur#126H=1222,Dur#127=1223,Dur#127H=1224 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 = 1225 variable _Low__Context_Store#0=1225,_Low__Context_Store#1=1226,_Low__Context_Store#2=1227 #define StBit Bytein,7 #define PowerOn CC66,0 #define LR0 LRword,0 #define LR1 LRword,1 #define LR2 LRword,2 #define LR3 LRword,3 #define LR4 LRword,4 #define LR5 LRword,5 #define LR6 LRword,6 #define LR7 LRword,7 #define LR8 LRwordH,0 #define LR9 LRwordH,1 #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 60 #define noot1 61 #define noot2 62 #define noot3 63 #define noot4 64 #define noot5 65 #define noot6 66 #define noot7 67 #define noot8 68 #define noot9 69 #define lamp0 120 #define lamp1 121 #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 7,0 __DELAY_MS_W_ movwf 6,0 DLY@P movlw 255 addwf 6,F,0 addwfc 7,F,0 bra $ + 2 btfss 4056,0,0 return movlw 3 movwf 5,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf 5,0 __DELAY_US_W_ addlw 254 movwf 4,0 clrf 4072,0 subwfb 5,F,0 btfss 4056,0,0 return nop decf 4,F,0 bra $ + 2 bra $ - 14 FPS@32 movlw 128 xorwf PP_BARGH,F,0 FPA@32 movf PP_BARG,W,0 subwf PP_AARG,W,0 movwf _BEXP,0 bc FL@ADD_1 negf _BEXP,0 movf PP_AARG,W,0 movff PP_BARG,PP_AARG movwf PP_BARG,0 movf PP_AARGH,W,0 movff PP_BARGH,PP_AARGH movwf PP_BARGH,0 movf PP_AARGHH,W,0 movff PP_BARGHH,PP_AARGHH movwf PP_BARGHH,0 movf PP_AARGHHH,W,0 movff PP_BARGHHH,PP_AARGHHH movwf PP_BARGHHH,0 FL@ADD_1 movlw 26 cpfslt _BEXP,0 bra FL@ADD_RET movf PP_BARG,F,0 bz FL@ADD_RET clrf _AEXP,0 movf PP_AARGH,W,0 movwf _FP_TEMP,0 xorwf PP_BARGH,W,0 movwf _SIGN,0 bsf PP_AARGH,7,0 bsf PP_BARGH,7,0 FL@ADD_2 movlw 8 subwf _BEXP,F,0 bnc FL@ADD_3 movff PP_BARGHHH,_AEXP movff PP_BARGHH,PP_BARGHHH movff PP_BARGH,PP_BARGHH clrf PP_BARGH,0 bra FL@ADD_2 FL@ADD_3 addwf _BEXP,F,0 bz FL@ADD_5 FL@ADD_4 bcf 4056,0,0 rrcf PP_BARGH,F,0 rrcf PP_BARGHH,F,0 rrcf PP_BARGHHH,F,0 rrcf _AEXP,F,0 decfsz _BEXP,F,0 bra FL@ADD_4 FL@ADD_5 btfss _SIGN,7,0 bra FL@ADD_11 movf PP_BARGHHH,W,0 subwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 subwfb PP_AARGHH,F,0 movf PP_BARGH,W,0 subwfb PP_AARGH,F,0 bc FL@ADD_6 bsf 4056,0,0 movlw 0 subfwb PP_AARGHHH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGH,F,0 movlw 128 xorwf _FP_TEMP,F,0 FL@ADD_6 negf _AEXP,0 bz FL@ADD_7 decf PP_AARGHHH,F,0 movlw 0 subwfb PP_AARGHH,F,0 subwfb PP_AARGH,F,0 FL@ADD_7 movlw 4 movwf _BEXP,0 FL@ADD_8 tstfsz PP_AARGH,0 bra FL@ADD_9 movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH movff _AEXP,PP_AARGHHH clrf _AEXP,0 movlw 8 subwf PP_AARG,F,0 bnc FL@ADD_RES0 decfsz _BEXP,F,0 bra FL@ADD_8 bra FL@ADD_RES0 FL@ADD_9 btfsc PP_AARGH,7,0 bra FL@ADD_10 bcf 4056,0,0 rlcf _AEXP,F,0 rlcf PP_AARGHHH,F,0 rlcf PP_AARGHH,F,0 rlcf PP_AARGH,F,0 decfsz PP_AARG,F,0 bra FL@ADD_9 bra FL@ADD_RES0 FL@ADD_10 btfss _AEXP,7,0 bra FL@ADD_SET_SIGN clrf _AEXP,0 bra FL@ADD_INCREMENT FL@ADD_11 movf PP_BARGHHH,W,0 addwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 addwfc PP_AARGHH,F,0 movf PP_BARGH,W,0 addwfc PP_AARGH,F,0 bnc FL@ADD_13 FL@ADD_ADJUST_RIGHT rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 rrcf _AEXP,F,0 infsnz PP_AARG,F,0 bra FL@ADD_OVERFLOW FL@ADD_13 btfss _AEXP,7,0 bra FL@ADD_SET_SIGN FL@ADD_INCREMENT incfsz PP_AARGHHH,F,0 bra FL@ADD_SET_SIGN incfsz PP_AARGHH,F,0 bra FL@ADD_SET_SIGN incfsz PP_AARGH,F,0 bra FL@ADD_SET_SIGN bsf 4056,0,0 bcf PP_AARGHHH,0,0 bra FL@ADD_ADJUST_RIGHT FL@ADD_RES0 clrf PP_AARG,0 bra FL@ADD_MANTISSA FL@ADD_OVERFLOW bsf _FP_FLAGS,1,0 setf PP_AARG,0 FL@ADD_MANTISSA clrf PP_AARGHHH,0 clrf PP_AARGHH,0 movlw 128 movwf PP_AARGH,0 FL@ADD_SET_SIGN btfss _FP_TEMP,7,0 bcf PP_AARGH,7,0 FL@ADD_RET movf PP_AARGHHH,W,0 return FPM@32 movf PP_AARGH,W,0 movwf 22,0 xorwf PP_BARGH,W,0 movwf _SIGN,0 movf PP_AARG,W,0 btfss 4056,2,0 movf PP_BARG,W,0 bz FP@MUL_RES0 addwf PP_AARG,F,0 movlw 126 bnc FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_2 bra FP@MUL_OVERFLOW FP@MUL_1 subwf PP_AARG,F,0 bnc FP@MUL_UNDERFLOW FP@MUL_2 movff PP_AARGHHH,20 movff PP_AARGHH,21 bsf 22,7,0 bsf PP_BARGH,7,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 movlw 24 movwf _FP_TEMP,0 FP@MUL_3 rrcf 22,F,0 rrcf 21,F,0 rrcf 20,F,0 bnc FP@MUL_4 movf PP_BARGHHH,W,0 addwf PP_AARGHHH,F,0 movf PP_BARGHH,W,0 addwfc PP_AARGHH,F,0 movf PP_BARGH,W,0 addwfc PP_AARGH,F,0 FP@MUL_4 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 decfsz _FP_TEMP,F,0 bra FP@MUL_3 btfsc PP_AARGH,7,0 bra FP@MUL_5 rlcf PP_AARGHHH,F,0 rlcf PP_AARGHH,F,0 rlcf PP_AARGH,F,0 movf PP_AARG,F,0 bz FP@MUL_UNDERFLOW decf PP_AARG,F,0 rlcf 22,W,0 FP@MUL_5 bnc FP@MUL_SET_SIGN incfsz PP_AARGHHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGHH,F,0 bra FP@MUL_SET_SIGN incfsz PP_AARGH,F,0 bra FP@MUL_SET_SIGN bsf 4056,0,0 rrcf PP_AARGH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGHHH,F,0 incfsz PP_AARG,F,0 bra FP@MUL_SET_SIGN bra FP@MUL_OVERFLOW FP@MUL_UNDERFLOW bsf _FP_FLAGS,2,0 FP@MUL_RES0 clrf PP_AARG,0 bra FP@MUL_MANTISSA FP@MUL_OVERFLOW bsf _FP_FLAGS,1,0 setf PP_AARG,0 FP@MUL_MANTISSA clrf PP_AARGHHH,0 clrf PP_AARGHH,0 movlw 128 movwf PP_AARGH,0 FP@MUL_SET_SIGN btfss _SIGN,7,0 bcf PP_AARGH,7,0 movf PP_AARGHHH,W,0 return _FL32_TO_INT32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W,0 movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH,0 rlcf PP_AARGHHH,F,0 rrcf _FP_TEMP,F,0 rrcf PP_AARGHHH,F,0 clrf _FP_FLAGS,0 rlcf PP_AARGHHH,F,0 rlcf _FP_TEMP,F,0 bnc _FL32INT__UNPKA1 bsf _FP_FLAGS,2,0 btg _FP_FLAGS,7,0 _FL32INT__UNPKA1 bnz _FL32INT__UNPKANZ bsf _FP_FLAGS,0,0 clrf _FP_TEMP,0 clrf PP_AARGHHH,0 clrf PP_AARGHH,0 clrf PP_AARGH,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKANZ incf _FP_TEMP,W,0 bz _FL32INT__UNPKA2 bsf 4056,0,0 rrcf PP_AARGHHH,F,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKA2 bcf 4056,0,0 rrcf PP_AARGHHH,F,0 bnz _FL32INT__UNPKNAN bsf _FP_FLAGS,1,0 bra _FL32INTUNP__EXIT _FL32INT__UNPKNAN bsf _FP_FLAGS,3,0 _FL32INTUNP__EXIT btfsc _FP_FLAGS,3,0 bra _FL32INT__MAXPOS btfss _FP_FLAGS,1,0 bra _FL32INT__NOTINF _FL32INT__MAX btfsc _FP_FLAGS,2,0 bra _FL32INT__MAXNEG _FL32INT__MAXPOS movlw 127 movwf PP_AARGHHH,0 movlw 255 _FL32INT__WR123 movwf PP_AARGHH,0 movwf PP_AARGH,0 movwf PP_AARG,0 bra _FL32INT__EXIT _FL32INT__MAXNEG movlw 128 movwf PP_AARGHHH,0 bra _FL32INT__WRZ123 _FL32INT__ZERO clrf PP_AARGHHH,0 _FL32INT__WRZ123 movlw 0 bra _FL32INT__WR123 _FL32INT__NOTINF btfsc _FP_FLAGS,0,0 bra _FL32INT__ZERO clrf PP_AARG,0 movlw 159 cpfslt _FP_TEMP,0 bra _FL32INT__MAX movlw 126 cpfsgt _FP_TEMP,0 bra _FL32INT__ZERO _FL32INT__LOOP movlw 158 subwf _FP_TEMP,W,0 bz _FL32INT__LOOPEXIT bcf 4056,0,0 rrcf PP_AARGHHH,F,0 rrcf PP_AARGHH,F,0 rrcf PP_AARGH,F,0 rrcf PP_AARG,F,0 incf _FP_TEMP,F,0 bra _FL32INT__LOOP _FL32INT__LOOPEXIT btfss _FP_FLAGS,2,0 bra _FL32INT__EXIT bsf 4056,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 btfss PP_AARGHHH,7,0 bra _FL32INT__ZERO _FL32INT__EXIT movf PP_AARG,W,0 return _UNS_INT08_TOFL32 movwf PP_AARG,0 clrf PP_AARGH,0 _UNS_INT16_TOFL32 clrf PP_AARGHH,0 clrf PP_AARGHHH,0 _UNSGN_INT32_TOFL32 bcf _SIGN,7,0 bra IF@L5 _SGN_INT32_TOFL32 bcf _SIGN,7,0 btfss PP_AARGHHH,7,0 bra IF@L5 bsf STATUS,0,0 movlw 0 subfwb PP_AARG,F,0 subfwb PP_AARGH,F,0 subfwb PP_AARGHH,F,0 subfwb PP_AARGHHH,F,0 bsf _SIGN,7,0 IF@L5 movlw 150 movwf _FP_TEMP,0 movf PP_AARGHHH,F,0 bz IF@L7 IF@L17 movlw 8 addwf _FP_TEMP,F,0 movff PP_AARGH,PP_AARG movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH bra IF@L18 IF@L7 movf PP_AARGHH,F,0 bnz IF@L18 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARGH,W,0 bnz IF@L20 movlw 8 subwf _FP_TEMP,F,0 movf PP_AARG,W,0 bnz IF@L22 movf PP_AARGHHH,W,0 bra IF@EXIT IF@L22 clrf PP_AARG,0 IF@L20 movwf PP_AARGHH,0 movff PP_AARG,PP_AARGH clrf PP_AARG,0 IF@L18 btfsc PP_AARGHH,7,0 bra IF@L24 bcf 4056,0,0 rlcf PP_AARG,F,0 rlcf PP_AARGH,F,0 rlcf PP_AARGHH,F,0 decf _FP_TEMP,F,0 bra IF@L18 IF@L24 btfss _SIGN,7,0 bcf PP_AARGHH,7,0 IF@L26 movf _FP_TEMP,W,0 IF@EXIT movff PP_AARG,PP_AARGHHH movwf PP_AARG,0 movf PP_AARGHH,W,0 movff PP_AARGH,PP_AARGHH movwf PP_AARGH,0 return proton#main#start movlw 64 movwf _FP_FLAGS,0 movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; KLUNG2.BAS F2_SOF equ $ ; 18F4620.INC F2_EOF equ $ ; 18F4620.INC F1_000063 equ $ ; IN [KLUNG2.BAS] DECLARE ALL_DIGITAL = TRUE movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F1_000064 equ $ ; IN [KLUNG2.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000066 equ $ ; IN [KLUNG2.BAS] TRISA = %11000000 movlw 192 movwf TRISA,0 F1_000067 equ $ ; IN [KLUNG2.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000068 equ $ ; IN [KLUNG2.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000069 equ $ ; IN [KLUNG2.BAS] TRISD = %00000000 clrf TRISD,0 F1_000070 equ $ ; IN [KLUNG2.BAS] TRISE = %11101000 movlw 232 movwf TRISE,0 F3_SOF equ $ ; KLUNG_IRQ.INC F3_000060 equ $ ; IN [KLUNG_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt _Timer0_IRQ F3_000072 equ $ ; IN [KLUNG_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__3 F3_000073 equ $ ; IN [KLUNG_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000078 equ $ ; IN [KLUNG_IRQ.INC] BTG PORTB,5 btg PORTB,5 F3_000079 equ $ ; IN [KLUNG_IRQ.INC] RETFIE FAST retfie 1 F3_000080 equ $ ; IN [KLUNG_IRQ.INC] ENDIF _LBL__3 _UART_IRQ F3_000082 equ $ ; IN [KLUNG_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__5 F3_000083 equ $ ; IN [KLUNG_IRQ.INC] MOVLW 6 movlw 6 F3_000084 equ $ ; IN [KLUNG_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000085 equ $ ; IN [KLUNG_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000086 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000087 equ $ ; IN [KLUNG_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000097 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,256 F3_000098 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000099 equ $ ; IN [KLUNG_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000100 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000102 equ $ ; IN [KLUNG_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000104 equ $ ; IN [KLUNG_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000105 equ $ ; IN [KLUNG_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000106 equ $ ; IN [KLUNG_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000107 equ $ ; IN [KLUNG_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000108 equ $ ; IN [KLUNG_IRQ.INC] ENDIF _LBL__5 F3_000109 equ $ ; IN [KLUNG_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000114 equ $ ; IN [KLUNG_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__7 F3_000115 equ $ ; IN [KLUNG_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000116 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000117 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,256 F3_000118 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000119 equ $ ; IN [KLUNG_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000120 equ $ ; IN [KLUNG_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000121 equ $ ; IN [KLUNG_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000122 equ $ ; IN [KLUNG_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000123 equ $ ; IN [KLUNG_IRQ.INC] RET return 0 bra _LBL__8 _LBL__7 F3_000124 equ $ ; IN [KLUNG_IRQ.INC] ELSE F3_000125 equ $ ; IN [KLUNG_IRQ.INC] WREG = 255 setf WREG,0 F3_000126 equ $ ; IN [KLUNG_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000127 equ $ ; IN [KLUNG_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000128 equ $ ; IN [KLUNG_IRQ.INC] RET return 0 F3_000129 equ $ ; IN [KLUNG_IRQ.INC] ENDIF _LBL__8 F3_000130 equ $ ; IN [KLUNG_IRQ.INC] RET return 0 _Init_Usart F3_000146 equ $ ; IN [KLUNG_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000147 equ $ ; IN [KLUNG_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000148 equ $ ; IN [KLUNG_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000150 equ $ ; IN [KLUNG_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000152 equ $ ; IN [KLUNG_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000153 equ $ ; IN [KLUNG_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000155 equ $ ; IN [KLUNG_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000170 equ $ ; IN [KLUNG_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000171 equ $ ; IN [KLUNG_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_000172 equ $ ; IN [KLUNG_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000173 equ $ ; IN [KLUNG_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000174 equ $ ; IN [KLUNG_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000175 equ $ ; IN [KLUNG_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000183 equ $ ; IN [KLUNG_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_000184 equ $ ; IN [KLUNG_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000190 equ $ ; IN [KLUNG_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_000202 equ $ ; IN [KLUNG_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000203 equ $ ; IN [KLUNG_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000204 equ $ ; IN [KLUNG_IRQ.INC] MOVWF TXREG movwf TXREG F3_000205 equ $ ; IN [KLUNG_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; KLUNG_IRQ.INC MAIN F1_000217 equ $ ; IN [KLUNG2.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000218 equ $ ; IN [KLUNG2.BAS] DELAYMS 10 movlw 10 call __DELAY_MS_ F1_000219 equ $ ; IN [KLUNG2.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000220 equ $ ; IN [KLUNG2.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000222 equ $ ; IN [KLUNG2.BAS] LOW PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000223 equ $ ; IN [KLUNG2.BAS] LOW PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000224 equ $ ; IN [KLUNG2.BAS] LOW PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000225 equ $ ; IN [KLUNG2.BAS] LOW PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000226 equ $ ; IN [KLUNG2.BAS] LOW PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000227 equ $ ; IN [KLUNG2.BAS] LOW PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000228 equ $ ; IN [KLUNG2.BAS] LOW PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000229 equ $ ; IN [KLUNG2.BAS] LOW PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000230 equ $ ; IN [KLUNG2.BAS] LOW PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000231 equ $ ; IN [KLUNG2.BAS] LOW PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000232 equ $ ; IN [KLUNG2.BAS] LOW PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000233 equ $ ; IN [KLUNG2.BAS] LOW PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000234 equ $ ; IN [KLUNG2.BAS] LOW PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000235 equ $ ; IN [KLUNG2.BAS] LOW PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000236 equ $ ; IN [KLUNG2.BAS] LOW PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000237 equ $ ; IN [KLUNG2.BAS] LOW PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000238 equ $ ; IN [KLUNG2.BAS] LOW PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000239 equ $ ; IN [KLUNG2.BAS] LOW PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000240 equ $ ; IN [KLUNG2.BAS] LOW PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000241 equ $ ; IN [KLUNG2.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000242 equ $ ; IN [KLUNG2.BAS] LOW PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000243 equ $ ; IN [KLUNG2.BAS] LOW PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000244 equ $ ; IN [KLUNG2.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000245 equ $ ; IN [KLUNG2.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000246 equ $ ; IN [KLUNG2.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000247 equ $ ; IN [KLUNG2.BAS] LOW PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000248 equ $ ; IN [KLUNG2.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000249 equ $ ; IN [KLUNG2.BAS] LOW PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000250 equ $ ; IN [KLUNG2.BAS] CLEAR LRWORD clrf LRwordH,0 clrf LRword,0 F1_000251 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_000252 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_000253 equ $ ; IN [KLUNG2.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_000254 equ $ ; IN [KLUNG2.BAS] CLEAR CC66 clrf CC66,0 F1_000256 equ $ ; IN [KLUNG2.BAS] CLEAR PRES0 clrf Pres0,1 F1_000257 equ $ ; IN [KLUNG2.BAS] CLEAR PRES1 clrf Pres1,1 F1_000258 equ $ ; IN [KLUNG2.BAS] CLEAR PRES2 clrf Pres2,1 F1_000259 equ $ ; IN [KLUNG2.BAS] CLEAR PRES3 clrf Pres3,1 F1_000260 equ $ ; IN [KLUNG2.BAS] CLEAR PRES4 clrf Pres4,1 F1_000261 equ $ ; IN [KLUNG2.BAS] CLEAR PRES5 clrf Pres5,1 F1_000262 equ $ ; IN [KLUNG2.BAS] CLEAR PRES6 clrf Pres6,1 F1_000263 equ $ ; IN [KLUNG2.BAS] CLEAR PRES7 clrf Pres7,1 F1_000264 equ $ ; IN [KLUNG2.BAS] CLEAR PRES8 clrf Pres8,1 F1_000265 equ $ ; IN [KLUNG2.BAS] CLEAR PRES9 clrf Pres9,1 F1_000269 equ $ ; IN [KLUNG2.BAS] CLEAR RATE0 clrf Rate0H,1 clrf Rate0,1 F1_000270 equ $ ; IN [KLUNG2.BAS] CLEAR RATE1 clrf Rate1H,1 clrf Rate1,1 F1_000271 equ $ ; IN [KLUNG2.BAS] CLEAR RATE2 clrf Rate2H,1 clrf Rate2,1 F1_000272 equ $ ; IN [KLUNG2.BAS] CLEAR RATE3 clrf Rate3H,1 clrf Rate3,1 F1_000273 equ $ ; IN [KLUNG2.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_000274 equ $ ; IN [KLUNG2.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_000275 equ $ ; IN [KLUNG2.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_000276 equ $ ; IN [KLUNG2.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_000277 equ $ ; IN [KLUNG2.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_000278 equ $ ; IN [KLUNG2.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_000282 equ $ ; IN [KLUNG2.BAS] CLEAR VELO0 clrf velo0H,0 clrf velo0,0 F1_000283 equ $ ; IN [KLUNG2.BAS] CLEAR VELO1 clrf velo1H,0 clrf velo1,0 F1_000284 equ $ ; IN [KLUNG2.BAS] CLEAR VELO2 clrf velo2H,0 clrf velo2,0 F1_000285 equ $ ; IN [KLUNG2.BAS] CLEAR VELO3 clrf velo3H,0 clrf velo3,0 F1_000286 equ $ ; IN [KLUNG2.BAS] CLEAR VELO4 clrf velo4H,0 clrf velo4,0 F1_000287 equ $ ; IN [KLUNG2.BAS] CLEAR VELO5 clrf velo5H,0 clrf velo5,0 F1_000288 equ $ ; IN [KLUNG2.BAS] CLEAR VELO6 clrf velo6H,0 clrf velo6,0 F1_000289 equ $ ; IN [KLUNG2.BAS] CLEAR VELO7 clrf velo7H,0 clrf velo7,0 F1_000290 equ $ ; IN [KLUNG2.BAS] CLEAR VELO8 clrf velo8H,0 clrf velo8,0 F1_000291 equ $ ; IN [KLUNG2.BAS] CLEAR VELO9 clrf velo9H,0 clrf velo9,0 F1_000295 equ $ ; IN [KLUNG2.BAS] CLEAR OLDPROG clrf oldprog,1 F1_000297 equ $ ; IN [KLUNG2.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000299 equ $ ; IN [KLUNG2.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000311 equ $ ; IN [KLUNG2.BAS] CLEAR T1CON clrf T1CON,0 F1_000312 equ $ ; IN [KLUNG2.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000313 equ $ ; IN [KLUNG2.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000314 equ $ ; IN [KLUNG2.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000349 equ $ ; IN [KLUNG2.BAS] CLEAR T3CON clrf T3CON,0 F1_000350 equ $ ; IN [KLUNG2.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000351 equ $ ; IN [KLUNG2.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000354 equ $ ; IN [KLUNG2.BAS] SET RCON.7 bsf RCON,7,0 F1_000355 equ $ ; IN [KLUNG2.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000357 equ $ ; IN [KLUNG2.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000379 equ $ ; IN [KLUNG2.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000380 equ $ ; IN [KLUNG2.BAS] GOSUB VELS_LOOKUP call Vels_Lookup LOOP F1_000385 equ $ ; IN [KLUNG2.BAS] INC T incf _T,F,0 F1_000386 equ $ ; IN [KLUNG2.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_000387 equ $ ; IN [KLUNG2.BAS] BTG TG btg tog,0 F1_000388 equ $ ; IN [KLUNG2.BAS] INC TIME incf time,F,0 movlw 0 addwfc timeH,F,0 addwfc timeHH,F,0 addwfc timeHHH,F,0 F1_000389 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__11 F1_000391 equ $ ; IN [KLUNG2.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000394 equ $ ; IN [KLUNG2.BAS] IF BYTEIN > PROGCHANGE_STATUS THEN movlw 197 subwf Bytein,W,0 bnc _LBL__13 F1_000395 equ $ ; IN [KLUNG2.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bc _LBL__16 _LBL__15 F1_000399 equ $ ; IN [KLUNG2.BAS] ELSE F1_000400 equ $ ; IN [KLUNG2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000401 equ $ ; IN [KLUNG2.BAS] END IF _LBL__16 F1_000402 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000403 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__13 F1_000404 equ $ ; IN [KLUNG2.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__18 F1_000406 equ $ ; IN [KLUNG2.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000407 equ $ ; IN [KLUNG2.BAS] SELECT BYTEIN F1_000408 equ $ ; IN [KLUNG2.BAS] CASE NOTEOFF_STATUS movlw 132 subwf Bytein,W,0 bnz _LBL__20 F1_000409 equ $ ; IN [KLUNG2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000410 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000411 equ $ ; IN [KLUNG2.BAS] SET RELEASE setf release,1 bra _LBL__19 _LBL__20 F1_000412 equ $ ; IN [KLUNG2.BAS] CASE NOTEON_STATUS movlw 148 subwf Bytein,W,0 bnz _LBL__23 F1_000413 equ $ ; IN [KLUNG2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000414 equ $ ; IN [KLUNG2.BAS] SET NOTEAAN setf noteAan,0 F1_000415 equ $ ; IN [KLUNG2.BAS] SET VELO setf velo,0 bra _LBL__19 _LBL__23 F1_000416 equ $ ; IN [KLUNG2.BAS] CASE KEYPRES_STATUS movlw 164 subwf Bytein,W,0 bnz _LBL__25 F1_000417 equ $ ; IN [KLUNG2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000418 equ $ ; IN [KLUNG2.BAS] NOTEPRES = 255 setf notePres,0 F1_000419 equ $ ; IN [KLUNG2.BAS] PRES = 255 setf pres,0 bra _LBL__19 _LBL__25 F1_000420 equ $ ; IN [KLUNG2.BAS] CASE CONTROL_STATUS movlw 180 subwf Bytein,W,0 bnz _LBL__27 F1_000421 equ $ ; IN [KLUNG2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000422 equ $ ; IN [KLUNG2.BAS] SET CTRL setf Ctrl,0 F1_000423 equ $ ; IN [KLUNG2.BAS] SET VALUE setf value,0 bra _LBL__19 _LBL__27 F1_000424 equ $ ; IN [KLUNG2.BAS] CASE PROGCHANGE_STATUS movlw 196 subwf Bytein,W,0 bnz _LBL__29 F1_000425 equ $ ; IN [KLUNG2.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000426 equ $ ; IN [KLUNG2.BAS] PROG = 255 setf prog,0 F1_000434 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__29 _LBL__19 goto _LBL__30 _LBL__18 F1_000435 equ $ ; IN [KLUNG2.BAS] ELSE F1_000436 equ $ ; IN [KLUNG2.BAS] SELECT STATUSBYTE F1_000437 equ $ ; IN [KLUNG2.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__32 F1_000438 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__31 _LBL__32 F1_000439 equ $ ; IN [KLUNG2.BAS] CASE NOTEOFF_STATUS movlw 132 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__35 F1_000440 equ $ ; IN [KLUNG2.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__37 F1_000441 equ $ ; IN [KLUNG2.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__38 _LBL__37 F1_000442 equ $ ; IN [KLUNG2.BAS] ELSE F1_000443 equ $ ; IN [KLUNG2.BAS] RELEASE = BYTEIN movff Bytein,release F1_000444 equ $ ; IN [KLUNG2.BAS] SELECT NOTEUIT F1_000445 equ $ ; IN [KLUNG2.BAS] CASE NOOT0 movlw 60 subwf noteUit,W,0 bnz _LBL__40 F1_000446 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000447 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000448 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__43 F1_000449 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__44 _LBL__43 F1_000450 equ $ ; IN [KLUNG2.BAS] ELSE F1_000451 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000452 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__44 bra _LBL__39 _LBL__40 F1_000453 equ $ ; IN [KLUNG2.BAS] CASE NOOT1 movlw 61 subwf noteUit,W,0 bnz _LBL__46 F1_000454 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000455 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000456 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__48 F1_000457 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 bra _LBL__49 _LBL__48 F1_000458 equ $ ; IN [KLUNG2.BAS] ELSE F1_000459 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000460 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__49 bra _LBL__39 _LBL__46 F1_000461 equ $ ; IN [KLUNG2.BAS] CASE NOOT2 movlw 62 subwf noteUit,W,0 bnz _LBL__51 F1_000462 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000463 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000464 equ $ ; IN [KLUNG2.BAS] IF LR2 = 0 THEN btfsc LRword,2,0 bra _LBL__53 F1_000465 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__54 _LBL__53 F1_000466 equ $ ; IN [KLUNG2.BAS] ELSE F1_000467 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000468 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__54 bra _LBL__39 _LBL__51 F1_000469 equ $ ; IN [KLUNG2.BAS] CASE NOOT3 movlw 63 subwf noteUit,W,0 bnz _LBL__56 F1_000470 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000471 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000472 equ $ ; IN [KLUNG2.BAS] IF LR3 = 0 THEN btfsc LRword,3,0 bra _LBL__58 F1_000473 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 bra _LBL__59 _LBL__58 F1_000474 equ $ ; IN [KLUNG2.BAS] ELSE F1_000475 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000476 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__59 bra _LBL__39 _LBL__56 F1_000477 equ $ ; IN [KLUNG2.BAS] CASE NOOT4 movlw 64 subwf noteUit,W,0 bnz _LBL__61 F1_000478 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000479 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000480 equ $ ; IN [KLUNG2.BAS] IF LR4 = 0 THEN btfsc LRword,4,0 bra _LBL__63 F1_000481 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 bra _LBL__64 _LBL__63 F1_000482 equ $ ; IN [KLUNG2.BAS] ELSE F1_000483 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000484 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__64 bra _LBL__39 _LBL__61 F1_000485 equ $ ; IN [KLUNG2.BAS] CASE NOOT5 movlw 65 subwf noteUit,W,0 bnz _LBL__66 F1_000486 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000487 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000488 equ $ ; IN [KLUNG2.BAS] IF LR5 = 0 THEN btfsc LRword,5,0 bra _LBL__68 F1_000489 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__69 _LBL__68 F1_000490 equ $ ; IN [KLUNG2.BAS] ELSE F1_000491 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000492 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__69 bra _LBL__39 _LBL__66 F1_000493 equ $ ; IN [KLUNG2.BAS] CASE NOOT6 movlw 66 subwf noteUit,W,0 bnz _LBL__71 F1_000494 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000495 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000496 equ $ ; IN [KLUNG2.BAS] IF LR6 = 0 THEN btfsc LRword,6,0 bra _LBL__73 F1_000497 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__74 _LBL__73 F1_000498 equ $ ; IN [KLUNG2.BAS] ELSE F1_000499 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000500 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__74 bra _LBL__39 _LBL__71 F1_000501 equ $ ; IN [KLUNG2.BAS] CASE NOOT7 movlw 67 subwf noteUit,W,0 bnz _LBL__76 F1_000502 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000503 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000504 equ $ ; IN [KLUNG2.BAS] IF LR7 = 0 THEN btfsc LRword,7,0 bra _LBL__78 F1_000505 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 bra _LBL__79 _LBL__78 F1_000506 equ $ ; IN [KLUNG2.BAS] ELSE F1_000507 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000508 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__79 bra _LBL__39 _LBL__76 F1_000509 equ $ ; IN [KLUNG2.BAS] CASE NOOT8 movlw 68 subwf noteUit,W,0 bnz _LBL__81 F1_000510 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_000511 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000512 equ $ ; IN [KLUNG2.BAS] IF LR8 = 0 THEN btfsc LRwordH,0,0 bra _LBL__83 F1_000513 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 bra _LBL__84 _LBL__83 F1_000514 equ $ ; IN [KLUNG2.BAS] ELSE F1_000515 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000516 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__84 bra _LBL__39 _LBL__81 F1_000517 equ $ ; IN [KLUNG2.BAS] CASE NOOT9 movlw 69 subwf noteUit,W,0 bnz _LBL__86 F1_000518 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_000519 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000520 equ $ ; IN [KLUNG2.BAS] IF LR9 = 0 THEN btfsc LRwordH,1,0 bra _LBL__88 F1_000521 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__89 _LBL__88 F1_000522 equ $ ; IN [KLUNG2.BAS] ELSE F1_000523 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000524 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__89 bra _LBL__39 _LBL__86 F1_000541 equ $ ; IN [KLUNG2.BAS] CASE LAMP0 movlw 120 subwf noteUit,W,0 bnz _LBL__91 F1_000542 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000543 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000544 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__39 _LBL__91 F1_000545 equ $ ; IN [KLUNG2.BAS] CASE LAMP1 movlw 121 subwf noteUit,W,0 bnz _LBL__93 F1_000546 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000547 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000548 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000553 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__93 _LBL__39 F1_000554 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000555 equ $ ; IN [KLUNG2.BAS] GOTO RESORT goto resort F1_000556 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__38 F1_000557 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers goto _LBL__31 _LBL__35 F1_000558 equ $ ; IN [KLUNG2.BAS] CASE NOTEON_STATUS movlw 148 subwf statusbyte,W,0 btfss STATUS,2,0 goto _LBL__95 F1_000559 equ $ ; IN [KLUNG2.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__97 F1_000560 equ $ ; IN [KLUNG2.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan goto _LBL__98 _LBL__97 F1_000561 equ $ ; IN [KLUNG2.BAS] ELSE F1_000562 equ $ ; IN [KLUNG2.BAS] VELO = BYTEIN movff Bytein,velo F1_000563 equ $ ; IN [KLUNG2.BAS] IF VELO = 0 THEN movf velo,F,0 btfss STATUS,2,0 bra _LBL__100 F1_000564 equ $ ; IN [KLUNG2.BAS] SELECT NOTEAAN F1_000565 equ $ ; IN [KLUNG2.BAS] CASE NOOT0 movlw 60 subwf noteAan,W,0 bnz _LBL__102 F1_000566 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_000567 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000568 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__105 F1_000569 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__106 _LBL__105 F1_000570 equ $ ; IN [KLUNG2.BAS] ELSE F1_000571 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000572 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__106 bra _LBL__101 _LBL__102 F1_000573 equ $ ; IN [KLUNG2.BAS] CASE NOOT1 movlw 61 subwf noteAan,W,0 bnz _LBL__108 F1_000574 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_000575 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000576 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__110 F1_000577 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 bra _LBL__111 _LBL__110 F1_000578 equ $ ; IN [KLUNG2.BAS] ELSE F1_000579 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000580 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__111 bra _LBL__101 _LBL__108 F1_000581 equ $ ; IN [KLUNG2.BAS] CASE NOOT2 movlw 62 subwf noteAan,W,0 bnz _LBL__113 F1_000582 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_000583 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000584 equ $ ; IN [KLUNG2.BAS] IF LR2 = 0 THEN btfsc LRword,2,0 bra _LBL__115 F1_000585 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__116 _LBL__115 F1_000586 equ $ ; IN [KLUNG2.BAS] ELSE F1_000587 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000588 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__116 bra _LBL__101 _LBL__113 F1_000589 equ $ ; IN [KLUNG2.BAS] CASE NOOT3 movlw 63 subwf noteAan,W,0 bnz _LBL__118 F1_000590 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_000591 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000592 equ $ ; IN [KLUNG2.BAS] IF LR3 = 0 THEN btfsc LRword,3,0 bra _LBL__120 F1_000593 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 bra _LBL__121 _LBL__120 F1_000594 equ $ ; IN [KLUNG2.BAS] ELSE F1_000595 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000596 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__121 bra _LBL__101 _LBL__118 F1_000597 equ $ ; IN [KLUNG2.BAS] CASE NOOT4 movlw 64 subwf noteAan,W,0 bnz _LBL__123 F1_000598 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_000599 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000600 equ $ ; IN [KLUNG2.BAS] IF LR4 = 0 THEN btfsc LRword,4,0 bra _LBL__125 F1_000601 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 bra _LBL__126 _LBL__125 F1_000602 equ $ ; IN [KLUNG2.BAS] ELSE F1_000603 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000604 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__126 bra _LBL__101 _LBL__123 F1_000605 equ $ ; IN [KLUNG2.BAS] CASE NOOT5 movlw 65 subwf noteAan,W,0 bnz _LBL__128 F1_000606 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_000607 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000608 equ $ ; IN [KLUNG2.BAS] IF LR5 = 0 THEN btfsc LRword,5,0 bra _LBL__130 F1_000609 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__131 _LBL__130 F1_000610 equ $ ; IN [KLUNG2.BAS] ELSE F1_000611 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000612 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__131 bra _LBL__101 _LBL__128 F1_000613 equ $ ; IN [KLUNG2.BAS] CASE NOOT6 movlw 66 subwf noteAan,W,0 bnz _LBL__133 F1_000614 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_000615 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000616 equ $ ; IN [KLUNG2.BAS] IF LR6 = 0 THEN btfsc LRword,6,0 bra _LBL__135 F1_000617 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__136 _LBL__135 F1_000618 equ $ ; IN [KLUNG2.BAS] ELSE F1_000619 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000620 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__136 bra _LBL__101 _LBL__133 F1_000621 equ $ ; IN [KLUNG2.BAS] CASE NOOT7 movlw 67 subwf noteAan,W,0 bnz _LBL__138 F1_000622 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_000623 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000624 equ $ ; IN [KLUNG2.BAS] IF LR7 = 0 THEN btfsc LRword,7,0 bra _LBL__140 F1_000625 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 bra _LBL__141 _LBL__140 F1_000626 equ $ ; IN [KLUNG2.BAS] ELSE F1_000627 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000628 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__141 bra _LBL__101 _LBL__138 F1_000629 equ $ ; IN [KLUNG2.BAS] CASE NOOT8 movlw 68 subwf noteAan,W,0 bnz _LBL__143 F1_000630 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_000631 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000632 equ $ ; IN [KLUNG2.BAS] IF LR8 = 0 THEN btfsc LRwordH,0,0 bra _LBL__145 F1_000633 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 bra _LBL__146 _LBL__145 F1_000634 equ $ ; IN [KLUNG2.BAS] ELSE F1_000635 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000636 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__146 bra _LBL__101 _LBL__143 F1_000637 equ $ ; IN [KLUNG2.BAS] CASE NOOT9 movlw 69 subwf noteAan,W,0 bnz _LBL__148 F1_000638 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_000639 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000640 equ $ ; IN [KLUNG2.BAS] IF LR9 = 0 THEN btfsc LRwordH,1,0 bra _LBL__150 F1_000641 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__151 _LBL__150 F1_000642 equ $ ; IN [KLUNG2.BAS] ELSE F1_000643 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000644 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__151 bra _LBL__101 _LBL__148 F1_000661 equ $ ; IN [KLUNG2.BAS] CASE LAMP0 movlw 120 subwf noteAan,W,0 bnz _LBL__153 F1_000662 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_000663 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000664 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers bra _LBL__101 _LBL__153 F1_000665 equ $ ; IN [KLUNG2.BAS] CASE LAMP1 movlw 121 subwf noteAan,W,0 bnz _LBL__155 F1_000666 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000667 equ $ ; IN [KLUNG2.BAS] SET NOTEUIT setf noteUit,0 F1_000668 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS goto Check_Timers F1_000673 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__155 _LBL__101 F1_000674 equ $ ; IN [KLUNG2.BAS] GOTO RESORT goto resort goto _LBL__156 _LBL__100 F1_000675 equ $ ; IN [KLUNG2.BAS] ELSE F1_000676 equ $ ; IN [KLUNG2.BAS] SELECT NOTEAAN F1_000677 equ $ ; IN [KLUNG2.BAS] CASE NOOT0 movlw 60 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__158 F1_000678 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__161 F1_000679 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_000680 equ $ ; IN [KLUNG2.BAS] SET PORTA.1 bsf LATA,1,0 bra _LBL__162 _LBL__161 F1_000681 equ $ ; IN [KLUNG2.BAS] ELSE F1_000682 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_000683 equ $ ; IN [KLUNG2.BAS] SET PORTA.2 bsf LATA,2,0 F1_000684 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__162 F1_000685 equ $ ; IN [KLUNG2.BAS] TOGGLE LR0 btg LRword,0,0 F1_000686 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_000687 equ $ ; IN [KLUNG2.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_000688 equ $ ; IN [KLUNG2.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_000689 equ $ ; IN [KLUNG2.BAS] IF PRES0 > 0 THEN movf Pres0,F,1 bz _LBL__164 F1_000690 equ $ ; IN [KLUNG2.BAS] SET NOTES.0 bsf notes,0,0 F1_000691 equ $ ; IN [KLUNG2.BAS] RATE0 = DUR[PRES0] - VELO0 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,1 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,1 movf velo0H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate0H,1 bra _LBL__165 _LBL__164 F1_000698 equ $ ; IN [KLUNG2.BAS] ELSE F1_000699 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_000700 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__165 goto _LBL__157 _LBL__158 F1_000701 equ $ ; IN [KLUNG2.BAS] CASE NOOT1 movlw 61 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__167 F1_000702 equ $ ; IN [KLUNG2.BAS] IF LR1 = 0 THEN btfsc LRword,1,0 bra _LBL__169 F1_000703 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_000704 equ $ ; IN [KLUNG2.BAS] SET PORTA.3 bsf LATA,3,0 bra _LBL__170 _LBL__169 F1_000705 equ $ ; IN [KLUNG2.BAS] ELSE F1_000706 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_000707 equ $ ; IN [KLUNG2.BAS] SET PORTA.0 bsf LATA,0,0 F1_000708 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__170 F1_000709 equ $ ; IN [KLUNG2.BAS] TOGGLE LR1 btg LRword,1,0 F1_000710 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_000711 equ $ ; IN [KLUNG2.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_000712 equ $ ; IN [KLUNG2.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_000713 equ $ ; IN [KLUNG2.BAS] IF PRES1 > 0 THEN movf Pres1,F,1 bz _LBL__172 F1_000714 equ $ ; IN [KLUNG2.BAS] SET NOTES.1 bsf notes,1,0 F1_000715 equ $ ; IN [KLUNG2.BAS] RATE1 = DUR[PRES1] - VELO1 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,1 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,1 movf velo1H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate1H,1 bra _LBL__173 _LBL__172 F1_000721 equ $ ; IN [KLUNG2.BAS] ELSE F1_000722 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_000723 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__173 goto _LBL__157 _LBL__167 F1_000724 equ $ ; IN [KLUNG2.BAS] CASE NOOT2 movlw 62 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__175 F1_000725 equ $ ; IN [KLUNG2.BAS] IF LR2 = 0 THEN btfsc LRword,2,0 bra _LBL__177 F1_000726 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_000727 equ $ ; IN [KLUNG2.BAS] SET PORTA.5 bsf LATA,5,0 bra _LBL__178 _LBL__177 F1_000728 equ $ ; IN [KLUNG2.BAS] ELSE F1_000729 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_000730 equ $ ; IN [KLUNG2.BAS] SET PORTA.4 bsf LATA,4,0 F1_000731 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__178 F1_000732 equ $ ; IN [KLUNG2.BAS] TOGGLE LR2 btg LRword,2,0 F1_000733 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_000734 equ $ ; IN [KLUNG2.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_000735 equ $ ; IN [KLUNG2.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_000736 equ $ ; IN [KLUNG2.BAS] IF PRES2 > 0 THEN movf Pres2,F,1 bz _LBL__180 F1_000737 equ $ ; IN [KLUNG2.BAS] SET NOTES.2 bsf notes,2,0 F1_000738 equ $ ; IN [KLUNG2.BAS] RATE2 = DUR[PRES2] - VELO2 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,1 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,1 movf velo2H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate2H,1 bra _LBL__181 _LBL__180 F1_000744 equ $ ; IN [KLUNG2.BAS] ELSE F1_000745 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_000746 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__181 bra _LBL__157 _LBL__175 F1_000747 equ $ ; IN [KLUNG2.BAS] CASE NOOT3 movlw 63 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__183 F1_000748 equ $ ; IN [KLUNG2.BAS] IF LR3 = 0 THEN btfsc LRword,3,0 bra _LBL__185 F1_000749 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_000750 equ $ ; IN [KLUNG2.BAS] SET PORTE.1 bsf LATE,1,0 bra _LBL__186 _LBL__185 F1_000751 equ $ ; IN [KLUNG2.BAS] ELSE F1_000752 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_000753 equ $ ; IN [KLUNG2.BAS] SET PORTE.0 bsf LATE,0,0 F1_000754 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__186 F1_000755 equ $ ; IN [KLUNG2.BAS] TOGGLE LR3 btg LRword,3,0 F1_000756 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_000757 equ $ ; IN [KLUNG2.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_000758 equ $ ; IN [KLUNG2.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 [KLUNG2.BAS] IF PRES3 > 0 THEN movf Pres3,F,1 bz _LBL__188 F1_000760 equ $ ; IN [KLUNG2.BAS] SET NOTES.3 bsf notes,3,0 F1_000761 equ $ ; IN [KLUNG2.BAS] RATE3 = DUR[PRES3] - VELO3 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,1 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,1 movf velo3H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate3H,1 bra _LBL__189 _LBL__188 F1_000767 equ $ ; IN [KLUNG2.BAS] ELSE F1_000768 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_000769 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__189 bra _LBL__157 _LBL__183 F1_000770 equ $ ; IN [KLUNG2.BAS] CASE NOOT4 movlw 64 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__191 F1_000771 equ $ ; IN [KLUNG2.BAS] IF LR4 = 0 THEN btfsc LRword,4,0 bra _LBL__193 F1_000772 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_000773 equ $ ; IN [KLUNG2.BAS] SET PORTB.4 bsf LATB,4,0 bra _LBL__194 _LBL__193 F1_000774 equ $ ; IN [KLUNG2.BAS] ELSE F1_000775 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_000776 equ $ ; IN [KLUNG2.BAS] SET PORTE.2 bsf LATE,2,0 F1_000777 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__194 F1_000778 equ $ ; IN [KLUNG2.BAS] TOGGLE LR4 btg LRword,4,0 F1_000779 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_000780 equ $ ; IN [KLUNG2.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_000781 equ $ ; IN [KLUNG2.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_000782 equ $ ; IN [KLUNG2.BAS] IF PRES4 > 0 THEN movf Pres4,F,1 bz _LBL__196 F1_000783 equ $ ; IN [KLUNG2.BAS] SET NOTES.4 bsf notes,4,0 F1_000784 equ $ ; IN [KLUNG2.BAS] RATE4 = DUR[PRES4] - VELO4 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,1 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,1 movf velo4H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate4H,1 bra _LBL__197 _LBL__196 F1_000790 equ $ ; IN [KLUNG2.BAS] ELSE F1_000791 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_000792 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__197 bra _LBL__157 _LBL__191 F1_000793 equ $ ; IN [KLUNG2.BAS] CASE NOOT5 movlw 65 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__199 F1_000794 equ $ ; IN [KLUNG2.BAS] IF LR5 = 0 THEN btfsc LRword,5,0 bra _LBL__201 F1_000795 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_000796 equ $ ; IN [KLUNG2.BAS] SET PORTB.2 bsf LATB,2,0 bra _LBL__202 _LBL__201 F1_000797 equ $ ; IN [KLUNG2.BAS] ELSE F1_000798 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000799 equ $ ; IN [KLUNG2.BAS] SET PORTB.3 bsf LATB,3,0 F1_000800 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__202 F1_000801 equ $ ; IN [KLUNG2.BAS] TOGGLE LR5 btg LRword,5,0 F1_000802 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_000803 equ $ ; IN [KLUNG2.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_000804 equ $ ; IN [KLUNG2.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_000805 equ $ ; IN [KLUNG2.BAS] IF PRES5 > 0 THEN movf Pres5,F,1 bz _LBL__204 F1_000806 equ $ ; IN [KLUNG2.BAS] SET NOTES.5 bsf notes,5,0 F1_000807 equ $ ; IN [KLUNG2.BAS] RATE5 = DUR[PRES5] - VELO5 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,1 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,1 movf velo5H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate5H,1 bra _LBL__205 _LBL__204 F1_000813 equ $ ; IN [KLUNG2.BAS] ELSE F1_000814 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_000815 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__205 bra _LBL__157 _LBL__199 F1_000816 equ $ ; IN [KLUNG2.BAS] CASE NOOT6 movlw 66 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__207 F1_000817 equ $ ; IN [KLUNG2.BAS] IF LR6 = 0 THEN btfsc LRword,6,0 bra _LBL__209 F1_000818 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_000819 equ $ ; IN [KLUNG2.BAS] SET PORTB.0 bsf LATB,0,0 bra _LBL__210 _LBL__209 F1_000820 equ $ ; IN [KLUNG2.BAS] ELSE F1_000821 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_000822 equ $ ; IN [KLUNG2.BAS] SET PORTB.1 bsf LATB,1,0 F1_000823 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__210 F1_000824 equ $ ; IN [KLUNG2.BAS] TOGGLE LR6 btg LRword,6,0 F1_000825 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_000826 equ $ ; IN [KLUNG2.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_000827 equ $ ; IN [KLUNG2.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_000828 equ $ ; IN [KLUNG2.BAS] IF PRES6 > 0 THEN movf Pres6,F,1 bz _LBL__212 F1_000829 equ $ ; IN [KLUNG2.BAS] SET NOTES.6 bsf notes,6,0 F1_000830 equ $ ; IN [KLUNG2.BAS] RATE6 = DUR[PRES6] - VELO6 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,1 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,1 movf velo6H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate6H,1 bra _LBL__213 _LBL__212 F1_000836 equ $ ; IN [KLUNG2.BAS] ELSE F1_000837 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_000838 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__213 bra _LBL__157 _LBL__207 F1_000839 equ $ ; IN [KLUNG2.BAS] CASE NOOT7 movlw 67 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__215 F1_000840 equ $ ; IN [KLUNG2.BAS] IF LR7 = 0 THEN btfsc LRword,7,0 bra _LBL__217 F1_000841 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_000842 equ $ ; IN [KLUNG2.BAS] SET PORTD.6 bsf LATD,6,0 bra _LBL__218 _LBL__217 F1_000843 equ $ ; IN [KLUNG2.BAS] ELSE F1_000844 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_000845 equ $ ; IN [KLUNG2.BAS] SET PORTD.7 bsf LATD,7,0 F1_000846 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__218 F1_000847 equ $ ; IN [KLUNG2.BAS] TOGGLE LR7 btg LRword,7,0 F1_000848 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_000849 equ $ ; IN [KLUNG2.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_000850 equ $ ; IN [KLUNG2.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_000851 equ $ ; IN [KLUNG2.BAS] IF PRES7 > 0 THEN movf Pres7,F,1 bz _LBL__220 F1_000852 equ $ ; IN [KLUNG2.BAS] SET NOTES.7 bsf notes,7,0 F1_000853 equ $ ; IN [KLUNG2.BAS] RATE7 = DUR[PRES7] - VELO7 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,1 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,1 movf velo7H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate7H,1 bra _LBL__221 _LBL__220 F1_000859 equ $ ; IN [KLUNG2.BAS] ELSE F1_000860 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_000861 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__221 bra _LBL__157 _LBL__215 F1_000862 equ $ ; IN [KLUNG2.BAS] CASE NOOT8 movlw 68 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__223 F1_000863 equ $ ; IN [KLUNG2.BAS] IF LR8 = 0 THEN btfsc LRwordH,0,0 bra _LBL__225 F1_000864 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_000865 equ $ ; IN [KLUNG2.BAS] SET PORTD.4 bsf LATD,4,0 bra _LBL__226 _LBL__225 F1_000866 equ $ ; IN [KLUNG2.BAS] ELSE F1_000867 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_000868 equ $ ; IN [KLUNG2.BAS] SET PORTD.5 bsf LATD,5,0 F1_000869 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__226 F1_000870 equ $ ; IN [KLUNG2.BAS] TOGGLE LR8 btg LRwordH,0,0 F1_000871 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.8 bsf VelflagsH,0,0 F1_000872 equ $ ; IN [KLUNG2.BAS] VELO8 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo8 movff INDF0,velo8H F1_000873 equ $ ; IN [KLUNG2.BAS] TIMVALS[8] = TIME + VELO8 movf velo8,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo8H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_000874 equ $ ; IN [KLUNG2.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__228 F1_000875 equ $ ; IN [KLUNG2.BAS] SET NOTES.8 bsf notesH,0,0 F1_000876 equ $ ; IN [KLUNG2.BAS] RATE8 = DUR[PRES8] - VELO8 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres8,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo8,W,0 subwf PBP#VAR0,W,0 movwf Rate8,1 movf velo8H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate8H,1 bra _LBL__229 _LBL__228 F1_000882 equ $ ; IN [KLUNG2.BAS] ELSE F1_000883 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_000884 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__229 bra _LBL__157 _LBL__223 F1_000885 equ $ ; IN [KLUNG2.BAS] CASE NOOT9 movlw 69 subwf noteAan,W,0 btfss STATUS,2,0 bra _LBL__231 F1_000886 equ $ ; IN [KLUNG2.BAS] IF LR9 = 0 THEN btfsc LRwordH,1,0 bra _LBL__233 F1_000887 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000888 equ $ ; IN [KLUNG2.BAS] SET PORTC.4 bsf LATC,4,0 bra _LBL__234 _LBL__233 F1_000889 equ $ ; IN [KLUNG2.BAS] ELSE F1_000890 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000891 equ $ ; IN [KLUNG2.BAS] SET PORTC.5 bsf LATC,5,0 F1_000892 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__234 F1_000893 equ $ ; IN [KLUNG2.BAS] TOGGLE LR9 btg LRwordH,1,0 F1_000894 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.9 bsf VelflagsH,1,0 F1_000895 equ $ ; IN [KLUNG2.BAS] VELO9 = VELS[VELO] lfsr 0,vels bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,velo9 movff INDF0,velo9H F1_000896 equ $ ; IN [KLUNG2.BAS] TIMVALS[9] = TIME + VELO9 movf velo9,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo9H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_000897 equ $ ; IN [KLUNG2.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__236 F1_000898 equ $ ; IN [KLUNG2.BAS] SET NOTES.9 bsf notesH,1,0 F1_000899 equ $ ; IN [KLUNG2.BAS] RATE9 = DUR[PRES9] - VELO9 lfsr 0,Dur bcf STATUS,0,0 rlcf Pres9,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movf velo9,W,0 subwf PBP#VAR0,W,0 movwf Rate9,1 movf velo9H,W,0 subwfb PBP#VAR0H,W,0 movwf Rate9H,1 bra _LBL__237 _LBL__236 F1_000905 equ $ ; IN [KLUNG2.BAS] ELSE F1_000906 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_000907 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__237 bra _LBL__157 _LBL__231 F1_000954 equ $ ; IN [KLUNG2.BAS] CASE LAMP0 movlw 120 subwf noteAan,W,0 bnz _LBL__239 F1_000955 equ $ ; IN [KLUNG2.BAS] SET PORTD.0 bsf LATD,0,0 F1_000956 equ $ ; IN [KLUNG2.BAS] SET NOTEAAN setf noteAan,0 F1_000957 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__157 _LBL__239 F1_000958 equ $ ; IN [KLUNG2.BAS] CASE LAMP1 movlw 121 subwf noteAan,W,0 bnz _LBL__241 F1_000959 equ $ ; IN [KLUNG2.BAS] SET PORTC.3 bsf LATC,3,0 F1_000960 equ $ ; IN [KLUNG2.BAS] SET NOTEAAN setf noteAan,0 F1_000961 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000966 equ $ ; IN [KLUNG2.BAS] CASE ELSE bra _LBL__243 _LBL__241 F1_000967 equ $ ; IN [KLUNG2.BAS] SET NOTEAAN setf noteAan,0 F1_000968 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000969 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__243 _LBL__157 F1_000970 equ $ ; IN [KLUNG2.BAS] SET NOTEAAN setf noteAan,0 F1_000971 equ $ ; IN [KLUNG2.BAS] GOTO RESORT bra resort F1_000972 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__156 F1_000973 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__98 F1_000974 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__95 F1_000975 equ $ ; IN [KLUNG2.BAS] CASE KEYPRES_STATUS movlw 164 subwf statusbyte,W,0 bnz _LBL__245 F1_000978 equ $ ; IN [KLUNG2.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__247 F1_000979 equ $ ; IN [KLUNG2.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__248 _LBL__247 F1_000980 equ $ ; IN [KLUNG2.BAS] ELSE F1_000981 equ $ ; IN [KLUNG2.BAS] PRES = BYTEIN movff Bytein,pres F1_000982 equ $ ; IN [KLUNG2.BAS] GOSUB KEYPRES call KeyPres F1_000983 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__248 F1_000984 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__245 F1_000985 equ $ ; IN [KLUNG2.BAS] CASE CONTROL_STATUS movlw 180 subwf statusbyte,W,0 bnz _LBL__250 F1_000986 equ $ ; IN [KLUNG2.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__252 F1_000987 equ $ ; IN [KLUNG2.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__253 _LBL__252 F1_000988 equ $ ; IN [KLUNG2.BAS] ELSE F1_000989 equ $ ; IN [KLUNG2.BAS] VALUE = BYTEIN movff Bytein,value F1_000990 equ $ ; IN [KLUNG2.BAS] GOSUB CONTROLLER call Controller F1_000991 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__253 F1_000992 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__31 _LBL__250 F1_000993 equ $ ; IN [KLUNG2.BAS] CASE PROGCHANGE_STATUS movlw 196 subwf statusbyte,W,0 bnz _LBL__255 F1_000994 equ $ ; IN [KLUNG2.BAS] IF PROG = 255 THEN incf prog,W,0 bnz _LBL__257 F1_000995 equ $ ; IN [KLUNG2.BAS] PROG = BYTEIN movff Bytein,prog F1_000996 equ $ ; IN [KLUNG2.BAS] GOSUB PROGCHANGE call ProgChange F1_000997 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__257 F1_000998 equ $ ; IN [KLUNG2.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_001005 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__255 _LBL__31 F1_001006 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__30 resort F1_001009 equ $ ; IN [KLUNG2.BAS] GOSUB SORTTIMERS call SortTimers Check_Timers F1_001012 equ $ ; IN [KLUNG2.BAS] IF IDX < 10 THEN movlw 10 subwf idx,W,0 btfsc STATUS,0,0 goto _LBL__259 F1_001013 equ $ ; IN [KLUNG2.BAS] IF TIME >= NXT THEN movf Nxt,W,0 subwf time,W,0 movf NxtH,W,0 subwfb timeH,W,0 movf NxtHH,W,0 subwfb timeHH,W,0 movf NxtHHH,W,0 subwfb timeHHH,W,0 btfss STATUS,0,0 goto _LBL__261 F1_001015 equ $ ; IN [KLUNG2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_001017 equ $ ; IN [KLUNG2.BAS] SELECT IDX F1_001018 equ $ ; IN [KLUNG2.BAS] CASE 0 movf idx,F,0 btfss STATUS,2,0 bra _LBL__263 F1_001019 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__266 F1_001020 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 bra _LBL__267 _LBL__266 F1_001021 equ $ ; IN [KLUNG2.BAS] ELSE F1_001022 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001023 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__267 F1_001024 equ $ ; IN [KLUNG2.BAS] IF NOTES.0 = 0 THEN btfsc notes,0,0 bra _LBL__269 F1_001025 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 F1_001026 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[0] setf TimVals#0HHH,1 setf TimVals#0HH,1 setf TimVals#0H,1 setf TimVals#0,1 bra _LBL__270 _LBL__269 F1_001027 equ $ ; IN [KLUNG2.BAS] ELSE F1_001028 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.0 = 1 THEN btfss Velflags,0,0 bra _LBL__272 F1_001029 equ $ ; IN [KLUNG2.BAS] TIMVALS[0] = TIME + RATE0 movf Rate0,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate0H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#0HHH movff PBP#VAR0HH,TimVals#0HH movff PBP#VAR0H,TimVals#0H movff PBP#VAR0,TimVals#0 F1_001030 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.0 bcf Velflags,0,0 bra _LBL__273 _LBL__272 F1_001031 equ $ ; IN [KLUNG2.BAS] ELSE F1_001032 equ $ ; IN [KLUNG2.BAS] IF LR0 = 0 THEN btfsc LRword,0,0 bra _LBL__275 F1_001033 equ $ ; IN [KLUNG2.BAS] SET PORTA.1 bsf LATA,1,0 bra _LBL__276 _LBL__275 F1_001034 equ $ ; IN [KLUNG2.BAS] ELSE F1_001035 equ $ ; IN [KLUNG2.BAS] SET PORTA.2 bsf LATA,2,0 F1_001036 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__276 F1_001037 equ $ ; IN [KLUNG2.BAS] TOGGLE LR0 btg LRword,0,0 F1_001038 equ $ ; IN [KLUNG2.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_001039 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.0 bsf Velflags,0,0 F1_001040 equ $ ; IN [KLUNG2.BAS] END IF _LBL__273 F1_001041 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__270 goto _LBL__262 _LBL__263 F1_001042 equ $ ; IN [KLUNG2.BAS] CASE 1 movlw 1 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__278 F1_001043 equ $ ; IN [KLUNG2.BAS] IF LR1 = 0 THEN btfsc LRword,1,0 bra _LBL__280 F1_001044 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 bra _LBL__281 _LBL__280 F1_001045 equ $ ; IN [KLUNG2.BAS] ELSE F1_001046 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001047 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__281 F1_001048 equ $ ; IN [KLUNG2.BAS] IF NOTES.1 = 0 THEN btfsc notes,1,0 bra _LBL__283 F1_001049 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 F1_001050 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[1] setf TimVals#1HHH,1 setf TimVals#1HH,1 setf TimVals#1H,1 setf TimVals#1,1 bra _LBL__284 _LBL__283 F1_001051 equ $ ; IN [KLUNG2.BAS] ELSE F1_001052 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.1 = 1 THEN btfss Velflags,1,0 bra _LBL__286 F1_001053 equ $ ; IN [KLUNG2.BAS] TIMVALS[1] = TIME + RATE1 movf Rate1,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate1H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#1HHH movff PBP#VAR0HH,TimVals#1HH movff PBP#VAR0H,TimVals#1H movff PBP#VAR0,TimVals#1 F1_001054 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.1 bcf Velflags,1,0 bra _LBL__287 _LBL__286 F1_001055 equ $ ; IN [KLUNG2.BAS] ELSE F1_001056 equ $ ; IN [KLUNG2.BAS] IF LR1 = 0 THEN btfsc LRword,1,0 bra _LBL__289 F1_001057 equ $ ; IN [KLUNG2.BAS] SET PORTA.3 bsf LATA,3,0 bra _LBL__290 _LBL__289 F1_001058 equ $ ; IN [KLUNG2.BAS] ELSE F1_001059 equ $ ; IN [KLUNG2.BAS] SET PORTA.0 bsf LATA,0,0 F1_001060 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__290 F1_001061 equ $ ; IN [KLUNG2.BAS] TOGGLE LR1 btg LRword,1,0 F1_001062 equ $ ; IN [KLUNG2.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_001063 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.1 bsf Velflags,1,0 F1_001064 equ $ ; IN [KLUNG2.BAS] END IF _LBL__287 F1_001065 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__284 goto _LBL__262 _LBL__278 F1_001066 equ $ ; IN [KLUNG2.BAS] CASE 2 movlw 2 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__292 F1_001067 equ $ ; IN [KLUNG2.BAS] IF LR2 = 0 THEN btfsc LRword,2,0 bra _LBL__294 F1_001068 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 bra _LBL__295 _LBL__294 F1_001069 equ $ ; IN [KLUNG2.BAS] ELSE F1_001070 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001071 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__295 F1_001072 equ $ ; IN [KLUNG2.BAS] IF NOTES.2 = 0 THEN btfsc notes,2,0 bra _LBL__297 F1_001073 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 F1_001074 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[2] setf TimVals#2HHH,1 setf TimVals#2HH,1 setf TimVals#2H,1 setf TimVals#2,1 bra _LBL__298 _LBL__297 F1_001075 equ $ ; IN [KLUNG2.BAS] ELSE F1_001076 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.2 = 1 THEN btfss Velflags,2,0 bra _LBL__300 F1_001077 equ $ ; IN [KLUNG2.BAS] TIMVALS[2] = TIME + RATE2 movf Rate2,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate2H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#2HHH movff PBP#VAR0HH,TimVals#2HH movff PBP#VAR0H,TimVals#2H movff PBP#VAR0,TimVals#2 F1_001078 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.2 bcf Velflags,2,0 bra _LBL__301 _LBL__300 F1_001079 equ $ ; IN [KLUNG2.BAS] ELSE F1_001080 equ $ ; IN [KLUNG2.BAS] IF LR2 = 0 THEN btfsc LRword,2,0 bra _LBL__303 F1_001081 equ $ ; IN [KLUNG2.BAS] SET PORTA.5 bsf LATA,5,0 bra _LBL__304 _LBL__303 F1_001082 equ $ ; IN [KLUNG2.BAS] ELSE F1_001083 equ $ ; IN [KLUNG2.BAS] SET PORTA.4 bsf LATA,4,0 F1_001084 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__304 F1_001085 equ $ ; IN [KLUNG2.BAS] TOGGLE LR2 btg LRword,2,0 F1_001086 equ $ ; IN [KLUNG2.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_001087 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.2 bsf Velflags,2,0 F1_001088 equ $ ; IN [KLUNG2.BAS] END IF _LBL__301 F1_001089 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__298 bra _LBL__262 _LBL__292 F1_001090 equ $ ; IN [KLUNG2.BAS] CASE 3 movlw 3 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__306 F1_001091 equ $ ; IN [KLUNG2.BAS] IF LR3 = 0 THEN btfsc LRword,3,0 bra _LBL__308 F1_001092 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 bra _LBL__309 _LBL__308 F1_001093 equ $ ; IN [KLUNG2.BAS] ELSE F1_001094 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_001095 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__309 F1_001096 equ $ ; IN [KLUNG2.BAS] IF NOTES.3 = 0 THEN btfsc notes,3,0 bra _LBL__311 F1_001097 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 F1_001098 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[3] setf TimVals#3HHH,1 setf TimVals#3HH,1 setf TimVals#3H,1 setf TimVals#3,1 bra _LBL__312 _LBL__311 F1_001099 equ $ ; IN [KLUNG2.BAS] ELSE F1_001100 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.3 = 1 THEN btfss Velflags,3,0 bra _LBL__314 F1_001101 equ $ ; IN [KLUNG2.BAS] TIMVALS[3] = TIME + RATE3 movf Rate3,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate3H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#3HHH movff PBP#VAR0HH,TimVals#3HH movff PBP#VAR0H,TimVals#3H movff PBP#VAR0,TimVals#3 F1_001102 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.3 bcf Velflags,3,0 bra _LBL__315 _LBL__314 F1_001103 equ $ ; IN [KLUNG2.BAS] ELSE F1_001104 equ $ ; IN [KLUNG2.BAS] IF LR3 = 0 THEN btfsc LRword,3,0 bra _LBL__317 F1_001105 equ $ ; IN [KLUNG2.BAS] SET PORTE.1 bsf LATE,1,0 bra _LBL__318 _LBL__317 F1_001106 equ $ ; IN [KLUNG2.BAS] ELSE F1_001107 equ $ ; IN [KLUNG2.BAS] SET PORTE.0 bsf LATE,0,0 F1_001108 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__318 F1_001109 equ $ ; IN [KLUNG2.BAS] TOGGLE LR3 btg LRword,3,0 F1_001110 equ $ ; IN [KLUNG2.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_001111 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.3 bsf Velflags,3,0 F1_001112 equ $ ; IN [KLUNG2.BAS] END IF _LBL__315 F1_001113 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__312 bra _LBL__262 _LBL__306 F1_001114 equ $ ; IN [KLUNG2.BAS] CASE 4 movlw 4 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__320 F1_001115 equ $ ; IN [KLUNG2.BAS] IF LR4 = 0 THEN btfsc LRword,4,0 bra _LBL__322 F1_001116 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 bra _LBL__323 _LBL__322 F1_001117 equ $ ; IN [KLUNG2.BAS] ELSE F1_001118 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001119 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__323 F1_001120 equ $ ; IN [KLUNG2.BAS] IF NOTES.4 = 0 THEN btfsc notes,4,0 bra _LBL__325 F1_001121 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 F1_001122 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[4] setf TimVals#4HHH,1 setf TimVals#4HH,1 setf TimVals#4H,1 setf TimVals#4,1 bra _LBL__326 _LBL__325 F1_001123 equ $ ; IN [KLUNG2.BAS] ELSE F1_001124 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.4 = 1 THEN btfss Velflags,4,0 bra _LBL__328 F1_001125 equ $ ; IN [KLUNG2.BAS] TIMVALS[4] = TIME + RATE4 movf Rate4,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate4H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#4HHH movff PBP#VAR0HH,TimVals#4HH movff PBP#VAR0H,TimVals#4H movff PBP#VAR0,TimVals#4 F1_001126 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.4 bcf Velflags,4,0 bra _LBL__329 _LBL__328 F1_001127 equ $ ; IN [KLUNG2.BAS] ELSE F1_001128 equ $ ; IN [KLUNG2.BAS] IF LR4 = 0 THEN btfsc LRword,4,0 bra _LBL__331 F1_001129 equ $ ; IN [KLUNG2.BAS] SET PORTB.4 bsf LATB,4,0 bra _LBL__332 _LBL__331 F1_001130 equ $ ; IN [KLUNG2.BAS] ELSE F1_001131 equ $ ; IN [KLUNG2.BAS] SET PORTE.2 bsf LATE,2,0 F1_001132 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__332 F1_001133 equ $ ; IN [KLUNG2.BAS] TOGGLE LR4 btg LRword,4,0 F1_001134 equ $ ; IN [KLUNG2.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_001135 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.4 bsf Velflags,4,0 F1_001136 equ $ ; IN [KLUNG2.BAS] END IF _LBL__329 F1_001137 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__326 bra _LBL__262 _LBL__320 F1_001138 equ $ ; IN [KLUNG2.BAS] CASE 5 movlw 5 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__334 F1_001139 equ $ ; IN [KLUNG2.BAS] IF LR5 = 0 THEN btfsc LRword,5,0 bra _LBL__336 F1_001140 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 bra _LBL__337 _LBL__336 F1_001141 equ $ ; IN [KLUNG2.BAS] ELSE F1_001142 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001143 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__337 F1_001144 equ $ ; IN [KLUNG2.BAS] IF NOTES.5 = 0 THEN btfsc notes,5,0 bra _LBL__339 F1_001145 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 F1_001146 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[5] setf TimVals#5HHH,1 setf TimVals#5HH,1 setf TimVals#5H,1 setf TimVals#5,1 bra _LBL__340 _LBL__339 F1_001147 equ $ ; IN [KLUNG2.BAS] ELSE F1_001148 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.5 = 1 THEN btfss Velflags,5,0 bra _LBL__342 F1_001149 equ $ ; IN [KLUNG2.BAS] TIMVALS[5] = TIME + RATE5 movf Rate5,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate5H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#5HHH movff PBP#VAR0HH,TimVals#5HH movff PBP#VAR0H,TimVals#5H movff PBP#VAR0,TimVals#5 F1_001150 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.5 bcf Velflags,5,0 bra _LBL__343 _LBL__342 F1_001151 equ $ ; IN [KLUNG2.BAS] ELSE F1_001152 equ $ ; IN [KLUNG2.BAS] IF LR5 = 0 THEN btfsc LRword,5,0 bra _LBL__345 F1_001153 equ $ ; IN [KLUNG2.BAS] SET PORTB.2 bsf LATB,2,0 bra _LBL__346 _LBL__345 F1_001154 equ $ ; IN [KLUNG2.BAS] ELSE F1_001155 equ $ ; IN [KLUNG2.BAS] SET PORTB.3 bsf LATB,3,0 F1_001156 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__346 F1_001157 equ $ ; IN [KLUNG2.BAS] TOGGLE LR5 btg LRword,5,0 F1_001158 equ $ ; IN [KLUNG2.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_001159 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.5 bsf Velflags,5,0 F1_001160 equ $ ; IN [KLUNG2.BAS] END IF _LBL__343 F1_001161 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__340 bra _LBL__262 _LBL__334 F1_001162 equ $ ; IN [KLUNG2.BAS] CASE 6 movlw 6 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__348 F1_001163 equ $ ; IN [KLUNG2.BAS] IF LR6 = 0 THEN btfsc LRword,6,0 bra _LBL__350 F1_001164 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 bra _LBL__351 _LBL__350 F1_001165 equ $ ; IN [KLUNG2.BAS] ELSE F1_001166 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001167 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__351 F1_001168 equ $ ; IN [KLUNG2.BAS] IF NOTES.6 = 0 THEN btfsc notes,6,0 bra _LBL__353 F1_001169 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 F1_001170 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[6] setf TimVals#6HHH,1 setf TimVals#6HH,1 setf TimVals#6H,1 setf TimVals#6,1 bra _LBL__354 _LBL__353 F1_001171 equ $ ; IN [KLUNG2.BAS] ELSE F1_001172 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.6 = 1 THEN btfss Velflags,6,0 bra _LBL__356 F1_001173 equ $ ; IN [KLUNG2.BAS] TIMVALS[6] = TIME + RATE6 movf Rate6,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate6H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#6HHH movff PBP#VAR0HH,TimVals#6HH movff PBP#VAR0H,TimVals#6H movff PBP#VAR0,TimVals#6 F1_001174 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.6 bcf Velflags,6,0 bra _LBL__357 _LBL__356 F1_001175 equ $ ; IN [KLUNG2.BAS] ELSE F1_001176 equ $ ; IN [KLUNG2.BAS] IF LR6 = 0 THEN btfsc LRword,6,0 bra _LBL__359 F1_001177 equ $ ; IN [KLUNG2.BAS] SET PORTB.0 bsf LATB,0,0 bra _LBL__360 _LBL__359 F1_001178 equ $ ; IN [KLUNG2.BAS] ELSE F1_001179 equ $ ; IN [KLUNG2.BAS] SET PORTB.1 bsf LATB,1,0 F1_001180 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__360 F1_001181 equ $ ; IN [KLUNG2.BAS] TOGGLE LR6 btg LRword,6,0 F1_001182 equ $ ; IN [KLUNG2.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_001183 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.6 bsf Velflags,6,0 F1_001184 equ $ ; IN [KLUNG2.BAS] END IF _LBL__357 F1_001185 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__354 bra _LBL__262 _LBL__348 F1_001186 equ $ ; IN [KLUNG2.BAS] CASE 7 movlw 7 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__362 F1_001187 equ $ ; IN [KLUNG2.BAS] IF LR7 = 0 THEN btfsc LRword,7,0 bra _LBL__364 F1_001188 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 bra _LBL__365 _LBL__364 F1_001189 equ $ ; IN [KLUNG2.BAS] ELSE F1_001190 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_001191 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__365 F1_001192 equ $ ; IN [KLUNG2.BAS] IF NOTES.7 = 0 THEN btfsc notes,7,0 bra _LBL__367 F1_001193 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 F1_001194 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[7] setf TimVals#7HHH,1 setf TimVals#7HH,1 setf TimVals#7H,1 setf TimVals#7,1 bra _LBL__368 _LBL__367 F1_001195 equ $ ; IN [KLUNG2.BAS] ELSE F1_001196 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.7 = 1 THEN btfss Velflags,7,0 bra _LBL__370 F1_001197 equ $ ; IN [KLUNG2.BAS] TIMVALS[7] = TIME + RATE7 movf Rate7,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate7H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#7HHH movff PBP#VAR0HH,TimVals#7HH movff PBP#VAR0H,TimVals#7H movff PBP#VAR0,TimVals#7 F1_001198 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.7 bcf Velflags,7,0 bra _LBL__371 _LBL__370 F1_001199 equ $ ; IN [KLUNG2.BAS] ELSE F1_001200 equ $ ; IN [KLUNG2.BAS] IF LR7 = 0 THEN btfsc LRword,7,0 bra _LBL__373 F1_001201 equ $ ; IN [KLUNG2.BAS] SET PORTD.6 bsf LATD,6,0 bra _LBL__374 _LBL__373 F1_001202 equ $ ; IN [KLUNG2.BAS] ELSE F1_001203 equ $ ; IN [KLUNG2.BAS] SET PORTD.7 bsf LATD,7,0 F1_001204 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__374 F1_001205 equ $ ; IN [KLUNG2.BAS] TOGGLE LR7 btg LRword,7,0 F1_001206 equ $ ; IN [KLUNG2.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_001207 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.7 bsf Velflags,7,0 F1_001208 equ $ ; IN [KLUNG2.BAS] END IF _LBL__371 F1_001209 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__368 bra _LBL__262 _LBL__362 F1_001210 equ $ ; IN [KLUNG2.BAS] CASE 8 movlw 8 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__376 F1_001211 equ $ ; IN [KLUNG2.BAS] IF LR8 = 0 THEN btfsc LRwordH,0,0 bra _LBL__378 F1_001212 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 bra _LBL__379 _LBL__378 F1_001213 equ $ ; IN [KLUNG2.BAS] ELSE F1_001214 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_001215 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__379 F1_001216 equ $ ; IN [KLUNG2.BAS] IF NOTES.8 = 0 THEN btfsc notesH,0,0 bra _LBL__381 F1_001217 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 F1_001218 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[8] setf TimVals#8HHH,1 setf TimVals#8HH,1 setf TimVals#8H,1 setf TimVals#8,1 bra _LBL__382 _LBL__381 F1_001219 equ $ ; IN [KLUNG2.BAS] ELSE F1_001220 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.8 = 1 THEN btfss VelflagsH,0,0 bra _LBL__384 F1_001221 equ $ ; IN [KLUNG2.BAS] TIMVALS[8] = TIME + RATE8 movf Rate8,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate8H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_001222 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.8 bcf VelflagsH,0,0 bra _LBL__385 _LBL__384 F1_001223 equ $ ; IN [KLUNG2.BAS] ELSE F1_001224 equ $ ; IN [KLUNG2.BAS] IF LR8 = 0 THEN btfsc LRwordH,0,0 bra _LBL__387 F1_001225 equ $ ; IN [KLUNG2.BAS] SET PORTD.4 bsf LATD,4,0 bra _LBL__388 _LBL__387 F1_001226 equ $ ; IN [KLUNG2.BAS] ELSE F1_001227 equ $ ; IN [KLUNG2.BAS] SET PORTD.5 bsf LATD,5,0 F1_001228 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__388 F1_001229 equ $ ; IN [KLUNG2.BAS] TOGGLE LR8 btg LRwordH,0,0 F1_001230 equ $ ; IN [KLUNG2.BAS] TIMVALS[8] = TIME + VELO8 movf velo8,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo8H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#8HHH movff PBP#VAR0HH,TimVals#8HH movff PBP#VAR0H,TimVals#8H movff PBP#VAR0,TimVals#8 F1_001231 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.8 bsf VelflagsH,0,0 F1_001232 equ $ ; IN [KLUNG2.BAS] END IF _LBL__385 F1_001233 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__382 bra _LBL__262 _LBL__376 F1_001234 equ $ ; IN [KLUNG2.BAS] CASE 9 movlw 9 subwf idx,W,0 btfss STATUS,2,0 bra _LBL__390 F1_001235 equ $ ; IN [KLUNG2.BAS] IF LR9 = 0 THEN btfsc LRwordH,1,0 bra _LBL__392 F1_001236 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 bra _LBL__393 _LBL__392 F1_001237 equ $ ; IN [KLUNG2.BAS] ELSE F1_001238 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001239 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__393 F1_001240 equ $ ; IN [KLUNG2.BAS] IF NOTES.9 = 0 THEN btfsc notesH,1,0 bra _LBL__395 F1_001241 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 F1_001242 equ $ ; IN [KLUNG2.BAS] SET TIMVALS[9] setf TimVals#9HHH,1 setf TimVals#9HH,1 setf TimVals#9H,1 setf TimVals#9,1 bra _LBL__396 _LBL__395 F1_001243 equ $ ; IN [KLUNG2.BAS] ELSE F1_001244 equ $ ; IN [KLUNG2.BAS] IF VELFLAGS.9 = 1 THEN btfss VelflagsH,1,0 bra _LBL__398 F1_001245 equ $ ; IN [KLUNG2.BAS] TIMVALS[9] = TIME + RATE9 movf Rate9,W,1 addwf time,W,0 movwf PBP#VAR0,0 movf Rate9H,W,1 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_001246 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS.9 bcf VelflagsH,1,0 bra _LBL__399 _LBL__398 F1_001247 equ $ ; IN [KLUNG2.BAS] ELSE F1_001248 equ $ ; IN [KLUNG2.BAS] IF LR9 = 0 THEN btfsc LRwordH,1,0 bra _LBL__401 F1_001249 equ $ ; IN [KLUNG2.BAS] SET PORTC.4 bsf LATC,4,0 bra _LBL__402 _LBL__401 F1_001250 equ $ ; IN [KLUNG2.BAS] ELSE F1_001251 equ $ ; IN [KLUNG2.BAS] SET PORTC.5 bsf LATC,5,0 F1_001252 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__402 F1_001253 equ $ ; IN [KLUNG2.BAS] TOGGLE LR9 btg LRwordH,1,0 F1_001254 equ $ ; IN [KLUNG2.BAS] TIMVALS[9] = TIME + VELO9 movf velo9,W,0 addwf time,W,0 movwf PBP#VAR0,0 movf velo9H,W,0 addwfc timeH,W,0 movwf PBP#VAR0H,0 movlw 0 addwfc timeHH,W,0 movwf PBP#VAR0HH,0 movlw 0 addwfc timeHHH,W,0 movwf PBP#VAR0HHH,0 movff PBP#VAR0HHH,TimVals#9HHH movff PBP#VAR0HH,TimVals#9HH movff PBP#VAR0H,TimVals#9H movff PBP#VAR0,TimVals#9 F1_001255 equ $ ; IN [KLUNG2.BAS] SET VELFLAGS.9 bsf VelflagsH,1,0 F1_001256 equ $ ; IN [KLUNG2.BAS] END IF _LBL__399 F1_001257 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__396 F1_001309 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__390 _LBL__262 F1_001310 equ $ ; IN [KLUNG2.BAS] GOSUB SORTTIMERS rcall SortTimers F1_001312 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__261 F1_001314 equ $ ; IN [KLUNG2.BAS] IF MAXTIM = 1 THEN btfss timeHHH,7,0 bra _LBL__404 F1_001315 equ $ ; IN [KLUNG2.BAS] CLEAR TIME clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 F1_001316 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001317 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001318 equ $ ; IN [KLUNG2.BAS] SET TIMVALS lfsr 0,TimVals movlw 40 setf POSTINC0,0 decfsz WREG,F,0 bra $ - 4 F1_001319 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__404 bra _LBL__405 _LBL__259 F1_001320 equ $ ; IN [KLUNG2.BAS] ELSE F1_001322 equ $ ; IN [KLUNG2.BAS] IF MAXTIM = 1 THEN CLEAR TIME btfss timeHHH,7,0 bra _LBL__407 clrf timeHHH,0 clrf timeHH,0 clrf timeH,0 clrf time,0 _LBL__407 F1_001323 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__405 F1_001326 equ $ ; IN [KLUNG2.BAS] GOTO LOOP goto LOOP SortTimers F1_001332 equ $ ; IN [KLUNG2.BAS] SET IDX setf idx,0 F1_001333 equ $ ; IN [KLUNG2.BAS] SET NXT.31 bsf NxtHHH,7,0 F1_001334 equ $ ; IN [KLUNG2.BAS] FOR I = 0 TO 9 clrf _I,1 _FRLB__408 movlw 10 subwf _I,W,1 bc _NXLB__409 F1_001335 equ $ ; IN [KLUNG2.BAS] IF TIMVALS[I] < NXT THEN bcf STATUS,0,0 rlcf _I,W,1 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 160 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__412 F1_001336 equ $ ; IN [KLUNG2.BAS] NXT = TIMVALS[I] bcf STATUS,0,0 rlcf _I,W,1 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 160 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_001337 equ $ ; IN [KLUNG2.BAS] IDX = I movff _I,idx F1_001338 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__412 _CTLB__410 F1_001339 equ $ ; IN [KLUNG2.BAS] NEXT I incf _I,F,1 bnc _FRLB__408 _NXLB__409 F1_001340 equ $ ; IN [KLUNG2.BAS] RETURN return 0 KeyPres F1_001345 equ $ ; IN [KLUNG2.BAS] SELECT NOTEPRES F1_001346 equ $ ; IN [KLUNG2.BAS] CASE NOOT0 movlw 60 subwf notePres,W,0 bnz _LBL__414 F1_001347 equ $ ; IN [KLUNG2.BAS] PRES0 = PRES movff pres,Pres0 F1_001348 equ $ ; IN [KLUNG2.BAS] IF PRES0 > 0 THEN movf Pres0,F,1 bz _LBL__417 F1_001349 equ $ ; IN [KLUNG2.BAS] RATE0 = DUR[PRES0] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres0,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate0 movff INDF0,Rate0H bra _LBL__418 _LBL__417 F1_001352 equ $ ; IN [KLUNG2.BAS] ELSE F1_001353 equ $ ; IN [KLUNG2.BAS] CLEAR RATE0 clrf Rate0H,1 clrf Rate0,1 F1_001354 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.0 bcf notes,0,0 F1_001355 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__418 bra _LBL__413 _LBL__414 F1_001356 equ $ ; IN [KLUNG2.BAS] CASE NOOT1 movlw 61 subwf notePres,W,0 bnz _LBL__420 F1_001357 equ $ ; IN [KLUNG2.BAS] PRES1 = PRES movff pres,Pres1 F1_001358 equ $ ; IN [KLUNG2.BAS] IF PRES1 > 0 THEN movf Pres1,F,1 bz _LBL__422 F1_001359 equ $ ; IN [KLUNG2.BAS] RATE1 = DUR[PRES1] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres1,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate1 movff INDF0,Rate1H bra _LBL__423 _LBL__422 F1_001360 equ $ ; IN [KLUNG2.BAS] ELSE F1_001361 equ $ ; IN [KLUNG2.BAS] CLEAR RATE1 clrf Rate1H,1 clrf Rate1,1 F1_001362 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.1 bcf notes,1,0 F1_001363 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__423 bra _LBL__413 _LBL__420 F1_001364 equ $ ; IN [KLUNG2.BAS] CASE NOOT2 movlw 62 subwf notePres,W,0 bnz _LBL__425 F1_001365 equ $ ; IN [KLUNG2.BAS] PRES2 = PRES movff pres,Pres2 F1_001366 equ $ ; IN [KLUNG2.BAS] IF PRES2 > 0 THEN movf Pres2,F,1 bz _LBL__427 F1_001367 equ $ ; IN [KLUNG2.BAS] RATE2 = DUR[PRES2] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres2,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate2 movff INDF0,Rate2H bra _LBL__428 _LBL__427 F1_001368 equ $ ; IN [KLUNG2.BAS] ELSE F1_001369 equ $ ; IN [KLUNG2.BAS] CLEAR RATE2 clrf Rate2H,1 clrf Rate2,1 F1_001370 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.2 bcf notes,2,0 F1_001371 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__428 bra _LBL__413 _LBL__425 F1_001372 equ $ ; IN [KLUNG2.BAS] CASE NOOT3 movlw 63 subwf notePres,W,0 bnz _LBL__430 F1_001373 equ $ ; IN [KLUNG2.BAS] PRES3 = PRES movff pres,Pres3 F1_001374 equ $ ; IN [KLUNG2.BAS] IF PRES3 > 0 THEN movf Pres3,F,1 bz _LBL__432 F1_001375 equ $ ; IN [KLUNG2.BAS] RATE3 = DUR[PRES3] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres3,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate3 movff INDF0,Rate3H bra _LBL__433 _LBL__432 F1_001376 equ $ ; IN [KLUNG2.BAS] ELSE F1_001377 equ $ ; IN [KLUNG2.BAS] CLEAR RATE3 clrf Rate3H,1 clrf Rate3,1 F1_001378 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.3 bcf notes,3,0 F1_001379 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__433 bra _LBL__413 _LBL__430 F1_001380 equ $ ; IN [KLUNG2.BAS] CASE NOOT4 movlw 64 subwf notePres,W,0 bnz _LBL__435 F1_001381 equ $ ; IN [KLUNG2.BAS] PRES4 = PRES movff pres,Pres4 F1_001382 equ $ ; IN [KLUNG2.BAS] IF PRES4 > 0 THEN movf Pres4,F,1 bz _LBL__437 F1_001383 equ $ ; IN [KLUNG2.BAS] RATE4 = DUR[PRES4] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres4,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate4 movff INDF0,Rate4H bra _LBL__438 _LBL__437 F1_001384 equ $ ; IN [KLUNG2.BAS] ELSE F1_001385 equ $ ; IN [KLUNG2.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001386 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.4 bcf notes,4,0 F1_001387 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__438 bra _LBL__413 _LBL__435 F1_001388 equ $ ; IN [KLUNG2.BAS] CASE NOOT5 movlw 65 subwf notePres,W,0 bnz _LBL__440 F1_001389 equ $ ; IN [KLUNG2.BAS] PRES5 = PRES movff pres,Pres5 F1_001390 equ $ ; IN [KLUNG2.BAS] IF PRES5 > 0 THEN movf Pres5,F,1 bz _LBL__442 F1_001391 equ $ ; IN [KLUNG2.BAS] RATE5 = DUR[PRES5] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres5,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate5 movff INDF0,Rate5H bra _LBL__443 _LBL__442 F1_001392 equ $ ; IN [KLUNG2.BAS] ELSE F1_001393 equ $ ; IN [KLUNG2.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001394 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.5 bcf notes,5,0 F1_001395 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__443 bra _LBL__413 _LBL__440 F1_001396 equ $ ; IN [KLUNG2.BAS] CASE NOOT6 movlw 66 subwf notePres,W,0 bnz _LBL__445 F1_001397 equ $ ; IN [KLUNG2.BAS] PRES6 = PRES movff pres,Pres6 F1_001398 equ $ ; IN [KLUNG2.BAS] IF PRES6 > 0 THEN movf Pres6,F,1 bz _LBL__447 F1_001399 equ $ ; IN [KLUNG2.BAS] RATE6 = DUR[PRES6] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres6,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate6 movff INDF0,Rate6H bra _LBL__448 _LBL__447 F1_001400 equ $ ; IN [KLUNG2.BAS] ELSE F1_001401 equ $ ; IN [KLUNG2.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001402 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.6 bcf notes,6,0 F1_001403 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__448 bra _LBL__413 _LBL__445 F1_001404 equ $ ; IN [KLUNG2.BAS] CASE NOOT7 movlw 67 subwf notePres,W,0 bnz _LBL__450 F1_001405 equ $ ; IN [KLUNG2.BAS] PRES7 = PRES movff pres,Pres7 F1_001406 equ $ ; IN [KLUNG2.BAS] IF PRES7 > 0 THEN movf Pres7,F,1 bz _LBL__452 F1_001407 equ $ ; IN [KLUNG2.BAS] RATE7 = DUR[PRES7] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres7,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate7 movff INDF0,Rate7H bra _LBL__453 _LBL__452 F1_001408 equ $ ; IN [KLUNG2.BAS] ELSE F1_001409 equ $ ; IN [KLUNG2.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001410 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.7 bcf notes,7,0 F1_001411 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__453 bra _LBL__413 _LBL__450 F1_001412 equ $ ; IN [KLUNG2.BAS] CASE NOOT8 movlw 68 subwf notePres,W,0 bnz _LBL__455 F1_001413 equ $ ; IN [KLUNG2.BAS] PRES8 = PRES movff pres,Pres8 F1_001414 equ $ ; IN [KLUNG2.BAS] IF PRES8 > 0 THEN movf Pres8,F,1 bz _LBL__457 F1_001415 equ $ ; IN [KLUNG2.BAS] RATE8 = DUR[PRES8] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres8,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate8 movff INDF0,Rate8H bra _LBL__458 _LBL__457 F1_001416 equ $ ; IN [KLUNG2.BAS] ELSE F1_001417 equ $ ; IN [KLUNG2.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001418 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.8 bcf notesH,0,0 F1_001419 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__458 bra _LBL__413 _LBL__455 F1_001420 equ $ ; IN [KLUNG2.BAS] CASE NOOT9 movlw 69 subwf notePres,W,0 bnz _LBL__460 F1_001421 equ $ ; IN [KLUNG2.BAS] PRES9 = PRES movff pres,Pres9 F1_001422 equ $ ; IN [KLUNG2.BAS] IF PRES9 > 0 THEN movf Pres9,F,1 bz _LBL__462 F1_001423 equ $ ; IN [KLUNG2.BAS] RATE9 = DUR[PRES9] lfsr 0,Dur bcf STATUS,0,0 rlcf Pres9,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate9 movff INDF0,Rate9H bra _LBL__463 _LBL__462 F1_001424 equ $ ; IN [KLUNG2.BAS] ELSE F1_001425 equ $ ; IN [KLUNG2.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001426 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES.9 bcf notesH,1,0 F1_001427 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__463 F1_001444 equ $ ; IN [KLUNG2.BAS] ENDSELECT _LBL__460 _LBL__413 F1_001446 equ $ ; IN [KLUNG2.BAS] SET NOTEPRES setf notePres,0 F1_001447 equ $ ; IN [KLUNG2.BAS] RETURN return 0 ProgChange F1_001450 equ $ ; IN [KLUNG2.BAS] SELECT CASE PROG F1_001451 equ $ ; IN [KLUNG2.BAS] CASE 0 movf prog,F,0 bnz _LBL__465 F1_001452 equ $ ; IN [KLUNG2.BAS] IF OLDPROG <> 0 THEN movf oldprog,F,1 bz _LBL__468 F1_001453 equ $ ; IN [KLUNG2.BAS] GOSUB VELS_LOOKUP call Vels_Lookup F1_001454 equ $ ; IN [KLUNG2.BAS] OLDPROG = PROG movff prog,oldprog F1_001455 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__468 bra _LBL__464 _LBL__465 F1_001456 equ $ ; IN [KLUNG2.BAS] CASE 122 movlw 122 subwf prog,W,0 bnz _LBL__470 F1_001457 equ $ ; IN [KLUNG2.BAS] IF OLDPROG <> 122 THEN movlw 122 subwf oldprog,W,1 bz _LBL__472 F1_001458 equ $ ; IN [KLUNG2.BAS] GOSUB VELS_LOOKUP_122 call Vels_Lookup_122 F1_001459 equ $ ; IN [KLUNG2.BAS] OLDPROG = PROG movff prog,oldprog F1_001460 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__472 F1_001461 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__470 _LBL__464 F1_001462 equ $ ; IN [KLUNG2.BAS] SET PROG setf prog,0 F1_001463 equ $ ; IN [KLUNG2.BAS] RETURN return 0 Controller F1_001489 equ $ ; IN [KLUNG2.BAS] SELECT CTRL F1_001490 equ $ ; IN [KLUNG2.BAS] CASE 30 movlw 30 subwf Ctrl,W,0 btfss STATUS,2,0 bra _LBL__474 F1_001493 equ $ ; IN [KLUNG2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__477 F1_001494 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001495 equ $ ; IN [KLUNG2.BAS] CLEAR RATE0 clrf Rate0H,1 clrf Rate0,1 F1_001496 equ $ ; IN [KLUNG2.BAS] CLEAR PRES0 clrf Pres0,1 F1_001497 equ $ ; IN [KLUNG2.BAS] CLEAR RATE1 clrf Rate1H,1 clrf Rate1,1 F1_001498 equ $ ; IN [KLUNG2.BAS] CLEAR PRES1 clrf Pres1,1 F1_001499 equ $ ; IN [KLUNG2.BAS] CLEAR RATE2 clrf Rate2H,1 clrf Rate2,1 F1_001500 equ $ ; IN [KLUNG2.BAS] CLEAR PRES2 clrf Pres2,1 F1_001501 equ $ ; IN [KLUNG2.BAS] CLEAR RATE3 clrf Rate3H,1 clrf Rate3,1 F1_001502 equ $ ; IN [KLUNG2.BAS] CLEAR PRES3 clrf Pres3,1 F1_001503 equ $ ; IN [KLUNG2.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001504 equ $ ; IN [KLUNG2.BAS] CLEAR PRES4 clrf Pres4,1 F1_001505 equ $ ; IN [KLUNG2.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001506 equ $ ; IN [KLUNG2.BAS] CLEAR PRES5 clrf Pres5,1 F1_001507 equ $ ; IN [KLUNG2.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001508 equ $ ; IN [KLUNG2.BAS] CLEAR PRES6 clrf Pres6,1 F1_001509 equ $ ; IN [KLUNG2.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001510 equ $ ; IN [KLUNG2.BAS] CLEAR PRES7 clrf Pres7,1 F1_001511 equ $ ; IN [KLUNG2.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001512 equ $ ; IN [KLUNG2.BAS] CLEAR PRES8 clrf Pres8,1 F1_001513 equ $ ; IN [KLUNG2.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001514 equ $ ; IN [KLUNG2.BAS] CLEAR PRES9 clrf Pres9,1 bra _LBL__478 _LBL__477 F1_001519 equ $ ; IN [KLUNG2.BAS] ELSE F1_001520 equ $ ; IN [KLUNG2.BAS] PRES0 = VALUE movff value,Pres0 F1_001521 equ $ ; IN [KLUNG2.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_001522 equ $ ; IN [KLUNG2.BAS] PRES1 = VALUE movff value,Pres1 F1_001523 equ $ ; IN [KLUNG2.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_001524 equ $ ; IN [KLUNG2.BAS] PRES2 = VALUE movff value,Pres2 F1_001525 equ $ ; IN [KLUNG2.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_001526 equ $ ; IN [KLUNG2.BAS] PRES3 = VALUE movff value,Pres3 F1_001527 equ $ ; IN [KLUNG2.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_001528 equ $ ; IN [KLUNG2.BAS] PRES4 = VALUE movff value,Pres4 F1_001529 equ $ ; IN [KLUNG2.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_001530 equ $ ; IN [KLUNG2.BAS] PRES5 = VALUE movff value,Pres5 F1_001531 equ $ ; IN [KLUNG2.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_001532 equ $ ; IN [KLUNG2.BAS] PRES6 = VALUE movff value,Pres6 F1_001533 equ $ ; IN [KLUNG2.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_001534 equ $ ; IN [KLUNG2.BAS] PRES7 = VALUE movff value,Pres7 F1_001535 equ $ ; IN [KLUNG2.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_001536 equ $ ; IN [KLUNG2.BAS] PRES8 = VALUE movff value,Pres8 F1_001537 equ $ ; IN [KLUNG2.BAS] RATE8 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate8 movff INDF0,Rate8H F1_001538 equ $ ; IN [KLUNG2.BAS] PRES9 = VALUE movff value,Pres9 F1_001539 equ $ ; IN [KLUNG2.BAS] RATE9 = DUR[VALUE] lfsr 0,Dur bcf STATUS,0,0 rlcf value,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,Rate9 movff INDF0,Rate9H F1_001544 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__478 bra _LBL__473 _LBL__474 F1_001545 equ $ ; IN [KLUNG2.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__480 F1_001546 equ $ ; IN [KLUNG2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__482 F1_001547 equ $ ; IN [KLUNG2.BAS] CLEAR POWERON bcf CC66,0,0 F1_001548 equ $ ; IN [KLUNG2.BAS] GOSUB POWERDOWN rcall PowerDown bra _LBL__483 _LBL__482 F1_001549 equ $ ; IN [KLUNG2.BAS] ELSE F1_001550 equ $ ; IN [KLUNG2.BAS] SET POWERON bsf CC66,0,0 F1_001551 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__483 bra _LBL__473 _LBL__480 F1_001552 equ $ ; IN [KLUNG2.BAS] CASE 67 movlw 67 subwf Ctrl,W,0 bnz _LBL__485 F1_001554 equ $ ; IN [KLUNG2.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__487 F1_001555 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.1 bcf LATD,1,0 bra _LBL__488 _LBL__487 F1_001556 equ $ ; IN [KLUNG2.BAS] ELSE F1_001557 equ $ ; IN [KLUNG2.BAS] SET PORTD.1 bsf LATD,1,0 F1_001558 equ $ ; IN [KLUNG2.BAS] ENDIF _LBL__488 bra _LBL__473 _LBL__485 F1_001559 equ $ ; IN [KLUNG2.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 btfsc STATUS,2,0 F1_001560 equ $ ; IN [KLUNG2.BAS] GOSUB NOTENUIT rcall NotenUit F1_001561 equ $ ; IN [KLUNG2.BAS] END SELECT _LBL__490 _LBL__473 F1_001562 equ $ ; IN [KLUNG2.BAS] SET CTRL setf Ctrl,0 F1_001563 equ $ ; IN [KLUNG2.BAS] RETURN return 0 PowerDown F1_001567 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.1 bcf LATD,1,0 F1_001568 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001569 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001571 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001572 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001573 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001574 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_001575 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001576 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001577 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001578 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_001579 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_001580 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001583 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001584 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001585 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001586 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_001587 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_001588 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001589 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001590 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_001591 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_001592 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001596 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_001597 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001599 equ $ ; IN [KLUNG2.BAS] CLEAR RATE0 clrf Rate0H,1 clrf Rate0,1 F1_001600 equ $ ; IN [KLUNG2.BAS] CLEAR PRES0 clrf Pres0,1 F1_001601 equ $ ; IN [KLUNG2.BAS] CLEAR RATE1 clrf Rate1H,1 clrf Rate1,1 F1_001602 equ $ ; IN [KLUNG2.BAS] CLEAR PRES1 clrf Pres1,1 F1_001603 equ $ ; IN [KLUNG2.BAS] CLEAR RATE2 clrf Rate2H,1 clrf Rate2,1 F1_001604 equ $ ; IN [KLUNG2.BAS] CLEAR PRES2 clrf Pres2,1 F1_001605 equ $ ; IN [KLUNG2.BAS] CLEAR RATE3 clrf Rate3H,1 clrf Rate3,1 F1_001606 equ $ ; IN [KLUNG2.BAS] CLEAR PRES3 clrf Pres3,1 F1_001607 equ $ ; IN [KLUNG2.BAS] CLEAR RATE4 clrf Rate4H,1 clrf Rate4,1 F1_001608 equ $ ; IN [KLUNG2.BAS] CLEAR PRES4 clrf Pres4,1 F1_001609 equ $ ; IN [KLUNG2.BAS] CLEAR RATE5 clrf Rate5H,1 clrf Rate5,1 F1_001610 equ $ ; IN [KLUNG2.BAS] CLEAR PRES5 clrf Pres5,1 F1_001611 equ $ ; IN [KLUNG2.BAS] CLEAR RATE6 clrf Rate6H,1 clrf Rate6,1 F1_001612 equ $ ; IN [KLUNG2.BAS] CLEAR PRES6 clrf Pres6,1 F1_001613 equ $ ; IN [KLUNG2.BAS] CLEAR RATE7 clrf Rate7H,1 clrf Rate7,1 F1_001614 equ $ ; IN [KLUNG2.BAS] CLEAR PRES7 clrf Pres7,1 F1_001615 equ $ ; IN [KLUNG2.BAS] CLEAR RATE8 clrf Rate8H,1 clrf Rate8,1 F1_001616 equ $ ; IN [KLUNG2.BAS] CLEAR PRES8 clrf Pres8,1 F1_001617 equ $ ; IN [KLUNG2.BAS] CLEAR RATE9 clrf Rate9H,1 clrf Rate9,1 F1_001618 equ $ ; IN [KLUNG2.BAS] CLEAR PRES9 clrf Pres9,1 F1_001624 equ $ ; IN [KLUNG2.BAS] CLEAR OLDPROG clrf oldprog,1 F1_001625 equ $ ; IN [KLUNG2.BAS] GOSUB VELS_LOOKUP goto Vels_Lookup NotenUit F1_001629 equ $ ; IN [KLUNG2.BAS] CLEAR VELFLAGS clrf VelflagsH,0 clrf Velflags,0 F1_001630 equ $ ; IN [KLUNG2.BAS] CLEAR NOTES clrf notesH,0 clrf notes,0 F1_001631 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.1 bcf LATA,1,0 F1_001632 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.3 bcf LATA,3,0 F1_001633 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.5 bcf LATA,5,0 F1_001634 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.1 bcf LATE,1,0 F1_001635 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.4 bcf LATB,4,0 F1_001636 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_001637 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.0 bcf LATB,0,0 F1_001638 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.6 bcf LATD,6,0 F1_001639 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.4 bcf LATD,4,0 F1_001640 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_001643 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.2 bcf LATA,2,0 F1_001644 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.0 bcf LATA,0,0 F1_001645 equ $ ; IN [KLUNG2.BAS] CLEAR PORTA.4 bcf LATA,4,0 F1_001646 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.0 bcf LATE,0,0 F1_001647 equ $ ; IN [KLUNG2.BAS] CLEAR PORTE.2 bcf LATE,2,0 F1_001648 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.3 bcf LATB,3,0 F1_001649 equ $ ; IN [KLUNG2.BAS] CLEAR PORTB.1 bcf LATB,1,0 F1_001650 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.7 bcf LATD,7,0 F1_001651 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.5 bcf LATD,5,0 F1_001652 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_001655 equ $ ; IN [KLUNG2.BAS] CLEAR PORTD.0 bcf LATD,0,0 F1_001656 equ $ ; IN [KLUNG2.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_001658 equ $ ; IN [KLUNG2.BAS] RETURN return 0 Dur_Lookup F1_001663 equ $ ; IN [KLUNG2.BAS] SET DUR[0] movlb 3 setf Dur#0H,1 setf Dur#0,1 F1_001664 equ $ ; IN [KLUNG2.BAS] DUR[1] = 43592 movlw 170 movwf Dur#1H,1 movlw 72 movwf Dur#1,1 F1_001665 equ $ ; IN [KLUNG2.BAS] DUR[2] = 42188 movlw 164 movwf Dur#2H,1 movlw 204 movwf Dur#2,1 F1_001666 equ $ ; IN [KLUNG2.BAS] DUR[3] = 41502 movlw 162 movwf Dur#3H,1 movlw 30 movwf Dur#3,1 F1_001667 equ $ ; IN [KLUNG2.BAS] DUR[4] = 40828 movlw 159 movwf Dur#4H,1 movlw 124 movwf Dur#4,1 F1_001668 equ $ ; IN [KLUNG2.BAS] DUR[5] = 40165 movlw 156 movwf Dur#5H,1 movlw 229 movwf Dur#5,1 F1_001669 equ $ ; IN [KLUNG2.BAS] DUR[6] = 39513 movlw 154 movwf Dur#6H,1 movlw 89 movwf Dur#6,1 F1_001670 equ $ ; IN [KLUNG2.BAS] DUR[7] = 38871 movlw 151 movwf Dur#7H,1 movlw 215 movwf Dur#7,1 F1_001671 equ $ ; IN [KLUNG2.BAS] DUR[8] = 38240 movlw 149 movwf Dur#8H,1 movlw 96 movwf Dur#8,1 F1_001672 equ $ ; IN [KLUNG2.BAS] DUR[9] = 37619 movlw 146 movwf Dur#9H,1 movlw 243 movwf Dur#9,1 F1_001673 equ $ ; IN [KLUNG2.BAS] DUR[10] = 37008 movlw 144 movwf Dur#10H,1 movwf Dur#10,1 F1_001674 equ $ ; IN [KLUNG2.BAS] DUR[11] = 36407 movlw 142 movwf Dur#11H,1 movlw 55 movwf Dur#11,1 F1_001675 equ $ ; IN [KLUNG2.BAS] DUR[12] = 35816 movlw 139 movwf Dur#12H,1 movlw 232 movwf Dur#12,1 F1_001676 equ $ ; IN [KLUNG2.BAS] DUR[13] = 35234 movlw 137 movwf Dur#13H,1 movlw 162 movwf Dur#13,1 F1_001677 equ $ ; IN [KLUNG2.BAS] DUR[14] = 34662 movlw 135 movwf Dur#14H,1 movlw 102 movwf Dur#14,1 F1_001678 equ $ ; IN [KLUNG2.BAS] DUR[15] = 34099 movlw 133 movwf Dur#15H,1 movlw 51 movwf Dur#15,1 F1_001679 equ $ ; IN [KLUNG2.BAS] DUR[16] = 33545 movlw 131 movwf Dur#16H,1 movlw 9 movwf Dur#16,1 F1_001680 equ $ ; IN [KLUNG2.BAS] DUR[17] = 33001 movlw 128 movwf Dur#17H,1 movlw 233 movwf Dur#17,1 F1_001681 equ $ ; IN [KLUNG2.BAS] DUR[18] = 32465 movlw 126 movwf Dur#18H,1 movlw 209 movwf Dur#18,1 F1_001682 equ $ ; IN [KLUNG2.BAS] DUR[19] = 31937 movlw 124 movwf Dur#19H,1 movlw 193 movwf Dur#19,1 F1_001683 equ $ ; IN [KLUNG2.BAS] DUR[20] = 31419 movlw 122 movwf Dur#20H,1 movlw 187 movwf Dur#20,1 F1_001684 equ $ ; IN [KLUNG2.BAS] DUR[21] = 30908 movlw 120 movwf Dur#21H,1 movlw 188 movwf Dur#21,1 F1_001685 equ $ ; IN [KLUNG2.BAS] DUR[22] = 30406 movlw 118 movwf Dur#22H,1 movlw 198 movwf Dur#22,1 F1_001686 equ $ ; IN [KLUNG2.BAS] DUR[23] = 29913 movlw 116 movwf Dur#23H,1 movlw 217 movwf Dur#23,1 F1_001687 equ $ ; IN [KLUNG2.BAS] DUR[24] = 29427 movlw 114 movwf Dur#24H,1 movlw 243 movwf Dur#24,1 F1_001688 equ $ ; IN [KLUNG2.BAS] DUR[25] = 28949 movlw 113 movwf Dur#25H,1 movlw 21 movwf Dur#25,1 F1_001689 equ $ ; IN [KLUNG2.BAS] DUR[26] = 28479 movlw 111 movwf Dur#26H,1 movlw 63 movwf Dur#26,1 F1_001690 equ $ ; IN [KLUNG2.BAS] DUR[27] = 28016 movlw 109 movlb 4 movwf Dur#27H,1 movlw 112 movlb 3 movwf Dur#27,1 F1_001691 equ $ ; IN [KLUNG2.BAS] DUR[28] = 27561 movlw 107 movlb 4 movwf Dur#28H,1 movlw 169 movwf Dur#28,1 F1_001692 equ $ ; IN [KLUNG2.BAS] DUR[29] = 27114 movlw 105 movwf Dur#29H,1 movlw 234 movwf Dur#29,1 F1_001693 equ $ ; IN [KLUNG2.BAS] DUR[30] = 26673 movlw 104 movwf Dur#30H,1 movlw 49 movwf Dur#30,1 F1_001694 equ $ ; IN [KLUNG2.BAS] DUR[31] = 26240 movlw 102 movwf Dur#31H,1 movlw 128 movwf Dur#31,1 F1_001695 equ $ ; IN [KLUNG2.BAS] DUR[32] = 25814 movlw 100 movwf Dur#32H,1 movlw 214 movwf Dur#32,1 F1_001696 equ $ ; IN [KLUNG2.BAS] DUR[33] = 25395 movlw 99 movwf Dur#33H,1 movlw 51 movwf Dur#33,1 F1_001697 equ $ ; IN [KLUNG2.BAS] DUR[34] = 24982 movlw 97 movwf Dur#34H,1 movlw 150 movwf Dur#34,1 F1_001698 equ $ ; IN [KLUNG2.BAS] DUR[35] = 24577 movlw 96 movwf Dur#35H,1 movlw 1 movwf Dur#35,1 F1_001699 equ $ ; IN [KLUNG2.BAS] DUR[36] = 24178 movlw 94 movwf Dur#36H,1 movlw 114 movwf Dur#36,1 F1_001700 equ $ ; IN [KLUNG2.BAS] DUR[37] = 23785 movlw 92 movwf Dur#37H,1 movlw 233 movwf Dur#37,1 F1_001701 equ $ ; IN [KLUNG2.BAS] DUR[38] = 23399 movlw 91 movwf Dur#38H,1 movlw 103 movwf Dur#38,1 F1_001702 equ $ ; IN [KLUNG2.BAS] DUR[39] = 23019 movlw 89 movwf Dur#39H,1 movlw 235 movwf Dur#39,1 F1_001703 equ $ ; IN [KLUNG2.BAS] DUR[40] = 22645 movlw 88 movwf Dur#40H,1 movlw 117 movwf Dur#40,1 F1_001704 equ $ ; IN [KLUNG2.BAS] DUR[41] = 22277 movlw 87 movwf Dur#41H,1 movlw 5 movwf Dur#41,1 F1_001705 equ $ ; IN [KLUNG2.BAS] DUR[42] = 21915 movlw 85 movwf Dur#42H,1 movlw 155 movwf Dur#42,1 F1_001706 equ $ ; IN [KLUNG2.BAS] DUR[43] = 21559 movlw 84 movwf Dur#43H,1 movlw 55 movwf Dur#43,1 F1_001707 equ $ ; IN [KLUNG2.BAS] DUR[44] = 21209 movlw 82 movwf Dur#44H,1 movlw 217 movwf Dur#44,1 F1_001708 equ $ ; IN [KLUNG2.BAS] DUR[45] = 20865 movlw 81 movwf Dur#45H,1 movlw 129 movwf Dur#45,1 F1_001709 equ $ ; IN [KLUNG2.BAS] DUR[46] = 20526 movlw 80 movwf Dur#46H,1 movlw 46 movwf Dur#46,1 F1_001710 equ $ ; IN [KLUNG2.BAS] DUR[47] = 20193 movlw 78 movwf Dur#47H,1 movlw 225 movwf Dur#47,1 F1_001711 equ $ ; IN [KLUNG2.BAS] DUR[48] = 19865 movlw 77 movwf Dur#48H,1 movlw 153 movwf Dur#48,1 F1_001712 equ $ ; IN [KLUNG2.BAS] DUR[49] = 19542 movlw 76 movwf Dur#49H,1 movlw 86 movwf Dur#49,1 F1_001713 equ $ ; IN [KLUNG2.BAS] DUR[50] = 19225 movlw 75 movwf Dur#50H,1 movlw 25 movwf Dur#50,1 F1_001714 equ $ ; IN [KLUNG2.BAS] DUR[51] = 18912 movlw 73 movwf Dur#51H,1 movlw 224 movwf Dur#51,1 F1_001715 equ $ ; IN [KLUNG2.BAS] DUR[52] = 18605 movlw 72 movwf Dur#52H,1 movlw 173 movwf Dur#52,1 F1_001716 equ $ ; IN [KLUNG2.BAS] DUR[53] = 18303 movlw 71 movwf Dur#53H,1 movlw 127 movwf Dur#53,1 F1_001717 equ $ ; IN [KLUNG2.BAS] DUR[54] = 18006 movlw 70 movwf Dur#54H,1 movlw 86 movwf Dur#54,1 F1_001718 equ $ ; IN [KLUNG2.BAS] DUR[55] = 17714 movlw 69 movwf Dur#55H,1 movlw 50 movwf Dur#55,1 F1_001719 equ $ ; IN [KLUNG2.BAS] DUR[56] = 17426 movlw 68 movwf Dur#56H,1 movlw 18 movwf Dur#56,1 F1_001720 equ $ ; IN [KLUNG2.BAS] DUR[57] = 17143 movlw 66 movwf Dur#57H,1 movlw 247 movwf Dur#57,1 F1_001721 equ $ ; IN [KLUNG2.BAS] DUR[58] = 16864 movlw 65 movwf Dur#58H,1 movlw 224 movwf Dur#58,1 F1_001722 equ $ ; IN [KLUNG2.BAS] DUR[59] = 16591 movlw 64 movwf Dur#59H,1 movlw 207 movwf Dur#59,1 F1_001723 equ $ ; IN [KLUNG2.BAS] DUR[60] = 16321 movlw 63 movwf Dur#60H,1 movlw 193 movwf Dur#60,1 F1_001724 equ $ ; IN [KLUNG2.BAS] DUR[61] = 16056 movlw 62 movwf Dur#61H,1 movlw 184 movwf Dur#61,1 F1_001725 equ $ ; IN [KLUNG2.BAS] DUR[62] = 15795 movlw 61 movwf Dur#62H,1 movlw 179 movwf Dur#62,1 F1_001726 equ $ ; IN [KLUNG2.BAS] DUR[63] = 15539 movlw 60 movwf Dur#63H,1 movlw 179 movwf Dur#63,1 F1_001727 equ $ ; IN [KLUNG2.BAS] DUR[64] = 15286 movlw 59 movwf Dur#64H,1 movlw 182 movwf Dur#64,1 F1_001728 equ $ ; IN [KLUNG2.BAS] DUR[65] = 15038 movlw 58 movwf Dur#65H,1 movlw 190 movwf Dur#65,1 F1_001729 equ $ ; IN [KLUNG2.BAS] DUR[66] = 14794 movlw 57 movwf Dur#66H,1 movlw 202 movwf Dur#66,1 F1_001730 equ $ ; IN [KLUNG2.BAS] DUR[67] = 14554 movlw 56 movwf Dur#67H,1 movlw 218 movwf Dur#67,1 F1_001731 equ $ ; IN [KLUNG2.BAS] DUR[68] = 14317 movlw 55 movwf Dur#68H,1 movlw 237 movwf Dur#68,1 F1_001732 equ $ ; IN [KLUNG2.BAS] DUR[69] = 14085 movlw 55 movwf Dur#69H,1 movlw 5 movwf Dur#69,1 F1_001733 equ $ ; IN [KLUNG2.BAS] DUR[70] = 13856 movlw 54 movwf Dur#70H,1 movlw 32 movwf Dur#70,1 F1_001734 equ $ ; IN [KLUNG2.BAS] DUR[71] = 13631 movlw 53 movwf Dur#71H,1 movlw 63 movwf Dur#71,1 F1_001735 equ $ ; IN [KLUNG2.BAS] DUR[72] = 13410 movlw 52 movwf Dur#72H,1 movlw 98 movwf Dur#72,1 F1_001736 equ $ ; IN [KLUNG2.BAS] DUR[73] = 13192 movlw 51 movwf Dur#73H,1 movlw 136 movwf Dur#73,1 F1_001737 equ $ ; IN [KLUNG2.BAS] DUR[74] = 12978 movlw 50 movwf Dur#74H,1 movlw 178 movwf Dur#74,1 F1_001738 equ $ ; IN [KLUNG2.BAS] DUR[75] = 12767 movlw 49 movwf Dur#75H,1 movlw 223 movwf Dur#75,1 F1_001739 equ $ ; IN [KLUNG2.BAS] DUR[76] = 12560 movlw 49 movwf Dur#76H,1 movlw 16 movwf Dur#76,1 F1_001740 equ $ ; IN [KLUNG2.BAS] DUR[77] = 12356 movlw 48 movwf Dur#77H,1 movlw 68 movwf Dur#77,1 F1_001741 equ $ ; IN [KLUNG2.BAS] DUR[78] = 12155 movlw 47 movwf Dur#78H,1 movlw 123 movwf Dur#78,1 F1_001742 equ $ ; IN [KLUNG2.BAS] DUR[79] = 11958 movlw 46 movwf Dur#79H,1 movlw 182 movwf Dur#79,1 F1_001743 equ $ ; IN [KLUNG2.BAS] DUR[80] = 11763 movlw 45 movwf Dur#80H,1 movlw 243 movwf Dur#80,1 F1_001744 equ $ ; IN [KLUNG2.BAS] DUR[81] = 11572 movlw 45 movwf Dur#81H,1 movlw 52 movwf Dur#81,1 F1_001745 equ $ ; IN [KLUNG2.BAS] DUR[82] = 11384 movlw 44 movwf Dur#82H,1 movlw 120 movwf Dur#82,1 F1_001746 equ $ ; IN [KLUNG2.BAS] DUR[83] = 11199 movlw 43 movwf Dur#83H,1 movlw 191 movwf Dur#83,1 F1_001747 equ $ ; IN [KLUNG2.BAS] DUR[84] = 11018 movlw 43 movwf Dur#84H,1 movlw 10 movwf Dur#84,1 F1_001748 equ $ ; IN [KLUNG2.BAS] DUR[85] = 10839 movlw 42 movwf Dur#85H,1 movlw 87 movwf Dur#85,1 F1_001749 equ $ ; IN [KLUNG2.BAS] DUR[86] = 10663 movlw 41 movwf Dur#86H,1 movlw 167 movwf Dur#86,1 F1_001750 equ $ ; IN [KLUNG2.BAS] DUR[87] = 10489 movlw 40 movwf Dur#87H,1 movlw 249 movwf Dur#87,1 F1_001751 equ $ ; IN [KLUNG2.BAS] DUR[88] = 10319 movlw 40 movwf Dur#88H,1 movlw 79 movwf Dur#88,1 F1_001752 equ $ ; IN [KLUNG2.BAS] DUR[89] = 10152 movlw 39 movwf Dur#89H,1 movlw 168 movwf Dur#89,1 F1_001753 equ $ ; IN [KLUNG2.BAS] DUR[90] = 9987 movlw 39 movwf Dur#90H,1 movlw 3 movwf Dur#90,1 F1_001754 equ $ ; IN [KLUNG2.BAS] DUR[91] = 9825 movlw 38 movwf Dur#91H,1 movlw 97 movwf Dur#91,1 F1_001755 equ $ ; IN [KLUNG2.BAS] DUR[92] = 9665 movlw 37 movwf Dur#92H,1 movlw 193 movwf Dur#92,1 F1_001756 equ $ ; IN [KLUNG2.BAS] DUR[93] = 9508 movlw 37 movwf Dur#93H,1 movlw 36 movwf Dur#93,1 F1_001757 equ $ ; IN [KLUNG2.BAS] DUR[94] = 9354 movwf Dur#94H,1 movlw 138 movwf Dur#94,1 F1_001758 equ $ ; IN [KLUNG2.BAS] DUR[95] = 9202 movlw 35 movwf Dur#95H,1 movlw 242 movwf Dur#95,1 F1_001759 equ $ ; IN [KLUNG2.BAS] DUR[96] = 9052 movlw 35 movwf Dur#96H,1 movlw 92 movwf Dur#96,1 F1_001760 equ $ ; IN [KLUNG2.BAS] DUR[97] = 8905 movlw 34 movwf Dur#97H,1 movlw 201 movwf Dur#97,1 F1_001761 equ $ ; IN [KLUNG2.BAS] DUR[98] = 8761 movlw 34 movwf Dur#98H,1 movlw 57 movwf Dur#98,1 F1_001762 equ $ ; IN [KLUNG2.BAS] DUR[99] = 8618 movlw 33 movwf Dur#99H,1 movlw 170 movwf Dur#99,1 F1_001763 equ $ ; IN [KLUNG2.BAS] DUR[100] = 8478 movlw 33 movwf Dur#100H,1 movlw 30 movwf Dur#100,1 F1_001764 equ $ ; IN [KLUNG2.BAS] DUR[101] = 8341 movlw 32 movwf Dur#101H,1 movlw 149 movwf Dur#101,1 F1_001765 equ $ ; IN [KLUNG2.BAS] DUR[102] = 8205 movlw 32 movwf Dur#102H,1 movlw 13 movwf Dur#102,1 F1_001766 equ $ ; IN [KLUNG2.BAS] DUR[103] = 8072 movlw 31 movwf Dur#103H,1 movlw 136 movwf Dur#103,1 F1_001767 equ $ ; IN [KLUNG2.BAS] DUR[104] = 7941 movlw 31 movwf Dur#104H,1 movlw 5 movwf Dur#104,1 F1_001768 equ $ ; IN [KLUNG2.BAS] DUR[105] = 7812 movlw 30 movwf Dur#105H,1 movlw 132 movwf Dur#105,1 F1_001769 equ $ ; IN [KLUNG2.BAS] DUR[106] = 7685 movlw 30 movwf Dur#106H,1 movlw 5 movwf Dur#106,1 F1_001770 equ $ ; IN [KLUNG2.BAS] DUR[107] = 7560 movlw 29 movwf Dur#107H,1 movlw 136 movwf Dur#107,1 F1_001771 equ $ ; IN [KLUNG2.BAS] DUR[108] = 7437 movlw 29 movwf Dur#108H,1 movlw 13 movwf Dur#108,1 F1_001772 equ $ ; IN [KLUNG2.BAS] DUR[109] = 7317 movlw 28 movwf Dur#109H,1 movlw 149 movwf Dur#109,1 F1_001773 equ $ ; IN [KLUNG2.BAS] DUR[110] = 7198 movlw 28 movwf Dur#110H,1 movlw 30 movwf Dur#110,1 F1_001774 equ $ ; IN [KLUNG2.BAS] DUR[111] = 7081 movlw 27 movwf Dur#111H,1 movlw 169 movwf Dur#111,1 F1_001775 equ $ ; IN [KLUNG2.BAS] DUR[112] = 6966 movlw 27 movwf Dur#112H,1 movlw 54 movwf Dur#112,1 F1_001776 equ $ ; IN [KLUNG2.BAS] DUR[113] = 6853 movlw 26 movwf Dur#113H,1 movlw 197 movwf Dur#113,1 F1_001777 equ $ ; IN [KLUNG2.BAS] DUR[114] = 6742 movlw 26 movwf Dur#114H,1 movlw 86 movwf Dur#114,1 F1_001778 equ $ ; IN [KLUNG2.BAS] DUR[115] = 6632 movlw 25 movwf Dur#115H,1 movlw 232 movwf Dur#115,1 F1_001779 equ $ ; IN [KLUNG2.BAS] DUR[116] = 6524 movlw 25 movwf Dur#116H,1 movlw 124 movwf Dur#116,1 F1_001780 equ $ ; IN [KLUNG2.BAS] DUR[117] = 6418 movlw 25 movwf Dur#117H,1 movlw 18 movwf Dur#117,1 F1_001781 equ $ ; IN [KLUNG2.BAS] DUR[118] = 6314 movlw 24 movwf Dur#118H,1 movlw 170 movwf Dur#118,1 F1_001782 equ $ ; IN [KLUNG2.BAS] DUR[119] = 6212 movlw 24 movwf Dur#119H,1 movlw 68 movwf Dur#119,1 F1_001783 equ $ ; IN [KLUNG2.BAS] DUR[120] = 6111 movlw 23 movwf Dur#120H,1 movlw 223 movwf Dur#120,1 F1_001784 equ $ ; IN [KLUNG2.BAS] DUR[121] = 6011 movlw 23 movwf Dur#121H,1 movlw 123 movwf Dur#121,1 F1_001785 equ $ ; IN [KLUNG2.BAS] DUR[122] = 5914 movlw 23 movwf Dur#122H,1 movlw 26 movwf Dur#122,1 F1_001786 equ $ ; IN [KLUNG2.BAS] DUR[123] = 5818 movlw 22 movwf Dur#123H,1 movlw 186 movwf Dur#123,1 F1_001787 equ $ ; IN [KLUNG2.BAS] DUR[124] = 5723 movlw 22 movwf Dur#124H,1 movlw 91 movwf Dur#124,1 F1_001788 equ $ ; IN [KLUNG2.BAS] DUR[125] = 5630 movlw 21 movwf Dur#125H,1 movlw 254 movwf Dur#125,1 F1_001789 equ $ ; IN [KLUNG2.BAS] DUR[126] = 5539 movlw 21 movwf Dur#126H,1 movlw 163 movwf Dur#126,1 F1_001790 equ $ ; IN [KLUNG2.BAS] DUR[127] = 5449 movlw 21 movwf Dur#127H,1 movlw 73 movwf Dur#127,1 F1_001791 equ $ ; IN [KLUNG2.BAS] RETURN movlb 0 return 0 Vels_Lookup F1_001803 equ $ ; IN [KLUNG2.BAS] FOR I = 1 TO 127 movlw 1 movwf _I,1 _FRLB__491 movlw 128 subwf _I,W,1 btfsc STATUS,0,0 bra _NXLB__492 F1_001804 equ $ ; IN [KLUNG2.BAS] VELS[I] = 610 + (11.47 * (I-1)) clrf PP7HHH,0 movlw 128 movwf PP7HH,0 movlw 24 movwf PP7H,0 movlw 136 movwf PP7,0 movlw 31 movwf PP8HHH,0 movlw 133 movwf PP8HH,0 movlw 55 movwf PP8H,0 movlw 130 movwf PP8,0 movf _I,W,1 call _UNS_INT08_TOFL32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 127 movwf PP_BARG,0 movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPS@32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 movff PP8HHH,PP_BARGHHH movff PP8HH,PP_BARGHH movff PP8H,PP_BARGH movff PP8,PP_BARG movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPM@32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call FPA@32 call _FL32_TO_INT32 movwf PBP#VAR0,0 movff PP_AARGH,PBP#VAR0H lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__493 F1_001805 equ $ ; IN [KLUNG2.BAS] NEXT I incf _I,F,1 btfss STATUS,0,0 bra _FRLB__491 _NXLB__492 F1_001810 equ $ ; IN [KLUNG2.BAS] RETURN return 0 Vels_Lookup_122 F1_001821 equ $ ; IN [KLUNG2.BAS] FOR I = 1 TO 127 movlw 1 movwf _I,1 _FRLB__494 movlw 128 subwf _I,W,1 btfsc STATUS,0,0 bra _NXLB__495 F1_001822 equ $ ; IN [KLUNG2.BAS] VELS[I] = 105 + (36.93 * (I-1)) clrf PP7HHH,0 clrf PP7HH,0 movlw 82 movwf PP7H,0 movlw 133 movwf PP7,0 movlw 82 movwf PP8HHH,0 movlw 184 movwf PP8HH,0 movlw 19 movwf PP8H,0 movlw 132 movwf PP8,0 movf _I,W,1 call _UNS_INT08_TOFL32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 clrf PP_BARGHHH,0 clrf PP_BARGHH,0 clrf PP_BARGH,0 movlw 127 movwf PP_BARG,0 movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPS@32 movff PP_AARGHHH,PP9HHH movff PP_AARGHH,PP9HH movff PP_AARGH,PP9H movff PP_AARG,PP9 movff PP8HHH,PP_BARGHHH movff PP8HH,PP_BARGHH movff PP8H,PP_BARGH movff PP8,PP_BARG movff PP9HHH,PP_AARGHHH movff PP9HH,PP_AARGHH movff PP9H,PP_AARGH movff PP9,PP_AARG call FPM@32 movff PP_AARGHHH,PP8HHH movff PP_AARGHH,PP8HH movff PP_AARGH,PP8H movff PP_AARG,PP8 movff PP7HHH,PP_BARGHHH movff PP7HH,PP_BARGHH movff PP7H,PP_BARGH movff PP7,PP_BARG movff PP8HHH,PP_AARGHHH movff PP8HH,PP_AARGHH movff PP8H,PP_AARGH movff PP8,PP_AARG call FPA@32 call _FL32_TO_INT32 movwf PBP#VAR0,0 movff PP_AARGH,PBP#VAR0H lfsr 0,vels bcf STATUS,0,0 rlcf _I,W,1 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__496 F1_001823 equ $ ; IN [KLUNG2.BAS] NEXT I incf _I,F,1 btfss STATUS,0,0 bra _FRLB__494 _NXLB__495 F1_001828 equ $ ; IN [KLUNG2.BAS] RETURN return 0 F1_EOF equ $ ; KLUNG2.BAS _PBLB__497 bra _PBLB__497 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CP2 = off config CP3 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRT2 = off config WRT3 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTR2 = off config EBTR3 = off config EBTRB = off config PWRT = on end