home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / debug-utils / pv / pvdevelop / pvdevelop.lha / Lib / Source / PVCallStub.i < prev    next >
Encoding:
Text File  |  1991-09-15  |  814 b   |  31 lines
  1. ****************************************************
  2. *                                                  *
  3. *    PowerVisor PVCall stubs               *
  4. *    (for SAS/C)                   *
  5. *                                                  *
  6. *       PVCallStub.lib / PVCallStubNB.lib          *
  7. *                                                  *
  8. *    © 1991 by Jorrit Tyberghein           *
  9. *                                                  *
  10. ****************************************************
  11.  
  12.     IFND PV_PVCALLTABLE_I
  13.     INCLUDE "pv:PVDevelop/include/pv/pvcalltable.i"
  14.     ENDC
  15.  
  16.     XREF    _PVCallTable
  17.  
  18. GETPVBASE    MACRO
  19.     IFD SMALL_CODE
  20.         move.l    _PVCallTable(a4),a6    ;If a4 addressing...
  21.     ENDC
  22.     IFD LARGE_CODE
  23.         move.l    _PVCallTable,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.