Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-13 12:29:05 +00:00
Code Issues Projects Releases Wiki Activity

preparing for working kernal FP VAL_1() call

Browse Source
This commit is contained in:
Irmen de Jong 2023-11-29 00:27:02 +01:00
parent 1e299bf360
commit 278e2f5605
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/res/prog8lib/cx16/floats.p8
View File

@ -28,8 +28,7 @@ romsub $fe00 = AYINT() clobbers(A,X,Y) ; fac1-> signed word in 100-101
romsub $fe03 = GIVAYF(ubyte lo @ Y, ubyte hi @ A) clobbers(A,X,Y)
romsub $fe06 = FOUT() clobbers(X) -> uword @ AY ; fac1 -> string, address returned in AY
; romsub $fe09 = VAL_1() clobbers(A,X,Y) ; convert ASCII string to floating point [not yet implemented!!!] see parse_f() instead.
; once it is supported it works like this: call with "index" zp var ($a9/$aa) contains pointer to string, A = length of string. Float returned in FAC1.
romsub $fe09 = VAL_1(uword string @XY, ubyte length @A) clobbers(A,X,Y) -> float @FAC1 ; convert ASCII string in XY and length in A, to floating point in FAC1. WARNING: not implemented in the ROM yet!
; GETADR: fac1 -> unsigned word in Y/A (might throw ILLEGAL QUANTITY) (result also in $14/15)
; (tip: use GETADRAY to get A/Y output; lo/hi switched to normal little endian order)
@ -141,7 +140,7 @@ asmsub parse_f(str value @AY) -> float @FAC1 {
; -- parse a string value of a number to float in FAC1
; warning: uses an internal BASIC routine that may be rom version dependent
; ($deb6 is inside the routine for VAL at $deb3) See basic.sym from x16-rom
; If at any time in the future the official VAL_1() routine from the kernal starts working, we should use that instead!
; If at any time in the future the official VAL_1() routine from the kernal starts working, we should use that here!
%asm {{
sta $a9
sty $aa

24
examples/test.p8
View File

@ -1,18 +1,22 @@
%import textio
%import floats
%import string
%zeropage basicsafe
%option no_sysinit
main {
sub start() {
poke($4000,123)
txt.print_ub(peek($4000))
txt.nl()
pokew($4002, 55555)
txt.print_uw(peekw($4002))
txt.nl()
float value=123.45678
pokef($4004, value)
floats.print_f(peekf($4004))
txt.nl()
str buffer = "???????????????????????????"
repeat {
txt.print("enter number: ")
void txt.input_chars(buffer)
txt.print("\nprog8's parse_f: ")
float value = floats.parse_f(buffer)
floats.print_f(value)
txt.print("\nrom val_1: ")
value = floats.VAL_1(buffer, string.length(buffer))
floats.print_f(value)
txt.nl()
}
}
}