home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / observe.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  157 lines
  1. scr=$7a000
  2. struc=$7d000
  3. rastport=struc+100
  4.  
  5. setupsystem:
  6.  
  7. bsr getgfx
  8. bsr cleanitdown
  9.  
  10.  
  11. move.w #8000-1 ,d0
  12. move.l #scr ,a0
  13. slet: move.b #0 ,(a0)+
  14. dbra d0 ,slet
  15.  
  16. move.l #scr ,a0
  17. move.l a0 ,struc+8
  18. move.l #struc ,a0
  19. moveq #1 ,d0
  20. move.l #320 ,d1
  21. move.l #200 ,d2
  22. move.l gfxbase ,a6
  23. jsr -390(a6)
  24. move.l #rastport ,a1
  25. jsr -198(a6)
  26. move.l #struc,rastport+4
  27.  
  28. move.l #copper0,newcop
  29. bsr changecop
  30.  
  31. ;--DEMO
  32.  
  33. move=-240
  34. draw=-246
  35. setapen=-342
  36.  
  37. move.l #rastport,a1
  38.  
  39. ;/////// my demo!!! ///////
  40. jmp    a
  41. ;---------
  42. putpoint:
  43. mulu    #40,d7
  44. move    d7,a0
  45. ror.l    #3,d6
  46. add    d6,a0
  47. clr    d6
  48. rol.l    #3,d6
  49. cmp    #8000,a0
  50. bge    no
  51. add.l    #scr,a0
  52. move    #7,d7
  53. sub    d6,d7
  54. bset    d7,(a0)
  55. no:
  56. rts        
  57. ;/////// my demo's over. //
  58.  
  59. copper0:dc.w    $0100,$1200
  60.  
  61.     dc.w    $008e,$2c81
  62.     dc.w    $0090,$f4c1
  63.     dc.w     $0092,$38
  64.     dc.w    $0094,$d0
  65.  
  66.     dc.w    $0108,$0000
  67.     dc.w    $010a,$0000
  68.  
  69.     dc.w    $00e0,$0007
  70.     dc.w    $00e2,$a000
  71.  
  72.     dc.w    $0180,$00f
  73.     dc.w    $0182,$f00
  74.  
  75. dc.w $ffff,$fffe
  76.  
  77. ;*** gfx ***
  78. gfxbase:    dc.l    0
  79. gfxname:    dc.b    'graphics.library',0,0
  80.  
  81. getgfx:
  82.     move.l    4    ,a6
  83.     move.l    #gfxname,a1
  84.     jsr    -408(a6)
  85.     move.l    d0    ,gfxbase
  86. rts
  87.  
  88. ;*** change copper list ***
  89.  
  90. newcop: dc.l 0
  91. ;***
  92. changecop:
  93.     move.l    gfxbase    ,a0
  94.     move.l    newcop    ,50(a0)
  95. rts
  96.  
  97. ;*********
  98.  
  99. forbid =-132
  100. oldcopper:    dc.l 0
  101.  
  102. cleanitdown:
  103. move.l 4,a6
  104. jsr    -132(a6)
  105. rts
  106.  
  107. rad:dc.w    0
  108. xc:dc.w    0
  109. yc:dc.w    0
  110. x:dc.w    0
  111. y:dc.w    0
  112.  
  113. a:
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122. clr.l    d5
  123. move.b    $dff00a,d4
  124. cmp    #200,d4
  125. blt    h
  126. move    #0,d4
  127. h:
  128. move.l    #scr,a1
  129.  
  130. l:
  131. move    #39,d2
  132. sc:
  133. move.b    #0,(a1)+
  134. dbra    d2,sc
  135.  
  136. btst    #6,$bfe001
  137. beq    quit
  138.  
  139. btst    #7,$bfe001
  140. beq    yeah
  141. move    #0,d6
  142. jmp    tja
  143. yeah:
  144. move    #50,d6
  145. tja:
  146.  
  147. move    d5,d7
  148. jsr    putpoint
  149. addq    #1,d5
  150. cmp    d4,d5
  151. bne    l
  152. jmp    a
  153.  
  154.  
  155. quit:
  156. rts
  157.