Threaded Mode | Linear Mode

Marco Polo · 02-06-2019, 10:12 AM

Hi.
I use my HP50g daily for my job.
In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.
I digged hpcalc.org, but could not find anything that seemed suitable for my purpose.
Any advise?

Thank in advance
Marco Polo

**rprosperi** · 02-06-2019, 01:46 PM

(02-06-2019 10:12 AM)Marco Polo Wrote: In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.

Try this, if you haven't already done so, your post does not mention it:

Press the [Mode] key, then [Disp] soft menu, then [Choose] soft menu, and try the different font sizes. IIRC, 6 is for 6 lines, 8 for 8 lines, etc.

franz.b · (This post was last modified: 02-07-2019 11:40 AM by franz.b.)

What is suggested by rprosperi does not take into account the fact that the default font is already the largest available, the others are smaller and therefore increase the number of levels displayed.
Maybe you can find a font that suits your needs here: https://www.hpcalc.org/hp49/utils/fonts/

**rprosperi** · 02-06-2019, 02:41 PM

(02-06-2019 02:06 PM)franz.b Wrote: What is suggested by rprosperi does not take into account the fact that the default font is already the largest available...

Sorry for the useless tip; I use a non-std font and didn't recall which sizes/names the system uses.

Marco Polo · 02-06-2019, 03:39 PM

(02-06-2019 02:06 PM)franz.b Wrote: Maybe you can find a font that suits your needs here:https://www.hpcalc.org/hp49/utils/fonts/

I checked, but apparently people is more interested in small fonts: nothing larger than the standard 8 points

Marco Polo · (This post was last modified: 02-06-2019 03:41 PM by Marco Polo.)

(02-06-2019 02:41 PM)rprosperi Wrote: Sorry for the useless tip; I use a non-std font and didn't recall which sizes/names the system uses.

You are welcome!
The standard HP50g font is 8 points

BartDB · 02-06-2019, 04:59 PM

Hi,

Try Joe Horn's readable fonts:
https://www.hpcalc.org/details/3329
.

Marco Polo · 02-07-2019, 09:38 AM

(02-06-2019 04:59 PM)BartDB Wrote: Try Joe Horn's readable fonts
.

I installed them and now testing at work.
The legibility is somewhat improved. Tnanks.
I am still looking for a bigger (9-10 points) font. Not sure if HP50 can handle it....

franz.b · 02-07-2019, 11:55 AM

I state that I've never played with fonts...

https://www.hpcalc.org/details/4660
by chance are these the 10 pixel fonts of the 48?

https://www.hpcalc.org/details/5452
otherwise you can try to create your own personal font ...

Marco Polo · 02-07-2019, 01:19 PM

(02-07-2019 11:55 AM)franz.b Wrote: I state that I've never played with fonts...

https://www.hpcalc.org/details/4660
by chance are these the 10 pixel fonts of the 48?

https://www.hpcalc.org/details/5452
otherwise you can try to create your own personal font ...

AFAIK UFL libraries cannot be used as system font replacement, but i may be wrong.
I am starting to suspect that there is no way to use a font bigger than 8 points.

Digging on....

Joe Horn · (This post was last modified: 02-09-2019 01:18 PM by Joe Horn.)

If you're up to the task of porting an HP 48 program to the HP 50g, at my request Mika Heiskanen wrote a program called "BLIND" which makes the stack font HUGE, like this:

[Image: blind.png]

It's available here: https://www.hpcalc.org/details/2638

Disclaimer: It's not really a "font" but rather an "outer loop" replacement (AKA a "shell" or "environment"), so if you're already running any other customized outer loop, BLIND probably won't work.

EDIT: Uh oh, it might not be possible to port BLIND to the HP 50g. See John Meyers' explanation here: https://groups.google.com/d/msg/comp.sys...1c_EmENm0J

Marco Polo · (This post was last modified: 02-09-2019 01:35 PM by Marco Polo.)

(02-09-2019 01:09 PM)Joe Horn Wrote: EDIT: Uh oh, it might not be possible to port BLIND to the HP 50g. See John Meyers' explanation here: https://groups.google.com/d/msg/comp.sys...1c_EmENm0J

