$TITLE('sdt218cnf Module for iSBX-218 System Test')
$subtitle(' module of SDT218.286 V3.4 ')

sdt218cnf: DO;
/********************************************************************\
*                                                                    *
* TITLE:      sdt218cnf                                              *
*                                                                    *
* DATE:       August 25,  1983                                       *
*                                                                    *
* ABSTRACT:   This is the configuration module for the iSBX-218      *
*             System Test for SDTMON.  This module allows the user   *
*             to write his own tests, delete standard tests or       *
*             change certain test parameters.                        *
*                                                                    *
* LANGUAGE DEPENDENCIES:                                             *
*                                                                    *
*             PL/M 86                                                *
*                                                                    *
\********************************************************************/

$SUBTITLE('Data Declaration Section')
/********************************************************************\
*                                                                    *
*     Literal Data Declaration Section                               *
*                                                                    *
\********************************************************************/

/********* Generic Literals *************/

DECLARE
   boolean                 LITERALLY 'BYTE',
   hex$4                   LITERALLY '0C3h',  /* HEX 4 DIGIT NUMBER */
   hex$2                   LITERALLY '0C1h',  /* HEX 2 DIGIT NUMBER */
   busy                    LITERALLY '0FFh',
   true                    LITERALLY '0FFh',
   false                   LITERALLY '0h',
   pass                    LITERALLY '0FFh',
   fail                    LITERALLY '0h',
   done                    LITERALLY '0FFh',
   null                    LITERALLY '0h',
   cr                      LITERALLY '0Dh',
   lf                      LITERALLY '0Ah',

/*******   SDTMON oriented literals  ******/

   ign                     LITERALLY '1',
   rec                     LITERALLY '0',
           
/*******  Board specific configuration literals *******/

	first$cylinder			LITERALLY '00h',
	no$modifier				LITERALLY '0h',
	rd$deleted$modifier		LITERALLY '04h',
	wrt$deleted$modifier	LITERALLY '04h',
	interrupt$modifier		LITERALLY '01H',
	FDC$BASE$REG			literally 'A0H',
	FDC$DATA$REG			literally 'A2H',
	TIME$OUT$COUNT			literally '01000H',
	NUMBER$RETRIES			literally '3',
	DEFAULT$HD$UNLD$TM		literally '0',
	DEFAULT$STEP$RATE		literally '0',
	DEFAULT$HD$LD$TM		literally '0',
	DEFAULT$GAP$RD			literally '0',
	DEFAULT$GAP$FORMAT		literally '0',
	DEFAULT$N				literally '0',
	CONFIG$DEVICE	 		LITERALLY '0',
 	CONFIG$HOST 			LITERALLY '0',
 	CONFIG$MEDIA$SIZE		LITERALLY '0',
 	CONFIG$MEDIA$TYPE		LITERALLY '0',
	CONFIG$215$WAKEUP		LITERALLY '100H',
	CONFIG$215$INTRPT$LEVEL			LITERALLY '5',	/* range of 0 to 15, taken at PIC */
	CONFIG$286$218A$INTRPT$LEVEL	LITERALLY '12',	/* range of 0 to 15, taken at PIC */
	CONFIG$86$218A$INTRPT$LEVEL		LITERALLY '5',	/* range of 0 to 15, taken at PIC */
	CONFIG$PIC$A0_M			LITERALLY '0C0H',
	CONFIG$PIC$A1_M			LITERALLY '0C2H',
	CONFIG$PIC$A0_S			LITERALLY '0C4H',
	CONFIG$PIC$A1_S			LITERALLY '0C6H',
	CONFIG$SLAVE$PIC		LITERALLY '7',
	CONFIG$FDC$STATUS		LITERALLY '080H',
	CONFIG$FDC$DATA			LITERALLY '082H',
	CONFIG$218$RESET		LITERALLY '090H',
	CONFIG$218$DACK			LITERALLY '094H',
	CONFIG$218$MOTOR		LITERALLY '098H', 
	CONFIG$218$TC			LITERALLY '09CH';

/********************************************************************\
*                                                                    *
*     External Data Declaration Section                              *
*                                                                    *
\********************************************************************/


DECLARE
  error                  boolean EXTERNAL;

