Faster footer
This commit is contained in:
parent
a1139c7c58
commit
c17fe9c0af
|
@ -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> ( -- )
|
||||
|
|
Loading…
Reference in New Issue