home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d1xx / d107 / prosuite.lha / ProSuite / XText / assmsupp.i < prev    next >
Text File  |  1987-10-31  |  1KB  |  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.