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

(m291) Clip allocation to buffer sizes

This commit is contained in:
Devine Lu Linvega 2024-08-28 19:36:51 -07:00
parent 4a32bdd2c1
commit 02b3b0e48c
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -369,6 +369,8 @@
&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
( | max folders = 3000 / 80 = 60 )
DUP #60 LTH ?{ POP POP2 JMP2r }
( CELLSIZE ) #70 SFT2 ADD2 <lcpy> ( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
.lines/folders LDZ INC .lines/folders STZ .lines/folders LDZ INC .lines/folders STZ
JMP2r JMP2r
@ -377,6 +379,8 @@
DUP2 llen DUP2 llen
( CELLSIZE ) #007f LTH2 ?{ POP2 JMP2r } ( CELLSIZE ) #007f LTH2 ?{ POP2 JMP2r }
;mem/tracks [ LIT2 00 -lines/tracks ] LDZ ;mem/tracks [ LIT2 00 -lines/tracks ] LDZ
( | max tracks = 80 )
DUP #80 LTH ?{ POP JMP2r }
( CELLSIZE ) #70 SFT2 ADD2 <lcpy> ( CELLSIZE ) #70 SFT2 ADD2 <lcpy>
.lines/tracks LDZ INC .lines/tracks STZ .lines/tracks LDZ INC .lines/tracks STZ
JMP2r JMP2r