opcodes[]: global scope global { global scope implicit__mandelbrot { } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } global scope ANON { global scope ANON { } } } args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) count ( utf8str[]¢ -- uint32 ) 2 ( -- uint32 ) == ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L964 args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 1 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) numval ( utf8str¢ -- float64 ) jp ( -- ) -> L965 L964: 200 ( -- float64 ) L965: gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 0 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 0 ( -- int32 ) args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 0 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) cast ( utf8str¢ -- utf8char[to] ) 47 ( -- utf8char ) rfind ( utf8char[to], utf8char -- uint32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) "/mandelbrot.pbm" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8char[to], utf8str -- utf8str ) "output file = " ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) gvar-24 "path" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) 10 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) print ( utf8str ) gvar-24 "path" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 119 ( -- uint32 ) 436 ( -- uint32 ) open ( utf8str¢, uint32, uint32 -- FD ) gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) -1 ( -- int32 ) == ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L966 "error: " ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) errorstr ( -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) 10 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) print ( utf8str ) 1 ( -- int32 ) end ( int32 -- ) jp ( -- ) -> L966 L966: gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) "P4\n" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) numstr ( float64 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) 32 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) gvar-16 "h" ( -- float64& ) peek ( float64& -- float64 ) numstr ( float64 -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) 10 ( -- utf8char ) catchar ( utf8str, utf8char -- utf8str ) write ( FD, utf8str ) 0 ( -- int32 ) 0 ( -- int32 ) 0 ( -- int32 ) 0 ( -- float64 ) L968: gvar-48 "y" ( -- float64& ) peek ( float64& -- float64 ) gvar-16 "h" ( -- float64& ) peek ( float64& -- float64 ) < ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L969 0 ( -- float64 ) L970: gvar-56 "x" ( -- float64& ) peek ( float64& -- float64 ) gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) < ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L971 0 ( -- float64 ) 0 ( -- float64 ) 0 ( -- float64 ) 0 ( -- float64 ) gvar-56 "x" ( -- float64& ) peek ( float64& -- float64 ) gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) / ( float64, float64 -- float64 ) 1 ( -- int32 ) << ( float64, int32 -- float64 ) 1.5 ( -- float64 ) - ( float64, float64 -- float64 ) gvar-48 "y" ( -- float64& ) peek ( float64& -- float64 ) gvar-16 "h" ( -- float64& ) peek ( float64& -- float64 ) / ( float64, float64 -- float64 ) 1 ( -- int32 ) << ( float64, int32 -- float64 ) 1 ( -- float64 ) - ( float64, float64 -- float64 ) 50 ( -- int32 ) L972: gvar-108 "i" ( -- int32& ) peekmm ( int32& -- int32 ) !! ( int32 -- bool ) jp_z ( bool -- ) -> L973 gvar-80 "Tr" ( -- float64& ) peek ( float64& -- float64 ) gvar-88 "Ti" ( -- float64& ) peek ( float64& -- float64 ) + ( float64, float64 -- float64 ) 4 ( -- float64 ) <= ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L973 gvar-64 "Zr" ( -- float64& ) peek ( float64& -- float64 ) gvar-72 "Zi" ( -- float64& ) peek ( float64& -- float64 ) 1 ( -- int32 ) << ( float64, int32 -- float64 ) * ( float64, float64 -- float64 ) gvar-104 "Ci" ( -- float64& ) peek ( float64& -- float64 ) + ( float64, float64 -- float64 ) gvar-72 "Zi" ( -- float64& ) poke ( float64, float64& -- ) gvar-80 "Tr" ( -- float64& ) peek ( float64& -- float64 ) gvar-88 "Ti" ( -- float64& ) peek ( float64& -- float64 ) - ( float64, float64 -- float64 ) gvar-96 "Cr" ( -- float64& ) peek ( float64& -- float64 ) + ( float64, float64 -- float64 ) gvar-64 "Zr" ( -- float64& ) poke ( float64, float64& -- ) gvar-64 "Zr" ( -- float64& ) peek ( float64& -- float64 ) gvar-64 "Zr" ( -- float64& ) peek ( float64& -- float64 ) * ( float64, float64 -- float64 ) gvar-80 "Tr" ( -- float64& ) poke ( float64, float64& -- ) gvar-72 "Zi" ( -- float64& ) peek ( float64& -- float64 ) gvar-72 "Zi" ( -- float64& ) peek ( float64& -- float64 ) * ( float64, float64 -- float64 ) gvar-88 "Ti" ( -- float64& ) poke ( float64, float64& -- ) jp ( -- ) -> L972 L973: 1 ( -- int32 ) gvar-40 "byte_acc" ( -- int32& ) <<= ( int32, int32& -- ) gvar-80 "Tr" ( -- float64& ) peek ( float64& -- float64 ) gvar-88 "Ti" ( -- float64& ) peek ( float64& -- float64 ) + ( float64, float64 -- float64 ) 4 ( -- float64 ) <= ( float64, float64 -- bool ) gvar-40 "byte_acc" ( -- int32& ) |= ( int32, int32& -- ) gvar-36 "bit_num" ( -- int32& ) pppeek ( int32& -- int32 ) 8 ( -- int32 ) == ( int32, int32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L975 gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) gvar-40 "byte_acc" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- int8 ) write ( FD, int8 ) 0 ( -- int32 ) gvar-36 "bit_num" ( -- int32& ) poke ( int32, int32& -- ) jp ( -- ) -> L974 L975: gvar-56 "x" ( -- float64& ) peek ( float64& -- float64 ) gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) 1 ( -- float64 ) - ( float64, float64 -- float64 ) == ( float64, float64 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L974 8 ( -- float64 ) gvar-8 "w" ( -- float64& ) peek ( float64& -- float64 ) 8 ( -- float64 ) % ( float64, float64 -- float64 ) - ( float64, float64 -- float64 ) cast ( float64 -- int32 ) gvar-40 "byte_acc" ( -- int32& ) <<= ( int32, int32& -- ) gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) gvar-40 "byte_acc" ( -- int32& ) peek ( int32& -- int32 ) cast ( int32 -- int8 ) write ( FD, int8 ) 0 ( -- int32 ) gvar-36 "bit_num" ( -- int32& ) poke ( int32, int32& -- ) jp ( -- ) -> L974 L974: gvar-56 "x" ( -- float64& ) ++ ( float64& -- ) drop ( int32 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) drop ( float64 -- ) jp ( -- ) -> L970 L971: gvar-48 "y" ( -- float64& ) ++ ( float64& -- ) drop ( float64 -- ) jp ( -- ) -> L968 L969: gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) close ( FD )