For some unknown reason, the assembler requires EQU to be in a section, be it CSECT or DSECT. Move the REGS macro after the CSECT.
On Thu, 23 Aug 2012 09:08:44 -0400 Micheal Butz <[email protected]> wrote: :>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 :>> :>> -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies.
