updated func/fift

- updated func/fift
- updated liteclient/liteserver
- bugfixes

crypto/fift/lib/Asm.fif

@@ -1064,19 +1064,23 @@ x{FFF0} @Defop SETCPX
 variable @proccnt
 variable @proclist
 variable @procdict
+variable @gvarcnt
 19 constant @procdictkeylen
 { @proclist @ cons @proclist ! } : @proclistadd
 { dup @procdictkeylen fits not abort"procedure index out of range"
   1 'nop does swap dup @proclistadd 0 (create)
 } : @declproc
+{ 1 'nop does swap 0 (create) } : @declglobvar
 { @proccnt @ 1+ dup @proccnt ! @declproc } : @newproc
-{ 0 =: main  @proclist null!  @proccnt 0!
+{ @gvarcnt @ 1+ dup @gvarcnt ! @declglobvar } : @newglobvar
+{ 0 =: main  @proclist null!  @proccnt 0!  @gvarcnt 0!
   { bl word @newproc } : NEWPROC
   { bl word dup (def?) ' drop ' @newproc cond } : DECLPROC
   { bl word dup find
     { nip execute <> abort"method redefined with different id" }
     { swap @declproc }
   cond } : DECLMETHOD
+  { bl word @newglobvar } : DECLGLOBVAR
   "main" @proclistadd
   dictnew @procdict !
 } : PROGRAM{

crypto/fift/lib/Fift.fif

@@ -116,3 +116,15 @@ variable base
 { 9 hold } : +tab
 { "" swap { 0 word 2dup $cmp } { rot swap $+ +cr swap } while 2drop } : scan-until-word
 { 0 word -trailing scan-until-word 1 'nop } ::_ $<<
+{ 0x40 runvmx } : runvmcode
+{ 0x48 runvmx } : gasrunvmcode
+{ 0x43 runvmx } : runvmdict
+{ 0x4b runvmx } : gasrunvmdict
+{ 0x45 runvmx } : runvm
+{ 0x4d runvmx } : gasrunvm
+{ 0x55 runvmx } : runvmctx
+{ 0x5d runvmx } : gasrunvmctx
+{ 0x75 runvmx } : runvmctxact
+{ 0x7d runvmx } : gasrunvmctxact
+{ 0x35 runvmx } : runvmctxactq
+{ 0x3d runvmx } : gasrunvmctxactq