blob: 5e37e02163c80af85db64734601fb78abde2f43e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
-hellostr
JRT ,putstr
RET
@putstr ( str -- )
DUP LDA ( read memory )
DUP #00ff AND ( split the short in two )
SWP #0008 RSF
WRT WRT ( write )
INC ( increment pointer )
DUP LDA ( loop until end of string )
JNZ ,putstr
POP
kRET
( "hello world" )
@hellostr 6865 6c6c 6f20 776f 726c 640a 0000
|