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 ( >> )