opcodes[]: global scope global { global scope implicit__reverse-complement { } type utf8str: type ucs1str: type ucs2str: type ucs4str: global scope vt100 { } void write_segment ( utf8str¢ data ) { var utf8str¢ data var uint32 i var uint32 e var uint32 n1 local scope ANON var uint32 ee var uint32 aa void cpl ( utf8char& c ) = inline lvar+0+0 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) cast ( utf8str¢ -- utf8char[to] ) 10 ( -- utf8char ) find ( utf8char[to], utf8char -- uint32 ) lvar+0+4 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) count ( utf8str¢ -- uint32 ) lvar+0+8 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) lvar-4+16 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) 2147483647 ( -- int32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) flip ( utf8char[to] ) lvar+0+8 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) lvar-4+16 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) 2147483647 ( -- int32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) 10 ( -- utf8char ) find ( utf8char[to], utf8char -- uint32 ) lvar-12+12 "n1" ( -- uint32& ) peek ( uint32& -- uint32 ) 60 ( -- uint32 ) != ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L974 0 ( -- uint32 ) lvar-4+16 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-12+20 "n1" ( -- uint32& ) peek ( uint32& -- uint32 ) + ( uint32, uint32 -- uint32 ) 1 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) L970: lvar-20+20 "aa" ( -- uint32& ) peek ( uint32& -- uint32 ) 61 ( -- uint32 ) + ( uint32, uint32 -- uint32 ) lvar-12+24 "n1" ( -- uint32& ) peek ( uint32& -- uint32 ) - ( uint32, uint32 -- uint32 ) lvar-16+24 "ee" ( -- uint32& ) poke ( uint32, uint32& -- ) lvar-16+20 "ee" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-8+24 "e" ( -- uint32& ) peek ( uint32& -- uint32 ) < ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L971 lvar+0+20 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) lvar-20+28 "aa" ( -- uint32& ) peek ( uint32& -- uint32 ) lvar-16+32 "ee" ( -- uint32& ) peek ( uint32& -- uint32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) rol ( utf8char[to] ) 61 ( -- uint32 ) lvar-20+24 "aa" ( -- uint32& ) += ( uint32, uint32& -- ) jp ( -- ) -> L970 L971: drop ( uint32 -- ) drop ( uint32 -- ) jp ( -- ) -> L974 L974: lvar-4+12 "i" ( -- uint32& ) pppeek ( uint32& -- uint32 ) lvar-8+16 "e" ( -- uint32& ) peek ( uint32& -- uint32 ) < ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L975 lvar+0+12 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) lvar-4+20 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( utf8str¢, int32 -- utf8char& ) gvar-36 "cmap" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) lvar+0+8 "c" ( -- utf8char&& ) peek ( utf8char&& -- utf8char& ) peek ( utf8char& -- utf8char ) cast ( uint8 -- int32 ) atindex ( utf8str¢, int32 -- utf8char& ) peek ( utf8char& -- utf8char ) lvar+0+4 "c" ( -- utf8char&& ) peek ( utf8char&& -- utf8char& ) poke ( utf8char, utf8char& -- ) drop ( utf8char& -- ) jp ( -- ) -> L974 L975: gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) 62 ( -- uint8 ) write ( FD, uint8 ) gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) lvar+0+16 "data" ( -- utf8str¢& ) peek ( utf8str¢& -- utf8str¢ ) write ( FD, utf8str¢ ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( uint32 -- ) drop ( utf8str¢ -- ) local scope ANON { } void cpl ( utf8char& c ) = inline { var utf8char& c gvar-36 "cmap" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) lvar+0+8 "c" ( -- utf8char&& ) peek ( utf8char&& -- utf8char& ) peek ( utf8char& -- utf8char ) cast ( uint8 -- int32 ) atindex ( utf8str¢, int32 -- utf8char& ) peek ( utf8char& -- utf8char ) lvar+0+4 "c" ( -- utf8char&& ) peek ( utf8char&& -- utf8char& ) poke ( utf8char, utf8char& -- ) drop ( utf8char& -- ) } } } args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) count ( utf8str[]¢ -- uint32 ) 2 ( -- uint32 ) != ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L964 1 ( -- int32 ) end ( int32 -- ) jp ( -- ) -> L964 L964: args ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) 1 ( -- int32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) gvar-8 "qpath" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) readfile ( utf8str¢ -- utf8str ) gvar-8 "qpath" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 0 ( -- int32 ) gvar-8 "qpath" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) cast ( utf8str¢ -- utf8char[to] ) 46 ( -- utf8char ) rfind ( utf8char[to], utf8char -- uint32 ) substr ( utf8str¢, int32, int32 -- utf8char[to] ) "-output.txt" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8char[to], utf8str -- utf8str ) gvar-24 "zpath" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 119 ( -- uint32 ) 432 ( -- uint32 ) open ( utf8str¢, uint32, uint32 -- FD ) "TVGH__CD__M_KN___YSAABW_R_______" ( -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) 65 ( -- uint32 ) spacestr ( uint32 -- utf8str ) gvar-36 "cmap" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) gvar-36 "cmap" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) retain ( utf8str¢ -- utf8str ) catstr ( utf8str, utf8str -- utf8str ) gvar-36 "cmap" ( -- utf8str& ) swapwithvar ( utf8str, utf8str& -- utf8str ) dispose ( utf8str -- ) 10 ( -- utf8char ) gvar-36 "cmap" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 10 ( -- int32 ) atindex ( utf8str¢, int32 -- utf8char& ) poke ( utf8char, utf8char& -- ) gvar-16 "data" ( -- utf8str& ) peek ( utf8str& -- utf8str¢ ) 62 ( -- utf8char ) split ( utf8str¢, utf8char -- utf8str[] ) 0 ( -- uint32 ) L977: gvar-48 "i" ( -- uint32& ) pppeek ( uint32& -- uint32 ) gvar-44 "segments" ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) count ( utf8str[]¢ -- uint32 ) < ( uint32, uint32 -- bool ) !! ( uint32 -- bool ) jp_z ( bool -- ) -> L978 gvar-44 "segments" ( -- utf8str[]& ) peek ( utf8str[]& -- utf8str[]¢ ) gvar-48 "i" ( -- uint32& ) peek ( uint32& -- uint32 ) atindex ( utf8str[]¢, int32 -- utf8str& ) peek ( utf8str& -- utf8str¢ ) call write_segment ( utf8str¢ ) jp ( -- ) -> L977 L978: gvar-28 "fd" ( -- FD& ) peek ( FD& -- FD ) close ( FD )