At 10:38 -0400 on 07/23/2007, (IBM Mainframe Discussion List) wrote
about Re: EBCDIC to HEX translation in Assembler?:
TABLEDC256X'00'
ORG TABLE+C'A'
DCX'0A0B0C0D0E0F'
ORG TABLE+C'a' or
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of Dave Reinken
>
> [ snip ]
>
> As stated above, without the TR to change c'A3' from x'C1F3'
> to x'0A03', then result of the pack would be x'13yx', not
> x'A3yx' as desired.
DUH.. (forest . trees)
I'll craw
Maybe something like?
PACK wk1,parmfld+1
PACK wk2,wk1
UNPK outfld+1,wk2
On 7/23/07, Phil Kingston <[EMAIL PROTECTED]> wrote:
Hi all,
Does anyone have a quick assembler routine to convert a hexadecimal
number represented in EBCDIC into the real hex number?
Phil.
No virus found in this ou
> From: "Chase, John" <[EMAIL PROTECTED]>
> > OP wants it translated to "the real hex number." Without any
> > further
> > technical specifications, I would assume, e.g., that EBCDIC
> > "A3" should be
> > translated into X'A3'. In this case two input bytes result
> > in one output byte.
> -Original Message-
> From: IBM Mainframe Discussion List On Behalf Of (IBM Mainframe
Discussion List)
>
> In a message dated 7/23/2007 9:11:16 A.M. Central Daylight
> Time, [EMAIL PROTECTED] writes:
> >Wouldn't this just be the PACK command?
>
> Not sufficient.
>
> >Are you needing
---
Hi all,
Does anyone have a quick assembler routine to convert a hexadecimal
number represented in EBCDIC into the real hex number?
---
TR SOURCE,HEXTAB
PACK RESULT(L'RESULT+1),SO
Bill,
That’s exactly what I was after. thanks :-)
Phil.
-Original Message-
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
Behalf Of (IBM Mainframe Discussion List)
Sent: 23 July 2007 15:38
To: IBM-MAIN@BAMA.UA.EDU
Subject: Re: EBCDIC to HEX translation in
In a message dated 7/23/2007 9:11:16 A.M. Central Daylight Time,
[EMAIL PROTECTED] writes:
>Wouldn't this just be the PACK command?
Not sufficient.
>Are you needing it in binary or Packed Decimal?
OP wants it translated to "the real hex number." Without any further
technical specific
Do you mean taking in something like parm=" F5" which is internally x"C6F5"
and making it x"F5" ?
Bill
From: Phil Kingston <[EMAIL PROTECTED]>
Reply-To: IBM Mainframe Discussion List
To: IBM-MAIN@BAMA.UA.EDU
Subject: EBCDIC to HEX translation in Assembler?
Date: Mon, 23 Jul 2007 15:06:00 +
You need a trivial table and a TROT (TRanslate One to Two) instruction loop.
See p. 7-202 of the current Principles of Operation.
John Gilmore
Ashland, MA 01721-1817
USA
_
http://im.live.com/messenger/im/home/?source=hmtextlinkjul
Phil Kingston wrote:
Hi all,
Does anyone have a quick assembler routine to convert a hexadecimal
number represented in EBCDIC into the real hex number?
Phil.
Depends what you mean.
x'FACE' is a hexadecimal number, right? (= 64206 in decimal,
if an unsigned number).
c'FACE' is one way of
On Mon, 23 Jul 2007 15:06:00 +0100 Phil Kingston
<[EMAIL PROTECTED]> wrote:
:>Does anyone have a quick assembler routine to convert a hexadecimal
:>number represented in EBCDIC into the real hex number?
TR followed by PACK.
--
Binyamin Dissen <[EMAIL PROTECTED]>
http://www.dissensoftware.com
Di
NOTICE:
All information in and attached to the e-mail(s) below may be proprietary,
confidential, privileged and otherwise protected from improper or erroneous
disclosure. If you are not the sender's intended recipient, you are not
authorized to intercept, read, print, retain, copy, forward, or
13 matches
Mail list logo
