blob: 2565ff14b04b8ba0bebe6701a8b6af4a46d7e5f6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
%EMIT { #18 DEO }
%HALT { #010f DEO }
( init )
|0100 @program
;hello-word
&while
( send ) LDAk EMIT
( loop ) INC2 LDAk ,&while JCN
POP2
HALT
BRK
@hello-word "Hello 20 "World! 00
|