All
I’m resending to IBM Mainframe Assembler group because the first attempt
rejected the two ascii text attachments:
Attachement 1: LARLLIT.MLC:
*********************************************************************
* Copyright 2021 Don Higgins *
* This source code is part of z390 assembler/emulator package *
* The z390 package is distributed under GNU general public license *
* Author - Don Higgins *
* Date - 2021/11/10 *
*********************************************************************
TITLE 'LARLLIT TEST LARL REF TO OLD LENGTH LIT'
LARLLIT CSECT
USING *,15
LARL 0,=C'A' FIRST ODD LIT ON EVEN BOUNDARY
LARL 1,=C'ABC' SECOND ODD LIT ON ODD BOUND
BR 14
LTORG
END
Attachement 2: LARLLIT.PRN:
18:53:05 LARLLIT MZ390 START USING z390 v1.7.07-117-g350a3d3 ON J2SE 11.0.13
11/10/21
AZ390I Copyright 2021 Don Higgins
AZ390I z390 is licensed under GNU General Public License
AZ390I program = RPI\LARLLIT
AZ390I options = sysmac(+D:\dsh7w\github\z390\mac)
syscpy(+D:\dsh7w\github\z390\mac)
External Symbol Definitions
ESD=0001 LOC=00000000 LEN=00000018 TYPE=CST NAME=LARLLIT
Assembler Listing
000000 (1/1)1
*********************************************************************
000000 (1/2)2 * Copyright 2021 Don
Higgins *
000000 (1/3)3 * This source code is part
of z390 assembler/emulator package *
000000 (1/4)4 * The z390 package is
distributed under GNU general public license *
000000 (1/5)5 * Author - Don Higgins
*
000000 (1/6)6 * Date - 2021/11/10
*
000000 (1/7)7
*********************************************************************
000000 (1/8)8 TITLE 'LARLLIT
TEST LARL REF TO OLD LENGTH LIT'
000000 (1/9)9 LARLLIT CSECT
000000 (1/10)10 USING
*,15
LISTUSE LARLLIT ESD=0001 LOC=00000000 LEN=01000 REG=F OFF=00000 LAB=
000000 C00000000008 000010 (1/11)11 LARL
0,=C'A' FIRST ODD LIT ON EVEN BOUNDARY
000006 000011 (1/12)12 LARL
1,=C'ABC' SECOND ODD LIT ON ODD BOUND
AZ390E error 112 (1/12)12 LARL 1,=C'ABC' SECOND
ODD LIT ON ODD BOUND
AZ390I relate target address odd - 00000011
00000C 07FE (1/13)13 BR
14
00000E (1/14)14 LTORG
000010 C1 =C'A'
000011 C1C2C3 =C'ABC'
000014 (1/15)15 END
Symbol Table Listing
SYM=LARLLIT LOC=00000000 LEN=00000018 ESD=0001 TYPE=CST XREF=9
Literal Table Listing
LIT=C'A' LOC=00000010 LEN=00000001 ESD=0001 POOL=0001 XREF=11
LIT=C'ABC' LOC=00000011 LEN=00000003 ESD=0001 POOL=0001 XREF=12
AZ390I FID= 1 ERR= 1 D:\dsh7w\github\z390\RPI\LARLLIT.MLC
AZ390I total mnote warnings = 0
AZ390I total mnote errors = 0
AZ390I max mnote level = 0
AZ390I total mz390 errors = 0
AZ390I total az390 errors = 1
18:53:05 LARLLIT MZ390 ENDED RC=12 SEC= 0 MEM(MB)= 66 IO=65
Don Higgins
<mailto:[email protected]> [email protected]
www.don-higgins.net
From: [email protected] <[email protected]> On
Behalf Of [email protected]
Sent: Wednesday, November 10, 2021 7:29 PM
To: 'Melvyn Maltz' <[email protected]>; 'z390development'
<[email protected]>; [email protected]
Cc: 'IBM Mainframe Assembler List' <[email protected]>
Subject: I've opened z390\development GITHUB issue #327 to fix HLASM APAR
PH34824 which causes z390 assembler to fail on LARL refence to odd length
literal
All
I've opened z390\development
<https://github.com/z390development/z390/issues/327> GITHUB issue #327 to fix
documented problem (HLASM APAR PH34824) which causes assembler to fail on LARL
reference to odd length literal that ends up at odd literal pool address.
Attached is source z390 test program which causes error on LARL reference to
odd length literal on odd boundary.
Don Higgins
[email protected] <mailto:[email protected]>
www.don-higgins.net
--
You received this message because you are subscribed to the Google Groups
"z390development" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected]
<mailto:[email protected]> .
To view this discussion on the web visit
https://groups.google.com/d/msgid/z390development/005a01d7d693%2426f695f0%2474e3c1d0%24%40higgins.net
<https://groups.google.com/d/msgid/z390development/005a01d7d693%2426f695f0%2474e3c1d0%24%40higgins.net?utm_medium=email&utm_source=footer>
.
For more options, visit https://groups.google.com/d/optout.
