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