Need more space, please...

[fratello]

I live in one small city from Romania ! Even one resistor must be purchased by e-commerce . at e-vendors the 16F648A have double price from 16F628A. And one great vendor (TME.EU) don't sell to persons, just company , from april, this year...
So, I try to make the best I can with limited resources. Thanks again for support !

[mark_s]

I think you can save a little space by not including "modedefs.bas"

You will need to change this line.

SHiftOUT Lcd_SDA , Lcd_CLK , MSBFIRST, [ Lcd_Data ]

To:

SHiftOUT Lcd_SDA , Lcd_CLK , 1, [ Lcd_Data ]

[fratello]

Still " address limit of 7ffh exceeded" ...

[bogdan]

Fratello,
check your pm please

Best Regards,
Bogdan Pitic

[fratello]

I have results...

If Temperature.15 then       
  Temperature= ~Temperature +1
  sign="-"
Endif

and removing older parts refering to "sign" and "sign2".
Now it's ok, but still wonder if can I store some "graphical elements" into eeprom...

[Archangel]

. . . And one great vendor (TME.EU) don't sell to persons, just company. . . !

Hmmmm . . . Fratello International, Fratello Engineering , Fratello Imports , Fratello Enterprises, Hot Ziggidy those roses smell great . . . oops . . . Fratello Technologies.EU

[fratello]

Sorry for off-topic...My salary it's about 350 euro/month ; so, it's important if one IC cost 1 or 2 euro - it's just hobby !
And "Fratello Enterprise(s)" it's verry cool ... I love Star Trek !!!

[Archangel]

Business' often request and receive FREE samples. You are a small prototype company are you not ? You do develop products for others ? No employees required. No lies told. No money made ? That's a trade secret.

[fratello]

I try something like this :

data @0,$FF,$01,$01,$01,$01,_
$01,$01,$01,$01,$01,$01,$01,$01,$01,$FD,$FD,$FD,$85,$85,$FD,$FD,$79,_
$01,$01,$FD,$FD,$FD,$01,$01,$79,$FD,$FD,$85,$A5,$ED,$ED,$69,$01,$01,_
$FD,$FD,$FD,$01,$05,$05,$05,$FD,$FD,$FD,$05,$05,$05,$01,_                    
$F9,$FD,$FD,$25,$25,$FD,$FD,$F9,$01,$01,$FD,$FD,$FD,$81,$81,$81,$81,_        
$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$FF

This is the first row.
But there, how must doing :

                LcdReg  =  %10000000            ' cursor  X  
                call    PrintCtrlLcd
                LcdReg  =  %01000000            ' cursor  Y
                call    PrintCtrlLcd
                read 0, vcx
                for y = 0 to 83                   
                Lookup y,[??????? vcx ???????], LcdReg               
                call    PrintDataLcd
                next y

Thanks !

[fratello]

I did it !!!

BorderLine:                         ' 
'=================================== RAND 0
                 for y = 0 to 83 
                 call setcursor
                 read y, LcdReg                      
                 call    PrintDataLcd                
                 next y

return

'==================================================
setcursor:
                LcdReg  =  %10000000 + y           ' cursor  X  
               call    PrintCtrlLcd
                LcdReg  =  %01000000            ' cursor  Y
               call    PrintCtrlLcd
return

...and this is the result !

[fratello]

The button alternate the two temperatures (small and big). Full working code ! Thanks for support ! Regards !