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

(m291) Extended buffer sizes

This commit is contained in:
Devine Lu Linvega 2024-08-28 19:33:01 -07:00
parent 9f69c95646
commit 4a32bdd2c1
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,8 +212,7 @@
;dict/pause-cmd <pstr> !<draw-play>
@<move> ( mod -- )
.selection LDZ ADD INCk ?{
POP count-lines #01 SUB !<select> }
.selection LDZ ADD
( | follow )
DUP .lines/folders LDZ SUB
( up ) DUP #80 LTH ?{
@ -240,11 +239,11 @@
&tracks ( id -- )
.selection/scroll LDZ ADD DUP .selection/track STZ
#00 SWP
( CELLSIZE ) #60 SFT2 ;mem/tracks ADD2 !<send-load>
( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 !<send-load>
&folder ( id -- )
#00 SWP
( CELLSIZE ) #60 SFT2 ;mem/folders ADD2
( CELLSIZE ) #70 SFT2 ;mem/folders ADD2
( > ) [ LIT2 00 -selection ] STZ
( > ) [ LIT2 00 -selection/scroll ] STZ
path/<push> !<refresh-dir>
@ -370,14 +369,15 @@
&folder ( line* -- )
DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
;mem/folders [ LIT2 00 -lines/folders ] LDZ
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
.lines/folders LDZ INC .lines/folders STZ
JMP2r
&mp3 ( line* -- )
DUP2 llen #003f LTH2 ?{ POP2 JMP2r }
DUP2 llen
( CELLSIZE ) #007f LTH2 ?{ POP2 JMP2r }
;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
( CELLSIZE ) #60 SFT2 ADD2 <lcpy>
( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
.lines/tracks LDZ INC .lines/tracks STZ
JMP2r
@ -510,7 +510,7 @@
( | normal )
#0008 .Screen/x DEO2
#00 OVR .selection/scroll LDZ ADD
( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2 JMP2r
@ -735,7 +735,7 @@
( | normal )
#0008 .Screen/x DEO2
#00 OVR
( CELLSIZE ) #60 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
( CELLSIZE ) #70 SFT2 [ LIT2 &t $2 ] ADD2 STHr <draw-uf2>
.Screen/y DEI2k #0010 ADD2 ROT DEO2
INC GTHk ?&>l
POP2 JMP2r