Programm zum Testen der erweiterten Speicherregister (Extended Memory) für Taschenrechner der Serie 41 (siehe auch HP-41 Speichertest).

§ LBL "XMEMT"
  FIX 3
  EMDIR
  "TEST"
  CRFLD
  XEQ 04
  "+ REGS"
  AVIEW
  .001
  -
§ LBL 01
  SEEKPT
  ENTER↑
  SIN
  SAVEX
  LASTX
  SEEKPT
  RDN
  GETX
  X≠Y?
  GTO 02
  XEQ 03
  +"-OK"
  AVIEW
  RDN
  ISG X
  GTO 01
  GTO 05
§ LBL 02
  XEQ 03
  +"-ERROR"
  AVIEW
  GTO 05
§ LBL 03
  RDN
  RDN
  XEQ 04
  ASTO T
  "R"
  ARCL T
  RTN
§ LBL 04
  ENTER↑
  INT
  1E3
  /
  "    "
  ARCL X
  ASHF
  RTN
§ LBL 05
  "TEST"
  PURFL
  TONE 9