*===================================================================
*init.asm
*===================================================================
**********************************************************************
*                                            *
*   Copyright 1985, Commodore-Amiga Inc.   All rights reserved.       *
*   No part of this program may be reproduced, transmitted,      *
*   transcribed, stored in retrieval system, or translated into       *
*   any language or computer language, in any form or by any          *
*   means, electronic, mechanical, magnetic, optical, chemical,       *
*   manual or otherwise, without the prior written permission of     *
*   Commodore-Amiga Incorporated, 983 University Ave. Building #D,   *
*   Los Gatos, California, 95030                       *
*                                            *
**********************************************************************
*
*    printer device functions
*
**********************************************************************

     SECTION        printer

*------ Included Files -----------------------------------------------

     INCLUDE        "exec/types.i"
     INCLUDE        "exec/nodes.i"
     INCLUDE        "exec/lists.i"
     INCLUDE        "exec/memory.i"
     INCLUDE        "exec/ports.i"
     INCLUDE        "exec/libraries.i"

     INCLUDE        "devices/macros.i"

*------ Imported Functions -------------------------------------------

     XREF_EXE  CloseLibrary
     XREF_EXE  OpenLibrary
     XREF      _AbsExecBase


     XREF      _PEDData


*------ Exported Globals ---------------------------------------------

     XDEF      _Init
     XDEF      _Expunge
     XDEF      _Open
     XDEF      _Close
     XDEF      _PD
     XDEF      _PED
     XDEF      _SysBase
     XDEF      _GfxBase


**********************************************************************
     SECTION        printer,DATA
_PD       DC.L 0
_PED      DC.L 0
_SysBase  DC.L 0
_GfxBase  DC.L 0


**********************************************************************
     SECTION        printer,CODE
_Init:
          MOVE.L    4(A7),_PD
          LEA  _PEDData(PC),A0
          MOVE.L    A0,_PED
          MOVE.L    A6,-(A7)
          MOVE.L    _AbsExecBase,A6
          MOVE.L    A6,_SysBase

*        ;------ open the graphics library
          LEA  GLName(PC),A1
          MOVEQ     #0,D0
          CALLEXE OpenLibrary
          MOVE.L    D0,_GfxBase
          BEQ  initGLErr

          MOVEQ     #0,D0
pdiRts:
          MOVE.L    (A7)+,A6
          RTS

initGLErr:
          MOVEQ     #-1,D0
          BRA.S     pdiRts

GLName:
          DC.B 'graphics.library'
          DC.B 0
          DS.W 0


*---------------------------------------------------------------------
_Expunge:
          MOVE.L    _GfxBase,A1
          LINKEXE   CloseLibrary


*---------------------------------------------------------------------
_Open:
_Close:
          MOVEQ     #0,D0
          RTS

          END