Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t2stop.asm 
                             1 | *************************************************** T2B00010
                             2 | *   SUBROUTINE NAME                               * T2B00020
                             3 | *      FULL NAME- FORTRAN 'STOP' STATEMENT        * T2B00030
                             4 | *      CODE NAME- STOP                            * T2B00040
                             5 | *   PURPOSE- SERVICE THE FORTRAN 'STOP'           * T2B00050
                             6 | *      STATEMENT BY BRINGING EXECUTION TO         * T2B00060
                             7 | *      A WAIT DISPLAYING THE REQUESTED CODE.      * T2B00070
                             8 | *   METHOD- N/A                                   * T2B00080
                             9 | *   CAPABILITIES AND LIMITATIONS- N/A             * T2B00090
                            10 | *   SPECIAL FEATURES- N/A                         * T2B00100
                            11 | *   ADDITIONAL INFORMATION- N/A                   * T2B00110
                            12 | *************************************************** T2B00120
LIBF STOP
 
                            14 |       LIBR                                          T2B00140
                            15 | *             CALLING SEQ  LIBF  STOP               T2B00150
                            16 | *                          DC    CONST ADDR         T2B00160
                            17 |       ENT     STOP                                  T2B00170
0000 1000                   18 | STOP  SLA     0          NOP                        T2B00180
0001 6680 0000              19 |       LDX  I2 *-*        PICK UP ADDR OF CONSTANT   T2B00190
0003 C400 0032              20 |       LD   L  50                                    T2B00200
0005 4C20 0003R             21 |       BSC  L  *-4,Z                                 T2B00210
0007 C680 0000              22 |       LD   I2 *-*        LOAD CONSTANT IN AREG      T2B00220
0009 4400 0028              23 |       BSI  L  /28        WAIT                       T2B00230
000B 6038                   24 |       LDX     /38                                   T2B00240
000C                        25 |       END                                           T2B00250
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
STOP  0000R   18