Steve, all
It does look like AGH is missing. If not using register is more important
than being RENT, here is test macro program which uses MVC and AGHI:
* TEST AGH MACRO WHICH AVOIDS USING EXTRA REGISTER
* BUT IS NOT RENT
* DON HIGGINS 06/24/13
MACRO
&N AGH &RG,&SH
MVC *+6+2(2),&SH
AGHI &RG,*-*
MEND
TESTAGH CSECT
USING *,15
SGR 1,1
AGH 1,=H'1'
AGH 1,=H'-2'
CGFI 1,-1
BNE 1
SGR 15,15
BR 14
END
Here is the z390 execution trace:
09:51:02 TESTAGH EZ390 START USING z390 V1.5.06 ON J2SE 1.7.0_21 06/24/13
CDE LOAD=800FFFD0 LEN=00000030 NAME=W:\work\z390\TESTAGH.390
800FFFD0 0 B9090011 SGR R1=F4F4F4F400002300 R1=F4F4F4F400002300
800FFFD4 0 D201F00CF028 MVC S1(000FFFDC)=0000 S2(000FFFF8)=0001='..'
800FFFDA 0 A71B0001 AGHI R1=0000000000000000 I2=0001
800FFFDE 2 D201F016F02A MVC S1(000FFFE6)=0000 S2(000FFFFA)=FFFE='..'
800FFFE4 2 A71BFFFE AGHI R1=0000000000000001 I2=FFFE
800FFFE8 1 C21CFFFFFFFF CGFI R1=FFFFFFFFFFFFFFFF I2=FFFFFFFF
800FFFEE 0 47700001 BNE S2(00000001)=0000 ?????
800FFFF2 0 B90900FF SGR RF=F4F4F4F4800FFFD0 RF=F4F4F4F4800FFFD0
800FFFF6 0 07FE BR RE(00002018)=0A03 SVC
80002018 0 0A03 SVC I1=03 EXIT
09:51:03 TESTAGH EZ390 ENDED RC= 0 SEC= 0 MEM(MB)= 19 IO=20 INS=10
This was just for fun. I'm retired now, and the only new code I'm rolling
is in PHP and MySQL for Rotary websites.
Don Higgins
[email protected]
