; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; 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 = 18F2620, 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 CP3_ON_5 equ 0XF7 CP3_OFF_5 equ 0xFF CPB_ON_5 equ 0XBF CPB_OFF_5 equ 0xFF CPD_ON_5 equ 0X7F CPD_OFF_5 equ 0xFF WRT0_ON_6 equ 0XFE WRT0_OFF_6 equ 0xFF WRT1_ON_6 equ 0XFD WRT1_OFF_6 equ 0xFF WRT2_ON_6 equ 0XFB WRT2_OFF_6 equ 0xFF WRT3_ON_6 equ 0XF7 WRT3_OFF_6 equ 0xFF WRTB_ON_6 equ 0XBF WRTB_OFF_6 equ 0xFF WRTC_ON_6 equ 0XDF WRTC_OFF_6 equ 0xFF WRTD_ON_6 equ 0X7F WRTD_OFF_6 equ 0xFF EBTR0_ON_7 equ 0XFE EBTR0_OFF_7 equ 0xFF EBTR1_ON_7 equ 0XFD EBTR1_OFF_7 equ 0xFF EBTR2_ON_7 equ 0XFB EBTR2_OFF_7 equ 0xFF EBTR3_ON_7 equ 0XF7 EBTR3_OFF_7 equ 0xFF EBTRB_ON_7 equ 0XBF EBTRB_OFF_7 equ 0xFF DEVID1 equ 0X3FFFFE DEVID2 equ 0X3FFFFF ; COMPILER'S INTERNAL CONSTANTS AND ALIASES #define __18F2620 1 #define xtal 40 #define _core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0X010000 #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 ; 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 PP7 equ 0X16 PP7H equ 0X17 PP7HH equ 0X18 PP7HHH equ 0X19 PPZ equ 0X1A PPZH equ 0X1B PPZHH equ 0X1C PP_AARG equ 0X1D PP_AARGH equ 0X1E PP_AARGHH equ 0X1F PP_AARGHHH equ 0X20 PP_BARG equ 0X21 PP_BARGH equ 0X22 PP_BARGHH equ 0X23 PP_BARGHHH equ 0X24 _AEXP equ 0X25 _BEXP equ 0X26 _FP_FLAGS equ 0X27 _FP_SIGN equ 0X28 _FP_TEMP equ 0X29 ; USER ACCESS RAM VARIABLES Cnt equ 0X2A CntH equ 0X2B CntHH equ 0X2C CntHHH equ 0X2D Bytein equ 0X2E _I equ 0X2F statusbyte equ 0X30 noteUit equ 0X31 release equ 0X32 noteAan equ 0X33 velo equ 0X34 notePres equ 0X35 pres equ 0X36 Ctrl equ 0X37 value equ 0X38 prog equ 0X39 aft equ 0X3A pblsb equ 0X3B pbmsb equ 0X3C note equ 0X3D kanaal equ 0X3E CC64 equ 0X3F CC19 equ 0X40 CC66 equ 0X41 CC69 equ 0X42 Nxt equ 0X43 NxtH equ 0X44 NxtHH equ 0X45 NxtHHH equ 0X46 idx equ 0X47 USART_FSR1_Save equ 0X48 USART_FSR1_SaveH equ 0X49 IndexIn equ 0X4A IndexOut equ 0X4B ; STANDARD VARIABLES T3 equ 0X4C T3H equ 0X4D T3HH equ 0X4E T3HHH equ 0X4F TimVals equ 0X50 TimValsH equ 0X51 TimValsHH equ 0X52 TimValsHHH equ 0X53 variable TimVals#0=0X50,TimVals#0H=0X51,TimVals#0HH=0X52,TimVals#0HHH=0X53 variable TimVals#1=0X54,TimVals#1H=0X55,TimVals#1HH=0X56,TimVals#1HHH=0X57 variable TimVals#2=0X58,TimVals#2H=0X59,TimVals#2HH=0X5A,TimVals#2HHH=0X5B variable TimVals#3=0X5C,TimVals#3H=0X5D,TimVals#3HH=0X5E,TimVals#3HHH=0X5F _J equ 0X60 _JH equ 0X61 _JHH equ 0X62 _JHHH equ 0X63 NrNotes equ 0X64 NrNotesH equ 0X65 Lites equ 0X66 Pres0 equ 0X67 Pres1 equ 0X68 Pres2 equ 0X69 Pres3 equ 0X6A Pres4 equ 0X6B Ringbuffer equ 0X6C variable Ringbuffer#0=0X6C,Ringbuffer#1=0X6D,Ringbuffer#2=0X6E,Ringbuffer#3=0X6F variable Ringbuffer#4=0X70,Ringbuffer#5=0X71,Ringbuffer#6=0X72,Ringbuffer#7=0X73 variable Ringbuffer#8=0X74,Ringbuffer#9=0X75,Ringbuffer#10=0X76,Ringbuffer#11=0X77 variable Ringbuffer#12=0X78,Ringbuffer#13=0X79,Ringbuffer#14=0X7A,Ringbuffer#15=0X7B variable Ringbuffer#16=0X7C,Ringbuffer#17=0X7D,Ringbuffer#18=0X7E,Ringbuffer#19=0X7F variable Ringbuffer#20=0X80,Ringbuffer#21=0X81,Ringbuffer#22=0X82,Ringbuffer#23=0X83 variable Ringbuffer#24=0X84,Ringbuffer#25=0X85,Ringbuffer#26=0X86,Ringbuffer#27=0X87 variable Ringbuffer#28=0X88,Ringbuffer#29=0X89,Ringbuffer#30=0X8A,Ringbuffer#31=0X8B variable Ringbuffer#32=0X8C,Ringbuffer#33=0X8D,Ringbuffer#34=0X8E,Ringbuffer#35=0X8F variable Ringbuffer#36=0X90,Ringbuffer#37=0X91,Ringbuffer#38=0X92,Ringbuffer#39=0X93 variable Ringbuffer#40=0X94,Ringbuffer#41=0X95,Ringbuffer#42=0X96,Ringbuffer#43=0X97 variable Ringbuffer#44=0X98,Ringbuffer#45=0X99,Ringbuffer#46=0X9A,Ringbuffer#47=0X9B variable Ringbuffer#48=0X9C,Ringbuffer#49=0X9D,Ringbuffer#50=0X9E,Ringbuffer#51=0X9F variable Ringbuffer#52=0XA0,Ringbuffer#53=0XA1,Ringbuffer#54=0XA2,Ringbuffer#55=0XA3 variable Ringbuffer#56=0XA4,Ringbuffer#57=0XA5,Ringbuffer#58=0XA6,Ringbuffer#59=0XA7 variable Ringbuffer#60=0XA8,Ringbuffer#61=0XA9,Ringbuffer#62=0XAA,Ringbuffer#63=0XAB variable Ringbuffer#64=0XAC,Ringbuffer#65=0XAD,Ringbuffer#66=0XAE,Ringbuffer#67=0XAF variable Ringbuffer#68=0XB0,Ringbuffer#69=0XB1,Ringbuffer#70=0XB2,Ringbuffer#71=0XB3 variable Ringbuffer#72=0XB4,Ringbuffer#73=0XB5,Ringbuffer#74=0XB6,Ringbuffer#75=0XB7 variable Ringbuffer#76=0XB8,Ringbuffer#77=0XB9,Ringbuffer#78=0XBA,Ringbuffer#79=0XBB variable Ringbuffer#80=0XBC,Ringbuffer#81=0XBD,Ringbuffer#82=0XBE,Ringbuffer#83=0XBF variable Ringbuffer#84=0XC0,Ringbuffer#85=0XC1,Ringbuffer#86=0XC2,Ringbuffer#87=0XC3 variable Ringbuffer#88=0XC4,Ringbuffer#89=0XC5,Ringbuffer#90=0XC6,Ringbuffer#91=0XC7 variable Ringbuffer#92=0XC8,Ringbuffer#93=0XC9,Ringbuffer#94=0XCA,Ringbuffer#95=0XCB variable Ringbuffer#96=0XCC,Ringbuffer#97=0XCD,Ringbuffer#98=0XCE,Ringbuffer#99=0XCF variable Ringbuffer#100=0XD0,Ringbuffer#101=0XD1,Ringbuffer#102=0XD2,Ringbuffer#103=0XD3 variable Ringbuffer#104=0XD4,Ringbuffer#105=0XD5,Ringbuffer#106=0XD6,Ringbuffer#107=0XD7 variable Ringbuffer#108=0XD8,Ringbuffer#109=0XD9,Ringbuffer#110=0XDA,Ringbuffer#111=0XDB variable Ringbuffer#112=0XDC,Ringbuffer#113=0XDD,Ringbuffer#114=0XDE,Ringbuffer#115=0XDF variable Ringbuffer#116=0XE0,Ringbuffer#117=0XE1,Ringbuffer#118=0XE2,Ringbuffer#119=0XE3 variable Ringbuffer#120=0XE4,Ringbuffer#121=0XE5,Ringbuffer#122=0XE6,Ringbuffer#123=0XE7 variable Ringbuffer#124=0XE8,Ringbuffer#125=0XE9,Ringbuffer#126=0XEA,Ringbuffer#127=0XEB variable Ringbuffer#128=0XEC,Ringbuffer#129=0XED,Ringbuffer#130=0XEE,Ringbuffer#131=0XEF variable Ringbuffer#132=0XF0,Ringbuffer#133=0XF1,Ringbuffer#134=0XF2,Ringbuffer#135=0XF3 variable Ringbuffer#136=0XF4,Ringbuffer#137=0XF5,Ringbuffer#138=0XF6,Ringbuffer#139=0XF7 variable Ringbuffer#140=0XF8,Ringbuffer#141=0XF9,Ringbuffer#142=0XFA,Ringbuffer#143=0XFB variable Ringbuffer#144=0XFC,Ringbuffer#145=0XFD,Ringbuffer#146=0XFE,Ringbuffer#147=0xFF variable Ringbuffer#148=0X100,Ringbuffer#149=0X101,Ringbuffer#150=0X102,Ringbuffer#151=0X103 variable Ringbuffer#152=0X104,Ringbuffer#153=0X105,Ringbuffer#154=0X106,Ringbuffer#155=0X107 variable Ringbuffer#156=0X108,Ringbuffer#157=0X109,Ringbuffer#158=0X10A,Ringbuffer#159=0X10B variable Ringbuffer#160=0X10C,Ringbuffer#161=0X10D,Ringbuffer#162=0X10E,Ringbuffer#163=0X10F variable Ringbuffer#164=0X110,Ringbuffer#165=0X111,Ringbuffer#166=0X112,Ringbuffer#167=0X113 variable Ringbuffer#168=0X114,Ringbuffer#169=0X115,Ringbuffer#170=0X116,Ringbuffer#171=0X117 variable Ringbuffer#172=0X118,Ringbuffer#173=0X119,Ringbuffer#174=0X11A,Ringbuffer#175=0X11B variable Ringbuffer#176=0X11C,Ringbuffer#177=0X11D,Ringbuffer#178=0X11E,Ringbuffer#179=0X11F variable Ringbuffer#180=0X120,Ringbuffer#181=0X121,Ringbuffer#182=0X122,Ringbuffer#183=0X123 variable Ringbuffer#184=0X124,Ringbuffer#185=0X125,Ringbuffer#186=0X126,Ringbuffer#187=0X127 variable Ringbuffer#188=0X128,Ringbuffer#189=0X129,Ringbuffer#190=0X12A,Ringbuffer#191=0X12B variable Ringbuffer#192=0X12C,Ringbuffer#193=0X12D,Ringbuffer#194=0X12E,Ringbuffer#195=0X12F variable Ringbuffer#196=0X130,Ringbuffer#197=0X131,Ringbuffer#198=0X132,Ringbuffer#199=0X133 variable Ringbuffer#200=0X134,Ringbuffer#201=0X135,Ringbuffer#202=0X136,Ringbuffer#203=0X137 variable Ringbuffer#204=0X138,Ringbuffer#205=0X139,Ringbuffer#206=0X13A,Ringbuffer#207=0X13B variable Ringbuffer#208=0X13C,Ringbuffer#209=0X13D,Ringbuffer#210=0X13E,Ringbuffer#211=0X13F variable Ringbuffer#212=0X140,Ringbuffer#213=0X141,Ringbuffer#214=0X142,Ringbuffer#215=0X143 variable Ringbuffer#216=0X144,Ringbuffer#217=0X145,Ringbuffer#218=0X146,Ringbuffer#219=0X147 variable Ringbuffer#220=0X148,Ringbuffer#221=0X149,Ringbuffer#222=0X14A,Ringbuffer#223=0X14B variable Ringbuffer#224=0X14C,Ringbuffer#225=0X14D,Ringbuffer#226=0X14E,Ringbuffer#227=0X14F variable Ringbuffer#228=0X150,Ringbuffer#229=0X151,Ringbuffer#230=0X152,Ringbuffer#231=0X153 variable Ringbuffer#232=0X154,Ringbuffer#233=0X155,Ringbuffer#234=0X156,Ringbuffer#235=0X157 variable Ringbuffer#236=0X158,Ringbuffer#237=0X159,Ringbuffer#238=0X15A,Ringbuffer#239=0X15B variable Ringbuffer#240=0X15C,Ringbuffer#241=0X15D,Ringbuffer#242=0X15E,Ringbuffer#243=0X15F variable Ringbuffer#244=0X160,Ringbuffer#245=0X161,Ringbuffer#246=0X162,Ringbuffer#247=0X163 variable Ringbuffer#248=0X164,Ringbuffer#249=0X165,Ringbuffer#250=0X166,Ringbuffer#251=0X167 variable Ringbuffer#252=0X168,Ringbuffer#253=0X169,Ringbuffer#254=0X16A,Ringbuffer#255=0X16B Dur5 equ 0X16C Dur5H equ 0X16D variable Dur5#0=0X16C,Dur5#0H=0X16D,Dur5#1=0X16E,Dur5#1H=0X16F variable Dur5#2=0X170,Dur5#2H=0X171,Dur5#3=0X172,Dur5#3H=0X173 variable Dur5#4=0X174,Dur5#4H=0X175,Dur5#5=0X176,Dur5#5H=0X177 variable Dur5#6=0X178,Dur5#6H=0X179,Dur5#7=0X17A,Dur5#7H=0X17B variable Dur5#8=0X17C,Dur5#8H=0X17D,Dur5#9=0X17E,Dur5#9H=0X17F variable Dur5#10=0X180,Dur5#10H=0X181,Dur5#11=0X182,Dur5#11H=0X183 variable Dur5#12=0X184,Dur5#12H=0X185,Dur5#13=0X186,Dur5#13H=0X187 variable Dur5#14=0X188,Dur5#14H=0X189,Dur5#15=0X18A,Dur5#15H=0X18B variable Dur5#16=0X18C,Dur5#16H=0X18D,Dur5#17=0X18E,Dur5#17H=0X18F variable Dur5#18=0X190,Dur5#18H=0X191,Dur5#19=0X192,Dur5#19H=0X193 variable Dur5#20=0X194,Dur5#20H=0X195,Dur5#21=0X196,Dur5#21H=0X197 variable Dur5#22=0X198,Dur5#22H=0X199,Dur5#23=0X19A,Dur5#23H=0X19B variable Dur5#24=0X19C,Dur5#24H=0X19D,Dur5#25=0X19E,Dur5#25H=0X19F variable Dur5#26=0X1A0,Dur5#26H=0X1A1,Dur5#27=0X1A2,Dur5#27H=0X1A3 variable Dur5#28=0X1A4,Dur5#28H=0X1A5,Dur5#29=0X1A6,Dur5#29H=0X1A7 variable Dur5#30=0X1A8,Dur5#30H=0X1A9,Dur5#31=0X1AA,Dur5#31H=0X1AB variable Dur5#32=0X1AC,Dur5#32H=0X1AD,Dur5#33=0X1AE,Dur5#33H=0X1AF variable Dur5#34=0X1B0,Dur5#34H=0X1B1,Dur5#35=0X1B2,Dur5#35H=0X1B3 variable Dur5#36=0X1B4,Dur5#36H=0X1B5,Dur5#37=0X1B6,Dur5#37H=0X1B7 variable Dur5#38=0X1B8,Dur5#38H=0X1B9,Dur5#39=0X1BA,Dur5#39H=0X1BB variable Dur5#40=0X1BC,Dur5#40H=0X1BD,Dur5#41=0X1BE,Dur5#41H=0X1BF variable Dur5#42=0X1C0,Dur5#42H=0X1C1,Dur5#43=0X1C2,Dur5#43H=0X1C3 variable Dur5#44=0X1C4,Dur5#44H=0X1C5,Dur5#45=0X1C6,Dur5#45H=0X1C7 variable Dur5#46=0X1C8,Dur5#46H=0X1C9,Dur5#47=0X1CA,Dur5#47H=0X1CB variable Dur5#48=0X1CC,Dur5#48H=0X1CD,Dur5#49=0X1CE,Dur5#49H=0X1CF variable Dur5#50=0X1D0,Dur5#50H=0X1D1,Dur5#51=0X1D2,Dur5#51H=0X1D3 variable Dur5#52=0X1D4,Dur5#52H=0X1D5,Dur5#53=0X1D6,Dur5#53H=0X1D7 variable Dur5#54=0X1D8,Dur5#54H=0X1D9,Dur5#55=0X1DA,Dur5#55H=0X1DB variable Dur5#56=0X1DC,Dur5#56H=0X1DD,Dur5#57=0X1DE,Dur5#57H=0X1DF variable Dur5#58=0X1E0,Dur5#58H=0X1E1,Dur5#59=0X1E2,Dur5#59H=0X1E3 variable Dur5#60=0X1E4,Dur5#60H=0X1E5,Dur5#61=0X1E6,Dur5#61H=0X1E7 variable Dur5#62=0X1E8,Dur5#62H=0X1E9,Dur5#63=0X1EA,Dur5#63H=0X1EB variable Dur5#64=0X1EC,Dur5#64H=0X1ED,Dur5#65=0X1EE,Dur5#65H=0X1EF variable Dur5#66=0X1F0,Dur5#66H=0X1F1,Dur5#67=0X1F2,Dur5#67H=0X1F3 variable Dur5#68=0X1F4,Dur5#68H=0X1F5,Dur5#69=0X1F6,Dur5#69H=0X1F7 variable Dur5#70=0X1F8,Dur5#70H=0X1F9,Dur5#71=0X1FA,Dur5#71H=0X1FB variable Dur5#72=0X1FC,Dur5#72H=0X1FD,Dur5#73=0X1FE,Dur5#73H=0X1FF variable Dur5#74=0X200,Dur5#74H=0X201,Dur5#75=0X202,Dur5#75H=0X203 variable Dur5#76=0X204,Dur5#76H=0X205,Dur5#77=0X206,Dur5#77H=0X207 variable Dur5#78=0X208,Dur5#78H=0X209,Dur5#79=0X20A,Dur5#79H=0X20B variable Dur5#80=0X20C,Dur5#80H=0X20D,Dur5#81=0X20E,Dur5#81H=0X20F variable Dur5#82=0X210,Dur5#82H=0X211,Dur5#83=0X212,Dur5#83H=0X213 variable Dur5#84=0X214,Dur5#84H=0X215,Dur5#85=0X216,Dur5#85H=0X217 variable Dur5#86=0X218,Dur5#86H=0X219,Dur5#87=0X21A,Dur5#87H=0X21B variable Dur5#88=0X21C,Dur5#88H=0X21D,Dur5#89=0X21E,Dur5#89H=0X21F variable Dur5#90=0X220,Dur5#90H=0X221,Dur5#91=0X222,Dur5#91H=0X223 variable Dur5#92=0X224,Dur5#92H=0X225,Dur5#93=0X226,Dur5#93H=0X227 variable Dur5#94=0X228,Dur5#94H=0X229,Dur5#95=0X22A,Dur5#95H=0X22B variable Dur5#96=0X22C,Dur5#96H=0X22D,Dur5#97=0X22E,Dur5#97H=0X22F variable Dur5#98=0X230,Dur5#98H=0X231,Dur5#99=0X232,Dur5#99H=0X233 variable Dur5#100=0X234,Dur5#100H=0X235,Dur5#101=0X236,Dur5#101H=0X237 variable Dur5#102=0X238,Dur5#102H=0X239,Dur5#103=0X23A,Dur5#103H=0X23B variable Dur5#104=0X23C,Dur5#104H=0X23D,Dur5#105=0X23E,Dur5#105H=0X23F variable Dur5#106=0X240,Dur5#106H=0X241,Dur5#107=0X242,Dur5#107H=0X243 variable Dur5#108=0X244,Dur5#108H=0X245,Dur5#109=0X246,Dur5#109H=0X247 variable Dur5#110=0X248,Dur5#110H=0X249,Dur5#111=0X24A,Dur5#111H=0X24B variable Dur5#112=0X24C,Dur5#112H=0X24D,Dur5#113=0X24E,Dur5#113H=0X24F variable Dur5#114=0X250,Dur5#114H=0X251,Dur5#115=0X252,Dur5#115H=0X253 variable Dur5#116=0X254,Dur5#116H=0X255,Dur5#117=0X256,Dur5#117H=0X257 variable Dur5#118=0X258,Dur5#118H=0X259,Dur5#119=0X25A,Dur5#119H=0X25B variable Dur5#120=0X25C,Dur5#120H=0X25D,Dur5#121=0X25E,Dur5#121H=0X25F variable Dur5#122=0X260,Dur5#122H=0X261,Dur5#123=0X262,Dur5#123H=0X263 variable Dur5#124=0X264,Dur5#124H=0X265,Dur5#125=0X266,Dur5#125H=0X267 variable Dur5#126=0X268,Dur5#126H=0X269,Dur5#127=0X26A,Dur5#127H=0X26B Nmap equ 0X26C variable Nmap#0=0X26C,Nmap#1=0X26D,Nmap#2=0X26E,Nmap#3=0X26F variable Nmap#4=0X270,Nmap#5=0X271,Nmap#6=0X272,Nmap#7=0X273 variable Nmap#8=0X274,Nmap#9=0X275,Nmap#10=0X276,Nmap#11=0X277 variable Nmap#12=0X278,Nmap#13=0X279,Nmap#14=0X27A,Nmap#15=0X27B variable Nmap#16=0X27C,Nmap#17=0X27D,Nmap#18=0X27E,Nmap#19=0X27F variable Nmap#20=0X280,Nmap#21=0X281,Nmap#22=0X282,Nmap#23=0X283 variable Nmap#24=0X284,Nmap#25=0X285,Nmap#26=0X286,Nmap#27=0X287 variable Nmap#28=0X288,Nmap#29=0X289,Nmap#30=0X28A,Nmap#31=0X28B variable Nmap#32=0X28C,Nmap#33=0X28D,Nmap#34=0X28E,Nmap#35=0X28F variable Nmap#36=0X290,Nmap#37=0X291,Nmap#38=0X292,Nmap#39=0X293 variable Nmap#40=0X294,Nmap#41=0X295,Nmap#42=0X296,Nmap#43=0X297 variable Nmap#44=0X298,Nmap#45=0X299,Nmap#46=0X29A,Nmap#47=0X29B variable Nmap#48=0X29C,Nmap#49=0X29D,Nmap#50=0X29E,Nmap#51=0X29F variable Nmap#52=0X2A0,Nmap#53=0X2A1,Nmap#54=0X2A2,Nmap#55=0X2A3 variable Nmap#56=0X2A4,Nmap#57=0X2A5,Nmap#58=0X2A6,Nmap#59=0X2A7 variable Nmap#60=0X2A8,Nmap#61=0X2A9,Nmap#62=0X2AA,Nmap#63=0X2AB variable Nmap#64=0X2AC,Nmap#65=0X2AD,Nmap#66=0X2AE,Nmap#67=0X2AF variable Nmap#68=0X2B0,Nmap#69=0X2B1,Nmap#70=0X2B2,Nmap#71=0X2B3 variable Nmap#72=0X2B4,Nmap#73=0X2B5,Nmap#74=0X2B6,Nmap#75=0X2B7 variable Nmap#76=0X2B8,Nmap#77=0X2B9,Nmap#78=0X2BA,Nmap#79=0X2BB variable Nmap#80=0X2BC,Nmap#81=0X2BD,Nmap#82=0X2BE,Nmap#83=0X2BF variable Nmap#84=0X2C0,Nmap#85=0X2C1,Nmap#86=0X2C2,Nmap#87=0X2C3 variable Nmap#88=0X2C4,Nmap#89=0X2C5,Nmap#90=0X2C6,Nmap#91=0X2C7 variable Nmap#92=0X2C8,Nmap#93=0X2C9,Nmap#94=0X2CA,Nmap#95=0X2CB variable Nmap#96=0X2CC,Nmap#97=0X2CD,Nmap#98=0X2CE,Nmap#99=0X2CF variable Nmap#100=0X2D0,Nmap#101=0X2D1,Nmap#102=0X2D2,Nmap#103=0X2D3 variable Nmap#104=0X2D4,Nmap#105=0X2D5,Nmap#106=0X2D6,Nmap#107=0X2D7 variable Nmap#108=0X2D8,Nmap#109=0X2D9,Nmap#110=0X2DA,Nmap#111=0X2DB variable Nmap#112=0X2DC,Nmap#113=0X2DD,Nmap#114=0X2DE,Nmap#115=0X2DF variable Nmap#116=0X2E0,Nmap#117=0X2E1,Nmap#118=0X2E2,Nmap#119=0X2E3 variable Nmap#120=0X2E4,Nmap#121=0X2E5,Nmap#122=0X2E6,Nmap#123=0X2E7 variable Nmap#124=0X2E8,Nmap#125=0X2E9,Nmap#126=0X2EA,Nmap#127=0X2EB GetMidiInResult equ 0X2EC SortTimersResult equ 0X2ED ; HEAP VARIABLES ; LOW PRIORITY INTERRUPT CONTEXT STORAGE _Low__Context_Store equ 0X2EE variable _Low__Context_Store_0=0X2EE,_Low__Context_Store_1=0X2EF,_Low__Context_Store_2=0X2F0 ; 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,4 #define Tim3Hw T3HH #define Tim3HwH T3HHH #define Tim3 TMR3L #define Tim3H TMR3LH #define StBit Bytein,7 #define PowerOn CC66,0 #define NrLowNotes NrNotes #define NrHighNotes NrNotesH #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 __CCP1_PIN 2 #define __HPWM1_PIN 2 #define __CCP2_PIN 1 #define __HPWM2_PIN 1 #define PWMminF 2442 #define PWMminFH 9 #define fPwm 21000 #define fPwmH 82 #define Lite120_note 120 #define Lite121_note 121 #define Lite122_note 122 #define Lite123_note 123 #define Display_note 124 #define Lite127_note 127 #define lowest_note 60 #define highest_note 108 #define NrTasks 4 #define LastTask 3 #define True 1 #define False 0 #define CC19_default 110 #define Midichannel 3 #define MidiLowNoteChannel 0 #define MidiHighNoteChannel 1 #define MidiLowDampChannel 2 #define MidiHighDampChannel 3 #define NoteOff_Status 131 #define NoteOn_Status 147 #define Keypres_Status 163 #define Control_Status 179 #define ProgChange_Status 195 #define Aftertouch_Status 211 #define Pitchbend_Status 227 #define HSERIAL_TXSTA 36 ;--------------------------------------------- ; START OF THE COMPILER'S LIBRARY ROUTINES _compiler__start_ org 0X000000 nop nop goto _compiler_main_start_ org 0X000008 goto High_Prior_Interrupt org 0X000018 goto 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 __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 __fpsub_32__ movlw 128 xorwf PP_BARGH,F __fpadd_32__ movf PP_BARG,W subwf PP_AARG,W movwf _BEXP bc __fpadd_32_1 negf _BEXP,0 movf PP_AARG,W movff PP_BARG,PP_AARG movwf PP_BARG movf PP_AARGH,W movff PP_BARGH,PP_AARGH movwf PP_BARGH movf PP_AARGHH,W movff PP_BARGHH,PP_AARGHH movwf PP_BARGHH movf PP_AARGHHH,W movff PP_BARGHHH,PP_AARGHHH movwf PP_BARGHHH __fpadd_32_1 movlw 26 cpfslt _BEXP,0 bra __fpadd_32_ret movf PP_BARG,F bz __fpadd_32_ret clrf _AEXP movf PP_AARGH,W movwf _FP_TEMP xorwf PP_BARGH,W movwf _FP_SIGN bsf PP_AARGH,7 bsf PP_BARGH,7 __fpadd_32_2 movlw 8 subwf _BEXP,F bnc __fpadd_32_3 movff PP_BARGHHH,_AEXP movff PP_BARGHH,PP_BARGHHH movff PP_BARGH,PP_BARGHH clrf PP_BARGH bra __fpadd_32_2 __fpadd_32_3 addwf _BEXP,F bz __fpadd_32_5 __fpadd_32_4 bcf STATUS,0 rrcf PP_BARGH,F rrcf PP_BARGHH,F rrcf PP_BARGHHH,F rrcf _AEXP,F decfsz _BEXP,F bra __fpadd_32_4 __fpadd_32_5 btfss _FP_SIGN,7 bra __fpadd_32_11 movf PP_BARGHHH,W subwf PP_AARGHHH,F movf PP_BARGHH,W subwfb PP_AARGHH,F movf PP_BARGH,W subwfb PP_AARGH,F bc __fpadd_32_6 bsf STATUS,0 movlw 0 subfwb PP_AARGHHH,F subfwb PP_AARGHH,F subfwb PP_AARGH,F movlw 128 xorwf _FP_TEMP,F __fpadd_32_6 negf _AEXP,0 bz __fpadd_32_7 decf PP_AARGHHH,F movlw 0 subwfb PP_AARGHH,F subwfb PP_AARGH,F __fpadd_32_7 movlw 4 movwf _BEXP __fpadd_32_8 tstfsz PP_AARGH,0 bra __fpadd_32_9 movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH movff _AEXP,PP_AARGHHH clrf _AEXP movlw 8 subwf PP_AARG,F bnc __fpadd_32_Res0 decfsz _BEXP,F bra __fpadd_32_8 bra __fpadd_32_Res0 __fpadd_32_9 btfsc PP_AARGH,7 bra __fpadd_32_10 bcf STATUS,0 rlcf _AEXP,F rlcf PP_AARGHHH,F rlcf PP_AARGHH,F rlcf PP_AARGH,F decfsz PP_AARG,F bra __fpadd_32_9 bra __fpadd_32_Res0 __fpadd_32_10 btfss _AEXP,7 bra __fpadd_32_Set_Sign clrf _AEXP bra __fpadd_32_increment __fpadd_32_11 movf PP_BARGHHH,W addwf PP_AARGHHH,F movf PP_BARGHH,W addwfc PP_AARGHH,F movf PP_BARGH,W addwfc PP_AARGH,F bnc __fpadd_32_13 __fpadd_32_adjust_right rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F rrcf _AEXP,F infsnz PP_AARG,F bra __fpadd_32_Overflow __fpadd_32_13 btfss _AEXP,7 bra __fpadd_32_Set_Sign __fpadd_32_increment incfsz PP_AARGHHH,F bra __fpadd_32_Set_Sign incfsz PP_AARGHH,F bra __fpadd_32_Set_Sign incfsz PP_AARGH,F bra __fpadd_32_Set_Sign bsf STATUS,0 bcf PP_AARGHHH,0 bra __fpadd_32_adjust_right __fpadd_32_Res0 clrf PP_AARG bra __fpadd_32_Mantissa __fpadd_32_Overflow bsf _FP_FLAGS,1 setf PP_AARG __fpadd_32_Mantissa clrf PP_AARGHHH clrf PP_AARGHH movlw 128 movwf PP_AARGH __fpadd_32_Set_Sign btfss _FP_TEMP,7 bcf PP_AARGH,7 __fpadd_32_ret movf PP_AARGHHH,W return __fpdiv_32__ movf PP_AARGH,W movwf PPZHH xorwf PP_BARGH,W movwf _FP_SIGN movf PP_BARG,W bz __fpdiv_32_Div0 movf PP_AARG,F bz __fpdiv_32_Res0 subwf PP_AARG,F movlw 127 bc __fpdiv_32_1 addwf PP_AARG,F bc __fpdiv_32_2 bra __fpdiv_32_Underflow __fpdiv_32_1 addwf PP_AARG,F bc __fpdiv_32_Overflow1 __fpdiv_32_2 movff PP_AARGHHH,PPZ movff PP_AARGHH,PPZH bsf PPZHH,7 bsf PP_BARGH,7 movlw 24 movwf _FP_TEMP clrf PP_AARGHHH clrf PP_AARGHH clrf PP_AARGH bra __Fpdiv_32_Start __fpdiv_32_Test_Zero_L movf PP_BARGHHH,W subwf PPZ,W movf PP_BARGHH,W subwfb PPZH,W bnc __fpdiv_32_Shift_In_C movwf PPZH clrf PPZHH movf PP_BARGHHH,W subwf PPZ,F bra __fpdiv_32_Set_And_Shift_In_C __fpdiv_32_Loop bc __fpdiv_32_6 __Fpdiv_32_Start movf PP_BARGH,W subwf PPZHH,W bz __fpdiv_32_Test_Zero_L bnc __fpdiv_32_Shift_In_C __fpdiv_32_6 movf PP_BARGHHH,W subwf PPZ,F movf PP_BARGHH,W subwfb PPZH,F movf PP_BARGH,W subwfb PPZHH,F __fpdiv_32_Set_And_Shift_In_C bsf STATUS,0 __fpdiv_32_Shift_In_C rlcf PP_AARGHHH,F rlcf PP_AARGHH,F rlcf PP_AARGH,F rlcf PPZ,F rlcf PPZH,F rlcf PPZHH,F decfsz _FP_TEMP,F bra __fpdiv_32_Loop btfsc PP_AARGH,7 bra __fpdiv_32_9 movf PP_AARG,F bz __fpdiv_32_Underflow rrcf _FP_SIGN,F decf PP_AARG,F incf _FP_TEMP,F rlcf _FP_SIGN,F bra __fpdiv_32_Loop __fpdiv_32_9 bc __fpdiv_32_10 movf PP_BARGHHH,W subwf PPZ,F movf PP_BARGHH,W subwfb PPZH,F movf PP_BARGH,W subwfb PPZHH,F bnc __fpdiv_32_Set_Sign __fpdiv_32_10 incfsz PP_AARGHHH,F bra __fpdiv_32_Set_Sign incfsz PP_AARGHH,F bra __fpdiv_32_Set_Sign incfsz PP_AARGH,F bra __fpdiv_32_Set_Sign rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F incfsz PP_AARG,F bra __fpdiv_32_Set_Sign bra __fpdiv_32_Overflow1 __fpdiv_32_Div0 bsf _FP_FLAGS,3 bra __fpdiv_32_Saturate __fpdiv_32_Underflow bsf _FP_FLAGS,2 __fpdiv_32_Res0 clrf PP_AARG bra __fpdiv_32_Mantissa __fpdiv_32_Overflow1 bsf _FP_FLAGS,1 __fpdiv_32_Saturate setf PP_AARG __fpdiv_32_Mantissa clrf PP_AARGHHH clrf PP_AARGHH movlw 128 movwf PP_AARGH __fpdiv_32_Set_Sign btfss _FP_SIGN,7 bcf PP_AARGH,7 movf PP_AARGHHH,W return __fpmult_32__ movf PP_AARGH,W movwf PPZHH xorwf PP_BARGH,W movwf _FP_SIGN movf PP_AARG,W btfss STATUS,2 movf PP_BARG,W bz __fpmult_32_Res0 addwf PP_AARG,F movlw 126 bnc __fpmult_32_1 subwf PP_AARG,F bnc __fpmult_32_2 bra __fpmult_32_Overflow __fpmult_32_1 subwf PP_AARG,F bnc __fpmult_32_Underflow __fpmult_32_2 movff PP_AARGHHH,PPZ movff PP_AARGHH,PPZH bsf PPZHH,7 bsf PP_BARGH,7 clrf PP_AARGHHH clrf PP_AARGHH clrf PP_AARGH movlw 24 movwf _FP_TEMP __fpmult_32_3 rrcf PPZHH,F rrcf PPZH,F rrcf PPZ,F bnc __fpmult_32_4 movf PP_BARGHHH,W addwf PP_AARGHHH,F movf PP_BARGHH,W addwfc PP_AARGHH,F movf PP_BARGH,W addwfc PP_AARGH,F __fpmult_32_4 rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F decfsz _FP_TEMP,F bra __fpmult_32_3 btfsc PP_AARGH,7 bra __fpmult_32_5 rlcf PP_AARGHHH,F rlcf PP_AARGHH,F rlcf PP_AARGH,F movf PP_AARG,F bz __fpmult_32_Underflow decf PP_AARG,F rlcf PPZHH,W __fpmult_32_5 bnc __fpmult_32_Set_Sign incfsz PP_AARGHHH,F bra __fpmult_32_Set_Sign incfsz PP_AARGHH,F bra __fpmult_32_Set_Sign incfsz PP_AARGH,F bra __fpmult_32_Set_Sign bsf STATUS,0 rrcf PP_AARGH,F rrcf PP_AARGHH,F rrcf PP_AARGHHH,F incfsz PP_AARG,F bra __fpmult_32_Set_Sign bra __fpmult_32_Overflow __fpmult_32_Underflow bsf _FP_FLAGS,2 __fpmult_32_Res0 clrf PP_AARG bra __fpmult_32_Mantissa __fpmult_32_Overflow bsf _FP_FLAGS,1 setf PP_AARG __fpmult_32_Mantissa clrf PP_AARGHHH clrf PP_AARGHH movlw 128 movwf PP_AARGH __fpmult_32_Set_Sign btfss _FP_SIGN,7 bcf PP_AARGH,7 movf PP_AARGHHH,W return _Fl32_To_Int32 movff PP_AARG,_FP_TEMP movf PP_AARGH,W movff PP_AARGHHH,PP_AARGH movwf PP_AARGHHH rlcf PP_AARGHHH,F rrcf _FP_TEMP,F rrcf PP_AARGHHH,F clrf _FP_FLAGS rlcf PP_AARGHHH,F rlcf _FP_TEMP,F bnc _Fl32Int__UnpkA1 bsf _FP_FLAGS,2 btg _FP_FLAGS,7,0 _Fl32Int__UnpkA1 bnz _Fl32Int__UnpkANZ bsf _FP_FLAGS,0 clrf _FP_TEMP clrf PP_AARGHHH clrf PP_AARGHH clrf PP_AARGH bra _Fl32IntUnp__Exit _Fl32Int__UnpkANZ incf _FP_TEMP,W bz _Fl32Int__UnpkA2 bsf STATUS,0 rrcf PP_AARGHHH,F bra _Fl32IntUnp__Exit _Fl32Int__UnpkA2 bcf STATUS,0 rrcf PP_AARGHHH,F bnz _Fl32Int__UnpkNaN bsf _FP_FLAGS,1 bra _Fl32IntUnp__Exit _Fl32Int__UnpkNaN bsf _FP_FLAGS,3 _Fl32IntUnp__Exit btfsc _FP_FLAGS,3 bra _Fl32Int__MaxPos btfss _FP_FLAGS,1 bra _Fl32Int__NotInf _Fl32Int__Max btfsc _FP_FLAGS,2 bra _Fl32Int__MaxNeg _Fl32Int__MaxPos movlw 127 movwf PP_AARGHHH movlw 255 _Fl32Int__Wr123 movwf PP_AARGHH movwf PP_AARGH movwf PP_AARG bra _Fl32Int__Exit _Fl32Int__MaxNeg movlw 128 movwf PP_AARGHHH bra _Fl32Int__WrZ123 _Fl32Int__Zero clrf PP_AARGHHH _Fl32Int__WrZ123 movlw 0 bra _Fl32Int__Wr123 _Fl32Int__NotInf btfsc _FP_FLAGS,0 bra _Fl32Int__Zero clrf PP_AARG movlw 159 cpfslt _FP_TEMP,0 bra _Fl32Int__Max movlw 126 cpfsgt _FP_TEMP,0 bra _Fl32Int__Zero _Fl32Int__Loop movlw 158 subwf _FP_TEMP,W bz _Fl32Int__LoopExit bcf STATUS,0 rrcf PP_AARGHHH,F rrcf PP_AARGHH,F rrcf PP_AARGH,F rrcf PP_AARG,F incf _FP_TEMP,F bra _Fl32Int__Loop _Fl32Int__LoopExit btfss _FP_FLAGS,2 bra _Fl32Int__Exit bsf STATUS,0 movlw 0 subfwb PP_AARG,F subfwb PP_AARGH,F subfwb PP_AARGHH,F subfwb PP_AARGHHH,F btfss PP_AARGHHH,7 bra _Fl32Int__Zero _Fl32Int__Exit movf PP_AARG,W return _Uns_Int08_ToFl32 movwf PP_AARG clrf PP_AARGH _Uns_Int16_ToFl32 clrf PP_AARGHH clrf PP_AARGHHH _UnSgn_Int32_ToFl32 bcf _FP_SIGN,7 bra __Int32_ToFl32_L5 _Sgn_Int32_ToFl32 bcf _FP_SIGN,7 btfss PP_AARGHHH,7 bra __Int32_ToFl32_L5 bsf STATUS,0 movlw 0 subfwb PP_AARG,F subfwb PP_AARGH,F subfwb PP_AARGHH,F subfwb PP_AARGHHH,F bsf _FP_SIGN,7 __Int32_ToFl32_L5 movlw 150 movwf _FP_TEMP movf PP_AARGHHH,F bz __Int32_ToFl32_L7 __Int32_ToFl32_L17 movlw 8 addwf _FP_TEMP,F movff PP_AARGH,PP_AARG movff PP_AARGHH,PP_AARGH movff PP_AARGHHH,PP_AARGHH bra __Int32_ToFl32_L18 __Int32_ToFl32_L7 movf PP_AARGHH,F bnz __Int32_ToFl32_L18 movlw 8 subwf _FP_TEMP,F movf PP_AARGH,W bnz __Int32_ToFl32_L20 movlw 8 subwf _FP_TEMP,F movf PP_AARG,W bnz __Int32_ToFl32_L22 movf PP_AARGHHH,W bra __Int32_ToFl32_Exit __Int32_ToFl32_L22 clrf PP_AARG __Int32_ToFl32_L20 movwf PP_AARGHH movff PP_AARG,PP_AARGH clrf PP_AARG __Int32_ToFl32_L18 btfsc PP_AARGHH,7 bra __Int32_ToFl32_L24 bcf STATUS,0 rlcf PP_AARG,F rlcf PP_AARGH,F rlcf PP_AARGHH,F decf _FP_TEMP,F bra __Int32_ToFl32_L18 __Int32_ToFl32_L24 btfss _FP_SIGN,7 bcf PP_AARGHH,7 __Int32_ToFl32_L26 movf _FP_TEMP,W __Int32_ToFl32_Exit movff PP_AARG,PP_AARGHHH movwf PP_AARG movf PP_AARGHH,W movff PP_AARGH,PP_AARGHH movwf PP_AARGH return _compiler_main_start_ movlw 64 movwf _FP_FLAGS 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 $ ; GESTA_HUB.BAS F2_SOF equ $ ; 18F2620.Inc movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F2620.Inc F1_000021 equ $ ; in [GESTA_HUB.BAS] Clear lfsr 0,0X0F7E _pblb__2 clrf POSTDEC0,0 movf FSR0L,W,0 iorwf FSR0H,W,0 bnz _pblb__2 clrf INDF0,0 F1_000042 equ $ ; in [GESTA_HUB.BAS] DECLARE ALL_DIGITAL = True F1_000043 equ $ ; in [GESTA_HUB.BAS] Clear SSPCON1.5 bcf SSPCON1,5,0 F1_000045 equ $ ; in [GESTA_HUB.BAS] TRISA = %11000011 movlw 195 movwf TRISA,0 F1_000046 equ $ ; in [GESTA_HUB.BAS] TRISB = %11100000 movlw 224 movwf TRISB,0 F1_000047 equ $ ; in [GESTA_HUB.BAS] TRISC = %11000000 movlw 192 movwf TRISC,0 F1_000048 equ $ ; in [GESTA_HUB.BAS] Input PORTA.0 bsf TRISA,0,0 F1_000049 equ $ ; in [GESTA_HUB.BAS] Input PORTA.1 bsf TRISA,1,0 F3_SOF equ $ ; GESTA_HUB_IRQ.Inc F3_000030 equ $ ; in [GESTA_HUB_IRQ.Inc] goto _Over_IRQ_Handler bra _Over_IRQ_Handler ;--------------------------------------------- ; HIGH PRIORITY INTERRUPT HANDLER High_Prior_Interrupt _Timer0_IRQ F3_000034 equ $ ; in [GESTA_HUB_IRQ.Inc] if INTCON.2 = 1 Then btfss INTCON,2,0 bra _lbl__4 F3_000035 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear INTCON.2 bcf INTCON,2,0 F3_000036 equ $ ; in [GESTA_HUB_IRQ.Inc] Inc Cnt.Word1 infsnz CntHH,F,0 incf CntHHH,F,0 F3_000037 equ $ ; in [GESTA_HUB_IRQ.Inc] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F3_000038 equ $ ; in [GESTA_HUB_IRQ.Inc] btg PORTB.5 btg PORTB,5 F3_000039 equ $ ; in [GESTA_HUB_IRQ.Inc] retfie fast retfie 1 F3_000040 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__4 _UART_IRQ F3_000042 equ $ ; in [GESTA_HUB_IRQ.Inc] if PIR1.5 = 1 Then btfss PIR1,5,0 bra _lbl__6 F3_000043 equ $ ; in [GESTA_HUB_IRQ.Inc] movlw 6 movlw 6 F3_000044 equ $ ; in [GESTA_HUB_IRQ.Inc] andwf RCSTA,W andwf RCSTA,W F3_000045 equ $ ; in [GESTA_HUB_IRQ.Inc] bnz _Uart_Error bnz _Uart_Error F3_000046 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR1_Save = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000047 equ $ ; in [GESTA_HUB_IRQ.Inc] Inc IndexIn incf IndexIn,F,0 F3_000054 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR1 = VarPtr Ringbuffer lfsr 1,108 F3_000055 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR1 = USART_FSR1 + IndexIn movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000056 equ $ ; in [GESTA_HUB_IRQ.Inc] INDF1 = RCREG movff RCREG,INDF1 F3_000057 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR1 = USART_FSR1_Save movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000059 equ $ ; in [GESTA_HUB_IRQ.Inc] retfie fast retfie 1 _Uart_Error F3_000061 equ $ ; in [GESTA_HUB_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000062 equ $ ; in [GESTA_HUB_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000063 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear RCSTA.4 bcf RCSTA,4,0 F3_000064 equ $ ; in [GESTA_HUB_IRQ.Inc] Set RCSTA.4 bsf RCSTA,4,0 F3_000065 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__6 F3_000066 equ $ ; in [GESTA_HUB_IRQ.Inc] retfie fast retfie 1 ;--------------------------------------------- ; LOW PRIORITY INTERRUPT HANDLER Low_Prior_Interrupt Timer3_ISR F3_000159 equ $ ; in [GESTA_HUB_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_000160 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear PIR2.1 bcf PIR2,1,0 F3_000161 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear Tim3 clrf TMR3LH,0 clrf TMR3L,0 F3_000163 equ $ ; in [GESTA_HUB_IRQ.Inc] if CC69 > 0 Then movf CC69,F,0 bz _lbl__8 F3_000164 equ $ ; in [GESTA_HUB_IRQ.Inc] if NrLowNotes = 0 Then movf NrNotes,F,0 bnz _lbl__10 F3_000165 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear PORTC.0 bcf LATC,0,0 bra _lbl__11 _lbl__10 F3_000166 equ $ ; in [GESTA_HUB_IRQ.Inc] else F3_000167 equ $ ; in [GESTA_HUB_IRQ.Inc] Set PORTC.0 bsf LATC,0,0 F3_000168 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__11 F3_000169 equ $ ; in [GESTA_HUB_IRQ.Inc] if NrHighNotes = 0 Then movf NrNotesH,F,0 bnz _lbl__13 F3_000170 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear PORTC.3 bcf LATC,3,0 bra _lbl__14 _lbl__13 F3_000171 equ $ ; in [GESTA_HUB_IRQ.Inc] else F3_000172 equ $ ; in [GESTA_HUB_IRQ.Inc] Set PORTC.3 bsf LATC,3,0 F3_000173 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__14 F3_000174 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__8 F3_000175 equ $ ; in [GESTA_HUB_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 $ ; GESTA_HUB_IRQ.Inc F1_000179 equ $ ; in [GESTA_HUB.BAS] low PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000180 equ $ ; in [GESTA_HUB.BAS] high PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000181 equ $ ; in [GESTA_HUB.BAS] Clear CC66 clrf CC66,0 F1_000182 equ $ ; in [GESTA_HUB.BAS] Clear CC64 clrf CC64,0 MAIN F1_000187 equ $ ; in [GESTA_HUB.BAS] low PORTB.4 bcf TRISB,4,0 bcf LATB,4,0 F1_000188 equ $ ; in [GESTA_HUB.BAS] low PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000189 equ $ ; in [GESTA_HUB.BAS] low PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000190 equ $ ; in [GESTA_HUB.BAS] low PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000191 equ $ ; in [GESTA_HUB.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000192 equ $ ; in [GESTA_HUB.BAS] low PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000193 equ $ ; in [GESTA_HUB.BAS] low PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000194 equ $ ; in [GESTA_HUB.BAS] Clear NrNotes clrf NrNotesH,0 clrf NrNotes,0 F1_000195 equ $ ; in [GESTA_HUB.BAS] Set TimVals lfsr 0,TimVals movlw 16 _pblb__15 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__15 F1_000197 equ $ ; in [GESTA_HUB.BAS] Init_Usart_Interrupt () call Init_Usart_Interrupt F1_000199 equ $ ; in [GESTA_HUB.BAS] Clear_Serial_Buffer () call Clear_Serial_Buffer F1_000208 equ $ ; in [GESTA_HUB.BAS] Clear T1CON clrf T1CON,0 F1_000209 equ $ ; in [GESTA_HUB.BAS] Clear INTCON.2 bcf INTCON,2,0 F1_000210 equ $ ; in [GESTA_HUB.BAS] Set INTCON.5 bsf INTCON,5,0 F1_000211 equ $ ; in [GESTA_HUB.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000239 equ $ ; in [GESTA_HUB.BAS] Clear T3CON clrf T3CON,0 F1_000240 equ $ ; in [GESTA_HUB.BAS] Clear PIR2.1 bcf PIR2,1,0 F1_000241 equ $ ; in [GESTA_HUB.BAS] Set PIE2.1 bsf PIE2,1,0 F1_000242 equ $ ; in [GESTA_HUB.BAS] Clear Tim3 clrf TMR3LH,0 clrf TMR3L,0 F1_000244 equ $ ; in [GESTA_HUB.BAS] Set RCON.7 bsf RCON,7,0 F1_000245 equ $ ; in [GESTA_HUB.BAS] Clear IPR2.1 bcf IPR2,1,0 F1_000247 equ $ ; in [GESTA_HUB.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000259 equ $ ; in [GESTA_HUB.BAS] Set PIE2.1 bsf PIE2,1,0 F1_000260 equ $ ; in [GESTA_HUB.BAS] Set T3CON.0 bsf T3CON,0,0 F1_000261 equ $ ; in [GESTA_HUB.BAS] Dur_Lookup () call Dur_Lookup F1_000263 equ $ ; in [GESTA_HUB.BAS] Note_Map () call Note_Map F1_000265 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx F1_000266 equ $ ; in [GESTA_HUB.BAS] Set CC69 setf CC69,0 F1_000271 equ $ ; in [GESTA_HUB.BAS] HRsout Control_Status, 66, 0 movlw 179 call __hrsout1__ movlw 66 call __hrsout1__ movlw 0 call __hrsout1__ F1_000274 equ $ ; in [GESTA_HUB.BAS] Do _lbl__16 F1_000275 equ $ ; in [GESTA_HUB.BAS] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F1_000277 equ $ ; in [GESTA_HUB.BAS] Bytein = GetMidiIn () call GetMidiIn movff GetMidiInResult,Bytein Midi_Parse F1_000280 equ $ ; in [GESTA_HUB.BAS] if Bytein > Control_Status Then movlw 180 subwf Bytein,W,0 bnc _lbl__20 F1_000281 equ $ ; in [GESTA_HUB.BAS] if Bytein > 253 Then movlw 254 subwf Bytein,W,0 bnc _lbl__22 bra _lbl__23 _lbl__22 F1_000285 equ $ ; in [GESTA_HUB.BAS] else F1_000286 equ $ ; in [GESTA_HUB.BAS] Clear statusbyte clrf statusbyte,0 F1_000287 equ $ ; in [GESTA_HUB.BAS] end if _lbl__23 F1_000288 equ $ ; in [GESTA_HUB.BAS] goto Check_Timers goto Check_Timers F1_000289 equ $ ; in [GESTA_HUB.BAS] endif _lbl__20 F1_000290 equ $ ; in [GESTA_HUB.BAS] if StBit =1 Then btfss Bytein,7,0 bra _lbl__25 F1_000292 equ $ ; in [GESTA_HUB.BAS] Clear statusbyte clrf statusbyte,0 F1_000293 equ $ ; in [GESTA_HUB.BAS] Select Bytein F1_000294 equ $ ; in [GESTA_HUB.BAS] Case NoteOff_Status movlw 131 subwf Bytein,W,0 bnz _lbl__27 F1_000295 equ $ ; in [GESTA_HUB.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000296 equ $ ; in [GESTA_HUB.BAS] Set noteUit setf noteUit,0 F1_000297 equ $ ; in [GESTA_HUB.BAS] Set release setf release,0 bra _lbl__26 _lbl__27 F1_000298 equ $ ; in [GESTA_HUB.BAS] Case NoteOn_Status movlw 147 subwf Bytein,W,0 bnz _lbl__30 F1_000299 equ $ ; in [GESTA_HUB.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000300 equ $ ; in [GESTA_HUB.BAS] Set noteAan setf noteAan,0 F1_000301 equ $ ; in [GESTA_HUB.BAS] Set velo setf velo,0 bra _lbl__26 _lbl__30 F1_000302 equ $ ; in [GESTA_HUB.BAS] Case Keypres_Status movlw 163 subwf Bytein,W,0 bnz _lbl__32 F1_000303 equ $ ; in [GESTA_HUB.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000304 equ $ ; in [GESTA_HUB.BAS] Set notePres setf notePres,0 F1_000305 equ $ ; in [GESTA_HUB.BAS] Set pres setf pres,0 bra _lbl__26 _lbl__32 F1_000306 equ $ ; in [GESTA_HUB.BAS] Case Control_Status movlw 179 subwf Bytein,W,0 bnz _lbl__34 F1_000307 equ $ ; in [GESTA_HUB.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000308 equ $ ; in [GESTA_HUB.BAS] Set Ctrl setf Ctrl,0 F1_000309 equ $ ; in [GESTA_HUB.BAS] Set value setf value,0 F1_000320 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__34 _lbl__26 goto _lbl__35 _lbl__25 F1_000321 equ $ ; in [GESTA_HUB.BAS] else F1_000322 equ $ ; in [GESTA_HUB.BAS] Select statusbyte F1_000323 equ $ ; in [GESTA_HUB.BAS] Case 0 movf statusbyte,F,0 bnz _lbl__37 F1_000324 equ $ ; in [GESTA_HUB.BAS] goto Check_Timers goto Check_Timers goto _lbl__36 _lbl__37 F1_000325 equ $ ; in [GESTA_HUB.BAS] Case NoteOff_Status movlw 131 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__40 F1_000326 equ $ ; in [GESTA_HUB.BAS] if noteUit = 255 Then incf noteUit,W,0 bnz _lbl__42 F1_000327 equ $ ; in [GESTA_HUB.BAS] noteUit = Bytein movff Bytein,noteUit bra _lbl__43 _lbl__42 F1_000328 equ $ ; in [GESTA_HUB.BAS] else F1_000329 equ $ ; in [GESTA_HUB.BAS] release = Bytein movff Bytein,release F1_000330 equ $ ; in [GESTA_HUB.BAS] Select noteUit F1_000331 equ $ ; in [GESTA_HUB.BAS] Case 60 To 96 movlw 60 subwf noteUit,W,0 bnc _lbl__45 movlw 97 subwf noteUit,W,0 bc _lbl__45 F1_000332 equ $ ; in [GESTA_HUB.BAS] note = Nmap[noteUit] lfsr 0,Nmap movf noteUit,W,0 movf PLUSW0,W,0 movwf note,0 F1_000333 equ $ ; in [GESTA_HUB.BAS] if note.7 = 0 Then btfsc note,7,0 bra _lbl__48 F1_000334 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiLowDampChannel movlw 2 movwf kanaal,0 F1_000335 equ $ ; in [GESTA_HUB.BAS] if NrLowNotes > 0 Then Dec NrLowNotes movf NrNotes,F,0 bz _lbl__50 decf NrNotes,F,0 _lbl__50 bra _lbl__51 _lbl__48 F1_000336 equ $ ; in [GESTA_HUB.BAS] else F1_000337 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiHighDampChannel movlw 3 movwf kanaal,0 F1_000338 equ $ ; in [GESTA_HUB.BAS] Clear note.7 bcf note,7,0 F1_000339 equ $ ; in [GESTA_HUB.BAS] if NrHighNotes > 0 Then Dec NrHighNotes movf NrNotesH,F,0 bz _lbl__53 decf NrNotesH,F,0 _lbl__53 F1_000340 equ $ ; in [GESTA_HUB.BAS] endif _lbl__51 F1_000341 equ $ ; in [GESTA_HUB.BAS] if CC64 = 0 Then movf CC64,F,0 bnz _lbl__55 F1_000342 equ $ ; in [GESTA_HUB.BAS] if release = 0 Then release = CC19 movf release,F,0 bnz _lbl__57 movff CC19,release _lbl__57 F1_000343 equ $ ; in [GESTA_HUB.BAS] HRsout 128 + kanaal, note, release clrf PP7H,0 movlw 128 addwf kanaal,W,0 movwf PP7,0 btfsc STATUS,0,0 incf PP7H,F,0 movf PP7,W,0 call __hrsout1__ movf PP7H,W,0 call __hrsout1__ movf note,W,0 call __hrsout1__ movf release,W,0 call __hrsout1__ bra _lbl__58 _lbl__55 F1_000344 equ $ ; in [GESTA_HUB.BAS] else F1_000346 equ $ ; in [GESTA_HUB.BAS] endif _lbl__58 bra _lbl__44 _lbl__45 F1_000347 equ $ ; in [GESTA_HUB.BAS] Case Lite120_note movlw 120 subwf noteUit,W,0 bnz _lbl__60 F1_000348 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.0 bcf LATC,0,0 F1_000349 equ $ ; in [GESTA_HUB.BAS] Clear Lites.0 bcf Lites,0,0 F1_000350 equ $ ; in [GESTA_HUB.BAS] Set TimVals[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 F1_000351 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__44 _lbl__60 F1_000352 equ $ ; in [GESTA_HUB.BAS] Case Lite121_note movlw 121 subwf noteUit,W,0 bnz _lbl__62 F1_000353 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.3 bcf LATC,3,0 F1_000354 equ $ ; in [GESTA_HUB.BAS] Clear Lites.1 bcf Lites,1,0 F1_000355 equ $ ; in [GESTA_HUB.BAS] Set TimVals[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 F1_000356 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__44 _lbl__62 F1_000357 equ $ ; in [GESTA_HUB.BAS] Case Lite122_note movlw 122 subwf noteUit,W,0 bnz _lbl__64 F1_000358 equ $ ; in [GESTA_HUB.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ bra _lbl__44 _lbl__64 F1_000360 equ $ ; in [GESTA_HUB.BAS] Case Lite123_note movlw 123 subwf noteUit,W,0 bnz _lbl__66 F1_000361 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000362 equ $ ; in [GESTA_HUB.BAS] Clear Lites.2 bcf Lites,2,0 F1_000363 equ $ ; in [GESTA_HUB.BAS] Set TimVals[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 F1_000364 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__44 _lbl__66 F1_000365 equ $ ; in [GESTA_HUB.BAS] Case Display_note movlw 124 subwf noteUit,W,0 bnz _lbl__68 F1_000366 equ $ ; in [GESTA_HUB.BAS] Clear PORTA.5 bcf LATA,5,0 bra _lbl__44 _lbl__68 F1_000367 equ $ ; in [GESTA_HUB.BAS] Case Lite127_note movlw 127 subwf noteUit,W,0 bnz _lbl__70 F1_000368 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.2 bcf LATC,2,0 F1_000369 equ $ ; in [GESTA_HUB.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000370 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__70 _lbl__44 F1_000371 equ $ ; in [GESTA_HUB.BAS] Set noteUit setf noteUit,0 F1_000372 equ $ ; in [GESTA_HUB.BAS] endif _lbl__43 bra _lbl__36 _lbl__40 F1_000373 equ $ ; in [GESTA_HUB.BAS] Case NoteOn_Status movlw 147 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__72 F1_000374 equ $ ; in [GESTA_HUB.BAS] if noteAan = 255 Then incf noteAan,W,0 bnz _lbl__74 F1_000375 equ $ ; in [GESTA_HUB.BAS] noteAan = Bytein movff Bytein,noteAan bra _lbl__75 _lbl__74 F1_000376 equ $ ; in [GESTA_HUB.BAS] else F1_000377 equ $ ; in [GESTA_HUB.BAS] velo = Bytein movff Bytein,velo F1_000378 equ $ ; in [GESTA_HUB.BAS] if velo = 0 Then movf velo,F,0 btfss STATUS,2,0 bra _lbl__77 F1_000379 equ $ ; in [GESTA_HUB.BAS] Select noteAan F1_000380 equ $ ; in [GESTA_HUB.BAS] Case 60 To 96 movlw 60 subwf noteAan,W,0 bnc _lbl__79 movlw 97 subwf noteAan,W,0 bc _lbl__79 F1_000381 equ $ ; in [GESTA_HUB.BAS] note = Nmap[noteAan] lfsr 0,Nmap movf noteAan,W,0 movf PLUSW0,W,0 movwf note,0 F1_000382 equ $ ; in [GESTA_HUB.BAS] if note.7 = 0 Then btfsc note,7,0 bra _lbl__82 F1_000383 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiLowDampChannel movlw 2 movwf kanaal,0 F1_000384 equ $ ; in [GESTA_HUB.BAS] if NrLowNotes > 0 Then Dec NrLowNotes movf NrNotes,F,0 bz _lbl__84 decf NrNotes,F,0 _lbl__84 bra _lbl__85 _lbl__82 F1_000385 equ $ ; in [GESTA_HUB.BAS] else F1_000386 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiHighDampChannel movlw 3 movwf kanaal,0 F1_000387 equ $ ; in [GESTA_HUB.BAS] Clear note.7 bcf note,7,0 F1_000388 equ $ ; in [GESTA_HUB.BAS] if NrHighNotes > 0 Then Dec NrHighNotes movf NrNotesH,F,0 bz _lbl__87 decf NrNotesH,F,0 _lbl__87 F1_000389 equ $ ; in [GESTA_HUB.BAS] endif _lbl__85 F1_000390 equ $ ; in [GESTA_HUB.BAS] if CC64 = 0 Then movf CC64,F,0 bnz _lbl__89 F1_000391 equ $ ; in [GESTA_HUB.BAS] if release = 0 Then release = CC19 movf release,F,0 bnz _lbl__91 movff CC19,release _lbl__91 F1_000392 equ $ ; in [GESTA_HUB.BAS] HRsout 128 + kanaal, note, release clrf PP7H,0 movlw 128 addwf kanaal,W,0 movwf PP7,0 btfsc STATUS,0,0 incf PP7H,F,0 movf PP7,W,0 call __hrsout1__ movf PP7H,W,0 call __hrsout1__ movf note,W,0 call __hrsout1__ movf release,W,0 call __hrsout1__ bra _lbl__92 _lbl__89 F1_000393 equ $ ; in [GESTA_HUB.BAS] else F1_000395 equ $ ; in [GESTA_HUB.BAS] endif _lbl__92 bra _lbl__78 _lbl__79 F1_000396 equ $ ; in [GESTA_HUB.BAS] Case Lite120_note movlw 120 subwf noteAan,W,0 bnz _lbl__94 F1_000397 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.0 bcf LATC,0,0 F1_000398 equ $ ; in [GESTA_HUB.BAS] Clear Lites.0 bcf Lites,0,0 F1_000399 equ $ ; in [GESTA_HUB.BAS] Set TimVals[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 F1_000400 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__78 _lbl__94 F1_000401 equ $ ; in [GESTA_HUB.BAS] Case Lite122_note movlw 122 subwf noteAan,W,0 bnz _lbl__96 F1_000402 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.3 bcf LATC,3,0 F1_000403 equ $ ; in [GESTA_HUB.BAS] Clear Lites.1 bcf Lites,1,0 F1_000404 equ $ ; in [GESTA_HUB.BAS] Set TimVals[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 F1_000405 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__78 _lbl__96 F1_000406 equ $ ; in [GESTA_HUB.BAS] Case Lite121_note movlw 121 subwf noteAan,W,0 bnz _lbl__98 F1_000407 equ $ ; in [GESTA_HUB.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ bra _lbl__78 _lbl__98 F1_000409 equ $ ; in [GESTA_HUB.BAS] Case Lite123_note movlw 123 subwf noteAan,W,0 bnz _lbl__100 F1_000410 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000411 equ $ ; in [GESTA_HUB.BAS] Clear Lites.2 bcf Lites,2,0 F1_000412 equ $ ; in [GESTA_HUB.BAS] Set TimVals[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 F1_000413 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx bra _lbl__78 _lbl__100 F1_000414 equ $ ; in [GESTA_HUB.BAS] Case Display_note movlw 124 subwf noteAan,W,0 bnz _lbl__102 F1_000415 equ $ ; in [GESTA_HUB.BAS] Clear PORTA.5 bcf LATA,5,0 bra _lbl__78 _lbl__102 F1_000416 equ $ ; in [GESTA_HUB.BAS] Case Lite127_note movlw 127 subwf noteAan,W,0 bnz _lbl__104 F1_000417 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.2 bcf LATC,2,0 F1_000418 equ $ ; in [GESTA_HUB.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000419 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__104 _lbl__78 bra _lbl__105 _lbl__77 F1_000420 equ $ ; in [GESTA_HUB.BAS] else F1_000421 equ $ ; in [GESTA_HUB.BAS] if PowerOn = 1 Then btfss CC66,0,0 bra _lbl__107 F1_000422 equ $ ; in [GESTA_HUB.BAS] Select noteAan F1_000423 equ $ ; in [GESTA_HUB.BAS] Case 60 To 108 movlw 60 subwf noteAan,W,0 bnc _lbl__109 movlw 109 subwf noteAan,W,0 bc _lbl__109 F1_000424 equ $ ; in [GESTA_HUB.BAS] note = Nmap[noteAan] lfsr 0,Nmap movf noteAan,W,0 movf PLUSW0,W,0 movwf note,0 F1_000425 equ $ ; in [GESTA_HUB.BAS] if note.7 = 0 Then btfsc note,7,0 bra _lbl__112 F1_000426 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiLowNoteChannel clrf kanaal,0 F1_000427 equ $ ; in [GESTA_HUB.BAS] Inc NrLowNotes incf NrNotes,F,0 bra _lbl__113 _lbl__112 F1_000428 equ $ ; in [GESTA_HUB.BAS] else F1_000429 equ $ ; in [GESTA_HUB.BAS] kanaal = MidiHighNoteChannel movlw 1 movwf kanaal,0 F1_000430 equ $ ; in [GESTA_HUB.BAS] Clear note.7 bcf note,7,0 F1_000431 equ $ ; in [GESTA_HUB.BAS] Inc NrHighNotes incf NrNotesH,F,0 F1_000432 equ $ ; in [GESTA_HUB.BAS] endif _lbl__113 F1_000433 equ $ ; in [GESTA_HUB.BAS] HRsout 144 + kanaal, note, velo clrf PP7H,0 movlw 144 addwf kanaal,W,0 movwf PP7,0 btfsc STATUS,0,0 incf PP7H,F,0 movf PP7,W,0 call __hrsout1__ movf PP7H,W,0 call __hrsout1__ movf note,W,0 call __hrsout1__ movf velo,W,0 call __hrsout1__ bra _lbl__108 _lbl__109 F1_000434 equ $ ; in [GESTA_HUB.BAS] Case Lite120_note movlw 120 subwf noteAan,W,0 bnz _lbl__115 F1_000435 equ $ ; in [GESTA_HUB.BAS] Set PORTC.0 bsf LATC,0,0 F1_000436 equ $ ; in [GESTA_HUB.BAS] Set Lites.0 bsf Lites,0,0 F1_000437 equ $ ; in [GESTA_HUB.BAS] Pres1 = velo movff velo,Pres1 F1_000438 equ $ ; in [GESTA_HUB.BAS] if velo < 127 Then movlw 127 subwf velo,W,0 bc _lbl__117 F1_000439 equ $ ; in [GESTA_HUB.BAS] TimVals[1] = time + Dur5[velo] lfsr 0,Dur5 bcf STATUS,0,0 rlcf velo,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_000440 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers movlw 52 movwf idx,0 F1_000441 equ $ ; in [GESTA_HUB.BAS] endif _lbl__117 bra _lbl__108 _lbl__115 F1_000442 equ $ ; in [GESTA_HUB.BAS] Case Lite122_note movlw 122 subwf noteAan,W,0 bnz _lbl__119 F1_000443 equ $ ; in [GESTA_HUB.BAS] Set PORTC.3 bsf LATC,3,0 F1_000444 equ $ ; in [GESTA_HUB.BAS] Set Lites.1 bsf Lites,1,0 F1_000445 equ $ ; in [GESTA_HUB.BAS] Pres2 = velo movff velo,Pres2 F1_000446 equ $ ; in [GESTA_HUB.BAS] if velo < 127 Then movlw 127 subwf velo,W,0 bc _lbl__121 F1_000447 equ $ ; in [GESTA_HUB.BAS] TimVals[2] = time + Dur5[velo] lfsr 0,Dur5 bcf STATUS,0,0 rlcf velo,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#2 movff PBS_VAR0H,TimVals#2H movff PBS_VAR0HH,TimVals#2HH movff PBS_VAR0HHH,TimVals#2HHH F1_000448 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx F1_000449 equ $ ; in [GESTA_HUB.BAS] endif _lbl__121 bra _lbl__108 _lbl__119 F1_000450 equ $ ; in [GESTA_HUB.BAS] Case Lite121_note movlw 121 subwf noteAan,W,0 bnz _lbl__123 F1_000451 equ $ ; in [GESTA_HUB.BAS] velo = velo + velo movf velo,W,0 addwf velo,F,0 F1_000452 equ $ ; in [GESTA_HUB.BAS] Inc velo incf velo,F,0 F1_000453 equ $ ; in [GESTA_HUB.BAS] HPWM 2,velo , fPwm movff velo,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ bra _lbl__108 _lbl__123 F1_000454 equ $ ; in [GESTA_HUB.BAS] Case Lite123_note movlw 123 subwf noteAan,W,0 bnz _lbl__125 F1_000455 equ $ ; in [GESTA_HUB.BAS] Set PORTC.4 bsf LATC,4,0 F1_000456 equ $ ; in [GESTA_HUB.BAS] Set Lites.2 bsf Lites,2,0 F1_000457 equ $ ; in [GESTA_HUB.BAS] Pres3 = velo movff velo,Pres3 F1_000458 equ $ ; in [GESTA_HUB.BAS] if velo < 127 Then movlw 127 subwf velo,W,0 bc _lbl__127 F1_000459 equ $ ; in [GESTA_HUB.BAS] TimVals[3] = time + Dur5[velo] lfsr 0,Dur5 bcf STATUS,0,0 rlcf velo,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#3 movff PBS_VAR0H,TimVals#3H movff PBS_VAR0HH,TimVals#3HH movff PBS_VAR0HHH,TimVals#3HHH F1_000460 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx F1_000461 equ $ ; in [GESTA_HUB.BAS] endif _lbl__127 bra _lbl__108 _lbl__125 F1_000462 equ $ ; in [GESTA_HUB.BAS] Case Display_note movlw 124 subwf noteAan,W,0 bnz _lbl__129 F1_000463 equ $ ; in [GESTA_HUB.BAS] Set PORTA.5 bsf LATA,5,0 bra _lbl__108 _lbl__129 F1_000464 equ $ ; in [GESTA_HUB.BAS] Case Lite127_note movlw 127 subwf noteAan,W,0 bnz _lbl__131 F1_000465 equ $ ; in [GESTA_HUB.BAS] velo = velo + velo movf velo,W,0 addwf velo,F,0 F1_000466 equ $ ; in [GESTA_HUB.BAS] Inc velo incf velo,F,0 F1_000467 equ $ ; in [GESTA_HUB.BAS] HPWM 1, velo, fPwm movff velo,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000468 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__131 _lbl__108 F1_000469 equ $ ; in [GESTA_HUB.BAS] endif _lbl__107 F1_000470 equ $ ; in [GESTA_HUB.BAS] Set noteAan setf noteAan,0 F1_000471 equ $ ; in [GESTA_HUB.BAS] endif _lbl__105 F1_000472 equ $ ; in [GESTA_HUB.BAS] endif _lbl__75 bra _lbl__36 _lbl__72 F1_000473 equ $ ; in [GESTA_HUB.BAS] Case Keypres_Status movlw 163 subwf statusbyte,W,0 bnz _lbl__133 F1_000474 equ $ ; in [GESTA_HUB.BAS] if notePres = 255 Then incf notePres,W,0 bnz _lbl__135 F1_000475 equ $ ; in [GESTA_HUB.BAS] notePres = Bytein movff Bytein,notePres bra _lbl__136 _lbl__135 F1_000476 equ $ ; in [GESTA_HUB.BAS] else F1_000477 equ $ ; in [GESTA_HUB.BAS] pres = Bytein movff Bytein,pres F1_000478 equ $ ; in [GESTA_HUB.BAS] KeyPres () rcall KeyPres F1_000480 equ $ ; in [GESTA_HUB.BAS] endif _lbl__136 bra _lbl__36 _lbl__133 F1_000481 equ $ ; in [GESTA_HUB.BAS] Case Control_Status movlw 179 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__138 F1_000482 equ $ ; in [GESTA_HUB.BAS] if Ctrl = 255 Then incf Ctrl,W,0 bnz _lbl__140 F1_000483 equ $ ; in [GESTA_HUB.BAS] Ctrl = Bytein movff Bytein,Ctrl bra _lbl__141 _lbl__140 F1_000484 equ $ ; in [GESTA_HUB.BAS] else F1_000485 equ $ ; in [GESTA_HUB.BAS] value = Bytein movff Bytein,value F1_000486 equ $ ; in [GESTA_HUB.BAS] Select Ctrl F1_000487 equ $ ; in [GESTA_HUB.BAS] Case 19 movlw 19 subwf Ctrl,W,0 bnz _lbl__143 F1_000491 equ $ ; in [GESTA_HUB.BAS] CC19 = value + 1 incf value,W,0 movwf CC19,0 F1_000492 equ $ ; in [GESTA_HUB.BAS] if CC19 > 127 Then CC19 = 127 movlw 128 subwf CC19,W,0 bnc _lbl__146 movlw 127 movwf CC19,0 _lbl__146 bra _lbl__142 _lbl__143 F1_000493 equ $ ; in [GESTA_HUB.BAS] Case 64 movlw 64 subwf Ctrl,W,0 bnz _lbl__148 F1_000494 equ $ ; in [GESTA_HUB.BAS] CC64 = value movff value,CC64 F1_000495 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiLowDampChannel, 64, value movlw 178 call __hrsout1__ movlw 64 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000496 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiHighDampChannel, 64, value movlw 179 call __hrsout1__ movlw 64 call __hrsout1__ movf value,W,0 call __hrsout1__ bra _lbl__142 _lbl__148 F1_000497 equ $ ; in [GESTA_HUB.BAS] Case 66, 123 movlw 66 subwf Ctrl,W,0 bz _lbl__149 movlw 123 subwf Ctrl,W,0 bnz _lbl__150 _lbl__149 F1_000498 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiLowNoteChannel, 66, value movlw 176 call __hrsout1__ movlw 66 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000499 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiHighNoteChannel, 66, value movlw 177 call __hrsout1__ movlw 66 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000500 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiLowDampChannel, 66, value movlw 178 call __hrsout1__ movlw 66 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000501 equ $ ; in [GESTA_HUB.BAS] HRsout 176 + MidiHighDampChannel, 66, value movlw 179 call __hrsout1__ movlw 66 call __hrsout1__ movf value,W,0 call __hrsout1__ F1_000502 equ $ ; in [GESTA_HUB.BAS] Controller () rcall Controller F1_000505 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__150 _lbl__142 F1_000507 equ $ ; in [GESTA_HUB.BAS] endif _lbl__141 bra _lbl__36 _lbl__138 F1_000508 equ $ ; in [GESTA_HUB.BAS] Case ProgChange_Status movlw 195 subwf statusbyte,W,0 bnz _lbl__152 F1_000509 equ $ ; in [GESTA_HUB.BAS] if prog = 255 Then incf prog,W,0 bnz _lbl__154 F1_000510 equ $ ; in [GESTA_HUB.BAS] prog = Bytein movff Bytein,prog F1_000511 equ $ ; in [GESTA_HUB.BAS] Set prog setf prog,0 F1_000512 equ $ ; in [GESTA_HUB.BAS] endif _lbl__154 bra _lbl__36 _lbl__152 F1_000513 equ $ ; in [GESTA_HUB.BAS] Case Aftertouch_Status movlw 211 subwf statusbyte,W,0 bnz _lbl__156 F1_000514 equ $ ; in [GESTA_HUB.BAS] if aft = 255 Then incf aft,W,0 bnz _lbl__158 F1_000515 equ $ ; in [GESTA_HUB.BAS] aft = Bytein movff Bytein,aft F1_000516 equ $ ; in [GESTA_HUB.BAS] Set aft setf aft,0 F1_000517 equ $ ; in [GESTA_HUB.BAS] endif _lbl__158 bra _lbl__36 _lbl__156 F1_000518 equ $ ; in [GESTA_HUB.BAS] Case Pitchbend_Status movlw 227 subwf statusbyte,W,0 bnz _lbl__160 F1_000519 equ $ ; in [GESTA_HUB.BAS] if pblsb = 255 Then incf pblsb,W,0 bnz _lbl__162 F1_000520 equ $ ; in [GESTA_HUB.BAS] pblsb = Bytein movff Bytein,pblsb bra _lbl__163 _lbl__162 F1_000521 equ $ ; in [GESTA_HUB.BAS] else F1_000522 equ $ ; in [GESTA_HUB.BAS] pbmsb = Bytein movff Bytein,pbmsb F1_000523 equ $ ; in [GESTA_HUB.BAS] Set pblsb setf pblsb,0 F1_000524 equ $ ; in [GESTA_HUB.BAS] endif _lbl__163 F1_000526 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__160 _lbl__36 F1_000527 equ $ ; in [GESTA_HUB.BAS] endif _lbl__35 Check_Timers F1_000530 equ $ ; in [GESTA_HUB.BAS] if idx < NrTasks Then movlw 4 subwf idx,W,0 btfsc STATUS,0,0 bra _lbl__165 F1_000531 equ $ ; in [GESTA_HUB.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__167 F1_000533 equ $ ; in [GESTA_HUB.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000535 equ $ ; in [GESTA_HUB.BAS] Select idx F1_000536 equ $ ; in [GESTA_HUB.BAS] Case 0 movf idx,F,0 bnz _lbl__169 F1_000540 equ $ ; in [GESTA_HUB.BAS] Set TimVals[0] setf TimVals#0HHH,0 setf TimVals#0HH,0 setf TimVals#0H,0 setf TimVals#0,0 F1_000546 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx bra _lbl__168 _lbl__169 F1_000547 equ $ ; in [GESTA_HUB.BAS] Case 1 movlw 1 subwf idx,W,0 bnz _lbl__172 F1_000548 equ $ ; in [GESTA_HUB.BAS] if Lites.0 = 0 Then btfsc Lites,0,0 bra _lbl__174 F1_000549 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.0 bcf LATC,0,0 F1_000550 equ $ ; in [GESTA_HUB.BAS] Set TimVals[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 bra _lbl__175 _lbl__174 F1_000551 equ $ ; in [GESTA_HUB.BAS] else F1_000552 equ $ ; in [GESTA_HUB.BAS] Toggle PORTC.0 btg PORTC,0,0 bcf TRISC,0,0 F1_000553 equ $ ; in [GESTA_HUB.BAS] TimVals[1] = time + Dur5[Pres1] lfsr 0,Dur5 bcf STATUS,0,0 rlcf Pres1,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_000554 equ $ ; in [GESTA_HUB.BAS] endif _lbl__175 F1_000555 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx bra _lbl__168 _lbl__172 F1_000556 equ $ ; in [GESTA_HUB.BAS] Case 2 movlw 2 subwf idx,W,0 bnz _lbl__177 F1_000557 equ $ ; in [GESTA_HUB.BAS] if Lites.1 = 0 Then btfsc Lites,1,0 bra _lbl__179 F1_000558 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.3 bcf LATC,3,0 F1_000559 equ $ ; in [GESTA_HUB.BAS] Set TimVals[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 bra _lbl__180 _lbl__179 F1_000560 equ $ ; in [GESTA_HUB.BAS] else F1_000561 equ $ ; in [GESTA_HUB.BAS] Toggle PORTC.3 btg PORTC,3,0 bcf TRISC,3,0 F1_000562 equ $ ; in [GESTA_HUB.BAS] TimVals[2] = time + Dur5[Pres2] lfsr 0,Dur5 bcf STATUS,0,0 rlcf Pres2,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#2 movff PBS_VAR0H,TimVals#2H movff PBS_VAR0HH,TimVals#2HH movff PBS_VAR0HHH,TimVals#2HHH F1_000563 equ $ ; in [GESTA_HUB.BAS] endif _lbl__180 F1_000564 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx bra _lbl__168 _lbl__177 F1_000565 equ $ ; in [GESTA_HUB.BAS] Case 3 movlw 3 subwf idx,W,0 bnz _lbl__182 F1_000566 equ $ ; in [GESTA_HUB.BAS] if Lites.2 = 0 Then btfsc Lites,2,0 bra _lbl__184 F1_000567 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000568 equ $ ; in [GESTA_HUB.BAS] Set TimVals[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 bra _lbl__185 _lbl__184 F1_000569 equ $ ; in [GESTA_HUB.BAS] else F1_000570 equ $ ; in [GESTA_HUB.BAS] Toggle PORTC.4 btg PORTC,4,0 bcf TRISC,4,0 F1_000571 equ $ ; in [GESTA_HUB.BAS] TimVals[3] = time + Dur5[Pres3] lfsr 0,Dur5 bcf STATUS,0,0 rlcf Pres3,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#3 movff PBS_VAR0H,TimVals#3H movff PBS_VAR0HH,TimVals#3HH movff PBS_VAR0HHH,TimVals#3HHH F1_000572 equ $ ; in [GESTA_HUB.BAS] endif _lbl__185 F1_000573 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx F1_000577 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__182 _lbl__168 F1_000578 equ $ ; in [GESTA_HUB.BAS] endif _lbl__167 F1_000581 equ $ ; in [GESTA_HUB.BAS] if MaxTim = 1 Then btfss timeHHH,4,0 bra _lbl__187 F1_000582 equ $ ; in [GESTA_HUB.BAS] Clear time clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000584 equ $ ; in [GESTA_HUB.BAS] Set TimVals lfsr 0,TimVals movlw 16 _pblb__188 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__188 F1_000585 equ $ ; in [GESTA_HUB.BAS] endif _lbl__187 bra _lbl__189 _lbl__165 F1_000586 equ $ ; in [GESTA_HUB.BAS] else F1_000590 equ $ ; in [GESTA_HUB.BAS] if MaxTim = 1 Then Clear time btfss timeHHH,4,0 bra _lbl__191 clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 _lbl__191 F1_000591 equ $ ; in [GESTA_HUB.BAS] endif _lbl__189 F1_000593 equ $ ; in [GESTA_HUB.BAS] btg PORTB.0 btg PORTB,0 _lbl__18 F1_000598 equ $ ; in [GESTA_HUB.BAS] Loop goto _lbl__16 _lbl__17 F1_000002 equ $ ; in [GESTA_HUB.BAS] Stop _pblb__192 bra _pblb__192 ;--------------------------------------------- F3_000068 equ $ ; in [GESTA_HUB_IRQ.Inc] Proc GetMidiIn (), byte GetMidiIn F3_000069 equ $ ; in [GESTA_HUB_IRQ.Inc] if IndexIn <> IndexOut Then movf IndexIn,W,0 subwf IndexOut,W,0 bz _lbl__194 F3_000070 equ $ ; in [GESTA_HUB_IRQ.Inc] Inc IndexOut incf IndexOut,F,0 F3_000071 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR0_Save = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000072 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR0 = VarPtr Ringbuffer lfsr 0,108 F3_000073 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR0 = USART_FSR0 + IndexOut movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000074 equ $ ; in [GESTA_HUB_IRQ.Inc] WREG = INDF0 movf INDF0,W,0 F3_000075 equ $ ; in [GESTA_HUB_IRQ.Inc] Result = WREG movlb 2 movwf GetMidiInResult,1 F3_000076 equ $ ; in [GESTA_HUB_IRQ.Inc] USART_FSR0 = USART_FSR0_Save movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000077 equ $ ; in [GESTA_HUB_IRQ.Inc] Set STATUS.0 bsf STATUS,0,0 F3_000078 equ $ ; in [GESTA_HUB_IRQ.Inc] RET return 0 movlb 0 bra _lbl__195 _lbl__194 F3_000079 equ $ ; in [GESTA_HUB_IRQ.Inc] else F3_000080 equ $ ; in [GESTA_HUB_IRQ.Inc] WREG = 255 setf WREG,0 F3_000081 equ $ ; in [GESTA_HUB_IRQ.Inc] Result = WREG movlb 2 movwf GetMidiInResult,1 F3_000082 equ $ ; in [GESTA_HUB_IRQ.Inc] btfss STATUS,C btfss STATUS,C F3_000083 equ $ ; in [GESTA_HUB_IRQ.Inc] RET return 0 F3_000084 equ $ ; in [GESTA_HUB_IRQ.Inc] endif _lbl__195 movlb 0 F3_000085 equ $ ; in [GESTA_HUB_IRQ.Inc] EndProc return 0 ; EndProc ;--------------------------------------------- F3_000088 equ $ ; in [GESTA_HUB_IRQ.Inc] Proc Init_Usart_Interrupt () Init_Usart_Interrupt F3_000089 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000090 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000091 equ $ ; in [GESTA_HUB_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000093 equ $ ; in [GESTA_HUB_IRQ.Inc] Set IPR1.5 bsf IPR1,5,0 F3_000095 equ $ ; in [GESTA_HUB_IRQ.Inc] Set INTCON.7 bsf INTCON,7,0 F3_000096 equ $ ; in [GESTA_HUB_IRQ.Inc] Set INTCON.6 bsf INTCON,6,0 F3_000098 equ $ ; in [GESTA_HUB_IRQ.Inc] EndProc return 0 ; EndProc ;--------------------------------------------- F3_000100 equ $ ; in [GESTA_HUB_IRQ.Inc] Proc Clear_Serial_Buffer () Clear_Serial_Buffer F3_000101 equ $ ; in [GESTA_HUB_IRQ.Inc] PIE1.5 = 0 bcf PIE1,5,0 F3_000102 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear Ringbuffer lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _pblb__196 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _pblb__196 F3_000103 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000104 equ $ ; in [GESTA_HUB_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000105 equ $ ; in [GESTA_HUB_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000106 equ $ ; in [GESTA_HUB_IRQ.Inc] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000601 equ $ ; in [GESTA_HUB.BAS] Proc SortTimers (),byte SortTimers F1_000604 equ $ ; in [GESTA_HUB.BAS] Set Result movlb 2 setf SortTimersResult,1 F1_000605 equ $ ; in [GESTA_HUB.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000606 equ $ ; in [GESTA_HUB.BAS] For I = 0 To LastTask clrf _I,0 _frlb__197 movlb 0 movlw 4 subwf _I,W,0 bc _nxlb__198 F1_000607 equ $ ; in [GESTA_HUB.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 80 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__201 F1_000608 equ $ ; in [GESTA_HUB.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 80 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000609 equ $ ; in [GESTA_HUB.BAS] Result = I movff _I,SortTimersResult F1_000610 equ $ ; in [GESTA_HUB.BAS] endif _lbl__201 _ctlb__199 F1_000611 equ $ ; in [GESTA_HUB.BAS] Next I incf _I,F,0 bnc _frlb__197 _nxlb__198 F1_000612 equ $ ; in [GESTA_HUB.BAS] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000667 equ $ ; in [GESTA_HUB.BAS] Proc KeyPres () KeyPres F1_000671 equ $ ; in [GESTA_HUB.BAS] Select notePres F1_000675 equ $ ; in [GESTA_HUB.BAS] Case Lite127_note movlw 127 subwf notePres,W,0 bnz _lbl__203 F1_000676 equ $ ; in [GESTA_HUB.BAS] pres = pres + pres movf pres,W,0 addwf pres,F,0 F1_000677 equ $ ; in [GESTA_HUB.BAS] Inc pres incf pres,F,0 F1_000678 equ $ ; in [GESTA_HUB.BAS] HPWM 1, pres, fPwm movff pres,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ bra _lbl__202 _lbl__203 F1_000679 equ $ ; in [GESTA_HUB.BAS] Case Lite121_note movlw 121 subwf notePres,W,0 bnz _lbl__206 F1_000680 equ $ ; in [GESTA_HUB.BAS] pres = pres + pres movf pres,W,0 addwf pres,F,0 F1_000681 equ $ ; in [GESTA_HUB.BAS] Inc pres incf pres,F,0 F1_000682 equ $ ; in [GESTA_HUB.BAS] HPWM 2, pres, fPwm movff pres,GEN movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ F1_000689 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__206 _lbl__202 F1_000690 equ $ ; in [GESTA_HUB.BAS] Set notePres setf notePres,0 F1_000691 equ $ ; in [GESTA_HUB.BAS] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000709 equ $ ; in [GESTA_HUB.BAS] Proc Controller () Controller F1_000710 equ $ ; in [GESTA_HUB.BAS] Select Ctrl F1_000711 equ $ ; in [GESTA_HUB.BAS] Case 19 movlw 19 subwf Ctrl,W,0 bnz _lbl__208 F1_000713 equ $ ; in [GESTA_HUB.BAS] release = value + 1 incf value,W,0 movwf release,0 F1_000714 equ $ ; in [GESTA_HUB.BAS] if release > 127 Then release = 127 movlw 128 subwf release,W,0 bnc _lbl__211 movlw 127 movwf release,0 _lbl__211 F1_000715 equ $ ; in [GESTA_HUB.BAS] CC19 = release movff release,CC19 bra _lbl__207 _lbl__208 F1_000716 equ $ ; in [GESTA_HUB.BAS] Case 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__213 F1_000719 equ $ ; in [GESTA_HUB.BAS] if value = 0 Then movf value,F,0 bnz _lbl__215 F1_000720 equ $ ; in [GESTA_HUB.BAS] PowerDown () rcall PowerDown bra _lbl__216 _lbl__215 F1_000721 equ $ ; in [GESTA_HUB.BAS] else F1_000722 equ $ ; in [GESTA_HUB.BAS] Set PORTA.4 bsf LATA,4,0 F1_000723 equ $ ; in [GESTA_HUB.BAS] Set PORTB.4 bsf LATB,4,0 F1_000724 equ $ ; in [GESTA_HUB.BAS] Set PowerOn bsf CC66,0,0 F1_000725 equ $ ; in [GESTA_HUB.BAS] CC19 = CC19_default movlw 110 movwf CC19,0 F1_000726 equ $ ; in [GESTA_HUB.BAS] Set CC69 setf CC69,0 F1_000727 equ $ ; in [GESTA_HUB.BAS] endif _lbl__216 bra _lbl__207 _lbl__213 F1_000728 equ $ ; in [GESTA_HUB.BAS] Case 69 movlw 69 subwf Ctrl,W,0 bnz _lbl__218 F1_000729 equ $ ; in [GESTA_HUB.BAS] CC69 = value movff value,CC69 bra _lbl__207 _lbl__218 F1_000730 equ $ ; in [GESTA_HUB.BAS] Case 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__220 F1_000736 equ $ ; in [GESTA_HUB.BAS] Clear NrNotes clrf NrNotesH,0 clrf NrNotes,0 F1_000737 equ $ ; in [GESTA_HUB.BAS] Clear PORTA.5 bcf LATA,5,0 F1_000738 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.0 bcf LATC,0,0 F1_000739 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.3 bcf LATC,3,0 F1_000740 equ $ ; in [GESTA_HUB.BAS] HPWM 1, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000741 equ $ ; in [GESTA_HUB.BAS] HPWM 2, 0, fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ F1_000742 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000743 equ $ ; in [GESTA_HUB.BAS] Set TimVals[1] setf TimVals#1HHH,0 setf TimVals#1HH,0 setf TimVals#1H,0 setf TimVals#1,0 F1_000744 equ $ ; in [GESTA_HUB.BAS] Set TimVals[2] setf TimVals#2HHH,0 setf TimVals#2HH,0 setf TimVals#2H,0 setf TimVals#2,0 F1_000745 equ $ ; in [GESTA_HUB.BAS] Set TimVals[3] setf TimVals#3HHH,0 setf TimVals#3HH,0 setf TimVals#3H,0 setf TimVals#3,0 F1_000746 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx F1_000747 equ $ ; in [GESTA_HUB.BAS] EndSelect _lbl__220 _lbl__207 F1_000748 equ $ ; in [GESTA_HUB.BAS] Set Ctrl setf Ctrl,0 F1_000749 equ $ ; in [GESTA_HUB.BAS] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000771 equ $ ; in [GESTA_HUB.BAS] Proc Dur_Lookup () Dur_Lookup F1_000773 equ $ ; in [GESTA_HUB.BAS] Set Dur5[0] movlb 1 setf Dur5#0H,1 setf Dur5#0,1 F1_000774 equ $ ; in [GESTA_HUB.BAS] Dur5[127] = 17218 movlb 2 movlw 67 movwf Dur5#127H,1 movlw 66 movwf Dur5#127,1 F1_000775 equ $ ; in [GESTA_HUB.BAS] J = Dur5[127] / 127 movff Dur5#127,PBS_VAR0 movff Dur5#127H,PBS_VAR0H clrf PP_BARGHHH,0 clrf PP_BARGHH,0 movlw 126 movwf PP_BARGH,0 movlw 133 movwf PP_BARG,0 movff PBS_VAR0H,PP_AARGH movff PBS_VAR0,PP_AARG call _Uns_Int16_ToFl32 call __fpdiv_32__ movff PP_AARG,_J movff PP_AARGH,_JH movff PP_AARGHH,_JHH movff PP_AARGHHH,_JHHH F1_000776 equ $ ; in [GESTA_HUB.BAS] For I = 1 To 127 movlw 1 movwf _I,0 _frlb__221 movlb 0 movlw 128 subwf _I,W,0 bc _nxlb__222 F1_000777 equ $ ; in [GESTA_HUB.BAS] Dur5[I] = Dur5[0] - (J * I) movff Dur5#0,PBS_VAR1 movff Dur5#0H,PBS_VAR1H movf _I,W,0 call _Uns_Int08_ToFl32 movff _J,PP_BARG movff _JH,PP_BARGH movff _JHH,PP_BARGHH movff _JHHH,PP_BARGHHH call __fpmult_32__ movff PP_AARG,PP7 movff PP_AARGH,PP7H movff PP_AARGHH,PP7HH movff PP_AARGHHH,PP7HHH movff PBS_VAR1,PP_AARG movff PBS_VAR1H,PP_AARGH call _Uns_Int16_ToFl32 movff PP7,PP_BARG movff PP7H,PP_BARGH movff PP7HH,PP_BARGHH movff PP7HHH,PP_BARGHHH call __fpsub_32__ call _Fl32_To_Int32 movwf PBS_VAR0,0 movff PP_AARGH,PBS_VAR0H lfsr 0,Dur5 bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff PBS_VAR0,POSTINC0 movff PBS_VAR0H,INDF0 _ctlb__223 F1_000778 equ $ ; in [GESTA_HUB.BAS] Next I incf _I,F,0 bnc _frlb__221 _nxlb__222 F1_000779 equ $ ; in [GESTA_HUB.BAS] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000781 equ $ ; in [GESTA_HUB.BAS] Proc Note_Map () Note_Map F1_000785 equ $ ; in [GESTA_HUB.BAS] Set Nmap lfsr 0,Nmap movlw 128 _pblb__224 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__224 F1_000786 equ $ ; in [GESTA_HUB.BAS] Nmap[60] = 0 movlb 2 clrf Nmap#60,1 F1_000787 equ $ ; in [GESTA_HUB.BAS] Nmap[61] = 1 movlw 1 movwf Nmap#61,1 F1_000788 equ $ ; in [GESTA_HUB.BAS] Nmap[62] = 128 + 0 movlw 128 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#62 F1_000789 equ $ ; in [GESTA_HUB.BAS] Nmap[63] = 128 + 1 movlw 129 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#63 F1_000790 equ $ ; in [GESTA_HUB.BAS] Nmap[64] = 2 movlw 2 movwf Nmap#64,1 F1_000791 equ $ ; in [GESTA_HUB.BAS] Nmap[65] = 3 movlw 3 movwf Nmap#65,1 F1_000792 equ $ ; in [GESTA_HUB.BAS] Nmap[66] = 128 + 2 movlw 130 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#66 F1_000793 equ $ ; in [GESTA_HUB.BAS] Nmap[67] = 128 + 3 movlw 131 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#67 F1_000794 equ $ ; in [GESTA_HUB.BAS] Nmap[68] = 4 movlw 4 movwf Nmap#68,1 F1_000795 equ $ ; in [GESTA_HUB.BAS] Nmap[69] = 5 movlw 5 movwf Nmap#69,1 F1_000796 equ $ ; in [GESTA_HUB.BAS] Nmap[70] = 128 + 4 movlw 132 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#70 F1_000797 equ $ ; in [GESTA_HUB.BAS] Nmap[71] = 128 + 5 movlw 133 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#71 F1_000798 equ $ ; in [GESTA_HUB.BAS] Nmap[72] = 6 movlw 6 movwf Nmap#72,1 F1_000799 equ $ ; in [GESTA_HUB.BAS] Nmap[73] = 7 movlw 7 movwf Nmap#73,1 F1_000800 equ $ ; in [GESTA_HUB.BAS] Nmap[74] = 128 + 6 movlw 134 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#74 F1_000801 equ $ ; in [GESTA_HUB.BAS] Nmap[75] = 128 + 7 movlw 135 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#75 F1_000802 equ $ ; in [GESTA_HUB.BAS] Nmap[76] = 8 movlw 8 movwf Nmap#76,1 F1_000803 equ $ ; in [GESTA_HUB.BAS] Nmap[77] = 9 movlw 9 movwf Nmap#77,1 F1_000804 equ $ ; in [GESTA_HUB.BAS] Nmap[78] = 128 + 8 movlw 136 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#78 F1_000805 equ $ ; in [GESTA_HUB.BAS] Nmap[79] = 128 + 9 movlw 137 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#79 F1_000806 equ $ ; in [GESTA_HUB.BAS] Nmap[80] = 10 movlw 10 movwf Nmap#80,1 F1_000807 equ $ ; in [GESTA_HUB.BAS] Nmap[81] = 11 movlw 11 movwf Nmap#81,1 F1_000808 equ $ ; in [GESTA_HUB.BAS] Nmap[82] = 128 + 10 movlw 138 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#82 F1_000809 equ $ ; in [GESTA_HUB.BAS] Nmap[83] = 128 + 11 movlw 139 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#83 F1_000810 equ $ ; in [GESTA_HUB.BAS] Nmap[84] = 12 movlw 12 movwf Nmap#84,1 F1_000811 equ $ ; in [GESTA_HUB.BAS] Nmap[85] = 13 movlw 13 movwf Nmap#85,1 F1_000812 equ $ ; in [GESTA_HUB.BAS] Nmap[86] = 128 + 12 movlw 140 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#86 F1_000813 equ $ ; in [GESTA_HUB.BAS] Nmap[87] = 128 + 13 movlw 141 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#87 F1_000814 equ $ ; in [GESTA_HUB.BAS] Nmap[88] = 14 movlw 14 movwf Nmap#88,1 F1_000815 equ $ ; in [GESTA_HUB.BAS] Nmap[89] = 15 movlw 15 movwf Nmap#89,1 F1_000816 equ $ ; in [GESTA_HUB.BAS] Nmap[90] = 128 + 14 movlw 142 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#90 F1_000817 equ $ ; in [GESTA_HUB.BAS] Nmap[91] = 128 + 15 movlw 143 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#91 F1_000818 equ $ ; in [GESTA_HUB.BAS] Nmap[92] = 16 movlw 16 movwf Nmap#92,1 F1_000819 equ $ ; in [GESTA_HUB.BAS] Nmap[93] = 17 movlw 17 movwf Nmap#93,1 F1_000820 equ $ ; in [GESTA_HUB.BAS] Nmap[94] = 128 + 16 movlw 144 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#94 F1_000821 equ $ ; in [GESTA_HUB.BAS] Nmap[95] = 128 + 17 movlw 145 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#95 F1_000822 equ $ ; in [GESTA_HUB.BAS] Nmap[96] = 18 movlw 18 movwf Nmap#96,1 F1_000823 equ $ ; in [GESTA_HUB.BAS] Nmap[97] = 19 movlw 19 movwf Nmap#97,1 F1_000824 equ $ ; in [GESTA_HUB.BAS] Nmap[98] = 128 + 18 movlw 146 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#98 F1_000825 equ $ ; in [GESTA_HUB.BAS] Nmap[99] = 128 + 19 movlw 147 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#99 F1_000826 equ $ ; in [GESTA_HUB.BAS] Nmap[100] = 20 movlw 20 movwf Nmap#100,1 F1_000827 equ $ ; in [GESTA_HUB.BAS] Nmap[101] = 21 movlw 21 movwf Nmap#101,1 F1_000828 equ $ ; in [GESTA_HUB.BAS] Nmap[102] = 128 + 20 movlw 148 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#102 F1_000829 equ $ ; in [GESTA_HUB.BAS] Nmap[103] = 128 + 21 movlw 149 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#103 F1_000830 equ $ ; in [GESTA_HUB.BAS] Nmap[104] = 22 movlw 22 movwf Nmap#104,1 F1_000831 equ $ ; in [GESTA_HUB.BAS] Nmap[105] = 23 movlw 23 movwf Nmap#105,1 F1_000832 equ $ ; in [GESTA_HUB.BAS] Nmap[106] = 128 + 22 movlw 150 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#106 F1_000833 equ $ ; in [GESTA_HUB.BAS] Nmap[107] = 128 + 23 movlw 151 movwf PBS_VAR0,0 movff PBS_VAR0,Nmap#107 F1_000834 equ $ ; in [GESTA_HUB.BAS] Nmap[108] = 24 movlw 24 movwf Nmap#108,1 F1_000835 equ $ ; in [GESTA_HUB.BAS] EndProc movlb 0 return 0 ; EndProc ;--------------------------------------------- F1_000752 equ $ ; in [GESTA_HUB.BAS] Proc PowerDown () PowerDown F1_000753 equ $ ; in [GESTA_HUB.BAS] Clear PORTA.4 bcf LATA,4,0 F1_000754 equ $ ; in [GESTA_HUB.BAS] Clear PowerOn bcf CC66,0,0 F1_000755 equ $ ; in [GESTA_HUB.BAS] Set TimVals lfsr 0,TimVals movlw 16 _pblb__225 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__225 F1_000756 equ $ ; in [GESTA_HUB.BAS] Clear time clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000757 equ $ ; in [GESTA_HUB.BAS] Clear NrNotes clrf NrNotesH,0 clrf NrNotes,0 F1_000758 equ $ ; in [GESTA_HUB.BAS] Clear PORTB.4 bcf LATB,4,0 F1_000759 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.0 bcf LATC,0,0 F1_000760 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.3 bcf LATC,3,0 F1_000761 equ $ ; in [GESTA_HUB.BAS] Clear PORTC.4 bcf LATC,4,0 F1_000762 equ $ ; in [GESTA_HUB.BAS] Clear PORTA.5 bcf LATA,5,0 F1_000763 equ $ ; in [GESTA_HUB.BAS] HPWM 2,0,fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 2 call __hpwm_ F1_000764 equ $ ; in [GESTA_HUB.BAS] HPWM 1,0,fPwm clrf GEN,0 movlw 82 movwf PP1H,0 movlw 8 movwf PP1,0 movlw 1 call __hpwm_ F1_000765 equ $ ; in [GESTA_HUB.BAS] CC19 = CC19_default movlw 110 movwf CC19,0 F1_000768 equ $ ; in [GESTA_HUB.BAS] idx = SortTimers () rcall SortTimers movff SortTimersResult,idx F1_000769 equ $ ; in [GESTA_HUB.BAS] EndProc return 0 ; EndProc ;--------------------------------------------- F1_EOF equ $ ; GESTA_HUB.BAS __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