/[projet1]/users/chema/1337intro/shipscenes.s
Defence Force logotype

Contents of /users/chema/1337intro/shipscenes.s

Parent Directory Parent Directory | Revision Log Revision Log


Revision 390 - (show annotations)
Mon Sep 6 17:22:30 2010 UTC (9 years, 7 months ago) by Chema
File size: 21031 byte(s)
More (final?) tweaks, changed the "An exclusive..", and put starfield back on 1337 logo and starwars crawl...
1 #define OBS osdk_end
2 #define DODBUG
3 //#define NOSTARSINLOGO
4
5 // Positions
6
7
8 OCEN2 .word $0000 ;X-coord
9 .word $FFE0-20 ;Y-coord
10 .word $FE70+100 ;Z-coord
11
12 OCEN3 .word $0000 ;X-coord
13 .word $FFE0-40 ;Y-coord
14 .word $F9C0+100 ;Z-coord
15
16 OCEN4 .word $ffff-50 ;X-coord
17 .word $FFE0-50 ;Y-coord
18 .word $1000-200 ;Z-coord
19
20
21 VOB .byt 00 ;View object (camera)
22 objs .byt 00
23 frame_count .byt 00
24
25
26 _InitTestCode
27 .(
28 jsr INITSTAR
29 +_ReInit3D
30 lda #<OBS ;Object records
31 ldy #>OBS
32 jsr Init3D
33 jmp _DoubleBuffOn
34 .)
35
36 #ifdef DODBUG
37 OCEN10 .word $FFFF-51 ;X-coord
38 .word $0 ;Y-coord
39 .word 50-1 ;Z-coord
40
41 OCEN11 .word $FFFF-17 ;X-coord
42 .word $0 ;Y-coord
43 .word 50-1 ;Z-coord
44
45 OCEN12 .word 17 ;X-coord
46 .word $0 ;Y-coord
47 .word 50-1 ;Z-coord
48
49 OCEN13 .word 51 ;X-coord
50 .word $0 ;Y-coord
51 .word 50-1 ;Z-coord
52
53
54 #else
55
56 OCEN10 .word $FFFF-45 ;X-coord
57 .word $0 ;Y-coord
58 .word 50-1 ;Z-coord
59
60 OCEN11 .word $FFFF-15 ;X-coord
61 .word $0 ;Y-coord
62 .word 50-1 ;Z-coord
63
64 OCEN12 .word 15 ;X-coord
65 .word $0 ;Y-coord
66 .word 50-1 ;Z-coord
67
68 OCEN13 .word 45 ;X-coord
69 .word $0 ;Y-coord
70 .word 50-1 ;Z-coord
71
72 #endif
73
74 goforit
75 .(
76 .(
77 jsr SetCurOb
78 lda #6
79 sta tmp
80 loopp
81 sec
82 jsr Pitch
83 dec tmp
84 bne loopp
85 .)
86 rts
87 .)
88
89
90
91 _Test1337
92 .(
93
94 lda #<MAMBA ;Object data
95 ldy #>MAMBA
96 ldx #1 ;ID
97 jsr AddObj
98 stx VOB ;View object
99
100 lda #<ONE ;Object data
101 ldy #>ONE
102 ldx #2
103 jsr AddObj
104 sta POINT ;Object pointer
105 sty POINT+1
106 .(
107 ldy #5 ;Set center
108 l1 lda OCEN10,Y
109 sta (POINT),Y
110 dey
111 bpl l1
112 .)
113
114 lda #<THREE ;Object data
115 ldy #>THREE
116 ldx #3
117 jsr AddObj
118 sta POINT ;Object pointer
119 sty POINT+1
120 .(
121 ldy #5 ;Set center
122 l1 lda OCEN11,Y
123 sta (POINT),Y
124 dey
125 bpl l1
126 .)
127
128 lda #<THREE ;Object data
129 ldy #>THREE
130 ldx #3
131 jsr AddObj
132 sta POINT ;Object pointer
133 sty POINT+1
134 .(
135 ldy #5 ;Set center
136 l1 lda OCEN12,Y
137 sta (POINT),Y
138 dey
139 bpl l1
140 .)
141
142 lda #<SEVEN ;Object data
143 ldy #>SEVEN
144 ldx #3
145 jsr AddObj
146 sta POINT ;Object pointer
147 sty POINT+1
148 .(
149 ldy #5 ;Set center
150 l1 lda OCEN13,Y
151 sta (POINT),Y
152 dey
153 bpl l1
154 .)
155
156
157 jsr set_ink2
158
159 #ifdef DODBUG
160
161 ;;;;;;;;;;; PREROTATIONS ;;;;;;;;;;;;;;
162 .(
163 lda #$10
164 sta frame_count
165 loop
166 ldx #4
167
168 .(
169 jsr SetCurOb
170 lda #4
171 sta tmp
172 loopp
173 clc
174 jsr Pitch
175 dec tmp
176 bne loopp
177 .)
178
179
180 ldx #3
181
182 .(
183 jsr SetCurOb
184 lda #4
185 sta tmp
186 loopp
187 clc
188 jsr Yaw
189 dec tmp
190 bne loopp
191 .)
192
193
194 ldx #2
195 .(
196 jsr SetCurOb
197 lda #4
198 sta tmp
199 loopp
200 sec
201 jsr Pitch
202 dec tmp
203 bne loopp
204 .)
205
206 ldx #1
207 .(
208 jsr SetCurOb
209 lda #4
210 sta tmp
211 loopp
212 sec
213 jsr Yaw
214 dec tmp
215 bne loopp
216 .)
217
218 dec frame_count
219 bne loop
220
221 .)
222
223 ;;;; DIFFERENT ROTATIONS
224
225 .(
226 lda #$10
227 sta frame_count
228 loop
229 #ifndef NOSTARSINLOGO
230 jsr _UpdateFrame
231 #else
232 jsr _UpdateFrameNoStars
233 #endif
234
235
236 ldx #4
237
238 .(
239 jsr SetCurOb
240 lda #4
241 sta tmp
242 loopp
243 sec
244 jsr Pitch
245 dec tmp
246 bne loopp
247 .)
248
249
250 ldx #3
251
252 .(
253 jsr SetCurOb
254 lda #4
255 sta tmp
256 loopp
257 sec
258 jsr Yaw
259 dec tmp
260 bne loopp
261 .)
262
263
264 ldx #2
265 .(
266 jsr SetCurOb
267 lda #4
268 sta tmp
269 loopp
270 clc
271 jsr Pitch
272 dec tmp
273 bne loopp
274 .)
275
276 ldx #1
277 .(
278 jsr SetCurOb
279 lda #4
280 sta tmp
281 loopp
282 clc
283 jsr Yaw
284 dec tmp
285 bne loopp
286 .)
287
288 ldx #0
289 jsr SetCurOb
290 lda #$ff-2
291 jsr MoveForwards
292
293 dec frame_count
294 bne loop
295
296 .)
297
298 #endif
299
300 ;;;;;; SYNCRONIZED ROTATIONS
301
302 .(
303 #ifdef DODBUG
304 lda #$40;+10
305 #else
306 lda #$40;+10
307 #endif
308 sta frame_count
309 loop
310 #ifndef NOSTARSINLOGO
311 jsr _UpdateFrame
312 #else
313 jsr _UpdateFrameNoStars
314 #endif
315 ldx #4
316 jsr goforit
317 ldx #3
318 jsr goforit
319 ldx #2
320 jsr goforit
321 ldx #1
322 jsr goforit
323
324 ldx #0
325 jsr SetCurOb
326 lda #$ff-2
327 jsr MoveForwards
328
329 dec frame_count
330 bne loop
331
332 .)
333
334 rts
335 .)
336
337
338 #ifdef NOSTARSINLOGO
339 _UpdateFrameNoStars
340 .(
341 ldx VOB
342 jsr SetCurOb
343 jsr CalcView
344 jsr SortVis
345 jsr clr_hires2
346 jsr DrawAllVis ;Draw objects
347 jmp dump_buf
348 .)
349 #endif
350
351
352
353 _FirstScene
354 .(
355
356 ; Create camera and ships
357
358 lda #<MAMBA ;Object data
359 ldy #>MAMBA
360 ldx #1 ;ID
361 jsr AddObj
362 stx VOB ;View object
363
364 lda #<MAMBA ;Object data
365 ldy #>MAMBA
366 ldx #2
367 jsr AddObj
368 sta POINT ;Object pointer
369 sty POINT+1
370 .(
371 ldy #5 ;Set center
372 l1 lda OCEN2,Y
373 sta (POINT),Y
374 dey
375 bpl l1
376 .)
377 lda #<THARGOID ;Object data
378 ldy #>THARGOID
379 ldx #3
380 jsr AddObj
381 sta POINT ;Object pointer
382 sty POINT+1
383 .(
384 ldy #5 ;Set center
385 l1 lda OCEN3,Y
386 sta (POINT),Y
387 dey
388 bpl l1
389 .)
390 ldx #0
391 ldy #0
392 lda #$60
393 jsr SetMat
394
395 jsr set_ink2
396
397 ; Starfield moving up sequence
398 .(
399 lda #40
400 sta frame_count
401 loop
402 jsr _UpdateFrame
403 lda #1
404 jsr STARSUBY
405
406 dec frame_count
407 bne loop
408 .)
409
410
411 ; Advance sequence, first the mamba, then the thargoid
412 .(
413 lda #80
414 sta frame_count
415 loop
416 jsr _UpdateFrame
417 jsr Advance
418
419 dec frame_count
420 bne loop
421
422 .)
423
424 ; Move the camera..
425
426 ldx VOB
427 jsr SetCurOb
428 sta POINT ;Object pointer
429 sty POINT+1
430 .(
431 ldy #5 ;Set center
432 l1 lda OCEN4,y
433 sta (POINT),y
434 dey
435 bpl l1
436 .)
437 ; Turn it
438
439 ldx #0
440 ldy #$40
441 lda #0
442 jsr SetMat
443
444 ; New Starfield
445 jsr INITSTAR
446
447 ; Place sun
448 jsr _PutSun
449
450 ; Advance ships a bit more..
451 .(
452 lda #5
453 sta frame_count
454 loop
455 jsr _UpdateFrame
456 jsr Advance
457
458 dec frame_count
459 bne loop
460 .)
461
462
463 ; Turn mamba and keep advancing, but slower...
464
465 .(
466 lda #60
467 sta frame_count
468 loop
469 jsr _UpdateFrame
470
471 ldx #1
472 jsr SetCurOb
473 lda frame_count
474 cmp #35
475 bcc step2
476 clc
477 jsr Pitch
478 clc
479 jsr Pitch
480 clc
481 jsr Roll
482 lda #3
483 jsr MoveForwards
484
485 jmp next
486
487 step2
488 clc
489 jsr Pitch
490
491 next
492 ldx #2
493 jsr SetCurOb
494 lda #6
495 jsr MoveForwards
496 dec frame_count
497 bne loop
498
499 .)
500
501
502 ; Last turn and rotation
503 .(
504 lda #5
505 sta frame_count
506 loop
507 jsr _UpdateFrame
508
509 ldx #1
510 jsr SetCurOb
511 sec
512 jsr Yaw
513
514 ldx #2
515 jsr SetCurOb
516 clc
517 jsr Pitch
518 clc
519 jsr Yaw
520
521 dec frame_count
522 bne loop
523 .)
524
525 rts
526
527 .)
528
529
530 _RotateThargoid
531 .(
532 lda #$20
533 sta frame_count
534 loop
535 jsr _UpdateFrame
536 ldx #2
537 jsr SetCurOb
538 clc
539 jsr Pitch
540
541 jsr BalanceMamba
542
543 dec frame_count
544 bne loop
545
546
547 #if 0
548 +patch_clc
549 clc
550 jsr Roll
551
552 dec frame_count
553 bne loop
554
555 lda patch_clc
556 cmp #$18
557 beq setit
558 lda #$18
559 .byt $2c
560 setit
561 lda #$38
562 sta patch_clc
563 #endif
564
565 rts
566 .)
567
568 BalanceMamba
569 .(
570 ldx #1
571 jsr SetCurOb
572
573 lda frame_count
574 ror
575 bcc avoid
576
577 cmp #9
578 bcs setit
579 clc
580 bcc doit
581 setit
582 sec
583 doit
584 jmp Roll
585 avoid
586 rts
587 .)
588
589
590 _UpdateFrame
591 .(
592 lda double_buff
593 bne cont
594 rts
595 cont
596 ldx VOB
597 jsr SetCurOb
598 jsr CalcView
599 jsr SortVis
600 jsr clr_hires2
601 jsr PlotStars
602 jsr DrawAllVis ;Draw objects
603 jmp dump_buf
604 .)
605
606
607 _PutSun
608 .(
609 ; Prepare bitmap with stars
610 jsr clr_hires2
611 jsr PlotStars
612
613 lda #<_SmallSun
614 sta loopcol+1
615 lda #>_SmallSun
616 sta loopcol+2
617
618 lda #<buffer+39-14
619 sta loopcol+4
620 lda #>buffer+39-14
621 sta loopcol+5
622
623 ; Dump Sun into bitmap
624 ldy #0
625 looprow
626 ldx #13
627 loopcol
628 lda _SmallSun,x
629 sta buffer+39-14,x
630 dex
631 bpl loopcol
632
633 clc
634 lda #14
635 adc loopcol+1
636 sta loopcol+1
637 bcc nocarry
638 inc loopcol+2
639 nocarry
640
641 clc
642 lda #40
643 adc loopcol+4
644 sta loopcol+4
645 bcc nocarry2
646 inc loopcol+5
647 nocarry2
648
649 iny
650 cpy #55
651 bne looprow
652
653 ; Dump bitmap
654 jsr dump_buf
655
656 ; Patch code
657 lda #WIDTH-14
658 sta dump_buf+1
659
660 rts
661 .)
662
663
664 Advance
665 .(
666 ldx NUMOBJS
667 beq end
668 dex
669
670 stx objs
671 loop
672 cpx VOB
673 beq next
674
675 jsr SetCurOb
676 lda #10
677 jsr MoveForwards
678 next
679 dec objs
680 ldx objs
681
682 bpl loop
683 end
684 rts
685 .)
686
687
688 _FinalScene
689 .(
690
691 ; The Thargoid leaves
692 lda #$30-15
693 sta frame_count
694 loop
695 jsr _UpdateFrame
696 ldx #2
697 jsr SetCurOb
698 lda #$32-15
699 sec
700 sbc frame_count
701 jsr MoveForwards
702 jsr BalanceMamba
703 dec frame_count
704 bne loop
705
706 ; The Mamba leaves
707
708 lda #$15
709 sta frame_count
710 loop3
711 jsr _UpdateFrame
712 ldx #1
713 jsr SetCurOb
714 clc
715 jsr Pitch
716 clc
717 jsr Roll
718 dec frame_count
719 bne loop3
720
721
722 lda #$10
723 sta frame_count
724 loop2
725 jsr _UpdateFrame
726 ldx #1
727 jsr SetCurOb
728 lda #$12
729 sec
730 sbc frame_count
731 jsr MoveForwards
732 dec frame_count
733 bne loop2
734
735 rts
736
737 .)
738
739
740 ; Places alternate attribute controls in the first columns of the screen
741 ; params regA, regX = attributes to set
742
743
744 set_ink
745 .(
746 sta color1+1
747 stx color2+1
748
749 ldy #<($a000)
750 sty tmp
751 ldy #>($a000)
752 sty tmp+1
753 ldx #100
754 loop
755 ldy #0
756 color1
757 lda #0 ;SMC
758 sta (tmp),y
759
760 ldy #40
761 color2
762 lda #0 ; SMC
763 sta (tmp),y
764
765 lda tmp
766 clc
767 adc #80
768 sta tmp
769 bcc nocarry
770 inc tmp+1
771
772 nocarry
773 dex
774 bne loop
775 end
776
777 rts
778 .)
779
780
781
782 set_ink2
783 .(
784 ldy #<($a000+(TOP)*40)
785 sty tmp
786 ldy #>($a000+(TOP)*40)
787 sty tmp+1
788
789 ldx #(50) ;(122/2)
790 loop
791 lda #$03
792 ldy #0
793 sta (tmp),y
794 lda #$06
795 ldy #40
796 sta (tmp),y
797
798 lda tmp
799 clc
800 adc #80
801 sta tmp
802 bcc nocarry
803 inc tmp+1
804 nocarry
805
806 dex
807 bne loop
808 end
809 rts
810 .)
811
812
813
814 ; A real random generator... trying to enhance this...
815 randgen
816 .(
817 php ; INTERRUPTS MUST BE ENABLED! We store the state of flags.
818 cli
819 lda randseed ; get old lsb of seed.
820 ora $3e8 ; lsb of VIA T2L-L/T2C-L.
821 rol ; this is even, but the carry fixes this.
822 adc $3e4 ; lsb of VIA TK-L/T1C-L. This is taken mod 256.
823 sta randseed ; random enough yet.
824 sbc randseed+1 ; minus the hsb of seed...
825 rol ; same comment than before. Carry is fairly random.
826 sta randseed+1 ; we are set.
827 plp
828 rts ; see you later alligator.
829 .)
830 randseed
831 .word $dead ; will it be $dead again?
832
833
834 dump_buf
835 .(
836 ldx #WIDTH
837 loop
838 lda buffer+LEFT+40*0,x
839 sta $a000+LEFT+40*(0+TOP),x
840 lda buffer+LEFT+40*1,x
841 sta $a000+LEFT+40*(1+TOP),x
842 lda buffer+LEFT+40*2,x
843 sta $a000+LEFT+40*(2+TOP),x
844 lda buffer+LEFT+40*3,x
845 sta $a000+LEFT+40*(3+TOP),x
846 lda buffer+LEFT+40*4,x
847 sta $a000+LEFT+40*(4+TOP),x
848 lda buffer+LEFT+40*5,x
849 sta $a000+LEFT+40*(5+TOP),x
850 lda buffer+LEFT+40*6,x
851 sta $a000+LEFT+40*(6+TOP),x
852 lda buffer+LEFT+40*7,x
853 sta $a000+LEFT+40*(7+TOP),x
854 lda buffer+LEFT+40*8,x
855 sta $a000+LEFT+40*(8+TOP),x
856 lda buffer+LEFT+40*9,x
857 sta $a000+LEFT+40*(9+TOP),x
858 lda buffer+LEFT+40*10,x
859 sta $a000+LEFT+40*(10+TOP),x
860 lda buffer+LEFT+40*11,x
861 sta $a000+LEFT+40*(11+TOP),x
862 lda buffer+LEFT+40*12,x
863 sta $a000+LEFT+40*(12+TOP),x
864 lda buffer+LEFT+40*13,x
865 sta $a000+LEFT+40*(13+TOP),x
866 lda buffer+LEFT+40*14,x
867 sta $a000+LEFT+40*(14+TOP),x
868 lda buffer+LEFT+40*15,x
869 sta $a000+LEFT+40*(15+TOP),x
870 lda buffer+LEFT+40*16,x
871 sta $a000+LEFT+40*(16+TOP),x
872 lda buffer+LEFT+40*17,x
873 sta $a000+LEFT+40*(17+TOP),x
874 lda buffer+LEFT+40*18,x
875 sta $a000+LEFT+40*(18+TOP),x
876 lda buffer+LEFT+40*19,x
877 sta $a000+LEFT+40*(19+TOP),x
878 lda buffer+LEFT+40*20,x
879 sta $a000+LEFT+40*(20+TOP),x
880 lda buffer+LEFT+40*21,x
881 sta $a000+LEFT+40*(21+TOP),x
882 lda buffer+LEFT+40*22,x
883 sta $a000+LEFT+40*(22+TOP),x
884 lda buffer+LEFT+40*23,x
885 sta $a000+LEFT+40*(23+TOP),x
886 lda buffer+LEFT+40*24,x
887 sta $a000+LEFT+40*(24+TOP),x
888 lda buffer+LEFT+40*25,x
889 sta $a000+LEFT+40*(25+TOP),x
890 lda buffer+LEFT+40*26,x
891 sta $a000+LEFT+40*(26+TOP),x
892 lda buffer+LEFT+40*27,x
893 sta $a000+LEFT+40*(27+TOP),x
894 lda buffer+LEFT+40*28,x
895 sta $a000+LEFT+40*(28+TOP),x
896 lda buffer+LEFT+40*29,x
897 sta $a000+LEFT+40*(29+TOP),x
898 lda buffer+LEFT+40*30,x
899 sta $a000+LEFT+40*(30+TOP),x
900 lda buffer+LEFT+40*31,x
901 sta $a000+LEFT+40*(31+TOP),x
902 lda buffer+LEFT+40*32,x
903 sta $a000+LEFT+40*(32+TOP),x
904 lda buffer+LEFT+40*33,x
905 sta $a000+LEFT+40*(33+TOP),x
906 lda buffer+LEFT+40*34,x
907 sta $a000+LEFT+40*(34+TOP),x
908 lda buffer+LEFT+40*35,x
909 sta $a000+LEFT+40*(35+TOP),x
910 lda buffer+LEFT+40*36,x
911 sta $a000+LEFT+40*(36+TOP),x
912 lda buffer+LEFT+40*37,x
913 sta $a000+LEFT+40*(37+TOP),x
914 lda buffer+LEFT+40*38,x
915 sta $a000+LEFT+40*(38+TOP),x
916 lda buffer+LEFT+40*39,x
917 sta $a000+LEFT+40*(39+TOP),x
918 lda buffer+LEFT+40*40,x
919 sta $a000+LEFT+40*(40+TOP),x
920 lda buffer+LEFT+40*41,x
921 sta $a000+LEFT+40*(41+TOP),x
922 lda buffer+LEFT+40*42,x
923 sta $a000+LEFT+40*(42+TOP),x
924 lda buffer+LEFT+40*43,x
925 sta $a000+LEFT+40*(43+TOP),x
926 lda buffer+LEFT+40*44,x
927 sta $a000+LEFT+40*(44+TOP),x
928 lda buffer+LEFT+40*45,x
929 sta $a000+LEFT+40*(45+TOP),x
930 lda buffer+LEFT+40*46,x
931 sta $a000+LEFT+40*(46+TOP),x
932 lda buffer+LEFT+40*47,x
933 sta $a000+LEFT+40*(47+TOP),x
934 lda buffer+LEFT+40*48,x
935 sta $a000+LEFT+40*(48+TOP),x
936 lda buffer+LEFT+40*49,x
937 sta $a000+LEFT+40*(49+TOP),x
938 lda buffer+LEFT+40*50,x
939 sta $a000+LEFT+40*(50+TOP),x
940 lda buffer+LEFT+40*51,x
941 sta $a000+LEFT+40*(51+TOP),x
942 lda buffer+LEFT+40*52,x
943 sta $a000+LEFT+40*(52+TOP),x
944 lda buffer+LEFT+40*53,x
945 sta $a000+LEFT+40*(53+TOP),x
946 lda buffer+LEFT+40*54,x
947 sta $a000+LEFT+40*(54+TOP),x
948 lda buffer+LEFT+40*55,x
949 sta $a000+LEFT+40*(55+TOP),x
950 lda buffer+LEFT+40*56,x
951 sta $a000+LEFT+40*(56+TOP),x
952 lda buffer+LEFT+40*57,x
953 sta $a000+LEFT+40*(57+TOP),x
954 lda buffer+LEFT+40*58,x
955 sta $a000+LEFT+40*(58+TOP),x
956 lda buffer+LEFT+40*59,x
957 sta $a000+LEFT+40*(59+TOP),x
958 lda buffer+LEFT+40*60,x
959 sta $a000+LEFT+40*(60+TOP),x
960 lda buffer+LEFT+40*61,x
961 sta $a000+LEFT+40*(61+TOP),x
962 lda buffer+LEFT+40*62,x
963 sta $a000+LEFT+40*(62+TOP),x
964 lda buffer+LEFT+40*63,x
965 sta $a000+LEFT+40*(63+TOP),x
966 lda buffer+LEFT+40*64,x
967 sta $a000+LEFT+40*(64+TOP),x
968 lda buffer+LEFT+40*65,x
969 sta $a000+LEFT+40*(65+TOP),x
970 lda buffer+LEFT+40*66,x
971 sta $a000+LEFT+40*(66+TOP),x
972 lda buffer+LEFT+40*67,x
973 sta $a000+LEFT+40*(67+TOP),x
974 lda buffer+LEFT+40*68,x
975 sta $a000+LEFT+40*(68+TOP),x
976 lda buffer+LEFT+40*69,x
977 sta $a000+LEFT+40*(69+TOP),x
978 lda buffer+LEFT+40*70,x
979 sta $a000+LEFT+40*(70+TOP),x
980 lda buffer+LEFT+40*71,x
981 sta $a000+LEFT+40*(71+TOP),x
982 lda buffer+LEFT+40*72,x
983 sta $a000+LEFT+40*(72+TOP),x
984 lda buffer+LEFT+40*73,x
985 sta $a000+LEFT+40*(73+TOP),x
986 lda buffer+LEFT+40*74,x
987 sta $a000+LEFT+40*(74+TOP),x
988 lda buffer+LEFT+40*75,x
989 sta $a000+LEFT+40*(75+TOP),x
990 lda buffer+LEFT+40*76,x
991 sta $a000+LEFT+40*(76+TOP),x
992 lda buffer+LEFT+40*77,x
993 sta $a000+LEFT+40*(77+TOP),x
994 lda buffer+LEFT+40*78,x
995 sta $a000+LEFT+40*(78+TOP),x
996 lda buffer+LEFT+40*79,x
997 sta $a000+LEFT+40*(79+TOP),x
998 lda buffer+LEFT+40*80,x
999 sta $a000+LEFT+40*(80+TOP),x
1000 lda buffer+LEFT+40*81,x
1001 sta $a000+LEFT+40*(81+TOP),x
1002 lda buffer+LEFT+40*82,x
1003 sta $a000+LEFT+40*(82+TOP),x
1004 lda buffer+LEFT+40*83,x
1005 sta $a000+LEFT+40*(83+TOP),x
1006 lda buffer+LEFT+40*84,x
1007 sta $a000+LEFT+40*(84+TOP),x
1008 lda buffer+LEFT+40*85,x
1009 sta $a000+LEFT+40*(85+TOP),x
1010 lda buffer+LEFT+40*86,x
1011 sta $a000+LEFT+40*(86+TOP),x
1012 lda buffer+LEFT+40*87,x
1013 sta $a000+LEFT+40*(87+TOP),x
1014 lda buffer+LEFT+40*88,x
1015 sta $a000+LEFT+40*(88+TOP),x
1016 lda buffer+LEFT+40*89,x
1017 sta $a000+LEFT+40*(89+TOP),x
1018 lda buffer+LEFT+40*90,x
1019 sta $a000+LEFT+40*(90+TOP),x
1020 lda buffer+LEFT+40*91,x
1021 sta $a000+LEFT+40*(91+TOP),x
1022 lda buffer+LEFT+40*92,x
1023 sta $a000+LEFT+40*(92+TOP),x
1024 lda buffer+LEFT+40*93,x
1025 sta $a000+LEFT+40*(93+TOP),x
1026 lda buffer+LEFT+40*94,x
1027 sta $a000+LEFT+40*(94+TOP),x
1028 lda buffer+LEFT+40*95,x
1029 sta $a000+LEFT+40*(95+TOP),x
1030 lda buffer+LEFT+40*96,x
1031 sta $a000+LEFT+40*(96+TOP),x
1032 lda buffer+LEFT+40*97,x
1033 sta $a000+LEFT+40*(97+TOP),x
1034 lda buffer+LEFT+40*98,x
1035 sta $a000+LEFT+40*(98+TOP),x
1036 lda buffer+LEFT+40*99,x
1037 sta $a000+LEFT+40*(99+TOP),x
1038 /*
1039 lda buffer+LEFT+40*100,x
1040 sta $a000+LEFT+40*(100+TOP),x
1041 lda buffer+LEFT+40*101,x
1042 sta $a000+LEFT+40*(101+TOP),x
1043 lda buffer+LEFT+40*102,x
1044 sta $a000+LEFT+40*(102+TOP),x
1045 lda buffer+LEFT+40*103,x
1046 sta $a000+LEFT+40*(103+TOP),x
1047 lda buffer+LEFT+40*104,x
1048 sta $a000+LEFT+40*(104+TOP),x
1049 lda buffer+LEFT+40*105,x
1050 sta $a000+LEFT+40*(105+TOP),x
1051 lda buffer+LEFT+40*106,x
1052 sta $a000+LEFT+40*(106+TOP),x
1053 lda buffer+LEFT+40*107,x
1054 sta $a000+LEFT+40*(107+TOP),x
1055 lda buffer+LEFT+40*108,x
1056 sta $a000+LEFT+40*(108+TOP),x
1057 lda buffer+LEFT+40*109,x
1058 sta $a000+LEFT+40*(109+TOP),x
1059 lda buffer+LEFT+40*110,x
1060 sta $a000+LEFT+40*(110+TOP),x
1061 lda buffer+LEFT+40*111,x
1062 sta $a000+LEFT+40*(111+TOP),x
1063 lda buffer+LEFT+40*112,x
1064 sta $a000+LEFT+40*(112+TOP),x
1065 lda buffer+LEFT+40*113,x
1066 sta $a000+LEFT+40*(113+TOP),x
1067 lda buffer+LEFT+40*114,x
1068 sta $a000+LEFT+40*(114+TOP),x
1069 lda buffer+LEFT+40*115,x
1070 sta $a000+LEFT+40*(115+TOP),x
1071 lda buffer+LEFT+40*116,x
1072 sta $a000+LEFT+40*(116+TOP),x
1073 lda buffer+LEFT+40*117,x
1074 sta $a000+LEFT+40*(117+TOP),x
1075 lda buffer+LEFT+40*118,x
1076 sta $a000+LEFT+40*(118+TOP),x
1077 lda buffer+LEFT+40*119,x
1078 sta $a000+LEFT+40*(119+TOP),x
1079 lda buffer+LEFT+40*120,x
1080 sta $a000+LEFT+40*(120+TOP),x
1081 lda buffer+LEFT+40*121,x
1082 sta $a000+LEFT+40*(121+TOP),x
1083 */
1084 dex
1085 bmi end
1086 jmp loop
1087 end
1088 rts
1089 .)
1090
1091
1092 clr_hires2
1093 .(
1094 ldx #WIDTH
1095 lda #$40
1096 loop
1097 sta buffer+LEFT+40*0,x
1098 sta buffer+LEFT+40*1,x
1099 sta buffer+LEFT+40*2,x
1100 sta buffer+LEFT+40*3,x
1101 sta buffer+LEFT+40*4,x
1102 sta buffer+LEFT+40*5,x
1103 sta buffer+LEFT+40*6,x
1104 sta buffer+LEFT+40*7,x
1105 sta buffer+LEFT+40*8,x
1106 sta buffer+LEFT+40*9,x
1107 sta buffer+LEFT+40*10,x
1108 sta buffer+LEFT+40*11,x
1109 sta buffer+LEFT+40*12,x
1110 sta buffer+LEFT+40*13,x
1111 sta buffer+LEFT+40*14,x
1112 sta buffer+LEFT+40*15,x
1113 sta buffer+LEFT+40*16,x
1114 sta buffer+LEFT+40*17,x
1115 sta buffer+LEFT+40*18,x
1116 sta buffer+LEFT+40*19,x
1117 sta buffer+LEFT+40*20,x
1118 sta buffer+LEFT+40*21,x
1119 sta buffer+LEFT+40*22,x
1120 sta buffer+LEFT+40*23,x
1121 sta buffer+LEFT+40*24,x
1122 sta buffer+LEFT+40*25,x
1123 sta buffer+LEFT+40*26,x
1124 sta buffer+LEFT+40*27,x
1125 sta buffer+LEFT+40*28,x
1126 sta buffer+LEFT+40*29,x
1127 sta buffer+LEFT+40*30,x
1128 sta buffer+LEFT+40*31,x
1129 sta buffer+LEFT+40*32,x
1130 sta buffer+LEFT+40*33,x
1131 sta buffer+LEFT+40*34,x
1132 sta buffer+LEFT+40*35,x
1133 sta buffer+LEFT+40*36,x
1134 sta buffer+LEFT+40*37,x
1135 sta buffer+LEFT+40*38,x
1136 sta buffer+LEFT+40*39,x
1137 sta buffer+LEFT+40*40,x
1138 sta buffer+LEFT+40*41,x
1139 sta buffer+LEFT+40*42,x
1140 sta buffer+LEFT+40*43,x
1141 sta buffer+LEFT+40*44,x
1142 sta buffer+LEFT+40*45,x
1143 sta buffer+LEFT+40*46,x
1144 sta buffer+LEFT+40*47,x
1145 sta buffer+LEFT+40*48,x
1146 sta buffer+LEFT+40*49,x
1147 sta buffer+LEFT+40*50,x
1148 sta buffer+LEFT+40*51,x
1149 sta buffer+LEFT+40*52,x
1150 sta buffer+LEFT+40*53,x
1151 sta buffer+LEFT+40*54,x
1152 sta buffer+LEFT+40*55,x
1153 sta buffer+LEFT+40*56,x
1154 sta buffer+LEFT+40*57,x
1155 sta buffer+LEFT+40*58,x
1156 sta buffer+LEFT+40*59,x
1157 sta buffer+LEFT+40*60,x
1158 sta buffer+LEFT+40*61,x
1159 sta buffer+LEFT+40*62,x
1160 sta buffer+LEFT+40*63,x
1161 sta buffer+LEFT+40*64,x
1162 sta buffer+LEFT+40*65,x
1163 sta buffer+LEFT+40*66,x
1164 sta buffer+LEFT+40*67,x
1165 sta buffer+LEFT+40*68,x
1166 sta buffer+LEFT+40*69,x
1167 sta buffer+LEFT+40*70,x
1168 sta buffer+LEFT+40*71,x
1169 sta buffer+LEFT+40*72,x
1170 sta buffer+LEFT+40*73,x
1171 sta buffer+LEFT+40*74,x
1172 sta buffer+LEFT+40*75,x
1173 sta buffer+LEFT+40*76,x
1174 sta buffer+LEFT+40*77,x
1175 sta buffer+LEFT+40*78,x
1176 sta buffer+LEFT+40*79,x
1177 sta buffer+LEFT+40*80,x
1178 sta buffer+LEFT+40*81,x
1179 sta buffer+LEFT+40*82,x
1180 sta buffer+LEFT+40*83,x
1181 sta buffer+LEFT+40*84,x
1182 sta buffer+LEFT+40*85,x
1183 sta buffer+LEFT+40*86,x
1184 sta buffer+LEFT+40*87,x
1185 sta buffer+LEFT+40*88,x
1186 sta buffer+LEFT+40*89,x
1187 sta buffer+LEFT+40*90,x
1188 sta buffer+LEFT+40*91,x
1189 sta buffer+LEFT+40*92,x
1190 sta buffer+LEFT+40*93,x
1191 sta buffer+LEFT+40*94,x
1192 sta buffer+LEFT+40*95,x
1193 sta buffer+LEFT+40*96,x
1194 sta buffer+LEFT+40*97,x
1195 sta buffer+LEFT+40*98,x
1196 sta buffer+LEFT+40*99,x
1197 /*
1198 sta buffer+LEFT+40*100,x
1199 sta buffer+LEFT+40*101,x
1200 sta buffer+LEFT+40*102,x
1201 sta buffer+LEFT+40*103,x
1202 sta buffer+LEFT+40*104,x
1203 sta buffer+LEFT+40*105,x
1204 sta buffer+LEFT+40*106,x
1205 sta buffer+LEFT+40*107,x
1206 sta buffer+LEFT+40*108,x
1207 sta buffer+LEFT+40*109,x
1208 sta buffer+LEFT+40*110,x
1209 sta buffer+LEFT+40*111,x
1210 sta buffer+LEFT+40*112,x
1211 sta buffer+LEFT+40*113,x
1212 sta buffer+LEFT+40*114,x
1213 sta buffer+LEFT+40*115,x
1214 sta buffer+LEFT+40*116,x
1215 sta buffer+LEFT+40*117,x
1216 sta buffer+LEFT+40*118,x
1217 sta buffer+LEFT+40*119,x
1218 sta buffer+LEFT+40*120,x
1219 sta buffer+LEFT+40*121,x
1220 */
1221 dex
1222 bmi end
1223 jmp loop
1224 end
1225 rts
1226 .)
1227
1228
1229
1230
1231
1232
1233
1234

  ViewVC Help
Powered by ViewVC 1.1.26