62 lines
931 B
NASM
62 lines
931 B
NASM
;incdir include:
|
|
;ifnd _LVOSupervisor
|
|
;include lvo/exec_lib.i
|
|
;include exec/exec_lib.i
|
|
;endc
|
|
;include exec/execbase.i
|
|
;include device.i
|
|
|
|
|
|
ifnd _LVORawDoFmt
|
|
_LVORawDoFmt equ -$20a
|
|
endc
|
|
ifnd _LVORawPutChar
|
|
_LVORawPutChar equ -$204
|
|
_LVORawIOInit equ -$1f8
|
|
_LVORawMayGetChar equ -$1fe
|
|
endc
|
|
|
|
XDEF _KPrintF
|
|
XDEF _KPrintFa0a1
|
|
|
|
_KPrintF:
|
|
; rts
|
|
move.l 4(sp),a0
|
|
lea 8(sp),a1
|
|
; fall through
|
|
|
|
;A0 = format
|
|
;A1 = arguments
|
|
_KPrintFa0a1:
|
|
; 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
|
|
|
|
;DEBUG
|
|
; dc.l $deadbeef
|
|
; dc.l sds_SIZEOF
|
|
; dc.l sv_SIZEOF
|
|
; dc.l du_SIZEOF
|
|
; dc.l db_SIZEOF
|
|
|
|
|