$EJECT
/********************************************************************\
*                                                                    *
*     SDT218 Test Definition Configuration Section                   *
*                                                                    *
\********************************************************************/


DECLARE
  mand$ts$on               LITERALLY '9',    /* Number of mandatory tests    */

  opt$ts$on                LITERALLY '41',   /* Number of optional tests     */

  num$ts$on                LITERALLY '50',   /* Total number of tests        */

  test$def$block$on (num$ts$on)STRUCTURE(
                           flag     BYTE,    /* RECognize / IGNore test      */
                           addr     POINTER, /* Address of test              */
                           name$ptr POINTER) /* Address of test desc         */
                         PUBLIC DATA(
                           rec,   @i218$215_format_t,          @format$desc,
                           rec,   @i218$215_seek$verify_t,     @seek$verify$desc,    
                           rec,   @i218$215_write$read_t,      @write$read$desc, 
                           ign,   @i218$215_drive$select_t,    @drive$select$desc,
                           rec,   @i218$215_platter$head_t,    @platter$head$desc,     
                           rec,   @i218$215_sector$select_t,   @sector$select$desc,
                           rec,   @i218$215_track$verify_t,    @track$verify$desc,
                           rec,   @i218$215_platter$verify_t,  @platter$verify$desc,
                           rec,   @i218$215_wrt$rd$deleted_t,  @wrt$rd$deleted$desc,
                           ign,   @i218$215_help_u,          	@help$desc,
                           ign,   @isbx218_select$unit_u,        @sel$unit$desc,
                           ign,   @isbx218_select$cylinder_u,         @sel$cyl$desc,
                           ign,   @isbx218_select$head_u,          @sel$hd$desc,
                           ign,   @isbx218_select$sector$count_u,          @sec$ct$desc,
                           ign,   @isbx218_select$interrupt_u,        @sel$intr$desc,
                           ign,   @isbx218_select$read$buffer_u,      @sel$rd$buf$desc,
                           ign,   @isbx218_select$write$buffer_u,     @sel$wrt$buf$desc, 
                           ign,   @i218$215_increment$value_u,     @increment$value$desc, 
                           ign,   @i218$215_decrement$value_u,     @decrement$value$desc, 
                           ign,   @iSBX218_rset_u,            @rset$desc,
                           ign,   @isbx218_int_u,             @int$desc,
                           ign,   @isbx218_recal_u,           @recal$desc,
                           ign,   @isbx218_sense$drive_u,            @sense$drive$desc,
                           ign,   @isbx218_sense$interrupt_u,            @sense$interrupt$desc,
                           ign,   @isbx218_seek_u,            @seek$desc,
                           ign,   @isbx218_rdid_u,            @rdid$desc,
                           ign,   @isbx218_vrf_u,              @vrf$desc,
                           ign,   @isbx218_rd_u,              @rd$desc,
                           ign,   @isbx218_delrd_u,           @delrd$desc,
                           ign,   @isbx218_wrt_u,             @wrt$desc,
                           ign,   @isbx218_delwrt_u,          @delwrt$desc,
                           ign,   @isbx218_altseek_u,         @altseek$desc,
                           ign,   @isbx218_dksk_u,            @dksk$desc,
                           ign,   @isbx218_rnsk_u,            @rnsk$desc,
                           ign,   @isbx218_fmtrk_u,           @fmtrk$desc,
                           ign,   @isbx218_fmplt_u,           @fmplt$desc,
                           ign,   @isbx218_fmdrv_u,           @fmdrv$desc,
                           ign,   @isbx218_wrc_u,             @wrc$desc,
                           ign,   @isbx218_trkck_u,           @trkck$desc,
                           ign,   @isbx218_random_u,          @random$desc,
                           ign,   @isbx218_crc_u,             @crc$desc,
                           ign,   @isbx218_iseek_u,           @iseek$desc,
                           ign,   @isbx218_w$seek_u,          @w$seek$desc,
                           ign,   @isbx218_pause_u,           @pause$desc,
                           ign,   @isbx218_cmp_u,             @cmp$desc,
                           ign,   @isbx218_dis_u,             @dis$desc,
                           ign,   @isbx218_flrd_u,            @flrd$desc,
                           ign,   @isbx218_flwrt_u,           @flwrt$desc,
                           ign,   @isbx218_dsiopb_u,          @dsiopb$desc,
                           ign,   @isbx218_clean_u,           @clean$desc);
                           /*,
                            * ign,	  @display_seek,			  @ds_desc);
                            */
