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