diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index 2883eeb..1090d2a 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -190,9 +190,9 @@ .selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !/tracks @ ( x* -- ) - ;dict/jump-cmd - .frames/a LDZ2 .frames/b LDZ2 ADD2 #00e7 DIV2 - ( At least 1 ) DUP2 #0000 EQU2 #00 SWP ADD2 MUL2 + pos-to-seconds DUP2 #00e7 LTH2 #00 SWP ADD2 ;dict/jump-cmd + + LIT2 "s 18 DEO #0a18 DEO JMP2r @@ -387,6 +387,10 @@ @is-mp3 ( line* -- line*f ) DUP2 lcap/ #0003 SUB2 ;dict/mp3-ext !scmp3 +@pos-to-seconds ( pos* -- seconds* ) + .secfrom LDZ2 .secto LDZ2 ADD2 #00e7 DIV2k STH2k MUL2 SUB2 OVR2 STH2 + MUL2r MUL2 #00e7 DIV2 STH2r ADD2 JMP2r + @calc-width ( total* curr* -- width* ) STH2 DUP2 #011b LTH2 ?{