github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-07 11:39:43 +00:00
Code Issues Releases Wiki Activity

Build DECUUO.

Browse Source
This commit is contained in:
Lars Brinkhoff
2016-12-09 10:19:28 +01:00
committed by Eric Swenson
parent e1281db88e
commit fbcecf6092
8 changed files with 12688 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Makefile
View File

@@ -4,7 +4,7 @@ EMULATOR ?= simh
SRC = system syseng sysen1 sysen2 sysnet kshack dragon channa midas \
_teco_ emacs emacs1 rms klh syshst sra mrc ksc eak cstacy gren \
bawden _mail_ l lisp liblsp libdoc comlap lspsrc nilcom rwk \
inquir acount gz
inquir acount gz sys decsys
DOC = info _info_ sysdoc kshack _teco_ emacs emacs1
BIN = sysbin emacs _teco_ inquir

6
build/build.tcl
View File

@@ -704,6 +704,12 @@ expect ":KILL"
# rmtdev
respond "*" ":midas device;atsign rmtdev_gz;rmtdev\r"
# decuuo
respond "*" ":midas decsys;ts dec_decuuo\r"
expect ":KILL"
respond "*" ":midas decsys;_decbot\r"
expect ":KILL"
# idle
respond "*" ":midas sys1;ts idle_gren;idle\r"
expect ":KILL"

413
doc/_info_/decuuo.order Executable file
View File

