1 files changed, 37 insertions(+), 13 deletions(-)

M nasu.usm

@@ 137,16 137,7 @@
 	.frame/x1 LDZ2 #0090 ++ .frame/y1 LDZ2 #0020 #0028 SIZE-TO-RECT ;zoomview SET-RECT
 	.frame/x1 LDZ2 #00c0 ++ .frame/y1 LDZ2 #0048 #0020 SIZE-TO-RECT ;dataview SET-RECT
 
-	( copy default name )
-	#00 #0c
-	&loop
-		OVR DUP TOS ;filename-txt ++ LDA
-		SWP .path/name + STZ
-		INCR
-		LTHk ,&loop JCN
-	.path/length STZ POP 
-
-	;load-file JSR2
+	;untitled-txt ;new-file JSR2
 	;redraw JSR2
 
 BRK


@@ 318,8 309,12 @@ BRK
 		&no-save
 	DUP HOR SWP - #02 ! ,&no-load JCN
 		;load-file JSR2
+		;redraw JSR22
 		&no-load
 	DUP HOR SWP - #03 ! ,&no-name JCN
+		#20 ;draw-filepath JSR2
+		;blank-txt ;new-file JSR2
+		;redraw JSR2
 		&no-name
 	DUP #09 > OVR HOR SWP - #04 > #0101 !! ,&no-rename JCN
 		.state/trap TOGGLE


@@ 453,6 448,17 @@ BRK
 
 ( operations )
 
+@op-clear ( addr* length* -- )
+	
+	OVR2 ++
+	&loop
+		OVR2 #00 ROT ROT STA
+		INCR2
+		NEQ2k ,&loop JCN
+	POP2 POP2
+
+RTN
+
 @op-shift-memory-left ( addr* -- )
 
 	DUP2 LENGTH ++


@@ 949,15 955,32 @@ RTN
 
 RTN
 
-@load-file ( name* -- )
+@new-file ( default* -- )
+	
+	BANK LENGTH ;op-clear JSR2
+	STH2
+	#00 #0c
+	&loop
+		OVR DUP TOS STH2kr ++ LDA
+		SWP .path/name + STZ
+		INCR
+		LTHk ,&loop JCN
+	.path/length STZ POP 
+	POP2r
+	;load-file JSR2
+
+RTN
+
+@load-file ( -- )
 
+	BANK LENGTH ;op-clear JSR2
 	;path/name .File/name DEO2 
 	#2000 .File/length DEO2 
 	BANK .File/load DEO2
 
 RTN
 
-@save-file ( name* -- )
+@save-file ( -- )
 
 	;path/name .File/name DEO2 
 	#2000 .File/length DEO2 


@@ 996,7 1019,8 @@ RTN
 @save-icn      fe82 8282 848a f400 
 @load-icn      feaa d6aa d4aa f400 
 
-@filename-txt  "untitled.chr $1
+@untitled-txt  "untitled.chr $1
+@blank-txt     "blank.chr $1
 
 @slider-icns
 	f0f0 f0f0 f0f0 f000 ( full )