2 files changed, 9 insertions(+), 9 deletions(-)

M src/assets.tal
M src/main.tal

@@ 2,15 2,15 @@
 
 @untitled-txt  "untitled.orca $1
 
-@lc-notes
+@char-notes
+	( lc )
 	00 00 00 00 00 00 00 00
 	00 00
 	0a 0c 01 03 05 06 08 0a
 	0c 0d 0f 11 12 14 16 18
 	19 1b 1d 1e 20 22 24 25
 	27 29
-
-@uc-notes
+	( uc )
 	00 00 00 00 00 00 00 00
 	00 00
 	09 0b 00 02 04 05 07 09


@@ 49,7 49,8 @@
 	09 ( 6 selected )
 	0c ( 7 io )
 
-@cursor-icn     80c0 e0f0 f8e0 1000
+@cursor-icn
+	80c0 e0f0 f8e0 1000
 
 @font ( orca.816 )
 	0000 0000 0000 0000 0000 0000 0000 0000

@@ 26,7 26,7 @@
 
 %GET-CHAR  { #24 MOD #00 SWP ;b36clc ++ LDA } ( b36 -- char )
 %GET-VALUE { #20 - #00 SWP ;values ++ LDA } ( char -- b36 )
-%GET-NOTE  { DUP GET-VALUE SWP IS-UC #24 * + TOS ;lc-notes ++ LDA } ( char -- midi )
+%GET-NOTE  { DUP GET-VALUE SWP IS-UC #24 * + TOS ;char-notes ++ LDA } ( char -- midi )
 %GET-CELL  { DATA-CELLS ++ LDA } ( cell* -- type )
 %SET-CELL  { DATA-CELLS ++ STA } ( type cell* -- )
 %GET-LOCK  { DATA-LOCKS ++ LDA } ( cell* -- type )


@@ 743,7 743,7 @@ RTN
 		&hor
 			DUP .head/x STZ
 			STH2kr .head/addr STZ2
-			,get-char JSR ,get-color JSR ;draw-char JSR2
+			STH2kr ,get-char JSR ,get-color JSR ;draw-char JSR2
 			INC2r
 			INC GTHk ,&hor JCN
 		POP2


@@ 764,9 764,9 @@ RTN
 
 RTN
 
-@get-char ( -- char )
+@get-char ( addr* -- char )
 
-	.head/addr LDZ2 GET-CELL
+	GET-CELL
 	DUP CHAR-DOT ! ,&no-bar JCN
 		POP .head LDZ2
 		DUP2 8MOD SWP 10MOD #0000 == ,&cross JCN


@@ 979,7 979,6 @@ RTN
 		( linebreak ) ;&lb .File/write DEO2
 		INC GTHk ,&ver JCN
 	POP2
-	;draw-grid JSR2
 
 RTN
 	&lb 0a