home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD2.bin / bbs / util / pplib-1.6.lha / PPlib / Glue / SAS-C / Source.lzh / src / pplib.i < prev    next >
Text File  |  1993-09-27  |  864b  |  31 lines
  1. ****************************************************
  2. *                                                  *
  3. *       PowerPacker linkable library code          *
  4. *       (for SAS/C)                                *
  5. *                                                  *
  6. *       pp.lib / ppnb.lib                          *
  7. *                                                  *
  8. *       Copyright (c) 1991-1993 by Nico François   *
  9. *                                                  *
  10. ****************************************************
  11.  
  12.     IFND LIBRARIES_POWERPACKER_LIB_I
  13.     include "libraries/powerpacker_lib.i"
  14.     ENDC
  15.  
  16.     XREF    _PPBase
  17.  
  18. GETPPBASE    MACRO
  19.     IFD SMALL_CODE
  20.     move.l    _PPBase(a4),a6    ; If a4 addressing...
  21.     ENDC
  22.     IFD LARGE_CODE
  23.     move.l    _PPBase,a6    ; If no a4 addressing...
  24.     ENDC
  25.     IFND SMALL_CODE
  26.     IFND LARGE_CODE
  27.     moveq.l #12323,a0    ; Cause an error!
  28.     ENDC
  29.     ENDC
  30.     ENDM
  31.