Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t1iabs.asm 
                             1 | *************************************************** T1B00010
                             2 | *                                                 * T1B00020
                             3 | *   SUBROUTINE NAME-                              * T1B00030
                             4 | *      FULL NAME- INTEGER ABSOLUTE VALUE FUNCTION * T1B00040
                             5 | *      CODE NAME- IABS                            * T1B00050
                             6 | *   PURPOSE- THIS SUBPROGRAM COMPUTES THE ABSOLUTE* T1B00060
                             7 | *      VALUE OF A ONE-WORD INTEGER.               * T1B00070
                             8 | *   METHOD-SEE IBM 1130 SUBROUTINE LIBRARY MANUAL.* T1B00080
                             9 | *   CAPABILITIES AND LIMITATIONS- SEE IBM 1130    * T1B00090
                            10 | *      SUBROUTINE LIBRARY MANUAL.                 * T1B00100
                            11 | *   SPECIAL FEATURES- N/A                         * T1B00110
                            12 | *   ADDITIONAL INFORMATION-                       * T1B00120
                            13 | *      ESTIMATED EXECUTION TIME- SEE IBM 1130     * T1B00130
                            14 | *         SUBROUTINE LIBRARY MANUAL               * T1B00140
                            15 | *                                                 * T1B00150
                            16 | *************************************************** T1B00160
CALL IABS  -V1.
 
                            18 |       ENT     IABS      STANDARD FORTRAN NAME       T1B00180
0000 0000                   19 | IABS  DC      0         FORTRAN ENTRY               T1B00190
0001 C0FE                   20 |       LD      IABS      GET OPERAND ADDRESS         T1B00200
0002 D003                   21 |       STO     *+3       AND ST TO GET OPND          T1B00210
0003 8009                   22 |       A       ONE       BUILD EXIT                  T1B00220
0004 D0FB                   23 |       STO     IABS                                  T1B00230
0005 C480 0000              24 |       LD   I  *-*       GET OPND                    T1B00240
0007 4C90 0000R             25 |       BSC  I  IABS,-    BR OUT IF NOT NEG           T1B00250
0009 F004                   26 |       EOR     ONES      IF NEG,CHANGE FROM TWOS     T1B00260
000A 8002                   27 |       A       ONE       COMPLEMENT FORM TO REVERSE  T1B00270
000B 4C80 0000R             28 |       BSC  I  IABS      THE SIGN AND RETURN.        T1B00280
000D 0001                   29 | ONE   DC      1         SINGLE WORD ONE             T1B00290
000E FFFF                   30 | ONES  DC      /FFFF     ALL-BIT MASK                T1B00300
000F                        31 |       END                                           T1B00310
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
IABS  0000R   19   20   23   25   28
ONE   000DR   29   22   27
ONES  000ER   30   26