home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 073.lha / XText / asmsupp.i next >
Encoding:
Text File  |  1987-06-02  |  2.3 KB  |  95 lines
  1.  
  2. ;***********************************************************************
  3. ;
  4. ; asmsupp.i
  5. ;
  6. ; Copyright (c) 1986, Commodore Amiga Inc., All rights reserved
  7. ;
  8. ;***********************************************************************
  9.  
  10.  
  11. XLIB            MACRO
  12.                 XREF    _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.                 XREF    SysBaseOffset
  25.                 LINKSYS \1,SysBaseOffset(a6)
  26.                 ENDM
  27.  
  28. CLEAR           MACRO
  29.                 MOVEQ   #0,\1
  30.                 ENDM
  31.  
  32. BHS             MACRO
  33.                 IFC     '\0',''
  34.                         BCC     \1
  35.                 ENDC
  36.                 IFNC    '\0',''
  37.                         BCC.\0  \1
  38.                 ENDC
  39.                 ENDM
  40.  
  41. BLO             MACRO
  42.                 IFC     '\0',''
  43.                         BCS     \1
  44.                 ENDC
  45.                 IFNC    '\0',''
  46.                         BCS.\0  \1
  47.                 ENDC
  48.                 ENDM
  49.  
  50. PUTMSG          MACRO
  51.                 IFGE    INFOLEVEL-\1
  52.                 XREF    KPutFmt
  53.                 MOVEM.L D0/D1/A0/A1,-(SP)
  54.                 LEA     16(sp),a1
  55.                 LEA     msg\@,a0
  56.                 JSR     KPutFmt
  57.                 MOVEM.L (SP)+,D0/D1/A0/A1
  58.                 BRA     end\@
  59. msg\@:          DC.B    \2,10,0
  60.                 DS.W    0
  61. end\@:
  62.                 ENDC
  63.                 ENDM
  64.  
  65. SPUTMSG         MACRO
  66.                 IFGE    INFOLEVEL-\1
  67.                 XREF    KPutFmt
  68.                 XREF    _SubsysName
  69.                 PEA     _SubsysName
  70.                 MOVEM.L D0/D1/A0/A1,-(SP)
  71.                 LEA     16(sp),a1
  72.                 LEA     msg\@,a0
  73.                 JSR     KPutFmt
  74.                 MOVEM.L (SP)+,D0/D1/A0/A1
  75.                 ADDQ.L  #4,SP
  76.                 BRA     end\@
  77. msg\@:          DC.B    \2,10,0
  78.                 DS.W    0
  79. end\@:
  80.                 ENDC
  81.                 ENDM
  82.  
  83. * Here's an example of using the PUTMSG macros
  84. *   IFGE    INFOLEVEL-50
  85. *   SPUTMSG  50,<'[%s]ZText:'>
  86. *   MOVEM.L A0-A6,-(SP)
  87. *   PUTMSG  50,<'  A0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx'>
  88. *   LEA     7*4(SP),SP
  89. *   MOVEM.L D0-D7,-(SP)
  90. *   PUTMSG  50,<'  D0:%lx 1:%lx 2:%lx 3:%lx 4:%lx 5:%lx 6:%lx 7:%lx'>
  91. *   LEA     8*4(SP),SP
  92. *   ENDC
  93.  
  94.  
  95.