/[projet1]/public/atari/tools/MOULINEX/PUTEGFA.S
Defence Force logotype

Annotation of /public/atari/tools/MOULINEX/PUTEGFA.S

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1389 - (hide annotations)
Tue Mar 7 19:16:33 2017 UTC (2 years, 7 months ago) by dbug
File size: 2810 byte(s)
Added Moulinex, old tool to convert MOD files to LOW format and vice versa
1 dbug 1389 de
2     *** pour le dbuging
3     jmp aille(pc)
4     adrdebut
5     dc.l 0 *adr debut buffer
6     adrfin
7     dc.l 0 *adr fin buffer
8     adrdebutboucle
9     dc.l 0 *adr debut boucle
10     adrfinboucle
11     dc.l 0 *adr fin boucle
12     ordre
13     dc.w 0 *ordre ????
14    
15     aille
16     opt w-,o+,d+
17    
18     pea debut(pc)
19     move #$26,-(sp)
20     trap #14
21     addq.l #6,sp
22     rts
23     debut
24    
25     * type de support exterieur present ...
26     move #$2700,sr
27     lea adr_replay(pc),a0
28     move.l adrdebut(pc),(a0)
29    
30     lea s_smfp(pc),a1
31     move.b $fffffa07.w,(a1)+
32     move.b $fffffa09.w,(a1)+
33     move.b $fffffa13.w,(a1)+
34     move.b $fffffa17.w,(a1)+
35     clr.b $fffffa07.w
36     clr.b $fffffa09.w
37    
38     * init yamaha ...
39     lea $ffff8800.w,a0
40     move.l #00000000,(a0)
41     move.l #01000000,(a0)
42     move.l #02000000,(a0)
43     move.l #03000000,(a0)
44     move.l #04000000,(a0)
45     move.l #05000000,(a0)
46     move.l #06000000,(a0)
47     move.b #7,(a0)
48     lea sym(pc),a1
49     move.b 2(a0),(a1)
50     move.b #$ff,2(a0)
51    
52     move.b #2,$fffffa19.w
53     move.b #24,$fffffa1f.w
54     bclr #3,$fffffa17.w
55     bset #5,$fffffa07.w
56     bset #5,$fffffa13.w
57     ; bset #6,$fffffa09.w
58     ; bset #6,$fffffa15.w
59    
60     lea s_134(pc),a0
61     move.l $134.w,(a0)
62    
63     lea routine_timer_a(pc),a0
64     move.l a0,$134.w
65    
66     ; lea s_118(pc),a0
67     ; move.l $118.w,(a0)
68     ; lea n118(pc),a0
69     ; move.l a0,$118.w
70    
71     ; lea s_70(pc),a0
72     ; move.l $70.w,(a0)
73     ; lea vbl(pc),a0
74     ; move.l a0,$70.w
75    
76     lea space(pc),a0
77     clr (a0)
78     move #$2300,sr
79     att
80     ; tst.b (a0)
81     ;beq.s att
82     dcb 100,$4e71
83     cmp #$b9,$fffffc02.w
84     bne att
85     ; move #7,-(sp)
86     ; trap #1
87     ; addq.l #2,sp
88    
89     move.w #$2700,sr
90     lea $ffff8800.w,a0
91     move.b #7,(a0)
92     move.b sym,2(a0)
93    
94     move #$777,$ffff8240.w
95    
96     ; lea s_118(pc),a0
97     ; move.l (a0),$118.w
98    
99     lea s_134(pc),a0
100     move.l (a0),$134.w
101    
102     ; lea s_70(pc),a0
103     ;move.l (a0),$70.w
104    
105     move.b s_smfp(pc),$fffffa07.w
106     move.b s_smfp+1(pc),$fffffa09.w
107     move.b s_smfp+2(pc),$fffffa13.w
108     move.b s_smfp+3(pc),$fffffa17.w
109     move.w #$2300,sr
110     rts
111    
112     Routine_timer_a
113     movem.l d0-d2/a0-a2,-(sp)
114    
115     lea adr_replay(pc),a0
116     move.l (a0),a1
117     lea adrfin(pc),a2
118     cmp.l (a2),a1
119     blt.s ok
120     lea ordre(pc),a2
121     tst (a2)
122     beq.s oups
123     lea space(pc),a2
124     move.b #1,(a2)
125     bra end_timer
126     oups
127     move.l adrdebutboucle(pc),(a0)
128     move.l adrfinboucle(pc),(a2)
129     ok
130     addq.l #1,(a0)
131    
132     tst (a2)
133     beq.s rep
134     move.b $fffb0001,(a1)
135     rep
136     moveq #0,d0
137     move.b (a1)+,d0
138     lsl #3,d0
139     lea $ffff8800.w,a0
140     move.l digitab(pc,d0.w),(a0)
141     move.l digitab+4(pc,d0.w),d1
142     movep.l d1,(a0)
143     end_timer
144     movem.l (sp)+,d0-d2/a0-a2
145     rte
146    
147     n118
148     move.l a0,-(sp)
149     btst #5,$fffffc00.w
150     bne.s end_118
151     btst #0,$fffffc00.w
152     beq.s end_118
153     cmp.b #$b9,$fffffc02.w
154     bne.s end_118
155     lea space(pc),a0
156     move.b #1,(a0)
157     end_118
158     move.l (sp)+,a0
159     vbl
160     rte
161    
162     digitab incbin digital.bin
163     even
164    
165     adr_replay ds.l 1
166     s_smfp ds.l 1
167     space ds.w 1
168     sym ds.w 1
169     s_70 ds.l 1
170     s_134 ds.l 1
171     s_118 ds.l 1
172     fin

  ViewVC Help
Powered by ViewVC 1.1.26