d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added tests

This commit is contained in:
Devine Lu Linvega 2023-05-25 12:54:37 -07:00
parent 7a1a6e50d4
commit 62689489bd
2 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
cli/arvelie/arvelie.tal
View File

@ -35,7 +35,6 @@ BRK
POP POP
.buf parse .buf parse
#010e DEO
BRK BRK
@ -59,7 +58,7 @@ JMP2r
( date ) INC LDZ2 bytedec STH2r ADD2 INC2 ( date ) INC LDZ2 bytedec STH2r ADD2 INC2
( year ) ROT LDZ2 bytedec #07d6 ADD2 ( year ) ROT LDZ2 bytedec #07d6 ADD2
emit-gre emit-gre
#010f DEO #800f DEO
JMP2r JMP2r
@ -74,14 +73,27 @@ JMP2r
( day ) ( day )
STHr LDZ2 bytedec #0001 SUB2 STHr LDZ2 bytedec #0001 SUB2
doty SWP2 emit-arv #0a18 DEO doty SWP2 emit-arv #0a18 DEO
#010f DEO #800f DEO
JMP2r JMP2r
@emit-gre ( doty* year* -- ) @emit-gre ( doty* year* -- )
pdec #2018 DEO DUP2 pdec LIT "- #18 DEO
pdec #0a18 DEO ,&y STR2
STH2
#0c00
&l
DUP [ LIT2 &y $2 ] ROT diam #00 SWP
DUP2 STH2kr GTH2 ?&skip
STH2k SUB2r !&continue
&skip
POP2 !&end
&continue
POP2
INC GTHk ?&l
&end
NIP INC emit-dec LIT "- #18 DEO STH2r NIP emit-dec #0a18 DEO
JMP2r JMP2r
@ -98,7 +110,14 @@ JMP2r
@emit-num ( num -- ) @emit-num ( num -- )
#30 ADD #18 DEO LIT "0 ADD #18 DEO
JMP2r
@emit-dec ( byte -- )
DUP #0a DIV emit-num
#0a DIVk MUL SUB emit-num
JMP2r JMP2r

9
cli/arvelie/build.sh
View File

@ -7,7 +7,7 @@ LIN="uxncli $HOME/roms/uxnlin.rom"
SRC="${ID}.tal" SRC="${ID}.tal"
DST="${ID}.rom" DST="${ID}.rom"
CPY="$HOME/roms" CPY="$HOME/roms"
ARG="2023-05-25" ARG=""
if [[ "$*" == *"--lint"* ]] if [[ "$*" == *"--lint"* ]]
then then
@ -21,5 +21,10 @@ then
cp $DST $CPY cp $DST $CPY
fi fi
$EMU $DST $ARG echo "today: "
$EMU $DST
echo "gre->arv: "
$EMU $DST "2023-05-25"
echo "arv->gre: "
$EMU $DST "17K04"