Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \s2esign.asm 
CALL ESIGN
 
                             2 | *************************************************** S2F00020
                             3 | *                                                 * S2F00030
                             4 | *   SUBROUTINE NAME-                              * S2F00040
                             5 | *      FULL NAME-EXTENDED PRECISION TRANSFER OF   * S2F00050
                             6 | *         SIGN                                    * S2F00060
                             7 | *      CODE NAME-ESIGN                            * S2F00070
                             8 | *   PURPOSE-                                   2-12 S2F00080
                             9 | *      PROVIDE FORTRAN SIGN CHANGE FUNCTION    2-12 S2F00085
                            10 | *   METHOD-                                    2-12 S2F00090
                            11 | *      CHANGE THE VALUE OF THE FLOATING ACCUM- 2-12 S2F00092
                            12 | *      ULATOR (FAC) TO THE COMPLIMENT OF ARG1  2-12 S2F00094
                            13 | *      IF THE SIGNS OF ARG1 AND ARG2 ARE DIFF- 2-12 S2F00096
                            14 | *      ERENT. IF THE SIGNS ARE THE SAME, FAC   2-12 S2F00098
                            15 | *      IS LOADED WITH THE VALUE OF ARG1 AND NO 2-12 S2F00100
                            16 | *      SIGN CHANGE OCCURS.                     2-12 S2F00102
                            17 | *   CAPABILITIES AND LIMITATIONS-N/A              * S2F00110
                            18 | *   SPECIAL FEATURES-N/A                          * S2F00120
                            19 | *   ADDITIONAL INFORMATION-                       * S2F00130
                            20 | *      ESTIMATED EXECUTION TIME-N/A               * S2F00140
                            21 | *                                                 * S2F00150
                            22 | *************************************************** S2F00160
                            23 | *                                                 * S2F00170
                            24 |       EPR                                           S2F00180
                            25 |       ENT     ESIGN                                 S2F00190
0000 0000                   26 | ESIGN DC      *-*        LOADER STORE 1ST DC ADDR   S2F00200
0001 6A1B                   27 |       STX   2 SAVE+1     SAVE XR2                   S2F00210
0002 C0FD                   28 |       LD      ESIGN      LOAD 1ST DC ADDRESS        S2F00220
0003 D003                   29 |       STO     *+3                                   S2F00230
0004 801B                   30 |       A       ONE        COMPUTE 2ND DC ADDRESS AND S2F00240
0005 D006                   31 |       STO     LDIRA+1    *STORE FOR LOADING OF XR2  S2F00250
0006 6680 0000              32 |       LDX  I2 *-*        LOAD XR2 ARGUMENT A ADDR.  S2F00260
0008 6A0D                   33 |       STX   2 DCA        STORE FOR CALL FLOAT SUBT  S2F00270
0009 6A0F                   34 |       STX   2 DCB        STORE FOR CALL FLOAT LOAD  S2F00280
000A C201                   35 |       LD    2 1          LOAD ARGUMENT A MANTISSA   S2F00290
000B 6680 0000              36 | LDIRA LDX  I2 *-*        LOAD XR2 ARGUMENT B ADDR   S2F00300
000D 4C18 0018R             37 |       BSC  L  NOCNG,+-   NO CHANGE IF ARG. A ZERO   S2F00310
000F F201                   38 |       EOR   2 1          EOR ARGUMENT B MANTISSA    S2F00320
0010 4C10 0018R             39 |       BSC  L  NOCNG,-    NO CHANGE IF SIGNS AGREE   S2F00330
0012 10A0                   40 |       SLT     32         ZERO THE ACC AND EXT       S2F00340
0013 DB7E                   41 |       STD   3 126        STORE ZEROS INTO  THE      S2F00350
0014 D37D                   42 |       STO   3 125        *FLOATING ACCUMULATOR      S2F00360
0015 058A*4080              43 |       LIBF    ESUB       CALL FLOATING SUBTRACT     S2F00370
0016 0000                   44 | DCA   DC      *-*        PARAMETER,MODIFIED ABOVE   S2F00380
0017 7002                   45 |       MDX     GOOUT      GO TO EXIT                 S2F00390
0018 054C*4000              46 | NOCNG LIBF    ELD        CALL FLOATING LOAD         S2F00400
0019 0000                   47 | DCB   DC      *-*        PARAMETER,MODIFIED ABOVE   S2F00410
001A 7402 0000R             48 | GOOUT MDX  L  ESIGN,2    SET UP EXIT ADDRESS        S2F00420
001C 6600 0000              49 | SAVE  LDX  L2 *-*        RESTORE XR2                S2F00430
001E 4C80 0000R             50 |       BSC  I  ESIGN      RETURN TO MAINLINE         S2F00440
0020 0001                   51 | ONE   DC      1          CONSTANT                   S2F00450
0021                        52 |       END                                           S2F00460
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
DCA   0016R   44   33
DCB   0019R   47   34
ESIGN 0000R   26   28   48   50
GOOUT 001AR   48   45
LDIRA 000BR   36   31
NOCNG 0018R   46   37   39
ONE   0020R   51   30
SAVE  001CR   49   27