Edward LaBudde - 2011-10-30

I am getting a strange error message associated with the PWMoff command.  If I try to comment out line 103 or 129 I get this message:
Error: Program is too large, cannot fit all subroutines into available program memory
Here is the code: 

'Snow melt V 3.0 08-23-11
'Tried to remobe PWM for Snow Sensor
'Copyright E.V. LaBudde 2011
'Tested all modes 08-09-11 
'Chip model
#chip 16F88, 8      'Pic model and clock MHz
#config INTRC_IO    'Use internal Oscillator
Osctune = b'111110' 'works from 111000 to 000011
'Set the pin directions
dir portA.0 In  'Cold pin 17
dir portA.1 In  'Hot pin 18
dir portA.2 In  'Ambient Temp pin 1
dir portA.3 Out 'Heater pin 2
dir portA.4 Out 'Pump pin 3
dir portB.0 In  'New Snow signal pin 6 Tied to pin 8
dir portB.1 In  'Manual Heat mode pin 7
dir portB.2 In  'Snow pin 8
dir PortB.3 Out 'Test port Pin 9
dir portB.4 In  'Manual Circulate Mode Pin 10
dir portB.5 Out 'LCD pin 11
'set defines
#define SendAHigh Set PORTB.5 Off                   'Note Polarity for 4X20 Newhaven display
#define SendALow Set PORTB.5  On 
#define Cold An0
#define Hot An1
#define Temp An2
#define Heater PortA.3
#define Pump PortA.4
#define ManualMode PortB.1
#define Snow PortB.2
#define Test PortB.3
#define ManualCirc PortB.4
#define LCD PortB.5 
dim AmbientT as integer
dim WaterinT as integer
dim WateroutT as integer
dim AmbientTemp as word
dim E_timemin as word
dim DeltaT as word
dim DisplayAmbT as word
dim DisplayinT as word
dim DisplayoutT as word
dim WaterinTemp as word
dim WateroutTemp as word
dim MeltTime_s as word
dim MeltTime_m as word
dim MeltTime_L as word
'Set inital parameters
InitSer 1, r2400, 1, 8, 1, none, invert                 'LCD interface Positive going Standby bit 2400 baud
Set LCD = On                                            'Init LCD
wait 200 ms
Option_reg.7 = off                                      'Enable WPU
MeltTime_s = 0                                          'Zero Melt times
MeltTime_m = 0
MeltTime_L = 0
E_timesec = 0                                           'Zero Elapsed times
E_timemin = 0
E_timehrs = 0
Tons = 0
On Interrupt ExtInt0 Call SnowCheck
    