$EJECT


DECLARE
  mand$ts$off              LITERALLY '9',    /* Number of mandatory tests    */

  opt$ts$off               LITERALLY '43',   /* Number of optional tests     */

  num$ts$off               LITERALLY '52',   /* Total number of tests        */

  test$def$block$off (num$ts$off)STRUCTURE(
                           flag     BYTE,    /* RECognize / IGNore test      */
                           addr     POINTER, /* Address of test              */
                           name$ptr POINTER) /* Address of test desc         */
                         PUBLIC DATA(
                           rec,   @i218$215_format_t,          @format$desc,     
                           rec,   @i218$215_seek$verify_t,     @seek$verify$desc,     
                           rec,   @i218$215_write$read_t,      @write$read$desc,     
                           ign,   @i218$215_drive$select_t,    @drive$select$desc,
                           rec,   @i218$215_platter$head_t,    @platter$head$desc,     
                           rec,   @i218$215_sector$select_t,   @sector$select$desc,     
                           rec,   @i218$215_track$verify_t,    @track$verify$desc,     
                           rec,   @i218$215_platter$verify_t,  @platter$verify$desc,     
                           rec,   @i218$215_wrt$rd$deleted_t,  @wrt$rd$deleted$desc, /* Default */
                           ign,   @i218$215_help_u,          	@help$desc,
                           ign,   @isbc215_select$unit_u,        @sel$unit$desc,
                           ign,   @isbc215_select$cylinder_u,         @sel$cyl$desc,
                           ign,   @isbc215_select$head_u,          @sel$hd$desc,
                           ign,   @isbc215_select$sector$count_u,          @sec$ct$desc,
                           ign,   @isbc215_select$interrupt_u,        @sel$intr$desc,
                           ign,   @isbc215_select$read$buffer_u,      @sel$rd$buf$desc,
                           ign,   @isbc215_select$write$buffer_u,     @sel$wrt$buf$desc, 
                           ign,   @i218$215_increment$value_u,     @increment$value$desc, 
                           ign,   @i218$215_decrement$value_u,     @decrement$value$desc, 
                           ign,   @isbc215_rset_u,            @rset$desc,
                           ign,   @isbc215_int_u,             @int$desc,
                           ign,   @isbc215_recal_u,           @recal$desc,
                           ign,   @isbc215_stat_u,            @stat$desc,
                           ign,   @isbc215_stoc_u,            @stoc$desc,
                           ign,   @isbc215_ctos_u,            @ctos$desc,
                           ign,   @isbc215_seek_u,            @seek$desc,
                           ign,   @isbc215_rdid_u,            @rdid$desc,
                           ign,   @isbc215_vrf_u,             @vrf$desc,
                           ign,   @isbc215_rd_u,              @rd$desc,
                           ign,   @isbc215_delrd_u,           @delrd$desc,
                           ign,   @isbc215_wrt_u,             @wrt$desc,
                           ign,   @isbc215_delwrt_u,          @delwrt$desc,
                           ign,   @isbc215_wrtbuf_u,          @wrtbuf$desc,
                           ign,   @isbc215_altseek_u,         @altseek$desc,
                           ign,   @isbc215_dksk_u,            @dksk$desc,
                           ign,   @isbc215_rnsk_u,            @rnsk$desc,
                           ign,   @isbc215_fmtrk_u,           @fmtrk$desc,
                           ign,   @isbc215_fmplt_u,           @fmplt$desc,
                           ign,   @isbc215_fmdrv_u,           @fmdrv$desc,
                           ign,   @isbc215_wrc_u,             @wrc$desc,
                           ign,   @isbc215_trkck_u,           @trkck$desc,
                           ign,   @isbc215_random_u,          @random$desc,
                           ign,   @isbc215_iseek_u,           @iseek$desc,
                           ign,   @isbc215_w$seek_u,          @w$seek$desc,
                           ign,   @isbc215_pause_u,           @pause$desc,
                           ign,   @isbc215_ecc_u,             @ecc$desc,
                           ign,   @isbc215_cmp_u,             @cmp$desc,
                           ign,   @isbc215_dis_u,             @dis$desc,
                           ign,   @isbc215_flrd_u,            @flrd$desc,
                           ign,   @isbc215_flwrt_u,           @flwrt$desc,
                           ign,   @isbc215_dsiopb_u,          @dsiopb$desc,
                           ign,   @isbc215_clean_u,           @clean$desc);

