#!/usr/bin/expect -f

# Set -h to emulate a human typist.
set send_human {.3 .3 75 .3 9}
set timeout -1

# Set this for a scratch build
# N.B.: Only a scratch build is guaranteed to work!
set rebuild 0
set rebuild 1

# Remove the old PQS8, for a clean start.
spawn rm -f dt0.dt
wait

# Fire up a PDP-8, then walk it through the build steps.
spawn pdp8
expect {
	{..$} { exp_continue }
        {.$} { send "DATE 30-JUL-99\r" }
}
expect -re {\n\.$}
send "ASSIGN RKB0 TMP\r"
expect -re {\n\.$}
send "ASSIGN RKA1 A\r"
expect -re {\n\.$}
send "ASSIGN RKB1 B\r"
expect -re {\n\.$}
send "ASSIGN DTA1 SCR\r"
if { $rebuild == 1 } {
  expect -re {\n\.$}
  send "ZERO TMP:\r"
  expect -re {\n\.$}
  send "SUBMIT PQSASM/T\r"
  expect -re {END BATCH\r\n\r\n\.$}
}
send "DIR TMP:/F\r"
expect -re {\n\.$}
if { $rebuild == 1 } {
  send "SUBMIT COMGEN/T\r"
  expect -re {END BATCH\r\n\r\n\.$}
  #
  # We will need "COMGEN.DU" and "DTAGEN.DU" later, and this seems
  # to be the only place to stash them.
  # Likewise the locally grown BYHAND.DU.
  send "COPY SCR:<B:COMGEN.DU/A\r"
  expect -re {\n\.$}
  send "COPY SCR:<B:DTAGEN.DU/A\r"
  expect -re {\n\.$}
  send "COPY SCR:<B:BYHAND.DU/A\r"
  expect -re {\n\.$}
  send "COPY SCR:<B:README.TX/A\r"
  expect -re {\n\.$}
  send "COPY SCR:<B:TCBOOT.TX/A\r"
  expect -re {\n\.$}
}
#
# We will need kl8.pa on DT2.  Since our OS/8 is built for two DT drives,
# we temporarly mount the tape on drive zero.
send -h "\005"
expect -re {\nsim> $}
send -h "att dt0 dt2.dt\r"
expect -re {\nsim> $}
send -h "c\r"
expect -re {\n$}
send "ZERO DTA0:\r"
expect -re {\n\.$}
send "COPY DTA0:<B:KL8.PA\r"
expect -re {\n\.$}
send "COPY DTA0:<B:VT8E.PA\r"
expect -re {\n\.$}
send -h "\005"
expect -re {\nsim> $}
send -h "att dt0 dt0.dt\r"
expect -re {\nsim> $}
send -h "att dt2 dt2.dt\r"
expect -re {\nsim> $}
send -h "c\r"
expect -re {\n$}

#
# We will need OS8CON.BN in the HSR later, for BIN.
send "COPY PTP:<TMP:OS8CON.BN\r"
expect -re {\n\.$}
send "DIR SCR:/F\r"
expect -re {\n\.$}
send "EX TMP:Z12K,TMP:PQSMON,TMP:PQSDTA,TMP:BIN,TMP:ODT,TMP:DUMP\r"
expect -re {\nsim> }
send "D SR 0\r"
expect -re {\nsim> }
send "C\r"
expect -re {\nsim> }
send "B DT\r"
expect -re {\n\a\.$}
#
# BUGBUG: Why is PQS8 ignoring every other character? As a workaround, I'm
# using send -h as necessary.
#
# Move the user files from block 300 to block 1000.
# Otherwise, DUMP will over-write the user files while executing
# the commands they contain!
send -h "DUMP\r"
expect -re {FUNCTION: $}
send -h "ZA 0:16\r"
expect -re {\n$}
send -h "177/1000\r"
expect -re {\n$}
send -h "\033"
expect -re {FUNCTION: $}
send -h "EX"
expect -re {\n\a\.$}
#
# Here we have a problem.  We want to run DUMP with input from "comgen.du".
# The only copy available to PQS8 is on unit 1 (formerly SCR:), after all
# the binaries.
#
# OS8CON is in the high speed reader, so load it.
# /F Use HSR; /P Load BIN tape; /V Use virtual loader.
send -h "BIN %</F/P/V\r"
 expect -re {TAPES?}
 send -h "N\r"
expect -re {\n\a\.$}
send "\r"
expect -re {\n\.$}
send -h "GET %\r"
expect -re {\n\a.$}
# Now we can convert our DUMP command files.
# COMGEN.DU       1172    15      16-JUN-69
# DTAGEN.DU       1211    4       16-JUN-69
# BYHAND.DU       1215    4       16-JUN-69
# "RUN %" runs the program we just loaded.
# "COMGEN<COMGEN" says copy COMGEN. to COMGEN (input side ignored)
# "/1" says from OS/8 on unit 1
# =1172 says the file starts at block 1172 (BUGBUG)
send -h "RUN % COMGEN,COMG2</1=1172\r"
expect -re {\n\a\.$}
send -h "CAT\r"
expect -re {\n\.$}
#
# Invoke DUMP to upgrade the installation.
# (CORE command is not installed yet!!)
#
send -h "DUMP/C COMGEN,COMG2\r"
expect -re {\n\a\.$}
#
# Remove the build scripts.
# We avoid creating more than two CATalog entries at a time,
# so that when we are done there aren't "deleted files".
send -h "KILL COMGEN\r"
expect -re {\n\.$}
send -h "KILL COMG2\r"
expect -re {\n\.$}
#
# Use all of memory.
send -h "CORE ALL\r"
expect -re {\n\a\.$}
#
# At this point, OS8CON should have an official copy in the DIRectory.
# Run that to get DTAGEN into the CATalog.
send -h "RUN OS8CON DTAGEN</1=1211\r"
expect -re {\n\a\.$}
#
# Now run DUMP with DTAGEN to get the rest of the DECtape.
send -h "DUMP DTAGEN\r"
expect -re {\n\a\.$}
#
# Run OS8CON to get BYHAND into the CATalog.
send -h "RUN OS8CON BYHAND</1=1215\r"
expect -re {\n\a\.$}
#
# Now run DUMP with BYHAND to apply the patches.
send -h "DUMP/A BYHAND\r"
expect -re {\n\a\.$}
#
# Do a SET RUBOUT BACKUP to align the TTY system area.
send -h "SET RUBOUT BACKUP\r"
expect -re {\n\a\.$}
#
# Do a SET TAB NO FILL to align the TTY system area.
send -h "SET TAB NO FILL\r"
expect -re {\n\a\.$}

#
# TODO: In block 1237 is the file KL8.BN.  Use BIN to
# read it in.

#
# Remove the build scripts
send -h "KILL DTAGEN\r"
expect -re {\n\.$}
send -h "KILL BYHAND\r"
expect -re {\n\.$}
#
# Run OS8CON to get README and TCBOOT into the CATalog.
# BUGBUG: Fix these block numbers!
send -h "RUN OS8CON README</1=1224\r"
expect -re {\n\a\.$}
send -h "RUN OS8CON TCBOOT</1=1230\r"
expect -re {\n\a\.$}
#
# Copy DT0 to DT3.  This creates a convenient place to build the KL8 overlay.
send -h "DTCOPY\r"
expect -re {FROM UNIT $}
send -h "0\r"
expect -re {TO UNIT $}
send -h "3\r"
expect -re {\) $}
send -h "0\r"
expect -re {\) $}
send -h "2000\r"
expect -re {: $}
send -h "0\r"
expect -re {DONE$}
send -h "\003"
expect -re {\n\a\.$}
#
# Copy the VT8E overlay source and assemble it.
send -h "RUN OS8CON VT81:3,VT82,VT83,VT84,VT85,VT86,VT87,VT88,VT89,VT810,VT811,VT812,VT813,VT814,VT815,VT816</P/2=213\r"
expect -re {\n\a\.$}
send -h "PAL VT8E:3<VT81:3,VT82,VT83,VT84,VT85,VT86,VT87,VT88,VT89,VT810,VT811,VT812,VT813,VT814,VT815,VT816/Q\r"
expect -re {\n\a\.$}
#
# Load the newly created VT8 overlay.
send -h "CONSOLE/R VT8E:3\r"
expect -re {\n\a\.$}
#
# Copy the KL8 overlay source and assemble it.
send -h "RUN OS8CON KL81:3,KL82,KL83,KL84,KL85,KL86,KL87,KL88,KL89,KL810,KL811,KL812,KL813,KL814,KL815,KL816</2=7\r"
expect -re {\n\a\.$}
send -h "PAL KL8:3<KL81:3,KL82,KL83,KL84,KL85,KL86,KL87,KL88,KL89,KL810,KL811,KL812,KL813,KL814,KL815,KL816/Q\r"
expect -re {\n\a\.$}
#
# Replace it with the newly created KL8 overlay.
send -h "CONSOLE/R KL8:3\r"
expect -re {\n\a\.$}
#
# Close SIMH cleanly.
send -h "\005"
expect -re {\nsim> $}
send -h "q\r"
expect -re {file\r}
expect -re {file\r}
close
exit 0