IO2: Another collection of memory access utilities, by various authors.
Note: These are NOT downloadable in ASCII form.

DIR
  SYSRCL @ #addr or string -> object.
    [ not listable ]
  PEEKF @ #addr -> contents.
    \<< NEWOB Code
    \>>
  PRC2 @ Port Recall Version 2: Port number -> port's objects & <p#> on stack.
    [ not listable ]
  PRCL @ Port Recall: Port number -> port's objects on stack.
    \<< # 18CD7h SYSEVAL # 21922h SYSEVAL # 18DBFh SYSEVAL 1 + ROLL DROP
    \>>
  Rcl @ to be used with FIND: subtracts 1 after FIND and does SYSRCL.
    \<< DUP 1 - SYSRCL
    \>>
  FIND @ #search, start#address -> #search, find#address+1.
       @ Note: last digit of #search is len(#search)-1.
    \<< RCWS 20 STWS SWAP # 0h OR SWAP STWS Code 1 +
    \>>
  ASCNC @ Convert from ASC with No Checksum. (Poor man's assembler)
    \<< "0000" +
      IF DUP TYPE 2 \=/
      THEN "Not A String" DOERR
      END RCWS \-> ws
      \<< 16 STWS # 0h NEWOB SWAP DUP SIZE
        IF DUP 4 <
        THEN DROP SWAP DROP "Invalid String" DOERR
        END DUP 65 / IP - 4 - # 18CEAh SYSEVAL "" OVER # 61C1Ch SYSEVAL
SWAP # 6641F8000AF02DCCh # 130480679BF8CC0h # 518Ah SYSEVAL
# 19610313418D7EA4h # 518Ah SYSEVAL # 7134147114103123h # 518Ah SYSEVAL
# 5F6A971131607414h # 518Ah SYSEVAL # 12EA1717EA3F130Ch # 518Ah SYSEVAL
# 280826B3012808F4h # 518Ah SYSEVAL # 6B7028080BEE9091h # 518Ah SYSEVAL
# BE5DC1710610C512h # 518Ah SYSEVAL # 705D00003431A078h # 518Ah SYSEVAL
# 3D8FA26058961431h # 518Ah SYSEVAL # 312B0514h # 518Ah SYSEVAL
# 18F23h SYSEVAL ws STWS ROT DROP SWAP DROP
      \>>
    \>>
END