| 1 | .data 8 |
| 2 | ok: |
| 3 | .c "ok" |
| 4 | |
| 5 | .code |
| 6 | jmpi main |
| 7 | |
| 8 | name putr |
| 9 | putr: |
| 10 | prolog |
| 11 | frame 160 |
| 12 | arg_c $ac |
| 13 | arg_c $auc |
| 14 | arg_s $as |
| 15 | arg_s $aus |
| 16 | arg_i $ai |
| 17 | #if __WORDSIZE == 64 |
| 18 | arg_i $aui |
| 19 | arg_l $al |
| 20 | #endif |
| 21 | arg_f $af |
| 22 | arg_d $ad |
| 23 | arg $a |
| 24 | #if __WORDSIZE == 64 |
| 25 | arg_l $_l |
| 26 | arg_i $_ui |
| 27 | #endif |
| 28 | arg_i $_i |
| 29 | arg_s $_us |
| 30 | arg_s $_s |
| 31 | arg_c $_uc |
| 32 | arg_c $_c |
| 33 | getarg_c %r0 $ac |
| 34 | negr %r0 %r0 |
| 35 | putargr_c %r0 $ac |
| 36 | getarg_uc %r0 $auc |
| 37 | negr %r0 %r0 |
| 38 | putargr_uc %r0 $auc |
| 39 | getarg_s %r0 $as |
| 40 | negr %r0 %r0 |
| 41 | putargr_s %r0 $as |
| 42 | getarg_us %r0 $aus |
| 43 | negr %r0 %r0 |
| 44 | putargr_us %r0 $aus |
| 45 | getarg_i %r0 $ai |
| 46 | negr %r0 %r0 |
| 47 | putargr_i %r0 $ai |
| 48 | #if __WORDSIZE == 64 |
| 49 | getarg_ui %r0 $aui |
| 50 | negr %r0 %r0 |
| 51 | putargr_ui %r0 $aui |
| 52 | getarg_l %r0 $al |
| 53 | negr %r0 %r0 |
| 54 | putargr_l %r0 $al |
| 55 | #endif |
| 56 | getarg_f %f0 $af |
| 57 | negr_f %f0 %f0 |
| 58 | putargr_f %f0 $af |
| 59 | getarg_d %f0 $ad |
| 60 | negr_d %f0 %f0 |
| 61 | putargr_d %f0 $ad |
| 62 | getarg %r0 $a |
| 63 | negr %r0 %r0 |
| 64 | putargr %r0 $a |
| 65 | #if __WORDSIZE == 64 |
| 66 | getarg_l %r0 $_l |
| 67 | negr %r0 %r0 |
| 68 | putargr_l %r0 $_l |
| 69 | getarg_ui %r0 $_ui |
| 70 | negr %r0 %r0 |
| 71 | putargr_ui %r0 $_ui |
| 72 | #endif |
| 73 | getarg_i %r0 $_i |
| 74 | negr %r0 %r0 |
| 75 | putargr_i %r0 $_i |
| 76 | getarg_us %r0 $_us |
| 77 | negr %r0 %r0 |
| 78 | putargr_us %r0 $_us |
| 79 | getarg_s %r0 $_s |
| 80 | negr %r0 %r0 |
| 81 | putargr_s %r0 $_s |
| 82 | getarg_uc %r0 $_uc |
| 83 | negr %r0 %r0 |
| 84 | putargr_uc %r0 $_uc |
| 85 | getarg_c %r0 $_c |
| 86 | negr %r0 %r0 |
| 87 | putargr_c %r0 $_c |
| 88 | jmpi _putr |
| 89 | rputr: |
| 90 | putargi_c 17 $ac |
| 91 | putargi_uc 16 $auc |
| 92 | putargi_s 15 $as |
| 93 | putargi_us 14 $aus |
| 94 | putargi_i 13 $ai |
| 95 | #if __WORDSIZE == 64 |
| 96 | putargi_ui 12 $aui |
| 97 | putargi_l 11 $al |
| 98 | #endif |
| 99 | putargi_f 10 $af |
| 100 | putargi_d 9 $ad |
| 101 | putargi 8 $a |
| 102 | #if __WORDSIZE == 64 |
| 103 | putargi_l 7 $_l |
| 104 | putargi_ui 6 $_ui |
| 105 | #endif |
| 106 | putargi_i 5 $_i |
| 107 | putargi_us 4 $_us |
| 108 | putargi_s 3 $_s |
| 109 | putargi_uc 2 $_uc |
| 110 | putargi_c 1 $_c |
| 111 | jmpi _puti |
| 112 | rputi: |
| 113 | ret |
| 114 | epilog |
| 115 | |
| 116 | name _putr |
| 117 | _putr: |
| 118 | prolog |
| 119 | tramp 160 |
| 120 | arg_c $ac |
| 121 | arg_c $auc |
| 122 | arg_s $as |
| 123 | arg_s $aus |
| 124 | arg_i $ai |
| 125 | #if __WORDSIZE == 64 |
| 126 | arg_i $aui |
| 127 | arg_l $al |
| 128 | #endif |
| 129 | arg_f $af |
| 130 | arg_d $ad |
| 131 | arg $a |
| 132 | #if __WORDSIZE == 64 |
| 133 | arg_l $_l |
| 134 | arg_i $_ui |
| 135 | #endif |
| 136 | arg_i $_i |
| 137 | arg_s $_us |
| 138 | arg_s $_s |
| 139 | arg_c $_uc |
| 140 | arg_c $_c |
| 141 | getarg_c %r0 $ac |
| 142 | beqi rac %r0 -1 |
| 143 | calli @abort |
| 144 | rac: |
| 145 | getarg_uc %r0 $auc |
| 146 | beqi rauc %r0 $(-2 & 0xff) |
| 147 | calli @abort |
| 148 | rauc: |
| 149 | getarg_s %r0 $as |
| 150 | beqi ras %r0 -3 |
| 151 | calli @abort |
| 152 | ras: |
| 153 | getarg_us %r0 $aus |
| 154 | beqi raus %r0 $(-4 & 0xffff) |
| 155 | calli @abort |
| 156 | raus: |
| 157 | getarg_i %r0 $ai |
| 158 | beqi rai %r0 -5 |
| 159 | calli @abort |
| 160 | rai: |
| 161 | #if __WORDSIZE == 64 |
| 162 | getarg_ui %r0 $aui |
| 163 | beqi raui %r0 $(-6 & 0xffffffff) |
| 164 | calli @abort |
| 165 | raui: |
| 166 | getarg_l %r0 $al |
| 167 | beqi ral %r0 -7 |
| 168 | calli @abort |
| 169 | ral: |
| 170 | #endif |
| 171 | getarg_f %f0 $af |
| 172 | beqi_f raf %f0 -8 |
| 173 | calli @abort |
| 174 | raf: |
| 175 | getarg_d %f0 $ad |
| 176 | beqi_d rad %f0 -9 |
| 177 | calli @abort |
| 178 | rad: |
| 179 | getarg %r0 $a |
| 180 | beqi ra %r0 -10 |
| 181 | calli @abort |
| 182 | ra: |
| 183 | #if __WORDSIZE == 64 |
| 184 | getarg_l %r0 $_l |
| 185 | beqi r_l %r0 -11 |
| 186 | calli @abort |
| 187 | r_l: |
| 188 | getarg_ui %r0 $_ui |
| 189 | beqi r_ui %r0 $(-12 & 0xffffffff) |
| 190 | calli @abort |
| 191 | r_ui: |
| 192 | #endif |
| 193 | getarg_i %r0 $_i |
| 194 | beqi r_i %r0 -13 |
| 195 | calli @abort |
| 196 | r_i: |
| 197 | getarg_us %r0 $_us |
| 198 | beqi r_us %r0 $(-14 & 0xffff) |
| 199 | calli @abort |
| 200 | r_us: |
| 201 | getarg_s %r0 $_s |
| 202 | beqi r_s %r0 -15 |
| 203 | calli @abort |
| 204 | r_s: |
| 205 | getarg_uc %r0 $_uc |
| 206 | beqi r_uc %r0 $(-16 & 0xff) |
| 207 | calli @abort |
| 208 | r_uc: |
| 209 | getarg_c %r0 $_c |
| 210 | beqi r_c %r0 -17 |
| 211 | calli @abort |
| 212 | r_c: |
| 213 | jmpi rputr |
| 214 | epilog |
| 215 | |
| 216 | name _puti |
| 217 | _puti: |
| 218 | prolog |
| 219 | tramp 160 |
| 220 | arg_c $ac |
| 221 | arg_c $auc |
| 222 | arg_s $as |
| 223 | arg_s $aus |
| 224 | arg_i $ai |
| 225 | #if __WORDSIZE == 64 |
| 226 | arg_i $aui |
| 227 | arg_l $al |
| 228 | #endif |
| 229 | arg_f $af |
| 230 | arg_d $ad |
| 231 | arg $a |
| 232 | #if __WORDSIZE == 64 |
| 233 | arg_l $_l |
| 234 | arg_i $_ui |
| 235 | #endif |
| 236 | arg_i $_i |
| 237 | arg_s $_us |
| 238 | arg_s $_s |
| 239 | arg_c $_uc |
| 240 | arg_c $_c |
| 241 | getarg_c %r0 $ac |
| 242 | beqi iac %r0 17 |
| 243 | calli @abort |
| 244 | iac: |
| 245 | getarg_uc %r0 $auc |
| 246 | beqi iauc %r0 16 |
| 247 | calli @abort |
| 248 | iauc: |
| 249 | getarg_s %r0 $as |
| 250 | beqi ias %r0 15 |
| 251 | calli @abort |
| 252 | ias: |
| 253 | getarg_us %r0 $aus |
| 254 | beqi iaus %r0 14 |
| 255 | calli @abort |
| 256 | iaus: |
| 257 | getarg_i %r0 $ai |
| 258 | beqi iai %r0 13 |
| 259 | calli @abort |
| 260 | iai: |
| 261 | #if __WORDSIZE == 64 |
| 262 | getarg_ui %r0 $aui |
| 263 | beqi iaui %r0 12 |
| 264 | calli @abort |
| 265 | iaui: |
| 266 | getarg_l %r0 $al |
| 267 | beqi ial %r0 11 |
| 268 | calli @abort |
| 269 | ial: |
| 270 | #endif |
| 271 | getarg_f %f0 $af |
| 272 | beqi_f iaf %f0 10 |
| 273 | calli @abort |
| 274 | iaf: |
| 275 | getarg_d %f0 $ad |
| 276 | beqi_d iad %f0 9 |
| 277 | calli @abort |
| 278 | iad: |
| 279 | getarg %r0 $a |
| 280 | beqi ia %r0 8 |
| 281 | calli @abort |
| 282 | ia: |
| 283 | #if __WORDSIZE == 64 |
| 284 | getarg_l %r0 $_l |
| 285 | beqi i_l %r0 7 |
| 286 | calli @abort |
| 287 | i_l: |
| 288 | getarg_ui %r0 $_ui |
| 289 | beqi i_ui %r0 6 |
| 290 | calli @abort |
| 291 | i_ui: |
| 292 | #endif |
| 293 | getarg_i %r0 $_i |
| 294 | beqi i_i %r0 5 |
| 295 | calli @abort |
| 296 | i_i: |
| 297 | getarg_us %r0 $_us |
| 298 | beqi i_us %r0 4 |
| 299 | calli @abort |
| 300 | i_us: |
| 301 | getarg_s %r0 $_s |
| 302 | beqi i_s %r0 3 |
| 303 | calli @abort |
| 304 | i_s: |
| 305 | getarg_uc %r0 $_uc |
| 306 | beqi i_uc %r0 2 |
| 307 | calli @abort |
| 308 | i_uc: |
| 309 | getarg_c %r0 $_c |
| 310 | beqi i_c %r0 1 |
| 311 | calli @abort |
| 312 | i_c: |
| 313 | jmpi rputi |
| 314 | epilog |
| 315 | |
| 316 | name putf |
| 317 | putf: |
| 318 | prolog |
| 319 | frame 56 |
| 320 | arg $i1 |
| 321 | arg_d $d1 |
| 322 | arg_f $f1 |
| 323 | arg_f $f2 |
| 324 | arg_f $f3 |
| 325 | arg $i2 |
| 326 | arg_d $d2 |
| 327 | getarg %r0 $i1 |
| 328 | addi %r0 %r0 1 |
| 329 | putargr %r0 $i1 |
| 330 | getarg_d %f0 $d1 |
| 331 | addi_d %f0 %f0 1 |
| 332 | putargr_d %f0 $d1 |
| 333 | getarg_f %f0 $f1 |
| 334 | addi_f %f0 %f0 1 |
| 335 | putargr_f %f0 $f1 |
| 336 | getarg_f %f0 $f2 |
| 337 | subi_f %f0 %f0 1 |
| 338 | putargr_f %f0 $f2 |
| 339 | putargi_f -5 $f3 |
| 340 | putargi -6 $i2 |
| 341 | putargi_d -7 $d2 |
| 342 | jmpi _putf |
| 343 | rputf: |
| 344 | ret |
| 345 | epilog |
| 346 | |
| 347 | name _putf |
| 348 | _putf: |
| 349 | prolog |
| 350 | tramp 56 |
| 351 | arg $i1 |
| 352 | arg_d $d1 |
| 353 | arg_f $f1 |
| 354 | arg_f $f2 |
| 355 | arg_f $f3 |
| 356 | arg $i2 |
| 357 | arg_d $d2 |
| 358 | getarg %r0 $i1 |
| 359 | beqi fi1 %r0 2 |
| 360 | calli @abort |
| 361 | fi1: |
| 362 | getarg_d %f0 $d1 |
| 363 | beqi_d fd1 %f0 3 |
| 364 | calli @abort |
| 365 | fd1: |
| 366 | getarg_f %f0 $f1 |
| 367 | beqi_f ff1 %f0 4 |
| 368 | calli @abort |
| 369 | ff1: |
| 370 | getarg_f %f0 $f2 |
| 371 | beqi_f ff2 %f0 3 |
| 372 | calli @abort |
| 373 | ff2: |
| 374 | getarg_f %f0 $f3 |
| 375 | beqi_f ff3 %f0 -5 |
| 376 | calli @abort |
| 377 | ff3: |
| 378 | getarg %r0 $i2 |
| 379 | beqi fi2 %r0 -6 |
| 380 | calli @abort |
| 381 | fi2: |
| 382 | getarg_d %f0 $d2 |
| 383 | beqi_d fd2 %f0 -7 |
| 384 | calli @abort |
| 385 | fd2: |
| 386 | jmpi rputf |
| 387 | epilog |
| 388 | |
| 389 | name main |
| 390 | main: |
| 391 | prolog |
| 392 | prepare |
| 393 | pushargi_c 1 |
| 394 | pushargi_uc 2 |
| 395 | pushargi_s 3 |
| 396 | pushargi_us 4 |
| 397 | pushargi_i 5 |
| 398 | #if __WORDSIZE == 64 |
| 399 | pushargi_ui 6 |
| 400 | pushargi_l 7 |
| 401 | #endif |
| 402 | pushargi_f 8 |
| 403 | pushargi_d 9 |
| 404 | pushargi 10 |
| 405 | #if __WORDSIZE == 64 |
| 406 | pushargi_l 11 |
| 407 | pushargi_ui 12 |
| 408 | #endif |
| 409 | pushargi_i 13 |
| 410 | pushargi_us 14 |
| 411 | pushargi_s 15 |
| 412 | pushargi_uc 16 |
| 413 | pushargi_c 17 |
| 414 | finishi putr |
| 415 | prepare |
| 416 | pushargi 1 |
| 417 | pushargi_d 2 |
| 418 | pushargi_f 3 |
| 419 | pushargi_f 4 |
| 420 | pushargi_f 5 |
| 421 | pushargi 6 |
| 422 | pushargi_d 7 |
| 423 | finishi putf |
| 424 | prepare |
| 425 | pushargi ok |
| 426 | finishi @puts |
| 427 | ret |
| 428 | epilog |