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