opcodes[]: global scope global { global scope implicit__sort { } void sort ( uint8* a, uint8* e ) { var uint8* a var uint8* e local scope ANON var uint8* a0 var uint8* e0 local scope ANON var uint8 a_lim var uint8 e_lim lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) >= ( uint8*, uint8* -- bool ) jp_z ( bool -- ) -> L3 jp ( -- ) -> L2 L3: lvar+0+0 "e" ( -- uint8*& ) -- ( uint8*& -- ) L5: lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) <= ( uint8*, uint8* -- bool ) jp_nz ( bool -- ) -> L7 "sort.h, line 114: assert(a<=e)" ( -- ucs1str ) abort ( ucs1str -- ) L7: lvar+0+0 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+2+2 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) - ( uint8*, uint8* -- int16 ) switch ( int16 -- ) { 0:L2, 1:L14, 2:L9, dflt:L8, join:L8 } L9: lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar+0+2 "e" ( -- uint8*& ) mmpeek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L10 lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L10 L10: lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar+0+2 "e" ( -- uint8*& ) pppeek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L12 lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L12 L12: lvar+2+0 "a" ( -- uint8*& ) ++ ( uint8*& -- ) L14: lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L2 lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L2 L8: lvar+2+0 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+2 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+2+4 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar+0+6 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L18 lvar+2+4 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+6 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L18 L18: lvar+2+4 "a" ( -- uint8*& ) peekpp ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar+0+6 "e" ( -- uint8*& ) peekmm ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) L20: lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+10 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) >= ( uint8*, uint8* -- bool ) jp_nz ( bool -- ) -> L21 lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar-6+10 "a_lim" ( -- uint8& ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L23 lvar-8+8 "e_lim" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+2+10 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L25 lvar+2+8 "a" ( -- uint8*& ) peekpp ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar-6+10 "a_lim" ( -- uint8& ) poke ( uint8, uint8& -- ) jp ( -- ) -> L22 L25: lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+10 "e" ( -- uint8*& ) peekmm ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L22 L23: lvar+2+8 "a" ( -- uint8*& ) ++ ( uint8*& -- ) L22: lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+10 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) >= ( uint8*, uint8* -- bool ) jp_nz ( bool -- ) -> L21 lvar-8+8 "e_lim" ( -- uint8& ) peek ( uint8& -- uint8 ) lvar+0+10 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L27 lvar+0+8 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar-6+10 "a_lim" ( -- uint8& ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L29 lvar+0+8 "e" ( -- uint8*& ) peekmm ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar-8+10 "e_lim" ( -- uint8& ) poke ( uint8, uint8& -- ) jp ( -- ) -> L20 L29: lvar+2+8 "a" ( -- uint8*& ) peekpp ( uint8*& -- uint8* ) lvar+0+10 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) swap ( uint8&, uint8& -- ) jp ( -- ) -> L20 L27: lvar+0+8 "e" ( -- uint8*& ) -- ( uint8*& -- ) jp ( -- ) -> L20 L21: lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) peek ( uint8& -- uint8 ) lvar-6+10 "a_lim" ( -- uint8& ) peek ( uint8& -- uint8 ) > ( uint8, uint8 -- bool ) jp_z ( bool -- ) -> L31 lvar+0+8 "e" ( -- uint8*& ) -- ( uint8*& -- ) jp ( -- ) -> L30 L31: lvar+2+8 "a" ( -- uint8*& ) ++ ( uint8*& -- ) L30: drop ( uint8 -- ) drop ( uint8 -- ) lvar+0+4 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar-2+6 "a0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) - ( uint8*, uint8* -- int16 ) lvar-4+6 "e0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+2+8 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) - ( uint8*, uint8* -- int16 ) > ( int16, int16 -- bool ) jp_z ( bool -- ) -> L33 lvar-2+4 "a0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+6 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) call sort ( uint8*, uint8* ) lvar+0+4 "e" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+2+6 "a" ( -- uint8*& ) poke ( uint8*, uint8*& -- ) lvar-4+4 "e0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+0+6 "e" ( -- uint8*& ) poke ( uint8*, uint8*& -- ) jp ( -- ) -> L32 L33: lvar+2+4 "a" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar-4+6 "e0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) call sort ( uint8*, uint8* ) lvar-2+4 "a0" ( -- uint8*& ) peek ( uint8*& -- uint8* ) lvar+2+6 "a" ( -- uint8*& ) poke ( uint8*, uint8*& -- ) L32: drop ( uint8* -- ) drop ( uint8* -- ) jp ( -- ) -> L5 L2: drop ( uint8* -- ) drop ( uint8* -- ) local scope ANON { local scope ANON { } } } }