@@ 75,7 75,7 @@
( char frame )
.asm-frame/x2 LDZ2 #0008 ADD2
- DUP2 .char-frame/x STZ2 #003f ADD2 .char-frame/x2 STZ2
+ DUP2 .char-frame/x STZ2 #007f ADD2 .char-frame/x2 STZ2
.byte-frame/y LDZ2 .char-frame/y STZ2
.byte-frame/y2 LDZ2 .char-frame/y2 STZ2
@@ 313,7 313,7 @@ BRK
@on-touch-char ( x* y* -> )
( stash addr* )
- .char-frame/y LDZ2 SUB2 #34 SFT2 NIP STH
+ .char-frame/y LDZ2 SUB2 #44 SFT2 NIP STH
.char-frame/x LDZ2 SUB2 #03 SFT2 NIP STHr ADD
#00 SWP .selection/key LDZ2 ADD2
STH2
@@ 581,10 581,19 @@ JMP2
@redraw ( -- )
;draw-options JSR2
+ ;draw-position JSR2
,draw-table ( .. )
JMP
+@draw-position ( -- )
+
+ .options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
+ .options-frame/y LDZ2 .Screen/y DEO2
+ .selection/from LDZ2 ;data SUB2 #01 ;draw-short JSR2
+
+JMP2r
+
@draw-spacer ( -- )
#01 .Screen/auto DEO
@@ 601,7 610,6 @@ JMP2r
@draw-table ( -- )
- .selection/key LDZ2 ;print JSR2 #0a18 DEO
.frame/rows LDZ2 #0000
&loop
( addr ) DUP2 #40 SFT2 .selection/key LDZ2 ADD2 STH2
@@ 783,7 791,7 @@ JMP2r
@draw-filepath ( color -- )
- .options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
+ .options-frame/x LDZ2 #0050 ADD2 .Screen/x DEO2
.options-frame/y LDZ2 .Screen/y DEO2
;filepath ( scroll )
DUP2 ;slen JSR2 #0014 GTH2k STH
@@ 834,6 842,12 @@ JMP2
JMP2r
+@draw-short ( short* color -- )
+
+ STH
+ SWP STHkr ,draw-byte JSR
+ STHr
+
@draw-byte ( byte color -- )
STH