uxn-utils/cli/base64/b64enc.tal

( uxncli b64enc.rom data )

|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|000

	@queue $1

|100

@on-reset ( -> )
	;on-console .Console/vector DEO2
	BRK

@on-console ( -> )
	.Console/type DEI #04 EQU ?{ .Console/read DEI <b64enc>
		BRK }
	.queue LDZ EQU ?{ #00 <b64enc> }
	#800f DEO
	BRK

(
@|core )

@<b64enc> ( byte -- )
	,&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 -- ) 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
	POP2 JMP2r

@MIME [
	"ABCDEFGHIJKLMNOP "QRSTUVWXYZabcdef
	"ghijklmnopqrstuv "wxyz0123456789+/ ]
(base64) Fixed leak 2023-09-05 22:04:25 -04:00			`( uxncli b64enc.rom data )`
base64 encoder 2023-05-24 12:46:15 -04:00
(base64) Added usage 2023-09-05 18:51:10 -04:00			`\|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`\|000`
base64 encoder 2023-05-24 12:46:15 -04:00
Housekeeping 2023-06-20 00:26:57 -04:00			`@queue $1`

(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`\|100`
Housekeeping 2023-06-20 00:26:57 -04:00
			`@on-reset ( -> )`
Stream characters from io instead of file 2023-09-05 19:38:16 -04:00			`;on-console .Console/vector DEO2`
Housekeeping 2023-06-20 00:26:57 -04:00			`BRK`
base64 encoder 2023-05-24 12:46:15 -04:00
Stream characters from io instead of file 2023-09-05 19:38:16 -04:00			`@on-console ( -> )`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`.Console/type DEI #04 EQU ?{ .Console/read DEI <b64enc>`
			`BRK }`
			`.queue LDZ EQU ?{ #00 <b64enc> }`
			`#800f DEO`
(base64) Housekeeping 2023-09-05 18:44:49 -04:00			`BRK`
base64 encoder 2023-05-24 12:46:15 -04:00
Housekeeping 2023-05-24 12:59:55 -04:00			`(`
			`@\|core )`
base64 encoder 2023-05-24 12:46:15 -04:00
Stream characters from io instead of file 2023-09-05 19:38:16 -04:00			`@<b64enc> ( byte -- )`
Renamed var 2023-05-24 13:06:34 -04:00			`,&buf STR`
base64 encoder 2023-05-24 12:46:15 -04:00			`#0800`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`&>l ( -- )`
(base64) Fixed leak 2023-09-05 22:04:25 -04:00			`[ LIT &buf $1 ] OVR #07 SWP SUB SFT #01 AND`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`( ) [ LIT &inc $1 ] INCk #06 DIVk MUL SUB ,&inc STR`
			`( bit id -- ) SWP .queue LDZ ORA DUP ADD .queue STZ`
(base64) Housekeeping 2023-09-05 18:44:49 -04:00			`#05 NEQ ?{`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`[ LIT2 00 -queue ] DUP2 LDZ #01 SFT ;MIME ADD2 LDA #18 DEO`
			`STZ }`
			`INC GTHk ?&>l`
Housekeeping 2023-06-20 00:26:57 -04:00			`POP2 JMP2r`
base64 encoder 2023-05-24 12:46:15 -04:00
(base64) Housekeeping 2023-09-05 18:44:49 -04:00			`@MIME [`
(base64) Fixed issue where ends too early 2024-06-05 14:39:58 -04:00			`"ABCDEFGHIJKLMNOP "QRSTUVWXYZabcdef`
			`"ghijklmnopqrstuv "wxyz0123456789+/ ]`
base64 encoder 2023-05-24 12:46:15 -04:00