Added usage field
This commit is contained in:
parent
7ec46a0494
commit
624cf1f826
|
@ -1,7 +1,7 @@
|
|||
( A little program to see a rom's metadata )
|
||||
|
||||
|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|
||||
|10 @Console &vector $2 &read $1 &pad $5 &write $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
|
||||
|b0 @File &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2
|
||||
|
||||
|
@ -18,8 +18,10 @@
|
|||
#a70f .System/b DEO2
|
||||
#0150 .Screen/width DEO2
|
||||
#0050 .Screen/height DEO2
|
||||
.Console/type DEI #03 AND ?{
|
||||
;dict/usage <perr>/
|
||||
#010f DEO }
|
||||
;await-src .Console/vector DEO2
|
||||
;dict/input <pstr-ln>
|
||||
BRK
|
||||
|
||||
@meta
|
||||
|
@ -159,10 +161,16 @@
|
|||
POP2 #0a18 DEO
|
||||
JMP2r
|
||||
|
||||
@<perr> ( str* -- )
|
||||
&w ( -- )
|
||||
LDAk #19 DEO
|
||||
INC2 & LDAk ?&w
|
||||
POP2 JMP2r
|
||||
|
||||
(
|
||||
@|assets )
|
||||
|
||||
@dict &input "Input(.tal): 20 $1
|
||||
@dict &usage "usage: 20 "meta.rom 20 "game.rom 0a $1
|
||||
&empty "Metadata 20 "Missing $1
|
||||
|
||||
@appicon [
|
||||
|
|
Loading…
Reference in New Issue