1 files changed, 14 insertions(+), 18 deletions(-)

M src/cccc.tal

@@ 183,7 183,7 @@ BRK
 
 @on-touch-modpad ( x/3 y -> )
 
-	#03 DIV SWP #06 SUB #20 SFT SWP ADD
+	#03 DIV SWP #06 SUB #20 SFT ADD
 	#00 SWP DUP ADD ;modpad ADD2
 		LDA2 JSR2
 


@@ 216,9 216,9 @@ JMP2r
 	.input LDZ2 #0001 ;push JSR2
 	#0000 .input STZ2
 	;update-input JSR2
-	;draw-display JSR2
+	;draw-display ( .. )
 
-JMP2r
+JMP2
 
 @append ( val -- )
 


@@ 263,25 263,25 @@ JMP2
 	.mode/dec LDZk INC #01 AND SWP STZ
 	.mode/dot LDZk .mode/dec LDZ #00 EQU ADD #01 AND SWP STZ
 	;draw-display JSR2
-	;draw-mode JSR2
+	;draw-mode ( .. )
 
-JMP2r
+JMP2
 
 @set-dec ( -- )
 
 	#01 .mode/dec STZ
 	;draw-display JSR2
-	;draw-mode JSR2
+	;draw-mode ( .. )
 
-JMP2r
+JMP2
 
 @set-hex ( -- )
 
 	#00 .mode/dec STZ
 	;draw-display JSR2
-	;draw-mode JSR2
+	;draw-mode ( .. )
 
-JMP2r
+JMP2
 
 @set-sel ( x y -- )
 


@@ 294,9 294,9 @@ JMP2r
 	#07 AND .cursor/dx STZ
 
 	( draw new sel )
-	#81 ;draw-sel JSR2
+	#81 ;draw-sel ( .. )
 
-JMP2r
+JMP2
 
 @press-sel ( -- )
 


@@ 592,6 592,7 @@ JMP2r
 	#08 ;buttons/mod ;draw-pad JSR2
 	#04 ;buttons/wst ;draw-pad JSR2
 	#10 ;buttons/num ;draw-pad JSR2
+	;draw-mode JSR2
 	;draw-display JSR2
 	;update-input JSR2
 


@@ 913,18 914,13 @@ JMP2r
 
 JMP2r
 
-
 @draw-dot ( -- )
 
-	;dot-icns ,draw-type JSR
-
-JMP2r
+	;dot-icns ,draw-type JMP
 
 @draw-quote ( -- )
 
-	;quote-icns ,draw-type JSR
-
-JMP2r
+	;quote-icns ,draw-type JMP
 
 @draw-slash ( -- )