Any opening at IBM. I am looking for an assembler job. I have done assembler,
including user exits, and some fairly complex assembler programs at Cat
tractor, which I was laid off from. Thanks.
On Tuesday, March 7, 2017 11:00 PM, ASSEMBLER-LIST automatic digest system
<lists...@listserv.uga.edu> wrote:
----- Forwarded Message -----
ASSEMBLER-LIST Digest - 6 Mar 2017 to 7 Mar 2017 (#2017-23)#yiv3876259592 body
{font-family:Arial, Helvetica,
sans-serif;font-size:12px;color:#000000;}#yiv3876259592 td {font-family:Arial,
Helvetica, sans-serif;font-size:12px;color:#000000;}#yiv3876259592 p
{font-family:Arial, Helvetica,
sans-serif;font-size:12px;color:#000000;}#yiv3876259592 a {font-family:Arial,
Helvetica,
sans-serif;font-size:12px;font-weight:bold;color:#3366CC;text-decoration:none;}#yiv3876259592
h2 {font-family:Arial, Helvetica,
sans-serif;font-size:17px;font-weight:bold;color:#CC0033;}#yiv3876259592 h3
{font-family:Arial, Helvetica,
sans-serif;font-size:16px;font-weight:bold;color:#3366CC;}
| | | |
|
|
ASSEMBLER-LIST Digest - 6 Mar 2017 to 7 Mar 2017 (#2017-23)
Table of contents:
- ASSEMBLER-LIST Digest - 24 Feb 2017 to 25 Feb 2017 (#2017-14)
- HLASM anomaly
- ASSEMBLER-LIST Digest - 24 Feb 2017 to 25 Feb 2017 (#2017-14)
- Re: ASSEMBLER-LIST Digest - 24 Feb 2017 to 25 Feb 2017 (#2017-14)
(03/07)
From: Elardus Engelbrecht <elardus.engelbre...@sita.co.za>
- HLASM anomaly
- Re: HLASM anomaly (03/07)
From: Paul Gilmartin <paulgboul...@aim.com>
|
|
| Browse the ASSEMBLER-LIST online archives. | |
John Ehrman wrote:
>Well, maybe not. I was laid off ("retired") by IBM last June, and managed to
>get back to this list only a few days ago. I'll try to keep active if I
>haven't forgotten too much.
Welcome back! I'm already missing you! Just like Walter Farrell came back to
IBM-MAIN and RACF-L and still shares his wisdom.
I still have that book you kindly wrote: 'Continuing to Profit from Legacy
Assembler Code, SHARE 100 (Feb. 2003), Session 8132'
I surely will monitor this list, just to stay in tip-top form. ;-)
Groete / Greetings
Elardus Engelbrecht
On 2017-03-02, at 13:04, Ngan, Robert wrote:
> However, I can use your code to strip the low order half off the value before
> dividing by 65536, which resolves my issue of the value being potentially
> "off by one" when a negative value is divided.
> ...
> The example "expression" I was messing with was actually SAVF4SAID_VALUE
> (i.e. C'F4SA') which when divided by 65536 gives C'F5' instead of C'F4'.
> However &M3 above generates the expected value.
>
I embellished your code to obviate the warning suppression:
MACRO
&L MVFI &TO,&IMM
.* Simulate Move Fullword Immediate with two MVHHI.
.* (Add PRINT option to taste. )
LCLC &M1,&M2,&M3
.* 16-bit signed remainder.
&M1 SETC '((&IMM)-(&IMM)/65536*65536)'
.* 16-big unsigned modulus.
&M2 SETC '(&M1+65536-(&M1+65536)/65536*65536)'
.* Top half shifted right arithmetic.
&M3 SETC '((&IMM)-&M2)/65536'
&L MVHHI &TO+0,&M3
.* Bottom half sign-extended.
MVHHI &TO+2,(&M2)-(&M2)/32768*65536
MEND
START
USING A,2
.* Test cases:
L0 MVFI A,C'F4SA'
L1 MVFI A,X'80007FFF'
L2 MVFI A,X'C0004000'
L3 MVFI A,X'4000C000'
L4 MVFI A,X'7FFF8000'
A DSECT
END
-- gil
