Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t2ttest.asm 
LIBF TTEST
 
                             2 | *************************************************** T2E00020
                             3 | *                                                 * T2E00030
                             4 | *   SUBROUTINE NAME-                              * T2E00040
                             5 | *      FULL NAME-FORTRAN TRACE TEST AND SET       * T2E00050
                             6 | *      CODE NAME-TTEST                            * T2E00060
                             7 | *   PURPOSE-TO SEE IF TRACE SHOULD BE EXECUTED.   * T2E00070
                             8 | *      TO SET THE INTERNAL INDICATOR FOR TTEST    * T2E00080
                             9 | *   METHOD-N/A                                    * T2E00090
                            10 | *   CAPABILITIES AND LIMITATIONS-N/A              * T2E00100
                            11 | *   SPECIAL FEATURES-N/A                          * T2E00110
                            12 | *   ADDITIONAL INFORMATION-                       * T2E00120
                            13 | *      ESTIMATED EXECUTION TIME-N/A               * T2E00130
                            14 | *                                                 * T2E00140
                            15 | *************************************************** T2E00150
                            16 | *                                                 * T2E00160
                            17 | *   ENTER HERE TO SEE IF TRACE SHOULD BE EXECUTED.* T2E00170
                            18 | *   IF DATSW 15 IS ON AND THE INTERNAL INDR IS ON * T2E00180
                            19 | *   THEN TTEST WILL RETURN TO EXECUTE THE TRACE.  * T2E00190
                            20 | *   IF EITHER INDR IS OFF THEN TTEST WILL RETURN  * T2E00200
                            21 | *   TO A BRANCH INST IN THE TRACE THAT WILL BYPASS* T2E00210
                            22 | *   THE PRINTING.                                 * T2E00220
                            23 | *                                                 * T2E00230
                            24 |       LIBR    TTEST                                 T2E00240
                            25 |       ENT     TTEST                                 T2E00250
                            26 |       ENT     TSET                                  T2E00260
0000 0809                   27 | TTEST XIO     TR1        READ DATA SWITCHES         T2E00270
0001 6680 0000              28 |       LDX  I2 *-*        STORE RT ADDR IN  XR2      T2E00280
0003 C005                   29 |       LD      TRIND      LOAD INTERNAL INDR TO ACC  T2E00290
0004 E007                   30 |       AND     TR2        AND BIT 15 AND INT INDR    T2E00300
0005 4804                   31 |       BSC     E          BR TO BY PASS TRACE PRINT  T2E00310
0006 7201                   32 |       MDX   2 +1         INCREMENT RETURN ADDR      T2E00320
0007 4E00 0000              33 |       BSC  L2 *-*        BR TO DO TRACE PRINT       T2E00330
0009 0001                   34 | TRIND DC      1          TRACE INDR SET BY TSET     T2E00340
000A                        35 |       BSS  E  0                                     T2E00350
000A 000CR                  36 | TR1   DC      TR2        ADDR TO READ IN SWITCHES   T2E00360
000B 3A00                   37 |       DC      /3A00      SPECIFY BIT SWITCH READ    T2E00370
000C 0000                   38 | TR2   DC      *-*        RECORD BIT SWITCH STATUS   T2E00380
                            39 | *************************************************** T2E00390
                            40 | *                                                 * T2E00400
                            41 | *   ENTER HERE TO SET THE INTERNAL INDICATOR      * T2E00410
                            42 | *   LIKE THE ACC WAS SET BY EITHER TSTRT OR TSTOP * T2E00420
                            43 | *                                                 * T2E00430
000D D0FB                   44 | TSET  STO     TRIND      STORE INT INDR IN TRIND    T2E00440
000E 4C80 0000              45 |       BSC  I  *-*        EXIT                       T2E00450
0010                        46 |       END                                           T2E00460
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
TR1   000AR   36   27
TR2   000CR   38   30   36
TRIND 0009R   34   29   44
TSET  000DR   44
TTEST 0000R   27