* ® 01.Juni,1993

* 33mLPref0m V1.00 kopiert die Daten von der bei dem Aufruf
* übergebenen  Datei in  die  Preferences - Struktur !

* Programmiert & Assembliert mit  AZ v1.50 / GenAm2 V2.11D  von
* Volker Stepprath, Spandauerstr. 4, 40789 Monheim, Deutschland




_LVOExecBase       equ   4
_LVOAllocMem       equ   -198
_LVOFreeMem        equ   -210
_LVOOldOpenLibrary equ   -408
_LVOCloseLibrary   equ   -414

_LVOOpen           equ   -30
_LVOClose          equ   -36
_LVORead           equ   -42
_LVOWrite          equ   -48
_LVOOutput         equ   -60

_LVOSetPrefs       equ   -324



_nullbyte  move.b   #0,-1(a0,d0.l)

_getparam  move.l   a0,d6
           move.l   d0,d7



_openlibs  move.l   _LVOExecBase,a6

           lea      dosname,a1
           jsr      _LVOOldOpenLibrary(a6)
           move.l   d0,dosbase

           lea      intname,a1
           jsr      _LVOOldOpenLibrary(a6)
           move.l   d0,intbase

           move.l   dosbase,a6
           jsr      _LVOOutput(a6)
           move.l   d0,conhandle

           cmp.l    #1,d7
           beq      _usage



_lpref     move.l   d6,d1
           move.l   #1005,d2
           jsr      _LVOOpen(a6)
           cmp.l    #0,d0
           beq      _closelibs
           move.l   d0,dathandle

           move.l   _LVOExecBase,A6
           move.l   #232,d0
           clr.l    d1
           jsr      _LVOAllocMem(a6)
           move.l   d0,prefbuff

           move.l   dosbase,a6
           move.l   dathandle,d1
           move.l   prefbuff,d2
           move.l   #232,d3
           jsr      _LVORead(a6)

           move.l   dathandle,d1
           jsr      _LVOClose(a6)

           move.l   intbase,a6
           move.l   prefbuff,a0
           move.l   #232,d0
           move.l   #-1,d1
           jsr      _LVOSetPrefs(a6)

           move.l   _LVOExecBase,a6
           move.l   prefbuff,a1
           move.l   #232,d0
           jsr      _LVOFreeMem(A6)

           bra      _closelibs



_usage     move.l   conhandle,d1
           move.l   #usage,d2
           moveq    #27,d3
           jsr      _LVOWrite(a6)



_closelibs move.l   _LVOExecBase,a6
           move.l   dosbase,a1
           jsr      _LVOCloseLibrary(a6)

           move.l   intbase,a1
           jsr      _LVOCloseLibrary(a6)

           RTS



dosbase    dc.l 0
intbase    dc.l 0
conhandle  dc.l 0
dathandle  dc.l 0
prefbuff   dc.l 0
dosname    dc.b 'dos.library',0
intname    dc.b 'intuition.library',0
usage      dc.b 'Usage: ',$9b,'33mLPref ',$9b,'0m[File]',10