Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:07 2020
 
Source File: \r2sfif.asm 
LIBF SFIF
 
                             2 | *************************************************** R2K00020
                             3 | *   SUBROUTINE NAME                               * R2K00030
                             4 | *      FULL NAME- SINGLE DEVICE, STANDARD         * R2K00040
                             5 | *         PRECISION, 'IF' STATEMENT TRACE.        * R2K00050
                             6 | *      CODE NAME- SFIF                            * R2K00060
                             7 | *   PURPOSE- TEST TRACE SWITCH AND INTERFACE      * R2K00070
                             8 | *      WITH SFIO IF TRACING IS REQUESTED.         * R2K00080
                             9 | *   METHOD- N/A                                   * R2K00090
                            10 | *   CAPABILITIES AND LIMITATIONS- N/A             * R2K00100
                            11 | *   SPECIAL FEATURES- N/A                         * R2K00110
                            12 | *   ADDITIONAL INFORMATION- N/A                   * R2K00120
                            13 | *************************************************** R2K00130
                            14 |       LIBR                                          R2K00140
                            15 | *             CALL SEQ   LIBF SFIF                * R2K00150
                            16 | *                        BSC  STMT ADDR,COND      * R2K00160
                            17 | *                        BSC  STMT ADDR,COND      * R2K00170
                            18 | *                        BSC  STMT ADDR,COND      * R2K00180
                            19 |       ENT     SFIF                                  R2K00190
0000 690E                   20 | SFIF  STX   1 WORK+1     SAVE XR1                   R2K00200
0001 6580 0000              21 |       LDX  I1 *-*        LD XR1 W/ RET ADDR         R2K00210
0003 238C*58A3              22 |       LIBF    TTEST      GO TO CHECK TRACE SWITCHES R2K00220
0004 7008                   23 |       MDX     WORK-1     DONT TRACE, GO TO EXIT     R2K00230
0005 068A*3580              24 |       LIBF    FSTO       STORE VAR TO BE PRINTED    R2K00240
0006 0018R                  25 |       DC      VARAD                                 R2K00250
0007 2299*98C0              26 |       LIBF    SWRT       PRINT OUT                  R2K00260
0008 0000                   27 |       DC      0                                     R2K00270
0009 0013R                  28 |       DC      E1407                                 R2K00280
000A 2225*6180              29 |       LIBF    SIOF                                  R2K00290
000B 0018R                  30 |       DC      VARAD                                 R2K00300
000C 220D*6517              31 |       LIBF    SCOMP                                 R2K00310
000D 6904                   32 |       STX   1 RET+1      SET UP RETURN              R2K00320
000E 6500 0000              33 | WORK  LDX  L1 *-*        RESTORE XR1                R2K00330
0010 C37E                   34 |       LD    3 +126       LOAD ACC WITH PART OF FAC  R2K00340
0011 4C00 0000              35 | RET   BSC  L  *-*        EXIT                       R2K00350
0013 5003                   36 | E1407 DC      /5003      FORMAT FOR PRINT OUT       R2K00360
0014 405C 5C40              37 |       EBC     . **.                                 R2K00370
0016 038E                   38 |       DC      /038E                                 R2K00380
0017 B004                   39 |       DC      /B004                                 R2K00390
0018                        40 |       BSS  E  0                                     R2K00400
0018 0000                   41 | VARAD DC      0          VARIABLE                   R2K00410
0019 0000                   42 |       DC      0          *STORAGE                   R2K00420
001A                        43 |       END                                           R2K00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
E1407 0013R   36   28
RET   0011R   35   32
SFIF  0000R   20
VARAD 0018R   41   25   30
WORK  000ER   33   20   23