(m291) Skip backward
This commit is contained in:
parent
e765cf2396
commit
df47bec2ed
|
@ -83,9 +83,8 @@
|
||||||
( > ) [ LIT2 00 -playing ] LDZ EQU ?{ DUP2 #0098 LTH2 ?&player }
|
( > ) [ LIT2 00 -playing ] LDZ EQU ?{ DUP2 #0098 LTH2 ?&player }
|
||||||
( | on list )
|
( | on list )
|
||||||
<y-id>
|
<y-id>
|
||||||
.Mouse/state DEI DUP ?{ POP <select>
|
.Mouse/state DEI ?{ <select>
|
||||||
BRK }
|
BRK }
|
||||||
#01 GTH .selection/mod STZ
|
|
||||||
<pick>
|
<pick>
|
||||||
;on-mouse-locked .Mouse/vector DEO2
|
;on-mouse-locked .Mouse/vector DEO2
|
||||||
BRK
|
BRK
|
||||||
|
@ -119,7 +118,6 @@
|
||||||
( | key )
|
( | key )
|
||||||
.Controller/key DEI
|
.Controller/key DEI
|
||||||
( esc ) DUP #1b NEQ ?{ <escape> }
|
( esc ) DUP #1b NEQ ?{ <escape> }
|
||||||
( tab ) DUP #09 NEQ ?{ <toggle-misc> }
|
|
||||||
( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
|
( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
|
||||||
( space ) DUP #20 NEQ ?{ <send-pause> }
|
( space ) DUP #20 NEQ ?{ <send-pause> }
|
||||||
POP
|
POP
|
||||||
|
@ -164,9 +162,14 @@
|
||||||
@|controls )
|
@|controls )
|
||||||
|
|
||||||
@<skip-prev> ( -- )
|
@<skip-prev> ( -- )
|
||||||
|
.lines/tracks LDZ ?{ JMP2r }
|
||||||
|
.selection/track LDZ #01 SUB DUP #ff NEQ ?{
|
||||||
|
POP .lines/tracks LDZ #01 SUB }
|
||||||
|
!<pick>/tracks
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<skip-next> ( -- )
|
@<skip-next> ( -- )
|
||||||
|
.lines/tracks LDZ ?{ JMP2r }
|
||||||
.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
|
.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
|
||||||
|
|
||||||
@<seek> ( x* -- )
|
@<seek> ( x* -- )
|
||||||
|
@ -352,9 +355,6 @@
|
||||||
;path/null LDA ?<leave>
|
;path/null LDA ?<leave>
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<toggle-misc> ( -- )
|
|
||||||
[ LIT2 00 -misc ] LDZ EQU .misc STZ !fit-window
|
|
||||||
|
|
||||||
@count-lines ( -- lines )
|
@count-lines ( -- lines )
|
||||||
.lines/folders LDZ .lines/tracks LDZ ADD
|
.lines/folders LDZ .lines/tracks LDZ ADD
|
||||||
( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD }
|
( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD }
|
||||||
|
|
Loading…
Reference in New Issue