blob: 9401e8f55ef6414eb5f7ca9ef2e6fdb5007dd8a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
LIT ,hellostr
JRT ,putstr
RET
@putstr ( str -- )
DUP LDA WRT ( write )
LIT 0001 ADD ( increment pointer )
DUP LDA ( loop until end of string )
JNZ ,putstr
RET
( "hello world" )
@hellostr 0068 0065 006c 006c 006f 0020 0077 006f 0072 006c 0064 0000
|