Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!swrinde!zaphod.mps.ohio-state.edu!think.com!cass.ma02.bull.com!mips2!bull.bull.fr!corton!mcsun!sunic!lth.se!newsuser
From: d89mb@efd.lth.se (Magnus Bodin)
Newsgroups: comp.lang.forth
Subject: Z80-source for *, /, /MOD and */
Message-ID: <1991May13.132136.1565@lth.se>
Date: 13 May 91 13:21:36 GMT
Sender: newsuser@lth.se (LTH network news server)
Reply-To: d89mb@efd.lth.se (Magnus Bodin)
Organization: Institute of Tychology, Sweden
Lines: 25


Anyone having a Z80-implementation of FORTH, willing to cut out 4
routines
for me:

    *     (16 bits * 8 bits giving either 16 (highest uninteresting),
                                          24 or 32 bits result)
    /     (16 / 8 giving 8 bits result)
  
    /MOD  (16 / 8 giving 2x8 bits result)

    */    (16 * 8 giving 32 bits intermediate result / 8 bits giving 16 bits)



or something near it (8080-code, mathematical or literature
references)

Thanks in advance...


-- 
Magnus Bodin               "Nec fasces, nec opes, 
Institute of Tychology,     sola artis sceptra perennant"
Box 5127, 220 05 Sweden     (Tycho Brahe, Stj{rneborg 1584)