Newsgroups: bit.listserv.ibm-main
Date:         Tue, 13 Oct 1992 14:00:59 EST
From:         ALVISET@FRNSAE11.BITNET

Subject: IBM-360/370 Code Needed


  Hi, as a reply to your question, here is an Object Module
Disassembly of your program on a 3090 (compatible 370). The
compiler is SAS/C v5.00 (from SAS Institute). Hope this helps...

/Laurent FOUCHER. Institut National de la Statistique et des Etudes
                  Economiques @ France

------   long a(|101|), b(|101|), c, i;
------
------   main()

                                  ++++  @MAIN
000000 47F0F028                      1    B     40(0,15)
000004 11
000005 40404040D4C1C9D5                       MAIN
00000D 4DD4C1C9D55D404040                 (MAIN)
000016 00020000 0000
00001C 00000000                           A(MAIN@?)
000020 00000000                           A(MAIN@:)
000024 00000000
000028 90E6D00C                      2    STM   14,6,12(13)
00002C 9240C04C                      3    MVI   76(12),64
000030 5840F020                      4    L     4,32(0,15)
000034 185F                          5    LR    5,15
 *** line 5 ***
------   
------     for (i=1; i<=100; i++)

000036 5860400C                      6    L     6,12(0,4)
00003A D203632CC044                  7    MVC   812(4,6),68(12)
000040 5860400C                      8    L     6,12(0,4)
000044 5820632C                      9    L     2,812(0,6)
000048 59204010                     10    C     2,16(0,4)
00004C 47305074                     11    BNLE  116(0,5)
 *** line 6 ***
------       a(|i|) = b(|i|) + c;

000050 1E22                         12    ALR   2,2
000052 1E22                         13    ALR   2,2
000054 58326194                     14    L     3,404(2,6)
000058 5A306328                     15    A     3,808(0,6)
00005C 50326000                     16    ST    3,0(2,6)
 *** line 5 ***

000060 41200001                     17    LA    2,1(0,0)
000064 5860400C                     18    L     6,12(0,4)
000068 5E20632C                     19    AL    2,812(0,6)
00006C 5020632C                     20    ST    2,812(0,6)
000070 47F05040                     21    B     64(0,5)
 *** line 7 ***
------  

000074 9200C04C                     22    MVI   76(12),0
000078 98E6D00C                     23    LM    14,6,12(13)
00007C 47F0C05C                     24    B     92(0,12)
===============================================
SYMBOL   TYPE  ID   ADDR  LENGTH  LDID
MAIN@:    SD  0001 000000 00002C
MAIN@+    WX  0002
MAIN@$    WX  0003
MAIN@$    SD  0004 000030 000330
A         LD       000030         0004
B         LD       0001C4         0004
C         LD       000358         0004
I         LD       00035C         0004
 LOC   OBJECT CODE         REL

 **** constant section ****
000000 F54BF0F0 C7404040                  5.00G
000008 00000000                           A(MAIN@+)
00000C 00000000                           V(MAIN@$)
000010 00000064 40144016
000018 4018401A 401C401E
000020 40204022 40244026
000028 4028402A         <<< ALIGNMENT: 4 bytes >>>
 **** static section ****
000030 0000000000000000       *........*
    lines 000038-000350 same as above
000358 0000000000000000       *........*
===============================================
SYMBOL   TYPE  ID   ADDR  LENGTH  LDID
MAIN@+    SD  0001 000000 000034
MAIN@$    WX  0002
 LOC   OBJECT CODE        REL

===============================================
 END