; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; Let's find out together what makes a PIC Tick! ; ; Code Produced by the Positron8 Compiler. Version 4.0.1.0 ; Created and Written by Les Johnson. ; Compiler version for Godfried-Willem Raes ;---------------------------------------------------------- ; #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 ; MICROCONTROLLER'S SFRS ; START OF ACCESS SFRS 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 PINS USED BY HBUSIN AND HBUSOUT _I2C_SCL_port=TRISC _I2C_SCL_pin=3 _I2C_SDA_port=TRISC _I2C_SDA_pin=4 ; SFR BITS USED INTERNALLY BY THE COMPILER C=0 DC=1 Z=2 OV=3 N=4 PD=5 To=6 PP_TXIF=4 PP_RCIF=5 PP_RD=0 PP_WR=1 PP_WREN=2 PP_WRERR=3 PP_EEPGD=7 PP_OERR=1 PP_CREN=4 PP_BRGH=2 PP_SENDB=3 PP_T3CCP1=3 PP_T3CCP2=6 PP_RD16=7 PP_BRG16=3 PP_ADON=0 PP_GO_DONE=1 PP_SEN=0 PP_RSEN=1 PP_PEN=2 PP_RCEN=3 PP_ACKEN=4 PP_ACKDT=5 PP_R_W=2 PP_T2CKPS0=0 PP_T2CKPS1=1 PP_TMR2ON=2 PP_TMR1ON=0 PP_RBPU=7 ; MEMORY MAP OF THE DEVICE __MAXRAM 0X0FFF __BADRAM 0X0F83 __BADRAM 0X0F85-0X0F88 __BADRAM 0X0F8C-0X0F91 __BADRAM 0X0F95-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __BADRAM 0X0FB6-0X0FB7 __BADRAM 0X0FB9 ; CONFIG FUSE NAME VALUES 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 ; COMPILER'S INTERNAL CONSTANTS AND ALIASES #define __18F2525 1 #define xtal 40 #define _core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0XC000 #define _ADC 10 #define _ADC_res 10 #define _eeprom 1024 #define ram_banks 15 #define _USART 1 #define _USB 0 #define _flash 1 #define _cwrite_block 64 #define _TRIS_offset 18 #define __EE_RW_type 1 #define __MSSP_type 1 #define __HPWM_type 1 #define __adin_type 1 #define __UART_type 1 #define BankA_Start 0x00 #define BankA_End 0X7F #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 ; COMPILER SYSTEM VARIABLES BPF equ 0x00 BPFH equ 0X01 GEN equ 0X02 PBS_VAR0 equ 0X03 PBS_VAR0H equ 0X04 PBS_VAR0HH equ 0X05 PBS_VAR0HHH equ 0X06 PBS_VAR1 equ 0X07 PBS_VAR1H equ 0X08 PP0 equ 0X09 PP0H equ 0X0A PP1 equ 0X0B PP1H equ 0X0C PP2 equ 0X0D PP2H equ 0X0E PP3 equ 0X0F PP3H equ 0X10 PP4 equ 0X11 PP4H equ 0X12 PP5 equ 0X13 PP5H equ 0X14 PP6H equ 0X15 ; USER ACCESS RAM VARIABLES Cnt equ 0X16 CntH equ 0X17 CntHH equ 0X18 CntHHH equ 0X19 Bytein equ 0X1A _I equ 0X1B statusbyte equ 0X1C noteUit equ 0X1D release equ 0X1E noteAan equ 0X1F velo equ 0X20 notePres equ 0X21 pres equ 0X22 Ctrl equ 0X23 value equ 0X24 prog equ 0X25 idx equ 0X26 CC66 equ 0X27 st equ 0X28 b1 equ 0X29 b2 equ 0X2A Lites equ 0X2B pw1 equ 0X2C pw2 equ 0X2D MidiIn equ 0X2E USART_FSR1_Save equ 0X2F USART_FSR1_SaveH equ 0X30 IndexIn equ 0X31 IndexOut equ 0X32 ; STANDARD VARIABLES Nxt equ 0X33 NxtH equ 0X34 NxtHH equ 0X35 NxtHHH equ 0X36 Timvals equ 0X37 TimvalsH equ 0X38 TimvalsHH equ 0X39 TimvalsHHH equ 0X3A variable Timvals#0=0X37,Timvals#0H=0X38,Timvals#0HH=0X39,Timvals#0HHH=0X3A variable Timvals#1=0X3B,Timvals#1H=0X3C,Timvals#1HH=0X3D,Timvals#1HHH=0X3E Resort equ 0X3F dur0 equ 0X40 dur1 equ 0X41 Ringbuffer equ 0X42 variable Ringbuffer#0=0X42,Ringbuffer#1=0X43,Ringbuffer#2=0X44,Ringbuffer#3=0X45 variable Ringbuffer#4=0X46,Ringbuffer#5=0X47,Ringbuffer#6=0X48,Ringbuffer#7=0X49 variable Ringbuffer#8=0X4A,Ringbuffer#9=0X4B,Ringbuffer#10=0X4C,Ringbuffer#11=0X4D variable Ringbuffer#12=0X4E,Ringbuffer#13=0X4F,Ringbuffer#14=0X50,Ringbuffer#15=0X51 variable Ringbuffer#16=0X52,Ringbuffer#17=0X53,Ringbuffer#18=0X54,Ringbuffer#19=0X55 variable Ringbuffer#20=0X56,Ringbuffer#21=0X57,Ringbuffer#22=0X58,Ringbuffer#23=0X59 variable Ringbuffer#24=0X5A,Ringbuffer#25=0X5B,Ringbuffer#26=0X5C,Ringbuffer#27=0X5D variable Ringbuffer#28=0X5E,Ringbuffer#29=0X5F,Ringbuffer#30=0X60,Ringbuffer#31=0X61 variable Ringbuffer#32=0X62,Ringbuffer#33=0X63,Ringbuffer#34=0X64,Ringbuffer#35=0X65 variable Ringbuffer#36=0X66,Ringbuffer#37=0X67,Ringbuffer#38=0X68,Ringbuffer#39=0X69 variable Ringbuffer#40=0X6A,Ringbuffer#41=0X6B,Ringbuffer#42=0X6C,Ringbuffer#43=0X6D variable Ringbuffer#44=0X6E,Ringbuffer#45=0X6F,Ringbuffer#46=0X70,Ringbuffer#47=0X71 variable Ringbuffer#48=0X72,Ringbuffer#49=0X73,Ringbuffer#50=0X74,Ringbuffer#51=0X75 variable Ringbuffer#52=0X76,Ringbuffer#53=0X77,Ringbuffer#54=0X78,Ringbuffer#55=0X79 variable Ringbuffer#56=0X7A,Ringbuffer#57=0X7B,Ringbuffer#58=0X7C,Ringbuffer#59=0X7D variable Ringbuffer#60=0X7E,Ringbuffer#61=0X7F,Ringbuffer#62=0X80,Ringbuffer#63=0X81 variable Ringbuffer#64=0X82,Ringbuffer#65=0X83,Ringbuffer#66=0X84,Ringbuffer#67=0X85 variable Ringbuffer#68=0X86,Ringbuffer#69=0X87,Ringbuffer#70=0X88,Ringbuffer#71=0X89 variable Ringbuffer#72=0X8A,Ringbuffer#73=0X8B,Ringbuffer#74=0X8C,Ringbuffer#75=0X8D variable Ringbuffer#76=0X8E,Ringbuffer#77=0X8F,Ringbuffer#78=0X90,Ringbuffer#79=0X91 variable Ringbuffer#80=0X92,Ringbuffer#81=0X93,Ringbuffer#82=0X94,Ringbuffer#83=0X95 variable Ringbuffer#84=0X96,Ringbuffer#85=0X97,Ringbuffer#86=0X98,Ringbuffer#87=0X99 variable Ringbuffer#88=0X9A,Ringbuffer#89=0X9B,Ringbuffer#90=0X9C,Ringbuffer#91=0X9D variable Ringbuffer#92=0X9E,Ringbuffer#93=0X9F,Ringbuffer#94=0XA0,Ringbuffer#95=0XA1 variable Ringbuffer#96=0XA2,Ringbuffer#97=0XA3,Ringbuffer#98=0XA4,Ringbuffer#99=0XA5 variable Ringbuffer#100=0XA6,Ringbuffer#101=0XA7,Ringbuffer#102=0XA8,Ringbuffer#103=0XA9 variable Ringbuffer#104=0XAA,Ringbuffer#105=0XAB,Ringbuffer#106=0XAC,Ringbuffer#107=0XAD variable Ringbuffer#108=0XAE,Ringbuffer#109=0XAF,Ringbuffer#110=0XB0,Ringbuffer#111=0XB1 variable Ringbuffer#112=0XB2,Ringbuffer#113=0XB3,Ringbuffer#114=0XB4,Ringbuffer#115=0XB5 variable Ringbuffer#116=0XB6,Ringbuffer#117=0XB7,Ringbuffer#118=0XB8,Ringbuffer#119=0XB9 variable Ringbuffer#120=0XBA,Ringbuffer#121=0XBB,Ringbuffer#122=0XBC,Ringbuffer#123=0XBD variable Ringbuffer#124=0XBE,Ringbuffer#125=0XBF,Ringbuffer#126=0XC0,Ringbuffer#127=0XC1 variable Ringbuffer#128=0XC2,Ringbuffer#129=0XC3,Ringbuffer#130=0XC4,Ringbuffer#131=0XC5 variable Ringbuffer#132=0XC6,Ringbuffer#133=0XC7,Ringbuffer#134=0XC8,Ringbuffer#135=0XC9 variable Ringbuffer#136=0XCA,Ringbuffer#137=0XCB,Ringbuffer#138=0XCC,Ringbuffer#139=0XCD variable Ringbuffer#140=0XCE,Ringbuffer#141=0XCF,Ringbuffer#142=0XD0,Ringbuffer#143=0XD1 variable Ringbuffer#144=0XD2,Ringbuffer#145=0XD3,Ringbuffer#146=0XD4,Ringbuffer#147=0XD5 variable Ringbuffer#148=0XD6,Ringbuffer#149=0XD7,Ringbuffer#150=0XD8,Ringbuffer#151=0XD9 variable Ringbuffer#152=0XDA,Ringbuffer#153=0XDB,Ringbuffer#154=0XDC,Ringbuffer#155=0XDD variable Ringbuffer#156=0XDE,Ringbuffer#157=0XDF,Ringbuffer#158=0XE0,Ringbuffer#159=0XE1 variable Ringbuffer#160=0XE2,Ringbuffer#161=0XE3,Ringbuffer#162=0XE4,Ringbuffer#163=0XE5 variable Ringbuffer#164=0XE6,Ringbuffer#165=0XE7,Ringbuffer#166=0XE8,Ringbuffer#167=0XE9 variable Ringbuffer#168=0XEA,Ringbuffer#169=0XEB,Ringbuffer#170=0XEC,Ringbuffer#171=0XED variable Ringbuffer#172=0XEE,Ringbuffer#173=0XEF,Ringbuffer#174=0XF0,Ringbuffer#175=0XF1 variable Ringbuffer#176=0XF2,Ringbuffer#177=0XF3,Ringbuffer#178=0XF4,Ringbuffer#179=0XF5 variable Ringbuffer#180=0XF6,Ringbuffer#181=0XF7,Ringbuffer#182=0XF8,Ringbuffer#183=0XF9 variable Ringbuffer#184=0XFA,Ringbuffer#185=0XFB,Ringbuffer#186=0XFC,Ringbuffer#187=0XFD variable Ringbuffer#188=0XFE,Ringbuffer#189=0xFF,Ringbuffer#190=0X100,Ringbuffer#191=0X101 variable Ringbuffer#192=0X102,Ringbuffer#193=0X103,Ringbuffer#194=0X104,Ringbuffer#195=0X105 variable Ringbuffer#196=0X106,Ringbuffer#197=0X107,Ringbuffer#198=0X108,Ringbuffer#199=0X109 variable Ringbuffer#200=0X10A,Ringbuffer#201=0X10B,Ringbuffer#202=0X10C,Ringbuffer#203=0X10D variable Ringbuffer#204=0X10E,Ringbuffer#205=0X10F,Ringbuffer#206=0X110,Ringbuffer#207=0X111 variable Ringbuffer#208=0X112,Ringbuffer#209=0X113,Ringbuffer#210=0X114,Ringbuffer#211=0X115 variable Ringbuffer#212=0X116,Ringbuffer#213=0X117,Ringbuffer#214=0X118,Ringbuffer#215=0X119 variable Ringbuffer#216=0X11A,Ringbuffer#217=0X11B,Ringbuffer#218=0X11C,Ringbuffer#219=0X11D variable Ringbuffer#220=0X11E,Ringbuffer#221=0X11F,Ringbuffer#222=0X120,Ringbuffer#223=0X121 variable Ringbuffer#224=0X122,Ringbuffer#225=0X123,Ringbuffer#226=0X124,Ringbuffer#227=0X125 variable Ringbuffer#228=0X126,Ringbuffer#229=0X127,Ringbuffer#230=0X128,Ringbuffer#231=0X129 variable Ringbuffer#232=0X12A,Ringbuffer#233=0X12B,Ringbuffer#234=0X12C,Ringbuffer#235=0X12D variable Ringbuffer#236=0X12E,Ringbuffer#237=0X12F,Ringbuffer#238=0X130,Ringbuffer#239=0X131 variable Ringbuffer#240=0X132,Ringbuffer#241=0X133,Ringbuffer#242=0X134,Ringbuffer#243=0X135 variable Ringbuffer#244=0X136,Ringbuffer#245=0X137,Ringbuffer#246=0X138,Ringbuffer#247=0X139 variable Ringbuffer#248=0X13A,Ringbuffer#249=0X13B,Ringbuffer#250=0X13C,Ringbuffer#251=0X13D variable Ringbuffer#252=0X13E,Ringbuffer#253=0X13F,Ringbuffer#254=0X140,Ringbuffer#255=0X141 Dur equ 0X142 DurH equ 0X143 variable Dur#0=0X142,Dur#0H=0X143,Dur#1=0X144,Dur#1H=0X145 variable Dur#2=0X146,Dur#2H=0X147,Dur#3=0X148,Dur#3H=0X149 variable Dur#4=0X14A,Dur#4H=0X14B,Dur#5=0X14C,Dur#5H=0X14D variable Dur#6=0X14E,Dur#6H=0X14F,Dur#7=0X150,Dur#7H=0X151 variable Dur#8=0X152,Dur#8H=0X153,Dur#9=0X154,Dur#9H=0X155 variable Dur#10=0X156,Dur#10H=0X157,Dur#11=0X158,Dur#11H=0X159 variable Dur#12=0X15A,Dur#12H=0X15B,Dur#13=0X15C,Dur#13H=0X15D variable Dur#14=0X15E,Dur#14H=0X15F,Dur#15=0X160,Dur#15H=0X161 variable Dur#16=0X162,Dur#16H=0X163,Dur#17=0X164,Dur#17H=0X165 variable Dur#18=0X166,Dur#18H=0X167,Dur#19=0X168,Dur#19H=0X169 variable Dur#20=0X16A,Dur#20H=0X16B,Dur#21=0X16C,Dur#21H=0X16D variable Dur#22=0X16E,Dur#22H=0X16F,Dur#23=0X170,Dur#23H=0X171 variable Dur#24=0X172,Dur#24H=0X173,Dur#25=0X174,Dur#25H=0X175 variable Dur#26=0X176,Dur#26H=0X177,Dur#27=0X178,Dur#27H=0X179 variable Dur#28=0X17A,Dur#28H=0X17B,Dur#29=0X17C,Dur#29H=0X17D variable Dur#30=0X17E,Dur#30H=0X17F,Dur#31=0X180,Dur#31H=0X181 variable Dur#32=0X182,Dur#32H=0X183,Dur#33=0X184,Dur#33H=0X185 variable Dur#34=0X186,Dur#34H=0X187,Dur#35=0X188,Dur#35H=0X189 variable Dur#36=0X18A,Dur#36H=0X18B,Dur#37=0X18C,Dur#37H=0X18D variable Dur#38=0X18E,Dur#38H=0X18F,Dur#39=0X190,Dur#39H=0X191 variable Dur#40=0X192,Dur#40H=0X193,Dur#41=0X194,Dur#41H=0X195 variable Dur#42=0X196,Dur#42H=0X197,Dur#43=0X198,Dur#43H=0X199 variable Dur#44=0X19A,Dur#44H=0X19B,Dur#45=0X19C,Dur#45H=0X19D variable Dur#46=0X19E,Dur#46H=0X19F,Dur#47=0X1A0,Dur#47H=0X1A1 variable Dur#48=0X1A2,Dur#48H=0X1A3,Dur#49=0X1A4,Dur#49H=0X1A5 variable Dur#50=0X1A6,Dur#50H=0X1A7,Dur#51=0X1A8,Dur#51H=0X1A9 variable Dur#52=0X1AA,Dur#52H=0X1AB,Dur#53=0X1AC,Dur#53H=0X1AD variable Dur#54=0X1AE,Dur#54H=0X1AF,Dur#55=0X1B0,Dur#55H=0X1B1 variable Dur#56=0X1B2,Dur#56H=0X1B3,Dur#57=0X1B4,Dur#57H=0X1B5 variable Dur#58=0X1B6,Dur#58H=0X1B7,Dur#59=0X1B8,Dur#59H=0X1B9 variable Dur#60=0X1BA,Dur#60H=0X1BB,Dur#61=0X1BC,Dur#61H=0X1BD variable Dur#62=0X1BE,Dur#62H=0X1BF,Dur#63=0X1C0,Dur#63H=0X1C1 variable Dur#64=0X1C2,Dur#64H=0X1C3,Dur#65=0X1C4,Dur#65H=0X1C5 variable Dur#66=0X1C6,Dur#66H=0X1C7,Dur#67=0X1C8,Dur#67H=0X1C9 variable Dur#68=0X1CA,Dur#68H=0X1CB,Dur#69=0X1CC,Dur#69H=0X1CD variable Dur#70=0X1CE,Dur#70H=0X1CF,Dur#71=0X1D0,Dur#71H=0X1D1 variable Dur#72=0X1D2,Dur#72H=0X1D3,Dur#73=0X1D4,Dur#73H=0X1D5 variable Dur#74=0X1D6,Dur#74H=0X1D7,Dur#75=0X1D8,Dur#75H=0X1D9 variable Dur#76=0X1DA,Dur#76H=0X1DB,Dur#77=0X1DC,Dur#77H=0X1DD variable Dur#78=0X1DE,Dur#78H=0X1DF,Dur#79=0X1E0,Dur#79H=0X1E1 variable Dur#80=0X1E2,Dur#80H=0X1E3,Dur#81=0X1E4,Dur#81H=0X1E5 variable Dur#82=0X1E6,Dur#82H=0X1E7,Dur#83=0X1E8,Dur#83H=0X1E9 variable Dur#84=0X1EA,Dur#84H=0X1EB,Dur#85=0X1EC,Dur#85H=0X1ED variable Dur#86=0X1EE,Dur#86H=0X1EF,Dur#87=0X1F0,Dur#87H=0X1F1 variable Dur#88=0X1F2,Dur#88H=0X1F3,Dur#89=0X1F4,Dur#89H=0X1F5 variable Dur#90=0X1F6,Dur#90H=0X1F7,Dur#91=0X1F8,Dur#91H=0X1F9 variable Dur#92=0X1FA,Dur#92H=0X1FB,Dur#93=0X1FC,Dur#93H=0X1FD variable Dur#94=0X1FE,Dur#94H=0X1FF,Dur#95=0X200,Dur#95H=0X201 variable Dur#96=0X202,Dur#96H=0X203,Dur#97=0X204,Dur#97H=0X205 variable Dur#98=0X206,Dur#98H=0X207,Dur#99=0X208,Dur#99H=0X209 variable Dur#100=0X20A,Dur#100H=0X20B,Dur#101=0X20C,Dur#101H=0X20D variable Dur#102=0X20E,Dur#102H=0X20F,Dur#103=0X210,Dur#103H=0X211 variable Dur#104=0X212,Dur#104H=0X213,Dur#105=0X214,Dur#105H=0X215 variable Dur#106=0X216,Dur#106H=0X217,Dur#107=0X218,Dur#107H=0X219 variable Dur#108=0X21A,Dur#108H=0X21B,Dur#109=0X21C,Dur#109H=0X21D variable Dur#110=0X21E,Dur#110H=0X21F,Dur#111=0X220,Dur#111H=0X221 variable Dur#112=0X222,Dur#112H=0X223,Dur#113=0X224,Dur#113H=0X225 variable Dur#114=0X226,Dur#114H=0X227,Dur#115=0X228,Dur#115H=0X229 variable Dur#116=0X22A,Dur#116H=0X22B,Dur#117=0X22C,Dur#117H=0X22D variable Dur#118=0X22E,Dur#118H=0X22F,Dur#119=0X230,Dur#119H=0X231 variable Dur#120=0X232,Dur#120H=0X233,Dur#121=0X234,Dur#121H=0X235 variable Dur#122=0X236,Dur#122H=0X237,Dur#123=0X238,Dur#123H=0X239 variable Dur#124=0X23A,Dur#124H=0X23B,Dur#125=0X23C,Dur#125H=0X23D variable Dur#126=0X23E,Dur#126H=0X23F,Dur#127=0X240,Dur#127H=0X241 ; HEAP VARIABLES ; LOW PRIORITY INTERRUPT CONTEXT STORAGE _Low__Context_Store equ 0X242 variable _Low__Context_Store_0=0X242,_Low__Context_Store_1=0X243,_Low__Context_Store_2=0X244 ; ALIAS VARIABLES #define __CCP1_PORT PORTC #define __HPWM1_PORT PORTC #define __CCP1_PORT_PIN PORTC,2 #define __HPWM1_PORT_PIN PORTC,2 #define __CCP2_PORT PORTC #define __HPWM2_PORT PORTC #define __CCP2_PORT_PIN PORTC,1 #define __HPWM2_PORT_PIN PORTC,1 #define CntHw CntHH #define CntHwH CntHHH #define CntLw TMR0L #define CntLwH TMR0LH #define time Cnt #define timeH CntH #define timeHH CntHH #define timeHHH CntHHH #define MaxTim timeHHH,6 #define StBit Bytein,7 #define Resort_flag Resort,0 #define PowerOn CC66,0 #define FSR0SaveInt PP0 #define FSR0SaveIntH PP0H #define USART_FSR0_Save FSR0SaveInt #define USART_FSR0_SaveH PP0H #define USART_FSR0 FSR0L #define USART_FSR0H FSR0LH #define USART_FSR1 FSR1L #define USART_FSR1H FSR1LH ; CONSTANTS #define __optimiser_level 3 #define __xtal 40 #define PWMminF 2442 #define PWMminFH 9 #define __CCP1_PIN 2 #define __HPWM1_PIN 2 #define __CCP2_PIN 1 #define __HPWM2_PIN 1 #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 2 #define LastTask 1 #define fPwm 2442 #define fPwmH 9 #define HSERIAL_TXSTA 36 ;--------------------------------------------- ; START OF THE COMPILER'S LIBRARY ROUTINES _compiler__start_ org 0X000000 nop nop goto _compiler_main_start_ org 0X000008 bra High_Prior_Interrupt org 0X000018 bra Low_Prior_Interrupt __hrsout1__ btfss PIR1,PP_TXIF bra $ - 2 movwf TXREG return __hpwm_ movwf PP4H movlw 150 movwf PP0 movlw 152 movwf PP0H rcall __divide_u1616_ btfsc STATUS,2 bcf T2CON,PP_T2CKPS0 btfss STATUS,2 bsf T2CON,PP_T2CKPS0 addlw 252 btfss STATUS,0 bcf T2CON,PP_T2CKPS1 btfsc STATUS,0 bsf T2CON,PP_T2CKPS1 movlw 128 movwf PP0 movlw 150 movwf PP0H movlw 152 movwf PP2 clrf PP2H btfsc T2CON,PP_T2CKPS0 rcall __hpw_2s__ btfsc T2CON,PP_T2CKPS1 rcall __hpw_2s__ rcall __divide_int_u1616_ decf PP0,W movwf PR2 movff PP0,PP1 movff PP0H,PP1H movf GEN,W movwf PP3 movwf PP3H incfsz GEN,W clrf PP3H rcall __multiply_u1616_ movf PP2H,W decfsz PP4H,F bra __hpw_sk1__ movwf CCPR1L movlw 12 movwf CCP1CON btfsc PP2,7 bsf CCP1CON,5 btfsc PP2,6 bsf CCP1CON,4 bcf TRISC,2 __HPWM_Exit__ bsf T2CON,PP_TMR2ON return __hpw_sk1__ movwf CCPR2L movlw 12 movwf CCP2CON btfsc PP2,7 bsf CCP2CON,5 btfsc PP2,6 bsf CCP2CON,4 bcf TRISC,1 bra __HPWM_Exit__ __hpw_2s__ rcall __hpw_2l__ __hpw_2l__ bcf STATUS,0 rrcf PP2,F rrcf PP0H,F rrcf PP0,F return __delay_ms_ clrf PP1H __delay_ms_wreg_ movwf PP1 __delayms_from_regs__ movlw 255 addwf PP1,F addwfc PP1H,F bra $ + 2 btfss STATUS,0 return movlw 3 movwf PP0H movlw 230 rcall __delay_us_wreg_ bra __delayms_from_regs__ __delay_us_ clrf PP0H __delay_us_wreg_ addlw 254 movwf PP0 clrf WREG subwfb PP0H,F btfss STATUS,0 return nop decf PP0,F bra $ + 2 bra $ - 14 __divide_u1616_ clrf PP2H clrf PP2 __divide_int_u1616_ movlw 16 movwf PRODL __divide_u1616_loop_ rlcf PP0H,W rlcf PP2,F rlcf PP2H,F movf PP1,W subwf PP2,W movf PP1H,W subwfb PP2H,W bnc __divide_u1616_k_ movf PP1,W subwf PP2,F movf PP1H,W subwfb PP2H,F bsf STATUS,0 __divide_u1616_k_ rlcf PP0,F rlcf PP0H,F decfsz PRODL,F bra __divide_u1616_loop_ movf PP0,W return __multiply_u1616_ movf PP1,W mulwf PP3,0 movff PRODL,PP2 movff PRODH,PP2H movf PP1H,W mulwf PP3,0 movf PRODL,W addwf PP2H,F movf PP1,W mulwf PP3H,0 movf PRODL,W addwf PP2H,F movf PP2,W return _compiler_main_start_ clrf BPF ; UART1_ACTUALBAUD = 31250 ; UART1_BAUDERROR = 0 bcf BAUDCON,PP_BRG16 movlw 79 movwf SPBRG clrf SPBRGH movlw 36 movwf TXSTA movlw 144 movwf RCSTA movlb 0 ;--------------------------------------------- ; START OF THE USER'S PROGRAM CODE F1_SOF equ $ ; PROPELLER1.BAS F2_SOF equ $ ; 18F2525.Inc movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F2525.Inc F1_000061 equ $ ; in [PROPELLER1.BAS] Clear SSPCON1.5 bcf SSPCON1,5,0 F1_000062 equ $ ; in [PROPELLER1.BAS] TRISA = %01000111 movlw 71 movwf TRISA,0 F1_000063 equ $ ; in [PROPELLER1.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000064 equ $ ; in [PROPELLER1.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F3_SOF equ $ ; PROPELLER_IRQ.Inc F3_000044 equ $ ; in [PROPELLER_IRQ.Inc] goto _Over_IRQ_Handler bra _Over_IRQ_Handler ;--------------------------------------------- ; HIGH PRIORITY INTERRUPT HANDLER High_Prior_Interrupt _Timer0_IRQ F3_000056 equ $ ; in [PROPELLER_IRQ.Inc] if INTCON.2 = 1 Then btfss INTCON,2,0 bra _lbl__3 F3_000057 equ $ ; in [PROPELLER_IRQ.Inc] Clear INTCON.2 bcf INTCON,2,0 F3_000058 equ $ ; in [PROPELLER_IRQ.Inc] Inc Cnt.Word1 infsnz CntHH,F,0 incf CntHHH,F,0 F3_000059 equ $ ; in [PROPELLER_IRQ.Inc] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F3_000061 equ $ ; in [PROPELLER_IRQ.Inc] btg PORTB.5 btg PORTB,5 F3_000062 equ $ ; in [PROPELLER_IRQ.Inc] retfie fast retfie 1 F3_000063 equ $ ; in [PROPELLER_IRQ.Inc] endif _lbl__3 _UART_IRQ F3_000065 equ $ ; in [PROPELLER_IRQ.Inc] if PIR1.5 = 1 Then btfss PIR1,5,0 bra _lbl__5 F3_000066 equ $ ; in [PROPELLER_IRQ.Inc] movlw 6 movlw 6 F3_000067 equ $ ; in [PROPELLER_IRQ.Inc] andwf RCSTA,W andwf RCSTA,W F3_000068 equ $ ; in [PROPELLER_IRQ.Inc] bnz _Uart_Error bnz _Uart_Error F3_000069 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR1_Save = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000070 equ $ ; in [PROPELLER_IRQ.Inc] Inc IndexIn incf IndexIn,F,0 F3_000080 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR1 = VarPtr Ringbuffer lfsr 1,66 F3_000081 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_000082 equ $ ; in [PROPELLER_IRQ.Inc] INDF1 = RCREG movff RCREG,INDF1 F3_000083 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR1 = USART_FSR1_Save movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000085 equ $ ; in [PROPELLER_IRQ.Inc] retfie fast retfie 1 _Uart_Error F3_000087 equ $ ; in [PROPELLER_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000088 equ $ ; in [PROPELLER_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000089 equ $ ; in [PROPELLER_IRQ.Inc] Clear RCSTA.4 bcf RCSTA,4,0 F3_000090 equ $ ; in [PROPELLER_IRQ.Inc] Set RCSTA.4 bsf RCSTA,4,0 F3_000091 equ $ ; in [PROPELLER_IRQ.Inc] endif _lbl__5 F3_000092 equ $ ; in [PROPELLER_IRQ.Inc] retfie fast retfie 1 F3_000095 equ $ ; in [PROPELLER_IRQ.Inc] Sub GetMidiIn () GetMidiIn F3_000096 equ $ ; in [PROPELLER_IRQ.Inc] if IndexIn <> IndexOut Then movf IndexIn,W,0 subwf IndexOut,W,0 bz _lbl__7 F3_000097 equ $ ; in [PROPELLER_IRQ.Inc] Inc IndexOut incf IndexOut,F,0 F3_000098 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR0_Save = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000099 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR0 = VarPtr Ringbuffer lfsr 0,66 F3_000100 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_000101 equ $ ; in [PROPELLER_IRQ.Inc] WREG = INDF0 movf INDF0,W,0 F3_000102 equ $ ; in [PROPELLER_IRQ.Inc] MidiIn = WREG movwf MidiIn,0 F3_000103 equ $ ; in [PROPELLER_IRQ.Inc] USART_FSR0 = USART_FSR0_Save movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000104 equ $ ; in [PROPELLER_IRQ.Inc] Set STATUS.0 bsf STATUS,0,0 F3_000105 equ $ ; in [PROPELLER_IRQ.Inc] RET return 0 bra _lbl__8 _lbl__7 F3_000106 equ $ ; in [PROPELLER_IRQ.Inc] else F3_000107 equ $ ; in [PROPELLER_IRQ.Inc] WREG = 255 setf WREG,0 F3_000108 equ $ ; in [PROPELLER_IRQ.Inc] MidiIn = WREG movwf MidiIn,0 F3_000109 equ $ ; in [PROPELLER_IRQ.Inc] btfss STATUS,C btfss STATUS,C F3_000110 equ $ ; in [PROPELLER_IRQ.Inc] RET return 0 F3_000111 equ $ ; in [PROPELLER_IRQ.Inc] endif _lbl__8 F3_000112 equ $ ; in [PROPELLER_IRQ.Inc] EndSub return 0 ; EndSub ;--------------------------------------------- _Init_Usart F3_000128 equ $ ; in [PROPELLER_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000129 equ $ ; in [PROPELLER_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000130 equ $ ; in [PROPELLER_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000132 equ $ ; in [PROPELLER_IRQ.Inc] Set IPR1.5 bsf IPR1,5,0 F3_000134 equ $ ; in [PROPELLER_IRQ.Inc] Set INTCON.7 bsf INTCON,7,0 F3_000135 equ $ ; in [PROPELLER_IRQ.Inc] Set INTCON.6 bsf INTCON,6,0 F3_000137 equ $ ; in [PROPELLER_IRQ.Inc] return return 0 _Clear_Usart_Buffer F3_000151 equ $ ; in [PROPELLER_IRQ.Inc] PIE1.5 = 0 bcf PIE1,5,0 F3_000152 equ $ ; in [PROPELLER_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_000153 equ $ ; in [PROPELLER_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000154 equ $ ; in [PROPELLER_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000155 equ $ ; in [PROPELLER_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000156 equ $ ; in [PROPELLER_IRQ.Inc] return return 0 ;--------------------------------------------- ; LOW PRIORITY INTERRUPT HANDLER Low_Prior_Interrupt Timer3_ISR F3_000166 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_000167 equ $ ; in [PROPELLER_IRQ.Inc] Clear PIR2.1 bcf PIR2,1,0 F3_000174 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 _Over_IRQ_Handler F3_EOF equ $ ; PROPELLER_IRQ.Inc F1_000153 equ $ ; in [PROPELLER1.BAS] low PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000154 equ $ ; in [PROPELLER1.BAS] low PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000155 equ $ ; in [PROPELLER1.BAS] low PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000156 equ $ ; in [PROPELLER1.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000157 equ $ ; in [PROPELLER1.BAS] low PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000158 equ $ ; in [PROPELLER1.BAS] low PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000159 equ $ ; in [PROPELLER1.BAS] low PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000160 equ $ ; in [PROPELLER1.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 rcall __hpwm_ F1_000161 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 rcall __hpwm_ F1_000162 equ $ ; in [PROPELLER1.BAS] Clear CC66 clrf CC66,0 F1_000163 equ $ ; in [PROPELLER1.BAS] Clear PowerOn bcf CC66,0,0 F1_000164 equ $ ; in [PROPELLER1.BAS] GoSub Dur_Lookup call Dur_Lookup MAIN F1_000170 equ $ ; in [PROPELLER1.BAS] high PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000171 equ $ ; in [PROPELLER1.BAS] DelayMs 50 movlw 50 rcall __delay_ms_ F1_000172 equ $ ; in [PROPELLER1.BAS] low PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000173 equ $ ; in [PROPELLER1.BAS] Set Timvals lfsr 0,Timvals movlw 8 _pblb__10 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__10 F1_000174 equ $ ; in [PROPELLER1.BAS] Clear Lites clrf Lites,0 F1_000175 equ $ ; in [PROPELLER1.BAS] Init_Usart_Interrupt variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000177 equ $ ; in [PROPELLER1.BAS] Clear_Serial_Buffer variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000187 equ $ ; in [PROPELLER1.BAS] Clear T1CON clrf T1CON,0 F1_000188 equ $ ; in [PROPELLER1.BAS] Clear INTCON.2 bcf INTCON,2,0 F1_000189 equ $ ; in [PROPELLER1.BAS] Set INTCON.5 bsf INTCON,5,0 F1_000190 equ $ ; in [PROPELLER1.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000211 equ $ ; in [PROPELLER1.BAS] Clear T3CON clrf T3CON,0 F1_000212 equ $ ; in [PROPELLER1.BAS] Clear PIR2.1 bcf PIR2,1,0 F1_000213 equ $ ; in [PROPELLER1.BAS] Set PIE2.1 bsf PIE2,1,0 F1_000215 equ $ ; in [PROPELLER1.BAS] Set RCON.7 bsf RCON,7,0 F1_000216 equ $ ; in [PROPELLER1.BAS] Clear IPR2.1 bcf IPR2,1,0 F1_000218 equ $ ; in [PROPELLER1.BAS] T3CON = %10110000 movlw 176 movwf T3CON,0 F1_000227 equ $ ; in [PROPELLER1.BAS] HRsout Control_Status, 66, 64 movlw 189 rcall __hrsout1__ movlw 66 rcall __hrsout1__ movlw 64 rcall __hrsout1__ F1_000230 equ $ ; in [PROPELLER1.BAS] While _lbl__11 F1_000232 equ $ ; in [PROPELLER1.BAS] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F1_000233 equ $ ; in [PROPELLER1.BAS] GetMidiIn () rcall GetMidiIn F1_000234 equ $ ; in [PROPELLER1.BAS] Bytein = MidiIn movff MidiIn,Bytein Midi_Parse F1_000237 equ $ ; in [PROPELLER1.BAS] if Bytein > Control_Status Then movlw 190 subwf Bytein,W,0 bnc _lbl__14 F1_000238 equ $ ; in [PROPELLER1.BAS] if Bytein > 253 Then movlw 254 subwf Bytein,W,0 bnc _lbl__16 F1_000242 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers bra _lbl__17 _lbl__16 F1_000243 equ $ ; in [PROPELLER1.BAS] else F1_000244 equ $ ; in [PROPELLER1.BAS] Clear statusbyte clrf statusbyte,0 F1_000245 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers F1_000246 equ $ ; in [PROPELLER1.BAS] end if _lbl__17 F1_000247 equ $ ; in [PROPELLER1.BAS] endif _lbl__14 F1_000248 equ $ ; in [PROPELLER1.BAS] if StBit =1 Then btfss Bytein,7,0 bra _lbl__19 F1_000250 equ $ ; in [PROPELLER1.BAS] Clear statusbyte clrf statusbyte,0 F1_000251 equ $ ; in [PROPELLER1.BAS] Select Bytein F1_000252 equ $ ; in [PROPELLER1.BAS] Case NoteOff_Status movlw 141 subwf Bytein,W,0 bnz _lbl__21 F1_000253 equ $ ; in [PROPELLER1.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000254 equ $ ; in [PROPELLER1.BAS] Set noteUit setf noteUit,0 F1_000255 equ $ ; in [PROPELLER1.BAS] Set release setf release,0 bra _lbl__20 _lbl__21 F1_000256 equ $ ; in [PROPELLER1.BAS] Case NoteOn_Status movlw 157 subwf Bytein,W,0 bnz _lbl__24 F1_000257 equ $ ; in [PROPELLER1.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000258 equ $ ; in [PROPELLER1.BAS] Set noteAan setf noteAan,0 F1_000259 equ $ ; in [PROPELLER1.BAS] Set velo setf velo,0 bra _lbl__20 _lbl__24 F1_000260 equ $ ; in [PROPELLER1.BAS] Case Keypres_Status movlw 173 subwf Bytein,W,0 bnz _lbl__26 F1_000261 equ $ ; in [PROPELLER1.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000262 equ $ ; in [PROPELLER1.BAS] Set notePres setf notePres,0 F1_000263 equ $ ; in [PROPELLER1.BAS] Set pres setf pres,0 bra _lbl__20 _lbl__26 F1_000264 equ $ ; in [PROPELLER1.BAS] Case Control_Status movlw 189 subwf Bytein,W,0 bnz _lbl__28 F1_000265 equ $ ; in [PROPELLER1.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000266 equ $ ; in [PROPELLER1.BAS] Set Ctrl setf Ctrl,0 F1_000267 equ $ ; in [PROPELLER1.BAS] Set value setf value,0 F1_000278 equ $ ; in [PROPELLER1.BAS] end Select _lbl__28 _lbl__20 bra _lbl__29 _lbl__19 F1_000279 equ $ ; in [PROPELLER1.BAS] else F1_000280 equ $ ; in [PROPELLER1.BAS] Select statusbyte F1_000281 equ $ ; in [PROPELLER1.BAS] Case 0 movf statusbyte,F,0 bnz _lbl__31 F1_000282 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers bra _lbl__30 _lbl__31 F1_000283 equ $ ; in [PROPELLER1.BAS] Case NoteOff_Status movlw 141 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__34 F1_000284 equ $ ; in [PROPELLER1.BAS] if noteUit = 255 Then incf noteUit,W,0 bnz _lbl__36 F1_000285 equ $ ; in [PROPELLER1.BAS] noteUit = Bytein movff Bytein,noteUit bra _lbl__37 _lbl__36 F1_000286 equ $ ; in [PROPELLER1.BAS] else F1_000287 equ $ ; in [PROPELLER1.BAS] release = Bytein movff Bytein,release F1_000288 equ $ ; in [PROPELLER1.BAS] Select noteUit F1_000289 equ $ ; in [PROPELLER1.BAS] Case 40 movlw 40 subwf noteUit,W,0 bnz _lbl__39 F1_000290 equ $ ; in [PROPELLER1.BAS] HPWM 2,0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 rcall __hpwm_ F1_000291 equ $ ; in [PROPELLER1.BAS] if release > 0 Then movf release,F,0 bz _lbl__42 F1_000292 equ $ ; in [PROPELLER1.BAS] pw2 = release << 1 bcf STATUS,0,0 rlcf release,W,0 movwf pw2,0 F1_000293 equ $ ; in [PROPELLER1.BAS] HPWM 1, pw2, fPwm movff pw2,GEN movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 rcall __hpwm_ F1_000294 equ $ ; in [PROPELLER1.BAS] Set PORTB.3 bsf LATB,3,0 bra _lbl__43 _lbl__42 F1_000295 equ $ ; in [PROPELLER1.BAS] else F1_000296 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 rcall __hpwm_ F1_000297 equ $ ; in [PROPELLER1.BAS] Clear PORTB.3 bcf LATB,3,0 F1_000298 equ $ ; in [PROPELLER1.BAS] endif _lbl__43 bra _lbl__38 _lbl__39 F1_000299 equ $ ; in [PROPELLER1.BAS] Case 120 movlw 120 subwf noteUit,W,0 bnz _lbl__45 F1_000300 equ $ ; in [PROPELLER1.BAS] Clear Lites.0 bcf Lites,0,0 F1_000302 equ $ ; in [PROPELLER1.BAS] Clear PORTC.5 bcf LATC,5,0 F1_000303 equ $ ; in [PROPELLER1.BAS] Set Timvals[0] setf Timvals#0HHH,0 setf Timvals#0HH,0 setf Timvals#0H,0 setf Timvals#0,0 F1_000304 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 bra _lbl__38 _lbl__45 F1_000305 equ $ ; in [PROPELLER1.BAS] Case 121 movlw 121 subwf noteUit,W,0 bnz _lbl__47 F1_000306 equ $ ; in [PROPELLER1.BAS] Clear Lites.1 bcf Lites,1,0 F1_000308 equ $ ; in [PROPELLER1.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000309 equ $ ; in [PROPELLER1.BAS] Set Timvals[1] setf Timvals#1HHH,0 setf Timvals#1HH,0 setf Timvals#1H,0 setf Timvals#1,0 F1_000310 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 F1_000311 equ $ ; in [PROPELLER1.BAS] EndSelect _lbl__47 _lbl__38 F1_000312 equ $ ; in [PROPELLER1.BAS] Set noteUit setf noteUit,0 F1_000313 equ $ ; in [PROPELLER1.BAS] endif _lbl__37 F1_000314 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers bra _lbl__30 _lbl__34 F1_000315 equ $ ; in [PROPELLER1.BAS] Case NoteOn_Status movlw 157 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__49 F1_000316 equ $ ; in [PROPELLER1.BAS] if noteAan = 255 Then incf noteAan,W,0 bnz _lbl__51 F1_000317 equ $ ; in [PROPELLER1.BAS] noteAan = Bytein movff Bytein,noteAan bra _lbl__52 _lbl__51 F1_000318 equ $ ; in [PROPELLER1.BAS] else F1_000319 equ $ ; in [PROPELLER1.BAS] velo = Bytein movff Bytein,velo F1_000320 equ $ ; in [PROPELLER1.BAS] if velo = 0 Then movf velo,F,0 bnz _lbl__54 F1_000321 equ $ ; in [PROPELLER1.BAS] Select noteAan F1_000322 equ $ ; in [PROPELLER1.BAS] Case 40 movlw 40 subwf noteAan,W,0 bnz _lbl__56 F1_000323 equ $ ; in [PROPELLER1.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 rcall __hpwm_ F1_000324 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 rcall __hpwm_ F1_000325 equ $ ; in [PROPELLER1.BAS] Clear PORTB.3 bcf LATB,3,0 bra _lbl__55 _lbl__56 F1_000326 equ $ ; in [PROPELLER1.BAS] Case 120 movlw 120 subwf noteAan,W,0 bnz _lbl__59 F1_000327 equ $ ; in [PROPELLER1.BAS] Clear Lites.0 bcf Lites,0,0 F1_000328 equ $ ; in [PROPELLER1.BAS] Clear PORTC.5 bcf LATC,5,0 F1_000329 equ $ ; in [PROPELLER1.BAS] Set Timvals[0] setf Timvals#0HHH,0 setf Timvals#0HH,0 setf Timvals#0H,0 setf Timvals#0,0 F1_000330 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 bra _lbl__55 _lbl__59 F1_000331 equ $ ; in [PROPELLER1.BAS] Case 121 movlw 121 subwf noteAan,W,0 bnz _lbl__61 F1_000332 equ $ ; in [PROPELLER1.BAS] Clear Lites.1 bcf Lites,1,0 F1_000333 equ $ ; in [PROPELLER1.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000334 equ $ ; in [PROPELLER1.BAS] Set Timvals[1] setf Timvals#1HHH,0 setf Timvals#1HH,0 setf Timvals#1H,0 setf Timvals#1,0 F1_000335 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 F1_000336 equ $ ; in [PROPELLER1.BAS] EndSelect _lbl__61 _lbl__55 F1_000337 equ $ ; in [PROPELLER1.BAS] Set noteAan setf noteAan,0 F1_000338 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers F1_000339 equ $ ; in [PROPELLER1.BAS] endif _lbl__54 F1_000340 equ $ ; in [PROPELLER1.BAS] if PowerOn > 0 Then btfss CC66,0,0 bra _lbl__63 F1_000341 equ $ ; in [PROPELLER1.BAS] Select noteAan F1_000342 equ $ ; in [PROPELLER1.BAS] Case 40 movlw 40 subwf noteAan,W,0 bnz _lbl__65 F1_000343 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 call __hpwm_ F1_000344 equ $ ; in [PROPELLER1.BAS] Clear PORTB.3 bcf LATB,3,0 F1_000347 equ $ ; in [PROPELLER1.BAS] pw1 = velo << 1 bcf STATUS,0,0 rlcf velo,W,0 movwf pw1,0 F1_000348 equ $ ; in [PROPELLER1.BAS] Inc pw1 incf pw1,F,0 F1_000349 equ $ ; in [PROPELLER1.BAS] if pw1 < 20 Then pw1 = 20 movlw 20 subwf pw1,W,0 bc _lbl__68 movlw 20 movwf pw1,0 _lbl__68 F1_000350 equ $ ; in [PROPELLER1.BAS] HPWM 2, pw1, fPwm movff pw1,GEN movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 call __hpwm_ bra _lbl__64 _lbl__65 F1_000351 equ $ ; in [PROPELLER1.BAS] Case 120 movlw 120 subwf noteAan,W,0 bnz _lbl__70 F1_000352 equ $ ; in [PROPELLER1.BAS] Set PORTC.5 bsf LATC,5,0 F1_000353 equ $ ; in [PROPELLER1.BAS] Set Lites.0 bsf Lites,0,0 F1_000354 equ $ ; in [PROPELLER1.BAS] if velo < 127 Then movlw 127 subwf velo,W,0 bc _lbl__72 F1_000355 equ $ ; in [PROPELLER1.BAS] dur0 = velo movff velo,dur0 F1_000356 equ $ ; in [PROPELLER1.BAS] Timvals[0] = time + Dur[dur0] lfsr 0,Dur bcf STATUS,0,0 rlcf dur0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#0 movff PBS_VAR0H,Timvals#0H movff PBS_VAR0HH,Timvals#0HH movff PBS_VAR0HHH,Timvals#0HHH bra _lbl__73 _lbl__72 F1_000357 equ $ ; in [PROPELLER1.BAS] else F1_000358 equ $ ; in [PROPELLER1.BAS] Set Timvals[0] setf Timvals#0HHH,0 setf Timvals#0HH,0 setf Timvals#0H,0 setf Timvals#0,0 F1_000359 equ $ ; in [PROPELLER1.BAS] endif _lbl__73 F1_000360 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 bra _lbl__64 _lbl__70 F1_000361 equ $ ; in [PROPELLER1.BAS] Case 121 movlw 121 subwf noteAan,W,0 bnz _lbl__75 F1_000362 equ $ ; in [PROPELLER1.BAS] Set PORTC.4 bsf LATC,4,0 F1_000363 equ $ ; in [PROPELLER1.BAS] Set Lites.1 bsf Lites,1,0 F1_000364 equ $ ; in [PROPELLER1.BAS] if velo < 127 Then movlw 127 subwf velo,W,0 bc _lbl__77 F1_000365 equ $ ; in [PROPELLER1.BAS] dur1 = velo movff velo,dur1 F1_000366 equ $ ; in [PROPELLER1.BAS] Timvals[1] = time + Dur[dur1] lfsr 0,Dur bcf STATUS,0,0 rlcf dur1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#1 movff PBS_VAR0H,Timvals#1H movff PBS_VAR0HH,Timvals#1HH movff PBS_VAR0HHH,Timvals#1HHH bra _lbl__78 _lbl__77 F1_000367 equ $ ; in [PROPELLER1.BAS] else F1_000368 equ $ ; in [PROPELLER1.BAS] Set Timvals[1] setf Timvals#1HHH,0 setf Timvals#1HH,0 setf Timvals#1H,0 setf Timvals#1,0 F1_000369 equ $ ; in [PROPELLER1.BAS] endif _lbl__78 F1_000370 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 F1_000371 equ $ ; in [PROPELLER1.BAS] EndSelect _lbl__75 _lbl__64 F1_000372 equ $ ; in [PROPELLER1.BAS] endif _lbl__63 F1_000373 equ $ ; in [PROPELLER1.BAS] Set noteAan setf noteAan,0 F1_000374 equ $ ; in [PROPELLER1.BAS] endif _lbl__52 F1_000375 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers bra _lbl__30 _lbl__49 F1_000376 equ $ ; in [PROPELLER1.BAS] Case Keypres_Status movlw 173 subwf statusbyte,W,0 bnz _lbl__80 F1_000377 equ $ ; in [PROPELLER1.BAS] if notePres = 255 Then incf notePres,W,0 bnz _lbl__82 F1_000378 equ $ ; in [PROPELLER1.BAS] notePres = Bytein movff Bytein,notePres bra _lbl__83 _lbl__82 F1_000379 equ $ ; in [PROPELLER1.BAS] else F1_000380 equ $ ; in [PROPELLER1.BAS] pres = Bytein movff Bytein,pres F1_000381 equ $ ; in [PROPELLER1.BAS] GoSub KeyPres rcall KeyPres F1_000382 equ $ ; in [PROPELLER1.BAS] endif _lbl__83 F1_000383 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers bra _lbl__30 _lbl__80 F1_000384 equ $ ; in [PROPELLER1.BAS] Case Control_Status movlw 189 subwf statusbyte,W,0 bnz _lbl__85 F1_000385 equ $ ; in [PROPELLER1.BAS] if Ctrl = 255 Then incf Ctrl,W,0 bnz _lbl__87 F1_000386 equ $ ; in [PROPELLER1.BAS] Ctrl = Bytein movff Bytein,Ctrl bra _lbl__88 _lbl__87 F1_000387 equ $ ; in [PROPELLER1.BAS] else F1_000388 equ $ ; in [PROPELLER1.BAS] value = Bytein movff Bytein,value F1_000389 equ $ ; in [PROPELLER1.BAS] GoSub Controller rcall Controller F1_000390 equ $ ; in [PROPELLER1.BAS] endif _lbl__88 F1_000391 equ $ ; in [PROPELLER1.BAS] goto Check_Timers bra Check_Timers F1_000397 equ $ ; in [PROPELLER1.BAS] end Select _lbl__85 _lbl__30 F1_000398 equ $ ; in [PROPELLER1.BAS] endif _lbl__29 F1_000400 equ $ ; in [PROPELLER1.BAS] if Resort_flag = 1 Then GoSub SortTimers btfsc Resort,0,0 rcall SortTimers _lbl__90 Check_Timers F1_000403 equ $ ; in [PROPELLER1.BAS] if idx < NrTasks Then movlw 2 subwf idx,W,0 btfsc STATUS,0,0 bra _lbl__92 F1_000404 equ $ ; in [PROPELLER1.BAS] if time >= Nxt Then movf Nxt,W,0 subwf Cnt,W,0 movf NxtH,W,0 subwfb CntH,W,0 movf NxtHH,W,0 subwfb CntHH,W,0 movf NxtHHH,W,0 subwfb CntHHH,W,0 btfss STATUS,0,0 bra _lbl__94 F1_000406 equ $ ; in [PROPELLER1.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000408 equ $ ; in [PROPELLER1.BAS] Select idx F1_000409 equ $ ; in [PROPELLER1.BAS] Case 0 movf idx,F,0 bnz _lbl__96 F1_000410 equ $ ; in [PROPELLER1.BAS] if Lites.0 = 0 Then btfsc Lites,0,0 bra _lbl__99 F1_000411 equ $ ; in [PROPELLER1.BAS] Set Timvals[0] setf Timvals#0HHH,0 setf Timvals#0HH,0 setf Timvals#0H,0 setf Timvals#0,0 F1_000412 equ $ ; in [PROPELLER1.BAS] Clear PORTC.5 bcf LATC,5,0 bra _lbl__100 _lbl__99 F1_000413 equ $ ; in [PROPELLER1.BAS] else F1_000414 equ $ ; in [PROPELLER1.BAS] Timvals[0] = time + Dur[dur0] lfsr 0,Dur bcf STATUS,0,0 rlcf dur0,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#0 movff PBS_VAR0H,Timvals#0H movff PBS_VAR0HH,Timvals#0HH movff PBS_VAR0HHH,Timvals#0HHH F1_000415 equ $ ; in [PROPELLER1.BAS] btg PORTC.5 btg PORTC,5 F1_000416 equ $ ; in [PROPELLER1.BAS] endif _lbl__100 F1_000417 equ $ ; in [PROPELLER1.BAS] goto jumpout bra jumpout bra _lbl__95 _lbl__96 F1_000418 equ $ ; in [PROPELLER1.BAS] Case 1 movlw 1 subwf idx,W,0 bnz _lbl__102 F1_000419 equ $ ; in [PROPELLER1.BAS] if Lites.1 = 0 Then btfsc Lites,1,0 bra _lbl__104 F1_000420 equ $ ; in [PROPELLER1.BAS] Set Timvals[1] setf Timvals#1HHH,0 setf Timvals#1HH,0 setf Timvals#1H,0 setf Timvals#1,0 F1_000421 equ $ ; in [PROPELLER1.BAS] Clear PORTC.4 bcf LATC,4,0 bra _lbl__105 _lbl__104 F1_000422 equ $ ; in [PROPELLER1.BAS] else F1_000423 equ $ ; in [PROPELLER1.BAS] Timvals[1] = time + Dur[dur1] lfsr 0,Dur bcf STATUS,0,0 rlcf dur1,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H movf PBS_VAR1,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movf PBS_VAR1H,W,0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#1 movff PBS_VAR0H,Timvals#1H movff PBS_VAR0HH,Timvals#1HH movff PBS_VAR0HHH,Timvals#1HHH F1_000424 equ $ ; in [PROPELLER1.BAS] btg PORTC.4 btg PORTC,4 F1_000425 equ $ ; in [PROPELLER1.BAS] endif _lbl__105 F1_000426 equ $ ; in [PROPELLER1.BAS] goto jumpout bra jumpout F1_000430 equ $ ; in [PROPELLER1.BAS] EndSelect _lbl__102 _lbl__95 jumpout F1_000432 equ $ ; in [PROPELLER1.BAS] GoSub SortTimers rcall SortTimers F1_000433 equ $ ; in [PROPELLER1.BAS] endif _lbl__94 bra _lbl__106 _lbl__92 F1_000434 equ $ ; in [PROPELLER1.BAS] else F1_000436 equ $ ; in [PROPELLER1.BAS] if MaxTim = 1 Then btfss timeHHH,6,0 bra _lbl__108 F1_000437 equ $ ; in [PROPELLER1.BAS] Clear Cnt clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000438 equ $ ; in [PROPELLER1.BAS] Set Timvals lfsr 0,Timvals movlw 8 _pblb__109 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__109 F1_000439 equ $ ; in [PROPELLER1.BAS] endif _lbl__108 F1_000440 equ $ ; in [PROPELLER1.BAS] endif _lbl__106 F1_000442 equ $ ; in [PROPELLER1.BAS] Wend bra _lbl__11 _lbl__12 SortTimers F1_000447 equ $ ; in [PROPELLER1.BAS] Set idx setf idx,0 F1_000448 equ $ ; in [PROPELLER1.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000449 equ $ ; in [PROPELLER1.BAS] For I = 0 To LastTask clrf _I,0 _frlb__110 movlw 2 subwf _I,W,0 bc _nxlb__111 F1_000450 equ $ ; in [PROPELLER1.BAS] if Timvals[I] < Nxt Then bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 55 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,PBS_VAR0 movff PREINC0,PBS_VAR0H movff PREINC0,PBS_VAR0HH movff PREINC0,PBS_VAR0HHH movf Nxt,W,0 subwf PBS_VAR0,W,0 movf NxtH,W,0 subwfb PBS_VAR0H,W,0 movf NxtHH,W,0 subwfb PBS_VAR0HH,W,0 movf NxtHHH,W,0 subwfb PBS_VAR0HHH,W,0 bc _lbl__114 F1_000451 equ $ ; in [PROPELLER1.BAS] Nxt = Timvals[I] bcf STATUS,0,0 rlcf _I,W,0 movwf FSR0L,0 clrf FSR0H,0 rlcf FSR0H,F,0 rlcf FSR0L,F,0 rlcf FSR0H,F,0 movlw 55 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000452 equ $ ; in [PROPELLER1.BAS] idx = I movff _I,idx F1_000453 equ $ ; in [PROPELLER1.BAS] endif _lbl__114 _ctlb__112 F1_000454 equ $ ; in [PROPELLER1.BAS] Next I incf _I,F,0 bnc _frlb__110 _nxlb__111 F1_000455 equ $ ; in [PROPELLER1.BAS] Clear Resort_flag bcf Resort,0,0 F1_000456 equ $ ; in [PROPELLER1.BAS] return return 0 KeyPres F1_000461 equ $ ; in [PROPELLER1.BAS] Select notePres F1_000462 equ $ ; in [PROPELLER1.BAS] Case 120 movlw 120 subwf notePres,W,0 bnz _lbl__116 F1_000463 equ $ ; in [PROPELLER1.BAS] if Lites.0 = 1 Then btfss Lites,0,0 bra _lbl__119 F1_000464 equ $ ; in [PROPELLER1.BAS] Timvals[0] = time + pres movf pres,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movlw 0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#0 movff PBS_VAR0H,Timvals#0H movff PBS_VAR0HH,Timvals#0HH movff PBS_VAR0HHH,Timvals#0HHH F1_000465 equ $ ; in [PROPELLER1.BAS] dur0 = pres movff pres,dur0 bra _lbl__120 _lbl__119 F1_000466 equ $ ; in [PROPELLER1.BAS] else F1_000467 equ $ ; in [PROPELLER1.BAS] Clear PORTC.5 bcf LATC,5,0 F1_000468 equ $ ; in [PROPELLER1.BAS] Set Timvals[0] setf Timvals#0HHH,0 setf Timvals#0HH,0 setf Timvals#0H,0 setf Timvals#0,0 F1_000469 equ $ ; in [PROPELLER1.BAS] endif _lbl__120 F1_000470 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 bra _lbl__115 _lbl__116 F1_000471 equ $ ; in [PROPELLER1.BAS] Case 121 movlw 121 subwf notePres,W,0 bnz _lbl__122 F1_000472 equ $ ; in [PROPELLER1.BAS] if Lites.1 = 1 Then btfss Lites,1,0 bra _lbl__124 F1_000473 equ $ ; in [PROPELLER1.BAS] Timvals[1] = time + pres movf pres,W,0 addwf Cnt,W,0 movwf PBS_VAR0,0 movlw 0 addwfc CntH,W,0 movwf PBS_VAR0H,0 movlw 0 addwfc CntHH,W,0 movwf PBS_VAR0HH,0 movlw 0 addwfc CntHHH,W,0 movwf PBS_VAR0HHH,0 movff PBS_VAR0,Timvals#1 movff PBS_VAR0H,Timvals#1H movff PBS_VAR0HH,Timvals#1HH movff PBS_VAR0HHH,Timvals#1HHH F1_000474 equ $ ; in [PROPELLER1.BAS] dur1 = pres movff pres,dur1 bra _lbl__125 _lbl__124 F1_000475 equ $ ; in [PROPELLER1.BAS] else F1_000476 equ $ ; in [PROPELLER1.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000477 equ $ ; in [PROPELLER1.BAS] Set Timvals[1] setf Timvals#1HHH,0 setf Timvals#1HH,0 setf Timvals#1H,0 setf Timvals#1,0 F1_000478 equ $ ; in [PROPELLER1.BAS] endif _lbl__125 F1_000479 equ $ ; in [PROPELLER1.BAS] Set Resort_flag bsf Resort,0,0 F1_000480 equ $ ; in [PROPELLER1.BAS] end Select _lbl__122 _lbl__115 F1_000481 equ $ ; in [PROPELLER1.BAS] Set notePres setf notePres,0 F1_000482 equ $ ; in [PROPELLER1.BAS] return return 0 Controller F1_000499 equ $ ; in [PROPELLER1.BAS] Select Ctrl F1_000500 equ $ ; in [PROPELLER1.BAS] Case 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__127 F1_000502 equ $ ; in [PROPELLER1.BAS] if value = 0 Then movf value,F,0 bnz _lbl__130 F1_000503 equ $ ; in [PROPELLER1.BAS] Clear PowerOn bcf CC66,0,0 F1_000504 equ $ ; in [PROPELLER1.BAS] Clear PORTB.1 bcf LATB,1,0 F1_000505 equ $ ; in [PROPELLER1.BAS] GoSub PowerDown rcall PowerDown bra _lbl__131 _lbl__130 F1_000506 equ $ ; in [PROPELLER1.BAS] else F1_000507 equ $ ; in [PROPELLER1.BAS] Set PowerOn bsf CC66,0,0 F1_000508 equ $ ; in [PROPELLER1.BAS] Set PORTB.1 bsf LATB,1,0 F1_000509 equ $ ; in [PROPELLER1.BAS] endif _lbl__131 bra _lbl__126 _lbl__127 F1_000510 equ $ ; in [PROPELLER1.BAS] Case 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__133 F1_000511 equ $ ; in [PROPELLER1.BAS] GoSub AllNotesOff rcall AllNotesOff F1_000512 equ $ ; in [PROPELLER1.BAS] EndSelect _lbl__133 _lbl__126 F1_000513 equ $ ; in [PROPELLER1.BAS] Set Ctrl setf Ctrl,0 F1_000514 equ $ ; in [PROPELLER1.BAS] return return 0 AllNotesOff F1_000517 equ $ ; in [PROPELLER1.BAS] low PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000518 equ $ ; in [PROPELLER1.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000519 equ $ ; in [PROPELLER1.BAS] low PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000520 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 call __hpwm_ F1_000521 equ $ ; in [PROPELLER1.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 call __hpwm_ F1_000522 equ $ ; in [PROPELLER1.BAS] Clear Lites clrf Lites,0 F1_000523 equ $ ; in [PROPELLER1.BAS] return return 0 PowerDown F1_000526 equ $ ; in [PROPELLER1.BAS] Clear PORTC.5 bcf LATC,5,0 F1_000527 equ $ ; in [PROPELLER1.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000528 equ $ ; in [PROPELLER1.BAS] Clear PORTB.3 bcf LATB,3,0 F1_000529 equ $ ; in [PROPELLER1.BAS] Clear Lites clrf Lites,0 F1_000530 equ $ ; in [PROPELLER1.BAS] Clear pw1 clrf pw1,0 F1_000531 equ $ ; in [PROPELLER1.BAS] Clear pw2 clrf pw2,0 F1_000532 equ $ ; in [PROPELLER1.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 1 call __hpwm_ F1_000533 equ $ ; in [PROPELLER1.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 9 movwf PP1H,0 movlw 138 movwf PP1,0 movlw 2 goto __hpwm_ Dur_Lookup F1_000560 equ $ ; in [PROPELLER1.BAS] Dur[ 1 ] = 59896 movlb 1 movlw 233 movwf Dur#1H,1 movlw 248 movwf Dur#1,1 F1_000561 equ $ ; in [PROPELLER1.BAS] Dur[ 2 ] = 29948 movlw 116 movwf Dur#2H,1 movlw 252 movwf Dur#2,1 F1_000562 equ $ ; in [PROPELLER1.BAS] Dur[ 3 ] = 19965 movlw 77 movwf Dur#3H,1 movlw 253 movwf Dur#3,1 F1_000563 equ $ ; in [PROPELLER1.BAS] Dur[ 4 ] = 14974 movlw 58 movwf Dur#4H,1 movlw 126 movwf Dur#4,1 F1_000564 equ $ ; in [PROPELLER1.BAS] Dur[ 5 ] = 11979 movlw 46 movwf Dur#5H,1 movlw 203 movwf Dur#5,1 F1_000565 equ $ ; in [PROPELLER1.BAS] Dur[ 6 ] = 9983 movlw 38 movwf Dur#6H,1 setf Dur#6,1 F1_000566 equ $ ; in [PROPELLER1.BAS] Dur[ 7 ] = 8557 movlw 33 movwf Dur#7H,1 movlw 109 movwf Dur#7,1 F1_000567 equ $ ; in [PROPELLER1.BAS] Dur[ 8 ] = 7487 movlw 29 movwf Dur#8H,1 movlw 63 movwf Dur#8,1 F1_000568 equ $ ; in [PROPELLER1.BAS] Dur[ 9 ] = 6655 movlw 25 movwf Dur#9H,1 setf Dur#9,1 F1_000569 equ $ ; in [PROPELLER1.BAS] Dur[ 10 ] = 5990 movlw 23 movwf Dur#10H,1 movlw 102 movwf Dur#10,1 F1_000570 equ $ ; in [PROPELLER1.BAS] Dur[ 11 ] = 5445 movlw 21 movwf Dur#11H,1 movlw 69 movwf Dur#11,1 F1_000571 equ $ ; in [PROPELLER1.BAS] Dur[ 12 ] = 4991 movlw 19 movwf Dur#12H,1 movlw 127 movwf Dur#12,1 F1_000572 equ $ ; in [PROPELLER1.BAS] Dur[ 13 ] = 4607 movlw 17 movwf Dur#13H,1 setf Dur#13,1 F1_000573 equ $ ; in [PROPELLER1.BAS] Dur[ 14 ] = 4278 movlw 16 movwf Dur#14H,1 movlw 182 movwf Dur#14,1 F1_000574 equ $ ; in [PROPELLER1.BAS] Dur[ 15 ] = 3993 movlw 15 movwf Dur#15H,1 movlw 153 movwf Dur#15,1 F1_000575 equ $ ; in [PROPELLER1.BAS] Dur[ 16 ] = 3743 movlw 14 movwf Dur#16H,1 movlw 159 movwf Dur#16,1 F1_000576 equ $ ; in [PROPELLER1.BAS] Dur[ 17 ] = 3523 movlw 13 movwf Dur#17H,1 movlw 195 movwf Dur#17,1 F1_000577 equ $ ; in [PROPELLER1.BAS] Dur[ 18 ] = 3328 movlw 13 movwf Dur#18H,1 clrf Dur#18,1 F1_000578 equ $ ; in [PROPELLER1.BAS] Dur[ 19 ] = 3152 movlw 12 movwf Dur#19H,1 movlw 80 movwf Dur#19,1 F1_000579 equ $ ; in [PROPELLER1.BAS] Dur[ 20 ] = 2995 movlw 11 movwf Dur#20H,1 movlw 179 movwf Dur#20,1 F1_000580 equ $ ; in [PROPELLER1.BAS] Dur[ 21 ] = 2852 movlw 11 movwf Dur#21H,1 movlw 36 movwf Dur#21,1 F1_000581 equ $ ; in [PROPELLER1.BAS] Dur[ 22 ] = 2723 movlw 10 movwf Dur#22H,1 movlw 163 movwf Dur#22,1 F1_000582 equ $ ; in [PROPELLER1.BAS] Dur[ 23 ] = 2604 movlw 10 movwf Dur#23H,1 movlw 44 movwf Dur#23,1 F1_000583 equ $ ; in [PROPELLER1.BAS] Dur[ 24 ] = 2496 movlw 9 movwf Dur#24H,1 movlw 192 movwf Dur#24,1 F1_000584 equ $ ; in [PROPELLER1.BAS] Dur[ 25 ] = 2396 movlw 9 movwf Dur#25H,1 movlw 92 movwf Dur#25,1 F1_000585 equ $ ; in [PROPELLER1.BAS] Dur[ 26 ] = 2304 movlw 9 movwf Dur#26H,1 clrf Dur#26,1 F1_000586 equ $ ; in [PROPELLER1.BAS] Dur[ 27 ] = 2218 movlw 8 movwf Dur#27H,1 movlw 170 movwf Dur#27,1 F1_000587 equ $ ; in [PROPELLER1.BAS] Dur[ 28 ] = 2139 movlw 8 movwf Dur#28H,1 movlw 91 movwf Dur#28,1 F1_000588 equ $ ; in [PROPELLER1.BAS] Dur[ 29 ] = 2065 movlw 8 movwf Dur#29H,1 movlw 17 movwf Dur#29,1 F1_000589 equ $ ; in [PROPELLER1.BAS] Dur[ 30 ] = 1997 movlw 7 movwf Dur#30H,1 movlw 205 movwf Dur#30,1 F1_000590 equ $ ; in [PROPELLER1.BAS] Dur[ 31 ] = 1932 movlw 7 movwf Dur#31H,1 movlw 140 movwf Dur#31,1 F1_000591 equ $ ; in [PROPELLER1.BAS] Dur[ 32 ] = 1872 movlw 7 movwf Dur#32H,1 movlw 80 movwf Dur#32,1 F1_000592 equ $ ; in [PROPELLER1.BAS] Dur[ 33 ] = 1815 movlw 7 movwf Dur#33H,1 movlw 23 movwf Dur#33,1 F1_000593 equ $ ; in [PROPELLER1.BAS] Dur[ 34 ] = 1762 movlw 6 movwf Dur#34H,1 movlw 226 movwf Dur#34,1 F1_000594 equ $ ; in [PROPELLER1.BAS] Dur[ 35 ] = 1711 movlw 6 movwf Dur#35H,1 movlw 175 movwf Dur#35,1 F1_000595 equ $ ; in [PROPELLER1.BAS] Dur[ 36 ] = 1664 movlw 6 movwf Dur#36H,1 movlw 128 movwf Dur#36,1 F1_000596 equ $ ; in [PROPELLER1.BAS] Dur[ 37 ] = 1619 movlw 6 movwf Dur#37H,1 movlw 83 movwf Dur#37,1 F1_000597 equ $ ; in [PROPELLER1.BAS] Dur[ 38 ] = 1576 movlw 6 movwf Dur#38H,1 movlw 40 movwf Dur#38,1 F1_000598 equ $ ; in [PROPELLER1.BAS] Dur[ 39 ] = 1536 movlw 6 movwf Dur#39H,1 clrf Dur#39,1 F1_000599 equ $ ; in [PROPELLER1.BAS] Dur[ 40 ] = 1497 movlw 5 movwf Dur#40H,1 movlw 217 movwf Dur#40,1 F1_000600 equ $ ; in [PROPELLER1.BAS] Dur[ 41 ] = 1461 movlw 5 movwf Dur#41H,1 movlw 181 movwf Dur#41,1 F1_000601 equ $ ; in [PROPELLER1.BAS] Dur[ 42 ] = 1426 movlw 5 movwf Dur#42H,1 movlw 146 movwf Dur#42,1 F1_000602 equ $ ; in [PROPELLER1.BAS] Dur[ 43 ] = 1393 movlw 5 movwf Dur#43H,1 movlw 113 movwf Dur#43,1 F1_000603 equ $ ; in [PROPELLER1.BAS] Dur[ 44 ] = 1361 movlw 5 movwf Dur#44H,1 movlw 81 movwf Dur#44,1 F1_000604 equ $ ; in [PROPELLER1.BAS] Dur[ 45 ] = 1331 movlw 5 movwf Dur#45H,1 movlw 51 movwf Dur#45,1 F1_000605 equ $ ; in [PROPELLER1.BAS] Dur[ 46 ] = 1302 movlw 5 movwf Dur#46H,1 movlw 22 movwf Dur#46,1 F1_000606 equ $ ; in [PROPELLER1.BAS] Dur[ 47 ] = 1274 movlw 4 movwf Dur#47H,1 movlw 250 movwf Dur#47,1 F1_000607 equ $ ; in [PROPELLER1.BAS] Dur[ 48 ] = 1248 movlw 4 movwf Dur#48H,1 movlw 224 movwf Dur#48,1 F1_000608 equ $ ; in [PROPELLER1.BAS] Dur[ 49 ] = 1222 movlw 4 movwf Dur#49H,1 movlw 198 movwf Dur#49,1 F1_000609 equ $ ; in [PROPELLER1.BAS] Dur[ 50 ] = 1198 movlw 4 movwf Dur#50H,1 movlw 174 movwf Dur#50,1 F1_000610 equ $ ; in [PROPELLER1.BAS] Dur[ 51 ] = 1174 movlw 4 movwf Dur#51H,1 movlw 150 movwf Dur#51,1 F1_000611 equ $ ; in [PROPELLER1.BAS] Dur[ 52 ] = 1152 movlw 4 movwf Dur#52H,1 movlw 128 movwf Dur#52,1 F1_000612 equ $ ; in [PROPELLER1.BAS] Dur[ 53 ] = 1130 movlw 4 movwf Dur#53H,1 movlw 106 movwf Dur#53,1 F1_000613 equ $ ; in [PROPELLER1.BAS] Dur[ 54 ] = 1109 movlw 4 movwf Dur#54H,1 movlw 85 movwf Dur#54,1 F1_000614 equ $ ; in [PROPELLER1.BAS] Dur[ 55 ] = 1089 movlw 4 movwf Dur#55H,1 movlw 65 movwf Dur#55,1 F1_000615 equ $ ; in [PROPELLER1.BAS] Dur[ 56 ] = 1070 movlw 4 movwf Dur#56H,1 movlw 46 movwf Dur#56,1 F1_000616 equ $ ; in [PROPELLER1.BAS] Dur[ 57 ] = 1051 movlw 4 movwf Dur#57H,1 movlw 27 movwf Dur#57,1 F1_000617 equ $ ; in [PROPELLER1.BAS] Dur[ 58 ] = 1033 movlw 4 movwf Dur#58H,1 movlw 9 movwf Dur#58,1 F1_000618 equ $ ; in [PROPELLER1.BAS] Dur[ 59 ] = 1015 movlw 3 movwf Dur#59H,1 movlw 247 movwf Dur#59,1 F1_000619 equ $ ; in [PROPELLER1.BAS] Dur[ 60 ] = 998 movlw 3 movwf Dur#60H,1 movlw 230 movwf Dur#60,1 F1_000620 equ $ ; in [PROPELLER1.BAS] Dur[ 61 ] = 982 movlw 3 movwf Dur#61H,1 movlw 214 movwf Dur#61,1 F1_000621 equ $ ; in [PROPELLER1.BAS] Dur[ 62 ] = 966 movlw 3 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000622 equ $ ; in [PROPELLER1.BAS] Dur[ 63 ] = 951 movlw 3 movwf Dur#63H,1 movlw 183 movwf Dur#63,1 F1_000623 equ $ ; in [PROPELLER1.BAS] Dur[ 64 ] = 936 movlw 3 movwf Dur#64H,1 movlw 168 movwf Dur#64,1 F1_000624 equ $ ; in [PROPELLER1.BAS] Dur[ 65 ] = 921 movlw 3 movwf Dur#65H,1 movlw 153 movwf Dur#65,1 F1_000625 equ $ ; in [PROPELLER1.BAS] Dur[ 66 ] = 908 movlw 3 movwf Dur#66H,1 movlw 140 movwf Dur#66,1 F1_000626 equ $ ; in [PROPELLER1.BAS] Dur[ 67 ] = 894 movlw 3 movwf Dur#67H,1 movlw 126 movwf Dur#67,1 F1_000627 equ $ ; in [PROPELLER1.BAS] Dur[ 68 ] = 881 movlw 3 movwf Dur#68H,1 movlw 113 movwf Dur#68,1 F1_000628 equ $ ; in [PROPELLER1.BAS] Dur[ 69 ] = 868 movlw 3 movwf Dur#69H,1 movlw 100 movwf Dur#69,1 F1_000629 equ $ ; in [PROPELLER1.BAS] Dur[ 70 ] = 856 movlw 3 movwf Dur#70H,1 movlw 88 movwf Dur#70,1 F1_000630 equ $ ; in [PROPELLER1.BAS] Dur[ 71 ] = 844 movlw 3 movwf Dur#71H,1 movlw 76 movwf Dur#71,1 F1_000631 equ $ ; in [PROPELLER1.BAS] Dur[ 72 ] = 832 movlw 3 movwf Dur#72H,1 movlw 64 movwf Dur#72,1 F1_000632 equ $ ; in [PROPELLER1.BAS] Dur[ 73 ] = 820 movlw 3 movwf Dur#73H,1 movlw 52 movwf Dur#73,1 F1_000633 equ $ ; in [PROPELLER1.BAS] Dur[ 74 ] = 809 movlw 3 movwf Dur#74H,1 movlw 41 movwf Dur#74,1 F1_000634 equ $ ; in [PROPELLER1.BAS] Dur[ 75 ] = 799 movlw 3 movwf Dur#75H,1 movlw 31 movwf Dur#75,1 F1_000635 equ $ ; in [PROPELLER1.BAS] Dur[ 76 ] = 788 movlw 3 movwf Dur#76H,1 movlw 20 movwf Dur#76,1 F1_000636 equ $ ; in [PROPELLER1.BAS] Dur[ 77 ] = 778 movlw 3 movwf Dur#77H,1 movlw 10 movwf Dur#77,1 F1_000637 equ $ ; in [PROPELLER1.BAS] Dur[ 78 ] = 768 movlw 3 movwf Dur#78H,1 clrf Dur#78,1 F1_000638 equ $ ; in [PROPELLER1.BAS] Dur[ 79 ] = 758 movlw 2 movwf Dur#79H,1 movlw 246 movwf Dur#79,1 F1_000639 equ $ ; in [PROPELLER1.BAS] Dur[ 80 ] = 749 movlw 2 movwf Dur#80H,1 movlw 237 movwf Dur#80,1 F1_000640 equ $ ; in [PROPELLER1.BAS] Dur[ 81 ] = 739 movlw 2 movwf Dur#81H,1 movlw 227 movwf Dur#81,1 F1_000641 equ $ ; in [PROPELLER1.BAS] Dur[ 82 ] = 730 movlw 2 movwf Dur#82H,1 movlw 218 movwf Dur#82,1 F1_000642 equ $ ; in [PROPELLER1.BAS] Dur[ 83 ] = 722 movlw 2 movwf Dur#83H,1 movlw 210 movwf Dur#83,1 F1_000643 equ $ ; in [PROPELLER1.BAS] Dur[ 84 ] = 713 movlw 2 movwf Dur#84H,1 movlw 201 movwf Dur#84,1 F1_000644 equ $ ; in [PROPELLER1.BAS] Dur[ 85 ] = 705 movlw 2 movwf Dur#85H,1 movlw 193 movwf Dur#85,1 F1_000645 equ $ ; in [PROPELLER1.BAS] Dur[ 86 ] = 696 movlw 2 movwf Dur#86H,1 movlw 184 movwf Dur#86,1 F1_000646 equ $ ; in [PROPELLER1.BAS] Dur[ 87 ] = 688 movlw 2 movwf Dur#87H,1 movlw 176 movwf Dur#87,1 F1_000647 equ $ ; in [PROPELLER1.BAS] Dur[ 88 ] = 681 movlw 2 movwf Dur#88H,1 movlw 169 movwf Dur#88,1 F1_000648 equ $ ; in [PROPELLER1.BAS] Dur[ 89 ] = 673 movlw 2 movwf Dur#89H,1 movlw 161 movwf Dur#89,1 F1_000649 equ $ ; in [PROPELLER1.BAS] Dur[ 90 ] = 666 movlw 2 movwf Dur#90H,1 movlw 154 movwf Dur#90,1 F1_000650 equ $ ; in [PROPELLER1.BAS] Dur[ 91 ] = 658 movlw 2 movwf Dur#91H,1 movlw 146 movwf Dur#91,1 F1_000651 equ $ ; in [PROPELLER1.BAS] Dur[ 92 ] = 651 movlw 2 movwf Dur#92H,1 movlw 139 movwf Dur#92,1 F1_000652 equ $ ; in [PROPELLER1.BAS] Dur[ 93 ] = 644 movlw 2 movwf Dur#93H,1 movlw 132 movwf Dur#93,1 F1_000653 equ $ ; in [PROPELLER1.BAS] Dur[ 94 ] = 637 movlw 2 movwf Dur#94H,1 movlw 125 movwf Dur#94,1 F1_000654 equ $ ; in [PROPELLER1.BAS] Dur[ 95 ] = 630 movlb 2 movlw 2 movwf Dur#95H,1 movlw 118 movwf Dur#95,1 F1_000655 equ $ ; in [PROPELLER1.BAS] Dur[ 96 ] = 624 movlw 2 movwf Dur#96H,1 movlw 112 movwf Dur#96,1 F1_000656 equ $ ; in [PROPELLER1.BAS] Dur[ 97 ] = 617 movlw 2 movwf Dur#97H,1 movlw 105 movwf Dur#97,1 F1_000657 equ $ ; in [PROPELLER1.BAS] Dur[ 98 ] = 611 movlw 2 movwf Dur#98H,1 movlw 99 movwf Dur#98,1 F1_000658 equ $ ; in [PROPELLER1.BAS] Dur[ 99 ] = 605 movlw 2 movwf Dur#99H,1 movlw 93 movwf Dur#99,1 F1_000659 equ $ ; in [PROPELLER1.BAS] Dur[ 100 ] = 599 movlw 2 movwf Dur#100H,1 movlw 87 movwf Dur#100,1 F1_000660 equ $ ; in [PROPELLER1.BAS] Dur[ 101 ] = 593 movlw 2 movwf Dur#101H,1 movlw 81 movwf Dur#101,1 F1_000661 equ $ ; in [PROPELLER1.BAS] Dur[ 102 ] = 587 movlw 2 movwf Dur#102H,1 movlw 75 movwf Dur#102,1 F1_000662 equ $ ; in [PROPELLER1.BAS] Dur[ 103 ] = 582 movlw 2 movwf Dur#103H,1 movlw 70 movwf Dur#103,1 F1_000663 equ $ ; in [PROPELLER1.BAS] Dur[ 104 ] = 576 movlw 2 movwf Dur#104H,1 movlw 64 movwf Dur#104,1 F1_000664 equ $ ; in [PROPELLER1.BAS] Dur[ 105 ] = 570 movlw 2 movwf Dur#105H,1 movlw 58 movwf Dur#105,1 F1_000665 equ $ ; in [PROPELLER1.BAS] Dur[ 106 ] = 565 movlw 2 movwf Dur#106H,1 movlw 53 movwf Dur#106,1 F1_000666 equ $ ; in [PROPELLER1.BAS] Dur[ 107 ] = 560 movlw 2 movwf Dur#107H,1 movlw 48 movwf Dur#107,1 F1_000667 equ $ ; in [PROPELLER1.BAS] Dur[ 108 ] = 555 movlw 2 movwf Dur#108H,1 movlw 43 movwf Dur#108,1 F1_000668 equ $ ; in [PROPELLER1.BAS] Dur[ 109 ] = 550 movlw 2 movwf Dur#109H,1 movlw 38 movwf Dur#109,1 F1_000669 equ $ ; in [PROPELLER1.BAS] Dur[ 110 ] = 545 movlw 2 movwf Dur#110H,1 movlw 33 movwf Dur#110,1 F1_000670 equ $ ; in [PROPELLER1.BAS] Dur[ 111 ] = 540 movlw 2 movwf Dur#111H,1 movlw 28 movwf Dur#111,1 F1_000671 equ $ ; in [PROPELLER1.BAS] Dur[ 112 ] = 535 movlw 2 movwf Dur#112H,1 movlw 23 movwf Dur#112,1 F1_000672 equ $ ; in [PROPELLER1.BAS] Dur[ 113 ] = 530 movlw 2 movwf Dur#113H,1 movlw 18 movwf Dur#113,1 F1_000673 equ $ ; in [PROPELLER1.BAS] Dur[ 114 ] = 525 movlw 2 movwf Dur#114H,1 movlw 13 movwf Dur#114,1 F1_000674 equ $ ; in [PROPELLER1.BAS] Dur[ 115 ] = 521 movlw 2 movwf Dur#115H,1 movlw 9 movwf Dur#115,1 F1_000675 equ $ ; in [PROPELLER1.BAS] Dur[ 116 ] = 516 movlw 2 movwf Dur#116H,1 movlw 4 movwf Dur#116,1 F1_000676 equ $ ; in [PROPELLER1.BAS] Dur[ 117 ] = 512 movlw 2 movwf Dur#117H,1 clrf Dur#117,1 F1_000677 equ $ ; in [PROPELLER1.BAS] Dur[ 118 ] = 508 movlw 1 movwf Dur#118H,1 movlw 252 movwf Dur#118,1 F1_000678 equ $ ; in [PROPELLER1.BAS] Dur[ 119 ] = 503 movlw 1 movwf Dur#119H,1 movlw 247 movwf Dur#119,1 F1_000679 equ $ ; in [PROPELLER1.BAS] Dur[ 120 ] = 499 movlw 1 movwf Dur#120H,1 movlw 243 movwf Dur#120,1 F1_000680 equ $ ; in [PROPELLER1.BAS] Dur[ 121 ] = 495 movlw 1 movwf Dur#121H,1 movlw 239 movwf Dur#121,1 F1_000681 equ $ ; in [PROPELLER1.BAS] Dur[ 122 ] = 491 movlw 1 movwf Dur#122H,1 movlw 235 movwf Dur#122,1 F1_000682 equ $ ; in [PROPELLER1.BAS] Dur[ 123 ] = 487 movlw 1 movwf Dur#123H,1 movlw 231 movwf Dur#123,1 F1_000683 equ $ ; in [PROPELLER1.BAS] Dur[ 124 ] = 483 movlw 1 movwf Dur#124H,1 movlw 227 movwf Dur#124,1 F1_000684 equ $ ; in [PROPELLER1.BAS] Dur[ 125 ] = 479 movlw 1 movwf Dur#125H,1 movlw 223 movwf Dur#125,1 F1_000685 equ $ ; in [PROPELLER1.BAS] Dur[ 126 ] = 475 movlw 1 movwf Dur#126H,1 movlw 219 movwf Dur#126,1 F1_000686 equ $ ; in [PROPELLER1.BAS] Dur[ 127 ] = 472 movlw 1 movwf Dur#127H,1 movlw 216 movwf Dur#127,1 F1_000687 equ $ ; in [PROPELLER1.BAS] return movlb 0 return 0 F1_EOF equ $ ; PROPELLER1.BAS _pblb__134 bra _pblb__134 ;--------------------------------------------- __eof ;--------------------------------------------- ; CONFIG FUSES config DEBUG = off config XINST = off config STVREN = off config FCMEN = off config OSC = HSPLL config IESO = off config WDT = off config WDTPS = 128 config BOREN = SBORDIS config BORV = 2 config MCLRE = on config LPT1OSC = on config PBADEN = off config CCP2MX = PORTC config LVP = off config CP0 = off config CP1 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTRB = off config PWRT = on end