; /\\\\\\\\\ ; /\\\///////\\\ ; \/\\\ \/\\\ /\\\ /\\\ ; \/\\\\\\\\\\\/ /\\\\\ /\\\\\\\\\\ /\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\\\ /\\\\\\\\\ ; \/\\\//////\\\ /\\\///\\\ \/\\\////// /\\\/////\\\ \////\\\//// \////\\\//// \////////\\\ ; \/\\\ \//\\\ /\\\ \//\\\ \/\\\\\\\\\\ /\\\\\\\\\\\ \/\\\ \/\\\ /\\\\\\\\\\ ; \/\\\ \//\\\ \//\\\ /\\\ \////////\\\ \//\\/////// \/\\\ /\\ \/\\\ /\\ /\\\/////\\\ ; \/\\\ \//\\\ \///\\\\\/ /\\\\\\\\\\ \//\\\\\\\\\\ \//\\\\\ \//\\\\\ \//\\\\\\\\/\\ ; \/// \/// \///// \////////// \////////// \///// \///// \////////\// ; 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 = 18F4620, 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 PORTD equ 0X0F83 PORTE equ 0X0F84 LATA equ 0X0F89 LATB equ 0X0F8A LATC equ 0X0F8B LATD equ 0X0F8C LATE equ 0X0F8D DDRA equ 0X0F92 TRISA equ 0X0F92 DDRB equ 0X0F93 TRISB equ 0X0F93 DDRC equ 0X0F94 TRISC equ 0X0F94 DDRD equ 0X0F95 TRISD equ 0X0F95 DDRE equ 0X0F96 TRISE equ 0X0F96 OSCTUNE equ 0X0F9B PIE1 equ 0X0F9D PIR1 equ 0X0F9E IPR1 equ 0X0F9F PIE2 equ 0X0FA0 PIR2 equ 0X0FA1 IPR2 equ 0X0FA2 EECON1 equ 0X0FA6 EECON2 equ 0X0FA7 EEDATL equ 0X0FA8 EEDATA equ 0X0FA8 EEADR equ 0X0FA9 EEADRH equ 0X0FAA RCSTA equ 0X0FAB TXSTA equ 0X0FAC TXREG equ 0X0FAD RCREG equ 0X0FAE SPBRG equ 0X0FAF SPBRGH equ 0X0FB0 T3CON equ 0X0FB1 TMR3L equ 0X0FB2 TMR3LH equ 0X0FB3 TMR3H equ 0X0FB3 CMCON equ 0X0FB4 CVRCON equ 0X0FB5 ECCP1AS equ 0X0FB6 PWM1CON equ 0X0FB7 BAUDCON equ 0X0FB8 BAUDCTL equ 0X0FB8 CCP2CON equ 0X0FBA CCPR2 equ 0X0FBB CCPR2L equ 0X0FBB CCPR2LH equ 0X0FBC CCPR2H equ 0X0FBC CCP1CON equ 0X0FBD CCPR1 equ 0X0FBE CCPR1L equ 0X0FBE CCPR1LH equ 0X0FBF CCPR1H equ 0X0FBF ADCON2 equ 0X0FC0 ADCON1 equ 0X0FC1 ADCON0 equ 0X0FC2 ADRES equ 0X0FC3 ADRESL equ 0X0FC3 ADRESLH equ 0X0FC4 ADRESH equ 0X0FC4 SSPCON2 equ 0X0FC5 SSPCON1 equ 0X0FC6 SSPSTAT equ 0X0FC7 SSPADD equ 0X0FC8 SSPBUF equ 0X0FC9 T2CON equ 0X0FCA PR2 equ 0X0FCB TMR2 equ 0X0FCC T1CON equ 0X0FCD TMR1L equ 0X0FCE TMR1LH equ 0X0FCF TMR1H equ 0X0FCF RCON equ 0X0FD0 WDTCON equ 0X0FD1 HLVDCON equ 0X0FD2 LVDCON equ 0X0FD2 OSCCON equ 0X0FD3 DEBUG equ 0X0FD4 T0CON equ 0X0FD5 TMR0L equ 0X0FD6 TMR0LH equ 0X0FD7 TMR0H equ 0X0FD7 STATUS equ 0X0FD8 FSR2L equ 0X0FD9 FSR2LH equ 0X0FDA FSR2H equ 0X0FDA PLUSW2 equ 0X0FDB PREINC2 equ 0X0FDC POSTDEC2 equ 0X0FDD POSTINC2 equ 0X0FDE INDF2 equ 0X0FDF BSR equ 0X0FE0 FSR1L equ 0X0FE1 FSR1LH equ 0X0FE2 FSR1H equ 0X0FE2 PLUSW1 equ 0X0FE3 PREINC1 equ 0X0FE4 POSTDEC1 equ 0X0FE5 POSTINC1 equ 0X0FE6 INDF1 equ 0X0FE7 WREG equ 0X0FE8 FSR0L equ 0X0FE9 FSR0LH equ 0X0FEA FSR0H equ 0X0FEA PLUSW0 equ 0X0FEB PREINC0 equ 0X0FEC POSTDEC0 equ 0X0FED POSTINC0 equ 0X0FEE INDF0 equ 0X0FEF INTCON3 equ 0X0FF0 INTCON2 equ 0X0FF1 INTCON equ 0X0FF2 PRODL equ 0X0FF3 PRODLH equ 0X0FF4 PRODH equ 0X0FF4 TABLAT equ 0X0FF5 TBLPTRL equ 0X0FF6 TBLPTRLH equ 0X0FF7 TBLPTRH equ 0X0FF7 TBLPTRU equ 0X0FF8 TBLPTRLHH equ 0X0FF8 PC equ 0X0FF9 PCL equ 0X0FF9 PCLATH equ 0X0FFA PCLATU equ 0X0FFB STKPTR equ 0X0FFC TOS equ 0X0FFD TOSL equ 0X0FFD TOSLH equ 0X0FFE TOSH equ 0X0FFE TOSU equ 0X0FFF ; I2C 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_RD0=0 PP_RD1=1 PP_RD2=2 PP_RD3=3 PP_RD4=4 PP_RD5=5 PP_RD6=6 PP_RD7=7 PP_RD=0 PP_WR=1 PP_TXIF=4 PP_RCIF=5 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 0X0F85-0X0F88 __BADRAM 0X0F8E-0X0F91 __BADRAM 0X0F97-0X0F9A __BADRAM 0X0F9C __BADRAM 0X0FA3-0X0FA5 __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 __18F4620 1 #define xtal 40 #define _core 16 #define _MaxRAM 3955 #define _Ram_End 0X0F7F #define _MaxMem 0X010000 #define _ADC 13 #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 PBS_VAR0 equ 0X02 PBS_VAR0H equ 0X03 PBS_VAR0HH equ 0X04 PBS_VAR0HHH equ 0X05 PBS_VAR1 equ 0X06 PBS_VAR1H equ 0X07 PP0 equ 0X08 PP0H equ 0X09 PP1 equ 0X0A PP1H equ 0X0B PP3H equ 0X0C PP4 equ 0X0D ; USER ACCESS RAM VARIABLES Cnt equ 0X0E CntH equ 0X0F CntHH equ 0X10 CntHHH equ 0X11 Cnt3 equ 0X12 Cnt3H equ 0X13 Cnt3HH equ 0X14 Cnt3HHH equ 0X15 Bytein equ 0X16 _I equ 0X17 statusbyte equ 0X18 noteUit equ 0X19 release equ 0X1A noteAan equ 0X1B velo equ 0X1C notePres equ 0X1D pres equ 0X1E Ctrl equ 0X1F value equ 0X20 prog equ 0X21 aft equ 0X22 pblsb equ 0X23 pbmsb equ 0X24 CC66 equ 0X25 USART_FSR1_Save equ 0X26 USART_FSR1_SaveH equ 0X27 IndexIn equ 0X28 IndexOut equ 0X29 ; STANDARD VARIABLES Nxt equ 0X2A NxtH equ 0X2B NxtHH equ 0X2C NxtHHH equ 0X2D idx equ 0X2E Ringbuffer equ 0X2F variable Ringbuffer#0=0X2F,Ringbuffer#1=0X30,Ringbuffer#2=0X31,Ringbuffer#3=0X32 variable Ringbuffer#4=0X33,Ringbuffer#5=0X34,Ringbuffer#6=0X35,Ringbuffer#7=0X36 variable Ringbuffer#8=0X37,Ringbuffer#9=0X38,Ringbuffer#10=0X39,Ringbuffer#11=0X3A variable Ringbuffer#12=0X3B,Ringbuffer#13=0X3C,Ringbuffer#14=0X3D,Ringbuffer#15=0X3E variable Ringbuffer#16=0X3F,Ringbuffer#17=0X40,Ringbuffer#18=0X41,Ringbuffer#19=0X42 variable Ringbuffer#20=0X43,Ringbuffer#21=0X44,Ringbuffer#22=0X45,Ringbuffer#23=0X46 variable Ringbuffer#24=0X47,Ringbuffer#25=0X48,Ringbuffer#26=0X49,Ringbuffer#27=0X4A variable Ringbuffer#28=0X4B,Ringbuffer#29=0X4C,Ringbuffer#30=0X4D,Ringbuffer#31=0X4E variable Ringbuffer#32=0X4F,Ringbuffer#33=0X50,Ringbuffer#34=0X51,Ringbuffer#35=0X52 variable Ringbuffer#36=0X53,Ringbuffer#37=0X54,Ringbuffer#38=0X55,Ringbuffer#39=0X56 variable Ringbuffer#40=0X57,Ringbuffer#41=0X58,Ringbuffer#42=0X59,Ringbuffer#43=0X5A variable Ringbuffer#44=0X5B,Ringbuffer#45=0X5C,Ringbuffer#46=0X5D,Ringbuffer#47=0X5E variable Ringbuffer#48=0X5F,Ringbuffer#49=0X60,Ringbuffer#50=0X61,Ringbuffer#51=0X62 variable Ringbuffer#52=0X63,Ringbuffer#53=0X64,Ringbuffer#54=0X65,Ringbuffer#55=0X66 variable Ringbuffer#56=0X67,Ringbuffer#57=0X68,Ringbuffer#58=0X69,Ringbuffer#59=0X6A variable Ringbuffer#60=0X6B,Ringbuffer#61=0X6C,Ringbuffer#62=0X6D,Ringbuffer#63=0X6E variable Ringbuffer#64=0X6F,Ringbuffer#65=0X70,Ringbuffer#66=0X71,Ringbuffer#67=0X72 variable Ringbuffer#68=0X73,Ringbuffer#69=0X74,Ringbuffer#70=0X75,Ringbuffer#71=0X76 variable Ringbuffer#72=0X77,Ringbuffer#73=0X78,Ringbuffer#74=0X79,Ringbuffer#75=0X7A variable Ringbuffer#76=0X7B,Ringbuffer#77=0X7C,Ringbuffer#78=0X7D,Ringbuffer#79=0X7E variable Ringbuffer#80=0X7F,Ringbuffer#81=0X80,Ringbuffer#82=0X81,Ringbuffer#83=0X82 variable Ringbuffer#84=0X83,Ringbuffer#85=0X84,Ringbuffer#86=0X85,Ringbuffer#87=0X86 variable Ringbuffer#88=0X87,Ringbuffer#89=0X88,Ringbuffer#90=0X89,Ringbuffer#91=0X8A variable Ringbuffer#92=0X8B,Ringbuffer#93=0X8C,Ringbuffer#94=0X8D,Ringbuffer#95=0X8E variable Ringbuffer#96=0X8F,Ringbuffer#97=0X90,Ringbuffer#98=0X91,Ringbuffer#99=0X92 variable Ringbuffer#100=0X93,Ringbuffer#101=0X94,Ringbuffer#102=0X95,Ringbuffer#103=0X96 variable Ringbuffer#104=0X97,Ringbuffer#105=0X98,Ringbuffer#106=0X99,Ringbuffer#107=0X9A variable Ringbuffer#108=0X9B,Ringbuffer#109=0X9C,Ringbuffer#110=0X9D,Ringbuffer#111=0X9E variable Ringbuffer#112=0X9F,Ringbuffer#113=0XA0,Ringbuffer#114=0XA1,Ringbuffer#115=0XA2 variable Ringbuffer#116=0XA3,Ringbuffer#117=0XA4,Ringbuffer#118=0XA5,Ringbuffer#119=0XA6 variable Ringbuffer#120=0XA7,Ringbuffer#121=0XA8,Ringbuffer#122=0XA9,Ringbuffer#123=0XAA variable Ringbuffer#124=0XAB,Ringbuffer#125=0XAC,Ringbuffer#126=0XAD,Ringbuffer#127=0XAE variable Ringbuffer#128=0XAF,Ringbuffer#129=0XB0,Ringbuffer#130=0XB1,Ringbuffer#131=0XB2 variable Ringbuffer#132=0XB3,Ringbuffer#133=0XB4,Ringbuffer#134=0XB5,Ringbuffer#135=0XB6 variable Ringbuffer#136=0XB7,Ringbuffer#137=0XB8,Ringbuffer#138=0XB9,Ringbuffer#139=0XBA variable Ringbuffer#140=0XBB,Ringbuffer#141=0XBC,Ringbuffer#142=0XBD,Ringbuffer#143=0XBE variable Ringbuffer#144=0XBF,Ringbuffer#145=0XC0,Ringbuffer#146=0XC1,Ringbuffer#147=0XC2 variable Ringbuffer#148=0XC3,Ringbuffer#149=0XC4,Ringbuffer#150=0XC5,Ringbuffer#151=0XC6 variable Ringbuffer#152=0XC7,Ringbuffer#153=0XC8,Ringbuffer#154=0XC9,Ringbuffer#155=0XCA variable Ringbuffer#156=0XCB,Ringbuffer#157=0XCC,Ringbuffer#158=0XCD,Ringbuffer#159=0XCE variable Ringbuffer#160=0XCF,Ringbuffer#161=0XD0,Ringbuffer#162=0XD1,Ringbuffer#163=0XD2 variable Ringbuffer#164=0XD3,Ringbuffer#165=0XD4,Ringbuffer#166=0XD5,Ringbuffer#167=0XD6 variable Ringbuffer#168=0XD7,Ringbuffer#169=0XD8,Ringbuffer#170=0XD9,Ringbuffer#171=0XDA variable Ringbuffer#172=0XDB,Ringbuffer#173=0XDC,Ringbuffer#174=0XDD,Ringbuffer#175=0XDE variable Ringbuffer#176=0XDF,Ringbuffer#177=0XE0,Ringbuffer#178=0XE1,Ringbuffer#179=0XE2 variable Ringbuffer#180=0XE3,Ringbuffer#181=0XE4,Ringbuffer#182=0XE5,Ringbuffer#183=0XE6 variable Ringbuffer#184=0XE7,Ringbuffer#185=0XE8,Ringbuffer#186=0XE9,Ringbuffer#187=0XEA variable Ringbuffer#188=0XEB,Ringbuffer#189=0XEC,Ringbuffer#190=0XED,Ringbuffer#191=0XEE variable Ringbuffer#192=0XEF,Ringbuffer#193=0XF0,Ringbuffer#194=0XF1,Ringbuffer#195=0XF2 variable Ringbuffer#196=0XF3,Ringbuffer#197=0XF4,Ringbuffer#198=0XF5,Ringbuffer#199=0XF6 variable Ringbuffer#200=0XF7,Ringbuffer#201=0XF8,Ringbuffer#202=0XF9,Ringbuffer#203=0XFA variable Ringbuffer#204=0XFB,Ringbuffer#205=0XFC,Ringbuffer#206=0XFD,Ringbuffer#207=0XFE variable Ringbuffer#208=0xFF,Ringbuffer#209=0X100,Ringbuffer#210=0X101,Ringbuffer#211=0X102 variable Ringbuffer#212=0X103,Ringbuffer#213=0X104,Ringbuffer#214=0X105,Ringbuffer#215=0X106 variable Ringbuffer#216=0X107,Ringbuffer#217=0X108,Ringbuffer#218=0X109,Ringbuffer#219=0X10A variable Ringbuffer#220=0X10B,Ringbuffer#221=0X10C,Ringbuffer#222=0X10D,Ringbuffer#223=0X10E variable Ringbuffer#224=0X10F,Ringbuffer#225=0X110,Ringbuffer#226=0X111,Ringbuffer#227=0X112 variable Ringbuffer#228=0X113,Ringbuffer#229=0X114,Ringbuffer#230=0X115,Ringbuffer#231=0X116 variable Ringbuffer#232=0X117,Ringbuffer#233=0X118,Ringbuffer#234=0X119,Ringbuffer#235=0X11A variable Ringbuffer#236=0X11B,Ringbuffer#237=0X11C,Ringbuffer#238=0X11D,Ringbuffer#239=0X11E variable Ringbuffer#240=0X11F,Ringbuffer#241=0X120,Ringbuffer#242=0X121,Ringbuffer#243=0X122 variable Ringbuffer#244=0X123,Ringbuffer#245=0X124,Ringbuffer#246=0X125,Ringbuffer#247=0X126 variable Ringbuffer#248=0X127,Ringbuffer#249=0X128,Ringbuffer#250=0X129,Ringbuffer#251=0X12A variable Ringbuffer#252=0X12B,Ringbuffer#253=0X12C,Ringbuffer#254=0X12D,Ringbuffer#255=0X12E _B equ 0X12F Timvals equ 0X130 TimvalsH equ 0X131 TimvalsHH equ 0X132 TimvalsHHH equ 0X133 variable Timvals#0=0X130,Timvals#0H=0X131,Timvals#0HH=0X132,Timvals#0HHH=0X133 variable Timvals#1=0X134,Timvals#1H=0X135,Timvals#1HH=0X136,Timvals#1HHH=0X137 Resort equ 0X138 Dur equ 0X139 DurH equ 0X13A variable Dur#0=0X139,Dur#0H=0X13A,Dur#1=0X13B,Dur#1H=0X13C variable Dur#2=0X13D,Dur#2H=0X13E,Dur#3=0X13F,Dur#3H=0X140 variable Dur#4=0X141,Dur#4H=0X142,Dur#5=0X143,Dur#5H=0X144 variable Dur#6=0X145,Dur#6H=0X146,Dur#7=0X147,Dur#7H=0X148 variable Dur#8=0X149,Dur#8H=0X14A,Dur#9=0X14B,Dur#9H=0X14C variable Dur#10=0X14D,Dur#10H=0X14E,Dur#11=0X14F,Dur#11H=0X150 variable Dur#12=0X151,Dur#12H=0X152,Dur#13=0X153,Dur#13H=0X154 variable Dur#14=0X155,Dur#14H=0X156,Dur#15=0X157,Dur#15H=0X158 variable Dur#16=0X159,Dur#16H=0X15A,Dur#17=0X15B,Dur#17H=0X15C variable Dur#18=0X15D,Dur#18H=0X15E,Dur#19=0X15F,Dur#19H=0X160 variable Dur#20=0X161,Dur#20H=0X162,Dur#21=0X163,Dur#21H=0X164 variable Dur#22=0X165,Dur#22H=0X166,Dur#23=0X167,Dur#23H=0X168 variable Dur#24=0X169,Dur#24H=0X16A,Dur#25=0X16B,Dur#25H=0X16C variable Dur#26=0X16D,Dur#26H=0X16E,Dur#27=0X16F,Dur#27H=0X170 variable Dur#28=0X171,Dur#28H=0X172,Dur#29=0X173,Dur#29H=0X174 variable Dur#30=0X175,Dur#30H=0X176,Dur#31=0X177,Dur#31H=0X178 variable Dur#32=0X179,Dur#32H=0X17A,Dur#33=0X17B,Dur#33H=0X17C variable Dur#34=0X17D,Dur#34H=0X17E,Dur#35=0X17F,Dur#35H=0X180 variable Dur#36=0X181,Dur#36H=0X182,Dur#37=0X183,Dur#37H=0X184 variable Dur#38=0X185,Dur#38H=0X186,Dur#39=0X187,Dur#39H=0X188 variable Dur#40=0X189,Dur#40H=0X18A,Dur#41=0X18B,Dur#41H=0X18C variable Dur#42=0X18D,Dur#42H=0X18E,Dur#43=0X18F,Dur#43H=0X190 variable Dur#44=0X191,Dur#44H=0X192,Dur#45=0X193,Dur#45H=0X194 variable Dur#46=0X195,Dur#46H=0X196,Dur#47=0X197,Dur#47H=0X198 variable Dur#48=0X199,Dur#48H=0X19A,Dur#49=0X19B,Dur#49H=0X19C variable Dur#50=0X19D,Dur#50H=0X19E,Dur#51=0X19F,Dur#51H=0X1A0 variable Dur#52=0X1A1,Dur#52H=0X1A2,Dur#53=0X1A3,Dur#53H=0X1A4 variable Dur#54=0X1A5,Dur#54H=0X1A6,Dur#55=0X1A7,Dur#55H=0X1A8 variable Dur#56=0X1A9,Dur#56H=0X1AA,Dur#57=0X1AB,Dur#57H=0X1AC variable Dur#58=0X1AD,Dur#58H=0X1AE,Dur#59=0X1AF,Dur#59H=0X1B0 variable Dur#60=0X1B1,Dur#60H=0X1B2,Dur#61=0X1B3,Dur#61H=0X1B4 variable Dur#62=0X1B5,Dur#62H=0X1B6,Dur#63=0X1B7,Dur#63H=0X1B8 variable Dur#64=0X1B9,Dur#64H=0X1BA,Dur#65=0X1BB,Dur#65H=0X1BC variable Dur#66=0X1BD,Dur#66H=0X1BE,Dur#67=0X1BF,Dur#67H=0X1C0 variable Dur#68=0X1C1,Dur#68H=0X1C2,Dur#69=0X1C3,Dur#69H=0X1C4 variable Dur#70=0X1C5,Dur#70H=0X1C6,Dur#71=0X1C7,Dur#71H=0X1C8 variable Dur#72=0X1C9,Dur#72H=0X1CA,Dur#73=0X1CB,Dur#73H=0X1CC variable Dur#74=0X1CD,Dur#74H=0X1CE,Dur#75=0X1CF,Dur#75H=0X1D0 variable Dur#76=0X1D1,Dur#76H=0X1D2,Dur#77=0X1D3,Dur#77H=0X1D4 variable Dur#78=0X1D5,Dur#78H=0X1D6,Dur#79=0X1D7,Dur#79H=0X1D8 variable Dur#80=0X1D9,Dur#80H=0X1DA,Dur#81=0X1DB,Dur#81H=0X1DC variable Dur#82=0X1DD,Dur#82H=0X1DE,Dur#83=0X1DF,Dur#83H=0X1E0 variable Dur#84=0X1E1,Dur#84H=0X1E2,Dur#85=0X1E3,Dur#85H=0X1E4 variable Dur#86=0X1E5,Dur#86H=0X1E6,Dur#87=0X1E7,Dur#87H=0X1E8 variable Dur#88=0X1E9,Dur#88H=0X1EA,Dur#89=0X1EB,Dur#89H=0X1EC variable Dur#90=0X1ED,Dur#90H=0X1EE,Dur#91=0X1EF,Dur#91H=0X1F0 variable Dur#92=0X1F1,Dur#92H=0X1F2,Dur#93=0X1F3,Dur#93H=0X1F4 variable Dur#94=0X1F5,Dur#94H=0X1F6,Dur#95=0X1F7,Dur#95H=0X1F8 variable Dur#96=0X1F9,Dur#96H=0X1FA,Dur#97=0X1FB,Dur#97H=0X1FC variable Dur#98=0X1FD,Dur#98H=0X1FE,Dur#99=0X1FF,Dur#99H=0X200 variable Dur#100=0X201,Dur#100H=0X202,Dur#101=0X203,Dur#101H=0X204 variable Dur#102=0X205,Dur#102H=0X206,Dur#103=0X207,Dur#103H=0X208 variable Dur#104=0X209,Dur#104H=0X20A,Dur#105=0X20B,Dur#105H=0X20C variable Dur#106=0X20D,Dur#106H=0X20E,Dur#107=0X20F,Dur#107H=0X210 variable Dur#108=0X211,Dur#108H=0X212,Dur#109=0X213,Dur#109H=0X214 variable Dur#110=0X215,Dur#110H=0X216,Dur#111=0X217,Dur#111H=0X218 variable Dur#112=0X219,Dur#112H=0X21A,Dur#113=0X21B,Dur#113H=0X21C variable Dur#114=0X21D,Dur#114H=0X21E,Dur#115=0X21F,Dur#115H=0X220 variable Dur#116=0X221,Dur#116H=0X222,Dur#117=0X223,Dur#117H=0X224 variable Dur#118=0X225,Dur#118H=0X226,Dur#119=0X227,Dur#119H=0X228 variable Dur#120=0X229,Dur#120H=0X22A,Dur#121=0X22B,Dur#121H=0X22C variable Dur#122=0X22D,Dur#122H=0X22E,Dur#123=0X22F,Dur#123H=0X230 variable Dur#124=0X231,Dur#124H=0X232,Dur#125=0X233,Dur#125H=0X234 variable Dur#126=0X235,Dur#126H=0X236,Dur#127=0X237,Dur#127H=0X238 Dur5 equ 0X239 Dur5H equ 0X23A variable Dur5#0=0X239,Dur5#0H=0X23A,Dur5#1=0X23B,Dur5#1H=0X23C variable Dur5#2=0X23D,Dur5#2H=0X23E,Dur5#3=0X23F,Dur5#3H=0X240 variable Dur5#4=0X241,Dur5#4H=0X242,Dur5#5=0X243,Dur5#5H=0X244 variable Dur5#6=0X245,Dur5#6H=0X246,Dur5#7=0X247,Dur5#7H=0X248 variable Dur5#8=0X249,Dur5#8H=0X24A,Dur5#9=0X24B,Dur5#9H=0X24C variable Dur5#10=0X24D,Dur5#10H=0X24E,Dur5#11=0X24F,Dur5#11H=0X250 variable Dur5#12=0X251,Dur5#12H=0X252,Dur5#13=0X253,Dur5#13H=0X254 variable Dur5#14=0X255,Dur5#14H=0X256,Dur5#15=0X257,Dur5#15H=0X258 variable Dur5#16=0X259,Dur5#16H=0X25A,Dur5#17=0X25B,Dur5#17H=0X25C variable Dur5#18=0X25D,Dur5#18H=0X25E,Dur5#19=0X25F,Dur5#19H=0X260 variable Dur5#20=0X261,Dur5#20H=0X262,Dur5#21=0X263,Dur5#21H=0X264 variable Dur5#22=0X265,Dur5#22H=0X266,Dur5#23=0X267,Dur5#23H=0X268 variable Dur5#24=0X269,Dur5#24H=0X26A,Dur5#25=0X26B,Dur5#25H=0X26C variable Dur5#26=0X26D,Dur5#26H=0X26E,Dur5#27=0X26F,Dur5#27H=0X270 variable Dur5#28=0X271,Dur5#28H=0X272,Dur5#29=0X273,Dur5#29H=0X274 variable Dur5#30=0X275,Dur5#30H=0X276,Dur5#31=0X277,Dur5#31H=0X278 variable Dur5#32=0X279,Dur5#32H=0X27A,Dur5#33=0X27B,Dur5#33H=0X27C variable Dur5#34=0X27D,Dur5#34H=0X27E,Dur5#35=0X27F,Dur5#35H=0X280 variable Dur5#36=0X281,Dur5#36H=0X282,Dur5#37=0X283,Dur5#37H=0X284 variable Dur5#38=0X285,Dur5#38H=0X286,Dur5#39=0X287,Dur5#39H=0X288 variable Dur5#40=0X289,Dur5#40H=0X28A,Dur5#41=0X28B,Dur5#41H=0X28C variable Dur5#42=0X28D,Dur5#42H=0X28E,Dur5#43=0X28F,Dur5#43H=0X290 variable Dur5#44=0X291,Dur5#44H=0X292,Dur5#45=0X293,Dur5#45H=0X294 variable Dur5#46=0X295,Dur5#46H=0X296,Dur5#47=0X297,Dur5#47H=0X298 variable Dur5#48=0X299,Dur5#48H=0X29A,Dur5#49=0X29B,Dur5#49H=0X29C variable Dur5#50=0X29D,Dur5#50H=0X29E,Dur5#51=0X29F,Dur5#51H=0X2A0 variable Dur5#52=0X2A1,Dur5#52H=0X2A2,Dur5#53=0X2A3,Dur5#53H=0X2A4 variable Dur5#54=0X2A5,Dur5#54H=0X2A6,Dur5#55=0X2A7,Dur5#55H=0X2A8 variable Dur5#56=0X2A9,Dur5#56H=0X2AA,Dur5#57=0X2AB,Dur5#57H=0X2AC variable Dur5#58=0X2AD,Dur5#58H=0X2AE,Dur5#59=0X2AF,Dur5#59H=0X2B0 variable Dur5#60=0X2B1,Dur5#60H=0X2B2,Dur5#61=0X2B3,Dur5#61H=0X2B4 variable Dur5#62=0X2B5,Dur5#62H=0X2B6,Dur5#63=0X2B7,Dur5#63H=0X2B8 variable Dur5#64=0X2B9,Dur5#64H=0X2BA,Dur5#65=0X2BB,Dur5#65H=0X2BC variable Dur5#66=0X2BD,Dur5#66H=0X2BE,Dur5#67=0X2BF,Dur5#67H=0X2C0 variable Dur5#68=0X2C1,Dur5#68H=0X2C2,Dur5#69=0X2C3,Dur5#69H=0X2C4 variable Dur5#70=0X2C5,Dur5#70H=0X2C6,Dur5#71=0X2C7,Dur5#71H=0X2C8 variable Dur5#72=0X2C9,Dur5#72H=0X2CA,Dur5#73=0X2CB,Dur5#73H=0X2CC variable Dur5#74=0X2CD,Dur5#74H=0X2CE,Dur5#75=0X2CF,Dur5#75H=0X2D0 variable Dur5#76=0X2D1,Dur5#76H=0X2D2,Dur5#77=0X2D3,Dur5#77H=0X2D4 variable Dur5#78=0X2D5,Dur5#78H=0X2D6,Dur5#79=0X2D7,Dur5#79H=0X2D8 variable Dur5#80=0X2D9,Dur5#80H=0X2DA,Dur5#81=0X2DB,Dur5#81H=0X2DC variable Dur5#82=0X2DD,Dur5#82H=0X2DE,Dur5#83=0X2DF,Dur5#83H=0X2E0 variable Dur5#84=0X2E1,Dur5#84H=0X2E2,Dur5#85=0X2E3,Dur5#85H=0X2E4 variable Dur5#86=0X2E5,Dur5#86H=0X2E6,Dur5#87=0X2E7,Dur5#87H=0X2E8 variable Dur5#88=0X2E9,Dur5#88H=0X2EA,Dur5#89=0X2EB,Dur5#89H=0X2EC variable Dur5#90=0X2ED,Dur5#90H=0X2EE,Dur5#91=0X2EF,Dur5#91H=0X2F0 variable Dur5#92=0X2F1,Dur5#92H=0X2F2,Dur5#93=0X2F3,Dur5#93H=0X2F4 variable Dur5#94=0X2F5,Dur5#94H=0X2F6,Dur5#95=0X2F7,Dur5#95H=0X2F8 variable Dur5#96=0X2F9,Dur5#96H=0X2FA,Dur5#97=0X2FB,Dur5#97H=0X2FC variable Dur5#98=0X2FD,Dur5#98H=0X2FE,Dur5#99=0X2FF,Dur5#99H=0X300 variable Dur5#100=0X301,Dur5#100H=0X302,Dur5#101=0X303,Dur5#101H=0X304 variable Dur5#102=0X305,Dur5#102H=0X306,Dur5#103=0X307,Dur5#103H=0X308 variable Dur5#104=0X309,Dur5#104H=0X30A,Dur5#105=0X30B,Dur5#105H=0X30C variable Dur5#106=0X30D,Dur5#106H=0X30E,Dur5#107=0X30F,Dur5#107H=0X310 variable Dur5#108=0X311,Dur5#108H=0X312,Dur5#109=0X313,Dur5#109H=0X314 variable Dur5#110=0X315,Dur5#110H=0X316,Dur5#111=0X317,Dur5#111H=0X318 variable Dur5#112=0X319,Dur5#112H=0X31A,Dur5#113=0X31B,Dur5#113H=0X31C variable Dur5#114=0X31D,Dur5#114H=0X31E,Dur5#115=0X31F,Dur5#115H=0X320 variable Dur5#116=0X321,Dur5#116H=0X322,Dur5#117=0X323,Dur5#117H=0X324 variable Dur5#118=0X325,Dur5#118H=0X326,Dur5#119=0X327,Dur5#119H=0X328 variable Dur5#120=0X329,Dur5#120H=0X32A,Dur5#121=0X32B,Dur5#121H=0X32C variable Dur5#122=0X32D,Dur5#122H=0X32E,Dur5#123=0X32F,Dur5#123H=0X330 variable Dur5#124=0X331,Dur5#124H=0X332,Dur5#125=0X333,Dur5#125H=0X334 variable Dur5#126=0X335,Dur5#126H=0X336,Dur5#127=0X337,Dur5#127H=0X338 GetMidiInResult equ 0X339 SortTimersResult equ 0X33A ; HEAP VARIABLES ; LOW PRIORITY INTERRUPT CONTEXT STORAGE _Low__Context_Store equ 0X33B variable _Low__Context_Store_0=0X33B,_Low__Context_Store_1=0X33C,_Low__Context_Store_2=0X33D ; ALIAS VARIABLES #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 Cnt3Hw Cnt3HH #define Cnt3HwH Cnt3HHH #define Tim3 TMR3L #define Tim3H TMR3LH #define StBit Bytein,7 #define PowerOn CC66,0 #define Resort_flag Resort,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 Lowtes 60 #define Hightes 84 #define Extra 120 #define Midichannel 1 #define NoteOff_Status 129 #define NoteOn_Status 145 #define Keypres_Status 161 #define Control_Status 177 #define ProgChange_Status 193 #define Aftertouch_Status 209 #define Pitchbend_Status 225 #define NrTasks 2 #define LastTask 1 #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 __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 _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 $ ; MELAUTON_VALVES.BAS F2_SOF equ $ ; 18F4620.Inc movlw 15 movwf ADCON1,0 movlw 7 movwf CMCON,0 F2_EOF equ $ ; 18F4620.Inc F1_000059 equ $ ; in [MELAUTON_VALVES.BAS] DECLARE ALL_DIGITAL = TRUE F1_000060 equ $ ; in [MELAUTON_VALVES.BAS] Clear SSPCON1.5 bcf SSPCON1,5,0 F1_000062 equ $ ; in [MELAUTON_VALVES.BAS] TRISA = %11000000 movlw 192 movwf TRISA,0 F1_000063 equ $ ; in [MELAUTON_VALVES.BAS] TRISB = %11000000 movwf TRISB,0 F1_000064 equ $ ; in [MELAUTON_VALVES.BAS] TRISC = %11000000 movwf TRISC,0 F1_000065 equ $ ; in [MELAUTON_VALVES.BAS] TRISD = %00000000 clrf TRISD,0 F1_000066 equ $ ; in [MELAUTON_VALVES.BAS] TRISE = %11101000 movlw 232 movwf TRISE,0 F3_SOF equ $ ; MELAUTON_VALVES_IRQ.Inc F3_000042 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] goto _Over_IRQ_Handler bra _Over_IRQ_Handler ;--------------------------------------------- ; HIGH PRIORITY INTERRUPT HANDLER High_Prior_Interrupt _Timer0_IRQ F3_000053 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] if INTCON.2 = 1 Then btfss INTCON,2,0 bra _lbl__3 F3_000054 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear INTCON.2 bcf INTCON,2,0 F3_000055 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Inc Cnt.Word1 infsnz CntHH,F,0 incf CntHHH,F,0 F3_000056 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F3_000057 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] btg PORTB,3 btg PORTB,3 F3_000058 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] retfie fast retfie 1 F3_000059 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] endif _lbl__3 _UART_IRQ F3_000061 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] if PIR1.5 = 1 Then btfss PIR1,5,0 bra _lbl__5 F3_000062 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] movlw 6 movlw 6 F3_000063 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] andwf RCSTA,W andwf RCSTA,W F3_000064 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] bnz _Uart_Error bnz _Uart_Error F3_000065 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR1_Save = USART_FSR1 movff FSR1LH,USART_FSR1_SaveH movff FSR1L,USART_FSR1_Save F3_000066 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Inc IndexIn incf IndexIn,F,0 F3_000073 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR1 = VarPtr Ringbuffer lfsr 1,47 F3_000074 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR1 = USART_FSR1 + IndexIn movf IndexIn,W,0 addwf FSR1L,F,0 movlw 0 addwfc FSR1LH,F,0 F3_000075 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] INDF1 = RCREG movff RCREG,INDF1 F3_000076 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR1 = USART_FSR1_Save movff USART_FSR1_SaveH,FSR1LH movff USART_FSR1_Save,FSR1L F3_000078 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] retfie fast retfie 1 _Uart_Error F3_000080 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000081 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] WREG = RCREG movf RCREG,W,0 F3_000082 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear RCSTA.4 bcf RCSTA,4,0 F3_000083 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set RCSTA.4 bsf RCSTA,4,0 F3_000084 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] endif _lbl__5 F3_000085 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] retfie fast retfie 1 _Init_Usart F3_000120 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000121 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000122 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000124 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set IPR1.5 bsf IPR1,5,0 F3_000126 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set INTCON.7 bsf INTCON,7,0 F3_000127 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set INTCON.6 bsf INTCON,6,0 F3_000129 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] return return 0 _Clear_Usart_Buffer F3_000143 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] PIE1.5 = 0 bcf PIE1,5,0 F3_000144 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear Ringbuffer lfsr 0,Ringbuffer movlw 1 movwf PRODLH,0 clrf PRODL,0 _pblb__6 decf PRODL,F,0 movlw 0 subwfb PRODLH,F,0 clrf POSTINC0,0 movf PRODH,W,0 iorwf PRODL,W,0 bnz _pblb__6 F3_000145 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear IndexIn clrf IndexIn,0 F3_000146 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear IndexOut clrf IndexOut,0 F3_000147 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set PIE1.5 bsf PIE1,5,0 F3_000148 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] return return 0 ;--------------------------------------------- ; LOW PRIORITY INTERRUPT HANDLER Low_Prior_Interrupt Timer3_ISR F3_000156 equ $ ; in [MELAUTON_VALVES_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_000157 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Clear PIR2.1 bcf PIR2,1,0 F3_000158 equ $ ; in [MELAUTON_VALVES_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 $ ; MELAUTON_VALVES_IRQ.Inc MAIN F1_000150 equ $ ; in [MELAUTON_VALVES.BAS] high PORTB.3 bcf TRISB,3,0 bsf LATB,3,0 F1_000151 equ $ ; in [MELAUTON_VALVES.BAS] DelayMs 10 movlw 10 rcall __delay_ms_ F1_000152 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.3 bcf TRISB,3,0 bcf LATB,3,0 F1_000154 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000155 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000156 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000157 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000158 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000159 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000160 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000161 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000162 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000163 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000164 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000165 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000166 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000167 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000168 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000169 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000170 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000171 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000172 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000173 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000174 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000175 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000176 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000177 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000178 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000179 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000181 equ $ ; in [MELAUTON_VALVES.BAS] Dur_Lookup () call Dur_Lookup F1_000182 equ $ ; in [MELAUTON_VALVES.BAS] Set idx setf idx,0 F1_000183 equ $ ; in [MELAUTON_VALVES.BAS] Set Timvals lfsr 0,Timvals movlw 8 _pblb__7 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__7 F1_000184 equ $ ; in [MELAUTON_VALVES.BAS] Clear CC66 clrf CC66,0 F1_000185 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 F1_000187 equ $ ; in [MELAUTON_VALVES.BAS] Init_Usart_Interrupt variable max_params=10,INIT_USART_INTERRUPT_RETURN=0,prm_count=0 rcall _Init_Usart F1_000189 equ $ ; in [MELAUTON_VALVES.BAS] Clear_Serial_Buffer variable max_params=10,CLEAR_SERIAL_BUFFER_RETURN=0,prm_count=0 rcall _Clear_Usart_Buffer F1_000201 equ $ ; in [MELAUTON_VALVES.BAS] Clear T1CON clrf T1CON,0 F1_000202 equ $ ; in [MELAUTON_VALVES.BAS] Clear INTCON.2 bcf INTCON,2,0 F1_000203 equ $ ; in [MELAUTON_VALVES.BAS] Set INTCON.5 bsf INTCON,5,0 F1_000204 equ $ ; in [MELAUTON_VALVES.BAS] T0CON = %10000111 movlw 135 movwf T0CON,0 F1_000239 equ $ ; in [MELAUTON_VALVES.BAS] Clear T3CON clrf T3CON,0 F1_000240 equ $ ; in [MELAUTON_VALVES.BAS] Clear PIR2.1 bcf PIR2,1,0 F1_000241 equ $ ; in [MELAUTON_VALVES.BAS] Set PIE2.1 bsf PIE2,1,0 F1_000243 equ $ ; in [MELAUTON_VALVES.BAS] Clear Tim3 clrf TMR3LH,0 clrf TMR3L,0 F1_000244 equ $ ; in [MELAUTON_VALVES.BAS] Set RCON.7 bsf RCON,7,0 F1_000245 equ $ ; in [MELAUTON_VALVES.BAS] Clear IPR2.1 bcf IPR2,1,0 F1_000247 equ $ ; in [MELAUTON_VALVES.BAS] T3CON = %10110001 movlw 177 movwf T3CON,0 F1_000266 equ $ ; in [MELAUTON_VALVES.BAS] HRsout Control_Status, 66, 0 rcall __hrsout1__ movlw 66 rcall __hrsout1__ movlw 0 rcall __hrsout1__ F1_000269 equ $ ; in [MELAUTON_VALVES.BAS] Do _lbl__8 F1_000270 equ $ ; in [MELAUTON_VALVES.BAS] Cnt.Word0 = CntLw movff TMR0L,Cnt movff TMR0LH,CntH F1_000271 equ $ ; in [MELAUTON_VALVES.BAS] Bytein = GetMidiIn () call GetMidiIn movff GetMidiInResult,Bytein Midi_Parse F1_000273 equ $ ; in [MELAUTON_VALVES.BAS] if Bytein > Control_Status Then movlw 178 subwf Bytein,W,0 bnc _lbl__12 F1_000274 equ $ ; in [MELAUTON_VALVES.BAS] if Bytein > 253 Then movlw 254 subwf Bytein,W,0 bnc _lbl__14 bra _lbl__15 _lbl__14 F1_000278 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000279 equ $ ; in [MELAUTON_VALVES.BAS] Clear statusbyte clrf statusbyte,0 F1_000280 equ $ ; in [MELAUTON_VALVES.BAS] end if _lbl__15 F1_000281 equ $ ; in [MELAUTON_VALVES.BAS] goto Check_Timers bra Check_Timers F1_000282 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__12 F1_000283 equ $ ; in [MELAUTON_VALVES.BAS] if StBit =1 Then btfss Bytein,7,0 bra _lbl__17 F1_000285 equ $ ; in [MELAUTON_VALVES.BAS] Clear statusbyte clrf statusbyte,0 F1_000286 equ $ ; in [MELAUTON_VALVES.BAS] Select Bytein F1_000287 equ $ ; in [MELAUTON_VALVES.BAS] Case NoteOff_Status movlw 129 subwf Bytein,W,0 bnz _lbl__19 F1_000288 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000289 equ $ ; in [MELAUTON_VALVES.BAS] Set noteUit setf noteUit,0 F1_000290 equ $ ; in [MELAUTON_VALVES.BAS] Set release setf release,0 bra _lbl__18 _lbl__19 F1_000291 equ $ ; in [MELAUTON_VALVES.BAS] Case NoteOn_Status movlw 145 subwf Bytein,W,0 bnz _lbl__22 F1_000292 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000293 equ $ ; in [MELAUTON_VALVES.BAS] Set noteAan setf noteAan,0 F1_000294 equ $ ; in [MELAUTON_VALVES.BAS] Set velo setf velo,0 bra _lbl__18 _lbl__22 F1_000295 equ $ ; in [MELAUTON_VALVES.BAS] Case Keypres_Status movlw 161 subwf Bytein,W,0 bnz _lbl__24 F1_000296 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000297 equ $ ; in [MELAUTON_VALVES.BAS] notePres = 255 setf notePres,0 F1_000298 equ $ ; in [MELAUTON_VALVES.BAS] pres = 255 setf pres,0 bra _lbl__18 _lbl__24 F1_000299 equ $ ; in [MELAUTON_VALVES.BAS] Case Control_Status movlw 177 subwf Bytein,W,0 bnz _lbl__26 F1_000300 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000301 equ $ ; in [MELAUTON_VALVES.BAS] Set Ctrl setf Ctrl,0 F1_000302 equ $ ; in [MELAUTON_VALVES.BAS] Set value setf value,0 bra _lbl__18 _lbl__26 F1_000303 equ $ ; in [MELAUTON_VALVES.BAS] Case ProgChange_Status movlw 193 subwf Bytein,W,0 bnz _lbl__28 F1_000304 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000305 equ $ ; in [MELAUTON_VALVES.BAS] prog = 255 setf prog,0 bra _lbl__18 _lbl__28 F1_000306 equ $ ; in [MELAUTON_VALVES.BAS] Case Aftertouch_Status movlw 209 subwf Bytein,W,0 bnz _lbl__30 F1_000307 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000308 equ $ ; in [MELAUTON_VALVES.BAS] Set aft setf aft,0 bra _lbl__18 _lbl__30 F1_000309 equ $ ; in [MELAUTON_VALVES.BAS] Case Pitchbend_Status movlw 225 subwf Bytein,W,0 bnz _lbl__32 F1_000310 equ $ ; in [MELAUTON_VALVES.BAS] statusbyte = Bytein movff Bytein,statusbyte F1_000311 equ $ ; in [MELAUTON_VALVES.BAS] pblsb = 255 setf pblsb,0 F1_000312 equ $ ; in [MELAUTON_VALVES.BAS] pbmsb = 255 setf pbmsb,0 F1_000313 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__32 _lbl__18 bra _lbl__33 _lbl__17 F1_000314 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000315 equ $ ; in [MELAUTON_VALVES.BAS] Select statusbyte F1_000316 equ $ ; in [MELAUTON_VALVES.BAS] Case 0 movf statusbyte,F,0 bnz _lbl__35 F1_000317 equ $ ; in [MELAUTON_VALVES.BAS] goto Check_Timers bra Check_Timers bra _lbl__34 _lbl__35 F1_000318 equ $ ; in [MELAUTON_VALVES.BAS] Case NoteOff_Status movlw 129 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__38 F1_000319 equ $ ; in [MELAUTON_VALVES.BAS] if noteUit = 255 Then incf noteUit,W,0 bnz _lbl__40 F1_000320 equ $ ; in [MELAUTON_VALVES.BAS] noteUit = Bytein movff Bytein,noteUit bra _lbl__41 _lbl__40 F1_000321 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000322 equ $ ; in [MELAUTON_VALVES.BAS] release = Bytein movff Bytein,release F1_000323 equ $ ; in [MELAUTON_VALVES.BAS] Select noteUit F1_000324 equ $ ; in [MELAUTON_VALVES.BAS] Case 60 movlw 60 subwf noteUit,W,0 bnz _lbl__43 F1_000325 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.0 bcf LATA,0,0 bra _lbl__42 _lbl__43 F1_000326 equ $ ; in [MELAUTON_VALVES.BAS] Case 61 movlw 61 subwf noteUit,W,0 bnz _lbl__46 F1_000327 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.1 bcf LATA,1,0 bra _lbl__42 _lbl__46 F1_000328 equ $ ; in [MELAUTON_VALVES.BAS] Case 62 movlw 62 subwf noteUit,W,0 bnz _lbl__48 F1_000329 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.2 bcf LATA,2,0 bra _lbl__42 _lbl__48 F1_000330 equ $ ; in [MELAUTON_VALVES.BAS] Case 63 movlw 63 subwf noteUit,W,0 bnz _lbl__50 F1_000331 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.3 bcf LATA,3,0 bra _lbl__42 _lbl__50 F1_000332 equ $ ; in [MELAUTON_VALVES.BAS] Case 64 movlw 64 subwf noteUit,W,0 bnz _lbl__52 F1_000333 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.4 bcf LATA,4,0 bra _lbl__42 _lbl__52 F1_000334 equ $ ; in [MELAUTON_VALVES.BAS] Case 65 movlw 65 subwf noteUit,W,0 bnz _lbl__54 F1_000335 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.5 bcf LATA,5,0 bra _lbl__42 _lbl__54 F1_000336 equ $ ; in [MELAUTON_VALVES.BAS] Case 66 movlw 66 subwf noteUit,W,0 bnz _lbl__56 F1_000337 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.0 bcf LATE,0,0 bra _lbl__42 _lbl__56 F1_000338 equ $ ; in [MELAUTON_VALVES.BAS] Case 67 movlw 67 subwf noteUit,W,0 bnz _lbl__58 F1_000339 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.1 bcf LATE,1,0 bra _lbl__42 _lbl__58 F1_000340 equ $ ; in [MELAUTON_VALVES.BAS] Case 68 movlw 68 subwf noteUit,W,0 bnz _lbl__60 F1_000341 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.2 bcf LATE,2,0 bra _lbl__42 _lbl__60 F1_000342 equ $ ; in [MELAUTON_VALVES.BAS] Case 69 movlw 69 subwf noteUit,W,0 bnz _lbl__62 F1_000343 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.0 bcf LATC,0,0 bra _lbl__42 _lbl__62 F1_000344 equ $ ; in [MELAUTON_VALVES.BAS] Case 70 movlw 70 subwf noteUit,W,0 bnz _lbl__64 F1_000345 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.1 bcf LATC,1,0 bra _lbl__42 _lbl__64 F1_000346 equ $ ; in [MELAUTON_VALVES.BAS] Case 71 movlw 71 subwf noteUit,W,0 bnz _lbl__66 F1_000347 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.2 bcf LATC,2,0 bra _lbl__42 _lbl__66 F1_000348 equ $ ; in [MELAUTON_VALVES.BAS] Case 72 movlw 72 subwf noteUit,W,0 bnz _lbl__68 F1_000349 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.3 bcf LATC,3,0 bra _lbl__42 _lbl__68 F1_000350 equ $ ; in [MELAUTON_VALVES.BAS] Case 73 movlw 73 subwf noteUit,W,0 bnz _lbl__70 F1_000351 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.0 bcf LATD,0,0 bra _lbl__42 _lbl__70 F1_000352 equ $ ; in [MELAUTON_VALVES.BAS] Case 74 movlw 74 subwf noteUit,W,0 bnz _lbl__72 F1_000353 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.1 bcf LATD,1,0 bra _lbl__42 _lbl__72 F1_000354 equ $ ; in [MELAUTON_VALVES.BAS] Case 75 movlw 75 subwf noteUit,W,0 bnz _lbl__74 F1_000355 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.7 bcf LATD,7,0 bra _lbl__42 _lbl__74 F1_000356 equ $ ; in [MELAUTON_VALVES.BAS] Case 76 movlw 76 subwf noteUit,W,0 bnz _lbl__76 F1_000357 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.6 bcf LATD,6,0 bra _lbl__42 _lbl__76 F1_000358 equ $ ; in [MELAUTON_VALVES.BAS] Case 77 movlw 77 subwf noteUit,W,0 bnz _lbl__78 F1_000359 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.5 bcf LATD,5,0 bra _lbl__42 _lbl__78 F1_000360 equ $ ; in [MELAUTON_VALVES.BAS] Case 78 movlw 78 subwf noteUit,W,0 bnz _lbl__80 F1_000361 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.4 bcf LATD,4,0 bra _lbl__42 _lbl__80 F1_000362 equ $ ; in [MELAUTON_VALVES.BAS] Case 79 movlw 79 subwf noteUit,W,0 bnz _lbl__82 F1_000363 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.5 bcf LATC,5,0 bra _lbl__42 _lbl__82 F1_000364 equ $ ; in [MELAUTON_VALVES.BAS] Case 80 movlw 80 subwf noteUit,W,0 bnz _lbl__84 F1_000365 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.4 bcf LATC,4,0 bra _lbl__42 _lbl__84 F1_000366 equ $ ; in [MELAUTON_VALVES.BAS] Case 81 movlw 81 subwf noteUit,W,0 bnz _lbl__86 F1_000367 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.3 bcf LATD,3,0 bra _lbl__42 _lbl__86 F1_000368 equ $ ; in [MELAUTON_VALVES.BAS] Case 82 movlw 82 subwf noteUit,W,0 bnz _lbl__88 F1_000369 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.2 bcf LATD,2,0 bra _lbl__42 _lbl__88 F1_000370 equ $ ; in [MELAUTON_VALVES.BAS] Case 83 movlw 83 subwf noteUit,W,0 bnz _lbl__90 F1_000371 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.0 bcf LATB,0,0 bra _lbl__42 _lbl__90 F1_000372 equ $ ; in [MELAUTON_VALVES.BAS] Case 84 movlw 84 subwf noteUit,W,0 bnz _lbl__92 F1_000373 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.1 bcf LATB,1,0 bra _lbl__42 _lbl__92 F1_000374 equ $ ; in [MELAUTON_VALVES.BAS] Case Extra movlw 120 subwf noteUit,W,0 bnz _lbl__94 F1_000375 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.2 bcf LATB,2,0 F1_000376 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__94 _lbl__42 F1_000377 equ $ ; in [MELAUTON_VALVES.BAS] Set noteUit setf noteUit,0 F1_000378 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__41 bra _lbl__34 _lbl__38 F1_000380 equ $ ; in [MELAUTON_VALVES.BAS] Case NoteOn_Status movlw 145 subwf statusbyte,W,0 btfss STATUS,2,0 bra _lbl__96 F1_000381 equ $ ; in [MELAUTON_VALVES.BAS] if noteAan = 255 Then incf noteAan,W,0 bnz _lbl__98 F1_000382 equ $ ; in [MELAUTON_VALVES.BAS] noteAan = Bytein movff Bytein,noteAan bra _lbl__99 _lbl__98 F1_000383 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000384 equ $ ; in [MELAUTON_VALVES.BAS] velo = Bytein movff Bytein,velo F1_000385 equ $ ; in [MELAUTON_VALVES.BAS] if velo = 0 Then movf velo,F,0 btfss STATUS,2,0 bra _lbl__101 F1_000386 equ $ ; in [MELAUTON_VALVES.BAS] Select noteAan F1_000387 equ $ ; in [MELAUTON_VALVES.BAS] Case 60 movlw 60 subwf noteAan,W,0 bnz _lbl__103 F1_000388 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.0 bcf LATA,0,0 bra _lbl__102 _lbl__103 F1_000389 equ $ ; in [MELAUTON_VALVES.BAS] Case 61 movlw 61 subwf noteAan,W,0 bnz _lbl__106 F1_000390 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.1 bcf LATA,1,0 bra _lbl__102 _lbl__106 F1_000391 equ $ ; in [MELAUTON_VALVES.BAS] Case 62 movlw 62 subwf noteAan,W,0 bnz _lbl__108 F1_000392 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.2 bcf LATA,2,0 bra _lbl__102 _lbl__108 F1_000393 equ $ ; in [MELAUTON_VALVES.BAS] Case 63 movlw 63 subwf noteAan,W,0 bnz _lbl__110 F1_000394 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.3 bcf LATA,3,0 bra _lbl__102 _lbl__110 F1_000395 equ $ ; in [MELAUTON_VALVES.BAS] Case 64 movlw 64 subwf noteAan,W,0 bnz _lbl__112 F1_000396 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.4 bcf LATA,4,0 bra _lbl__102 _lbl__112 F1_000397 equ $ ; in [MELAUTON_VALVES.BAS] Case 65 movlw 65 subwf noteAan,W,0 bnz _lbl__114 F1_000398 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTA.5 bcf LATA,5,0 bra _lbl__102 _lbl__114 F1_000399 equ $ ; in [MELAUTON_VALVES.BAS] Case 66 movlw 66 subwf noteAan,W,0 bnz _lbl__116 F1_000400 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.0 bcf LATE,0,0 bra _lbl__102 _lbl__116 F1_000401 equ $ ; in [MELAUTON_VALVES.BAS] Case 67 movlw 67 subwf noteAan,W,0 bnz _lbl__118 F1_000402 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.1 bcf LATE,1,0 bra _lbl__102 _lbl__118 F1_000403 equ $ ; in [MELAUTON_VALVES.BAS] Case 68 movlw 68 subwf noteAan,W,0 bnz _lbl__120 F1_000404 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTE.2 bcf LATE,2,0 bra _lbl__102 _lbl__120 F1_000405 equ $ ; in [MELAUTON_VALVES.BAS] Case 69 movlw 69 subwf noteAan,W,0 bnz _lbl__122 F1_000406 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.0 bcf LATC,0,0 bra _lbl__102 _lbl__122 F1_000407 equ $ ; in [MELAUTON_VALVES.BAS] Case 70 movlw 70 subwf noteAan,W,0 bnz _lbl__124 F1_000408 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.1 bcf LATC,1,0 bra _lbl__102 _lbl__124 F1_000409 equ $ ; in [MELAUTON_VALVES.BAS] Case 71 movlw 71 subwf noteAan,W,0 bnz _lbl__126 F1_000410 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.2 bcf LATC,2,0 bra _lbl__102 _lbl__126 F1_000411 equ $ ; in [MELAUTON_VALVES.BAS] Case 72 movlw 72 subwf noteAan,W,0 bnz _lbl__128 F1_000412 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.3 bcf LATC,3,0 bra _lbl__102 _lbl__128 F1_000413 equ $ ; in [MELAUTON_VALVES.BAS] Case 73 movlw 73 subwf noteAan,W,0 bnz _lbl__130 F1_000414 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.0 bcf LATD,0,0 bra _lbl__102 _lbl__130 F1_000415 equ $ ; in [MELAUTON_VALVES.BAS] Case 74 movlw 74 subwf noteAan,W,0 bnz _lbl__132 F1_000416 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.1 bcf LATD,1,0 bra _lbl__102 _lbl__132 F1_000417 equ $ ; in [MELAUTON_VALVES.BAS] Case 75 movlw 75 subwf noteAan,W,0 bnz _lbl__134 F1_000418 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.7 bcf LATD,7,0 bra _lbl__102 _lbl__134 F1_000419 equ $ ; in [MELAUTON_VALVES.BAS] Case 76 movlw 76 subwf noteAan,W,0 bnz _lbl__136 F1_000420 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.6 bcf LATD,6,0 bra _lbl__102 _lbl__136 F1_000421 equ $ ; in [MELAUTON_VALVES.BAS] Case 77 movlw 77 subwf noteAan,W,0 bnz _lbl__138 F1_000422 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.5 bcf LATD,5,0 bra _lbl__102 _lbl__138 F1_000423 equ $ ; in [MELAUTON_VALVES.BAS] Case 78 movlw 78 subwf noteAan,W,0 bnz _lbl__140 F1_000424 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.4 bcf LATD,4,0 bra _lbl__102 _lbl__140 F1_000425 equ $ ; in [MELAUTON_VALVES.BAS] Case 79 movlw 79 subwf noteAan,W,0 bnz _lbl__142 F1_000426 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.5 bcf LATC,5,0 bra _lbl__102 _lbl__142 F1_000427 equ $ ; in [MELAUTON_VALVES.BAS] Case 80 movlw 80 subwf noteAan,W,0 bnz _lbl__144 F1_000428 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTC.4 bcf LATC,4,0 bra _lbl__102 _lbl__144 F1_000429 equ $ ; in [MELAUTON_VALVES.BAS] Case 81 movlw 81 subwf noteAan,W,0 bnz _lbl__146 F1_000430 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.3 bcf LATD,3,0 bra _lbl__102 _lbl__146 F1_000431 equ $ ; in [MELAUTON_VALVES.BAS] Case 82 movlw 82 subwf noteAan,W,0 bnz _lbl__148 F1_000432 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTD.2 bcf LATD,2,0 bra _lbl__102 _lbl__148 F1_000433 equ $ ; in [MELAUTON_VALVES.BAS] Case 83 movlw 83 subwf noteAan,W,0 bnz _lbl__150 F1_000434 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.0 bcf LATB,0,0 bra _lbl__102 _lbl__150 F1_000435 equ $ ; in [MELAUTON_VALVES.BAS] Case 84 movlw 84 subwf noteAan,W,0 bnz _lbl__152 F1_000436 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.1 bcf LATB,1,0 bra _lbl__102 _lbl__152 F1_000437 equ $ ; in [MELAUTON_VALVES.BAS] Case Extra movlw 120 subwf noteAan,W,0 bnz _lbl__154 F1_000438 equ $ ; in [MELAUTON_VALVES.BAS] Clear PORTB.2 bcf LATB,2,0 F1_000439 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__154 _lbl__102 bra _lbl__155 _lbl__101 F1_000440 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000441 equ $ ; in [MELAUTON_VALVES.BAS] if PowerOn =1 Then btfss CC66,0,0 bra _lbl__157 F1_000442 equ $ ; in [MELAUTON_VALVES.BAS] Select noteAan F1_000443 equ $ ; in [MELAUTON_VALVES.BAS] Case 60 movlw 60 subwf noteAan,W,0 bnz _lbl__159 F1_000444 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.0 bsf LATA,0,0 bra _lbl__158 _lbl__159 F1_000445 equ $ ; in [MELAUTON_VALVES.BAS] Case 61 movlw 61 subwf noteAan,W,0 bnz _lbl__162 F1_000446 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.1 bsf LATA,1,0 bra _lbl__158 _lbl__162 F1_000447 equ $ ; in [MELAUTON_VALVES.BAS] Case 62 movlw 62 subwf noteAan,W,0 bnz _lbl__164 F1_000448 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.2 bsf LATA,2,0 bra _lbl__158 _lbl__164 F1_000449 equ $ ; in [MELAUTON_VALVES.BAS] Case 63 movlw 63 subwf noteAan,W,0 bnz _lbl__166 F1_000450 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.3 bsf LATA,3,0 bra _lbl__158 _lbl__166 F1_000451 equ $ ; in [MELAUTON_VALVES.BAS] Case 64 movlw 64 subwf noteAan,W,0 bnz _lbl__168 F1_000452 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.4 bsf LATA,4,0 bra _lbl__158 _lbl__168 F1_000453 equ $ ; in [MELAUTON_VALVES.BAS] Case 65 movlw 65 subwf noteAan,W,0 bnz _lbl__170 F1_000454 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTA.5 bsf LATA,5,0 bra _lbl__158 _lbl__170 F1_000455 equ $ ; in [MELAUTON_VALVES.BAS] Case 66 movlw 66 subwf noteAan,W,0 bnz _lbl__172 F1_000456 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTE.0 bsf LATE,0,0 bra _lbl__158 _lbl__172 F1_000457 equ $ ; in [MELAUTON_VALVES.BAS] Case 67 movlw 67 subwf noteAan,W,0 bnz _lbl__174 F1_000458 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTE.1 bsf LATE,1,0 bra _lbl__158 _lbl__174 F1_000459 equ $ ; in [MELAUTON_VALVES.BAS] Case 68 movlw 68 subwf noteAan,W,0 bnz _lbl__176 F1_000460 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTE.2 bsf LATE,2,0 bra _lbl__158 _lbl__176 F1_000461 equ $ ; in [MELAUTON_VALVES.BAS] Case 69 movlw 69 subwf noteAan,W,0 bnz _lbl__178 F1_000462 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.0 bsf LATC,0,0 bra _lbl__158 _lbl__178 F1_000463 equ $ ; in [MELAUTON_VALVES.BAS] Case 70 movlw 70 subwf noteAan,W,0 bnz _lbl__180 F1_000464 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.1 bsf LATC,1,0 bra _lbl__158 _lbl__180 F1_000465 equ $ ; in [MELAUTON_VALVES.BAS] Case 71 movlw 71 subwf noteAan,W,0 bnz _lbl__182 F1_000466 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.2 bsf LATC,2,0 bra _lbl__158 _lbl__182 F1_000467 equ $ ; in [MELAUTON_VALVES.BAS] Case 72 movlw 72 subwf noteAan,W,0 bnz _lbl__184 F1_000468 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.3 bsf LATC,3,0 bra _lbl__158 _lbl__184 F1_000469 equ $ ; in [MELAUTON_VALVES.BAS] Case 73 movlw 73 subwf noteAan,W,0 bnz _lbl__186 F1_000470 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.0 bsf LATD,0,0 bra _lbl__158 _lbl__186 F1_000471 equ $ ; in [MELAUTON_VALVES.BAS] Case 74 movlw 74 subwf noteAan,W,0 bnz _lbl__188 F1_000472 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.1 bsf LATD,1,0 bra _lbl__158 _lbl__188 F1_000473 equ $ ; in [MELAUTON_VALVES.BAS] Case 75 movlw 75 subwf noteAan,W,0 bnz _lbl__190 F1_000474 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.7 bsf LATD,7,0 bra _lbl__158 _lbl__190 F1_000475 equ $ ; in [MELAUTON_VALVES.BAS] Case 76 movlw 76 subwf noteAan,W,0 bnz _lbl__192 F1_000476 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.6 bsf LATD,6,0 bra _lbl__158 _lbl__192 F1_000477 equ $ ; in [MELAUTON_VALVES.BAS] Case 77 movlw 77 subwf noteAan,W,0 bnz _lbl__194 F1_000478 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.5 bsf LATD,5,0 bra _lbl__158 _lbl__194 F1_000479 equ $ ; in [MELAUTON_VALVES.BAS] Case 78 movlw 78 subwf noteAan,W,0 bnz _lbl__196 F1_000480 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.4 bsf LATD,4,0 bra _lbl__158 _lbl__196 F1_000481 equ $ ; in [MELAUTON_VALVES.BAS] Case 79 movlw 79 subwf noteAan,W,0 bnz _lbl__198 F1_000482 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.5 bsf LATC,5,0 bra _lbl__158 _lbl__198 F1_000483 equ $ ; in [MELAUTON_VALVES.BAS] Case 80 movlw 80 subwf noteAan,W,0 bnz _lbl__200 F1_000484 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTC.4 bsf LATC,4,0 bra _lbl__158 _lbl__200 F1_000485 equ $ ; in [MELAUTON_VALVES.BAS] Case 81 movlw 81 subwf noteAan,W,0 bnz _lbl__202 F1_000486 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.3 bsf LATD,3,0 bra _lbl__158 _lbl__202 F1_000487 equ $ ; in [MELAUTON_VALVES.BAS] Case 82 movlw 82 subwf noteAan,W,0 bnz _lbl__204 F1_000488 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTD.2 bsf LATD,2,0 bra _lbl__158 _lbl__204 F1_000489 equ $ ; in [MELAUTON_VALVES.BAS] Case 83 movlw 83 subwf noteAan,W,0 bnz _lbl__206 F1_000490 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTB.0 bsf LATB,0,0 bra _lbl__158 _lbl__206 F1_000491 equ $ ; in [MELAUTON_VALVES.BAS] Case 84 movlw 84 subwf noteAan,W,0 bnz _lbl__208 F1_000492 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTB.1 bsf LATB,1,0 bra _lbl__158 _lbl__208 F1_000493 equ $ ; in [MELAUTON_VALVES.BAS] Case Extra movlw 120 subwf noteAan,W,0 bnz _lbl__210 F1_000494 equ $ ; in [MELAUTON_VALVES.BAS] Set PORTB.2 bsf LATB,2,0 F1_000495 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__210 _lbl__158 F1_000496 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__157 F1_000497 equ $ ; in [MELAUTON_VALVES.BAS] Set noteAan setf noteAan,0 F1_000498 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__155 F1_000499 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__99 bra _lbl__34 _lbl__96 F1_000500 equ $ ; in [MELAUTON_VALVES.BAS] Case Keypres_Status movlw 161 subwf statusbyte,W,0 bnz _lbl__212 F1_000501 equ $ ; in [MELAUTON_VALVES.BAS] if notePres = 255 Then incf notePres,W,0 bnz _lbl__214 F1_000502 equ $ ; in [MELAUTON_VALVES.BAS] notePres = Bytein movff Bytein,notePres bra _lbl__215 _lbl__214 F1_000503 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000504 equ $ ; in [MELAUTON_VALVES.BAS] pres = Bytein movff Bytein,pres F1_000505 equ $ ; in [MELAUTON_VALVES.BAS] KeyPres () rcall KeyPres F1_000506 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__215 F1_000507 equ $ ; in [MELAUTON_VALVES.BAS] goto Check_Timers bra Check_Timers bra _lbl__34 _lbl__212 F1_000508 equ $ ; in [MELAUTON_VALVES.BAS] Case Control_Status movlw 177 subwf statusbyte,W,0 bnz _lbl__217 F1_000509 equ $ ; in [MELAUTON_VALVES.BAS] if Ctrl = 255 Then incf Ctrl,W,0 bnz _lbl__219 F1_000510 equ $ ; in [MELAUTON_VALVES.BAS] Ctrl = Bytein movff Bytein,Ctrl bra _lbl__220 _lbl__219 F1_000511 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000512 equ $ ; in [MELAUTON_VALVES.BAS] value = Bytein movff Bytein,value F1_000513 equ $ ; in [MELAUTON_VALVES.BAS] Controller () rcall Controller F1_000514 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__220 F1_000525 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__217 _lbl__34 F1_000526 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__33 F1_000528 equ $ ; in [MELAUTON_VALVES.BAS] if Resort_flag = 1 Then movlb 1 rrcf Resort,W,1 movlb 0 bnc _lbl__222 F1_000529 equ $ ; in [MELAUTON_VALVES.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx F1_000531 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__222 Check_Timers F1_000534 equ $ ; in [MELAUTON_VALVES.BAS] if idx < NrTasks Then movlw 2 subwf idx,W,0 bc _lbl__224 F1_000535 equ $ ; in [MELAUTON_VALVES.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 bnc _lbl__226 F1_000537 equ $ ; in [MELAUTON_VALVES.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000539 equ $ ; in [MELAUTON_VALVES.BAS] Select idx F1_000540 equ $ ; in [MELAUTON_VALVES.BAS] Case 0 movf idx,F,0 bnz _lbl__228 F1_000541 equ $ ; in [MELAUTON_VALVES.BAS] Set Timvals[0] movlb 1 setf Timvals#0HHH,1 setf Timvals#0HH,1 setf Timvals#0H,1 setf Timvals#0,1 movlb 0 bra _lbl__227 _lbl__228 F1_000542 equ $ ; in [MELAUTON_VALVES.BAS] Case 1 movlw 1 subwf idx,W,0 bnz _lbl__231 F1_000543 equ $ ; in [MELAUTON_VALVES.BAS] Set Timvals[1] movlb 1 setf Timvals#1HHH,1 setf Timvals#1HH,1 setf Timvals#1H,1 setf Timvals#1,1 F1_000547 equ $ ; in [MELAUTON_VALVES.BAS] EndSelect _lbl__231 movlb 0 _lbl__227 F1_000549 equ $ ; in [MELAUTON_VALVES.BAS] idx = SortTimers () call SortTimers movff SortTimersResult,idx F1_000550 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__226 bra _lbl__232 _lbl__224 F1_000551 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000553 equ $ ; in [MELAUTON_VALVES.BAS] if MaxTim = 1 Then btfss timeHHH,6,0 bra _lbl__234 F1_000554 equ $ ; in [MELAUTON_VALVES.BAS] Clear Cnt clrf CntHHH,0 clrf CntHH,0 clrf CntH,0 clrf Cnt,0 F1_000555 equ $ ; in [MELAUTON_VALVES.BAS] Set Timvals lfsr 0,Timvals movlw 8 _pblb__235 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__235 F1_000556 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__234 F1_000557 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__232 F1_000560 equ $ ; in [MELAUTON_VALVES.BAS] btg PORTB.4 btg PORTB,4 _lbl__10 F1_000565 equ $ ; in [MELAUTON_VALVES.BAS] Loop goto _lbl__8 _lbl__9 F1_000608 equ $ ; in [MELAUTON_VALVES.BAS] Sub KeyPres () KeyPres F1_000609 equ $ ; in [MELAUTON_VALVES.BAS] Set notePres setf notePres,0 F1_000610 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000612 equ $ ; in [MELAUTON_VALVES.BAS] Sub ProgChange () ProgChange F1_000613 equ $ ; in [MELAUTON_VALVES.BAS] Set prog setf prog,0 F1_000614 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000616 equ $ ; in [MELAUTON_VALVES.BAS] Sub Pitchbend () Pitchbend F1_000618 equ $ ; in [MELAUTON_VALVES.BAS] Set pblsb setf pblsb,0 F1_000619 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000621 equ $ ; in [MELAUTON_VALVES.BAS] Sub Aftertouch () Aftertouch F1_000637 equ $ ; in [MELAUTON_VALVES.BAS] Set aft setf aft,0 F1_000638 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000640 equ $ ; in [MELAUTON_VALVES.BAS] Sub Controller () Controller F1_000641 equ $ ; in [MELAUTON_VALVES.BAS] Select Ctrl F1_000642 equ $ ; in [MELAUTON_VALVES.BAS] Case 66 movlw 66 subwf Ctrl,W,0 bnz _lbl__237 F1_000644 equ $ ; in [MELAUTON_VALVES.BAS] if value = 0 Then movf value,F,0 bnz _lbl__240 F1_000645 equ $ ; in [MELAUTON_VALVES.BAS] Clear PowerOn bcf CC66,0,0 F1_000646 equ $ ; in [MELAUTON_VALVES.BAS] PowerDown () rcall PowerDown F1_000647 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.5 bcf TRISB,5,0 bcf LATB,5,0 bra _lbl__241 _lbl__240 F1_000648 equ $ ; in [MELAUTON_VALVES.BAS] else F1_000649 equ $ ; in [MELAUTON_VALVES.BAS] Set PowerOn bsf CC66,0,0 F1_000650 equ $ ; in [MELAUTON_VALVES.BAS] high PORTB.5 bcf TRISB,5,0 bsf LATB,5,0 F1_000651 equ $ ; in [MELAUTON_VALVES.BAS] endif _lbl__241 bra _lbl__236 _lbl__237 F1_000652 equ $ ; in [MELAUTON_VALVES.BAS] Case 123 movlw 123 subwf Ctrl,W,0 bnz _lbl__243 F1_000654 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000655 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000656 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000657 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000658 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000659 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000660 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000661 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000662 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000663 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000664 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000665 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000666 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000667 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000668 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000669 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000670 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000671 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000672 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000673 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000674 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000675 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000676 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000677 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000678 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000679 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000680 equ $ ; in [MELAUTON_VALVES.BAS] end Select _lbl__243 _lbl__236 F1_000681 equ $ ; in [MELAUTON_VALVES.BAS] Set Ctrl setf Ctrl,0 F1_000682 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000685 equ $ ; in [MELAUTON_VALVES.BAS] Sub PowerDown () PowerDown F1_000687 equ $ ; in [MELAUTON_VALVES.BAS] Set Timvals lfsr 0,Timvals movlw 8 _pblb__244 setf POSTINC0,0 decfsz WREG,F,0 bra _pblb__244 F1_000688 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.0 bcf TRISA,0,0 bcf LATA,0,0 F1_000689 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.1 bcf TRISA,1,0 bcf LATA,1,0 F1_000690 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.2 bcf TRISA,2,0 bcf LATA,2,0 F1_000691 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.3 bcf TRISA,3,0 bcf LATA,3,0 F1_000692 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.4 bcf TRISA,4,0 bcf LATA,4,0 F1_000693 equ $ ; in [MELAUTON_VALVES.BAS] low PORTA.5 bcf TRISA,5,0 bcf LATA,5,0 F1_000694 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.0 bcf TRISE,0,0 bcf LATE,0,0 F1_000695 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.1 bcf TRISE,1,0 bcf LATE,1,0 F1_000696 equ $ ; in [MELAUTON_VALVES.BAS] low PORTE.2 bcf TRISE,2,0 bcf LATE,2,0 F1_000697 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.0 bcf TRISC,0,0 bcf LATC,0,0 F1_000698 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.1 bcf TRISC,1,0 bcf LATC,1,0 F1_000699 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.2 bcf TRISC,2,0 bcf LATC,2,0 F1_000700 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.3 bcf TRISC,3,0 bcf LATC,3,0 F1_000701 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.0 bcf TRISD,0,0 bcf LATD,0,0 F1_000702 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.1 bcf TRISD,1,0 bcf LATD,1,0 F1_000703 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.7 bcf TRISD,7,0 bcf LATD,7,0 F1_000704 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.6 bcf TRISD,6,0 bcf LATD,6,0 F1_000705 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.5 bcf TRISD,5,0 bcf LATD,5,0 F1_000706 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.4 bcf TRISD,4,0 bcf LATD,4,0 F1_000707 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.5 bcf TRISC,5,0 bcf LATC,5,0 F1_000708 equ $ ; in [MELAUTON_VALVES.BAS] low PORTC.4 bcf TRISC,4,0 bcf LATC,4,0 F1_000709 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.3 bcf TRISD,3,0 bcf LATD,3,0 F1_000710 equ $ ; in [MELAUTON_VALVES.BAS] low PORTD.2 bcf TRISD,2,0 bcf LATD,2,0 F1_000711 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.0 bcf TRISB,0,0 bcf LATB,0,0 F1_000712 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.1 bcf TRISB,1,0 bcf LATB,1,0 F1_000713 equ $ ; in [MELAUTON_VALVES.BAS] low PORTB.2 bcf TRISB,2,0 bcf LATB,2,0 F1_000714 equ $ ; in [MELAUTON_VALVES.BAS] EndSub return 0 ; EndSub ;--------------------------------------------- F1_000716 equ $ ; in [MELAUTON_VALVES.BAS] Sub Dur_Lookup () Dur_Lookup F1_000717 equ $ ; in [MELAUTON_VALVES.BAS] Set Dur[0] movlb 1 setf Dur#0H,1 setf Dur#0,1 F1_000720 equ $ ; in [MELAUTON_VALVES.BAS] Dur[1] = 23674 movlw 92 movwf Dur#1H,1 movlw 122 movwf Dur#1,1 F1_000721 equ $ ; in [MELAUTON_VALVES.BAS] Dur[2] = 22917 movlw 89 movwf Dur#2H,1 movlw 133 movwf Dur#2,1 F1_000722 equ $ ; in [MELAUTON_VALVES.BAS] Dur[3] = 22548 movlw 88 movwf Dur#3H,1 movlw 20 movwf Dur#3,1 F1_000723 equ $ ; in [MELAUTON_VALVES.BAS] Dur[4] = 22185 movlw 86 movwf Dur#4H,1 movlw 169 movwf Dur#4,1 F1_000724 equ $ ; in [MELAUTON_VALVES.BAS] Dur[5] = 21827 movlw 85 movwf Dur#5H,1 movlw 67 movwf Dur#5,1 F1_000725 equ $ ; in [MELAUTON_VALVES.BAS] Dur[6] = 21475 movlw 83 movwf Dur#6H,1 movlw 227 movwf Dur#6,1 F1_000726 equ $ ; in [MELAUTON_VALVES.BAS] Dur[7] = 21129 movlw 82 movwf Dur#7H,1 movlw 137 movwf Dur#7,1 F1_000727 equ $ ; in [MELAUTON_VALVES.BAS] Dur[8] = 20789 movlw 81 movwf Dur#8H,1 movlw 53 movwf Dur#8,1 F1_000728 equ $ ; in [MELAUTON_VALVES.BAS] Dur[9] = 20454 movlw 79 movwf Dur#9H,1 movlw 230 movwf Dur#9,1 F1_000729 equ $ ; in [MELAUTON_VALVES.BAS] Dur[10] = 20124 movlw 78 movwf Dur#10H,1 movlw 156 movwf Dur#10,1 F1_000730 equ $ ; in [MELAUTON_VALVES.BAS] Dur[11] = 19800 movlw 77 movwf Dur#11H,1 movlw 88 movwf Dur#11,1 F1_000731 equ $ ; in [MELAUTON_VALVES.BAS] Dur[12] = 19481 movlw 76 movwf Dur#12H,1 movlw 25 movwf Dur#12,1 F1_000732 equ $ ; in [MELAUTON_VALVES.BAS] Dur[13] = 19167 movlw 74 movwf Dur#13H,1 movlw 223 movwf Dur#13,1 F1_000733 equ $ ; in [MELAUTON_VALVES.BAS] Dur[14] = 18858 movlw 73 movwf Dur#14H,1 movlw 170 movwf Dur#14,1 F1_000734 equ $ ; in [MELAUTON_VALVES.BAS] Dur[15] = 18554 movlw 72 movwf Dur#15H,1 movlw 122 movwf Dur#15,1 F1_000735 equ $ ; in [MELAUTON_VALVES.BAS] Dur[16] = 18255 movlw 71 movwf Dur#16H,1 movlw 79 movwf Dur#16,1 F1_000736 equ $ ; in [MELAUTON_VALVES.BAS] Dur[17] = 17961 movlw 70 movwf Dur#17H,1 movlw 41 movwf Dur#17,1 F1_000737 equ $ ; in [MELAUTON_VALVES.BAS] Dur[18] = 17672 movlw 69 movwf Dur#18H,1 movlw 8 movwf Dur#18,1 F1_000738 equ $ ; in [MELAUTON_VALVES.BAS] Dur[19] = 17387 movlw 67 movwf Dur#19H,1 movlw 235 movwf Dur#19,1 F1_000739 equ $ ; in [MELAUTON_VALVES.BAS] Dur[20] = 17107 movlw 66 movwf Dur#20H,1 movlw 211 movwf Dur#20,1 F1_000740 equ $ ; in [MELAUTON_VALVES.BAS] Dur[21] = 16831 movlw 65 movwf Dur#21H,1 movlw 191 movwf Dur#21,1 F1_000741 equ $ ; in [MELAUTON_VALVES.BAS] Dur[22] = 16560 movlw 64 movwf Dur#22H,1 movlw 176 movwf Dur#22,1 F1_000742 equ $ ; in [MELAUTON_VALVES.BAS] Dur[23] = 16293 movlw 63 movwf Dur#23H,1 movlw 165 movwf Dur#23,1 F1_000743 equ $ ; in [MELAUTON_VALVES.BAS] Dur[24] = 16030 movlw 62 movwf Dur#24H,1 movlw 158 movwf Dur#24,1 F1_000744 equ $ ; in [MELAUTON_VALVES.BAS] Dur[25] = 15772 movlw 61 movwf Dur#25H,1 movlw 156 movwf Dur#25,1 F1_000745 equ $ ; in [MELAUTON_VALVES.BAS] Dur[26] = 15518 movlw 60 movwf Dur#26H,1 movlw 158 movwf Dur#26,1 F1_000746 equ $ ; in [MELAUTON_VALVES.BAS] Dur[27] = 15268 movlw 59 movwf Dur#27H,1 movlw 164 movwf Dur#27,1 F1_000747 equ $ ; in [MELAUTON_VALVES.BAS] Dur[28] = 15022 movlw 58 movwf Dur#28H,1 movlw 174 movwf Dur#28,1 F1_000748 equ $ ; in [MELAUTON_VALVES.BAS] Dur[29] = 14780 movlw 57 movwf Dur#29H,1 movlw 188 movwf Dur#29,1 F1_000749 equ $ ; in [MELAUTON_VALVES.BAS] Dur[30] = 14542 movlw 56 movwf Dur#30H,1 movlw 206 movwf Dur#30,1 F1_000750 equ $ ; in [MELAUTON_VALVES.BAS] Dur[31] = 14307 movlw 55 movwf Dur#31H,1 movlw 227 movwf Dur#31,1 F1_000751 equ $ ; in [MELAUTON_VALVES.BAS] Dur[32] = 14077 movlw 54 movwf Dur#32H,1 movlw 253 movwf Dur#32,1 F1_000752 equ $ ; in [MELAUTON_VALVES.BAS] Dur[33] = 13850 movlw 54 movwf Dur#33H,1 movlw 26 movwf Dur#33,1 F1_000753 equ $ ; in [MELAUTON_VALVES.BAS] Dur[34] = 13627 movlw 53 movwf Dur#34H,1 movlw 59 movwf Dur#34,1 F1_000754 equ $ ; in [MELAUTON_VALVES.BAS] Dur[35] = 13407 movlw 52 movwf Dur#35H,1 movlw 95 movwf Dur#35,1 F1_000755 equ $ ; in [MELAUTON_VALVES.BAS] Dur[36] = 13191 movlw 51 movwf Dur#36H,1 movlw 135 movwf Dur#36,1 F1_000756 equ $ ; in [MELAUTON_VALVES.BAS] Dur[37] = 12978 movlw 50 movwf Dur#37H,1 movlw 178 movwf Dur#37,1 F1_000757 equ $ ; in [MELAUTON_VALVES.BAS] Dur[38] = 12769 movlw 49 movwf Dur#38H,1 movlw 225 movwf Dur#38,1 F1_000758 equ $ ; in [MELAUTON_VALVES.BAS] Dur[39] = 12564 movlw 49 movwf Dur#39H,1 movlw 20 movwf Dur#39,1 F1_000759 equ $ ; in [MELAUTON_VALVES.BAS] Dur[40] = 12361 movlw 48 movwf Dur#40H,1 movlw 73 movwf Dur#40,1 F1_000760 equ $ ; in [MELAUTON_VALVES.BAS] Dur[41] = 12162 movlw 47 movwf Dur#41H,1 movlw 130 movwf Dur#41,1 F1_000761 equ $ ; in [MELAUTON_VALVES.BAS] Dur[42] = 11966 movlw 46 movwf Dur#42H,1 movlw 190 movwf Dur#42,1 F1_000762 equ $ ; in [MELAUTON_VALVES.BAS] Dur[43] = 11773 movlw 45 movwf Dur#43H,1 movlw 253 movwf Dur#43,1 F1_000763 equ $ ; in [MELAUTON_VALVES.BAS] Dur[44] = 11583 movlw 45 movwf Dur#44H,1 movlw 63 movwf Dur#44,1 F1_000764 equ $ ; in [MELAUTON_VALVES.BAS] Dur[45] = 11397 movlw 44 movwf Dur#45H,1 movlw 133 movwf Dur#45,1 F1_000765 equ $ ; in [MELAUTON_VALVES.BAS] Dur[46] = 11213 movlw 43 movwf Dur#46H,1 movlw 205 movwf Dur#46,1 F1_000766 equ $ ; in [MELAUTON_VALVES.BAS] Dur[47] = 11032 movlw 43 movwf Dur#47H,1 movlw 24 movwf Dur#47,1 F1_000767 equ $ ; in [MELAUTON_VALVES.BAS] Dur[48] = 10855 movlw 42 movwf Dur#48H,1 movlw 103 movwf Dur#48,1 F1_000768 equ $ ; in [MELAUTON_VALVES.BAS] Dur[49] = 10680 movlw 41 movwf Dur#49H,1 movlw 184 movwf Dur#49,1 F1_000769 equ $ ; in [MELAUTON_VALVES.BAS] Dur[50] = 10508 movlw 41 movwf Dur#50H,1 movlw 12 movwf Dur#50,1 F1_000770 equ $ ; in [MELAUTON_VALVES.BAS] Dur[51] = 10338 movlw 40 movwf Dur#51H,1 movlw 98 movwf Dur#51,1 F1_000771 equ $ ; in [MELAUTON_VALVES.BAS] Dur[52] = 10172 movlw 39 movwf Dur#52H,1 movlw 188 movwf Dur#52,1 F1_000772 equ $ ; in [MELAUTON_VALVES.BAS] Dur[53] = 10008 movlw 39 movwf Dur#53H,1 movlw 24 movwf Dur#53,1 F1_000773 equ $ ; in [MELAUTON_VALVES.BAS] Dur[54] = 9846 movlw 38 movwf Dur#54H,1 movlw 118 movwf Dur#54,1 F1_000774 equ $ ; in [MELAUTON_VALVES.BAS] Dur[55] = 9688 movlw 37 movwf Dur#55H,1 movlw 216 movwf Dur#55,1 F1_000775 equ $ ; in [MELAUTON_VALVES.BAS] Dur[56] = 9532 movlw 37 movwf Dur#56H,1 movlw 60 movwf Dur#56,1 F1_000776 equ $ ; in [MELAUTON_VALVES.BAS] Dur[57] = 9378 movlw 36 movwf Dur#57H,1 movlw 162 movwf Dur#57,1 F1_000777 equ $ ; in [MELAUTON_VALVES.BAS] Dur[58] = 9227 movlw 36 movwf Dur#58H,1 movlw 11 movwf Dur#58,1 F1_000778 equ $ ; in [MELAUTON_VALVES.BAS] Dur[59] = 9078 movlw 35 movwf Dur#59H,1 movlw 118 movwf Dur#59,1 F1_000779 equ $ ; in [MELAUTON_VALVES.BAS] Dur[60] = 8932 movlw 34 movwf Dur#60H,1 movlw 228 movwf Dur#60,1 F1_000780 equ $ ; in [MELAUTON_VALVES.BAS] Dur[61] = 8788 movlw 34 movwf Dur#61H,1 movlw 84 movwf Dur#61,1 F1_000781 equ $ ; in [MELAUTON_VALVES.BAS] Dur[62] = 8646 movlw 33 movwf Dur#62H,1 movlw 198 movwf Dur#62,1 F1_000782 equ $ ; in [MELAUTON_VALVES.BAS] Dur[63] = 8507 movlw 33 movwf Dur#63H,1 movlw 59 movwf Dur#63,1 F1_000783 equ $ ; in [MELAUTON_VALVES.BAS] Dur[64] = 8370 movlw 32 movwf Dur#64H,1 movlw 178 movwf Dur#64,1 F1_000784 equ $ ; in [MELAUTON_VALVES.BAS] Dur[65] = 8235 movlw 32 movwf Dur#65H,1 movlw 43 movwf Dur#65,1 F1_000785 equ $ ; in [MELAUTON_VALVES.BAS] Dur[66] = 8102 movlw 31 movwf Dur#66H,1 movlw 166 movwf Dur#66,1 F1_000786 equ $ ; in [MELAUTON_VALVES.BAS] Dur[67] = 7972 movlw 31 movwf Dur#67H,1 movlw 36 movwf Dur#67,1 F1_000787 equ $ ; in [MELAUTON_VALVES.BAS] Dur[68] = 7843 movlw 30 movwf Dur#68H,1 movlw 163 movwf Dur#68,1 F1_000788 equ $ ; in [MELAUTON_VALVES.BAS] Dur[69] = 7717 movlw 30 movwf Dur#69H,1 movlw 37 movwf Dur#69,1 F1_000789 equ $ ; in [MELAUTON_VALVES.BAS] Dur[70] = 7593 movlw 29 movwf Dur#70H,1 movlw 169 movwf Dur#70,1 F1_000790 equ $ ; in [MELAUTON_VALVES.BAS] Dur[71] = 7470 movlw 29 movwf Dur#71H,1 movlw 46 movwf Dur#71,1 F1_000791 equ $ ; in [MELAUTON_VALVES.BAS] Dur[72] = 7350 movlw 28 movwf Dur#72H,1 movlw 182 movwf Dur#72,1 F1_000792 equ $ ; in [MELAUTON_VALVES.BAS] Dur[73] = 7231 movlw 28 movwf Dur#73H,1 movlw 63 movwf Dur#73,1 F1_000793 equ $ ; in [MELAUTON_VALVES.BAS] Dur[74] = 7115 movlw 27 movwf Dur#74H,1 movlw 203 movwf Dur#74,1 F1_000794 equ $ ; in [MELAUTON_VALVES.BAS] Dur[75] = 7000 movlw 27 movwf Dur#75H,1 movlw 88 movwf Dur#75,1 F1_000795 equ $ ; in [MELAUTON_VALVES.BAS] Dur[76] = 6888 movlw 26 movwf Dur#76H,1 movlw 232 movwf Dur#76,1 F1_000796 equ $ ; in [MELAUTON_VALVES.BAS] Dur[77] = 6777 movlw 26 movwf Dur#77H,1 movlw 121 movwf Dur#77,1 F1_000797 equ $ ; in [MELAUTON_VALVES.BAS] Dur[78] = 6667 movlw 26 movwf Dur#78H,1 movlw 11 movwf Dur#78,1 F1_000798 equ $ ; in [MELAUTON_VALVES.BAS] Dur[79] = 6560 movlw 25 movwf Dur#79H,1 movlw 160 movwf Dur#79,1 F1_000799 equ $ ; in [MELAUTON_VALVES.BAS] Dur[80] = 6454 movlw 25 movwf Dur#80H,1 movlw 54 movwf Dur#80,1 F1_000800 equ $ ; in [MELAUTON_VALVES.BAS] Dur[81] = 6350 movlw 24 movwf Dur#81H,1 movlw 206 movwf Dur#81,1 F1_000801 equ $ ; in [MELAUTON_VALVES.BAS] Dur[82] = 6248 movlw 24 movwf Dur#82H,1 movlw 104 movwf Dur#82,1 F1_000802 equ $ ; in [MELAUTON_VALVES.BAS] Dur[83] = 6147 movlw 24 movwf Dur#83H,1 movlw 3 movwf Dur#83,1 F1_000803 equ $ ; in [MELAUTON_VALVES.BAS] Dur[84] = 6048 movlw 23 movwf Dur#84H,1 movlw 160 movwf Dur#84,1 F1_000804 equ $ ; in [MELAUTON_VALVES.BAS] Dur[85] = 5951 movlw 23 movwf Dur#85H,1 movlw 63 movwf Dur#85,1 F1_000805 equ $ ; in [MELAUTON_VALVES.BAS] Dur[86] = 5855 movlw 22 movwf Dur#86H,1 movlw 223 movwf Dur#86,1 F1_000806 equ $ ; in [MELAUTON_VALVES.BAS] Dur[87] = 5760 movlw 22 movwf Dur#87H,1 movlw 128 movwf Dur#87,1 F1_000807 equ $ ; in [MELAUTON_VALVES.BAS] Dur[88] = 5668 movlw 22 movwf Dur#88H,1 movlw 36 movwf Dur#88,1 F1_000808 equ $ ; in [MELAUTON_VALVES.BAS] Dur[89] = 5576 movlw 21 movwf Dur#89H,1 movlw 200 movwf Dur#89,1 F1_000809 equ $ ; in [MELAUTON_VALVES.BAS] Dur[90] = 5486 movlw 21 movwf Dur#90H,1 movlw 110 movwf Dur#90,1 F1_000810 equ $ ; in [MELAUTON_VALVES.BAS] Dur[91] = 5398 movlw 21 movwf Dur#91H,1 movlw 22 movwf Dur#91,1 F1_000811 equ $ ; in [MELAUTON_VALVES.BAS] Dur[92] = 5311 movlw 20 movwf Dur#92H,1 movlw 191 movwf Dur#92,1 F1_000812 equ $ ; in [MELAUTON_VALVES.BAS] Dur[93] = 5225 movlw 20 movwf Dur#93H,1 movlw 105 movwf Dur#93,1 F1_000813 equ $ ; in [MELAUTON_VALVES.BAS] Dur[94] = 5141 movlw 20 movwf Dur#94H,1 movlw 21 movwf Dur#94,1 F1_000814 equ $ ; in [MELAUTON_VALVES.BAS] Dur[95] = 5058 movlw 19 movwf Dur#95H,1 movlw 194 movwf Dur#95,1 F1_000815 equ $ ; in [MELAUTON_VALVES.BAS] Dur[96] = 4977 movlw 19 movwf Dur#96H,1 movlw 113 movwf Dur#96,1 F1_000816 equ $ ; in [MELAUTON_VALVES.BAS] Dur[97] = 4897 movlw 19 movwf Dur#97H,1 movlw 33 movwf Dur#97,1 F1_000817 equ $ ; in [MELAUTON_VALVES.BAS] Dur[98] = 4818 movlw 18 movwf Dur#98H,1 movlw 210 movwf Dur#98,1 F1_000818 equ $ ; in [MELAUTON_VALVES.BAS] Dur[99] = 4740 movlb 2 movlw 18 movwf Dur#99H,1 movlb 1 movlw 132 movwf Dur#99,1 F1_000819 equ $ ; in [MELAUTON_VALVES.BAS] Dur[100] = 4664 movlb 2 movlw 18 movwf Dur#100H,1 movlw 56 movwf Dur#100,1 F1_000820 equ $ ; in [MELAUTON_VALVES.BAS] Dur[101] = 4589 movlw 17 movwf Dur#101H,1 movlw 237 movwf Dur#101,1 F1_000821 equ $ ; in [MELAUTON_VALVES.BAS] Dur[102] = 4515 movlw 17 movwf Dur#102H,1 movlw 163 movwf Dur#102,1 F1_000822 equ $ ; in [MELAUTON_VALVES.BAS] Dur[103] = 4442 movlw 17 movwf Dur#103H,1 movlw 90 movwf Dur#103,1 F1_000823 equ $ ; in [MELAUTON_VALVES.BAS] Dur[104] = 4370 movlw 17 movwf Dur#104H,1 movlw 18 movwf Dur#104,1 F1_000824 equ $ ; in [MELAUTON_VALVES.BAS] Dur[105] = 4300 movlw 16 movwf Dur#105H,1 movlw 204 movwf Dur#105,1 F1_000825 equ $ ; in [MELAUTON_VALVES.BAS] Dur[106] = 4231 movlw 16 movwf Dur#106H,1 movlw 135 movwf Dur#106,1 F1_000826 equ $ ; in [MELAUTON_VALVES.BAS] Dur[107] = 4162 movlw 16 movwf Dur#107H,1 movlw 66 movwf Dur#107,1 F1_000827 equ $ ; in [MELAUTON_VALVES.BAS] Dur[108] = 4095 movlw 15 movwf Dur#108H,1 setf Dur#108,1 F1_000828 equ $ ; in [MELAUTON_VALVES.BAS] Dur[109] = 4029 movwf Dur#109H,1 movlw 189 movwf Dur#109,1 F1_000829 equ $ ; in [MELAUTON_VALVES.BAS] Dur[110] = 3964 movlw 15 movwf Dur#110H,1 movlw 124 movwf Dur#110,1 F1_000830 equ $ ; in [MELAUTON_VALVES.BAS] Dur[111] = 3901 movlw 15 movwf Dur#111H,1 movlw 61 movwf Dur#111,1 F1_000831 equ $ ; in [MELAUTON_VALVES.BAS] Dur[112] = 3838 movlw 14 movwf Dur#112H,1 movlw 254 movwf Dur#112,1 F1_000832 equ $ ; in [MELAUTON_VALVES.BAS] Dur[113] = 3776 movlw 14 movwf Dur#113H,1 movlw 192 movwf Dur#113,1 F1_000833 equ $ ; in [MELAUTON_VALVES.BAS] Dur[114] = 3715 movlw 14 movwf Dur#114H,1 movlw 131 movwf Dur#114,1 F1_000834 equ $ ; in [MELAUTON_VALVES.BAS] Dur[115] = 3655 movlw 14 movwf Dur#115H,1 movlw 71 movwf Dur#115,1 F1_000835 equ $ ; in [MELAUTON_VALVES.BAS] Dur[116] = 3596 movlw 14 movwf Dur#116H,1 movlw 12 movwf Dur#116,1 F1_000836 equ $ ; in [MELAUTON_VALVES.BAS] Dur[117] = 3538 movlw 13 movwf Dur#117H,1 movlw 210 movwf Dur#117,1 F1_000837 equ $ ; in [MELAUTON_VALVES.BAS] Dur[118] = 3481 movlw 13 movwf Dur#118H,1 movlw 153 movwf Dur#118,1 F1_000838 equ $ ; in [MELAUTON_VALVES.BAS] Dur[119] = 3425 movlw 13 movwf Dur#119H,1 movlw 97 movwf Dur#119,1 F1_000839 equ $ ; in [MELAUTON_VALVES.BAS] Dur[120] = 3370 movlw 13 movwf Dur#120H,1 movlw 42 movwf Dur#120,1 F1_000840 equ $ ; in [MELAUTON_VALVES.BAS] Dur[121] = 3316 movlw 12 movwf Dur#121H,1 movlw 244 movwf Dur#121,1 F1_000841 equ $ ; in [MELAUTON_VALVES.BAS] Dur[122] = 3262 movlw 12 movwf Dur#122H,1 movlw 190 movwf Dur#122,1 F1_000842 equ $ ; in [MELAUTON_VALVES.BAS] Dur[123] = 3210 movlw 12 movwf Dur#123H,1 movlw 138 movwf Dur#123,1 F1_000843 equ $ ; in [MELAUTON_VALVES.BAS] Dur[124] = 3158 movlw 12 movwf Dur#124H,1 movlw 86 movwf Dur#124,1 F1_000844 equ $ ; in [MELAUTON_VALVES.BAS] Dur[125] = 3107 movlw 12 movwf Dur#125H,1 movlw 35 movwf Dur#125,1 F1_000845 equ $ ; in [MELAUTON_VALVES.BAS] Dur[126] = 3057 movlw 11 movwf Dur#126H,1 movlw 241 movwf Dur#126,1 F1_000846 equ $ ; in [MELAUTON_VALVES.BAS] Dur[127] = 3008 movlw 11 movwf Dur#127H,1 movlw 192 movwf Dur#127,1 F1_000849 equ $ ; in [MELAUTON_VALVES.BAS] For I = 0 To 127 clrf _I,0 _frlb__245 movlb 0 movlw 128 subwf _I,W,0 bc _nxlb__246 F1_000850 equ $ ; in [MELAUTON_VALVES.BAS] Dur[I] = Dur[I] >> 4 lfsr 0,Dur bcf STATUS,0,0 rlcf _I,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0H,F,0 movff POSTINC0,PBS_VAR1 movff INDF0,PBS_VAR1H rrcf PBS_VAR1H,W,0 movwf PBS_VAR0H,0 rrcf PBS_VAR1,W,0 movwf PBS_VAR0,0 rrcf PBS_VAR0H,F,0 rrcf PBS_VAR0,F,0 rrcf PBS_VAR0H,F,0 rrcf PBS_VAR0,F,0 rrcf PBS_VAR0H,F,0 rrcf PBS_VAR0,F,0 movlw 15 andwf PBS_VAR0H,F,0 lfsr 0,Dur 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__247 F1_000851 equ $ ; in [MELAUTON_VALVES.BAS] Next I incf _I,F,0 bnc _frlb__245 _nxlb__246 F1_000854 equ $ ; in [MELAUTON_VALVES.BAS] Set Dur5[0] movlb 2 setf Dur5#0H,1 setf Dur5#0,1 F1_000855 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[1] = 41667 movlw 162 movwf Dur5#1H,1 movlw 195 movwf Dur5#1,1 F1_000856 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[2] = 39494 movlw 154 movwf Dur5#2H,1 movlw 70 movwf Dur5#2,1 F1_000857 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[3] = 38450 movlw 150 movwf Dur5#3H,1 movlw 50 movwf Dur5#3,1 F1_000858 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[4] = 37434 movlw 146 movwf Dur5#4H,1 movlw 58 movwf Dur5#4,1 F1_000859 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[5] = 36445 movlw 142 movwf Dur5#5H,1 movlw 93 movwf Dur5#5,1 F1_000860 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[6] = 35482 movlw 138 movwf Dur5#6H,1 movlw 154 movwf Dur5#6,1 F1_000861 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[7] = 34544 movlw 134 movwf Dur5#7H,1 movlw 240 movwf Dur5#7,1 F1_000862 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[8] = 33631 movlw 131 movwf Dur5#8H,1 movlw 95 movwf Dur5#8,1 F1_000863 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[9] = 32743 movlw 127 movwf Dur5#9H,1 movlw 231 movwf Dur5#9,1 F1_000864 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[10] = 31877 movlw 124 movwf Dur5#10H,1 movlw 133 movwf Dur5#10,1 F1_000865 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[11] = 31035 movlw 121 movwf Dur5#11H,1 movlw 59 movwf Dur5#11,1 F1_000866 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[12] = 30215 movlw 118 movwf Dur5#12H,1 movlw 7 movwf Dur5#12,1 F1_000867 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[13] = 29416 movlw 114 movwf Dur5#13H,1 movlw 232 movwf Dur5#13,1 F1_000868 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[14] = 28639 movlw 111 movwf Dur5#14H,1 movlw 223 movwf Dur5#14,1 F1_000869 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[15] = 27882 movlw 108 movwf Dur5#15H,1 movlw 234 movwf Dur5#15,1 F1_000870 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[16] = 27146 movlw 106 movwf Dur5#16H,1 movlw 10 movwf Dur5#16,1 F1_000871 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[17] = 26428 movlw 103 movwf Dur5#17H,1 movlw 60 movwf Dur5#17,1 F1_000872 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[18] = 25730 movlw 100 movwf Dur5#18H,1 movlw 130 movwf Dur5#18,1 F1_000873 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[19] = 25050 movlw 97 movwf Dur5#19H,1 movlw 218 movwf Dur5#19,1 F1_000874 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[20] = 24388 movlw 95 movwf Dur5#20H,1 movlw 68 movwf Dur5#20,1 F1_000875 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[21] = 23743 movlw 92 movwf Dur5#21H,1 movlw 191 movwf Dur5#21,1 F1_000876 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[22] = 23116 movlw 90 movwf Dur5#22H,1 movlw 76 movwf Dur5#22,1 F1_000877 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[23] = 22505 movlw 87 movwf Dur5#23H,1 movlw 233 movwf Dur5#23,1 F1_000878 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[24] = 21910 movlw 85 movwf Dur5#24H,1 movlw 150 movwf Dur5#24,1 F1_000879 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[25] = 21331 movlw 83 movwf Dur5#25H,1 movwf Dur5#25,1 F1_000880 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[26] = 20768 movlw 81 movwf Dur5#26H,1 movlw 32 movwf Dur5#26,1 F1_000881 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[27] = 20219 movlw 78 movwf Dur5#27H,1 movlw 251 movwf Dur5#27,1 F1_000882 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[28] = 19685 movlw 76 movwf Dur5#28H,1 movlw 229 movwf Dur5#28,1 F1_000883 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[29] = 19164 movlw 74 movwf Dur5#29H,1 movlw 220 movwf Dur5#29,1 F1_000884 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[30] = 18658 movlw 72 movwf Dur5#30H,1 movlw 226 movwf Dur5#30,1 F1_000885 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[31] = 18165 movlw 70 movwf Dur5#31H,1 movlw 245 movwf Dur5#31,1 F1_000886 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[32] = 17685 movlw 69 movwf Dur5#32H,1 movlw 21 movwf Dur5#32,1 F1_000887 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[33] = 17218 movlw 67 movwf Dur5#33H,1 movlw 66 movwf Dur5#33,1 F1_000888 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[34] = 16763 movlw 65 movwf Dur5#34H,1 movlw 123 movwf Dur5#34,1 F1_000889 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[35] = 16320 movlw 63 movwf Dur5#35H,1 movlw 192 movwf Dur5#35,1 F1_000890 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[36] = 15888 movlw 62 movwf Dur5#36H,1 movlw 16 movwf Dur5#36,1 F1_000891 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[37] = 15469 movlw 60 movwf Dur5#37H,1 movlw 109 movwf Dur5#37,1 F1_000892 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[38] = 15060 movlw 58 movwf Dur5#38H,1 movlw 212 movwf Dur5#38,1 F1_000893 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[39] = 14662 movlw 57 movwf Dur5#39H,1 movlw 70 movwf Dur5#39,1 F1_000894 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[40] = 14274 movlw 55 movwf Dur5#40H,1 movlw 194 movwf Dur5#40,1 F1_000895 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[41] = 13897 movlw 54 movwf Dur5#41H,1 movlw 73 movwf Dur5#41,1 F1_000896 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[42] = 13530 movlw 52 movwf Dur5#42H,1 movlw 218 movwf Dur5#42,1 F1_000897 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[43] = 13172 movlw 51 movwf Dur5#43H,1 movlw 116 movwf Dur5#43,1 F1_000898 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[44] = 12824 movlw 50 movwf Dur5#44H,1 movlw 24 movwf Dur5#44,1 F1_000899 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[45] = 12485 movlw 48 movwf Dur5#45H,1 movlw 197 movwf Dur5#45,1 F1_000900 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[46] = 12155 movlw 47 movwf Dur5#46H,1 movlw 123 movwf Dur5#46,1 F1_000901 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[47] = 11834 movlw 46 movwf Dur5#47H,1 movlw 58 movwf Dur5#47,1 F1_000902 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[48] = 11522 movlw 45 movwf Dur5#48H,1 movlw 2 movwf Dur5#48,1 F1_000903 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[49] = 11217 movlw 43 movwf Dur5#49H,1 movlw 209 movwf Dur5#49,1 F1_000904 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[50] = 10921 movlw 42 movwf Dur5#50H,1 movlw 169 movwf Dur5#50,1 F1_000905 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[51] = 10632 movlw 41 movwf Dur5#51H,1 movlw 136 movwf Dur5#51,1 F1_000906 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[52] = 10351 movlw 40 movwf Dur5#52H,1 movlw 111 movwf Dur5#52,1 F1_000907 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[53] = 10078 movlw 39 movwf Dur5#53H,1 movlw 94 movwf Dur5#53,1 F1_000908 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[54] = 9811 movlw 38 movwf Dur5#54H,1 movlw 83 movwf Dur5#54,1 F1_000909 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[55] = 9552 movlw 37 movwf Dur5#55H,1 movlw 80 movwf Dur5#55,1 F1_000910 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[56] = 9300 movlw 36 movwf Dur5#56H,1 movlw 84 movwf Dur5#56,1 F1_000911 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[57] = 9054 movlw 35 movwf Dur5#57H,1 movlw 94 movwf Dur5#57,1 F1_000912 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[58] = 8815 movlw 34 movwf Dur5#58H,1 movlw 111 movwf Dur5#58,1 F1_000913 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[59] = 8582 movlw 33 movwf Dur5#59H,1 movlw 134 movwf Dur5#59,1 F1_000914 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[60] = 8355 movlw 32 movwf Dur5#60H,1 movlw 163 movwf Dur5#60,1 F1_000915 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[61] = 8134 movlw 31 movwf Dur5#61H,1 movlw 198 movwf Dur5#61,1 F1_000916 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[62] = 7919 movlw 30 movwf Dur5#62H,1 movlw 239 movwf Dur5#62,1 F1_000917 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[63] = 7710 movlw 30 movwf Dur5#63H,1 movwf Dur5#63,1 F1_000918 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[64] = 7506 movlw 29 movwf Dur5#64H,1 movlw 82 movwf Dur5#64,1 F1_000919 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[65] = 7308 movlw 28 movwf Dur5#65H,1 movlw 140 movwf Dur5#65,1 F1_000920 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[66] = 7115 movlw 27 movwf Dur5#66H,1 movlw 203 movwf Dur5#66,1 F1_000921 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[67] = 6927 movlw 27 movwf Dur5#67H,1 movlw 15 movwf Dur5#67,1 F1_000922 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[68] = 6744 movlw 26 movwf Dur5#68H,1 movlw 88 movwf Dur5#68,1 F1_000923 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[69] = 6565 movlw 25 movwf Dur5#69H,1 movlw 165 movwf Dur5#69,1 F1_000924 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[70] = 6392 movlw 24 movwf Dur5#70H,1 movlw 248 movwf Dur5#70,1 F1_000925 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[71] = 6223 movlw 24 movwf Dur5#71H,1 movlw 79 movwf Dur5#71,1 F1_000926 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[72] = 6059 movlw 23 movwf Dur5#72H,1 movlw 171 movwf Dur5#72,1 F1_000927 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[73] = 5898 movlw 23 movwf Dur5#73H,1 movlw 10 movwf Dur5#73,1 F1_000928 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[74] = 5743 movlw 22 movwf Dur5#74H,1 movlw 111 movwf Dur5#74,1 F1_000929 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[75] = 5591 movlw 21 movwf Dur5#75H,1 movlw 215 movwf Dur5#75,1 F1_000930 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[76] = 5443 movlw 21 movwf Dur5#76H,1 movlw 67 movwf Dur5#76,1 F1_000931 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[77] = 5299 movlw 20 movwf Dur5#77H,1 movlw 179 movwf Dur5#77,1 F1_000932 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[78] = 5159 movlw 20 movwf Dur5#78H,1 movlw 39 movwf Dur5#78,1 F1_000933 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[79] = 5023 movlw 19 movwf Dur5#79H,1 movlw 159 movwf Dur5#79,1 F1_000934 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[80] = 4890 movlw 19 movwf Dur5#80H,1 movlw 26 movwf Dur5#80,1 F1_000935 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[81] = 4761 movlw 18 movwf Dur5#81H,1 movlw 153 movwf Dur5#81,1 F1_000936 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[82] = 4635 movlw 18 movwf Dur5#82H,1 movlw 27 movwf Dur5#82,1 F1_000937 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[83] = 4513 movlw 17 movwf Dur5#83H,1 movlw 161 movwf Dur5#83,1 F1_000938 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[84] = 4393 movlw 17 movwf Dur5#84H,1 movlw 41 movwf Dur5#84,1 F1_000939 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[85] = 4277 movlw 16 movwf Dur5#85H,1 movlw 181 movwf Dur5#85,1 F1_000940 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[86] = 4164 movlw 16 movwf Dur5#86H,1 movlw 68 movwf Dur5#86,1 F1_000941 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[87] = 4054 movlw 15 movwf Dur5#87H,1 movlw 214 movwf Dur5#87,1 F1_000942 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[88] = 3947 movlw 15 movwf Dur5#88H,1 movlw 107 movwf Dur5#88,1 F1_000943 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[89] = 3843 movlw 15 movwf Dur5#89H,1 movlw 3 movwf Dur5#89,1 F1_000944 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[90] = 3741 movlw 14 movwf Dur5#90H,1 movlw 157 movwf Dur5#90,1 F1_000945 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[91] = 3642 movlw 14 movwf Dur5#91H,1 movlw 58 movwf Dur5#91,1 F1_000946 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[92] = 3546 movlw 13 movwf Dur5#92H,1 movlw 218 movwf Dur5#92,1 F1_000947 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[93] = 3452 movlw 13 movwf Dur5#93H,1 movlw 124 movwf Dur5#93,1 F1_000948 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[94] = 3361 movlw 13 movwf Dur5#94H,1 movlw 33 movwf Dur5#94,1 F1_000949 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[95] = 3272 movlw 12 movwf Dur5#95H,1 movlw 200 movwf Dur5#95,1 F1_000950 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[96] = 3186 movlw 12 movwf Dur5#96H,1 movlw 114 movwf Dur5#96,1 F1_000951 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[97] = 3102 movlw 12 movwf Dur5#97H,1 movlw 30 movwf Dur5#97,1 F1_000952 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[98] = 3020 movlw 11 movwf Dur5#98H,1 movlw 204 movwf Dur5#98,1 F1_000953 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[99] = 2940 movlb 3 movlw 11 movwf Dur5#99H,1 movlb 2 movlw 124 movwf Dur5#99,1 F1_000954 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[100] = 2862 movlb 3 movlw 11 movwf Dur5#100H,1 movlw 46 movwf Dur5#100,1 F1_000955 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[101] = 2787 movlw 10 movwf Dur5#101H,1 movlw 227 movwf Dur5#101,1 F1_000956 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[102] = 2713 movlw 10 movwf Dur5#102H,1 movlw 153 movwf Dur5#102,1 F1_000957 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[103] = 2641 movlw 10 movwf Dur5#103H,1 movlw 81 movwf Dur5#103,1 F1_000958 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[104] = 2571 movlw 10 movwf Dur5#104H,1 movlw 11 movwf Dur5#104,1 F1_000959 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[105] = 2504 movlw 9 movwf Dur5#105H,1 movlw 200 movwf Dur5#105,1 F1_000960 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[106] = 2437 movlw 9 movwf Dur5#106H,1 movlw 133 movwf Dur5#106,1 F1_000961 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[107] = 2373 movlw 9 movwf Dur5#107H,1 movlw 69 movwf Dur5#107,1 F1_000962 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[108] = 2310 movlw 9 movwf Dur5#108H,1 movlw 6 movwf Dur5#108,1 F1_000963 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[109] = 2249 movlw 8 movwf Dur5#109H,1 movlw 201 movwf Dur5#109,1 F1_000964 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[110] = 2190 movlw 8 movwf Dur5#110H,1 movlw 142 movwf Dur5#110,1 F1_000965 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[111] = 2132 movlw 8 movwf Dur5#111H,1 movlw 84 movwf Dur5#111,1 F1_000966 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[112] = 2076 movlw 8 movwf Dur5#112H,1 movlw 28 movwf Dur5#112,1 F1_000967 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[113] = 2021 movlw 7 movwf Dur5#113H,1 movlw 229 movwf Dur5#113,1 F1_000968 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[114] = 1967 movlw 7 movwf Dur5#114H,1 movlw 175 movwf Dur5#114,1 F1_000969 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[115] = 1915 movlw 7 movwf Dur5#115H,1 movlw 123 movwf Dur5#115,1 F1_000970 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[116] = 1865 movlw 7 movwf Dur5#116H,1 movlw 73 movwf Dur5#116,1 F1_000971 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[117] = 1815 movlw 7 movwf Dur5#117H,1 movlw 23 movwf Dur5#117,1 F1_000972 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[118] = 1767 movlw 6 movwf Dur5#118H,1 movlw 231 movwf Dur5#118,1 F1_000973 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[119] = 1721 movlw 6 movwf Dur5#119H,1 movlw 185 movwf Dur5#119,1 F1_000974 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[120] = 1675 movlw 6 movwf Dur5#120H,1 movlw 139 movwf Dur5#120,1 F1_000975 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[121] = 1631 movlw 6 movwf Dur5#121H,1 movlw 95 movwf Dur5#121,1 F1_000976 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[122] = 1588 movlw 6 movwf Dur5#122H,1 movlw 52 movwf Dur5#122,1 F1_000977 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[123] = 1546 movlw 6 movwf Dur5#123H,1 movlw 10 movwf Dur5#123,1 F1_000978 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[124] = 1505 movlw 5 movwf Dur5#124H,1 movlw 225 movwf Dur5#124,1 F1_000979 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[125] = 1465 movlw 5 movwf Dur5#125H,1 movlw 185 movwf Dur5#125,1 F1_000980 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[126] = 1427 movlw 5 movwf Dur5#126H,1 movlw 147 movwf Dur5#126,1 F1_000981 equ $ ; in [MELAUTON_VALVES.BAS] Dur5[127] = 1389 movlw 5 movwf Dur5#127H,1 movlw 109 movwf Dur5#127,1 F1_000982 equ $ ; in [MELAUTON_VALVES.BAS] EndSub movlb 0 return 0 ; EndSub ;--------------------------------------------- F1_000002 equ $ ; in [MELAUTON_VALVES.BAS] Stop _pblb__248 bra _pblb__248 ;--------------------------------------------- F3_000087 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Proc GetMidiIn (), byte GetMidiIn F3_000088 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] if IndexIn <> IndexOut Then movf IndexIn,W,0 subwf IndexOut,W,0 bz _lbl__250 F3_000089 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Inc IndexOut incf IndexOut,F,0 F3_000090 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR0_Save = USART_FSR0 movff FSR0LH,FSR0SaveIntH movff FSR0L,FSR0SaveInt F3_000091 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR0 = VarPtr Ringbuffer lfsr 0,47 F3_000092 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR0 = USART_FSR0 + IndexOut movf IndexOut,W,0 addwf FSR0L,F,0 movlw 0 addwfc FSR0LH,F,0 F3_000093 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] WREG = INDF0 movf INDF0,W,0 F3_000094 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Result = WREG movlb 3 movwf GetMidiInResult,1 F3_000095 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] USART_FSR0 = USART_FSR0_Save movff FSR0SaveIntH,FSR0LH movff FSR0SaveInt,FSR0L F3_000096 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Set STATUS.0 bsf STATUS,0,0 F3_000097 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] RET return 0 movlb 0 bra _lbl__251 _lbl__250 F3_000098 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] else F3_000099 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] WREG = 255 setf WREG,0 F3_000100 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] Result = WREG movlb 3 movwf GetMidiInResult,1 F3_000101 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] btfss STATUS,C btfss STATUS,C F3_000102 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] RET return 0 F3_000103 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] endif _lbl__251 movlb 0 F3_000104 equ $ ; in [MELAUTON_VALVES_IRQ.Inc] EndProc return 0 ; EndProc ;--------------------------------------------- F1_000582 equ $ ; in [MELAUTON_VALVES.BAS] Proc SortTimers(), byte SortTimers F1_000589 equ $ ; in [MELAUTON_VALVES.BAS] Set Result movlb 3 setf SortTimersResult,1 F1_000590 equ $ ; in [MELAUTON_VALVES.BAS] Set Nxt.31 bsf NxtHHH,7,0 F1_000591 equ $ ; in [MELAUTON_VALVES.BAS] Clear I clrf _I,0 F1_000592 equ $ ; in [MELAUTON_VALVES.BAS] Do _lbl__252 movlb 0 F1_000598 equ $ ; in [MELAUTON_VALVES.BAS] Select 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 48 addwf FSR0L,F,0 movlw 1 addwfc FSR0H,F,0 movff INDF0,PBS_VAR0 movff PREINC0,PBS_VAR0H movff PREINC0,PBS_VAR0HH movff PREINC0,PBS_VAR0HHH F1_000599 equ $ ; in [MELAUTON_VALVES.BAS] Case < Nxt 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__256 F1_000600 equ $ ; in [MELAUTON_VALVES.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 48 addwf FSR0L,F,0 movlw 1 addwfc FSR0H,F,0 movff INDF0,Nxt movff PREINC0,NxtH movff PREINC0,NxtHH movff PREINC0,NxtHHH F1_000601 equ $ ; in [MELAUTON_VALVES.BAS] Result = I movff _I,SortTimersResult F1_000602 equ $ ; in [MELAUTON_VALVES.BAS] EndSelect _lbl__256 _lbl__255 F1_000603 equ $ ; in [MELAUTON_VALVES.BAS] Inc I incf _I,F,0 _lbl__254 F1_000604 equ $ ; in [MELAUTON_VALVES.BAS] Loop Until I = NrTasks movlw 2 subwf _I,W,0 bnz _lbl__252 _lbl__253 F1_000605 equ $ ; in [MELAUTON_VALVES.BAS] Clear Resort_flag movlb 1 bcf Resort,0,1 F1_000606 equ $ ; in [MELAUTON_VALVES.BAS] EndProc movlb 0 return 0 ; EndProc ;--------------------------------------------- F1_EOF equ $ ; MELAUTON_VALVES.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 CP2 = off config CP3 = off config CPB = off config CPD = off config WRT0 = off config WRT1 = off config WRT2 = off config WRT3 = off config WRTB = off config WRTC = off config WRTD = off config EBTR0 = off config EBTR1 = off config EBTR2 = off config EBTR3 = off config EBTRB = off config PWRT = on end