proc sin local 0,001000,x local 1,000000,_sinus local 2,000000,numeric con 0,002000,0 filen [-.source]math.icn declend line 19 mark L1 mark L2 var 1 var 2 var 0 line 20 invoke 1 int 0 invoke 2 pret lab L2 line 20 pfail unmark lab L1 pnull line 21 pfail end proc cos local 0,001000,x local 1,000000,_sinus local 2,000000,abs local 3,000000,numeric con 0,002000,1 filen [-.source]math.icn declend line 23 mark L1 mark L2 var 1 var 2 var 3 var 0 line 24 invoke 1 invoke 1 int 0 invoke 2 pret lab L2 line 24 pfail unmark lab L1 pnull line 25 pfail end proc tan local 0,001000,x local 1,000000,sin local 2,000000,cos con 0,004000,0.0 filen [-.source]math.icn declend line 27 mark L1 mark L2 pnull var 1 var 0 line 28 invoke 1 pnull real 0 var 2 var 0 invoke 1 numne div pret lab L2 line 28 pfail unmark lab L1 pnull line 29 pfail end proc atan local 0,001000,x local 1,000000,numeric local 2,000000,_satan con 0,004000,0.0 filen [-.source]math.icn declend line 33 mark L1 mark0 var 1 var 0 line 34 invoke 1 unmark mark L2 mark L3 pnull var 0 real 0 line 35 numgt unmark var 2 var 0 invoke 1 goto L4 lab L3 pnull var 2 pnull var 0 neg invoke 1 neg lab L4 pret lab L2 line 35 pfail unmark lab L1 pnull line 36 pfail end proc atan2 local 0,001000,y local 1,001000,x local 2,000020,r local 3,000040,pi local 4,000000,numeric local 5,000000,atan local 6,000000,abs con 0,004000,3.141592653589793238462643 con 1,004000,0.0 con 2,004000,2.0 filen [-.source]math.icn declend line 40 init L1 mark L1 pnull var 3 real 0 line 43 asgn unmark lab L1 mark L2 mark L3 mark0 var 4 var 0 line 44 invoke 1 pop var 4 var 1 invoke 1 unmark mark L4 pnull var 1 real 1 line 45 numgt unmark var 5 pnull var 0 var 1 line 46 div invoke 1 goto L5 lab L4 mark L6 pnull var 1 real 1 line 47 numlt unmark mark L8 pnull var 2 pnull var 3 var 5 var 6 pnull var 0 var 1 line 48 div invoke 1 invoke 1 minus asgn unmark lab L8 mark L9 pnull var 0 real 1 line 49 numge unmark var 2 goto L10 lab L9 pnull var 2 neg lab L10 goto L7 lab L6 mark L11 pnull pnull var 1 var 0 line 51 numeq real 1 numeq unmark real 1 goto L12 lab L11 mark L13 pnull var 0 real 1 line 54 numge unmark pnull var 3 real 2 div goto L14 lab L13 pnull pnull var 3 neg real 2 div lab L14 lab L12 lab L7 lab L5 line 44 pret lab L3 line 44 pfail unmark lab L2 pnull line 56 pfail end proc asin local 0,001000,x local 1,000000,abs local 2,000000,numeric local 3,000000,atan2 con 0,004000,1.0 con 1,002000,2 con 2,004000,0.5 filen [-.source]math.icn declend line 58 mark L1 mark0 pnull var 1 var 2 var 0 line 59 invoke 1 invoke 1 real 0 numle unmark mark L2 var 3 var 0 pnull pnull real 0 pnull var 0 int 1 line 60 power minus real 2 power invoke 2 pret lab L2 line 60 pfail unmark lab L1 pnull line 61 pfail end proc acos local 0,001000,x local 1,000000,asin con 0,004000,1.570796326794896619231e0 filen [-.source]math.icn declend line 63 mark L1 mark L2 pnull real 0 var 1 var 0 line 64 invoke 1 minus pret lab L2 line 64 pfail unmark lab L1 pnull line 65 pfail end proc dtor local 0,001000,deg local 1,000000,numeric con 0,004000,57.29577951308232 filen [-.source]math.icn declend line 67 mark L1 mark L2 pnull var 1 var 0 line 68 invoke 1 real 0 div pret lab L2 line 68 pfail unmark lab L1 pnull line 69 pfail end proc rtod local 0,001000,rad local 1,000000,numeric con 0,004000,57.29577951308232 filen [-.source]math.icn declend line 71 mark L1 mark L2 pnull var 1 var 0 line 72 invoke 1 real 0 mult pret lab L2 line 72 pfail unmark lab L1 pnull line 73 pfail end proc sqrt local 0,001000,x local 1,000000,numeric con 0,004000,0.0 con 1,004000,0.5 filen [-.source]math.icn declend line 75 mark L1 mark L2 pnull pnull real 0 var 1 var 0 line 76 invoke 1 numle real 1 power pret lab L2 line 76 pfail unmark lab L1 pnull line 77 pfail end proc floor local 0,001000,x local 1,000000,numeric local 2,000000,real local 3,000000,integer con 0,004000,0.0 con 1,002000,1 filen [-.source]math.icn declend line 79 mark L1 mark L2 mark0 var 1 var 0 line 80 invoke 1 unmark mark L3 mark L5 pnull var 0 real 0 line 81 numge esusp goto L6 lab L5 pnull var 2 var 0 invoke 1 var 3 var 0 invoke 1 numeq lab L6 unmark var 3 var 0 invoke 1 goto L4 lab L3 pnull var 3 pnull pnull var 0 neg int 1 plus invoke 1 neg lab L4 line 80 pret lab L2 line 80 pfail unmark lab L1 pnull line 82 pfail end proc ceil local 0,001000,x local 1,000000,floor local 2,000000,numeric filen [-.source]math.icn declend line 84 mark L1 mark L2 pnull var 1 pnull var 2 var 0 line 85 invoke 1 neg invoke 1 neg pret lab L2 line 85 pfail unmark lab L1 pnull line 86 pfail end proc log local 0,001000,x local 1,000020,z local 2,000020,zsq local 3,000020,ex local 4,000040,log2 local 5,000040,sqrto2 local 6,000040,p0 local 7,000040,p1 local 8,000040,p2 local 9,000040,p3 local 10,000040,q0 local 11,000040,q1 local 12,000040,q2 local 13,000000,numeric con 0,004000,0.693147180559945309e0 con 1,004000,0.707106781186547524e0 con 2,004000,0.240139179559210510e2 con 3,004000,0.309572928215376501e2 con 4,004000,0.963769093368686593e1 con 5,004000,0.421087371217979714e0 con 6,004000,0.120069589779605255e2 con 7,004000,0.194809660700889731e2 con 8,004000,0.891110902798312337e1 con 9,004000,0.0 con 10,002000,0 con 11,004000,1.0 con 12,004000,2.0 con 13,002000,1 con 14,004000,0.5 con 15,002000,2 filen [-.source]math.icn declend line 88 init L1 mark L1 mark L2 pnull var 4 real 0 line 93 asgn unmark lab L2 mark L3 pnull var 5 real 1 line 94 asgn unmark lab L3 mark L4 pnull var 6 pnull real 2 line 95 neg asgn unmark lab L4 mark L5 pnull var 7 real 3 line 96 asgn unmark lab L5 mark L6 pnull var 8 pnull real 4 line 97 neg asgn unmark lab L6 mark L7 pnull var 9 real 5 line 98 asgn unmark lab L7 mark L8 pnull var 10 pnull real 6 line 99 neg asgn unmark lab L8 mark L9 pnull var 11 real 7 line 100 asgn unmark lab L9 pnull var 12 pnull real 8 line 101 neg asgn unmark lab L1 mark L10 mark0 pnull var 13 var 0 line 103 invoke 1 real 9 numgt unmark mark L11 pnull var 3 int 10 line 104 asgn unmark lab L11 mark L12 lab L13 line 105 mark0 pnull var 0 real 11 numge unmark mark L13 mark L16 pnull var 0 dup real 12 line 106 div asgn unmark lab L16 pnull var 3 dup int 13 line 107 plus asgn lab L14 unmark goto L13 lab L15 unmark lab L12 mark L17 lab L18 line 109 mark0 pnull var 0 real 14 numlt unmark mark L18 mark L21 pnull var 0 dup real 12 line 110 mult asgn unmark lab L21 pnull var 3 dup int 13 line 111 minus asgn lab L19 unmark goto L18 lab L20 unmark lab L17 mark L22 mark0 pnull var 0 var 5 line 113 numlt unmark mark L23 pnull var 0 dup real 12 line 114 mult asgn unmark lab L23 pnull var 3 dup int 13 line 115 minus asgn unmark lab L22 mark L24 pnull pnull pnull pnull pnull pnull pnull pnull pnull var 9 pnull var 2 pnull pnull var 1 pnull pnull var 0 real 11 line 117 minus pnull var 0 real 11 plus div asgn int 15 power asgn mult var 8 plus var 2 mult var 7 plus var 2 mult var 6 plus pnull pnull pnull pnull pnull pnull real 11 var 2 line 118 mult var 12 plus var 2 mult var 11 plus var 2 mult var 10 plus line 117 div var 1 line 118 mult pnull var 3 var 4 mult plus line 117 pret lab L24 line 117 pfail unmark lab L10 pnull line 120 pfail end proc exp local 0,001000,x local 1,000000,numeric con 0,004000,2.718281828459045235360287 filen [-.source]math.icn declend line 122 mark L1 mark L2 pnull real 0 var 1 var 0 line 123 invoke 1 power pret lab L2 line 123 pfail unmark lab L1 pnull line 124 pfail end proc log10 local 0,001000,x local 1,000000,log con 0,004000,2.30258509299404568402 filen [-.source]math.icn declend line 126 mark L1 mark L2 pnull var 1 var 0 line 127 invoke 1 real 0 div pret lab L2 line 127 pfail unmark lab L1 pnull line 128 pfail end proc _sinus local 0,001000,x local 1,001000,quad local 2,000020,ysq local 3,000020,y local 4,000020,k local 5,000040,twoopi local 6,000040,p0 local 7,000040,p1 local 8,000040,p2 local 9,000040,p3 local 10,000040,p4 local 11,000040,q0 local 12,000040,q1 local 13,000040,q2 local 14,000040,q3 local 15,000000,integer con 0,004000,0.63661977236758134308 con 1,004000,0.1357884097877375669092680e8 con 2,004000,0.4942908100902844161158627e7 con 3,004000,0.4401030535375266501944918e6 con 4,004000,0.1384727249982452873054457e5 con 5,004000,0.1459688406665768722226959e3 con 6,004000,0.8644558652922534429915149e7 con 7,004000,0.4081792252343299749395779e6 con 8,004000,0.9463096101538208180571257e4 con 9,004000,0.1326534908786136358911494e3 con 10,004000,0.0 con 11,002000,2 con 12,002000,4 con 13,002000,1 con 14,002000,3 con 15,004000,1.0 filen [-.source]math.icn declend line 130 init L1 mark L1 mark L2 pnull var 5 real 0 line 135 asgn unmark lab L2 mark L3 pnull var 6 real 1 line 136 asgn unmark lab L3 mark L4 pnull var 7 pnull real 2 line 137 neg asgn unmark lab L4 mark L5 pnull var 8 real 3 line 138 asgn unmark lab L5 mark L6 pnull var 9 pnull real 4 line 139 neg asgn unmark lab L6 mark L7 pnull var 10 real 5 line 140 asgn unmark lab L7 mark L8 pnull var 11 real 6 line 141 asgn unmark lab L8 mark L9 pnull var 12 real 7 line 142 asgn unmark lab L9 mark L10 pnull var 13 real 8 line 143 asgn unmark lab L10 pnull var 14 real 9 line 144 asgn unmark lab L1 mark L11 mark0 pnull var 0 real 10 line 146 numlt unmark mark L12 pnull var 0 pnull var 0 line 147 neg asgn unmark lab L12 pnull var 1 dup int 11 line 148 plus asgn unmark lab L11 mark L13 pnull var 3 pnull pnull var 0 dup var 5 line 150 mult asgn pnull var 4 var 15 var 0 invoke 1 asgn minus asgn unmark lab L13 mark L14 mark0 pnull pnull var 1 pnull pnull var 1 var 4 line 151 plus int 12 mod asgn mark L15 int 13 esusp goto L16 lab L15 int 14 lab L16 numeq unmark pnull var 3 pnull real 15 var 3 line 152 minus asgn unmark lab L14 mark L17 mark0 pnull var 1 int 13 line 153 numgt unmark pnull var 3 pnull var 3 line 154 neg asgn unmark lab L17 mark L18 mark L19 pnull pnull pnull pnull pnull pnull pnull pnull pnull pnull var 10 pnull var 2 pnull var 3 int 11 line 155 power asgn mult var 9 plus var 2 mult var 8 plus var 2 mult var 7 plus var 2 mult var 6 plus var 3 mult pnull pnull pnull pnull pnull pnull pnull var 2 var 14 line 156 plus var 2 mult var 13 plus var 2 mult var 12 plus var 2 mult var 11 plus line 155 div pret lab L19 line 155 pfail unmark lab L18 pnull line 157 pfail end proc _satan local 0,001000,x local 1,000040,sq2p1 local 2,000040,sq2m1 local 3,000040,pio2 local 4,000040,pio4 local 5,000000,_xatan con 0,004000,2.414213562373095048802e0 con 1,004000,0.414213562373095048802e0 con 2,004000,1.570796326794896619231e0 con 3,004000,0.785398163397448309615e0 con 4,004000,1.0 filen [-.source]math.icn declend line 159 init L1 mark L1 mark L2 pnull var 1 real 0 line 162 asgn unmark lab L2 mark L3 pnull var 2 real 1 line 163 asgn unmark lab L3 mark L4 pnull var 3 real 2 line 164 asgn unmark lab L4 pnull var 4 real 3 line 165 asgn unmark lab L1 mark L5 mark L6 mark L7 pnull var 0 var 2 line 167 numlt unmark var 5 var 0 line 168 invoke 1 goto L8 lab L7 mark L9 pnull var 0 var 1 line 169 numgt unmark pnull var 3 var 5 pnull real 4 var 0 line 170 div invoke 1 minus goto L10 lab L9 pnull var 4 var 5 pnull pnull var 0 real 4 line 172 minus pnull var 0 real 4 plus div invoke 1 plus lab L10 lab L8 line 167 pret lab L6 line 167 pfail unmark lab L5 pnull line 173 pfail end proc _xatan local 0,001000,x local 1,000020,xsq local 2,000040,p4 local 3,000040,p3 local 4,000040,p2 local 5,000040,p1 local 6,000040,p0 local 7,000040,q4 local 8,000040,q3 local 9,000040,q2 local 10,000040,q1 local 11,000040,q0 con 0,004000,0.161536412982230228262e2 con 1,004000,0.26842548195503973794141e3 con 2,004000,0.11530293515404850115428136e4 con 3,004000,0.178040631643319697105464587e4 con 4,004000,0.89678597403663861959987488e3 con 5,004000,0.5895697050844462222791e2 con 6,004000,0.536265374031215315104235e3 con 7,004000,0.16667838148816337184521798e4 con 8,004000,0.207933497444540981287275926e4 con 9,004000,0.89678597403663861962481162e3 con 10,002000,2 filen [-.source]math.icn declend line 175 init L1 mark L1 mark L2 pnull var 2 real 0 line 180 asgn unmark lab L2 mark L3 pnull var 3 real 1 line 181 asgn unmark lab L3 mark L4 pnull var 4 real 2 line 182 asgn unmark lab L4 mark L5 pnull var 5 real 3 line 183 asgn unmark lab L5 mark L6 pnull var 6 real 4 line 184 asgn unmark lab L6 mark L7 pnull var 7 real 5 line 185 asgn unmark lab L7 mark L8 pnull var 8 real 6 line 186 asgn unmark lab L8 mark L9 pnull var 9 real 7 line 187 asgn unmark lab L9 mark L10 pnull var 10 real 8 line 188 asgn unmark lab L10 pnull var 11 real 9 line 189 asgn unmark lab L1 mark L11 mark L12 pnull pnull var 0 pnull pnull pnull pnull pnull pnull pnull pnull var 2 pnull var 1 pnull var 0 int 10 line 191 power asgn mult var 3 plus var 1 mult var 4 plus var 1 mult var 5 plus var 1 mult var 6 plus mult pnull pnull pnull pnull pnull pnull pnull pnull pnull var 1 var 7 line 192 plus var 1 mult var 8 plus var 1 mult var 9 plus var 1 mult var 10 plus var 1 mult var 11 plus line 191 div pret lab L12 line 191 pfail unmark lab L11 pnull line 193 pfail end