home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma83.dms / ma83.adf / Listingi / C_8_97_cz2.txt < prev    next >
Text File  |  1997-01-29  |  548b  |  67 lines
  1.     section    CODE
  2.  
  3.  
  4.  
  5.     xdef    _poczatek_kodu
  6.  
  7.  
  8.     xdef    _koniec_kodu
  9.  
  10.  
  11.     xdef    _adres_funkcji
  12.  
  13.  
  14.     xdef    _adres_sem1
  15.  
  16.  
  17.     xdef    _adres_sem2
  18.  
  19.  
  20.  
  21. _poczatek_kodu:
  22.  
  23.  
  24.     ; W a6 mamy od razu SysBase, w d0 i a1 argumenty.
  25.  
  26.  
  27. _adres_sem1:
  28.  
  29.  
  30.     move.l    #0,a0        ; Zamiast 0 bëdzie adres semafora.
  31.  
  32.  
  33.     jsr    -678(a6)    ; ObtainSemaphoreShared
  34.  
  35.  
  36. _adres_funkcji:
  37.  
  38.  
  39.     move.l    0.l,a0        ; Zamiast 0 bëdzie adres funkcji.
  40.  
  41.  
  42.     jsr    (a0)        ; Bieûâce OpenLibrary
  43.  
  44.  
  45. _adres_sem2:
  46.  
  47.  
  48.     move.l    #0,a0        ; Zamiast 0 bëdzie adres semafora.
  49.  
  50.  
  51.     jsr    -570(a6)    ; ReleaseSemaphore
  52.  
  53.  
  54.     rts
  55.  
  56.  
  57. _koniec_kodu:
  58.  
  59.  
  60.     nop
  61.  
  62.  
  63.  
  64.     END
  65.  
  66.  
  67.