home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG8.1 < prev    next >
Encoding:
Text File  |  1999-10-02  |  746 b   |  40 lines
  1. OPENLIBRARY:    EQU    -408
  2. CLOSELIBRARY:    EQU    -414
  3. LOADSEG:    EQU    -150
  4. UNLOADSEG:    EQU    -156
  5.  
  6.         MOVE.L    $4.W,A6
  7.         LEA.L    DOSNAME(PC),A1
  8.         JSR    OPENLIBRARY(A6)        ; Öppna dos.library
  9.         MOVE.L    D0,DOSBASE        ; Spar dosbase
  10.         BEQ.S    EXIT
  11.  
  12.         MOVE.L    D0,A6
  13.         MOVE.L    #FILENAME,D1
  14.         JSR    LOADSEG(A6)        ; Ladda objektfil
  15.         MOVE.L    D0,SAVEBPTR        ; Spar BPTR
  16.         BEQ.S    FILEERROR
  17.  
  18.         ASL.L    #2,D0
  19.         ADDQ.L    #4,D0
  20.         MOVE.L    D0,A0
  21.  
  22.         MOVEM.L    D0-D7/A0-A6,-(SP)
  23.         JSR    (A0)            ; Starta objektfilen
  24.         MOVEM.L    (SP)+,D0-D7/A0-A6
  25.  
  26.         MOVE.L    SAVEBPTR(PC),D1
  27.         JSR    UNLOADSEG(A6)        ; Deallokera filen
  28.  
  29. FILEERROR:    MOVE.L    A6,A1
  30.         MOVE.L    $4.W,A6
  31.         JSR    CLOSELIBRARY(A6)    ; Stäng dos.library
  32.  
  33. EXIT:        RTS
  34.  
  35. DOSBASE:    DC.L    0
  36. DOSNAME:    DC.B    'dos.library',0
  37. EVEN
  38. SAVEBPTR:    DC.L    0
  39. FILENAME:    DC.B    'Demo',0        ; Filnamn
  40.