ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov 1 19:25:08 2020
Source File: \s3float.asm
1 | *************************************************** S3C00010
2 | * * S3C00020
3 | * SUBROUTINE NAME- * S3C00030
4 | * FULL NAME- INTEGER TO FLOATING-POINT * S3C00040
5 | * CONVERSION SUBROUTINE. * S3C00050
6 | * CODE NAME- FLOAT * S3C00060
7 | * PURPOSE- THIS SUBROUTINE CONVERTS A ONE-WORD * S3C00070
8 | * INTEGER TO A FLOATING-POINT NUMBER IN FAC. * S3C00080
9 | * METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S3C00090
10 | * CAPABILITIES AND LIMITATIONS- SEE IBM 1130 * S3C00100
11 | * SUBROUTINE LIBRARY MANUAL. * S3C00110
12 | * SPECIAL FEATURES- N/A * S3C00120
13 | * ADDITIONAL INFORMATION- * S3C00130
14 | * ESTIMATED EXECUTION TIME- SEE IBM 1130 * S3C00140
15 | * SUBROUTINE LIBRARY MANUAL * S3C00150
16 | * * S3C00160
17 | *************************************************** S3C00170
LIBF FLOAT -V1.
19 | LIBR S3C00190
20 | ENT FLOAT * S3C00200
0000 7002 21 | FLOAT MDX *+2 S3C00210
0001 4C80 0000 22 | BSC I *-* CALL+1 S3C00220
0003 1890 23 | SRT 16 SHIFT INTEGER TO EXTENSION S3C00230
0004 DB7E 24 | STD 3 126 STORE IN FAC S3C00240
0005 C003 25 | LD EXK GET CORRECT EXPONENT S3C00250
0006 D37D 26 | STO 3 125 PUT EXPONENT IN FAC S3C00260
0007 1559*9500 27 | LIBF NORM NORMALIZE S3C00270
0008 70F8 28 | MDX FLOAT+1 RETURN TO CALL+1 S3C00280
0009 009F 29 | EXK DC 128+31 S3C00290
000A 30 | END S3C00300
There were no errors in this assembly
=== CROSS REFERENCES ==========================================================
Name Val Defd Referenced
EXK 0009R 29 25
FLOAT 0000R 21 28