That translates, but it doesn't validate. Drop the NILL and use a 16 byte literal: =C'?????????? - - '
-- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Assembler List [[email protected]] on behalf of Ed Jaffe [[email protected]] Sent: Saturday, February 12, 2022 11:24 PM To: [email protected] Subject: Re: Rules for Zoned Overpunch On 2/11/2022 10:00 AM, Dave Clark wrote: > I know that x'F1' and x'C1' are positive and that x'D1' is > negative. But what if I find x'A1', x'B1', or x'E1' for overpunch values? > What is the shortest way (in terms of assembler instructions) to validate > these into just two classes -- positive and negative? Shortest? Who knows? | LLC Rx,LASTBYTE Get last byte | SRL Rx,4 Isolate sign.. | NILL Rx,X'0007' ..to last 3 bits | LA Rx,=C'?? - - '(Rx) Point to sign char | MVC SIGNCHAR,0(Rx) Set appropriate sign or '?' -- Phoenix Software International Edward E. Jaffe 831 Parkview Drive North El Segundo, CA 90245 https://secure-web.cisco.com/1_OEgQsf85ao7kV0oTkK3GqxzrHRkTBSUi6W17JdVqH5h7Tu5AXcTaiPX1hggXsNWCy_xqAoeKvuDpARDnfRxZ94zQLwl4FoDmO3_Q8DZHY8zq3PH5Raph0xK5LujOn9hPskrZez7XHhS1GDMq60ha8KSzkj-n1Vm5GFf5sa8LEkxXxhOj171MVqjRKYbd8M_1oC5lrJ5u1cwLr24d62gfHJJwdd4Kys0cY-SRy4MpHNOsn9krZrKZG-_3HGEwZ0sF_MTUN13aV14bD-pp7O1n64Xc42VGyKWkYu3mUPI_V1sJ1Mc9OwHKlJA0gZordldoqeSK-_ihg8FRx6JHvZQqejvzGrAhoYrFqUMYJsbWilMU6qsFEk_L50bc4HXps5ZWT13mXrsjYVtEg1R_vFaTj8ib-DkuH8Yz3TOwHV5oaVv1sKTHY5ajis8_nkYpwcg/https%3A%2F%2Fwww.phoenixsoftware.com%2F -------------------------------------------------------------------------------- This e-mail message, including any attachments, appended messages and the information contained therein, is for the sole use of the intended recipient(s). If you are not an intended recipient or have otherwise received this email message in error, any use, dissemination, distribution, review, storage or copying of this e-mail message and the information contained therein is strictly prohibited. If you are not an intended recipient, please contact the sender by reply e-mail and destroy all copies of this email message and do not otherwise utilize or retain this email message or any or all of the information contained therein. Although this email message and any attachments or appended messages are believed to be free of any virus or other defect that might affect any computer system into which it is received and opened, it is the responsibility of the recipient to ensure that it is virus free and no responsibility is accepted by the sender for any loss or damage arising in any way from its opening or use.
