highlight entire row in cartridge select
This commit is contained in:
parent
88b6eb83de
commit
b000fd83c5
1 changed files with 20 additions and 1 deletions
|
@ -412,6 +412,24 @@ 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 ( -> )
|
||||
|
||||
#0040 .Screen/x DEO2
|
||||
|
@ -440,10 +458,11 @@ RTN
|
|||
.Screen/x DEI2
|
||||
.Screen/y DEI2
|
||||
;get-entry-color JSR2 ] ;draw-string JSR2
|
||||
;finish-line JSR2
|
||||
#0040 .Screen/x DEO2
|
||||
INC-Y
|
||||
&no-draw
|
||||
.list-offset LDZ INC .list-offset STZ
|
||||
INC-Y
|
||||
|
||||
#20 #00 &word_clr EQUk ,&end-clr JCN
|
||||
#00 OVR SWP DUP ROT ;word ADD2 STA
|
||||
|
|
Loading…
Reference in a new issue