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

Groups > comp.lang.forth > #135448

Re: F>R, FR@ and FR> Float to return stack words

Show all headers | View raw

On 28/08/2026 8:04 am, peter wrote:
> ...
> What do you have in your system?

Because return-stacking is more complicated, I use fvariable where I can.
Where I can't, I have the following def's to fall back on.  I've not
played enough with Baden-type flocals to get a sense of what they're like
in practice.  The varying HERE (PAD, HOLD etc) might be an issue.

\ x86
code F>R ( r -- )
  1 floats # bp sub  bp push  ' f! ) jmp
end-code

code FR> ( -- r )
  bp push  c: f@ ;c  1 floats # bp add  next
end-code


\ 8080
code F>R ( r -- )
  rpp lhld  -1 floats d lxi  d dad  rpp shld
  h push  ' f! jmp
end-code

code FR> ( -- r )
  rpp lhld  h push  c: f@ ;c  rpp lhld
  1 floats d lxi  d dad  rpp shld  next
end-code

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

Thread

F>R, FR@ and FR> Float to return stack words peter <peter.noreply@tin.it> - 2026-08-28 00:04 +0200
  Re: F>R, FR@ and FR> Float to return stack words dxf <dxforth@gmail.com> - 2026-08-28 14:44 +1000
  Re: F>R, FR@ and FR> Float to return stack words anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2026-08-28 06:50 +0000
  Re: F>R, FR@ and FR> Float to return stack words marcel hendrix <mhx@iae.nl> - 2026-08-28 19:35 +0200
  Re: F>R, FR@ and FR> Float to return stack words peter <peter.noreply@tin.it> - 2026-08-30 10:06 +0200
    Re: F>R, FR@ and FR> Float to return stack words anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2026-08-30 13:31 +0000
      Re: F>R, FR@ and FR> Float to return stack words peter <peter.noreply@tin.it> - 2026-08-30 15:58 +0200
        Re: F>R, FR@ and FR> Float to return stack words anton@mips.complang.tuwien.ac.at (Anton Ertl) - 2026-08-30 15:12 +0000

csiph-web