Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \r1fegtp.asm 
                             1 | *************************************************** R1E00010
                             2 | *                                                 * R1E00020
                             3 | *   SUBROUTINE NAME-                              * R1E00030
                             4 | *      FULL NAME- STANDARD PRECISION FLOATING-    * R1E00040
                             5 | *         POINT GET PARAMETER SUBROUTINE.         * R1E00050
                             6 | *      CODE NAME- FGETP                           * R1E00060
                             7 | *   PURPOSE- THIS SUBROUTINE LOADS A STANDARD     * R1E00070
                             8 | *      PRECISION FLOATING POINT ARGUMENT INTO FAC,* R1E00080
                             9 | *      AND SETS UP IN THE SUBROUTINE WHICH CALLED * R1E00090
                            10 | *      FGETP THE RETURN ADDRESS TO THE MAIN PROG. * R1E00100
                            11 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* R1E00110
                            12 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * R1E00120
                            13 | *      SUBROUTINE LIBRARY MANUAL.                 * R1E00130
                            14 | *   SPECIAL FEATURES- N/A                         * R1E00140
                            15 | *   ADDITIONAL INFORMATION-                       * R1E00150
                            16 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * R1E00160
                            17 | *         SUBROUTINE LIBRARY MANUAL               * R1E00170
                            18 | *                                                 * R1E00180
                            19 | *************************************************** R1E00190
LIBF FGETP  -V1.
 
                            21 |       LIBR                                          R1E00210
                            22 |       SPR                                           R1E00220
                            23 |       ENT     FGETP                                 R1E00230
0000 1000                   24 | FGETP NOP               RET ADDR LD AT FGETP+1      R1E00240
0001 C400 0000              25 |       LD   L  *-*       (FGET CALL ADDR)+1          R1E00250
0003 D00F                   26 |       STO     EXIT+1    BUILD EXIT                  R1E00260
0004 9010                   27 |       S       TWO       LOC OF OPERAND ADDR IN      R1E00270
0005 D001                   28 |       STO     *+1       MAIN PROG                   R1E00280
0006 C480 0000              29 | FGT1  LD   I  *-*       LD OPERAND ADDR             R1E00290
0008 D001                   30 |       STO     *+1                                   R1E00300
0009 064C*4000              31 |       LIBF    FLD       LD OPERAND INTO FAC         R1E00310
000A 0000                   32 |       DC      *-*       OPERAND ADDRESS             R1E00320
000B C480 0007R             33 |       LD   I  FGT1+1    LD OPERAND ADDR             R1E00330
000D 8006                   34 |       A       ONE       INCR BY 1                   R1E00340
000E D480 0013R             35 |       STO  I  EXIT+1    STORE IN LIBF+1             R1E00350
0010 7401 0013R             36 |       MDX  L  EXIT+1,1  INCR EXIT TO LIBF+2         R1E00360
0012 4C00 0000              37 | EXIT  BSC  L  *-*       BR TO CALL+1                R1E00370
                            38 | *                                                   R1E00380
                            39 | *CONSTANTS AREA                                     R1E00390
                            40 | *                                                   R1E00400
0014 0001                   41 | ONE   DC      1         SINGLE WORD ONE             R1E00410
0015 0002                   42 | TWO   DC      2         SINGLE WORD TWO             R1E00420
0016                        43 |       END                                           R1E00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
EXIT  0012R   37   26   35   36
FGETP 0000R   24
FGT1  0006R   29   33
ONE   0014R   41   34
TWO   0015R   42   27