2 files changed, 33 insertions(+), 19 deletions(-)

M build.sh
R src/{nasu.tal => main.tal}

@@ 5,7 5,7 @@ rm -rf bin
 mkdir bin
 
 echo "Assembling.."
-uxnasm src/nasu.tal bin/nasu.rom 
+uxnasm src/main.tal bin/nasu.rom 
 
 echo "Installing.."
 if [ -d "$HOME/roms" ] && [ -e ./bin/nasu.rom ]

@@ 78,7 78,6 @@
 
 @state
 	&timer $1
-	&trap $1
 	&blink $1
 	&changed $1
 @settings


@@ 101,7 100,7 @@
 	@color $1
 
 @rect  [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
-( interface )
+( interface ) 
 @toolview  [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
 @colorview [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]
 @blendview [ &x1 $2 &y1 $2 &x2 $2 &y2 $2 ]


@@ 138,7 137,7 @@
 	.Screen/width DEI2 #01 SFT2 .frame/width LDZ2 #01 SFT2 --
 	.Screen/height DEI2 #01 SFT2 .frame/height LDZ2 #01 SFT2 --
 	.frame/width LDZ2 .frame/height LDZ2
-	SIZE-TO-RECT ;frame SET-RECT
+		SIZE-TO-RECT ;frame SET-RECT
 
 	.frame/x1 LDZ2 .frame/y1 LDZ2 #0030 ++ HOR TOS #0008 ** VER TOS #0008 ** SIZE-TO-RECT ;tileview SET-RECT
 	.tileview/x1 LDZ2 .tileview/y2 LDZ2 #0008 ++ HOR TOS #0008 ** #0008 SIZE-TO-RECT ;toolview SET-RECT


@@ 155,16 154,18 @@
 BRK
 
 @on-frame ( -> )
-	
-	.state/trap LDZ #00 ! #01 JCN [ BRK ]
+	( inactive )
+BRK
+
+@on-frame-trap ( -> )
 
 	( incr ) .state/timer LDZ #01 + DUP .state/timer STZ 
 
 	#08 ! ,&no-toggle JCN
 		.state/blink TOGGLE
-		#03 .state/blink LDZ #09 * + ;draw-filepath JSR2
+		#01 .state/blink LDZ #08 * + ;draw-filepath JSR2
 		#00 .state/timer STZ 
-	&no-toggle
+		&no-toggle
 	
 BRK
 


@@ 178,7 179,6 @@ BRK
 	
 	.Controller/key DEI .Controller/button DEI #0000 !! #01 JCN [ BRK ]
 
-	.Controller/key DEI #00 ! .state/trap LDZ #0101 == ;on-button-trap JCN2
 	.Controller/button DEI #01 AND ;on-control JCN2
 
 	.Controller/key DEI 


@@ 234,10 234,21 @@ BRK
 	DUP ( ctrl+o ) #6f ! ,&no-open JCN
 		;load-file JSR2
 		;redraw JSR2 POP BRK &no-open
-	DUP ( ctrl+r ) #72 ! ,&no-name JCN
-		.state/trap TOGGLE
-		#00 .state/blink STZ 
-		#03 ;draw-filepath JSR2 POP BRK &no-name
+	DUP [ LIT 'r ] ! ,&no-name JCN
+		#00 ;draw-filepath JSR2 
+		;on-frame-trap .Screen/vector DEO2
+		;on-button-trap .Controller/vector DEO2
+		POP BRK
+		&no-name
+	DUP [ LIT 'R ] ! ,&no-rename JCN
+		#00 ;draw-filepath JSR2 
+		#00 .Controller/key DEO
+		#00 .path/length STZ
+		#0000 .path/name STZ2
+		;on-frame-trap .Screen/vector DEO2
+		;on-button-trap .Controller/vector DEO2
+		POP BRK
+		&no-rename
 	DUP ( ctrl+s ) #73 ! ,&no-save JCN
 		;save-file JSR2 
 		;draw-state JSR2 POP BRK  &no-save


@@ 250,7 261,7 @@ BRK
 BRK
 
 @on-button-trap ( -> )
-	
+
 	.Controller/key DEI
 	DUP ,&continue JCN
 		POP BRK


@@ 263,14 274,16 @@ BRK
 		#01 ;draw-filepath JSR2 POP BRK
 		&no-edit-backspace
 	DUP ( special ) #20 > ,&no-edit-enter JCN
-		#00 .state/trap STZ
+		;on-frame .Screen/vector DEO2
+		;on-button .Controller/vector DEO2
+		#00 .state/blink STZ 
 		#01 ;draw-filepath JSR2 POP BRK
 		&no-edit-enter
 	( clamp ) .path/length LDZ #1f = ,&edit-end JCN
 	DUP .path/name .path/length LDZ STHk + STZ
 	STHr #01 + STHk .path/length STZ
 	#00 .path/name STHr + STZ
-	#03 ;draw-filepath JSR2
+	#01 ;draw-filepath JSR2
 	&edit-end
 	POP
 


@@ 376,9 389,10 @@ BRK
 		;draw-toolview JSR2
 		&no-zoom
 	DUP #07 > OVR HOR SWP - #05 > #0101 !! ,&no-rename JCN
-		.state/trap TOGGLE
-		#00 .state/blink STZ 
-		#03 ;draw-filepath JSR2
+		#00 ;draw-filepath JSR2 
+		;on-frame-trap .Screen/vector DEO2
+		;on-button-trap .Controller/vector DEO2
+		BRK
 		&no-rename
 	DUP #01 + .settings/color LDZ ! ,&no-eraser JCN
 		#00 .settings/color STZ