github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

Update Muddle hello world example.

Browse Source 
Use MDL 55.  Remove reference to LARS directory.  Move call to SAVE-IT
from the source file to the Muddle session.
This commit is contained in:
Lars Brinkhoff 2023-02-23 10:26:23 +01:00
parent 43810baab6
commit dfb09da1e3
2 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
doc/muddle.md
View File

@ -31,34 +31,34 @@ with this content:
<QUIT>>
<DEFINE SAVE-IT ()
<COND (<=? <SAVE "LARS; HELLO SAVE"> "SAVED"> <QUIT>)>
<COND (<=? <SAVE "HELLO SAVE"> "SAVED"> <QUIT>)>
<HELLO>>
<SAVE-IT>
```
`HELLO` is the main program which prints a message and terminates.
`SAVE-IT` is used to create a `SAVE` file and arranges to call `HELLO`
when it's restored.
Now start `:muddle` and type `<FLOAD "HELLO MUD">` and
<kbd>Escape</kbd>. It should look like this:
Now start `:mud55` and type `<FLOAD "HELLO MUD">` and
<kbd>Escape</kbd>. Next, type `<SAVE-IT>`<kbd>Escape</kbd>.
It should look like this:
```
:muddle
MUDDLE 56 IN OPERATION.
:mud55
MUDDLE 55 IN OPERATION.
LISTENING-AT-LEVEL 1 PROCESS 1
<FLOAD "HELLO MUD">$
"DONE"
<SAVE-IT>$
:KILL
```
A `HELLO SAVE` file has been created with the `HELLO` procedure in it.
To run it, start `:muddle` again and type `<RESTORE "HELLO SAVE">`:
To run it, start `:mud55` again and type `<RESTORE "HELLO SAVE">`:
```
*:muddle
MUDDLE 56 IN OPERATION.
*:mud55
MUDDLE 55 IN OPERATION.
LISTENING-AT-LEVEL 1 PROCESS 1
<RESTORE "HELLO SAVE">$
Hello, muddled world!

7
src/hello/hello.mud
View File

@ -1,5 +1,6 @@
;"Hello world example for Muddle. Load this file with FLOAD to make a"
;"HELLO SAVE file which can later be loaded into Muddle with RESTORE."
;"Hello world example for Muddle. Load this file with FLOAD, and type"
;"<SAVE-IT>$ to make a HELLO SAVE file which can later be loaded into"
;"Muddle with RESTORE."
<DEFINE HELLO ()
<PRINC "Hello, muddled world!">
@ -9,5 +10,3 @@
<DEFINE SAVE-IT ()
<COND (<=? <SAVE "HELLO SAVE"> "SAVED"> <QUIT>)>
<HELLO>>
<SAVE-IT>