day2.tal (893B)
1 |00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2 2 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 3 4 %HALF { #01 SFT } ( number -- number/2 ) 5 %HALF2 { #01 SFT2 } ( number -- number/2 ) 6 %WIDTH { .Screen/width DEI2 } 7 %HEIGHT { .Screen/height DEI2 } 8 9 %COLOR { #42 } 10 11 |0100 12 #2ce9 .System/r DEO2 13 #01c0 .System/g DEO2 14 #2ce5 .System/b DEO2 15 16 #00a4 .Screen/x DEO2 17 #00a4 .Screen/y DEO2 18 19 20 COLOR [ WIDTH HALF2 #0004 SUB2 ] #0000 ;arrow stamp 21 COLOR [ WIDTH HALF2 #0004 SUB2 ][ HEIGHT #0008 SUB2 ] ;arrow stamp 22 COLOR [ #0000 ] HEIGHT HALF2 ;arrow stamp 23 COLOR [ WIDTH #0008 SUB2 ] HEIGHT HALF2 ;arrow stamp 24 25 COLOR [ WIDTH #0004 SUB2 ] HALF2 HEIGHT HALF2 ;rock stamp 26 BRK 27 28 @stamp ( color x y sprite* -- ) 29 .Screen/addr DEO2 30 31 .Screen/y DEO2 32 .Screen/x DEO2 33 34 .Screen/sprite DEO 35 JMP2r 36 37 38 @arrow [ 0102 0488 d0e0 f0f8 ] 39 @rock [ 3c4e 9ffd f962 3c00 ]