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

Formatted checksum

This commit is contained in:
Devine Lu Linvega 2023-06-19 21:28:40 -07:00
parent e615104426
commit 3b93657863
1 changed files with 58 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

95
cli/checksum/checksum.tal
View File

@ -7,71 +7,84 @@
@src $40
|0100 ( -> )
|0100
.Console/type DEI ?&on-arg
;dict/usage &w LDAk #19 DEO INC2 LDAk ?&w POP2
@on-reset ( -> )
.Console/type DEI ?&>has-arg
;dict/usage <perr>
#010f DEO
BRK
&on-arg ( -> )
BRK &>has-arg
;await-src .Console/vector DEO2
BRK
@await-src ( -> )
.Console/read DEI .src skey
?on-ready
.Console/read DEI .src skey ?on-ready
BRK
@on-ready ( -> )
;src
DUP2 hash plong #2018 DEO
pstr #0a18 DEO
;src DUP2 hash <emit-long>
#2018 DEO
<pstr>
#0a18 DEO
#800f DEO
BRK
(
@|core )
@hash ( filename* -- x* y* )
.File/name DEO2
#0001 .File/length DEO2
#1234 ,&x STR2 #abcd ,&y STR2
#2443 ,&a STR2 #118d ,&b STR2
&w
#1234 ,&x STR2
#abcd ,&y STR2
#2443 ,&a STR2
#118d ,&b STR2
&w ( -- )
;&c .File/read DEO2
[ LIT &c $1 ] DUP DUP2
[ LIT2 &x $2 ] [ LIT2 &a $2 ] MUL2 ADD2 ,&x STR2
[ LIT &c $1 ] DUP DUP2 [ LIT2 &x $2 ] [ LIT2 &a $2 ] MUL2 ADD2 ,&x STR2
[ LIT2 &y $2 ] [ LIT2 &b $2 ] MUL2 ADD2 ,&y STR2
.File/success DEI2 ORA ?&w
,&x LDR2 ,&y LDR2
JMP2r
,&x LDR2 ,&y LDR2 JMP2r
(
@|stdlib )
@scap ( str* -- end* )
LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
@sput ( chr str* -- )
scap STA JMP2r
@skey ( key buf -- proc )
OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r
@pstr ( str* -- )
&w LDAk #18 DEO INC2 LDAk ?&w POP2 JMP2r
@plong ( a* b* -> )
SWP2 plong/s
&s SWP plong/b
&b DUP #04 SFT plong/c
&c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
@dict
&usage "usage: 20 "checksum.rom 20 "input.bin 0a $1
!&a
&w ( -- )
INC2 &a LDAk ?&w
JMP2r
@sput ( chr str* -- )
scap ROT #00 SWP2 STA2
JMP2r
@skey ( key buf -- proc )
OVR #21 LTH ?&eval
#00 SWP sput #00 JMP2r
&eval POP2 #01 JMP2r
@<pstr> ( str* -- )
&w ( -- )
LDAk #18 DEO
INC2 LDAk ?&w
POP2 JMP2r
@<perr> ( str* -- )
&w ( -- )
LDAk #19 DEO
INC2 LDAk ?&w
POP2 JMP2r
@<emit-long> ( a* b* -> )
SWP2 <emit-long>/s
&s ( -- )
SWP <emit-long>/b
&b ( -- )
DUP #04 SFT <emit-long>/c
&c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
JMP2r
@dict &usage "usage: 20 "checksum.rom 20 "input.bin 0a $1