HP49 vs HP48 display GROB problem
Jim Weisbin
HP49. After re-writing some unsupported entry points to use only
supported ones, I still found the port to be not as straightforward as
I had hoped. There seem to be some subtle differences in the way the
menus and display are updated. The following sub-program hilights the
current line in a file (position # is stored in ID dpos). It works
perfectly on the '48, but on the '49 the displayed line flashes twice
each time that the position is updated. Can anyone help explain why?
hilite
"!NO CODE
!RPL
::
ID dpos
#8*
HARDBUFF
ZERO
3PICK
HARDBUFF
GROBDIMw
OVER
#8+
SUBGROB
INVGROB
SWAP
HARDBUFF
SWAP
ZEROSWAP
GROB!
;
@"
Also, the HP49 has fonts and styles. Anyone have a clue as to how to
access them from sys-rpl? I found some entry points, but I don't know
their syntax: PUT_FONTE, PUT_STYLE, >FONT, >MINIFONT, FONT>, SCANFONT,
GET_@FONTE, GET_HFONT, MiniFontCmd?, MiniFntStk?, STYLE.MINIFONT, etc.
------------------------------
<j...@savagetranscendental.com>
Sent via Deja.com http://www.deja.com/
Before you buy.
Homer Simpson
>access them from sys-rpl? I found some entry points, but I don't know
>their syntax: PUT_FONTE, PUT_STYLE, >FONT, >MINIFONT, FONT>, SCANFONT,
>GET_@FONTE, GET_HFONT, MiniFontCmd?, MiniFntStk?, STYLE.MINIFONT, etc.
FONT> and >FONT are the same as UserRPL FONT-> and ->FONT, same comment goes
for >MINIFONT.
I didn't find what the other entries you quote do. Sorry. I used to believe
that GETH would return the height of a given font, and that foo? would
return a boolean, but they don't seem to do so.
Homer Simpson
http://zap.to/hsimpson
aven...@epita.fr
If you want to modify the current screen, when the job is over, you may
wish to tell the system that you've updated the screen and that it
should stay unchanged (e.g. not to be redraw after).
The redraw program in the HP49 is *much* faster than the one in the
HP48, so blinking effect can appear.
I don't know how you call your program, but try something like:
SetDAnNoCh (where x is 1 for the header, 2 for the stack and 2b for the
command line).
Some explanation for the entry points you've described:
They are MetaKernel entry-points (reason for the spelling mistake on
FONTE instead of FONT :)
PUT_FONTE: Works in the command line. Will apply a FONT change on the
current highlighting or at the cursor position.
Entry: 1: Binary integer (ID of the new font)
Output: None
PUT_STYLE: Similar at PUT_FONTE, but apply a text attribute change:
1: Bold, 2: Italic, 3: Underline 4: Inverse
>FONT: Change the system font.
Entry: 1: Font
Output: None
>MINIFONT: Change the minifont
Entry: 1: Minifont
Output: None
FONT>: Recall the system font
Entry: None
Output: 1: System Font
SCANFONT: Force the system to recalculate the font offset. It will then
parse the memory to find the different fonts saved (HOME and PORT0)
Entry: None
Output: None
GET_@FONTE: ML Entry point. Returns in A field A, the address of the
System Font
GET_HFONTE: ML Entry point. Returns the height of the system font in
the register A field A
GET_HFONTESTK: ML Entry point. Returns the height of the font currently
used to display the RPL stack in register Aa. The Flag ST.sMiniFont is
updated
GET_HFONTECMD: ML Entry point. Returns the height of the font currently
used to display the command line in register Aa. The Flag ST.sMiniFont
is updated
MiniFontCmd?: ML entry point. Set the flag ST.sMiniFont if the minifont
is currently used to display the command line
MiniFntStk?: ML entry point. Set the flag ST.sMiniFont if the minifont
is currently used to display the RPN stack
STYLE.MINIFONT: ML Entry point. If A.6 contains a character set of a
font. It will modify the character set depending of the text attributes
setting.
ST.0: Not used
ST.1: Change the character set to italic
ST.2: Change the character set to underline
ST.3: Change the character set to inverse
Example: D0= ->Minifont.
A=DAT0.6 GOSBVL =STYLE.MINIFONTE
Cheers
Jean-Yves
In article <82jnp1$obg$1...@nnrp1.deja.com>,
> Also, the HP49 has fonts and styles. Anyone have a clue as to how to
> access them from sys-rpl? I found some entry points, but I don't know
> their syntax: PUT_FONTE, PUT_STYLE, >FONT, >MINIFONT, FONT>, SCANFONT,
> GET_@FONTE, GET_HFONT, MiniFontCmd?, MiniFntStk?, STYLE.MINIFONT, etc.