From 17e12eb5c888973bcfecf5e549ae7a5efd27b31d Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Wed, 7 Jun 2023 19:18:21 -0700 Subject: [PATCH] (wireworld.tal) Optimizations --- gui/wireworld/wireworld.tal | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/gui/wireworld/wireworld.tal b/gui/wireworld/wireworld.tal index 3819b37..c920381 100644 --- a/gui/wireworld/wireworld.tal +++ b/gui/wireworld/wireworld.tal @@ -198,7 +198,7 @@ JMP2r @redraw ( -- ) ;cell-icn .Screen/addr DEO2 - #01 .Screen/auto DEO + [ LIT2 01 -Screen/auto ] DEO #0000 DUP2 .Screen/x DEO2 .Screen/y DEO2 @@ -218,16 +218,18 @@ JMP2r @draw-ui ( -- ) ( colors ) - #01 .Screen/auto DEO - #0010 DUP2 .Screen/x DEO2 .Screen/y DEO2 + [ LIT2 01 -Screen/auto ] DEO + #0010 + DUP2 .Screen/x DEO2 + .Screen/y DEO2 ;cell-icn .Screen/addr DEO2 - #01 .Screen/sprite DEO - #02 .Screen/sprite DEO - #03 .Screen/sprite DEO + [ LIT2 01 -Screen/sprite ] DEO + [ LIT2 02 -Screen/sprite ] DEO + [ LIT2 03 -Screen/sprite ] DEO ( toggle ) #0030 .Screen/x DEO2 - ;toggle-icn #00 .timer/play LDZ #30 SFT2 ADD2 .Screen/addr DEO2 - #01 .Screen/sprite DEO + ;toggle-icn [ LIT2 00 -timer/play ] LDZ #30 SFT2 ADD2 .Screen/addr DEO2 + [ LIT2 01 -Screen/sprite ] DEO JMP2r