$EJECT
/********************************************************************\
*                                                                    *
*     Sign-on Message and Subtest Titles                             *
*                                                                    *
\********************************************************************/

DECLARE 
  user$signon         (*)BYTE PUBLIC DATA(
    'SYSTEM DIAGNOSTIC TEST - 218, V3.4', cr, lf,
    'Copyright 1983 Intel Corporation', null);   

DECLARE
  not$test$0$desc         (*)BYTE DATA(
    'RESET TEST',null),

  not$test$1$desc         (*)BYTE DATA(
    'TRANSFER STATUS',null),

  not$test$2$desc         (*)BYTE DATA(
    'BUFFER I/O TEST',null),

   not$test$3$desc         (*)BYTE DATA(
     'ROM CHECKSUM TEST',null),

   not$test$4$desc         (*)BYTE DATA(
     'RAM WINDOW TEST',null),

   not$test$5$desc         (*)BYTE DATA(
     'RAM ADDRESS TEST',null),

   not$test$6$desc         (*)BYTE DATA(
     'MICRO-DIAGNOSTICS TEST',null),

   seek$verify$desc    (*)BYTE DATA(
     'SEEK/VERIFY TEST',null),

   format$desc         (*)BYTE DATA(
     'FORMAT TEST',null),

   write$read$desc     (*)BYTE DATA(
     'WRITE/READ TEST',null),

   drive$select$desc   (*)BYTE DATA(
     'DRIVE SELECTION TEST',null),

   platter$head$desc   (*)BYTE DATA(
     'PLATTER/HEAD TEST',null),

   sector$select$desc  (*)BYTE DATA(
     'SECTOR SELECTION TEST',null),

   track$verify$desc   (*)BYTE DATA(
     'TRACK VERIFY TEST',null),

   platter$verify$desc (*)BYTE DATA(
     'PLATTER VERIFY TEST',null),

   wrt$rd$deleted$desc (*)BYTE DATA(
     'WRITE/READ DELETED DATA TEST',null),

   overlap$desc        (*)BYTE DATA(
     'OVERLAP TEST',null),
   
   rset$desc           (*)BYTE DATA(
     'RESET Utility',null),

   fmtrk$desc          (*)BYTE DATA(
     'FORMAT TRACK Utility',null),

   fmplt$desc          (*)BYTE DATA(
     'FORMAT PLATTER Utility',null),

   fmdrv$desc          (*)BYTE DATA(
     'FORMAT DRIVE Utility',null),

   pause$desc          (*)BYTE DATA(
     'PAUSE Utility',null),

   dsiopb$desc         (*)BYTE DATA(
     'DISPLAY IOPB Utility',null),

   rdid$desc           (*)BYTE DATA(
     'READ & DISPLAY ID Utility',null),

   stat$desc           (*)BYTE DATA(
     'ERROR STATUS Utility',null),

   sense$drive$desc    (*)BYTE DATA(
     'SENSE DRIVE STATUS Utility',null),

   sense$interrupt$desc    (*)BYTE DATA(
     'SENSE INTERRUPT STATUS Utility',null),

   int$desc            (*)BYTE DATA(
     'INITIALIZE CONTROLLER Utility',null),

   intfl$desc          (*)BYTE DATA(
     'INITIALIZE FLAG Utility',null),

   recal$desc          (*)BYTE DATA(
     'RECALIBRATE Utility',null),

   seek$desc           (*)BYTE DATA(
     'SEEK Utility',null),

   iseek$desc          (*)BYTE DATA(
     'INITIATE SEEK Utility',null),

   w$seek$desc         (*)BYTE DATA(
     'WAIT$SEEK Utility',null),

   altseek$desc        (*)BYTE DATA(
     'ALTERNATE SEEKS Utility',null),

   wrt$desc            (*)BYTE DATA(
     'WRITE Utility',null),

   rd$desc             (*)BYTE DATA(
     'READ Utility',null),

   vrf$desc            (*)BYTE DATA(
     'VERIFY Utility',null),

   ecc$desc            (*)BYTE DATA(
     'ECC Utility',null),

   crc$desc            (*)BYTE DATA(
     'CRC Utility',null),

   cmp$desc            (*)BYTE DATA(
     'COMPARE Utility',null),

   flwrt$desc          (*)BYTE DATA(
     'FILL WRITE BUFFER Utility',null),

   flrd$desc           (*)BYTE DATA(
     'FILL READ BUFFER Utility',null),

   delwrt$desc         (*)BYTE DATA(
     'DELETE WRITE Utility',null),

   delrd$desc          (*)BYTE DATA(
     'DELETE READ Utility',null),

   wrtbuf$desc         (*)BYTE DATA(
     'WRITE BUFFER Utility',null),

   stoc$desc           (*)BYTE DATA(
     'SYSTEM TO CONTROLLER Utility',null),

   ctos$desc           (*)BYTE DATA(
     'CONTROLLER TO SYSTEM Utility',null),

   help$desc			(*)byte data(
     'HELP Utility', null),

   increment$value$desc	(*)byte data(
     'INCREMENT VALUE Utility', null),
     
   decrement$value$desc	(*)byte data(
     'DECREMENT VALUE Utility', null),
     
   sel$unit$desc       (*)BYTE DATA(
     'SELECT UNIT Utility',null),

   sel$cyl$desc        (*)BYTE DATA(
     'SELECT CYLINDER Utility',null),

   sel$hd$desc         (*)BYTE DATA(
     'SELECT HEAD Utility',null),

   sec$ct$desc         (*)BYTE DATA(
     'SECTOR COUNT Utility',null),

   sel$intr$desc       (*)BYTE DATA(
     'SELECT INTERRUPT Utility',null),

   sel$wrt$buf$desc    (*)BYTE DATA(
     'SELECT WRITE BUFFER Utility',null),

   sel$rd$buf$desc     (*)BYTE DATA(
     'SELECT READ BUFFER Utility',null),

   random$desc         (*)BYTE DATA(
     'RANDOM WRITE Utility',null),

   wrc$desc            (*)BYTE DATA(
     'WRITE CYLINDER Utility',null),

   trkck$desc          (*)BYTE DATA(
     'TRACK CHECK Utility',null),

   dksk$desc           (*)BYTE DATA(
     'DISK SEEK Utility',null),

   rnsk$desc           (*)BYTE DATA(
     'RANDOM SEEK Utility',null),

   dis$desc            (*)BYTE DATA(
     'DISPLAY MEMORY Utility',null),

   clean$desc          (*)BYTE DATA(
     'CLEAN HEAD Utility',null),

   ds_desc				(*)BYTE DATA(
     'Display Seek Utility', null);
   
