*COMDECK  DEFINS - DEFINE MACHINE OPCODES.
          CTEXT  DEFINS - DEFINE MACHINE OPCODES. 
 DEFINS   SPACE  4,10 
*         PSUEDO-OPS WHICH OCCUR BETWEEN BMI/EMI. 
  
**        HARD NUMBERS ARE USED FOR FLOATING POINT
*         OPCODES IN THE ROUNDABLE OPCODE PLUGGING
*         ROUTINE, ROR (IN COMFROR). IT WAS FELT THAT 
*         A DEFINS CALL FOR THE EXPRESSED PURPOSE OF
*         SYMBOLICALLY DEFINING 4 PERMANT CONSTANTS 
*         WOULD BE EXCESSIVE. 
  
  
 JPQ      DEFPO  I.JPI       INDEXED JUMP 
 RJ3      DEFPO  I.RJ3       30-BIT RETURN JUMP 
 UJP      DEFPO  I.UJP       UNCONDITIONAL JUMP 
 LABL     DEFPO  I.BSS       DEFINE LABEL TAG 
  
  
*         DIRECT ACCESS LCM.
  
 DRL      DEFINS 014,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE 
 DWL      DEFINS 015,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE 
  
  
*                            CONDITIONAL BRANCHES.
  
 ZR       DEFINS 030,M.BRAN 
 NZ       DEFINS 031,M.BRAN 
 PL       DEFINS 032,M.BRAN 
 MI       DEFINS 033,M.BRAN 
  
 IR       DEFINS 034,M.BRAN 
 ORJ      DEFINS 035,M.BRAN 
 DFJ      DEFINS 036,M.BRAN 
 IDJ      DEFINS 037,M.BRAN 
  
 EQB      DEFINS 040,M.BRAN 
 NEB      DEFINS 050,M.BRAN 
 LEB      DEFINS 060,M.BRAN 
 GEB      DEFINS 060,M.BRAN 
 LTB      DEFINS 070,M.BRAN 
 GTB      DEFINS 070,M.BRAN 
  
  
*                            BOOLEAN UNIT.
  
 XMT      DEFINS 10,M.SHIF
 AND      DEFINS 11,M.NORM
 OR       DEFINS 12,M.NORM
 XOR      DEFINS 13,M.NORM
 NEQV     DEFINS 13,M.NORM
 CLR      DEFINS 13,M.NORM
 XMTC     DEFINS 14,M.NORM
 STR      DEFINS 15,M.NORM
 IMP      DEFINS 16,M.NORM
 EQV      DEFINS 17,M.NORM
  
  
*                            SHIFT UNIT.
  
 KLS      DEFINS 20,M.SHIF
 KRS      DEFINS 21,M.SHIF
 ILS      DEFINS 22,M.SHIF
 IRS      DEFINS 23,M.SHIF
 NR       DEFINS 24,M.NORM
 RNR      DEFINS 25,M.NORM
 UP       DEFINS 26,M.NORM
 PK       DEFINS 27,M.NORM
 FMA      DEFINS 43,M.NORM
  
*                            ADD UNIT.
  
 FA       DEFINS 30,M.NORM
 FS       DEFINS 31,M.NORM
 FAR      DEFINS 30,M.RND 
 FSR      DEFINS 31,M.RND 
 DFA      DEFINS 32,M.NORM
 DFS      DEFINS 33,M.NORM
 RFA      DEFINS 34,M.NORM
 RFS      DEFINS 35,M.NORM
  
  
*                            LONG ADD UNIT. 
  
 IA       DEFINS 36,M.NORM
 IS       DEFINS 37,M.NORM
  
  
*                            MULTIPLY UNIT. 
  
 FM       DEFINS 40,M.NORM
 FMR      DEFINS 40,M.RND 
 RFM      DEFINS 41,M.NORM
 DFM      DEFINS 42,M.NORM
 IM       DEFINS 42,M.NORM
  
  
*                            DIVIDE UNIT. 
  
 FD       DEFINS 44,M.NORM
 FDR      DEFINS 44,M.RND 
 RFD      DEFINS 45,M.NORM
 NOP      DEFINS 46,M.NORM
 CX       DEFINS 47,M.NORM
  
  
*                            INCREMENT UNIT.
  
 SA=AK    DEFINS 50,M.INCR
 SA=BK    DEFINS 51,M.INCR
 SA=XK    DEFINS 52,M.INCR
 SA=XB    DEFINS 53,M.INCR
 SA=AB    DEFINS 54,M.INCR
 SA=AMB   DEFINS 55,M.INCR
 SA=BB    DEFINS 56,M.INCR
 SA=BMB   DEFINS 57,M.INCR
  
 SB=AK    DEFINS 60,M.INCR
 SB=BK    DEFINS 61,M.INCR
 SB=XK    DEFINS 62,M.INCR
 SB=XB    DEFINS 63,M.INCR
 SB=AB    DEFINS 64,M.INCR
 SB=AMB   DEFINS 65,M.INCR
 SB=BB    DEFINS 66,M.INCR
 SB=BMB   DEFINS 67,M.INCR
  
  
 SX=AK    DEFINS 70,M.INCR
 SX=BK    DEFINS 71,M.INCR
 SX=XK    DEFINS 72,M.INCR
 SX=XB    DEFINS 73,M.INCR
 SX=AB    DEFINS 74,M.INCR
 SX=AMB   DEFINS 75,M.INCR
 SX=BB    DEFINS 76,M.INCR
 SX=BMB   DEFINS 77,M.INCR
  
 LD       DEFINS 50,M.LOAD
 LDB      DEFINS 60,M.LOAD
 ST       DEFINS 50,M.LOAD
  
  
          ENDX
