(meta) General improvements
This commit is contained in:
neauoire
parent
40fd28b1d8
commit
2c6e19ed2f
|
|
@ -19,35 +19,34 @@
|
|||
#0150 .Screen/width DEO2
|
||||
#0050 .Screen/height DEO2
|
||||
;await-src .Console/vector DEO2
|
||||
;dict/input <pstr>
|
||||
;dict/input <pstr-ln>
|
||||
BRK
|
||||
|
||||
@meta
|
||||
00
|
||||
( name ) "Meta 0a
|
||||
( details ) "A 20 "ROM 20 "metadata 20 "viewer 0a
|
||||
( details ) "A 20 "Metadata 20 "Viewer 0a
|
||||
( author ) "By 20 "Devine 20 "Lu 20 "Linvega 0a
|
||||
( date ) "Apr 20 "4, 20 "2023 00 01
|
||||
( date ) "17 20 "Nov 20 "2023 $1
|
||||
03
|
||||
( skip ) 00 abcd
|
||||
( skip ) 01 ef01
|
||||
( icon ) 83 =appicon
|
||||
|
||||
(
|
||||
@|vectors )
|
||||
|
||||
@await-src ( -> )
|
||||
.Console/read DEI .src skey ?on-ready
|
||||
BRK
|
||||
|
||||
@on-ready ( -> )
|
||||
;src DUP2 <pstr>
|
||||
#0a18 DEO
|
||||
has-metadata ?&>has-metadata
|
||||
.Console/read DEI .src skey ?{ BRK }
|
||||
;src has-metadata ?{
|
||||
#004c .Screen/x DEO2
|
||||
#0024 .Screen/y DEO2
|
||||
;dict/empty <draw-txt>
|
||||
POP2 BRK &>has-metadata
|
||||
load-metadata ;metadata/body <pstr>
|
||||
#0a18 DEO
|
||||
<draw-metadata>
|
||||
BRK }
|
||||
<load-metadata>
|
||||
;metadata/body DUP2
|
||||
( cli ) <pstr-ln>
|
||||
( gui ) <draw-metadata>
|
||||
BRK
|
||||
|
||||
(
|
||||
|
|
@ -59,8 +58,8 @@
|
|||
;metadata/header .File/read DEO2
|
||||
;metadata/deo LDA2 #0637 EQU2 JMP2r
|
||||
|
||||
@load-metadata ( -- )
|
||||
;metadata/start LDA2 #0100 SUB2 seek
|
||||
@<load-metadata> ( -- )
|
||||
;metadata/start LDA2 #0100 SUB2 <seek>
|
||||
( | version )
|
||||
#0001 .File/length DEO2
|
||||
;metadata/version .File/read DEO2
|
||||
|
|
@ -71,7 +70,7 @@
|
|||
INC2r LDA ?&s
|
||||
POP2r
|
||||
( | fields )
|
||||
;metadata/fields DUP2 .File/read DEO2
|
||||
;metadata/length DUP2 .File/read DEO2
|
||||
LDAk #03 MUL #00 SWP .File/length DEO2
|
||||
INC2 .File/read DEO2
|
||||
JMP2r
|
||||
|
|
@ -79,29 +78,30 @@
|
|||
(
|
||||
@|drawing )
|
||||
|
||||
@<draw-metadata> ( -- )
|
||||
@<draw-metadata> ( body* -- )
|
||||
#004c .Screen/x DEO2
|
||||
#0012 .Screen/y DEO2
|
||||
;metadata/body <draw-txt>
|
||||
POP2
|
||||
<draw-txt>
|
||||
( | find picture )
|
||||
;metadata/fields LDAk LITr 00 STH INC2 DUP2 STH2r ADD2 SWP2
|
||||
;metadata/length LDA #00
|
||||
&l ( -- )
|
||||
LDAk #83 NEQ ?&>no-pict
|
||||
INC2k LDA2 #0100 SUB2 <draw-icon> &>no-pict
|
||||
INC2 GTH2k ?&l
|
||||
POP2 POP2 JMP2r
|
||||
[ LIT2 09 18 ] DEO
|
||||
#00 OVR #03 MUL ;metadata/fields ADD2
|
||||
( icon ) LDAk #83 NEQ ?{ INC2k LDA2 <draw-icon> }
|
||||
( byte ) LDAk phex/b #2018 DEO
|
||||
( shorts ) INC2 LDA2 phex #0a18 DEO
|
||||
INC GTHk ?&l
|
||||
POP2 JMP2r
|
||||
|
||||
@<draw-icon> ( location* -- )
|
||||
seek #0090 .File/length DEO2
|
||||
#0100 SUB2 <seek>
|
||||
#0090 .File/length DEO2
|
||||
;metadata/icon DUP2 .File/read DEO2
|
||||
.Screen/addr DEO2
|
||||
[ LIT2 26 -Screen/auto ] DEO
|
||||
#001c DUP2 .Screen/x DEO2
|
||||
.Screen/y DEO2
|
||||
[ LIT2 81 -Screen/sprite ] DEOk
|
||||
DEOk
|
||||
DEO
|
||||
[ LIT2 81 -Screen/sprite ] DEOk DEOk DEO
|
||||
JMP2r
|
||||
|
||||
@<draw-txt> ( txt* -- end* )
|
||||
|
|
@ -110,16 +110,16 @@
|
|||
&w ( -- )
|
||||
LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
|
||||
[ LIT2 02 -Screen/sprite ] DEO
|
||||
LDAk #0a NEQ ?&>no-lb
|
||||
LDAk #0a NEQ ?{
|
||||
[ LIT2 &anchor $2 ] .Screen/x DEO2
|
||||
.Screen/y DEI2k #000c ADD2 ROT DEO2 &>no-lb
|
||||
.Screen/y DEI2k #000c ADD2 ROT DEO2 }
|
||||
INC2 LDAk ?&w
|
||||
JMP2r
|
||||
POP2 JMP2r
|
||||
|
||||
(
|
||||
@|stdlib )
|
||||
|
||||
@seek ( length* -- )
|
||||
@<seek> ( length* -- )
|
||||
.File/name DEI2k ROT DEO2
|
||||
#0000 INC2k .File/length DEO2
|
||||
&l ( -- )
|
||||
|
|
@ -129,13 +129,12 @@
|
|||
&b $1
|
||||
|
||||
@scap ( str* -- end* )
|
||||
!&a
|
||||
&w ( -- )
|
||||
INC2 &a LDAk ?&w
|
||||
INC2 & LDAk ?&w
|
||||
JMP2r
|
||||
|
||||
@sput ( chr str* -- )
|
||||
scap STA
|
||||
scap/ STA
|
||||
JMP2r
|
||||
|
||||
@skey ( key buf -- proc )
|
||||
|
|
@ -143,11 +142,20 @@
|
|||
#00 SWP sput #00 JMP2r
|
||||
&eval POP2 #01 JMP2r
|
||||
|
||||
@<pstr> ( str* -- )
|
||||
@phex ( short* -- )
|
||||
SWP phex/b
|
||||
&b ( -- )
|
||||
DUP #04 SFT phex/c
|
||||
&c ( -- )
|
||||
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
|
||||
JMP2r
|
||||
|
||||
@<pstr-ln> ( str* -- )
|
||||
&w ( -- )
|
||||
LDAk #18 DEO
|
||||
INC2 LDAk ?&w
|
||||
POP2 JMP2r
|
||||
POP2 #0a18 DEO
|
||||
JMP2r
|
||||
|
||||
(
|
||||
@|assets )
|
||||
|
|
@ -155,8 +163,7 @@
|
|||
@dict &input "Input(.tal): 20 $1
|
||||
&empty "Metadata 20 "Missing $1
|
||||
|
||||
@appicon ( 3x3 )
|
||||
[
|
||||
@appicon [
|
||||
0000 3f20 2020 2020 ffff ffff ffff ffff
|
||||
0000 ff18 0000 0000 ffff ffff ffff ffff
|
||||
0000 fc04 0404 0404 ffff ffff ffff ffff
|
||||
|
|
@ -167,8 +174,7 @@
|
|||
0000 0000 18ff 0000 ffff ffff ffff ffff
|
||||
0404 0404 04fc 0000 ffff ffff ffff ffff ]
|
||||
|
||||
@font ( atari8 )
|
||||
[
|
||||
@font [
|
||||
0000 0000 0000 0000 6060 6060 6000 6000
|
||||
6666 6600 0000 0000 006c fe6c 6cfe 6c00
|
||||
183e 603c 067c 1800 0066 6c18 3066 4600
|
||||
|
|
@ -223,6 +229,7 @@
|
|||
&deo $2
|
||||
&version $1
|
||||
&body $100
|
||||
&fields $100
|
||||
&length $1
|
||||
&fields $ff
|
||||
&icon $90
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue