Version 3.2 HI-TECH Software Intermediate Code "12 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\stdio.h [v _ptrdiff_t `i 1 t ] "13 [v _size_t `ui 1 t ] "14 [v _wchar_t `us 1 t ] "53 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\stdarg.h [v _va_list `*v -> -> 1 `i `ux t ] "39 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\stdio.h [s S1 `*uc 1 `i 1 `*uc 1 `us 1 `s 1 `ui 1 ] [n S1 _iobuf _ptr _cnt _base _flag _file _size ] "54 [s S2 `uc -> 81 `i `*S1 1 ] [n S2 _tfiles tname tfp ] "166 [v F113 `(v 1 tf ] "47 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\stdlib.h [s S3 `i 1 `i 1 ] [n S3 . quot rem ] [v _div_t `S3 1 t ] "51 [s S4 `ui 1 `ui 1 ] [n S4 . quot rem ] [v _udiv_t `S4 1 t ] "55 [s S5 `l 1 `l 1 ] [n S5 . quot rem ] [v _ldiv_t `S5 1 t ] "59 [s S6 `ul 1 `ul 1 ] [n S6 . quot rem ] [v _uldiv_t `S6 1 t ] "122 [v F213 `(v 1 tf ] "126 [v F225 `(i 1 tf2`*Cv`*Cv ] "127 [v F234 `(i 1 tf2`*Cv`*Cv ] "38 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\setjmp.h [v _jmp_buf `ui -> 4 `i t ] "35 C:\Program Files\HI-TECH Software\PICC\LITE\9.60\include\signal.h [v F339 `(v 1 tf1`i ] [v F342 `(v 1 tf1`i ] "26 focal.h [s S7 `*S7 1 `uc 1 `uc 1 `uc -> -> 1 `i `ux ] [n S7 line l_fp l_lno l_gno l_text ] "33 [s S8 `uc 1 `uc 1 `i 1 ] [n S8 lno ln_lno ln_gno ln_type ] "47 [v F411 `(d 1 tf1`d ] "48 [u S10 `d 1 `*F411 1 ] [n S10 . s_value s_fp ] "50 [s S9 `*S9 1 `i 1 `i 1 `S10 1 `uc -> -> 1 `i `ux ] [n S9 sym s_fp s_type s_subs s_un s_id ] "65 [s S11 `*S11 1 `i 1 `*S7 1 `*uc 1 `*S9 1 `f 1 `f 1 ] [n S11 control c_fp c_mode c_lp c_tp c_sp c_limit c_step ] "10 proto.h [v F442 `(d 1 tf1`d ] "12 focal1.c [v _eval `(d 1 ef ] { [e :U _eval ] [f ] "13 [v _val `d 1 a ] "14 [v _rop `d 1 a ] "15 [v _c `i 1 A ] "17 [v _getnb `(i 0 ef ] [e $ ! || == -> = _c ( _getnb .. `ui -> 43 `ui == -> _c `ui -> 45 `ui 13 ] "18 [v _primary `(d 0 ef ] [e = _val ( _primary .. ] "19 [e $ ! == -> _c `ui -> 45 `ui 14 ] "20 [e = _val -U _val ] [e :U 14 ] "21 [e $U 15 ] [e :U 13 ] "22 [v _ctp `*uc 0 e ] [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] "23 [e = _val ( _primary .. ] "24 [e :U 15 ] "25 [e $U 16 ] [e :U 17 ] "26 [e = _rop ( _primary .. ] "27 [e $ ! == -> _c `ui -> 43 `ui 19 ] "28 [e = _val + _val _rop ] [e $U 20 ] "29 [e :U 19 ] "30 [e = _val - _val _rop ] [e :U 20 ] "31 [e :U 16 ] "25 [e $ || == -> = _c ( _getnb .. `ui -> 43 `ui == -> _c `ui -> 45 `ui 17 ] [e :U 18 ] "32 [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] "33 [e ) _val ] [e $UE 12 ] "34 [e :UE 12 ] } "38 [v _primary `(d 1 ef ] { [e :U _primary ] [f ] "39 [v _val `d 1 a ] "40 [v _rop `d 1 a ] "41 [v _c `i 1 A ] "43 [v _term `(d 0 ef ] [e = _val ( _term .. ] "44 [e $U 22 ] [e :U 23 ] "45 [e = _rop ( _term .. ] "46 [e $ ! == -> _c `ui -> 42 `ui 25 ] "47 [e = _val * _val _rop ] [e $U 26 ] "48 [e :U 25 ] [e $ ! == -> _c `ui -> 47 `ui 27 ] "49 [e = _val / _val _rop ] [e $U 28 ] "50 [e :U 27 ] "51 [v _pow `(d 0 ef2`d`d ] [e = _val ( _pow (2 , _val _rop ] [e :U 28 ] [e :U 26 ] "52 [e :U 22 ] "44 [e $ || || == -> = _c ( _getnb .. `ui -> 42 `ui == -> _c `ui -> 47 `ui == -> _c `ui -> 94 `ui 23 ] [e :U 24 ] "53 [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] "54 [e ) _val ] [e $UE 21 ] "55 [e :UE 21 ] } "59 [v _term `(d 1 ef ] { [e :U _term ] [f ] "60 [v _c `i 1 A ] "61 [v _cp `*uc 1 A ] "62 [v _val `d 1 a ] "63 [v _fsign `i 1 A ] "64 [v _fdot `i 1 A ] "65 [v _fexp `i 1 A ] "66 [v _type `i 1 A ] "67 [v _subs `i 1 A ] [e = _subs -> 0 `i ] "68 [v _sp `*S9 1 A ] "69 [v _id `uc -> 16 `i a ] "70 [v _nbuf `uc -> 20 `i a ] "72 [e $ ! || || == -> = _c ( _getnb .. `ui -> 40 `ui == -> _c `ui -> 91 `ui == -> _c `ui -> 60 `ui 30 ] "73 [e = _val ( _eval .. ] "74 [e $ ! != -> =+ _c -> 1 `i `ui -> 41 `ui 31 ] "75 [e =+ _c -> 1 `i ] [e :U 31 ] "76 [e $ ! != _c ( _getnb .. 32 ] "77 [v _diag `(v 0 ef1`*Cuc ] [e ( _diag (1 :s 1C ] [e :U 32 ] "78 [e ) _val ] [e $UE 29 ] "79 [e :U 30 ] "80 [v __ctype_ `Cuc -> 0 `x e ] [e $ ! || == -> _c `ui -> 46 `ui != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i -> 4 `i -> 0 `i 33 ] "81 [e = _fsign -> 1 `i ] "82 [e = _fexp -> 0 `i ] "83 [e = _fdot -> 0 `i ] "84 [e $ ! == -> _c `ui -> 46 `ui 34 ] "85 [e =+ _fdot -> 1 `i ] [e :U 34 ] "86 [e = _cp &U *U + &U _nbuf * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux ] "87 [e :U 35 ] "88 [e $ ! >= _cp &U *U + &U _nbuf * -> -> -> 19 `i `ui `ux -> -> # `uc `ui `ux 38 ] "89 [e ( _diag (1 :s 2C ] [e :U 38 ] "90 [e = *U ++ _cp * -> -> 1 `i `x -> -> # `uc `i `x -> _c `uc ] "91 [e $ ! == -> = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i `ui -> 46 `ui 39 ] "92 [e $ ! != ++ _fdot -> 1 `i -> 0 `i 40 ] "93 [e $U 36 ] [e :U 40 ] "94 [e $U 41 ] [e :U 39 ] [e $ ! == -> _c `ui -> 101 `ui 42 ] "95 [e $ ! != ++ _fexp -> 1 `i -> 0 `i 43 ] "96 [e $U 36 ] [e :U 43 ] "97 [e = _fsign -> 0 `i ] "98 [e = _fdot -> 1 `i ] "99 [e $U 44 ] [e :U 42 ] [e $ ! || == -> _c `ui -> 43 `ui == -> _c `ui -> 45 `ui 45 ] "100 [e $ ! != ++ _fsign -> 1 `i -> 0 `i 46 ] "101 [e $U 36 ] [e :U 46 ] "102 [e $U 47 ] [e :U 45 ] [e $ ! ! != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i -> 4 `i -> 0 `i 48 ] "103 [e $U 36 ] [e :U 48 ] "104 [e :U 47 ] [e :U 44 ] [e :U 41 ] [e $U 35 ] [e :U 36 ] "105 [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] "106 [e = *U _cp -> -> 0 `ui `uc ] "107 [v _atof `(d 0 ef1`*Cuc ] [e ) ( _atof (1 -> &U _nbuf `*Cuc ] [e $UE 29 ] "108 [e :U 33 ] "109 [e $ ! ! != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i | -> 1 `i -> 2 `i -> 0 `i 49 ] "110 [e ( _diag (1 :s 3C ] [e :U 49 ] "111 [e = _cp &U *U + &U _id * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux ] "112 [e :U 52 ] "113 [e $ ! < _cp &U *U + &U _id * -> -> - -> 16 `i -> 1 `i `ui `ux -> -> # `uc `ui `ux 53 ] "114 [e = *U ++ _cp * -> -> 1 `i `x -> -> # `uc `i `x -> _c `uc ] [e :U 53 ] "115 [e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ] "116 [e $ != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i | | -> 1 `i -> 2 `i -> 4 `i -> 0 `i 52 ] [e :U 51 ] "117 [e = *U _cp -> -> 0 `i `uc ] "119 [v _lookup `(*S9 0 ef3`*uc`i`i ] [e $ ! && == -> *U + &U _id * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux `ui -> 102 `ui != = _sp ( _lookup (3 , , &U _id -> 2 `i -> 0 `i -> -> 0 `i `*S9 54 ] "120 [e $U 55 ] [e :U 56 ] "121 [e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ] [e :U 55 ] "120 [e $ || == -> _c `ui -> 32 `ui == -> _c `ui -> 9 `ui 56 ] [e :U 57 ] "122 [e $ ! != -> _c `ui -> 40 `ui 58 ] "123 [e ( _diag (1 :s 4C ] [e :U 58 ] "124 [e = _val ( _eval .. ] "125 [e $ ! != -> ( _getnb .. `ui -> 41 `ui 59 ] "126 [e ( _diag (1 :s 5C ] [e :U 59 ] "127 [e ) ( *U . . *U _sp 3 1 (1 _val ] [e $UE 29 ] "128 [e :U 54 ] "130 [e = _type -> 0 `i ] "131 [e $U 60 ] [e :U 61 ] "132 [e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ] [e :U 60 ] "131 [e $ || == -> _c `ui -> 32 `ui == -> _c `ui -> 9 `ui 61 ] [e :U 62 ] "133 [e $ ! == -> _c `ui -> 40 `ui 63 ] "134 [e = _type -> 1 `i ] "135 [e = _subs -> ( _eval .. `i ] "136 [e $ ! != -> ( _getnb .. `ui -> 41 `ui 64 ] "137 [e ( _diag (1 :s 6C ] [e :U 64 ] "138 [e $U 65 ] [e :U 63 ] "139 [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] [e :U 65 ] "140 [e $ ! == = _sp ( _lookup (3 , , &U _id _type _subs -> -> 0 `i `*S9 66 ] "141 [e ( _diag (1 :s 7C ] [e :U 66 ] "142 [e ) . . *U _sp 3 0 ] [e $UE 29 ] "143 [e :UE 29 ] } "148 [v _lookup `(*S9 1 ef3`*uc`i`i ] { "151 [v _id `*uc 1 r1 ] [v _type `i 1 R2 ] [v _subs `i 1 r3 ] [e :U _lookup ] [f ] "152 [v _sp `*S9 1 A ] "153 [v _ix `i 1 a ] "155 [e = _ix -> & -> ? == _type -> 1 `i : + + << -> *U + _id * -> -> 1 `i `x -> -> # `uc `i `x `i -> 5 `i -> *U + _id * -> -> 0 `i `x -> -> # `uc `i `x `i << _subs -> 3 `i + << -> *U + _id * -> -> 1 `i `x -> -> # `uc `i `x `i -> 5 `i -> *U + _id * -> -> 0 `i `x -> -> # `uc `i `x `i `ui -> -> 255 `i `ui `i ] "156 [v _symv `*S9 -> 0 `x e ] [e = _sp *U + &U _symv * -> -> _ix `ui `ux -> -> # `*S9 `ui `ux ] "157 [e $U 68 ] [e :U 69 ] "160 [v _strcmp `(i 0 ef2`*Cuc`*Cuc ] [e $ ! && && == . *U _sp 1 _type || != _type -> 1 `i == . *U _sp 2 _subs == ( _strcmp (2 , -> _id `*Cuc -> &U . *U _sp 4 `*Cuc -> 0 `i 71 ] "161 [e $U 70 ] [e :U 71 ] "162 [e = _sp . *U _sp 0 ] "163 [e :U 68 ] "157 [e $ != _sp -> -> 0 `i `*S9 69 ] [e :U 70 ] "164 [e ) _sp ] [e $UE 67 ] "165 [e :UE 67 ] } "169 [v _getsym `(*S9 1 ef ] { [e :U _getsym ] [f ] "170 [v _c `i 1 A ] "171 [v _id `uc -> 16 `i a ] "172 [v _cp `*uc 1 A ] "173 [v _sp `*S9 1 A ] "174 [v _subs `i 1 a ] [e = _subs -> 0 `i ] [v _type `i 1 a ] "175 [v _ix `i 1 a ] "177 [e $ ! == & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> = _c ( _getnb .. `uc `ux -> -> # `Cuc `ui `ux `i | -> 1 `i -> 2 `i -> 0 `i 73 ] "178 [e ( _diag (1 :s 8C ] [e :U 73 ] "179 [e = _cp &U *U + &U _id * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux ] "180 [e :U 76 ] "181 [e $ ! < _cp &U *U + &U _id * -> -> - -> 16 `i -> 1 `i `ui `ux -> -> # `uc `ui `ux 77 ] "182 [e = *U ++ _cp * -> -> 1 `i `x -> -> # `uc `i `x -> _c `uc ] [e :U 77 ] "183 [e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ] "184 [e $ != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i | | -> 1 `i -> 2 `i -> 4 `i -> 0 `i 76 ] [e :U 75 ] "185 [e = *U _cp -> -> 0 `i `uc ] "186 [e = _type -> 0 `i ] "187 [e $U 78 ] [e :U 79 ] "188 [e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ] [e :U 78 ] "187 [e $ || == -> _c `ui -> 32 `ui == -> _c `ui -> 9 `ui 79 ] [e :U 80 ] "189 [e $ ! == -> _c `ui -> 40 `ui 81 ] "190 [e = _type -> 1 `i ] "191 [e = _subs -> ( _eval .. `i ] "192 [e $ ! != -> ( _getnb .. `ui -> 41 `ui 82 ] "193 [e ( _diag (1 :s 9C ] [e :U 82 ] "194 [e $U 83 ] [e :U 81 ] "195 [e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ] [e :U 83 ] "196 [e $ ! == = _sp ( _lookup (3 , , &U _id _type _subs -> -> 0 `i `*S9 84 ] "197 [v _malloc `(*v 0 ef1`ui ] [v _strlen `(ui 0 ef1`*Cuc ] [e = _sp -> ( _malloc (1 + + -> # `S9 `ui ( _strlen (1 -> &U _id `*Cuc -> -> 1 `i `ui `*S9 ] "198 [e $ ! == _sp -> -> 0 `i `*S9 85 ] "199 [e ( _diag (1 :s 10C ] [e :U 85 ] "200 [e = _ix -> & -> ? == _type -> 1 `i : + + << -> *U + &U _id * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux `i -> 5 `i -> *U + &U _id * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux `i << _subs -> 3 `i + << -> *U + &U _id * -> -> -> 1 `i `ui `ux -> -> # `uc `ui `ux `i -> 5 `i -> *U + &U _id * -> -> -> 0 `i `ui `ux -> -> # `uc `ui `ux `i `ui -> -> 255 `i `ui `i ] "201 [e = . *U _sp 0 *U + &U _symv * -> -> _ix `ui `ux -> -> # `*S9 `ui `ux ] "202 [e = *U + &U _symv * -> -> _ix `ui `ux -> -> # `*S9 `ui `ux _sp ] "203 [e = . *U _sp 1 _type ] "204 [e = . *U _sp 2 _subs ] "205 [v _strcpy `(*uc 0 ef2`*uc`*Cuc ] [e ( _strcpy (2 , &U . *U _sp 4 -> &U _id `*Cuc ] "206 [e :U 84 ] "207 [e ) _sp ] [e $UE 72 ] "208 [e :UE 72 ] } "213 [v _fsin `(d 1 ef1`d ] { "214 [v _arg `d 1 r1 ] [e :U _fsin ] [f ] "215 [v _sin `(d 0 ef1`d ] [e ) ( _sin (1 _arg ] [e $UE 86 ] "216 [e :UE 86 ] } "220 [v _fcos `(d 1 ef1`d ] { "221 [v _arg `d 1 r1 ] [e :U _fcos ] [f ] "222 [v _cos `(d 0 ef1`d ] [e ) ( _cos (1 _arg ] [e $UE 87 ] "223 [e :UE 87 ] } "227 [v _fexp `(d 1 ef1`d ] { "228 [v _arg `d 1 r1 ] [e :U _fexp ] [f ] "229 [v _exp `(d 0 ef1`d ] [e ) ( _exp (1 _arg ] [e $UE 88 ] "230 [e :UE 88 ] } "234 [v _flog `(d 1 ef1`d ] { "235 [v _arg `d 1 r1 ] [e :U _flog ] [f ] "236 [v _log `(d 0 ef1`d ] [e ) ( _log (1 _arg ] [e $UE 89 ] "237 [e :UE 89 ] } "241 [v _fatn `(d 1 ef1`d ] { "242 [v _arg `d 1 r1 ] [e :U _fatn ] [f ] "243 [v _atan `(d 0 ef1`d ] [e ) ( _atan (1 _arg ] [e $UE 90 ] "244 [e :UE 90 ] } "248 [v _fsqt `(d 1 ef1`d ] { "249 [v _arg `d 1 r1 ] [e :U _fsqt ] [f ] "250 [e $ ! < _arg .0.0 92 ] "251 [e ( _diag (1 :s 11C ] [e :U 92 ] "252 [v _sqrt `(d 0 ef1`d ] [e ) ( _sqrt (1 _arg ] [e $UE 91 ] "253 [e :UE 91 ] } "257 [v _fabt `(d 1 ef1`d ] { "258 [v _arg `d 1 r1 ] [e :U _fabt ] [f ] "259 [e $ ! < _arg -> -> 0 `i `d 94 ] "260 [e ) -U _arg ] [e $UE 93 ] [e :U 94 ] "261 [e ) _arg ] [e $UE 93 ] "262 [e :UE 93 ] } "266 [v _fsgn `(d 1 ef1`d ] { "267 [v _arg `d 1 r1 ] [e :U _fsgn ] [f ] "268 [e $ ! < _arg -> -> 0 `i `d 96 ] "269 [e ) -U .1.0 ] [e $UE 95 ] [e :U 96 ] "270 [e ) .1.0 ] [e $UE 95 ] "271 [e :UE 95 ] } "275 [v _fitr `(d 1 ef1`d ] { "276 [v _arg `d 1 r1 ] [e :U _fitr ] [f ] "277 [e $ ! < _arg -> -> 0 `i `d 98 ] "278 [v _floor `(d 0 ef1`d ] [e ) -U ( _floor (1 -U _arg ] [e $UE 97 ] [e :U 98 ] "279 [e $ ! == _arg -> -> 0 `i `d 99 ] "280 [e ) .0.0 ] [e $UE 97 ] [e :U 99 ] "281 [e ) ( _floor (1 _arg ] [e $UE 97 ] "282 [e :UE 97 ] } "286 [v _fran `(d 1 ef1`d ] { "287 [v _arg `d 1 r1 ] [e :U _fran ] [f ] "288 [v _drand48 `(d 0 ef ] [e ) ( _drand48 .. ] [e $UE 100 ] "289 [e :UE 100 ] } [a 3C 69 120 112 114 101 115 115 105 111 110 32 115 121 110 116 97 120 0 ] [a 6C 77 105 115 115 105 110 103 32 41 32 105 110 32 115 117 98 115 99 114 105 112 116 0 ] [a 9C 66 97 100 32 115 117 98 115 99 114 105 112 116 0 ] [a 1C 77 105 115 109 97 116 99 104 101 100 32 101 110 99 108 111 115 117 114 101 115 0 ] [a 5C 77 105 115 115 105 110 103 32 96 41 39 32 102 111 114 32 102 117 110 99 116 105 111 110 0 ] [a 4C 77 105 115 115 105 110 103 32 96 40 39 32 102 111 114 32 102 117 110 99 116 105 111 110 0 ] [a 2C 78 117 109 98 101 114 32 116 111 111 32 108 111 110 103 0 ] [a 8C 77 105 115 115 105 110 103 32 118 97 114 105 97 98 108 101 0 ] [a 7C 85 110 100 101 102 105 110 101 100 32 118 97 114 105 97 98 108 101 0 ] [a 11C 70 115 113 116 32 60 32 48 46 48 0 ] [a 10C 79 117 116 32 111 102 32 115 112 97 99 101 32 40 115 121 109 98 111 108 115 41 0 ]