Newsgroups: bit.listserv.ibm-main
Date:         Mon, 5 Oct 1992 18:23:00 PDT
From:         Michael Stein <CSYSMAS@UCLAMVS.BITNET>
Subject:      IBM-360/370 Assembly Code Wanted
Comments: To: "(Jerry Hedden)" <hedden@ENIAC.SEAS.UPENN.EDU>

15688187 V2 R1 M00 IBM C/370                                             JCL
                10/05/92 18:19:13     Page     1


                                       * * * * *   P R O L O G   * * * * *

  Command options:
     Program name. . . . . . . . . : JCL
     Compiler options. . . . . . . : *NOGONUMBER *NOALIAS    *NODECK     *NORENT
     *TERMINAL   *NOUPCONV   *SOURCE     *LIST
                                   : *NOXREF     *NOAGGR     *NOPPONLY   *NOEXPM
AC   *SHOWINC    *NOOFFSET   *NOMEMORY   *NOSSCOMM
                                   : *NOCSECT    *NOLONGNAME *START
                                   : *TARGET()   *FLAG(I)    *NOTEST(SYM,BLOCK,L
INE) *OPTIMIZE(2)*SPILL(128)
                                   : *NOINLINE(AUTO,NOREPORT,250,1000)
                                   : *NOCHECKOUT(NOPPTRACE,PPCHECK,GOTO,ACCURACY
,PARM,NOENUM,
                                   : *           NOEXTERNAL,TRUNC,INIT,NOPORT,GE
NERAL)
                                   : *NOSEARCH
                                   : *NOLSEARCH
                                   : *OBJECT
     Language level. . . . . . . . : *EXTENDED
     Source margins. . . . . . . . :
       Varying length. . . . . . . : 1 - 32767
       Fixed length  . . . . . . . : 1 - 72
     Sequence columns. . . . . . . :
       Varying length. . . . . . . : none
       Fixed length. . . . . . . . : 73 - 80
15688187 V2 R1 M00 IBM C/370                                             JCL
                10/05/92 18:19:13     Page     2


                                           * * * * *   S O U R C E   * * * * *

  LINE  STMT
                                   SEQNBR INCNO
              *...+....1....+....2....+....3....+....4....+....5....+....6....+.
...7....+....8....+....9.......*
     1       | /* C source code listing */
                                |      1
     2       |
                                |      2
     3       | long a[100], b[100], c, i;
                                |      3
     4       |
                                |      4
     5       | main()
                                |      5
     6       | {
                                |      6
     7     1 |   for (i=0; i<=100; i++)
                                |      7
     8     2 |     a[i] = b[i] + c;
                                |      8
     9       | }
                                |      9
                                     * * * * *   E N D   O F   S O U R C E   * *
 * * *
15688187 V2 R1 M00 IBM C/370                                             JCL
                10/05/92 18:19:13     Page     3


                              * * * * *   M E S S A G E   S U M M A R Y   * * *
* *

         Total            Informational(00)          Warning(10)          Error(
30)            Severe Error(40)

           0                    0                        0                   0
                      0
                         * * * * *   E N D   O F   M E S S A G E   S U M M A R Y
   * * * * *
15688187 V2 R1 M00 IBM C/370                                             JCL
                10/05/92 18:19:13     Page     4

 OFFSET OBJECT CODE  LINE#          P S E U D O   A S S E M B L Y   L I S T I N
G

                           PPA2: Compile Unit Block
 000000  0300  1100                   6                 =F'50336000'       Flags
 000004  ****  ****                   7                 =A(CEESTART)
 000008  0000  0000                   8                 =F'0'              No PP
