Do not needlessly redraw footer

This commit is contained in:
Devine Lu Linvega 2024-05-28 19:17:42 -07:00
parent c17fe9c0af
commit 4140196702
1 changed files with 3 additions and 2 deletions

View File

@ -433,7 +433,8 @@
#0000 .Screen/x DEO2
#0018 .Screen/y DEO2
[ LIT2 80 -Screen/pixel ] DEO
( >> )
<draw-note>
!<draw-footer>
@<draw-note> ( -- )
[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
@ -460,7 +461,7 @@
[ LIT2 05 -Screen/sprite ] DEO
.Screen/x DEI2k #0008 SUB2 ROT DEO2
&block walk-char POP INC2 LDAk ?&>w
&end POP2
&end POP2 JMP2r
@<draw-footer> ( -- )
[ LIT2 26 -Screen/auto ] DEO