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

(base64) Fixed issue where ends too early

This commit is contained in:
Devine Lu Linvega 2024-06-05 10:39:58 -08:00
parent 6177f80024
commit 183c2930eb
1 changed files with 14 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
cli/base64/b64enc.tal
View File

@ -1,25 +1,21 @@
( uxncli b64enc.rom data )
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|0000
|000
@queue $1
|0100
|100
@on-reset ( -> )
;on-console .Console/vector DEO2
BRK
@on-console ( -> )
.Console/read DEI DUP ?{
&terminate ( -> )
.queue LDZ EQU ?{ #00 <b64enc> }
#800f DEO
BRK }
<b64enc>
.Console/type DEI #04 EQU ?&terminate
.Console/type DEI #04 EQU ?{ .Console/read DEI <b64enc>
BRK }
.queue LDZ EQU ?{ #00 <b64enc> }
#800f DEO
BRK
(
@ -28,21 +24,17 @@
@<b64enc> ( byte -- )
,&buf STR
#0800
&l ( -- )
&>l ( -- )
[ 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
( ) [ 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 }
INC GTHk ?&l
[ LIT2 00 -queue ] DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO
STZ }
INC GTHk ?&>l
POP2 JMP2r
@MIME [
"ABCDEFGHIJKLMNOP
"QRSTUVWXYZabcdef
"ghijklmnopqrstuv
"wxyz0123456789+/ ]
"ABCDEFGHIJKLMNOP "QRSTUVWXYZabcdef
"ghijklmnopqrstuv "wxyz0123456789+/ ]