$EJECT
/********************************************************************\
*                                                                    *
*     Board-Specific Configuration Information                       *
*                                                                    *
\********************************************************************/


DECLARE
  scratch                 LITERALLY '6000h'; /* Size of user's scratch area */

$EJECT
/********************************************************************\
*                                                                    *
*     Test-Specific Configuration Information                        *
*                                                                    *
\********************************************************************/
$EJECT
/********************************************************************\
*                                                                    *
*     Mandatory Tests                                                *
*                                                                    *
\********************************************************************/

test$0:                     /* Description of test$0 */
  PROCEDURE boolean EXTERNAL;
  END test$0;
   
test$1:                     /* Description of test$1  */
  PROCEDURE boolean EXTERNAL;
  END test$1;
    
test$2:                     /* Description of test$2  */
  PROCEDURE boolean EXTERNAL;
  END test$2;
    
test$3:                     /* Description of test$3  */
  PROCEDURE boolean EXTERNAL;
  END test$3;
    
test$4:                     /* Description of test$4  */
  PROCEDURE boolean EXTERNAL;
  END test$4;
    
test$5:                     /* Description of test$5  */
  PROCEDURE boolean EXTERNAL;
  END test$5;
     
test$6:                     /* Description of test$6  */
  PROCEDURE boolean EXTERNAL;
  END test$6;
    
i218$215_seek$verify_t:                  /* Description of seek$verify_t      */
  PROCEDURE boolean EXTERNAL;
  END i218$215_seek$verify_t;
    
