highlight entire row in cartridge select

This commit is contained in:
Iris Lightshard 2021-10-08 15:49:55 -06:00
parent 88b6eb83de
commit b000fd83c5
Signed by: Iris Lightshard
GPG key ID: 3B7FBC22144E6398

View file

@ -412,6 +412,24 @@ RTN
RTN RTN
@finish-line ( -> )
;get-entry-color JSR2 #02 EQU ,&end JCN
&while
.Screen/x DEI2
.Screen/width DEI2 #0040 SUB2
EQU2 ,&end JCN
#0c .Screen/sprite DEO
INC-X
,&while JMP &end
RTN
@render-cart-list ( -> ) @render-cart-list ( -> )
#0040 .Screen/x DEO2 #0040 .Screen/x DEO2
@ -440,10 +458,11 @@ RTN
.Screen/x DEI2 .Screen/x DEI2
.Screen/y DEI2 .Screen/y DEI2
;get-entry-color JSR2 ] ;draw-string JSR2 ;get-entry-color JSR2 ] ;draw-string JSR2
;finish-line JSR2
#0040 .Screen/x DEO2 #0040 .Screen/x DEO2
INC-Y
&no-draw &no-draw
.list-offset LDZ INC .list-offset STZ .list-offset LDZ INC .list-offset STZ
INC-Y
#20 #00 &word_clr EQUk ,&end-clr JCN #20 #00 &word_clr EQUk ,&end-clr JCN
#00 OVR SWP DUP ROT ;word ADD2 STA #00 OVR SWP DUP ROT ;word ADD2 STA