home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / MAXONC3_6OF8.DMS / in.adf / LIBSRC.LHA / LIBSRC / intuitionbase.asm < prev    next >
Encoding:
Assembly Source File  |  1994-04-08  |  587 b   |  39 lines
  1.  
  2. * Maxon C++ Library:
  3.  
  4. * Modul "intuitionbase"
  5.  
  6. * Jens Gelhar 19.03.93, 08.04.94
  7.  
  8.     xdef    _IntuitionBase
  9.     xdef    _INIT_1_IntuitionBase_Open_Please
  10.     xdef    _EXIT_1_Intuitionbase_Gnarf_gnarf_gnarf
  11.  
  12.     xref    exit__i
  13.  
  14. _INIT_1_IntuitionBase_Open_Please:
  15.     lea intname(pc),a1
  16.     moveq #0,d0
  17.     move.l 4.w,a6
  18.     jsr -552(a6)
  19.     move.l d0,_IntuitionBase
  20.     bne.b ret
  21.     move.l #-996,-(a7)
  22.     jsr exit__i
  23.  
  24. _EXIT_1_Intuitionbase_Gnarf_gnarf_gnarf:
  25.     move.l _IntuitionBase,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. intname:    dc.b 'intuition.library',0
  33.  
  34.     SECTION D,DATA
  35.  
  36. _IntuitionBase:    dc.l 0
  37.  
  38.     end
  39.