IO: Collection of memory access utilities, by various authors.
Note: Some of these memory i/o utilities contain "Code" (machine language
routines) or other unlistable objects, so the following "source code" listing
is merely for completeness' sake.

%%HP: T(3);
DIR
  SYSRCL @ recalls system object at given hex address.
    \<< # 4003h SYSEVAL # 56B6h SYSEVAL DROP
    \>>
  ADDR @ yields hex address of { obj }.
    \<< 1 GET # 0h NEWOB Code SWAP DROP
    \>>
  PEEK @ gives 16 hex nibs (backwards) starting at given hex address.
    \<< B\->R R\->B Code
    \>>
  REV @ reverses string object.
    \<< DUP NUM DROP NEWOB Code
    \>>
  \->ASC @ Wickes' object-to-hexdump+checksum; poor man's disassembler.
    [ not listable ]
  ASC\-> @ Inverse of ->ASC.
    [ not listable ]
  FRE @ like MEM but doesn't force a garbage collection.
    [ not listable ]
  POKE @ ? unsure usage.
    \<< SWAP OVER # 0h AND OR SWAP Code
    \>>
  MACF @ ? unsure.
    Code
  \->SYS @ convert list of hex integers into system object.
    \<< "" + LIST\-> 2 SWAP
      START # 5193h SYSEVAL
      NEXT # 4003h SYSEVAL # 56B6h SYSEVAL DROP
    \>>
  STR\->OBJ @ convert string of hex digits into system object; poor man's
            @ assembler.
    \<< RCLF SWAP 64 STWS \-> s
      \<< "" 1 s SIZE
        FOR x "#" s x DUP 1 + SUB REV + "h" + OBJ\-> B\->R CHR + 2
        STEP
      \>> 'obj' STO obj SYSRCL NEWOB SWAP STOF
    \>>
END