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

  ViewVC Help
Powered by ViewVC 1.1.26