@@ 45,7 45,7 @@
;untrap JSR2
( set size )
- #0230 .Screen/width DEO2
+ #0240 .Screen/width DEO2
#0188 .Screen/height DEO2
( frame )
@@ 63,7 63,7 @@
( tile frame )
.byte-frame/x2 LDZ2 #0008 ADD2
- DUP2 .tile-frame/x STZ2 #000f ADD2 .tile-frame/x2 STZ2
+ DUP2 .tile-frame/x STZ2 #001f ADD2 .tile-frame/x2 STZ2
.byte-frame/y LDZ2 .tile-frame/y STZ2
.byte-frame/y2 LDZ2 .tile-frame/y2 STZ2
@@ 343,10 343,10 @@ BRK
POP2 POP2 BRK
&continue
- ( row ) NIP2 .tile-frame/y LDZ2 SUB2 #34 SFT2
+ ( row ) NIP2 .tile-frame/y LDZ2 SUB2 #44 SFT2
.selection/key LDZ2 ADD2
DUP2 .selection/from STZ2
- #0007 ADD2 ;select-until JSR2
+ #000f ADD2 ;select-until JSR2
BRK
@@ 572,9 572,9 @@ JMP
.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
+ .selection/from LDZ2 ;data SUB2 #01 ;draw-short ( .. )
-JMP2r
+JMP2
@draw-spacer ( -- )
@@ 623,6 623,11 @@ JMP2
INC GTHk ,&bytes-loop JCN
POP2
+ .tile-frame/x LDZ2 .Screen/y DEI2 ;&row LDA2 #01
+ ;draw-tile JSR2
+ .tile-frame/x LDZ2 #0010 ADD2 .Screen/y DEI2 #0010 SUB2 ;&row LDA2 #0008 ADD2 #01
+ ;draw-tile JSR2
+
.char-frame/x LDZ2 .Screen/x DEO2
#1000
@@ 634,12 639,7 @@ JMP2
INC GTHk ,&chars-loop JCN
POP2
- .tile-frame/x LDZ2
- .Screen/y DEI2
- ;&row LDA2 #01
- ;draw-tile ( .. )
-
-JMP2
+JMP2r
&y $2 &row $2
@get-byte-color ( id* )