User Tools

Site Tools


ibm:ibm1130-lib:dmsr2v12:s1egetp_lst

S1EGETP

Table Of Contents
  • [00023] LIBF EGETP -V1.
s1egetp.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \s1egetp.asm 
                             1 | *************************************************** S1E00010
                             2 | *                                                 * S1E00020
                             3 | *   SUBROUTINE NAME-                              * S1E00030
                             4 | *      FULL NAME- EXTENDED PRECISION GET PARAMETER* S1E00040
                             5 | *         SUBROUTINE.                             * S1E00050
                             6 | *      CODE NAME- EGETP                           * S1E00060
                             7 | *   PURPOSE- THIS SUBROUTINE LOADS THE CONTENTS OF* S1E00070
                             8 | *      THE ARGUMENT FOLLOWING THE CALL INTO FAC,  * S1E00080
                             9 | *      AND SETS UP IN THE SUBROUTINE WHICH CALLED * S1E00090
                            10 | *      EGETP THE RETURN ADDRESS TO THE MAIN PROG. * S1E00100
                            11 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* S1E00110
                            12 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * S1E00120
                            13 | *      SUBROUTINE LIBRARY MANUAL.                 * S1E00130
                            14 | *   SPECIAL FEATURES- N/A                         * S1E00140
                            15 | *   ADDITIONAL INFORMATION-                       * S1E00150
                            16 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * S1E00160
                            17 | *         SUBROUTINE LIBRARY MANUAL               * S1E00170
                            18 | *                                                 * S1E00180
                            19 | *************************************************** S1E00190
LIBF EGETP  -V1.
 
                            21 |       LIBR                                          S1E00210
                            22 |       EPR                                           S1E00220
                            23 |       ENT     EGETP                                 S1E00230
0000 1000                   24 | EGETP NOP               RET ADDR LD AT EGETP+1      S1E00240
0001 C400 0000              25 |       LD   L  *-*       CALL+1                      S1E00250
0003 D00F                   26 |       STO     EXIT+1    BUILD EXIT                  S1E00260
0004 9010                   27 |       S       TWO       LOC OF OPND ADDR IN         S1E00270
0005 D001                   28 |       STO     *+1       MAIN PROG                   S1E00280
0006 C480 0000              29 | FGT1  LD   I  *-*       FETCH OPND ADDRESS          S1E00290
0008 D001                   30 |       STO     *+1                                   S1E00300
0009 054C*4000              31 |       LIBF    ELD       FETCH OPND INTO FAC         S1E00310
000A 0000                   32 |       DC      *-*       OPND ADDR                   S1E00320
000B C480 0007R             33 |       LD   I  FGT1+1    FETCH OPND ADDRESS          S1E00330
000D 8006                   34 |       A       ONE       INCR BY 1                   S1E00340
000E D480 0013R             35 |       STO  I  EXIT+1    STORE IN LIBF+1             S1E00350
0010 7401 0013R             36 |       MDX  L  EXIT+1,1  INCR EXIT TO LIBF+2         S1E00360
0012 4C00 0000              37 | EXIT  BSC  L  *-*       BR TO CALL+1                S1E00370
                            38 | *                                                   S1E00380
                            39 | *CONSTANTS AREA                                     S1E00390
                            40 | *                                                   S1E00400
0014 0001                   41 | ONE   DC      1         SINGLE WORD ONE             S1E00410
0015 0002                   42 | TWO   DC      2         SINGLE WORD TWO             S1E00420
0016                        43 |       END                                           S1E00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
EGETP 0000R   24
EXIT  0012R   37   26   35   36
FGT1  0006R   29   33
ONE   0014R   41   34
TWO   0015R   42   27
ibm/ibm1130-lib/dmsr2v12/s1egetp_lst.txt ยท Last modified: 2023/08/06 13:34 by Site Administrator