2023-08-09 02:53:23 +00:00
|
|
|
( init )
|
|
|
|
|
|
2024-03-27 20:55:48 +00:00
|
|
|
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
|
|
|
|
|
2024-03-28 19:04:25 +00:00
|
|
|
%emit ( byte -- ) { ( hey ) #18 DEO }
|
2024-03-26 20:35:37 +00:00
|
|
|
|
2023-08-09 02:53:23 +00:00
|
|
|
|0100 @program
|
|
|
|
|
|
|
|
|
|
#1234 SWP
|
|
|
|
|
#010e DEO
|
|
|
|
|
#010f DEO
|
2024-03-26 20:31:11 +00:00
|
|
|
|
2023-08-09 02:53:23 +00:00
|
|
|
#1234 #5678 SWP2
|
|
|
|
|
|
|
|
|
|
;hello-word
|
|
|
|
|
|
|
|
|
|
&while
|
2024-03-26 20:35:37 +00:00
|
|
|
( send ) LDAk emit
|
|
|
|
|
( loop ) INC2 LDAk ?&while
|
2023-08-09 02:53:23 +00:00
|
|
|
POP2
|
|
|
|
|
|
|
|
|
|
#010f DEO
|
|
|
|
|
|
2024-03-26 20:41:52 +00:00
|
|
|
BRK
|
2023-08-09 02:53:23 +00:00
|
|
|
|
2024-03-26 20:31:11 +00:00
|
|
|
@program/extend BRK
|
|
|
|
|
|
2024-03-27 20:18:42 +00:00
|
|
|
@hello-word "Hello 20 "World? 00
|
