Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \s2seif.asm 
LIBF SEIF
 
                             2 | *************************************************** S2K00020
                             3 | *   SUBROUTINE NAME                               * S2K00030
                             4 | *      FULL NAME- SINGLE DEVICE, EXTENDED         * S2K00040
                             5 | *         PRECISION, 'IF' STATEMENT TRACE.        * S2K00050
                             6 | *      CODE NAME- SEIF                            * S2K00060
                             7 | *   PURPOSE- TEST TRACE SWITCH AND INTERFACE      * S2K00070
                             8 | *      WITH SFIO IF TRACING IS REQUESTED.         * S2K00080
                             9 | *   METHOD- N/A                                   * S2K00090
                            10 | *   CAPABILITIES AND LIMITATIONS- N/A             * S2K00100
                            11 | *   SPECIAL FEATURES- N/A                         * S2K00110
                            12 | *   ADDITIONAL INFORMATION- N/A                   * S2K00120
                            13 | *************************************************** S2K00130
                            14 |       LIBR                                          S2K00140
                            15 | *             CALL SEQ  LIBF SEIF                 * S2K00150
                            16 | *                        BSC  STMT ADDR,COND      * S2K00160
                            17 | *                        BSC  STMT ADDR,COND      * S2K00170
                            18 | *                        BSC  STMT ADDR,COND      * S2K00180
                            19 |       ENT     SEIF                                  S2K00190
0000 690E                   20 | SEIF  STX   1 WORK+1     SAVE XR1                   S2K00200
0001 6580 0000              21 |       LDX  I1 *-*        LD XR1 W/ RET ADDR         S2K00210
0003 238C*58A3              22 |       LIBF    TTEST      GO TO CHECK TRACE SWITCHES S2K00220
0004 7008                   23 |       MDX     WORK-1     DONT TRACE, GO TO EXIT     S2K00230
0005 058A*3580              24 |       LIBF    ESTO       STORE VAR TO BE PRINTED    S2K00240
0006 0018R                  25 |       DC      VARAD                                 S2K00250
0007 2299*98C0              26 |       LIBF    SWRT       PRINT OUT                  S2K00260
0008 0000                   27 |       DC      0                                     S2K00270
0009 0013R                  28 |       DC      E1710                                 S2K00280
000A 2225*6180              29 |       LIBF    SIOF                                  S2K00290
000B 0018R                  30 |       DC      VARAD                                 S2K00300
000C 220D*6517              31 |       LIBF    SCOMP                                 S2K00310
000D 6904                   32 |       STX   1 RET+1      SET UP RETURN              S2K00320
000E 6500 0000              33 | WORK  LDX  L1 *-*        RESTORE XR1                S2K00330
0010 C37E                   34 |       LD    3 +126       LOAD ACC WITH PART OF FAC  S2K00340
0011 4C00 0000              35 | RET   BSC  L  *-*        EXIT                       S2K00350
0013 5003                   36 | E1710 DC      /5003      FORMAT FOR PRINT OUT       S2K00360
0014 405C 5C40              37 |       EBC     . **.                                 S2K00370
0016 0511                   38 |       DC      /0511                                 S2K00380
0017 B004                   39 |       DC      /B004                                 S2K00390
0018 0000                   40 | VARAD DC      0          VARIABLE                   S2K00400
0019 0000                   41 |       DC      0          *STORAGE                   S2K00410
001A 0000                   42 |       DC      0          *AREA                      S2K00420
001B                        43 |       END                                           S2K00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
E1710 0013R   36   28
RET   0011R   35   32
SEIF  0000R   20
VARAD 0018R   40   25   30
WORK  000ER   33   20   23