home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma91.dms / ma91.adf / KonwersjaLib.lha / Lib / source.lha / src / konwersjalib.i next >
Text File  |  1997-07-08  |  896b  |  31 lines
  1. ****************************************************
  2. *                                                  *
  3. *       Konwersja linkable library code            *
  4. *       (dla SAS/C)                                *
  5. *                                                  *
  6. *       konwersja.lib / konwersjanb.lib            *
  7. *                                                  *
  8. *       Copyright (c) 1997 by Grzegorz Królik      *
  9. *                                                  *
  10. ****************************************************
  11.  
  12.     IFND    LIBRARIES_POWERPACKER_LIB_I
  13.     include    "libraries/konwersja_lib.i"
  14.     ENDC
  15.  
  16.     XREF    _KonBase
  17.  
  18. GETKONBASE    MACRO
  19.     IFD    SMALL_CODE
  20.     move.l    _KonBase(a4),a6    ; Jeôli adresowanie wzglëdem a4...
  21.     ENDC
  22.     IFD    LARGE_CODE
  23.     move.l    _KonBase,a6    ; Jeôli adresowanie nie wzglëdem a4...
  24.     ENDC
  25.     IFND    SMALL_CODE
  26.     IFND    LARGE_CODE
  27.     move.l    #12345,a0    ; Spowodowanie bîëdu!
  28.     ENDC
  29.     ENDC
  30.     ENDM
  31.