proc Allpar local 0,001000,a local 1,000020,i local 2,000020,x local 3,000020,done local 4,000000,list local 5,000000,Call con 0,002000,1 con 1,002000,0 filen [-.source]pdae.icn declend line 10 mark L1 pnull var 2 var 4 pnull var 0 line 12 size invoke 1 asgn unmark lab L1 mark L2 pnull var 3 var 4 pnull var 0 line 13 size int 0 invoke 2 asgn unmark lab L2 mark L3 mark0 pnull var 1 pnull int 0 pnull var 0 line 14 size push1 toby asgn pop mark0 pnull pnull var 2 var 1 subsc mark L6 pnull pnull var 0 var 1 subsc coact esusp goto L7 lab L6 line 14 pfail lab L7 asgn unmark lab L4 efail lab L5 unmark lab L3 mark L8 lab L9 line 15 mark L9 mark L12 mark0 var 5 var 2 line 16 invoke 1 psusp efail unmark lab L12 mark L13 mark0 pnull var 1 pnull int 0 pnull var 0 line 17 size push1 toby asgn pop mark0 mark0 pnull pnull var 3 var 1 line 18 subsc int 0 numeq unmark mark L16 pnull pnull var 2 var 1 subsc pnull pnull var 0 var 1 subsc coact asgn esusp goto L17 lab L16 pnull pnull var 3 var 1 subsc int 1 asgn lab L17 unmark lab L14 efail lab L15 unmark lab L13 mark0 mark L18 pnull pnull var 3 line 19 bang int 0 numeq unmark efail lab L18 pnull unmark line 19 pfail lab L10 unmark goto L9 lab L11 unmark lab L8 pnull line 21 pfail end proc Call local 0,001000,a local 1,000000,stop con 0,002000,1 con 1,002000,2 con 2,002000,3 con 3,002000,4 con 4,002000,5 con 5,002000,6 con 6,002000,7 con 7,002000,8 con 8,002000,9 con 9,002000,10 con 10,010000,21,103,141,154,154,040,072,040,164,157,157,040,155,141,156,171,040,141,162,147,163,056 filen [-.source]pdae.icn declend line 23 mark L1 mark0 mark0 pnull var 0 line 24 size eret mark L3 ccase int 0 line 25 eqv unmark pop pnull var 0 int 0 subsc pnull invoke 1 goto L2 lab L3 mark L4 ccase int 1 line 26 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc invoke 1 goto L2 lab L4 mark L5 ccase int 2 line 27 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc invoke 2 goto L2 lab L5 mark L6 ccase int 3 line 28 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc invoke 3 goto L2 lab L6 mark L7 ccase int 4 line 29 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc invoke 4 goto L2 lab L7 mark L8 ccase int 5 line 30 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc pnull var 0 int 5 subsc invoke 5 goto L2 lab L8 mark L9 ccase int 6 line 31 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc pnull var 0 int 5 subsc pnull var 0 int 6 subsc invoke 6 goto L2 lab L9 mark L10 ccase int 7 line 32 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc pnull var 0 int 5 subsc pnull var 0 int 6 subsc pnull var 0 int 7 subsc invoke 7 goto L2 lab L10 mark L11 ccase int 8 line 33 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc pnull var 0 int 5 subsc pnull var 0 int 6 subsc pnull var 0 int 7 subsc pnull var 0 int 8 subsc invoke 8 goto L2 lab L11 mark L12 ccase int 9 line 34 eqv unmark pop pnull var 0 int 0 subsc pnull var 0 int 1 subsc pnull var 0 int 2 subsc pnull var 0 int 3 subsc pnull var 0 int 4 subsc pnull var 0 int 5 subsc pnull var 0 int 6 subsc pnull var 0 int 7 subsc pnull var 0 int 8 subsc pnull var 0 int 9 subsc invoke 9 goto L2 lab L12 pop var 1 str 10 line 35 invoke 1 lab L2 line 24 psusp efail unmark lab L1 pnull line 37 pfail end proc Extract local 0,001000,a local 1,000020,i local 2,000020,j local 3,000020,n local 4,000020,x local 5,000000,list local 6,000000,Call con 0,002000,2 con 1,002000,1 filen [-.source]pdae.icn declend line 39 mark L1 pnull var 4 var 5 pnull pnull var 0 line 41 size int 0 div invoke 1 asgn unmark lab L1 mark L2 lab L3 line 42 mark L3 mark L6 pnull var 1 int 1 line 43 asgn unmark lab L6 mark L7 lab L8 line 44 mark0 pnull var 1 pnull var 0 size numlt unmark mark L8 mark L11 pnull var 3 mark L12 pnull pnull var 0 var 1 line 45 subsc coact esusp goto L13 lab L12 line 45 pfail lab L13 asgn unmark lab L11 mark L14 mark0 pnull int 1 var 3 push1 line 46 toby pop mark0 pnull pnull var 4 pnull pnull var 1 int 1 line 47 plus int 0 div subsc mark L17 pnull pnull var 0 pnull var 1 int 1 plus subsc coact esusp goto L18 lab L17 line 47 pfail lab L18 asgn unmark lab L15 efail lab L16 unmark lab L14 mark L19 pnull pnull var 0 pnull var 1 int 1 line 48 plus subsc pnull pnull var 0 pnull var 1 int 1 plus subsc refresh asgn unmark lab L19 pnull var 1 dup int 0 line 49 plus asgn lab L9 unmark goto L8 lab L10 unmark lab L7 mark0 var 6 var 4 line 51 invoke 1 psusp efail lab L4 unmark goto L3 lab L5 unmark lab L2 pnull line 53 pfail end proc Lifo local 0,001000,a local 1,000020,i local 2,000020,x local 3,000020,ptr local 4,000000,list local 5,000000,Call con 0,002000,1 con 1,002000,0 filen [-.source]pdae.icn declend line 55 mark L1 pnull var 2 var 4 pnull var 0 line 57 size invoke 1 asgn unmark lab L1 mark L2 pnull var 3 int 0 line 58 asgn unmark lab L2 mark L3 lab L4 line 59 mark L4 mark L7 lab L8 line 60 mark L8 mark L11 pnull pnull var 2 var 3 line 61 subsc pnull pnull var 0 var 3 subsc coact asgn unmark mark L13 pnull var 3 dup int 0 line 63 plus asgn unmark lab L13 mark L14 pnull pnull var 0 var 3 line 64 subsc pnull pnull var 0 var 3 subsc refresh asgn esusp goto L15 lab L14 unmark pnull goto L10 lab L15 goto L12 lab L11 mark0 pnull pnull var 3 dup int 0 line 67 minus asgn int 1 numeq unmark line 68 pfail lab L12 lab L9 unmark goto L8 lab L10 unmark lab L7 mark L16 mark0 var 5 var 2 line 69 invoke 1 psusp efail unmark lab L16 pnull var 3 pnull var 0 line 70 size asgn lab L5 unmark goto L4 lab L6 unmark lab L3 pnull line 72 pfail end proc Parallel local 0,001000,a local 1,000020,i local 2,000020,x local 3,000000,list local 4,000000,Call con 0,002000,1 filen [-.source]pdae.icn declend line 74 mark L1 pnull var 2 var 3 pnull var 0 line 76 size invoke 1 asgn unmark lab L1 mark L2 lab L3 line 77 mark L3 mark L6 mark0 pnull var 1 pnull int 0 pnull var 0 line 78 size push1 toby asgn pop mark0 pnull pnull var 2 var 1 line 79 subsc mark L9 pnull pnull var 0 var 1 subsc coact esusp goto L10 lab L9 line 79 pfail lab L10 asgn unmark lab L7 efail lab L8 unmark lab L6 mark0 var 4 var 2 line 80 invoke 1 psusp efail lab L4 unmark goto L3 lab L5 unmark lab L2 pnull line 82 pfail end proc Reverse local 0,001000,a local 1,000020,i local 2,000020,x local 3,000020,ptr local 4,000000,list local 5,000000,Call con 0,002000,1 filen [-.source]pdae.icn declend line 84 mark L1 pnull var 2 var 4 pnull var 0 line 86 size invoke 1 asgn unmark lab L1 mark L2 pnull var 3 pnull var 0 line 87 size asgn unmark lab L2 mark L3 lab L4 line 88 mark L4 mark L7 lab L8 line 89 mark L8 mark L11 pnull pnull var 2 var 3 line 90 subsc pnull pnull var 0 var 3 subsc coact asgn unmark mark L13 pnull var 3 dup int 0 line 92 minus asgn unmark lab L13 mark L14 pnull pnull var 0 var 3 line 93 subsc pnull pnull var 0 var 3 subsc refresh asgn esusp goto L15 lab L14 unmark pnull goto L10 lab L15 goto L12 lab L11 mark0 pnull pnull var 3 dup int 0 line 96 plus asgn pnull var 0 size numgt unmark line 97 pfail lab L12 lab L9 unmark goto L8 lab L10 unmark lab L7 mark L16 mark0 var 5 var 2 line 98 invoke 1 psusp efail unmark lab L16 pnull var 3 int 0 line 99 asgn lab L5 unmark goto L4 lab L6 unmark lab L3 pnull line 101 pfail end proc Rotate local 0,001000,a local 1,000020,i local 2,000020,x local 3,000020,done local 4,000000,list local 5,000000,Call con 0,002000,1 con 1,002000,0 filen [-.source]pdae.icn declend line 103 mark L1 pnull var 2 var 4 pnull var 0 line 105 size invoke 1 asgn unmark lab L1 mark L2 pnull var 3 var 4 pnull var 0 line 106 size int 0 invoke 2 asgn unmark lab L2 mark L3 mark0 pnull var 1 pnull int 0 pnull var 0 line 107 size push1 toby asgn pop mark0 pnull pnull var 2 var 1 subsc mark L6 pnull pnull var 0 var 1 subsc coact esusp goto L7 lab L6 line 107 pfail lab L7 asgn unmark lab L4 efail lab L5 unmark lab L3 mark L8 lab L9 line 108 mark L9 mark L12 mark0 var 5 var 2 line 109 invoke 1 psusp efail unmark lab L12 mark0 pnull var 1 pnull int 0 pnull var 0 line 110 size push1 toby asgn pop mark0 mark0 mark L15 pnull pnull var 2 var 1 line 111 subsc pnull pnull var 0 var 1 subsc coact asgn unmark efail lab L15 pnull unmark mark L16 pnull pnull var 3 var 1 line 112 subsc int 1 asgn unmark lab L16 mark L17 pnull pnull var 3 line 113 bang int 0 numeq unmark mark L19 pnull pnull var 0 var 1 line 114 subsc pnull pnull var 0 var 1 subsc refresh asgn unmark lab L19 pnull pnull var 2 var 1 line 115 subsc mark L20 pnull pnull var 0 var 1 subsc coact esusp goto L21 lab L20 line 115 pfail lab L21 asgn goto L18 lab L17 line 117 pfail lab L18 unmark lab L13 efail lab L14 lab L10 unmark goto L9 lab L11 unmark lab L8 pnull line 120 pfail end proc Simple local 0,001000,a local 1,000020,i local 2,000020,x local 3,000000,list local 4,000000,Call con 0,002000,1 filen [-.source]pdae.icn declend line 122 mark L1 pnull var 2 var 3 pnull var 0 line 124 size invoke 1 asgn unmark lab L1 mark L2 mark0 pnull var 1 pnull int 0 pnull var 0 line 125 size push1 toby asgn pop mark0 pnull pnull var 2 var 1 line 126 subsc mark L5 pnull pnull var 0 var 1 subsc coact esusp goto L6 lab L5 line 126 pfail lab L6 asgn unmark lab L3 efail lab L4 unmark lab L2 mark L7 mark L8 var 4 var 2 line 127 invoke 1 pret lab L8 line 127 pfail unmark lab L7 pnull line 128 pfail end