proc eq local 0,001000,x local 1,001000,y local 2,000020,i local 3,000000,type local 4,000000,eq con 0,010000,4,154,151,163,164 con 1,002000,1 filen [-.source]structs.icn declend line 10 mark L1 mark0 pnull var 0 var 1 line 12 eqv unmark mark L2 var 1 pret lab L2 line 12 pfail unmark lab L1 mark L3 mark0 pnull pnull var 3 var 0 line 13 invoke 1 var 3 var 1 invoke 1 lexeq str 0 lexeq unmark mark L4 mark0 pnull pnull var 0 line 14 size pnull var 1 size numne unmark line 14 pfail unmark lab L4 mark L5 mark0 pnull var 2 pnull int 1 pnull var 0 line 15 size push1 toby asgn pop mark0 mark0 mark L8 var 4 pnull var 0 var 2 line 16 subsc pnull var 1 var 2 subsc invoke 2 unmark efail lab L8 pnull unmark line 16 pfail unmark lab L6 efail lab L7 unmark lab L5 mark L9 var 1 line 17 pret lab L9 line 17 pfail unmark lab L3 pnull line 19 pfail end proc depth local 0,001000,ltree local 1,000020,count local 2,000000,depth con 0,002000,0 con 1,002000,1 con 2,002000,2 filen [-.source]structs.icn declend line 21 mark L1 pnull var 1 int 0 line 23 asgn unmark lab L1 mark L2 mark0 pnull var 1 dup pnull int 1 var 2 pnull var 0 pnull int 2 pnull var 0 line 24 size push1 toby subsc invoke 1 plus numlt asgn pop lab L3 efail lab L4 unmark lab L2 mark L5 mark L6 var 1 line 25 pret lab L6 line 25 pfail unmark lab L5 pnull line 26 pfail end proc ldag local 0,001000,stree local 1,001000,done local 2,000020,a local 3,000000,table local 4,000000,tab local 5,000000,upto local 6,000000,move local 7,000000,put local 8,000000,ldag local 9,000000,bal con 0,020000,1,050 con 1,002000,1 con 2,020000,2,054,051 con 3,002000,0 filen [-.source]structs.icn declend line 28 mark L1 pnull pnull var 1 line 30 null var 3 pnull invoke 1 asgn unmark lab L1 mark L2 mark0 pnull var 2 pnull pnull var 1 var 0 line 31 subsc nonnull asgn unmark mark L3 var 2 pret lab L3 line 31 pfail unmark lab L2 mark L4 var 0 line 32 bscan mark L5 pnull var 2 pnull var 4 var 5 cset 0 line 33 invoke 1 invoke 1 llist 1 asgn unmark mark L7 var 6 int 1 line 34 invoke 1 unmark lab L7 lab L8 line 35 mark0 var 7 var 2 var 8 var 4 var 9 cset 2 invoke 1 invoke 1 var 1 invoke 2 invoke 2 unmark mark L8 var 6 int 1 line 36 invoke 1 lab L9 unmark goto L8 lab L10 goto L6 lab L5 pnull var 2 pnull var 4 int 3 line 38 invoke 1 llist 1 asgn lab L6 line 32 escan unmark lab L4 mark L11 mark L12 pnull pnull var 1 var 0 line 39 subsc var 2 asgn pret lab L12 line 39 pfail unmark lab L11 pnull line 40 pfail end proc ltree local 0,001000,stree local 1,000020,a local 2,000000,tab local 3,000000,upto local 4,000000,move local 5,000000,put local 6,000000,ltree local 7,000000,bal con 0,020000,1,050 con 1,002000,1 con 2,020000,2,054,051 con 3,002000,0 filen [-.source]structs.icn declend line 42 mark L1 var 0 line 44 bscan mark L2 pnull var 1 pnull var 2 var 3 cset 0 line 45 invoke 1 invoke 1 llist 1 asgn unmark mark L4 var 4 int 1 line 46 invoke 1 unmark lab L4 lab L5 line 47 mark0 var 5 var 1 var 6 var 2 var 7 cset 2 invoke 1 invoke 1 invoke 1 invoke 2 unmark mark L5 var 4 int 1 line 48 invoke 1 lab L6 unmark goto L5 lab L7 goto L3 lab L2 pnull var 1 pnull var 2 int 3 line 50 invoke 1 llist 1 asgn lab L3 line 44 escan unmark lab L1 mark L8 mark L9 var 1 line 51 pret lab L9 line 51 pfail unmark lab L8 pnull line 52 pfail end proc stree local 0,001000,ltree local 1,000020,s local 2,000000,stree con 0,002000,1 con 1,010000,1,050 con 2,002000,2 con 3,010000,1,054 con 4,010000,1,051 filen [-.source]structs.icn declend line 54 mark L1 mark0 pnull pnull var 0 line 56 size int 0 numeq unmark mark L2 pnull var 0 int 0 subsc pret lab L2 line 56 pfail unmark lab L1 mark L3 pnull var 1 pnull pnull var 0 int 0 line 57 subsc str 1 cat asgn unmark lab L3 mark L4 mark0 pnull var 1 dup pnull var 2 pnull var 0 pnull int 2 pnull var 0 line 58 size push1 toby subsc invoke 1 str 3 cat cat asgn pop lab L5 efail lab L6 unmark lab L4 mark L7 mark L8 pnull pnull var 1 int 0 pnull int 0 line 59 neg sect str 4 cat pret lab L8 line 59 pfail unmark lab L7 pnull line 60 pfail end proc tcopy local 0,001000,ltree local 1,000020,a local 2,000000,put local 3,000000,tcopy con 0,002000,1 con 1,002000,2 filen [-.source]structs.icn declend line 62 mark L1 pnull var 1 pnull pnull var 0 int 0 line 64 subsc llist 1 asgn unmark lab L1 mark L2 mark0 var 2 var 1 var 3 pnull var 0 pnull int 1 pnull var 0 line 65 size push1 toby subsc invoke 1 invoke 2 pop lab L3 efail lab L4 unmark lab L2 mark L5 mark L6 var 1 line 66 pret lab L6 line 66 pfail unmark lab L5 pnull line 67 pfail end proc teq local 0,001000,a1 local 1,001000,a2 local 2,000020,i local 3,000000,teq con 0,002000,1 con 1,002000,2 filen [-.source]structs.icn declend line 69 mark L1 mark0 pnull pnull var 0 line 71 size pnull var 1 size numne unmark line 71 pfail unmark lab L1 mark L2 mark0 pnull pnull var 0 int 0 line 72 subsc pnull var 1 int 0 subsc lexne unmark line 72 pfail unmark lab L2 mark L3 mark0 pnull var 2 pnull int 1 pnull var 0 line 73 size push1 toby asgn pop mark0 mark0 mark L6 var 3 pnull var 0 var 2 line 74 subsc pnull var 1 var 2 subsc invoke 2 unmark efail lab L6 pnull unmark line 74 pfail unmark lab L4 efail lab L5 unmark lab L3 mark L7 mark L8 var 1 line 75 pret lab L8 line 75 pfail unmark lab L7 pnull line 76 pfail end proc visit local 0,001000,ltree local 1,000000,visit con 0,002000,2 filen [-.source]structs.icn declend line 78 mark L1 mark0 mark L2 var 0 esusp goto L3 lab L2 var 1 pnull var 0 pnull int 0 pnull var 0 line 79 size push1 toby subsc invoke 1 lab L3 psusp efail unmark lab L1 pnull line 80 pfail end