/*
 *      This is a debug library which interacts directly with the Serial
 *      port. If you have Manx 3.6a, you don't need this - the same
 *      functions are included in the standard library. - RRL
 *
 *      Functions are:
 *                     kprintf(fmt, arg1, arg2,....);
 *                                    kputchar(char);
 *                                     kputs(string);
 */
 
kprintf(fmt, args)
char *fmt;
int args;
{
        int kputchar();
 
        return(format(kputchar, fmt, &args));
}
 
kputs(str)
char *str;
{
        while (*str)
                kputchar(*str++);
        kputchar('\n');
}
 
#asm
        public  _LVORawPutChar
        public  _kputchar
_kputchar
        move.l  4,a6
        move.w  4(sp),d0      ;make the 'w' an 'l' if using c32.lib
        cmp.b   #$a,d0
        bne.s   .1
        jsr             _LVORawPutChar(a6)
        move.l  #$d,d0
.1
        jsr             _LVORawPutChar(a6)
        move.w  4(sp),d0
        rts
#endasm
 
 
                       