F>R FR> definitions for a DTC Forth

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

code FR> ( -- r ) ( R: r -- )
  bp push  1 floats # bp add  ' f@ ) jmp
end-code

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

code FR> ( -- r ) ( R: r -- )
  rpp lhld  h push  1 floats d lxi  d dad  rpp shld  ' f@ jmp
end-code