*DECK,NADTEXT 
          IDENT  NADTEXT
          BCU 
          STEXT 
          TITLE  NAD MACRO PROTOTYPES.
          SPACE  4
***       NAD MACRO PROTOTYPES. 
*         DON CROUSE (04,15,81) 
 NADOP    SPACE  4
**        NADOP - DEFINE BC INSTRUCTION MACRO.
*         NADOP  NAME,CTL,VAL 
*         ENTRY  (NAME) = MNEMONIC NAME.
*                (CTL) = 0 - 4-BIT ADDRESS.  (SAB)
*                        1 - (16 - 4-BIT) ADDRESS.  (SLC) 
*                        2 - (15 - 4-BIT) ADDRESS.  (TAB) 
*                        3 - 8-BIT ADDRESS.  (ADN)
*                        4 - 9-BIT RELATIVE ADDRESS.  (UJR) 
*                        5 - 4-BIT CHANNEL AND NO ADDRESS.  (IAN) 
*                        6 - 8-BIT ADDRESS AND OPTIONAL 
*                            INDEXING. (LDD)
*                        7 - 4-BIT CHANNEL AND 4-BIT ADDRESS.  (INT)
*                        8 - 16 BIT INSTRUCTION,NO ADDRESS (JFA)
*                        9 - 8 BIT ADDRESS BACKWARD ONLY (RTB)
*                       10 - 12-BIT ADDRESS.  (FNA) 
*                       11 - 2 16-BIT ADDRESS I/O.  (IAM) 
*                            WITH 2 INSTRUCTION PARAMETERS. 
*                       12 - 2 16-BIT ADDRESS.  (TST) 
*                            WITH 3 INSTRUCTION PARAMETERS. 
*                       13 - 7 BIT ADDRESS (BIT 8 SET = BACKWARD)  (L1R)
*                                          (BIT 8 ZERO = FORWARD) 
*                       14 - 16 BIT INSTRUCTION WITH 16 BIT 
*                            ADDRESS.  (LJM)
*                       15 - 16 BIT INSTRUCTION WITH 3 16 BIT 
*                            ADDRESSES  (QGT) 
*                       16 - 4 BIT ADDRESS AND 15-4 BIT FLAG.   (SCM) 
*                       17 - 16 BIT INSTRUCTION AND 16 BIT RELATIVE 
*                            FORWARD ADDRESS.   (CCU) 
*         (VAL) = 16-BIT OPERATION CODE VALUE.
* 
* 
          PURGMAC NADOP 
  
 NADOP    MACRO  NAME,CTL,VAL PERIPHERAL MACHINE CODES
 NAME     NDOP   CTL,0#_VAL 
          ENDM
 OPS      SPACE  4
