home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib25.zoo / sozobon / osbind.s < prev    next >
Text File  |  1992-01-12  |  942b  |  49 lines
  1. ; Lovingly swiped from Eric Smith's mntlib.
  2.  
  3.     .globl    _gemdos
  4.     .globl    _xbios
  5.     .globl    _bios
  6.  
  7.     .text
  8.     .even
  9. _gemdos:
  10.     lea    20(sp),a0    ; 4 bytes for ret addr + 16 for parameters
  11.     movem.l    d2/a2,-(sp)    ; save reggies that TOS clobbers but that
  12.                 ; C thinks functions should preserve
  13.     move.l    -(a0),-(sp)    ; max. of 16 bytes parameters to trap #1
  14.     move.l    -(a0),-(sp)
  15.     move.l    -(a0),-(sp)
  16.     move.l    -(a0),-(sp)
  17.     trap    #1        ; go do the trap
  18.     lea    16(sp),sp    ; pop parameters
  19.     movem.l    (sp)+,d2/a2    ; restore reggies
  20.     rts            ; return
  21.  
  22. _bios:
  23.     lea    24(sp),a0
  24.     movem.l    d2/a2,-(sp)
  25.     move.l    -(a0),-(sp)
  26.     move.l    -(a0),-(sp)
  27.     move.l    -(a0),-(sp)
  28.     move.l    -(a0),-(sp)
  29.     move.l    -(a0),-(sp)
  30.     trap    #13
  31.     lea    20(sp),sp
  32.     movem.l    (sp)+,d2/a2
  33.     rts
  34.  
  35. _xbios:
  36.     lea    32(sp),a0
  37.     movem.l    d2/a2,-(sp)
  38.     move.l    -(a0),-(sp)
  39.     move.l    -(a0),-(sp)
  40.     move.l    -(a0),-(sp)
  41.     move.l    -(a0),-(sp)
  42.     move.l    -(a0),-(sp)
  43.     move.l    -(a0),-(sp)
  44.     move.l    -(a0),-(sp)
  45.     trap    #14
  46.     lea    28(sp),sp
  47.     movem.l    (sp)+,d2/a2
  48.     rts
  49.