home *** CD-ROM | disk | FTP | other *** search
- ; Debugging
- IFNE DEBUG_DETAIL
- XREF KPrintF
- XREF KPutChar
- ENDC
-
- DPRINTF MACRO ; <string>,...
- IFNE DEBUG_DETAIL
- PUSHCOUNT SET 0
-
- movem.l d0-d1/a0-a1,-(sp)
-
- IFGE NARG-9
- move.l \9,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-8
- move.l \8,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-7
- move.l \7,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-6
- move.l \6,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-5
- move.l \5,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-4
- move.l \4,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-3
- move.l \3,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- IFGE NARG-2
- move.l \2,-(sp)
- PUSHCOUNT SET PUSHCOUNT+4
- ENDC
-
- movem.l a0/a1,-(sp)
- lea.l .PSS\@(pc),A0
- lea.l 4*2(sp),A1
- jsr KPrintF
- movem.l (sp)+,a0/a1
- bra.s .PSE\@
-
- .PSS\@ dc.b \1
- dc.b 13,10,0
- even
- .PSE\@
- lea.l PUSHCOUNT(sp),sp
-
- movem.l (sp)+,d0-d1/a0-a1
- ENDC
- ENDM
-