a5feaf2815
- Add 1752 Drum support. Allow shared subroutines across interrupt levels. - Document and add sample scripts for customizing MSOS5.
151 lines
5.7 KiB
Text
151 lines
5.7 KiB
Text
# Script to generate a customized MSOS 5.0 installation tape.
|
|
#
|
|
# Customizations:
|
|
# 1. Set system creation date to 4/19/17
|
|
# 2. Change the system name to "SIMH DEVELOPMENT SYSTEM"
|
|
# 3. Reduce file manager devices to CDD0/CDD1
|
|
# 4. Remove the 1743-2 Asynch communication controller support
|
|
#
|
|
# Requires:
|
|
# MSOS5-A.dsk and MSOS5-B.dsk Installation boot disks
|
|
# sysdat.tap Modified sysdat.asm as only file on
|
|
# the tape (80 char records)
|
|
# 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 msosCustom1.simh install.tap
|
|
#
|
|
# Creates:
|
|
# MSOS5-Install.tap New installation tape. If it already
|
|
# exists, it will be overwritten
|
|
# Scratch?.tap Tapes for temporary use. If they
|
|
# already exist, they will be overwritten
|
|
# %DATETIME%.lpt Unique LPT output file for this run
|
|
#
|
|
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 MT1A=Scratch3.tap
|
|
set env MT1B=MSOS5-Install.tap
|
|
set env MT2A=sysdat.tap
|
|
set env MT2B=Scratch1.tap
|
|
set env MT3=Scratch2.tap
|
|
set cpu instr=basic
|
|
set cpu mode65k,64k
|
|
#set throttle 30%
|
|
set mt type=1732-3
|
|
set mt3 9track
|
|
set lp type=1742
|
|
att lp %DATETIME%.lpt
|
|
att cdd0 %CDD0%
|
|
att cdd1 %CDD1%
|
|
att -r mt0 %MT0%
|
|
att mt1 %MT1A%
|
|
att -r mt2 %MT2A%
|
|
att mt3 %MT3%
|
|
set env TODAY=%DATE_MM%%DATE_DD%%DATE_19XX_YY%
|
|
#
|
|
# The following command will patch out unimplemented devices (1728 card
|
|
# reader/punch)
|
|
#
|
|
expect "SET PROGRAM PROTECT" set cpu protect; d 056D 0649; d 057E 0649; d 0589 0649; c
|
|
expect "DATE/TIME MMDDYYHHMM \n\r\n" send "%TODAY%%TIME_HH%%TIME_MM%\r"; c
|
|
expect ":00 " send after=1000000,"\007"; c
|
|
expect "MI\r\n" send "*BATCH,4\r"; c
|
|
expect "J \r\n" send "*JOB\r"; c
|
|
expect "J \r\n" send "*K,I17,P16\r"; c
|
|
expect "J \r\n" send "*ASSEM\r"; c
|
|
expect "J \r\n" send "*MTUP\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF0,BR1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "EXIT\r"; c
|
|
expect "J \r\n" send "*REW,17\r"; c
|
|
# Use SKED to extract and edit the skeleton file
|
|
expect "J \r\n" send "*SKED\r"; c
|
|
expect "NEXT\r\n\007" send "ADF,6,1\r"; c
|
|
expect "NEXT\r\n\007" send "BUILD,6\r"; c
|
|
expect "ENTER LU\r\n\007" send "\r"; goto insert1
|
|
send delay=10000
|
|
autoload cdd
|
|
run 0
|
|
goto end
|
|
|
|
:insert1
|
|
det mt2
|
|
att -q mt2 %MT2B%
|
|
expect "NEXT\r\n\007" send "INSERT,1,4\r"; c
|
|
expect "\007" send "*S,SYSMON,$3034\r"; c
|
|
expect "\007" send "*S,SYSDAY,$3139\r"; c
|
|
expect "\007" send "*S,SYSYER,$3137\r"; c
|
|
expect "\007" send "\r"; c
|
|
expect "NEXT\r\n\007" send "DELETE,2,4\r"; c
|
|
expect "NEXT\r\n\007" send "INSERT,8,4\r"; c
|
|
expect "\007" send "*V SIMH DEVELOPMENT SYSTEM\r"; c
|
|
expect "\007" send "\r"; c
|
|
expect "NEXT\r\n\007" send "DELETE,9\r"; c
|
|
expect "NEXT\r\n\007" send "DUMP,17\r"; c
|
|
expect "NEXT\r\n\007" send "EXIT\r"; c
|
|
expect "J \r\n" send "*REW,6,17\r"; c
|
|
expect "J \r\n" send "*ADF,6,1\r"; goto libild
|
|
continue
|
|
|
|
:libild
|
|
expect "J \r\n" send delay=5000,"*LIBILD\r"; c
|
|
expect "CONTROL LU = \007" send "\r"; c
|
|
expect "DEFS LU = \007" send "\r"; c
|
|
expect "INSTALL LU = \007" send "18\r"; c
|
|
expect "NEWLIB LU = \007" send "\r"; c
|
|
expect "LIB 01 LU = \007" send "16\r"; c
|
|
expect "LIB 02 LU = \007" send "6\r"; c
|
|
expect "LIB 03 LU = \007" send "\r"; c
|
|
expect "SKELETON LU = \007" send "17\r"; c
|
|
expect "CR WHEN READY. \r\n\007" send "\r"; c
|
|
expect "CR WHEN READY \r\n\007" send "\r"; c
|
|
expect "OUTPUT LIBRARY LU'S \007" send "*Z\r"; c
|
|
expect "J \r\n" send "*REW,6,16\r"; goto mtup
|
|
continue
|
|
|
|
:mtup
|
|
det mt1
|
|
att -q mt1 %MT1B%
|
|
expect "J \r\n" send "*mtup\r"; c
|
|
expect "NEXT: \007" send "OPEN,O18,NL,U,A,SF0\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O18,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF0,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,I6,NL,U,A,SF0,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I6,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF1,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,I18,NL,U,A,SF0,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I18,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,I6,NL,U,A,SF2,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF2,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I6,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,I6,NL,U,A,SF3,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF3,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I6,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,I6,NL,U,A,SF4,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF4,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I6,RW\r"; c
|
|
expect "NEXT: \007" send "OPEN,I6,NL,U,A,SF5,,LB13000\r"; c
|
|
expect "NEXT: \007" send "OPEN,O16,NL,U,A,SF5,,LB13000\r"; c
|
|
expect "NEXT: \007" send "COPY,FC1\r"; c
|
|
expect "NEXT: \007" send "CLOSE,O16,RW\r"; c
|
|
expect "NEXT: \007" send "CLOSE,I6,RW\r"; c
|
|
expect "NEXT: \007" send "EXIT\r"; c
|
|
expect "J \r\n" send "*Z\r"; c
|
|
continue
|
|
|
|
:end
|