Retro1.org codex

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