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 <[email protected]>
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 [email protected] with the message: INFO IBM-MAIN
