/[projet1]/public/oric/games/Space 1999/Sources/trailer/sequences.s
Defence Force logotype

Contents of /public/oric/games/Space 1999/Sources/trailer/sequences.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 365 - (show annotations)
Mon Jul 19 10:58:27 2010 UTC (9 years ago) by dbug
File size: 19704 byte(s)
Added the Space:1999 Trailer to the repository.

1 // ============================================================================
2 //
3 // Sequences.s
4 //
5 // ============================================================================
6 //
7 // Just the various parts shown in the demo
8 //
9 // ============================================================================
10
11
12 _LogoColor .byt 7,7,7,3,7,3,3,1,3,1,1,3,1,3,3,3
13 _EarthColor .byt 4,4,4,6,4,6,6,2,6,2,2,6,2,6,6,6
14
15 i0 .byt 0
16 i1 .byt 0
17
18 ii0 .byt 0
19 ii1 .byt 0
20
21 _W .byt 0
22 _H .byt 0
23
24
25 _ColorsFadeStartPtr .word 0
26 _ColorsFadeCurrentPtr .word 0
27
28 _ColorPaperDarkGreen
29 .byt 2
30 .byt 16+2,16+0
31
32 _ColorPaperBlack
33 .byt 1
34 .byt 16+0
35
36 _ColorPaperDarkBlue
37 .byt 2
38 .byt 16+4,16+0
39
40 _ColorPaperBlue
41 .byt 1
42 .byt 16+4
43
44 _ColorPaperDarkCyan
45 .byt 2
46 .byt 16+6,16+4
47
48 _ColorPaperCyan
49 .byt 1
50 .byt 16+6
51
52 _ColorPaperDarkWhite
53 .byt 2
54 .byt 16+7,16+6
55
56 _ColorPaperWhite
57 .byt 1
58 .byt 16+7
59
60 _ColorPaperYellow
61 .byt 1
62 .byt 16+3
63
64 _ColorPaperRed
65 .byt 1
66 .byt 16+1
67
68 _ColorInkYellow
69 .byt 1
70 .byt 3
71
72 _ColorInkBlack
73 .byt 1
74 .byt 0
75
76 _ColorInkWhite
77 .byt 1
78 .byt 7
79
80 _ColorInkBlue
81 .byt 1
82 .byt 4
83
84 _ColorInkCyan
85 .byt 1
86 .byt 6
87
88 _ColorInkDarkCyan
89 .byt 2
90 .byt 6,4
91
92 _ColorInkOrange
93 .byt 2
94 .byt 1,3
95
96 _ColorInkRed
97 .byt 1
98 .byt 1
99
100 ; 1,2,4 = default
101 ; 4,2,1 = interesting
102
103 _ColorInkDefaultRGB
104 .byt 3
105 .byt 1,2,4
106
107 _ColorInkAlternateRGB
108 .byt 3
109 .byt 2,4,1
110
111
112 _ColorsCrescentMoon
113 .byt 19,10,70,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
114
115 _ColorsDoublePlanet
116 .byt 20,20,70,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
117
118 _ColorsBarbaraBain
119 .byt 24,51,55,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
120
121 _ColorsSylviaAnderson
122 .byt 11,117,55,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
123
124 _ColorsTwilighte
125 .byt 1,80,120,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
126
127 _ColorsQuote1
128 .byt 0,0,50,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
129
130 _ColorsQuote2
131 .byt 0,50,50,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
132
133 _ColorsQuote3
134 .byt 0,100,70,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
135
136 _ColorsQuote4
137 .byt 0,170,30,<_ColorsFadeList,>_ColorsFadeList ; X,Y,H,Fadelist
138
139 _ColorsQuoteAll
140 .byt 0,0,200,<_ColorsFadeListOut,>_ColorsFadeListOut ; X,Y,H,Fadelist
141
142 _ColorsFadeToWhite
143 .byt 0,0,200,<_ColorsPaperFadeList,>_ColorsPaperFadeList ; X,Y,H,Fadelist
144
145 _ColorsFadeList
146 .byt <_ColorInkBlack,>_ColorInkBlack
147 .byt <_ColorInkBlue,>_ColorInkBlue
148 .byt <_ColorInkCyan,>_ColorInkCyan
149 .byt <_ColorInkWhite,>_ColorInkWhite
150 _ColorsFadeListOut
151 .byt <_ColorInkYellow,>_ColorInkYellow
152 .byt <_ColorInkRed,>_ColorInkRed
153 .byt <_ColorInkBlue,>_ColorInkBlue
154 .byt <_ColorInkBlack,>_ColorInkBlack
155
156
157 _ColorsPaperFadeList
158 .byt <_ColorPaperBlack,>_ColorPaperBlack
159 .byt <_ColorPaperBlack,>_ColorPaperBlack
160 .byt <_ColorPaperDarkBlue,>_ColorPaperDarkBlue
161 .byt <_ColorPaperBlue,>_ColorPaperBlue
162 .byt <_ColorPaperDarkCyan,>_ColorPaperDarkCyan
163 .byt <_ColorPaperCyan,>_ColorPaperCyan
164 .byt <_ColorPaperDarkWhite,>_ColorPaperDarkWhite
165 .byt <_ColorPaperWhite,>_ColorPaperWhite
166 _ColorsPaperFadeListOut
167 .byt <_ColorPaperYellow,>_ColorPaperYellow
168 .byt <_ColorPaperRed,>_ColorPaperRed
169 .byt <_ColorPaperBlue,>_ColorPaperBlue
170 .byt <_ColorPaperBlack,>_ColorPaperBlack
171
172
173 _ColorCyclespace1999Logo
174 .(
175 lda #128
176 sta _FrameCounter
177 couterloop
178 ; ii0=i0;
179 ; ii1=i1;
180 lda i0
181 sta ii0
182
183 lda i1
184 sta ii1
185
186 ; pLine=(unsigned char*)0xa000+2;
187 lda #<$a000+2
188 sta tmp0+0
189 lda #>$a000+2
190 sta tmp0+1
191
192 ldx #0
193 loop_y
194 txa
195 and #1
196 beq logo
197
198 earth
199 lda ii1
200 and #15
201 tay
202 lda _EarthColor,y
203 iny
204 sty ii1
205 jmp end
206
207 logo
208 lda ii0
209 and #15
210 tay
211 lda _LogoColor,y
212 iny
213 sty ii0
214 jmp end
215
216 end
217 ldy #0
218 sta (tmp0),y
219
220 ; pLine+=40;
221 clc
222 lda tmp0+0
223 adc #40
224 sta tmp0+0
225 lda tmp0+1
226 adc #0
227 sta tmp0+1
228
229 inx
230 cpx #90
231 bne loop_y
232
233 inc i0
234 dec i1
235
236 lda #3
237 sta _TimerCounter
238 wait
239 lda _TimerCounter
240 bne wait
241
242 dec _FrameCounter
243 bne couterloop
244
245 rts
246 .)
247
248
249 ; Call with a/x pointing on the file to unpack
250 ; Will unpack to the _BufferUnpack
251 _FileUnpackToBuffer
252 .(
253 sta ptr_source+0
254 stx ptr_source+1
255
256 lda #<_BufferUnpack
257 sta ptr_destination+0
258 lda #>_BufferUnpack
259 sta ptr_destination+1
260
261 jmp _FileUnpack
262 .)
263
264 _SequenceSpace1999Logo
265 lda #<_LabelPictureLogo
266 ldx #>_LabelPictureLogo
267 jsr _FileUnpackToBuffer
268
269 jsr _FlipToScreen
270
271 ; color_cycle(255);//64);
272 jmp _ColorCyclespace1999Logo
273
274
275 _SequenceItcLogo
276 lda #<_LabelPictureItcLogo
277 ldx #>_LabelPictureItcLogo
278 jsr _FileUnpackToBuffer
279
280 jsr _FlipToScreen
281
282 ldx #4
283 jmp _WaitSecond
284
285
286 _SequenceDefenceForceLogo
287 .(
288 jsr _BlackScreen
289
290 lda #<_ColorsFadeToWhite
291 ldx #>_ColorsFadeToWhite
292 jsr _ColorsFadeInit
293
294 jsr _UnpackFont
295 lda #<_Message_ProducedBy
296 ldx #>_Message_ProducedBy
297 jsr _DrawTextAsm
298
299 lda #<_LabelPictureDefenceForce
300 ldx #>_LabelPictureDefenceForce
301 jsr _FileUnpackToBuffer
302
303 jsr _FadeInOrOut
304 jsr _FadeInOrOut
305 jsr _DisplayPaperSet
306
307 jsr _DisplayMakeShiftedLogos
308 jsr _DisplayDefenceForceFrame
309
310 lda #100
311 sta _FrameCounter
312 loop
313 jsr _DisplayScrappIt
314 dec _FrameCounter
315 bne loop
316
317 jsr _BlackScreen
318 rts
319 .)
320
321
322
323
324
325
326
327
328 _UnpackFont
329 .(
330 lda #<_LabelPictureFont
331 sta ptr_source+0
332 lda #>_LabelPictureFont
333 sta ptr_source+1
334
335 lda #<_BufferUnpack
336 sta ptr_destination+0
337 lda #>_BufferUnpack
338 sta ptr_destination+1
339
340 jmp _FileUnpack
341 .)
342
343
344
345
346
347 ; tmp0=pointer on color
348 ; _X=start column
349 ; _Y=start row
350 ; _H=height
351 _SetColorBand
352 ;jmp _SetColorBand
353 .(
354 ; pdst_line=(unsigned char*)0xa000+Y*40; -> tmp5
355 ldy _Y
356 clc
357 lda _HiresAddrLow,y
358 adc _X
359 sta __patch_hires+1
360 lda _HiresAddrHigh,y
361 adc #0
362 sta __patch_hires+2
363
364 ldy #0
365 lda (tmp0),y
366 sta __patch_wrap+1
367 inc __patch_wrap+1
368
369 lda tmp0+0
370 sta __patch_colors+1
371 lda tmp0+1
372 sta __patch_colors+2
373
374 ldx #1
375 ldy _H
376 loop_y
377 __patch_colors
378 lda $1234,x
379 __patch_hires
380 sta $a000
381
382 clc
383 lda __patch_hires+1
384 adc #40
385 sta __patch_hires+1
386 lda __patch_hires+2
387 adc #0
388 sta __patch_hires+2
389
390 inx
391 __patch_wrap
392 cpx #$12
393 bne skip
394 ldx #1
395 skip
396
397 dey
398 bne loop_y
399 rts
400 .)
401
402 ; a/x=pointer on color
403 _SetPaperColor
404 sta tmp0+0
405 stx tmp0+1
406
407 lda #0
408 sta _X
409
410 lda #0
411 sta _Y
412
413 lda #200
414 sta _H
415
416 jmp _SetColorBand
417
418 ; a/x=pointer on color
419 _SetInkColor
420 sta tmp0+0
421 stx tmp0+1
422
423 lda #1
424 sta _X
425
426 lda #0
427 sta _Y
428
429 lda #200
430 sta _H
431
432 jmp _SetColorBand
433
434 _SetInkYellow
435 lda #<_ColorInkYellow
436 ldx #>_ColorInkYellow
437 jmp _SetInkColor
438
439 _SetInkBlack
440 lda #<_ColorInkBlack
441 ldx #>_ColorInkBlack
442 jmp _SetInkColor
443
444 _SetInkWhite
445 lda #<_ColorInkWhite
446 ldx #>_ColorInkWhite
447 jmp _SetInkColor
448
449
450 ; a=low adr
451 ; x=high adr
452 _ColorsFadeInit
453 sta _ColorsFadeStartPtr+0
454 stx _ColorsFadeStartPtr+1
455
456 clc
457 adc #3
458 sta tmp0+0
459 txa
460 adc #0
461 sta tmp0+1
462
463 ldy #0
464 lda (tmp0),y
465 sta _ColorsFadeCurrentPtr+0
466 iny
467 lda (tmp0),y
468 sta _ColorsFadeCurrentPtr+1
469
470 jmp _ColorsFadeDo
471
472 _ColorsFadeDo
473 lda _ColorsFadeStartPtr+0
474 sta tmp0+0
475 lda _ColorsFadeStartPtr+1
476 sta tmp0+1
477
478 ldy #0
479 lda (tmp0),y
480 sta _X
481
482 iny
483 lda (tmp0),y
484 sta _Y
485
486 iny
487 lda (tmp0),y
488 sta _H
489
490 clc
491 lda _ColorsFadeCurrentPtr+0
492 sta tmp1+0
493 adc #2
494 sta _ColorsFadeCurrentPtr+0
495 lda _ColorsFadeCurrentPtr+1
496 sta tmp1+1
497 adc #0
498 sta _ColorsFadeCurrentPtr+1
499
500 ldy #0
501 lda (tmp1),y
502 sta tmp0+0
503
504 iny
505 lda (tmp1),y
506 sta tmp0+1
507
508 jsr _SetColorBand
509
510 rts
511
512
513
514 DrawRatingBox
515 .(
516 .(
517 ; The thick horizontal lines
518 ldx #36
519 lda #%01111111
520 loop_horizontal
521 sta $a001+40*119,x
522 sta $a001+40*120,x
523
524 sta $a001+40*142,x
525 sta $a001+40*143,x
526
527 sta $a001+40*158,x
528
529 sta $a001+40*173,x
530 sta $a001+40*174,x
531 dex
532 bne loop_horizontal
533 .)
534
535 .(
536 ; The vertical lines on each side to close the box
537 lda #<$a001+40*119
538 sta tmp0+0
539 lda #>$a001+40*119
540 sta tmp0+1
541 ldx #56
542 loop_vertical
543 lda #%01000011
544 ldy #0
545 sta (tmp0),y
546
547 lda #%01110000
548 ldy #37
549 sta (tmp0),y
550
551 clc
552 lda tmp0+0
553 adc #40
554 sta tmp0+0
555 lda tmp0+1
556 adc #0
557 sta tmp0+1
558
559 dex
560 bne loop_vertical
561 .)
562
563 .(
564 ; The small line to split the box with the General Audiences texte
565 lda #<$a001+40*121
566 sta tmp0+0
567 lda #>$a001+40*121
568 sta tmp0+1
569 ldx #21
570 loop_vertical
571 lda #%01110000
572 ldy #5
573 sta (tmp0),y
574
575 clc
576 lda tmp0+0
577 adc #40
578 sta tmp0+0
579 lda tmp0+1
580 adc #0
581 sta tmp0+1
582
583 dex
584 bne loop_vertical
585 .)
586
587 rts
588 .)
589
590
591 _SequenceRating
592 .(
593 jsr _UnpackFont
594
595 jsr _SetInkBlack
596
597 lda #<_Message_Rating
598 ldx #>_Message_Rating
599 jsr _DrawTextAsm
600
601 lda #<_Message_Rating_Bottom
602 ldx #>_Message_Rating_Bottom
603 sta tmp0+1
604 jsr _DrawTextAsm
605
606 lda #<_ColorPaperDarkGreen
607 ldx #>_ColorPaperDarkGreen
608 jsr _SetPaperColor
609 jsr _SetInkWhite
610
611 jsr DrawRatingBox
612
613 ldx #6
614 jmp _WaitSecond
615 .)
616
617
618 _SequenceMartinLandau
619 lda #<_LabelPictureMartinLandau
620 ldx #>_LabelPictureMartinLandau
621 jsr _FileUnpackToBuffer
622
623 jsr _FlipToScreen
624
625 jsr _UnpackFont
626
627 lda #<_Message_StarringMartinLandau
628 ldx #>_Message_StarringMartinLandau
629 jsr _DrawTextAsm
630
631 ldx #3
632 jmp _WaitSecond
633
634
635 _SequenceSylviaAnderson
636 .(
637 lda #0
638 jsr _ShowPictureBlueGalaxies
639
640 lda #<_ColorsSylviaAnderson
641 ldx #>_ColorsSylviaAnderson
642 jsr _ColorsFadeInit
643
644 jsr _UnpackFont
645
646 lda #<_Message_SylviaAnderson
647 ldx #>_Message_SylviaAnderson
648 jmp _DrawTextAndFadeInAndOut
649
650 jsr _UnpackFont
651
652 lda #<_Message_SylviaAnderson
653 ldx #>_Message_SylviaAnderson
654 jsr _DrawTextAsm
655
656 ldx #4
657 jmp _WaitSecond
658 .)
659
660
661 ; a=0/1 for color set
662 _ShowPictureBlueGalaxies
663 .(
664 pha
665 lda #<_LabelPictureSylviaAnderson
666 ldx #>_LabelPictureSylviaAnderson
667 jsr _FileUnpackToBuffer
668
669 jsr _FlipToScreen
670 pla
671
672 beq default_colors
673 jsr SetAlternateRGB
674 jmp end
675 default_colors
676 jsr SetDefaultRGB
677 end
678 ; Forces the second set of colors, reusing the previous value in tmp0
679 lda #17
680 sta _X
681
682 lda #81
683 sta _Y
684
685 lda #35
686 sta _H
687
688 jsr _SetColorBand
689
690 ; Forces the third set of colors, reusing the previous value in tmp0
691 lda #29
692 sta _X
693
694 lda #114
695 sta _Y
696
697 lda #35
698 sta _H
699
700 jsr _SetColorBand
701
702 ; Forces the fourth set of colors, reusing the previous value in tmp0
703 lda #33
704 sta _X
705
706 lda #147
707 sta _Y
708
709 lda #35
710 sta _H
711
712 jsr _SetColorBand
713
714 rts
715 .)
716
717
718 ; a=0/1 for color set
719 _ShowPictureCrescentMoon
720 pha
721 lda #<_LabelPictureBarryMorse
722 ldx #>_LabelPictureBarryMorse
723 jsr _FileUnpackToBuffer
724
725 jsr _FlipToScreen
726 pla
727 bne SetAlternateRGB
728 jmp SetDefaultRGB
729
730 ; a=0/1 for color set
731 _ShowPictureDoublePlanet
732 pha
733 lda #<_LabelPictureProducer
734 ldx #>_LabelPictureProducer
735 jsr _FileUnpackToBuffer
736
737 jsr _FlipToScreen
738 pla
739 bne SetAlternateRGB
740 jmp SetDefaultRGB
741
742 SetDefaultRGB
743 lda #<_ColorInkDefaultRGB
744 ldx #>_ColorInkDefaultRGB
745 jmp _SetPaperColor
746
747 SetAlternateRGB
748 lda #<_ColorInkAlternateRGB
749 ldx #>_ColorInkAlternateRGB
750 jmp _SetPaperColor
751
752
753 _SequenceBarryMorse
754 lda #0
755 jsr _ShowPictureCrescentMoon
756
757 lda #<_ColorsCrescentMoon
758 ldx #>_ColorsCrescentMoon
759 jsr _ColorsFadeInit
760
761 jsr _UnpackFont
762
763 lda #<_Message_StarringBarryMorse
764 ldx #>_Message_StarringBarryMorse
765 jmp _DrawTextAndFadeInAndOut
766
767
768 _SequenceChema
769 lda #1
770 jsr _ShowPictureCrescentMoon
771
772 lda #<_ColorsCrescentMoon
773 ldx #>_ColorsCrescentMoon
774 jsr _ColorsFadeInit
775
776 jsr _UnpackFont
777
778 lda #<_Message_Chema
779 ldx #>_Message_Chema
780 jmp _DrawTextAndFadeInAndOut
781
782
783 _SequenceDbug
784 lda #1
785 jsr _ShowPictureDoublePlanet
786
787 lda #<_ColorsDoublePlanet
788 ldx #>_ColorsDoublePlanet
789 jsr _ColorsFadeInit
790
791 jsr _UnpackFont
792
793 lda #<_Message_Dbug
794 ldx #>_Message_Dbug
795 jsr _DrawTextAndFadeInAndOut
796
797 ldx #1
798 jsr _WaitSecond
799
800 rts
801
802
803
804 _SequenceGerryAnderson
805 lda #0
806 jsr _ShowPictureDoublePlanet
807
808 lda #<_ColorsDoublePlanet
809 ldx #>_ColorsDoublePlanet
810 jsr _ColorsFadeInit
811
812 jsr _UnpackFont
813
814 lda #<_Message_GerryAnderson
815 ldx #>_Message_GerryAnderson
816 jmp _DrawTextAndFadeInAndOut
817
818
819 _DrawTextAndFadeInAndOut
820 jsr _DrawTextAsm
821 qsdqsd
822 ;jmp qsdqsd
823 jsr _ColorsFadeDo ; Blue Ink
824 jsr _WaitTenFrames
825 jsr _ColorsFadeDo ; Cyan Ink
826 jsr _WaitTenFrames
827 jsr _ColorsFadeDo ; White Ink
828 ldx #3
829 jsr _WaitSecond
830 jsr _ColorsFadeDo ; Yellow Ink
831 jsr _WaitTenFrames
832 jsr _ColorsFadeDo ; Red Ink
833 jsr _WaitTenFrames
834 jsr _ColorsFadeDo ; Blue Ink
835 jsr _WaitTenFrames
836 jsr _ColorsFadeDo ; Black Ink
837 jmp _BlackScreen
838
839 _FadeInOrOut
840 jsr _ColorsFadeDo ; Blue Ink
841 jsr _WaitTenFrames
842 jsr _ColorsFadeDo ; Cyan Ink
843 jsr _WaitTenFrames
844 jsr _ColorsFadeDo ; White Ink
845 rts
846
847 _SequenceTwilighte
848 lda #1
849 jsr _ShowPictureBlueGalaxies
850
851 lda #<_ColorsTwilighte
852 ldx #>_ColorsTwilighte
853 jsr _ColorsFadeInit
854
855 jsr _UnpackFont
856
857 lda #<_Message_Music
858 ldx #>_Message_Music
859 jsr _DrawTextAsm
860
861 lda #<_Message_Twilighte
862 ldx #>_Message_Twilighte
863 jmp _DrawTextAndFadeInAndOut
864
865
866 _SequenceEndMessage
867 jsr _BlackScreen
868
869 jsr _UnpackFont
870
871 lda #<_Message_Title
872 ldx #>_Message_Title
873 jsr _DrawTextAsm
874
875 ldx #1
876 jsr _WaitSecond
877
878 lda #<_Message_Exclusive
879 ldx #>_Message_Exclusive
880 jsr _DrawTextAsm
881
882 ldx #1
883 jsr _WaitSecond
884
885 lda #<_Message_Website
886 ldx #>_Message_Website
887 jsr _DrawTextAsm
888
889 ldx #5
890 jmp _WaitSecond
891
892
893 _RectangleThisEpisode .byt <_BufferUnpack,>_BufferUnpack,<$a000+(40*81)+3,>$a000+(40*81)+3,33,37
894 _RectangleSeptember .byt <_BufferUnpack+(40*37),>_BufferUnpack+(40*37),<$a000+(40*81)+3,>$a000+(40*81)+3,33,44
895 _Rectangle13th .byt <_BufferUnpack+(40*81),>_BufferUnpack+(40*81),<$a000+(40*65)+6,>$a000+(40*65)+6,28,70
896
897 _Rectangle1999_1 .byt <_BufferUnpack+(40*81),>_BufferUnpack+(40*81),<$a000+(40*65)+3,>$a000+(40*65)+3,6,70
898 _Rectangle1999_2 .byt <_BufferUnpack+(40*81)+29,>_BufferUnpack+(40*81)+29,<$a000+(40*65)+9,>$a000+(40*65)+9,9,70
899 _Rectangle1999_3 .byt <_BufferUnpack+(40*81)+29,>_BufferUnpack+(40*81)+29,<$a000+(40*65)+18,>$a000+(40*65)+18,9,70
900 _Rectangle1999_4 .byt <_BufferUnpack+(40*81)+29,>_BufferUnpack+(40*81)+29,<$a000+(40*65)+27,>$a000+(40*65)+27,9,70
901
902 _RectangleMoonBase .byt <_BufferUnpack+(40*89)+1,>_BufferUnpack+(40*89)+1,<$a000+(40*89)+1,>$a000+(40*89)+1,39,111
903
904 _RectangleMoonBaseLogo .byt <_BufferUnpack,>_BufferUnpack,<$a000+(40*10)+12,>$a000+(40*10)+12,16,53
905
906 _SequenceThisEpisode
907 jsr _BlackScreen
908 lda #<_LabelPictureEpisode
909 ldx #>_LabelPictureEpisode
910 jsr _FileUnpackToBuffer
911 jsr _SetInkBlack
912
913 lda #<_RectangleThisEpisode
914 ldx #>_RectangleThisEpisode
915 jsr _CopyRectangle
916
917 jsr _SetInkYellow
918
919 ldx #1
920 jsr _WaitSecond
921
922 jmp _SetInkBlack
923
924
925 _Sequence13September1999
926 jsr _BlackScreen
927
928 lda #<_LabelPictureEpisode
929 ldx #>_LabelPictureEpisode
930 jsr _FileUnpackToBuffer
931
932 jsr _SetInkBlack
933 lda #<_RectangleSeptember
934 ldx #>_RectangleSeptember
935 jsr _CopyRectangle
936 jsr _SetInkYellow
937
938 ldx #1
939 jsr _WaitSecond
940
941 jsr _SetInkBlack
942 jsr _BlackScreen
943 jsr _SetInkBlack
944 lda #<_Rectangle13th
945 ldx #>_Rectangle13th
946 jsr _CopyRectangle
947 jsr _SetInkYellow
948
949 ldx #1
950 jsr _WaitSecond
951
952 jsr _SetInkBlack
953 jsr _BlackScreen
954 jsr _SetInkBlack
955 lda #<_Rectangle1999_1
956 ldx #>_Rectangle1999_1
957 jsr _CopyRectangle
958 lda #<_Rectangle1999_2
959 ldx #>_Rectangle1999_2
960 jsr _CopyRectangle
961 lda #<_Rectangle1999_3
962 ldx #>_Rectangle1999_3
963 jsr _CopyRectangle
964 lda #<_Rectangle1999_4
965 ldx #>_Rectangle1999_4
966 jsr _CopyRectangle
967 jsr _SetInkYellow
968
969 ldx #1
970 jsr _WaitSecond
971
972 jmp _SetInkBlack
973
974
975 _SequenceQuotes
976 jsr _BlackScreen
977 jsr _UnpackFont
978
979 ; Force all ink back
980 lda #<_ColorInkBlack
981 ldx #>_ColorInkBlack
982 jsr _SetPaperColor
983
984 ; Display all the texts
985 lda #<_Message_Quote1
986 ldx #>_Message_Quote1
987 jsr _DrawTextAsm
988
989 lda #<_Message_Quote2
990 ldx #>_Message_Quote2
991 jsr _DrawTextAsm
992
993 lda #<_Message_Quote3
994 ldx #>_Message_Quote3
995 jsr _DrawTextAsm
996
997 lda #<_Message_Quote4
998 ldx #>_Message_Quote4
999 jsr _DrawTextAsm
1000
1001 ; Fade in all the texts one by one
1002 lda #<_ColorsQuote1
1003 ldx #>_ColorsQuote1
1004 jsr _ColorsFadeInit
1005 jsr _FadeInOrOut
1006
1007 ldx #3
1008 jsr _WaitSecond
1009
1010 lda #<_ColorsQuote2
1011 ldx #>_ColorsQuote2
1012 jsr _ColorsFadeInit
1013 jsr _FadeInOrOut
1014
1015 ldx #3
1016 jsr _WaitSecond
1017
1018 lda #<_ColorsQuote3
1019 ldx #>_ColorsQuote3
1020 jsr _ColorsFadeInit
1021 jsr _FadeInOrOut
1022
1023 ldx #5
1024 jsr _WaitSecond
1025
1026 lda #<_ColorsQuote4
1027 ldx #>_ColorsQuote4
1028 jsr _ColorsFadeInit
1029 jsr _FadeInOrOut
1030
1031 ldx #2+3
1032 jsr _WaitSecond
1033
1034 lda #<_ColorsQuoteAll
1035 ldx #>_ColorsQuoteAll
1036 jsr _ColorsFadeInit
1037 jsr _FadeInOrOut
1038
1039 jmp _BlackScreen
1040
1041
1042 _SequenceBarbaraBain
1043 lda #<_LabelPictureBarbaraBain
1044 ldx #>_LabelPictureBarbaraBain
1045 jsr _FileUnpackToBuffer
1046
1047 jsr _FlipToScreen
1048
1049 jsr SetDefaultRGB
1050
1051 lda #<_ColorsBarbaraBain
1052 ldx #>_ColorsBarbaraBain
1053 jsr _ColorsFadeInit
1054
1055 jsr _UnpackFont
1056
1057 lda #<_Message_StarringBarbaraBain
1058 ldx #>_Message_StarringBarbaraBain
1059 jmp _DrawTextAndFadeInAndOut
1060
1061
1062
1063 /*
1064 void MoonExplodes()
1065 {
1066 BoomColorBase=0;
1067
1068 // Glow
1069 while (BoomColorBase<40)
1070 {
1071 memcpy(BoomColorMinus16+10+BoomColorBase,GlowColor,6);
1072 DrawNuclearBoom();
1073 BoomColorBase++;
1074 }
1075
1076 // Deglow
1077 while (BoomColorBase>0)
1078 {
1079 BoomColorBase--;
1080 memcpy(BoomColorMinus16+10+BoomColorBase,GlowColor,6);
1081 DrawNuclearBoom();
1082 }
1083 }
1084 extern unsigned char GlowColor[6];
1085 extern unsigned char BoomColorMinus16[37+16];
1086
1087 */
1088
1089 ; x=table offset
1090 _MoonExplodeUpdateGlow
1091 lda _GlowColor+0
1092 sta _BoomColorMinus16+10,x
1093 lda _GlowColor+1
1094 sta _BoomColorMinus16+11,x
1095 lda _GlowColor+2
1096 sta _BoomColorMinus16+12,x
1097 lda _GlowColor+3
1098 sta _BoomColorMinus16+13,x
1099 lda _GlowColor+4
1100 sta _BoomColorMinus16+14,x
1101 lda _GlowColor+5
1102 sta _BoomColorMinus16+15,x
1103
1104 jsr _DrawNuclearBoom
1105 rts
1106
1107 _MoonExplodeGlow
1108 .(
1109 loop
1110 ldx _BoomColorBase
1111 cpx #40
1112 beq exit
1113 jsr _MoonExplodeUpdateGlow
1114 inc _BoomColorBase
1115 jmp loop
1116 exit
1117 rts
1118 .)
1119
1120 _MoonExplodeDeGlow
1121 .(
1122 loop
1123 ldx _BoomColorBase
1124 beq exit
1125
1126 dex
1127 stx _BoomColorBase
1128 jsr _MoonExplodeUpdateGlow
1129 jmp loop
1130 exit
1131 rts
1132 .)
1133
1134
1135 _SequenceMoonExplodes
1136 jsr _BlackScreen
1137
1138 lda #<_LabelPictureLogo
1139 ldx #>_LabelPictureLogo
1140 jsr _FileUnpackToBuffer
1141
1142 lda #<_RectangleMoonBase
1143 ldx #>_RectangleMoonBase
1144 jsr _CopyRectangle
1145
1146 jsr _GenerateSquareTables
1147
1148 jsr _CreateHalfDisc
1149 jsr _MirrorTheDisc
1150 jsr _FilterTheDisc1
1151 jsr _FilterTheDisc2
1152
1153 lda #0
1154 sta _BoomColorBase
1155 jsr _MoonExplodeGlow
1156 jsr _MoonExplodeDeGlow
1157
1158 ;jsr _MoonExplodes
1159 jsr _MoonScrollsDown
1160 rts
1161
1162
1163 _SequenceEmergency
1164 jsr _BlackScreen
1165
1166 lda #<_LabelPictureMisc
1167 ldx #>_LabelPictureMisc
1168 jsr _FileUnpackToBuffer
1169
1170 lda #<_RectangleMoonBaseLogo
1171 ldx #>_RectangleMoonBaseLogo
1172 jsr _CopyRectangle
1173
1174 lda #<_ColorPaperDarkBlue
1175 ldx #>_ColorPaperDarkBlue
1176 jsr _SetPaperColor
1177
1178 lda #<_ColorInkCyan
1179 ldx #>_ColorInkCyan
1180 jsr _SetInkColor
1181
1182 jsr _UnpackFont
1183
1184 lda #<_Message_EmergencyRedAlert
1185 ldx #>_Message_EmergencyRedAlert
1186
1187 jsr _DrawTextAsm
1188
1189 lda #<_ColorInkCyan
1190 ldx #>_ColorInkCyan
1191 jsr _SetInkColor
1192
1193 ldx #1
1194 jsr _WaitSecond
1195
1196 lda #<_ColorInkOrange
1197 ldx #>_ColorInkOrange
1198 jsr _SetInkColor
1199
1200 ldx #1
1201 jsr _WaitSecond
1202
1203 lda #<_ColorInkCyan
1204 ldx #>_ColorInkCyan
1205 jsr _SetInkColor
1206
1207 ldx #1
1208 jsr _WaitSecond
1209
1210 lda #<_ColorInkOrange
1211 ldx #>_ColorInkOrange
1212 jsr _SetInkColor
1213
1214 ldx #1
1215 jsr _WaitSecond
1216
1217 jsr _BlackScreen
1218 ;ldx #15
1219 ;jsr _WaitSecond
1220 rts
1221
1222
1223

  ViewVC Help
Powered by ViewVC 1.1.26