samples/helloworld.orgaasm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

LIT ,hellostr
JRT ,putstr
RET

@putstr ( str -- )
  DUP LDA WRT  ( write )
  INC          ( increment pointer )
  DUP LDA      ( loop until end of string )
  JNZ ,putstr
  POP
RET

( "hello world" )
@hellostr 0068 0065 006c 006c 006f 0020 0077 006f 0072 006c 0064 000a 0000