T3FCTST

Table Of Contents
  • [00004] CALL FCTST
t3fctst.lst
ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3fctst.asm 
CALL FCTST
 
                             2 | *************************************************** T3C00020
                             3 | *                                                 * T3C00030
                             4 | *   SUBROUTINE NAME-                              * T3C00040
                             5 | *   FULL NAME- FUNCTIONAL ERROR TEST              * T3C00050
                             6 | *   CODE NAME- FCTST                              * T3C00060
                             7 | *   PURPOSE- FCTST IS UTILIZED BY THE FUNCTIONAL  * T3C00070
                             8 | *      SUBROUTINES TO CHECK ERROR CONDITIONS.     * T3C00080
                             9 | *      (SEE SUBROUTINE LIBRARY MANUAL)            * T3C00090
                            10 | *   METHOD-N/A                                    * T3C00100
                            11 | *   CAPABILITIES AND LIMITATIONS-N/A              * T3C00110
                            12 | *   SPECIAL FEATURES-N/A                          * T3C00120
                            13 | *   ADDITIONAL INFORMATION-                       * T3C00130
                            14 | *      ESTIMATED EXECUTION TIME-N/A               * T3C00140
                            15 | *                                                 * T3C00150
                            16 | *************************************************** T3C00160
                            17 | *                                                 * T3C00170
                            18 | *   FCTST ON ERR, I EQUALS 1, J EQUALS TV INDR    * T3C00180
                            19 | *   AND THE TV INDR IS SET TO ZERO                * T3C00190
                            20 | *   FCTST NO ERR, I EQUALS 2, J EQUALS ZERO       * T3C00200
                            21 | *                                                 * T3C00210
                            22 |       ENT     FCTST                                 T3C00220
0000 0000                   23 | FCTST DC      *-*                                   T3C00230
0001 C480 0000R             24 |       LD   I  FCTST      PICKUP ADDR OF I           T3C00240
0003 D00C                   25 |       STO     SET1+1     ST  ADDR IN SET1           T3C00250
0004 7401 0000R             26 |       MDX  L  FCTST,+1   INCR POINTER               T3C00260
0006 C480 0000R             27 |       LD   I  FCTST      PICKUP ADDR OF J           T3C00270
0008 D00F                   28 |       STO     SET2+1     ST  ADDR IN SET2           T3C00280
0009 C37C                   29 |       LD    3 +124       PICK UP THE TV INDR        T3C00290
000A 4C18 0017R             30 |       BSC  L  SET2,+-    BRANCH IF NO ERR           T3C00300
000C D480 0018R             31 |       STO  I  SET2+1     ST TV INDR IN J            T3C00310
000E C00D                   32 |       LD      ONE        LD ACC WITH ONE            T3C00320
000F D400 0000              33 | SET1  STO  L  *-*        ST  2 IN I                 T3C00330
0011 1010                   34 |       SLA     16                                    T3C00340
0012 D37C                   35 |       STO   3 +124       ZERO THE TV INDR           T3C00350
0013 7401 0000R             36 |       MDX  L  FCTST,+1   INCR. RETURN ADDR          T3C00360
0015 4C80 0000R             37 |       BSC  I  FCTST      EXIT                       T3C00370
0017 D400 0000              38 | SET2  STO  L  *-*        ST  ZERO IN J              T3C00380
0019 C001                   39 |       LD      TWO        LOAD THE ACC WITH 2        T3C00390
001A 70F4                   40 |       MDX     SET1       BRANCH TO SET I TO ONE     T3C00400
001B 0002                   41 | TWO   DC      2          CONSTANT                   T3C00410
001C 0001                   42 | ONE   DC      1          CONSTANT                   T3C00420
001D                        43 |       END                                           T3C00430
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
FCTST 0000R   23   24   26   27   36   37
ONE   001CR   42   32
SET1  000FR   33   25   40
SET2  0017R   38   28   30   31
TWO   001BR   41   39