0000E2 4450 90FC 000FE 1959 EX R5,VERSTOR
CHECK STORAGE TO VERIFY 00062600
0000E6 4770 9128 0012A 1960 BNE ERRVER
00062700
0000EA BF6F 2010 00010 1961 ICM R6,15,VSISVWTM
L.A. OF DATA TO MODIFY 00062802
0000EE 4780 9130 00132 1962 BZ ERRWTM
00062900
1963 AIF ('&SYSPARM' NE
'MVS').NMVS003
0000F2 4450 9102 00104 1964 EX R5,MODSTOR
GO MODIFY STORAGE 00063000
1965 .NMVS003 ANOP
1966 AIF ('&SYSPARM' NE
'VSE').NVSE003
1967 .NVSE003 ANOP
0000F6 41F0 0000 00000 1968 LA 15,0
SET DONE RC 00063100
0000FA 47F0 9140 00142 1969 B RETURN
00063200
1970 *
00063300
0000FE D500 3000 4000 00000 00000 1971 VERSTOR CLC 0(*-*,R3),0(R4)
VERIFY STORAGE 00063400
000104 D200 3000 6000 00000 00000 1972 MODSTOR MVC 0(*-*,R3),0(R6)
MODIFY STORAGE 00063500
0010A 1973 ERRFUNC EQU *
00063600
00010A 41F0 0001 00001 1974 LA R15,1
00063700
The PSW points after the highlighted one. Richard
GRR 8-9 00000000_00000000 00000000_80D4DB7A
GPR A-B 00000000_00AFD608 00000000_7F559430
GPR C-D 00000000_010C52C0 00000000_0005DBCC
GPR E-F 00000000_00FF3900 00000000_00000000
ACCESS REGISTERS 0-15
AR 0-3 00AFF208 00000002 00000000 00000000
AR 4-7 00000000 00000000 00000000 00000000
AR 8-B 00000000 00000000 00000000 00000000
AR C-F 00000000 00000000 00000000 00000000
FLOATING POINT REGISTERS 0-15
FPR 0-1 00000000_00000000 00000000_00000000
FPR 2-3 00000000_00000000 00000000_00000000
FPR 4-5 00000000_00000000 00000000_00000000
FPR 6-7 00000000_00000000 00000000_00000000
FPR 8-9 00000000_00000000 00000000_00000000
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
