HP-48 mode for GNU/emacs

• works with .hp48 suffix files
• shortcuts:
  • C-c C-x launches x48 (path is set to /usr/bin/x48 with hp48-x48-execpath variable --- see below)
  • C-c C-s sends to a port (e.g. /dev/ttyUSB0, dev/pts/1 ...) using kermit communication. The script used to establish the communication is set according to my HP-48 setup (ASCII etc.).
  • C-c C-u toggles from/to unicode from/to ASCII (e.g. ΣLIST switches with \GSLIST)
  • C-c C-c adds a comment colon on each non-comment line to keep trace of stack state (avoid write-only code effect)
  • C-c C-p prints HP-48 code using lpr command using unicode version. This is dedicated to print on a label thermic printer faking HP 82240B.
• custom variables:
  • hp48-x48-execpath: full path of x48 emulator
  • hp48-kermit-config: a multiline string setting up kermit communication
  • hp48-default-port-node: port to use with kermit
  • hp48-printer-name: CUPS name of your printer
  • hp48-label-width-mm: width of your printer's sheet
  • hp48-label-line-height-mm: height of a single code line (depends of the font used)

License MIT

Personal work + @XahLee on YT + Claude sonnet

Find Stack Operations

This script is a Racket adaptation for HP-48 of P. Salvi's common-lisp work for Forth language.

This racket script finds shortest sequence of stack operations from a stack state to another given a maximum search-depth TOS (Top Of Stack ) is on the left.

This lib/script includes three functions:

• find-stack-operations which takes:

  • two arguments: a source list and a destonation list (see examples below) ;
  • two optional arguments: pmax the search depth (default is 5), and 50g a boolean to include HP-50G stack ops (dupdup, nip, unpick and unrot, so no ndupn) (default is #f).

  and returns a list of RPN operations.

• stack-after-op which takes two arguments, a source list and a list of operations (symbols), and returns a new stack (list).

• optimize which takes:

  • one argument: a list of operations ;
  • one optional argument 50g a boolean value (default is #f) to include the HP-50G set of stack operations.

  and returns a string (in French) to optimize your operations in a shorter version.

stack-op.rkt> (find-stack-operations '(A B) '(A B A B A B))
dup2 dup2
stack-op.rkt> (find-stack-operations '(A B C) '(A C A B A C))
swap over 4-pick over
stack-op.rkt> (find-stack-operations '(A B C) '(A C A B A C A A))
#f
stack-op.rkt> (find-stack-operations '(A B C) '(A C A B A C A A) #:pmax 10)
swap over 4-roll over 4-roll 4-dupn drop
stack-op.rkt> (find-stack-operations '(A B C) '(A C A))
swap drop swap over
stack-op.rkt> (find-stack-operations '(A B C) '(A C A) #:50g #t)
unrot drop over
stack-op.rkt> (find-stack-operations '(A B C O) '(C O B A C) #:50g #t)
swap 4-roll 4-pick
stack-op.rkt> (stack-after-op '(A B C D) '(nip drop))
'(C D)
stack-op.rkt> (optimize '(swap over swap))
dup rot est une meilleure solution que swap over swap
stack-op.rkt> (optimize '(drop drop dup nip dup) #:50g #t)
drop2 dup est une meilleure solution que drop drop dup nip dup

From (A B C) to...

Dest.	HP-48G	HP-50G	Gain
(A A A)	swap rot drop2 dup dup	unrot drop2 dupdup	40.0%
(A A B)	rot drop dup	rot over nip	0.0%
(A A C)	swap drop dup	nip dup	33.3%
(A B A)	swap rot drop over	dup 3-unpick	25.0%
(A B B)	rot drop over swap	over 3-unpick	25.0%
(A B C)
(A C A)	swap drop swap over	unrot drop over	25.0%
(A C B)	swap 3-rolld	swap unrot	33.3%
(A C C)	swap drop over swap	nip over swap	25.0%
(B A A)	rot drop dup rot	swap over 3-unpick	0.0%
(B A B)	rot drop over	rot drop over	0.0%
(B A C)	swap	swap	0.0%
(B B A)	swap rot drop dup	2-unpick dup	25.0%
(B B B)	rot drop2 dup dup	rot drop2 dupdup	25.0%
(B B C)	drop dup	over nip	0.0%
(B C A)	3-rolld	unrot	50.0%
(B C B)	drop swap over	rot nip over	0.0%
(B C C)	drop over swap	drop over swap	0.0%
(C A A)	swap drop dup rot	nip dup rot	25.0%
(C A B)	rot	rot	0.0%
(C A C)	swap drop over	nip over	33.3%
(C B A)	swap rot	swap rot	0.0%
(C B B)	drop dup rot	over nip rot	0.0%
(C B C)	drop over	drop over	0.0%
(C C A)	swap drop swap dup	unrot over nip	25.0%
(C C B)	drop swap dup	rot nip dup	0.0%
(C C C)	drop2 dup dup	drop2 dupdup	33.3%
Moyenne	3.1	2.5	16.3%

License CC-0

Personal work + Peter Salvi + Claude sonnet