-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
SysgenV8.do
111 lines (88 loc) · 2.56 KB
/
SysgenV8.do
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
;;; @file
;;; @author Terry Ebdon
;;; @date 09-MAY-2019
;;; @copyright Terry Ebdon, 2019
;;; Licensed under the Apache License, Version 2.0
;;; See the README.md and LICENSE files for details.
;;;
;;; @brief Sysgen RSTS/E V8 from tape on an 11/84.
set noverify
set noverbose
set message
set quiet
; Reset
noexpect
nosend
det RP0
det HK1
det TM0
do common/SettupLogging %0
;set env consolePort=8001
;set env logDir=logs
;set env logPrefix=%logDir%/%~n0
;set env debugLog=%logPrefix%_debug.log
;set env puttyLog=%logPrefix%_putty.log
;;if not exist "%logDir%" !mkdir %logDir%
;!mkdir %logDir%
;if exist "%debugLog%" delete %debugLog%
;if exist "%puttyLog%" delete %puttyLog%
;set debug %debugLog%
; PuTTY will not be attached to the console until RSTS/E boots.
; This avoids having a distracting blank window hanging around.,
set env msg=
set env varsSet
do common/SetVars.do
do Configure1184.do
set env sv8_diskImage=sysgen_v8_rm03.dsk
do CreateSysgenPack.do %sv8_diskImage%
do AttachSysgenMediaV8.do %sv8_diskImage%
if "%msg%" != "" return
echo ### Creating scratch pack, to contain a working copy of the distro.
do common/AttachScratchDisk.do HK1 scratch_rk07.dsk
if "%msg%" != "" return
; Until now there was nothing to display on an attached console.
; Once the system boots it will see ativity.
set console telnet=%consolePort%
!start putty -sessionlog %puttyLog% -telnet localhost %consolePort%
do common/BootDevice.do TM0
; RSTS refers to RP0: as DR0:
; Must provide a [1,2] password to avoid CREATE.SAV failing in a later step.
do Dskint.do DR0 SYSTEM
do common/ExpectOptionPrompt.do
if "%msg%" != "" ignore; msg; exit
do Dskint.do DM1 *
do common/ExpectOptionPrompt.do
if "%msg%" != "" ignore; msg; return
noexpect
do CopySystemTo.do DR0:
noexpect
do InstallSil.do SYSGEN
do SetDefaults.do
do AddSwapAndCrashFiles.do 256 260
do common/BootDevice.do RP0
do V8/StartSysgen.do
do RunSysbat.do
go
echo At this point the new SIL has been built. Let's try using it...
noexpect
do common/UtShutup.do
nosend
do InstallSil.do RSTS
do SetDefaults.do BASIC
; SWAP and CRASH files were created in an earlier step.
; Now start the system running the new SIL and RTS...
send "\n"
do InitDateTime.do
expect "Ready"
go
do CopyDistroFrom.do MT0: DM1: TEST
if "%msg%" != "" ignore; msg; exit
do RunPatCpy.do DM1: [1,2]
if "%msg%" != "" ignore; msg; exit
do RunBuild.do DM1:
do RunBuild.do DM1: BIGPRG SY:[2,3]
do RunBuild.do DM1: DCL
do RunBuild.do DM1: HELP SY:[2,4]
do RunBuild.do DM1: SPLER SY:[2,5]
do RunBuild.do DM1: BACKUP SY:[2,6]
do RunBuild.do DM1: DEVTST SY:[2,7]