[comp.sys.handhelds] HP48: factoring program, patch

jurjen@cwi.nl (Jurjen NE Bos) (01/31/91)

The bug mentioned in the previous posting can be succesfully solved by the
following minor patches.  This is typed by hand.  The easiest way to patch is
just using VISIT instead of trying to download it.

Happy hacking,
	Jurjen Bos

PRIME?
\<< # 0d + # FFFFFFFFFFFFFFFFh SR AND
  CASE DUP # 2d <
    THEN DROP 0
    END DUP # 210d BGCD # 1d ==
    THEN 0 'L' STO LPRT 'L' PURGE
    END DUP # 121d <
    THEN B\->R { 2 3 5 7 } SWAP POS  0 \=/
    END DROP 0
  END
\>>

FACTOR
\<< # 0d + # FFFFFFFFFFFFFFFFh SR AND 0 'L' STO LFAC 'L' PURGE
\>>