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

Housekeeping

This commit is contained in:
Devine Lu Linvega 2023-06-19 21:26:57 -07:00
parent 8d85b690f2
commit e615104426
5 changed files with 247 additions and 243 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cli/arvelie/arvelie.tal
View File

@ -1,5 +1,4 @@
( ( usage: arvelie.rom )
usage: arvelie.rom )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
@ -37,7 +36,10 @@
@parse ( ztr -- ) @parse ( ztr -- )
DUP zlen #05 EQU ?&on-arvgre DUP zlen #05 EQU ?&on-arvgre
DUP zlen #0a EQU ?&on-grearv DUP zlen #0a EQU ?&on-grearv
( print-error ) ;&err &w LDAk #19 DEO ( | print-error )
;&err
&w ( -- )
LDAk #19 DEO
INC2 LDAk ?&w INC2 LDAk ?&w
POP2 POP2
( err ) #010f DEO ( err ) #010f DEO
@ -55,7 +57,8 @@
( d ) STHr bytedec #0001 SUB2 doty SWP2 <emit-arv> ( d ) STHr bytedec #0001 SUB2 doty SWP2 <emit-arv>
#0a18 DEO #0a18 DEO
( end ) #800f DEO ( end ) #800f DEO
JMP2r &err "usage: 20 "arvelie.rom 20 "YYYY-MM-DD 0a $1 JMP2r
&err "usage: 20 "arvelie.rom 20 "YYYY-MM-DD 0a $1
@<emit-gre> ( doty* year* -- ) @<emit-gre> ( doty* year* -- )
DUP2 <emit-dec2> DUP2 <emit-dec2>
@ -133,10 +136,9 @@
DUP zcap SWP SUB JMP2r DUP zcap SWP SUB JMP2r
@zcap ( ztr -- end ) @zcap ( ztr -- end )
!&>a !&a
&w ( -- ) &w ( -- )
INC &>a INC &a LDZk ?&w
LDZk ?&w
JMP2r JMP2r
( (

70
cli/base64/b64enc.tal
View File

@ -3,9 +3,14 @@
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |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 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|0000 @src $40 @queue $1 |0000
|0100 ( -> ) @src $40
@queue $1
|0100
@on-reset ( -> )
;await-src .Console/vector DEO2 ;await-src .Console/vector DEO2
BRK BRK
@ -17,20 +22,17 @@ BRK
;src .File/name DEO2 ;src .File/name DEO2
#0001 .File/length DEO2 #0001 .File/length DEO2
;&buf ;&buf
&stream &stream ( -- )
DUP2 .File/read DEO2 DUP2 .File/read DEO2
.File/success DEI2 #0000 EQU2 ?&eof .File/success DEI2 #0000 EQU2 ?&eof
LDAk append LDAk append !&stream
!&stream &eof &eof POP2
POP2 ( | pad )
( pad ) .queue LDZ #00 EQU ?&>no-pad
.queue LDZ #00 EQU ?&no-pad #00 append &>no-pad
#00 append
&no-pad
#0a18 DEO #0a18 DEO
#010f DEO #010f DEO
BRK BRK &buf $1
&buf $1
( (
@|core ) @|core )
@ -38,30 +40,34 @@ BRK
@append ( byte -- ) @append ( byte -- )
,&buf STR ,&buf STR
#0800 #0800
&l &l ( -- )
[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND ( ) [ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
[ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR ( ) [ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
( bit id -- ) ( bit id -- ) SWP .queue LDZ ORA DUP ADD .queue STZ
SWP .queue LDZ ORA DUP ADD .queue STZ #05 NEQ ?&>no-cap
#05 NEQ ?&no-cap [ LIT2 00 -queue ] DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
[ LIT2 00 -queue ] STZ &>no-cap
DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
STZ
&no-cap
INC GTHk ?&l INC GTHk ?&l
POP2 POP2 JMP2r
JMP2r
@MIME [ @MIME
"ABCDEFGHIJKLMNOP [ "ABCDEFGHIJKLMNOP "QRSTUVWXYZabcdef "ghijklmnopqrstuv "wxyz0123456789+/ ]
"QRSTUVWXYZabcdef
"ghijklmnopqrstuv
"wxyz0123456789+/ ]
( (
@|stdlib ) @|stdlib )
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r @skey ( key buf -- proc )
@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r OVR #21 LTH ?&eval
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r #00 SWP sput #00 JMP2r
&eval POP2 #01 JMP2r
@scap ( str* -- end* )
!&a
&w ( -- )
INC2 &a LDAk ?&w
JMP2r
@sput ( chr str* -- )
scap ROT #00 SWP2 STA2
JMP2r

17
cli/hx/hx.tal
View File

@ -1,5 +1,4 @@
( ( uxncli hx.rom file.bin )
uxncli hx.rom file.bin )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1 |10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
@ -11,11 +10,10 @@
|0100 |0100
@on-reset ( -> ) @on-reset ( -> )
.Console/type DEI ?&on-arg .Console/type DEI ?&>has-arg
;Dict/usage <perr> ;Dict/usage <perr>
#010f DEO #010f DEO
BRK BRK &>has-arg
&on-arg ( -> )
;await-src .Console/vector DEO2 ;await-src .Console/vector DEO2
BRK BRK
@ -39,13 +37,12 @@
BRK BRK
@<print-spacer> ( id -- ) @<print-spacer> ( id -- )
DUP #0f AND ?&no-lb DUP #0f AND ?&>no-lb
POP #0a18 DEO POP #0a18 DEO
JMP2r &>no-lb
#01 AND ?&>end
#2018 DEO &>end
JMP2r JMP2r
&no-lb ( id -- )
#01 AND ?&end
#2018 DEO
&end JMP2r
( (
@|stdlib ) @|stdlib )

55
cli/proquints/proquints.tal
View File

@ -3,9 +3,14 @@
|10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 |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 |a0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|0000 @src $40 @queue $1 |0000
|0100 ( -> ) @src $40
@queue $1
|0100
@on-reset ( -> )
;await-src .Console/vector DEO2 ;await-src .Console/vector DEO2
BRK BRK
@ -17,40 +22,50 @@ BRK
;src .File/name DEO2 ;src .File/name DEO2
#0002 .File/length DEO2 #0002 .File/length DEO2
;&buf ;&buf
&stream &stream ( -- )
DUP2 .File/read DEO2 DUP2 .File/read DEO2
.File/success DEI2 #0000 EQU2 ?&eof .File/success DEI2 #0000 EQU2 ?&eof
LDA2k proquint LDA2k proquint !&stream
!&stream &eof &eof POP2 #0a18 DEO
POP2
#0a18 DEO
#010f DEO #010f DEO
BRK BRK &buf $2
&buf $2
( (
@|core ) @|core )
@proquint ( short* -- ) @proquint ( short* -- )
( c1 ) DUP2 #0c emit-con ( c1 ) DUP2 #0c emit-con
( v1 ) DUP2 #0a emit-vow ( v1 ) DUP2 #0a emit-vow
( c2 ) DUP2 #06 emit-con ( c2 ) DUP2 #06 emit-con
( v2 ) DUP2 #03 emit-vow ( v2 ) DUP2 #03 emit-vow
( c3 ) #00 emit-con ( c3 ) #00 emit-con #20
#20 &emit ( c -- ) #18 DEO &emit ( c -- )
#18 DEO
JMP2r JMP2r
@emit-con SFT2 #000f AND2 ;&con ADD2 LDA !proquint/emit @emit-con
&con "bdfghjklmnprstvz SFT2 #000f AND2 ;&con ADD2 LDA !proquint/emit
@emit-vow SFT2 #0003 AND2 ;&vow ADD2 LDA !proquint/emit &con [ "bdfghjklmnprstvz ]
&vow "aiou
@emit-vow
SFT2 #0003 AND2 ;&vow ADD2 LDA !proquint/emit
&vow [ "aiou ]
( (
@|stdlib ) @|stdlib )
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r @skey ( key buf -- proc )
@scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r OVR #21 LTH ?&eval
@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r #00 SWP sput #00 JMP2r
&eval POP2 #01 JMP2r
@scap ( str* -- end* )
LDAk #00 NEQ [ JMP JMP2r ]
&w ( -- )
INC2 LDAk ?&w
JMP2r
@sput ( chr str* -- )
scap ROT #00 SWP2 STA2
JMP2r

178
gui/meta/meta.tal
View File

@ -9,184 +9,166 @@
@src $40 @src $40
|0100 ( -> ) |0100
( meta ) @on-reset ( -> )
;meta #06 DEO2 ;meta #06 DEO2
#960f .System/r DEO2 #960f .System/r DEO2
#a70f .System/g DEO2 #a70f .System/g DEO2
#a70f .System/b DEO2 #a70f .System/b DEO2
#0150 .Screen/width DEO2 #0150 .Screen/width DEO2
#0050 .Screen/height DEO2 #0050 .Screen/height DEO2
;await-src .Console/vector DEO2 ;await-src .Console/vector DEO2
;dict/input pstr ;dict/input <pstr>
BRK BRK
@meta 00 @meta
00
( name ) "Meta 0a ( name ) "Meta 0a
( details ) "A 20 "ROM 20 "metadata 20 "viewer 0a ( details ) "A 20 "ROM 20 "metadata 20 "viewer 0a
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a ( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "Apr 20 "4, 20 "2023 00 ( date ) "Apr 20 "4, 20 "2023 00 01
01
( icon ) 83 =appicon ( icon ) 83 =appicon
( (
@|vectors ) @|vectors )
@await-src ( -> ) @await-src ( -> )
.Console/read DEI .src skey ?on-ready
.Console/read DEI .src skey
?on-ready
BRK BRK
@on-ready ( -> ) @on-ready ( -> )
;src DUP2 <pstr>
;src #0a18 DEO
DUP2 pstr #0a18 DEO has-metadata ?&>has-metadata
has-metadata
?&on-metadata
#004c .Screen/x DEO2 #004c .Screen/x DEO2
#0024 .Screen/y DEO2 #0024 .Screen/y DEO2
;dict/empty <draw-txt>
;dict/empty draw-txt POP2 POP2 BRK &>has-metadata
load-metadata ;metadata/body <pstr>
BRK #0a18 DEO
<draw-metadata>
&on-metadata ( -> )
load-metadata
;metadata/body pstr #0a18 DEO
draw-metadata
BRK BRK
( (
@|core ) @|core )
@has-metadata ( src* -- bool ) @has-metadata ( src* -- bool )
.File/name DEO2 .File/name DEO2
#0006 .File/length DEO2 #0006 .File/length DEO2
;metadata/header .File/read DEO2 ;metadata/header .File/read DEO2
;metadata/deo LDA2 #0637 EQU2 ;metadata/deo LDA2 #0637 EQU2 JMP2r
JMP2r
@load-metadata ( -- ) @load-metadata ( -- )
;metadata/start LDA2 #0100 SUB2 seek ;metadata/start LDA2 #0100 SUB2 seek
( | version )
( version )
#0001 .File/length DEO2 #0001 .File/length DEO2
;metadata/version .File/read DEO2 ;metadata/version .File/read DEO2
( | body )
( body )
LIT2r =metadata/body LIT2r =metadata/body
&s &s ( -- )
STH2kr STH2kr DUP2 .File/read DEO2
DUP2 .File/read DEO2
INC2r LDA ?&s INC2r LDA ?&s
POP2r POP2r
( | fields )
( fields ) ;metadata/fields DUP2 .File/read DEO2
;metadata/fields
DUP2 .File/read DEO2
LDAk #03 MUL #00 SWP .File/length DEO2 LDAk #03 MUL #00 SWP .File/length DEO2
INC2 .File/read DEO2 INC2 .File/read DEO2
JMP2r JMP2r
( (
@|drawing ) @|drawing )
@draw-metadata ( -- ) @<draw-metadata> ( -- )
#004c .Screen/x DEO2 #004c .Screen/x DEO2
#0012 .Screen/y DEO2 #0012 .Screen/y DEO2
;metadata/body draw-txt POP2 ;metadata/body <draw-txt>
( find picture ) POP2
;metadata/fields LDAk LITr 00 STH ( | find picture )
INC2 DUP2 STH2r ADD2 SWP2 ;metadata/fields LDAk LITr 00 STH INC2 DUP2 STH2r ADD2 SWP2
&l &l ( -- )
LDAk #83 NEQ ?&no-pict LDAk #83 NEQ ?&>no-pict
INC2k LDA2 #0100 SUB2 draw-icon INC2k LDA2 #0100 SUB2 <draw-icon> &>no-pict
&no-pict
INC2 GTH2k ?&l INC2 GTH2k ?&l
POP2 POP2 POP2 POP2 JMP2r
JMP2r @<draw-icon> ( location* -- )
seek #0090 .File/length DEO2
@draw-icon ( location* -- ) ;metadata/icon DUP2 .File/read DEO2
seek
#0090 .File/length DEO2
;metadata/icon
DUP2 .File/read DEO2
.Screen/addr DEO2 .Screen/addr DEO2
[ LIT2 26 -Screen/auto ] DEO [ LIT2 26 -Screen/auto ] DEO
#001c #001c DUP2 .Screen/x DEO2
DUP2 .Screen/x DEO2
.Screen/y DEO2 .Screen/y DEO2
[ LIT2 81 -Screen/sprite ] DEOk DEOk DEO [ LIT2 81 -Screen/sprite ] DEOk
DEOk
DEO
JMP2r JMP2r
@draw-txt ( txt* -- end* ) @<draw-txt> ( txt* -- end* )
[ LIT2 01 -Screen/auto ] DEO [ LIT2 01 -Screen/auto ] DEO
.Screen/x DEI2 ,&anchor STR2 .Screen/x DEI2 ,&anchor STR2
&w &w ( -- )
LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2 LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
[ LIT2 02 -Screen/sprite ] DEO [ LIT2 02 -Screen/sprite ] DEO
LDAk #0a NEQ ?&no-lb LDAk #0a NEQ ?&>no-lb
[ LIT2 &anchor $2 ] .Screen/x DEO2 [ LIT2 &anchor $2 ] .Screen/x DEO2
.Screen/y DEI2k #000c ADD2 ROT DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2 &>no-lb
&no-lb
INC2 LDAk ?&w INC2 LDAk ?&w
JMP2r JMP2r
( (
@|stdlib ) @|stdlib )
@seek ( length* -- ) @seek ( length* -- )
.File/name DEI2k ROT DEO2 .File/name DEI2k ROT DEO2
#0000 INC2k .File/length DEO2 #0000 INC2k .File/length DEO2
&l &l ( -- )
;&b .File/read DEO2 ;&b .File/read DEO2
INC2 GTH2k ?&l INC2 GTH2k ?&l
POP2 POP2 POP2 POP2 JMP2r
JMP2r
&b $1 &b $1
@scap ( str* -- end* ) LDAk ?&w [ JMP2r ] &w INC2 LDAk ?&w JMP2r @scap ( str* -- end* )
@sput ( chr str* -- ) scap STA JMP2r !&a
@skey ( key buf -- proc ) OVR #21 LTH ?&eval #00 SWP sput #00 JMP2r &eval POP2 #01 JMP2r &w ( -- )
@pstr ( str* -- ) &w LDAk #18 DEO INC2 LDAk ?&w POP2 JMP2r INC2 &a 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
( (
@|assets ) @|assets )
@dict @dict &input "Input(.tal): 20 $1
&input "Input(.tal): 20 $1
&empty "Metadata 20 "Missing $1 &empty "Metadata 20 "Missing $1
@appicon ( 3x3 ) [ @appicon ( 3x3 )
0000 3f20 2020 2020 ffff ffff ffff ffff 0000 ff18 0000 0000 ffff ffff ffff ffff [
0000 fc04 0404 0404 ffff ffff ffff ffff 2020 2030 3020 2020 ffff ffff ffff ffff 0000 3f20 2020 2020 ffff ffff ffff ffff
0000 0000 0000 0000 ffff ffff ffff ffff 0404 040c 0c04 0404 ffff ffff ffff ffff 0000 ff18 0000 0000 ffff ffff ffff ffff
2020 2020 203f 0000 ffff ffff ffff ffff 0000 0000 18ff 0000 ffff ffff ffff ffff 0000 fc04 0404 0404 ffff ffff ffff ffff
2020 2030 3020 2020 ffff ffff ffff ffff
0000 0000 0000 0000 ffff ffff ffff ffff
0404 040c 0c04 0404 ffff ffff ffff ffff
2020 2020 203f 0000 ffff ffff ffff ffff
0000 0000 18ff 0000 ffff ffff ffff ffff
0404 0404 04fc 0000 ffff ffff ffff ffff ] 0404 0404 04fc 0000 ffff ffff ffff ffff ]
@font ( atari8 ) [ @font ( atari8 )
[
0000 0000 0000 0000 6060 6060 6000 6000 0000 0000 0000 0000 6060 6060 6000 6000
6666 6600 0000 0000 006c fe6c 6cfe 6c00 6666 6600 0000 0000 006c fe6c 6cfe 6c00
183e 603c 067c 1800 0066 6c18 3066 4600 183e 603c 067c 1800 0066 6c18 3066 4600
@ -236,8 +218,10 @@ c060 3018 0c06 0300 3c0c 0c0c 0c0c 3c00
1818 1818 1818 1818 380c 0c06 0c0c 3800 1818 1818 1818 1818 380c 0c06 0c0c 3800
0000 60f2 9e0c 0000 3c42 9985 8599 423c ] 0000 60f2 9e0c 0000 3c42 9985 8599 423c ]
@metadata @metadata &header $1
&header $1 &start $3 &deo $2 &version $1 &start $3
&deo $2
&version $1
&body $100 &body $100
&fields $100 &fields $100
&icon $90 &icon $90