;---------------------------------------------------------- ; Code Produced by the Proton Compiler. Ver 3.5.7.1 ; Copyright Rosetta Technologies/Crownhill Associates Ltd ; Written by Les Johnson. January 2015 ;---------------------------------------------------------- ; #define CONFIG_REQ 1 #define DEBUG@REQ 1 LIST P = 18F2525, F = INHX32, W = 2, X = ON, R = DEC, MM = ON, N = 0, C = 255, T=ON PORTA equ 0X0F80 PORTB equ 0X0F81 PORTC equ 0X0F82 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF _I2C_SCL_PORT=TRISC _I2C_SCL_PIN=3 _I2C_SDA_PORT=TRISC _I2C_SDA_PIN=4 RA0=0 RA1=1 RA2=2 RA3=3 RA4=4 RA5=5 RA6=6 RA7=7 T0CKI=4 AN4=5 SS=5 NOT_SS=5 LVDIN=5 HLVDIN=5 RB0=0 RB1=1 RB2=2 RB3=3 RB4=4 RB5=5 RB6=6 RB7=7 INT0=0 INT1=1 INT2=2 CCP2_PORTB=3 KBI0=4 KBI1=5 KBI2=6 KBI3=7 AN12=0 AN10=1 AN8=2 AN9=3 AN11=4 PGM=5 PGC=6 PGD=7 RC0=0 RC1=1 RC2=2 RC3=3 RC4=4 RC5=5 RC6=6 RC7=7 T1OSO=0 T1OSI=1 CCP1=2 SCK=3 SDI=4 SDO=5 TX=6 RX=7 T13CKI=0 CCP2_PORTC=1 SCL=3 SDA=4 CK=6 T1CKI=0 RE3=3 MCLR=3 NOT_MCLR=3 VPP=3 LATA0=0 LATA1=1 LATA2=2 LATA3=3 LATA4=4 LATA5=5 LATA6=6 LATA7=7 LATB0=0 LATB1=1 LATB2=2 LATB3=3 LATB4=4 LATB5=5 LATB6=6 LATB7=7 LATC0=0 LATC1=1 LATC2=2 LATC3=3 LATC4=4 LATC5=5 LATC6=6 LATC7=7 TRISA0=0 TRISA1=1 TRISA2=2 TRISA3=3 TRISA4=4 TRISA5=5 TRISA6=6 TRISA7=7 TRISB0=0 TRISB1=1 TRISB2=2 TRISB3=3 TRISB4=4 TRISB5=5 TRISB6=6 TRISB7=7 TRISC0=0 TRISC1=1 TRISC2=2 TRISC3=3 TRISC4=4 TRISC5=5 TRISC6=6 TRISC7=7 TUN0=0 TUN1=1 TUN2=2 TUN3=3 TUN4=4 PLLEN=6 INTSRC=7 TMR1IE=0 TMR2IE=1 CCP1IE=2 SSPIE=3 TXIE=4 RCIE=5 ADIE=6 TMR1IF=0 TMR2IF=1 CCP1IF=2 SSPIF=3 TXIF=4 PP_TXIF=4 RCIF=5 PP_RCIF=5 ADIF=6 TMR1IP=0 TMR2IP=1 CCP1IP=2 SSPIP=3 TXIP=4 RCIP=5 ADIP=6 CCP2IE=0 TMR3IE=1 LVDIE=2 BCLIE=3 EEIE=4 CMIE=6 OSCFIE=7 HLVDIE=2 CCP2IF=0 TMR3IF=1 LVDIF=2 BCLIF=3 EEIF=4 CMIF=6 OSCFIF=7 HLVDIF=2 CCP2IP=0 TMR3IP=1 LVDIP=2 BCLIP=3 EEIP=4 CMIP=6 OSCFIP=7 HLVDIP=2 RD=0 PP_RD=0 WR=1 PP_WR=1 WREN=2 PP_WREN=2 WRERR=3 PP_WRERR=3 FREE=4 CFGS=6 EEPGD=7 PP_EEPGD=7 RX9D=0 OERR=1 PP_OERR=1 FERR=2 ADEN=3 CREN=4 PP_CREN=4 SREN=5 RX9=6 SPEN=7 ADDEN=3 TX9D=0 TRMT=1 BRGH=2 SENDB=3 PP_SENDB=3 SYNC=4 TXEN=5 TX9=6 CSRC=7 TMR3ON=0 TMR3CS=1 T3SYNC=2 T3CCP1=3 PP_T3CCP1=3 T3CKPS0=4 T3CKPS1=5 T3CCP2=6 PP_T3CCP2=6 RD16=7 PP_RD16=7 NOT_T3SYNC=2 CM0=0 CM1=1 CM2=2 CIS=3 C1INV=4 C2INV=5 C1OUT=6 C2OUT=7 CVR0=0 CVR1=1 CVR2=2 CVR3=3 CVRSS=4 CVRR=5 CVROE=6 CVREN=7 ABDEN=0 WUE=1 BRG16=3 SCKP=4 RCIDL=6 ABDOVF=7 TXCKP=4 RXDTP=5 RCMT=6 CCP2M0=0 CCP2M1=1 CCP2M2=2 CCP2M3=3 CCP2Y=4 CCP2X=5 DC2B0=4 DC2B1=5 CCP1M0=0 CCP1M1=1 CCP1M2=2 CCP1M3=3 CCP1Y=4 CCP1X=5 DC1B0=4 DC1B1=5 ADCS0=0 ADCS1=1 ADCS2=2 ACQT0=3 ACQT1=4 ACQT2=5 ADFM=7 PCFG0=0 PCFG1=1 PCFG2=2 PCFG3=3 VCFG0=4 VCFG1=5 ADON=0 PP_ADON=0 GO=1 CHS0=2 CHS1=3 CHS2=4 CHS3=5 DONE=1 NOT_DONE=1 GO_DONE=1 PP_GO_DONE=1 SEN=0 PP_SEN=0 RSEN=1 PP_RSEN=1 PEN=2 PP_PEN=2 RCEN=3 PP_RCEN=3 ACKEN=4 PP_ACKEN=4 ACKDT=5 PP_ACKDT=5 ACKSTAT=6 GCEN=7 SSPM0=0 SSPM1=1 SSPM2=2 SSPM3=3 CKP=4 SSPEN=5 SSPOV=6 WCOL=7 BF=0 UA=1 CKE=6 SMP=7 NOT_W=2 NOT_A=5 R_W=2 PP_R_W=2 D_A=5 NOT_WRITE=2 NOT_ADDRESS=5 T2CKPS0=0 PP_T2CKPS0=0 T2CKPS1=1 PP_T2CKPS1=1 TMR2ON=2 PP_TMR2ON=2 T2OUTPS0=3 T2OUTPS1=4 T2OUTPS2=5 T2OUTPS3=6 TOUTPS0=3 TOUTPS1=4 TOUTPS2=5 TOUTPS3=6 TMR1ON=0 TMR1CS=1 T1SYNC=2 T1OSCEN=3 T1CKPS0=4 T1CKPS1=5 T1RUN=6 NOT_T1SYNC=2 BOR=0 POR=1 PD=2 TO=3 RI=4 SBOREN=6 IPEN=7 NOT_BOR=0 NOT_POR=1 NOT_PD=2 NOT_TO=3 NOT_RI=4 SWDTEN=0 SWDTE=0 LVDL0=0 LVDL1=1 LVDL2=2 LVDL3=3 LVDEN=4 IRVST=5 LVV0=0 LVV1=1 LVV2=2 LVV3=3 BGST=5 HLVDL0=0 HLVDL1=1 HLVDL2=2 HLVDL3=3 HLVDEN=4 VDIRMAG=7 IVRST=5 SCS0=0 SCS1=1 IOFS=2 OSTS=3 IRCF0=4 IRCF1=5 IRCF2=6 IDLEN=7 FLTS=2 T0PS0=0 T0PS1=1 T0PS2=2 PSA=3 T0SE=4 T0CS=5 T016BIT=6 TMR0ON=7 T08BIT=6 C=0 DC=1 Z=2 OV=3 N=4 INT1F=0 INT2F=1 INT1E=3 INT2E=4 INT1P=6 INT2P=7 INT1IF=0 INT2IF=1 INT1IE=3 INT2IE=4 INT1IP=6 INT2IP=7 RBIP=0 TMR0IP=2 INTEDG2=4 INTEDG1=5 INTEDG0=6 RBPU=7 NOT_RBPU=7 RBIF=0 INT0F=1 TMR0IF=2 RBIE=3 INT0E=4 TMR0IE=5 PEIE=6 GIE=7 INT0IF=1 T0IF=2 INT0IE=4 T0IE=5 GIEL=6 GIEH=7 STKPTR0=0 STKPTR1=1 STKPTR2=2 STKPTR3=3 STKPTR4=4 STKUNF=6 STKOVF=7 SP0=0 SP1=1 SP2=2 SP3=3 SP4=4 STKFUL=7 __MAXRAM 0X0FFF __BADRAM 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 config1h equ 0X300001 config2l equ 0X300002 config2h equ 0X300003 config3h equ 0X300005 config4l equ 0X300006 config5l equ 0X300008 config5h equ 0X300009 config6l equ 0X30000A config6h equ 0X30000B config7l equ 0X30000C config7h equ 0X30000D OSC_LP_1 equ 0XF0 OSC_XT_1 equ 0XF1 OSC_HS_1 equ 0XF2 OSC_RC_1 equ 0XF3 OSC_EC_1 equ 0XF4 OSC_ECIO6_1 equ 0XF5 OSC_HSPLL_1 equ 0XF6 OSC_RCIO6_1 equ 0XF7 OSC_INTIO67_1 equ 0XF8 OSC_INTIO7_1 equ 0XF9 FCMEN_OFF_1 equ 0XBF FCMEN_ON_1 equ 0XFF IESO_OFF_1 equ 0X7F IESO_ON_1 equ 0XFF PWRT_ON_2 equ 0XFE PWRT_OFF_2 equ 0XFF BOREN_OFF_2 equ 0XF9 BOREN_ON_2 equ 0XFB BOREN_NOSLP_2 equ 0XFD BOREN_SBORDIS_2 equ 0XFF BORV_0_2 equ 0XE7 BORV_1_2 equ 0XEF BORV_2_2 equ 0XF7 BORV_3_2 equ 0XFF WDT_OFF_2 equ 0XFE WDT_ON_2 equ 0XFF WDTPS_1_2 equ 0XE1 WDTPS_2_2 equ 0XE3 WDTPS_4_2 equ 0XE5 WDTPS_8_2 equ 0XE7 WDTPS_16_2 equ 0XE9 WDTPS_32_2 equ 0XEB WDTPS_64_2 equ 0XED WDTPS_128_2 equ 0XEF WDTPS_256_2 equ 0XF1 WDTPS_512_2 equ 0XF3 WDTPS_1024_2 equ 0XF5 WDTPS_2048_2 equ 0XF7 WDTPS_4096_2 equ 0XF9 WDTPS_8192_2 equ 0XFB WDTPS_16384_2 equ 0XFD WDTPS_32768_2 equ 0XFF MCLRE_OFF_3 equ 0X7F MCLRE_ON_3 equ 0XFF LPT1OSC_OFF_3 equ 0XFB LPT1OSC_ON_3 equ 0XFF PBADEN_OFF_3 equ 0XFD PBADEN_ON_3 equ 0XFF CCP2MX_PORTBE_3 equ 0XFE CCP2MX_PORTC_3 equ 0XFF STVREN_OFF_4 equ 0XFE STVREN_ON_4 equ 0XFF LVP_OFF_4 equ 0XFB LVP_ON_4 equ 0XFF XINST_OFF_4 equ 0XBF XINST_ON_4 equ 0XFF DEBUG_ON_4 equ 0X7F DEBUG_OFF_4 equ 0XFF CP0_ON_5 equ 0XFE CP0_OFF_5 equ 0XFF CP1_ON_5 equ 0XFD CP1_OFF_5 equ 0XFF CP2_ON_5 equ 0XFB CP2_OFF_5 equ 0XFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0XFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0XFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0XFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0XFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0XFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0XFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0XFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0XFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0XFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0XFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0XFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0XFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF IDLOC0 equ 0X200000 __IDLOC0 equ 0X200000 IDLOC1 equ 0X200001 __IDLOC1 equ 0X200001 IDLOC2 equ 0X200002 __IDLOC2 equ 0X200002 IDLOC3 equ 0X200003 __IDLOC3 equ 0X200003 IDLOC4 equ 0X200004 __IDLOC4 equ 0X200004 IDLOC5 equ 0X200005 __IDLOC5 equ 0X200005 IDLOC6 equ 0X200006 __IDLOC6 equ 0X200006 IDLOC7 equ 0X200007 __IDLOC7 equ 0X200007 #define __18F2525 1 #define XTAL 40 #define _CORE 16 #define _MAXRAM 3955 #define _RAM_END 3967 #define _MAXMEM 0XC000 #define _ADC 10 #define _ADC_RES 10 #define _EEPROM 1024 #define RAM_BANKS 15 #define _USART 1 #define _USB 0 #define _USB#RAM_START 0 #define _FLASH 1 #define _CWRITE_BLOCK 64 #define BANK0_START 128 #define BANK0_END 255 #define BANK1_START 256 #define BANK1_END 511 #define BANK2_START 512 #define BANK2_END 767 #define BANK3_START 768 #define BANK3_END 1023 #define BANK4_START 1024 #define BANK4_END 1279 #define BANK5_START 1280 #define BANK5_END 1535 #define BANK6_START 1536 #define BANK6_END 1791 #define BANK7_START 1792 #define BANK7_END 2047 #define BANK8_START 2048 #define BANK8_END 2303 #define BANK9_START 2304 #define BANK9_END 2559 #define BANK10_START 2560 #define BANK10_END 2815 #define BANK11_START 2816 #define BANK11_END 3071 #define BANK12_START 3072 #define BANK12_END 3327 #define BANK13_START 3328 #define BANK13_END 3583 #define BANK14_START 3584 #define BANK14_END 3839 #define BANKA_START 0 #define BANKA_END 127 #define _SYSTEM_VARIABLE_COUNT 51 #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 GEN = 0 PBP#VAR0 = 1 PBP#VAR0H = 2 PBP#VAR1 = 3 PBP#VAR1H = 4 PBP#VAR2 = 5 PP0 = 6 PP0H = 7 PP1 = 8 PP1H = 9 PP2 = 10 PP2H = 11 PP3 = 12 PP3H = 13 PP4 = 14 PP4H = 15 PP5 = 16 PP6H = 17 Cnt = 18 CntH = 19 CntHH = 20 CntHHH = 21 Bytein = 22 _I = 23 statusbyte = 24 noteUit = 25 release = 26 noteAan = 27 velo = 28 oldvelo = 29 notePres = 30 pres = 31 Ctrl = 32 value = 33 prog = 34 veltim = 35 veltimH = 36 veltimHH = 37 veltimHHH = 38 VelFlags = 39 VelFlagsH = 40 CC66 = 41 st = 42 b1 = 43 b2 = 44 Lites = 45 pw1 = 46 USART_FSR1_Save = 47 USART_FSR1_SaveH = 48 IndexIn = 49 IndexOut = 50 Task_rsi = 51 Task_rsiH = 52 variable Task_rsi#0=51,Task_rsi#0H=52,Task_rsi#1=53,Task_rsi#1H=54 variable Task_rsi#2=55,Task_rsi#2H=56 Velmsb = 57 VelmsbH = 58 variable Velmsb#0=57,Velmsb#0H=58,Velmsb#1=59,Velmsb#1H=60 variable Velmsb#2=61,Velmsb#2H=62 VelLsb = 63 VelLsbH = 64 variable VelLsb#0=63,VelLsb#0H=64,VelLsb#1=65,VelLsb#1H=66 variable VelLsb#2=67,VelLsb#2H=68 Dur = 69 DurH = 70 variable Dur#0=69,Dur#0H=70,Dur#1=71,Dur#1H=72 variable Dur#2=73,Dur#2H=74,Dur#3=75,Dur#3H=76 variable Dur#4=77,Dur#4H=78,Dur#5=79,Dur#5H=80 variable Dur#6=81,Dur#6H=82,Dur#7=83,Dur#7H=84 variable Dur#8=85,Dur#8H=86,Dur#9=87,Dur#9H=88 variable Dur#10=89,Dur#10H=90,Dur#11=91,Dur#11H=92 variable Dur#12=93,Dur#12H=94,Dur#13=95,Dur#13H=96 variable Dur#14=97,Dur#14H=98,Dur#15=99,Dur#15H=100 variable Dur#16=101,Dur#16H=102,Dur#17=103,Dur#17H=104 variable Dur#18=105,Dur#18H=106,Dur#19=107,Dur#19H=108 variable Dur#20=109,Dur#20H=110,Dur#21=111,Dur#21H=112 variable Dur#22=113,Dur#22H=114,Dur#23=115,Dur#23H=116 variable Dur#24=117,Dur#24H=118,Dur#25=119,Dur#25H=120 variable Dur#26=121,Dur#26H=122,Dur#27=123,Dur#27H=124 variable Dur#28=125,Dur#28H=126,Dur#29=127,Dur#29H=128 variable Dur#30=129,Dur#30H=130,Dur#31=131,Dur#31H=132 variable Dur#32=133,Dur#32H=134,Dur#33=135,Dur#33H=136 variable Dur#34=137,Dur#34H=138,Dur#35=139,Dur#35H=140 variable Dur#36=141,Dur#36H=142,Dur#37=143,Dur#37H=144 variable Dur#38=145,Dur#38H=146,Dur#39=147,Dur#39H=148 variable Dur#40=149,Dur#40H=150,Dur#41=151,Dur#41H=152 variable Dur#42=153,Dur#42H=154,Dur#43=155,Dur#43H=156 variable Dur#44=157,Dur#44H=158,Dur#45=159,Dur#45H=160 variable Dur#46=161,Dur#46H=162,Dur#47=163,Dur#47H=164 variable Dur#48=165,Dur#48H=166,Dur#49=167,Dur#49H=168 variable Dur#50=169,Dur#50H=170,Dur#51=171,Dur#51H=172 variable Dur#52=173,Dur#52H=174,Dur#53=175,Dur#53H=176 variable Dur#54=177,Dur#54H=178,Dur#55=179,Dur#55H=180 variable Dur#56=181,Dur#56H=182,Dur#57=183,Dur#57H=184 variable Dur#58=185,Dur#58H=186,Dur#59=187,Dur#59H=188 variable Dur#60=189,Dur#60H=190,Dur#61=191,Dur#61H=192 variable Dur#62=193,Dur#62H=194,Dur#63=195,Dur#63H=196 variable Dur#64=197,Dur#64H=198,Dur#65=199,Dur#65H=200 variable Dur#66=201,Dur#66H=202,Dur#67=203,Dur#67H=204 variable Dur#68=205,Dur#68H=206,Dur#69=207,Dur#69H=208 variable Dur#70=209,Dur#70H=210,Dur#71=211,Dur#71H=212 variable Dur#72=213,Dur#72H=214,Dur#73=215,Dur#73H=216 variable Dur#74=217,Dur#74H=218,Dur#75=219,Dur#75H=220 variable Dur#76=221,Dur#76H=222,Dur#77=223,Dur#77H=224 variable Dur#78=225,Dur#78H=226,Dur#79=227,Dur#79H=228 variable Dur#80=229,Dur#80H=230,Dur#81=231,Dur#81H=232 variable Dur#82=233,Dur#82H=234,Dur#83=235,Dur#83H=236 variable Dur#84=237,Dur#84H=238,Dur#85=239,Dur#85H=240 variable Dur#86=241,Dur#86H=242,Dur#87=243,Dur#87H=244 variable Dur#88=245,Dur#88H=246,Dur#89=247,Dur#89H=248 variable Dur#90=249,Dur#90H=250,Dur#91=251,Dur#91H=252 variable Dur#92=253,Dur#92H=254,Dur#93=255,Dur#93H=256 variable Dur#94=257,Dur#94H=258,Dur#95=259,Dur#95H=260 variable Dur#96=261,Dur#96H=262,Dur#97=263,Dur#97H=264 variable Dur#98=265,Dur#98H=266,Dur#99=267,Dur#99H=268 variable Dur#100=269,Dur#100H=270,Dur#101=271,Dur#101H=272 variable Dur#102=273,Dur#102H=274,Dur#103=275,Dur#103H=276 variable Dur#104=277,Dur#104H=278,Dur#105=279,Dur#105H=280 variable Dur#106=281,Dur#106H=282,Dur#107=283,Dur#107H=284 variable Dur#108=285,Dur#108H=286,Dur#109=287,Dur#109H=288 variable Dur#110=289,Dur#110H=290,Dur#111=291,Dur#111H=292 variable Dur#112=293,Dur#112H=294,Dur#113=295,Dur#113H=296 variable Dur#114=297,Dur#114H=298,Dur#115=299,Dur#115H=300 variable Dur#116=301,Dur#116H=302,Dur#117=303,Dur#117H=304 variable Dur#118=305,Dur#118H=306,Dur#119=307,Dur#119H=308 variable Dur#120=309,Dur#120H=310,Dur#121=311,Dur#121H=312 variable Dur#122=313,Dur#122H=314,Dur#123=315,Dur#123H=316 variable Dur#124=317,Dur#124H=318,Dur#125=319,Dur#125H=320 variable Dur#126=321,Dur#126H=322,Dur#127=323,Dur#127H=324 Brak = 325 BrakH = 326 variable Brak#0=325,Brak#0H=326,Brak#1=327,Brak#1H=328 variable Brak#2=329,Brak#2H=330,Brak#3=331,Brak#3H=332 variable Brak#4=333,Brak#4H=334,Brak#5=335,Brak#5H=336 variable Brak#6=337,Brak#6H=338,Brak#7=339,Brak#7H=340 variable Brak#8=341,Brak#8H=342,Brak#9=343,Brak#9H=344 variable Brak#10=345,Brak#10H=346,Brak#11=347,Brak#11H=348 variable Brak#12=349,Brak#12H=350,Brak#13=351,Brak#13H=352 variable Brak#14=353,Brak#14H=354,Brak#15=355,Brak#15H=356 variable Brak#16=357,Brak#16H=358,Brak#17=359,Brak#17H=360 variable Brak#18=361,Brak#18H=362,Brak#19=363,Brak#19H=364 variable Brak#20=365,Brak#20H=366,Brak#21=367,Brak#21H=368 variable Brak#22=369,Brak#22H=370,Brak#23=371,Brak#23H=372 variable Brak#24=373,Brak#24H=374,Brak#25=375,Brak#25H=376 variable Brak#26=377,Brak#26H=378,Brak#27=379,Brak#27H=380 variable Brak#28=381,Brak#28H=382,Brak#29=383,Brak#29H=384 variable Brak#30=385,Brak#30H=386,Brak#31=387,Brak#31H=388 variable Brak#32=389,Brak#32H=390,Brak#33=391,Brak#33H=392 variable Brak#34=393,Brak#34H=394,Brak#35=395,Brak#35H=396 variable Brak#36=397,Brak#36H=398,Brak#37=399,Brak#37H=400 variable Brak#38=401,Brak#38H=402,Brak#39=403,Brak#39H=404 variable Brak#40=405,Brak#40H=406,Brak#41=407,Brak#41H=408 variable Brak#42=409,Brak#42H=410,Brak#43=411,Brak#43H=412 variable Brak#44=413,Brak#44H=414,Brak#45=415,Brak#45H=416 variable Brak#46=417,Brak#46H=418,Brak#47=419,Brak#47H=420 variable Brak#48=421,Brak#48H=422,Brak#49=423,Brak#49H=424 variable Brak#50=425,Brak#50H=426,Brak#51=427,Brak#51H=428 variable Brak#52=429,Brak#52H=430,Brak#53=431,Brak#53H=432 variable Brak#54=433,Brak#54H=434,Brak#55=435,Brak#55H=436 variable Brak#56=437,Brak#56H=438,Brak#57=439,Brak#57H=440 variable Brak#58=441,Brak#58H=442,Brak#59=443,Brak#59H=444 variable Brak#60=445,Brak#60H=446,Brak#61=447,Brak#61H=448 variable Brak#62=449,Brak#62H=450,Brak#63=451,Brak#63H=452 variable Brak#64=453,Brak#64H=454,Brak#65=455,Brak#65H=456 variable Brak#66=457,Brak#66H=458,Brak#67=459,Brak#67H=460 variable Brak#68=461,Brak#68H=462,Brak#69=463,Brak#69H=464 variable Brak#70=465,Brak#70H=466,Brak#71=467,Brak#71H=468 variable Brak#72=469,Brak#72H=470,Brak#73=471,Brak#73H=472 variable Brak#74=473,Brak#74H=474,Brak#75=475,Brak#75H=476 variable Brak#76=477,Brak#76H=478,Brak#77=479,Brak#77H=480 variable Brak#78=481,Brak#78H=482,Brak#79=483,Brak#79H=484 variable Brak#80=485,Brak#80H=486,Brak#81=487,Brak#81H=488 variable Brak#82=489,Brak#82H=490,Brak#83=491,Brak#83H=492 variable Brak#84=493,Brak#84H=494,Brak#85=495,Brak#85H=496 variable Brak#86=497,Brak#86H=498,Brak#87=499,Brak#87H=500 variable Brak#88=501,Brak#88H=502,Brak#89=503,Brak#89H=504 variable Brak#90=505,Brak#90H=506,Brak#91=507,Brak#91H=508 variable Brak#92=509,Brak#92H=510,Brak#93=511,Brak#93H=512 variable Brak#94=513,Brak#94H=514,Brak#95=515,Brak#95H=516 variable Brak#96=517,Brak#96H=518,Brak#97=519,Brak#97H=520 variable Brak#98=521,Brak#98H=522,Brak#99=523,Brak#99H=524 variable Brak#100=525,Brak#100H=526,Brak#101=527,Brak#101H=528 variable Brak#102=529,Brak#102H=530,Brak#103=531,Brak#103H=532 variable Brak#104=533,Brak#104H=534,Brak#105=535,Brak#105H=536 variable Brak#106=537,Brak#106H=538,Brak#107=539,Brak#107H=540 variable Brak#108=541,Brak#108H=542,Brak#109=543,Brak#109H=544 variable Brak#110=545,Brak#110H=546,Brak#111=547,Brak#111H=548 variable Brak#112=549,Brak#112H=550,Brak#113=551,Brak#113H=552 variable Brak#114=553,Brak#114H=554,Brak#115=555,Brak#115H=556 variable Brak#116=557,Brak#116H=558,Brak#117=559,Brak#117H=560 variable Brak#118=561,Brak#118H=562,Brak#119=563,Brak#119H=564 variable Brak#120=565,Brak#120H=566,Brak#121=567,Brak#121H=568 variable Brak#122=569,Brak#122H=570,Brak#123=571,Brak#123H=572 variable Brak#124=573,Brak#124H=574,Brak#125=575,Brak#125H=576 variable Brak#126=577,Brak#126H=578,Brak#127=579,Brak#127H=580 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 = 581 variable _Low__Context_Store#0=581,_Low__Context_Store#1=582,_Low__Context_Store#2=583 #define CntHw CntHH #define CntHwH CntHHH #define CntLw TMR0L #define CntLwH TMR0LH #define StBit Bytein,7 #define VelFlags0 VelFlags #define PowerOn CC66,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 Midichannel 13 #define NoteOff_Status 141 #define NoteOn_Status 157 #define Keypres_Status 173 #define Control_Status 189 #define ProgChange_Status 205 #define Aftertouch_Status 221 #define Pitchbend_Status 237 #define NrTasks 3 #define fPWM 9768 #define fPWMH 38 #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 __HPWM_ movwf 15,0 movlw 150 movwf 6,0 movlw 152 movwf 7,0 rcall __DIVIDE_U1616_ btfsc 4056,2,0 bcf 4042,PP_T2CKPS0,0 btfss 4056,2,0 bsf 4042,PP_T2CKPS0,0 addlw 252 btfss 4056,0,0 bcf 4042,PP_T2CKPS1,0 btfsc 4056,0,0 bsf 4042,PP_T2CKPS1,0 movlw 128 movwf 6,0 movlw 150 movwf 7,0 movlw 152 movwf 10,0 clrf 11,0 btfsc 4042,PP_T2CKPS0,0 rcall HPW@2S btfsc 4042,PP_T2CKPS1,0 rcall HPW@2S rcall __DIVIDE_INT_U1616_ decf 6,W,0 movwf 4043,0 movff 6,8 movff 7,9 movf 0,W,0 movwf 12,0 movwf 13,0 incfsz 0,W,0 clrf 13,0 rcall __MULTIPLY_U1616_ movf 11,W,0 decfsz 15,F,0 bra HPW@SK1 movwf 4030,0 movlw 12 movwf 4029,0 btfsc 10,7,0 bsf 4029,5,0 btfsc 10,6,0 bsf 4029,4,0 bcf TRISB,2,0 HPWM@FIN bsf 4042,PP_TMR2ON,0 return HPW@SK1 movwf 4027,0 movlw 12 movwf 4026,0 btfsc 10,7,0 bsf 4026,5,0 btfsc 10,6,0 bsf 4026,4,0 bcf TRISC,1,0 bra HPWM@FIN HPW@2S rcall HPW@2L HPW@2L bcf 4056,0,0 rrcf 10,F,0 rrcf 7,F,0 rrcf 6,F,0 return __DELAY_MS_ clrf 9,0 __DELAY_MS_W_ movwf 8,0 DLY@P movlw 255 addwf 8,F,0 addwfc 9,F,0 bra $ + 2 btfss 4056,0,0 return movlw 3 movwf 7,0 movlw 230 rcall __DELAY_US_W_ bra DLY@P __DELAY_US_ clrf 7,0 __DELAY_US_W_ addlw 254 movwf 6,0 clrf 4072,0 subwfb 7,F,0 btfss 4056,0,0 return nop decf 6,F,0 bra $ + 2 bra $ - 14 __DIVIDE_U1616_ clrf 11,0 clrf 10,0 __DIVIDE_INT_U1616_ movlw 16 movwf 4083,0 DV@LP rlcf 7,W,0 rlcf 10,F,0 rlcf 11,F,0 movf 8,W,0 subwf 10,W,0 movf 9,W,0 subwfb 11,W,0 bnc D@K movf 8,W,0 subwf 10,F,0 movf 9,W,0 subwfb 11,F,0 bsf 4056,0,0 D@K rlcf 6,F,0 rlcf 7,F,0 decfsz 4083,F,0 bra DV@LP movf 6,W,0 return __MULTIPLY_U1616_ movf 8,W,0 mulwf 12,0 movff 4083,10 movff 4084,11 movf 9,W,0 mulwf 12,0 movf 4083,W,0 addwf 11,F,0 movf 8,W,0 mulwf 13,0 movf 4083,W,0 addwf 11,F,0 movf 10,W,0 return proton#main#start movlw 79 movwf SPBRG,0 movlw 36 movwf TXSTA,0 movlw 144 movwf RCSTA,0 movlb 0 F1_SOF equ $ ; PROPELLER3.BAS F2_SOF equ $ ; 18F2525.INC F2_EOF equ $ ; 18F2525.INC F1_000051 equ $ ; IN [PROPELLER3.BAS] CLEAR SSPCON1.5 bcf SSPCON1,5,0 F1_000052 equ $ ; IN [PROPELLER3.BAS] TRISA = %01000111 movlw 71 movwf TRISA,0 F1_000053 equ $ ; IN [PROPELLER3.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000054 equ $ ; IN [PROPELLER3.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F3_SOF equ $ ; PROPELLER_IRQ.INC F3_000056 equ $ ; IN [PROPELLER_IRQ.INC] GOTO _OVER_IRQ_HANDLER bra _Over_IRQ_Handler High_Prior_Interrupt F3_000068 equ $ ; IN [PROPELLER_IRQ.INC] IF PIR1.5 = 1 THEN btfss PIR1,5,0 bra _LBL__3 F3_000069 equ $ ; IN [PROPELLER_IRQ.INC] MOVLW 6 movlw 6 F3_000070 equ $ ; IN [PROPELLER_IRQ.INC] ANDWF RCSTA,W andwf RCSTA,W F3_000071 equ $ ; IN [PROPELLER_IRQ.INC] BNZ _UART_ERROR bnz _Uart_Error F3_000072 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR1_SAVE = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000073 equ $ ; IN [PROPELLER_IRQ.INC] INC INDEXIN incf IndexIn,F,0 F3_000083 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR1 = VARPTR RINGBUFFER lfsr 1,256 F3_000084 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR1 = USART_FSR1 + INDEXIN movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000085 equ $ ; IN [PROPELLER_IRQ.INC] INDF1 = RCREG movff RCREG,INDF1 F3_000086 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR1 = USART_FSR1_SAVE movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000088 equ $ ; IN [PROPELLER_IRQ.INC] RETFIE FAST retfie 1 _Uart_Error F3_000090 equ $ ; IN [PROPELLER_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000091 equ $ ; IN [PROPELLER_IRQ.INC] WREG = RCREG movf RCREG,W,0 F3_000092 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR RCSTA.4 bcf RCSTA,4,0 F3_000093 equ $ ; IN [PROPELLER_IRQ.INC] SET RCSTA.4 bsf RCSTA,4,0 F3_000094 equ $ ; IN [PROPELLER_IRQ.INC] RETFIE FAST retfie 1 bra _LBL__4 _LBL__3 F3_000095 equ $ ; IN [PROPELLER_IRQ.INC] ELSE _Timer0_IRQ F3_000097 equ $ ; IN [PROPELLER_IRQ.INC] IF INTCON.2 = 1 THEN btfss INTCON,2,0 bra _LBL__6 F3_000098 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR INTCON.2 bcf INTCON,2,0 F3_000099 equ $ ; IN [PROPELLER_IRQ.INC] INC CNTHW infsnz CntHH,F,0 incf CntHHH,F,0 F3_000106 equ $ ; IN [PROPELLER_IRQ.INC] BTG PORTB,5 btg PORTB,5 F3_000107 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR CNT.BYTE1 clrf CntH,0 F3_000108 equ $ ; IN [PROPELLER_IRQ.INC] CNT.BYTE0 = TMR0L movff TMR0L,Cnt F3_000109 equ $ ; IN [PROPELLER_IRQ.INC] RETFIE FAST retfie 1 F3_000110 equ $ ; IN [PROPELLER_IRQ.INC] ENDIF _LBL__6 F3_000111 equ $ ; IN [PROPELLER_IRQ.INC] ENDIF _LBL__4 F3_000113 equ $ ; IN [PROPELLER_IRQ.INC] RETFIE FAST retfie 1 HRSIN: F3_000117 equ $ ; IN [PROPELLER_IRQ.INC] IF INDEXIN <> INDEXOUT THEN movf IndexIn,W,0 subwf IndexOut,W,0 bz _LBL__8 F3_000118 equ $ ; IN [PROPELLER_IRQ.INC] INC INDEXOUT incf IndexOut,F,0 F3_000119 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR0_SAVE = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000120 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR0 = VARPTR RINGBUFFER lfsr 0,256 F3_000121 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR0 = USART_FSR0 + INDEXOUT movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000122 equ $ ; IN [PROPELLER_IRQ.INC] WREG = INDF0 movf INDF0,W,0 F3_000123 equ $ ; IN [PROPELLER_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000124 equ $ ; IN [PROPELLER_IRQ.INC] USART_FSR0 = USART_FSR0_SAVE movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000125 equ $ ; IN [PROPELLER_IRQ.INC] SET STATUS.0 bsf STATUS,0,0 F3_000126 equ $ ; IN [PROPELLER_IRQ.INC] RET return 0 bra _LBL__9 _LBL__8 F3_000127 equ $ ; IN [PROPELLER_IRQ.INC] ELSE F3_000128 equ $ ; IN [PROPELLER_IRQ.INC] WREG = 255 setf WREG,0 F3_000129 equ $ ; IN [PROPELLER_IRQ.INC] PP0 = WREG movwf PP0,0 F3_000130 equ $ ; IN [PROPELLER_IRQ.INC] BTFSS STATUS,C btfss STATUS,C F3_000131 equ $ ; IN [PROPELLER_IRQ.INC] RET return 0 F3_000132 equ $ ; IN [PROPELLER_IRQ.INC] ENDIF _LBL__9 F3_000133 equ $ ; IN [PROPELLER_IRQ.INC] RET return 0 _Init_Usart F3_000149 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000150 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000151 equ $ ; IN [PROPELLER_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000153 equ $ ; IN [PROPELLER_IRQ.INC] SET IPR1.5 bsf IPR1,5,0 F3_000155 equ $ ; IN [PROPELLER_IRQ.INC] SET INTCON.7 bsf INTCON,7,0 F3_000156 equ $ ; IN [PROPELLER_IRQ.INC] SET INTCON.6 bsf INTCON,6,0 F3_000158 equ $ ; IN [PROPELLER_IRQ.INC] RETURN return 0 _Clear_Usart_Buffer F3_000173 equ $ ; IN [PROPELLER_IRQ.INC] PIE1.5 = 0 bcf PIE1,5,0 F3_000174 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR RINGBUFFER lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _PBLB__10 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _PBLB__10 F3_000175 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR INDEXIN clrf IndexIn,0 F3_000176 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR INDEXOUT clrf IndexOut,0 F3_000177 equ $ ; IN [PROPELLER_IRQ.INC] SET PIE1.5 bsf PIE1,5,0 F3_000178 equ $ ; IN [PROPELLER_IRQ.INC] RETURN return 0 Low_Prior_Interrupt Timer3_ISR F3_000187 equ $ ; IN [PROPELLER_IRQ.INC] CONTEXT SAVE bcf INTCON,7,0 movff BSR,_Low__Context_Store#0 movff STATUS,_Low__Context_Store#1 movff WREG,_Low__Context_Store#2 bsf INTCON,7,0 movlb 0 F3_000188 equ $ ; IN [PROPELLER_IRQ.INC] CLEAR PIR2.1 bcf PIR2,1,0 F3_000194 equ $ ; IN [PROPELLER_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_000205 equ $ ; IN [PROPELLER_IRQ.INC] BTFSS PIR1.4 btfss PIR1,4 F3_000206 equ $ ; IN [PROPELLER_IRQ.INC] BRA ($ - 2) bra ($ - 2) F3_000207 equ $ ; IN [PROPELLER_IRQ.INC] MOVWF TXREG movwf TXREG F3_000208 equ $ ; IN [PROPELLER_IRQ.INC] RETURN return 0 _Over_IRQ_Handler F3_EOF equ $ ; PROPELLER_IRQ.INC F1_000134 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000135 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000136 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000137 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000138 equ $ ; IN [PROPELLER3.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000139 equ $ ; IN [PROPELLER3.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 rcall __HPWM_ F1_000140 equ $ ; IN [PROPELLER3.BAS] HIGH PORTC.5 bcf TRISC,5,0 bsf LATC,5,0 F1_000141 equ $ ; IN [PROPELLER3.BAS] HIGH PORTB.2 bcf TRISB,2,0 bsf LATB,2,0 F1_000142 equ $ ; IN [PROPELLER3.BAS] CLEAR OLDVELO clrf oldvelo,0 F1_000143 equ $ ; IN [PROPELLER3.BAS] CLEAR CC66 clrf CC66,0 F1_000144 equ $ ; IN [PROPELLER3.BAS] GOSUB DUR_LOOKUP call Dur_Lookup F1_000145 equ $ ; IN [PROPELLER3.BAS] GOSUB BRAKE_LOOKUP call Brake_Lookup F1_000146 equ $ ; IN [PROPELLER3.BAS] LOW PORTA clrf TRISA,0 clrf LATA,0 F1_000147 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 MAIN F1_000154 equ $ ; IN [PROPELLER3.BAS] HIGH PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000155 equ $ ; IN [PROPELLER3.BAS] DELAYMS 50 movlw 50 rcall __DELAY_MS_ F1_000156 equ $ ; IN [PROPELLER3.BAS] LOW PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000157 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0 clrf VelFlags,0 F1_000158 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES clrf Lites,0 F1_000159 equ $ ; IN [PROPELLER3.BAS] INIT_USART_INTERRUPT variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000161 equ $ ; IN [PROPELLER3.BAS] CLEAR_SERIAL_BUFFER variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000171 equ $ ; IN [PROPELLER3.BAS] CLEAR T1CON clrf T1CON,0 F1_000172 equ $ ; IN [PROPELLER3.BAS] CLEAR INTCON.2 bcf INTCON,2,0 F1_000173 equ $ ; IN [PROPELLER3.BAS] SET INTCON.5 bsf INTCON,5,0 F1_000174 equ $ ; IN [PROPELLER3.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000195 equ $ ; IN [PROPELLER3.BAS] CLEAR T3CON clrf T3CON,0 F1_000196 equ $ ; IN [PROPELLER3.BAS] CLEAR PIR2.1 bcf PIR2,1,0 F1_000197 equ $ ; IN [PROPELLER3.BAS] SET PIE2.1 bsf PIE2,1,0 F1_000199 equ $ ; IN [PROPELLER3.BAS] SET RCON.7 bsf RCON,7,0 F1_000200 equ $ ; IN [PROPELLER3.BAS] CLEAR IPR2.1 bcf IPR2,1,0 F1_000202 equ $ ; IN [PROPELLER3.BAS] T3CON = %10110000 movlw 176 movwf T3CON,0 LOOP F1_000215 equ $ ; IN [PROPELLER3.BAS] BYTEIN = HRSIN rcall HRSIN movwf Bytein,0 Midi_Parse F1_000218 equ $ ; IN [PROPELLER3.BAS] IF BYTEIN > CONTROL_STATUS THEN movlw 190 subwf Bytein,W,0 bnc _LBL__12 F1_000219 equ $ ; IN [PROPELLER3.BAS] IF BYTEIN > 253 THEN movlw 254 subwf Bytein,W,0 bnc _LBL__14 F1_000223 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__15 _LBL__14 F1_000224 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000225 equ $ ; IN [PROPELLER3.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000226 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000227 equ $ ; IN [PROPELLER3.BAS] END IF _LBL__15 F1_000228 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__12 F1_000229 equ $ ; IN [PROPELLER3.BAS] IF STBIT =1 THEN btfss Bytein,7,0 bra _LBL__17 F1_000231 equ $ ; IN [PROPELLER3.BAS] CLEAR STATUSBYTE clrf statusbyte,0 F1_000232 equ $ ; IN [PROPELLER3.BAS] SELECT BYTEIN F1_000233 equ $ ; IN [PROPELLER3.BAS] CASE NOTEOFF_STATUS movlw 141 subwf Bytein,W,0 bnz _LBL__19 F1_000234 equ $ ; IN [PROPELLER3.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000235 equ $ ; IN [PROPELLER3.BAS] SET NOTEUIT setf noteUit,0 F1_000236 equ $ ; IN [PROPELLER3.BAS] SET RELEASE setf release,0 bra _LBL__18 _LBL__19 F1_000237 equ $ ; IN [PROPELLER3.BAS] CASE NOTEON_STATUS movlw 157 subwf Bytein,W,0 bnz _LBL__22 F1_000238 equ $ ; IN [PROPELLER3.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000239 equ $ ; IN [PROPELLER3.BAS] SET NOTEAAN setf noteAan,0 F1_000240 equ $ ; IN [PROPELLER3.BAS] SET VELO setf velo,0 bra _LBL__18 _LBL__22 F1_000241 equ $ ; IN [PROPELLER3.BAS] CASE KEYPRES_STATUS movlw 173 subwf Bytein,W,0 bnz _LBL__24 F1_000242 equ $ ; IN [PROPELLER3.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000243 equ $ ; IN [PROPELLER3.BAS] SET NOTEPRES setf notePres,0 F1_000244 equ $ ; IN [PROPELLER3.BAS] SET PRES setf pres,0 bra _LBL__18 _LBL__24 F1_000245 equ $ ; IN [PROPELLER3.BAS] CASE CONTROL_STATUS movlw 189 subwf Bytein,W,0 bnz _LBL__26 F1_000246 equ $ ; IN [PROPELLER3.BAS] STATUSBYTE = BYTEIN movff Bytein,statusbyte F1_000247 equ $ ; IN [PROPELLER3.BAS] SET CTRL setf Ctrl,0 F1_000248 equ $ ; IN [PROPELLER3.BAS] SET VALUE setf value,0 F1_000259 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__26 _LBL__18 bra _LBL__27 _LBL__17 F1_000260 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000261 equ $ ; IN [PROPELLER3.BAS] SELECT STATUSBYTE F1_000262 equ $ ; IN [PROPELLER3.BAS] CASE 0 movf statusbyte,F,0 bnz _LBL__29 F1_000263 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__28 _LBL__29 F1_000264 equ $ ; IN [PROPELLER3.BAS] CASE NOTEOFF_STATUS movlw 141 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__32 F1_000265 equ $ ; IN [PROPELLER3.BAS] IF NOTEUIT = 255 THEN incf noteUit,W,0 bnz _LBL__34 F1_000266 equ $ ; IN [PROPELLER3.BAS] NOTEUIT = BYTEIN movff Bytein,noteUit bra _LBL__35 _LBL__34 F1_000267 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000268 equ $ ; IN [PROPELLER3.BAS] RELEASE = BYTEIN movff Bytein,release F1_000269 equ $ ; IN [PROPELLER3.BAS] SELECT NOTEUIT F1_000270 equ $ ; IN [PROPELLER3.BAS] CASE 36 movlw 36 subwf noteUit,W,0 bnz _LBL__37 F1_000271 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000272 equ $ ; IN [PROPELLER3.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 rcall __HPWM_ F1_000275 equ $ ; IN [PROPELLER3.BAS] IF RELEASE = 0 THEN movf release,F,0 bnz _LBL__40 F1_000300 equ $ ; IN [PROPELLER3.BAS] SET PORTB.2 bsf LATB,2,0 F1_000301 equ $ ; IN [PROPELLER3.BAS] SET PORTC.5 bsf LATC,5,0 bra _LBL__41 _LBL__40 F1_000302 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000304 equ $ ; IN [PROPELLER3.BAS] SET VELFLAGS0.2 bsf VelFlags,2,0 F1_000306 equ $ ; IN [PROPELLER3.BAS] SET PORTC.5 bsf LATC,5,0 F1_000307 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000308 equ $ ; IN [PROPELLER3.BAS] TASK_RSI[2] = RELEASE << 9 movff release,PBP#VAR0H clrf PBP#VAR0,0 bcf STATUS,0,0 rlcf PBP#VAR0H,F,0 movff PBP#VAR0H,Task_rsi#2H movff PBP#VAR0,Task_rsi#2 F1_000310 equ $ ; IN [PROPELLER3.BAS] VELTIM = CNT + TASK_RSI[2] movff Task_rsi#2,PBP#VAR0 movff Task_rsi#2H,PBP#VAR0H movf PBP#VAR0,W,0 addwf Cnt,W,0 movwf veltim,0 movf PBP#VAR0H,W,0 addwfc CntH,W,0 movwf veltimH,0 movlw 0 addwfc CntHH,W,0 movwf veltimHH,0 movlw 0 addwfc CntHHH,W,0 movwf veltimHHH,0 F1_000311 equ $ ; IN [PROPELLER3.BAS] VELMSB[2] = VELTIM.WORD1 movff veltimHHH,Velmsb#2H movff veltimHH,Velmsb#2 F1_000312 equ $ ; IN [PROPELLER3.BAS] VELLSB[2] = VELTIM.WORD0 movff veltimH,VelLsb#2H movff veltim,VelLsb#2 F1_000313 equ $ ; IN [PROPELLER3.BAS] SET PORTB.2 bsf LATB,2,0 F1_000314 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__41 bra _LBL__36 _LBL__37 F1_000315 equ $ ; IN [PROPELLER3.BAS] CASE 124 movlw 124 subwf noteUit,W,0 bnz _LBL__43 F1_000316 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES.0 bcf Lites,0,0 F1_000317 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000318 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.2 bcf LATC,2,0 bra _LBL__36 _LBL__43 F1_000319 equ $ ; IN [PROPELLER3.BAS] CASE 125 movlw 125 subwf noteUit,W,0 bnz _LBL__45 F1_000320 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES.1 bcf Lites,1,0 F1_000321 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000322 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000323 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__45 _LBL__36 F1_000324 equ $ ; IN [PROPELLER3.BAS] SET NOTEUIT setf noteUit,0 F1_000325 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__35 F1_000326 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__28 _LBL__32 F1_000327 equ $ ; IN [PROPELLER3.BAS] CASE NOTEON_STATUS movlw 157 subwf statusbyte,W,0 btfss STATUS,2,0 bra _LBL__47 F1_000328 equ $ ; IN [PROPELLER3.BAS] IF NOTEAAN = 255 THEN incf noteAan,W,0 bnz _LBL__49 F1_000329 equ $ ; IN [PROPELLER3.BAS] NOTEAAN = BYTEIN movff Bytein,noteAan bra _LBL__50 _LBL__49 F1_000330 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000331 equ $ ; IN [PROPELLER3.BAS] VELO = BYTEIN movff Bytein,velo F1_000332 equ $ ; IN [PROPELLER3.BAS] IF VELO = 0 THEN movf velo,F,0 bnz _LBL__52 F1_000333 equ $ ; IN [PROPELLER3.BAS] SELECT NOTEAAN F1_000334 equ $ ; IN [PROPELLER3.BAS] CASE 36 movlw 36 subwf noteAan,W,0 bnz _LBL__54 F1_000335 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000336 equ $ ; IN [PROPELLER3.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 rcall __HPWM_ F1_000337 equ $ ; IN [PROPELLER3.BAS] SET PORTB.2 bsf LATB,2,0 F1_000338 equ $ ; IN [PROPELLER3.BAS] SET PORTC.5 bsf LATC,5,0 bra _LBL__53 _LBL__54 F1_000357 equ $ ; IN [PROPELLER3.BAS] CASE 124 movlw 124 subwf noteAan,W,0 bnz _LBL__57 F1_000358 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES.0 bcf Lites,0,0 F1_000359 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000360 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.2 bcf LATC,2,0 bra _LBL__53 _LBL__57 F1_000361 equ $ ; IN [PROPELLER3.BAS] CASE 125 movlw 125 subwf noteAan,W,0 bnz _LBL__59 F1_000362 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES.1 bcf Lites,1,0 F1_000363 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000364 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000365 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__59 _LBL__53 F1_000366 equ $ ; IN [PROPELLER3.BAS] SET NOTEAAN setf noteAan,0 F1_000367 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000368 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__52 F1_000369 equ $ ; IN [PROPELLER3.BAS] IF POWERON = 1 THEN btfss CC66,0,0 bra _LBL__61 F1_000370 equ $ ; IN [PROPELLER3.BAS] SELECT NOTEAAN F1_000371 equ $ ; IN [PROPELLER3.BAS] CASE 36 movlw 36 subwf noteAan,W,0 bnz _LBL__63 F1_000372 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000373 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000374 equ $ ; IN [PROPELLER3.BAS] PW1 = VELO << 1 bcf STATUS,0,0 rlcf velo,W,0 movwf pw1,0 F1_000375 equ $ ; IN [PROPELLER3.BAS] SET PORTC.4 bsf LATC,4,0 F1_000376 equ $ ; IN [PROPELLER3.BAS] HPWM 2, PW1, FPWM movff pw1,GEN movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 rcall __HPWM_ F1_000377 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.2 bcf VelFlags,2,0 bra _LBL__62 _LBL__63 F1_000403 equ $ ; IN [PROPELLER3.BAS] CASE 124 movlw 124 subwf noteAan,W,0 bnz _LBL__66 F1_000404 equ $ ; IN [PROPELLER3.BAS] SET PORTC.2 bsf LATC,2,0 F1_000405 equ $ ; IN [PROPELLER3.BAS] SET LITES.0 bsf Lites,0,0 F1_000406 equ $ ; IN [PROPELLER3.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _LBL__68 F1_000407 equ $ ; IN [PROPELLER3.BAS] SET VELFLAGS0.0 bsf VelFlags,0,0 F1_000408 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000410 equ $ ; IN [PROPELLER3.BAS] TASK_RSI[0] = DUR[VELO] lfsr 0,Dur bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movff PBP#VAR0H,Task_rsi#0H movff PBP#VAR0,Task_rsi#0 F1_000411 equ $ ; IN [PROPELLER3.BAS] VELTIM = CNT + TASK_RSI[0] movff Task_rsi#0,PBP#VAR0 movff Task_rsi#0H,PBP#VAR0H movf PBP#VAR0,W,0 addwf Cnt,W,0 movwf veltim,0 movf PBP#VAR0H,W,0 addwfc CntH,W,0 movwf veltimH,0 movlw 0 addwfc CntHH,W,0 movwf veltimHH,0 movlw 0 addwfc CntHHH,W,0 movwf veltimHHH,0 F1_000412 equ $ ; IN [PROPELLER3.BAS] VELMSB[0] = VELTIM.WORD1 movff veltimHHH,Velmsb#0H movff veltimHH,Velmsb#0 F1_000413 equ $ ; IN [PROPELLER3.BAS] VELLSB[0] = VELTIM.WORD0 movff veltimH,VelLsb#0H movff veltim,VelLsb#0 bra _LBL__69 _LBL__68 F1_000414 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000415 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000416 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__69 bra _LBL__62 _LBL__66 F1_000417 equ $ ; IN [PROPELLER3.BAS] CASE 125 movlw 125 subwf noteAan,W,0 bnz _LBL__71 F1_000418 equ $ ; IN [PROPELLER3.BAS] SET PORTC.3 bsf LATC,3,0 F1_000419 equ $ ; IN [PROPELLER3.BAS] SET LITES.1 bsf Lites,1,0 F1_000420 equ $ ; IN [PROPELLER3.BAS] IF VELO < 127 THEN movlw 127 subwf velo,W,0 bc _LBL__73 F1_000421 equ $ ; IN [PROPELLER3.BAS] SET VELFLAGS0.1 bsf VelFlags,1,0 F1_000422 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000423 equ $ ; IN [PROPELLER3.BAS] TASK_RSI[1] = DUR[VELO] lfsr 0,Dur bcf STATUS,0,0 rlcf velo,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movff PBP#VAR0H,Task_rsi#1H movff PBP#VAR0,Task_rsi#1 F1_000424 equ $ ; IN [PROPELLER3.BAS] VELTIM = CNT + TASK_RSI[1] movff Task_rsi#1,PBP#VAR0 movff Task_rsi#1H,PBP#VAR0H movf PBP#VAR0,W,0 addwf Cnt,W,0 movwf veltim,0 movf PBP#VAR0H,W,0 addwfc CntH,W,0 movwf veltimH,0 movlw 0 addwfc CntHH,W,0 movwf veltimHH,0 movlw 0 addwfc CntHHH,W,0 movwf veltimHHH,0 F1_000425 equ $ ; IN [PROPELLER3.BAS] VELMSB[1] = VELTIM.WORD1 movff veltimHHH,Velmsb#1H movff veltimHH,Velmsb#1 F1_000426 equ $ ; IN [PROPELLER3.BAS] VELLSB[1] = VELTIM.WORD0 movff veltimH,VelLsb#1H movff veltim,VelLsb#1 bra _LBL__74 _LBL__73 F1_000427 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000428 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000429 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__74 F1_000430 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__71 _LBL__62 F1_000431 equ $ ; IN [PROPELLER3.BAS] END IF _LBL__61 F1_000432 equ $ ; IN [PROPELLER3.BAS] SET NOTEAAN setf noteAan,0 F1_000433 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__50 F1_000434 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__28 _LBL__47 F1_000435 equ $ ; IN [PROPELLER3.BAS] CASE KEYPRES_STATUS movlw 173 subwf statusbyte,W,0 bnz _LBL__76 F1_000436 equ $ ; IN [PROPELLER3.BAS] IF NOTEPRES = 255 THEN incf notePres,W,0 bnz _LBL__78 F1_000437 equ $ ; IN [PROPELLER3.BAS] NOTEPRES = BYTEIN movff Bytein,notePres bra _LBL__79 _LBL__78 F1_000438 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000439 equ $ ; IN [PROPELLER3.BAS] PRES = BYTEIN movff Bytein,pres F1_000440 equ $ ; IN [PROPELLER3.BAS] GOSUB KEYPRES rcall KeyPres F1_000441 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__79 F1_000442 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers bra _LBL__28 _LBL__76 F1_000443 equ $ ; IN [PROPELLER3.BAS] CASE CONTROL_STATUS movlw 189 subwf statusbyte,W,0 bnz _LBL__81 F1_000444 equ $ ; IN [PROPELLER3.BAS] IF CTRL = 255 THEN incf Ctrl,W,0 bnz _LBL__83 F1_000445 equ $ ; IN [PROPELLER3.BAS] CTRL = BYTEIN movff Bytein,Ctrl bra _LBL__84 _LBL__83 F1_000446 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000447 equ $ ; IN [PROPELLER3.BAS] VALUE = BYTEIN movff Bytein,value F1_000448 equ $ ; IN [PROPELLER3.BAS] GOSUB CONTROLLER rcall Controller F1_000449 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__84 F1_000450 equ $ ; IN [PROPELLER3.BAS] GOTO CHECK_TIMERS bra Check_Timers F1_000456 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__81 _LBL__28 F1_000457 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__27 Check_Timers F1_000462 equ $ ; IN [PROPELLER3.BAS] IF VELFLAGS0 > 0 THEN movf VelFlags,F,0 btfsc STATUS,2,0 bra _LBL__86 F1_000463 equ $ ; IN [PROPELLER3.BAS] IF VELFLAGS0.0 = 1 THEN btfss VelFlags,0,0 bra _LBL__88 F1_000464 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD1 = VELMSB[0] movff Velmsb#0,veltimHH movff Velmsb#0H,veltimHHH F1_000465 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD0 = VELLSB[0] movff VelLsb#0,veltim movff VelLsb#0H,veltimH F1_000466 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000467 equ $ ; IN [PROPELLER3.BAS] IF CNT >= VELTIM THEN GOSUB TASK0 movf veltim,W,0 subwf Cnt,W,0 movf veltimH,W,0 subwfb CntH,W,0 movf veltimHH,W,0 subwfb CntHH,W,0 movf veltimHHH,W,0 subwfb CntHHH,W,0 btfsc STATUS,0,0 rcall Task0 _LBL__90 F1_000468 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__88 F1_000469 equ $ ; IN [PROPELLER3.BAS] IF VELFLAGS0.1 = 1 THEN btfss VelFlags,1,0 bra _LBL__92 F1_000470 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD1 = VELMSB[1] movff Velmsb#1,veltimHH movff Velmsb#1H,veltimHHH F1_000471 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD0 = VELLSB[1] movff VelLsb#1,veltim movff VelLsb#1H,veltimH F1_000472 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000473 equ $ ; IN [PROPELLER3.BAS] IF CNT >= VELTIM THEN GOSUB TASK1 movf veltim,W,0 subwf Cnt,W,0 movf veltimH,W,0 subwfb CntH,W,0 movf veltimHH,W,0 subwfb CntHH,W,0 movf veltimHHH,W,0 subwfb CntHHH,W,0 btfsc STATUS,0,0 rcall Task1 _LBL__94 F1_000474 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__92 F1_000475 equ $ ; IN [PROPELLER3.BAS] IF VELFLAGS0.2 = 1 THEN btfss VelFlags,2,0 bra _LBL__96 F1_000476 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD1 = VELMSB[2] movff Velmsb#2,veltimHH movff Velmsb#2H,veltimHHH F1_000477 equ $ ; IN [PROPELLER3.BAS] VELTIM.WORD0 = VELLSB[2] movff VelLsb#2,veltim movff VelLsb#2H,veltimH F1_000478 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000479 equ $ ; IN [PROPELLER3.BAS] IF CNT >= VELTIM THEN movf veltim,W,0 subwf Cnt,W,0 movf veltimH,W,0 subwfb CntH,W,0 movf veltimHH,W,0 subwfb CntHH,W,0 movf veltimHHH,W,0 subwfb CntHHH,W,0 bnc _LBL__98 F1_000480 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000481 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.2 bcf VelFlags,2,0 F1_000490 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000491 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__98 F1_000492 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__96 bra _LBL__99 _LBL__86 F1_000493 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000494 equ $ ; IN [PROPELLER3.BAS] IF CNTHW > 0XFF THEN CLEAR CNTHW movlw 1 subwf CntHHH,W,0 bnc _LBL__101 clrf CntHHH,0 clrf CntHH,0 _LBL__101 F1_000495 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__99 F1_000496 equ $ ; IN [PROPELLER3.BAS] GOTO LOOP bra LOOP KeyPres F1_000501 equ $ ; IN [PROPELLER3.BAS] SELECT NOTEPRES F1_000502 equ $ ; IN [PROPELLER3.BAS] CASE 124 movlw 124 subwf notePres,W,0 bnz _LBL__103 F1_000503 equ $ ; IN [PROPELLER3.BAS] IF LITES.0 = 1 THEN btfss Lites,0,0 bra _LBL__106 F1_000504 equ $ ; IN [PROPELLER3.BAS] SET VELFLAGS0.0 bsf VelFlags,0,0 F1_000505 equ $ ; IN [PROPELLER3.BAS] TASK_RSI[0] = DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movff PBP#VAR0H,Task_rsi#0H movff PBP#VAR0,Task_rsi#0 bra _LBL__107 _LBL__106 F1_000506 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000507 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000508 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000509 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__107 bra _LBL__102 _LBL__103 F1_000510 equ $ ; IN [PROPELLER3.BAS] CASE 125 movlw 125 subwf notePres,W,0 bnz _LBL__109 F1_000511 equ $ ; IN [PROPELLER3.BAS] IF LITES.1 = 1 THEN btfss Lites,1,0 bra _LBL__111 F1_000512 equ $ ; IN [PROPELLER3.BAS] SET VELFLAGS0.1 bsf VelFlags,1,0 F1_000513 equ $ ; IN [PROPELLER3.BAS] TASK_RSI[1] = DUR[PRES] lfsr 0,Dur bcf STATUS,0,0 rlcf pres,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR0 movff INDF0,PBP#VAR0H movff PBP#VAR0H,Task_rsi#1H movff PBP#VAR0,Task_rsi#1 bra _LBL__112 _LBL__111 F1_000514 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000515 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000516 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000517 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__112 F1_000518 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__109 _LBL__102 F1_000519 equ $ ; IN [PROPELLER3.BAS] SET NOTEPRES setf notePres,0 F1_000520 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 Controller F1_000537 equ $ ; IN [PROPELLER3.BAS] SELECT CTRL F1_000538 equ $ ; IN [PROPELLER3.BAS] CASE 66 movlw 66 subwf Ctrl,W,0 bnz _LBL__114 F1_000540 equ $ ; IN [PROPELLER3.BAS] IF VALUE = 0 THEN movf value,F,0 bnz _LBL__117 F1_000541 equ $ ; IN [PROPELLER3.BAS] CLEAR POWERON bcf CC66,0,0 F1_000542 equ $ ; IN [PROPELLER3.BAS] GOSUB POWERDOWN rcall PowerDown bra _LBL__118 _LBL__117 F1_000543 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000544 equ $ ; IN [PROPELLER3.BAS] SET POWERON bsf CC66,0,0 F1_000545 equ $ ; IN [PROPELLER3.BAS] SET PORTC.4 bsf LATC,4,0 F1_000546 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.5 bcf LATC,5,0 F1_000547 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTB.2 bcf LATB,2,0 F1_000548 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__118 bra _LBL__113 _LBL__114 F1_000549 equ $ ; IN [PROPELLER3.BAS] CASE 123 movlw 123 subwf Ctrl,W,0 btfsc STATUS,2,0 F1_000550 equ $ ; IN [PROPELLER3.BAS] GOSUB ALLNOTESOFF rcall AllNotesOff F1_000551 equ $ ; IN [PROPELLER3.BAS] END SELECT _LBL__120 _LBL__113 F1_000552 equ $ ; IN [PROPELLER3.BAS] SET CTRL setf Ctrl,0 F1_000553 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 AllNotesOff F1_000556 equ $ ; IN [PROPELLER3.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 call __HPWM_ F1_000557 equ $ ; IN [PROPELLER3.BAS] CLEAR OLDVELO clrf oldvelo,0 F1_000558 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000559 equ $ ; IN [PROPELLER3.BAS] SET PORTC.5 bsf LATC,5,0 F1_000560 equ $ ; IN [PROPELLER3.BAS] SET PORTB.2 bsf LATB,2,0 F1_000561 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000562 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000563 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.2 bcf VelFlags,2,0 F1_000564 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000565 equ $ ; IN [PROPELLER3.BAS] LOW PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000566 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES clrf Lites,0 F1_000567 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 PowerDown F1_000570 equ $ ; IN [PROPELLER3.BAS] HPWM 2, 0, FPWM clrf GEN,0 movlw 38 movwf PP1H,0 movlw 40 movwf PP1,0 movlw 2 call __HPWM_ F1_000571 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.4 bcf LATC,4,0 F1_000572 equ $ ; IN [PROPELLER3.BAS] SET PORTC.5 bsf LATC,5,0 F1_000573 equ $ ; IN [PROPELLER3.BAS] SET PORTB.2 bsf LATB,2,0 F1_000574 equ $ ; IN [PROPELLER3.BAS] CLEAR OLDVELO clrf oldvelo,0 F1_000575 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0 clrf VelFlags,0 F1_000576 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.2 bcf LATC,2,0 F1_000577 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.3 bcf LATC,3,0 F1_000578 equ $ ; IN [PROPELLER3.BAS] CLEAR LITES clrf Lites,0 F1_000579 equ $ ; IN [PROPELLER3.BAS] CLEAR PW1 clrf pw1,0 F1_000580 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 Task0 F1_000583 equ $ ; IN [PROPELLER3.BAS] IF LITES.0 = 0 THEN btfsc Lites,0,0 bra _LBL__122 F1_000584 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.0 bcf VelFlags,0,0 F1_000585 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.2 bcf LATC,2,0 bra _LBL__123 _LBL__122 F1_000586 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000589 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000590 equ $ ; IN [PROPELLER3.BAS] VELTIM = CNT + TASK_RSI[0] movff Task_rsi#0,PBP#VAR0 movff Task_rsi#0H,PBP#VAR0H movf PBP#VAR0,W,0 addwf Cnt,W,0 movwf veltim,0 movf PBP#VAR0H,W,0 addwfc CntH,W,0 movwf veltimH,0 movlw 0 addwfc CntHH,W,0 movwf veltimHH,0 movlw 0 addwfc CntHHH,W,0 movwf veltimHHH,0 F1_000591 equ $ ; IN [PROPELLER3.BAS] VELMSB[0] = VELTIM.WORD1 movff veltimHHH,Velmsb#0H movff veltimHH,Velmsb#0 F1_000592 equ $ ; IN [PROPELLER3.BAS] VELLSB[0] = VELTIM.WORD0 movff veltimH,VelLsb#0H movff veltim,VelLsb#0 F1_000593 equ $ ; IN [PROPELLER3.BAS] BTG PORTC.2 btg PORTC,2 F1_000594 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__123 F1_000595 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 Task1 F1_000598 equ $ ; IN [PROPELLER3.BAS] IF LITES.1 = 0 THEN btfsc Lites,1,0 bra _LBL__125 F1_000599 equ $ ; IN [PROPELLER3.BAS] CLEAR VELFLAGS0.1 bcf VelFlags,1,0 F1_000600 equ $ ; IN [PROPELLER3.BAS] CLEAR PORTC.3 bcf LATC,3,0 bra _LBL__126 _LBL__125 F1_000601 equ $ ; IN [PROPELLER3.BAS] ELSE F1_000602 equ $ ; IN [PROPELLER3.BAS] CNT.WORD0 = CNTLW movff TMR0LH,CntH movff TMR0L,Cnt F1_000603 equ $ ; IN [PROPELLER3.BAS] VELTIM = CNT + TASK_RSI[1] movff Task_rsi#1,PBP#VAR0 movff Task_rsi#1H,PBP#VAR0H movf PBP#VAR0,W,0 addwf Cnt,W,0 movwf veltim,0 movf PBP#VAR0H,W,0 addwfc CntH,W,0 movwf veltimH,0 movlw 0 addwfc CntHH,W,0 movwf veltimHH,0 movlw 0 addwfc CntHHH,W,0 movwf veltimHHH,0 F1_000604 equ $ ; IN [PROPELLER3.BAS] VELMSB[1] = VELTIM.WORD1 movff veltimHHH,Velmsb#1H movff veltimHH,Velmsb#1 F1_000605 equ $ ; IN [PROPELLER3.BAS] VELLSB[1] = VELTIM.WORD0 movff veltimH,VelLsb#1H movff veltim,VelLsb#1 F1_000606 equ $ ; IN [PROPELLER3.BAS] BTG PORTC.3 btg PORTC,3 F1_000607 equ $ ; IN [PROPELLER3.BAS] ENDIF _LBL__126 F1_000608 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 Dur_Lookup F1_000632 equ $ ; IN [PROPELLER3.BAS] DUR[ 1 ] = 59896 movlw 233 movwf Dur#1H,0 movlw 248 movwf Dur#1,0 F1_000633 equ $ ; IN [PROPELLER3.BAS] DUR[ 2 ] = 29948 movlw 116 movwf Dur#2H,0 movlw 252 movwf Dur#2,0 F1_000634 equ $ ; IN [PROPELLER3.BAS] DUR[ 3 ] = 19965 movlw 77 movwf Dur#3H,0 movlw 253 movwf Dur#3,0 F1_000635 equ $ ; IN [PROPELLER3.BAS] DUR[ 4 ] = 14974 movlw 58 movwf Dur#4H,0 movlw 126 movwf Dur#4,0 F1_000636 equ $ ; IN [PROPELLER3.BAS] DUR[ 5 ] = 11979 movlw 46 movwf Dur#5H,0 movlw 203 movwf Dur#5,0 F1_000637 equ $ ; IN [PROPELLER3.BAS] DUR[ 6 ] = 9983 movlw 38 movwf Dur#6H,0 setf Dur#6,0 F1_000638 equ $ ; IN [PROPELLER3.BAS] DUR[ 7 ] = 8557 movlw 33 movwf Dur#7H,0 movlw 109 movwf Dur#7,0 F1_000639 equ $ ; IN [PROPELLER3.BAS] DUR[ 8 ] = 7487 movlw 29 movwf Dur#8H,0 movlw 63 movwf Dur#8,0 F1_000640 equ $ ; IN [PROPELLER3.BAS] DUR[ 9 ] = 6655 movlw 25 movwf Dur#9H,0 setf Dur#9,0 F1_000641 equ $ ; IN [PROPELLER3.BAS] DUR[ 10 ] = 5990 movlw 23 movwf Dur#10H,0 movlw 102 movwf Dur#10,0 F1_000642 equ $ ; IN [PROPELLER3.BAS] DUR[ 11 ] = 5445 movlw 21 movwf Dur#11H,0 movlw 69 movwf Dur#11,0 F1_000643 equ $ ; IN [PROPELLER3.BAS] DUR[ 12 ] = 4991 movlw 19 movwf Dur#12H,0 movlw 127 movwf Dur#12,0 F1_000644 equ $ ; IN [PROPELLER3.BAS] DUR[ 13 ] = 4607 movlw 17 movwf Dur#13H,0 setf Dur#13,0 F1_000645 equ $ ; IN [PROPELLER3.BAS] DUR[ 14 ] = 4278 movlw 16 movwf Dur#14H,0 movlw 182 movwf Dur#14,0 F1_000646 equ $ ; IN [PROPELLER3.BAS] DUR[ 15 ] = 3993 movlw 15 movwf Dur#15H,0 movlw 153 movwf Dur#15,0 F1_000647 equ $ ; IN [PROPELLER3.BAS] DUR[ 16 ] = 3743 movlw 14 movwf Dur#16H,0 movlw 159 movwf Dur#16,0 F1_000648 equ $ ; IN [PROPELLER3.BAS] DUR[ 17 ] = 3523 movlw 13 movwf Dur#17H,0 movlw 195 movwf Dur#17,0 F1_000649 equ $ ; IN [PROPELLER3.BAS] DUR[ 18 ] = 3328 movlw 13 movwf Dur#18H,0 clrf Dur#18,0 F1_000650 equ $ ; IN [PROPELLER3.BAS] DUR[ 19 ] = 3152 movlw 12 movwf Dur#19H,0 movlw 80 movwf Dur#19,0 F1_000651 equ $ ; IN [PROPELLER3.BAS] DUR[ 20 ] = 2995 movlw 11 movwf Dur#20H,0 movlw 179 movwf Dur#20,0 F1_000652 equ $ ; IN [PROPELLER3.BAS] DUR[ 21 ] = 2852 movlw 11 movwf Dur#21H,0 movlw 36 movwf Dur#21,0 F1_000653 equ $ ; IN [PROPELLER3.BAS] DUR[ 22 ] = 2723 movlw 10 movwf Dur#22H,0 movlw 163 movwf Dur#22,0 F1_000654 equ $ ; IN [PROPELLER3.BAS] DUR[ 23 ] = 2604 movlw 10 movwf Dur#23H,0 movlw 44 movwf Dur#23,0 F1_000655 equ $ ; IN [PROPELLER3.BAS] DUR[ 24 ] = 2496 movlw 9 movwf Dur#24H,0 movlw 192 movwf Dur#24,0 F1_000656 equ $ ; IN [PROPELLER3.BAS] DUR[ 25 ] = 2396 movlw 9 movwf Dur#25H,0 movlw 92 movwf Dur#25,0 F1_000657 equ $ ; IN [PROPELLER3.BAS] DUR[ 26 ] = 2304 movlw 9 movwf Dur#26H,0 clrf Dur#26,0 F1_000658 equ $ ; IN [PROPELLER3.BAS] DUR[ 27 ] = 2218 movlw 8 movwf Dur#27H,0 movlw 170 movwf Dur#27,0 F1_000659 equ $ ; IN [PROPELLER3.BAS] DUR[ 28 ] = 2139 movlw 8 movwf Dur#28H,0 movlw 91 movwf Dur#28,0 F1_000660 equ $ ; IN [PROPELLER3.BAS] DUR[ 29 ] = 2065 movlw 8 movwf Dur#29H,1 movlw 17 movwf Dur#29,0 F1_000661 equ $ ; IN [PROPELLER3.BAS] DUR[ 30 ] = 1997 movlw 7 movwf Dur#30H,1 movlw 205 movwf Dur#30,1 F1_000662 equ $ ; IN [PROPELLER3.BAS] DUR[ 31 ] = 1932 movlw 7 movwf Dur#31H,1 movlw 140 movwf Dur#31,1 F1_000663 equ $ ; IN [PROPELLER3.BAS] DUR[ 32 ] = 1872 movlw 7 movwf Dur#32H,1 movlw 80 movwf Dur#32,1 F1_000664 equ $ ; IN [PROPELLER3.BAS] DUR[ 33 ] = 1815 movlw 7 movwf Dur#33H,1 movlw 23 movwf Dur#33,1 F1_000665 equ $ ; IN [PROPELLER3.BAS] DUR[ 34 ] = 1762 movlw 6 movwf Dur#34H,1 movlw 226 movwf Dur#34,1 F1_000666 equ $ ; IN [PROPELLER3.BAS] DUR[ 35 ] = 1711 movlw 6 movwf Dur#35H,1 movlw 175 movwf Dur#35,1 F1_000667 equ $ ; IN [PROPELLER3.BAS] DUR[ 36 ] = 1664 movlw 6 movwf Dur#36H,1 movlw 128 movwf Dur#36,1 F1_000668 equ $ ; IN [PROPELLER3.BAS] DUR[ 37 ] = 1619 movlw 6 movwf Dur#37H,1 movlw 83 movwf Dur#37,1 F1_000669 equ $ ; IN [PROPELLER3.BAS] DUR[ 38 ] = 1576 movlw 6 movwf Dur#38H,1 movlw 40 movwf Dur#38,1 F1_000670 equ $ ; IN [PROPELLER3.BAS] DUR[ 39 ] = 1536 movlw 6 movwf Dur#39H,1 clrf Dur#39,1 F1_000671 equ $ ; IN [PROPELLER3.BAS] DUR[ 40 ] = 1497 movlw 5 movwf Dur#40H,1 movlw 217 movwf Dur#40,1 F1_000672 equ $ ; IN [PROPELLER3.BAS] DUR[ 41 ] = 1461 movlw 5 movwf Dur#41H,1 movlw 181 movwf Dur#41,1 F1_000673 equ $ ; IN [PROPELLER3.BAS] DUR[ 42 ] = 1426 movlw 5 movwf Dur#42H,1 movlw 146 movwf Dur#42,1 F1_000674 equ $ ; IN [PROPELLER3.BAS] DUR[ 43 ] = 1393 movlw 5 movwf Dur#43H,1 movlw 113 movwf Dur#43,1 F1_000675 equ $ ; IN [PROPELLER3.BAS] DUR[ 44 ] = 1361 movlw 5 movwf Dur#44H,1 movlw 81 movwf Dur#44,1 F1_000676 equ $ ; IN [PROPELLER3.BAS] DUR[ 45 ] = 1331 movlw 5 movwf Dur#45H,1 movlw 51 movwf Dur#45,1 F1_000677 equ $ ; IN [PROPELLER3.BAS] DUR[ 46 ] = 1302 movlw 5 movwf Dur#46H,1 movlw 22 movwf Dur#46,1 F1_000678 equ $ ; IN [PROPELLER3.BAS] DUR[ 47 ] = 1274 movlw 4 movwf Dur#47H,1 movlw 250 movwf Dur#47,1 F1_000679 equ $ ; IN [PROPELLER3.BAS] DUR[ 48 ] = 1248 movlw 4 movwf Dur#48H,1 movlw 224 movwf Dur#48,1 F1_000680 equ $ ; IN [PROPELLER3.BAS] DUR[ 49 ] = 1222 movlw 4 movwf Dur#49H,1 movlw 198 movwf Dur#49,1 F1_000681 equ $ ; IN [PROPELLER3.BAS] DUR[ 50 ] = 1198 movlw 4 movwf Dur#50H,1 movlw 174 movwf Dur#50,1 F1_000682 equ $ ; IN [PROPELLER3.BAS] DUR[ 51 ] = 1174 movlw 4 movwf Dur#51H,1 movlw 150 movwf Dur#51,1 F1_000683 equ $ ; IN [PROPELLER3.BAS] DUR[ 52 ] = 1152 movlw 4 movwf Dur#52H,1 movlw 128 movwf Dur#52,1 F1_000684 equ $ ; IN [PROPELLER3.BAS] DUR[ 53 ] = 1130 movlw 4 movwf Dur#53H,1 movlw 106 movwf Dur#53,1 F1_000685 equ $ ; IN [PROPELLER3.BAS] DUR[ 54 ] = 1109 movlw 4 movwf Dur#54H,1 movlw 85 movwf Dur#54,1 F1_000686 equ $ ; IN [PROPELLER3.BAS] DUR[ 55 ] = 1089 movlw 4 movwf Dur#55H,1 movlw 65 movwf Dur#55,1 F1_000687 equ $ ; IN [PROPELLER3.BAS] DUR[ 56 ] = 1070 movlw 4 movwf Dur#56H,1 movlw 46 movwf Dur#56,1 F1_000688 equ $ ; IN [PROPELLER3.BAS] DUR[ 57 ] = 1051 movlw 4 movwf Dur#57H,1 movlw 27 movwf Dur#57,1 F1_000689 equ $ ; IN [PROPELLER3.BAS] DUR[ 58 ] = 1033 movlw 4 movwf Dur#58H,1 movlw 9 movwf Dur#58,1 F1_000690 equ $ ; IN [PROPELLER3.BAS] DUR[ 59 ] = 1015 movlw 3 movwf Dur#59H,1 movlw 247 movwf Dur#59,1 F1_000691 equ $ ; IN [PROPELLER3.BAS] DUR[ 60 ] = 998 movlw 3 movwf Dur#60H,1 movlw 230 movwf Dur#60,1 F1_000692 equ $ ; IN [PROPELLER3.BAS] DUR[ 61 ] = 982 movlw 3 movwf Dur#61H,1 movlw 214 movwf Dur#61,1 F1_000693 equ $ ; IN [PROPELLER3.BAS] DUR[ 62 ] = 966 movlw 3 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000694 equ $ ; IN [PROPELLER3.BAS] DUR[ 63 ] = 951 movlw 3 movwf Dur#63H,1 movlw 183 movwf Dur#63,1 F1_000695 equ $ ; IN [PROPELLER3.BAS] DUR[ 64 ] = 936 movlw 3 movwf Dur#64H,1 movlw 168 movwf Dur#64,1 F1_000696 equ $ ; IN [PROPELLER3.BAS] DUR[ 65 ] = 921 movlw 3 movwf Dur#65H,1 movlw 153 movwf Dur#65,1 F1_000697 equ $ ; IN [PROPELLER3.BAS] DUR[ 66 ] = 908 movlw 3 movwf Dur#66H,1 movlw 140 movwf Dur#66,1 F1_000698 equ $ ; IN [PROPELLER3.BAS] DUR[ 67 ] = 894 movlw 3 movwf Dur#67H,1 movlw 126 movwf Dur#67,1 F1_000699 equ $ ; IN [PROPELLER3.BAS] DUR[ 68 ] = 881 movlw 3 movwf Dur#68H,1 movlw 113 movwf Dur#68,1 F1_000700 equ $ ; IN [PROPELLER3.BAS] DUR[ 69 ] = 868 movlw 3 movwf Dur#69H,1 movlw 100 movwf Dur#69,1 F1_000701 equ $ ; IN [PROPELLER3.BAS] DUR[ 70 ] = 856 movlw 3 movwf Dur#70H,1 movlw 88 movwf Dur#70,1 F1_000702 equ $ ; IN [PROPELLER3.BAS] DUR[ 71 ] = 844 movlw 3 movwf Dur#71H,1 movlw 76 movwf Dur#71,1 F1_000703 equ $ ; IN [PROPELLER3.BAS] DUR[ 72 ] = 832 movlw 3 movwf Dur#72H,1 movlw 64 movwf Dur#72,1 F1_000704 equ $ ; IN [PROPELLER3.BAS] DUR[ 73 ] = 820 movlw 3 movwf Dur#73H,1 movlw 52 movwf Dur#73,1 F1_000705 equ $ ; IN [PROPELLER3.BAS] DUR[ 74 ] = 809 movlw 3 movwf Dur#74H,1 movlw 41 movwf Dur#74,1 F1_000706 equ $ ; IN [PROPELLER3.BAS] DUR[ 75 ] = 799 movlw 3 movwf Dur#75H,1 movlw 31 movwf Dur#75,1 F1_000707 equ $ ; IN [PROPELLER3.BAS] DUR[ 76 ] = 788 movlw 3 movwf Dur#76H,1 movlw 20 movwf Dur#76,1 F1_000708 equ $ ; IN [PROPELLER3.BAS] DUR[ 77 ] = 778 movlw 3 movwf Dur#77H,1 movlw 10 movwf Dur#77,1 F1_000709 equ $ ; IN [PROPELLER3.BAS] DUR[ 78 ] = 768 movlw 3 movwf Dur#78H,1 clrf Dur#78,1 F1_000710 equ $ ; IN [PROPELLER3.BAS] DUR[ 79 ] = 758 movlw 2 movwf Dur#79H,1 movlw 246 movwf Dur#79,1 F1_000711 equ $ ; IN [PROPELLER3.BAS] DUR[ 80 ] = 749 movlw 2 movwf Dur#80H,1 movlw 237 movwf Dur#80,1 F1_000712 equ $ ; IN [PROPELLER3.BAS] DUR[ 81 ] = 739 movlw 2 movwf Dur#81H,1 movlw 227 movwf Dur#81,1 F1_000713 equ $ ; IN [PROPELLER3.BAS] DUR[ 82 ] = 730 movlw 2 movwf Dur#82H,1 movlw 218 movwf Dur#82,1 F1_000714 equ $ ; IN [PROPELLER3.BAS] DUR[ 83 ] = 722 movlw 2 movwf Dur#83H,1 movlw 210 movwf Dur#83,1 F1_000715 equ $ ; IN [PROPELLER3.BAS] DUR[ 84 ] = 713 movlw 2 movwf Dur#84H,1 movlw 201 movwf Dur#84,1 F1_000716 equ $ ; IN [PROPELLER3.BAS] DUR[ 85 ] = 705 movlw 2 movwf Dur#85H,1 movlw 193 movwf Dur#85,1 F1_000717 equ $ ; IN [PROPELLER3.BAS] DUR[ 86 ] = 696 movlw 2 movwf Dur#86H,1 movlw 184 movwf Dur#86,1 F1_000718 equ $ ; IN [PROPELLER3.BAS] DUR[ 87 ] = 688 movlw 2 movwf Dur#87H,1 movlw 176 movwf Dur#87,1 F1_000719 equ $ ; IN [PROPELLER3.BAS] DUR[ 88 ] = 681 movlw 2 movwf Dur#88H,1 movlw 169 movwf Dur#88,1 F1_000720 equ $ ; IN [PROPELLER3.BAS] DUR[ 89 ] = 673 movlw 2 movwf Dur#89H,1 movlw 161 movwf Dur#89,1 F1_000721 equ $ ; IN [PROPELLER3.BAS] DUR[ 90 ] = 666 movlw 2 movwf Dur#90H,1 movlw 154 movwf Dur#90,1 F1_000722 equ $ ; IN [PROPELLER3.BAS] DUR[ 91 ] = 658 movlw 2 movwf Dur#91H,1 movlw 146 movwf Dur#91,1 F1_000723 equ $ ; IN [PROPELLER3.BAS] DUR[ 92 ] = 651 movlw 2 movwf Dur#92H,1 movlw 139 movwf Dur#92,1 F1_000724 equ $ ; IN [PROPELLER3.BAS] DUR[ 93 ] = 644 movlw 2 movlb 1 movwf Dur#93H,1 movlw 132 movlb 0 movwf Dur#93,1 F1_000725 equ $ ; IN [PROPELLER3.BAS] DUR[ 94 ] = 637 movlw 2 movlb 1 movwf Dur#94H,1 movlw 125 movwf Dur#94,1 F1_000726 equ $ ; IN [PROPELLER3.BAS] DUR[ 95 ] = 630 movlw 2 movwf Dur#95H,1 movlw 118 movwf Dur#95,1 F1_000727 equ $ ; IN [PROPELLER3.BAS] DUR[ 96 ] = 624 movlw 2 movwf Dur#96H,1 movlw 112 movwf Dur#96,1 F1_000728 equ $ ; IN [PROPELLER3.BAS] DUR[ 97 ] = 617 movlw 2 movwf Dur#97H,1 movlw 105 movwf Dur#97,1 F1_000729 equ $ ; IN [PROPELLER3.BAS] DUR[ 98 ] = 611 movlw 2 movwf Dur#98H,1 movlw 99 movwf Dur#98,1 F1_000730 equ $ ; IN [PROPELLER3.BAS] DUR[ 99 ] = 605 movlw 2 movwf Dur#99H,1 movlw 93 movwf Dur#99,1 F1_000731 equ $ ; IN [PROPELLER3.BAS] DUR[ 100 ] = 599 movlw 2 movwf Dur#100H,1 movlw 87 movwf Dur#100,1 F1_000732 equ $ ; IN [PROPELLER3.BAS] DUR[ 101 ] = 593 movlw 2 movwf Dur#101H,1 movlw 81 movwf Dur#101,1 F1_000733 equ $ ; IN [PROPELLER3.BAS] DUR[ 102 ] = 587 movlw 2 movwf Dur#102H,1 movlw 75 movwf Dur#102,1 F1_000734 equ $ ; IN [PROPELLER3.BAS] DUR[ 103 ] = 582 movlw 2 movwf Dur#103H,1 movlw 70 movwf Dur#103,1 F1_000735 equ $ ; IN [PROPELLER3.BAS] DUR[ 104 ] = 576 movlw 2 movwf Dur#104H,1 movlw 64 movwf Dur#104,1 F1_000736 equ $ ; IN [PROPELLER3.BAS] DUR[ 105 ] = 570 movlw 2 movwf Dur#105H,1 movlw 58 movwf Dur#105,1 F1_000737 equ $ ; IN [PROPELLER3.BAS] DUR[ 106 ] = 565 movlw 2 movwf Dur#106H,1 movlw 53 movwf Dur#106,1 F1_000738 equ $ ; IN [PROPELLER3.BAS] DUR[ 107 ] = 560 movlw 2 movwf Dur#107H,1 movlw 48 movwf Dur#107,1 F1_000739 equ $ ; IN [PROPELLER3.BAS] DUR[ 108 ] = 555 movlw 2 movwf Dur#108H,1 movlw 43 movwf Dur#108,1 F1_000740 equ $ ; IN [PROPELLER3.BAS] DUR[ 109 ] = 550 movlw 2 movwf Dur#109H,1 movlw 38 movwf Dur#109,1 F1_000741 equ $ ; IN [PROPELLER3.BAS] DUR[ 110 ] = 545 movlw 2 movwf Dur#110H,1 movlw 33 movwf Dur#110,1 F1_000742 equ $ ; IN [PROPELLER3.BAS] DUR[ 111 ] = 540 movlw 2 movwf Dur#111H,1 movlw 28 movwf Dur#111,1 F1_000743 equ $ ; IN [PROPELLER3.BAS] DUR[ 112 ] = 535 movlw 2 movwf Dur#112H,1 movlw 23 movwf Dur#112,1 F1_000744 equ $ ; IN [PROPELLER3.BAS] DUR[ 113 ] = 530 movlw 2 movwf Dur#113H,1 movlw 18 movwf Dur#113,1 F1_000745 equ $ ; IN [PROPELLER3.BAS] DUR[ 114 ] = 525 movlw 2 movwf Dur#114H,1 movlw 13 movwf Dur#114,1 F1_000746 equ $ ; IN [PROPELLER3.BAS] DUR[ 115 ] = 521 movlw 2 movwf Dur#115H,1 movlw 9 movwf Dur#115,1 F1_000747 equ $ ; IN [PROPELLER3.BAS] DUR[ 116 ] = 516 movlw 2 movwf Dur#116H,1 movlw 4 movwf Dur#116,1 F1_000748 equ $ ; IN [PROPELLER3.BAS] DUR[ 117 ] = 512 movlw 2 movwf Dur#117H,1 clrf Dur#117,1 F1_000749 equ $ ; IN [PROPELLER3.BAS] DUR[ 118 ] = 508 movlw 1 movwf Dur#118H,1 movlw 252 movwf Dur#118,1 F1_000750 equ $ ; IN [PROPELLER3.BAS] DUR[ 119 ] = 503 movlw 1 movwf Dur#119H,1 movlw 247 movwf Dur#119,1 F1_000751 equ $ ; IN [PROPELLER3.BAS] DUR[ 120 ] = 499 movlw 1 movwf Dur#120H,1 movlw 243 movwf Dur#120,1 F1_000752 equ $ ; IN [PROPELLER3.BAS] DUR[ 121 ] = 495 movlw 1 movwf Dur#121H,1 movlw 239 movwf Dur#121,1 F1_000753 equ $ ; IN [PROPELLER3.BAS] DUR[ 122 ] = 491 movlw 1 movwf Dur#122H,1 movlw 235 movwf Dur#122,1 F1_000754 equ $ ; IN [PROPELLER3.BAS] DUR[ 123 ] = 487 movlw 1 movwf Dur#123H,1 movlw 231 movwf Dur#123,1 F1_000755 equ $ ; IN [PROPELLER3.BAS] DUR[ 124 ] = 483 movlw 1 movwf Dur#124H,1 movlw 227 movwf Dur#124,1 F1_000756 equ $ ; IN [PROPELLER3.BAS] DUR[ 125 ] = 479 movlw 1 movwf Dur#125H,1 movlw 223 movwf Dur#125,1 F1_000757 equ $ ; IN [PROPELLER3.BAS] DUR[ 126 ] = 475 movlw 1 movwf Dur#126H,1 movlw 219 movwf Dur#126,1 F1_000758 equ $ ; IN [PROPELLER3.BAS] DUR[ 127 ] = 472 movlw 1 movwf Dur#127H,1 movlw 216 movwf Dur#127,1 F1_000759 equ $ ; IN [PROPELLER3.BAS] RETURN movlb 0 return 0 Brake_Lookup F1_000762 equ $ ; IN [PROPELLER3.BAS] BRAK[1] = 65535 movlb 1 setf Brak#1H,1 setf Brak#1,1 F1_000763 equ $ ; IN [PROPELLER3.BAS] FOR I = 2 TO 127 movlw 2 movwf _I,0 _FRLB__127 movlb 0 movlw 128 subwf _I,W,0 bc _NXLB__128 F1_000764 equ $ ; IN [PROPELLER3.BAS] BRAK[I] = BRAK[I -1] - 473 decf _I,W,0 movwf PBP#VAR2,0 lfsr 0,Brak bcf STATUS,0,0 rlcf PBP#VAR2,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBP#VAR1 movff INDF0,PBP#VAR1H movlw 217 subwf PBP#VAR1,W,0 movwf PBP#VAR0,0 movlw 1 subwfb PBP#VAR1H,W,0 movwf PBP#VAR0H,0 lfsr 0,Brak bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBP#VAR0,POSTINC0 movff PBP#VAR0H,INDF0 _CTLB__129 F1_000765 equ $ ; IN [PROPELLER3.BAS] NEXT I incf _I,F,0 bnc _FRLB__127 _NXLB__128 F1_000795 equ $ ; IN [PROPELLER3.BAS] RETURN return 0 F1_EOF equ $ ; PROPELLER3.BAS _PBLB__130 bra _PBLB__130 __EOF config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off end