🚀 go-pugleaf

Perhaps this thread has been beaten to death, however, one more comment
was prompted by the remark of completeness below.  I won't claim this
to be the last word  :-)
On  Fri, 17 Jan 92 23:22:57 AST  NEWS%UCF1VM.BITNET@OHSTVMA.ACS.
OHIO-STATE.EDU writes:

> tjc50@ccc.amdahl.com (Terry Carroll) writes:
>
>>In article <1991Dec30.172729.10723@ux1.cso.uiuc.edu> phil@ux1.cso.
> uiuc.edu (Phil Howard KA9WGN) writes:
>>>label    DS    0H
>>>         DC    X'83450058'

Note that this combination will cause the assembler to write an
additional record to the object "deck".  Each time a DS instruction
is encountered the assembler completes the current TXT record and
the next DC or machine instruction will begin a new TXT record with
the offset in the csect being part of the control information.

>>>         DC    Y(X'8345',X'0058')
>>And, just for the sake of completeness:
>>label     DC   0H'0',X'83450058'
>      CNOP 0,8           (or was it  CNOP 8,0 ???)

All of these will allow the assembler to continue generating text in
the same TXT record until it fills.  A fill byte of zero will be
inserted if the statement is not already on a halfword boundary then
in the case of CNOP additional X'0700' halfwords to come up to the
requested boundary.

The following macro might be used for the general case:

         MACRO
         ALIGN &N
.*
.*       Force code to be aligned at an offset which is a multiple
.*         of the single parameter within the current LOCTR.
.*
         ORG   &SYSLOC+(*+(&N-1)-&SYSLOC)/&N*&N
         MEND

which will cause the following statement to assemble at an offset in
the current location counter which is a multiple of &N from the start.
Note that the ORG directive also forces a new TXT record.

         ORG   32
NEWPAGE  DS   0H

Will cause the code generated following NEWPAGE to begin on a new line
in a "core" dump if the location counter itself was so aligned which
sometimes makes reading dumps easier, even IPCS is a little more
convenient when major code sections are so aligned.  Creative use of
the above expression and the use of page alignment on the load module
as a whole can ensure the above condition be met.

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-  J. Anthony Fitzgerald                  Phone:     (506) 453-4573
   Computing Services                     NetNorth:  JAF@UNB.ca
   The University of New Brunswick              or   JAF@UNB
   PO Box 4400
   Fredericton, N.B.  Canada
   E3B 5A3