(wireworld.tal) Optimizations
This commit is contained in:
parent
b616a2a44c
commit
17e12eb5c8
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue