HP-50g - Bigger stack font

[Joe Horn]

(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
;