Re: Broken code
OK I am using MPLAB 8.92 with PICBASIC 3 Gold
GOSUB TEST1 works fine
GOSUB TEST2 (or ANY subroutine after it) does not
Here is my code, all comments are welcome
; Tell PBP the expected system-clock frequency
INCLUDE "PIC18F46K22.INC"
DEFINE OSC 16
'Define interrupt handler
DEFINE INTHAND TIMERINT
'Don’t insert CLRWDTs
DEFINE NO_CLRWDT 1
'Set receive register to receiver enabled
DEFINE HSER_RCSTA 90h
' RCSTA
'Set transmit register to transmitter enabled
DEFINE HSER_TXSTA 20h
'Set baud rate
DEFINE HSER_BAUD 19200
'Clear overrun error upon execution of every HSERIN command
DEFINE HSER_CLROERR 1
'disable intrs during EEPROM writes
DEFINE WRITE_INT 1
GOTO START
'------------------------------------------------------------------------------------------------------------------------
'interrupt handler
ASM
TIMERINT
;interrupt service routine
;MOVFF source, destination = move source reg to dest reg
;either register can be in ram 000 to FFF
;save critical registers
MOVFF W,_PreISR_W ;save W register contents
MOVFF STATUS,_PreISR_STATUS ;save contents of STATUS register
MOVFF PCLATH,_PreISR_PCLATH ;save contents of PCLATH register
MOVFF PCLATU,_PreISR_PCLATU ;save contents of PCLATU register
MOVFF BSR,_PreISR_BSR ;save contents of BSR register
MOVFF FSR0L,_PreISR_FSR0L ;ind addr pointer lo
MOVFF FSR0H,_PreISR_FSR0H ;ind addr pointer hi
CLRF PCLATH
CLRF STATUS
CLRF BSR
;look for the timer2 interrupt
NextIfCLR PIR1,TMR2IF ;check if timer2 int flag is set
GOTO NotTimer2INT ;no
BCF PIR1,TMR2IF ;yes,reset timer2 int flag
MOVLB H'A' ;select ram bank A
;increment interrupt counters
INCF _INTRCOUNT,File_reg
;................................................. .................................................. .....................
NotTimer2INT
CHECKRS232
;If an overrun occurred, clear the OERR flag by clearing the CREN receiver enable bit.
BANKSEL RCSTA1
NextIfSET RCSTA1,1 ;check for overrun by testing the OERR flag
GOTO OverRUN
BANKSEL PIR1
NextIfSET PIR1,RCIF ;check for any received data
GOTO GOTchar
MOVLB H'A' ;select ram bank A
CLRF _RS232RECD
GOTO FinishISR
GOTchar
BANKSEL RCREG1
MOVF RCREG1,W_reg
MOVLB H'A' ;select ram bank A
MOVWF _RS232RECD
GOTO FinishISR
OverRUN
BCF RCSTA1,1
BCF RCSTA1,4
NOP
BSF RCSTA1,4
FinishISR
MOVFF _PreISR_PCLATH,PCLATH ;restore pre-isr PCLATH register
MOVFF _PreISR_PCLATU,PCLATU ;restore pre-isr PCLATU register
MOVFF _PreISR_STATUS,STATUS ;restore pre-isr STATUS register
MOVFF _PreISR_BSR,BSR ;restore pre-isr BSR register
MOVFF _PreISR_FSR0L,FSR0L ;ind addr pointer lo
MOVFF _PreISR_FSR0H,FSR0H ;ind addr pointer hi
MOVFF _PreISR_W,W
RETFIE ;return from interrupt
ENDASM
'------------------------------------------------------------------------------------------------------------------------
START:
'setup the oscillator
OSCCON = %01111100
' 0 IDLEN Device enters Sleep mode on SLEEP instruction
' .111 IRCF<2:0> = HFINTOSC – (16 MHz)
' ....1 Device is running from the clock defined by FOSC<3:0> of the CONFIG1H register
' .....1 HFINTOSC frequency is stable
' ......00 Primary clock (determined by FOSC<3:0> in CONFIG1H)
OSCCON2 = %10000111
' 1 System clock comes from 4xPLL
' .0 System clock comes from an oscillator, other than SOSC
' ..0 Unimplemented: Read as ‘0’
' ...0 MFINTOSC is not used
' ....0 Secondary oscillator is shut off if no other sources are requesting it.
' .....1 PRISD: Primary Oscillator Drive Circuit Shutdown = Oscillator drive circuit on
' ......1 MFINTOSC is stable
' .......1 LFINTOSC is stable
'------------------------------------------------------------------------------------------------------------------------
'setup I/O pins
'PORTA...................
ANSELA = %00000111
' 0 Unimplemented: Read as ‘0’
' .0 Unimplemented: Read as ‘0’
' ..0 RA5 is digital
' ...0 Unimplemented: Read as ‘0’
' ....1 RA3 is analog AN3 = BUFFERED LIGHT SIG4
' .....1 RA2 is analog AN2 = BUFFERED LIGHT SIG3
' ......1 RA1 is analog AN1 = BUFFERED LIGHT SIG2
' .......1 RA0 is analog AN0 = BUFFERED LIGHT SIG1
TRISA = %00111111
' 0 RA7 output = SELECT1
' .0 RA6 output = SELECT2
' ..1 RA5 input = MOTION INPUT STATUS
' ...1 RA4 input = SWITCH STATUS
' ....1 RA3 input = BUFFERED LIGHT SIG4
' .....1 RA2 input = BUFFERED LIGHT SIG3
' ......1 RA1 input = BUFFERED LIGHT SIG2
' .......1 RA0 input = BUFFERED LIGHT SIG1
LATA.7 = 1
LATA.6 = 1
'PORTB...................
ANSELB = %00000000
' 0 RB7 is digital = PGD
' .0 RB6 is digital = PGC
' ..0 RB5 is digital
' ...0 RB4 is digital
' ....0 RB3 is digital
' .....0 RB2 is digital
' ......0 RB1 is digital
' .......0 RB0 is digital
TRISB = %11111111
' 1 RB7 input = PGD
' .1 RB6 input = PGC
' ..1 RB5 input = DIP3
' ...1 RB4 input = DIP2
' ....1 RB3 input = DIP1
' .....1 RB2 input = TEST CH4 button
' ......1 RB1 input = TEST CH3 button
' .......1 RB0 input = TEST CH2 button
WPUB = %00111111
' 0 RB7 weak pullup disabled = PGD
' .0 RB6 weak pullup disabled = PGC
' ..1 RB5 weak pullup enabled
' ...1 RB4 weak pullup enabled
' ....1 RB3 weak pullup enabled
' .....1 RB2 weak pullup enabled
' ......1 RB1 weak pullup enabled
' .......1 RB0 weak pullup enabled
IOCB = 0 'disable interrupt on change
'PORTC...................
ANSELC = %00000000
' 0 RC7 is digital
' .0 RC6 is digital
' ..0 RC5 is digital
' ...0 RC4 is digital
' ....0 RC3 is digital
' .....0 RC2 is digital
' ......0 RC1 is digital
' .......0 RC0 is digital
TRISC = %10010000
' 1 RC7 input = RX1
' .0 RC6 output = TX1
' ..0 RC5 output = SDO
' ...1 RC4 input = SDI
' ....0 RC3 output = SCK
' .....0 RC2 output = LED
' ......0 RC1 output = CSDAC2
' .......0 RC0 output = CSDAC1
LATC.2 = 1
LATC.1 = 1
LATC.0 = 1
'PORTD...................
ANSELD = %00000000
' 0 RD7 is digital
' .0 RD6 is digital
' ..1 RD5 is analog AN25 = MAX4 POT
' ...1 RD4 is analog AN24 = MAX3 POT
' ....1 RD3 is analog AN23 = MAX2 POT
' .....1 RD2 is analog AN22 = MAX1 POT
' ......1 RD1 is analog AN21 = MIN4 POT
' .......1 RD0 is analog AN20 = MIN3 POT
TRISD = %10111111
' 1 RD7 input = RX2
' .0 RD6 output = TX2
' ..1 RD5 input = AN25 = MAX4 POT
' ...1 RD4 input = AN24 = MAX3 POT
' ....1 RD3 input = AN23 = MAX2 POT
' .....1 RD2 input = AN22 = MAX1 POT
' ......1 RD1 input = AN21 = MIN4 POT
' .......1 RD0 input = AN20 = MIN3 POT
'PORTE...................
ANSELE = %00000011
' ....0 RE3 is digital = TEST CH1 button
' .....0 RE2 is digital = interrupt output
' ......1 RE1 is analog AN6 = MIN2 POT
' .......1 RE0 is analog AN5 = MIN1 POT
TRISE = %10001011
' 1 weak pullup enabled on RE3
' ....1 RE3 input = digital = TEST CH1
' .....0 RE2 output = for test purposes
' ......1 RE1 input = AN6 = MIN2 POT
' .......1 RE0 input = AN5 = MIN1 POT
'------------------------------------------------------------------------------------------------------------------------
'setup A/D converter
ADCON1 = %00000000
' 0 Selects the special trigger from CCP5
' .000 bit 6-4 Unimplemented: Read as ‘0’
' ....00 A/D VREF+ connected to internal signal, AVDD
' ......00 A/D VREF- connected to internal signal, AVSS
ADCON2 = %10111101
' 1 ADFM=right justified, ADRESH contains the 2 most significant bits ADRESL contains the 8 least significant bits
' .0 Unimplemented
' ..111 A/D Acquisition time = 20 TAD
' .....101 A/D Conversion Clock = FOSC/16
ADCON0 = %0000001 'a/d is enabled
'------------------------------------------------------------------------------------------------------------------------
'setup timer0 (UNUSED)
'
' T0CON = %XXXXXXXX
' 1 TMR0ON Enable Timer0
' .0 T08BIT Timer0 is configured as an 16-bit timer/counter
' ..0 T0CS Internal instruction cycle clock (CLKOUT)
' ...1 T0SE Increment on high-to-low transition on T0CKI pin
' ....0 PSA Timer0 prescaler is assigned. Timer0 clock input comes from prescaler output.
' 1 = TImer0 prescaler is NOT assigned. Timer0 clock input bypasses prescaler.
' 0 = Timer0 prescaler is assigned. Timer0 clock input comes from prescaler output.
' .....xxx T0PS<2:0> 111 = 1:256 prescale value'
' 110 = 1:128 prescale value
' 101 = 1:64 prescale value
' 100 = 1:32 prescale value
' 011 = 1:16 prescale value
' 010 = 1:8 prescale value
' 001 = 1:4 prescale value
' 000 = 1:2 prescale value
'------------------------------------------------------------------------------------------------------------------------
'setup timer2
'Fosc/4 with prescaler=16 AND postscaler of 10 yields 25,000 Hz, count of 250 gives interrupt every hundreth of a second
PR2 = 249 'Timer2 Period Register
T2CON = %01001110
'
' bit 7 Unimplemented: Read as ‘0’
' bit 6-3 T2OUTPS<3:0>: TimerX Output Postscaler Select bits
' 0000 = 1:1 Postscaler
' 0001 = 1:2 Postscaler
' 0010 = 1:3 Postscaler
' 0011 = 1:4 Postscaler
' 0100 = 1:5 Postscaler
' 0101 = 1:6 Postscaler
' 0110 = 1:7 Postscaler
' 0111 = 1:8 Postscaler
' 1000 = 1:9 Postscaler
' 1001 = 1:10 Postscaler
' 1010 = 1:11 Postscaler
' 1011 = 1:12 Postscaler
' 1100 = 1:13 Postscaler
' 1101 = 1:14 Postscaler
' 1110 = 1:15 Postscaler
' 1111 = 1:16 Postscaler
' bit 2 TMR2ON: Timer2 On bit
' 1 = Timer2 is on
' 0 = Timer2 is off
' bit 1-0 T2xCKPS<1:0>: Timer2-type Clock Prescale Select bits
' 00 = Prescaler is 1
' 01 = Prescaler is 4
' 1x = Prescaler is 16
'------------------------------------------------------------------------------------------------------------------------
;setup registers for MSSP1..........................
SSP1CON1 = %00100010
; 0....... WCOL: Write Collision Detect bit 0=No collision
; 0...... SSPOV: Receive Overflow Indicator bit 0 = No overflow
; 1..... SSPEN: Master Synchronous Serial Port Enable bit
; 1 = Enables serial port and configures SCK1, SDO1, SDI1 and SS1 as serial port pins
; 0.... CKP: Clock Polarity Select 0 = Idle state for clock is a low level
; 0010 SSPM<3:0>: Master Synchronous Serial Port Mode Select bits
; 0010 = SPI Master mode, clock = FOSC/64
SSP1STAT = %01000000
; 0....... SMP: Sample bit 0 = Input data sampled at middle of data output time
; 1...... CKE: SPI Clock Select bit
; 1 = Transmit occurs on transition from active to Idle clock state
; 0 = Transmit occurs on transition from Idle to active clock state
; NOTE: found that 0 or 1 seems to work if using MSSP1
; but only 1 works with re-mapped MSSP2
; 0..... Used in I2C™ mode only.
; 0.... Used in I2C™ mode only.
; 0... Used in I2C™ mode only.
; 0.. Used in I2C™ mode only.
; 0 BF: Buffer Full Status bit 0 = Receive not complete, SSPxBUF is empty
'------------------------------------------------------------------------------------------------------------------------
;initialize parameters
;*********************************
;TEST FOR CALLING SUBROUTINES
GOSUB TEST1
;GOSUB TEST2
;*********************************
RS232RECD = 0
EXITCAL = 0
ANALOG = 0
TIMERFLAGS = 0
TIMECTR0 = 0
TIMECTR1 = 0
TIMECTR2 = 0
TIMECTR3 = 0
TIMECTR4 = 0
TIMECTR5 = 0
TIMECTR6 = 0
TIMECTR7 = 0
TIMECTR0 = 1000 : TIMERFLAGS.0 = 1
TIMECTR1 = 1000 : TIMERFLAGS.1 = 1
TIMECTR2 = 1000 : TIMERFLAGS.2 = 1
TIMECTR3 = 1000 : TIMERFLAGS.3 = 1
TIMECTR4 = 1000 : TIMERFLAGS.4 = 1
TIMECTR5 = 1000 : TIMERFLAGS.5 = 1
TIMECTR6 = 1000 : TIMERFLAGS.6 = 1
TIMECTR7 = 1000 : TIMERFLAGS.7 = 1
POTMIN1 = 0
POTMIN2 = 0
POTMIN3 = 0
POTMIN4 = 0
POTMAX1 = 0
POTMAX2 = 0
POTMAX3 = 0
POTMAX4 = 0
LIGHT1 = 0
LIGHT2 = 0
LIGHT3 = 0
LIGHT4 = 0
ANALOGCAL1 = 65535
ANALOGCAL2 = 65535
ANALOGCAL3 = 65535
ANALOGCAL4 = 65535
CALBYTE = 0
ANALOGOUT1 = 0
ANALOGOUT2 = 0
ANALOGOUT3 = 0
ANALOGOUT4 = 0
;GOSUB SETANALOG1
;GOSUB SETANALOG2
;GOSUB SETANALOG3
;GOSUB SETANALOG4
INPUTS.9 = 0
INPUTS.10 = 0
INPUTS.11 = 0
INPUTS.12 = 0
INPUTS.13 = 0
INPUTS.14 = 0
INPUTS.15 = 0
ZONE1 = 20
ZONE2 = 40
ZONE3 = 60
TIMEHYS = 10
SSPEN = 0 ' disable/enable SSP to reset MSSP port
PAUSE 2
SSPEN = 1
'check EEPROM for cal values dac_a
READ 0, EEPROMCODE
IF EEPROMCODE = $55AA THEN
READ 2, EEPROMCAL
IF EEPROMCAL > 1000 AND EEPROMCAL < 1500 THEN
CALBYTE.0 = 1
ANALOGCAL1 = EEPROMCAL
ENDIF
ENDIF
'check EEPROM for cal values dac_b
READ 10, EEPROMCODE
IF EEPROMCODE = $55AA THEN
READ 12, EEPROMCAL
IF EEPROMCAL > 1000 AND EEPROMCAL < 1500 THEN
CALBYTE.1 = 1
ANALOGCAL2 = EEPROMCAL
ENDIF
ENDIF
'check EEPROM for cal values dac_c
READ 20, EEPROMCODE
IF EEPROMCODE = $55AA THEN
READ 22, EEPROMCAL
IF EEPROMCAL > 1000 AND EEPROMCAL < 1500 THEN
CALBYTE.2 = 1
ANALOGCAL3 = EEPROMCAL
ENDIF
ENDIF
'check EEPROM for cal values dac_d
READ 30, EEPROMCODE
IF EEPROMCODE = $55AA THEN
READ 32, EEPROMCAL
IF EEPROMCAL > 1000 AND EEPROMCAL < 1500 THEN
CALBYTE.3 = 1
ANALOGCAL4 = EEPROMCAL
ENDIF
ENDIF
'------------------------------------------------------------------------------------------------------------------------
'enable necessary interrupts
'PIE1: PERIPHERAL INTERRUPT ENABLE (FLAG) REGISTER 1
PIE1 = %00000010
' 0 Unimplemented: Read as ‘0’.
' .0 A/D Converter Interrupt disabled
' ..0 Enables the EUSART1 receive interrupt
' ...0 Disables the EUSART1 transmit interrupt
' ....0 Disables the MSSP1 interrupt
' .....0 Disables the CCP1 interrupt
' ......1 Enables the TMR2 to PR2 match interrupt
' .......0 Disables the TMR1 overflow interrupt
'PIE2: PERIPHERAL INTERRUPT ENABLE (FLAG) REGISTER 2
PIE2 = 0 'all of these interrupts disabled
'PIE3: PERIPHERAL INTERRUPT ENABLE (FLAG) REGISTER 3
PIE3 = 0 'all of these interrupts disabled
'PIE4: PERIPHERAL INTERRUPT ENABLE (FLAG) REGISTER 4
PIE3 = 0 'all of these interrupts disabled
INTCON = %11000000
'bit 7 GIE/GIEH: Global Interrupt Enable bit 1 = Enables all unmasked interrupts
'bit 6 PEIE/GIEL: Peripheral Interrupt Enable bit (including timer2)
'bit 5 TMR0IE: TMR0 Overflow Interrupt Enable bit 1 = Enables the TMR0 overflow interrupt
'bit 4 INT0IE: INT0 External Interrupt Enable bit
'bit 3 RBIE: Port B Interrupt-On-Change (IOCx) Interrupt Enable bit
'bit 2 TMR0IF: TMR0 Overflow Interrupt Flag bit
'bit 1 INT0IF: INT0 External Interrupt Flag bit
'bit 0 RBIF: Port B Interrupt-On-Change (IOCx) Interrupt Flag bit
INTCON2 = %00000100
'bit 7 RBPU: PORTB Pull-up Enable bit 0 = PORTB pull-ups are enabled
'bit 6 INTEDG0: External Interrupt 0 Edge Select bit
'bit 5 INTEDG1: External Interrupt 1 Edge Select bit
'bit 4 INTEDG2: External Interrupt 2 Edge Select bit
'bit 3 Unimplemented: Read as ‘0’
'bit 2 TMR0IP: TMR0 Overflow Interrupt Priority bit 1 =High priority
'bit 1 Unimplemented: Read as ‘0’
'bit 0 RBIP: RB Port Change Interrupt Priority bit
INTCON3 = %00000000
'bit 7 INT2IP: INT2 External Interrupt Priority bit
'bit 6 INT1IP: INT1 External Interrupt Priority bit
'bit 5 Unimplemented: Read as ‘0’
'bit 4 INT2IE: INT2 External Interrupt Enable bit
'bit 3 INT1IE: INT1 External Interrupt Enable bit
'bit 2 Unimplemented: Read as ‘0’
'bit 1 INT2IF: INT2 External Interrupt Flag bit
'bit 0 INT1IF: INT1 External Interrupt Flag bit
'------------------------------------------------------------------------------------------------------------------------
;***************************************
;********** M A I N L O O P **********
;***************************************
MAINLOOP:
GOSUB CHARRECEIVED
'when INTRCOUNT = 100 we are at the one second boundary
IF INTRCOUNT < 100 THEN GOTO MAINLOOP
INTRCOUNT = 0
IF CALBYTE < 15 THEN
IF PORTC.2 = 0 THEN
LATC.2 = 1
GOTO MAIN2
ELSE
LATC.2 = 0
GOTO MAIN2
ENDIF
ENDIF
MAIN2:
IF TIMECTR0 > 0 THEN TIMECTR0 = TIMECTR0 - 1
IF TIMECTR1 > 0 THEN TIMECTR1 = TIMECTR1 - 1
IF TIMECTR2 > 0 THEN TIMECTR2 = TIMECTR2 - 1
IF TIMECTR3 > 0 THEN TIMECTR3 = TIMECTR3 - 1
IF TIMECTR4 > 0 THEN TIMECTR4 = TIMECTR4 - 1
IF TIMECTR5 > 0 THEN TIMECTR5 = TIMECTR5 - 1
IF TIMECTR6 > 0 THEN TIMECTR6 = TIMECTR6 - 1
IF TIMECTR7 > 0 THEN TIMECTR7 = TIMECTR7 - 1
;................................................. .................................................. .....................
LATE.2 = 1
'send data
;................................................. .................................................. .....................
'send timer0
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["A"] : PAUSE 2
HSEROUT [TIMECTR0.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR0.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["B"] : PAUSE 2
HSEROUT [TIMECTR1.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["C"] : PAUSE 2
HSEROUT [TIMECTR2.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["D"] : PAUSE 2
HSEROUT [TIMECTR3.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["E"] : PAUSE 2
HSEROUT [TIMECTR4.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer5
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["F"] : PAUSE 2
HSEROUT [TIMECTR5.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR5.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer6
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["G"] : PAUSE 2
HSEROUT [TIMECTR6.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR6.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timer7
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["H"] : PAUSE 2
HSEROUT [TIMECTR7.LOWBYTE] : PAUSE 2
HSEROUT [TIMECTR7.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send timerflags
GOSUB CHARRECEIVED
TEMP = RS232RECD
HSEROUT [":"] : PAUSE 2
HSEROUT ["I"] : PAUSE 2
HSEROUT [TEMP.LOWBYTE] : PAUSE 2
HSEROUT [TEMP.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send light sensor1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["J"] : PAUSE 2
HSEROUT [LIGHT1.LOWBYTE] : PAUSE 2
HSEROUT [LIGHT1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send light sensor2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["K"] : PAUSE 2
HSEROUT [LIGHT2.LOWBYTE] : PAUSE 2
HSEROUT [LIGHT2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send light sensor3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["L"] : PAUSE 2
HSEROUT [LIGHT3.LOWBYTE] : PAUSE 2
HSEROUT [LIGHT3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send light sensor4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["M"] : PAUSE 2
HSEROUT [LIGHT4.LOWBYTE] : PAUSE 2
HSEROUT [LIGHT4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmin1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["N"] : PAUSE 2
HSEROUT [POTMIN1.LOWBYTE] : PAUSE 2
HSEROUT [POTMIN1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmin2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["O"] : PAUSE 2
HSEROUT [POTMIN2.LOWBYTE] : PAUSE 2
HSEROUT [POTMIN2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmin3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["P"] : PAUSE 2
HSEROUT [POTMIN3.LOWBYTE] : PAUSE 2
HSEROUT [POTMIN3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmin4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["Q"] : PAUSE 2
HSEROUT [POTMIN4.LOWBYTE] : PAUSE 2
HSEROUT [POTMIN4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmax1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["R"] : PAUSE 2
HSEROUT [POTMAX1.LOWBYTE] : PAUSE 2
HSEROUT [POTMAX1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmax2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["S"] : PAUSE 2
HSEROUT [POTMAX2.LOWBYTE] : PAUSE 2
HSEROUT [POTMAX2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmax3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["T"] : PAUSE 2
HSEROUT [POTMAX3.LOWBYTE] : PAUSE 2
HSEROUT [POTMAX3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send potmax4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["U"] : PAUSE 2
HSEROUT [POTMAX4.LOWBYTE] : PAUSE 2
HSEROUT [POTMAX4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogout1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["V"] : PAUSE 2
HSEROUT [ANALOGOUT1.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGOUT1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogout2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["W"] : PAUSE 2
HSEROUT [ANALOGOUT2.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGOUT2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogout3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["X"] : PAUSE 2
HSEROUT [ANALOGOUT3.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGOUT3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogout4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["Y"] : PAUSE 2
HSEROUT [ANALOGOUT4.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGOUT4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogoutcal1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["Z"] : PAUSE 2
HSEROUT [ANALOGCAL1.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGCAL1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogoutcal2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["a"] : PAUSE 2
HSEROUT [ANALOGCAL2.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGCAL2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogoutcal3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["b"] : PAUSE 2
HSEROUT [ANALOGCAL3.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGCAL3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send analogoutcal4
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["c"] : PAUSE 2
HSEROUT [ANALOGCAL4.LOWBYTE] : PAUSE 2
HSEROUT [ANALOGCAL4.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send inputs
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["d"] : PAUSE 2
HSEROUT [INPUTS.LOWBYTE] : PAUSE 2
HSEROUT [INPUTS.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send zone1
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["e"] : PAUSE 2
HSEROUT [ZONE1.LOWBYTE] : PAUSE 2
HSEROUT [ZONE1.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send zone2
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["f"] : PAUSE 2
HSEROUT [ZONE2.LOWBYTE] : PAUSE 2
HSEROUT [ZONE2.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send zone3
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["g"] : PAUSE 2
HSEROUT [ZONE3.LOWBYTE] : PAUSE 2
HSEROUT [ZONE3.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'send time hysteresis
GOSUB CHARRECEIVED
HSEROUT [":"] : PAUSE 2
HSEROUT ["h"] : PAUSE 2
HSEROUT [TIMEHYS.LOWBYTE] : PAUSE 2
HSEROUT [TIMEHYS.HIGHBYTE] : PAUSE 2
HSEROUT ["!"] : PAUSE 2
;................................................. .................................................. .....................
'read inputs..........
' BIT 0 = CH1 TEST PB = RE3 on when = 0
' BIT 1 = CH2 TEST PB = RB0 on when = 0
' BIT 2 = CH3 TEST PB = RB1 on when = 0
' BIT 3 = CH4 TEST PB = RB2 on when = 0
' BIT 4 = DIP1 = RB3 on when = 0
' BIT 5 = DIP2 = RB4 on when = 0
' BIT 6 = DIP3 = RB5 on when = 0
' BIT 7 = AUX SW INPUT = RA4 on when = 1
' BIT 8 = MOTION INPUT = RA5 on when = 1
; BIT 9 = SYSTEM MODE 0= normal 1= cal (set by external RS232 command)
INPUTS.0 = PORTE.3
INPUTS.1 = PORTB.0
INPUTS.2 = PORTB.1
INPUTS.3 = PORTB.2
INPUTS.4 = PORTB.3
INPUTS.5 = PORTB.4
INPUTS.6 = PORTB.5
INPUTS.7 = PORTA.4
INPUTS.8 = PORTA.5
;................................................. .................................................. .....................
'read light sensor 1 on AN0 = RA0 pin 2
ADCON0 = %00000011
' 0 bit 7 Unimplemented: Read as ‘0’
' .00000 = AN0
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP1:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP1 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
LIGHT1 = TEMPLONG2
;................................................. .................................................. .....................
'read light sensor 2 on AN1 = RA1 pin 3
ADCON0 = %00000111
' 0 bit 7 Unimplemented: Read as ‘0’
' .00001 = AN1
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP2:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP2 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
LIGHT2 = TEMPLONG2
;................................................. .................................................. .....................
'read light sensor 3 on AN2 = RA2 pin 4
ADCON0 = %00001011
' 0 bit 7 Unimplemented: Read as ‘0’
' .00010 = AN2
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP3:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP3 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
LIGHT3 = TEMPLONG2
GOSUB CHARRECEIVED
;................................................. .................................................. .....................
'read light sensor 4 on AN3 = RA3 pin 5
ADCON0 = %00001111
' 0 bit 7 Unimplemented: Read as ‘0’
' .00011 = AN3
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP4:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP4 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
LIGHT4 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMIN1 on AN5 = RE0 pin 8
ADCON0 = %00010111
' 0 bit 7 Unimplemented: Read as ‘0’
' .00101 = AN5
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP5:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP5 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMIN1 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMIN2 on AN6 = RE1 pin 9
ADCON0 = %00011011
' 0 bit 7 Unimplemented: Read as ‘0’
' .00110 = AN6
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP6:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP6 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMIN2 = TEMPLONG2
GOSUB CHARRECEIVED
;................................................. .................................................. .....................
'read POTMIN3 on AN20 = RD0 pin 19
ADCON0 = %01010011
' 0 bit 7 Unimplemented: Read as ‘0’
' .10100 = AN20
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP7:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP7 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMIN3 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMIN4 on AN21 = RD1 pin 20
ADCON0 = %01010111
' 0 bit 7 Unimplemented: Read as ‘0’
' .10101 = AN21
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP8:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP8 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMIN4 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMAX1 on AN22 = RD2 pin 21
ADCON0 = %01011011
' 0 bit 7 Unimplemented: Read as ‘0’
' .10110 = AN22
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP9:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP9 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMAX1 = TEMPLONG2
GOSUB CHARRECEIVED
;................................................. .................................................. .....................
'read POTMAX2 on AN23 = RD3 pin 22
ADCON0 = %01011111
' 0 bit 7 Unimplemented: Read as ‘0’
' .10111 = AN23
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP10:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP10 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMAX2 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMAX3 on AN24 = RD4 pin 27
ADCON0 = %01100011
' 0 bit 7 Unimplemented: Read as ‘0’
' .11000 = AN24
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP11:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP11 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMAX3 = TEMPLONG2
;................................................. .................................................. .....................
'read POTMAX4 on AN25 = RD5 pin 28
ADCON0 = %01100111
' 0 bit 7 Unimplemented: Read as ‘0’
' .11001 = AN25
' ......1 bit 1 GO/DONE: A/D Conversion Status bit
' 1 = A/D conversion cycle in progress
' Setting this bit starts an A/D conversion cycle.
' This bit is automatically cleared by hardware when
' the A/D conversion has completed.
' 0 = A/D conversion completed/not in progress
' .......1 bit 0 ADON: ADC Enable bit
' 1 = ADC is enabled
' 0 = ADC is disabled and consumes no operating current
ADLOOP12:
PAUSE 5
If ADCON0.1 = 1 Then GOTO ADLOOP12 'Wait for low on bit-1 of ADCON0, conversion finished
ANALOG.HIGHBYTE = ADRESH 'HIGH byte of result
ANALOG.LOWBYTE = ADRESL 'LOW byte of result
TEMPLONG1=ANALOG*100
TEMPLONG2=TEMPLONG1/1023
POTMAX4 = TEMPLONG2
LATE.2 = 0
GOTO MAINLOOP
'------------------------------------------------------------------------------------------------------------------------
TEST1:
RETURN
'------------------------------------------------------------------------------------------------------------------------
;here a character was received via RS232
CHARRECEIVED:
IF RS232RECD = 0 THEN RETURN
'enter CAL mode?
IF RS232RECD = "A" THEN
INPUTS.9 = 1 'set flag to in cal mode
EXITCAL = 0
If CALBYTE.0 = 1 THEN
ANALOGOUT1 = ANALOGCAL1
ELSE
ANALOGOUT1 = 2540
ENDIF
If CALBYTE.1 = 1 THEN
ANALOGOUT2 = ANALOGCAL2
ELSE
ANALOGOUT2 = 2540
ENDIF
If CALBYTE.2 = 1 THEN
ANALOGOUT3 = ANALOGCAL3
ELSE
ANALOGOUT3 = 2540
ENDIF
If CALBYTE.3 = 1 THEN
ANALOGOUT4 = ANALOGCAL4
ELSE
ANALOGOUT4 = 2540
ENDIF
RETURN
ENDIF
'increment analogout1 in cal mode?
IF RS232RECD = "B" AND INPUTS.9 = 1 THEN
ANALOGOUT1 = ANALOGOUT1 + 1
IF ANALOGOUT1 > 2740 THEN ANALOGOUT1 = 2740
IF ANALOGOUT1 < 2340 THEN ANALOGOUT1 = 2340
RETURN
ENDIF
'decrement analogout1 in cal mode?
IF RS232RECD = "b" AND INPUTS.9 = 1 THEN
ANALOGOUT1 = ANALOGOUT1 - 1
IF ANALOGOUT1 > 2740 THEN ANALOGOUT1 = 2740
IF ANALOGOUT1 < 2340 THEN ANALOGOUT1 = 2340
RETURN
ENDIF
'increment analogout2 in cal mode?
IF RS232RECD = "C" AND INPUTS.9 = 1 THEN
ANALOGOUT2 = ANALOGOUT2 + 1
IF ANALOGOUT2 > 2740 THEN ANALOGOUT2 = 2740
IF ANALOGOUT2 < 2340 THEN ANALOGOUT2 = 2340
RETURN
ENDIF
'decrement analogout2 in cal mode?
IF RS232RECD = "c" AND INPUTS.9 = 1 THEN
ANALOGOUT2 = ANALOGOUT2 - 1
IF ANALOGOUT2 > 2740 THEN ANALOGOUT2 = 2740
IF ANALOGOUT2 < 2340 THEN ANALOGOUT2 = 2340
RETURN
ENDIF
'increment analogout3 in cal mode?
IF RS232RECD = "D" AND INPUTS.9 = 1 THEN
ANALOGOUT3 = ANALOGOUT3 + 1
IF ANALOGOUT3 > 2740 THEN ANALOGOUT3 = 2740
IF ANALOGOUT3 < 2340 THEN ANALOGOUT3 = 2340
RETURN
ENDIF
'decrement analogout3 in cal mode?
IF RS232RECD = "d" AND INPUTS.9 = 1 THEN
ANALOGOUT3 = ANALOGOUT3 - 1
IF ANALOGOUT3 > 2740 THEN ANALOGOUT3 = 2740
IF ANALOGOUT3 < 2340 THEN ANALOGOUT3 = 2340
RETURN
ENDIF
'increment analogout4 in cal mode?
IF RS232RECD = "E" AND INPUTS.9 = 1 THEN
ANALOGOUT4 = ANALOGOUT4 + 1
IF ANALOGOUT4 > 2740 THEN ANALOGOUT4 = 2740
IF ANALOGOUT4 < 2340 THEN ANALOGOUT4 = 2340
RETURN
ENDIF
'decrement analogout4 in cal mode?
IF RS232RECD = "e" AND INPUTS.9 = 1 THEN
ANALOGOUT4 = ANALOGOUT4 - 1
IF ANALOGOUT4 > 2740 THEN ANALOGOUT4 = 2740
IF ANALOGOUT4 < 2340 THEN ANALOGOUT4 = 2340
RETURN
ENDIF
'increment zone3 in cal mode?
IF RS232RECD = "F" AND INPUTS.9 = 1 THEN
ZONE3 = ZONE3 + 1
IF ZONE3 > 100 THEN ZONE3 = 100
IF ZONE3 < ZONE2+5 THEN ZONE3 = ZONE2+5
RETURN
ENDIF
'decrement zone3 in cal mode?
IF RS232RECD = "f" AND INPUTS.9 = 1 THEN
ZONE3 = ZONE3 - 1
IF ZONE3 > 100 THEN ZONE3 = 100
IF ZONE3 < ZONE2+5 THEN ZONE3 = ZONE2+5
RETURN
ENDIF
'increment zone2 in cal mode?
IF RS232RECD = "G" AND INPUTS.9 = 1 THEN
ZONE2 = ZONE2 + 1
IF ZONE2 > ZONE3-5 THEN ZONE2 = ZONE3-5
IF ZONE2 < ZONE1+5 THEN ZONE2 = ZONE1+5
RETURN
ENDIF
'decrement zone2 in cal mode?
IF RS232RECD = "g" AND INPUTS.9 = 1 THEN
ZONE2 = ZONE2 - 1
IF ZONE2 > ZONE3-5 THEN ZONE2 = ZONE3-5
IF ZONE2 < ZONE1+5 THEN ZONE2 = ZONE1+5
RETURN
ENDIF
'increment zone1 in cal mode?
IF RS232RECD = "H" AND INPUTS.9 = 1 THEN
ZONE1 = ZONE1 + 1
IF ZONE1 > ZONE2-5 THEN ZONE1 = ZONE2-5
IF ZONE1 < 5 THEN ZONE1 = 5
RETURN
ENDIF
'decrement zone1 in cal mode?
IF RS232RECD = "h" AND INPUTS.9 = 1 THEN
ZONE1 = ZONE1 - 1
IF ZONE1 > ZONE2-5 THEN ZONE1 = ZONE2-5
IF ZONE1 < 5 THEN ZONE1 = 5
RETURN
ENDIF
'increment time hysteresis in cal mode?
IF RS232RECD = "I" AND INPUTS.9 = 1 THEN
TIMEHYS = TIMEHYS + 1
IF TIMEHYS > 300 THEN TIMEHYS = 300
IF TIMEHYS < 1 THEN TIMEHYS = 1
RETURN
ENDIF
'decrement time hysteresis in cal mode?
IF RS232RECD = "i" AND INPUTS.9 = 1 THEN
TIMEHYS = TIMEHYS - 1
IF TIMEHYS > 300 THEN TIMEHYS = 300
IF TIMEHYS < 1 THEN TIMEHYS = 1
RETURN
ENDIF
'exit cal mode?
IF RS232RECD = "Z" AND INPUTS.9 = 1 THEN
EXITCAL = 1
RETURN
ENDIF
RETURN
'------------------------------------------------------------------------------------------------------------------------
TEST2:
RETURN
'------------------------------------------------------------------------------------------------------------------------
'analog output 1 DAC1-A
SETANALOG1:
CSDAC1 = 0
DACBUFFER= ANALOGOUT1
DACBUFFER.15 = 0 'bit 15 1=Write to DACb 0=Write to DACa
DACBUFFER.14 = 0 'bit 14 VREF Input Buffer Control bit 1=Buffered 0=Unbuffered
DACBUFFER.13 = 1 'bit 13 GA: Output Gain Selection bit 1=1x 0=2x
DACBUFFER.12 = 1 'bit 12 SHDN: Output Shutdown Control bit 1=VOUT is available 0=Shutdown
SPI_BUFFER = DACBUFFER.HIGHBYTE
SP_INT_FLAG = 0
WHILE SP_INT_FLAG = 0 : WEND
SPI_BUFFER = DACBUFFER.LOWBYTE
SP_INT_FLAG = 0
WHILE SP_INT_FLAG = 0 : WEND
CSDAC1 = 1 ;disable DAC0
RETURN
'------------------------------------------------------------------------------------------------------------------------
'analog output 2 DAC1-B
SETANALOG2:
CSDAC1 = 0 'enable DAC chip1
DACBUFFER= ANALOGOUT2
DACBUFFER.15 = 1 'bit 15 1=Write to DACb 0=Write to DACa
DACBUFFER.14 = 0 'bit 14 VREF Input Buffer Control bit 1=Buffered 0=Unbuffered
DACBUFFER.13 = 1 'bit 13 GA: Output Gain Selection bit 1=1x 0=2x
DACBUFFER.12 = 1 'bit 12 SHDN: Output Shutdown Control bit 1=VOUT is available 0=Shutdown
SPI_BUFFER = DACBUFFER.HIGHBYTE
SP_INT_FLAG = 0
WHILE SP_INT_FLAG = 0 : WEND
SPI_BUFFER = DACBUFFER.LOWBYTE
SP_INT_FLAG = 0
WHILE SP_INT_FLAG = 0 : WEND
CSDAC1 = 1 ;disable DAC chip1
RETURN
END
Bookmarks