home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src6.dms / in.adf / ANGELSRC.DMS / ANGELSRC.adf / SOURCES / TRAINER.LZH / ANGELS4.S next >
Encoding:
Text File  |  1991-01-30  |  12.6 KB  |  805 lines
  1. ;ANGELS4.S
  2. ;*********
  3. ;by NINJA of ANGELS
  4. ; (c) 1991
  5.  
  6. org $30000
  7. load $30000
  8.  
  9.  
  10. >extern "logo",bob
  11. >extern "star2",motif
  12. >extern "fonte3",fonte
  13. >extern "mad",data
  14.  
  15. ;RI:
  16. ;LOGO-->BOB
  17. ;STAR2-->MOTIF
  18. ;FONTE3-->FONTE
  19. ;PARANOIMIA-->DATA
  20. ;les choix sont places au labels :
  21. ;lives/credits/weapons/collisions/level (l.731)
  22. ;toute modification de ces parametres au depart 
  23. ;devra etre suivie d'une modification des messages (l.758)
  24. ;suivant les valeurs des parametres mettre en oeuvre le -TRAINER-
  25. go:
  26. level_max = 8 ; nombre de tableaux maximum dans le jeu
  27. nombre_choix = 5 ; nombre de choix dans le menu (1 à 6)
  28. nmin = 6-nombre_choix
  29. wot = 10 ;--->speed mouse
  30. rvb = $777 ;couleur du texte menu
  31. planesize1 = 46*112
  32. size1 = 4*46*112
  33. planesize2 = 46*112
  34. size2 = 46*112
  35. planesize3 = 50*50
  36. size3 = 50*50
  37. largeur = 46; largeur bitplan
  38. largeur2 = 32 ; largeur bob
  39. size_image = 3200 ; taille d'un bitplan bob
  40. size_bitplan = planesize1
  41. taille_cop = 9000
  42. bsize = 5000
  43. bsr save_all
  44.  
  45. bset #1,$bfe001
  46. move.l 4,a6
  47. move.l #10808,d0
  48. move.l #$50914,a1
  49. jsr -204(a6)
  50. move.l #size1,d0
  51. move.l #$10002,d1
  52. jsr -198(a6)
  53. move.l d0,image1
  54. move.l #size2,d0
  55. move.l #$10002,d1
  56. jsr -198(a6)
  57. move.l d0,image2
  58. move.l #size3,d0
  59. move.l #$10002,d1
  60. jsr -198(a6)
  61. move.l d0,image3
  62. move.l #taille_cop,d0
  63. move.l #$10002,d1
  64. jsr -198(a6)
  65. move.l d0,copper_list
  66. bsr make_cl
  67. bsr initstars
  68. bsr init_menu
  69. move.l #data,a0
  70. move.l #$40000,a1
  71. move.w #[9408/4],d3
  72. copmus:
  73. move.L (a0)+,(a1)+
  74. dbra d3,copmus
  75. JSR $40000
  76. bsr sprite_colors
  77. lea $dff000,a6
  78. move.w #$03e0,$096(a6)
  79. move.l copper_list,$80(a6)
  80. clr.w $88(a6)
  81. move.w #$87e0,$096(a6)
  82. move.l $6c.w,saut_irq+2
  83. move.l #irq,$6c
  84. move.w #$3fff,$9a(a6)
  85. move.w #$c010,$9a(a6)
  86. att:
  87. move.w d7,d6
  88. move.w $dff00a,d7
  89. sub.w d7,d6
  90. cmp.w #$0100,d6
  91. beq ady
  92. cmp.w #$ff00,d6
  93. beq suby 
  94. att2:
  95. cmp.w #1,retour
  96. bne att
  97. bra fin
  98. ady:
  99. move.w #2,ay
  100. bra att2
  101. suby:
  102. move.w #1,ay
  103. bra att2
  104. fin:
  105. jsr $40000
  106. bclr #1,$bfe001
  107. move.l 4,a6
  108. move.l #$50914,a1
  109. move.l #10808,d0
  110. jsr -210(a6)
  111. move.l spritedata,a1
  112. move.l #bsize,d0
  113. jsr -210(a6)
  114. move.l spritedata2,a1
  115. move.l #bsize,d0
  116. jsr -210(a6)
  117. move.l image1,a1
  118. move.l #size1,d0
  119. jsr -210(a6)
  120. move.l image2,a1
  121. move.l #size2,d0
  122. jsr -210(a6)
  123. move.l image3,a1
  124. move.l #size3,d0
  125. jsr -210(a6)
  126. move.l copper_list,a1
  127. move.l #taille_cop,d0
  128. jsr -210(a6)
  129.  
  130. bsr restore_all
  131.  
  132. MOVE.W CREDITS,$100.W
  133. MOVE.W WEAPONS,$102.W
  134. MOVE.W COLLISIONS,$104.W
  135. MOVE.W LEVEL,$106.W
  136.  
  137.  
  138. moveq #0,d0
  139. rts
  140. save_all:
  141. move.b #%10000111,$bfd100
  142. move.l 4,a6
  143. jsr -132(a6)
  144. move.l $6c,save_vect_irq
  145. move.w $dff01c,save_intena
  146. or.w #$c000,save_intena
  147. move.w $dff002,save_dmacon
  148. or.w #$8100,save_dmacon
  149. rts
  150.  
  151. restore_all:
  152. move.w #$000f,$dff096
  153. move.w #$4000,$dff09a
  154. move.l save_vect_irq,$6c
  155. move.w #$7fff,$dff09a
  156. move.w save_intena,$dff09a
  157. move.w #$7fff,$dff096
  158. move.w save_dmacon,$dff096
  159. move.l 4,a6
  160. lea name_glib,a1
  161. moveq #0,d0
  162. jsr -552(a6)
  163. move.l d0,a0
  164. move.l 38(a0),$dff080
  165. clr.w $dff088
  166. jsr -138(a6)
  167. move.l d0,a1
  168. jsr -414(a6)
  169. rts
  170.  
  171. save_intena:dc.w 0
  172. save_dmacon:dc.w 0
  173. save_vect_irq:dc.l 0
  174. name_glib:dc.b "graphics.library",0
  175. even
  176. initstars:
  177. move.l 4,a6
  178. move.l copper_list,a0
  179. move.l #clr,a1
  180. move.l a1,d1
  181. move.w #7,d3
  182. clrsp:
  183. move.w d1,6(a0)
  184. swap d1
  185. move.w d1,2(a0)
  186. swap d1
  187. add.l #8,a0
  188. dbra d3,clrsp
  189.  
  190. move.l #bsize,d0
  191. move.l #$10002,d1
  192. jsr -198(a6)
  193. move.l d0,spritedata
  194. move.l copper_list,a0
  195. add.l #2,a0
  196. move.b #48,d1
  197. move.b #8,d7
  198. move.l #motif,mot
  199. bsr initstar2
  200.  
  201. move.l #bsize,d0
  202. move.l #$10002,d1
  203. jsr -198(a6)
  204. move.l d0,spritedata2
  205. move.l copper_list,a0
  206. add.l #10,a0
  207. move.b #48+16,d1
  208. move.b #8,d7
  209. move.l #motif,mot
  210. bsr initstar2
  211. rts
  212. initstar2:
  213. swap d0
  214. move.w d0,(a0)
  215. swap d0
  216. move.w d0,4(a0)
  217. move.l d0,a0
  218. move.b d1,d0
  219. remplit1:
  220. move.b d0,(a0)+
  221. move.b d2,(a0)+
  222. add.b d7,d0
  223. move.b d0,(a0)+
  224. clr.b (a0)+
  225. move.l mot,a1
  226. move.l a1,a2
  227. add.l #16,a2
  228. moveq #7,d3
  229. copie:
  230. move.w (a1)+,(a0)+
  231. move.w (a2)+,(a0)+
  232. dbra d3,copie
  233.  
  234. add.b d7,d0
  235. add.l a0,d2
  236. sub.b d0,d2
  237. tst.b d0
  238. bne.s remplit1
  239. remplit2:
  240. move.b d0,(a0)+
  241. move.b d2,(a0)+
  242. add.b d7,d0
  243. move.b d0,(a0)+
  244. move.b #6,(a0)+
  245. move.l mot,a1
  246. move.l a1,a2
  247. add.l #16,a2
  248. moveq #7,d3
  249. copie2:
  250. move.w (a1)+,(a0)+
  251. move.w (a2)+,(a0)+
  252. dbra d3,copie2
  253. add.b d7,d0
  254. add.l a0,d2
  255. sub.b d0,d2
  256. cmp.b #48,d0
  257. bne.s remplit2
  258. rts
  259.  
  260. movestars:
  261.  
  262. move.l spritedata,a0
  263. bsr movestars2
  264. move.l spritedata2,a0
  265. bsr movestars3
  266. rts
  267. movestars2:
  268. moveq #32,d0
  269. stscrolld:
  270. addq.b #2,1(a0)
  271. addq.b #3,37(a0)
  272. addq.b #4,73(a0)
  273. addq.b #5,109(a0)
  274. add.l #144,a0
  275. dbra d0,stscrolld
  276. rts
  277. movestars3:
  278. moveq #32,d0
  279. stscrolld2:
  280. addq.b #2,1(a0)
  281. addq.b #3,37(a0)
  282. addq.b #4,73(a0)
  283. addq.b #5,109(a0)
  284. add.l #144,a0
  285. dbra d0,stscrolld2
  286. rts
  287. make_cl:
  288. move.l #copperdata,a1
  289. move.l copper_list,a0
  290. move.w #23,d3
  291. lo1:
  292. move.l (a1)+,(a0)+
  293. dbra d3,lo1
  294. move.l #$01800000,(a0)+
  295. move.l #$01004200,(a0)+
  296. make_colors:
  297. move.l #bob,a1
  298. add.l #12800,a1
  299. move.w #15,d3
  300. move.w #$180,a2
  301. loop1:
  302. move.w a2,(a0)+
  303. move.w (a1)+,(a0)+
  304. add.w #2,a2
  305. dbra d3,loop1
  306. move.l image1,d1
  307. moveq #3,d4
  308. move.w #$0e0,d3
  309. loop2:
  310. move.w d3,(a0)+
  311. addq.w #2,d3
  312. swap d1
  313. move.w d1,(a0)+
  314. move.w d3,(a0)+
  315. addq.w #2,d3
  316. swap d1
  317. move.w d1,(a0)+
  318. add.l #planesize1,d1
  319. dbra d4,loop2
  320. move.l #$a001fffe,(a0)+
  321. move.l #$01001200,(a0)+
  322. move.l image2,d1
  323. move.w #$0e0,d3
  324. move.w d3,(a0)+
  325. addq.w #2,d3
  326. swap d1
  327. move.w d1,(a0)+
  328. move.w d3,(a0)+
  329. swap d1
  330. move.w d1,(a0)+
  331. move.l #copperdata2,a1
  332. move.w #17,d3
  333. copp:
  334. move.l (a1)+,(a0)+
  335. dbra d3,copp
  336. move.l image3,d1
  337. move.w #$0e0,d3
  338. move.w d3,(a0)+
  339. addq.w #2,d3
  340. swap d1
  341. move.w d1,(a0)+
  342. move.w d3,(a0)+
  343. swap d1
  344. move.w d1,(a0)+
  345. moveq #15,d3
  346. move.l #red,a1
  347. move.l #$1001fffe,d1
  348. degg:
  349. move.l d1,(a0)+
  350. move.w #$0182,(a0)+
  351. move.w (a1)+,(a0)+
  352. add.l #$01000000,d1
  353. dbra d3,degg 
  354. endcpl:
  355. move.l #$009c8010,(a0)+
  356. move.l #$fffffffe,(a0)+
  357. rts
  358.  
  359. IRQ:
  360. movem.l d0-d7/a0-a6,-(sp)
  361. move.w $dff01c,d0
  362. and.w $dff01e,d0
  363. btst #4,d0
  364. beq FIN_IRQ
  365. bsr movestars
  366. bsr move_bob
  367. bsr scrolltext
  368. bsr menu
  369. jsr $40208
  370. move.w #$10,$dff09c
  371. FIN_IRQ:
  372. movem.l (sp)+,d0-d7/a0-a6
  373. saut_irq: jmp 0.l
  374. move_bob:
  375.  
  376. move.l mocu,d2
  377. cmp.l #txf,d2
  378. bne epl
  379. move.l #tx,mocu
  380. epl:
  381. move.l mocu,a0
  382. move.w (a0),d0
  383. add.l #2,mocu
  384. move.l #bob,a0
  385. move.l image1,a1
  386. draw_bob:
  387. movem.l d0-d2/a0-a2,-(sp)
  388. move.w d0,d2
  389. lsr.w #3,d0
  390. and.w #$fffe,d0
  391. and.w #$f,d2
  392. add.w #276,d0
  393. add.w d0,a1
  394. ror.w #4,d2
  395. or.w #$09f0,d2
  396. move.w d2,$dff040
  397. move.l #$ffff0000,$dff044
  398. move.w #0,$dff064
  399. move.w #[largeur-largeur2],$dff066
  400. moveq #3,d3
  401. copi:
  402. waitblt:
  403. btst #14,$dff002
  404. bne waitblt
  405. move.l a0,$dff050
  406. move.l a1,$dff054
  407. move.w #14,$dff066
  408. move.w #6416,$dff058
  409. add.l #size_image,a0
  410. add.l #size_bitplan,a1
  411. dbra d3,copi
  412. movem.l (sp)+,d0-d2/a0-a2
  413. rts
  414. menu:
  415. bsr menu2
  416. cmp.w #5,y_mouse
  417. bne suy
  418. btst #6,$bfe001
  419. bne suy
  420. move.w #1,retour
  421. suy:
  422. rts
  423. sprite_colors:
  424. move.l #colorsprite,a1
  425. move.w #3,d3
  426. move.l #$dff1a0,a0
  427. ccs:
  428. move.w (a1)+,(a0)+
  429. dbra d3,ccs
  430. rts
  431.  
  432. scrolltext:
  433. add.w #1,compteur
  434. cmp.w #4,compteur
  435. beq cherchecaract
  436. bsr scrollbande
  437. rts
  438. cherchecaract:
  439. clr.w compteur
  440. move.l ptrlettre,a2
  441. move.b (a2),d0
  442. bsr incremcaract
  443. cmp.b #' ',d0
  444. blt space
  445. cmp.b #'Z',d0
  446. bhi space
  447. bra nospecial
  448. space:
  449. move.b #' ',d0
  450. nospecial:
  451. move.b d0,d7
  452. bsr scrollbande
  453. adrlettre:
  454. lea tablelettres,a3
  455. sub.b #' ',d0
  456. and.w #$00ff,d0
  457. lsl.w #2,d0
  458. move.l #fonte,a1
  459. add.l 0(a3,d0.w),a1
  460. move.l image3,a0
  461. add.l #46,a0
  462. insert:
  463. move.l a1,$dff050
  464. move.l a0,$dff054
  465. move.w #38,$dff064
  466. move.l #$09f00000,$dff040
  467. move.l #$ffffffff,$dff044
  468. move.w #48,$dff066
  469. move.w #16*64+1,$dff058
  470. rts
  471. scrollbande:
  472. waik:
  473. btst #$e,$dff002
  474. bne waik
  475. move.l image3,a0
  476. move.l a0,a1
  477. sub.l #2,a1
  478. scrolle:
  479. move.l a0,$dff050
  480. move.l a1,$dff054
  481. move.w #0,$dff064
  482. move.w #0,$dff066
  483. move.l #$c9f00000,$dff040
  484. move.l #$ffffffff,$dff044
  485. move.w #16*64+25,$dff058
  486. rts
  487. incremcaract:
  488. add.l #1,ptrlettre
  489. cmp.l #fintexte,ptrlettre
  490. bne pasfintexte
  491. move.l #debuttexte,ptrlettre
  492. pasfintexte:
  493. rts
  494. init_menu:
  495. move.l image2,a0
  496. add.l #4,a0
  497. lea message1,a1
  498. bsr affor
  499. lea message2,a1
  500. bsr affor
  501. lea message3,a1
  502. bsr affor
  503. lea message4,a1
  504. bsr affor
  505. lea message5,a1
  506. bsr affor
  507. lea message6,a1
  508. bsr affor
  509. rts
  510. affor:
  511. move.l a0,a2
  512. move.w #19,d3
  513. write:
  514. move.b (a1)+,d0
  515. lea tablelettres,a3
  516. sub.b #' ',d0
  517. and.w #$00ff,d0
  518. lsl.w #2,d0
  519. move.l #fonte,a4
  520. add.l 0(a3,d0.w),a4
  521. move.l a4,$dff050
  522. move.l a2,$dff054
  523. move.w #38,$dff064
  524. move.l #$09f00000,$dff040
  525. move.l #$ffffffff,$dff044
  526. move.w #44,$dff066
  527. move.w #16*64+1,$dff058
  528. add.l #2,a2
  529. dbra d3,write
  530. add.l #736,a0
  531. rts
  532. menu2:
  533. move.l copper_list,a0
  534. add.l #212,a0
  535. move.w #nmin,d0
  536. move.w #nombre_choix,d1
  537. lsl.w #3,d0
  538. add.l d0,a0
  539. sub.w #1,d1
  540. cln:
  541. move.w #rvb,6(a0)
  542. add.l #8,a0
  543. dbra d1,cln
  544.  
  545. cont_menu:
  546. move.w y_mouse,d0
  547. move.l copper_list,a0
  548. add.l #212,a0
  549. lsl.w #3,d0
  550. add.l d0,a0
  551. move.l colle,d2
  552. cmp.l #colf,d2
  553. bne hpl
  554. move.l #col,colle
  555. hpl:
  556. move.l colle,a1
  557. cmp.w #2,timerk
  558. bne ipl
  559. add.l #2,colle
  560. clr.w timerk
  561. ipl:
  562. add.w #1,timerk
  563. move.w (a1),6(a0)
  564. move.w y_mouse,d1
  565. move.l #lives,a1
  566. lsl.w #1,d1
  567. add.l d1,a1
  568. cmp.w #4,y_mouse
  569. beq inc_level
  570. yoko:
  571. btst #10,$dff016
  572. beq rightap
  573. clr.w fd
  574. rightap:
  575. btst #6,$bfe001
  576. beq leftap
  577. clr.w fe
  578. leftap:
  579. btst #10,$dff016
  580. beq off
  581. btst #6,$bfe001
  582. beq on
  583. cmp.w #1,ay
  584. beq ady_mouse
  585. cmp.w #2,ay
  586. beq suby_mouse
  587. ko:
  588. rts
  589. inc_level:
  590. cmp.w #1,fd
  591. beq yoko
  592. btst #10,$dff016
  593. bne sub_level
  594. move.w #1,fd
  595. cmp.w #level_max,level
  596. beq sub_level
  597. add.w #1,(a1)
  598. bsr affiche_level
  599. sub_level:
  600. cmp.w #1,fe
  601. beq yoko
  602. btst #6,$bfe001
  603. bne YOKO
  604. move.w #1,fe
  605. cmp.w #1,level
  606. beq YOKO
  607. sub.w #1,(a1)
  608. bsr affiche_level
  609. bra yoko
  610. affiche_level:
  611. move.w level,d0
  612. lea tablelevels,a1
  613. mulu #3,d0
  614. add.l d0,a1
  615. move.w y_mouse,d0
  616. move.l image2,a0
  617. add.l #4,a0
  618. add.l #34,a0
  619. mulu #736,d0
  620. add.l d0,a0
  621. move.w #2,d3
  622. move.l a0,a2
  623. bsr write
  624. rts
  625. on:
  626. cmp.w #4,y_mouse
  627. beq ko
  628. move.w #1,(a1)
  629. bsr w_on
  630. bra ko
  631. off:
  632. cmp.w #4,y_mouse
  633. beq ko
  634. move.w #0,(a1)
  635. bsr w_off
  636. bra ko
  637. w_on:
  638. cmp.w #4,y_mouse
  639. bge w_ond
  640.  
  641. lea messon,a1
  642. bsr xyz
  643. w_ond:
  644. rts
  645. w_off:
  646. cmp.w #4,y_mouse
  647. bge w_offd
  648. lea messof,a1
  649. bsr xyz
  650. w_offd:
  651. rts
  652. xyz:
  653. move.w y_mouse,d0
  654. move.l image2,a0
  655. add.l #4,a0
  656. add.l #34,a0
  657. mulu #736,d0
  658. add.l d0,a0
  659. move.w #2,d3
  660. move.l a0,a2
  661. bsr write
  662. rts
  663. suby_mouse:
  664. clr.w ay
  665. add.w #1,c1
  666. cmp.w #wot,c1
  667. bne ko
  668. clr.w c1
  669. sub.w #1,y_mouse
  670. cmp.w #nmin,y_mouse
  671. blt cy1
  672. subf:
  673. bra ko
  674. cy1:
  675. move.w #nmin,y_mouse
  676. bra ko
  677. ady_mouse:
  678. clr.w ay
  679. add.w #1,c2
  680. cmp.w #wot,c2
  681. bne ko
  682. clr.w c2
  683. add.w #1,y_mouse
  684. cmp.w #5,y_mouse
  685. bgt cy2
  686. adf:
  687. bra ko
  688. cy2:
  689. move.w #5,y_mouse
  690. bra ko
  691.  
  692. ay:dc.w 0
  693. fd:dc.w 0
  694. fe:dc.w 0
  695. c1:dc.w 0
  696. c2:dc.w 0
  697. timerk:dc.w 0
  698. compteur:dc.w 0
  699. ptrlettre:dc.l debuttexte
  700. colle:dc.l col
  701. image1 : dc.l 0
  702. image2 : dc.l 0
  703. image3 : dc.l 0
  704. copper_list:dc.l 0
  705. spritedata:dc.l 0
  706. spritedata2:dc.l 0
  707. clr:dc.l 0
  708. emplc:dc.l 0
  709. mot:dc.l 0
  710.  
  711. col:
  712. dc.w $000,$111,$222,$333,$444,$555,$666,$777,$888,$999
  713. dc.w $aaa,$bbb,$ccc,$ddd,$eee
  714. dc.w $ddd,$ccc,$bbb,$aaa,$999,$888,$777,$666,$555,$444
  715. dc.w $333,$222,$111
  716. colf:
  717. mocu:dc.l tx
  718. tx:;   (35 à 95)
  719. dc.w 60
  720. dc.w 61,62,61,60,59,58,59,60
  721. dc.w 61,62,63,64,63,62,61,60,59,58,57,56,57,58,59,60
  722. dc.w 62,64,66,68,66,64,62,60,58,56,54,52,54,56,58,60
  723. dc.w 62,64,66,68,70,72,74,76,78,76,74,72,70,68,66,64,62,60
  724. dc.w 58,56,54,52,50,48,46,44,42,44,46,48,50,52,54,56,58,60
  725. dc.w 62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94
  726. dc.w 92,90,88,86,84,82,80,78,76,74,72,70,68,66,64,62,60
  727. dc.w 58,56,54,52,50,48,46,44,42,40,38,36,34,32,30,28,26
  728. dc.w 28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60
  729. dc.w 62,64,66,68,70,72,74,76,78,76,74,72,70,68,66,64,62,60
  730. dc.w 58,56,54,52,50,48,46,44,42,44,46,48,50,52,54,56,58,60
  731. dc.w 62,64,66,68,66,64,62,60,58,56,54,52,54,56,58,60
  732. dc.w 61,62,63,64,63,62,61,60,59,58,57,56,57,58,59
  733. dc.w 60,61,62,61,60,59,58,59
  734. txf:
  735. copperdata:
  736. dc.l $01200000,$01220000,$01240000,$01260000
  737. dc.l $01280000,$012a0000,$012c0000,$012e0000
  738. dc.l $01300000,$01320000,$01340000,$01360000
  739. dc.l $01380000,$013a0000,$013c0000,$013e0000
  740. dc.l $008e3081,$009038f1,$00920028,$009400d8
  741. dc.l $01080000,$010a0000,$01020000,$01040000
  742. copperdata2:
  743. dc.l $01820000,$b001fffe,$01820000,$c001fffe
  744. dc.l $01820000,$d001fffe,$01820000,$e001fffe
  745. dc.l $01820000,$f001fffe,$01820000,$ffdffffe
  746. dc.l $01fe0000,$0011fffe,$01fe0000,$1001fffe
  747. dc.l $01080004,$010a0004
  748.  
  749. retour: dc.w 0
  750. ; 1 = ON/0 = OFF
  751. ;------------------------------
  752. LIVES : DC.W 01
  753. CREDITS : DC.W 0
  754. WEAPONS : DC.W 0
  755. COLLISIONS : DC.W 0
  756. LEVEL : DC.W 1
  757. ;------------------------------
  758. START : DC.W 0
  759. Y_MOUSE : DC.W 5 ;(entre 0 et 5)
  760.  
  761. OLD_Y : DC.W 0
  762. colorsprite :
  763. dc.w $000,$447,$669,$aad
  764.  
  765. red:
  766. dc.w $080,$090,$0a0,$0b0,$0c0,$0d0,$0e0,$0f0
  767. dc.w $0e0,$0d0,$0c0,$0b0,$0a0,$090,$080
  768.  
  769. tablelettres:
  770. ;lettres speciales
  771. dc.l 1296,652,1294,1290,1296,1296,1296,1296,660,662,1296
  772. dc.l 664,1292,658,1288,1296,668,670,672,674,676,678
  773. dc.l 1280,1282,1284,1286,654,666,1296,1296,1296,656,1296
  774. ;lettres A-Z
  775. dc.l 0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38
  776. dc.l 640,642,644,646,648,650
  777. messon: DC.B ' ON'
  778. messof: DC.B 'OFF'
  779. message1: DC.B '                    '
  780. message2: DC.B 'ENDLESS LIVES    OFF'
  781. message3: DC.B 'ENDLESS ENERGY   OFF'
  782. message4: DC.B 'WATER STOPPED    OFF' 
  783. message5: DC.B 'START LEVEL       01'
  784. message6: DC.B ' --  START GAME  -- '
  785. tablelevels:
  786. DC.B ' 00'
  787. DC.B ' 01'
  788. DC.B ' 02'
  789. DC.B ' 03'
  790. DC.B ' 04'
  791. DC.B ' 05'
  792. DC.B ' 06'
  793. DC.B ' 07'
  794. DC.B ' 08'
  795. debuttexte:
  796. DC.B 'INTRO 3 , CODED BY NINJA OF ANGELS !!'
  797. DC.B ' GREETINGS TO ALL MEMBERS OF -ANGELS- ......'
  798. fintexte:
  799.  
  800. even
  801. bob: blk.b 12832,0
  802. fonte : blk.b 2000,0
  803. motif : blk.b 32,0
  804. data: blk.b 9404,0
  805.