M build.sh => build.sh +1 -1
@@ 27,4 27,4 @@ then
fi
echo "Running.."
-uxnemu bin/nasu.rom ako10x10.chr
+uxnemu bin/nasu.rom cibo10x10.icn # ako10x10.chr
M src/manifest.tal => src/manifest.tal +2 -1
@@ 3,10 3,11 @@
&name "Nasu $1
&date "2022-06-28 $1
&menu
- 05 "File $1
+ 06 "File $1
01 'n :file-new "New $1
01 'r :file-rename "Rename $1
01 'o :file-open "Open $1
+ 02 'o :file-open-mono "OpenMono $1
01 's :file-save "Save $1
01 'p :save-theme "SaveTheme $1
04 "Edit $1
M src/nasu.tal => src/nasu.tal +17 -0
@@ 1066,6 1066,23 @@ JMP2r
JMP2r
+@file-open-mono ( -- )
+
+ ( clear )
+ ;spritesheet #1200 ;mclr JSR2
+ ( spritesheet )
+ ;filepath .File/name DEO2
+ #0008 .File/length DEO2
+ #0000
+ &loop
+ #00 OVR #40 SFT2 ;spritesheet ADD2 .File/read DEO2
+ INC NEQk ,&loop JCN
+ POP2
+ #00 .state/changed STZ ;draw-state JSR2
+ ;redraw JSR2
+
+JMP2r
+
@file-save ( -- )
( spritesheet )