i218$215_format_t:                       /* Description of format_t           */
  PROCEDURE boolean EXTERNAL;
  END i218$215_format_t;
    
i218$215_write$read_t:                   /* Description of write$read_t       */
  PROCEDURE boolean EXTERNAL;
  END i218$215_write$read_t;
    
i218$215_drive$select_t:                 /* Description of drive$select_t     */
  PROCEDURE boolean EXTERNAL;
  END i218$215_drive$select_t;
     
i218$215_platter$head_t:                 /* Description of platter$head_t     */
  PROCEDURE boolean EXTERNAL;
  END i218$215_platter$head_t;
     
i218$215_sector$select_t:                /* Description of sector$select_t    */
  PROCEDURE boolean EXTERNAL;
  END i218$215_sector$select_t;
     
i218$215_track$verify_t:                 /* Description of track$verify_t     */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_track$verify_t;
     
i218$215_platter$verify_t:               /* Description of platter$verify_t   */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_platter$verify_t;
     
i218$215_wrt$rd$deleted_t:               /* Description of wrt$rd$deleted_t */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_wrt$rd$deleted_t;
     
i218$215_overlap_t:                      /* Description of overlap_t          */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_overlap_t;

$EJECT

/***********************************************************************
*
*             Optional Diagnostics
*
************************************************************************/
     
isbc215_rset_u:                     /* Description of rset_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_rset_u;
     
isbc215_fmtrk_u:                    /* Description of fmtrk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_fmtrk_u;
     
isbc215_fmplt_u:                    /* Description of fmplt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_fmplt_u;
     
isbc215_fmdrv_u:                    /* Description of fmdrv_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_fmdrv_u;
     
isbc215_pause_u:                    /* Description of pause_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_pause_u;
     
isbc215_dsiopb_u:                   /* Description of dsiopb_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_dsiopb_u;
     
isbc215_rdid_u:                     /* Description of rdid_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_rdid_u;
     
isbc215_stat_u:                     /* Description of stat_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_stat_u;
     
isbc215_int_u:                      /* Description of int_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_int_u;
     
isbc215_intfl_u:                    /* Description of intfl_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_intfl_u;
    
isbc215_recal_u:                    /* Description of recal_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_recal_u;
     
isbc215_seek_u:                     /* Description of seek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_seek_u;
     
isbc215_iseek_u:                    /* Description of iseek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_iseek_u;
     
isbc215_w$seek_u:                   /* Description of w$seek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_w$seek_u;
     
isbc215_altseek_u:                  /* Description of altseek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_altseek_u;
     
isbc215_wrt_u:                      /* Description of wrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_wrt_u;
     
isbc215_rd_u:                       /* Description of rd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_rd_u;
     
isbc215_vrf_u:                      /* Description of vrf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_vrf_u;

isbc215_ecc_u:                      /* Description of ecc_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_ecc_u;
     
isbc215_cmp_u:                      /* Description of cmp_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_cmp_u;
     
isbc215_flwrt_u:                    /* Description of flwrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_flwrt_u;
     
isbc215_flrd_u:                     /* Description of flrd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_flrd_u;
     
isbc215_delwrt_u:                   /* Description of delwrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_delwrt_u;
     
isbc215_delrd_u:                    /* Description of delrd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_delrd_u;
     
isbc215_wrtbuf_u:                   /* Description of wrtbuf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_wrtbuf_u;
     
isbc215_stoc_u:                     /* Description of stoc_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_stoc_u;
     
isbc215_ctos_u:                     /* Description of ctos_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_ctos_u;
     
/*
 * i218$215_increment$value_u:           duplicate Description of increment$value_u  
 * PROCEDURE boolean EXTERNAL; 
 * END i218$215_increment$value_u;
 */
 
/*
 * i218$215_decrement$value_u:          duplicate Description of decrement$value_u 
 *  PROCEDURE boolean EXTERNAL; 
 *  END i218$215_decrement$value_u;
 */

/*
 * i218$215_help_u:                     duplicate Description of help_u
 *  PROCEDURE boolean EXTERNAL; 
 *  END isbc215_help_u;
 */
     
