On 2022-02-13 12:21, Seymour J Metz wrote:
Why not CVB/LTR/BC?
Nice suggestion, but it's a huge sledgehammer!
Shmuel (Seymour J.) Metz
From: IBM Mainframe Assembler List [ASSEMBLER-LIST@LISTSERV.UGA.EDU]
on behalf of Paul Gilmartin
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 --
You could use TRT to test the last byte, after some tedious coding of the
table. N.B. I mean using the table codes to identify +/0/-/invalid; not
just the 0/non-0 typical use.
You could PACK the field, or just the last byte (which is just a
nibble-swap), and CP to =P'0'. The cond. code tells
On Feb 12, 2022, at 18:47:45, Seymour J Metz wrote:
>
> I read "validate these into just two classes" as validate that the zone - not
> 0-9 and transform A-F appropriately into either C or D.
>
How about Compare Packed to a packed zero?
But doesn't "just two classes" overlook a third class,
I read "validate these into just two classes" as validate that the zone - not
0-9 and transform A-F appropriately into either C or D.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Assembler List
On Feb 12, 2022, at 18:21:59, Seymour J Metz wrote:
>
> Why not CVB/LTR/BC?
>
It appears that the OP wants to "validate"; detect and
report the non-modal sign codes.
If the original is zoned it might require:
PACK; CVB; CVD; UNPK; CLC
>
> From:
Why not CVB/LTR/BC?
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Assembler List [ASSEMBLER-LIST@LISTSERV.UGA.EDU] on behalf
of Paul Gilmartin [0014e0e4a59b-dmarc-requ...@listserv.uga.edu]
Sent: Friday, February 11,
On Sat, 12 Feb 2022 at 05:02, Bernd Oppolzer
wrote:
[...]
> The "skeleton instruction" for EX looks like this
>
> SKEL PACK TARGET(16),SOURCE(0)
>
> that is, it (internally) has length bytes 15 and zero (external L2 of zero
> translates to zero, same as external L2 of one; but zero looks
Am 11.02.2022 um 23:03 schrieb Dave Clark:
How do (can?) you EXecute a ZAP instruction? I have a packed
number in plain character format that can vary in length from 1 to 16
bytes. I need to move that into a 16-byte formal packed work field in
order to make the variable-length
