home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / TEAM'89.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.4 KB  |  95 lines
  1.  
  2. move.l    $04,a6
  3. lea    gfxname,a1
  4. jsr    -408(a6)
  5. move.l    d0,gfxbase
  6. move.l    d0,a0
  7. move.l    50(a0),oldclist
  8. move.l    #newclist,50(a0)
  9. move.l    gfxbase,a6
  10. lea    bitmap,a0
  11. move.l    #$01,d0
  12. move.l    #336,d1
  13. move.l    #200,d2
  14. jsr    -390(a6)
  15. move.l    #$60000,plane1
  16. lea    rastport,a1
  17. jsr    -198(a6)
  18. move.l    #bitmap,r_bitmap
  19. lea    rastport,a1
  20. jsr    -48(a6)
  21. move.l    #scrollm,zeiger
  22. move.l    $6c,oldirq+2
  23. move.l    #newirq,$6c
  24. wait:
  25. btst    #6,$bfe001
  26. bne.s    wait
  27. move.l    oldirq+2,$6c
  28. move.l    gfxbase,a0
  29. move.l    oldclist,50(a0)
  30. move.l    $04,a6
  31. move.l    gfxbase,a1
  32. jsr    -414(a6)
  33. rts
  34.  
  35. newirq:
  36. movem.l    d0-d7/a0-a6,-(sp)
  37. move.l    gfxbase,a6
  38. lea    rastport,a1
  39. move.l    #$01,d0
  40. clr.l    d1
  41. clr.l    d2
  42. move.l    #190,d3
  43. move.l    #336,d4
  44. move.l    #200,d5
  45. jsr    -396(a6)
  46. sub.b    #$01,rows
  47. bne.s    exit
  48. move.b    #$08,rows
  49. lea    rastport,a1
  50. move.l    #320,d0
  51. move.l    #198,d1
  52. jsr    -240(a6)
  53. lea    rastport,a1
  54. move.l    zeiger,a0
  55. move.l    #$01,d0
  56. jsr    -60(a6)
  57. addq.l    #$01,zeiger
  58. cmp.l    #end,zeiger
  59. blt.s    exit
  60. move.l    #scrollm,zeiger
  61. exit:
  62. movem.l    (sp)+,d0-d7/a0-a6
  63. oldirq:
  64. jmp    $00000000
  65.  
  66. newclist:
  67. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  68. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  69. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  70. dc.w    $00e0,$0006,$00e2,$0000
  71. dc.w    $ffff,$fffe
  72. scrollm:
  73. dc.b    "TEAM'89         "
  74. end:
  75. even
  76. zeiger:
  77. dc.l    0
  78. oldclist:
  79. dc.l    0
  80. gfxbase:
  81. dc.l    0
  82. gfxname:
  83. dc.b    "graphics.library",0
  84. even
  85. bitmap:
  86. blk.w    4,0
  87. plane1:
  88. blk.l    20,0
  89. rastport:
  90. dc.l    0
  91. r_bitmap:
  92. blk.l    30,0
  93. rows:
  94. dc.b    2
  95.