fix bug with sorting zero elements

This commit is contained in:
~d6 2024-08-29 21:20:33 -04:00
parent 7a7fb38dda
commit a41af01ae2
1 changed files with 2 additions and 0 deletions

View File

@ -388,9 +388,11 @@
&done NIP2 LTH POP2r JMP2r
@sort-folders ( -- )
.lines/folders LDZ ?{ JMP2r }
;mem/folders DUP2 LIT2 [ 00 -lines/folders ] LDZ #01 SUB #70 SFT2 ADD2 !sort-tracks-0
@sort-tracks ( -- )
.lines/tracks LDZ ?{ JMP2r }
;mem/tracks DUP2 LIT2 [ 00 -lines/tracks ] LDZ #01 SUB #70 SFT2 ADD2
( >> )