home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 073.lha / XText / assmsupp.i < prev    next >
Text File  |  1987-06-02  |  2KB  |  77 lines
  1.  
  2. ;***********************************************************************
  3. ;
  4. ; assmsupp.i, the supp for Manx Aztec Assembler
  5. ;
  6. ; Copyright (c) 1986, Commodore Amiga Inc., All rights reserved
  7. ;
  8. ;***********************************************************************
  9.  
  10.  
  11. XLIB            MACRO
  12.                 PUBLIC  _LVO\1
  13.                 ENDM
  14.  
  15. CALLSYS         MACRO
  16.                 CALLLIB _LVO\1
  17.                 ENDM
  18.  
  19. LINKSYS         MACRO
  20.                 LINKLIB _LVO\1,\2
  21.                 ENDM
  22.  
  23. LINKEXE         MACRO
  24.                 PUBLIC  SysBaseOffset
  25.                 LINKSYS \1,SysBaseOffset(a6)
  26.                 ENDM
  27.  
  28. CLEAR           MACRO
  29.                 MOVEQ   #0,\1
  30.                 ENDM
  31.  
  32. PUTMSG          MACRO
  33.                 IFGE    INFOLEVEL-\1
  34.                 PUBLIC  KPutFmt
  35.                 MOVEM.L D0/D1/A0/A1,-(SP)
  36.                 LEA     16(sp),a1
  37.                 LEA     msg\@,a0
  38.                 JSR     KPutFmt
  39.                 MOVEM.L (SP)+,D0/D1/A0/A1
  40.                 BRA     end\@
  41. msg\@:          DC.B    \2,10,0
  42.                 DS.W    0
  43. end\@:
  44.                 ENDC
  45.                 ENDM
  46.  
  47. SPUTMSG         MACRO
  48.                 IFGE    INFOLEVEL-\1
  49.                 PUBLIC  KPutFmt
  50.                 PUBLIC  _SubsysName
  51.                 PEA     _SubsysName
  52.                 MOVEM.L D0/D1/A0/A1,-(SP)
  53.                 LEA     16(sp),a1
  54.                 LEA     msg\@,a0
  55.                 JSR     KPutFmt
  56.                 MOVEM.L (SP)+,D0/D1/A0/A1
  57.                 ADDQ.L  #4,SP
  58.                 BRA     end\@
  59. msg\@:          DC.B    \2,10,0
  60.                 DS.W    0
  61. end\@:
  62.                 ENDC
  63.                 ENDM
  64.  
  65. * Here's an example of using the PUTMSG macros
  66. *   IFGE    INFOLEVEL-50
  67. *   SPUTMSG  50,<'[%s]ZText:'>
  68. *   MOVEM.L A0-A6,-(SP)
  69. *   PUTMSG  50,<'  A0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx'>
  70. *   LEA     7*4(SP),SP
  71. *   MOVEM.L D0-D7,-(SP)
  72. *   PUTMSG  50,<'  D0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx 7:%lx'>
  73. *   LEA     8*4(SP),SP
  74. *   ENDC
  75.  
  76.  
  77.