From a41af01ae20f5edb1202a7662084b5d05e1733c3 Mon Sep 17 00:00:00 2001 From: d_m Date: Thu, 29 Aug 2024 21:20:33 -0400 Subject: [PATCH] fix bug with sorting zero elements --- gui/m291/src/m291.tal | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index bdef5b0..7b5c484 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -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 ( >> )