diff --git a/build/misc.tcl b/build/misc.tcl index f24c6874..0833e32d 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -1842,3 +1842,23 @@ expect ":KILL" # STINK 121T, used to build Muddle and some old programs respond "*" ":midas mudsys;ts stink_sysen2;stink 121t\r" expect ":KILL" + +# Move hello world xfiles into an archive. +respond "*" ":cwd hello\r" +respond "*" ":move dsk:c xfile, ar:\r" +respond "*" ":move dsk:clu xfile, ar:\r" +respond "*" ":move dsk:clu xxfile, ar:\r" +respond "*" ":move dsk:fail xfile, ar:\r" +respond "*" ":move dsk:fail xxfile, ar:\r" +respond "*" ":move dsk:fortra xfile, ar:\r" +respond "*" ":move dsk:fortra xxfile, ar:\r" +respond "*" ":move dsk:lisp xfile, ar:\r" +respond "*" ":move dsk:lisp xxfile, ar:\r" +respond "*" ":move dsk:macro xfile, ar:\r" +respond "*" ":move dsk:macro xxfile, ar:\r" +respond "*" ":move dsk:midas xfile, ar:\r" +respond "*" ":move dsk:muddle xfile, ar:\r" +respond "*" ":move dsk:muddle xxfile, ar:\r" +respond "*" ":move dsk:palx xfile, ar:\r" +respond "*" ":move dsk:palx xxfile, ar:\r" +respond "*" ":rename dsk:ar >, ar xfiles\r" diff --git a/doc/hello/-read-.-this- b/doc/hello/-read-.-this- index 231ad0e4..403e7835 100644 --- a/doc/hello/-read-.-this- +++ b/doc/hello/-read-.-this- @@ -1,2 +1,6 @@ This directory contains "hello world" examples for some of the programming languages found in ITS. + +The AR XFILES achive has scripts for building programs. Use the +:XFILE command to run them. Some scripts call XXFILE, which sometimes +wedges. Type ^^ Q (that's Control-^ and Q) to quit XXFILE. diff --git a/src/hello/c.xfile b/src/hello/c.xfile new file mode 100644 index 00000000..34243eca --- /dev/null +++ b/src/hello/c.xfile @@ -0,0 +1,3 @@ +:cwd hello +:cc hello.c +:stinkr hello diff --git a/src/hello/clu.xfile b/src/hello/clu.xfile new file mode 100644 index 00000000..641daae2 --- /dev/null +++ b/src/hello/clu.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:clu xxfile diff --git a/src/hello/clu.xxfile b/src/hello/clu.xxfile new file mode 100644 index 00000000..30777456 --- /dev/null +++ b/src/hello/clu.xxfile @@ -0,0 +1,7 @@ +:cwd hello +:clu hello +:sleep 100 +:clu;clusys +fload("hello bin") +gc_pure_dump("hello; ts hello") + diff --git a/src/hello/fail.xfile b/src/hello/fail.xfile new file mode 100644 index 00000000..2ae56779 --- /dev/null +++ b/src/hello/fail.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:fail xxfile diff --git a/src/hello/fail.xxfile b/src/hello/fail.xxfile new file mode 100644 index 00000000..d1690f80 --- /dev/null +++ b/src/hello/fail.xxfile @@ -0,0 +1,9 @@ +:cwd hello +:fail +hello fai + +. +:stink hello +1L decsys; decbot bin +.jbsa/ start +:pdump ts hello diff --git a/src/hello/fortra.xfile b/src/hello/fortra.xfile new file mode 100644 index 00000000..d1976764 --- /dev/null +++ b/src/hello/fortra.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:fortra xxfile diff --git a/src/hello/fortra.xxfile b/src/hello/fortra.xxfile new file mode 100644 index 00000000..b5ef8d2c --- /dev/null +++ b/src/hello/fortra.xxfile @@ -0,0 +1,9 @@ +:cwd hello +:dec sys:f40 +hello=hello.for +. +:dec sys:loader +hello/g +45gd +:pdump ts hello +. diff --git a/src/hello/lisp.xfile b/src/hello/lisp.xfile new file mode 100644 index 00000000..a4f4cbca --- /dev/null +++ b/src/hello/lisp.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:lisp xxfile diff --git a/src/hello/lisp.xxfile b/src/hello/lisp.xxfile new file mode 100644 index 00000000..5822a696 --- /dev/null +++ b/src/hello/lisp.xxfile @@ -0,0 +1,5 @@ +:cwd hello +:complr +hello lisp +. +:lisp hello (dump) diff --git a/src/hello/macro.xfile b/src/hello/macro.xfile new file mode 100644 index 00000000..1cd6f00a --- /dev/null +++ b/src/hello/macro.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:macro xxfile diff --git a/src/hello/macro.xxfile b/src/hello/macro.xxfile new file mode 100644 index 00000000..4bfd2139 --- /dev/null +++ b/src/hello/macro.xxfile @@ -0,0 +1,9 @@ +:cwd hello +:macro +hello=hello.mac +. +:dec sys:loader +hello/g +45gd +:pdump ts hello +. diff --git a/src/hello/midas.xfile b/src/hello/midas.xfile new file mode 100644 index 00000000..5883671b --- /dev/null +++ b/src/hello/midas.xfile @@ -0,0 +1,2 @@ +:cwd hello +:midas ts hello_hello mid diff --git a/src/hello/muddle.xfile b/src/hello/muddle.xfile new file mode 100644 index 00000000..a4c3e5b2 --- /dev/null +++ b/src/hello/muddle.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:muddle xxfile diff --git a/src/hello/muddle.xxfile b/src/hello/muddle.xxfile new file mode 100644 index 00000000..1e924003 --- /dev/null +++ b/src/hello/muddle.xxfile @@ -0,0 +1,14 @@ +:cwd hello +:pcomp + +:sleep 100 +P + +:mud55 + + +:midas ts hello_mudsys; subsys maker +hello +y +save +hello diff --git a/src/hello/palx.xfile b/src/hello/palx.xfile new file mode 100644 index 00000000..1f0aae09 --- /dev/null +++ b/src/hello/palx.xfile @@ -0,0 +1,2 @@ +:cwd hello +:xxfile tty:_ar:palx xxfile diff --git a/src/hello/palx.xxfile b/src/hello/palx.xxfile new file mode 100644 index 00000000..c85a4800 --- /dev/null +++ b/src/hello/palx.xxfile @@ -0,0 +1,8 @@ +:cwd hello +:palx hello palx +:pdp11 +;l hello bin +;g + +:sleep 60 +.