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