ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020

Source File: \s3snr.asm 
                             1 | *************************************************** S3F00010
                             2 | *                                                 * S3F00020
                             3 | *   SUBROUTINE NAME-                              * S3F00030
                             4 | *      FULL NAME- FLOATING-POINT SIGN REVERSAL    * S3F00040
                             5 | *         FUNCTION                                * S3F00050
                             6 | *      CODE NAME- SNR                             * S3F00060
                             7 | *   PURPOSE- THIS SUBPROGRAM REVERSES THE SIGN OF * S3F00070
                             8 | *      A FLOATING-POINT EXTENDED PRECISION NUMBER.* S3F00080
                             9 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S3F00090
                            10 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * S3F00100
                            11 | *      SUBROUTINE LIBRARY MANUAL.                 * S3F00110
                            12 | *   SPECIAL FEATURES- N/A                         * S3F00120
                            13 | *   ADDITIONAL INFORMATION-                       * S3F00130
                            14 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * S3F00140
                            15 | *         SUBROUTINE LIBRARY MANUAL               * S3F00150
                            16 | *                                                 * S3F00160
                            17 | *************************************************** S3F00170
LIBF SNR  -V1.

                            19 |       LIBR                                          S3F00190
                            20 |       ENT     SNR                                   S3F00200
0000 7002                   21 | SNR   MDX     *+2                                   S3F00210
0001 4C80 0000              22 |       BSC  I  *-*       LOADER INSERT               S3F00220
0003 10A0                   23 |       SLT     32        CLEAR ACC AND EXT           S3F00230
0004 9B7E                   24 |       SD    3 126       REVERSE SIGN                S3F00240
0005 DB7E                   25 |       STD   3 126       PUT BACK IN FAC             S3F00250
0006 70FA                   26 |       MDX     SNR+1     BRANCH TO RETURN            S3F00260
0007                        27 |       END                                           S3F00270

There were no errors in this assembly

=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
SNR   0000R   21   26