*DECK,AIDTEXT 
          IDENT  AIDTEXT
          STEXT 
          TITLE  AID - REDEFINE INSTRUCTIONS FOR V. 
          SPACE  4,8
**        REDEFINE *OBI BJ* TO BE ILLEGAL OPCODE. 
  
 'BB      CPSYN  OBB
  
          PURGDEF OBB 
  
 OBB      OPDEF  I,J
 O        ERR                *OB_I B_J* REDEFINED FOR V 
          'B_I   B_J
          ENDM
          SPACE  4,8
**        REDEFINE *RO BK* TO BE ILLEGAL OPCODE.
  
 'OB      CPSYN  ROB
  
          PURGDEF ROB 
  
 ROB      OPDEF  I
 O        ERR                *RO B_I* REDEFINED FOR V 
          'O     B_I
          ENDM
          SPACE  4,8
**        REDEFINE *SB0 BJ+BK* TO BE ILLEGAL OPCODE.
  
 #BB+B    CPSYN  SBB+B
  
          PURGDEF  SBB+B
  
 SBB+B    OPDEF  I,J,K
 O        ERRZR  I           *SB0 B_J+B_K* REDEFINED FOR V
          #B_I   B_J+B_K
          ENDM
          SPACE  4,8
**        REDEFINE *SB0 BJ-BK* TO BE ILLEGAL OPCODE.
  
 #BB-B    CPSYN  SBB-B
  
          PURGDEF  SBB-B
  
 SBB-B    OPDEF  I,J,K
 O        ERRZR  I           *SB0 B_J-B_K* REDEFINED FOR V
          #B_I   B_J-B_K
          ENDM
          SPACE  4,8
**        REDEFINE *SB0 -BJ+BK* TO BE ILLEGAL OPCODE. 
  
 #B-B+B   CPSYN  SB-B+B 
  
          PURGDEF  SB-B+B 
  
 SB-B+B   OPDEF  I,J,K
 O        ERRZR  I           *SB0 -B_J+B_K* REDEFINED FOR V 
          #B_I   -B_J+B_K 
          ENDM
          SPACE  4,8
**        REDEFINE *SB0 BJ* TO BE ILLEGAL OPCODE. 
  
 #BB      CPSYN  SBB
  
          PURGDEF  SBB
  
 SBB      OPDEF  I,J
 O        ERRZR  I           *SB0 B_J* REDEFINED FOR V
          #B_I   B_J
          ENDM
          SPACE  4,8
**        REDEFINE *SB0 -BJ* TO BE ILLEGAL OPCODE.
  
 #B-B     CPSYN  SB-B 
  
          PURGDEF  SB-B 
  
 SB-B     OPDEF  I,J
 O        ERRZR  I           *SB0 -B_J* REDEFINED FOR V 
          #B_I   -B_J 
          ENDM
          SPACE  4,8
**        REDEFINE *ERN D* TO BE ILLEGAL OPCODE.
  
 #ER      OPSYN  ERN
  
          PURGMAC  ERN
  
 ERN      MACRO  D
 O        ERRNZ  D           *ERN _D* REDEFINED FOR V 
          #ER    D
          ENDM
          SPACE  4,8
**        REDEFINE *RPN D* TO BE ILLEGAL OPCODE.
  
 #RP      OPSYN  RPN
  
          PURGMAC RPN 
  
 RPN      MACRO  D
 O        ERR                *RPN D* REDEFINED FOR V
          #RP    D
          ENDM
          SPACE  4,8
**        REDEFINE *PSN D* TO BE ILLEGAL OPCODE IF D.NE.0.
  
 #SN      OPSYN  PSN
  
          PURGMAC PSN 
  
 PSN      MACRO  D
 O        ERRNZ  D           *PSN _D* REDEFINED FOR V 
          #SN    D
          ENDM
          SPACE  4,8
**        REDEFINE *AJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.
  
 #AJ      OPSYN  AJM
  
          PURGMAC AJM 
  
 AJM      MACRO  M,D
 O        ERRPL  D-40B       *AJM _M,_D* REDEFINED FOR V
          #AJ    M,D
          ENDM
          SPACE  4,8
**        REDEFINE *IJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.
  
 #IJ      OPSYN  IJM
  
          PURGMAC IJM 
  
 IJM      MACRO  M,D
 O        ERRPL  D-40B       *IJM _M,_D* REDEFINED FOR V
          #IJ    M,D
          ENDM
          SPACE  4,8
**        REDEFINE *FJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.
  
 #FJ      OPSYN  FJM
  
          PURGMAC FJM 
  
 FJM      MACRO  M,D
 O        ERRPL  D-40B       *FJM _M,_D* REDEFINED FOR V
          #FJ    M,D
          ENDM
          SPACE  4,8
**        REDEFINE *EJM M,D* TO BE ILLEGAL OPCODE IF D.GE.40B.
  
 #EJ      OPSYN  EJM
  
          PURGMAC EJM 
  
 EJM      MACRO  M,D
 O        ERRPL  D-40B       *EJM _M,_D* REDEFINED FOR V
          #EJ    M,D
          ENDM
          SPACE  4,8
          END 
*CWEOR 14 
