blank.tal (1718B)
1 ( a blank file ) 2 3 |00 @System &vector $2 &wst $1 &rst $1 &eaddr $2 &ecode $1 &pad $1 &r $2 &g $2 &b $2 &debug $1 &halt $1 4 |10 @Console &vector $2 &read $1 &pad $5 &write $1 &error $1 5 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 6 |30 @Audio0 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 7 |40 @Audio1 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 8 |50 @Audio2 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 9 |60 @Audio3 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 10 |80 @Controller &vector $2 &button $1 &key $1 &func $1 11 |90 @Mouse &vector $2 &x $2 &y $2 &state $1 &pad $3 &scrollx $2 &scrolly $2 12 |a0 @File0 &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 13 |b0 @File1 &vector $2 &success $2 &stat $2 &delete $1 &append $1 &name $2 &length $2 &read $2 &write $2 14 |c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 15 16 ( variables ) 17 18 |0000 19 20 ( program ) 21 22 |0100 ( -> ) 23 24 ( theme ) 25 #0fe5 .System/r DEO2 26 #0fc5 .System/g DEO2 27 #0f25 .System/b DEO2 28 29 BRK 30 31 @print ( short* -- ) 32 33 SWP ,&byte JSR 34 &byte ( byte -- ) DUP #04 SFT ,&char JSR 35 &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO 36 37 JMP2r 38 39 @print-str ( str* -- ) 40 41 &while 42 LDAk #18 DEO 43 INC2 LDAk ,&while JCN 44 POP2 45 46 JMP2r