R1FSBR

Table Of Contents
  • [00023] LIBF FSBR -V1.
r1fsbr.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \r1fsbr.asm 
                             1 | *************************************************** R1H00010
                             2 | *                                                 * R1H00020
                             3 | *   SUBROUTINE NAME-                              * R1H00030
                             4 | *      FULL NAME- STANDARD PRECISION FLOATING-    * R1H00040
                             5 | *         POINT SUBTRACT REVERSE NUMBERS.         * R1H00050
                             6 | *      CODE NAME- FSBR/FSBRX                      * R1H00060
                             7 | *   PURPOSE- THIS FUNCTION COMPUTES, IN REVERSE   * R1H00070
                             8 | *      ORDER FROM INPUT, THE DIFFERENCE BETWEEN   * R1H00080
                             9 | *      TWO STANDARD PRECISION FLOATING-POINT      * R1H00090
                            10 | *      NUMBERS.                                   * R1H00100
                            11 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1H00110
                            12 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * R1H00120
                            13 | *      SUBROUTINE LIBRARY MANUAL.                 * R1H00130
                            14 | *   SPECIAL FEATURES- N/A                         * R1H00140
                            15 | *   ADDITIONAL INFORMATION-                       * R1H00150
                            16 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * R1H00160
                            17 | *         SUBROUTINE LIBRARY MANUAL               * R1H00170
                            18 | *                                                 * R1H00180
                            19 | *************************************************** R1H00190
LIBF FSBR  -V1.
 
                            21 |       LIBR                                          R1H00210
                            22 |       SPR                                           R1H00220
                            23 |       ENT     FSBR                                  R1H00230
                            24 |       ENT     FSBRX                                 R1H00240
0000 6913                   25 | FSBRX STX   1 SAVE+1    SAVE XR1                    R1H00250
0001 C400 0000              26 |       LD   L  *-*       CALL+1                      R1H00260
0003 7004                   27 |       MDX     COM                                   R1H00270
0004 690F                   28 | FSBR  STX   1 SAVE+1                                R1H00280
0005 C400 0000              29 |       LD   L  *-*       CALL+1                      R1H00290
0007 6100                   30 |       LDX   1 0         X1= ZERO                    R1H00300
0008 D003                   31 | COM   STO     *+3       STORE ADDR OF MINUEND       R1H00310
0009 800D                   32 |       A       ONE       INCR ADDR FOR RET           R1H00320
000A D00B                   33 |       STO     EXIT+1    BUILD EXIT                  R1H00330
000B 7580 0000              34 |       MDX  I1 *-*       INCR (XR1) BY (CALL+1)      R1H00340
000D 1000                   35 |       NOP               IF MDX CAUSES BR,SKIP NOP   R1H00350
000E 10A0                   36 |       SLT     32        CLEAR ACCUMULATOR           R1H00360
000F 9B7E                   37 |       SD    3 126       REVERSE SIGN OF (FAC)       R1H00370
0010 DB7E                   38 |       STD   3 126                                   R1H00380
0011 0604*4127              39 |       LIBF    FADDX     REQUIRED SUBTRACTION        R1H00390
0012 0000                   40 |       DC      0         ADDR ADDED TO XR1-GET OPND  R1H00400
0013 6500 0000              41 | SAVE  LDX  L1 *-*       RESTORE XR1                 R1H00410
0015 4C00 0000              42 | EXIT  BSC  L  *-*       RET TO CALL+2               R1H00420
0017 0001                   43 | ONE   DC      1         SINGLE WORD ONE             R1H00430
0018                        44 |       END                                           R1H00440
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
COM   0008R   31   27
EXIT  0015R   42   33
FSBR  0004R   28
FSBRX 0000R   25
ONE   0017R   43   32
SAVE  0013R   41   25   28