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