Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3isign.asm 
CALL ISIGN
 
                             2 | *************************************************** T3D00020
                             3 | *                                                 * T3D00030
                             4 | *   SUBROUTINE NAME-                              * T3D00040
                             5 | *      FULL NAME-INTEGER TRANSFER OF SIGN         * T3D00050
                             6 | *      CODE NAME-ISIGN                            * T3D00060
                             7 | *   PURPOSE-                                   2-12 T3D00070
                             8 | *      PROVIDE FORTRAN SIGN CHANGE FUNCTION    2-12 T3D00072
                             9 | *   METHOD-                                    2-12 T3D00074
                            10 | *      COMPLIMENT ARG1 IF THE SIGNS OF ARG1    2-12 T3D00076
                            11 | *      AND ARG2 ARE DIFFERANT. IF THE SIGNS    2-12 T3D00078
                            12 | *      ARE THE SAME, NO SIGN CHANGE OCCURS.    2-12 T3D00080
                            13 | *   CAPABILITIES AND LIMITATIONS-N/A              * T3D00100
                            14 | *   SPECIAL FEATURES-N/A                          * T3D00110
                            15 | *   ADDITIONAL INFORMATION-                       * T3D00120
                            16 | *      ESTIMATED EXECUTION TIME-N/A               * T3D00130
                            17 | *                                                 * T3D00140
                            18 | *************************************************** T3D00150
                            19 | *                                                 * T3D00160
                            20 |       ENT     ISIGN                                 T3D00170
0000 0000                   21 | ISIGN DC      *-*        LOADER STORE 1ST DC ADDR   T3D00180
0001 6A12                   22 |       STX   2 SAVE+1     SAVE XR2                   T3D00190
0002 6680 0000R             23 |       LDX  I2 ISIGN      LOAD XR2 WITH 1ST ARG ADDR T3D00200
0004 C680 0000              24 |       LD   I2 0          LOAD FIRST ARGUMENT        T3D00210
0006 D00F                   25 |       STO     SAVE+3     SAVE FIRST ARGUMENT        T3D00220
0007 4C18 0011R             26 |       BSC  L  GOOUT,+-   NO CHANGE IF ZERO          T3D00230
0009 F680 0001              27 |       EOR  I2 1          EOR SECOND ARGUMENT        T3D00240
000B 4C10 0010R             28 |       BSC  L  RELDA,-    BRANCH IF NO CHANGE        T3D00250
000D 1010                   29 |       SLA     16         CLEAR ACC TO CHANGE        T3D00260
000E 9007                   30 |       S       SAVE+3     SUBT FIRST ARGUMENT TO     T3D00270
000F 7001                   31 |       MDX     GOOUT      *REVERSE SIGN. GO OUT      T3D00280
0010 C005                   32 | RELDA LD      SAVE+3     RELOAD FIRST ARGUMENT      T3D00290
0011 7202                   33 | GOOUT MDX   2 2          SET UP EXIT ADDRESS AND    T3D00300
0012 6A03                   34 |       STX   2 SAVE+3     *STORE FOR RETURN          T3D00310
0013 6600 0000              35 | SAVE  LDX  L2 *-*        RESTORE XR2 AND THEN       T3D00320
0015 4C00 0000              36 |       BSC  L  *-*        *BRANCH TO MAINLINE        T3D00330
0017                        37 |       END                                           T3D00340
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
GOOUT 0011R   33   26   31
ISIGN 0000R   21   23
RELDA 0010R   32   28
SAVE  0013R   35   22   25   30   32   34