(wireworld.tal) Optimizations

This commit is contained in:
Devine Lu Linvega 2023-06-07 19:18:21 -07:00
parent b616a2a44c
commit 17e12eb5c8
1 changed files with 10 additions and 8 deletions

View File

@ -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