Memory use - how much do you use?

[Acetronics2]

Hi,

Thanks, Dave ... nice tool. ( heuuu .. could you just keep the last opened folder in the "open" window ??? )

Another way in MPLAB ... the "Memory usage gauge" works with PBP !!!

just open the "mem usage Gauge" and use " File \ Import \ Myfile.hex " in the menu ... the program "Camembert" ( understand : meter ) will work as it should ... but not the Data one ...

Alain

[mackrackit]

Thanks, Dave ... nice tool. ( heuuu .. could you just keep the last opened folder in the "open" window ??? )

Thanks.
That is one of the things I will add on the next version (someday).

BTW. Here is the source code, written in Liberty Basic.
I will most likely use Python the next time.

[setup.main.Window]

    '-----Begin code for #main

    nomainwin
    WindowWidth = 550
    WindowHeight = 225
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)


    '-----Begin GUI objects code

    statictext #main.statictext1, "Code Path and Name",   5,  47, 155,  20
  '  TextboxColor$ = "white"
    textbox #main.name,   5,  67, 530,  25
    statictext #main.statictext3, "Program Memory",   5, 122, 120,  20
    statictext #main.statictext4, "Chip",  10,  17,  27,  20
    textbox #main.chip,  45,  17, 100,  25
    statictext #main.statictext6, "Free", 240, 102, 105,  20
    textbox #main.ByteWord, 130, 122, 50,  25
    textbox #main.FreeWord, 210, 122, 100,  25
    statictext #main.statictext8, " Used", 355, 102,  55,  20
    textbox #main.UsedWords, 325, 122, 100,  25
    statictext #main.statictext12, "Percent Used", 440, 102,  82,  20
    textbox #main.PercentWord, 435, 122, 100,  25
    button #main.btOPEN,"OPEN",[btOPEN], UL, 345,  17,  80,  25
    button #main.btREFRESH,"REFRESH",[btREFRESH], UL, 440,  17,  95,  25
    statictext #main.statictext16, "SRAM (BYTES)",  35, 152, 120,  20
 '   statictext #main.statictext15, "EEPROM (BYTES)",  30, 177, 140,  20
    textbox #main.ramF, 210, 152, 100,  25
 '   textbox #main.eepF, 210, 182, 100,  25
    textbox #main.ramU, 325, 152, 100,  25
 '   textbox #main.eepU, 325, 182, 100,  25
    textbox #main.ramP, 435, 152, 100,  25
 '   textbox #main.eepP, 435, 182, 100,  25
    statictext #main.txtWORKING, "WORKING", 185,  17,  85,  20
    statictext #main.txtFINISHED, "FINISHED", 185,  17,  75,  20


    '-----End GUI objects code

    open "LST VIEW" for window as #main
    print #main.UsedWords, "!font ms_sans_serif 10 bold"
    print #main, "font ms_sans_serif 10"
    print #main.statictext3, "!font ms_sans_serif 10 bold"
    print #main.statictext16, "!font ms_sans_serif 10 bold"
 '   print #main.statictext15, "!font ms_sans_serif 10 bold"
    print #main.txtWORKING, "!font ms_sans_serif 10 bold"
    print #main.txtFINISHED, "!font ms_sans_serif 10 bold"
    print #main, "trapclose [quit.main]"

    [main.inputLoop]   'wait here for input event
   ' print #handle.ext, "!hide"
    print #main.txtWORKING, "!hide"
    print #main.txtFINISHED, "!hide"
    wait

    [btOPEN]   'Perform action for the button named 'btOPEN'
    filedialog "OPEN ","C:\*.lst", openfile$
    if openfile$ = "" then wait
    [rFresh]
    open openfile$ for input as #Lfile
    print #main.name, openfile$
    print #main.txtWORKING, "!show"
    print #main.txtFINISHED, "!hide"
    [LOOPcn]
    line input #Lfile, line$
    if mid$(line$,29,9)= "RAM_START" then RS$ = mid$(line$,68,6)
    if mid$(line$,29,7)= "RAM_END" then RE$ = mid$(line$,68,6)
    if mid$(line$,69,11)= "RAM_START +" then RFIN$ = mid$(line$,81,6)
   ' if mid$(line$,29,9)= "RAM_START" then #main.ramF,mid$(line$,68,6)
   ' if mid$(line$,29,7)= "RAM_END" then #main.ramU,mid$(line$,68,6)
    if mid$(line$,1,26)= "Program Memory Bytes Used:" then #main.UsedWords,mid$(line$,27,92)
    if mid$(line$,1,26)= "Program Memory Words Used:" then #main.UsedWords,mid$(line$,27,92)
    if mid$(line$,1,26)= "Program Memory Bytes Free:" then #main.FreeWord,mid$(line$,27,92)
    if mid$(line$,1,26)= "Program Memory Words Free:" then #main.FreeWord,mid$(line$,27,92)
    if mid$(line$,1,2)= "__" then #main.chip,mid$(line$,3,12)
    if eof(#Lfile) = -1 then [closeFILE1]
    goto [LOOPcn]
    '###################################################
    [closeFILE1]
    close #Lfile
    open openfile$ for input as #Lfile
    [LOOPpm]
    line input #Lfile, line$
    if mid$(line$,1,26)= "Program Memory Bytes Used:" then #main.ByteWord,mid$(line$,16,5)
    if mid$(line$,1,26)= "Program Memory Words Used:" then #main.ByteWord,mid$(line$,16,5)
    if eof(#Lfile) = -1 then [closeFILE2]
    goto [LOOPpm]
    '####################################################
    [closeFILE2]
    close #Lfile
    print #main.chip, "!contents? cName$"
    bFile$ = "C:\PBP\";(trim$(cName$));".bas"
  '  print #main.eepP,bFile$
   goto [closeFILE]
    wait

    [btREFRESH]   'Perform action for the button named 'btREFRESH'
    if openfile$ = "" then [rfERROR]'notice "SELECT FILE"
    goto [rFresh]
    wait

    [closeFILE]
  '  close #Lfile
    print #main.UsedWords,"!contents? UW"
    print #main.FreeWord,"!contents? FW"
    TW = UW + FW
    PW = (UW / TW) * 100
    print #main.PercentWord,using("###.##",PW)
    ramS = hexdec(RS$)
    ramE = hexdec(RE$)
    ramT = ramE - ramS + 1
    ramF = hexdec(RFIN$)
    ramU = ramF - ramS
    ramFree = ramT - ramU
    ramP = (ramU / ramT) * 100
    print #main.ramF,ramFree
    print #main.ramU,ramU
    print #main.ramP,using("###.##",ramP)
    print #main.txtWORKING, "!hide"
    print #main.txtFINISHED, "!show"
    wait

    [rfERROR]
    notice "SELECT FILE"
    goto [main.inputLoop]
    wait

    [quit.main] 'End the program
    close #main
    end

[Acetronics2]

Hi, Dave

You will laugh, but ...

I decided long time ago to be ONLY a Computer USER !!! ...

MUCH better for Health ... lol

Alain

[mackrackit]

Hi, Dave

You will laugh, but ...

I decided long time ago to be ONLY a Computer USER !!! ...

MUCH better for Health ... lol

Alain

Yep, got a chuckle hearing that from you
I think sometimes I should decide as you did.

[ScaleRobotics]

I have some code that I have been working on for a PIC12F675. When I try to add another variable to it and then compile, I get - Error: Unable to fit variable y -. I am using the latest pbp, microcode studio, and mpasm v8.15. When I use Mackrackit's LST View program, it shows my successful compile (one less variable) as using about 70 percent of the code space, and 48 percent of the sram space. What would be stopping me from being able to use the other half of my sram? I looked in the 12F675.BAS file, and my memory map is BANK0 $0020, $005F, which is correct in the data sheet. 12F675 is selected in mcs.

Confused....

[mackrackit]

Can you post your code?

[ScaleRobotics]

My code isn't really this, but I get similar results using this example:

myvar1 var byte
myvar2 var byte
myvar3 var byte
myvar4 var byte
myvar5 var byte
myvar6 var byte
myvar7 var byte
myvar8 var byte
myvar9 var byte
myvar10 var byte
myvar11 var byte
myvar12 var byte
myvar13 var byte
myvar14 var byte
myvar15 var byte
myvar16 var byte
myvar17 var byte
myvar18 var byte
myvar19 var byte
myvar20 var byte
myvar21 var byte
myvar22 var byte
myvar23 var byte
myvar24 var byte
myvar25 var byte
myvar26 var byte
myvar27 var byte
myvar28 var byte
myvar29 var byte
myvar30 var byte
myvar31 var byte
myvar32 var byte
myvar33 var byte
myvar34 var byte
myvar35 var byte
myvar36 var byte
myvar37 var byte
myvar38 var byte
myvar39 var byte
myvar40 var byte
myvar41 var byte

I admit this is more than 48.44 percent of the 64 bytes of SRAM. I am not clear how to check SRAM use in any other way than using your program. Perhaps PBP uses the other bytes for itself. But then, your program should account for actual use, since it is using the lst file.

Let me know what you think.

Thanks,

Walter