mach/m68020/libsys/libmon_s.a

   1 e�execle.c\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0l\0execle(name,args)
   2         char *name;
   3         char *args;
   4 {
   5         char **p = &args;
   6         while (*p++) ;
   7
   8         execve(name,&args,*p);
   9 }
  10 execv.c\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0d\0execv(name,args)
  11         char *name;
  12         char **args;
  13 {
  14         extern char **environ;
  15         execve(name,args,environ);
  16 }
  17 exit.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _exit
  18 .extern _exit
  19 .sect .text
  20 .sect .rom
  21 .sect .data
  22 .sect .bss
  23 .sect .text
  24 _exit:
  25 tst.b (-40,sp)
  26 link    a6,#-0
  27 jsr (__cleanup)
  28 move.l (8,a6),-(sp)
  29 jsr (__exit)
  30 add.l #4,sp
  31 unlk a6
  32 rts
  33 \0_exit.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __exit
  34 .extern __exit
  35 .sect .text
  36 .sect .rom
  37 .sect .data
  38 .sect .bss
  39 .sect .text
  40 __exit:         move.l #0x1,d0
  41                 trap #0
  42                 stop #0                 ! was there in 68020 routine
  43 eaccess.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _access
  44 .extern _access
  45 .sect .text
  46 .sect .rom
  47 .sect .data
  48 .sect .bss
  49 .sect .text
  50 _access:        move.l #0x21,d0
  51                 jmp (callc)
  52 #acct.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0|\0.define _acct
  53 .extern _acct
  54 .sect .text
  55 .sect .rom
  56 .sect .data
  57 .sect .bss
  58 .sect .text
  59 _acct:          move.l #0x33,d0
  60                 jmp (callc)
  61 alarm.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _alarm
  62 .extern _alarm
  63 .sect .text
  64 .sect .rom
  65 .sect .data
  66 .sect .bss
  67 .sect .text
  68 _alarm:         move.l #0x1B,d0
  69                 trap #0
  70                 rts
  71 #_alarm.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\84\0.define __alarm
  72 .extern __alarm
  73 .sect .text
  74 .sect .rom
  75 .sect .data
  76 .sect .bss
  77 .sect .text
  78 __alarm:                move.l #0x1B,d0
  79                 trap #0
  80                 rts
  81 chdir.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _chdir
  82 .extern _chdir
  83 .sect .text
  84 .sect .rom
  85 .sect .data
  86 .sect .bss
  87 .sect .text
  88 _chdir:         move.l #0xC,d0
  89                 jmp (callc)
  90 chmod.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _chmod
  91 .extern _chmod
  92 .sect .text
  93 .sect .rom
  94 .sect .data
  95 .sect .bss
  96 .sect .text
  97 _chmod:         move.l #0xF,d0
  98                 jmp (callc)
  99 chown.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _chown
 100 .extern _chown
 101 .sect .text
 102 .sect .rom
 103 .sect .data
 104 .sect .bss
 105 .sect .text
 106 _chown:         move.l #0x10,d0
 107                 jmp (callc)
 108         chroot.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _chroot
 109 .extern _chroot
 110 .sect .text
 111 .sect .rom
 112 .sect .data
 113 .sect .bss
 114 .sect .text
 115 _chroot:        move.l #0x3D,d0
 116                 jmp (callc)
 117 tclose.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _close
 118 .extern _close
 119 .sect .text
 120 .sect .rom
 121 .sect .data
 122 .sect .bss
 123 .sect .text
 124 _close:         move.l #0x6,d0
 125                 jmp (callc)
 126 _close.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define __close
 127 .extern __close
 128 .sect .text
 129 .sect .rom
 130 .sect .data
 131 .sect .bss
 132 .sect .text
 133 __close:                move.l #0x6,d0
 134                 jmp (callc)
 135 tcreat.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0}\0.define _creat
 136 .extern _creat
 137 .sect .text
 138 .sect .rom
 139 .sect .data
 140 .sect .bss
 141 .sect .text
 142 _creat:         move.l #0x8,d0
 143                 jmp (call)
 144 l_creat.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\80\0.define __creat
 145 .extern __creat
 146 .sect .text
 147 .sect .rom
 148 .sect .data
 149 .sect .bss
 150 .sect .text
 151 __creat:                move.l #0x8,d0
 152                 jmp (call)
 153 dup.s\0.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0x\0.define _dup
 154 .extern _dup
 155 .sect .text
 156 .sect .rom
 157 .sect .data
 158 .sect .bss
 159 .sect .text
 160 _dup:           move.l #0x29,d0
 161                 jmp (call)
 162 _dup.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0{\0.define __dup
 163 .extern __dup
 164 .sect .text
 165 .sect .rom
 166 .sect .data
 167 .sect .bss
 168 .sect .text
 169 __dup:          move.l #0x29,d0
 170                 jmp (call)
 171 adup2.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _dup2
 172 .extern _dup2
 173 .sect .text
 174 .sect .rom
 175 .sect .data
 176 .sect .bss
 177 .sect .text
 178 _dup2:
 179 link    a6,#0
 180 move.l (12,a6),-(sp)
 181 move.l #0,-(sp)
 182 move.l (8,a6),-(sp)
 183 jsr (_fcntl)
 184 add.l #12,sp
 185 unlk a6
 186 rts
 187 \0_dup2.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __dup2
 188 .extern __dup2
 189 .sect .text
 190 .sect .rom
 191 .sect .data
 192 .sect .bss
 193 .sect .text
 194 __dup2:
 195 link    a6,#0
 196 move.l (12,a6),-(sp)
 197 move.l #0,-(sp)
 198 move.l (8,a6),-(sp)
 199 jsr (_fcntl)
 200 add.l #12,sp
 201 unlk a6
 202 rts
 203 execl.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _execl
 204 .extern _execl
 205 .sect .text
 206 .sect .rom
 207 .sect .data
 208 .sect .bss
 209 .sect .text
 210 _execl:         link a6,#0
 211                 move.l (_environ),-(sp)
 212                 pea (12,a6)
 213                 move.l (8,a6),-(sp)
 214                 jsr (_execve)
 215                 add.l #0xC,sp
 216                 unlk a6
 217                 rts
 218 _execl.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __execl
 219 .extern __execl
 220 .sect .text
 221 .sect .rom
 222 .sect .data
 223 .sect .bss
 224 .sect .text
 225 __execl:                link a6,#0
 226                 move.l (_environ),-(sp)
 227                 pea (12,a6)
 228                 move.l (8,a6),-(sp)
 229                 jsr (_execve)
 230                 add.l #0xC,sp
 231                 unlk a6
 232                 rts
 233 \0execve.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _execve
 234 .extern _execve
 235 .sect .text
 236 .sect .rom
 237 .sect .data
 238 .sect .bss
 239 .sect .text
 240 _execve:        move.l #0x3B,d0
 241                 jmp (calle)
 242 )_execve.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\84\0.define __execve
 243 .extern __execve
 244 .sect .text
 245 .sect .rom
 246 .sect .data
 247 .sect .bss
 248 .sect .text
 249 __execve:       move.l #0x3B,d0
 250                 jmp (calle)
 251 fork.s\0.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _fork
 252 .extern _fork
 253 .sect .text
 254 .sect .rom
 255 .sect .data
 256 .sect .bss
 257 .sect .text
 258 _fork:          move.l #0x2,d0
 259                 trap #0
 260                 bcc 1f          ! 68020 way to do it
 261                 jmp (cerror)
 262 1:
 263                 tst.b d1
 264                 beq 2f
 265                 clr.l d0
 266 2:
 267                 rts
 268 _fork.s\0s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __fork
 269 .extern __fork
 270 .sect .text
 271 .sect .rom
 272 .sect .data
 273 .sect .bss
 274 .sect .text
 275 __fork:         move.l #0x2,d0
 276                 trap #0
 277                 bcc 1f          ! 68020 way to do it
 278                 jmp (cerror)
 279 1:
 280                 tst.b d1
 281                 beq 2f
 282                 clr.l d0
 283 2:
 284                 rts
 285  ftime.s\0s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _ftime
 286 .extern _ftime
 287 .sect .text
 288 .sect .rom
 289 .sect .data
 290 .sect .bss
 291 .sect .text
 292 _ftime:         move.l #0x23,d0
 293                 jmp (callc)
 294  _ftime.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\82\0.define __ftime
 295 .extern __ftime
 296 .sect .text
 297 .sect .rom
 298 .sect .data
 299 .sect .bss
 300 .sect .text
 301 __ftime:                move.l #0x23,d0
 302                 jmp (callc)
 303 getegid.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\95\0.define _getegid
 304 .extern _getegid
 305 .sect .text
 306 .sect .rom
 307 .sect .data
 308 .sect .bss
 309 .sect .text
 310 _getegid:       move.l #0x2F,d0
 311                 trap #0
 312                 move.l d1,d0
 313                 rts
 314  getgid.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\83\0.define _getgid
 315 .extern _getgid
 316 .sect .text
 317 .sect .rom
 318 .sect .data
 319 .sect .bss
 320 .sect .text
 321 _getgid:        move.l #0x2F,d0
 322                 trap #0
 323                 rts
 324 ogetpid.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\83\0.define _getpid
 325 .extern _getpid
 326 .sect .text
 327 .sect .rom
 328 .sect .data
 329 .sect .bss
 330 .sect .text
 331 _getpid:        move.l #0x14,d0
 332                 trap #0
 333                 rts
 334 o_getpid.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\86\0.define __getpid
 335 .extern __getpid
 336 .sect .text
 337 .sect .rom
 338 .sect .data
 339 .sect .bss
 340 .sect .text
 341 __getpid:       move.l #0x14,d0
 342                 trap #0
 343                 rts
 344 getuid.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\83\0.define _getuid
 345 .extern _getuid
 346 .sect .text
 347 .sect .rom
 348 .sect .data
 349 .sect .bss
 350 .sect .text
 351 _getuid:        move.l #0x18,d0
 352                 trap #0
 353                 rts
 354 tstty.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0|\0.define _stty
 355 .extern _stty
 356 .sect .text
 357 .sect .rom
 358 .sect .data
 359 .sect .bss
 360 .sect .text
 361 _stty:          move.l #0x21, d0
 362                 jmp (call)
 363 gtty.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0|\0.define _gtty
 364 .extern _gtty
 365 .sect .text
 366 .sect .rom
 367 .sect .data
 368 .sect .bss
 369 .sect .text
 370 _gtty:          move.l #0x20, d0
 371                 jmp (call)
 372 _gtty.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define __gtty
 373 .extern __gtty
 374 .sect .text
 375 .sect .rom
 376 .sect .data
 377 .sect .bss
 378 .sect .text
 379 __gtty:         move.l #0x20, d0
 380                 jmp (call)
 381 rioctl.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _ioctl
 382 .extern _ioctl
 383 .sect .text
 384 .sect .rom
 385 .sect .data
 386 .sect .bss
 387 .sect .text
 388 _ioctl:         move.l #0x36,d0
 389                 jmp (call)
 390 _ioctl.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define __ioctl
 391 .extern __ioctl
 392 .sect .text
 393 .sect .rom
 394 .sect .data
 395 .sect .bss
 396 .sect .text
 397 __ioctl:                move.l #0x36,d0
 398                 jmp (call)
 399 skill.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0|\0.define _kill
 400 .extern _kill
 401 .sect .text
 402 .sect .rom
 403 .sect .data
 404 .sect .bss
 405 .sect .text
 406 _kill:          move.l #0x25,d0
 407                 jmp (callc)
 408 _kill.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define __kill
 409 .extern __kill
 410 .sect .text
 411 .sect .rom
 412 .sect .data
 413 .sect .bss
 414 .sect .text
 415 __kill:         move.l #0x25,d0
 416                 jmp (callc)
 417 )link.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0{\0.define _link
 418 .extern _link
 419 .sect .text
 420 .sect .rom
 421 .sect .data
 422 .sect .bss
 423 .sect .text
 424 _link:          move.l #0x9,d0
 425                 jmp (callc)
 426 l_link.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define __link
 427 .extern __link
 428 .sect .text
 429 .sect .rom
 430 .sect .data
 431 .sect .bss
 432 .sect .text
 433 __link:         move.l #0x9,d0
 434                 jmp (callc)
 435 lock.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0|\0.define _lock
 436 .extern _lock
 437 .sect .text
 438 .sect .rom
 439 .sect .data
 440 .sect .bss
 441 .sect .text
 442 _lock:          move.l #0x35,d0
 443                 jmp (callc)
 444 lseek.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _lseek
 445 .extern _lseek
 446 .sect .text
 447 .sect .rom
 448 .sect .data
 449 .sect .bss
 450 .sect .text
 451 _lseek:         move.l #0x13,d0
 452                 jmp (call)
 453 _lseek.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define __lseek
 454 .extern __lseek
 455 .sect .text
 456 .sect .rom
 457 .sect .data
 458 .sect .bss
 459 .sect .text
 460 __lseek:                move.l #0x13,d0
 461                 jmp (call)
 462 smknod.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _mknod
 463 .extern _mknod
 464 .sect .text
 465 .sect .rom
 466 .sect .data
 467 .sect .bss
 468 .sect .text
 469 _mknod:         move.l #0xE,d0
 470                 jmp (callc)
 471 mount.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _mount
 472 .extern _mount
 473 .sect .text
 474 .sect .rom
 475 .sect .data
 476 .sect .bss
 477 .sect .text
 478 _mount:         move.l #0x15,d0
 479                 jmp (callc)
 480 )nice.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0{\0.define _nice
 481 .extern _nice
 482 .sect .text
 483 .sect .rom
 484 .sect .data
 485 .sect .bss
 486 .sect .text
 487 _nice:          move.l #0x22,d0
 488                 jmp (call)
 489 lopen.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0z\0.define _open
 490 .extern _open
 491 .sect .text
 492 .sect .rom
 493 .sect .data
 494 .sect .bss
 495 .sect .text
 496 _open:          move.l #0x5,d0
 497                 jmp (call)
 498 _open.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0}\0.define __open
 499 .extern __open
 500 .sect .text
 501 .sect .rom
 502 .sect .data
 503 .sect .bss
 504 .sect .text
 505 __open:         move.l #0x5,d0
 506                 jmp (call)
 507 )pause.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _pause
 508 .extern _pause
 509 .sect .text
 510 .sect .rom
 511 .sect .data
 512 .sect .bss
 513 .sect .text
 514 _pause:         move.l #0x1D,d0
 515                 jmp (callc)
 516 )_pause.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\82\0.define __pause
 517 .extern __pause
 518 .sect .text
 519 .sect .rom
 520 .sect .data
 521 .sect .bss
 522 .sect .text
 523 __pause:                move.l #0x1D,d0
 524                 jmp (callc)
 525 pipe.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _pipe
 526 .extern _pipe
 527 .sect .text
 528 .sect .rom
 529 .sect .data
 530 .sect .bss
 531 .sect .text
 532 _pipe:
 533                 move.l #0x2A,d0
 534                 trap #0
 535                 bcc 1f
 536                 jmp (cerror)
 537 1:
 538                 move.l (4,sp),a0
 539                 move.l d0,(a0)+
 540                 move.l d1,(a0)
 541                 clr.l d0
 542                 rts
 543 \0_pipe.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __pipe
 544 .extern __pipe
 545 .sect .text
 546 .sect .rom
 547 .sect .data
 548 .sect .bss
 549 .sect .text
 550 __pipe:
 551                 move.l #0x2A,d0
 552                 trap #0
 553                 bcc 1f
 554                 jmp (cerror)
 555 1:
 556                 move.l (4,sp),a0
 557                 move.l d0,(a0)+
 558                 move.l d1,(a0)
 559                 clr.l d0
 560                 rts
 561 profil.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\83\0.define _profil
 562 .extern _profil
 563 .sect .text
 564 .sect .rom
 565 .sect .data
 566 .sect .bss
 567 .sect .text
 568 _profil:        move.l #0x2C,d0
 569                 trap #0
 570                 rts
 571  ptrace.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _ptrace
 572 .extern _ptrace
 573 .extern _errno
 574 .sect .text
 575 .sect .rom
 576 .sect .data
 577 .sect .bss
 578 .sect .text
 579 _ptrace:        move.l #0x1A,d0
 580                 clr.l  (_errno)
 581                 jmp (call)
 582  read.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0z\0.define _read
 583 .extern _read
 584 .sect .text
 585 .sect .rom
 586 .sect .data
 587 .sect .bss
 588 .sect .text
 589 _read:          move.l #0x3,d0
 590                 jmp (call)
 591 _read.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0}\0.define __read
 592 .extern __read
 593 .sect .text
 594 .sect .rom
 595 .sect .data
 596 .sect .bss
 597 .sect .text
 598 __read:         move.l #0x3,d0
 599                 jmp (call)
 600 Asetgid.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _setgid
 601 .extern _setgid
 602 .sect .text
 603 .sect .rom
 604 .sect .data
 605 .sect .bss
 606 .sect .text
 607 _setgid:        move.l #0x2E,d0
 608                 jmp (callc)
 609
 610 setuid.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _setuid
 611 .extern _setuid
 612 .sect .text
 613 .sect .rom
 614 .sect .data
 615 .sect .bss
 616 .sect .text
 617 _setuid:        move.l #0x17,d0
 618                 jmp (callc)
 619
 620 Xstat.c\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0F\ 2#include <sys/types.h>
 621 #include <sys/stat.h>
 622
 623 static  Xcvt();
 624
 625 int
 626 stat(path, buf)
 627         char *path;
 628         struct stat *buf;
 629 {
 630         char Xbuf[100];
 631         int retval;
 632
 633         retval = _stat(path, Xbuf);
 634         Xcvt(Xbuf, (char *)buf);
 635         return retval;
 636 }
 637
 638 int
 639 fstat(fd, buf)
 640         int fd;
 641         struct stat *buf;
 642 {
 643         char Xbuf[100];
 644         int retval;
 645
 646         retval = __fstat(fd, Xbuf);
 647         Xcvt(Xbuf, (char *)buf);
 648         return retval;
 649 }
 650
 651 static
 652 Xcvt(buf, statbuf)
 653         char *buf, *statbuf;
 654 {
 655         register char *s, *t;
 656         register int i;
 657
 658         s = buf; t = statbuf;
 659         for (i = 14; i; i--) *t++ = *s++;
 660         *t++ = 0; *t++ = 0;
 661         for (i = 16; i; i--) *t++ = *s++;
 662 }
 663 _Xstat.c\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\ 1#include <sys/types.h>
 664 #include <sys/stat.h>
 665
 666 static  Xcvt();
 667
 668 int
 669 _fstat(fd, buf)
 670         int fd;
 671         struct stat *buf;
 672 {
 673         char Xbuf[100];
 674         int retval;
 675
 676         retval = __fstat(fd, Xbuf);
 677         Xcvt(Xbuf, (char *)buf);
 678         return retval;
 679 }
 680
 681 static
 682 Xcvt(buf, statbuf)
 683         char *buf, *statbuf;
 684 {
 685         register char *s, *t;
 686         register int i;
 687
 688         s = buf; t = statbuf;
 689         for (i = 14; i; i--) *t++ = *s++;
 690         *t++ = 0; *t++ = 0;
 691         for (i = 16; i; i--) *t++ = *s++;
 692 }
 693 stat.s\0c\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define __stat
 694 .extern __stat
 695 .sect .text
 696 .sect .rom
 697 .sect .data
 698 .sect .bss
 699 .sect .text
 700 __stat:         move.l #0x12,d0
 701                 jmp (callc)
 702 ;stime.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\98\0.define _stime
 703 .extern _stime
 704 .sect .text
 705 .sect .rom
 706 .sect .data
 707 .sect .bss
 708 .sect .text
 709 _stime:         move.l #0x19,d0
 710                 move.l ([4,sp]),(4,sp)
 711                 jmp (callc)
 712 sync.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _sync
 713 .extern _sync
 714 .sect .text
 715 .sect .rom
 716 .sect .data
 717 .sect .bss
 718 .sect .text
 719 _sync:          move.l #0x24,d0
 720                 trap #0
 721                 rts
 722 time.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _time
 723 .extern _time
 724 .sect .text
 725 .sect .rom
 726 .sect .data
 727 .sect .bss
 728 .sect .text
 729 _time:          move.l #0xD,d0
 730                 trap #0
 731                 tst.l (4,sp)
 732                 beq 1f
 733                 move.l d0,([4,sp])
 734 1:
 735                 rts
 736 Xtimes.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _times
 737 .extern _times
 738 .sect .text
 739 .sect .rom
 740 .sect .data
 741 .sect .bss
 742 .sect .text
 743 _times:         move.l #0x2B,d0
 744                 jmp (call)
 745 _times.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define __times
 746 .extern __times
 747 .sect .text
 748 .sect .rom
 749 .sect .data
 750 .sect .bss
 751 .sect .text
 752 __times:                move.l #0x2B,d0
 753                 jmp (call)
 754 ,umask.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0~\0.define _umask
 755 .extern _umask
 756 .sect .text
 757 .sect .rom
 758 .sect .data
 759 .sect .bss
 760 .sect .text
 761 _umask:         move.l #0x3C,d0
 762                 jmp (call)
 763 umount.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\81\0.define _umount
 764 .extern _umount
 765 .sect .text
 766 .sect .rom
 767 .sect .data
 768 .sect .bss
 769 .sect .text
 770 _umount:        move.l #0x16,d0
 771                 jmp (callc)
 772 ,unlink.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\80\0.define _unlink
 773 .extern _unlink
 774 .sect .text
 775 .sect .rom
 776 .sect .data
 777 .sect .bss
 778 .sect .text
 779 _unlink:        move.l #0xA,d0
 780                 jmp (callc)
 781 _unlink.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\83\0.define __unlink
 782 .extern __unlink
 783 .sect .text
 784 .sect .rom
 785 .sect .data
 786 .sect .bss
 787 .sect .text
 788 __unlink:       move.l #0xA,d0
 789                 jmp (callc)
 790 putime.s\0s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _utime
 791 .extern _utime
 792 .sect .text
 793 .sect .rom
 794 .sect .data
 795 .sect .bss
 796 .sect .text
 797 _utime:         move.l #0x1E,d0
 798                 jmp (callc)
 799 lwrite.s\0s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0}\0.define _write
 800 .extern _write
 801 .sect .text
 802 .sect .rom
 803 .sect .data
 804 .sect .bss
 805 .sect .text
 806 _write:         move.l #0x4,d0
 807                 jmp (call)
 808 )_write.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\80\0.define __write
 809 .extern __write
 810 .sect .text
 811 .sect .rom
 812 .sect .data
 813 .sect .bss
 814 .sect .text
 815 __write:                move.l #0x4,d0
 816                 jmp (call)
 817 brk.s\0.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0z\ 1.define _brk
 818 .define _sbrk
 819 .extern _brk
 820 .extern _sbrk
 821 .sect .text
 822 .sect .rom
 823 .sect .data
 824 .sect .bss
 825 .sect .text
 826 _sbrk:          move.l (.limhp),d0
 827                 add.l  d0,(4,sp)
 828                 move.l #0x11,d0
 829                 trap #0
 830                 bcs lcerror
 831                 move.l (.limhp),d0
 832                 move.l d0,a0
 833                 move.l (4,sp),(.limhp)
 834                 rts
 835 lcerror:        jmp (cerror)
 836 _brk:           move.l #0x11,d0
 837                 trap #0
 838                 bcs lcerror
 839                 move.l (4,sp),(.limhp)
 840                 clr.l d0
 841                 rts
 842 _brk.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\80\ 1.define __brk
 843 .define __sbrk
 844 .extern __brk
 845 .extern __sbrk
 846 .sect .text
 847 .sect .rom
 848 .sect .data
 849 .sect .bss
 850 .sect .text
 851 __sbrk:         move.l (.limhp),d0
 852                 add.l  d0,(4,sp)
 853                 move.l #0x11,d0
 854                 trap #0
 855                 bcs lcerror
 856                 move.l (.limhp),d0
 857                 move.l d0,a0
 858                 move.l (4,sp),(.limhp)
 859                 rts
 860 lcerror:        jmp (cerror)
 861 __brk:          move.l #0x11,d0
 862                 trap #0
 863                 bcs lcerror
 864                 move.l (4,sp),(.limhp)
 865                 clr.l d0
 866                 rts
 867 wait.s\0s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define _wait
 868 .extern _wait
 869 .sect .text
 870 .sect .rom
 871 .sect .data
 872 .sect .bss
 873 .sect .text
 874 _wait:          move.l  #0x7,d0
 875                 trap #0
 876                 bcs cerror
 877                 tst.l (4,sp)
 878                 beq 1f
 879                 move.l d1,([4,sp])
 880 1:
 881                 rts
 882 _wait.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0�\0.define __wait
 883 .extern __wait
 884 .sect .text
 885 .sect .rom
 886 .sect .data
 887 .sect .bss
 888 .sect .text
 889 __wait:         move.l  #0x7,d0
 890                 trap #0
 891                 bcs cerror
 892                 tst.l (4,sp)
 893                 beq 1f
 894                 move.l d1,([4,sp])
 895 1:
 896                 rts
 897 0fstat.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\84\0.define ___fstat
 898 .extern ___fstat
 899 .sect .text
 900 .sect .rom
 901 .sect .data
 902 .sect .bss
 903 .sect .text
 904 ___fstat:       move.l  #0x1C,d0
 905                 jmp (callc)
 906 signal.s\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0x\ 3.define _signal
 907 .extern _signal
 908 .sect .text
 909 .sect .rom
 910 .sect .data
 911 .sect .bss
 912 .sect .text
 913 _signal:
 914         move.l  #0x30,d0
 915         jmp     (callc)
 916 ! NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE
 917 !
 918 ! Just as in the m68000 tail_mon library the acual signal system call
 919 ! is not called directly by the user, but an `interface'. This `interface'
 920 ! does the actual system call. On the m68020 machine the table was tested on
 921 ! this `interface' did things that I did not understand, e.g. it called
 922 ! a sytem call with number 38, called `_sysm68k'. I couldn't get the signal
 923 ! system call get to work properly on that machine, but as it is clear
 924 ! that this is in no way to blame to my back end table.
 925 ! The system call as presented here does not reset the catch routine: a
 926 ! signal that is caught by a user function will be caught every time, not
 927 ! just once. I couldn't change this.
 928 fcntl.s\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\7f\0.define _fcntl
 929 .extern _fcntl
 930 .sect .text
 931 .sect .rom
 932 .sect .data
 933 .sect .bss
 934 .sect .text
 935 _fcntl:         move.l #0x3E,d0
 936                 jmp (callc)
 937 )call.s\0\0\0\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0N\ 1.define call
 938 .define callc
 939 .define calle
 940 .define cerror
 941 .extern call
 942 .extern callc
 943 .extern calle
 944 .extern cerror
 945 .extern _errno
 946 .sect .text
 947 .sect .rom
 948 .sect .data
 949 .sect .bss
 950 .sect .text
 951 call:           trap #0
 952                 bcs cerror
 953                 rts
 954 callc:
 955                 trap #0
 956                 bcs cerror
 957                 clr.l d0
 958                 rts
 959 calle:
 960                 trap #0
 961 cerror:
 962                 move.l d0,(_errno)
 963                 move.l #-1,d0
 964                 rts
 965 cleanup.s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0\90\0.define __cleanup
 966 .extern __cleanup
 967 .sect .text
 968 .sect .rom
 969 .sect .data
 970 .sect .bss
 971 .sect .text
 972 __cleanup:
 973 tst.b (-40,sp)
 974 link    a6,#-0
 975 unlk a6
 976 rts
 977 errno.s\0s\0\0\0\0\0\0\0\0\0\ 2\ 2�\ 1\0\0u\0.define _errno
 978 .extern _errno
 979 .sect .text
 980 .sect .rom
 981 .sect .data
 982 .sect .bss
 983 .sect .bss
 984 _errno:         .space 4
 985 .sect .text
 986 p