Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #39825

Re: NUMBER?

From "HAA" <someone@microsoft.com>
Newsgroups comp.lang.forth
Subject Re: NUMBER?
Date 2015-06-18 22:43 +1000
Organization Aioe.org NNTP Server
Message-ID <mlued0$6rh$1@speranza.aioe.org> (permalink)
References <71db1f25-2883-4edc-bb95-8cdad866c264@googlegroups.com> <5580534f$0$2862$e4fe514c@news2.news.xs4all.nl>

Show all headers | View raw

Hans Bezemer wrote:
>
> : NUMBER DUP >R IF D>S THEN R> ;        ( a n1 -- n2 +f | f)

Guessing that should read

: NUMBER DNUMBER DUP >R IF D>S THEN R> ;

Here are a few more that rely on 2's complement

\ as above but shorter  signed or unsigned  no range check
: number ( adr len -- n -1 | 0 )
  dnumber dup if nip then ;

\ unsigned single with range check
: u-number ( adr len -- u -1 | 0 )
  dnumber if 0= ?dup and exit then 0 ;

\ signed single with range check
: s-number ( adr len -- n -1 | 0 )
  dnumber if over 0< xor 0= ?dup and exit then 0 ;

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

NUMBER? hughaguilar96@gmail.com - 2015-06-12 21:49 -0700
  Re: NUMBER? hughaguilar96@gmail.com - 2015-06-12 22:48 -0700
  Re: NUMBER? "HAA" <someone@microsoft.com> - 2015-06-13 16:25 +1000
    Re: NUMBER? hughaguilar96@gmail.com - 2015-06-13 22:24 -0700
  Re: NUMBER? Michael Barry <barrym95838@yahoo.com> - 2015-06-12 23:57 -0700
    Re: NUMBER? hughaguilar96@gmail.com - 2015-06-13 22:27 -0700
      Re: NUMBER? "HAA" <someone@microsoft.com> - 2015-06-14 23:31 +1000
    Re: NUMBER? Hans Bezemer <the.beez.speaks@gmail.com> - 2015-06-16 23:29 +0200
  Re: NUMBER? Ching-Tang Tseng <ilikeforth@gmail.com> - 2015-06-13 01:39 -0700
    Re: NUMBER? hughaguilar96@gmail.com - 2015-06-13 22:31 -0700
  NUMBER? Mark Wills <markwills1970@gmail.com> - 2015-06-13 07:08 -0700
    Re: NUMBER? Michael Barry <barrym95838@yahoo.com> - 2015-06-13 08:18 -0700
      Re: NUMBER? Mark Wills <markwills1970@gmail.com> - 2015-06-14 11:34 -0700
        Re: NUMBER? coos <chforth@hccnet.nl> - 2015-06-14 22:16 +0200
  Re: NUMBER? Ching-Tang Tseng <ilikeforth@gmail.com> - 2015-06-14 15:08 -0700
    Re: NUMBER? hughaguilar96@gmail.com - 2015-06-14 15:11 -0700
      Re: NUMBER? hughaguilar96@gmail.com - 2015-06-14 15:13 -0700
      Re: NUMBER? "HAA" <someone@microsoft.com> - 2015-06-16 12:26 +1000
  Re: NUMBER? Hans Bezemer <the.beez.speaks@gmail.com> - 2015-06-16 18:48 +0200
    Re: NUMBER? "HAA" <someone@microsoft.com> - 2015-06-17 12:37 +1000
    Re: NUMBER? "HAA" <someone@microsoft.com> - 2015-06-18 22:43 +1000
      Re: NUMBER? Hans Bezemer <the.beez.speaks@gmail.com> - 2015-06-18 22:55 +0200

csiph-web