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

(amiga.tal) Use call opcodes

This commit is contained in:
Devine Lu Linvega 2023-01-24 09:09:36 -08:00
parent 4ab97a6c1f
commit 998c182a44
2 changed files with 30 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
projects/examples/demos/amiga.rom.sym Normal file
View File

Binary file not shown.

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

@ -9,14 +9,17 @@
@timer $1
@frame $1
(
@|vectors )
|0100
( vectors )
;on-frame .Screen/vector DEO2
( theme )
#aff0 .System/r DEO2
#aff5 .System/r DEO2
#af00 .System/g DEO2
#af00 .System/b DEO2
#af05 .System/b DEO2
( screen size )
#0140 .Screen/width DEO2
#0100 .Screen/height DEO2
@ -27,8 +30,8 @@
#0008 .ball/vx STZ2
#0000 .ball/vy STZ2
( once )
;make-shadow JSR2
;draw-background JSR2
make-shadow
draw-background
BRK
@ -40,14 +43,17 @@ BRK
#00 .timer STZ
( 12 frames animation )
.frame LDZ INC DUP #0c NEQ MUL .frame STZ
,move-ball JSR
move-ball
BRK
(
@|core )
@check-flip-vx ( x -- x )
( left ) DUP2 #0010 LTH2 ,&flip JCN
( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ,&flip JCN ,&else JMP
( left ) DUP2 #0010 LTH2 ?&flip
( right ) DUP2 .Screen/width DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP
&flip .ball/vx LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&else
@ -55,7 +61,7 @@ JMP2r
@check-flip-vy ( y -- y )
( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ,&flip JCN ,&else JMP
( bottom ) DUP2 .Screen/height DEI2 #0050 SUB2 GTH2 ?&flip ,&else JMP
&flip .ball/vy LDZ2k #ffff EOR2 ( INC2 ) ROT STZ2
&else
@ -70,13 +76,13 @@ JMP2r
#0800
&loop-bg
#40 .Screen/sprite DEO
INC GTHk ,&loop-bg JCN
INC GTHk ?&loop-bg
POP2
.ball/vx LDZ2k STH2k ROT STZ2
.ball/x LDZ2k STH2r ADD2 ,check-flip-vx JSR ROT STZ2
.ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2
.ball/vy LDZ2k INC2 STH2k ROT STZ2
.ball/y LDZ2k STH2r ADD2 ,check-flip-vy JSR ROT STZ2
.ball/y LDZ2k STH2r ADD2 check-flip-vy ROT STZ2
@draw-ball ( -- )
@ -88,7 +94,7 @@ JMP2r
#0700
&loop-shadow
#4f .Screen/sprite DEO
INC GTHk ,&loop-shadow JCN
INC GTHk ?&loop-shadow
POP2
.frame LDZ
( bg )
@ -100,7 +106,7 @@ JMP2r
#0700
&loop-bg
STHkr .Screen/sprite DEO
INC GTHk ,&loop-bg JCN
INC GTHk ?&loop-bg
POP2
POPr
( fg )
@ -112,7 +118,7 @@ JMP2r
#0700
&loop-fg
STHkr .Screen/sprite DEO
INC GTHk ,&loop-fg JCN
INC GTHk ?&loop-fg
POP2
POPr
@ -130,9 +136,9 @@ JMP2r
.Screen/width DEI2 #03 SFT2 NIP #08 SUB #00
&horhor
#0f .Screen/sprite DEO
INC GTHk ,&horhor JCN
INC GTHk ?&horhor
POP2
INC GTHk ,&horver JCN
INC GTHk ?&horver
POP2
( ver lines )
#02 .Screen/auto DEO
@ -144,20 +150,20 @@ JMP2r
.Screen/height DEI2 #03 SFT2 NIP #0a SUB #00
&verhor
#0f .Screen/sprite DEO
INC GTHk ,&verhor JCN
INC GTHk ?&verhor
POP2
INC GTHk ,&verver JCN
INC GTHk ?&verver
POP2
JMP2r
@make-shadow ( -- )
;bg ;shadow #0188 ;mcpy JSR2
;bg ;shadow #0188 mcpy
#0188 #0000
&loop
DUP2 ;shadow ADD2 LDA2k #aa55 AND2 SWP2 STA2
INC2 INC2 GTH2k ,&loop JCN
INC2 INC2 GTH2k ?&loop
POP2 POP2
JMP2r
@ -168,12 +174,15 @@ JMP2r
OVR2 ADD2 SWP2
&loop
LDAk STH2kr STA INC2r
INC2 GTH2k ,&loop JCN
INC2 GTH2k ?&loop
POP2 POP2
POP2r
JMP2r
(
@|assets )
@hor-icn
0000 0000 0000 00ff
@ver-icn