opcodes[]: global scope global { global scope implicit__speedometer { } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } float32 fak ( float32 n ) { var float32 n lvar+0+0 "n" ( -- float32& ) peek ( float32& -- float32 ) 1 ( -- float32 ) <= ( float32, float32 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L825 1 ( -- float32 ) lvar+0+4 "n" ( -- float32& ) poke ( float32, float32& -- ) jp ( -- ) -> L823 L825: lvar+0+0 "n" ( -- float32& ) peek ( float32& -- float32 ) 1 ( -- float32 ) - ( float32, float32 -- float32 ) call fak ( float32 -- float32 ) lvar+0+4 "n" ( -- float32& ) peek ( float32& -- float32 ) * ( float32, float32 -- float32 ) lvar+0+4 "n" ( -- float32& ) poke ( float32, float32& -- ) jp ( -- ) -> L823 L823: } void print ( int16[]¢ a ) { var int16[]¢ a local scope ANON var uint16 i "{" ( -- ucs1str¢ ) print ( ucs1str¢ ) lvar+0+0 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) count ( int16[]¢ -- uint16 ) !! ( uint16 -- bool ) jp_z ( bool -- ) -> L828 lvar+0+0 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) 0 ( -- int16 ) atindex ( int16[]¢, int16 -- int16& ) peek ( int16& -- int16 ) print ( int16 ) 0 ( -- uint16 ) L830: lvar-2+2 "i" ( -- uint16& ) pppeek ( uint16& -- uint16 ) lvar+0+4 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) count ( int16[]¢ -- uint16 ) < ( uint16, uint16 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L831 ", " ( -- ucs1str¢ ) print ( ucs1str¢ ) lvar+0+2 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) lvar-2+4 "i" ( -- uint16& ) peek ( uint16& -- uint16 ) atindex ( int16[]¢, int16 -- int16& ) peek ( int16& -- int16 ) print ( int16 ) jp ( -- ) -> L830 L831: drop ( uint16 -- ) jp ( -- ) -> L828 L828: "}\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) drop ( int16[]¢ -- ) local scope ANON { } } int16[] add ( int16[]¢ a, int16 n ) { var int16[]¢ a var int16 n var uint16 i var int16[] r lvar+2+0 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) count ( int16[]¢ -- uint16 ) lvar-2+2 "i" ( -- uint16& ) peek ( uint16& -- uint16 ) 2 ( -- uint16 ) * ( uint16, uint16 -- uint16 ) alloc ( uint16 -- int16[] ) lvar+2+4 "a" ( -- int16[]¢& ) peek ( int16[]¢& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) lvar-4+10 "r" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) copyrange ( int16[to], int16[to] -- ) L834: lvar-2+4 "i" ( -- uint16& ) peekmm ( uint16& -- uint16 ) !! ( uint16 -- bool ) jp_z ( bool -- ) -> L835 lvar+0+4 "n" ( -- int16& ) peek ( int16& -- int16 ) lvar-4+6 "r" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) lvar-2+8 "i" ( -- uint16& ) peek ( uint16& -- uint16 ) atindex ( int16[]¢, int16 -- int16& ) += ( int16, int16& -- ) jp ( -- ) -> L834 L835: lvar-4+4 "r" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) retain ( int16[]¢ -- int16[] ) tor ( int16[] -- ) dispose ( int16[] -- ) drop ( uint16 -- ) drop ( int16 -- ) drop ( int16[]¢ -- ) fromr ( -- int16[] ) } global scope ANON { global scope ANON { } } } "\nhi, i'm vicci!\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) "and i'm incredibly fast! ...\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) 1 ( -- float32 ) wait ( float32 ) "\nlet's make the test." ( -- ucs1str¢ ) print ( ucs1str¢ ) "\ncalculating... " ( -- ucs1str¢ ) print ( ucs1str¢ ) now ( -- float32 ) 10 ( -- float32 ) now ( -- float32 ) gvar-8 "dt" ( -- float32& ) peek ( float32& -- float32 ) + ( float32, float32 -- float32 ) "|/-\\" ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) 0 ( -- int16 ) gvar-4 "ta" ( -- float32& ) peek ( float32& -- float32 ) 0 ( -- int16 ) L836: NULL ( -- int16[] ) NULL ( -- int16[] ) now ( -- float32 ) gvar-12 "te" ( -- float32& ) peek ( float32& -- float32 ) < ( float32, float32 -- bool ) !! ( uint8 -- bool ) jp_nz ( bool -- ) -> L838 dispose ( int16[] -- ) dispose ( int16[] -- ) jp ( -- ) -> L837 L838: gvar-22 "i" ( -- int16& ) ++ ( int16& -- ) now ( -- float32 ) gvar-20 "st" ( -- float32& ) peek ( float32& -- float32 ) > ( float32, float32 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L839 0.1 ( -- float32 ) gvar-20 "st" ( -- float32& ) += ( float32, float32& -- ) gvar-14 "s" ( -- ucs1str& ) peek ( ucs1str& -- ucs1str¢ ) gvar-16 "si" ( -- int16& ) peekpp ( int16& -- int16 ) 4 ( -- uint16 ) % ( int16, uint16 -- int16 ) atindex ( ucs1str¢, int16 -- ucs1char& ) peek ( ucs1char& -- ucs1char ) putchar ( ucs1char ) "\b" ( -- ucs1str¢ ) print ( ucs1str¢ ) jp ( -- ) -> L839 L839: 100 ( -- float32 ) call fak ( float32 -- float32 ) drop ( float32 -- ) {0, 1, 2, 3, 4, 5, 6, 7, 8, 9} ( -- int16[10] ) gvar-24 "l" ( -- int16[]& ) swapwithvar ( int16[], int16[]& -- int16[] ) dispose ( int16[] -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) 10 ( -- int16 ) call add ( int16[]¢, int16 -- int16[] ) gvar-24 "l" ( -- int16[]& ) appendarray ( int16[], int16[]& -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) 20 ( -- int16 ) call add ( int16[]¢, int16 -- int16[] ) gvar-24 "l" ( -- int16[]& ) appendarray ( int16[], int16[]& -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) 40 ( -- int16 ) call add ( int16[]¢, int16 -- int16[] ) gvar-24 "l" ( -- int16[]& ) appendarray ( int16[], int16[]& -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) 80 ( -- int16 ) call add ( int16[]¢, int16 -- int16[] ) gvar-24 "l" ( -- int16[]& ) appendarray ( int16[], int16[]& -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) 100 ( -- uint16 ) leftstr ( int16[]¢, uint16 -- int16[to] ) cast ( int16[to] -- int16[] ) gvar-24 "l" ( -- int16[]& ) swapwithvar ( int16[], int16[]& -- int16[] ) dispose ( int16[] -- ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) min ( int16[to] -- int16 ) 0 ( -- int16 ) != ( int16, int16 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L841 "booboo1\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) 1 ( -- int16 ) end ( int16 -- ) jp ( -- ) -> L841 L841: gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) max ( int16[to] -- int16 ) 99 ( -- int16 ) != ( int16, int16 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L843 "booboo2\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) 1 ( -- int16 ) end ( int16 -- ) jp ( -- ) -> L843 L843: gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) retain ( int16[]¢ -- int16[] ) gvar-26 "z" ( -- int16[]& ) swapwithvar ( int16[], int16[]& -- int16[] ) dispose ( int16[] -- ) gvar-26 "z" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) shuffle ( int16[to] ) gvar-26 "z" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) cast ( int16[]¢ -- int16[to] ) sort ( int16[to] ) gvar-26 "z" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) nestr ( int16[]¢, int16[]¢ -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L845 "booboo3\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) gvar-26 "z" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) call print ( int16[]¢ ) 10 ( -- ucs1char ) putchar ( ucs1char ) 1 ( -- int16 ) end ( int16 -- ) jp ( -- ) -> L845 L845: "" ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) 0 ( -- int16 ) L847: gvar-30 "j" ( -- int16& ) peek ( int16& -- int16 ) 100 ( -- int16 ) < ( int16, int16 -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L848 gvar-24 "l" ( -- int16[]& ) peek ( int16[]& -- int16[]¢ ) gvar-30 "j" ( -- int16& ) peekpp ( int16& -- int16 ) atindex ( int16[]¢, int16 -- int16& ) peek ( int16& -- int16 ) numstr ( int16 -- ucs1str ) gvar-28 "z" ( -- ucs1str& ) appendarray ( ucs1str, ucs1str& -- ) jp ( -- ) -> L847 L848: gvar-28 "z" ( -- ucs1str& ) peek ( ucs1str& -- ucs1str¢ ) 20 ( -- uint16 ) leftstr ( ucs1str¢, uint16 -- ucs1char[to] ) "01234567891011121314" ( -- ucs1str¢ ) nestr ( ucs1char[to], ucs1str¢ -- bool ) !! ( uint8 -- bool ) jp_z ( bool -- ) -> L849 "booboo4\n" ( -- ucs1str¢ ) print ( ucs1str¢ ) gvar-28 "z" ( -- ucs1str& ) peek ( ucs1str& -- ucs1str¢ ) print ( ucs1str¢ ) 10 ( -- ucs1char ) putchar ( ucs1char ) 1 ( -- int16 ) end ( int16 -- ) jp ( -- ) -> L849 L849: drop ( int16 -- ) dispose ( ucs1str -- ) dispose ( int16[] -- ) dispose ( int16[] -- ) jp ( -- ) -> L836 L837: " \n" ( -- ucs1str¢ ) print ( ucs1str¢ ) "yeah! i made " ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) gvar-22 "i" ( -- int16& ) peek ( int16& -- int16 ) numstr ( int16 -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) " loops in " ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) gvar-8 "dt" ( -- float32& ) peek ( float32& -- float32 ) numstr ( float32 -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) " seconds!\n" ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) print ( ucs1str ) "that's nearly " ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) gvar-22 "i" ( -- int16& ) peek ( int16& -- int16 ) cast ( int16 -- float32 ) gvar-8 "dt" ( -- float32& ) peek ( float32& -- float32 ) / ( float32, float32 -- float32 ) 710 ( -- float32 ) / ( float32, float32 -- float32 ) numstr ( float32 -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) " megaboogies!\n" ( -- ucs1str¢ ) retain ( ucs1str¢ -- ucs1str ) addarray ( ucs1str, ucs1str -- ucs1str ) print ( ucs1str ) "unbelievable...\n" ( -- ucs1str¢ ) print ( ucs1str¢ )