(m291) Request timestamp drawing separately
This commit is contained in:
parent
1edfc705cb
commit
d8b6bdc91c
|
@ -285,7 +285,8 @@
|
||||||
POP2 STH2r STH2r SWP2 OVR2 ADD2 SWP2
|
POP2 STH2r STH2r SWP2 OVR2 ADD2 SWP2
|
||||||
( | print )
|
( | print )
|
||||||
calc-width .secprog STZ2
|
calc-width .secprog STZ2
|
||||||
<draw-progress> !message/<new>
|
<draw-progress>
|
||||||
|
<draw-timestamp> !message/<new>
|
||||||
|
|
||||||
@handle-id3 ( buf* char -- )
|
@handle-id3 ( buf* char -- )
|
||||||
POP [ LIT ". ] find-next INC2 LDA2k
|
POP [ LIT ". ] find-next INC2 LDA2k
|
||||||
|
@ -632,8 +633,7 @@
|
||||||
[ LIT2 05 -Screen/sprite ] DEO
|
[ LIT2 05 -Screen/sprite ] DEO
|
||||||
.Screen/x DEI2 INC2 .Screen/x DEO2
|
.Screen/x DEI2 INC2 .Screen/x DEO2
|
||||||
INC2 GTH2k ?&>l
|
INC2 GTH2k ?&>l
|
||||||
POP2 POP2
|
POP2 POP2 JMP2r
|
||||||
( >> )
|
|
||||||
|
|
||||||
@<draw-timestamp> ( -- )
|
@<draw-timestamp> ( -- )
|
||||||
.secfrom LDZ2
|
.secfrom LDZ2
|
||||||
|
|
Loading…
Reference in New Issue