Retro1.org codex

ASM1130 CROSS ASSEMBLER V1.22 -- V2M12 -- Sun Nov  1 19:25:08 2020
 
Source File: \t3dvchk.asm 
CALL DVCHK
 
                             2 | *************************************************** T3B00020
                             3 | *                                                 * T3B00030
                             4 | *   SUBROUTINE NAME-                              * T3B00040
                             5 | *   FULL NAME- DIVIDE CHECK TEST                  * T3B00050
                             6 | *   CODE NAME- DVCHK                              * T3B00060
                             7 | *   PURPOSE- DVCHK IS UTILIZED BY THE FLOATING    * T3B00070
                             8 | *      POINT DIVIDE SUBROUTINES TO CHECK FOR      * T3B00080
                             9 | *      DIVISION BY ZERO.                          * T3B00090
                            10 | *   METHOD-N/A                                    * T3B00100
                            11 | *   CAPABILITIES AND LIMITATIONS-N/A              * T3B00110
                            12 | *   SPECIAL FEATURES-N/A                          * T3B00120
                            13 | *   ADDITIONAL INFORMATION-                       * T3B00130
                            14 | *      ESTIMATED EXECUTION TIME-N/A               * T3B00140
                            15 | *                                                 * T3B00150
                            16 | *************************************************** T3B00160
                            17 | *                                                 * T3B00170
                            18 | *   ON DVCHK TV INDR EQUALS  0  IF NO DVCHK       * T3B00180
                            19 | *   AND EQUALS 1 IF THERE WAS A DVCHK.            * T3B00190
                            20 | *   ON DVCHK I EQUALS 2 IF DVCHK OFF AND EQUALS 1 * T3B00200
                            21 | *   IF DVCHK IS ON.                               * T3B00210
                            22 | *                                                 * T3B00220
                            23 |       ENT     DVCHK                                 T3B00230
0000 0000                   24 | DVCHK DC      *-*        RECORD ADDR OF ARGUMENT    T3B00240
0001 C480 0000R             25 |       LD   I  DVCHK      PICKUP ADD OF ARG          T3B00250
0003 D004                   26 |       STO     SET+1      ST  ADDR IN OUTPUT INST    T3B00260
0004 C37B                   27 |       LD    3 +123       LD ACC WITH TV INDR        T3B00270
0005 4818                   28 |       BSC     +-         IS IT ON                   T3B00280
0006 8008                   29 |       A       TWO        *NO, SET INDR TO 2         T3B00290
0007 D400 0000              30 | SET   STO  L  *-*        RETURN RESULT              T3B00300
0009 1010                   31 |       SLA     16         ZERO ACC                   T3B00310
000A D37B                   32 |       STO   3 +123       ZERO OUT TV INDR           T3B00320
000B 7401 0000R             33 |       MDX  L  DVCHK,+1   SET RET ADDR               T3B00330
000D 4C80 0000R             34 |       BSC  I  DVCHK      EXIT                       T3B00340
000F 0002                   35 | TWO   DC      2          CONSTANT                   T3B00350
0010                        36 |       END                                           T3B00360
 
There were no errors in this assembly
 
=== CROSS REFERENCES ==========================================================
Name  Val   Defd  Referenced
DVCHK 0000R   24   25   33   34
SET   0007R   30   26
TWO   000FR   35   29