d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(amiga.tal) Optimizations

This commit is contained in:
Devine Lu Linvega 2023-02-22 12:45:06 -08:00
parent 60080d8fe8
commit 9e663250bf
1 changed files with 29 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
projects/examples/demos/amiga.tal
View File

@ -40,7 +40,7 @@ BRK
( every 4th frame ) ( every 4th frame )
.timer LDZ INC .timer STZk POP #03 EQU JMP [ BRK ] .timer LDZ INC .timer STZk POP #03 EQU JMP [ BRK ]
( reset timer ) ( reset timer )
#00 .timer STZ [ LIT2 00 -timer ] STZ
( 12 frames animation ) ( 12 frames animation )
.frame LDZ INC DUP #0c NEQ MUL .frame STZ .frame LDZ INC DUP #0c NEQ MUL .frame STZ
move-ball move-ball
@ -53,7 +53,7 @@ BRK
@check-flip-vx ( x -- x ) @check-flip-vx ( x -- x )
( left ) DUP2 #0010 LTH2 ?&flip ( left ) DUP2 #0010 LTH2 ?&flip
( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP ( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip !&else
&flip .ball/vx LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2 &flip .ball/vx LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&else &else
@ -61,7 +61,7 @@ JMP2r
@check-flip-vy ( y -- y ) @check-flip-vy ( y -- y )
( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP ( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip !&else
&flip .ball/vy LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2 &flip .ball/vy LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&else &else
@ -72,13 +72,12 @@ JMP2r
( clear ) ( clear )
.ball/x LDZ2 .Screen/x DEO2 .ball/x LDZ2 .Screen/x DEO2
.ball/y LDZ2 .Screen/y DEO2 .ball/y LDZ2 .Screen/y DEO2
#76 .Screen/auto DEO [ LIT2 76 -Screen/auto ] DEO
#0800 #f8
&loop-bg &loop-bg
#40 .Screen/sprite DEO [ LIT2 40 -Screen/sprite ] DEO
INC GTHk ?&loop-bg INC DUP ?&loop-bg
POP2 POP
.ball/vx LDZ2k STH2k ROT STZ2 .ball/vx LDZ2k STH2k ROT STZ2
.ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2 .ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2
.ball/vy LDZ2k INC2 STH2k ROT STZ2 .ball/vy LDZ2k INC2 STH2k ROT STZ2
@ -90,44 +89,42 @@ JMP2r
.ball/x LDZ2 #0008 ADD2 .Screen/x DEO2 .ball/x LDZ2 #0008 ADD2 .Screen/x DEO2
.ball/y LDZ2 #0008 ADD2 .Screen/y DEO2 .ball/y LDZ2 #0008 ADD2 .Screen/y DEO2
;shadow .Screen/addr DEO2 ;shadow .Screen/addr DEO2
#66 .Screen/auto DEO [ LIT2 66 -Screen/auto ] DEO
#0700 #f9
&loop-shadow &loop-shadow
#4f .Screen/sprite DEO [ LIT2 4f -Screen/sprite ] DEO
INC GTHk ?&loop-shadow INC DUP ?&loop-shadow
POP2 POP
.frame LDZ .frame LDZ
( bg ) ( bg )
DUP #06 DIV INC #05 MUL #40 ADD STH DUP #06 DIV INC #05 MUL #40 ADD ,&bg STR
.ball/x LDZ2 .Screen/x DEO2 .ball/x LDZ2 .Screen/x DEO2
.ball/y LDZ2 .Screen/y DEO2 .ball/y LDZ2 .Screen/y DEO2
;bg .Screen/addr DEO2 ;bg .Screen/addr DEO2
#66 .Screen/auto DEO [ LIT2 66 -Screen/auto ] DEO
#0700 #f9
&loop-bg &loop-bg
STHkr .Screen/sprite DEO [ LIT2 &bg $1 -Screen/sprite ] DEO
INC GTHk ?&loop-bg INC DUP ?&loop-bg
POP2 POP
POPr
( fg ) ( fg )
DUP #06 DIV #00 EQU INC #05 MUL #40 ADD STH DUP #06 DIV #00 EQU INC #05 MUL #40 ADD ,&fg STR
.ball/x LDZ2 .Screen/x DEO2 .ball/x LDZ2 .Screen/x DEO2
.ball/y LDZ2 .Screen/y DEO2 .ball/y LDZ2 .Screen/y DEO2
#06 DIVk MUL SUB #00 SWP #0188 MUL2 ;ball-icn ADD2 .Screen/addr DEO2 #06 DIVk MUL SUB #00 SWP #0188 MUL2 ;ball-icn ADD2 .Screen/addr DEO2
#66 .Screen/auto DEO [ LIT2 66 -Screen/auto ] DEO
#0700 #f9
&loop-fg &loop-fg
STHkr .Screen/sprite DEO [ LIT2 &fg $1 -Screen/sprite ] DEO
INC GTHk ?&loop-fg INC DUP ?&loop-fg
POP2 POP
POPr
JMP2r JMP2r
@draw-background ( -- ) @draw-background ( -- )
( hor lines ) ( hor lines )
#01 .Screen/auto DEO [ LIT2 01 -Screen/auto ] DEO
;hor-icn .Screen/addr DEO2 ;hor-icn .Screen/addr DEO2
.Screen/height DEI2 #04 SFT2 NIP #04 SUB #00 .Screen/height DEI2 #04 SFT2 NIP #04 SUB #00
&horver &horver
@ -135,13 +132,13 @@ JMP2r
#00 OVR #40 SFT2 #0020 ADD2 .Screen/y DEO2 #00 OVR #40 SFT2 #0020 ADD2 .Screen/y DEO2
.Screen/width DEI2 #03 SFT2 NIP #08 SUB #00 .Screen/width DEI2 #03 SFT2 NIP #08 SUB #00
&horhor &horhor
#0f .Screen/sprite DEO [ LIT2 0f -Screen/sprite ] DEO
INC GTHk ?&horhor INC GTHk ?&horhor
POP2 POP2
INC GTHk ?&horver INC GTHk ?&horver
POP2 POP2
( ver lines ) ( ver lines )
#02 .Screen/auto DEO [ LIT2 02 -Screen/auto ] DEO
;ver-icn .Screen/addr DEO2 ;ver-icn .Screen/addr DEO2
.Screen/width DEI2 #04 SFT2 NIP #03 SUB #00 .Screen/width DEI2 #04 SFT2 NIP #03 SUB #00
&verver &verver
@ -149,7 +146,7 @@ JMP2r
#00 OVR #40 SFT2 #0019 ADD2 .Screen/x DEO2 #00 OVR #40 SFT2 #0019 ADD2 .Screen/x DEO2
.Screen/height DEI2 #03 SFT2 NIP #0a SUB #00 .Screen/height DEI2 #03 SFT2 NIP #0a SUB #00
&verhor &verhor
#0f .Screen/sprite DEO [ LIT2 0f -Screen/sprite ] DEO
INC GTHk ?&verhor INC GTHk ?&verhor
POP2 POP2
INC GTHk ?&verver INC GTHk ?&verver