@@ 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 )