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