ASM370 - Contion code 4072

Author

Contion code 4072

Sheetal

2004-05-20, 6:30 am

Hi all i had written a small ASM program
TRY CSECT
BALR 11,0
USING *,11
AP D1,D2
B EXIT
D1 DC P'123'
D2 DC P'100'
EXIT DS 0H
BR 14
END
After Executing this program i am getting Contion code 4072 ...any one
can help on this Pls ..... thanks in advance

Roger S.

2004-05-20, 7:30 am

The condition code is derived from the contents of R15 when you exit
your program. Because you have not modified R15 in your program. it
will reflect the address of the entry point to your program.
4072 = x'FE8'.
To get a zero return code, set R15 to zero before your BR 14.
The method of zeroing the register I leave to you. To suggest which
instruction to use would lay me open to a lengthy philosophical
discussion as to which is quickest/most efficient/elegant.
All you guys (and gals) out there - Shhhhhhhh!!!!

Regards. Roger S.
remove the obvious to email me

On 20 May 2004 02:02:07 -0700, sheetalkbc@yahoo.com (Sheetal) wrote:

>Hi all i had written a small ASM program
>TRY CSECT
> BALR 11,0
> USING *,11
> AP D1,D2
> B EXIT
>D1 DC P'123'
>D2 DC P'100'
>EXIT DS 0H
> BR 14
> END
>After Executing this program i am getting Contion code 4072 ...any one
>can help on this Pls ..... thanks in advance

Andreas Lerch

2004-05-20, 7:30 am

Am 20.05.04, 09:02:07, schrieb sheetalkbc@yahoo.com (Sheetal) zum=20
Thema Contion code 4072:

[color=darkred]
> Hi all i had written a small ASM program
> TRY CSECT
> BALR 11,0
> USING *,11
> AP D1,D2
> B EXIT
> D1 DC P'123'
> D2 DC P'100'
> EXIT DS 0H
hi
xr 15,15
or
la 15,0
or
sr 15,15
thats for rc=3D5
> BR 14
> END
> After Executing this program i am getting Contion code 4072 ...any one=

> can help on this Pls ..... thanks in advance

Andreas Lerch

2004-05-20, 8:30 am

Am 20.05.04, 12:52:42, schrieb Andreas Lerch <andreas@andreas-lerch.de> =

zum Thema Re: Contion code 4072:

[color=darkred]
[color=darkred]
> Am 20.05.04, 09:02:07, schrieb sheetalkbc@yahoo.com (Sheetal) zum
> Thema Contion code 4072:

> hi
> xr 15,15
> or
> la 15,0
> or
> sr 15,15
> thats for rc=3D5
shoud be rc=3D0 (irrtum)[color=darkred]
ne[color=darkred]

glen herrmannsfeldt

2004-05-21, 4:30 am

Sheetal wrote:
> Hi all i had written a small ASM program
> TRY CSECT
> BALR 11,0
> USING *,11
> AP D1,D2
> B EXIT
> D1 DC P'123'
> D2 DC P'100'
> EXIT DS 0H
> BR 14
> END
> After Executing this program i am getting Contion code 4072 ...any one
> can help on this Pls ..... thanks in advance

The contents of the low 12 bits of R15 are the condition code.
(I believe it is only 12 bits.)

Since you have no other way to see the result from your
program, a nice solution would be to change the length
of D1 to 8 bytes, PL8'123' and then
just before the BR 14 you can do a CVB 15,D1

This will use the sum from the AP as the condition
code so that you will know if the program works.

-- glen

Sponsored Links