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

Hello world for MACRO-10 and FAIL. #2209

Merged
merged 5 commits into from
Sep 8, 2023
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
32 changes: 32 additions & 0 deletions build/misc.tcl
Original file line number Diff line number Diff line change
Expand Up @@ -651,6 +651,18 @@ expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"

# MACTEN and UUOSYM universal files.
respond "*" ":macro\r"
respond "*" "macten.unv=macten.mac\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"
respond "*" ":macro\r"
respond "*" "uuosym.unv=uuosym.mac\r"
expect "CORE USED"
respond "*" "\003"
respond "*" ":kill\r"

# CROSS, assembler
respond "*" ":macro\r"
respond "*" "cross=cross\r"
Expand Down Expand Up @@ -1830,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"
2 changes: 2 additions & 0 deletions build/timestamps.txt
Original file line number Diff line number Diff line change
Expand Up @@ -281,7 +281,9 @@ decsys/lnkscn.shr 197811110609.48
decsys/lnkxit.shr 197811110601.58
decsys/loader.shr 197603142216.18
decsys/macro.shr 197603142216.26
decsys/macten.mac 197501040000.00
decsys/sits.mac 197609010303.16
decsys/uuosym.mac 197703170000.00
decus/downtn.mus 196906300000.00
decus/grymg.mus 196911170000.00
decus/hdn.mus 196906290000.00
Expand Down
4 changes: 4 additions & 0 deletions doc/hello/-read-.-this-
Original file line number Diff line number Diff line change
@@ -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.
Loading
Loading