~rabbits/left

e3764fe321c32c5ebcb38336dfcbbb1274c80a55 — Devine Lu Linvega 25 days ago 17aea1f
Faster theme load
1 files changed, 9 insertions(+), 8 deletions(-)

M src/manifest.tal
M src/manifest.tal => src/manifest.tal +9 -8
@@ 328,13 328,14 @@ JMP2r

	;&path .File/name DEO2
	#0002 .File/length DEO2
	;&r .File/read DEO2
	;&g .File/read DEO2
	;&b .File/read DEO2
	.File/success DEI2 ORA #01 [ JCN JMP2r ]
	[ LIT2 &r $2 ] .System/r DEO2
	[ LIT2 &g $2 ] .System/g DEO2
	[ LIT2 &b $2 ] .System/b DEO2
	[ LIT2 -System/debug -System/r ]
	&loop
		;&buf .File/read DEO2
		.File/success DEI2 ORA ?&end
			POP2 JMP2r &end
		DUP [ LIT2 &buf $2 ] ROT DEO2
		INC INC NEQk ?&loop
	POP2

JMP2r
	&path ".theme $1


@@ 349,7 350,7 @@ JMP2r
@scat ( src* dst* -- ) scap
@scpy ( src* dst* -- ) STH2 &w LDAk STH2kr STA INC2r INC2 LDAk ?&w POP2 #00 STH2r STA JMP2r
@mclr ( src* len* -- ) OVR2 ADD2 SWP2 &l STH2k #00 STH2r STA INC2 GTH2k ?&l POP2 POP2 JMP2r
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c JSR &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
@exit ( -- ) #010f DEO JMP2r

( assets )