proc bitstring local 0,001000,i local 1,000020,b local 2,000020,h local 3,000000,abs local 4,000000,right local 5,000000,neg con 0,002000,0 con 1,002000,1 con 2,010000,0 con 3,002000,2 con 4,002000,32 con 5,010000,1,060 filen [-.source]bitops.icn declend line 13 mark L1 mark L2 pnull var 0 int 0 line 15 numlt unmark mark L4 pnull var 2 int 1 line 16 asgn unmark lab L4 pnull var 0 pnull pnull var 0 int 1 line 17 plus neg asgn goto L3 lab L2 pnull var 2 int 0 line 19 asgn lab L3 unmark lab L1 mark L5 pnull var 1 str 2 line 20 asgn unmark lab L5 mark L6 lab L7 line 21 mark0 pnull var 0 int 0 numne unmark mark L7 mark L10 pnull var 1 pnull var 3 pnull var 0 int 3 line 22 mod invoke 1 var 1 cat asgn unmark lab L10 pnull var 0 dup int 3 line 23 div asgn lab L8 unmark goto L7 lab L9 unmark lab L6 mark L11 pnull var 1 var 4 var 1 int 4 str 5 line 25 invoke 3 asgn unmark lab L11 mark L12 mark0 pnull var 2 int 1 line 26 numeq unmark pnull var 1 var 5 var 1 invoke 1 asgn unmark lab L12 mark L13 mark L14 var 1 line 27 pret lab L14 line 27 pfail unmark lab L13 pnull line 28 pfail end proc and local 0,001000,b1 local 1,001000,b2 local 2,000000,map local 3,000000,bsum con 0,010000,2,061,062 con 1,010000,2,060,061 filen [-.source]bitops.icn declend line 32 mark L1 mark L2 var 2 var 3 var 0 var 1 line 33 invoke 2 str 0 str 1 invoke 3 pret lab L2 line 33 pfail unmark lab L1 pnull line 34 pfail end proc bsum local 0,001000,b1 local 1,001000,b2 local 2,000040,segment local 3,000000,right local 4,000000,bsum con 0,002000,9 con 1,010000,1,060 con 2,002000,1 con 3,002000,0 filen [-.source]bitops.icn declend line 39 init L1 mark L1 pnull var 2 int 0 line 41 asgn unmark lab L1 mark L2 mark0 pnull pnull var 0 line 42 size pnull var 1 size numgt unmark pnull var 0 var 1 swap unmark lab L2 mark L3 pnull var 0 var 3 var 0 pnull var 1 line 43 size str 1 invoke 3 asgn unmark lab L3 mark L4 mark0 pnull pnull var 0 line 44 size var 2 numle unmark mark L5 pnull var 0 var 1 plus pret lab L5 line 44 pfail unmark lab L4 mark L6 mark L7 pnull pnull pnull var 0 int 2 dup var 2 line 45 plus sect pnull var 1 int 2 dup var 2 plus sect plus var 4 pnull var 0 pnull var 2 int 2 line 46 plus int 3 sect pnull var 1 pnull var 2 int 2 plus int 3 sect invoke 2 line 45 cat pret lab L7 line 45 pfail unmark lab L6 pnull line 47 pfail end proc decimal local 0,001000,b local 1,000000,integer con 0,010000,2,062,162 filen [-.source]bitops.icn declend line 51 mark L1 mark L2 var 1 pnull str 0 var 0 line 52 cat invoke 1 pret lab L2 line 52 pfail unmark lab L1 pnull line 53 pfail end proc exor local 0,001000,b1 local 1,001000,b2 local 2,000000,map local 3,000000,bsum con 0,010000,1,062 con 1,010000,1,060 filen [-.source]bitops.icn declend line 57 mark L1 mark L2 var 2 var 3 var 0 var 1 line 58 invoke 2 str 0 str 1 invoke 3 pret lab L2 line 58 pfail unmark lab L1 pnull line 59 pfail end proc neg local 0,001000,b local 1,000000,map con 0,010000,2,060,061 con 1,010000,2,061,060 filen [-.source]bitops.icn declend line 63 mark L1 mark L2 var 1 var 0 str 0 str 1 line 64 invoke 3 pret lab L2 line 64 pfail unmark lab L1 pnull line 65 pfail end proc or local 0,001000,b1 local 1,001000,b2 local 2,000000,map local 3,000000,bsum con 0,010000,1,062 con 1,010000,1,061 filen [-.source]bitops.icn declend line 69 mark L1 mark L2 var 2 var 3 var 0 var 1 line 70 invoke 2 str 0 str 1 invoke 3 pret lab L2 line 70 pfail unmark lab L1 pnull line 71 pfail end proc xstop local 0,001000,x local 1,000000,stop local 2,000000,image con 0,010000,68,122,165,156,055,164,151,155,145,040,145,162,162,157,162,040,062,060,065,040,151,156,040,142,151,164,163,164,162,151,156,147,012,166,141,154,165,145,040,157,165,164,040,157,146,040,162,141,156,147,145,012,157,146,146,145,156,144,151,156,147,040,166,141,154,165,145,072,040 filen [-.source]bitops.icn declend line 73 mark L1 var 1 str 0 var 2 var 0 line 76 invoke 1 line 74 invoke 2 unmark lab L1 pnull line 77 pfail end