; Generate a new MPE system from the FOS tape.
;
; NOTE: 7906 disc may not be supported by this version of MPE.
; NOTE: Includes a bugfix for INITIAL that occurs when not using an HP terminal.


; Set up the log(s).

; set -n console debug=mpedebug.log
set -n console log=mpegen-spread.log


; Configure the simulation environment.

set console DEL=177
set ms realtime


; Set the disc mode and image file.
;
; Attaches a blank disc image (sysgen questions change if not blank).

set ds0 7920,format
attach -n ds0 mpegen.disc


; Boot the FOS installation tape.

attach -r ms0 32002-11018_Rev-2548.tape
boot ms0


; Work around the SPEEDSENSE bug in INITIAL.
;
; Changes LOAD P+22,I,X to LDI 360 to set the detected speed to 240 cps.

deposit 01.112247 021360


; Set the debugging options.

; set cpu debug
set cpu stop=unimpl
; set iop debug=dio;irq,filter=3;7
; set mpx debug
; set ms debug
; set atcd debug
; set ds debug=func


; Run the INITIAL program.

echo
echo Press <CR> to start MPE.


; Process the configuration dialog.
; go until "? "

set console delay=50000
set -i console halt=? 
go


; Reply to "WHICH OPTION <COLDSTART/RELOAD/UPDATE>? "

set console response=RELOAD~m
go


; Reply to "WHICH OPTION <SPREAD/COMPACT/RESTORE/ACCOUNTS/NULL>? "

set console response=SPREAD~m
go


; Reply to "ANY CHANGES? "

set console response=YES~m
go


; Reply to "LOAD MAP? "

set console response=YES~m
go


; Reply to "MEMORY SIZE = 128.? "

set console response=512~m
go


; Reply to "I/O CONFIGURATION CHANGES? "

set console response=YES~m
go


; Reply to "LIST I/O DEVICES? "
;
; Note that the device list includes " ?? " output.

set console response=YES~m
set -a -i console halt=LIST CS DEVICES? 
go


; Reply to "LIST CS DEVICES? "

set console response=NO~m
set -i console halt=? 
go


; Reply to "HIGHEST DRT = 23.? "

set console response=36~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=1~m
go


; Reply to "DRT #? "

set console response=4~m
go


; Reply to "UNIT #? "

set console response=0~m
go


; Reply to "SOFTWARE CHANNEL #? "

set console response=0~m
go


; Reply to "TYPE? "

set console response=0~m
go


; Reply to "SUB TYPE? "
;
; (subtype  8 is 7920 disc)
; (subtype 12 is 7906 disc both platters)

set console response=8~m
go


; Reply to "RECORD WIDTH? "

set console response=128~m
go


; Reply to "OUTPUT DEVICE? "

set console response=0~m
go


; Reply to "ACCEPT JOBS/SESSIONS? "

set console response=NO~m
go


; Reply to "ACCEPT DATA? "

set console response=NO~m
go


; Reply to "INTERACTIVE? "

set console response=NO~m
go


; Reply to "DUPLICATIVE? "

set console response=NO~m
go


; Reply to "ENABLE SEEKAHEAD? "

set console response=NO~m
go


; Reply to "INITIALLY SPOOLED? "

set console response=NO~m
go


; Reply to "DRIVER NAME? "

set console response=*IOMDISC1~m
go


; Reply to "DEVICE CLASSES? "

set console response=DISC,SPOOL~m
go


; **** Remove LDEV 2, 7925 disc

; Reply to "LOGICAL DEVICE #? "

set console response=2~m
go

; Reply to "DRT #? "

set console response=0~m
go


;;;;; ; **** Remove LDEV 6, line printer
;;;;; 
;;;;; ; Reply to "LOGICAL DEVICE #? "
;;;;; 
;;;;; set console response=6~m
;;;;; go
;;;;; 
;;;;; ; Reply to "DRT #? "
;;;;; 
;;;;; set console response=0~m
;;;;; go
;;;;; 
;;;;; 
;;;;; ; **** Remove LDEV 10, tape drive (JOBTAPE)
;;;;; 
;;;;; ; Reply to "LOGICAL DEVICE #? "
;;;;; 
;;;;; set console response=10~m
;;;;; go
;;;;; 
;;;;; ; Reply to "DRT #? "
;;;;; 
;;;;; set console response=0~m
;;;;; go


; Change system console from HP 264x to ASR-33

; Reply to "LOGICAL DEVICE #? "

set console response=20~m
go


; Reply to "DRT #? "

set console response=7~m
go


; Reply to "UNIT #? "

set console response=0~m
go


; Reply to "SOFTWARE CHANNEL #? "

set console response=0~m
go


; Reply to "TYPE? "

set console response=16~m
go


; Reply to "SUB TYPE? "

set console response=0~m
go


; Reply to "TERM TYPE? "
;
; Type  0 = ASR-33 (multiple SYNC pad characters)
; Type  4 = HP 2600A
; Type 10 = HP 264x
; Type 18 = Non-HP terminal

