home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / forst.zoo / forst / lib / vectors.s < prev    next >
Encoding:
Text File  |  1990-12-10  |  785 b   |  34 lines
  1. ( VECTORS: installation of INTEGERS and REALS vectors)
  2.  
  3. decimal
  4. : module ;
  5.  
  6. create ints  72 allot
  7.   vectors ints 72 cmove    ( ForST system default integer vectors)
  8.  
  9. create flts        ( comma in compilation records)
  10.   comp, fnumber        comp, f.    comp, f+    comp, f-
  11.   comp, f*        comp, f/    comp, fmod    comp, fabs
  12.   comp, fnegate
  13.   
  14. ( words to switch maths State Table:)
  15.  
  16. : integers  ints vectors 72 cmove ;  immediate
  17.  
  18. : reals  flts vectors 72 cmove ;  immediate
  19.  
  20. ( word to cast the following number as an integer)
  21.  
  22. : ?lit  state @  if [compile] literal then ;
  23. : integer  32 word number ?lit ; immediate
  24.  
  25. ( word to cast the following number as a real)
  26.  
  27. : real  32 word fnumber  ?lit ; immediate
  28.  
  29. from module
  30.  
  31.   keep integers  keep reals  keep integer  keep real
  32.  
  33. public
  34.