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