flag drawer now 67 bytes
This commit is contained in:
parent
2a2a83f688
commit
1bdbed1b6b
|
@ -1,10 +1,4 @@
|
|||
( 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
|
||||
|
@ -17,7 +11,6 @@
|
|||
#0018 .Screen/height DEO2
|
||||
;draw .Screen/vector DEO2
|
||||
#0000
|
||||
BRK
|
||||
|
||||
@draw
|
||||
DUP2 .Screen/x DEO2
|
||||
|
@ -26,4 +19,4 @@ BRK
|
|||
#0010 .Screen/y DEO2
|
||||
#08 .Screen/sprite DEO
|
||||
#0001 ADD2
|
||||
BRK
|
||||
|
||||
|
|
Loading…
Reference in New Issue