| >SetUpTest
|
| ACORN TEST SOFTWARE (c) Acorn Computers Ltd 1991.
|
| *********************** CHANGE LIST *************************************
|                                                                        
| Vers  Date            Name    Comment                                 
| ----- ----------      ---     -------------------------------------------
| 1.00  30-Oct-91       BAR     Initial writing, code taken from !BOOT V1.17
| 1.01  13-Nov-91       BAR     Add echo 'setting up ..'
| 1.02  15-Nov-91       BAR     Add lines to set switchable items.
| 1.03  19-Nov-91       DB      Added TEST$IDE_DRIVE_NAME AND VERSION.
| 
| This program is designed to set up some variables / aliases which are
| specific to A5000 Dealer Test Disc 0292,824-02
|
| There is no need to alter the version number if you change an item below.
|
| 21st-Jan-91          DB       Reduced Minwimpslot to 584 from 600 to allow for
|                               SCSI modules.
|
ECHO Setting up specific items for this disc.
|
| Set up switchable system variables.
*SET TEST$ALERT ON
*SET TEST$SHOW_LOG_DEFECTS 0
|
| Set up the reset key variable for keyboard test (if reqd.)
*IF "<TEST$Reset_key>" = "" THEN SET TEST$Reset_key 1
|
| Set up variables for the report process & error process.
|       0 = No     report and error file.
|       1 = Create report and error file.
*SET TEST$REPORT_FILE 1
*SET TEST$REPORT_ENABLE 1
|       XX1 = Show FAILED   abc
|       X1X = Show PASSED   abc
|       1XX = Show NOT DONE abc
*SET TEST$REPORT_LEVEL 7
*SET TEST$REPORT_DIR adfs::4.$
*SET TEST$REPORT_NAME REPORT
*SET TEST$ERROR_NAME ERROR
*SET TEST$MACHINE_NUMBER 0
|
| Set weather or not the keyboard test is stand alone or not.
|       0 = Not stand alone.
|       1 = Is  stand alone.
*set TEST$STANDALONE 0
|
| Ensure the the correct vsn of CLib is loaded.
| Define the error variable to be ok.
*seteval cliberror 0
*RMENSURE SHAREDCLIBRARY 3.50 RMLOAD <TEST$PATH>CLIB
*RMENSURE SHAREDCLIBRARY 3.50 ECHO CLIB OUT OF DATE
*RMENSURE SHAREDCLIBRARY 3.50 *setcliberror 1
|
| Ensure the the correct vsn of EtherCRC is loaded.
| Define the error variable to be ok.
*seteval ethercrcerror  0
|*RMENSURE ETHERCRC 0.01 RMLOAD <TEST$PATH>CRCMOD
|*RMENSURE ETHERCRC 0.01 ECHO CRC MODULE OUT OF DATE
|*RMENSURE ETHERCRC 0.01 *setethercrcerror 1
|
| If there was an error then panic and stop.
*IF <cliberror> >=1 OR <ethercrcerror> >=1 THEN ERROR 0 !!! STOP !!! Unable to load module(s).
|
| Unset the error variables used.
*unset cliberror
*unset ethercrcerror
|
| Configure the number of Hard and Floppy discs that are available.
| Std. form of *seteval <parameter> n
| Where n is the number of drives.
|       n <  0  Do not alter current setting - ignore.
|       n >= 0  Set the parameter to this value.
|
| Configure ADFS Floppy Disc(s)
*seteval WantADFSFloppy -99
|
| Configure ADFS (ST506) Hard Disc(s)
*seteval WantADFSHard -99
|
| Configure ADFS (IDE) Hard Disc(s)
*seteval WantIDEHard -99
|
| Configure SCSIFS Hard Disc(s)
*seteval WantSCSIFSHard -99
|
| Configure the size of the RAM Disc
| The size of the RAM Disc is requred in Bytes. (E.G. 32k use 32000)
| Use this call for OS >= RO3.00
*seteval WantRAMFSDisc -99
|
| Use this call for OS < RO3.00
| *seteval NewRAMFSSize -99
|
| Configure / Change some dynamic memory areas.
| Std. form of *seteval <parameter> n
| Where n is a number, in Killo bytes.
|       n <  0  Do not alter current setting - ignore.
|       n >= 0  Set the paramiter to this value.
|
| Change the RMA Free space size.
*seteval NewRMAFree 64
|
| Change the System size.
*seteval NewSystemSize 100
|
| Change the Screen size.
*seteval NewScreenSize 350
|
| Change the wimpslot area.
| Std. form of *seteval <parameter> n
| Where n is a number, in Killo bytes.
|       n <  0  Do not alter current setting - ignore.
|       n >= 0  Set the paramiter to this value.
|
| Change the minimum wimpslot size.
*seteval MinWimpSlot 584
|
| Change the maximum wimpslot size.
*seteval MaxWimpSlot 4000
|
| Change the next wimpslot size.
*seteval NextWimpSlot 4000
|
| Set some flags for config.
| Set the test type bit flag - all bits
*set TEST$TYPEBIT 0X7FF
| Set the menu option flag - only bottom bit
*set TEST$Top_menu 0X00F
*SET TEST$IDE_DRIVE_NAME_4_1    Conner Peripherals 40MB - CP3044 # 256=&1D,257=&04,258=&28,259=&02,260=&0E,261=&02,262=&28,263=&03,264=&04
*SET TEST$IDE_DRIVE_VERSION_4_1 2SA4.53
