diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index 203e90a..4d8c824 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -337,7 +337,6 @@ &tracks ( id -- ) DUP .selection/track STZ - [ LIT2 ff -selection ] STZ #00 SWP ( CELLSIZE ) #70 SFT2 ;mem/tracks ADD2 ! @@ -346,15 +345,9 @@ ( CELLSIZE ) #70 SFT2 ;mem/folders ADD2 ! @ ( folder* -- ) - .selection/mod LDZ ?&special + [ LIT2 00 -selection ] STZ push-path ! - &special ( folder* -- ) - ;path - / - #0a18 DEO - JMP2r - @ ( -- ) pop-path ! @@ -637,7 +630,7 @@ [ LIT2 15 -Screen/auto ] DEO #0000 .Screen/x DEO2 ;poke-icn .Screen/addr DEO2 - [ LIT2 05 -Screen/sprite ] DEO } + STHkr .Screen/sprite DEO } ( | normal ) #0008 .Screen/x DEO2 #00 OVR