COMSPIM 
COMMON
          CTEXT  COMSPIM - PP INSTRUCTION MNEMONICS.
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 PIM      SPACE  4,10 
***       PIM - PP INSTRUCTION MNEMONICS. 
*         P. D. KOCH.        80/10/09.
 PIM      SPACE  4,10 
***              *PIM* DEFINES THE MNEMONICS FOR ALL PERIPHERAL 
*         PROCESSOR INSTRUCTIONS.  MNEMONICS ARE DEFINED IN 
*         NUMERICAL ORDER.
  
  
 PSNI     EQU    0077        PASS 
 LJMI     EQU    0100        LONG JUMP
 RJMI     EQU    0200        RETURN JUMP
 UJNI     EQU    0300        UNCONDITIONAL JUMP 
 ZJNI     EQU    0400        ZERO JUMP
 NJNI     EQU    0500        NONZERO JUMP 
 PJNI     EQU    0600        PLUS JUMP
 MJNI     EQU    0700        MINUS JUMP 
 SHNI     EQU    1000        SHIFT
 LMNI     EQU    1100        LOGICAL DIFFERENCE 
 LPNI     EQU    1200        LOGICAL PRODUCT
 SCNI     EQU    1300        SELECTIVE CLEAR
 LDNI     EQU    1400        LOAD 
 LCNI     EQU    1500        LOAD COMPLEMENT
 ADNI     EQU    1600        ADD
 SBNI     EQU    1700        SUBTRACT 
 LDCI     EQU    2000        LOAD CONSTANT
 ADCI     EQU    2100        ADD CONSTANT 
 LPCI     EQU    2200        LOGICAL PRODUCT CONSTANT 
 LMCI     EQU    2300        LOGICAL DIFFERENCE CONSTANT
 LRDI     EQU    2400        LOAD R-REGISTER DIRECT 
 SRDI     EQU    2500        STORE R-REGISTER DIRECT
 ETNI     EQU    2600        EXTENDED TRANSFER (6416) 
 EXNI     EQU    2600        EXCHANGE JUMP
 MXNI     EQU    2610        MONITOR EXCHANGE JUMP
 MANI     EQU    2620        MONITOR EXCHANGE JUMP TO (MA)
 ERNI     EQU    2700        EXTENDED READ STATUS (6416)
 RPNI     EQU    2700        READ PROGRAM ADDRESS 
 LDDI     EQU    3000        LOAD DIRECT
 ADDI     EQU    3100        ADD DIRECT 
 SBDI     EQU    3200        SUBTRACT DIRECT
 LMDI     EQU    3300        LOGICAL DIFFERENCE DIRECT
 STDI     EQU    3400        STORE DIRECT 
 RADI     EQU    3500        REPLACE ADD DIRECT 
 AODI     EQU    3600        REPLACE ADD ONE DIRECT 
 SODI     EQU    3700        REPLACE SUBTRACT ONE DIRECT
 LDII     EQU    4000        LOAD INDIRECT
 ADII     EQU    4100        ADD INDIRECT 
 SBII     EQU    4200        SUBTRACT INDIRECT
 LMII     EQU    4300        LOGICAL DIFFERENCE INDIRECT
 STII     EQU    4400        STORE INDIRECT 
 RAII     EQU    4500        REPLACE ADD INDIRECT 
 AOII     EQU    4600        REPLACE ADD ONE INDIRECT 
 SOII     EQU    4700        REPLACE SUBTRACT ONE INDIRECT
 LDMI     EQU    5000        LOAD MEMORY
 ADMI     EQU    5100        ADD MEMORY 
 SBMI     EQU    5200        SUBTRACT MEMORY
 LMMI     EQU    5300        LOGICAL DIFFERENCE MEMORY
 STMI     EQU    5400        STORE MEMORY 
 RAMI     EQU    5500        REPLACE ADD MEMORY 
 AOMI     EQU    5600        REPLACE ADD ONE MEMORY 
 SOMI     EQU    5700        REPLACE SUBTRACT ONE MEMORY
  
 .A       IFPP6 
 CRDI     EQU    6000        CENTRAL READ DIRECT
 CRMI     EQU    6100        CENTRAL READ MEMORY
 CWDI     EQU    6200        CENTRAL WRITE DIRECT 
 CWMI     EQU    6300        CENTRAL WRITE MEMORY 
 AJMI     EQU    6400        ACTIVE CHANNEL JUMP
 SCFI     EQU    6440        TEST AND SET CHANNEL FLAG
 IJMI     EQU    6500        INACTIVE CHANNEL JUMP
 CCFI     EQU    6540        CLEAR CHANNEL FLAG 
 FJMI     EQU    6600        FULL CHANNEL JUMP
 SFMI     EQU    6640        TEST AND CLEAR CHANNEL ERROR FLAG SET
 EJMI     EQU    6700        EMPTY CHANNEL JUMP 
 CFMI     EQU    6740        TEST AND CLEAR CHANNEL ERROR FLAG CLEAR
 .A       ELSE
 FIMI     EQU    6000        INPUT WORD FLAG JUMP 
 EIMI     EQU    6100        NO INPUT WORD FLAG JUMP
 IRMI     EQU    6200        INPUT RECORD FLAG JUMP 
 NIMI     EQU    6300        NO INPUT RECORD FLAG JUMP
 FOMI     EQU    6400        OUTPUT WORD FLAG JUMP
 EOMI     EQU    6500        NO OUTPUT RECORD FLAG JUMP 
 ORMI     EQU    6600        OUTPUT RECORD FLAG JUMP
 NOMI     EQU    6700        NO OUTPUT RECORD FLAG JUMP 
 .A       ENDIF 
  
 IANI     EQU    7000        INPUT BYTE FROM CHANNEL
 IAMI     EQU    7100        INPUT WORDS FROM CHANNEL 
 OANI     EQU    7200        OUTPUT BYTE ON CHANNEL 
 OAMI     EQU    7300        OUTPUT WORDS ON CHANNEL
  
 .B       IFPP6 
 ACNI     EQU    7400        ACTIVATE CHANNEL 
 DCNI     EQU    7500        DISCONNECT CHANNEL 
 .B       ELSE
 RFNI     EQU    7400        SEND RECORD FLAG 
 .B       ENDIF 
  
 FANI     EQU    7600        FUNCTION CHANNEL 
  
 .C       IFPP6 
 FNCI     EQU    7700        FUNCTION CHANNEL 
 .C       ELSE
 ESNI     EQU    7700        ERROR STOP 
 .C       ENDIF 
 PIM      SPACE  4,10 
          BASE   *
          ENDX
