ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:07 2020 Source File: \r1fld.asm 1 | *************************************************** R1F00010 2 | * * R1F00020 3 | * SUBROUTINE NAME- * R1F00030 4 | * FULL NAME- STANDARD PRECISION FLOATING- * R1F00040 5 | * POINT LOAD-STORE SUBROUTINE. * R1F00050 6 | * CODE NAME- FLD/FLDX/FSTO/FSTOX * R1F00060 7 | * PURPOSE- THIS SUBROUTINE LOADS A SPECIFIED * R1F00070 8 | * STANDARD PRECISION FLOATING-POINT NUMBER * R1F00080 9 | * INTO FAC, OR STORES THE CONTENTS OF FAC IN * R1F00090 10 | * A SPECIFIED LOCATION. * R1F00100 11 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1F00110 12 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * R1F00120 13 | * SUBROUTINE LIBRARY MANUAL. * R1F00130 14 | * SPECIAL FEATURES- N/A * R1F00140 15 | * ADDITIONAL INFORMATION- * R1F00150 16 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * R1F00160 17 | * SUBROUTINE LIBRARY MANUAL * R1F00170 18 | * * R1F00180 19 | *************************************************** R1F00190 LIBF FLD -V1. 21 | LIBR R1F00210 22 | SPR R1F00220 23 | ENT FLD R1F00230 24 | ENT FLDX R1F00240 25 | ENT FSTO R1F00250 26 | ENT FSTOX R1F00260 27 | * R1F00270 28 | *SUBROUTINES TO STORE (FAC) IN ARG R1F00280 29 | * R1F00290 0000 6932 30 | FSTOX STX 1 SAVE+1 SAVE XR1 R1F00300 0001 C400 0000 31 | LD L *-* CALL+1 R1F00310 0003 7004 32 | MDX COM R1F00320 0004 692E 33 | FSTO STX 1 SAVE+1 SAVE XR1 R1F00330 0005 C400 0000 34 | LD L *-* CALL+1 R1F00340 0007 6100 35 | LDX 1 0 X1= ZERO R1F00350 0008 D003 36 | COM STO *+3 SAVE OPND ADDR R1F00360 0009 8011 37 | A ONE BUILD EXIT R1F00370 000A D02A 38 | STO EXIT+1 R1F00380 000B 7580 0000 39 | MDX I1 *-* MODIFY X1 BY OP ADDRESS R1F00390 000D 1000 40 | NOP IF MDX CAUSES BR,SKIP NOP R1F00400 000E CB7E 41 | LDD 3 126 GET MANTISSA R1F00410 000F 4828 42 | BSC +Z ADD 000000FF TO NEGATIVE R1F00420 0010 8807 43 | AD ALLX MANTISSA SO TRUNCATION OF R1F00430 0011 18D0 44 | RTE 16 + AND - NO.S IS IDENTICAL. R1F00440 0012 E007 45 | AND MASK MASK OUT EXPONENT FIELD R1F00450 0013 EB7D 46 | OR 3 125 PUT IN EXPONENT R1F00460 0014 18D0 47 | RTE 16 RESTORE PROPER ORDER R1F00470 0015 D900 48 | STD 1 0 STORE IN OPND R1F00480 0016 701B 49 | MDX SAVE R1F00490 0018 0000 00FF 50 | ALLX DEC 255 ADD CON FOR NEG NO.S R1F00500 001A FF00 51 | MASK DC /FF00 MASK OUT EXPONENT FIELD R1F00510 001B 0001 52 | ONE DC /1 SINGLE WORD ONE R1F00520 53 | * R1F00530 54 | *SUBROUTINES TO LOAD (ARG) INTO FAC R1F00540 55 | * R1F00550 001C 6916 56 | FLDX STX 1 SAVE+1 SAVE XR1 R1F00560 001D C400 0000 57 | LD L *-* CALL+1 R1F00570 001F 7004 58 | MDX COMM R1F00580 0020 6912 59 | FLD STX 1 SAVE+1 SAVE XR1 R1F00590 0021 C400 0000 60 | LD L *-* CALL+1 R1F00600 0023 6100 61 | LDX 1 0 X1= ZERO R1F00610 0024 D003 62 | COMM STO *+3 R1F00620 0025 80F5 63 | A ONE BUILD EXIT R1F00630 0026 D00E 64 | STO EXIT+1 R1F00640 0027 7580 0000 65 | MDX I1 *-* MODIFY X1 BY OP ADDRESS R1F00650 0029 1000 66 | NOP R1F00660 002A 2806 67 | STS STAT SAVE STATUS R1F00670 002B C900 68 | LDD 1 0 LOAD OPERAND R1F00680 002C DB7E 69 | STD 3 126 STORE OPERAND IN FAC R1F00690 002D 2B7F 70 | STS 3 127 STRIP OFF EXPONENT R1F00700 002E 18D0 71 | RTE 16 R1F00710 002F F37F 72 | EOR 3 127 EXPONENT ONLY IN ACC R1F00720 0030 D37D 73 | STO 3 125 STORE EXPONENT IN FAC R1F00730 0031 2000 74 | STAT LDS *-* STORE STATUS R1F00740 0032 6500 0000 75 | SAVE LDX L1 *-* STORE XR1 R1F00750 0034 4C00 0000 76 | EXIT BSC L *-* RET TO CALL+2 R1F00760 0036 77 | END R1F00770 There were no errors in this assembly === CROSS REFERENCES ========================================================== Name Val Defd Referenced ALLX 0018R 50 43 COM 0008R 36 32 COMM 0024R 62 58 EXIT 0034R 76 38 64 FLD 0020R 59 FLDX 001CR 56 FSTO 0004R 33 FSTOX 0000R 30 MASK 001AR 51 45 ONE 001BR 52 37 63 SAVE 0032R 75 30 33 49 56 59 STAT 0031R 74 67