CP and LAN working! Clockport needed to be stopped if FCS='1'
This commit is contained in:
@@ -0,0 +1,44 @@
|
||||
incdir include:
|
||||
ifnd _LVOSupervisor
|
||||
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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user