Ouch!
May you confirm that fonts larger than 8 points are not supporter by Hp50 standard methods?
Anyway, thanks to your fonts the legibility of the stack is improved :-)

Joe Horn · 02-09-2019, 01:58 PM

(02-09-2019 01:34 PM)Marco Polo Wrote: May you confirm that fonts larger than 8 points are not supporter by Hp50 standard methods?

Yes, that is correct.

Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.

Code:

::

 BEGIN

   AtUserStack

   SysMenuCheck

::

 DA2aOK?NOTIT

 ::

  KEYINBUFFER? NOT DA2aLess1OK?

  OR NOTcase SetDA2aBad

LABEL dispstack

  TOADISP

  DA2aLess1OK? ClrnewEditL

  case ?RollUpDA2

  ClrNoRollDA2 ClrAbbrevStk

  ERRSET

LABEL dispstack1

  ::

    LINESOFSTACK DUP#0=csDROP

    TWO #MIN

    ONESWAP ZERO_DO

      ISTOP-INDEX

      OVERDUP #3+ PTR 44197

      ITE

      ::

        AbbrevStack? case

        :: SWAP #:>$ SWAP GET_THE_TYPE ;

        8 STKDECOMP$#

      ;

      #:>$

      DUPLEN$ 11 #> ITE

      :: 1 10 SUB$ CHR \1F >T$ ;

      :: "           " &$ 1 11 SUB$ ;

      $>BIGGROB

      DUPGROBDIM

      #2* SWAP #2* SWAP

      MAKEGROB SWAP

      CODE

        GOSBVL    =PopASavptr

        LC(5)    #14

        D0=A

        A=A+C    A

        R2=A

        D0=D0+    15

        A=DAT0    A

        GOSBVL    =w->W

        R3=A

        D0=D0-    5

        A=DAT0    A

        R4=A

        A=DAT1    A

        D0=A

        A=A+C    A

        R0=A

        D0=D0+    15

        A=DAT0    A

        GOSBVL    =w->W

        R1=A

        C=R4

        D=C    A

L81927        D=D-1    A

        GONC    L81933

        GOVLNG    =GETPTRLOOP

L81933        P=    14

        A=R0

L81938        D1=A

        A=R2

        D0=A

        A=R1

        B=A    A

L81946        B=B-1    A

        GOC    L819A9

        A=DAT0    B

        C=0    A

        ?ABIT=0    3

        GOYES    L81961

        CBIT=1    7

        CBIT=1    6

L81961        ?ABIT=0    2

        GOYES    L81972

        CBIT=1    5

        CBIT=1    4

L81972        ?ABIT=0    1

        GOYES    L81983

        CBIT=1    3

        CBIT=1    2

L81983        ?ABIT=0    0

        GOYES    L81994

        CBIT=1    1

        CBIT=1    0

L81994        DAT1=C    1

        B=B-1    A

        GOC    L819A9

        DAT1=C    B

        D0=D0+    1

        D1=D1+    2

        GONC    L81946

L819A9        A=R0

        C=R1

        A=A+C    A

        R0=A

        P=P+1

        GONC    L81938

        A=R2

        C=R3

        A=A+C    A

        R2=A

        GOTO    L81927

      ENDCODE

      ABUFF ZERO

      4ROLL 20 #* 4 #-

      GROB!

      #1+

    LOOP

    DROP

  ;

  ERRTRAP

  ::

   DropSysObs

   ERROR@ #0= IT

   CODE

    A=PC

    LC(5)    (dispstack)-(*)

    A=A+C    A

    D0=A

    LOOP

   ENDCODE

   #131 JstGETTHEMSG DoWarning

   SetAbbrevStk

   CODE

    A=PC

    LC(5)    (dispstack1)-(*)

    A=A+C    A

    PC=(A)

   ENDCODE

   ClrAbbrevStk

  ;

  SetDA2aValid

 ;

 DA1OK?NOTIT ?DispStatus

 DA2bOK?NOTIT DispEditLine

 DA3OK?NOTIT ?DispMenu

 ClrDAsOK

