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