home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / coper.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  47 lines
  1. move.l  #$676,a6
  2. lea    gfxname,a1
  3. move.l  #0,d0
  4. jsr    -552(a6)
  5. move.l    $2230,oldclist
  6. move.l    #newclist,$2230
  7. slut:
  8. move.l  #$676,a6
  9. move.l  #$21fe,a1
  10. jsr    -414(a6)
  11. rts
  12. newclist:
  13. dc.w    $8e,$2c21,$90,$f4ff,$92,$20,$94,$ff
  14. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  15. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  16. dc.w    $2011,$fffe
  17. dc.w    $00e0,$0006,$00e2,$0000
  18. dc.w    $3011,$fffe,$180,$111
  19. dc.w    $3111,$fffe,$180,$222
  20. dc.w    $3211,$fffe,$180,$333
  21. dc.w    $3311,$fffe,$180,$444
  22. dc.w    $3411,$fffe,$180,$555
  23. dc.w    $3511,$fffe,$180,$666
  24. dc.w    $3611,$fffe,$180,$777
  25. dc.w    $3711,$fffe,$180,$888
  26. dc.w    $3811,$fffe,$180,$999
  27. dc.w    $3911,$fffe,$180,$aaa
  28. dc.w    $5a11,$fffe,$180,$aaa
  29. dc.w    $5b11,$fffe,$180,$999
  30. dc.w    $5c11,$fffe,$180,$888
  31. dc.w    $5d11,$fffe,$180,$777
  32. dc.w    $5e11,$fffe,$180,$666
  33. dc.w    $5f11,$fffe,$180,$555
  34. dc.w    $6011,$fffe,$180,$444
  35. dc.w    $6111,$fffe,$180,$333
  36. dc.w    $6211,$fffe,$180,$222
  37. dc.w    $6311,$fffe,$180,$111
  38. dc.w    $ffff,$fffe
  39. even
  40. oldclist:
  41. dc.l    0
  42. gfxname:
  43. dc.b    "graphics.library",0
  44. even
  45. rastport:
  46. dc.l    0
  47.