home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / knull.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  125 lines
  1.  
  2. scr=$7a000
  3. struc=$7d000
  4. rastport=struc+100
  5.  
  6. setupsystem:
  7.  
  8. bsr getgfx
  9. bsr cleanitdown
  10.  
  11.  
  12. move.w #8000-1 ,d0
  13. move.l #scr ,a0
  14. slet: move.b #0 ,(a0)+
  15. dbra d0 ,slet
  16.  
  17. move.l #scr ,a0
  18. move.l a0 ,struc+8
  19. move.l #struc ,a0
  20. moveq #1 ,d0
  21. move.l #320 ,d1
  22. move.l #200 ,d2
  23. move.l gfxbase ,a6
  24. jsr -390(a6)
  25. move.l #rastport ,a1
  26. jsr -198(a6)
  27. move.l #struc,rastport+4
  28.  
  29. move.l #copper0,newcop
  30. bsr changecop
  31.  
  32. ;--DEMO
  33.  
  34. move=-240
  35. draw=-246
  36. setapen=-342
  37.  
  38. move.l #rastport,a1
  39.  
  40. ;/////// my demo!!! ///////
  41. move.l    #10,d2
  42. loop:
  43. move.w    fx0,d0
  44. move.w    fy0,d1
  45. divu    d2,d0
  46. divu    d2,d1
  47. move.w    d0,x0
  48. move.w    d1,y0
  49. move.w    fx1,d0
  50. move.w    fy1,d1
  51. divu    d2,d0
  52. divu    d2,d1
  53. move.w    d0,x1
  54. move.w    d1,y1
  55. jsr    line
  56. dbra    d2,loop
  57. rts
  58.  
  59. line:
  60. move.l    #x0,d0
  61. move.l    #y0,d1
  62. jsr    move(a6)
  63. move.l    #x1,d0
  64. move.l    #y1,d1
  65. jsr    draw(a6)
  66. rts
  67.  
  68. x0:    dc.w    0
  69. y0:    dc.w    0
  70. x1:    dc.w    0
  71. y1:    dc.w    0
  72. fx0:    dc.w    50
  73. fy0:    dc.w    50
  74. fx1:    dc.w    300
  75. fy1:    dc.w    200
  76. ;/////// my demo's over. //
  77.  
  78. copper0:dc.w    $0100,$1200
  79.  
  80.     dc.w    $008e,$2c81
  81.     dc.w    $0090,$f4c1
  82.     dc.w     $0092,$38
  83.     dc.w    $0094,$d0
  84.  
  85.     dc.w    $0108,$0000
  86.     dc.w    $010a,$0000
  87.  
  88.     dc.w    $00e0,$0007
  89.     dc.w    $00e2,$a000
  90.  
  91.     dc.w    $0180,$000
  92.     dc.w    $0182,$fff
  93.  
  94. dc.w $ffff,$fffe
  95.  
  96. ;*** gfx ***
  97. gfxbase:    dc.l    0
  98. gfxname:    dc.b    'graphics.library',0,0
  99.  
  100. getgfx:
  101.     move.l    4    ,a6
  102.     move.l    #gfxname,a1
  103.     jsr    -408(a6)
  104.     move.l    d0    ,gfxbase
  105. rts
  106.  
  107. ;*** change copper list ***
  108.  
  109. newcop: dc.l 0
  110. ;***
  111. changecop:
  112.     move.l    gfxbase    ,a0
  113.     move.l    newcop    ,50(a0)
  114. rts
  115.  
  116. ;*********
  117.  
  118. forbid =-132
  119. oldcopper:    dc.l 0
  120.  
  121. cleanitdown:
  122. move.l 4,a6
  123. jsr    -132(a6)
  124. rts
  125.