Faster footer

This commit is contained in:
Devine Lu Linvega 2024-05-28 19:15:35 -07:00
parent a1139c7c58
commit c17fe9c0af
1 changed files with 4 additions and 4 deletions

View File

@ -465,13 +465,13 @@
@<draw-footer> ( -- )
[ LIT2 26 -Screen/auto ] DEO
#0000 .Screen/x DEO2
.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
.Screen/height DEI2 #0020 SUB2 DUP2 .Screen/y DEO2
;page-icn .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
( | across )
[ LIT2 01 -Screen/auto ] DEO
#0018 .Screen/x DEO2
.Screen/height DEI2 #0008 SUB2 .Screen/y DEO2
DUP2 #0018 ADD2 .Screen/y DEO2
;page-icn/bottom .Screen/addr DEO2
#e7
&>l ( -- )
@ -481,9 +481,9 @@
( | page number )
[ LIT2 15 -Screen/auto ] DEO
.Screen/width DEI2 #01 SFT2 #0003 SUB2 .Screen/x DEO2
.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
.Screen/y DEO2
#0011 .page LDZ ADD #50 SFT2 ;font/glyphs ADD2 .Screen/addr DEO2
[ LIT2 01 -Screen/sprite ] DEOk DEO
[ LIT2 01 -Screen/sprite ] DEO
JMP2r
@<draw-tab> ( -- )