home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 387b.lha / dice_v2.02 / lib / amiga / geta4.a < prev    next >
Encoding:
Text File  |  1990-05-30  |  483 b   |  29 lines
  1.  
  2.         ;   GETA4.A
  3.         ;
  4.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.         ;
  6.         ;   Only works for non-residentable programs
  7.  
  8.         section text,code
  9.  
  10.         xref    __RESIDENT        ; (dlink), executable is residentable
  11.         xref    __DATA_BAS        ; (dlink), base of initialized data
  12.         xref    _Wait
  13.  
  14.         xdef    _geta4            ; we call _main()
  15.  
  16. _geta4:
  17.         move.w    #__RESIDENT,D0
  18.         bne    l10
  19.         lea    __DATA_BAS+32766,A4
  20.         rts
  21. l10
  22.         pea    0
  23.         jsr    _Wait(pc)           ; shouldn't return
  24.         addq.l    #4,sp
  25.         rts
  26.  
  27.         END
  28.  
  29.