isbc215_select$unit_u:                 /* Description of sel$unit_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$unit_u;
     
isbc215_select$cylinder_u:                  /* Description of sel$cyl_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$cylinder_u;
    
isbc215_select$head_u:                   /* Description of sel$hd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$head_u;
     
isbc215_select$sector$count_u:                   /* Description of sec$ct_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$sector$count_u;
    
isbc215_select$interrupt_u:                 /* Description of sel$intr_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$interrupt_u;
     
isbc215_select$write$buffer_u:              /* Description of sel$wrt$buf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$write$buffer_u;
     
isbc215_select$read$buffer_u:               /* Description of sel$rd$buf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_select$read$buffer_u;
     
isbc215_random_u:                   /* Description of random_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_random_u;
     
isbc215_wrc_u:                      /* Description of wrc_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_wrc_u;
     
isbc215_trkck_u:                    /* Description of trkck_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_trkck_u;
     
isbc215_dksk_u:                     /* Description of dksk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_dksk_u;
     
isbc215_rnsk_u:                     /* Description of rnsk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_rnsk_u;
     
isbc215_dis_u:                      /* Description of dis_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_dis_u;
     
isbc215_clean_u:                    /* Description of clean_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbc215_clean_u;

/**************************************************************/
     
isbx218_rset_u:                     /* Description of rset_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_rset_u;
     
isbx218_fmtrk_u:                    /* Description of fmtrk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_fmtrk_u;
     
isbx218_fmplt_u:                    /* Description of fmplt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_fmplt_u;
     
isbx218_fmdrv_u:                    /* Description of fmdrv_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_fmdrv_u;
     
isbx218_pause_u:                    /* Description of pause_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_pause_u;
     
isbx218_dsiopb_u:                   /* Description of dsiopb_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_dsiopb_u;
     
isbx218_rdid_u:                     /* Description of rdid_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_rdid_u;
     
isbx218_sense$drive_u:              /* Description of sense$drive_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_sense$drive_u;
     
isbx218_sense$interrupt_u:           /* Description of sense$interrupt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_sense$interrupt_u;
     
isbx218_int_u:                      /* Description of int_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_int_u;
     
isbx218_intfl_u:                    /* Description of intfl_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_intfl_u;
    
isbx218_recal_u:                    /* Description of recal_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_recal_u;
     
isbx218_seek_u:                     /* Description of seek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_seek_u;
     
isbx218_iseek_u:                    /* Description of iseek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_iseek_u;
     
isbx218_w$seek_u:                   /* Description of w$seek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_w$seek_u;
     
isbx218_altseek_u:                  /* Description of altseek_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_altseek_u;
     
isbx218_wrt_u:                      /* Description of wrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_wrt_u;
     
isbx218_rd_u:                       /* Description of rd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_rd_u;
     
isbx218_vrf_u:                       /* Description of vrf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_vrf_u;
     
isbx218_crc_u:                      /* Description of crc_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_crc_u;
     
isbx218_cmp_u:                      /* Description of cmp_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_cmp_u;
     
isbx218_flwrt_u:                    /* Description of flwrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_flwrt_u;
     
isbx218_flrd_u:                     /* Description of flrd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_flrd_u;
     
isbx218_delwrt_u:                   /* Description of delwrt_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_delwrt_u;
     
isbx218_delrd_u:                    /* Description of delrd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_delrd_u;
     
i218$215_increment$value_u:          /* Description of increment$value_u  */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_increment$value_u;
     
i218$215_decrement$value_u:          /* Description of decrement$value_u  */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_decrement$value_u;
     
i218$215_help_u:                     /* Description of help_u  */
  PROCEDURE boolean EXTERNAL; 
  END i218$215_help_u;
     
isbx218_select$unit_u:                 /* Description of sel$unit_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$unit_u;
     
isbx218_select$cylinder_u:                  /* Description of sel$cyl_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$cylinder_u;
    
isbx218_select$head_u:                   /* Description of sel$hd_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$head_u;
     
isbx218_select$sector$count_u:                   /* Description of sec$ct_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$sector$count_u;
    
isbx218_select$interrupt_u:                 /* Description of sel$intr_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$interrupt_u;
     
isbx218_select$write$buffer_u:              /* Description of sel$wrt$buf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$write$buffer_u;
     
isbx218_select$read$buffer_u:               /* Description of sel$rd$buf_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_select$read$buffer_u;
     
isbx218_random_u:                   /* Description of random_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_random_u;
     
isbx218_wrc_u:                      /* Description of wrc_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_wrc_u;
     
isbx218_trkck_u:                    /* Description of trkck_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_trkck_u;
     
isbx218_dksk_u:                     /* Description of dksk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_dksk_u;
     
isbx218_rnsk_u:                     /* Description of rnsk_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_rnsk_u;
     
isbx218_dis_u:                      /* Description of dis_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_dis_u;
     
isbx218_clean_u:                    /* Description of clean_u  */
  PROCEDURE boolean EXTERNAL; 
  END isbx218_clean_u;

