Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \t6sgoto.asm 
LIBF SGOTO
 
                             2 | *************************************************** T6A00020
                             3 | *   SUBROUTINE NAME                               * T6A00030
                             4 | *      FULL NAME- SINGLE DEVICE, 'GO TO' TRACE    * T6A00040
                             5 | *      CODE NAME- SGOTO                           * T6A00050
                             6 | *   PURPOSE- TEST TRACE SWITCH AND INTERFACE      * T6A00060
                             7 | *      WITH SFIO IF TRACING IS REQUESTED.         * T6A00070
                             8 | *   METHOD- N/A                                   * T6A00080
                             9 | *   CAPABILITIES AND LIMITATIONS- N/A             * T6A00090
                            10 | *   SPECIAL FEATURES- N/A                         * T6A00100
                            11 | *   ADDITIONAL INFORMATION- N/A                   * T6A00110
                            12 | *************************************************** T6A00120
                            13 |       LIBR                                          T6A00130
                            14 | *             CALLING SEQ- LDX I1 I               * T6A00140
                            15 | *                        LIBF SGOTO               * T6A00150
                            16 | *                        DC    STMNT NO.          * T6A00160
                            17 |       ENT     SGOTO                                 T6A00170
0000 690C                   18 | SGOTO STX   1 GO1+1      SAVE INDEX VALUE           T6A00180
0001 6580 0000              19 |       LDX  I1 *-*        LD XR1 TO FIRST DC IN GOTO T6A00190
0003 71FF                   20 |       MDX   1 -1         ADJUST PT TO FIRST DC-1    T6A00200
0004 238C*58A3              21 |       LIBF    TTEST      GO TO CHECK TRACE SWITCHES T6A00210
0005 7006                   22 |       MDX     GO1        DONT TRACE, GO TO EXIT     T6A00220
0006 2299*98C0              23 |       LIBF    SWRT       PRINT VALUE OF INDEX       T6A00230
0007 0000                   24 |       DC      0                                     T6A00240
0008 0010R                  25 |       DC      I6                                    T6A00250
0009 2225*6240              26 |       LIBF    SIOI                                  T6A00260
000A 000DR                  27 |       DC      GO1+1                                 T6A00270
000B 220D*6517              28 |       LIBF    SCOMP                                 T6A00280
000C 7500 0000              29 | GO1   MDX  L1 *-*        INCR PT BY INDEX VALUE     T6A00290
000E 4D80 0000              30 |       BSC  I1 0          EXEC COMPUTED GOTO BRANCH  T6A00300
0010 5004                   31 | I6    DC      /5004      I6 FORMAT FOR PRINT OUT    T6A00310
0011 405C 5C5C              32 |       EBC     . ***.                                T6A00320
0013 2006                   33 |       DC      /2006                                 T6A00330
0014 B004                   34 |       DC      /B004                                 T6A00340
0015                        35 |       END                                           T6A00350
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
GO1   000CR   29   18   22   27
I6    0010R   31   25
SGOTO 0000R   18