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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1389 - (show 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 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