@@ -0,0 +1,413 @@
This file documents the DEC system emulator DECUUO.
DECUUO is a TOPS-10 emulator for the I.T.S. monitor. It
is loaded in core along with a standard DEC program. It will
trap on a DEC MUUO and do the necessary equivalent for I.T.S.
In general, DECUUO should be invisible to the emulated program.
DECUUO has the capacity to emulate DEC TOPS-10 version 6.02 and
the Stanford operating system.
1) HOW TO INVOKE THE DEC EMULATOR.
To emulate the program in a particular file, say
:DEC <file>
To emulate a program which has been dumped out with a emulator
bootstrap, just load and start it.
Running any of the following programs: D, PC, WL, NODIPS, DPLT,
or PCPLT actually runs the emulator, which, on noticing that its
JNAME is one of the above, loads and emulates the appropriate
program from a file whose name is assembled into the emulator.
This is the old-fashioned way of doing what should now be done
with the bootstrap.
2) MODE SWITCHES
The emulator has several mode switches, that specify these two
types of option:
(1) What type of system or terminal to emulate, and
(2) Auxiliary services to the user.
The switches of the first sort are:
/DEC emulate the DEC TOPS-10 system. This is the default.
/SAIL emulate the Stanford system.
/III emulate a Stanford III terminal's display processing.
Makes sense only when /SAIL is specified.
/META emulate Stanford's CONTROL and META bits on input.
On ITS terminals which have that feature, the extra
bits are passed right to the emulated program. On
other ITS terminals, the characters ^B, ^C and ^F
are prefixes meaning CONTROL, META and CONTROL-META.
/FN2 emulate an altered DEC or Stanford system which
allows both filenames to have six characters, instead
of the three that the real DEC system allows. There is
no such system in reality, but some programs have
been "converted" to ITS by making them read in full-word
filenames; they are then emulated with this switch so
that the full-word filenames will be handed to ITS.
/SDIS Is synonymous with /SAIL/III/META/MAP
/PRSV Prevents EXIT 0, from killing the job. This differs from
what happens when a program named LINK or LOADER is run
(EXIT 0, does not kill a job that has run a loader) in
that this switch is saved by the bootstrap while the
LINK/LOADER run condition is not.
The switches of the second type are:
/MAP Map input characters according to the physical
correspondence between the Stanford keyboard and the
TV keyboard. With this switch set, a TV key in a
particular place will have the same effect in the
emulator as the key in that same place on the Stanford
keyboard would have on the same program running at SAIL,
even if those two keys would have unrelated graphics
printed on them. This feature is useful with programs
which try, at Stanford, to use physically adjacent keys
for related functions.
/DBUG Stop in DDT after loading the program, before starting it.
The PC will be the emulated program's start address.
/SYMS Pass the symbol table from the loaded file up to DDT.
This is the ITS-style symbol table of an ITS-format
binary file, not the DEC-style in-core symbol table
which need not be present. See 5) for how to give an
in-core symbol table to DDT.
When the emulator is invoked by ":DEC", switches should be put
after the name of the file, preceded by slashes as shown above.
It doesn't work to put switches anywhere but at the end of the
command string.
When the emulator is loaded by a bootstrap, the switch settings
are set according to the bits in a word in the core image.
See 4).
When the emulator is invoked by running a specially-known program,
the emulator knows from a table what switches are appropriate.
3) FEATURE TEST SWITCHES
When a feature of the DEC system has no equivalent or is irrelevant
under ITS, it may not be clear whether an attempt to use it
should be ignored, reported to the user with an error message, or
reported to the program as a "This system call not implemented"
error. Several parameters, often corresponding to DEC's "feature
test switches" which determine which features are implemented,
are used to control those choices. Setting one of these parameters
to zero requests emulation of a system in which some feature is
not implemented; the emulated program's attempts to use it are
reported to it as success or failure of the system call, but have
no other effect. Setting the parameter nonzero requests emulation
of a system in which the feature is implemented; attempts to use
the feature will either work properly or cause an error message.
For example, FTTMP controls the existence of the TMPCOR UUO. If it
is 0, a system that does not have TMPCOR is emulated (which will
tell the program the file is not found on reading, and that zero
words are free on writing). If it is -1, an attempt to use TMPCOR
will cause a "Simulator Deficiency Encountered" error message to be
printed. Since most DEC programs that use TMPCOR win by writing a
temporary disk file if the TMPCOR fails, the normal setting for this
switch is 0.
To set these switches, it is necessary to have the emulator's symbols.
A full list of them is on page 7 of the source, MC:DECSYS;DECUUO >.
4) THE BOOTSTRAP
The emulator bootstrap is a program which lives in the job data
area whose purpose is to load in the emulator. The emulator
inserts a bootstrap quite frequently into the emulated program;
in particular, after doing an F command there will be one.
A bootstrap can also be found in DECSYS;DECBOT BIN, so doing
$$1L DECSYS;DECBOT BIN will merge a bootstrap in with any program.
This will make the starting address point at the bootstrap, so the
REAL starting address should be placed in the RH of .JBSA first.
The F and D commands take care of that automatically.
The switch settings desired for the program should be expressed as
bits in the RH of the "switch word", location 56 (octal).
Each switch has a corresponding bit which causes it to be set;
their names are DECBT, IIIBT, METABT, etc. Normally, there is no
need to worry about them, since the F and D commands set the bits
according to the switches that are in effect (with the exception of
/SYMS and /DBUG; F and D leave the bits for those switches OFF
even if the switches were set. That way, you can :DEC a file with
/DBUG /SYMS and other switches, then dump out after a D, all to
create a new file just like the old one but with the switch bits
set to whatever you specified). The /PRSV switch is handled specially;
it will be set iff the program name (DEC-style) is LOADER or LINK,
or if the switch was explicitly turned on in the command string.
If PRSV was set by running the loader, that will not cause it to go
into the bootstrap - if it did, it would be hard to load any program
without having PRSV set.
For the sake of programs that must be run with specific feature-test
switch settings, the LH of the switch word, if nonzero, is taken to
point at a subroutine to initialize variables. It will be called
(with a JSR) when DECUUO is bootstrapped. That subroutine may
be patched in with DDT after loading DECUUO with symbols; then
a D command may be done to replace the symbols with the program's
and prepare to dump. F and D do not change the LH of the switch
word.
Note, however, that in the long run it is best for the emulator
to be made to work properly, so whenever something like this is
necessary always report precisely what and why with :BUG DECUUO.
5) SYSTEM COMMANDS
To issue a system command, do
45$G
and then type the command character, which should be one of
S Pass up to DDT the DEC-style in-core symbol table,
throwing away any symbols DDT has for this job.
F Flush the emulator from core, leaving only the
emulated program. Also, insert a bootstrap and set
the job's starting address to point to it. The
current switch settings are remembered in the bootstrap
so that they will be copied into the emulator when it
is reloaded.
V fill the Vestigial job data area with what it's supposed
to contain. After doing this, 400000$,577777$0Y may be
done in HACTRN to dump a DEC-format SHR or HGH file. Note
however that if there is any data in the low segment, there
has to be a DEC-style zero-compressed LOW or SAV file.
To make such a file, do 0$,377777$0Y <filename> XPN
which will make an "expanded file". Then do :DEC SYS:FILEX
which runs the DEC FILEX (FILe EXpander) CUSP, and type
<filename>.SAV=<filename>.XPN to it, using appropriate
filenames and extensions. Generally, the low segment to
a SHR or HGH file is called a LOW file, and a low segment
without a high segment is called a SAV file.
P Purifies the high segment. Useful if you really think more
than one person might ever use the program at once.
Does an automatic V (since afterward V is impossible).
D prepare for Dumping. Does S, V, P and F (omits the V, P
if there's no high segment).
R Reenter the program - just like the DEC REENTER command.
N No-op - simply finishes up a UUO if necessary. Useful if
debugging and you ^Z'd the program while it was doing a
UUO.
H Help. Types out a help cruft.
? Types out a list of commands.
If a system command is issued while the program is executing a
emulated UUO, the UUO must be either finished or backed out of.
DECUUO knows now how to back only out of TYI wait, so in all
other cases it will print "Finishing up a UUO first..." and
then complete the UUO before saying "Command: ". DECUUO will
complain about any attempt to issue a system commands while
an ITS interrupt is being handled, but nothing will have been
clobbered.
6) THE DECSYS DIRECTORY
When emulated programs refer to the SYS device, they do not
access the ITS SYS device, since the ITS system programs are
probably not what they want. Instead, they access the directory
DECSYS, which is intended to have on it all the files that
any DEC system "ought" to have on SYS, such as DDT.REL, JOBDAT.REL, ...
Also, bootstrapped ITS binaries of DEC system programs go there
so that RUN UUOs referring to SYS will find them, even though their
main use may be via ^K.
8) THE INTERFACE BETWEEN THE emulATED PROGRAM AND ITS.
A) Up to 5 ^C's are removed from the end of any file read in
ASCII or ASCII LINE mode. Trailing nulls are changed to
^C's in the last word of any file written in one of those modes.
B) Type-in Conventions:
If /META is off, the conventions are that ^O and ^S both
complement output-suppression, ^U clears the input buffer,
rubout deletes one character, ^C causes a return to HACTRN
if read by a TTCALL, but causes EOF on the TTY if the TTY
is in use as a device. ^Z (quoted by ^_) is read as ^Z
by a TTCALL, but is EOF when the TTY is in use as a device.
If /META is on, only rubout has its special meaning. That
is because at SAIL, on display terminals, the rest of those
functions are generally placed on other characters, some of
which could be handled by DECUUO if there is a demand.
RESCAN attempts to read JCL, unless the program was run by
:DEC ..., since in that case the JCL was intended for DECUUO
and would only confuse the emulated program. The JCL, if
any, is put into the type-in buffer.
C) Conventions dealing with DSK and other directory devices.
A null FN2 is allowed on the DEC system. DECUUO translates
it into ">".
In its normal mode, DECUUO allows one level of SFD to be
specified in paths. To find a file in an SFD, DECUUO looks
in the ITS directory with the same name (on the specified
device). The PPN specified is totally ignored in that case.
If there is no SFD spec'd, the PPN is used as the directory
name. In that case, the PPN must be the expression, as two
right-justified octal halfwords, of the SIXBIT of the directory
name (in other words, their standard representations in machine
words must be equal). Some newer DEC programs can handle "SIXBIT
PPN's", in which case this crock is unnecessary.
An ITS UFD may be read in with the file name -FILE- and any
extension. An MFD may be read with the file name M-F-D-.
D) Job numbers and other jobs.
If the emulated program tries to read its job number,
its ITS job number is returned.
If it tries to refer to a job by number, the job's own
number is acceptable. Any other argument which the DEC system
would treat as the number of another job will either be held
to provoke a deficiency or will return the information that
the job does not exist, according to the setting of ZJOBS.
E) Device names TTYnn will be translated into Tnn, thus allowing
other terminals to be accessed using the same device names
as are used on the DEC system. Device MTA is translated into
MT0. No other device name (except SYS) is translated.
ITS filename translations do work, of course; if just a device
name is translated then DECUUO will even manage to report to
the emulated program that the translated device name is a
logical name, and supply the physical one.
F) RUN and GETSEG.
The RUN and GETSEG UUOs work using the same algorithm as on the
DEC system, looking for files named SHR, HGH, SAV or LOW,
with the extension that BIN is also looked up for low segment
files, and HBIN is looked at for high segment files.
The file format is determined from the file name:
SHR or HGH implies a DEC high segment file,
SAV or LOW implies a DEC low segment file,
anything else is assumed to be an ITS format binary file.
It is possible for an ITS binary file loaded expecting it to
contain a low segment only, to contain actually two segments;
DECUUO will recognize this. However, the file must be a PDUMPed
file, so that it will leave a gap between the segments when loaded;
otherwise, DECUUO will think it is one long low segment.
Because of this, the only reason to have an HBIN file is so that
a GETSEG (which tries only SHR, HGH and HBIN) can load it.
An HBIN file must not load anything into the low segment part
of the address space, or DECUUO will be very confused; this is
your responsibility. An ITS binary file that loads into the
AC's can also cause trouble. No "real" DEC program loads or
dumps ANYTHING below .JBPFI (location 114), and DECUUO assumes
this rule will be followed.
It is possible to have both a high segment file (SHR, HGH or HBIN),
and a "low segment" ITS binary file that really contains both
segments, without confusing DECUUO. It will just cause the high
segment to be loaded twice by a RUN UUO. The utility of this is
that a link TS MUMBLE can be made to the "low segment" file
and then the program can be run successfully with either
MUMBLE^K or :DEC MUMBLE or a RUN UUO or a GETSEG.
8) DEFICIENCIES IN DECUUO.
("not supported" without qualification means that a "Simulator Deficiency"
error message results, at least with the F.T. switches in their normal
settings)
Update mode I/O is not supported. It is very difficult to do in ITS.
Some data modes are not supported (for example, image mode on
terminals and paper tape). IONEOU is equivalent to OUTCHR.
The Stanford features are far from being completely implemented.
Random UUO's and fixes will be implemented for the SAIL stuff as the
need arises.
High segments that do not start at 400000 (because the low segment
is longer than 400000) are not supported. High segments longer than
64K are not supported, but with a little effort that figure could
be improved. REMAP is not supported when the low segment is longer
than 128K.
DDTIN, TMPCOR, TRMOP., TAPOP., and FILOP. are not supported. Since
currently emulated software uses TMPCOR and TRMOP., those two will
give the error return, unless an F.T. switch is set to act otherwise.
Eventually all of these will be implemented, with the possible
exception of DDTIN, since it is scheduled to be flushed from the DEC
system anyway.
All CALLIs connected with the MPX device, the software PI system,
the enqueuing facility, and the Interprocessor Communications facility
are not supported. Since the enqueueing facility and IPCF involve
another job, they return "job non-existant". No attempt is made to
handle privileged system calls; normally they return the appropriate
failure for being a non-privileged program, but an F.T. switch can
make them complain.
A few GETTABs are not supported, though many would be easy to handle
if there were a demand. Normally, the unsupported ones complain,
but an F.T. switch can make them claim not to be implemented in this
"monitor".
SEEK, DISK., WAIT, UTPCLR, LOCATE, WHERE, WAKE, DAEMON, UNLOK., PAGE.,
NODE. are no-ops. Either the UUO is meaningless under I.T.S., or its
failure is not noticeable by the emulated program. A reasonable DEC
program will allow for failure of these UUO's.
Turning on UU.AIO, UU.DER, UU.DEL is not supported. UU.AIO
complains; the others are normally ignored.
60-cycle clock interrupts (AP.CLK) are not supported.
Setting a file's protection or its creation date is not supported,
but in the normal mode it will be ignored rather than barfed at.
The data mode returned by a LOOKUP or ENTER will be the one in
which the channel is initted; there is no way in ITS to remember
that information, and unfortunately no way to tell whether the
program is being screwed by that lack.
ENTERing an SFD will fail with ERLVL% (the maximum SFD nesting level is
0). Setting the additional library (LIB:) for LOOKUPs (with a PATH.)
is not supported.
Extended LOOKUPs, ENTERs and RENAMEs with arguments in the AC's
are not supported.
The "universal time/date standard" is not supported. LOOKUPs return
zero (or may be set to complain). The GETTABs that return a value
in the "universal time/date standard" either fail or cause a
"emulator Deficiency" error message, depending on an F.T. switch.
Many of the arguments to extended ENTERs and RENAMEs are ignored.
The access date is not returned (is always 0).
Renaming from one directory to another is not supported. It can't
be done on I.T.S.
8) MISCELLANEOUS INFO
DECUUO exists in the same ITS job as the emulated program.
This makes for greater efficiency than TEN50 had, and also
makes it possible to debug the emulated program with ITS DDT
instead of DEC DDT. The source for DECUUO is DECSYS;DECUUO > MC:
and DECSYS;DECBOT > MC: (the latter by itself assembles the
stand-alone bootstrap).
When a program is being emulated by means of :DEC <file>,
it is possible to reload DECUUO with $L, re-specify the JCL
and the $G again. However, that should not be done if there
are any breakpoints set in the emulated program, since that
process involves reloading the program while DDT thinks
breakpoints are "in". If the program has a bootstrap and
loads DECUUO, that case is no problem, but a similar problem
exists with breakpoints INSIDE of DECUUO.

447
doc/info/decuuo.8 Executable file
View File

@@ -0,0 +1,447 @@
-*-TEXT-*-

File: DECUUO Node: TOP Up: (DIR) Next: HOWTO
This file documents the DEC system emulator DECUUO.
DECUUO is a TOPS-10 emulator for the I.T.S. monitor. It
is loaded in core along with a standard DEC program. It will
trap on a DEC MUUO and do the necessary equivalent for I.T.S.
In general, DECUUO should be invisible to the emulated program.
DECUUO has the capacity to emulate DEC TOPS-10 version 6.02 and
the Stanford operating system.
* Menu:
* Howto:: How to invoke the DEC emulator.
* Modes:: Mode switches.
* Test:: Feature test switches.
* Boot:: The bootstrap.
* Cmnds:: System commands.
* Dir:: The DECSYS directory.
* Int:: The interface between the emulated program and ITS.
* Defs:: Deficiencies in DECUUO.
* Misc:: Miscellaneous information.

File: DECUUO Node: HOWTO Next: MODES Up: Top
HOW TO INVOKE THE DEC EMULATOR.
To emulate the program in a particular file, say
:DEC <file>
To emulate a program which has been dumped out with a emulator
bootstrap, just load and start it.
Running any of the following programs: D, PC, WL, NODIPS, DPLT,
or PCPLT actually runs the emulator, which, on noticing that its
JNAME is one of the above, loads and emulates the appropriate
program from a file whose name is assembled into the emulator.
This is the old-fashioned way of doing what should now be done
with the bootstrap.

File: DECUUO Node: MODES Next: TEST Previous: HOWTO Up: TOP
MODE SWITCHES
The emulator has several mode switches, that specify these two
types of option:
(1) What type of system or terminal to emulate, and
(2) Auxiliary services to the user.
The switches of the first sort are:
/DEC emulate the DEC TOPS-10 system. This is the default.
/SAIL emulate the Stanford system.
/III emulate a Stanford III terminal's display processing.
Makes sense only when /SAIL is specified.
/META emulate Stanford's CONTROL and META bits on input.
On ITS terminals which have that feature, the extra
bits are passed right to the emulated program. On
other ITS terminals, the characters ^B, ^C and ^F
are prefixes meaning CONTROL, META and CONTROL-META.
/FN2 emulate an altered DEC or Stanford system which
allows both filenames to have six characters, instead
of the three that the real DEC system allows. There is
no such system in reality, but some programs have
been "converted" to ITS by making them read in full-word
filenames; they are then emulated with this switch so
that the full-word filenames will be handed to ITS.
/SDIS Is synonymous with /SAIL/III/META/MAP
/PRSV Prevents EXIT 0, from killing the job. This differs from
what happens when a program named LINK or LOADER is run
(EXIT 0, does not kill a job that has run a loader) in
that this switch is saved by the bootstrap while the
LINK/LOADER run condition is not.
The switches of the second type are:
/MAP Map input characters according to the physical
correspondence between the Stanford keyboard and the
TV keyboard. With this switch set, a TV key in a
particular place will have the same effect in the
emulator as the key in that same place on the Stanford
keyboard would have on the same program running at SAIL,
even if those two keys would have unrelated graphics
printed on them. This feature is useful with programs
which try, at Stanford, to use physically adjacent keys
for related functions.
/DBUG Stop in DDT after loading the program, before starting it.
The PC will be the emulated program's start address.
/SYMS Pass the symbol table from the loaded file up to DDT.
This is the ITS-style symbol table of an ITS-format
binary file, not the DEC-style in-core symbol table
which need not be present. See 5) for how to give an
in-core symbol table to DDT.
When the emulator is invoked by ":DEC", switches should be put
after the name of the file, preceded by slashes as shown above.
It doesn't work to put switches anywhere but at the end of the
command string.
When the emulator is loaded by a bootstrap, the switch settings
are set according to the bits in a word in the core image.
See 4).
When the emulator is invoked by running a specially-known program,
the emulator knows from a table what switches are appropriate.

File: DECUUO Node: TEST Next: BOOT Previous: MODES Up: TOP
FEATURE TEST SWITCHES
When a feature of the DEC system has no equivalent or is irrelevant
under ITS, it may not be clear whether an attempt to use it
should be ignored, reported to the user with an error message, or
reported to the program as a "This system call not implemented"
error. Several parameters, often corresponding to DEC's "feature
test switches" which determine which features are implemented,
are used to control those choices. Setting one of these parameters
to zero requests emulation of a system in which some feature is
not implemented; the emulated program's attempts to use it are
reported to it as success or failure of the system call, but have
no other effect. Setting the parameter nonzero requests emulation
of a system in which the feature is implemented; attempts to use
the feature will either work properly or cause an error message.
For example, FTTMP controls the existence of the TMPCOR UUO. If it
is 0, a system that does not have TMPCOR is emulated (which will
tell the program the file is not found on reading, and that zero
words are free on writing). If it is -1, an attempt to use TMPCOR
will cause a "Simulator Deficiency Encountered" error message to be
printed. Since most DEC programs that use TMPCOR win by writing a
temporary disk file if the TMPCOR fails, the normal setting for this
switch is 0.
To set these switches, it is necessary to have the emulator's symbols.
A full list of them is on page 7 of the source, MC:DECSYS;DECUUO >.

File: DECUUO Node: BOOT Next: CMNDS Previous: TEST Up: TOP
THE BOOTSTRAP
The emulator bootstrap is a program which lives in the job data
area whose purpose is to load in the emulator. The emulator
inserts a bootstrap quite frequently into the emulated program;
in particular, after doing an F command there will be one.
A bootstrap can also be found in DECSYS;DECBOT BIN, so doing
$$1L DECSYS;DECBOT BIN will merge a bootstrap in with any program.
This will make the starting address point at the bootstrap, so the
REAL starting address should be placed in the RH of .JBSA first.
The F and D commands take care of that automatically.
The switch settings desired for the program should be expressed as
bits in the RH of the "switch word", location 56 (octal)_.
Each switch has a corresponding bit which causes it to be set;
their names are DECBT, IIIBT, METABT, etc. Normally, there is no
need to worry about them, since the F and D commands set the bits
according to the switches that are in effect (with the exception of
/SYMS and /DBUG; F and D leave the bits for those switches OFF
even if the switches were set. That way, you can :DEC a file with
/DBUG /SYMS and other switches, then dump out after a D, all to
create a new file just like the old one but with the switch bits
set to whatever you specified). The /PRSV switch is handled specially;
it will be set iff the program name (DEC-style) is LOADER or LINK,
or if the switch was explicitly turned on in the command string.
If PRSV was set by running the loader, that will not cause it to go
into the bootstrap - if it did, it would be hard to load any program
without having PRSV set.
For the sake of programs that must be run with specific feature-test
switch settings, the LH of the switch word, if nonzero, is taken to
point at a subroutine to initialize variables. It will be called
(with a JSR) when DECUUO is bootstrapped. That subroutine may
be patched in with DDT after loading DECUUO with symbols; then
a D command may be done to replace the symbols with the program's
and prepare to dump. F and D do not change the LH of the switch
word.
Note, however, that in the long run it is best for the emulator
to be made to work properly, so whenever something like this is
necessary always report precisely what and why with :BUG DECUUO.

File: DECUUO Node: CMNDS Next: DIR Previous: BOOT Up: TOP
SYSTEM COMMANDS
To issue a system command, do
45$G
and then type the command character, which should be one of
S Pass up to DDT the DEC-style in-core symbol table,
throwing away any symbols DDT has for this job.
F Flush the emulator from core, leaving only the
emulated program. Also, insert a bootstrap and set
the job's starting address to point to it. The
current switch settings are remembered in the bootstrap
so that they will be copied into the emulator when it
is reloaded.
V fill the Vestigial job data area with what it's supposed
to contain. After doing this, 400000$,577777$0Y may be
done in HACTRN to dump a DEC-format SHR or HGH file. Note
however that if there is any data in the low segment, there
has to be a DEC-style zero-compressed LOW or SAV file.
To make such a file, do 0$,377777$0Y <filename> XPN
which will make an "expanded file". Then do :DEC SYS:FILEX
which runs the DEC FILEX (FILe EXpander) CUSP, and type
<filename>.SAV=<filename>.XPN to it, using appropriate
filenames and extensions. Generally, the low segment to
a SHR or HGH file is called a LOW file, and a low segment
without a high segment is called a SAV file.
P Purifies the high segment. Useful if you really think more
than one person might ever use the program at once.
Does an automatic V (since afterward V is impossible).
D prepare for Dumping. Does S, V, P and F (omits the V, P
if there's no high segment).
R Reenter the program - just like the DEC REENTER command.
N No-op - simply finishes up a UUO if necessary. Useful if
debugging and you ^Z'd the program while it was doing a
UUO.
H Help. Types out a help cruft.
? Types out a list of commands.
If a system command is issued while the program is executing a
emulated UUO, the UUO must be either finished or backed out of.
DECUUO knows now how to back only out of TYI wait, so in all
other cases it will print "Finishing up a UUO first..." and
then complete the UUO before saying "Command: ". DECUUO will
complain about any attempt to issue a system commands while
an ITS interrupt is being handled, but nothing will have been
clobbered.

File: DECUUO Node: DIR Next: INT Previous: CMNDS Up: TOP
THE DECSYS DIRECTORY
When emulated programs refer to the SYS device, they do not
access the ITS SYS device, since the ITS system programs are
probably not what they want. Instead, they access the directory
DECSYS, which is intended to have on it all the files that
any DEC system "ought" to have on SYS, such as DDT.REL, JOBDAT.REL, ...
Also, bootstrapped ITS binaries of DEC system programs go there
so that RUN UUOs referring to SYS will find them, even though their
main use may be via ^K.

File: DECUUO Node: INT Next: DEFS Previous: DIR Up: TOP
THE INTERFACE BETWEEN THE EMULATED PROGRAM AND ITS.
A) Up to 5 ^C's are removed from the end of any file read in
ASCII or ASCII LINE mode. Trailing nulls are changed to
^C's in the last word of any file written in one of those modes.
B) Type-in Conventions:
If /META is off, the conventions are that ^O and ^S both
complement output-suppression, ^U clears the input buffer,
rubout deletes one character, ^C causes a return to HACTRN
if read by a TTCALL, but causes EOF on the TTY if the TTY
is in use as a device. ^Z (quoted by ^_) is read as ^Z
by a TTCALL, but is EOF when the TTY is in use as a device.
If /META is on, only rubout has its special meaning. That
is because at SAIL, on display terminals, the rest of those
functions are generally placed on other characters, some of
which could be handled by DECUUO if there is a demand.
RESCAN attempts to read JCL, unless the program was run by
:DEC ..., since in that case the JCL was intended for DECUUO
and would only confuse the emulated program. The JCL, if
any, is put into the type-in buffer.
C) Conventions dealing with DSK and other directory devices.
A null FN2 is allowed on the DEC system. DECUUO translates
it into ">".
In its normal mode, DECUUO allows one level of SFD to be
specified in paths. To find a file in an SFD, DECUUO looks
in the ITS directory with the same name (on the specified
device). The PPN specified is totally ignored in that case.
If there is no SFD spec'd, the PPN is used as the directory
name. In that case, the PPN must be the expression, as two
right-justified octal halfwords, of the SIXBIT of the directory
name (in other words, their standard representations in machine
words must be equal). Some newer DEC programs can handle "SIXBIT
PPN's", in which case this crock is unnecessary.
An ITS UFD may be read in with the file name -FILE- and any
extension. An MFD may be read with the file name M-F-D-.
D) Job numbers and other jobs.
If the emulated program tries to read its job number,
its ITS job number is returned.
If it tries to refer to a job by number, the job's own
number is acceptable. Any other argument which the DEC system
would treat as the number of another job will either be held
to provoke a deficiency or will return the information that
the job does not exist, according to the setting of ZJOBS.
E) Device names TTYnn will be translated into Tnn, thus allowing
other terminals to be accessed using the same device names
as are used on the DEC system. Device MTA is translated into
MT0. No other device name (except SYS) is translated.
ITS filename translations do work, of course; if just a device
name is translated then DECUUO will even manage to report to
the emulated program that the translated device name is a
logical name, and supply the physical one.
F) RUN and GETSEG.
The RUN and GETSEG UUOs work using the same algorithm as on the
DEC system, looking for files named SHR, HGH, SAV or LOW,
with the extension that BIN is also looked up for low segment
files, and HBIN is looked at for high segment files.
The file format is determined from the file name:
SHR or HGH implies a DEC high segment file,
SAV or LOW implies a DEC low segment file,
anything else is assumed to be an ITS format binary file.
It is possible for an ITS binary file loaded expecting it to
contain a low segment only, to contain actually two segments;
DECUUO will recognize this. However, the file must be a PDUMPed
file, so that it will leave a gap between the segments when loaded;
otherwise, DECUUO will think it is one long low segment.
Because of this, the only reason to have an HBIN file is so that
a GETSEG (which tries only SHR, HGH and HBIN) can load it.
An HBIN file must not load anything into the low segment part
of the address space, or DECUUO will be very confused; this is
your responsibility. An ITS binary file that loads into the
AC's can also cause trouble. No "real" DEC program loads or
dumps ANYTHING below .JBPFI (location 114), and DECUUO assumes
this rule will be followed.
It is possible to have both a high segment file (SHR, HGH or HBIN),
and a "low segment" ITS binary file that really contains both
segments, without confusing DECUUO. It will just cause the high
segment to be loaded twice by a RUN UUO. The utility of this is
that a link TS MUMBLE can be made to the "low segment" file
and then the program can be run successfully with either
MUMBLE^K or :DEC MUMBLE or a RUN UUO or a GETSEG.

File: DECUUO Node: DEFS Next: MISC Previous: INT Up: TOP
DEFICIENCIES IN DECUUO.
("not supported" without qualification means that a "Simulator Deficiency"
error message results, at least with the F.T. switches in their normal
settings)
Update mode I/O is not supported. It is very difficult to do in ITS.
Some data modes are not supported (for example, image mode on
terminals and paper tape). IONEOU is equivalent to OUTCHR.
The Stanford features are far from being completely implemented.
Random UUO's and fixes will be implemented for the SAIL stuff as the
need arises.
High segments that do not start at 400000 (because the low segment
is longer than 400000) are not supported. High segments longer than
64K are not supported, but with a little effort that figure could
be improved. REMAP is not supported when the low segment is longer
than 128K.
DDTIN, TMPCOR, TRMOP., TAPOP., and FILOP. are not supported. Since
currently emulated software uses TMPCOR and TRMOP., those two will
give the error return, unless an F.T. switch is set to act otherwise.
Eventually all of these will be implemented, with the possible
exception of DDTIN, since it is scheduled to be flushed from the DEC
system anyway.
All CALLIs connected with the MPX device, the software PI system,
the enqueuing facility, and the Interprocessor Communications facility
are not supported. Since the enqueueing facility and IPCF involve
another job, they return "job non-existant". No attempt is made to
handle privileged system calls; normally they return the appropriate
failure for being a non-privileged program, but an F.T. switch can
make them complain.
A few GETTABs are not supported, though many would be easy to handle
if there were a demand. Normally, the unsupported ones complain,
but an F.T. switch can make them claim not to be implemented in this
"monitor".
SEEK, DISK., WAIT, UTPCLR, LOCATE, WHERE, WAKE, DAEMON, UNLOK., PAGE.,
NODE. are no-ops. Either the UUO is meaningless under I.T.S., or its
failure is not noticeable by the emulated program. A reasonable DEC
program will allow for failure of these UUO's.
Turning on UU.AIO, UU.DER, UU.DEL is not supported. UU.AIO
complains; the others are normally ignored.
60-cycle clock interrupts (AP.CLK) are not supported.
Setting a file's protection or its creation date is not supported,
but in the normal mode it will be ignored rather than barfed at.
The data mode returned by a LOOKUP or ENTER will be the one in
which the channel is initted; there is no way in ITS to remember
that information, and unfortunately no way to tell whether the
program is being screwed by that lack.
ENTERing an SFD will fail with ERLVL% (the maximum SFD nesting level is
0). Setting the additional library (LIB:) for LOOKUPs (with a PATH.)
is not supported.
Extended LOOKUPs, ENTERs and RENAMEs with arguments in the AC's
are not supported.
The "universal time/date standard" is not supported. LOOKUPs return
zero (or may be set to complain). The GETTABs that return a value
in the "universal time/date standard" either fail or cause a
"emulator Deficiency" error message, depending on an F.T. switch.
Many of the arguments to extended ENTERs and RENAMEs are ignored.
The access date is not returned (is always 0).
Renaming from one directory to another is not supported. It can't
be done on I.T.S.

File: DECUUO Node: MISC Previous: DEFS Up: TOP
MISCELLANEOUS INFO
DECUUO exists in the same ITS job as the emulated program.
This makes for greater efficiency than TEN50 had, and also
makes it possible to debug the emulated program with ITS DDT
instead of DEC DDT. The source for DECUUO is DECSYS;DECUUO > MC:
and DECSYS;DECBOT > MC: (the latter by itself assembles the
stand-alone bootstrap).
When a program is being emulated by means of :DEC <file>,
it is possible to reload DECUUO with $L, re-specify the JCL
and the $G again. However, that should not be done if there
are any breakpoints set in the emulated program, since that
process involves reloading the program while DDT thinks
breakpoints are "in". If the program has a bootstrap and
loads DECUUO, that case is no problem, but a similar problem
exists with breakpoints INSIDE of DECUUO.

32
src/decsys/decbot.8 Executable file
View File

@@ -0,0 +1,32 @@
IFNDEF DECS1,[
TITLE DECBOOT ;BOOT IN DECUUO
LOC 45 ;JUST ABOVE .JBREL, IN A GAP IN THE JOBDAT AREA
]
.ELSE [
BOTBOT::OFFSET 45-.
]
BOTCHAN==1
BOTBEG:: 0+IFDEF DECS1,JRST DECS1
BOTGO:: .OPEN BOTCHAN,BOTFILE
.LOSE 1000
.CALL BOTLOAD
.LOSE 1000
.IOT BOTCHAN,1
.CLOSE BOTCHAN,
MOVE 17,BOTSWITCH
JRST 1(1) ;GO OFF TO DECUUO'S SPECIAL START ADDR TO GOBBLE OUR SWITCH WD.
BOTSWI::40 ;(DECBT)
BOTFIL::4,,SIXBIT/ SYSTS DEC/
BOTLOA::SETZ
SIXBIT /LOAD/
1000,,-1
SETZI BOTCHAN
IFNDEF DECS1,END BOTGO
BOTEND::OFFSET 0

8791
src/decsys/decuuo.312 Executable file
View File

File diff suppressed because it is too large Load Diff

2696
src/sys/decbts.232 Executable file
View File

File diff suppressed because it is too large Load Diff

302
src/sys/decdfs.5 Executable file
View File

