* 33mInstallFont0m (p) by Volker Stepprath
* InstallFont benötigt den CLI-Befehl 1mFF0m & 1mRun0m !


_LVOExecBase        equ        4
_LVOOpen            equ      -30
_LVOClose           equ      -36
_LVOExecute         equ     -222
_LVOFindTask        equ     -294
_LVOGetMsg          equ     -372
_LVOWaitPort        equ     -384
_LVOOldOpenLibrary  equ     -408
_LVOCloseLibrary    equ     -414


    * Workbench oder CLI *

    move.l  _LVOExecBase,a6

    suba.l  a1,a1
    jsr     _LVOFindTask(a6)

    move.l  d0,a4
    tst.l   $ac(a4)
    bne     FromCLI

    lea     $5c(a4),a0
    jsr     _LVOWaitPort(a6)

    jsr     _LVOGetMsg(a6)


    * Spherix.font installieren *

    lea     Dosname,a1
    jsr     _LVOOldOpenLibrary(a6)
    move.l  d0,DosBase

    move.l  DosBase,a6

    move.l  #Fenster,d1
    move.l  #1006,d2
    jsr     _LVOOpen(a6)
    move.l  d0,Handle

    move.l  #Befehl,d1
    moveq   #0,d2
    move.l  Handle,d3
    jsr     _LVOExecute(a6)

    move.l  Handle,d1
    jsr     _LVOClose(a6)

    move.l  _LVOExecBase,a6

    move.l  DosBase,a1
    jsr     _LVOCloseLibrary(a6)

FromCLI
    RTS


Dosname dc.b 'dos.library',0
DosBase dc.l 0
Fenster dc.b 'CON:20/30/610/80/InstallFont',0
Handle  dc.l 0
Befehl  dc.b ':Paragon/FF :Paragon/Fonts/Spherix.font',10
        dc.b ':Paragon/Paragon',10
        dc.b ':Paragon/FF topaz.font',10,0