qemu/roms/openbios/forth/admin/callback.fs

   1 \ 7.4.9    Client program callback
   2
   3 : callback    ( "service-name< >" "arguments<cr>" -- )
   4   ;
   5
   6 : $callback ( argn ... arg1 nargs addr len -- retn ... ret2 Nreturns-1 )
   7   ;
   8
   9 : sync    ( -- )
  10   ;