Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \r2fabs.asm 
                             1 | *************************************************** R2A00010
                             2 | *                                                 * R2A00020
                             3 | *   SUBROUTINE NAME-                              * R2A00030
                             4 | *      FULL NAME- STANDARD PRECISION FLOATING-    * R2A00040
                             5 | *         POINT ABSOLUTE VALUE FUNCTION.          * R2A00050
                             6 | *      CODE NAME- FAVL/FABS                       * R2A00060
                             7 | *   PURPOSE- THIS SUBPROGRAM COMPUTES THE ABSOLUTE* R2A00070
                             8 | *      VALUE OF A STANDARD PRECISION FLOATING-    * R2A00080
                             9 | *      POINT NUMBER.                              * R2A00090
                            10 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R2A00100
                            11 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * R2A00110
                            12 | *      SUBROUTINE LIBRARY MANUAL.                 * R2A00120
                            13 | *   SPECIAL FEATURES- N/A                         * R2A00130
                            14 | *   ADDITIONAL INFORMATION-                       * R2A00140
                            15 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * R2A00150
                            16 | *         SUBROUTINE LIBRARY MANUAL               * R2A00160
                            17 | *                                                 * R2A00170
                            18 | *************************************************** R2A00180
CALL FABS  -V1.
 
                            20 |       SPR                                           R2A00200
                            21 |       ENT     FABS      STANDARD FORTRAN NAME       R2A00210
                            22 |       ENT     FAVL      USERS NAME                  R2A00220
0000 0000                   23 | FABS  DC      0         FORTRAN ENTRY               R2A00230
0001 061C*58D7              24 |       LIBF    FGETP     GET PARAMETER               R2A00240
0002 0000                   25 | EXIT  DC      0         STORE RET ADDR              R2A00250
0003 C37E                   26 |       LD    3 126       GET SIGN                    R2A00260
0004 4C90 0002R             27 |       BSC  I  EXIT,-    BR OUT IF NON-NEG           R2A00270
0006 10A0                   28 |       SLT     32        IF NEG,CLEAR ACC            R2A00280
0007 9B7E                   29 |       SD    3 126       AND REVERSE SIGN OF         R2A00290
0008 DB7E                   30 |       STD   3 126       MANTISSA,RET TO FAC         R2A00300
0009 4C80 0002R             31 |       BSC  I  EXIT      BR TO CALLING PROG          R2A00310
0002R                       32 | FAVL  EQU     EXIT      DEFN USERS ENTRY            R2A00320
000B                        33 |       END                                           R2A00330
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
EXIT  0002R   25   27   31   32
FABS  0000R   23
FAVL  0002R   32