Drivers for the MNT ZZ9000 graphics and ARM coprocessor card for classic Amigas.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 

46 lines
725 B

  1. incdir include:
  2. ifnd _LVOSupervisor
  3. include lvo/exec_lib.i
  4. ;include exec/exec_lib.i
  5. endc
  6. include exec/execbase.i
  7. ifnd _LVORawDoFmt
  8. _LVORawDoFmt equ -$20a
  9. endc
  10. ifnd _LVORawPutChar
  11. _LVORawPutChar equ -$204
  12. _LVORawIOInit equ -$1f8
  13. _LVORawMayGetChar equ -$1fe
  14. endc
  15. XDEF _KPrintF
  16. ;A0 = format
  17. ;A1 = arguments
  18. _KPrintF:
  19. ; ifd DEBUG
  20. movem.l d0-d2/a0-a3/a6,-(sp)
  21. move.l 4.w,a6
  22. jsr _LVORawIOInit(a6) ;better safe than sorry
  23. lea .kprintfproc(pc),a2
  24. suba.l a3,a3 ;data pointer (0 here)
  25. jsr _LVORawDoFmt(a6)
  26. movem.l (sp)+,d0-d2/a0-a3/a6
  27. rts
  28. .kprintfproc:
  29. movem.l d0/d1/a0/a1/a6,-(sp)
  30. move.l 4.w,a6
  31. jsr _LVORawPutChar(a6) ; move.b d0,(a3)+
  32. movem.l (sp)+,d0/d1/a0/a1/a6
  33. ; endc ;DEBUG
  34. rts