46 lines
725 B
NASM
46 lines
725 B
NASM
incdir include:
|
|
ifnd _LVOSupervisor
|
|
include lvo/exec_lib.i
|
|
;include exec/exec_lib.i
|
|
endc
|
|
include exec/execbase.i
|
|
|
|
ifnd _LVORawDoFmt
|
|
_LVORawDoFmt equ -$20a
|
|
endc
|
|
ifnd _LVORawPutChar
|
|
_LVORawPutChar equ -$204
|
|
_LVORawIOInit equ -$1f8
|
|
_LVORawMayGetChar equ -$1fe
|
|
endc
|
|
|
|
XDEF _KPrintF
|
|
|
|
;A0 = format
|
|
;A1 = arguments
|
|
_KPrintF:
|
|
; ifd DEBUG
|
|
|
|
movem.l d0-d2/a0-a3/a6,-(sp)
|
|
|
|
move.l 4.w,a6
|
|
jsr _LVORawIOInit(a6) ;better safe than sorry
|
|
|
|
lea .kprintfproc(pc),a2
|
|
suba.l a3,a3 ;data pointer (0 here)
|
|
jsr _LVORawDoFmt(a6)
|
|
|
|
movem.l (sp)+,d0-d2/a0-a3/a6
|
|
rts
|
|
.kprintfproc:
|
|
movem.l d0/d1/a0/a1/a6,-(sp)
|
|
move.l 4.w,a6
|
|
jsr _LVORawPutChar(a6) ; move.b d0,(a3)+
|
|
movem.l (sp)+,d0/d1/a0/a1/a6
|
|
|
|
; endc ;DEBUG
|
|
|
|
rts
|
|
|
|
|