Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \s1esbr.asm 
                             1 | *************************************************** S1H00010
                             2 | *                                                 * S1H00020
                             3 | *   SUBROUTINE NAME-                              * S1H00030
                             4 | *      FULL NAME- EXTENDED PRECISION FLOATING-    * S1H00040
                             5 | *         POINT SUBTRACT REVERSE SUBPROGRAM.      * S1H00050
                             6 | *      CODE NAME- ESBR/ESBRX                      * S1H00060
                             7 | *   PURPOSE- THIS SUBPROGRAM SUBTRACTS ONE EXTEND-* S1H00070
                             8 | *      ED PRECISION FLOATING-POINT NUMBER FROM    * S1H00080
                             9 | *      ANOTHER IN REVERSE ORDER.                  * S1H00090
                            10 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1H00100
                            11 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * S1H00110
                            12 | *      SUBROUTINE LIBRARY MANUAL.                 * S1H00120
                            13 | *   SPECIAL FEATURES- N/A                         * S1H00130
                            14 | *   ADDITIONAL INFORMATION-                       * S1H00140
                            15 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * S1H00150
                            16 | *         SUBROUTINE LIBRARY MANUAL               * S1H00160
                            17 | *                                                 * S1H00170
                            18 | *************************************************** S1H00180
LIBF ESBR  -V1.
 
                            20 |       LIBR                                          S1H00200
                            21 |       EPR                                           S1H00210
                            22 |       ENT     ESBR                                  S1H00220
                            23 |       ENT     ESBRX                                 S1H00230
0000 6913                   24 | ESBRX STX   1 SAVE+1    SAVE XR1                    S1H00240
0001 C400 0000              25 |       LD   L  *-*       CALL+1                      S1H00250
0003 7004                   26 |       MDX     COM                                   S1H00260
0004 690F                   27 | ESBR  STX   1 SAVE+1    SAVE XR1                    S1H00270
0005 C400 0000              28 |       LD   L  *-*       CALL+1                      S1H00280
0007 6100                   29 |       LDX   1 0         NON-INDEXED                 S1H00290
0008 D003                   30 | COM   STO     *+3       STORE ADDR OF MINUEND       S1H00300
0009 800D                   31 |       A       ONE       INCR ADDR FOR RET           S1H00310
000A D00B                   32 |       STO     EXIT+1    BUILD EXIT                  S1H00320
000B 7580 0000              33 |       MDX  I1 *-*       INCR (XR1) BY (CALL+1)      S1H00330
000D 1000                   34 |       NOP               IF MDX CAUSES BR,SKIP NOP   S1H00340
000E 10A0                   35 |       SLT     32        CLEAR ACC AND EXT           S1H00350
000F 9B7E                   36 |       SD    3 126       REVERSE SIGN OF (FAC)       S1H00360
0010 DB7E                   37 |       STD   3 126                                   S1H00370
0011 0504*4127              38 |       LIBF    EADDX     REQUIRED SUBTRACTION        S1H00380
0012 0000                   39 |       DC      0         ADDR ADDED TO XR1-GET OPND  S1H00390
0013 6500 0000              40 | SAVE  LDX  L1 *-*       RESTORE XR1                 S1H00400
0015 4C00 0000              41 | EXIT  BSC  L  *-*       RET TO CALL+2               S1H00410
0017 0001                   42 | ONE   DC      1         SINGLE WORD ONE             S1H00420
0018                        43 |       END                                           S1H00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
COM   0008R   30   26
ESBR  0004R   27
ESBRX 0000R   24
EXIT  0015R   41   32
ONE   0017R   42   31
SAVE  0013R   40   24   27