Removed debugging code from Neralie

This commit is contained in:
Andrew Alderwick 2021-04-23 09:58:50 +01:00
parent 37e7c0f88b
commit 80ccce5a5c
1 changed files with 1 additions and 37 deletions

View File

@ -2,7 +2,7 @@
app/neralie : clock with arvelie date
TODO
- Implement higher resolution time rather than counting fps
- use splash screen when FPS calculation is unstable
)
%h { .DateTime/hour DEI }
@ -206,39 +206,6 @@
#00 .fps/next POK
JMP2r
@print-string ( string* -- )
DUP2 GET DUP ,&not-end JNZ
POP POP2 JMP2r
&not-end
.Console/char DEO
#0001 ADD2 ,print-string JMP
@print-byte-decimal ( byte -- )
#00 .number/started POK
#00 SWP
,print-short-decimal/byte-start JMP
@print-short-decimal ( short* -- )
#00 .number/started POK
#2710 ,modf JSR ,&digit JSR
#03e8 ,modf JSR ,&digit JSR
&byte-start
#0064 ,modf JSR ,&digit JSR
#000a ,modf JSR ,&digit JSR
,&digit JSR
.number/started PEK ,&end JNZ
#30 .Console/char DEO
&end JMP2r
&digit
SWP POP
DUP .number/started PEK ORA #02 JNZ
POP JMP2r
#30 ADD .Console/char DEO
#01 .number/started POK
JMP2r
@modf ( dividend* divisor* -- remainder* quotient* )
OVR2 OVR2 DIV2 DUP2 STH2 MUL2 SUB2 STH2r JMP2r
@ -279,9 +246,6 @@
ROT #01 ADD ROT ROT
JMP2r
@strings
&fps [ 20 "fps 0a 00 ]
@font-numbers
[
7cc6 ced6 e6c6 7c00 1838 1818 1818 7e00 3c66 063c 6066 7e00