home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / rs60-2.dms / rs60-2.adf / Tutorials / Tutorial1.asm next >
Encoding:
Assembly Source File  |  1991-10-17  |  803 b   |  41 lines
  1. *****************************************************************************
  2. * Program: Tutorial1.asm
  3. * Descrip: First tutorial executable for ReSource.
  4. *   Usage: None
  5. *  Author: Jeff Lavin
  6. * History: 08/18/91 V1.0 Created
  7. *****************************************************************************
  8.  
  9.     exeobj
  10.     objfile    'Tutorial1'
  11.  
  12. AbsExecBase    equ    4
  13.  
  14. Tutorial1    MOVEM.L    D0/A0,-(SP)
  15.     MOVEA.L    (AbsExecBase),A6
  16.     LEA    (DosName,PC),A1
  17.     JSR    (_LVOOpenLibrary,A6)
  18.     MOVE.L    D0,(_DosBase)
  19.     BNE.B    OpenedOK
  20.     MOVE.L    #AT_Recovery!AG_OpenLib!AO_DOSLib,D7
  21.     JSR    (_LVOAlert,A6)
  22.     BRA.B    NoDos
  23.  
  24. OpenedOK    JSR    (Main)
  25. NoDos    ADDQ.W    #8,SP
  26.     MOVEQ    #0,D0
  27.     RTS
  28.  
  29. DosName    DC.B    'dos.library',0
  30.  
  31. Main    TST.L    (_DosBase)
  32.     BEQ.B    Done
  33.     MOVEA.L    (_DosBase),A1
  34.     MOVEA.L    (AbsExecBase),A6
  35.     JSR    (_LVOCloseLibrary,A6)
  36. Done    RTS
  37.  
  38. _DosBase    DC.L    0
  39.  
  40.     END
  41.