;

   GetKeyOb

   ERRSET DoKeyOb

   ERRTRAP

   ::

    FixStk&Menu

    ERROR@

    ZERO #=casedrop SysErrFixUI

    #13E #=casedrop

    :: HALTTempEnv? caseERRJMP

       SysErrFixUI

       RSKIP TRUE

    ;

    #123 #=casedrop PTR 3875F

    #CAlarmErr #=case ProcessAlarm

    LastRomWord@ ERROR@

    SysErrFixUI ERRBEEP

    PTR 3889F TOADISP UnScroll

    DISPROW1 DISPROW2 SetDA1Temp

   ;

   FALSE

 UNTIL

 UNDO_TOP? IT ABND

 TEN GETLAMPAIR casedrop CacheStack

 UNROT2DROP

 EQ: PTR 5A777 ?SEMI

 CacheStack

;

Marco Polo · 02-09-2019, 09:24 PM

(02-09-2019 01:58 PM)Joe Horn Wrote: Yes, that is correct.
Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.

I only program in UserRPL, so i cannot say anything about the code, but i think i have recognized a pair of PTR instructions which may be the unsupported entry Point.
Maybe :-)

TravisE · (This post was last modified: 02-10-2019 03:32 AM by TravisE.)

I once hacked a font object and changed the height byte (or nibble? it's been a while) in its header to 9 or 10 before installing it, just to see what would happen. It appeared as though the system was taking the new height into account, but I never bothered adjusting the actual bitmaps to see if indeed the text would actually be displayed correctly. I'm going to guess it might not, because if it did work it would seem as though there would have been talk of it and fonts out there to take advantage of it.

Raymond Del Tondo · 02-10-2019, 11:07 PM

Reminds me of my version of the Periodic Table library for the 49g: My PTLib for 49g

The code base is the same in my versions of the PTLib for the HP 48 and the 49g,
the main difference is the addition of the 10px font of the 48 series in the 49g version.
Of course I also had to add a small routine to bang the pixel data into display;-)

Actually it's a reduced version of the font, covering A-Z and a-z only, which was sufficient for displaying the element symbol.

Including the (partial) font into an application for the 49g was just for fun, and to show it can be made even on the 49g;-)

Marco Polo · 02-11-2019, 09:27 AM

Is it possible to dump the HP48 system font and convert to 50g format?

Han · (This post was last modified: 02-14-2019 02:20 AM by Han.)

(02-09-2019 09:24 PM)Marco Polo Wrote:
(02-09-2019 01:58 PM)Joe Horn Wrote: Yes, that is correct.
Meanwhile, I tracked down Mika's source code. Here it is... for HP 48 only.
I only program in UserRPL, so i cannot say anything about the code, but i think i have recognized a pair of PTR instructions which may be the unsupported entry Point.
Maybe :-)

Use Jazz for both -- on the HP48 (to decompile the PTR instructions into hopefully named entries), and then recompile with Jazz for the HP50G. Do keep in mind, though, that the stack outer loop for the HP50G is different from that for the HP48.

franz.b · 02-14-2019, 07:25 AM

there is a distant memory that wanders in my brain and refers to when I played with my dear old 48s. There was a way to extract or change fonts and these were presented as a vertical grob containing all the characters in the set ordered one below the other. I do not remember if I used the functions of the system or some external program ... does anyone remember or understand what I mean? [Image: 63.gif]

Claudio L. · 02-22-2019, 02:56 PM

(02-06-2019 10:12 AM)Marco Polo Wrote: Hi.
I use my HP50g daily for my job.
In order to improve legibility, I would like to have bigger stack font, reducing the displayed levels. Something like the original HP48 stack.
I digged hpcalc.org, but could not find anything that seemed suitable for my purpose.
Any advise?

Thank in advance
Marco Polo

For the record, I think you are making a very good point. This inspired me to add a 10-pixel font to newRPL, similar to the old HP48 stack. It sure brings back good memories of my 48GX.