From 737f4af8ab4e1f319732886462c8b17d118aab06 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 23 Jul 2023 20:43:16 -0700 Subject: [PATCH] (amiga.tal) Fixed issue with clearing --- projects/examples/demos/amiga.tal | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/projects/examples/demos/amiga.tal b/projects/examples/demos/amiga.tal index f1de75f..6d7b340 100644 --- a/projects/examples/demos/amiga.tal +++ b/projects/examples/demos/amiga.tal @@ -76,12 +76,14 @@ JMP2r ( clear ) .ball/x LDZ2 .Screen/x DEO2 .ball/y LDZ2 .Screen/y DEO2 - [ LIT2 76 -Screen/auto ] DEO + ;fill-icn .Screen/addr DEO2 + [ LIT2 71 -Screen/auto ] DEO #f8 &loop-bg [ LIT2 40 -Screen/sprite ] DEO INC DUP ?&loop-bg POP + [ LIT2 76 -Screen/auto ] DEO .ball/vx LDZ2k STH2k ROT STZ2 .ball/x LDZ2k STH2r ADD2 check-flip-vx ROT STZ2 .timer LDZk INC DUP ROT STZ #06 EQU ?&pull @@ -189,6 +191,8 @@ JMP2r ( @|assets ) +@fill-icn + ffff ffff ffff ffff @hor-icn 0000 0000 0000 00ff @ver-icn