home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / DMZ.LZH / PRG6.1 < prev    next >
Encoding:
Text File  |  1987-12-17  |  380 b   |  16 lines
  1. START:        MOVE.L    $4,A6        ; A6 = execbase
  2.         LEA    GFXNAME(PC),A1    ; A1 pekar på GFXNAME
  3.         JSR    -408(A6)    ; Öppna graphics.library
  4.         TST.L    D0        ; Error?
  5.         BEQ.L    EXIT
  6.         MOVE.L    D0,A6        ; A6 = gfxbase
  7.  
  8.         ; Plats för intressant programsnutt
  9.             
  10.         MOVE.L    A6,A1        ; A1 = gfxbase
  11.         MOVE.L    $4,A6        ; A6 = execbase
  12.         JSR    -414(A6)    ; Stäng graphics.library
  13. EXIT:        RTS
  14.  
  15. GFXNAME:    DC.B    'graphics.library',0
  16.