source: vital-to8-sdk/samples/asteroid/aster.asm

Last change on this file was 1, checked in by svn, 6 years ago

Import initial

File size: 42.8 KB
RevLine 
[1]1****************************************************************
2*
3*
4*       Asteroid for the Thomson TO8
5*
6*       Gilles Fetis    Juillet 1999
7*
8****************************************************************
9(main)aster.asm
10
11        ORG     $A000
12
13TIR_MAX EQU     5
14ASTER_MAX EQU   50
15
16
17
18        PSHS    U,X,DP,B,A,CC
19
20        ORCC    #$50
21
22* clear des 2 pages
23 
24        JSR     FLIP_1
25        LDX     #$4000
26        LDY     #$1F40
27MAIN_L1
28        CLR     ,X+
29        LEAY    -1,Y
30        BNE     MAIN_L1
31
32        JSR     FLIP_2
33        LDX     #$4000
34        LDY     #$1F40
35MAIN_L2
36        CLR     ,X+
37        LEAY    -1,Y
38        BNE     MAIN_L2
39       
40
41* init de la palette de couleurs (noir et blanc)
42        LDA     #0
43        STA     $E7DB
44        LDB     #0     
45        STB     $E7DA
46        STB     $E7DA
47        LDB     #$FF
48        STB     $E7DA
49        STB     $E7DA
50        STB     $E7DA
51        STB     $E7DA
52        STB     $E7DA
53        STB     $E7DA
54
55* init de la couleur de bordure = noir
56        LDA     #$00
57        STA     $E7DD
58       
59* essai anim
60MAIN_LOOP
61
62*       clear dirty0
63        LDB     #0
64        JSR     CLEAR_DIRTY
65
66        LDB     #0
67        STB     DIRTY_NUM
68        JSR     UPDATE_ASTER
69        JSR     SHIP_HANDLE
70        JSR     UPDATE_TIR
71        JSR     HANDLE_TIR
72       
73
74        JSR     INC_TRAIT
75        JSR     VSYNC
76        JSR     FLIP_1
77
78*       clear dirty1
79        LDB     #1
80        JSR     CLEAR_DIRTY
81
82        LDB     #1
83        STB     DIRTY_NUM
84        JSR     UPDATE_ASTER
85        JSR     SHIP_HANDLE
86        JSR     UPDATE_TIR
87        JSR     HANDLE_TIR
88       
89        JSR     INC_TRAIT
90        JSR     VSYNC
91        JSR     FLIP_2
92
93        LDX     TIME
94        LEAX    1,X
95        STX     TIME
96        CMPX    #20000
97        LBLT    MAIN_LOOP
98       
99        PULS    U,X,DP,B,A,CC
100        RTS
101
102
103*       Variables globales
104TIME    FCB     0,0
105TRAIT   FCB     0
106DIRTY_NUM
107        FCB     0
108
109****************************************************************
110
111****************************************************************
112*
113*       Gestion du joueur
114*
115****************************************************************
116SH_X    FCB     0,160
117SH_Y    FCB     0,100
118SH_DIR  FCB     0
119SH_D    FCB     0
120*       THRUST de 0 a 15
121SH_THRUST
122        FCB     0
123SH_SPEED_TAB
124        FCB     0,0,0,1
125        FCB     1,1,1,1
126        FCB     1,2,2,2
127        FCB     2,2,3,3
128SH_SPEED
129        FCB     0
130
131JOY_DIR FCB     0
132TIR_OK  FCB     $FF
133
134SHIP_HANDLE
135*       gestion de la manette
136        LDA     $E7CC
137        ANDA    #$0F
138        STA     JOY_DIR
139*       dir (droite gauche)
140        ANDA    #$04
141        BNE     SH_H_1
142        DEC     SH_DIR
143        LDA     #$3F
144        ANDA    SH_DIR
145        STA     SH_DIR
146        BRA     SH_H_FINDIR
147SH_H_1 
148        LDA     JOY_DIR
149        ANDA    #$08
150        BNE     SH_H_FINDIR
151        INC     SH_DIR
152        LDA     #$3F
153        ANDA    SH_DIR
154        STA     SH_DIR
155SH_H_FINDIR
156*       THRUST
157        LDA     JOY_DIR
158        ANDA    #$01
159        BNE     SH_H_NOTHR
160
161        LDA     SH_THRUST
162        CMPA    #$0F
163        BEQ     SH_H_2
164        INC     SH_THRUST
165SH_H_2
166        LDA     SH_THRUST
167        LDU     #SH_SPEED_TAB
168        LDB     A,U
169        STB     SH_SPEED       
170        BRA     SH_H_FINTHR
171
172SH_H_NOTHR
173        LDA     SH_THRUST
174        CMPA    #$00
175        BEQ     SH_H_3 
176        DEC     SH_THRUST
177SH_H_3
178        LDA     SH_THRUST
179        LDU     #SH_SPEED_TAB
180        LDB     A,U
181        STB     SH_SPEED       
182
183SH_H_FINTHR
184
185        LDA     SH_DIR
186        ASRA   
187        ASRA
188        STA     SH_D
189
190        LDX     SH_X
191        LDY     SH_Y
192        LDA     SH_D
193        LDB     SH_SPEED
194        JSR     DELTA
195        STX     SH_X
196        STY     SH_Y
197
198*       gestion du tir
199        LDA     $E7CD
200        ANDA    #$40
201        CMPA    #0
202        BNE     SH_H_5
203
204        TST     TIR_OK
205        BEQ     SH_H_4
206
207        PSHS    X,Y
208        LEAX    4,X
209        LEAY    4,Y
210        LDA     SH_D
211        JSR     ADD_TIR
212        PULS    X,Y
213        LDA     #$00
214        STA     TIR_OK
215        BRA     SH_H_4
216
217SH_H_5
218*       le bouton est relache => on reautorise le tir   
219        LDA     #$FF
220        STA     TIR_OK 
221SH_H_4
222
223*       affichage et gestion dirty
224        PSHS    X,Y
225        LDA     SH_D
226        JSR     AFFSHIP
227        PULS    X,Y
228        LDB     DIRTY_NUM
229        LDA     #1
230        JSR     PUSH_DIRTY
231        RTS
232
233****************************************************************
234
235****************************************************************
236*
237*       Gestion des tirs
238*
239****************************************************************
240
241TIR_NB  FCB     0
242*       table d'etat des tirs
243*       X,Y,dir,duree
244TIR_TAB
245        FCB     0,0,0,0
246        FCB     0,$FF
247        FCB     0,0,0,0
248        FCB     0,$FF
249        FCB     0,0,0,0
250        FCB     0,$FF
251        FCB     0,0,0,0
252        FCB     0,$FF
253        FCB     0,0,0,0
254        FCB     0,$FF
255        FCB     0,0,0,0
256        FCB     0,$FF
257
258TIR_NUM FCB     0
259
260UPDATE_TIR
261        CLR     TIR_NUM
262        LDU     #TIR_TAB
263
264UPD_TIR_LOOP
265        PULU    X,Y
266        PULU    A
267        PULU    B
268        CMPB    #$FF
269
270        BEQ     UPD_TIR_1
271*       le tir est reel
272        INCB   
273        CMPB    #80
274        BNE     UPD_TIR_2
275*       le tir est termine
276        LDB     #$FF
277        STB     -1,U
278        BRA     UPD_TIR_1
279UPD_TIR_2       
280        STB     -1,U
281        LDB     #3
282        PSHS    U
283        JSR     DELTA
284        PULS    U
285        STX     -6,U
286        STY     -4,U
287        PSHS    U
288        PSHS    X,Y
289        JSR     POINT
290        PULS    X,Y
291        LDB     DIRTY_NUM
292        LDA     #3
293        JSR     PUSH_DIRTY
294        PULS    U
295
296UPD_TIR_1
297        INC     TIR_NUM
298        LDA     #05
299        CMPA    TIR_NUM
300        BNE     UPD_TIR_LOOP   
301        RTS
302
303****************************************************************
304
305****************************************************************
306*
307*       Ajout d'un tir
308*       X,Y A dir
309*
310****************************************************************
311NEW_TIR_D
312        FCB     0
313ADD_TIR
314*       recherche d'un emplacement libre
315        CLR     TIR_NUM
316        LDU     #TIR_TAB
317        STA     NEW_TIR_D
318
319ADD_TIR_LOOP
320        LDB     5,U
321        CMPB    #$FF
322        BNE     ADD_TIR_1
323*       cet emplacement est libre
324        LDA     NEW_TIR_D
325        CLRB
326        STX     ,U
327        STY     2,U
328        STA     4,U     
329        STB     5,U
330        RTS
331ADD_TIR_1
332        LEAU    6,U
333        INC     TIR_NUM
334        LDA     #05
335        CMPA    TIR_NUM
336        BNE     ADD_TIR_LOOP   
337        RTS
338****************************************************************
339       
340****************************************************************
341*
342*       Retrait d'un tir
343*       A num du tir
344*
345****************************************************************
346REMOVE_TIR
347        LDU     #TIR_TAB
348        CMPA    #5
349        BGT     REMOVE_TIR_E   
350        LDB     #6
351        MUL
352        LEAU    D,U
353        LDA     #$FF
354        STA     5,U     
355REMOVE_TIR_E
356        RTS
357
358****************************************************************
359
360****************************************************************
361*
362*       Gestion collision tir/aster
363*
364****************************************************************
365TX      FCB     0,0
366TY      FCB     0,0
367TDIR    FCB     0
368AX      FCB     0,0
369AY      FCB     0,0
370ASIZE   FCB     0
371
372HANDLE_TIR
373        CLR     TIR_NUM
374HT_LOOP1
375        LDU     #TIR_TAB
376        LDA     TIR_NUM
377        LDB     #6
378        MUL
379        LEAU    D,U
380        PULU    X,Y
381        PULU    A
382        PULU    B
383        CMPB    #$FF
384        BEQ     HT_LOOP1_E
385        STX     TX
386        STY     TY
387        STA     TDIR
388
389        CLR     ASTER_NUM
390HT_LOOP2
391        LDU     #ASTER_LIST
392        LDA     ASTER_NUM
393        LDB     #7
394        MUL
395        LEAU    D,U
396        PULU    A,B,DP
397        PULU    X,Y
398*       cas d'un aster effacé
399        EXG     A,DP
400        CMPA    #$FF
401        BEQ     HT_LOOP2_E
402        EXG     A,DP
403        STX     AX
404        STY     AY
405        STA     ASIZE
406
407        JSR     IS_TIR_NEAR
408        CMPA    #0
409        BEQ     HT_LOOP2_E
410
411*       raffiner le test
412*       (a faire)
413
414        LDU     #ASTER_LIST
415        LDA     ASTER_NUM
416        LDB     #7
417        MUL
418        LEAU    D,U
419        LDA     #$FF
420        STA     2,U
421        LDA     TIR_NUM
422        JSR     REMOVE_TIR     
423
424HT_LOOP2_E
425        INC     ASTER_NUM
426        LDA     ASTER_NUM
427        CMPA    ASTER_NB
428        BNE     HT_LOOP2
429
430HT_LOOP1_E
431        INC     TIR_NUM
432        LDA     TIR_NUM
433        CMPA    #5     
434        BNE     HT_LOOP1
435HANDLE_TIR_E
436        RTS
437
438****************************************************************
439
440****************************************************************
441*
442*       sous routine de test rapide de proximite
443*
444****************************************************************
445SX      FCB     0,0
446SY      FCB     0,0
447IS_TIR_NEAR
448        LDD     AX
449        SUBD    TX
450        STD     SX
451        LDD     AY
452        SUBD    TY
453        STD     SY
454
455        LDA     ASIZE
456        CMPA    #0
457        BNE     ITN_1
458
459        LDX     #-16
460        CMPX    SX
461        BGT     ITN_E
462        LDX     #16
463        CMPX    SX
464        BLT     ITN_E
465        LDX     #-16
466        CMPX    SY
467        BGT     ITN_E
468        LDX     #16
469        CMPX    SY
470        BLT     ITN_E
471        LDA     #1
472        RTS
473
474ITN_1
475        CMPA    #1
476        BNE     ITN_2
477
478        LDX     #-10
479        CMPX    SX
480        BGT     ITN_E
481        LDX     #10
482        CMPX    SX
483        BLT     ITN_E
484        LDX     #-10
485        CMPX    SY
486        BGT     ITN_E
487        LDX     #10
488        CMPX    SY
489        BLT     ITN_E
490        LDA     #1
491        RTS
492
493ITN_2
494        LDX     #-6
495        CMPX    SX
496        BGT     ITN_E
497        LDX     #6
498        CMPX    SX
499        BLT     ITN_E
500        LDX     #-6
501        CMPX    SY
502        BGT     ITN_E
503        LDX     #6
504        CMPX    SY
505        BLT     ITN_E
506        LDA     #1
507        RTS
508
509ITN_E
510        LDA     #0
511        RTS
512
513****************************************************************
514
515****************************************************************
516*
517*       Gestion des aster
518*
519****************************************************************
520ASTER_NB
521        FCB     6
522*       un aster est dir,speed,size,X,Y
523ASTER_LIST
524        FCB     0,2,1
525        FCB     0,100,0,30
526        FCB     1,3,0
527        FCB     0,120,0,10
528        FCB     5,1,0
529        FCB     0,120,0,10
530        FCB     3,1,0
531        FCB     0,120,0,10
532        FCB     10,1,0
533        FCB     0,120,0,10
534        FCB     11,1,0
535        FCB     0,120,0,10
536        RMB     50*7   
537
538ASTER_NUM
539        FCB     0
540UPDATE_ASTER
541        CLR     ASTER_NUM
542       
543UPDATE_A_LOOP   
544        LDU     #ASTER_LIST
545        LDA     #7
546        LDB     ASTER_NUM
547        MUL
548        LEAU    D,U
549        PULU    A,B,DP
550        PULU    X,Y
551*       cas d'un aster effacé
552        EXG     A,DP
553        CMPA    #$FF
554        BEQ     UPD_A_CASE_E
555        EXG     A,DP
556
557        PSHS    A,B,U
558        JSR     DELTA
559        PULS    A,B,U
560        PSHU    X,Y
561        TFR     DP,A
562
563*       cas d'un aster effacé
564        CMPA    #$FF
565        BEQ     UPD_A_CASE_E
566
567        CMPA    #0
568        BNE     UPD_A_CASE_1
569
570        PSHS    A,X,Y
571        JSR     AFFASTER0
572        PULS    A,X,Y
573        LDB     DIRTY_NUM
574        JSR     PUSH_DIRTY
575        BRA     UPD_A_CASE_E
576
577
578UPD_A_CASE_1
579        CMPA    #1
580        BNE     UPD_A_CASE_2
581
582        PSHS    A,X,Y
583        JSR     AFFASTER1
584        PULS    A,X,Y
585        LDB     DIRTY_NUM
586        JSR     PUSH_DIRTY
587
588        BRA     UPD_A_CASE_E
589UPD_A_CASE_2
590
591        PSHS    A,X,Y
592        JSR     AFFASTER2
593        PULS    A,X,Y
594        LDB     DIRTY_NUM
595        JSR     PUSH_DIRTY
596
597UPD_A_CASE_E
598        INC     ASTER_NUM
599        LDA     ASTER_NB
600        CMPA    ASTER_NUM
601        BNE     UPDATE_A_LOOP
602        RTS
603       
604
605****************************************************************
606
607
608****************************************************************
609*
610*       coord X,Y
611*       dir A
612*       speed B
613*
614****************************************************************
615DELTA_DIR       FCB     0
616DELTA
617        CMPB    #0
618        BEQ     DELTA_4
619        DECB
620        STA     DELTA_DIR
621        LDU     #MOVETAB_S1
622        LDA     #128
623        MUL
624        LEAU    D,U     
625        LDB     DELTA_DIR
626        LDA     #8
627        MUL
628        LEAU    D,U
629        LDA     TRAIT
630        LSLA
631        LEAU    A,U
632        LDA     ,U+
633        LEAX    A,X
634        LDA     ,U
635        LEAY    A,Y
636
637        CMPX    #312
638        BLT     DELTA_1
639        LDX     #0
640        BRA     DELTA_2
641DELTA_1
642        CMPX    #0
643        BGE     DELTA_2
644        LDX     #311
645DELTA_2
646        CMPY    #192
647        BLT     DELTA_3
648        LDY     #0
649        BRA     DELTA_4
650DELTA_3
651        CMPY    #0
652        BGE     DELTA_4
653        LDY     #191
654DELTA_4
655        RTS
656
657****************************************************************
658
659
660****************************************************************
661*
662*       Gestion des "dirty lists"
663*
664****************************************************************
665DIRTY1NB        FCB     0
666DIRTY1          RMB     56*5
667
668DIRTY2NB        FCB     0
669DIRTY2          RMB     56*5
670
671****************************************************************
672*
673*       Push Object
674*       X,Y coord
675*       A type
676*       B num de list 0/1
677****************************************************************
678PUSH_DIRTY
679        TFR A,DP
680        CMPB    #0
681        BNE     PUSH_DIRTY_1
682        LDA     DIRTY1NB
683        CMPA    #55
684        BEQ     PUSH_DIRTY_2
685        INCA
686        STA     DIRTY1NB
687        LDB     #5
688        MUL
689        LDU     #DIRTY1
690        LEAU    D,U
691        PSHU    X,Y,DP
692        RTS
693PUSH_DIRTY_1
694        LDA     DIRTY2NB
695        CMPA    #55
696        BEQ     PUSH_DIRTY_2
697        INCA
698        STA     DIRTY2NB
699        LDB     #5
700        MUL
701        LDU     #DIRTY2
702        LEAU    D,U
703        PSHU    X,Y,DP
704PUSH_DIRTY_2
705        RTS
706
707****************************************************************
708*
709*       Clear dirty list
710*       B num de liste 0/1
711*
712****************************************************************
713CLEAR_DIRTY
714        CMPB    #0
715        BNE     CLEAR_DIRTY_1
716        LDA     DIRTY1NB
717        CLR     DIRTY1NB
718        LDU     #DIRTY1
719        BRA     CLEAR_D_LOOP1
720
721CLEAR_DIRTY_1
722        LDA     DIRTY2NB
723        CLR     DIRTY2NB
724        LDU     #DIRTY2
725
726CLEAR_D_LOOP1
727        CMPA    #0
728        BEQ     CLEAR_D_END
729        PSHS    A
730        PULU    X,Y,B
731        CMPB    #0
732        BNE     CLEAR_D_CASE_1_1
733        JSR     CLR0
734        BRA     CLEAR_D_CASE_1_E
735CLEAR_D_CASE_1_1
736        CMPB    #1
737        BNE     CLEAR_D_CASE_1_2
738        JSR     CLR1
739        BRA     CLEAR_D_CASE_1_E
740CLEAR_D_CASE_1_2
741        CMPB    #2
742        BNE     CLEAR_D_CASE_1_3
743        JSR     CLR2
744        BRA     CLEAR_D_CASE_1_E
745CLEAR_D_CASE_1_3
746        JSR     CLEAR_POINT
747
748CLEAR_D_CASE_1_E
749        PULS    A
750        DECA
751        BNE     CLEAR_D_LOOP1
752CLEAR_D_END
753        RTS
754
755
756****************************************************************
757
758****************************************************************
759*
760*       Gestion du temps
761*
762****************************************************************
763
764
765INC_TRAIT
766        INC     TRAIT
767        LDA     #$03
768        ANDA    TRAIT
769        STA     TRAIT
770        RTS
771
772
773
774****************************************************************
775*
776*       Routines Graphiques
777*
778****************************************************************
779
780
781
782****************************************************************
783*
784*       Attente de la VBL       
785*
786****************************************************************
787VSYNC
788VSYNC_1
789        TST     $E7E7
790        BPL     VSYNC_1
791VSYNC_2
792        TST     $E7E7
793        BMI     VSYNC_2
794
795        RTS
796
797****************************************************************
798
799****************************************************************
800*
801*       Gestion du swap des pages
802*
803****************************************************************
804FLIP_1
805        LDA     #$25
806        STA     $E7DC
807        LDA     #$01
808        ORA     $E7C3
809        STA     $E7C3
810        RTS
811FLIP_2
812        LDA     #$24
813        STA     $E7DC
814        LDA     #$FE
815        ANDA    $E7C3
816        STA     $E7C3
817        RTS
818
819****************************************************************
820*
821*       trace un point
822*       coord X,Y
823*       
824*
825****************************************************************
826PTTAB   FCB     %10000000
827        FCB     %01000000
828        FCB     %00100000
829        FCB     %00010000
830        FCB     %00001000
831        FCB     %00000100
832        FCB     %00000010
833        FCB     %00000001
834POINT
835        TFR     Y,D
836        LDA     #40
837        MUL
838        TFR     D,Y
839        LEAY    $4000,Y
840*       Y=Y*40
841
842*       DP=X/8
843*       B=X%8
844
845        TFR     X,D
846        ANDB    #$07
847        TFR   B,DP
848       
849        CMPX    #256
850        BLT     POINT_1
851        LEAY    32,Y
852POINT_1
853        TFR     X,D
854        LSRB
855        LSRB
856        LSRB
857        LEAY    B,Y
858
859        LDX     #PTTAB
860   TFR   DP,B
861        LDA     B,X
862
863        ORA     ,Y
864        STA     ,Y
865        RTS
866
867CLEAR_POINT
868        TFR     Y,D
869        LDA     #40
870        MUL
871        TFR     D,Y
872        LEAY    $4000,Y
873        CMPX    #256
874        BLT     C_POINT_1
875        LEAY    32,Y
876C_POINT_1
877        TFR     X,D
878        LSRB
879        LSRB
880        LSRB
881        LEAY    B,Y
882
883        CLR     ,Y
884        RTS
885
886****************************************************************
887
888****************************************************************
889*
890*       affiche sprite petit
891*       coord X,Y
892*
893****************************************************************
894AFFASTER2
895        TFR     Y,D
896        LDA     #40
897        MUL
898        TFR     D,Y
899        LEAY    $4000,Y
900*       Y=Y*40
901
902*       DP=X/8
903*       B=X%8
904
905        TFR     X,D
906        ANDB    #$07
907        TFR   B,DP
908       
909        CMPX    #256
910        BLT     AFFASTER2_1
911        LEAY    32,Y
912AFFASTER2_1
913        TFR     X,D
914        LSRB
915        LSRB
916        LSRB
917        LEAY    B,Y
918
919        LDX     #ASTER2
920        TFR     DP,B
921        LDA     #8
922        MUL
923        LEAX    D,X
924
925*       ligne0
926        LDA     ,X+
927        ORA     ,Y
928        STA     ,Y+
929        LDA     ,X+
930        ORA     ,Y
931        STA     ,Y
932        LEAY    39,Y
933
934*       ligne1
935        LDA     ,X+
936        ORA     ,Y
937        STA     ,Y+
938        LDA     ,X+
939        ORA     ,Y
940        STA     ,Y
941        LEAY    39,Y
942
943*       ligne2
944        LDA     ,X+
945        ORA     ,Y
946        STA     ,Y+
947        LDA     ,X+
948        ORA     ,Y
949        STA     ,Y
950        LEAY    39,Y
951
952*       ligne3
953        LDA     ,X+
954        ORA     ,Y
955        STA     ,Y+
956        LDA     ,X+
957        ORA     ,Y
958        STA     ,Y
959       
960        RTS
961****************************************************************
962
963
964
965****************************************************************
966*
967*       affiche sprite moyen
968*       coord X,Y
969*
970****************************************************************
971AFFASTER1
972        TFR     Y,D
973        LDA     #40
974        MUL
975        TFR     D,Y
976        LEAY    $4000,Y
977*       Y=Y*40
978
979*       DP=X/8
980*       B=X%8
981
982        TFR     X,D
983        ANDB    #$07
984        TFR   B,DP
985       
986        CMPX    #256
987        BLT     AFFASTER1_1
988        LEAY    32,Y
989AFFASTER1_1
990        TFR     X,D
991        LSRB
992        LSRB
993        LSRB
994        LEAY    B,Y
995
996        LDX     #ASTER1
997        TFR     DP,B
998        LDA     #16
999        MUL
1000        LEAX    D,X
1001
1002*       ligne0
1003        LDA     ,X+
1004        ORA     ,Y
1005        STA     ,Y+
1006        LDA     ,X+
1007        ORA     ,Y
1008        STA     ,Y
1009        LEAY    39,Y
1010
1011*       ligne1
1012        LDA     ,X+
1013        ORA     ,Y
1014        STA     ,Y+
1015        LDA     ,X+
1016        ORA     ,Y
1017        STA     ,Y
1018        LEAY    39,Y
1019
1020*       ligne2
1021        LDA     ,X+
1022        ORA     ,Y
1023        STA     ,Y+
1024        LDA     ,X+
1025        ORA     ,Y
1026        STA     ,Y
1027        LEAY    39,Y
1028
1029*       ligne3
1030        LDA     ,X+
1031        ORA     ,Y
1032        STA     ,Y+
1033        LDA     ,X+
1034        ORA     ,Y
1035        STA     ,Y
1036        LEAY    39,Y
1037
1038*       ligne4
1039        LDA     ,X+
1040        ORA     ,Y
1041        STA     ,Y+
1042        LDA     ,X+
1043        ORA     ,Y
1044        STA     ,Y
1045        LEAY    39,Y
1046
1047*       ligne5
1048        LDA     ,X+
1049        ORA     ,Y
1050        STA     ,Y+
1051        LDA     ,X+
1052        ORA     ,Y
1053        STA     ,Y
1054        LEAY    39,Y
1055
1056*       ligne6
1057        LDA     ,X+
1058        ORA     ,Y
1059        STA     ,Y+
1060        LDA     ,X+
1061        ORA     ,Y
1062        STA     ,Y
1063        LEAY    39,Y
1064
1065*       ligne7
1066        LDA     ,X+
1067        ORA     ,Y
1068        STA     ,Y+
1069        LDA     ,X+
1070        ORA     ,Y
1071        STA     ,Y
1072       
1073        RTS
1074****************************************************************
1075
1076****************************************************************
1077*
1078*       affiche sprite gros
1079*       coord X,Y
1080*
1081****************************************************************
1082AFFASTER0
1083        TFR     Y,D
1084        LDA     #40
1085        MUL
1086        TFR     D,Y
1087        LEAY    $4000,Y
1088*       Y=Y*40
1089
1090*       DP=X/8
1091*       B=X%8
1092
1093        TFR     X,D
1094        ANDB    #$07
1095        TFR   B,DP
1096       
1097        CMPX    #256
1098        BLT     AFFASTER0_1
1099        LEAY    32,Y
1100AFFASTER0_1
1101        TFR     X,D
1102        LSRB
1103        LSRB
1104        LSRB
1105        LEAY    B,Y
1106
1107        LDX     #ASTER0
1108        TFR     DP,B
1109        LDA     #48
1110        MUL
1111        LEAX    D,X
1112
1113*       ligne0
1114        LDA     ,X+
1115        ORA     ,Y
1116        STA     ,Y+
1117        LDA     ,X+
1118        ORA     ,Y
1119        STA     ,Y+
1120        LDA     ,X+
1121        ORA     ,Y
1122        STA     ,Y
1123        LEAY    38,Y
1124
1125*       ligne1
1126        LDA     ,X+
1127        ORA     ,Y
1128        STA     ,Y+
1129        LDA     ,X+
1130        ORA     ,Y
1131        STA     ,Y+
1132        LDA     ,X+
1133        ORA     ,Y
1134        STA     ,Y
1135        LEAY    38,Y
1136
1137*       ligne2
1138        LDA     ,X+
1139        ORA     ,Y
1140        STA     ,Y+
1141        LDA     ,X+
1142        ORA     ,Y
1143        STA     ,Y+
1144        LDA     ,X+
1145        ORA     ,Y
1146        STA     ,Y
1147        LEAY    38,Y
1148
1149*       ligne3
1150        LDA     ,X+
1151        ORA     ,Y
1152        STA     ,Y+
1153        LDA     ,X+
1154        ORA     ,Y
1155        STA     ,Y+
1156        LDA     ,X+
1157        ORA     ,Y
1158        STA     ,Y
1159        LEAY    38,Y
1160
1161*       ligne4
1162        LDA     ,X+
1163        ORA     ,Y
1164        STA     ,Y+
1165        LDA     ,X+
1166        ORA     ,Y
1167        STA     ,Y+
1168        LDA     ,X+
1169        ORA     ,Y
1170        STA     ,Y
1171        LEAY    38,Y
1172
1173*       ligne5
1174        LDA     ,X+
1175        ORA     ,Y
1176        STA     ,Y+
1177        LDA     ,X+
1178        ORA     ,Y
1179        STA     ,Y+
1180        LDA     ,X+
1181        ORA     ,Y
1182        STA     ,Y
1183        LEAY    38,Y
1184
1185*       ligne6
1186        LDA     ,X+
1187        ORA     ,Y
1188        STA     ,Y+
1189        LDA     ,X+
1190        ORA     ,Y
1191        STA     ,Y+
1192        LDA     ,X+
1193        ORA     ,Y
1194        STA     ,Y
1195        LEAY    38,Y
1196
1197*       ligne7
1198        LDA     ,X+
1199        ORA     ,Y
1200        STA     ,Y+
1201        LDA     ,X+
1202        ORA     ,Y
1203        STA     ,Y+
1204        LDA     ,X+
1205        ORA     ,Y
1206        STA     ,Y
1207        LEAY    38,Y
1208
1209*       ligne8
1210        LDA     ,X+
1211        ORA     ,Y
1212        STA     ,Y+
1213        LDA     ,X+
1214        ORA     ,Y
1215        STA     ,Y+
1216        LDA     ,X+
1217        ORA     ,Y
1218        STA     ,Y
1219        LEAY    38,Y
1220
1221*       ligne9
1222        LDA     ,X+
1223        ORA     ,Y
1224        STA     ,Y+
1225        LDA     ,X+
1226        ORA     ,Y
1227        STA     ,Y+
1228        LDA     ,X+
1229        ORA     ,Y
1230        STA     ,Y
1231        LEAY    38,Y
1232
1233*       ligne10
1234        LDA     ,X+
1235        ORA     ,Y
1236        STA     ,Y+
1237        LDA     ,X+
1238        ORA     ,Y
1239        STA     ,Y+
1240        LDA     ,X+
1241        ORA     ,Y
1242        STA     ,Y
1243        LEAY    38,Y
1244
1245*       ligne11
1246        LDA     ,X+
1247        ORA     ,Y
1248        STA     ,Y+
1249        LDA     ,X+
1250        ORA     ,Y
1251        STA     ,Y+
1252        LDA     ,X+
1253        ORA     ,Y
1254        STA     ,Y
1255        LEAY    38,Y
1256
1257*       ligne12
1258        LDA     ,X+
1259        ORA     ,Y
1260        STA     ,Y+
1261        LDA     ,X+
1262        ORA     ,Y
1263        STA     ,Y+
1264        LDA     ,X+
1265        ORA     ,Y
1266        STA     ,Y
1267        LEAY    38,Y
1268
1269*       ligne13
1270        LDA     ,X+
1271        ORA     ,Y
1272        STA     ,Y+
1273        LDA     ,X+
1274        ORA     ,Y
1275        STA     ,Y+
1276        LDA     ,X+
1277        ORA     ,Y
1278        STA     ,Y
1279        LEAY    38,Y
1280
1281*       ligne14
1282        LDA     ,X+
1283        ORA     ,Y
1284        STA     ,Y+
1285        LDA     ,X+
1286        ORA     ,Y
1287        STA     ,Y+
1288        LDA     ,X+
1289        ORA     ,Y
1290        STA     ,Y
1291        LEAY    38,Y
1292
1293*       ligne15
1294        LDA     ,X+
1295        ORA     ,Y
1296        STA     ,Y+
1297        LDA     ,X+
1298        ORA     ,Y
1299        STA     ,Y+
1300        LDA     ,X+
1301        ORA     ,Y
1302        STA     ,Y
1303
1304        RTS
1305****************************************************************
1306
1307
1308****************************************************************
1309*
1310*       affiche ship
1311*       coord X,Y
1312*       dir   A
1313*
1314****************************************************************
1315SHIP_DIR
1316        FCB     0
1317AFFSHIP
1318        ANDA    #$0F
1319        STA     SHIP_DIR
1320        TFR     Y,D
1321        LDA     #40
1322        MUL
1323        TFR     D,Y
1324        LEAY    $4000,Y
1325*       Y=Y*40
1326
1327*       DP=X/8
1328*       B=X%8
1329
1330        TFR     X,D
1331        ANDB    #$07
1332        TFR   B,DP
1333       
1334        CMPX    #256
1335        BLT     AFFSHIP_1
1336        LEAY    32,Y
1337AFFSHIP_1
1338        TFR     X,D
1339        LSRB
1340        LSRB
1341        LSRB
1342        LEAY    B,Y
1343
1344*       recherche l'adresse du premier sprite de cette dir
1345        LDX     #SHIP_SPRITE
1346        LDB     SHIP_DIR
1347        LDA     #128
1348        MUL     
1349        LEAX    D,X
1350
1351        TFR     DP,B
1352        LDA     #16
1353        MUL
1354        LEAX    D,X
1355
1356*       ligne0
1357        LDA     ,X+
1358        ORA     ,Y
1359        STA     ,Y+
1360        LDA     ,X+
1361        ORA     ,Y
1362        STA     ,Y
1363        LEAY    39,Y
1364
1365*       ligne1
1366        LDA     ,X+
1367        ORA     ,Y
1368        STA     ,Y+
1369        LDA     ,X+
1370        ORA     ,Y
1371        STA     ,Y
1372        LEAY    39,Y
1373
1374*       ligne2
1375        LDA     ,X+
1376        ORA     ,Y
1377        STA     ,Y+
1378        LDA     ,X+
1379        ORA     ,Y
1380        STA     ,Y
1381        LEAY    39,Y
1382
1383*       ligne3
1384        LDA     ,X+
1385        ORA     ,Y
1386        STA     ,Y+
1387        LDA     ,X+
1388        ORA     ,Y
1389        STA     ,Y
1390        LEAY    39,Y
1391
1392*       ligne4
1393        LDA     ,X+
1394        ORA     ,Y
1395        STA     ,Y+
1396        LDA     ,X+
1397        ORA     ,Y
1398        STA     ,Y
1399        LEAY    39,Y
1400
1401*       ligne5
1402        LDA     ,X+
1403        ORA     ,Y
1404        STA     ,Y+
1405        LDA     ,X+
1406        ORA     ,Y
1407        STA     ,Y
1408        LEAY    39,Y
1409
1410*       ligne6
1411        LDA     ,X+
1412        ORA     ,Y
1413        STA     ,Y+
1414        LDA     ,X+
1415        ORA     ,Y
1416        STA     ,Y
1417        LEAY    39,Y
1418
1419*       ligne7
1420        LDA     ,X+
1421        ORA     ,Y
1422        STA     ,Y+
1423        LDA     ,X+
1424        ORA     ,Y
1425        STA     ,Y
1426       
1427        RTS
1428****************************************************************
1429
1430****************************************************************
1431*
1432*       clear size 2
1433*       coord X,Y
1434*
1435****************************************************************
1436CLR2
1437        TFR     Y,D
1438        LDA     #40
1439        MUL
1440        TFR     D,Y
1441        LEAY    $4000,Y
1442
1443        CMPX    #256
1444        BLT     CLR2_1
1445        LEAY    32,Y
1446CLR2_1
1447        TFR     X,D
1448        LSRB
1449        LSRB
1450        LSRB
1451        LEAY    B,Y
1452
1453*       ligne0
1454        CLR     ,Y+
1455        CLR     ,Y
1456        LEAY    39,Y
1457
1458*       ligne1
1459        CLR     ,Y+
1460        CLR     ,Y
1461        LEAY    39,Y
1462
1463*       ligne2
1464        CLR     ,Y+
1465        CLR     ,Y
1466        LEAY    39,Y
1467
1468*       ligne3
1469        CLR     ,Y+
1470        CLR     ,Y
1471
1472        RTS
1473****************************************************************
1474
1475****************************************************************
1476*
1477*       clear size 1
1478*       coord X,Y
1479*
1480****************************************************************
1481CLR1
1482        TFR     Y,D
1483        LDA     #40
1484        MUL
1485        TFR     D,Y
1486        LEAY    $4000,Y
1487
1488        CMPX    #256
1489        BLT     CLR1_1
1490        LEAY    32,Y
1491CLR1_1
1492        TFR     X,D
1493        LSRB
1494        LSRB
1495        LSRB
1496        LEAY    B,Y
1497
1498*       ligne0
1499        CLR     ,Y+
1500        CLR     ,Y
1501        LEAY    39,Y
1502
1503*       ligne1
1504        CLR     ,Y+
1505        CLR     ,Y
1506        LEAY    39,Y
1507
1508*       ligne2
1509        CLR     ,Y+
1510        CLR     ,Y
1511        LEAY    39,Y
1512
1513*       ligne3
1514        CLR     ,Y+
1515        CLR     ,Y
1516        LEAY    39,Y
1517
1518*       ligne4
1519        CLR     ,Y+
1520        CLR     ,Y
1521        LEAY    39,Y
1522
1523*       ligne5
1524        CLR     ,Y+
1525        CLR     ,Y
1526        LEAY    39,Y
1527
1528*       ligne6
1529        CLR     ,Y+
1530        CLR     ,Y
1531        LEAY    39,Y
1532
1533*       ligne7
1534        CLR     ,Y+
1535        CLR     ,Y
1536       
1537        RTS
1538****************************************************************
1539
1540****************************************************************
1541*
1542*       clear size 0
1543*       coord X,Y
1544*
1545****************************************************************
1546CLR0
1547        TFR     Y,D
1548        LDA     #40
1549        MUL
1550        TFR     D,Y
1551        LEAY    $4000,Y
1552
1553        CMPX    #256
1554        BLT     CLR0_1
1555        LEAY    32,Y
1556CLR0_1
1557        TFR     X,D
1558        LSRB
1559        LSRB
1560        LSRB
1561        LEAY    B,Y
1562
1563*       ligne0
1564        CLR     ,Y+
1565        CLR     ,Y+
1566        CLR     ,Y
1567        LEAY    38,Y
1568
1569*       ligne1
1570        CLR     ,Y+
1571        CLR     ,Y+
1572        CLR     ,Y
1573        LEAY    38,Y
1574
1575*       ligne2
1576        CLR     ,Y+
1577        CLR     ,Y+
1578        CLR     ,Y
1579        LEAY    38,Y
1580
1581*       ligne3
1582        CLR     ,Y+
1583        CLR     ,Y+
1584        CLR     ,Y
1585        LEAY    38,Y
1586
1587*       ligne4
1588        CLR     ,Y+
1589        CLR     ,Y+
1590        CLR     ,Y
1591        LEAY    38,Y
1592
1593*       ligne5
1594        CLR     ,Y+
1595        CLR     ,Y+
1596        CLR     ,Y
1597        LEAY    38,Y
1598
1599*       ligne6
1600        CLR     ,Y+
1601        CLR     ,Y+
1602        CLR     ,Y
1603        LEAY    38,Y
1604
1605*       ligne7
1606        CLR     ,Y+
1607        CLR     ,Y+
1608        CLR     ,Y
1609        LEAY    38,Y
1610
1611*       ligne8
1612        CLR     ,Y+
1613        CLR     ,Y+
1614        CLR     ,Y
1615        LEAY    38,Y
1616
1617*       ligne9
1618        CLR     ,Y+
1619        CLR     ,Y+
1620        CLR     ,Y
1621        LEAY    38,Y
1622
1623*       ligne10
1624        CLR     ,Y+
1625        CLR     ,Y+
1626        CLR     ,Y
1627        LEAY    38,Y
1628
1629*       ligne11
1630        CLR     ,Y+
1631        CLR     ,Y+
1632        CLR     ,Y
1633        LEAY    38,Y
1634
1635*       ligne12
1636        CLR     ,Y+
1637        CLR     ,Y+
1638        CLR     ,Y
1639        LEAY    38,Y
1640
1641*       ligne13
1642        CLR     ,Y+
1643        CLR     ,Y+
1644        CLR     ,Y
1645        LEAY    38,Y
1646
1647*       ligne14
1648        CLR     ,Y+
1649        CLR     ,Y+
1650        CLR     ,Y
1651        LEAY    38,Y
1652
1653*       ligne15
1654        CLR     ,Y+
1655        CLR     ,Y+
1656        CLR     ,Y
1657
1658        RTS
1659****************************************************************
1660
1661
1662
1663
1664
1665
1666****************************************************************
1667*
1668*       Tables de précalcul de direction
1669*
1670****************************************************************
1671MOVETAB_S1
1672*       dir0
1673        FCB     0,0
1674        FCB     1,0
1675        FCB     0,0
1676        FCB     1,0
1677
1678*       dir1
1679        FCB     0,0
1680        FCB     1,1
1681        FCB     0,0
1682        FCB     1,0
1683
1684*       dir2
1685        FCB     0,0
1686        FCB     1,1
1687        FCB     0,0
1688        FCB     1,1
1689
1690*       dir3
1691        FCB     0,0
1692        FCB     1,1
1693        FCB     0,0
1694        FCB     0,1
1695
1696*       dir4
1697        FCB     0,0
1698        FCB     0,1
1699        FCB     0,0
1700        FCB     0,1
1701
1702*       dir5
1703        FCB     0,0
1704        FCB     -1,1
1705        FCB     0,0
1706        FCB     0,1
1707
1708*       dir6
1709        FCB     0,0
1710        FCB     -1,1
1711        FCB     0,0
1712        FCB     -1,1
1713
1714*       dir7
1715        FCB     0,0
1716        FCB     -1,1
1717        FCB     0,0
1718        FCB     -1,0
1719
1720*       dir8
1721        FCB     0,0
1722        FCB     -1,0
1723        FCB     0,0
1724        FCB     -1,0
1725
1726*       dir9   
1727        FCB     0,0
1728        FCB     -1,-1
1729        FCB     0,0
1730        FCB     -1,0
1731
1732*       dir10
1733        FCB     0,0
1734        FCB     -1,-1
1735        FCB     0,0
1736        FCB     -1,-1
1737
1738*       dir11
1739        FCB     0,0
1740        FCB     -1,-1
1741        FCB     0,0
1742        FCB     0,-1
1743
1744*       dir12
1745        FCB     0,0
1746        FCB     0,-1
1747        FCB     0,0
1748        FCB     0,-1
1749
1750*       dir13
1751        FCB     0,0
1752        FCB     1,-1
1753        FCB     0,0
1754        FCB     0,-1
1755       
1756*       dir14
1757        FCB     0,0
1758        FCB     1,-1
1759        FCB     0,0
1760        FCB     1,-1
1761
1762*       dir15
1763        FCB     0,0
1764        FCB     1,-1
1765        FCB     0,0
1766        FCB     1,0
1767
1768****************************************************************
1769       
1770MOVETAB_S2
1771*       dir0
1772        FCB     1,0
1773        FCB     1,0
1774        FCB     1,0
1775        FCB     1,0
1776
1777*       dir1
1778        FCB     1,0
1779        FCB     1,1
1780        FCB     1,0
1781        FCB     1,1
1782
1783*       dir2
1784        FCB     1,1
1785        FCB     1,1
1786        FCB     1,1
1787        FCB     1,1
1788
1789*       dir3
1790        FCB     0,1
1791        FCB     1,1
1792        FCB     0,1
1793        FCB     1,1
1794
1795*       dir4
1796        FCB     0,1
1797        FCB     0,1
1798        FCB     0,1
1799        FCB     0,1
1800
1801*       dir5
1802        FCB     0,1
1803        FCB     -1,1
1804        FCB     0,1
1805        FCB     -1,1
1806
1807*       dir6
1808        FCB     -1,1
1809        FCB     -1,1
1810        FCB     -1,1
1811        FCB     -1,1
1812
1813*       dir7
1814        FCB     -1,0
1815        FCB     -1,1
1816        FCB     -1,0
1817        FCB     -1,1
1818
1819*       dir8
1820        FCB     -1,0
1821        FCB     -1,0
1822        FCB     -1,0
1823        FCB     -1,0
1824
1825*       dir9   
1826        FCB     -1,0
1827        FCB     -1,-1
1828        FCB     -1,0
1829        FCB     -1,-1
1830
1831*       dir10
1832        FCB     -1,-1
1833        FCB     -1,-1
1834        FCB     -1,-1
1835        FCB     -1,-1
1836
1837*       dir11
1838        FCB     0,-1
1839        FCB     -1,-1
1840        FCB     0,-1
1841        FCB     -1,-1
1842
1843*       dir12
1844        FCB     0,-1
1845        FCB     0,-1
1846        FCB     0,-1
1847        FCB     0,-1
1848
1849*       dir13
1850        FCB     0,-1
1851        FCB     1,-1
1852        FCB     0,-1
1853        FCB     1,-1
1854       
1855*       dir14
1856        FCB     1,-1
1857        FCB     1,-1
1858        FCB     1,-1
1859        FCB     1,-1
1860
1861*       dir15
1862        FCB     1,0
1863        FCB     1,-1
1864        FCB     1,0
1865        FCB     1,-1
1866
1867****************************************************************
1868       
1869MOVETAB_S3
1870*       dir0
1871        FCB     2,0
1872        FCB     2,0
1873        FCB     2,0
1874        FCB     2,0
1875
1876*       dir1
1877        FCB     2,1
1878        FCB     2,1
1879        FCB     2,1
1880        FCB     2,1
1881
1882*       dir2
1883        FCB     2,2
1884        FCB     2,2
1885        FCB     2,2
1886        FCB     2,2
1887
1888*       dir3
1889        FCB     1,2
1890        FCB     1,2
1891        FCB     1,2
1892        FCB     1,2
1893
1894*       dir4
1895        FCB     0,2
1896        FCB     0,2
1897        FCB     0,2
1898        FCB     0,2
1899
1900*       dir5
1901        FCB     -1,2
1902        FCB     -1,2
1903        FCB     -1,2
1904        FCB     -1,2
1905
1906*       dir6
1907        FCB     -2,2
1908        FCB     -2,2
1909        FCB     -2,2
1910        FCB     -2,2
1911
1912*       dir7
1913        FCB     -2,1
1914        FCB     -2,1
1915        FCB     -2,1
1916        FCB     -2,1
1917
1918*       dir8
1919        FCB     -2,0
1920        FCB     -2,0
1921        FCB     -2,0
1922        FCB     -2,0
1923
1924*       dir9   
1925        FCB     -2,-1
1926        FCB     -2,-1
1927        FCB     -2,-1
1928        FCB     -2,-1
1929
1930*       dir10
1931        FCB     -2,-2
1932        FCB     -2,-2
1933        FCB     -2,-2
1934        FCB     -2,-2
1935
1936*       dir11
1937        FCB     -1,-2
1938        FCB     -1,-2
1939        FCB     -1,-2
1940        FCB     -1,-2
1941
1942*       dir12
1943        FCB     0,-2
1944        FCB     0,-2
1945        FCB     0,-2
1946        FCB     0,-2
1947
1948*       dir13
1949        FCB     1,-2
1950        FCB     1,-2
1951        FCB     1,-2
1952        FCB     1,-2
1953       
1954*       dir14
1955        FCB     2,-2
1956        FCB     2,-2
1957        FCB     2,-2
1958        FCB     2,-2
1959
1960*       dir15
1961        FCB     2,-1
1962        FCB     2,-1
1963        FCB     2,-1
1964        FCB     2,-1
1965
1966****************************************************************
1967
1968
1969
1970****************************************************************
1971*
1972*       Donnees graphiques
1973*
1974****************************************************************
1975ASTER0
1976* frame 0
1977        FCB     $7,$C0,$0
1978        FCB     $1F,$F0,$0
1979        FCB     $3B,$F8,$0
1980        FCB     $7F,$FC,$0
1981        FCB     $57,$FC,$0
1982        FCB     $DF,$FE,$0
1983        FCB     $7B,$FE,$0
1984        FCB     $93,$FE,$0
1985        FCB     $9E,$FE,$0
1986        FCB     $D6,$7E,$0
1987        FCB     $43,$5C,$0
1988        FCB     $69,$F4,$0
1989        FCB     $3B,$58,$0
1990        FCB     $1C,$E0,$0
1991        FCB     $7,$C0,$0
1992        FCB     $0,$0,$0
1993* frame 1
1994        FCB     $3,$E0,$0
1995        FCB     $F,$F8,$0
1996        FCB     $1D,$FC,$0
1997        FCB     $3F,$FE,$0
1998        FCB     $2B,$FE,$0
1999        FCB     $6F,$FF,$0
2000        FCB     $3D,$FF,$0
2001        FCB     $49,$FF,$0
2002        FCB     $4F,$7F,$0
2003        FCB     $6B,$3F,$0
2004        FCB     $21,$AE,$0
2005        FCB     $34,$FA,$0
2006        FCB     $1D,$AC,$0
2007        FCB     $E,$70,$0
2008        FCB     $3,$E0,$0
2009        FCB     $0,$0,$0
2010* frame 2
2011        FCB     $1,$F0,$0
2012        FCB     $7,$FC,$0
2013        FCB     $E,$FE,$0
2014        FCB     $1F,$FF,$0
2015        FCB     $15,$FF,$0
2016        FCB     $37,$FF,$80
2017        FCB     $1E,$FF,$80
2018        FCB     $24,$FF,$80
2019        FCB     $27,$BF,$80
2020        FCB     $35,$9F,$80
2021        FCB     $10,$D7,$0
2022        FCB     $1A,$7D,$0
2023        FCB     $E,$D6,$0
2024        FCB     $7,$38,$0
2025        FCB     $1,$F0,$0
2026        FCB     $0,$0,$0
2027* frame 3
2028        FCB     $0,$F8,$0
2029        FCB     $3,$FE,$0
2030        FCB     $7,$7F,$0
2031        FCB     $F,$FF,$80
2032        FCB     $A,$FF,$80
2033        FCB     $1B,$FF,$C0
2034        FCB     $F,$7F,$C0
2035        FCB     $12,$7F,$C0
2036        FCB     $13,$DF,$C0
2037        FCB     $1A,$CF,$C0
2038        FCB     $8,$6B,$80
2039        FCB     $D,$3E,$80
2040        FCB     $7,$6B,$0
2041        FCB     $3,$9C,$0
2042        FCB     $0,$F8,$0
2043        FCB     $0,$0,$0
2044* frame 4
2045        FCB     $0,$7C,$0
2046        FCB     $1,$FF,$0
2047        FCB     $3,$BF,$80
2048        FCB     $7,$FF,$C0
2049        FCB     $5,$7F,$C0
2050        FCB     $D,$FF,$E0
2051        FCB     $7,$BF,$E0
2052        FCB     $9,$3F,$E0
2053        FCB     $9,$EF,$E0
2054        FCB     $D,$67,$E0
2055        FCB     $4,$35,$C0
2056        FCB     $6,$9F,$40
2057        FCB     $3,$B5,$80
2058        FCB     $1,$CE,$0
2059        FCB     $0,$7C,$0
2060        FCB     $0,$0,$0
2061* frame 5
2062        FCB     $0,$3E,$0
2063        FCB     $0,$FF,$80
2064        FCB     $1,$DF,$C0
2065        FCB     $3,$FF,$E0
2066        FCB     $2,$BF,$E0
2067        FCB     $6,$FF,$F0
2068        FCB     $3,$DF,$F0
2069        FCB     $4,$9F,$F0
2070        FCB     $4,$F7,$F0
2071        FCB     $6,$B3,$F0
2072        FCB     $2,$1A,$E0
2073        FCB     $3,$4F,$A0
2074        FCB     $1,$DA,$C0
2075        FCB     $0,$E7,$0
2076        FCB     $0,$3E,$0
2077        FCB     $0,$0,$0
2078* frame 6
2079        FCB     $0,$1F,$0
2080        FCB     $0,$7F,$C0
2081        FCB     $0,$EF,$E0
2082        FCB     $1,$FF,$F0
2083        FCB     $1,$5F,$F0
2084        FCB     $3,$7F,$F8
2085        FCB     $1,$EF,$F8
2086        FCB     $2,$4F,$F8
2087        FCB     $2,$7B,$F8
2088        FCB     $3,$59,$F8
2089        FCB     $1,$D,$70
2090        FCB     $1,$A7,$D0
2091        FCB     $0,$ED,$60
2092        FCB     $0,$73,$80
2093        FCB     $0,$1F,$0
2094        FCB     $0,$0,$0
2095* frame 7
2096        FCB     $0,$F,$80
2097        FCB     $0,$3F,$E0
2098        FCB     $0,$77,$F0
2099        FCB     $0,$FF,$F8
2100        FCB     $0,$AF,$F8
2101        FCB     $1,$BF,$FC
2102        FCB     $0,$F7,$FC
2103        FCB     $1,$27,$FC
2104        FCB     $1,$3D,$FC
2105        FCB     $1,$AC,$FC
2106        FCB     $0,$86,$B8
2107        FCB     $0,$D3,$E8
2108        FCB     $0,$76,$B0
2109        FCB     $0,$39,$C0
2110        FCB     $0,$F,$80
2111        FCB     $0,$0,$0
2112
2113
2114****************************************************************
2115ASTER1
2116*       frame 0
2117        FCB     %00011000,%00000000
2118        FCB     %01111110,%00000000
2119        FCB     %01111110,%00000000
2120        FCB     %11111111,%00000000
2121        FCB     %10111111,%00000000
2122        FCB     %01101110,%00000000
2123        FCB     %01011110,%00000000
2124        FCB     %00011000,%00000000
2125
2126*       frame 1
2127        FCB     %00001100,%00000000
2128        FCB     %00111111,%00000000
2129        FCB     %00111111,%00000000
2130        FCB     %01111111,%10000000
2131        FCB     %01101111,%10000000
2132        FCB     %00110111,%00000000
2133        FCB     %00101101,%00000000
2134        FCB     %00001100,%00000000
2135
2136*       frame 2
2137        FCB     %00000110,%00000000
2138        FCB     %00011111,%10000000
2139        FCB     %00011111,%10000000
2140        FCB     %00111111,%11000000
2141        FCB     %00101011,%11000000
2142        FCB     %00010111,%10000000
2143        FCB     %00011101,%10000000
2144        FCB     %00000110,%00000000
2145
2146*       frame 3
2147        FCB     %00000011,%00000000
2148        FCB     %00001111,%11000000
2149        FCB     %00001111,%11000000
2150        FCB     %00010111,%11100000
2151        FCB     %00011101,%11100000
2152        FCB     %00001010,%11000000
2153        FCB     %00001111,%11000000
2154        FCB     %00000011,%00000000
2155
2156*       frame 4
2157        FCB     %00000001,%10000000
2158        FCB     %00000111,%11100000
2159        FCB     %00000111,%11100000
2160        FCB     %00001011,%11110000
2161        FCB     %00001111,%11110000
2162        FCB     %00000101,%01100000
2163        FCB     %00000110,%11100000
2164        FCB     %00000001,%10000000
2165
2166*       frame 5
2167        FCB     %00000000,%11000000
2168        FCB     %00000011,%11110000
2169        FCB     %00000011,%11110000
2170        FCB     %00000111,%11111000
2171        FCB     %00000110,%11111000
2172        FCB     %00000010,%01010000
2173        FCB     %00000011,%01110000
2174        FCB     %00000000,%11000000
2175
2176*       frame 6
2177        FCB     %00000000,%01100000
2178        FCB     %00000001,%11111000
2179        FCB     %00000001,%11111000
2180        FCB     %00000011,%11111100
2181        FCB     %00000010,%11111100
2182        FCB     %00000001,%10111000
2183        FCB     %00000001,%01011000
2184        FCB     %00000000,%01100000
2185
2186*       frame 7
2187        FCB     %00000000,%00110000
2188        FCB     %00000000,%11111100
2189        FCB     %00000000,%11111100
2190        FCB     %00000001,%11111110
2191        FCB     %00000001,%10110110
2192        FCB     %00000000,%01101100
2193        FCB     %00000000,%11011100
2194        FCB     %00000000,%00110000
2195
2196
2197****************************************************************
2198ASTER2 
2199*       frame   0
2200        FCB     %01100000,%00000000
2201        FCB     %11110000,%00000000
2202        FCB     %11110000,%00000000
2203        FCB     %01100000,%00000000
2204*       frame   1
2205        FCB     %00110000,%00000000
2206        FCB     %01111000,%00000000
2207        FCB     %01111000,%00000000
2208        FCB     %00110000,%00000000
2209*       frame   2
2210        FCB     %00011000,%00000000
2211        FCB     %00111100,%00000000
2212        FCB     %00111100,%00000000
2213        FCB     %00011000,%00000000
2214*       frame   3
2215        FCB     %00001100,%00000000
2216        FCB     %00011110,%00000000
2217        FCB     %00011110,%00000000
2218        FCB     %00001100,%00000000
2219*       frame   4
2220        FCB     %00000110,%00000000
2221        FCB     %00001111,%00000000
2222        FCB     %00001111,%00000000
2223        FCB     %00000110,%00000000
2224*       frame   5
2225        FCB     %00000011,%00000000
2226        FCB     %00000111,%10000000
2227        FCB     %00000111,%10000000
2228        FCB     %00000011,%00000000
2229*       frame   6
2230        FCB     %00000001,%10000000
2231        FCB     %00000011,%11000000
2232        FCB     %00000011,%11000000
2233        FCB     %00000001,%10000000
2234*       frame   7
2235        FCB     %00000000,%11000000
2236        FCB     %00000001,%11100000
2237        FCB     %00000001,%11100000
2238        FCB     %00000000,%11000000
2239
2240
2241
2242
2243
2244SHIP_SPRITE
2245
2246
2247* Dir 0 *******************************
2248* frame 0
2249        FCB     $0,$0
2250        FCB     $0,$0
2251        FCB     $60,$0
2252        FCB     $78,$0
2253        FCB     $7E,$0
2254        FCB     $78,$0
2255        FCB     $60,$0
2256        FCB     $0,$0
2257* frame 1
2258        FCB     $0,$0
2259        FCB     $0,$0
2260        FCB     $30,$0
2261        FCB     $3C,$0
2262        FCB     $3F,$0
2263        FCB     $3C,$0
2264        FCB     $30,$0
2265        FCB     $0,$0
2266* frame 2
2267        FCB     $0,$0
2268        FCB     $0,$0
2269        FCB     $18,$0
2270        FCB     $1E,$0
2271        FCB     $1F,$80
2272        FCB     $1E,$0
2273        FCB     $18,$0
2274        FCB     $0,$0
2275* frame 3
2276        FCB     $0,$0
2277        FCB     $0,$0
2278        FCB     $C,$0
2279        FCB     $F,$0
2280        FCB     $F,$C0
2281        FCB     $F,$0
2282        FCB     $C,$0
2283        FCB     $0,$0
2284* frame 4
2285        FCB     $0,$0
2286        FCB     $0,$0
2287        FCB     $6,$0
2288        FCB     $7,$80
2289        FCB     $7,$E0
2290        FCB     $7,$80
2291        FCB     $6,$0
2292        FCB     $0,$0
2293* frame 5
2294        FCB     $0,$0
2295        FCB     $0,$0
2296        FCB     $3,$0
2297        FCB     $3,$C0
2298        FCB     $3,$F0
2299        FCB     $3,$C0
2300        FCB     $3,$0
2301        FCB     $0,$0
2302* frame 6
2303        FCB     $0,$0
2304        FCB     $0,$0
2305        FCB     $1,$80
2306        FCB     $1,$E0
2307        FCB     $1,$F8
2308        FCB     $1,$E0
2309        FCB     $1,$80
2310        FCB     $0,$0
2311* frame 7
2312        FCB     $0,$0
2313        FCB     $0,$0
2314        FCB     $0,$C0
2315        FCB     $0,$F0
2316        FCB     $0,$FC
2317        FCB     $0,$F0
2318        FCB     $0,$C0
2319        FCB     $0,$0
2320
2321
2322* Dir 1 *******************************
2323* frame 0
2324        FCB     $0,$0
2325        FCB     $0,$0
2326        FCB     $10,$0
2327        FCB     $38,$0
2328        FCB     $3E,$0
2329        FCB     $7F,$0
2330        FCB     $0,$0
2331        FCB     $0,$0
2332* frame 1
2333        FCB     $0,$0
2334        FCB     $0,$0
2335        FCB     $8,$0
2336        FCB     $1C,$0
2337        FCB     $1F,$0
2338        FCB     $3F,$80
2339        FCB     $0,$0
2340        FCB     $0,$0
2341* frame 2
2342        FCB     $0,$0
2343        FCB     $0,$0
2344        FCB     $4,$0
2345        FCB     $E,$0
2346        FCB     $F,$80
2347        FCB     $1F,$C0
2348        FCB     $0,$0
2349        FCB     $0,$0
2350* frame 3
2351        FCB     $0,$0
2352        FCB     $0,$0
2353        FCB     $2,$0
2354        FCB     $7,$0
2355        FCB     $7,$C0
2356        FCB     $F,$E0
2357        FCB     $0,$0
2358        FCB     $0,$0
2359* frame 4
2360        FCB     $0,$0
2361        FCB     $0,$0
2362        FCB     $1,$0
2363        FCB     $3,$80
2364        FCB     $3,$E0
2365        FCB     $7,$F0
2366        FCB     $0,$0
2367        FCB     $0,$0
2368* frame 5
2369        FCB     $0,$0
2370        FCB     $0,$0
2371        FCB     $0,$80
2372        FCB     $1,$C0
2373        FCB     $1,$F0
2374        FCB     $3,$F8
2375        FCB     $0,$0
2376        FCB     $0,$0
2377* frame 6
2378        FCB     $0,$0
2379        FCB     $0,$0
2380        FCB     $0,$40
2381        FCB     $0,$E0
2382        FCB     $0,$F8
2383        FCB     $1,$FC
2384        FCB     $0,$0
2385        FCB     $0,$0
2386* frame 7
2387        FCB     $0,$0
2388        FCB     $0,$0
2389        FCB     $0,$20
2390        FCB     $0,$70
2391        FCB     $0,$7C
2392        FCB     $0,$FE
2393        FCB     $0,$0
2394        FCB     $0,$0
2395
2396
2397* Dir 2 *******************************
2398* frame 0
2399        FCB     $0,$0
2400        FCB     $10,$0
2401        FCB     $38,$0
2402        FCB     $78,$0
2403        FCB     $3C,$0
2404        FCB     $C,$0
2405        FCB     $2,$0
2406        FCB     $0,$0
2407* frame 1
2408        FCB     $0,$0
2409        FCB     $8,$0
2410        FCB     $1C,$0
2411        FCB     $3C,$0
2412        FCB     $1E,$0
2413        FCB     $6,$0
2414        FCB     $1,$0
2415        FCB     $0,$0
2416* frame 2
2417        FCB     $0,$0
2418        FCB     $4,$0
2419        FCB     $E,$0
2420        FCB     $1E,$0
2421        FCB     $F,$0
2422        FCB     $3,$0
2423        FCB     $0,$80
2424        FCB     $0,$0
2425* frame 3
2426        FCB     $0,$0
2427        FCB     $2,$0
2428        FCB     $7,$0
2429        FCB     $F,$0
2430        FCB     $7,$80
2431        FCB     $1,$80
2432        FCB     $0,$40
2433        FCB     $0,$0
2434* frame 4
2435        FCB     $0,$0
2436        FCB     $1,$0
2437        FCB     $3,$80
2438        FCB     $7,$80
2439        FCB     $3,$C0
2440        FCB     $0,$C0
2441        FCB     $0,$20
2442        FCB     $0,$0
2443* frame 5
2444        FCB     $0,$0
2445        FCB     $0,$80
2446        FCB     $1,$C0
2447        FCB     $3,$C0
2448        FCB     $1,$E0
2449        FCB     $0,$60
2450        FCB     $0,$10
2451        FCB     $0,$0
2452* frame 6
2453        FCB     $0,$0
2454        FCB     $0,$40
2455        FCB     $0,$E0
2456        FCB     $1,$E0
2457        FCB     $0,$F0
2458        FCB     $0,$30
2459        FCB     $0,$8
2460        FCB     $0,$0
2461* frame 7
2462        FCB     $0,$0
2463        FCB     $0,$20
2464        FCB     $0,$70
2465        FCB     $0,$F0
2466        FCB     $0,$78
2467        FCB     $0,$18
2468        FCB     $0,$4
2469        FCB     $0,$0
2470
2471
2472* Dir 3 *******************************
2473* frame 0
2474        FCB     $0,$0
2475        FCB     $4,$0
2476        FCB     $1C,$0
2477        FCB     $3C,$0
2478        FCB     $1C,$0
2479        FCB     $C,$0
2480        FCB     $C,$0
2481        FCB     $4,$0
2482* frame 1
2483        FCB     $0,$0
2484        FCB     $2,$0
2485        FCB     $E,$0
2486        FCB     $1E,$0
2487        FCB     $E,$0
2488        FCB     $6,$0
2489        FCB     $6,$0
2490        FCB     $2,$0
2491* frame 2
2492        FCB     $0,$0
2493        FCB     $1,$0
2494        FCB     $7,$0
2495        FCB     $F,$0
2496        FCB     $7,$0
2497        FCB     $3,$0
2498        FCB     $3,$0
2499        FCB     $1,$0
2500* frame 3
2501        FCB     $0,$0
2502        FCB     $0,$80
2503        FCB     $3,$80
2504        FCB     $7,$80
2505        FCB     $3,$80
2506        FCB     $1,$80
2507        FCB     $1,$80
2508        FCB     $0,$80
2509* frame 4
2510        FCB     $0,$0
2511        FCB     $0,$40
2512        FCB     $1,$C0
2513        FCB     $3,$C0
2514        FCB     $1,$C0
2515        FCB     $0,$C0
2516        FCB     $0,$C0
2517        FCB     $0,$40
2518* frame 5
2519        FCB     $0,$0
2520        FCB     $0,$20
2521        FCB     $0,$E0
2522        FCB     $1,$E0
2523        FCB     $0,$E0
2524        FCB     $0,$60
2525        FCB     $0,$60
2526        FCB     $0,$20
2527* frame 6
2528        FCB     $0,$0
2529        FCB     $0,$10
2530        FCB     $0,$70
2531        FCB     $0,$F0
2532        FCB     $0,$70
2533        FCB     $0,$30
2534        FCB     $0,$30
2535        FCB     $0,$10
2536* frame 7
2537        FCB     $0,$0
2538        FCB     $0,$8
2539        FCB     $0,$38
2540        FCB     $0,$78
2541        FCB     $0,$38
2542        FCB     $0,$18
2543        FCB     $0,$18
2544        FCB     $0,$8
2545
2546
2547* Dir 4 *******************************
2548* frame 0
2549        FCB     $0,$0
2550        FCB     $3E,$0
2551        FCB     $3E,$0
2552        FCB     $1C,$0
2553        FCB     $1C,$0
2554        FCB     $8,$0
2555        FCB     $8,$0
2556        FCB     $0,$0
2557* frame 1
2558        FCB     $0,$0
2559        FCB     $1F,$0
2560        FCB     $1F,$0
2561        FCB     $E,$0
2562        FCB     $E,$0
2563        FCB     $4,$0
2564        FCB     $4,$0
2565        FCB     $0,$0
2566* frame 2
2567        FCB     $0,$0
2568        FCB     $F,$80
2569        FCB     $F,$80
2570        FCB     $7,$0
2571        FCB     $7,$0
2572        FCB     $2,$0
2573        FCB     $2,$0
2574        FCB     $0,$0
2575* frame 3
2576        FCB     $0,$0
2577        FCB     $7,$C0
2578        FCB     $7,$C0
2579        FCB     $3,$80
2580        FCB     $3,$80
2581        FCB     $1,$0
2582        FCB     $1,$0
2583        FCB     $0,$0
2584* frame 4
2585        FCB     $0,$0
2586        FCB     $3,$E0
2587        FCB     $3,$E0
2588        FCB     $1,$C0
2589        FCB     $1,$C0
2590        FCB     $0,$80
2591        FCB     $0,$80
2592        FCB     $0,$0
2593* frame 5
2594        FCB     $0,$0
2595        FCB     $1,$F0
2596        FCB     $1,$F0
2597        FCB     $0,$E0
2598        FCB     $0,$E0
2599        FCB     $0,$40
2600        FCB     $0,$40
2601        FCB     $0,$0
2602* frame 6
2603        FCB     $0,$0
2604        FCB     $0,$F8
2605        FCB     $0,$F8
2606        FCB     $0,$70
2607        FCB     $0,$70
2608        FCB     $0,$20
2609        FCB     $0,$20
2610        FCB     $0,$0
2611* frame 7
2612        FCB     $0,$0
2613        FCB     $0,$7C
2614        FCB     $0,$7C
2615        FCB     $0,$38
2616        FCB     $0,$38
2617        FCB     $0,$10
2618        FCB     $0,$10
2619        FCB     $0,$0
2620
2621
2622* Dir 5 *******************************
2623* frame 0
2624        FCB     $0,$0
2625        FCB     $10,$0
2626        FCB     $1C,$0
2627        FCB     $1E,$0
2628        FCB     $1C,$0
2629        FCB     $18,$0
2630        FCB     $18,$0
2631        FCB     $10,$0
2632* frame 1
2633        FCB     $0,$0
2634        FCB     $8,$0
2635        FCB     $E,$0
2636        FCB     $F,$0
2637        FCB     $E,$0
2638        FCB     $C,$0
2639        FCB     $C,$0
2640        FCB     $8,$0
2641* frame 2
2642        FCB     $0,$0
2643        FCB     $4,$0
2644        FCB     $7,$0
2645        FCB     $7,$80
2646        FCB     $7,$0
2647        FCB     $6,$0
2648        FCB     $6,$0
2649        FCB     $4,$0
2650* frame 3
2651        FCB     $0,$0
2652        FCB     $2,$0
2653        FCB     $3,$80
2654        FCB     $3,$C0
2655        FCB     $3,$80
2656        FCB     $3,$0
2657        FCB     $3,$0
2658        FCB     $2,$0
2659* frame 4
2660        FCB     $0,$0
2661        FCB     $1,$0
2662        FCB     $1,$C0
2663        FCB     $1,$E0
2664        FCB     $1,$C0
2665        FCB     $1,$80
2666        FCB     $1,$80
2667        FCB     $1,$0
2668* frame 5
2669        FCB     $0,$0
2670        FCB     $0,$80
2671        FCB     $0,$E0
2672        FCB     $0,$F0
2673        FCB     $0,$E0
2674        FCB     $0,$C0
2675        FCB     $0,$C0
2676        FCB     $0,$80
2677* frame 6
2678        FCB     $0,$0
2679        FCB     $0,$40
2680        FCB     $0,$70
2681        FCB     $0,$78
2682        FCB     $0,$70
2683        FCB     $0,$60
2684        FCB     $0,$60
2685        FCB     $0,$40
2686* frame 7
2687        FCB     $0,$0
2688        FCB     $0,$20
2689        FCB     $0,$38
2690        FCB     $0,$3C
2691        FCB     $0,$38
2692        FCB     $0,$30
2693        FCB     $0,$30
2694        FCB     $0,$20
2695
2696
2697* Dir 6 *******************************
2698* frame 0
2699        FCB     $0,$0
2700        FCB     $4,$0
2701        FCB     $E,$0
2702        FCB     $F,$0
2703        FCB     $1E,$0
2704        FCB     $18,$0
2705        FCB     $20,$0
2706        FCB     $0,$0
2707* frame 1
2708        FCB     $0,$0
2709        FCB     $2,$0
2710        FCB     $7,$0
2711        FCB     $7,$80
2712        FCB     $F,$0
2713        FCB     $C,$0
2714        FCB     $10,$0
2715        FCB     $0,$0
2716* frame 2
2717        FCB     $0,$0
2718        FCB     $1,$0
2719        FCB     $3,$80
2720        FCB     $3,$C0
2721        FCB     $7,$80
2722        FCB     $6,$0
2723        FCB     $8,$0
2724        FCB     $0,$0
2725* frame 3
2726        FCB     $0,$0
2727        FCB     $0,$80
2728        FCB     $1,$C0
2729        FCB     $1,$E0
2730        FCB     $3,$C0
2731        FCB     $3,$0
2732        FCB     $4,$0
2733        FCB     $0,$0
2734* frame 4
2735        FCB     $0,$0
2736        FCB     $0,$40
2737        FCB     $0,$E0
2738        FCB     $0,$F0
2739        FCB     $1,$E0
2740        FCB     $1,$80
2741        FCB     $2,$0
2742        FCB     $0,$0
2743* frame 5
2744        FCB     $0,$0
2745        FCB     $0,$20
2746        FCB     $0,$70
2747        FCB     $0,$78
2748        FCB     $0,$F0
2749        FCB     $0,$C0
2750        FCB     $1,$0
2751        FCB     $0,$0
2752* frame 6
2753        FCB     $0,$0
2754        FCB     $0,$10
2755        FCB     $0,$38
2756        FCB     $0,$3C
2757        FCB     $0,$78
2758        FCB     $0,$60
2759        FCB     $0,$80
2760        FCB     $0,$0
2761* frame 7
2762        FCB     $0,$0
2763        FCB     $0,$8
2764        FCB     $0,$1C
2765        FCB     $0,$1E
2766        FCB     $0,$3C
2767        FCB     $0,$30
2768        FCB     $0,$40
2769        FCB     $0,$0
2770
2771
2772* Dir 7 *******************************
2773* frame 0
2774        FCB     $0,$0
2775        FCB     $0,$0
2776        FCB     $4,$0
2777        FCB     $E,$0
2778        FCB     $3E,$0
2779        FCB     $7F,$0
2780        FCB     $0,$0
2781        FCB     $0,$0
2782* frame 1
2783        FCB     $0,$0
2784        FCB     $0,$0
2785        FCB     $2,$0
2786        FCB     $7,$0
2787        FCB     $1F,$0
2788        FCB     $3F,$80
2789        FCB     $0,$0
2790        FCB     $0,$0
2791* frame 2
2792        FCB     $0,$0
2793        FCB     $0,$0
2794        FCB     $1,$0
2795        FCB     $3,$80
2796        FCB     $F,$80
2797        FCB     $1F,$C0
2798        FCB     $0,$0
2799        FCB     $0,$0
2800* frame 3
2801        FCB     $0,$0
2802        FCB     $0,$0
2803        FCB     $0,$80
2804        FCB     $1,$C0
2805        FCB     $7,$C0
2806        FCB     $F,$E0
2807        FCB     $0,$0
2808        FCB     $0,$0
2809* frame 4
2810        FCB     $0,$0
2811        FCB     $0,$0
2812        FCB     $0,$40
2813        FCB     $0,$E0
2814        FCB     $3,$E0
2815        FCB     $7,$F0
2816        FCB     $0,$0
2817        FCB     $0,$0
2818* frame 5
2819        FCB     $0,$0
2820        FCB     $0,$0
2821        FCB     $0,$20
2822        FCB     $0,$70
2823        FCB     $1,$F0
2824        FCB     $3,$F8
2825        FCB     $0,$0
2826        FCB     $0,$0
2827* frame 6
2828        FCB     $0,$0
2829        FCB     $0,$0
2830        FCB     $0,$10
2831        FCB     $0,$38
2832        FCB     $0,$F8
2833        FCB     $1,$FC
2834        FCB     $0,$0
2835        FCB     $0,$0
2836* frame 7
2837        FCB     $0,$0
2838        FCB     $0,$0
2839        FCB     $0,$8
2840        FCB     $0,$1C
2841        FCB     $0,$7C
2842        FCB     $0,$FE
2843        FCB     $0,$0
2844        FCB     $0,$0
2845
2846
2847* Dir 8 *******************************
2848* frame 0
2849        FCB     $0,$0
2850        FCB     $0,$0
2851        FCB     $3,$0
2852        FCB     $F,$0
2853        FCB     $3F,$0
2854        FCB     $F,$0
2855        FCB     $3,$0
2856        FCB     $0,$0
2857* frame 1
2858        FCB     $0,$0
2859        FCB     $0,$0
2860        FCB     $1,$80
2861        FCB     $7,$80
2862        FCB     $1F,$80
2863        FCB     $7,$80
2864        FCB     $1,$80
2865        FCB     $0,$0
2866* frame 2
2867        FCB     $0,$0
2868        FCB     $0,$0
2869        FCB     $0,$C0
2870        FCB     $3,$C0
2871        FCB     $F,$C0
2872        FCB     $3,$C0
2873        FCB     $0,$C0
2874        FCB     $0,$0
2875* frame 3
2876        FCB     $0,$0
2877        FCB     $0,$0
2878        FCB     $0,$60
2879        FCB     $1,$E0
2880        FCB     $7,$E0
2881        FCB     $1,$E0
2882        FCB     $0,$60
2883        FCB     $0,$0
2884* frame 4
2885        FCB     $0,$0
2886        FCB     $0,$0
2887        FCB     $0,$30
2888        FCB     $0,$F0
2889        FCB     $3,$F0
2890        FCB     $0,$F0
2891        FCB     $0,$30
2892        FCB     $0,$0
2893* frame 5
2894        FCB     $0,$0
2895        FCB     $0,$0
2896        FCB     $0,$18
2897        FCB     $0,$78
2898        FCB     $1,$F8
2899        FCB     $0,$78
2900        FCB     $0,$18
2901        FCB     $0,$0
2902* frame 6
2903        FCB     $0,$0
2904        FCB     $0,$0
2905        FCB     $0,$C
2906        FCB     $0,$3C
2907        FCB     $0,$FC
2908        FCB     $0,$3C
2909        FCB     $0,$C
2910        FCB     $0,$0
2911* frame 7
2912        FCB     $0,$0
2913        FCB     $0,$0
2914        FCB     $0,$6
2915        FCB     $0,$1E
2916        FCB     $0,$7E
2917        FCB     $0,$1E
2918        FCB     $0,$6
2919        FCB     $0,$0
2920
2921
2922* Dir 9 *******************************
2923* frame 0
2924        FCB     $0,$0
2925        FCB     $0,$0
2926        FCB     $0,$0
2927        FCB     $7F,$0
2928        FCB     $3E,$0
2929        FCB     $E,$0
2930        FCB     $4,$0
2931        FCB     $0,$0
2932* frame 1
2933        FCB     $0,$0
2934        FCB     $0,$0
2935        FCB     $0,$0
2936        FCB     $3F,$80
2937        FCB     $1F,$0
2938        FCB     $7,$0
2939        FCB     $2,$0
2940        FCB     $0,$0
2941* frame 2
2942        FCB     $0,$0
2943        FCB     $0,$0
2944        FCB     $0,$0
2945        FCB     $1F,$C0
2946        FCB     $F,$80
2947        FCB     $3,$80
2948        FCB     $1,$0
2949        FCB     $0,$0
2950* frame 3
2951        FCB     $0,$0
2952        FCB     $0,$0
2953        FCB     $0,$0
2954        FCB     $F,$E0
2955        FCB     $7,$C0
2956        FCB     $1,$C0
2957        FCB     $0,$80
2958        FCB     $0,$0
2959* frame 4
2960        FCB     $0,$0
2961        FCB     $0,$0
2962        FCB     $0,$0
2963        FCB     $7,$F0
2964        FCB     $3,$E0
2965        FCB     $0,$E0
2966        FCB     $0,$40
2967        FCB     $0,$0
2968* frame 5
2969        FCB     $0,$0
2970        FCB     $0,$0
2971        FCB     $0,$0
2972        FCB     $3,$F8
2973        FCB     $1,$F0
2974        FCB     $0,$70
2975        FCB     $0,$20
2976        FCB     $0,$0
2977* frame 6
2978        FCB     $0,$0
2979        FCB     $0,$0
2980        FCB     $0,$0
2981        FCB     $1,$FC
2982        FCB     $0,$F8
2983        FCB     $0,$38
2984        FCB     $0,$10
2985        FCB     $0,$0
2986* frame 7
2987        FCB     $0,$0
2988        FCB     $0,$0
2989        FCB     $0,$0
2990        FCB     $0,$FE
2991        FCB     $0,$7C
2992        FCB     $0,$1C
2993        FCB     $0,$8
2994        FCB     $0,$0
2995
2996
2997* Dir 10 *******************************
2998* frame 0
2999        FCB     $0,$0
3000        FCB     $0,$0
3001        FCB     $20,$0
3002        FCB     $18,$0
3003        FCB     $1E,$0
3004        FCB     $F,$0
3005        FCB     $E,$0
3006        FCB     $4,$0
3007* frame 1
3008        FCB     $0,$0
3009        FCB     $0,$0
3010        FCB     $10,$0
3011        FCB     $C,$0
3012        FCB     $F,$0
3013        FCB     $7,$80
3014        FCB     $7,$0
3015        FCB     $2,$0
3016* frame 2
3017        FCB     $0,$0
3018        FCB     $0,$0
3019        FCB     $8,$0
3020        FCB     $6,$0
3021        FCB     $7,$80
3022        FCB     $3,$C0
3023        FCB     $3,$80
3024        FCB     $1,$0
3025* frame 3
3026        FCB     $0,$0
3027        FCB     $0,$0
3028        FCB     $4,$0
3029        FCB     $3,$0
3030        FCB     $3,$C0
3031        FCB     $1,$E0
3032        FCB     $1,$C0
3033        FCB     $0,$80
3034* frame 4
3035        FCB     $0,$0
3036        FCB     $0,$0
3037        FCB     $2,$0
3038        FCB     $1,$80
3039        FCB     $1,$E0
3040        FCB     $0,$F0
3041        FCB     $0,$E0
3042        FCB     $0,$40
3043* frame 5
3044        FCB     $0,$0
3045        FCB     $0,$0
3046        FCB     $1,$0
3047        FCB     $0,$C0
3048        FCB     $0,$F0
3049        FCB     $0,$78
3050        FCB     $0,$70
3051        FCB     $0,$20
3052* frame 6
3053        FCB     $0,$0
3054        FCB     $0,$0
3055        FCB     $0,$80
3056        FCB     $0,$60
3057        FCB     $0,$78
3058        FCB     $0,$3C
3059        FCB     $0,$38
3060        FCB     $0,$10
3061* frame 7
3062        FCB     $0,$0
3063        FCB     $0,$0
3064        FCB     $0,$40
3065        FCB     $0,$30
3066        FCB     $0,$3C
3067        FCB     $0,$1E
3068        FCB     $0,$1C
3069        FCB     $0,$8
3070
3071
3072* Dir 11 *******************************
3073* frame 0
3074        FCB     $0,$0
3075        FCB     $10,$0
3076        FCB     $18,$0
3077        FCB     $18,$0
3078        FCB     $1C,$0
3079        FCB     $1E,$0
3080        FCB     $1C,$0
3081        FCB     $10,$0
3082* frame 1
3083        FCB     $0,$0
3084        FCB     $8,$0
3085        FCB     $C,$0
3086        FCB     $C,$0
3087        FCB     $E,$0
3088        FCB     $F,$0
3089        FCB     $E,$0
3090        FCB     $8,$0
3091* frame 2
3092        FCB     $0,$0
3093        FCB     $4,$0
3094        FCB     $6,$0
3095        FCB     $6,$0
3096        FCB     $7,$0
3097        FCB     $7,$80
3098        FCB     $7,$0
3099        FCB     $4,$0
3100* frame 3
3101        FCB     $0,$0
3102        FCB     $2,$0
3103        FCB     $3,$0
3104        FCB     $3,$0
3105        FCB     $3,$80
3106        FCB     $3,$C0
3107        FCB     $3,$80
3108        FCB     $2,$0
3109* frame 4
3110        FCB     $0,$0
3111        FCB     $1,$0
3112        FCB     $1,$80
3113        FCB     $1,$80
3114        FCB     $1,$C0
3115        FCB     $1,$E0
3116        FCB     $1,$C0
3117        FCB     $1,$0
3118* frame 5
3119        FCB     $0,$0
3120        FCB     $0,$80
3121        FCB     $0,$C0
3122        FCB     $0,$C0
3123        FCB     $0,$E0
3124        FCB     $0,$F0
3125        FCB     $0,$E0
3126        FCB     $0,$80
3127* frame 6
3128        FCB     $0,$0
3129        FCB     $0,$40
3130        FCB     $0,$60
3131        FCB     $0,$60
3132        FCB     $0,$70
3133        FCB     $0,$78
3134        FCB     $0,$70
3135        FCB     $0,$40
3136* frame 7
3137        FCB     $0,$0
3138        FCB     $0,$20
3139        FCB     $0,$30
3140        FCB     $0,$30
3141        FCB     $0,$38
3142        FCB     $0,$3C
3143        FCB     $0,$38
3144        FCB     $0,$20
3145
3146
3147* Dir 12 *******************************
3148* frame 0
3149        FCB     $0,$0
3150        FCB     $0,$0
3151        FCB     $8,$0
3152        FCB     $8,$0
3153        FCB     $1C,$0
3154        FCB     $1C,$0
3155        FCB     $3E,$0
3156        FCB     $3E,$0
3157* frame 1
3158        FCB     $0,$0
3159        FCB     $0,$0
3160        FCB     $4,$0
3161        FCB     $4,$0
3162        FCB     $E,$0
3163        FCB     $E,$0
3164        FCB     $1F,$0
3165        FCB     $1F,$0
3166* frame 2
3167        FCB     $0,$0
3168        FCB     $0,$0
3169        FCB     $2,$0
3170        FCB     $2,$0
3171        FCB     $7,$0
3172        FCB     $7,$0
3173        FCB     $F,$80
3174        FCB     $F,$80
3175* frame 3
3176        FCB     $0,$0
3177        FCB     $0,$0
3178        FCB     $1,$0
3179        FCB     $1,$0
3180        FCB     $3,$80
3181        FCB     $3,$80
3182        FCB     $7,$C0
3183        FCB     $7,$C0
3184* frame 4
3185        FCB     $0,$0
3186        FCB     $0,$0
3187        FCB     $0,$80
3188        FCB     $0,$80
3189        FCB     $1,$C0
3190        FCB     $1,$C0
3191        FCB     $3,$E0
3192        FCB     $3,$E0
3193* frame 5
3194        FCB     $0,$0
3195        FCB     $0,$0
3196        FCB     $0,$40
3197        FCB     $0,$40
3198        FCB     $0,$E0
3199        FCB     $0,$E0
3200        FCB     $1,$F0
3201        FCB     $1,$F0
3202* frame 6
3203        FCB     $0,$0
3204        FCB     $0,$0
3205        FCB     $0,$20
3206        FCB     $0,$20
3207        FCB     $0,$70
3208        FCB     $0,$70
3209        FCB     $0,$F8
3210        FCB     $0,$F8
3211* frame 7
3212        FCB     $0,$0
3213        FCB     $0,$0
3214        FCB     $0,$10
3215        FCB     $0,$10
3216        FCB     $0,$38
3217        FCB     $0,$38
3218        FCB     $0,$7C
3219        FCB     $0,$7C
3220
3221
3222* Dir 13 *******************************
3223* frame 0
3224        FCB     $0,$0
3225        FCB     $4,$0
3226        FCB     $C,$0
3227        FCB     $C,$0
3228        FCB     $1C,$0
3229        FCB     $3C,$0
3230        FCB     $1C,$0
3231        FCB     $4,$0
3232* frame 1
3233        FCB     $0,$0
3234        FCB     $2,$0
3235        FCB     $6,$0
3236        FCB     $6,$0
3237        FCB     $E,$0
3238        FCB     $1E,$0
3239        FCB     $E,$0
3240        FCB     $2,$0
3241* frame 2
3242        FCB     $0,$0
3243        FCB     $1,$0
3244        FCB     $3,$0
3245        FCB     $3,$0
3246        FCB     $7,$0
3247        FCB     $F,$0
3248        FCB     $7,$0
3249        FCB     $1,$0
3250* frame 3
3251        FCB     $0,$0
3252        FCB     $0,$80
3253        FCB     $1,$80
3254        FCB     $1,$80
3255        FCB     $3,$80
3256        FCB     $7,$80
3257        FCB     $3,$80
3258        FCB     $0,$80
3259* frame 4
3260        FCB     $0,$0
3261        FCB     $0,$40
3262        FCB     $0,$C0
3263        FCB     $0,$C0
3264        FCB     $1,$C0
3265        FCB     $3,$C0
3266        FCB     $1,$C0
3267        FCB     $0,$40
3268* frame 5
3269        FCB     $0,$0
3270        FCB     $0,$20
3271        FCB     $0,$60
3272        FCB     $0,$60
3273        FCB     $0,$E0
3274        FCB     $1,$E0
3275        FCB     $0,$E0
3276        FCB     $0,$20
3277* frame 6
3278        FCB     $0,$0
3279        FCB     $0,$10
3280        FCB     $0,$30
3281        FCB     $0,$30
3282        FCB     $0,$70
3283        FCB     $0,$F0
3284        FCB     $0,$70
3285        FCB     $0,$10
3286* frame 7
3287        FCB     $0,$0
3288        FCB     $0,$8
3289        FCB     $0,$18
3290        FCB     $0,$18
3291        FCB     $0,$38
3292        FCB     $0,$78
3293        FCB     $0,$38
3294        FCB     $0,$8
3295
3296
3297* Dir 14 *******************************
3298* frame 0
3299        FCB     $0,$0
3300        FCB     $0,$0
3301        FCB     $2,$0
3302        FCB     $C,$0
3303        FCB     $3C,$0
3304        FCB     $78,$0
3305        FCB     $38,$0
3306        FCB     $10,$0
3307* frame 1
3308        FCB     $0,$0
3309        FCB     $0,$0
3310        FCB     $1,$0
3311        FCB     $6,$0
3312        FCB     $1E,$0
3313        FCB     $3C,$0
3314        FCB     $1C,$0
3315        FCB     $8,$0
3316* frame 2
3317        FCB     $0,$0
3318        FCB     $0,$0
3319        FCB     $0,$80
3320        FCB     $3,$0
3321        FCB     $F,$0
3322        FCB     $1E,$0
3323        FCB     $E,$0
3324        FCB     $4,$0
3325* frame 3
3326        FCB     $0,$0
3327        FCB     $0,$0
3328        FCB     $0,$40
3329        FCB     $1,$80
3330        FCB     $7,$80
3331        FCB     $F,$0
3332        FCB     $7,$0
3333        FCB     $2,$0
3334* frame 4
3335        FCB     $0,$0
3336        FCB     $0,$0
3337        FCB     $0,$20
3338        FCB     $0,$C0
3339        FCB     $3,$C0
3340        FCB     $7,$80
3341        FCB     $3,$80
3342        FCB     $1,$0
3343* frame 5
3344        FCB     $0,$0
3345        FCB     $0,$0
3346        FCB     $0,$10
3347        FCB     $0,$60
3348        FCB     $1,$E0
3349        FCB     $3,$C0
3350        FCB     $1,$C0
3351        FCB     $0,$80
3352* frame 6
3353        FCB     $0,$0
3354        FCB     $0,$0
3355        FCB     $0,$8
3356        FCB     $0,$30
3357        FCB     $0,$F0
3358        FCB     $1,$E0
3359        FCB     $0,$E0
3360        FCB     $0,$40
3361* frame 7
3362        FCB     $0,$0
3363        FCB     $0,$0
3364        FCB     $0,$4
3365        FCB     $0,$18
3366        FCB     $0,$78
3367        FCB     $0,$F0
3368        FCB     $0,$70
3369        FCB     $0,$20
3370
3371
3372* Dir 15 *******************************
3373* frame 0
3374        FCB     $0,$0
3375        FCB     $0,$0
3376        FCB     $0,$0
3377        FCB     $7F,$0
3378        FCB     $3E,$0
3379        FCB     $38,$0
3380        FCB     $10,$0
3381        FCB     $0,$0
3382* frame 1
3383        FCB     $0,$0
3384        FCB     $0,$0
3385        FCB     $0,$0
3386        FCB     $3F,$80
3387        FCB     $1F,$0
3388        FCB     $1C,$0
3389        FCB     $8,$0
3390        FCB     $0,$0
3391* frame 2
3392        FCB     $0,$0
3393        FCB     $0,$0
3394        FCB     $0,$0
3395        FCB     $1F,$C0
3396        FCB     $F,$80
3397        FCB     $E,$0
3398        FCB     $4,$0
3399        FCB     $0,$0
3400* frame 3
3401        FCB     $0,$0
3402        FCB     $0,$0
3403        FCB     $0,$0
3404        FCB     $F,$E0
3405        FCB     $7,$C0
3406        FCB     $7,$0
3407        FCB     $2,$0
3408        FCB     $0,$0
3409* frame 4
3410        FCB     $0,$0
3411        FCB     $0,$0
3412        FCB     $0,$0
3413        FCB     $7,$F0
3414        FCB     $3,$E0
3415        FCB     $3,$80
3416        FCB     $1,$0
3417        FCB     $0,$0
3418* frame 5
3419        FCB     $0,$0
3420        FCB     $0,$0
3421        FCB     $0,$0
3422        FCB     $3,$F8
3423        FCB     $1,$F0
3424        FCB     $1,$C0
3425        FCB     $0,$80
3426        FCB     $0,$0
3427* frame 6
3428        FCB     $0,$0
3429        FCB     $0,$0
3430        FCB     $0,$0
3431        FCB     $1,$FC
3432        FCB     $0,$F8
3433        FCB     $0,$E0
3434        FCB     $0,$40
3435        FCB     $0,$0
3436* frame 7
3437        FCB     $0,$0
3438        FCB     $0,$0
3439        FCB     $0,$0
3440        FCB     $0,$FE
3441        FCB     $0,$7C
3442        FCB     $0,$70
3443        FCB     $0,$20
3444        FCB     $0,$0
Note: See TracBrowser for help on using the repository browser.