The CALL macro supports 32 and 64 bit parm addresses. I believe it defaults to
32 bit and the SYSSTATE macro is used to change it. Does CELQPITY require 64
bit parm list? If so, make sure you have SYSSTATE prior to the call. Also make
sure SYSSTATE is before the CALL MF=L.
I've never used TEST so I'm not familiar with the specifics. Your listing below
seems to show it running the program with AMODE=31 and the L commands only
display fullwords. Did you switch to AMODE64 before calling CELQPITY?
Jon.
On Monday, October 28, 2019, 05:08:58 PM PDT, Joseph Reichman
<reichman...@gmail.com> wrote:
Just tried it with the service_rtns parm exactly as it was in the sample with
the exception
That the CELQPITY points to my 64 bit assembler program TEST64A program and do
X'20' DECIMAL 32
CALL (15),
X
(INIT_MAIN, CELQPIPI INIT_MAIN request X
CEEXPTBL_ADDR, Address of CELQPIPI table X
SERVICE_RTNS, Address of service rtn vector X
TOKEN), Token from INIT_MAIN
X
MF=(E,CALL_PL)
I traced the CEEWQLOAD it loaded TEST64A which had bit 63 as a one
After the load
IKJ57382I ENTRY POINT AT 1F790140 AMODE=31
TEST
L +F6
+F6 05EFB902
TEST
AT +F6
TEST
AT +F8
TEST
GO
CEEWQPIP: LOADing CELQPIPI
CEEWQPIP: Doing CELQPIPI INIT_MAIN
IKJ57024I AT +F6
TEST
GO
CEEWQLOD: Called to LOAD "TEST64A "
IKJ57024I AT +F8
TEST
L 15R
15R 00000020
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
