Data update

This commit is contained in:
Ingy döt Net 2025-06-11 20:16:52 -04:00
parent 72eb4943cb
commit 4d5544505c
2347 changed files with 62432 additions and 16731 deletions

View file

@ -0,0 +1,2 @@
REM This is a comment.
PAUSE 20 REM Can be placed behind statements, too.

View file

@ -0,0 +1,31 @@
(
Print a hex byte to decimal.
)
( macros )
%\n { 0a }
%newline { [ LIT2 \n -Console/write ] DEO }
( devices )
|10 @Console/vector $2 &read $1 ( &pad is unused ) &pad $5 &write $1 &error $1
( main program )
|100
@on-reset ( -> )
#42 print/dec newline
BRK
( library )
@print/dec ( dec -- )
DUP #64 DIV /dec/try
DUP #0a DIV /dec/try
( >> )
&dec/num ( num -- )
#0a DIVk MUL SUB [ LIT "0 ] ADD .Console/write DEO
JMP2r
&dec/try ( num -- )
DUP ?/dec/num
POP JMP2r