*         BUFFER CONTROLLER OPCODES.
  
  
          NADOP  SLS,3,0000 
          NADOP  SAB,0,0100 
          NADOP  CAB,0,0200 
          NADOP  MAB,0,0300 
          NADOP  SCA,0,0400 
          NADOP  XA1,0,0401 
          NADOP  XA2,0,0402 
          NADOP  TIA,0,0403 
          NADOP  SRC,0,0580 
          NADOP  SLC,1,0580 
          NADOP  SRO,0,0500 
          NADOP  TA1,3,0600 
          NADOP  TA2,3,0700 
          NADOP  INT,5,0800 
          NADOP  CBT,0,0880 
          NADOP  TIS,0,0840 
          NADOP  CBF,0,0800 
          NADOP  TLS,0,0810 
          NADOP  TAB,2,0810 
          NADOP  TCY,0,0820 
          NADOP  TI5,0,0840 
          NADOP  SCM,16,0900
          NADOP  SMB,7,0A00 
          NADOP  CMB,7,0B00 
          NADOP  SOA,5,0C00 
          NADOP  CZA,5,0C01 
          NADOP  SZA,5,0C02 
          NADOP  COA,5,0C03 
          NADOP  MAW,3,0D00 
          NADOP  SAW,3,0E00 
          NADOP  UCS,8,0F00 
          NADOP  IRT,0,0F01 
          NADOP  PSH,0,0F02 
          NADOP  POP,0,0F03 
          SPACE  2,16 
          NADOP  ADN,3,1000 
          NADOP  SBN,3,1100 
          NADOP  LMN,3,1200 
          NADOP  LPN,3,1300 
          NADOP  T1N,3,1400 
          NADOP  T2N,3,1500 
          NADOP  LCN,3,1600 
          NADOP  LFA,3,1700 
          NADOP  EAD,6,1800 
          NADOP  LDN,6,1800 
          NADOP  ENA,6,1800 
          NADOP  EAR,4,1B00 
          NADOP  EAI,6,1C00 
          NADOP  LIA,6,1C00 
          SPACE  2,16 
          NADOP  E1D,6,2000 
          NADOP  EN1,3,2000 
          NADOP  IN1,3,2100 
          NADOP  EI1,3,2200 
          NADOP  E1R,4,2300 
          NADOP  E1I,6,2400 
          NADOP  LB1,6,2400 
          NADOP  LI1,6,2400 
          NADOP  E2D,6,2800 
          NADOP  EN2,3,2800 
          NADOP  EI2,3,2900 
          NADOP  IN2,3,2A00 
          NADOP  E2R,4,2B00 
          NADOP  E2I,6,2C00 
          NADOP  LB2,6,2C00 
          NADOP  LI2,6,2C00 
          SPACE  2,16 
          NADOP  T1D,6,3000 
          NADOP  T1R,4,3300 
          NADOP  T1I,6,3400 
          NADOP  T2D,6,3800 
          NADOP  T2R,4,3B00 
          NADOP  T2I,6,3C00 
          SPACE  2,16 
          NADOP  LDD,6,4000 
          NADOP  LDR,4,4300 
          NADOP  LDI,6,4400 
          NADOP  LCD,6,4800 
          NADOP  LCR,4,4B00 
          NADOP  LCI,6,4C00 
          SPACE  2,16 
          NADOP  LUD,6,5000 
          NADOP  LUR,4,5300 
          NADOP  LUI,6,5400 
          NADOP  LLD,6,5800 
          NADOP  LLR,4,5B00 
          NADOP  LLI,6,5C00 
          SPACE  2,16 
          NADOP  ADD,6,6000 
          NADOP  ADR,4,6300 
          NADOP  ADI,6,6400 
          NADOP  SBD,6,6800 
          NADOP  SBR,4,6B00 
          NADOP  SBI,6,6C00 
          SPACE  2,16 
          NADOP  LMD,6,7000 
          NADOP  LMR,4,7300 
          NADOP  LMI,6,7400 
          NADOP  LPD,6,7800 
          NADOP  LPR,4,7B00 
          NADOP  LPI,6,7C00 
          SPACE  2,16 
          NADOP  RAD,6,8000 
          NADOP  RAR,4,8300 
          NADOP  RAI,6,8400 
          NADOP  AOD,6,8800 
          NADOP  AOR,4,8B00 
          NADOP  AOI,6,8C00 
          SPACE  2,16 
          NADOP  RUD,6,9000 
          NADOP  RUR,4,9300 
          NADOP  RUI,6,9400 
          NADOP  RLD,6,9800 
          NADOP  RLR,4,9B00 
          NADOP  RLI,6,9C00 
          SPACE  2,16 
          NADOP  STD,6,A000 
          NADOP  STR,4,A300 
          NADOP  STI,6,A400 
          NADOP  CLD,6,A800 
          NADOP  CLR,4,AB00 
          NADOP  CLI,6,AC00 
          SPACE  2,16 
          NADOP  SJD,6,B000 
          NADOP  SJR,4,B300 
          NADOP  SJI,6,B400 
          NADOP  UJD,6,B800 
          NADOP  UJR,4,BB00 
          NADOP  UJI,6,BC00 
          SPACE  2,16 
          NADOP  ZJD,6,C000 
          NADOP  ZJR,4,C300 
          NADOP  ZJI,6,C400 
          NADOP  NJD,6,C800 
          NADOP  NJR,4,CB00 
          NADOP  NJI,6,CC00 
          SPACE  2,16 
          NADOP  PJD,6,D000 
          NADOP  PJR,4,D300 
          NADOP  PJI,6,D400 
          NADOP  MJD,6,D800 
          NADOP  MJR,4,DB00 
          NADOP  MJI,6,DC00 
          SPACE  2,16 
          NADOP  TJD,6,E000 
          NADOP  TJR,4,E300 
          NADOP  TJI,6,E400 
          NADOP  FJD,6,E800 
          NADOP  FJR,4,EB00 
          NADOP  FJI,6,EC00 
          SPACE  2,16 
          NADOP  XIS,3,F000 
          NADOP  RIP,3,F100 
          NADOP  EIN,3,F200 
          NADOP  DIN,3,F300 
          NADOP  RTI,3,F400 
          NADOP  RTB,9,F500 
          NADOP  CCU,17,F600
          NADOP  CCL,17,F601
          NADOP  EIC,3,F700 
          NADOP  L1R,13,F800
          NADOP  L2R,13,F900
          NADOP  LJM,14,FA00
          NADOP  CAS,3,FA00 
          NADOP  QPT,12,FB00
          NADOP  QPB,12,FB01
          NADOP  QB2,12,FB11
          NADOP  QB1,12,FB21
          NADOP  QB3,12,FB31
          NADOP  QGT,15,FB02
          NADOP  QG2,15,FB12
          NADOP  QG1,15,FB22
          NADOP  QG3,15,FB32
          NADOP  QCL,12,FB03
          NADOP  PSM,3,FD00 
          NADOP  POM,3,FE00 
          NADOP  RID,8,FF00 
          NADOP  JFA,8,FF01 
          NADOP  JFA1,8,FF02
          SPACE  2,16 
**        DEVICE INTERFACE INSTRUCTIONS 
  
          NADOP  IAN,5,0000 
          NADOP  IAC,7,1000 
          NADOP  IAM,11,2000
          NADOP  OAN,10,3000
          NADOP  OAC,7,4000 
          NADOP  OAM,11,5000
          NADOP  CHN,10,6000
          NADOP  ACN,10,7000
          NADOP  DCN,10,8000
          NADOP  FNA,10,9000
          NADOP  DR1,8,A000 
          NADOP  DR2,8,A001 
          NADOP  IR1,8,A002 
          NADOP  IR2,8,A003 
          NADOP  JT0,12,B00A
          NADOP  JF0,12,B002
          NADOP  JT0I,12,B00E 
          NADOP  JF0I,12,B006 
          NADOP  JT1,12,B008
          NADOP  JF1,12,B000
          NADOP  JT1I,12,B00C 
          NADOP  JF1I,12,B004 
          NADOP  JT2,12,B009
          NADOP  JF2,12,B001
          NADOP  JT2I,12,B00D 
          NADOP  JF2I,12,B005 
          NADOP  JMP,12,B001
          NADOP  WAT,10,C000
          NADOP  SEN,10,D000
          NADOP  MCH,10,E000
          NADOP  HLT,10,F000
          SPACE  4
          END 
