source: thomson/code/3rdparty/sources3-lambinet/STI Serveur Telematique Interactif/LANCESTI.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: 5.6 KB
Line 
1
2****** ** ** ***** ***** ****
3****** ** ** ****** ****** ****** *
4 ** ** ** ** ** ** ** ** ** ***
5 ** ** ** ** ** ** ** ** ** ** **
6 ** ** ** ***** ***** ** ** ** **
7 ** ** ** ****** ***** ** ** ** **
8 ** ** ** ** ** ** ** ** ** ** **
9 ** ** ** ** ** ** ** ** ** ***
10 ** ****** ** ** ****** ****** *
11 ** **** ** ** ***** ****
12
13
14 ORG $8000
15
16DEBUT LDS #$9FFF
17 LDD #$60F8
18 TFR A,DP
19 LDA <$19
20 ORA #2
21 STA <$19
22 JSR $E806
23 LDA #$65
24 STA $E7C3
25 LDX #$8000
26 STX <$4F
27 LDY #$6200
28 CLRB
29C0 LDA ,Y+
30 STA ,X+
31 DECB
32 BNE C0
33 LDD #$5494
34 STA $E7E7
35 STA <$81
36 STB <$CD
37 LDD #$0610
38 STA $618C
39 INCA
40 STA <$47
41 STB $E7E5
42 LDX #C2
43 LDU #$601A
44C1 LDA ,X+
45 STA ,U+
46 BNE C1
47 LDX #C4
48AFF LDB ,X+
49 JSR $E803
50 BNE AFF
51 CLRA
52 STA <$49
53 STA <$4B
54 INCA
55 STA <$4C
56 INCA
57 STA <$48
58 BSR C3
59 BSR C3
60 JMP C5
61C3 INC <$4F
62 INC <$4C
63 JMP $E004
64C2 FCB $F0,9,$F0,1,$F0,$17,0
65
66 ORG $8080
67
68C4 FCB 0
69
70 ORG $80F0
71
72FACPIS FDB $014F
73NBBANK FCB 8
74BANK1 FCB 7
75FLGLE FCB 255
76FLGPB FCB 0
77FLGPAS FCB 0
78COMPT FCB 0
79NESSAI FCB 0
80SAVEX FDB 0
81
82*********** SECTEURS 2 ET 3 **********
83
84
85 ORG $8100
86
87*** CHARGEMENT DES 1024 SECTEURS ***
88
89C5 LDX #$9D00
90 STX <$4F
91ZERO CLR ,-X
92 CMPX #$8CFF
93 BHI ZERO
94NTRACK LDA #$11
95 STA <$4C
96 LDX #$0201
97 STX <$48
98 JSR $E004
99 LDX #$9D00
100 LEAY -$100,X
101 LDB #6
102DATE LDA ,X+
103 CMPA ,Y+
104 BLO SEC16
105 BHI COPY0
106 DECB
107 BNE DATE
108COPY0 LDX #$9D00
109 LEAY -$100,X
110 CLRB
111COPY1 LDA ,X+
112 STA ,Y+
113 DECB
114 BNE COPY1
115SEC16 DEC <$4C
116LIRSEC LDX #$0201
117 STX <$48
118 JSR $E004
119 TST <$4E
120 BEQ ECRSEC
121 LDX #$FFF7
122 STX $9D00
123 STX $9D80
124ECRSEC LDX #$0804
125 STX <$48
126 JSR $E004
127 DEC <$4C
128 BNE LIRSEC
129 INC <$4B
130 LDA <$4B
131 CMPA #64
132 BLO NTRACK
133 LDX $9C00
134 STX <$7C
135 LDA $9C02
136 STA <$7E
137 LDA #$82
138 STA <$CD
139
140************* TURBO ***********
141
142 LDD FACPIS
143 DECA
144 BNE ADR01
145 INCB
146 BRA ADR02
147ADR01 LDA #$01
148ADR02 STA $6049
149 STB $604B
150 LDA BANK1
151 STA $E7E5
152 CLR FLGPB
153NBANK LDA #$03
154 STA COMPT
155 INC $E7E5
156 LDX #$A000
157 STX SAVEX
158NPIST DEC $6049
159 BEQ ADR03
160 DEC $604B
161 LDD #$4001
162 STD $6048
163ADR03 LDA #$03
164 STA NESSAI
165 CLR FLGPAS
166 LDX SAVEX
167 LEAX $1556,X
168 STX COMPB+1
169 ORCC #$50
170DEMAR JSR $E09D
171 JSR $E0A7
172 JSR $E452
173 JSR $E341
174 LDB #$18
175 JSR $E394
176 LDA #$E7
177 TFR A,DP
178 LDY #$0000
179ADR04 LDA <$D1
180 BITA #$40
181 BEQ ADR04
182ADR05 LDA <$D3
183 LDA <$D0
184 BPL ADR05
185ADR06 LDA <$D0
186 BPL ADR06
187LIRE LDA <$D3
188ADR16 LDA <$D0
189 BPL ADR16
190 BITA #$01
191 BNE LIRE
192 CLRB
193 LDX SAVEX
194 LDA <$D3
195ADR17 LDA <$D0
196 BPL ADR17
197 LDA <$D3
198 CMPA #$FB
199 BEQ ADR18
200 DECB
201 BNE ADR17
202 BRA ERROR
203ADR18 LDA <$D0
204 BPL ADR18
205 LDA <$D3
206 STA ,X+
207 LEAY A,Y
208COMPB CMPX #$E002
209 BNE ADR18
210 TFR Y,D
211ADR19 TST <$D0
212 BPL ADR19
213 CMPA <$D3
214 BNE ERROR
215ADR20 TST <$D0
216 BPL ADR20
217 CMPB <$D3
218 BEQ ADR21
219ERROR DEC NESSAI
220 LBNE DEMAR
221 LDA #$FF
222 STA FLGPB
223ADR21 CLR <$D0
224 LDA #$40
225 STA <$D2
226 LDX COMPB+1
227 STX SAVEX
228 DEC COMPT
229 LBNE NPIST
230 DEC NBBANK
231 LBNE NBANK
232
233
234********** LANCEUR **********
235
236
237 LDD #$6006
238 TFR A,DP
239 STB $E7E5
240 STB >$0001
241 LDX #$9C00
242 STX <$4F
243 LDX #$0804
244 STX <$48
245 LDX #$1401
246 STX <$4B
247 JSR $E004
248 LDX #$2000
249 LDU #$A000
250L0 LDD ,X++
251 STD ,U++
252 CMPX #$4000
253 BNE L0
254 LDX #$0000
255L1 LDD ,X++
256 STD ,U++
257 CMPX #$2000
258 BNE L1
259 LDD #$1212
260 STA $C021
261 STD $C022
262 LDA #$7A
263 STA $C026
264 LDD #$E7E6
265 STD $C027
266 LDD #$6301
267 STD $C19C
268 DEC $E7E5
269 STA >$0000
270 LDX #$2000
271 LDU #$A000
272L2 LDD ,X++
273 STD ,U++
274 CMPX #$4000
275 BNE L2
276 LDX #$0000
277L3 LDD ,X++
278 STD ,U++
279 CMPX #$2000
280 BNE L3
281 LDA #$7C
282 STA $C021
283 LDD #$E7E6
284 STD $C022
285 LDD #$1212
286 STA $C026
287 STD $C027
288 LDD #$847E
289 STA $AB7D
290 LDA #$25
291 LEAX GO,PCR
292 STB $ABBC
293 STX $ABBD
294 CLR $607F
295 CLR $E7E4
296 STA $E7E6
297 JMP $2B52
298GO CLR $E7E6
299 STA >$0000
300 JMP $2452
301FIN NOP
302
303**********************************
304
305 END
Note: See TracBrowser for help on using the repository browser.