(m291) Progress
This commit is contained in:
Devine Lu Linvega
parent
b2b1b9259e
commit
26c7323d92
|
|
@ -1,24 +1,23 @@
|
|||
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
||||
|00
|
||||
|
||||
@System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|
||||
|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
|
||||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
|
||||
|80 @Controller &vector $2 &button $1 &key $1
|
||||
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1 &pad $4 &scrolly &scrolly-hb $1 &scrolly-lb $1
|
||||
|a0 @File &vector $2 &success $1 &success-lb $1 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||||
|0000 @misc $1
|
||||
|
||||
|0000
|
||||
@selection $1 &mod $1
|
||||
|
||||
@misc $1
|
||||
@selection $1 &mod $1
|
||||
@path $2 &null $80
|
||||
@lines &folders $1 &roms $1 &misc $1
|
||||
@path $2 &null $80
|
||||
|
||||
|0100
|
||||
|
||||
@on-reset ( -> )
|
||||
@lines &folders $1 &roms $1 &misc $1
|
||||
|0100 @on-reset ( -> )
|
||||
;meta #06 DEO2
|
||||
#d20f .System/r DEO2
|
||||
#d24f .System/g DEO2
|
||||
#d204 .System/b DEO2
|
||||
#e1ff .System/r DEO2
|
||||
#e1ff .System/g DEO2
|
||||
#e1f4 .System/b DEO2
|
||||
<load-theme>
|
||||
#0100 .Screen/width DEO2
|
||||
;dict/home-path set-path <refresh-dir>
|
||||
|
|
@ -55,8 +54,9 @@
|
|||
( | below )
|
||||
DUP count-lines LTH ?{ POP #ff JMP2r }
|
||||
JMP2r
|
||||
|
||||
&outside ( y* -- id )
|
||||
POP2 #ff JMP2r
|
||||
POP2 #ff JMP2r
|
||||
|
||||
@on-control ( -> )
|
||||
( | mod )
|
||||
|
|
@ -88,8 +88,8 @@
|
|||
( | parse )
|
||||
;mem/dir
|
||||
&w ( -- )
|
||||
DUP2 <parse-line>
|
||||
lcap/ INC2 LDAk ?&w
|
||||
DUP2 <parse-line>
|
||||
lcap/ INC2 LDAk ?&w
|
||||
POP2
|
||||
( >> )
|
||||
|
||||
|
|
@ -97,8 +97,7 @@
|
|||
#00 count-lines
|
||||
( empty ) DUP #00 EQU ADD #40 SFT2
|
||||
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
|
||||
( padding ) #0016 ADD2 .Screen/height DEO2
|
||||
!<redraw>
|
||||
( padding ) #0020 ADD2 .Screen/height DEO2 !<redraw>
|
||||
|
||||
@<parse-line> ( line* -- )
|
||||
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
|
||||
|
|
@ -107,16 +106,19 @@
|
|||
;mem/misc [ LIT2 00 -lines/misc ] LDZ #40 SFT2 ADD2 <lcpy>
|
||||
.lines/misc LDZ INC .lines/misc STZ
|
||||
JMP2r
|
||||
|
||||
&folder ( line* -- )
|
||||
;mem/folders [ LIT2 00 -lines/folders ] LDZ #40 SFT2 ADD2 <lcpy>
|
||||
.lines/folders LDZ INC .lines/folders STZ
|
||||
JMP2r
|
||||
;mem/folders [ LIT2 00 -lines/folders ] LDZ #40 SFT2 ADD2 <lcpy>
|
||||
.lines/folders LDZ INC .lines/folders STZ
|
||||
JMP2r
|
||||
|
||||
&rom ( line* -- )
|
||||
;mem/roms [ LIT2 00 -lines/roms ] LDZ #40 SFT2 ADD2 <lcpy>
|
||||
.lines/roms LDZ INC .lines/roms STZ
|
||||
JMP2r
|
||||
;mem/roms [ LIT2 00 -lines/roms ] LDZ #40 SFT2 ADD2 <lcpy>
|
||||
.lines/roms LDZ INC .lines/roms STZ
|
||||
JMP2r
|
||||
|
||||
&hidden ( line* -- )
|
||||
POP2 JMP2r
|
||||
POP2 JMP2r
|
||||
|
||||
@<move> ( mod -- )
|
||||
.selection LDZ ADD INCk ?{
|
||||
|
|
@ -127,34 +129,36 @@
|
|||
@<select> ( id -- )
|
||||
[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
|
||||
POP DUP ,&last STR
|
||||
.selection STZ
|
||||
!<redraw>
|
||||
.selection STZ !<redraw>
|
||||
|
||||
@<pick> ( alt id -- )
|
||||
DUP .lines/folders LDZ LTH ?&folder
|
||||
.lines/folders LDZ SUB DUP .lines/roms LDZ LTH ?&roms
|
||||
.lines/roms LDZ SUB DUP .lines/misc LDZ LTH ?&misc
|
||||
POP JMP2r
|
||||
|
||||
&roms ( id -- )
|
||||
#00 SWP #40 SFT2 ;mem/roms ADD2 !<send-path>
|
||||
#00 SWP #40 SFT2 ;mem/roms ADD2 !<send-path>
|
||||
|
||||
&misc ( id -- )
|
||||
#00 SWP #40 SFT2 ;mem/misc ADD2 !<send-file>
|
||||
#00 SWP #40 SFT2 ;mem/misc ADD2 !<send-file>
|
||||
|
||||
&folder ( id -- )
|
||||
#00 SWP #40 SFT2 ;mem/folders ADD2 !<enter>
|
||||
#00 SWP #40 SFT2 ;mem/folders ADD2 !<enter>
|
||||
|
||||
@<send-path> ( file* -- )
|
||||
.selection/mod LDZ ?&special
|
||||
[ LIT2 ff -Console/type ] DEO
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
!<exit>
|
||||
#0a18 DEO !<exit>
|
||||
|
||||
&special ( file* -- )
|
||||
[ LIT2 01 -Console/type ] DEO
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
[ LIT2 01 -Console/type ] DEO
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
|
||||
@<send-file> ( file* -- )
|
||||
[ LIT2 01 -Console/type ] DEO
|
||||
|
|
@ -164,24 +168,26 @@
|
|||
STH2r .File/name DEO2
|
||||
#0001 .File/length DEO2
|
||||
&s ( -- )
|
||||
;&b .File/read DEO2
|
||||
[ LIT2 &b $1 18 ] DEO
|
||||
.File/success-lb DEI ?&s
|
||||
;&b .File/read DEO2
|
||||
[ LIT2 &b $1 18 ] DEO
|
||||
.File/success-lb DEI ?&s
|
||||
JMP2r
|
||||
|
||||
&special ( file* -- )
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
|
||||
@<enter> ( folder* -- )
|
||||
.selection/mod LDZ ?&special
|
||||
push-path !<refresh-dir>
|
||||
|
||||
&special ( folder* -- )
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
;path <pstr>
|
||||
<pstr>/
|
||||
#0a18 DEO
|
||||
JMP2r
|
||||
|
||||
@<leave> ( -- )
|
||||
pop-path !<refresh-dir>
|
||||
|
|
@ -195,8 +201,7 @@
|
|||
JMP2r
|
||||
|
||||
@<toggle-misc> ( -- )
|
||||
[ LIT2 00 -misc ] LDZ EQU .misc STZ
|
||||
!fit-window
|
||||
[ LIT2 00 -misc ] LDZ EQU .misc STZ !fit-window
|
||||
|
||||
@count-lines ( -- lines )
|
||||
.lines/folders LDZ .lines/roms LDZ ADD
|
||||
|
|
@ -211,7 +216,7 @@
|
|||
AND JMP2r
|
||||
|
||||
@get-cat ( id -- color )
|
||||
INC .lines/folders LDZ GTHk ?{ POP2 #03 JMP2r }
|
||||
INC .lines/folders LDZ GTHk ?{ POP2 #02 JMP2r }
|
||||
SUB .lines/roms LDZ GTH ?{ #02 JMP2r }
|
||||
#01 JMP2r
|
||||
|
||||
|
|
@ -233,12 +238,12 @@
|
|||
@pop-path ( -- )
|
||||
;path scap/ #0001 SUB2
|
||||
&w ( -- )
|
||||
;path/null LDA ?{ POP2 JMP2r }
|
||||
#0001 SUB2 LDAk [ LIT "/ ] NEQ ?{
|
||||
LITr 00 STH2
|
||||
INC2r STAr
|
||||
JMP2r }
|
||||
!&w
|
||||
;path/null LDA ?{ POP2 JMP2r }
|
||||
#0001 SUB2 LDAk [ LIT "/ ] NEQ ?{
|
||||
LITr 00 STH2
|
||||
INC2r STAr
|
||||
JMP2r }
|
||||
!&w
|
||||
|
||||
(
|
||||
@|drawing )
|
||||
|
|
@ -248,27 +253,36 @@
|
|||
#0000 DUP2 .Screen/x DEO2
|
||||
.Screen/y DEO2
|
||||
[ LIT2 80 -Screen/pixel ] DEO
|
||||
( | status )
|
||||
#0008 .Screen/x DEO2
|
||||
#0004 .Screen/y DEO2
|
||||
;path #01 <draw-uf2>
|
||||
( | spacer )
|
||||
#0014 .Screen/y DEO2
|
||||
;line-icn <draw-spacer>
|
||||
( | highlight )
|
||||
.selection LDZ <draw-highlight>
|
||||
( | content )
|
||||
#0004 .Screen/y DEO2
|
||||
#001c .Screen/y DEO2
|
||||
( | empty )
|
||||
count-lines ?{
|
||||
#0008 .Screen/x DEO2
|
||||
;dict/empty #0f !<draw-uf2> }
|
||||
( | folders )
|
||||
;mem/folders .lines/folders LDZ #05 <draw-list>
|
||||
[ LIT2 00 -lines/folders ] LDZ EQU ?{ <draw-spacer> }
|
||||
;mem/roms .lines/roms LDZ #05 <draw-list>
|
||||
;mem/folders .lines/folders LDZ #01 <draw-list>
|
||||
[ LIT2 00 -lines/folders ] LDZ EQU ?{ ;dash-icn <draw-spacer> }
|
||||
;mem/roms .lines/roms LDZ #00 <draw-list>
|
||||
[ LIT2 00 -misc ] LDZ EQU ?{
|
||||
;mem/misc .lines/misc LDZ #0f <draw-list> }
|
||||
;mem/misc .lines/misc LDZ #00 <draw-list> }
|
||||
JMP2r
|
||||
|
||||
@<draw-spacer> ( -- )
|
||||
@<draw-spacer> ( addr* -- )
|
||||
#0000 .Screen/x DEO2
|
||||
;dash-icn .Screen/addr DEO2
|
||||
.Screen/addr DEO2
|
||||
[ LIT2 f2 -Screen/auto ] DEO
|
||||
[ LIT2 05 -Screen/sprite ] DEO
|
||||
[ LIT2 05 -Screen/sprite ] DEOk #0080 .Screen/x DEO2
|
||||
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
|
||||
DEO
|
||||
JMP2r
|
||||
|
||||
@<draw-highlight> ( id -- )
|
||||
|
|
@ -281,33 +295,47 @@
|
|||
( | spacer )
|
||||
has-spacer #00 EQU ?{
|
||||
#00 STHkr INC .lines/folders LDZ GTH #30 SFT2 ADD2 }
|
||||
( padding ) #0003 ADD2 .Screen/y DEO2
|
||||
STHr get-cat .Screen/sprite DEOk DEO
|
||||
( padding ) #0013 ADD2 .Screen/y DEO2
|
||||
STHr get-cat .Screen/sprite DEOk DEOk
|
||||
( | right-side )
|
||||
.Screen/x DEI2 #0080 ADD2 .Screen/x DEO2
|
||||
.Screen/y DEI2 #0010 SUB2 .Screen/y DEO2
|
||||
DEOk DEO
|
||||
JMP2r
|
||||
|
||||
@<draw-list> ( addr* length color -- )
|
||||
,&color STR
|
||||
@<draw-list> ( addr* length folder -- )
|
||||
,&folder STR
|
||||
DUP ?{ POP2 POP JMP2r }
|
||||
#0008 .Screen/x DEO2
|
||||
#00 SWP2 ,&t STR2
|
||||
&l ( -- )
|
||||
#00 OVR #40 SFT2 [ LIT2 &t $2 ] ADD2 [ LIT &color $1 ] <draw-uf2>
|
||||
&>l ( -- )
|
||||
#00 OVR #40 SFT2 [ LIT2 &t $2 ] ADD2 #05 <draw-uf2>
|
||||
#0008 .Screen/x DEO2
|
||||
.Screen/y DEI2k #0010 ADD2 ROT DEO2
|
||||
INC GTHk ?&l
|
||||
POP2 JMP2r
|
||||
INC GTHk ?&>l
|
||||
POP2
|
||||
( | draw cursor marker )
|
||||
[ LIT &folder $1 ] ?{ JMP2r }
|
||||
JMP2r
|
||||
[ LIT2 15 -Screen/auto ] DEO
|
||||
;fill-icn .Screen/addr DEO2
|
||||
.Screen/width DEI2 #0010 SUB2 .Screen/x DEO2
|
||||
.Screen/y DEI2k #0020 SUB2 ROT DEO2
|
||||
#05 .Screen/sprite DEO
|
||||
.Screen/y DEI2k #0010 ADD2 ROT DEO2
|
||||
JMP2r
|
||||
|
||||
@<draw-uf2> ( addr* color -- )
|
||||
,&color STR
|
||||
[ LIT2 15 -Screen/auto ] DEO
|
||||
&w ( -- )
|
||||
&>w ( -- )
|
||||
LDAk #1f GTH ?{ POP2 JMP2r }
|
||||
LDAk #20 SUB #00 SWP
|
||||
( ) DUP2 #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
|
||||
( ) ;font ADD2 LDA #00 SWP .Screen/x DEI2 ADD2
|
||||
( ) [ LIT &color 05 ] .Screen/sprite DEOk DEO
|
||||
.Screen/x DEO2
|
||||
INC2 !&w
|
||||
INC2 !&>w
|
||||
|
||||
@<update-cursor> ( color addr* -- )
|
||||
[ LIT2 00 -Screen/auto ] DEO
|
||||
|
|
@ -327,8 +355,9 @@
|
|||
@|stdlib )
|
||||
|
||||
@scap ( str* -- end* )
|
||||
|
||||
&w ( -- )
|
||||
INC2 & LDAk ?&w
|
||||
INC2 & LDAk ?&w
|
||||
JMP2r
|
||||
|
||||
@scmp3 ( a* b* -- f )
|
||||
|
|
@ -337,31 +366,32 @@
|
|||
LDA2r LDA2 STH2r EQU2 JMP2r
|
||||
|
||||
@lcap ( str* -- next-line* )
|
||||
|
||||
&w ( -- )
|
||||
LDAk #0a EQU ?{
|
||||
INC2 & LDAk ?&w }
|
||||
LDAk #0a EQU ?{ INC2 & LDAk ?&w }
|
||||
JMP2r
|
||||
|
||||
@<lcpy> ( src* dst* -- )
|
||||
STH2
|
||||
&w ( -- )
|
||||
LDAk #1f GTH ?{
|
||||
POP2 #00 STH2r STA
|
||||
JMP2r }
|
||||
LDAk #00 STH2kr STA2
|
||||
INC2r INC2 !&w
|
||||
LDAk #1f GTH ?{
|
||||
POP2 #00 STH2r STA
|
||||
JMP2r }
|
||||
LDAk #00 STH2kr STA2
|
||||
INC2r INC2 !&w
|
||||
|
||||
@<scpy> ( src* dst* -- )
|
||||
STH2
|
||||
&w ( -- )
|
||||
LDAk #00 STH2kr STA2
|
||||
INC2r INC2 LDAk ?&w
|
||||
LDAk #00 STH2kr STA2
|
||||
INC2r INC2 LDAk ?&w
|
||||
POP2 POP2r JMP2r
|
||||
|
||||
@<pstr> ( str* -- )
|
||||
|
||||
&w ( -- )
|
||||
LDAk #18 DEO
|
||||
INC2 & LDAk ?&w
|
||||
LDAk #18 DEO
|
||||
INC2 & LDAk ?&w
|
||||
POP2 JMP2r
|
||||
|
||||
(
|
||||
|
|
@ -372,11 +402,12 @@
|
|||
#0002 .File/length DEO2
|
||||
[ LIT2 -System/debug -System/r ]
|
||||
&l ( -- )
|
||||
;&buf .File/read DEO2
|
||||
[ LIT2 00 -File/success-lb ] DEI EQU ?{
|
||||
[ LIT2r &buf $2 ] STHk DEO2r
|
||||
INC INC NEQk ?&l }
|
||||
;&buf .File/read DEO2
|
||||
[ LIT2 00 -File/success-lb ] DEI EQU ?{
|
||||
[ LIT2r &buf $2 ] STHk DEO2r
|
||||
INC INC NEQk ?&l }
|
||||
POP2 JMP2r
|
||||
|
||||
&path ".theme $1
|
||||
|
||||
(
|
||||
|
|
@ -388,7 +419,12 @@
|
|||
|
||||
@dash-icn [ 0000 00aa 0000 0000 ]
|
||||
|
||||
@dict &home-path "./ $1
|
||||
@line-icn [ 0000 00ff 0000 0000 ]
|
||||
|
||||
@marker-icn
|
||||
|
||||
@dict
|
||||
&home-path "./ $1
|
||||
&mp3-ext "mp3 $1
|
||||
&empty "(empty) $1
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue