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