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