home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / demo!.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  241 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. jsr    demo
  40. jsr    cls
  41. jsr    demo
  42. jsr    cls
  43. jsr    demo
  44. jsr    cls
  45. jsr    demo
  46. rts
  47.  
  48. ;/////// my demo!!! ///////
  49. demo:
  50. move.l    #end,d3
  51. move.l    #text,d2
  52. sub    d2,d3
  53. sub    #1,d3
  54. move.l    d2,textpos
  55.  
  56. oloop:
  57. move.l    #6,d2
  58. move.l    #charset,a2
  59. move.l    textpos,a4
  60. clr.l    d0
  61. move.b    (a4),d0
  62. sub    #32,d0
  63. mulu    #28,d0
  64. add    d0,a2
  65. add.l    #1,textpos
  66. iloop:
  67. clr.l    d0
  68. clr.l    d1
  69. move.b    (a2)+,d0
  70. add    x,d0
  71. mulu    sz,d0
  72. move.b    (a2)+,d1
  73. add    y,d1
  74. mulu    sz,d1
  75. jsr    move(a6)
  76. move.b    (a2)+,d0
  77. add    x,d0
  78. mulu    sz,d0
  79. move.b    (a2)+,d1
  80. add    y,d1
  81. mulu    sz,d1
  82. jsr    draw(a6)
  83. dbra    d2,iloop
  84. ;wt:
  85. ;btst    #6,$bfe001
  86. ;bne    wait
  87. ;jmp    wt
  88. ;wait:
  89. ;btst    #6,$bfe001
  90. ;bne    wait
  91. ;move.l    #scr,a0
  92. ;move.w    #7999,d0
  93. clr.l    d0
  94. move.w    sz,d0
  95. mulu    #2,d0
  96. add    d0,x
  97. ;cls:
  98. ;move.b    #0,(a0)+
  99. ;dbra    d0,cls
  100. dbra    d3,oloop
  101. add.w    #1,sz
  102. rts
  103.  
  104. cls:
  105. move.l    #7999,d0
  106. move.l    #scr,a0
  107. cls1:
  108. move.b    #0,(a0)+
  109. dbra    d0,cls1
  110. rts
  111. ;/////// my demo's over. //
  112.  
  113.  
  114. copper0:dc.w    $0100,$1200
  115.  
  116.     dc.w    $008e,$2c81
  117.     dc.w    $0090,$f4c1
  118.     dc.w     $0092,$38
  119.     dc.w    $0094,$d0
  120.  
  121.     dc.w    $0108,$0000
  122.     dc.w    $010a,$0000
  123.  
  124.     dc.w    $00e0,$0007
  125.     dc.w    $00e2,$a000
  126.  
  127.     dc.w    $0180,$000
  128.     dc.w    $0182,$fff
  129.  
  130. dc.w $ffff,$fffe
  131.  
  132. ;*** gfx ***
  133. gfxbase:    dc.l    0
  134. gfxname:    dc.b    'graphics.library',0,0
  135.  
  136. getgfx:
  137.     move.l    4    ,a6
  138.     move.l    #gfxname,a1
  139.     jsr    -408(a6)
  140.     move.l    d0    ,gfxbase
  141. rts
  142.  
  143. ;*** change copper list ***
  144.  
  145. newcop: dc.l 0
  146. ;***
  147. changecop:
  148.     move.l    gfxbase    ,a0
  149.     move.l    newcop    ,50(a0)
  150. rts
  151.  
  152. ;*********
  153.  
  154. forbid =-132
  155. oldcopper:    dc.l 0
  156.  
  157. cleanitdown:
  158. move.l 4,a6
  159. jsr    -132(a6)
  160. rts
  161.  
  162. charset:
  163. dc.b    1,1,2,1,2,1,2,2,1,1,1,2,1,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1;SPC
  164. dc.b    1,0,1,2,1,3,1,3,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;!
  165. dc.b    1,0,1,1,2,0,2,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;"
  166. dc.b    1,0,1,3,2,0,2,3,0,1,3,1,0,2,3,2,1,0,1,0,1,0,1,0,1,0,1,0;#
  167. dc.b    0,0,3,0,0,0,0,2,1,0,1,3,0,2,3,2,3,2,3,3,0,3,3,3,2,0,2,3;$
  168. dc.b    0,3,3,0,0,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;%
  169. dc.b    0,0,0,3,0,0,2,3,2,0,2,3,3,0,3,1,0,0,0,0,0,0,0,0,0,0,0,0;&
  170. dc.b    1,0,1,1,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;'
  171. dc.b    1,0,0,1,0,1,0,2,0,2,1,3,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;(
  172. dc.b    2,0,3,1,3,1,3,2,3,2,2,3,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0;)
  173. dc.b    1,0,3,0,0,2,1,0,1,0,1,3,0,2,3,2,0,2,0,3,1,0,1,0,1,0,1,0;AF
  174. dc.b    0,0,2,0,0,0,0,1,1,0,1,1,0,1,2,1,1,1,1,2,2,1,2,2,0,2,2,2;SS
  175. dc.b    1,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2;,
  176. dc.b    0,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2,3,2;-
  177. dc.b    1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3,1,3;.
  178. dc.b    0,3,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0;/
  179. dc.b    0,0,3,0,3,0,3,3,0,3,3,3,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0;0
  180. dc.b    1,0,1,3,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;1
  181. dc.b    0,0,3,0,3,0,3,2,0,2,3,2,0,2,0,3,0,3,3,3,0,0,0,0,0,0,0,0;2
  182. dc.b    0,0,3,0,3,0,3,3,0,3,3,3,1,2,3,2,0,0,0,0,0,0,0,0,0,0,0,0;3
  183. dc.b    0,0,0,2,0,2,3,2,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;4
  184. dc.b    0,0,3,0,0,0,0,2,0,2,3,2,3,2,3,3,0,3,3,3,0,0,0,0,0,0,0,0;5
  185. dc.b    0,0,3,0,0,0,0,3,0,2,3,2,3,2,3,3,0,3,3,3,0,0,0,0,0,0,0,0;6
  186. dc.b    0,0,3,0,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;7
  187. dc.b    0,0,3,0,3,0,3,3,0,0,0,3,0,2,3,2,0,3,3,3,0,0,0,0,0,0,0,0;8
  188. dc.b    0,0,3,0,0,0,0,2,0,2,3,2,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0;9
  189. dc.b    1,0,1,0,1,3,1,3,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;:
  190. dc.b    0,1,1,3,1,3,3,0,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1;Amiga
  191. dc.b    3,0,0,2,0,2,3,3,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0;>
  192. dc.b    0,1,3,1,0,2,3,2,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1;=
  193. dc.b    0,0,3,2,0,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;>
  194. dc.b    0,0,3,0,3,0,3,1,0,1,3,1,0,1,0,2,0,2,3,2,1,3,2,3,0,0,0,0;?
  195. dc.b    0,0,3,3,1,0,3,2,0,1,2,3,0,3,3,0,0,2,2,0,1,3,3,1,0,0,0,0;XX
  196. dc.b    0,0,3,0,0,0,0,3,3,0,3,3,0,2,3,2,0,0,0,0,0,0,0,0,0,0,0,0;A
  197. dc.b    0,0,0,3,0,0,3,0,3,0,3,1,3,1,2,1,2,1,3,2,3,2,3,3,0,3,3,3;B
  198. dc.b    0,0,3,0,0,0,0,3,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;C
  199. dc.b    0,0,2,0,2,0,3,1,3,1,3,2,3,2,2,3,0,3,2,3,0,0,0,3,0,0,0,0;D
  200. dc.b    0,0,3,0,0,0,0,3,0,2,2,2,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0;E
  201. dc.b    0,0,3,0,0,0,0,3,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;F
  202. dc.b    0,0,3,0,0,0,0,3,0,3,3,3,3,2,1,2,3,2,3,3,0,0,0,0,0,0,0,0;G
  203. dc.b    0,0,0,3,0,2,3,2,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;H
  204. dc.b    1,0,1,3,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0;I
  205. dc.b    3,0,3,3,3,3,0,3,0,3,0,2,3,0,3,0,3,0,3,0,3,0,3,0,3,0,3,0;J
  206. dc.b    0,0,0,3,0,2,3,0,0,2,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;K
  207. dc.b    0,0,0,3,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;L
  208. dc.b    0,0,0,3,0,0,1,1,1,1,3,0,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0;M
  209. dc.b    0,0,0,3,0,0,3,3,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;N
  210. dc.b    0,0,3,0,3,0,3,3,3,3,0,3,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0;O
  211. dc.b    0,0,3,0,3,0,3,2,0,0,0,3,0,2,3,2,0,0,0,0,0,0,0,0,0,0,0,0;P
  212. dc.b    0,0,3,0,3,0,3,3,0,0,0,3,0,3,3,3,2,2,3,3,0,0,0,0,0,0,0,0;Q
  213. dc.b    0,0,3,0,0,0,0,3,0,2,3,2,3,0,3,2,0,2,3,3,0,0,0,0,0,0,0,0;R
  214. dc.b    0,0,3,0,0,0,0,2,0,2,3,2,3,2,3,3,0,3,3,3,0,0,0,0,0,0,0,0;S
  215. dc.b    0,0,3,0,1,0,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;T
  216. dc.b    0,0,0,3,0,3,3,3,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;U
  217. dc.b    0,0,1,3,1,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;V
  218. dc.b    0,0,0,3,0,3,1,2,1,2,3,3,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0;W
  219. dc.b    0,0,3,3,3,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;X
  220. dc.b    0,0,1,2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;Y
  221. dc.b    0,0,3,0,0,3,3,0,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0;Z
  222. dc.b    0,0,3,0,0,0,0,3,0,2,3,2,1,0,1,3,1,3,3,3,0,0,0,0,0,0,0,0;Æ
  223. dc.b    0,0,3,0,0,0,0,3,0,3,3,0,3,0,3,3,0,3,3,3,0,0,0,0,0,0,0,0;Ø
  224. dc.b    0,1,3,1,2,0,1,0,0,2,3,2,3,1,3,3,0,1,0,3,1,0,1,0,1,0,1,0;Å
  225.  
  226. sz:
  227. dc.w    2
  228.  
  229. x:
  230. dc.w    0
  231.  
  232. y:
  233. dc.w    0
  234.  
  235. textpos:    dc.l    0
  236.  
  237. text:
  238.  
  239. dc.b    'SWEINSTEIN'
  240. end:
  241.