home *** CD-ROM | disk | FTP | other *** search
/ Kyūkyoku!! X68000 Emulator / X68000Book.dat / mac / OLS / X68000 / Ko-Window / kow142s.lzh / wsrv / wlib / wlibasm.s < prev    next >
Text File  |  1995-11-28  |  1KB  |  87 lines
  1. *XCflag    equ    1
  2. *
  3. *    âEâCâôâhâEâTü[âoî─é╤Åoé╡
  4. *    d0 : âvâìâZâXéhéc
  5. *    d1 : âtâ@âôâNâVâçâôö╘ìå
  6. *    a0 : âpâëâüü[â^âAâhâîâX    ( î┬Éö, ê°Éö1, ê°Éö2 ... )
  7. *
  8.     .xdef    __CallServer
  9. __CallServer
  10.     movem.l    4(sp),d0-d1/a0
  11.     trap    #0
  12.     rts
  13.  
  14. *
  15. *    èäéΦì₧é▌âGâôâgâè
  16. *    d0 : Ä└ìsâAâhâîâX
  17. *    d1 : âEâCâôâhâEâ|âCâôâ^(wp)
  18. *    a0 : âCâxâôâgÅεò±(info)
  19. *
  20.     .xdef    __Entry
  21. __Entry
  22.     move.l    a0,-(sp)
  23.     move.l    d1,-(sp)
  24.     move.l    d0,a0
  25.     jsr    (a0)
  26.     addq.l    #8,sp
  27.     rts
  28.  
  29. *
  30. *    âqü[âvù╠êµé╠Åëè·ë╗
  31. *
  32.     .if XCflag
  33.     .xdef    __HeapInit
  34. __HeapInit
  35.     move.l    __HSTA,a0
  36.     move.l    a0,MALLOCP
  37.     lea    16(a0),a1
  38.     clr.l    (a0)+
  39.     move.l    a1,(a0)+
  40.     clr.l    (a0)+
  41.     move.l    #'HEAP',(a0)
  42.     rts
  43.     .endif
  44.  
  45.  
  46. *** âTü[âoü[î─é╤Åoé╡é╠âIü[âoü[âwâbâhé≡îyî╕é╖éΘé╜é▀üA
  47. *** WindowSetParameter() é≡Åæé½Æ╝é╡é▄é╡é╜
  48. ***    1992 10/6 Å¼è}î┤öÄöV
  49. ***
  50.         .xref    _WindowProcessID
  51.         .xdef    _Parameter
  52. _Parameter:
  53.         .ds.l    13
  54.  
  55.         .xdef    _WindowSetParameter
  56.  
  57. _WindowSetParameter:
  58.         movem.l    4(sp),d1-d2/a2        * FuncID, Args, Params
  59.  
  60.         lea    _Parameter(pc),a1
  61.         move.l    a1,a0
  62.         move.l    d2,(a1)+    * args
  63.  
  64.         add.w    d2,d2                *4
  65.         neg.w    d2                *4
  66.         jmp    _MemCpyLast(pc,d2.w)        *14
  67.  
  68.         move.l    (a2)+,(a1)+
  69.         move.l    (a2)+,(a1)+
  70.         move.l    (a2)+,(a1)+
  71.         move.l    (a2)+,(a1)+
  72.         move.l    (a2)+,(a1)+
  73.         move.l    (a2)+,(a1)+
  74.         move.l    (a2)+,(a1)+
  75.         move.l    (a2)+,(a1)+
  76.         move.l    (a2)+,(a1)+
  77.         move.l    (a2)+,(a1)+
  78.         move.l    (a2)+,(a1)+
  79.         move.l    (a2)+,(a1)+
  80.     _MemCpyLast:
  81.  
  82.         move.l    _WindowProcessID,d0
  83.         trap    #0
  84.         rts
  85.  
  86. * :vi:se ts=8 sw=8:
  87.