# Script to install MSOS5 onto cartridge disks
# Requires:
#       Installation tape               Default is MSOS5_SL136.tap which can
#                                       be copied from bitsavers.org. This
#                                       can be overridden by specifying the
#                                       installation tape on the command line:
#
#                                         cdc1700 msosInstall.simh install.tap
#
# Creates:
#       MSOS5-A.dsk and MSOS5-B.dsk     installation disks
#       MSOSinstall.lpt                 installation log
#
set env CDD0=MSOS5-A.dsk
set env CDD1=MSOS5-B.dsk
set env MT0=%1
if "%MT0%"=="" set env MT0=MSOS5_SL136.tap
set env LPT=MSOSinstall.lpt
set cpu instr=basic
set cpu mode65k,64k
set throttle 50%
set mt type=1732-3
set lp type=1742
att lp %LPT%
att cdd0 %CDD0%
att cdd1 %CDD1%
att -r mt0 %MT0%
set env DATE1=%DATE_MM%/%DATE_DD%/%DATE_19XX_YY%
set env DATE2=%DATE_MM%%DATE_DD%%DATE_19XX_YY%
echo MSOS 5.0 Installation
echo
echo Requires %MT0% in the current directory.
echo Creates %CDD0%, %CDD1% and %LPT% in the current directory.
echo
echo This script will set the installation date to %DATE1%
echo (This has the same calendar as %DATE_YYYY%).
echo
echo This script will start the installation and eventually boot MSOS 5.0. 
echo The date/time will be set to the current time on %DATE1% and the batch
echo system will be initiated to complete the installation. Following
echo installation, MSOS 5.0 will be rebooted, the date/time will be set and
echo the installation verification procedure will be run. It will detect
echo 3 errors:
echo
echo 1. Partition setup error
echo 2. File Manager sequential file error
echo 3. Fortran Formatted I/O error
echo
send delay=10000
expect "DATE MM/DD/YY \r\r\r\r\n" send "%DATE1%\r"; c
expect -p "DATE/TIME  MMDDYYHHMM \n\r\n" send "%DATE2%%TIME_HH%%TIME_MM%\r"; c
expect "Q\r\r\r\r\n" send "*i,3\r"; c
expect "Q\r\r\r\r\n" send "*V\r"; c
expect -p "YOU MAY AUTOLOAD" step 100000; autoload cdd; go 0
expect "SET PROGRAM PROTECT  \r\n" set cpu protect; c
expect -p ":00 " send after=1000000,"\007"; c
expect "MI\r\n" send "*BATCH\r"; c
expect "MI\r\n" send "DB\r"; c
expect "IN\n\r\007" send "REW,6\r"; c
expect "NEXT  \n\r\007" send "ADF,6,2\r";       c
expect "NEXT  \n\r\007" send "OFF\r"; c
expect "OUT \n\r" send "\007"; c
expect "MI\r\n" send "VERIFY\r"; c
expect "TESTS COMPLETE." step 100000
boot mt0