The Assembler put the ltorg after the end statement and it was for 20 bytes
However I am still getting a PC entry for 0 bytes
PC 00000001 00000000 00000000 00
BURN SD 00000002 00000000 00000254 07
CANCEL SD 00000003 00000258 00000007 00
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Dan Skomsky @ Home
Sent: Thursday, August 23, 2012 7:16 AM
To: [email protected]
Subject: Re: Strange PC entry
Maybe, but I don't think so. To check your hypothesis just place a "BURN
CSECT" statement just prior to the BEGIN statement and see what happens.
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]]
On Behalf Of Tony Thigpen
Sent: Thursday, August 23, 2012 5:02 AM
To: [email protected]
Subject: Re: Strange PC entry
It's because you have x20 bytes of 'something' generated by the BEGIN macro
that is before your CSECT statement. So, it's something in how the BEGIN
macro is coded.
Tony Thigpen
-----Original Message -----
From: Micheal Butz
Sent: 08/23/2012 04:44 AM
> Hi,
>
>
>
> My program source has a TITLE cards the REGS macro (equating
> registers)
and
> then CSECT statement with the name of the CSECT
>
>
>
> However the location counter starts at 20
>
>
>
> In my external symbol dictionary I have a PC entry (unnamed CSECT) at
> location 0 however the first statement in my program is the csect
> which starts at location 20
>
>
>
> 21 BURN BEGIN BASE=RBASE
>
> 000020 00020 00234 22+BURN CSECT
>
> 23+BURN AMODE 31
>
> 24+BURN RMODE ANY
>
> R:F 00020 25+ USING *,R15
>
> 000020 90EC D00C 0000C 26+ STM R14,R12,12(R13)
>
>
>
> External symbol dictionary
>
>
>
> Symbol Type Id Address Length Owner Id Flags Alias-of
>
> PC 00000001 00000000 00000020 00
>
> BURN SD 00000002 00000020 00000234 06
>
> CANCEL SD 00000003 00000258 00000007 00
>
>
>
> The following is the first few lines of my source
>
>
>
> TITLE 'BURN - ABEND A JOB OR ADDRESS SPACE'
>
> YREGS
>
> BURN BEGIN BASE=RBASE
>
> RCPPL EQU 7 COMMAND PROCESSOR PARAMTER LIS
>
> RPPL EQU 8 PARSER PARAMTER LIST
>
> RSAVE EQU 13
>
> RBASE EQU 12
>
> RCVT EQU 11
>
> RASCB EQU 10
>
> RASVT EQU 9
>
> RCNT EQU 8
>
> RPSCB EQU 6
>
> SPACE 5
>
> USING CPPL,RCPPL
>
>
>
> I keep wondering where is the unnamed CSECT
>
>
