2021-04-21 16:09:18 +00:00
|
|
|
( dev/console )
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2022-01-01 23:20:48 +00:00
|
|
|
%HALT { #010f DEO }
|
|
|
|
|
%EMIT { #18 DEO }
|
|
|
|
|
%DEBUG { ;print-hex/byte JSR2 #0a EMIT }
|
|
|
|
|
%DEBUG2 { ;print-hex JSR2 #0a EMIT }
|
2021-04-21 12:45:17 +00:00
|
|
|
|
2021-04-21 16:48:04 +00:00
|
|
|
( init )
|
2021-04-21 12:45:17 +00:00
|
|
|
|
2021-04-21 16:48:04 +00:00
|
|
|
|0100 ( -> )
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2021-07-28 22:41:07 +00:00
|
|
|
;hello-word
|
2021-08-08 17:21:58 +00:00
|
|
|
&while
|
2022-01-01 23:20:48 +00:00
|
|
|
( send ) LDAk EMIT
|
|
|
|
|
#20 EMIT
|
|
|
|
|
DUP2 ;print-hex JSR2
|
|
|
|
|
#20 EMIT
|
|
|
|
|
LDAk ;print-hex/byte JSR2
|
|
|
|
|
#0a EMIT
|
2021-08-18 02:40:07 +00:00
|
|
|
INC2 LDAk ,&while JCN
|
2021-05-17 22:13:46 +00:00
|
|
|
POP2
|
2022-01-01 23:20:48 +00:00
|
|
|
( stop ) HALT
|
2021-07-28 22:41:07 +00:00
|
|
|
|
2021-05-13 15:47:18 +00:00
|
|
|
BRK
|
2021-02-20 23:00:34 +00:00
|
|
|
|
2022-01-01 23:20:48 +00:00
|
|
|
@print-hex ( value* -- )
|
|
|
|
|
|
|
|
|
|
SWP ,&byte JSR
|
|
|
|
|
&byte ( byte -- )
|
|
|
|
|
STHk #04 SFT ,&parse JSR #18 DEO
|
|
|
|
|
STHr #0f AND ,&parse JSR #18 DEO
|
|
|
|
|
JMP2r
|
|
|
|
|
&parse ( byte -- char ) DUP #09 GTH ,&above JCN #30 ADD JMP2r
|
|
|
|
|
&above #57 ADD JMP2r
|
|
|
|
|
|
|
|
|
|
JMP2r
|
|
|
|
|
|
2021-08-30 21:53:01 +00:00
|
|
|
@hello-word "Hello 20 "Uxn!
|
