Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:09 2020
 
Source File: \t6siif.asm 
LIBF SIIF
 
                             2 | *************************************************** T6C00020
                             3 | *   SUBROUTINE NAME                               * T6C00030
                             4 | *      FULL NAME- SINGLE DEVICE, INTEGER          * T6C00040
                             5 | *         PRECISION, 'IF' STATEMENT TRACE.        * T6C00050
                             6 | *      CODE NAME- SIIF                            * T6C00060
                             7 | *   PURPOSE- TEST TRACE SWITCH AND INTERFACE      * T6C00070
                             8 | *      WITH SFIO IF TRACING IS REQUESTED.         * T6C00080
                             9 | *   METHOD- N/A                                   * T6C00090
                            10 | *   CAPABILITIES AND LIMITATIONS- N/A             * T6C00100
                            11 | *   SPECIAL FEATURES- N/A                         * T6C00110
                            12 | *   ADDITIONAL INFORMATION- N/A                   * T6C00120
                            13 | *************************************************** T6C00130
                            14 |       LIBR                                          T6C00140
                            15 | *             CALL SEQ   LIBF SIIF                * T6C00150
                            16 | *             BSC  STMT ADDR,COND                 * T6C00160
                            17 | *             BSC  STMT ADDR,COND                 * T6C00170
                            18 | *             BSC  STMT ADDR,COND                 * T6C00180
                            19 |       ENT     SIIF                                  T6C00190
0000 690E                   20 | SIIF  STX   1 WORK+1     SAVE XR1                   T6C00200
0001 6580 0000              21 |       LDX  I1 *-*        LD XR1 W/ RET ADDR         T6C00210
0003 D00D                   22 |       STO     RET+1      STORE ACC IN WORK AREA     T6C00220
0004 238C*58A3              23 |       LIBF    TTEST      GO TO CHECK TRACE SWITCHES T6C00230
0005 7006                   24 |       MDX     WORK-2     DONT TRACE, GO TO EXIT     T6C00240
0006 2299*98C0              25 |       LIBF    SWRT       PRINT OUT                  T6C00250
0007 0000                   26 |       DC      0                                     T6C00260
0008 0012R                  27 |       DC      I6                                    T6C00270
0009 2225*6240              28 |       LIBF    SIOI                                  T6C00280
000A 0011R                  29 |       DC      RET+1                                 T6C00290
000B 220D*6517              30 |       LIBF    SCOMP                                 T6C00300
000C C004                   31 |       LD      RET+1      RESTORE ACC                T6C00310
000D 6903                   32 |       STX   1 RET+1      SET UP RETURN              T6C00320
000E 6500 0000              33 | WORK  LDX  L1 *-*        RESTORE XR1                T6C00330
0010 4C00 0000              34 | RET   BSC  L  *-*        EXIT                       T6C00340
0012 5003                   35 | I6    DC      /5003      FORMAT FOR PRINT OUT       T6C00350
0013 405C 5C40              36 |       EBC     . **.                                 T6C00360
0015 2006                   37 |       DC      /2006                                 T6C00370
0016 B004                   38 |       DC      /B004                                 T6C00380
0017                        39 |       END                                           T6C00390
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
I6    0012R   35   27
RET   0010R   34   22   29   31   32
SIIF  0000R   20
WORK  000ER   33   20   24