diff --git a/gui/m291/src/assets.tal b/gui/m291/src/assets.tal index cf9917f..daac776 100644 --- a/gui/m291/src/assets.tal +++ b/gui/m291/src/assets.tal @@ -55,6 +55,8 @@ @line-icn [ 0000 00ff 0000 0000 ] +@check-icn [ aa55 aa55 aa55 aa55 aa55 aa55 aa55 aa55 ] + @font [ 0406 070a 070b 0a03 0505 0707 0407 0407 0808 0808 0808 0808 0808 0404 0608 0608 diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index 286f512..4be4ebc 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -270,19 +270,19 @@ is-folder ?&folder is-mp3 ?&mp3 ;mem/misc [ LIT2 00 -lines/misc ] LDZ - ( CELLSIZE ) #60 SFT2 ADD2 + ( CELLSIZE ) #70 SFT2 ADD2 .lines/misc LDZ INC .lines/misc STZ JMP2r &folder ( line* -- ) ;mem/folders [ LIT2 00 -lines/folders ] LDZ - ( CELLSIZE ) #60 SFT2 ADD2 + ( CELLSIZE ) #70 SFT2 ADD2 .lines/folders LDZ INC .lines/folders STZ JMP2r &mp3 ( line* -- ) ;mem/tracks [ LIT2 00 -lines/tracks ] LDZ - ( CELLSIZE ) #60 SFT2 ADD2 + ( CELLSIZE ) #70 SFT2 ADD2 .lines/tracks LDZ INC .lines/tracks STZ JMP2r @@ -310,15 +310,15 @@ &tracks ( id -- ) DUP .selection/track STZ #00 SWP - ( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 ! + ( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 ! &misc ( id -- ) #00 SWP - ( CELLSIZE ) #60 SFT2 ;mem/misc ADD2 ! + ( CELLSIZE ) #70 SFT2 ;mem/misc ADD2 ! &folder ( id -- ) #00 SWP - ( CELLSIZE ) #60 SFT2 ;mem/folders ADD2 ! + ( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 ! @ ( file* -- ) ( | start ID3 ) @@ -644,7 +644,7 @@ ( | normal ) #0008 .Screen/x DEO2 #00 OVR - ( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr + ( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr .Screen/y DEI2k #0010 ADD2 ROT DEO2 INC GTHk ?&>l POP2 JMP2r @@ -671,11 +671,20 @@ ,/color STR [ LIT2 15 -Screen/auto ] DEO &>w ( -- ) - LDAk #1f GTH ?{ POP2 JMP2r } LDAk - INC2 !&>w + next-glyph LDAk ?&>w + POP2 JMP2r + +@next-glyph ( addr* -- addr* ) + INC2 LDAk + ( utf8 ) #06 SFT #02 EQU ?next-glyph + JMP2r @ ( char -- ) + DUP #7f LTH ?{ + POP ;check-icn .Screen/addr DEO2 + ,&color LDR .Screen/sprite DEO + JMP2r } #20 SUB #00 SWP ( ) DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2 ( ) ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2