Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3overf.asm 
CALL OVERF
 
                             2 | *************************************************** T3E00020
                             3 | *                                                 * T3E00030
                             4 | *   SUBROUTINE NAME-                              * T3E00040
                             5 | *   FULL NAME- OVERFLOW TEST                      * T3E00050
                             6 | *   CODE NAME- OVERF                              * T3E00060
                             7 | *   PURPOSE- OVERF IS UTILIZED BY ALL FLOATING    * T3E00070
                             8 | *      POINT SUBROUTINES TO CHECK FOR EXPONENT    * T3E00080
                             9 | *      OVERFLOW AND UNDERFLOW.                    * T3E00090
                            10 | *   METHOD-N/A                                    * T3E00100
                            11 | *   CAPABILITIES AND LIMITATIONS-N/A              * T3E00110
                            12 | *   SPECIAL FEATURES-N/A                          * T3E00120
                            13 | *   ADDITIONAL INFORMATION-                       * T3E00130
                            14 | *      ESTIMATED EXECUTION TIME-N/A               * T3E00140
                            15 | *                                                 * T3E00150
                            16 | *************************************************** T3E00160
                            17 | *                                                 * T3E00170
                            18 | *   ON OVERFLOW THE TV INDR AND I EQUAL 1         * T3E00180
                            19 | *   ON UNDERFLOW THE TV INDR AND I EQUALS 3       * T3E00190
                            20 | *   OTHERWISE THE TV INDR EQUALS ZERO             * T3E00200
                            21 | *   AND I EQUALS 2                                * T3E00210
                            22 | *                                                 * T3E00220
                            23 |       ENT     OVERF                                 T3E00230
0000 0000                   24 | OVERF DC      *-*        RECORD ADDR OF ARGUMENT    T3E00240
0001 C480 0000R             25 |       LD   I  OVERF      PICKUP ADDR OF ARG         T3E00250
0003 D005                   26 |       STO     SET+1      ST  ADDR IN RESULT RETURN  T3E00260
0004 C37A                   27 |       LD    3 +122                                  T3E00270
0005 4C04 0008R             28 |       BSC  L  SET,E      TV INDR IS ON              T3E00280
0007 C008                   29 |       LD      TWO        SET ACC TO 2               T3E00290
0008 D400 0000              30 | SET   STO  L  *-*        ST  RESULT                 T3E00300
000A 1010                   31 |       SLA     16                                    T3E00310
000B D37A                   32 |       STO   3 +122       ZERO THE TV INDR           T3E00320
000C 7401 0000R             33 |       MDX  L  OVERF,+1   SET UP RET ADDR            T3E00330
000E 4C80 0000R             34 |       BSC  I  OVERF      RETURN TO CALLER --EXIT--  T3E00340
0010 0002                   35 | TWO   DC      2          CONSTANT                   T3E00350
0011                        36 |       END                                           T3E00360
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
OVERF 0000R   24   25   33   34
SET   0008R   30   26   28
TWO   0010R   35   29