mirror of https://git.sr.ht/~rabbits/uxn
Ported devw/devr changes to uxn.c
This commit is contained in:
parent
b88d2adc3d
commit
266152e260
|
@ -33,6 +33,7 @@
|
|||
|
||||
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ]
|
||||
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
|
||||
|30 @Audio0 [ &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 ]
|
||||
|
||||
|
@ -87,7 +88,7 @@ BRK
|
|||
BANK2 STH2k GET-SIZE ++ STH2r
|
||||
&clear-loop
|
||||
DUP2 #0000 SWP2 STA2
|
||||
#0002 ++ GTH2k ,&clear-loop JCN
|
||||
INC2 INC2 GTH2k ,&clear-loop JCN
|
||||
POP2 POP2
|
||||
|
||||
( run grid )
|
||||
|
@ -112,8 +113,7 @@ BRK
|
|||
©-loop
|
||||
DUP2 LDA2k
|
||||
SWP2 #2000 -- STA2
|
||||
#0002 ++
|
||||
GTH2k ,©-loop JCN
|
||||
INC2 INC2 GTH2k ,©-loop JCN
|
||||
POP2 POP2
|
||||
|
||||
;draw-grid JSR2
|
||||
|
|
|
@ -99,9 +99,9 @@ BRK
|
|||
&loop
|
||||
.adsr-view/x2 LDZ2 #003a -- .Screen/x DEO2
|
||||
#10 OVR - .Audio0/output DEI #0f AND < .Screen/pixel DEO
|
||||
.adsr-view/x2 LDZ2 #003a -- #0002 ++ .Screen/x DEO2
|
||||
.adsr-view/x2 LDZ2 #003a -- INC2 INC2 .Screen/x DEO2
|
||||
#10 OVR - .Audio0/output DEI #04 SFT < .Screen/pixel DEO
|
||||
.Screen/y DEI2 #0002 ++ .Screen/y DEO2
|
||||
.Screen/y DEI2 INC2 INC2 .Screen/y DEO2
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ static Uint16 (*pop8)(Stack *s);
|
|||
static Uint16 (*pop)(Stack *s);
|
||||
static void (*poke)(Uint8 *m, Uint16 a, Uint16 b);
|
||||
static Uint16 (*peek)(Uint8 *m, Uint16 a);
|
||||
static void (*devw)(Device *d, Uint8 a, Uint16 b);
|
||||
static int (*devw)(Device *d, Uint8 a, Uint16 b);
|
||||
static Uint16 (*devr)(Device *d, Uint8 a);
|
||||
static void (*warp)(Uxn *u, Uint16 a);
|
||||
static void (*pull)(Uxn *u);
|
||||
|
|
Loading…
Reference in New Issue