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