home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / OTL-MC6.DMS / in.adf / libsrc.lha / LIBSRC / diskfontbase.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-08  |  587 b   |  38 lines
  1.  
  2. * Maxon C++ Library:
  3. * Modul "diskfontbase"
  4. * Jens Gelhar 19.03.93, 04.08.94
  5.  
  6.     xdef    _DiskfontBase
  7.     xdef    _INIT_1_DiskfontBase_Open_Please_Yeah
  8.     xdef    _EXIT_1_DiskfontBase_I_HATE_HATE_EMACS
  9.  
  10.     xref    exit__i
  11.  
  12. _INIT_1_DiskfontBase_Open_Please_Yeah:
  13.     lea    gfxname(pc),a1
  14.     moveq    #33,d0
  15.     move.l    4.w,a6
  16.     jsr    -552(a6)
  17.     move.l    d0,_DiskfontBase
  18.     bne.b    ret
  19.     move.l    #-996,-(a7)
  20.     jsr    exit__i
  21.  
  22. _EXIT_1_DiskfontBase_I_HATE_HATE_EMACS:
  23.     move.l    _DiskfontBase,d0
  24.     beq.b    ret
  25.     move.l    d0,a1
  26.     move.l    4.w,a6
  27.     jsr    -414(a6)
  28. ret:    rts
  29.  
  30. gfxname:    dc.b 'diskfont.library',0
  31.  
  32.     section d,data
  33.  
  34. _DiskfontBase:    dc.l 0
  35.  
  36.     end
  37.  
  38.