User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:s2eabs_lst

S2EABS

Table Of Contents
s2eabs.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \s2eabs.asm 
                             1 | *************************************************** S2A00010
                             2 | *                                                 * S2A00020
                             3 | *   SUBROUTINE NAME-                              * S2A00030
                             4 | *      FULL NAME-EXTENDED PRECISION ABSOLUTE VALUE* S2A00040
                             5 | *         FUNCTION.                               * S2A00050
                             6 | *      CODE NAME-EAVL/EABS                        * S2A00060
                             7 | *   PURPOSE- THIS SUBPROGRAM COMPUTES THE ABSOLUTE* S2A00070
                             8 | *      VALUE OF AN EXTENDED PRECISION FLOATING-   * S2A00080
                             9 | *      POINT NUMBER.                              * S2A00090
                            10 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S2A00100
                            11 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * S2A00110
                            12 | *      SUBROUTINE LIBRARY MANUAL.                 * S2A00120
                            13 | *   SPECIAL FEATURES- N/A                         * S2A00130
                            14 | *   ADDITIONAL INFORMATION-                       * S2A00140
                            15 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * S2A00150
                            16 | *         SUBROUTINE LIBRARY MAMUAL               * S2A00160
                            17 | *                                                 * S2A00170
                            18 | *************************************************** S2A00180
                            19 | *                                                 * S2A00190
                            20 |       EPR                                           S2A00200
                            21 |       ENT     EABS      STANDARD FORTRAN NAME       S2A00210
                            22 |       ENT     EAVL                                  S2A00220
0000 0000                   23 | EABS  DC      0         FORTRAN ENTRY               S2A00230
0001 051C*58D7              24 |       LIBF    EGETP     GET PARAMETER               S2A00240
0002 0000                   25 | EXIT  DC      0         RETURN ADDRESS              S2A00250
0003 C37E                   26 |       LD    3 126       GET SIGN OF NUMBER          S2A00260
0004 4C90 0002R             27 |       BSC  I  EXIT,-    IF NON-NEG,EXIT             S2A00270
0006 10A0                   28 |       SLT     32        IF NEG.,CLEAR ACC           S2A00280
0007 9B7E                   29 |       SD    3 126       REVERSE SIGN OF NUMBER      S2A00290
0008 DB7E                   30 |       STD   3 126       RET NO. TO FLT ACC          S2A00300
0009 4C80 0002R             31 |       BSC  I  EXIT      EXIT                        S2A00310
0002R                       32 | EAVL  EQU     EXIT      DEFINE EAVL ENTRY POINT     S2A00320
000B                        33 |       END                                           S2A00330
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
EABS  0000R   23
EAVL  0002R   32
EXIT  0002R   25   27   31   32
ibm/ibm1130-lib/dmsr2v12/s2eabs_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator