Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add FAIL link script and documentation #834

Merged
merged 2 commits into from
Apr 26, 2018
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion Makefile
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,8 @@ SRC = system syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa \
spcwar rwg libmax rat z emaxim rz maxtul aljabr cffk das ell ellen \
jim jm jpg macrak maxdoc maxsrc mrg munfas paulw reh rlb rlb% share \
tensor transl wgd zz graphs lmlib pratt quux scheme gsb ejs mudsys
DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc chprog
DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
chprog sail
BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys moon graphs

SUBMODULES = dasm itstar klh10 mldev simh sims supdup tapeutils
Expand Down
24 changes: 10 additions & 14 deletions build/misc.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -392,26 +392,22 @@ respond "*" ":midas sys3;ts ten50_mrc; ten50\r"
expect ":KILL"

# stktrn
respond "*" ":fail sail;stktrn rel_sail;stktrn >\r"
respond "*" "\032:kill\r"
respond "*" ":cwd sail\r"
respond "*" ":fail stktrn\r"

# jobdat
respond "*" ":fail sail;jobdat rel_sail;jobdat >\r"
respond "*" "\032:kill\r"
respond "*" "jobdat\r"

# fail
respond "*" ":fail sail;fail rel_sail;fail >\r"
respond "*" "fail\r"
respond "*" "\032:kill\r"
respond "*" ":delete sail; fail bin\r"
respond "*" ":stink\r"
respond "\n" "m sail;jobdat rel\033l\033\033"
respond "\n" "m sail;stktrn rel\033l\033\033"
respond "\n" "m sail;fail rel\033l\033\033"
respond "\n" "jfail\033\033"
respond "\n" "d\033\033"
respond "\n" "\033\0331l decsys;decbot bin\r"
respond "*" ":delete fail bin\r"
respond "*" ":stink fail\r"
respond "\n" "\177"
respond "??" "\033\0331l decsys;decbot bin\r"
respond "*" ".jbsa/strt\r"
respond "'" "\033y sys;ts fail\r"
respond ":" "56/1000\r"
respond "\n" "\033y sail; fail bin\r"
respond "*" ":kill\r"

# who%
Expand Down
20 changes: 20 additions & 0 deletions doc/sail/fail.-read-
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
This is the procedure for creating a new FAIL under ITS:

1) Assemble: do FAIL^K then SAIL;FAIL NREL_SAIL;FAIL<cr>.

2) Load: rename FAIL REL to FAIL OREL, then do
STINK^K and MSAIL;FAIL LOADER@, making sure first that you do
not have a job named FAIL.
This will complete and return to DDT quietly, so type a rubout
(whereby you will see by DDT's response when STINK is finished).

3) Set up for simulation by DECUUO:
Then do ..STAR/ and deposit the RH of the contents in 120 (leave
the LH of 120 zero). Then merge in a bootstrap by means of
1L DECSYS;DECBOT BIN
and deposit 1000 in location 56 to set the simulation switches.

4) Finally, dump with Y as SAIL;FAIL BIN (make sure to rename the old
FAIL BIN!) or anything else.


Loading