home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #23 / NN_1992_23.iso / spool / bit / listserv / ibmmain / 2355 < prev    next >
Encoding:
Text File  |  1992-10-13  |  3.6 KB  |  101 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Subject: (no subject given)
  3. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!paladin.american.edu!auvm!FRNSAE11.BITNET!ALVISET
  4. Message-ID: <IBM-MAIN%92101314321856@DEARN>
  5. Newsgroups: bit.listserv.ibm-main
  6. Date:         Tue, 13 Oct 1992 14:00:59 EST
  7. Sender:       IBM Mainframe Discussion list <IBM-MAIN@RICEVM1.BITNET>
  8. From:         ALVISET@FRNSAE11.BITNET
  9. Lines: 90
  10.  
  11. Subject: IBM-360/370 Code Needed
  12.  
  13.  
  14.   Hi, as a reply to your question, here is an Object Module
  15. Disassembly of your program on a 3090 (compatible 370). The
  16. compiler is SAS/C v5.00 (from SAS Institute). Hope this helps...
  17.  
  18. /Laurent FOUCHER. Institut National de la Statistique et des Etudes
  19.                   Economiques @ France
  20.  
  21. ------   long a(|101|), b(|101|), c, i;
  22. ------
  23. ------   main()
  24.  
  25.                                   ++++  @MAIN
  26. 000000 47F0F028                      1    B     40(0,15)
  27. 000004 11
  28. 000005 40404040D4C1C9D5                       MAIN
  29. 00000D 4DD4C1C9D55D404040                 (MAIN)
  30. 000016 00020000 0000
  31. 00001C 00000000                           A(MAIN@?)
  32. 000020 00000000                           A(MAIN@:)
  33. 000024 00000000
  34. 000028 90E6D00C                      2    STM   14,6,12(13)
  35. 00002C 9240C04C                      3    MVI   76(12),64
  36. 000030 5840F020                      4    L     4,32(0,15)
  37. 000034 185F                          5    LR    5,15
  38.  *** line 5 ***
  39. ------   ñ
  40. ------     for (i=1; i<=100; i++)
  41.  
  42. 000036 5860400C                      6    L     6,12(0,4)
  43. 00003A D203632CC044                  7    MVC   812(4,6),68(12)
  44. 000040 5860400C                      8    L     6,12(0,4)
  45. 000044 5820632C                      9    L     2,812(0,6)
  46. 000048 59204010                     10    C     2,16(0,4)
  47. 00004C 47305074                     11    BNLE  116(0,5)
  48.  *** line 6 ***
  49. ------       a(|i|) = b(|i|) + c;
  50.  
  51. 000050 1E22                         12    ALR   2,2
  52. 000052 1E22                         13    ALR   2,2
  53. 000054 58326194                     14    L     3,404(2,6)
  54. 000058 5A306328                     15    A     3,808(0,6)
  55. 00005C 50326000                     16    ST    3,0(2,6)
  56.  *** line 5 ***
  57.  
  58. 000060 41200001                     17    LA    2,1(0,0)
  59. 000064 5860400C                     18    L     6,12(0,4)
  60. 000068 5E20632C                     19    AL    2,812(0,6)
  61. 00006C 5020632C                     20    ST    2,812(0,6)
  62. 000070 47F05040                     21    B     64(0,5)
  63.  *** line 7 ***
  64. ------  ç
  65.  
  66. 000074 9200C04C                     22    MVI   76(12),0
  67. 000078 98E6D00C                     23    LM    14,6,12(13)
  68. 00007C 47F0C05C                     24    B     92(0,12)
  69. ===============================================
  70. SYMBOL   TYPE  ID   ADDR  LENGTH  LDID
  71. MAIN@:    SD  0001 000000 00002C
  72. MAIN@+    WX  0002
  73. MAIN@$    WX  0003
  74. MAIN@$    SD  0004 000030 000330
  75. A         LD       000030         0004
  76. B         LD       0001C4         0004
  77. C         LD       000358         0004
  78. I         LD       00035C         0004
  79.  LOC   OBJECT CODE         REL
  80.  
  81.  **** constant section ****
  82. 000000 F54BF0F0 C7404040                  5.00G
  83. 000008 00000000                           A(MAIN@+)
  84. 00000C 00000000                           V(MAIN@$)
  85. 000010 00000064 40144016
  86. 000018 4018401A 401C401E
  87. 000020 40204022 40244026
  88. 000028 4028402A         <<< ALIGNMENT: 4 bytes >>>
  89.  **** static section ****
  90. 000030 0000000000000000       *........*
  91.     lines 000038-000350 same as above
  92. 000358 0000000000000000       *........*
  93. ===============================================
  94. SYMBOL   TYPE  ID   ADDR  LENGTH  LDID
  95. MAIN@+    SD  0001 000000 000034
  96. MAIN@$    WX  0002
  97.  LOC   OBJECT CODE        REL
  98.  
  99. ===============================================
  100.  END
  101.