update varvara file device, update to version 0.4
This commit is contained in:
parent
6864b143f2
commit
31756bc2c9
3 changed files with 27 additions and 25 deletions
|
@ -17,7 +17,7 @@
|
|||
#include "realm.h"
|
||||
#include "user.h"
|
||||
|
||||
char version[] = "0.3";
|
||||
char version[] = "0.4";
|
||||
|
||||
int chatty9p = 0;
|
||||
|
||||
|
|
|
@ -29,8 +29,9 @@
|
|||
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|a0 @File0 [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|b0 @File1 [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|
@ -79,10 +80,10 @@
|
|||
#ff .btn-state STZ
|
||||
GET-USABLE-HEIGHT .list-height STZ
|
||||
|
||||
;carts-file .File/name DEO2
|
||||
#2000 .File/length DEO2
|
||||
;list-buf .File/read DEO2
|
||||
.File/success DEI2 .list-len STZ2
|
||||
;carts-file .File0/name DEO2
|
||||
#2000 .File0/length DEO2
|
||||
;list-buf .File0/read DEO2
|
||||
.File0/success DEI2 .list-len STZ2
|
||||
|
||||
CENTER-X .logo-coords/x STZ2
|
||||
CENTER-Y .logo-coords/y STZ2
|
||||
|
@ -851,7 +852,7 @@ RTN
|
|||
it's not expecting.
|
||||
)
|
||||
|
||||
.File/name DEO2
|
||||
.File0/name DEO2
|
||||
|
||||
( clear wst )
|
||||
#ab
|
||||
|
@ -916,9 +917,9 @@ RTN
|
|||
OVR2 #f6fe ( arguments for STZ2 at fd and JMP (repeat) )
|
||||
OVR2 #f401 ( arguments for STZ2 at fd, plus an extra 01 )
|
||||
STHkr ( first argument for ADD2 )
|
||||
.File/success ( argument for DEI2 )
|
||||
#0100 .File/read ( arguments for DEO2 )
|
||||
#ff00 .File/length DEO2
|
||||
.File0/success ( argument for DEI2 )
|
||||
#0100 .File0/read ( arguments for DEO2 )
|
||||
#ff00 .File0/length DEO2
|
||||
#00f0 JMP2
|
||||
|
||||
&zero-page-loader
|
||||
|
|
|
@ -29,8 +29,9 @@
|
|||
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|
||||
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|
||||
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|
||||
|a0 @File [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|a0 @File0 [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|b0 @File1 [ &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 ]
|
||||
|c0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
|
||||
|
||||
( variables )
|
||||
|
||||
|
@ -79,10 +80,10 @@
|
|||
#ff .btn-state STZ
|
||||
GET-USABLE-HEIGHT .list-height STZ
|
||||
|
||||
;carts-file .File/name DEO2
|
||||
#2000 .File/length DEO2
|
||||
;list-buf .File/read DEO2
|
||||
.File/success DEI2 .list-len STZ2
|
||||
;carts-file .File0/name DEO2
|
||||
#2000 .File0/length DEO2
|
||||
;list-buf .File0/read DEO2
|
||||
.File0/success DEI2 .list-len STZ2
|
||||
|
||||
CENTER-X .logo-coords/x STZ2
|
||||
CENTER-Y .logo-coords/y STZ2
|
||||
|
@ -824,10 +825,10 @@ RTN
|
|||
.state LDZ INC .state STZ
|
||||
|
||||
( send it! )
|
||||
#0020 .File/length DEO2
|
||||
#01 .File/append DEO2
|
||||
;ctl-file .File/name DEO2
|
||||
;load-cmd .File/write DEO2
|
||||
#0020 .File0/length DEO2
|
||||
#01 .File0/append DEO2
|
||||
;ctl-file .File0/name DEO2
|
||||
;load-cmd .File0/write DEO2
|
||||
|
||||
;slot-file ;load-rom JSR2
|
||||
RTN
|
||||
|
@ -844,7 +845,7 @@ RTN
|
|||
it's not expecting.
|
||||
)
|
||||
|
||||
.File/name DEO2
|
||||
.File0/name DEO2
|
||||
|
||||
( clear wst )
|
||||
#ab
|
||||
|
@ -909,9 +910,9 @@ RTN
|
|||
OVR2 #f6fe ( arguments for STZ2 at fd and JMP (repeat) )
|
||||
OVR2 #f401 ( arguments for STZ2 at fd, plus an extra 01 )
|
||||
STHkr ( first argument for ADD2 )
|
||||
.File/success ( argument for DEI2 )
|
||||
#0100 .File/read ( arguments for DEO2 )
|
||||
#ff00 .File/length DEO2
|
||||
.File0/success ( argument for DEI2 )
|
||||
#0100 .File0/read ( arguments for DEO2 )
|
||||
#ff00 .File0/length DEO2
|
||||
#00f0 JMP2
|
||||
|
||||
&zero-page-loader
|
||||
|
|
Loading…
Reference in a new issue