From 3744cfe775fe2bfdcd8084868d460f3aa2a0278c Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 7 Sep 2023 17:44:40 +0200
Subject: [PATCH] Hello world for the FAIL assembler.

---
 src/hello/hello.fai    | 33 +++++++++++++++++++++++++++++++++
 src/hello/hello.loader |  3 +++
 2 files changed, 36 insertions(+)
 create mode 100644 src/hello/hello.fai
 create mode 100644 src/hello/hello.loader

diff --git a/src/hello/hello.fai b/src/hello/hello.fai
new file mode 100644
index 00000000..34c09aa7
--- /dev/null
+++ b/src/hello/hello.fai
@@ -0,0 +1,33 @@
+	TITLE HELLO FAIL
+
+;Hello world example for FAIL, for running under DECUUO.
+
+;Unlike MACRO, FAIL is a native ITS program which outputs a
+;relocatable file for ITS' linker STINK.  This example uses the UUOs
+;common to both TOPS-10 and WAITS, so it must be run under DECUUO.
+;The DECUUO bootstrap is loaded into the program image, and the start
+;address is set.
+
+;To assemble, type
+;  :cwd hello
+;  :fail
+;  *hello fai
+;  *^C
+;To link and dump a DECUUO program, type
+;  :stink hello
+;  *$$1L decsys; decbot bin
+;  *.jbsa/ start
+;  *:pdump ts hello
+
+OPDEF CALLI	[47B8]
+OPDEF TTYUUO	[51B8]
+OPDEF RESET	[CALLI 0]
+OPDEF EXIT	[CALLI 12]
+OPDEF OUTSTR	[TTYUUO 3,]
+
+START:	RESET
+	OUTSTR [ASCIZ /HELLO SAILOR/]
+	EXIT 1,
+	JRST START
+
+END START
diff --git a/src/hello/hello.loader b/src/hello/hello.loader
new file mode 100644
index 00000000..8ac2030d
--- /dev/null
+++ b/src/hello/hello.loader
@@ -0,0 +1,3 @@
+M sail; jobdat relL
+M hello; hello relL
+D