fix bug with sorting zero elements
This commit is contained in:
parent
7a7fb38dda
commit
a41af01ae2
|
@ -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
|
||||
( >> )
|
||||
|
||||
|
|
Loading…
Reference in New Issue