Aufgrund von Gründen bezüglich Planungen und Vorbereitungen für die 0d128 empfehle ich bereits den Account den ich hier im Post referenziert habe, mal zu Folgen.
Glaubt mir, es wird sich lohnen.
Auch wenn vorher noch einiges an Vorbereitungen hier zu machen sind, wird dieser Account wichtig werden dafür...
Here’s a really weird #uxn “Hello World” program:
Zeroday Podcast (stefan)
Deadly Headshot ( hello.tal )
( devices )
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
( macros )
( print a character to standard output )
%EMIT { .Console/write DEO } ( character -- )
%EMITK { .Console/write DEOk } ( character -- character Consolewrite )
( print a newline )
%NL { #0a EMIT } ( -- )
( main program )
|0100 #0a6f
#6c
#6568
EMITK NIP DEOk NIP DEOk DEOk NIP DEOk NIP DEO
,wo LDRk ( wo w -- )
STH #0d SUB STHr
@looper #00 POP ( wo w -- )
EMIT ( wo -- )
INC ( wo+1 -- )
LDRk ( wo+1 o -- )
DUP #00 NEQ ,looper ( wo+1 o 1 looper -- )
JCN ( wo+1 o -- )
BRK
@wo
'w 'o 'r 'l 'd 21
Pierre Huyghebaert