@@ -0,0 +1,302 @@
;.DECDF DEFINES DEC UUOS AND JOBDAT VARIABLES.
.AUXIL
DEFINE .DECSET XXX/
.INIT"XXX
TERMIN
DEFINE .DECS1 XXX/
XXX
TERMIN
DEFINE .DECHK XXX/
XXX
IRPS XXY,,XXX
XXY==:XXY
.ISTOP
TERMIN
TERMIN
;.DECDF DEFINES ALL THE DEC SYMBOLS EXCEPT THE OBSOLETE "JOB..." SERIES.
;ALL THE SYMBOLS ARE PUT IN THE .INIT BLOCK SO THEY WON'T GO IN THE SYMTAB
;AND WILL APPEAR TO BE PREDEFINED.
DEFINE .DECDF DEF
IFSE [DEF],[
.DECUU .DECS1
.DEC.J .DECSE
.DECTT .DECS1
.DECCL .DECS1
.DECMT .DECS1
.DECJH .DECSE
.HKILL CALLI, TTCALL, MTAPE
]
IFSN [DEF],[
.DECUU DEF
.DEC.J DEF
.DECTT DEF
.DECCL DEF
.DECMT DEF
.DECJH DEF
]
TERMIN
;THIS MACRO REPEATS OVER THE NAMES OF THE DEC UUOS.
;THE LARGE NUMBERS MAY LOOK UGLY, BUT SINCE THEY ARE ONE SYLLABLE
;THE MACRO "DEF" CAN EXTRACT THEM WITH AN IRPS.
DEFINE .DECUU DEF
DEF INIT=:41000000000
DEF CALLI=:47000000000
DEF OPEN=:50000000000
DEF TTCALL=:51000000000
DEF RENAME=:55000000000
DEF IN=:56000000000
DEF OUT=:57000000000
DEF SETSTS=:60000000000
DEF STATO=:61000000000
DEF GETSTS=:62000000000
DEF STATZ=:63000000000
DEF INBUF=:64000000000
DEF OUTBUF=:65000000000
DEF INPUT=:66000000000
DEF OUTPUT=:67000000000
DEF CLOSE=:70000000000
DEF RELEAS=:71000000000
DEF MTAPE=:72000000000
DEF UGETF=:73000000000
DEF USETI=:74000000000
DEF USETO=:75000000000
DEF LOOKUP=:76000000000
DEF ENTER=:77000000000
DEF UJEN=:100000000000
TERMIN
;THIS MACRO REPEATS OVER ALL THE MTAPES
DEFINE .DECMT DEF
DEF MTWAT.=:72000000000
DEF MTREW.=:72000000001
DEF MTEOF.=:72000000003
DEF MTSKR.=:72000000006
DEF MTBSR.=:72000000007
DEF MTEOT.=:72000000010
DEF MTUNL.=:72000000011
DEF MTBLK.=:72000000013
DEF MTSKF.=:72000000016
DEF MTBSF.=:72000000017
DEF MTDEC.=:72000000100
DEF MTIND.=:72000000101
DEF MTLTH.=:72000000200
TERMIN
;THIS MACRO DEFINES THE DEC TTCALLS.
DEFINE .DECTT DEF
DEF INCHRW=:51000000000
DEF OUTCHR=:51040000000
DEF INCHRS=:51100000000
DEF OUTSTR=:51140000000
DEF INCHWL=:51200000000
DEF INCHSL=:51240000000
DEF GETLCH=:51300000000
DEF SETLCH=:51340000000
DEF RESCAN=:51400000000
DEF CLRBFI=:51440000000
DEF CLRBFO=:51500000000
DEF SKPINC=:51540000000
DEF SKPINL=:51600000000
DEF IONEOU=:51640000000
TERMIN
;THIS MACRO REPEATS OVER THE LOW SEGMENT JOB DATA AREA SYMBOLS
DEFINE .DEC.J DEF
DEF .JBUUO=:40
DEF .JB41=:41
DEF .JBERR=:42
DEF .JBREL=:44
DEF .JBBLT=:45
DEF .JBDDT=:74
DEF .JBCN6=:106
DEF .JBPFI=:114
DEF .JBHRL=:115
DEF .JBSYM=:116
DEF .JBUSY=:117
DEF .JBSA=:120
DEF .JBFF=:121
DEF .JBREN=:124
DEF .JBAPR=:125
DEF .JBCNI=:126
DEF .JBTPC=:127
DEF .JBOPC=:130
DEF .JBOVL=:131
DEF .JBCOR=:133
DEF .JBINT=:134
DEF .JBOPS=:135
DEF .JBCST=:136
DEF .JBVER=:137
DEF .JBDA=:140
TERMIN
;THIS MACRO REPEATS OVER THE HIGH SEGMENT JOB DATA AREA SYMBOLS.
DEFINE .DECJH DEF
DEF .JBHGH=:400000
DEF .JBHSA=:0
DEF .JBH41=:1
DEF .JBHCR=:2
DEF .JBHRN=:3
DEF .JBHVR=:4
DEF .JBHNM=:5
DEF .JBHSM=:6
DEF .JBHGA=:7
DEF .JBHDA=:10
TERMIN
DEFINE .DECJB DEF
DEF JOBUUO=:40
DEF JOB41=:41
DEF JOBERR=:42
DEF JOBREL=:44
DEF JOBBLT=:45
DEF JOBDDT=:74
DEF JOBCN6=:106
DEF JOBPFI=:114
DEF JOBHRL=:115
DEF JOBSYM=:116
DEF JOBUSY=:117
DEF JOBSA=:120
DEF JOBFF=:121
DEF JOBREN=:124
DEF JOBAPR=:125
DEF JOBCNI=:126
DEF JOBTPC=:127
DEF JOBOPC=:130
DEF .JBCHN=:131
DEF JOBCHN=:131
DEF JOBCOR=:133
DEF JOBINT=:134
DEF JOBVER=:137
DEF JOBDA=:140
TERMIN
DEFINE .DECCL DEF
DEF LIGHTS=:47000777777
DEF RESET=:47000000000
DEF DDTIN=:47000000001
DEF SETDDT=:47000000002
DEF DDTOUT=:47000000003
DEF DEVCHR=:47000000004
DEF DDTGT=:47000000005
DEF GETCHR=:47000000006
DEF DDTRL=:47000000007
DEF WAIT=:47000000010
DEF CORE=:47000000011
DEF EXIT=:47000000012
DEF MONRT.=:exit 1,
DEF UTPCLR=:47000000013
DEF DATE=:47000000014
DEF LOGIN=:47000000015
DEF APRENB=:47000000016
DEF LOGOUT=:47000000017
DEF SWITCH=:47000000020
DEF REASSI=:47000000021
DEF TIMER=:47000000022
DEF MSTIME=:47000000023
DEF GETPPN=:47000000024
DEF TRPSET=:47000000025
DEF TRPJEN=:47000000026
DEF RUNTIM=:47000000027
DEF PJOB=:47000000030
DEF SLEEP=:47000000031
DEF SETPOV=:47000000032
DEF PEEK=:47000000033
DEF GETLIN=:47000000034
DEF RUN=:47000000035
DEF SETUWP=:47000000036
DEF REMAP=:47000000037
DEF GETSEG=:47000000040
DEF GETTAB=:47000000041
DEF SPY=:47000000042
DEF SETNAM=:47000000043
DEF TMPCOR=:47000000044
DEF DSKCHR=:47000000045
DEF SYSSTR=:47000000046
DEF JOBSTR=:47000000047
DEF STRUUO=:47000000050
DEF SYSPHY=:47000000051
DEF FRECHN=:47000000052
DEF DEVTYP=:47000000053
DEF DEVSTS=:47000000054
DEF DEVPPN=:47000000055
DEF SEEK=:47000000056
DEF RTTRP=:47000000057
DEF LOCK=:47000000060
DEF JOBSTS=:47000000061
DEF LOCATE=:47000000062
DEF WHERE=:47000000063
DEF DEVNAM=:47000000064
DEF CTLJOB=:47000000065
DEF GOBSTR=:47000000066
DEF ACTIVA=:47000000067
DEF DEACTI=:47000000070
DEF HPQ=:47000000071
DEF HIBER=:47000000072
DEF WAKE=:47000000073
DEF CHGPPN=:47000000074
DEF SETUUO=:47000000075
DEF DEVGEN=:47000000076
DEF OTHUSR=:47000000077
DEF CHKACC=:47000000100
DEF DEVSIZ=:47000000101
DEF DAEMON=:47000000102
DEF JOBPEK=:47000000103
DEF ATTACH=:47000000104
DEF DAEFIN=:47000000105
DEF FRCUUO=:47000000106
DEF DEVLNM=:47000000107
DEF PATH.=:47000000110
DEF METER.=:47000000111
DEF MTCHR.=:47000000112
DEF JBSET.=:47000000113
DEF POKE.=:47000000114
DEF TRMNO.=:47000000115
DEF TRMOP.=:47000000116
DEF RESDV.=:47000000117
DEF UNLOK.=:47000000120
DEF DISK.=:47000000121
DEF DVRST.=:47000000122
DEF DVURS.=:47000000123
DEF XTTSK.=:47000000124
DEF CAL11.=:47000000125
DEF MTAID.=:47000000126
DEF IONDX.=:47000000127
DEF CNECT.=:47000000130
DEF MVHDR.=:47000000131
DEF ERLST.=:47000000132
DEF SENSE.=:47000000133
DEF CLRST.=:47000000134
DEF PIINI.=:47000000135
DEF PISYS.=:47000000136
DEF DEBRK.=:47000000137
DEF PISAV.=:47000000140
DEF PIRST.=:47000000141
DEF IPCFR.=:47000000142
DEF IPCFS.=:47000000143
DEF IPCFQ.=:47000000144
DEF PAGE.=:47000000145
DEF SUSET.=:47000000146
DEF COMPT.=:47000000147
DEF SCHED.=:47000000150
DEF ENQ.=:47000000151
DEF DEQ.=:47000000152
DEF ENQC.=:47000000153
DEF TAPOP.=:47000000154
DEF FILOP.=:47000000155
DEF CAL78.=:47000000156
DEF NODE.=:47000000157
DEF ERRPT.=:47000000160
DEF ALLOC.=:47000000161
DEF PERF.=:47000000162
TERMIN