Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t5getad.asm 
                             1 | *             JULY 6,1967                           T5C00010
GETAD
 
                             3 |       LIBR                                          T5C00030
                             4 |       ENT     GETAD                                 T5C00040
                             5 | *************************************************** T5C00050
                             6 | *STATUS-VERSION 2,MODIFICATION 0                  * T5C00060
                             7 | *                                                 * T5C00070
                             8 | *FUNCTION/OPERATION-                              * T5C00080
                             9 | *   THIS SUBROUTINE CALCULATES THE EFFECTIVE ADDR * T5C00090
                            10 | *   OF A TABLE FROM A LIBF    TABLE INSTRUCTION   * T5C00100
                            11 | *   IN THE ACCUMULATOR.                           * T5C00110
                            12 | *                                                 * T5C00120
                            13 | *ENTRY POINTS-                                    * T5C00130
                            14 | *   * GETAD-ENTERED BY A LIBF    GETAD            * T5C00140
                            15 | *                                                 * T5C00150
                            16 | *INPUT-                                           * T5C00160
                            17 | *   * THE ACC CONTAINS A LIBF    TABLE            * T5C00170
                            18 | *                                                 * T5C00180
                            19 | *OUTPUT-                                          * T5C00190
                            20 | *   * THE ACC CONTAINS THE EFFECTIVE ADDRESS OF   * T5C00200
                            21 | *     THE TABLE                                   * T5C00210
                            22 | *                                                 * T5C00220
                            23 | *EXTERNAL REFERENCES-N/A                            T5C00230
                            24 | *                                                 * T5C00240
                            25 | *EXITS                                            * T5C00250
                            26 | *   NORMAL-                                       * T5C00260
                            27 | *      * GETAD+1-RETURNS TO CALLING SUBROUTINE    * T5C00270
                            28 | *   ERROR-N/A                                     * T5C00280
                            29 | *                                                 * T5C00290
                            30 | *TABLES/WORK AREAS-N/A                            * T5C00300
                            31 | *                                                 * T5C00310
                            32 | *ATTRIBUTES-RELOCATABLE                           * T5C00320
                            33 | *                                                 * T5C00330
                            34 | *NOTES-N/A                                        * T5C00340
                            35 | *                                                 * T5C00350
                            36 | *************************************************** T5C00360
GETAD
 
0000 7002                   38 | GETAD MDX     *+2        ENTRY                      T5C00380
0001 4C80 0000              39 |       BSC  I  *-*        RETURN                     T5C00390
0003 1088                   40 |       SLT     8          GET DISPLACEMENT IN ACC    T5C00400
0004 1888                   41 |       SRT     8          SHIFT TO INCLUDE SIGN BITS T5C00410
0005 6B07                   42 |       STX   3 GZ901      SAVE CONTENTS OF XR3       T5C00420
0006 8006                   43 |       A       GZ901      ADD CONTENTS OF XR3        T5C00430
0007 8006                   44 |       A       GZ902      ADD 2                      T5C00440
0008 D001                   45 |       STO     *+1        STORE EFFECTIVE ADDRESS    T5C00450
0009 C400 0000              46 |       LD   L  *-*        LOAD EFFECTIVE ADDRESS     T5C00460
000B 8002                   47 |       A       GZ902      ADD 2                      T5C00470
000C 70F4                   48 |       MDX     GETAD+1    RETURN                     T5C00480
                            49 | *                                                   T5C00490
                            50 | *                        CONSTANT STORAGE           T5C00500
                            51 | *                                                   T5C00510
000D 0000                   52 | GZ901 DC      0          TEMP STORAGE CONTENTS XR3  T5C00520
000E 0002                   53 | GZ902 DC      2          CONSTANT                   T5C00530
000F                        54 |       END                                           T5C00540
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
GETAD 0000R   38   48
GZ901 000DR   52   42   43
GZ902 000ER   53   44   47