home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / alib / gfxlib.a < prev    next >
Encoding:
Text File  |  1990-05-30  |  579 b   |  38 lines

  1.  
  2.             ;   autoinit if you ever reference DOS
  3.             ;
  4.             ;   Note:   das automatically pads code sections with
  5.             ;        NOPs.
  6.  
  7.             xdef    _GfxBase
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    gfxname,A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_GfxBase(A4)
  18. i10
  19.  
  20.             section autoexit0,code
  21.  
  22.             move.l    _GfxBase(A4),D0
  23.             beq    l10
  24.             move.l    D0,A1
  25.             jsr    _LVOCloseLibrary(A6)
  26. l10
  27.  
  28.             section const,code
  29.  
  30. gfxname         dc.b    $67,$72,$61,$70,$68,$69,$63,$73,$2E,$6C,$69,$62,$72,$61,$72,$79,0
  31.  
  32.             section libbss,bss
  33.  
  34. _GfxBase        ds.l    1
  35.  
  36.             END
  37.  
  38.