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

(base64) Fixed leak

This commit is contained in:
neauoire 2023-09-05 19:04:25 -07:00
parent 1a03280a93
commit f05d7c43c2
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cli/base64/b64enc.tal
View File

@ -1,4 +1,4 @@
( uxncli b64enc.rom "string" )
( uxncli b64enc.rom data )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
@ -15,7 +15,7 @@
@on-console ( -> )
.Console/read DEI DUP ?{
&terminate ( -> )
.queue LDZ #00 EQU ?{ #00 <b64enc> }
.queue LDZ EQU ?{ #00 <b64enc> }
#800f DEO
BRK }
<b64enc>
@ -29,20 +29,20 @@
,&buf STR
#0800
&l ( -- )
( ) [ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
( ) [ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
( | bit id -- )
[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND
[ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR
( bit id -- )
SWP .queue LDZ ORA DUP ADD .queue STZ
#05 NEQ ?{
[ LIT2 00 -queue ]
( ) DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
( ) STZ }
DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
STZ }
INC GTHk ?&l
POP2 JMP2r
@MIME [
"ABCDEFGHIJKLMNOP
"QRSTUVWXYZabcdef
"ghijklmnopqrstuv
"QRSTUVWXYZabcdef
"ghijklmnopqrstuv
"wxyz0123456789+/ ]