32 lines
733 B
Tal
32 lines
733 B
Tal
( a blank file )
|
|
|
|
%RTN { JMP2r }
|
|
( devices )
|
|
|
|
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|
|
|10 @Console [ &vector $2 &read $1 &pad $5 &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 ]
|
|
|
|
|0000
|
|
|
|
$8
|
|
@p $2
|
|
|
|
|0100 ( -> )
|
|
#cf00 .System/r DEO2
|
|
#6f90 .System/g DEO2
|
|
#ff20 .System/b DEO2
|
|
#0028 .Screen/width DEO2
|
|
#0018 .Screen/height DEO2
|
|
;draw .Screen/vector DEO2
|
|
BRK
|
|
|
|
@draw
|
|
.p LDZ2 DUP2 .Screen/x DEO2
|
|
#0008 .Screen/y DEO2
|
|
#06 .Screen/sprite DEO
|
|
#0010 .Screen/y DEO2
|
|
#08 .Screen/sprite DEO
|
|
#0001 ADD2 .p STZ2
|
|
BRK
|