set console response=18~m
go


; Reply to "SPEED IN CHARACTERS PER SECOND? "

set console response=~m
go


; Reply to "RECORD WIDTH? "

set console response=40~m
go


; Reply to "OUTPUT DEVICE? "

set console response=20~m
go


; Reply to "ACCEPT JOBS/SESSIONS? "

set console response=YES~m
go


; Reply to "ACCEPT DATA? "

set console response=YES~m
go


; Reply to "INTERACTIVE? "

set console response=YES~m
go


; Reply to "DUPLICATIVE? "

set console response=YES~m
go


; Reply to "INITIALLY SPOOLED? "

set console response=NO~m
go


; Reply to "DRIVER NAME? "

set console response=IOTERM0~m
go


; Reply to "DEVICE CLASSES? "

set console response=TERM~m
go


; **** Remove the communications devices

; Reply to "LOGICAL DEVICE #? "

set console response=11~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=12~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=13~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=14~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=15~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=16~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=17~m
go


; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=18~m
go


; Reply to "DRT #? "

set console response=0~m
go


; **** Remove LDEVs for the CS devices

; Reply to "LOGICAL DEVICE #? "

set console response=60~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=61~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=62~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=63~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=70~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=71~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=72~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=73~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=80~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=81~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=82~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=83~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=90~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=91~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=92~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=93~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=95~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=100~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=101~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=102~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=103~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=110~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=117~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=120~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=121~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=122~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=123~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=130~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=137~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=138~m
go

; Reply to "DRT #? "

set console response=0~m
go


; Finished with changes to the I/O devices.

; Reply to "LOGICAL DEVICE #? "

set console response=0~m
go



; Reply to "MAX # OF OPEN SPOOLFILES = 20.? "

set console response=20~m
go


; Reply to "LIST I/O DEVICES? "
;
; Note that the device list includes " ?? " output.

set console response=YES~m
set -a -i console halt=CLASS CHANGES? 
go


; Reply to "CLASS CHANGES? "

set console response=NO~m
set -i console halt=? 
go


; Reply to "LIST I/O DEVICES? "

set console response=NO~m
go


; Reply to "LIST ADDITIONAL DRIVERS? "

set console response=YES~m
go


; Reply to "I/O CONFIGURATION CHANGES? "

set console response=NO~m
go


; Reply to "DISC VOLUME CHANGES? "

set console response=YES~m
go


; Reply to "LIST VOLUME TABLE? "

set console response=YES~m
go


; Reply to "DELETE VOLUME? "

set console response=YES~m
go


; Reply to "ENTER VOLUME NAME? "

set console response=MH7925U1~m
go


; Reply to "ENTER VOLUME NAME? "

set console response=~m
go


; Reply to "ADD VOLUME? "

set console response=NO~m
go


; Reply to "LIST VOLUME TABLE? "

set console response=YES~m
go


; Reply to "NON-SYSTEM VOLUME ON LDEV 1"
;      and "ADD TO SYSTEM VOLUME SET? "

set console response=YES~m
go


; Reply to "ENTER VOLUME NAME? "

set console response=MH7920U0~m
go


; Reply to "LOGICAL PACK SIZE IN CYLINDERS = 815.? "

set console response=815~m
go


; Reply to "LIST DEFECTIVE TRACK/SECTOR INFORMATION? "

set console response=YES~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=1~m
go


; Reply to "LOGICAL DEVICE #? "

set console response=0~m
go


; Reply to "DELETE TRACK? "

set console response=NO~m
go


; Reply to "LIST VOLUME TABLE? "

set console response=NO~m
go


; Reply to "VIRTUAL MEMORY CHANGES? "

set console response=YES~m
go


; Reply to "LIST VIRTUAL MEMORY DEVICE ALLOCATION? "

set console response=YES~m
go


; Reply to "ENTER VOLUME NAME , SIZE IN KILOSECTORS? "

set console response=~m
go


; Reply to "VIRTUAL MEMORY CHANGES? "

set console response=NO~m
go


; Reply to "DISABLE LOGGING? "

set console response=NO~m
go


; Reply to "MAX # OF SPOOLFILE KILOSECTORS? =128? "

set console response=~m
go


; Reply to "# OF SECTORS PER SPOOLFILE EXTENT = 384.? "

set console response=~m
go


; Reply to "184 FILES NOT FOUND - ANOTHER TAPE SET AVAILABLE?"

set console response=NO~m
go


; Reply to "NOT ALL FILES FOUND - LIST? "

set console response=YES~m
set -i console halt=?
go


; Respond to "DATE (M/D/Y)?"

! tm mped > tm.sim
do tm.sim
go


; Respond to "TIME (H:M)?"

! tm mpet > tm.sim
do tm.sim

set -i console halt=)
go


; Respond to "SUN, APR  5, 1987,  1:31 AM? (Y/N)"

set console response=Y~m
set console nohalt

! del tm.sim
go