diff options
Diffstat (limited to 'awk/uxn/test/tal/bunnymark.tal')
| -rw-r--r-- | awk/uxn/test/tal/bunnymark.tal | 221 |
1 files changed, 221 insertions, 0 deletions
diff --git a/awk/uxn/test/tal/bunnymark.tal b/awk/uxn/test/tal/bunnymark.tal new file mode 100644 index 0000000..579d305 --- /dev/null +++ b/awk/uxn/test/tal/bunnymark.tal @@ -0,0 +1,221 @@ +( bunnymark.tal ) + ( November 2021, Kira Oakley ) + ( March 2022, Devine Lu Linvega ) + +|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2 &debug $1 &halt $1 +|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 +|80 @Controller &vector $2 &button $1 &key $1 +|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1 +|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 + +|0000 + + @frames $2 + @last $1 + +|0100 + +@on-reset ( -> ) + ( | theme ) + #2ce9 .System/r DEO2 + #01c0 .System/g DEO2 + #2ce5 .System/b DEO2 + ( | interrupts ) + ;on-frame .Screen/vector DEO2 + ( | fps label ) + .Screen/width DEI2 #0046 SUB2 .Screen/x DEO2 + #0008 .Screen/y DEO2 + ;text/fps #42 <draw-str> + ( | bunnies label ) + #0004 .Screen/x DEO2 + ;text/bunnies #42 <draw-str> + ( | instructions label ) + .Screen/width DEI2 #01 SFT2 #0050 SUB2 .Screen/x DEO2 + ;text/instructions #43 <draw-str> + #0028 #0008 #0000 <draw-dec> + ( | seed prng ) + prng-init BRK + +@on-frame ( -> ) + .frames LDZ2k INC2 ROT STZ2 + .DateTime/second DEI .last LDZ EQU ?{ + .DateTime/second DEI .last STZ + .Screen/width DEI2 #002b SUB2 #0008 .frames LDZ2 <draw-dec> + #0000 .frames STZ2 } + ( | mouse handling ) + .Mouse/state DEI + ( ) DUP #01 NEQ ?{ add-bunny } + ( ) #02 LTH ?{ remove-bunny } + ( | controller handling ) + .Controller/button DEI + ( ) DUP #01 NEQ ?{ add-bunny } + ( ) #02 LTH ?{ remove-bunny } + ( | clear ) + #0000 DUP2 .Screen/x DEO2 + .Screen/y DEO2 + [ LIT2 80 -Screen/pixel ] DEO + ;sprite/length LDA2 #0000 + &loop ( -- ) + EQU2k ?&bail + DUP2 <draw-bunny> + INC2 !&loop + &bail ( -- ) + POP2 POP2 BRK + +@add-bunny ( -- ) + ;sprite/length LDA2 + ( | cap bunny count at 65535 ) + DUP2 #ffff EQU2 ?&bail + ( | compute the offset to the beginning of this new bunny's data ) + DUP2 #30 SFT2 ;sprite/array ADD2 + ( | populate the new bunny's x/y/xvel/yvel with random values ) + #00 rand OVR2 STA2 + rand #1f AND rand OVR2 INC2 INC2 STA2 + #00 rand #7f AND OVR2 #0004 ADD2 STA2 + #00 rand #7f AND OVR2 #0006 ADD2 STA2 + ( | pop ptr to bunny data ) + POP2 + ( | write new increased array length ) + INC2 DUP2 ;sprite/length STA2 + ( | update label ) + STH2k #0028 #0008 STH2r <draw-dec> + &bail ( pop sprite/length ) + POP2 JMP2r + +@remove-bunny ( -- ) + ;sprite/length LDA2 + ( don't let length go below 0 ) ORAk #00 EQU ?&bail + #0001 SUB2 DUP2 ;sprite/length STA2 + ( update label ) STH2k #0028 #0008 STH2r <draw-dec> + &bail POP2 JMP2r + +( +@|drawing ) + +@<draw-bunny> ( idx -- ) + ( | compute the offset to the beginning of this bunny's data ) + #30 SFT2 ;sprite/array ADD2 + ( | move the sprite by its velocity ) + LDA2k OVR2 #0004 ADD2 LDA2 ADD2 OVR2 STA2 + INC2k INC2 LDA2 OVR2 #0006 ADD2 LDA2 ADD2 OVR2 INC2 INC2 STA2 + ( | check for right wall collision + bounce x ) + DUP2 #0004 ADD2 LDA2 #0f SFT2 #0001 EQU2 ?&skip-max-x + LDA2k #05 SFT2 #0008 ADD2 .Screen/width DEI2 LTH2 ?&skip-max-x + DUP2 #0004 ADD2 LDA2 #ffff MUL2 OVR2 #0004 ADD2 STA2 + &skip-max-x ( check for left wall collision + bounce x ) + LDA2k #0f SFT2 #0000 EQU2 ?&skip-min-x + DUP2 #0004 ADD2 LDA2 #ffff MUL2 OVR2 #0004 ADD2 STA2 + &skip-min-x ( check for bottom wall collision + bounce y ) + DUP2 #0006 ADD2 LDA2 #0f SFT2 #0001 EQU2 ?&skip-max-y + INC2k INC2 LDA2 #05 SFT2 #0010 ADD2 .Screen/height DEI2 LTH2 ?&skip-max-y + DUP2 #0006 ADD2 LDA2 #ffff MUL2 OVR2 #0006 ADD2 STA2 + !&skip-gravity + &skip-max-y ( check for top wall collision + bounce x ) + INC2k INC2 LDA2 #0f SFT2 #0000 EQU2 ?&skip-min-y + DUP2 #0006 ADD2 LDA2 #ffff MUL2 OVR2 #0006 ADD2 STA2 + !&skip-gravity + &skip-min-y ( apply gravity ) + DUP2 #0006 ADD2 LDA2 #0004 ADD2 OVR2 #0006 ADD2 STA2 + &skip-gravity ( draw the sprite ) + ( top ) LDA2k #05 SFT2 .Screen/x DEO2 + INC2 INC2 LDA2 #05 SFT2 .Screen/y DEO2 + ( draw ) [ LIT2 15 -Screen/auto ] DEO + ;bunny-chr .Screen/addr DEO2 + [ LIT2 85 -Screen/sprite ] DEO + [ LIT2 00 -Screen/auto ] DEO + JMP2r + +@<draw-str> ( x* y* text* color -- ) + ,&t STR + [ LIT2 01 -Screen/auto ] DEO + &loop ( -- ) + LDAk #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2 + [ LIT2 &t $1 -Screen/sprite ] DEO + INC2 LDAk ?&loop + POP2 JMP2r + +@<draw-dec> ( x* y* num* -- ) + [ LIT2 01 -Screen/auto ] DEO + SWP2 .Screen/y DEO2 + SWP2 .Screen/x DEO2 + #2710 DIV2k DUP <draw-digit> + MUL2 SUB2 #03e8 DIV2k DUP <draw-digit> + MUL2 SUB2 #0064 DIV2k DUP <draw-digit> + MUL2 SUB2 NIP #0a DIVk DUP <draw-digit> + MUL SUB <draw-digit> + [ LIT2 00 -Screen/auto ] DEO + JMP2r + +@<draw-digit> ( num -- ) + #30 SFT #00 SWP ;font/num ADD2 .Screen/addr DEO2 + [ LIT2 41 -Screen/sprite ] DEO + JMP2r + +( +@|random ) + +@prng-init ( -- ) + [ LIT2 00 -DateTime/second ] DEI [ LIT2 00 -DateTime/minute ] DEI #60 SFT2 EOR2 [ LIT2 00 -DateTime/hour ] DEI #c0 SFT2 EOR2 ,prng/x STR2 + [ LIT2 00 -DateTime/hour ] DEI #04 SFT2 [ LIT2 00 -DateTime/day ] DEI #10 SFT2 EOR2 [ LIT2 00 -DateTime/month ] DEI #60 SFT2 EOR2 .DateTime/year DEI2 #a0 SFT2 EOR2 ,prng/y STR2 + JMP2r + +@prng ( -- number* ) + [ LIT2 &x $2 ] DUP2 #50 SFT2 EOR2 DUP2 #03 SFT2 EOR2 [ LIT2 &y $2 ] DUP2 ,&x STR2 + DUP2 #01 SFT2 EOR2 EOR2 ,&y STR2k POP JMP2r + +@rand ( -- number ) + prng ADD JMP2r + ( static string data ) + +( +@|assets ) + +@text &fps "FPS: $1 + &bunnies "BUNS: $1 + &instructions "CLICK 20 "TO 20 "ADD 20 "BUNNIES! $1 + +@font ( atari8.uf1 ) + [ + 0000 0000 0000 0000 6060 6060 6000 6000 + 6666 6600 0000 0000 006c fe6c 6cfe 6c00 + 183e 603c 067c 1800 0066 6c18 3066 4600 + 386c 3870 decc 7600 6060 6000 0000 0000 + 0e1c 1818 181c 0e00 7038 1818 1838 7000 + 0066 3cff 3c66 0000 0018 187e 1818 0000 + 0000 0000 0030 3060 0000 007e 0000 0000 + 0000 0000 0018 1800 0206 0c18 3060 4000 ] &num [ + 3c66 6e76 6666 3c00 1838 1818 1818 7e00 + 3c66 060c 1830 7e00 7e0c 180c 0666 3c00 + 0c1c 3c6c 7e0c 0c00 7e60 7c06 0666 3c00 + 3c60 607c 6666 3c00 7e06 0c18 3030 3000 + 3c66 663c 6666 3c00 3c66 663e 060c 3800 + 0060 6000 6060 0000 0030 3000 3030 6000 + 0c18 3060 3018 0c00 0000 7e00 007e 0000 + 6030 180c 1830 6000 3c66 060c 1800 1800 + 3c66 6e6a 6e60 3e00 183c 6666 7e66 6600 + 7c66 667c 6666 7c00 3c66 6060 6066 3c00 + 786c 6666 666c 7800 7e60 607c 6060 7e00 + 7e60 607c 6060 6000 3e60 606e 6666 3e00 + 6666 667e 6666 6600 7830 3030 3030 7800 + 0606 0606 0666 3c00 666c 7870 786c 6600 + 6060 6060 6060 7e00 c6ee fed6 c6c6 c600 + 6676 7e7e 6e66 6600 3c66 6666 6666 3c00 + 7c66 667c 6060 6000 3c66 6666 766c 3600 + 7c66 667c 6c66 6600 3c66 603c 0666 3c00 + 7e18 1818 1818 1800 6666 6666 6666 3e00 + 6666 6666 663c 1800 c6c6 c6d6 feee c600 + 6666 3c18 3c66 6600 6666 663c 1818 1800 + 7e06 0c18 3060 7e00 7860 6060 6060 7800 ] + +@fill-icn [ ffff ffff ffff ffff ] + +@bunny-chr [ + 2466 6600 2424 003c 4200 007e 7e7e 7e7e + 1818 3c3c 1800 0000 ff66 4242 667e 4242 ] + +( +@|memory ) + +@sprite &length $2 + &array &x 0600 &y 0500 &xvel 0060 &yvel 0010 + |