Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3tstop.asm 
CALL TSTOP
 
                             2 | *************************************************** T3H00020
                             3 | *                                                 * T3H00030
                             4 | *   SUBROUTINE NAME-                              * T3H00040
                             5 | *      FULL NAME-FORTRAN TRACE STOP               * T3H00050
                             6 | *      CODE NAME-TSTOP                            * T3H00060
                             7 | *   PURPOSE-STOP THE FORTRAN TRACE BY CLEARING THE* T3H00070
                             8 | *      TRACE INDICATOR IN TTEST.                  * T3H00080
                             9 | *   METHOD-N/A                                    * T3H00090
                            10 | *   CAPABILITIES AND LIMITATIONS-N/A              * T3H00100
                            11 | *   SPECIAL FEATURES-N/A                          * T3H00110
                            12 | *   ADDITIONAL INFORMATION-                       * T3H00120
                            13 | *      ESTIMATED EXECUTION TIME-N/A               * T3H00130
                            14 | *                                                 * T3H00140
                            15 | *************************************************** T3H00150
                            16 | *                                                 * T3H00160
                            17 | *   ENTER HERE TO TURN OFF THE TRACE INDICATOR    * T3H00170
                            18 | *                                                 * T3H00180
                            19 |       ENT     TSTOP                                 T3H00190
0000 0000                   20 | TSTOP DC      *-*        RECORD RETURN ADDR         T3H00200
0001 1010                   21 |       SLA     16         ZERO THE ACC               T3H00210
0002 2388*58C0              22 |       LIBF    TSET       GO TO SET ROUTINE          T3H00220
0003 4C80 0000R             23 |       BSC  I  TSTOP      EXIT                       T3H00230
0005                        24 |       END                                           T3H00240
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
TSTOP 0000R   20   23