Standby:
    Set Pump = Off                                      'Turn system Off
    Set Heater = On                                     'Keep heater on to defrost
    E_timesec = 0                                       'Zero Elapsed times
    E_timemin = 0
    Ambient = ReadAD(Temp)                              'Read Ambient air sensor
    ReadTable Tconvert, Ambient, AmbientTemp            'Look up temeperature value
    AmbientT = AmbientTemp - 80                         'Correct for lack of negiative numbers in table
    call ReadWater                                      'Check Water Temp
    call StandbyDisplay                                 'Refresh display    
    Count = 0                                           'Zero Write counter for EEprom writer
    If ManualMode = Off and ManualCirc = On then Goto Manual    'Goto manual mode
    If ManualCirc = Off and ManualMode = On then Goto Circ      'Goto circulate mode
    If ManualMode = On and ManualCirc = On then nop     'Prevent going to neverland
    If ManualMode = Off and ManualCirc = Off then nop   'Prevent going to neverland
    If AmbientT > -25 then Goto Standby                 'Bypass fluid measurement
    Set Heater = Off
    Set Pump = On                                       'Circulate water to measure WaterinT
    wait 30 s
    Set Pump = Off
    Set Heater = On     
    call ReadWater      `                               'Read water temperature
    If AmbientT < -25 and WaterinT < -15 then Goto Warm 'Keep unit off for as long as possible
    Wait 1 h                                            'Do hourly
Goto Standby
'Subs
Manual:                                                 'Turn on system Checked 10-19-11
    Call TurnOns
    Set Pump = On
    Set Heater = On
    PWMOff                                              'Turn on heater on snow sensor
    If Snow = On then MeltTime_s += 1                   'record melt time
    MeltTime_m = MeltTime_s/60
    EPWrite 255, MeltTime_m                             'Record melt time
    call Elapsed_time                                   'Measure on time
    call ReadWater                                      'Read water temperature
    call ManualDisplay                                  'Refresh display
    call Write                                          'Measure DeltaT in 10 min intervals and write to EEprom
    If ManualMode = On then Goto Standby                
    Wait 673 ms                                 
Goto Manual
Circ:                                                   'Checked 10-19-11
    Set Pump = On
    Set Heater = Off
    call Elapsed_time                                   'Measure on time
    call ReadWater                                      'Read water temperature
    call CircDisplay                                    'Refresh display
    If ManualCirc = On then Goto Standby                
    Wait 713 ms                                 
Goto Circ
Heat:                                                   'Checked 10-19-11
    Call TurnOns
    Set Pump = On                                       'Turn on system
    Set Heater = On
    PWMOff                                              'Turn on heater on snow sensor
    If Snow = On then MeltTime_s += 1                   'record melt time
    MeltTime_m = MeltTime_s/60
    EPWrite 255, MeltTime_m                             'Record melt time
    call Elapsed_time                                   'Measure on time
    call ReadWater                                      'Read water temperature
    call HeatDisplay                                    'Refresh display
    call Write                                          'Measure DeltaT in 10 min intervals and write to EEprom     
    If Snow = Off then                                  'Clear snow and wait 30 min.
        Wait 30 m
        goto Standby
    End If
    Wait 685 ms
Goto Heat
Warm:                                                   'Checked 10-19-11
    PulseOut Test, 1 ms
    Set Pump = On                                       'Turn on system
    Set Heater = On
    call ReadWater                                      'Read water temperature
    call WarmDisplay                                    'Refresh display
    if WaterinT > 100 then goto Standby                 'Warm up water then turn off
    Wait 703 ms
Goto Warm
Sub SnowCheck
    wait 1500 ms
    If Snow = On then goto heat                     'Test for sensor fail
    If Snow = Off Then call FailDisplay
Return
Sub ManualDisplay
    call Clear
    serprint 1, "Mode:"
    serprint 1, "Man"
    serprint 1, " T"
    MeltTime_m = MeltTime_s/60
    Serprint 1, MeltTime_m
    Serprint 1, "m"
    call CommonDisplay
Return
Sub CircDisplay
    call Clear
    serprint 1, "Mode:"
    serprint 1, "Circ"
    call CommonDisplay
Return
Sub StandbyDisplay
    call Clear
    serprint 1, "Mode:"
    serprint 1, "Sby"
    EPRead 255, MeltTime_L
    Serprint 1, " MTime:"                                   'Read melt time
    Serprint 1, MeltTime_L
    call CommonDisplay
    Wait 1 s
Return
Sub WarmDisplay
    call Clear
    call First
    serprint 1, "Mode:"
    serprint 1, "Warm"
    call CommonDisplay
Return
Sub HeatDisplay
    call Clear
    call First
    serprint 1, "Mode:"
    serprint 1, "Heat"
    call CommonDisplay
Return
FailDisplay:
    call Clear
    call First
    serprint 1, "Mode:"
    serprint 1, "SENSOR FAILURE"
    call CommonDisplay
Goto FailDisplay
Sub CommonDisplay
    call second
    call Elapsed_time                                   'Measure on time
    serprint 1, "Ambient:"
    If AmbientT_H.7 = On then
    DisplayAmbT =  65536 - AmbientT
    Else
        DisplayAmbT = AmbientT
    End If
    If AmbientT_H.7 = On then
        serprint 1, "-"
        serprint 1, DisplayAmbT
    Else
        serprint 1, DisplayAmbT
    End If
    serprint 1, " ET:"
    serprint 1, E_timemin
    serprint 1, "m" 
    call Third
    If Waterin < 52 then
        DisplayinT =  65536 - WaterinT
    Else
        DisplayinT = WaterinT
    End If
    serprint 1, "WIn:"
    If WaterIn  < 52  then
        serprint 1, "-"
        serprint 1, DisplayinT
    Else
        serprint 1, DisplayinT
    End If
    call Fourth
    serprint 1, "WOut:"
    If Waterout < 52 then
        DisplayoutT =  65536 - WateroutT
    Else
        DisplayoutT = WateroutT
    End If
    If Waterout < 52 then
        serprint 1, "-"
        serprint 1, DisplayoutT
    Else
        serprint 1, DisplayoutT
    End If
    EPRead 254, Tons
    serprint 1, " Tons:"
    serprint 1, Tons
    'wait 1 s
Return
Sub ReadWater
    Waterin =  ReadAD (cold)
    ReadTable Tconvert, Waterin, WaterinTemp
    WaterinT = WaterinTemp - 80
    Waterout = ReadAD (hot)
    ReadTable Tconvert, Waterout, WateroutTemp
    WateroutT = WateroutTemp - 80
Return
  
Sub Elapsed_time
    E_timesec += 1                  'Seconds
    If E_timesec = 60 then
        E_timesec = 0
        E_timemin += 1              'Minutes
    end if
Return
Sub Write
    DeltaT = WateroutT - WaterinT
    EPWrite 0, DeltaT                   'Store first Delta T measurement
    If E_timemin % 10 = 0 then          'Measure DeltaT in 10 min intervals and write to EEprom     
        Count += 1
        EPWrite Count, DeltaT
    End If
Return
Sub TurnOns
    TurnOn +=1
    EPWrite 254, TurnOn
Return
Sub TestDisplay
Call Clear
    serprint 1, "First line"
    Call second 
    Serprint 1, "Second line"
    Call Third
    Serprint 1, "Third line"
    Call fourth
    Serprint 1, "Fourth line"
    wait 1 s
Return
'NewHaven Display utilities
Sub Clear
    sersend 1, 254  'start CMD
    sersend 1, 81   'clear screen
Return
Sub First
    sersend 1, 254  'start CMD
    sersend 1, 69   'First line
    sersend 1, 0
Return
Sub Second
    sersend 1, 254  'start CMD
    sersend 1, 69   'second line
    sersend 1, 64
Return
Sub Third
    sersend 1, 254  'start CMD
    sersend 1, 69   'Third line
    sersend 1, 20
Return
Sub Fourth
    sersend 1, 254  'start CMD
    sersend 1, 69   'Fourth line
    sersend 1, 84
Return
Sub Baud
    '1=300, 2=1200, 3=2400, 4=9600, 5=14.4k. 6=19.2k, 7=57.6k, 8=115.2k
    sersend 1, 254  'start CMD
    sersend 1, 97   'baud select
    sersend 1, 4    '9600-
    wait 100 us
Return
/code]