commit 594fd475a242da18a8607535030a3c533c68ca8e
parent 0fa8b89c24c643b35476585e443eb8367f8dd046
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Wed, 15 Jan 2025 17:46:14 -0800
Removed old utils
Diffstat:
2 files changed, 0 insertions(+), 168 deletions(-)
diff --git a/projects/utils/hexdump.tal b/projects/utils/hexdump.tal
@@ -1,65 +0,0 @@
-( usage: uxncli hexdump.rom file.bin )
-
-|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
-|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
-
-|0000
-
- @src $40
-
-|0100 ( -> )
-
- ;on-console .Console/vector DEO2
-
-BRK
-
-@on-console ( -> )
-
- ;src STH2
- ( read input )
- .Console/read DEI
- DUP #20 LTH OVR #7f GTH ORA ,&end JCN
- STH2kr ,slen JSR #003f GTH2 ,&end JCN
- STH2kr ,scap JSR STA POP2r BRK
- &end
- POP
- STH2r .File/name DEO2
- #0002 .File/length DEO2
- LIT2r 0000
- &stream
- #0000 ,&buf STR2
- ;&buf .File/read DEO2
- .File/success DEI2 #0000 EQU2 ,&eof JCN
- ;&buf LDA2 ,print JSR #2018 DEO
- INC2r
- ( linebreak )
- STH2kr #000f AND2 ORA ,&no-lb JCN
- #0a18 DEO &no-lb
- ,&stream JMP &eof
- POP2r
- #010f DEO
-
-BRK
- &buf $2
-
-@slen ( str* -- len* )
-
- DUP2 ,scap JSR SWP2 SUB2
-
-JMP2r
-
-@scap ( str* -- end* )
-
- LDAk #00 NEQ JMP JMP2r
- &while
- INC2 LDAk ,&while JCN
-
-JMP2r
-
-@print ( short* -- )
-
- SWP ,&byte JSR
- &byte ( byte -- ) DUP #04 SFT ,&char JSR
- &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO
-
-JMP2r
diff --git a/projects/utils/proquints.tal b/projects/utils/proquints.tal
@@ -1,103 +0,0 @@
-(
- converts a binary file to a proquints, identifiers that are readable, and pronounceable.
- usage: uxncli proquints.rom file.bin )
-
-
-( devices )
-
-|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1
-|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
-
-( variables )
-
-|0000
-
- @length $2
- @src $30
-
-|0100 ( -> )
-
- ;on-console .Console/vector DEO2
-
-BRK
-
-@on-console ( -> )
-
- ( starting )
- [ LIT &trap $1 ] ,&started JCN
- ;src #0020 ;mclr JSR2
- #01 ,&trap STR
- &started
- ( append )
- .Console/read DEI #20 LTH ,&validate JCN
- ;src ;slen JSR2 #0030 EQU2 ,&validate JCN
- ;src .Console/read DEI ;sput JSR2 BRK
- &validate
- ( load )
- ;src .File/name DEO2
- #fff0 ;data SUB2 .File/length DEO2
- ;data .File/read DEO2
- ( save length )
- .File/success DEI2 .length STZ2
- ,parse JSR
- #00 ,&trap STR
-
-BRK
-
-@parse ( -- )
-
- .length LDZ2 ;data ADD2 ;data
- &loop
- LDA2k ,proquint JSR
- INC2 INC2 GTH2k ,&loop JCN
- POP2 POP2
- #010f DEO
-
-JMP2r
-
-@proquint ( short* -- )
-
- ( c1 ) DUP2 #0c ,&emit-con JSR
- ( v1 ) DUP2 #0a ,&emit-vow JSR
- ( c2 ) DUP2 #06 ,&emit-con JSR
- ( v2 ) DUP2 #03 ,&emit-vow JSR
- ( c3 ) #00 ,&emit-con JSR
- #2018 DEO
-
-JMP2r
- &emit-con SFT2 #000f AND2 ;&con ADD2 LDA #18 DEO JMP2r
- &con "bdfghjklmnprstvz
- &emit-vow SFT2 #0003 AND2 ;&vow ADD2 LDA #18 DEO JMP2r
- &vow "aiou
-
-@slen ( str* -- len* )
-
- DUP2 ,scap JSR SWP2 SUB2
-
-JMP2r
-
-@scap ( str* -- end* )
-
- LDAk #00 NEQ JMP JMP2r
- &while
- INC2 LDAk ,&while JCN
-
-JMP2r
-
-@sput ( str* char -- )
-
- ROT ROT ,scap JSR STA
-
-JMP2r
-
-@mclr ( addr* len* -- )
-
- OVR2 ADD2 SWP2
- &loop
- STH2k #00 STH2r STA
- INC2 GTH2k ,&loop JCN
- POP2 POP2
-
-JMP2r
-
-@data
