From 436791f5fc93ae8ef2926f9cff8a54c0c6469faa Mon Sep 17 00:00:00 2001 From: Johan Kotlinski Date: Sat, 7 Oct 2017 22:54:49 +0200 Subject: [PATCH] document that float won't work from cartridge --- forth_src/float.fs | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/forth_src/float.fs b/forth_src/float.fs index 72a986dfb..8b4d537c3 100644 --- a/forth_src/float.fs +++ b/forth_src/float.fs @@ -1,3 +1,17 @@ +( BASIC floating point words. + +NB: If running from cartridge, these +words will crash because BASIC ROM +cannot be accessed! + +Example: + +s" .5" strf .5 +s" .8" strf .8 +.5 fac! .8 fac* fac. + +...prints .4! ) + : bsys \ system call to BASIC ROM 1 c@ dup 3 or 1 c! swap sys 1 c! ; : fac, bbca bsys @@ -13,11 +27,3 @@ dup 100/ yr ! ar ! bba2 bsys ; : fac* ( faddr -- ) dup 100/ yr ! ar ! ba28 bsys ; : fac. bddd bsys b487 bsys ab21 bsys ; - -( example: - -s" .5" strf .5 -s" .8" strf .8 -.5 fac! .8 fac* fac. - -...prints .4! )