'**************************************************************** '* Name : FartingSkeleton_Decl690.pbp * '* Author : [select VIEW...EDITOR OPTIONS] * '* Notice : Copyright (c) 2015 [select VIEW...EDITOR OPTIONS] * '* : All Rights Reserved * '* Date : 2015-07-28 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** '----[ Const ]------------------------- TMR1Preset CON 63543 ' $BDC '3036 POS_RANGE CON 900 ' position is 0-900, 0.0-90.0 degrees, 450 is Center. CONST_1ms CON 2600 'constante pour obtenir 1ms minimum BFLN_MSG con 40 SRV_MIN con 150 SRV_MAX con 800 '----[ Variables ]------------------------- wsave VAR BYTE $70 SYSTEM ' alternate save location for W '*** FLAGS *** 'AppFlags VAR BYTE ' NewPulse VAR AppFlags.0 ' DisplaySess VAR AppFlags.1 ' GoodFlag VAR AppFlags.2 ' Published2TW VAR AppFlags.3 ' Published2TS VAR AppFlags.4 ' SessionSaved VAR AppFlags.5 ' BufferReady VAR AppFlags.6 '' BufferReady VAR AppFlags.7 'Variables d'usage général. num_byte var byte 'temp value FartPtr VAR BYTE 'TempB VAR BYTE TempW VAR word DutyHold1 VAR WORD BANK0 ' holds next dutycycle, synch with PWM Servo1 VAR WORD ' Position for Servo1 '----[ ALIAS }------------------------- WTV020_ClockPin var PORTA.2 WTV020_DataPin var PORTC.1 WTV020_BusyPin var PORTC.0 WTV020_ResetPin var PORTA.5 'WTV020_ClockPin var PORTA.2 'WTV020_DataPin var PORTA.5 'WTV020_BusyPin var PORTC.0 'WTV020_ResetPin var PORTC.1 TMR1IE VAR PIE1.0 ' Timer1 Interrupt Enable TMR1IF VAR PIR1.0 ' Timer1 Interrupt Flag TMR1ON VAR T1CON.0 ' Timer1 ON bit RABIE VAR INTCON.3 RABIF VAR INTCON.0 INTE var INTCON.4 'INT0 External Interrupt Enable bit INTF var INTCON.1 'INT0 External Interrupt Flag bit 'PEIE VAR INTCON.6 ' low priority interrupts 'GIE VAR INTCON.7 ' high priority interrupts