Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!wuarchive!cs.utexas.edu!tut.cis.ohio-state.edu!ucbvax!BRFAPESP.BITNET!UNBCIC
From: UNBCIC@BRFAPESP.BITNET
Newsgroups: comp.lang.forth
Subject: Optimization with CWD
Message-ID: <9007292151.AA25596@ucbvax.Berkeley.EDU>
Date: 29 Jul 90 20:27:00 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Reply-To: UNBCIC%BRFAPESP.BITNET@SCFVM.GSFC.NASA.GOV
Organization: The Internet
Lines: 22


      Some time ago, someone had posted the following code:

CODE 0> POP AX NEG AX CWD PUSH DX NEXT END-CODE

      Well, I think this was very interesting, so I created a word MY0> ,
with the above code, and test it against the original 0>. I tested
speed *AND* test the results of the two. BUT, for the value -32768,
it gave me -1! Can Mark Smiley (the poster of the code) tell me
something about this? The routine is really wrong or something wrong
happend in my system?


      Trying to be correct,
                         (8-DCS)

----------------------------------------------------------------------
DCS@CIC.UNB.ANDF.BR                           Daniel C. Sobral
UNBCIC@BRFAPESP.BITNET                            (8-DCS)

                                                 Only the cool survive
----------------------------------------------------------------------