d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(m291) Skip long lines

This commit is contained in:
Devine Lu Linvega 2024-08-28 09:06:46 -07:00
parent d8b6bdc91c
commit da9f55f354
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gui/m291/src/m291.tal
View File

@ -58,7 +58,7 @@
( name ) "m291 0a
( desc ) "Audio 20 "Player 0a
( auth ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
( date ) "27 20 "Aug 20 "2024 $2
( date ) "28 20 "Aug 20 "2024 $2
(
@|vectors )
@ -236,11 +236,11 @@
&tracks ( id -- )
.selection/scroll LDZ ADD DUP .selection/track STZ
#00 SWP
( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
&folder ( id -- )
#00 SWP
( CELLSIZE ) #70 SFT2 ;mem/folders ADD2
( CELLSIZE ) #60 SFT2 ;mem/folders ADD2
( > ) [ LIT2 00 -selection ] STZ
( > ) [ LIT2 00 -selection/scroll ] STZ
path/<push> !<refresh-dir>
@ -364,14 +364,16 @@
POP2 JMP2r
&folder ( line* -- )
DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
;mem/folders [ LIT2 00 -lines/folders ] LDZ
( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/folders LDZ INC .lines/folders STZ
JMP2r
&mp3 ( line* -- )
DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
.lines/tracks LDZ INC .lines/tracks STZ
JMP2r
@ -500,7 +502,7 @@
( | normal )
#0008 .Screen/x DEO2
#00 OVR .selection/scroll LDZ ADD
( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2 JMP2r
@ -725,7 +727,7 @@
( | normal )
#0008 .Screen/x DEO2
#00 OVR
( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2 JMP2r
@ -807,6 +809,9 @@
INC2r INC2 LDAk ?&>w
POP2 POP2r JMP2r
@llen ( str* -- length* )
DUP2 lcap/ SWP2 SUB2 JMP2r
@lcap ( str* -- next-line* )
LDAk #0a EQU ?{ INC2 & LDAk ?lcap }
JMP2r
@ -896,7 +901,6 @@
&load-cmd "load 20 $1
&jump-cmd "jump 20 $1
&pause-cmd "pause 0a $1
&no-title "Unknown 20 "Title $1
&no-artist "Unknown 20 "Artist $1
&no-album "Unknown 20 "Album $1