home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / develop / syslog / include / syslog.i < prev   
Text File  |  1995-02-27  |  2KB  |  75 lines
  1.         IFND SYSLOG_I
  2. SYSLOG_I        equ     1
  3.  
  4. **
  5. **      $Filename: syslog.i $
  6. **      $Revision: 1.3 $
  7. **      $Date: 1993/09/18 16:30:26 $
  8. **
  9. **      Debugging log daemon -- public definitions
  10. **
  11. **      © Copyright 1993 Peter Simons, Germany
  12. **        All Rights Reserved
  13. **
  14. **      $Id: syslog.i,v 1.3 1993/09/18 16:30:26 simons Stab simons $
  15. **
  16.  
  17.  
  18.                 XREF    @initsyslog
  19.                 XREF    @uninitsyslog
  20.                 XREF    _syslog0
  21.  
  22. _InitSysLog     EQU     @initsyslog
  23. _UnInitSysLog   EQU     @uninitsyslog
  24. _SysLog         EQU     _syslog0
  25.  
  26.         IFND DEBUG
  27. DEBUG           set     1
  28.         ENDC
  29.  
  30.         IFND NO_MULTITASKING
  31. NO_MULTITASKING set     1
  32.         ENDC
  33.  
  34.  
  35. SYSLOG          MACRO
  36.   IFNE NARG
  37.     IFNE DEBUG
  38.                 movem.l d0-d1/a0-a1/a6,-(SP)
  39.       IFNE NARG-1
  40. argnum          set     NARG-1
  41.         REPEAT NARG-1
  42.                 STACKIT \2,\3,\4,\5,\6,\7,\8,\9
  43.         ENDR
  44.       ENDC
  45.                 pea     (.STRING\@,PC)
  46.       IFNE NO_MULTITASKING
  47.                 move.l  ($4).w,a6
  48.                 jsr     (_LVOForbid,a6)
  49.       ENDC
  50.                 jsr     (_SysLog)
  51.       IFNE NO_MULTITASKING
  52.                 move.l  ($4).w,a6
  53.                 jsr     (_LVOPermit,a6)
  54.       ENDC
  55.                 add.w   #NARG*4,SP
  56.                 movem.l (SP)+,d0-d1/a0-a1/a6
  57.                 bra     .GoOn\@
  58. .STRING\@       CSTR    \1,$0A
  59.                 EVEN
  60. .GoOn\@
  61.     ENDC  ; DEBUG
  62.   ENDC  ; NARG
  63.                 ENDM
  64.  
  65.         IFND STACKIT
  66. STACKIT         MACRO
  67.                 PUSH    \(argnum)
  68. argnum          set     argnum-1
  69.                 ENDM
  70.         ENDC    ; STACKIT
  71.  
  72.  
  73.         ENDC    ; SYSLOG_I
  74.  
  75.