ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020
Source File: \s1eld.asm
1 | *************************************************** S1F00010
2 | * * S1F00020
3 | * SUBROUTINE NAME- * S1F00030
4 | * FULL NAME- EXTENDED PRECISION FLOATING- * S1F00040
5 | * POINT LOAD-STORE SUBPROGRAM. * S1F00050
6 | * CODE NAME- ELD/ELDX/ESTO/ESTOX * S1F00060
7 | * PURPOSE- THIS SUBPROGRAM LOADS THE SPECIFIED * S1F00070
8 | * EXTENDED PRECISION FLOATING-POINT NUMBER * S1F00080
9 | * INTO FAC,OR WILL STORE THE CONTENTS OF FAC * S1F00090
10 | * IN A SPECIFIED LOCATION. * S1F00100
11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1F00110
12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S1F00120
13 | * SUBROUTINE LIBRARY MANUAL. * S1F00130
14 | * SPECIAL FEATURES- N/A * S1F00140
15 | * ADDITIONAL INFORMATION- * S1F00150
16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S1F00160
17 | * SUBROUTINE LIBRARY MANUAL * S1F00170
18 | * * S1F00180
19 | *************************************************** S1F00190
LIBF ELD -V1.
21 | LIBR S1F00210
22 | EPR S1F00220
23 | ENT ELD S1F00230
24 | ENT ELDX S1F00240
25 | ENT ESTO S1F00250
26 | ENT ESTOX S1F00260
27 | * S1F00270
28 | *SUBROUTINES TO STORE (FAC) IN ARG S1F00280
29 | * S1F00290
0000 692A 30 | ESTOX STX 1 SV+1 INDEXED STORE ENTRY S1F00300
0001 C400 0000 31 | LD L *-* CALL +1 S1F00310
0003 7004 32 | MDX COM S1F00320
0004 6926 33 | ESTO STX 1 SV+1 NON-INDEXED STORE ENTRY S1F00330
0005 C400 0000 34 | LD L *-* CALL+1 S1F00340
0007 6100 35 | LDX 1 0 SUPPRESS INDEXING S1F00350
0008 D003 36 | COM STO *+3 STORE LOC OF OPND ADDR S1F00360
0009 800B 37 | A ONE INCR ADDR BY 1 S1F00370
000A D022 38 | STO EXIT+1 BUILD EXIT S1F00380
000B 7580 0000 39 | MDX I1 *-* MODIFY XR1 BY OPND ADDR S1F00390
000D 1000 40 | NOP IF MDX CAUSES BR,SKIP NOP S1F00400
000E CB7E 41 | LDD 3 126 GET CONTENTS OF FAC S1F00410
000F D101 42 | STO 1 1 AND STORE IN ARG LOC S1F00420
0010 18D0 43 | RTE 16 S1F00430
0011 D102 44 | STO 1 2 S1F00440
0012 C37D 45 | LD 3 125 S1F00450
0013 D100 46 | STO 1 0 S1F00460
0014 7015 47 | MDX SV BR TO QUIT S1F00470
0015 0001 48 | ONE DC 1 SINGLE WORD ONE S1F00480
49 | * S1F00490
50 | *SUBROUTINES TO LOAD (ARG) INTO FAC S1F00500
51 | * S1F00510
0016 6914 52 | ELDX STX 1 SV+1 INDEXED LOAD ENTRY S1F00520
0017 C400 0000 53 | LD L *-* CALL+1 S1F00530
0019 7004 54 | MDX CMN S1F00540
001A 6910 55 | ELD STX 1 SV+1 NON-INDEXED LOAD ENTRY S1F00550
001B C400 0000 56 | LD L *-* CALL+1 S1F00560
001D 6100 57 | LDX 1 0 SUPPRESS INDEXING S1F00570
001E D003 58 | CMN STO *+3 STORE LOC OF OPND ADDR S1F00580
001F 80F5 59 | A ONE INCR ADDR BY 1 S1F00590
0020 D00C 60 | STO EXIT+1 BUILD EXIT S1F00600
0021 7580 0000 61 | MDX I1 *-* MODIFY XR1 BY OPND ADDR S1F00610
0023 1000 62 | NOP IF MAX CAUSES BR,SKIP NOP S1F00620
0024 C100 63 | LD 1 0 GET EXPONENT S1F00630
0025 D37D 64 | STO 3 125 PUT IN FAC S1F00640
0026 C102 65 | LD 1 2 GET SECOND HALF OF OPND S1F00650
0027 18D0 66 | RTE 16 SHIFT TO EXTENSION S1F00660
0028 C101 67 | LD 1 1 GET FIRST HALF OF OPND S1F00670
0029 DB7E 68 | STD 3 126 PUT OPND IN FAC S1F00680
002A 6500 0000 69 | SV LDX L1 *-* RESTORE XR1 S1F00690
002C 4C00 0000 70 | EXIT BSC L *-* BR OUT S1F00700
002E 71 | END S1F00710
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
CMN 001ER 58 54
COM 0008R 36 32
ELD 001AR 55
ELDX 0016R 52
ESTO 0004R 33
ESTOX 0000R 30
EXIT 002CR 70 38 60
ONE 0015R 48 37 59
SV 002AR 69 30 33 47 52 55