@echo OFF
rem   GOSRTEST.BAT :  an  MS DOS  batch file that runs program  SRTEST.EXE
rem   to test  Floating-Point Division  on this  PC .  It takes one to four
rem   parameters,  as explained if invoked without them or with  ? or  /? .
rem   They are passed via a file  SRTEST.DTA  because my  Fortran  compiler
rem   cannot provide  SRTEST.EXE  with access to the  DOS  command tail.
CLS

IF `%1==`  GOTO help
IF `%1==`?  GOTO help
IF `%1==`/?  GOTO help
echo %1 > srtest.dta
IF `%2==`  ECHO  1 >> srtest.dta
IF NOT `%2==`  ECHO  %2 >> srtest.dta
IF `%3==`  ECHO  -1 >> srtest.dta
IF NOT `%3==`  ECHO  %3 >> srtest.dta
IF `%4==`  ECHO  1 >> srtest.dta
IF NOT `%4==`  ECHO  %4 >> srtest.dta

echo    SRTEST  tests  Floating-Point Division  on this  PC :
PROMPT     Date is  $d ,  Time is  $t .
echo ON

@echo off
SRTEST.EXE
echo ON

@echo OFF
PROMPT  $p$g
echo  Please copy what is displayed on this screen,  and then notify  Prof.
echo  W. Kahan,   E.E. & C.S.,   Univ. of Calif.,   Berkeley CA 94720-1776
echo    (510) 642-5638           Thanks.         (C) W. Kahan  24 Feb. 1995
PAUSE
GOTO exit

:help
echo  GOSRTEST  n  Lx  ix  dvd    calls a program  SRTEST  to test any  SRT
echo         divider's logic for quotient-digit selection,  usually in a  PLA,
echo         regardless of most internal details.  This version runs under
echo         MS-DOS  on  Intel-compatible  floating-point.  It takes up to
echo         four integer parameters:  1 ó n ó 16 ,  1 ó Lx ó 16 ,  ix ó 16 ,
echo         and odd  dvd ò 1 .
echo .
echo    Parameter  n  says how many leading bits of divisors  1.xxxxx...
echo         enter into  SRT  quotient-selection:            {-- n --}
echo             Over-estimating  n  will slow  SRTEST  exponentially.
echo     =====}  Under-estimating  n  will  Invalidate  SRTEST . {=====
echo                                        ~~~~~~~~~~
echo    Parameter  Lx = Log2(Radix) ò 1 ,  so  Radix = 2**Lx ò 2 .
echo         Over-estimating  Lx  slows  SRTEST  proportionately.
echo         Under-estimating  Lx  may speed  SRTEST  up a bit or slow it
echo            drastically.  If omitted,  Lx  defaults to  1 .
echo     Parameter  ix  may be omitted,  and then it defaults to   Lx - 1 .
echo         2**ix  is used to increment and decrement test dividends,  but
echo            its effect is still subject to experimental investigation.
echo     Variable  dvd  defaults to  1 .  Use a larger odd integer value to
echo         resume  SRTEST  from near where  [Ctrl][Break]  aborted it.
:exit