dps_u:                    /* Description of special utility */
  PROCEDURE boolean EXTERNAL; 
  END dps_u;

display_seek:
	PROCEDURE BOOLEAN EXTERNAL;
	END display_seek;
	
$EJECT

/*****************************************************************
*
*      Non - Configurable Data Area
*
******************************************************************/

DECLARE
  msg$wrt$rd$del$ptr      POINTER PUBLIC DATA(@wrt$rd$deleted$desc),
  msg$overlap$ptr         POINTER PUBLIC DATA(@overlap$desc),
  num$mand$ts$on          BYTE PUBLIC DATA(mand$ts$on),
  num$opt$ts$on           BYTE PUBLIC DATA(opt$ts$on),
  num$mand$ts$off         BYTE PUBLIC DATA(mand$ts$off),
  num$opt$ts$off          BYTE PUBLIC DATA(opt$ts$off),

  pq$first_time			byte public,
  
  TOUT					word public data(TIME$OUT$COUNT),
  N						byte public data(DEFAULT$N),
  HdUnLdTm				byte public data(DEFAULT$HD$UNLD$TM),
  StepRate				byte public data(DEFAULT$STEP$RATE),
  HdLdTm				byte public data(DEFAULT$HD$LD$TM),
  GplRead				byte public data(DEFAULT$GAP$RD),
  GplFormat				byte public data(DEFAULT$GAP$FORMAT),
  pq$218$max$retries	word public data(NUMBER$RETRIES),

  pq$config$host		BYTE public data(CONFIG$HOST), 
  pq$host				BYTE public,
  pq$config$device		BYTE public data(CONFIG$DEVICE), 
  pq$device				BYTE public,
  pq$config$media$size	BYTE public data(CONFIG$MEDIA$SIZE), 
  pq$media$size			BYTE public, 
  pq$config$media$type	BYTE public data(CONFIG$MEDIA$TYPE), 
  pq$media$type			BYTE public, 
  pq$215$intrpt$level	BYTE public data(CONFIG$215$INTRPT$LEVEL),
  pq$86$218A$intrpt$level	BYTE public data(CONFIG$86$218A$INTRPT$LEVEL),
  pq$286$218A$intrpt$level	BYTE public data(CONFIG$286$218A$INTRPT$LEVEL),
  pq$intrpt$level		BYTE public,
  pq$pic$port_m			word public data(CONFIG$PIC$A0_M),
  pq$mask$port_m		word public data(CONFIG$PIC$A1_M),
  pq$pic$port_s			word public data(CONFIG$PIC$A0_S),
  pq$mask$port_s		word public data(CONFIG$PIC$A1_S),
  pq$slave$pic$level	byte public data(CONFIG$SLAVE$PIC),
  pq$io$port			WORD public data(CONFIG$215$WAKEUP),
  pq$218$status			word public data(CONFIG$FDC$STATUS),
  pq$218$data			word PUBLIC data(CONFIG$FDC$DATA),
  pq$218$reset			word public data(CONFIG$218$RESET),
  pq$218$dack			word public data(CONFIG$218$DACK),
  pq$218$motor			word public data(CONFIG$218$MOTOR),
  pq$218$tc				word public data(CONFIG$218$TC),
    
  user$tdt    (num$ts$off)STRUCTURE(
                             flag         BYTE,
                             overlay      BYTE,
                             addr         POINTER,
                             name$pointer POINTER,
                             err$cnt      WORD,
                             exec$cnt     WORD) PUBLIC,

  user$number$of$tests			word public,
  user$scratch$size			WORD PUBLIC DATA(scratch),
  user$scratch(scratch)		BYTE PUBLIC; /* User scratch area */

END sdt218cnf;