home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / libnix-0.8-src.lha / libnix-0.8 / sources / nix / misc / __request.c next >
Encoding:
C/C++ Source or Header  |  1994-12-12  |  760 b   |  63 lines
  1. asm("
  2.     .data
  3.     .even
  4.  
  5. body:    .byte    0,0,0,0
  6.     .word    15,5
  7.     .long    0
  8. btext:    .long    0,0
  9.  
  10. ok:    .byte    0,0,0,0
  11.     .word    6,3
  12.     .long    0,oktext,0
  13.  
  14.     .text
  15. oktext:    .byte    79,75,0
  16.  
  17.     .even
  18.     .globl    ___request
  19. ___request:
  20.     moveml    #0x3832,sp@-
  21. "
  22. #ifdef SMALL_DATA
  23. "
  24.     movel    a4@(_SysBase:W),a6
  25.     lea    a4@(___intuitionname:W),a1
  26.     moveq    #0,d0
  27.     jsr    a6@(-0x228)
  28.  
  29.     movel    sp@(28),a4@(btext:W)
  30.     lea    a4@(ok:W),a3
  31.     lea    a4@(body:W),a1
  32. "
  33. #else
  34. "
  35.     movel    _SysBase,a6
  36.     lea    ___intuitionname,a1
  37.     moveq    #0,d0
  38.     jsr    a6@(-0x228)
  39.  
  40.     movel    sp@(28),btext
  41.     lea    ok,a3
  42.     lea    body,a1
  43. "
  44. #endif
  45. "
  46.     movel    d0,d4
  47.     jeq    fail
  48.     subl    a2,a2
  49.     subl    a0,a0
  50.     moveq    #0,d0
  51.     moveq    #0,d1
  52.     moveq    #(640>>4),d2
  53.     lslw    #4,d2
  54.     moveq    #72,d3
  55.     exg    d4,a6
  56.     jsr    a6@(-0x15c)
  57.     movel    a6,a1
  58.     movel    d4,a6
  59.     jsr    a6@(-0x19e)
  60. fail:    moveml    sp@+,#0x4c1c
  61.     rts
  62. ");
  63.