"IBM Mainframe Assembler List" <[email protected]> wrote on
02/11/2022 05:27:48 PM:
> ZAP has L1/L2 so you want to load your EX register with (L1 * 16) + L2
> (where L1 and L2 are base 0, and a shift might be a better choice than
an
> actual multiply).
Thanks, we'll see how this works. ;-)
ZAP_IT ZAP PWORK16(0),0(0,R1) (SEE EXECUTE INSTRUCTION BELOW)
...snip...
LHI R2,15*16 SET LENGTH OF WORK FIELD
L R3,FLD_LENG SET LENGTH OF VAR DATA
SHI R3,1 DECREMENT FOR EXECUTE
AR R2,R3 COMBINE THE TWO
EX R2,ZAP_IT MOVE VAR DATA TO WORK FIELD
Sincerely,
Dave Clark
--
Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331
*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.
*********************************************************************************************
