(clock.tal) Optimizations

This commit is contained in:
Devine Lu Linvega 2021-11-19 12:03:27 -05:00
parent 0dc6515e08
commit e8480dc669
1 changed files with 8 additions and 8 deletions

View File

@ -162,16 +162,16 @@ RTN
#03 .Screen/sprite DEO
,&reset JSR
RTN
&digit ( number -- )
10* TOS ;font ++ .Screen/addr DEO2
#03 .Screen/sprite DEO
,&pady JSR
#03 .Screen/sprite DEO
RTN
&number ( number -- )
DUP #0a DIV [ 10* TOS ;font ++ ] .Screen/addr DEO2
#03 .Screen/sprite DEO
,&pady JSR
#03 .Screen/sprite DEO
DUP #0a DIV ,&digit JSR
,&reset JSR
#0a MOD [ 10* TOS ;font ++ ] .Screen/addr DEO2
#03 .Screen/sprite DEO
,&pady JSR
#03 .Screen/sprite DEO
#0a MOD ,&digit JSR
&reset
.Screen/x DEI2 #0008 ++ .Screen/x DEO2
.Screen/y DEI2 #0008 -- .Screen/y DEO2