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