ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020 Source File: \s2eaxb.asm 1 | *************************************************** S2C00010 2 | * * S2C00020 3 | * SUBROUTINE NAME- * S2C00030 4 | * FULL NAME- EXTENDED PRECISION FLOATING- * S2C00040 5 | * POINT A**B FUNCTION. * S2C00050 6 | * CODE NAME-EAXB/EAXBX * S2C00060 7 | * PURPOSE- THIS SUBROUTINE COMPUTES AND EXTENDED* S2C00070 8 | * PRECISION FLOATING-POINT NUMBER TAKEN TO AN* S2C00080 9 | * EXTENDED PRECISION FLOATING-POINT EXPONENT.* S2C00090 10 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S2C00100 11 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S2C00110 12 | * SUBROUTINE LIBRARY MANUAL. * S2C00120 13 | * SPECIAL FEATURES- N/A * S2C00130 14 | * ADDITIONAL INFORMATION- * S2C00140 15 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S2C00150 16 | * SUBROUTINE LIBRARY MANUAL * S2C00160 17 | * * S2C00170 18 | *************************************************** S2C00180 CALL EAXB -V1. 20 | EPR S2C00200 21 | ENT EAXB S2C00210 22 | ENT EAXBX S2C00220 0000 0000 23 | EAXBX DC *-* CALL+1 S2C00230 0001 691B 24 | STX 1 EXIT+1 SAVE XR1 S2C00240 0002 C400 0000R 25 | LD L EAXBX CALL+1 INTO ACCUMULATOR S2C00250 0004 7005 26 | MDX COM S2C00260 0005 0000 27 | EAXB DC *-* CALL+1 S2C00270 0006 6916 28 | STX 1 EXIT+1 SAVE XR1 S2C00280 0007 C400 0005R 29 | LD L EAXB CALL+1 INTO ACCUMULATOR S2C00290 0009 6100 30 | LDX 1 0 X1=ZERO S2C00300 000A D003 31 | COM STO *+3 S2C00310 000B 8026 32 | A ONE BUILD EXIT S2C00320 000C D012 33 | STO EXIT+3 S2C00330 000D 7580 0000 34 | MDX I1 *-* OPND ADDRESS INTO XR1 S2C00340 000F 1000 35 | NOP S2C00350 0010 C37E 36 | LD 3 126 SIGN OF A INTO ACCUMULATOR S2C00360 0011 4C18 0020R 37 | BSC L TEST,+- BR TO TEST IF A=0 S2C00370 0013 C101 38 | LD 1 1 SIGN OF B INTO ACCUMULATOR S2C00380 0014 4C18 0027R 39 | BSC L SPEC,+- BR TO SPEC IF A NOT 0, B=0 S2C00390 40 | * S2C00400 41 | *IF A NOT ZERO AND B NOT ZERO,CALC A**B S2C00410 42 | * S2C00420 0016 054D*5000 43 | CALL ELN NATURAL LOG OF A S2C00430 0018 0551*7A27 44 | LIBF EMPYX B*LNA S2C00440 0019 0000 45 | DC 0 EFFECTIVE ADDRESS OF B S2C00450 001A 059D*7540 46 | CALL EXPN E**B*LNA=A**B S2C00460 001C 6500 0000 47 | EXIT LDX L1 *-* RESTORE XR1 S2C00470 001E 4C00 0000 48 | BSC L *-* EXIT S2C00480 49 | * S2C00490 50 | *IF A=O,B NOT NEG,SET A**B=O S2C00500 51 | * S2C00510 0020 C101 52 | TEST LD 1 1 SIGN OF B INTO ACCUMULATOR S2C00520 0021 4C08 002CR 53 | BSC L FERR,+ BR TO FERR IF B NOT PLUS S2C00530 0023 10A0 54 | SLT 32 CLEAR ACC AND EXT S2C00540 0024 D37D 55 | STO 3 125 A**B=ZERO S2C00550 0025 DB7E 56 | STD 3 126 S2C00560 0026 70F5 57 | MDX EXIT S2C00570 58 | * S2C00580 59 | *IF A NOT ZERO AND B=O,SET A**B=1 S2C00590 60 | * S2C00600 0027 C00B 61 | SPEC LD FONE LD FAC WITH EXPONENT OF +1 S2C00610 0028 D37D 62 | STO 3 125 S2C00620 0029 C80A 63 | LDD FONE+1 LD FAC WITH MANTISSA OF +1 S2C00630 002A DB7E 64 | STD 3 126 S2C00640 002B 70F0 65 | MDX EXIT S2C00650 66 | * S2C00660 67 | *IF A=O AND B NOT PTV,SET ERROR INDR S2C00670 68 | * S2C00680 002C C003 69 | FERR LD ERRB GET BIT 9 WORD S2C00690 002D EB7C 70 | OR 3 124 BIT 9 OF (XR3)+124 S2C00700 002E D37C 71 | STO 3 124 S2C00710 002F 70EC 72 | MDX EXIT S2C00720 73 | * S2C00730 74 | *CONSTANTS AREA S2C00740 75 | * S2C00750 0030 0040 76 | ERRB DC /40 BIT 9 S2C00760 0032 77 | BSS E 0 S2C00770 0032 0001 78 | ONE DC 1 SINGLE WORD ONE S2C00780 0033 0081 4000 0000 79 | FONE XFLC 1.0 EXTENDED PREC FLT PT ONE S2C00790 0036 80 | END S2C00800 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced COM 000AR 31 26 EAXB 0005R 27 29 EAXBX 0000R 23 25 ERRB 0030R 76 69 EXIT 001CR 47 24 28 33 57 65 72 FERR 002CR 69 53 FONE 0033R 79 61 63 ONE 0032R 78 32 SPEC 0027R 61 39 TEST 0020R 52 37