opcodes[]:

global scope global
{
  global scope implicit__test_all
  {
  }
  type utf8str:
  type ucs1str:
  type ucs2str:
  type ucs4str:
  global scope vt100
  {
  }
  global scope ANON
  {
  }
}
  "\n\n+++ vcc test script +++\n" ( -- utf8str¢ )
  print               ( utf8str¢ )
  0                   ( -- int32 )
  0                   ( -- int32 )
  11                  ( -- int32 )
  gvar-4 "errors"     ( -- int32& )
  poke                ( int32, int32& -- )
  22                  ( -- int64 )
  33                  ( -- int32 )
  55                  ( -- int32 )
  88                  ( -- int32 )
  65                  ( -- ucs4char )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  11                  ( -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L991
  "test_all.cpp, line 33: assert(errors==11)" ( -- utf8str¢ )
  abort               ( utf8str¢ -- )
  L991:
  gvar-24 "old"       ( -- int32& )
  peek                ( int32& -- int32 )
  55                  ( -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L992
  "test_all.cpp, line 34: assert(old==55)" ( -- utf8str¢ )
  abort               ( utf8str¢ -- )
  L992:
  44                  ( -- int32 )
  gvar-24 "old"       ( -- int32& )
  poke                ( int32, int32& -- )
  gvar-24 "old"       ( -- int32& )
  peek                ( int32& -- int32 )
  44                  ( -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L993
  "test_all.cpp, line 36: assert(old==44)" ( -- utf8str¢ )
  abort               ( utf8str¢ -- )
  L993:
  22                  ( -- int32 )
  gvar-4 "errors"     ( -- int32& )
  poke                ( int32, int32& -- )
  drop                ( ucs4char -- )
  drop                ( int32 -- )
  drop                ( int32 -- )
  drop                ( int32 -- )
  drop                ( int64 -- )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  22                  ( -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L994
  "test_all.cpp, line 39: assert(errors==22)" ( -- utf8str¢ )
  abort               ( utf8str¢ -- )
  L994:
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  0                   ( -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_nz               ( bool -- ) -> L995
  "test_all.cpp, line 40: assert(old==0)" ( -- utf8str¢ )
  abort               ( utf8str¢ -- )
  L995:
  0                   ( -- int32 )
  gvar-4 "errors"     ( -- int32& )
  poke                ( int32, int32& -- )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  call test_minimum_functionality ()
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L996
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L996
  L996:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  call test_string_functions ()
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L998
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L998
  L998:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  call test_numeric_operators ()
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L1000
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L1000
  L1000:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  0                   ( -- int32 )
  call test_numeric_functions ( int32 )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L1002
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L1002
  L1002:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  0                   ( -- float64 )
  call test_numeric_functions ( float64 )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L1004
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L1004
  L1004:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  0                   ( -- float32 )
  call test_numeric_functions ( float32 )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L1006
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L1006
  L1006:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  poke                ( int32, int32& -- )
  0                   ( -- float128 )
  call test_numeric_functions ( float128 )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  gvar-8 "old"        ( -- int32& )
  peek                ( int32& -- int32 )
  ==                  ( int32, int32 -- bool )
  !!                  ( uint32 -- bool )
  jp_z                ( bool -- ) -> L1008
  " passed."          ( -- utf8str¢ )
  print               ( utf8str¢ )
  jp                  ( -- ) -> L1008
  L1008:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  !!                  ( int32 -- bool )
  jp_z                ( bool -- ) -> L1011
  "\n\n--- "          ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  numstr              ( int32 -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  " errors total ---\n" ( -- utf8str¢ )
  retain              ( utf8str¢ -- utf8str )
  catstr              ( utf8str, utf8str -- utf8str )
  print               ( utf8str )
  jp                  ( -- ) -> L1010
  L1011:
  "\n\n+++ all tests passed +++\n\n" ( -- utf8str¢ )
  print               ( utf8str¢ )
  L1010:
  gvar-4 "errors"     ( -- int32& )
  peek                ( int32& -- int32 )
  !!                  ( int32 -- bool )
  jp_z                ( bool -- ) -> L1012
  1                   ( -- uint32 )
  jp                  ( -- ) -> L1013
  L1012:
  0                   ( -- uint32 )
  L1013:
  end                 ( int32 -- )