A4
 00000C  0000  0010                   9                 =A(TIMESTMP)
                           PPA2 End

 00003C                    00005 |   12 main      DS    0F
 00003C  47F0  F02A        00005 |   13           B     42(,r15)
 00005C  41E0  F044        00005 |   14           LA    r14,68(,r15)
 000060  58F0  C074        00005 |   15           L     r15,116(,r12)
 000064  07FF              00005 |   16           BR    r15
 000066  90EB  D00C        00005 |   17           STM   r14,r11,12(r13)
 00006A  5820  D04C        00005 |   18           L     r2,76(,r13)
 00006E  5800  F010        00005 |   19           L     r0,16(,r15)
 000072  5850  F01C        00005 |   20           L     r5,28(,r15)
 000076  1E02              00005 |   21           ALR   r0,r2
 000078  5500  C00C        00005 |   22           CL    r0,12(,r12)
 00007C  4720  F020        00005 |   23           BH    32(,r15)
 000080  58F0  D048        00005 |   24           L     r15,72(,r13)
 000084  90F0  2048        00005 |   25           STM   r15,r0,72(r2)
 000088  9210  2000        00005 |   26           MVI   0(r2),16
 00008C  50D0  2004        00005 |   27           ST    r13,4(,r2)
 000090  18D2              00005 |   28           LR    r13,r2
 000092  1841              00005 |   29           LR    r4,r1
 000094  0530              00005 |   30           BALR  r3
 000096                    End of Prolog
 000096  58F0  500C        00000 |   32           L     r15,c(,r5,12)
 00009A  58B0  5010        00007 |   33           L     r11,i(,r5,16)
 00009E  5870  F000        00000 |   34           L     r7,c(,r15,0)
 0000A2  41F0  0000        00007 |   35           LA    r15,0
 0000A6  5890  5004        00000 |   36           L     r9,a(,r5,4)
 0000AA  5880  5008        00000 |   37           L     r8,b(,r5,8)
 0000AE  18AF              00007 |   38           LR    r10,r15
 0000B0  182F              00000 |   39           LR    r2,r15
 0000B2  4100  0004        00000 |   40           LA    r0,4
 0000B6  4110  0190        00000 |   41           LA    r1,400
 0000BA                    00007 |   42 @1L1      DS    0H
 0000BA  1867              00008 |   43           LR    r6,r7
 0000BC  5A62  8000        00008 |   44           A     r6,b(r2,r8,0)
 0000C0  5AA0  304E        00008 |   45           A     r10,=F'1'
 0000C4  5062  9000        00008 |   46           ST    r6,a(r2,r9,0)
 0000C8  50A0  B000        00008 |   47           ST    r10,i(,r11,0)
 0000CC  8720  3024        00000 |   48           BXLE  r2,r0,@1L1
 0000D0                    00009 |   49 @1L4      DS    0H
 0000D0                    Start of Epilog
 0000D0  180D              00009 |   51           LR    r0,r13
 0000D2  58D0  D004        00009 |   52           L     r13,4(,r13)
 0000D6  58E0  D00C        00009 |   53           L     r14,12(,r13)
 0000DA  982B  D01C        00009 |   54           LM    r2,r11,28(r13)
 0000DE  05EE              00009 |   55           BALR  r14,r14
 0000E0  0707              00009 |   56           NOP
 0000E4                    Start of Literals
 0000E4  0000  0001                  58                 =F'1'
 0000E8                    End of Literals
15688187 V2 R1 M00 IBM C/370                                             JCL:mai
n               10/05/92 18:19:13     Page     5

 OFFSET OBJECT CODE  LINE#          P S E U D O   A S S E M B L Y   L I S T I N
G

 0000E8                    Adcon For Constant Area
 0000E8  0000  0076                  65                 =F'118'
 0000EC                    Tag Tables
 0000EC  0000  0000                  67                 =F'0'
 0000F0  7800  0008                  68                 =F'2013265928'
 0000F4  FF00  00B0                  69                 =F'-16777040'
 0000F8  FFFF  FF4F                  70                 =F'-177'
 0000FC  0100  0000                  71                 =F'16777216'
 000100  8024  04                    72                 =F'8397828'
 000103                              73                 =C'main'

                           PPA1: Entry Point Constants
 000040  14CE  A016                  76                 =F'349085718'      Flags
 000044  0000  0000                  77                 =A(PPA2)
 000048  0000  0000                  78                 =F'0'              No PP
A3
 00004C  0000  0078                  79                 =F'120'            DSA S
ize
 000050  0004                        80                 AL2(4),C'main'
                           PPA1 End

                           ***   General purpose registers used: 111001111111100
1
                           ***   Floating point registers used: 0000
                           ***   Size of dynamic storage: 120
                           ***   Size of executable code: 138

15688187 V2 R1 M00 IBM C/370                                             JCL
                10/05/92 18:19:13     Page     6

                                   E X T E R N A L   S Y M B O L   D I C T I O N
 A R Y

           NAME        TYPE  ID  ADDR    LENGTH            NAME        TYPE  ID
 ADDR    LENGTH

                        PC    1 000000   0000D0                         PC    2
000000   000000
           CEESG003     ER    3 000000                     CEESTART     ER    4
000000
           A            SD    5 000000   000190            B            SD    6
000000   000190
           C            SD    7 000000   000004            I            SD    8
000000   000004
           MAIN         ER    9 000000                     MAIN         LD    0
00003C   000001
           CEEMAIN      SD   10 000000   000004


                              * * * * *   E N D   O F   C O M P I L A T I O N
* * * * *
Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU