home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / ett.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  780 b   |  50 lines
  1.     bsr    getbas
  2.     move.l    gfxbase    ,a0
  3.     add.l    #$32    ,a0
  4.     move.w    #$0080    ,$dff096
  5.     move.l    #copper    ,(a0)
  6.     move.w    #$8080    ,$dff096
  7.  
  8. loop:    move.b    $dff006    ,d0
  9.     cmp.b    #$ff    ,d0
  10.     bne    loop
  11.     move.w    poke+2    ,d0
  12.     swap    d0
  13.     move.w    poke+6    ,d0
  14.     add.l    #40    ,d0
  15.     move.w    d0    ,poke+2
  16.     andi.b    #64    ,$bfe001
  17.     jmp    $fc0000
  18.  
  19. copper:    dc.w    $0100,$1200
  20.     dc.w    $008e,$1f81
  21.     dc.w    $0090,$2ec1
  22.     dc.w    $0092,$38
  23.     dc.w    $0094,$d0
  24.     dc.w    $0108,$0000
  25.     dc.w    $010a,$0000
  26.  
  27. poke:    dc.w    $00e0,$0000
  28.     dc.w    $00e2,$0000
  29.     dc.w    $0182,$000f
  30.     dc.w    $0180,$0000
  31.     dc.w    $a801,$ff00
  32.     dc.w    $0180,$0f00
  33.     dc.w    $a901,$ff00
  34.     dc.w    $0180,$0000
  35.     dc.w    $ffff,$fffe
  36.  
  37. ExecBase:    =    4
  38. oldopenlibrary:    =    -408
  39. even
  40. gfxname:    dc.b 'graphics.library',0
  41. even
  42. gfxbase:    dc.l 0
  43.  
  44. Getbas:
  45.     move.l    execbase,a6
  46.     lea    gfxname ,a1
  47.     jsr    oldopenlibrary(a6)
  48.     move.l    d0,gfxbase
  49.     rts
  50.