d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(calc.tal) Removed leading zeros

This commit is contained in:
neauoire 2022-01-16 10:44:32 -08:00
parent acbd654165
commit 35953312ea
1 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
projects/software/calc.tal
View File

@ -31,7 +31,7 @@
%RELEASE-MOUSE { #0096 DEO } %RELEASE-MOUSE { #0096 DEO }
%RTN { JMP2r } %RTN { JMP2r }
%RTN? { #01 JCN RTN } %RTN? { JMP RTN }
%TOS { #00 SWP } %TOS { #00 SWP }
( devices ) ( devices )
@ -580,11 +580,12 @@ RTN
@draw-number ( number* color -- ) @draw-number ( number* color -- )
,&color STR ,&color STR
.input/mode LDZ ,&decimal JCN ( reset zero pad )
#00 ;&zero STA
( hexadecimal ) ( hexadecimal )
.input/mode LDZ ,&decimal JCN
AUTO-X AUTO-X
,&color LDR #00 ,&color STR #00 ,&digit JSR
#00 ,&digit JSR ,&color STR
SWP SWP
STHk #04 SFT ,&digit JSR STHk #04 SFT ,&digit JSR
STHr #0f AND ,&digit JSR STHr #0f AND ,&digit JSR
@ -592,7 +593,11 @@ RTN
STHr #0f AND ,&digit JSR STHr #0f AND ,&digit JSR
AUTO-NONE AUTO-NONE
RTN RTN
&decimal &digit ( num -- )
,&addr JSR .Screen/addr DEO2
LIT &color $1 .Screen/sprite DEO
RTN
&decimal ( num* -- )
AUTO-X AUTO-X
#2710 DIV2k DUP2 NIP ,&digit JSR MUL2 SUB2 #2710 DIV2k DUP2 NIP ,&digit JSR MUL2 SUB2
#03e8 DIV2k DUP2 NIP ,&digit JSR MUL2 SUB2 #03e8 DIV2k DUP2 NIP ,&digit JSR MUL2 SUB2
@ -601,12 +606,17 @@ RTN
,&digit JSR ,&digit JSR
AUTO-NONE AUTO-NONE
RTN RTN
&digit &addr ( num -- addr* )
8* TOS ;font-hex ++ .Screen/addr DEO2 ,&zero LDR ,&padded JCN
LIT &color $1 .Screen/sprite DEO DUP ,&no-blank JCN
POP ;blank-icn RTN
&no-blank
DUP ,&zero STR
&padded 8* TOS ;font-hex ++
RTN RTN
RTN RTN
&zero $1
( theme ) ( theme )
@ -757,3 +767,5 @@ JMP2r
@pointer-icn @pointer-icn
80c0 e0f0 f8e0 1000 80c0 e0f0 f8e0 1000
@blank-icn