Yeah, sorry, I realized the omission after I posted but decided folks could figure it out. Here, for completeness:
/* Return the contents of a storage address plus an offset */ /* The address is in "character" (native binary) form and the offset is in decimal */ StorageCO: Procedure Return Storage(D2X(C2D(Arg(1))+Arg(2)), Arg(3)) CM On Thu, 28 Sep 2023 20:58:57 +0200, Radoslaw Skorupka <r.skoru...@hotmail.com> wrote: >Yes, that works >(with minor exception to the StorageCO function, but I managed it). ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN