source: thomson/code/3rdparty/sources3-lambinet/Advanced Disk Gesting.ASM@ ceffc47

main
Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: ​svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
  • Property mode set to 100644
File size: 6.6 KB
Line 
1***************************************
2******* Advenced Disks Gesting ********
3******** Micromédia Systèmes *********
4***************************************
5
6
7************** EQUATES ****************
8
9PUTC EQU $E803
10GETC EQU $E806
11KTST EQU $E809
12DKCO EQU $E82A
13COMS EQU $EC03
14EXTR EQU $EC0C
15DIRR EQU $3FC1
16SAISIE EQU $3FC4
17INDGET EQU $600A
18DEFTXT EQU $61E0
19TYPDSK EQU $6219
20FILNAM EQU $624F
21FILCOM EQU $628E
22IWTFLG EQU $62A9
23
24************** PROGRAM ****************
25
26 ORG $9000
27DEBUT PSHS U,Y,X,DP,A,CC
28 LEAX ADGGET,PCR
29 CMPX INDGET
30 BEQ FINDEB
31 LDX INDGET
32 STX ADGGET+3,PCR
33 LEAX TXT0,PCR
34 BSR AFFICH
35 BRA SOR
36REARM LDB #$0C
37 JSR PUTC
38SOR CLRB
39 LEAX ADGGET,PCR
40 STX INDGET
41FINDEB PULS CC,A,DP,X,Y,U,PC
42AFFICH LDB ,X+
43 CMPB #00
44 BEQ FINAFF
45 JSR PUTC
46 BRA AFFICH
47FINAFF RTS
48SORTIE LDX ADGGET+3,PCR
49 STX INDGET
50 LEAX TXT1,PCR
51 BSR AFFICH
52FINSOR PULS CC,A,DP,X,Y,U,PC
53ADGGET PSHS U,Y,X,DP,A,CC
54 JSR $FF92
55F0 CMPB #$90
56 BNE F1
57 LEAX TXT2,PCR
58 BRA COMDIR COMMANDE DIRECTE
59F1 CMPB #$91
60 BNE F3
61 LEAX TXT3,PCR
62COMDIR STX DEFTXT
63 CLR IWTFLG
64 CLRB
65 PULS CC,A,DP,X,Y,U,PC
66EXIT LEAX TXT2-7,PCR
67 BSR AFFICH
68 CLRB
69 PULS CC,A,DP,X,Y,U,PC
70F3 CMPB #$92
71 BNE F5
72 LBSR CONT3P
73 BRA EXIT
74F5 CMPB #$94
75 BNE F6
76 LBSR CONT5P
77 BRA EXIT
78F6 CMPB #$95
79 BEQ SORTIE
80F4 CMPB #$93
81 BEQ COPY
82 PULS CC,A,DP,X,Y,U,PC
83COPY LDX ADGGET+3,PCR
84 STX INDGET
85 LEAX TXT4,PCR
86 BSR AFFICH
87INPUTT JSR GETC
88 CMPB #$33
89 BNE T5
90 JSR PUTC
91 LBSR CONT3P
92 BRA L1
93T5 CMPB #$35
94 BNE INPUTT
95 JSR PUTC
96 LBSR CONT5P
97L1 LEAX TXT5,PCR
98 LBSR AFFICH
99INPUTL JSR GETC
100 CMPB #$30
101 BLO INPUTL
102 CMPB #$34
103 BHI INPUTL
104 BNE PRINTL
105 LDA TYPDSK
106 CMPA #$02
107 BNE INPUTL
108PRINTL JSR PUTC
109 STB TAMPON+6,PCR
110 SUBB #$30
111 STB $6049
112 LDX #FILNAM
113 LDA #$0C
114INIFI1 CLR ,X+
115 DECA
116 BNE INIFI1
117 LDD #$0820
118INIFI2 STB ,X+
119 DECA
120 BNE INIFI2
121 LDA #$7E
122 STA ,X+
123 LEAU CATRED,PCR
124 STU ,X
125 LEAX ADGGET,PCR
126 STX INDGET
127 LEAX TXT9,PCR
128 LBRA COMDIR
129
130*************************
131* *
132* Catalogue réduit *
133* *
134*************************
135
136CATRED PSHS U,Y,X,DP,A,CC
137 LEAX TXT7,PCR
138 LBSR AFFICH
139 LDA $618C
140 DECA
141 STA $E7E5
142 LDA $603B
143 ANDA #$78
144 LSRA
145 LSRA
146 LSRA
147 BITA #$08
148 BNE SAT
149 ORA #$08
150 BRA COLOR
151SAT ANDA #$07
152COLOR STA $619F
153 LDA #$FF
154 STA $6288
155 LDA #$00
156 STA $61A0
157 LDX #$A000
158 LDY #$1700
159 LDA #$03
160 LDU #DIRR
161 JSR COMS
162 TSTB
163 LBNE REARM
164RTCOP LEAY TAMPON,PCR
165 LDX #$0C43
166 STX ,Y++
167 LDX #$4F50
168 STX ,Y++
169 LDX #$5922
170 STX ,Y++
171 LEAY 1,Y
172 LDX #FILNAM
173 LDD #$3A08
174 STA ,Y+
175COPNOM LDA ,X+
176 STA ,Y+
177 DECB
178 BNE COPNOM
179 LDD #$2E03
180 STA ,Y+
181COPSUF LDA ,X+
182 STA ,Y+
183 DECB
184 BNE COPSUF
185 LDA #$22
186 STA ,Y+
187 LDX #$0D00
188 STX ,Y
189 LEAX AUTO,PCR
190 STX INDGET
191 PULS CC,A,DP,X,Y,U,PC
192
193********************************
194* *
195* AUTO (Reprise automatique *
196* en fin de Catalogue réduit *
197* *
198********************************
199
200AUTO PSHS U,Y,X,DP,A,CC
201 LEAX AUTO2,PCR
202 STX INDGET
203 LEAX TAMPON,PCR
204 LBRA COMDIR
205
206********************************
207* *
208* AUTO2 (Reprise automatique *
209* lors de l'Insert a disk ... *
210* *
211********************************
212
213AUTO2 PSHS U,Y,X,DP,A,CC
214 LDX $09,S
215 CMPX #$3D19
216 BEQ CONT
217 LEAS $1D,S
218 LBRA REARM
219CONT LDX ADGGET+3,PCR
220 STX INDGET
221 LEAX TXT4,PCR
222 LBSR AFFICH
223 LEAX TXT6,PCR
224 LBSR AFFICH
225INPU2T JSR GETC
226 CMPB #$33
227 BNE T52
228 JSR PUTC
229 LBSR CONT3P
230 BRA L2
231T52 CMPB #$35
232 BNE INPU2T
233 JSR PUTC
234 LBSR CONT5P
235L2 LEAX TXT5,PCR
236 LBSR AFFICH
237INPU2L JSR GETC
238 CMPB #$30
239 BLO INPU2L
240 CMPB #$34
241 BHI INPU2L
242 BNE PRIN2L
243 LDA TYPDSK
244 CMPA #$02
245 BNE INPU2L
246PRIN2L JSR PUTC
247 SUBB #$30
248 STB LECT+1,PCR
249 STB $6049
250 LDX #FILCOM
251 LDY #FILNAM+11
252 LDB #8
253COMMEN LDA ,X+
254 STA ,Y+
255 DECB
256 BNE COMMEN
257 LEAX TXT8,PCR
258 LBSR AFFICH
259 LDA $618C
260 DECA
261 STA $E7E5
262 LDX #$A000
263 LDY #$1700
264 LDA #$03
265 LDU #SAISIE
266 JSR COMS
267 TSTB
268 LBNE REARM
269 LDX #FILNAM
270 LEAY $11,S
271 LDB #$13
272COPFIL LDA ,X+
273 STA ,Y+
274 DECB
275 BNE COPFIL
276LECT LDA #0
277 STA ,Y
278 LEAX ADGGET,PCR
279 STX INDGET
280 LEAX TXT10,PCR
281 LBSR AFFICH
282 LDB #$0D
283 PULS CC,A,DP,X,Y,U,PC
284CONT3P PSHS U,Y,X,DP,B,A,CC
285 LDA TYPDSK
286 CMPA #$02
287 BEQ FINCON
288 LDD #$0254
289 BRA MODCON
290CONT5P PSHS U,Y,X,DP,B,A,CC
291 LDA TYPDSK
292 CMPA #$01
293 BEQ FINCON
294 LDD #$01D4
295MODCON STA TYPDSK
296 STB $E7E7
297 LDD #$0100
298 STD $6048
299 JSR DKCO
300 LDA #$02
301 STA $604D
302ESSAI2 LDD #$4014
303 STA $6048
304 STB $604B
305 JSR DKCO
306 TST $604E
307 BEQ FINCON
308 DEC $604D
309 BEQ FINCON
310 LDA #$20
311 STA $6048
312 JSR DKCO
313 BRA ESSAI2
314FINCON PULS CC,A,B,DP,X,Y,U,PC
315TAMPON RMB $20
316TXT0 RMB $69
317TXT1 RMB $28
318TXT2 RMB $A
319TXT3 RMB $A
320TXT4 RMB $4D
321TXT5 RMB $22
322TXT6 RMB $D
323TXT7 RMB $5
324TXT8 RMB $4
325TXT9 RMB $D
326TXT10 RMB $4
327 END
Note: See TracBrowser for help on using the repository browser.