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 ]
"16 focal3.c
[v _putline `(v 1 ef2`*S7`*S1 ]
{
"18
[v _lp `*S7 1 R1 ]
[v _fp `*S1 1 r2 ]
[e :U _putline ]
[f ]
"19
[v _fprintf `(i 0 e1v`*S1`*Cuc ]
[e ( _fprintf (1 , , , (. , _fp :s 1C -> . *U _lp 2 `i -> . *U _lp 1 `i &U . *U _lp 3 ]
"20
[e :UE 12 ]
}
"31
[v _getlno `(v 1 ef2`*S8`i ]
{
"33
[v _lnop `*S8 1 R1 ]
[v _c `i 1 R2 ]
[e :U _getlno ]
[f ]
"34
[v _gn `i 1 A ]
[v _ln `i 1 A ]
"35
[v F532 `uc -> 0 `x s badlno ]
[i F532
:U ..
-> 66 `c
-> 97 `c
-> 100 `c
-> 32 `c
-> 108 `c
-> 105 `c
-> 110 `c
-> 101 `c
-> 32 `c
-> 111 `c
-> 114 `c
-> 32 `c
-> 103 `c
-> 114 `c
-> 111 `c
-> 117 `c
-> 112 `c
-> 32 `c
-> 110 `c
-> 117 `c
-> 109 `c
-> 98 `c
-> 101 `c
-> 114 `c
-> 0 `c
..
]"37
[e $ ! < _c -> 0 `i 14 ]
"38
[v _getnb `(i 0 ef ]
[e = _c ( _getnb ..  ]
[e :U 14 ]
"39
[e $ ! || == -> _c `ui -> 0 `ui == -> _c `ui -> 59 `ui 15 ]
"40
[v _ctp `*uc 0 e ]
[e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ]
"41
[e = . *U _lnop 2 -> 3 `i ]
"42
[e $UE 13 ]
"43
[e :U 15 ]
"44
[e $ ! || == -> _c `ui -> 65 `ui == -> _c `ui -> 97 `ui 16 ]
"45
[v __ctype_ `Cuc -> 0 `x e ]
[e $U 17 ]
[e :U 18 ]
"46
[e =+ _ctp * -> -> 1 `i `x -> -> # `uc `i `x ]
[e :U 17 ]
"45
[e $ != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> *U _ctp `ux -> -> # `Cuc `ui `ux `i | -> 1 `i -> 2 `i -> 0 `i 18 ]
[e :U 19 ]
"47
[e = . *U _lnop 2 -> 0 `i ]
"48
[e $UE 13 ]
"49
[e :U 16 ]
"50
[e $ ! ! != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i -> 4 `i -> 0 `i 20 ]
"51
[v _diag `(v 0 ef1`*Cuc ]
[e ( _diag (1 -> &U F532 `*Cuc ]
[e :U 20 ]
"52
[v _getnum `(i 0 ef1`i ]
[e $ ! || < = _gn ( _getnum (1 _c -> 1 `i > _gn -> 99 `i 21 ]
"53
[e ( _diag (1 -> &U F532 `*Cuc ]
[e :U 21 ]
"54
[e $ ! != -> *U _ctp `ui -> 46 `ui 22 ]
"55
[e = . *U _lnop 1 -> _gn `uc ]
"56
[e = . *U _lnop 0 -> -> 0 `i `uc ]
"57
[e = . *U _lnop 2 -> 1 `i ]
"58
[e $UE 13 ]
"59
[e :U 22 ]
"60
[e =+ _ctp * -> -> 1 `i `x -> -> # `uc `i `x ]
"61
[e $ ! == = _ln ( _getnum (1 -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i -> 0 `i 23 ]
"62
[e = . *U _lnop 1 -> _gn `uc ]
"63
[e = . *U _lnop 0 -> -> 0 `i `uc ]
"64
[e = . *U _lnop 2 -> 1 `i ]
"65
[e $UE 13 ]
"66
[e :U 23 ]
"67
[e $ ! | < _ln -> 1 `i > _ln -> 99 `i 24 ]
"68
[e ( _diag (1 -> &U F532 `*Cuc ]
[e :U 24 ]
"69
[e = . *U _lnop 1 -> _gn `uc ]
"70
[e = . *U _lnop 0 -> _ln `uc ]
"71
[e = . *U _lnop 2 -> 2 `i ]
"72
[e :UE 13 ]
}
"81
[v _getnum `(i 1 ef1`i ]
{
"82
[v _c `i 1 R1 ]
[e :U _getnum ]
[f ]
"83
[v _n `i 1 A ]
"85
[e = _n -> 0 `i ]
"86
[e $U 26 ]
[e :U 27 ]
"87
[e = _n -> - -> + * -> 10 `i _n _c `ui -> 48 `ui `i ]
"88
[e = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i ]
"89
[e :U 26 ]
"86
[e $ != & -> *U + + &U __ctype_ * -> -> 1 `i `x -> -> # `Cuc `i `x * -> -> _c `uc `ux -> -> # `Cuc `ui `ux `i -> 4 `i -> 0 `i 27 ]
[e :U 28 ]
"90
[e =- _ctp * -> -> 1 `i `x -> -> # `uc `i `x ]
"91
[e ) _n ]
[e $UE 25 ]
"92
[e :UE 25 ]
}
"104
[v _alocline `(*S7 1 ef1`*uc ]
{
"105
[v _cp `*uc 1 R1 ]
[e :U _alocline ]
[f ]
"106
[v _lp `*S7 1 A ]
[e = _lp -> -> 0 `i `*S7 ]
"108
[v _malloc `(*v 0 ef1`ui ]
[v _strlen `(ui 0 ef1`*Cuc ]
[e = _lp -> ( _malloc (1 + + -> # `S7 `ui ( _strlen (1 -> _cp `*Cuc -> -> 1 `i `ui `*S7 ]
"109
[e $ ! == _lp -> -> 0 `i `*S7 30 ]
"110
[e ( _diag (1 :s 2C ]
[e :U 30 ]
"111
[e ) _lp ]
[e $UE 29 ]
"112
[e :UE 29 ]
}
"124
[v _diag `(v 1 ef1`*Cuc ]
{
"125
[v _s `*Cuc 1 r1 ]
[e :U _diag ]
[f ]
"126
[v _lp `*S7 1 A ]
"127
[v _cp `*uc 1 A ]
"129
[v _printf `(i 0 ev`*Cuc ]
[e ( _printf , (. :s 3C _s ]
"130
[v _clp `*S7 0 e ]
[e $ ! != = _lp _clp -> -> 0 `i `*S7 32 ]
"131
[v __iob `S1 -> 0 `x e ]
[e ( _putline (2 , _lp &U *U + &U __iob * -> -> -> 1 `i `ui `ux -> -> # `S1 `ui `ux ]
"132
[e ( _printf :s 4C ]
"133
[e = _cp &U . *U _lp 3 ]
"134
[e $U 33 ]
[e :U 32 ]
"135
[v _cbuf `uc -> 0 `x e ]
[e ( _printf , (. :s 5C -> &U _cbuf `*Cuc ]
"136
[e = _cp &U _cbuf ]
"137
[e :U 33 ]
"138
[e $U 34 ]
[e :U 35 ]
"139
[v _fputc `(i 0 ef2`i`*S1 ]
[e ( _fputc (2 , -> -> 32 `ui `i &U *U + &U __iob * -> -> -> 1 `i `ui `ux -> -> # `S1 `ui `ux ]
"140
[e =+ _cp * -> -> 1 `i `x -> -> # `uc `i `x ]
"141
[e :U 34 ]
"138
[e $ < _cp _ctp 35 ]
[e :U 36 ]
"142
[e ( _printf :s 6C ]
"143
[v _controlv `*S11 0 e ]
[e $U 37 ]
[e :U 38 ]
"144
[v _popdo `(v 0 ef ]
[e ( _popdo ..  ]
[e :U 37 ]
"143
[e $ != _controlv -> -> 0 `i `*S11 38 ]
[e :U 39 ]
"145
[v _longjmp `(v 0 ef2`*ui`i ]
[v _env `ui -> 0 `x e ]
[e ( _longjmp (2 , &U _env -> 0 `i ]
"146
[e :UE 31 ]
}
"154
[v _getnb `(i 1 ef ]
{
[e :U _getnb ]
[f ]
"155
[v _c `i 1 A ]
"157
[e $U 41 ]
[e :U 42 ]
"158
[e :U 41 ]
"157
[e $ || == -> = _c -> *U ++ _ctp * -> -> 1 `i `x -> -> # `uc `i `x `i `ui -> 32 `ui == -> _c `ui -> 9 `ui 42 ]
[e :U 43 ]
"159
[e ) _c ]
[e $UE 40 ]
"160
[e :UE 40 ]
}
"168
[v _drand48 `(d 1 ef ]
{
[e :U _drand48 ]
[f ]
"169
[v _rand `(i 0 ef ]
[e ) / -> ( _rand ..  `d .32768.0 ]
[e $UE 44 ]
"170
[e :UE 44 ]
}
[a 2C 79 117 116 32 111 102 32 109 101 109 111 114 121 0 ]
[a 4C 32 32 32 32 32 32 0 ]
[a 5C 42 37 115 10 32 0 ]
[a 1C 37 48 50 100 46 37 48 50 100 32 37 115 10 0 ]
[a 6C 94 10 0 ]
[a 3C 37 115 33 10 0 ]