home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / demosas.lzh / demosource.LZH / forbid.include < prev    next >
Encoding:
Text File  |  1991-05-17  |  445 b   |  29 lines
  1. *
  2. * Forbid
  3. *
  4.  
  5.     even
  6.     move.l 4.w,a6
  7.     jsr -132(a6)
  8.     lea GFXNAME,a1
  9.     moveq #0,d0
  10.     move.l 4.w,a6
  11.     jsr -$228(a6)
  12.     tst d0
  13.     beq error
  14.     move.l d0,gfxbase
  15.         
  16.     ; Patch in copper list 
  17.  
  18.     move.l gfxbase,a6
  19.     add.l #$32,a6
  20.     move.w #$80,DMACON+CUSTOM
  21.     move.l (a6),oldcpr
  22.     move.l #democopper,(a6)
  23.  
  24.     ;Redirect level three interrupts
  25.     move.l $6c.w,oldlevel3
  26.     move.l #newlevel3,$6c.w
  27.     ;And then enable them
  28.     move.w #$8010,INTENA+CUSTOM
  29.     move.w #$8080,DMACON+CUSTOM