         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$EDIT                                                          <<*9262>>02520000
      %(16)120,   0, << HPHERO      Video Cartrige Technology>><< 1228>>02595000
      %(16)214,   3, << 7937 Disc Drive                      >><< 1228>>02802000
      %(16)215,   3, << 7936 Disc Drive                      >><< 1228>>02803000
      %(16)220,   3, << 7945 Disc Drive                      >><< 1228>>02820000
      %(16)22A,   3, << 7957 Disc Drive                      >><<f2353>>02820100
      %(16)22B,   3, << 7958 Disc Drive                      >><<f2353>>02820200
      %(16)260,   3, << 9144 Cartridge  Tape Drive (BUFFALO) >><<n1365>>02860000
      %(16)270,   3, << 35401A Cartridge Tape Drive (MERLIN) >><<n1365>>02865000
           <<  3 >>         3,     << VLSI PIC >>              <<P9295>>03260000
           <<  4 >>         2,     << TIC or DAPHNIS >>        << 1024>>03280000
                                                                        04100000
   DEFINE MULTI'IMB'SYS = (THISCPU = 5  <<Series 64>>                   04101000
                        OR THISCPU = 6  <<Series 37>>                   04102000
                        OR THISCPU = 7  <<Series 45>>                   04103000
                        OR THISCPU = 8  <<Series 35>>)#;                04104000
                                                                        04105000
$EDIT                                                          <<*9262>>05360000
         MOVE BUFF := "Video Cassette Drive";                  << 1228>>05425000
         MOVE BUFF := "7937 Disc Drive";                       << 1228>>05642000
         MOVE BUFF := "7936 Disc Drive";                       << 1228>>05643000
         MOVE BUFF := "7945 Disc Drive";                       << 1228>>05660000
         MOVE BUFF := "7957 Disc Drive";                       <<f2353>>05660100
         MOVE BUFF := "7958 Disc Drive";                       <<f2353>>05660200
         MOVE BUFF := "35401 Cartridge Tape Drive";            <<n1365>>05705000
<<--------------------------------------------------->>        << 1024>>08481000
<<  NOTE: Since the MIMI chip used on both the  TIC  >>        << 1024>>08482000
<<        and DAPHNIS has the CHANID hardcoded as 4  >>        << 1024>>08483000
<<        we have no means of knowing whether the    >>        << 1024>>08484000
<<        channel really has only 7 or 8 accessible  >>        << 1024>>08485000
<<        ports.  The decision was made to list port >>        << 1024>>08486000
<<        6 as OPTIONAL and hope the customer can    >>        << 1024>>08487000
<<        figure it out.    HKS                      >>        << 1024>>08488000
<<--------------------------------------------------->>        << 1024>>08489000
                                                               << 1024>>08490000
   ID := CATP;     << FORCE ID FOR SEARCH! >>                  <<*9262>>08520000
   add'dev'id( drt, 6, id); << allow port 6 for daphnis >>     << 1024>>08561000
   build'str( drt, id);                                        << 1024>>08641000
   move bline(19) := "  6"; << just in case its a DAPHNIS >>   << 1024>>08642000
   move strlabel := "(OPTIONAL)";  << since we can't tell >>   << 1024>>08643000
   printline;                                                  << 1024>>08644000
   IF (ID=%(16)240) OR (ID=%(16)260) OR (ID=%(16)270) THEN     <<P2546>>10461000
      CS80'DRIVER(0, DRT, 0, 3, RSTAT, 0D, MEMADR, 2)          <<P2546>>10462000
   ELSE                                                        <<P2546>>10463000
      CS80'DRIVER(0, DRT, 0, 8, RSTAT, 0D, MEMADR, 2);         <<P2546>>10480000
      IF (ID=%(16)240) OR (ID=%(16)260) OR (ID=%(16)270) THEN  <<P2546>>10621000
         CS80'DRIVER(0, DRT, 0, 3, NFREAD, 0D, MEMADR, 128)    <<P2546>>10622000
      ELSE                                                     <<P2546>>10623000
         CS80'DRIVER(0, DRT, 0, 8, NFREAD, 0D, MEMADR, 128);   <<P2546>>10640000
            BEGIN   << TIC or DAPHNIS (can't tell which) >>    << 1024>>13440000
