1 | ***************************************
|
---|
2 | * *
|
---|
3 | * ***** ***** * Serveur Télématique *
|
---|
4 | * * * Interactif ver. 1.4 *
|
---|
5 | * * * * du 20/09/91 *
|
---|
6 | * ***** * * * ** A.S.C.I. *
|
---|
7 | * * * * ** * * NANCY *
|
---|
8 | * * * * * **** 1991 *
|
---|
9 | * ***** * * * * * Copyright *
|
---|
10 | * *
|
---|
11 | ***************************************
|
---|
12 |
|
---|
13 |
|
---|
14 | ORG $8800
|
---|
15 |
|
---|
16 | TAMPON RMB $180
|
---|
17 |
|
---|
18 | HEURE FCB 0
|
---|
19 | MINUT FCB 0
|
---|
20 | SECON FCB 0
|
---|
21 | DIXIE FCB 0
|
---|
22 | FLGPAL FCB 0
|
---|
23 |
|
---|
24 | LIRE JMP DECOMP lit et décompacte
|
---|
25 | * un message depuis le secteur 4,P
|
---|
26 | * ([$604B]),S([$604C]) pour la par-
|
---|
27 | * tie 0/1 selon la valeur de TAMPON
|
---|
28 | * le message est en clair sur les
|
---|
29 | * 127 premiers octets du secteur
|
---|
30 | * (4,20,1) sur le premier RAM-DISK.
|
---|
31 |
|
---|
32 | SAUVE JMP SAUV cherche une place
|
---|
33 | * libre sur le disque (optimisée),
|
---|
34 | * et l'inscrit en $604B/C et TAMPON
|
---|
35 | * puis saute à ECRIRE.
|
---|
36 |
|
---|
37 | ECRIRE JMP COMPAC compacte le texte
|
---|
38 | * écrit en TAMPON+1 et l'enregistre
|
---|
39 | * sur les disks 1 puis 4 en fonct.
|
---|
40 | * de $604B/$604C et TAMPON (0/1).
|
---|
41 |
|
---|
42 | RECHER JMP CHERCH recherche tous les
|
---|
43 | * messages pour le No inscrit en
|
---|
44 | * TAMPON et en dresse la liste à
|
---|
45 | * partir de $A002 sur la bank cou-
|
---|
46 | * rante (2octets=Piste & Sect/Part)
|
---|
47 | * nombre de messages en $A000
|
---|
48 |
|
---|
49 | PAGTEL JMP PTEL affiche un fichier
|
---|
50 | * .TEL dont le nom est en $624F
|
---|
51 |
|
---|
52 | LIT5 JMP LIRE5 lit le secteur 5'
|
---|
53 | * de no contenu en $6AB2/3 (N%)
|
---|
54 |
|
---|
55 | ECR5 JMP ECRI5 écrit (voir haut)
|
---|
56 |
|
---|
57 | AFF5 JMP AFFIC5 affiche une page
|
---|
58 | * type tel depuis le 5'1/4
|
---|
59 |
|
---|
60 | INIT PSHS A,B,CC,DP,X,Y,U
|
---|
61 | CLR $87FE
|
---|
62 | CLR $87FF
|
---|
63 | LDX $6027
|
---|
64 | STX ANCTI+1
|
---|
65 | LDX #TIMER
|
---|
66 | STX $6027
|
---|
67 | LDA $6019
|
---|
68 | ORA #$20
|
---|
69 | STA $6019
|
---|
70 | LDX #INTER
|
---|
71 | STX $67C1
|
---|
72 | LDA #$7E
|
---|
73 | STA $67C0
|
---|
74 | PULS A,B,CC,DP,X,Y,U,PC
|
---|
75 |
|
---|
76 | HORPLU PSHS A,CC
|
---|
77 | BRA HP
|
---|
78 | HORLOG PSHS A,CC
|
---|
79 | LDA #10
|
---|
80 | STA DIXIE
|
---|
81 | INC SECON
|
---|
82 | LDA SECON
|
---|
83 | CMPA #60
|
---|
84 | BLO PALETT
|
---|
85 | HP CLR SECON
|
---|
86 | INC MINUT
|
---|
87 | LDA MINUT
|
---|
88 | CMPA #60
|
---|
89 | BLO PALETT
|
---|
90 | CLR MINUT
|
---|
91 | INC HEURE
|
---|
92 | LDA HEURE
|
---|
93 | CMPA #24
|
---|
94 | BLO PALETT
|
---|
95 | CLR HEURE
|
---|
96 | INC $607C
|
---|
97 | LDA $607C
|
---|
98 | CMPA #32
|
---|
99 | BEQ MOISUI
|
---|
100 | CMPA #31
|
---|
101 | BNE FEVBIS
|
---|
102 | LDA $607D
|
---|
103 | CMPA #4
|
---|
104 | BEQ MOISUI
|
---|
105 | CMPA #6
|
---|
106 | BEQ MOISUI
|
---|
107 | CMPA #9
|
---|
108 | BEQ MOISUI
|
---|
109 | CMPA #11
|
---|
110 | BEQ MOISUI
|
---|
111 | BRA PALETT
|
---|
112 | FEVBIS CMPA #30
|
---|
113 | BNE FEVNOR
|
---|
114 | LDA $607D
|
---|
115 | CMPA #2
|
---|
116 | BNE PALETT
|
---|
117 | LDA $607E
|
---|
118 | ANDA #3
|
---|
119 | BEQ MOISUI
|
---|
120 | BRA PALETT
|
---|
121 | FEVNOR CMPA #29
|
---|
122 | BNE PALETT
|
---|
123 | LDA $607D
|
---|
124 | CMPA #2
|
---|
125 | BNE PALETT
|
---|
126 | LDA $607E
|
---|
127 | ANDA #3
|
---|
128 | BEQ PALETT
|
---|
129 | MOISUI LDA #1
|
---|
130 | STA $607C
|
---|
131 | INC $607D
|
---|
132 | LDA $607D
|
---|
133 | CMPA #13
|
---|
134 | BNE PALETT
|
---|
135 | LDA #1
|
---|
136 | STA $607D
|
---|
137 | INC $607E
|
---|
138 | PALETT PULS A,CC,PC
|
---|
139 |
|
---|
140 | TIMER PSHS A,CC
|
---|
141 | DEC DIXIE
|
---|
142 | BNE SORTIM
|
---|
143 | PSHS B,X,Y
|
---|
144 | LBSR HORLOG
|
---|
145 | LDX #PAL
|
---|
146 | LDA $6AD6
|
---|
147 | CMPA #1
|
---|
148 | BNE SORPAL
|
---|
149 | LDA FLGPAL
|
---|
150 | INCA
|
---|
151 | ANDA #1
|
---|
152 | STA FLGPAL
|
---|
153 | BEQ PAL0
|
---|
154 | LEAX 16,X
|
---|
155 | PAL0 TST $E7E7
|
---|
156 | BPL PAL0
|
---|
157 | PAL1 TST $E7E7
|
---|
158 | BMI PAL1
|
---|
159 | LDY #$200
|
---|
160 | PAL2 LEAY -1,Y
|
---|
161 | BNE PAL2
|
---|
162 | LDY #$E7DA
|
---|
163 | CLR 1,Y
|
---|
164 | LDB #32
|
---|
165 | PAL3 LDA ,X+
|
---|
166 | STA ,Y
|
---|
167 | DECB
|
---|
168 | BNE PAL3
|
---|
169 | SORPAL PULS B,X,Y
|
---|
170 | SORTIM PULS A,CC
|
---|
171 | ANCTI JMP $FFFF
|
---|
172 |
|
---|
173 | PAL FDB $0000,$0F00,$F000,$FF00
|
---|
174 | FDB $000F,$0F0F,$F00F,$FF0F
|
---|
175 | FDB $0000,$0F00,$F000,$FF00
|
---|
176 | FDB $000F,$0F0F,$F00F,$FF0F
|
---|
177 | FDB $0000,$0000,$0000,$0000
|
---|
178 | FDB $0000,$0000,$0000,$0000
|
---|
179 |
|
---|
180 | INTER PSHS CC,X
|
---|
181 | CMPA #$AB =PRINT
|
---|
182 | BNE QUIT
|
---|
183 | LDX $61C7
|
---|
184 | LDX 1,X
|
---|
185 | CMPX #$2330 APPEL EMISSION
|
---|
186 | BEQ MODEM CANAL 0
|
---|
187 | CMPX #$2322 RETOUR D'EMISSION
|
---|
188 | BEQ PRINT
|
---|
189 | CMPX #$2323 EMISSION CANAL 1
|
---|
190 | BNE QUIT
|
---|
191 | LDX SAVPTR
|
---|
192 | STX $61C7
|
---|
193 | QUIT PULS CC,X,PC
|
---|
194 |
|
---|
195 | MODEM PULS CC,X
|
---|
196 | PSHS A,B,CC,DP,X,Y,U
|
---|
197 | LDX #ZONE
|
---|
198 | LDY #POKE
|
---|
199 | BSR COPIE
|
---|
200 | LDX $61C7
|
---|
201 | LEAX 4,X
|
---|
202 | CLRB
|
---|
203 | AUTRE LDA ,X+
|
---|
204 | BEQ M2
|
---|
205 | CMPA #$22
|
---|
206 | BNE M0
|
---|
207 | COMB
|
---|
208 | M0 TSTB
|
---|
209 | BNE M1
|
---|
210 | CMPA #$3A
|
---|
211 | BEQ M2
|
---|
212 | M1 STA ,Y+
|
---|
213 | BRA AUTRE
|
---|
214 | M2 LEAX -3,X
|
---|
215 | LDA 1,X
|
---|
216 | CMPA #$3B
|
---|
217 | BNE ERROR
|
---|
218 | STX SAVPTR
|
---|
219 | LDX #ZONE+11
|
---|
220 | LEAY -1,Y
|
---|
221 | BSR COPIE
|
---|
222 | LDX #POKE-1
|
---|
223 | STX $61C7
|
---|
224 | LDX #TAMPON
|
---|
225 | BLANC CLR ,X+
|
---|
226 | CMPX #TAMPON+300
|
---|
227 | BLO BLANC
|
---|
228 | ERROR PULS A,B,CC,DP,X,Y,U,PC
|
---|
229 |
|
---|
230 | COPIE LDA ,X+
|
---|
231 | BEQ FINCOP
|
---|
232 | STA ,Y+
|
---|
233 | BRA COPIE
|
---|
234 | FINCOP RTS
|
---|
235 |
|
---|
236 | PRINT PULS CC,X
|
---|
237 | PSHS A,B,CC,DP,X,Y,U
|
---|
238 | LDY #POKE-1
|
---|
239 | STY $61C7
|
---|
240 | LEAY 1,Y
|
---|
241 | LDX #ZONE+16
|
---|
242 | BSR COPIE
|
---|
243 | LDX #TAMPON
|
---|
244 | LDA $6AD6
|
---|
245 | CMPA #2
|
---|
246 | BNE MODIF
|
---|
247 | CLR ,Y+
|
---|
248 | CLR ,Y+
|
---|
249 | MODIF LDA ,X+
|
---|
250 | LBEQ FINMOD
|
---|
251 | CMPA #$5C \ escape
|
---|
252 | BEQ ESCAPE
|
---|
253 | CMPA #$16
|
---|
254 | BNE CARAC
|
---|
255 | LDB $6AD6
|
---|
256 | CMPB #1
|
---|
257 | BEQ CARAC
|
---|
258 | ADDA #3
|
---|
259 | CARAC STA ,Y+
|
---|
260 | BRA MODIF
|
---|
261 |
|
---|
262 | ESCSUI LDA ,X+
|
---|
263 | LBEQ FINMOD
|
---|
264 | CMPA #$3A
|
---|
265 | BEQ ESC0
|
---|
266 | CMPA #$5C
|
---|
267 | BNE ESCSUI
|
---|
268 | BRA MODIF
|
---|
269 |
|
---|
270 | ESCAPE LDA ,X+
|
---|
271 | LBEQ FINMOD
|
---|
272 | CMPA #$5C \ si \\ alors \
|
---|
273 | BEQ CARAC
|
---|
274 | BRA ESC1
|
---|
275 | ESC0 LDA ,X+
|
---|
276 | LBEQ FINMOD
|
---|
277 | CMPA #$5C \ sortie ESCAPE
|
---|
278 | BEQ MODIF
|
---|
279 | ESC1 CMPA #$41 A (ATTRB)
|
---|
280 | BNE ESC2
|
---|
281 | LBSR PARA
|
---|
282 | LDB $6A58
|
---|
283 | LDU #PARA1
|
---|
284 | LDA ,U+
|
---|
285 | BMI ATT2
|
---|
286 | BEQ ATT1
|
---|
287 | ORB #2
|
---|
288 | BRA ATT2
|
---|
289 | ATT1 ANDB #1
|
---|
290 | ATT2 TST ,U+
|
---|
291 | BMI ATT4
|
---|
292 | BEQ ATT3
|
---|
293 | ORB #1
|
---|
294 | BRA ATT4
|
---|
295 | ATT3 ANDB #2
|
---|
296 | ATT4 ANDB #3
|
---|
297 | STB $6A58
|
---|
298 | ADDB #$4C
|
---|
299 | LDA #$1B
|
---|
300 | STD ,Y++
|
---|
301 | LDB ,U+
|
---|
302 | BMI ATT5
|
---|
303 | ANDB #1
|
---|
304 | STB $6AAC
|
---|
305 | BEQ ATT6
|
---|
306 | LDB #$58
|
---|
307 | BRA ATT7
|
---|
308 | ATT6 LDB #$5F
|
---|
309 | ATT7 STD ,Y++
|
---|
310 | ATT5 LBRA ESCSUI
|
---|
311 |
|
---|
312 | ESC2 CMPA #$42 B (Beep)
|
---|
313 | BNE ESC3
|
---|
314 | LDB #7
|
---|
315 | STB ,Y+
|
---|
316 | LBRA ESCSUI
|
---|
317 |
|
---|
318 | ESC3 CMPA #$43 C (Couleurs)
|
---|
319 | BNE ESC4
|
---|
320 | LBSR PARA
|
---|
321 | LDU #PARA1
|
---|
322 | LDB ,U+
|
---|
323 | BMI CO0
|
---|
324 | ANDB #$7
|
---|
325 | STB $6A66
|
---|
326 | ADDB #$40
|
---|
327 | LDA $6AD6
|
---|
328 | ANDA #1
|
---|
329 | BEQ CO00
|
---|
330 | TST $6A9E
|
---|
331 | BEQ CO00
|
---|
332 | ADDB #$30
|
---|
333 | CO00 LDA #$1B
|
---|
334 | STD ,Y++
|
---|
335 | CO0 LDB ,U+
|
---|
336 | BMI CO1
|
---|
337 | ANDB #$7
|
---|
338 | STB $6A7B
|
---|
339 | ADDB #$50
|
---|
340 | LDA $6AD6
|
---|
341 | ANDA #1
|
---|
342 | BEQ CO10
|
---|
343 | TST $6A9E
|
---|
344 | BEQ CO10
|
---|
345 | ADDB #$28
|
---|
346 | CO10 LDA #$1B
|
---|
347 | STD ,Y++
|
---|
348 | CO1 LDB ,U+
|
---|
349 | BMI CO2
|
---|
350 | ANDB #1
|
---|
351 | STB $6A90
|
---|
352 | SUBB #$5D
|
---|
353 | NEGB
|
---|
354 | LDA #$1B
|
---|
355 | STD ,Y++
|
---|
356 | CO2 LDB ,U+
|
---|
357 | BMI CO3
|
---|
358 | ANDB #1
|
---|
359 | BRA KLI1
|
---|
360 | CO3 LBRA ESCSUI
|
---|
361 |
|
---|
362 | ESC4 CMPA #$44 D=Démasquage total
|
---|
363 | BNE ESC5
|
---|
364 | LDD #$1B23
|
---|
365 | STD ,Y++
|
---|
366 | LDD #$205F
|
---|
367 | STD ,Y++
|
---|
368 | LBRA ESCSUI
|
---|
369 |
|
---|
370 | ESC5 CMPA #$45 E=Effacement
|
---|
371 | BNE ESC7
|
---|
372 | LDA #$0C
|
---|
373 | STA ,Y+
|
---|
374 | LBRA ESCSUI
|
---|
375 |
|
---|
376 | ESC7 CMPA #$47 G=Générateur de
|
---|
377 | BNE ESC9 caractères
|
---|
378 | LBSR PARA
|
---|
379 | LDA PARA1
|
---|
380 | ANDA #1
|
---|
381 | STA $6A82
|
---|
382 | BNE GEN0
|
---|
383 | LDA #$0F mode normal
|
---|
384 | BRA GEN1
|
---|
385 | GEN0 LDA #$0E mode Teletel
|
---|
386 | GEN1 STA ,Y+
|
---|
387 | LBRA ESCSUI
|
---|
388 |
|
---|
389 | ESC9 CMPA #$49 I=Inversion
|
---|
390 | BNE ESCB
|
---|
391 | LDA ,X
|
---|
392 | CMPA #$45 E=Ecran
|
---|
393 | BEQ IE
|
---|
394 | LDA #$1B
|
---|
395 | LDB $6A90
|
---|
396 | ANDB #1
|
---|
397 | INCB
|
---|
398 | ANDB #1
|
---|
399 | STB $6A90
|
---|
400 | SUBB #$5D
|
---|
401 | NEGB
|
---|
402 | STD ,Y++
|
---|
403 | LBRA ESCSUI
|
---|
404 | IE LEAX 1,X
|
---|
405 | LDD #$1B20
|
---|
406 | STD ,Y++
|
---|
407 | LDA #$23
|
---|
408 | LDB $6A90
|
---|
409 | ANDB #1
|
---|
410 | SUBB #$5D
|
---|
411 | NEGB
|
---|
412 | STD ,Y++
|
---|
413 | LBRA ESCSUI
|
---|
414 |
|
---|
415 | ESCB CMPA #$4B K=Klignotement
|
---|
416 | BNE ESCC
|
---|
417 | LDB $6A9E
|
---|
418 | ANDB #1
|
---|
419 | INCB
|
---|
420 | ANDB #1
|
---|
421 | KLI1 STB $6A9E
|
---|
422 | LDA $6AD6
|
---|
423 | ANDA #1
|
---|
424 | BNE KLITO
|
---|
425 | SUBB #$49
|
---|
426 | NEGB
|
---|
427 | LDA #$1B
|
---|
428 | STD ,Y++
|
---|
429 | KLI2 LBRA ESCSUI
|
---|
430 | KLITO LDA #$1B
|
---|
431 | LDB $6A66
|
---|
432 | ANDB #7
|
---|
433 | ADDB #$40
|
---|
434 | TST $6A9E
|
---|
435 | BEQ KLIT1
|
---|
436 | ADDB #$30
|
---|
437 | KLIT1 STD ,Y++
|
---|
438 | LDB $6A7B
|
---|
439 | ANDB #$7
|
---|
440 | ADDB #$50
|
---|
441 | TST $6A9E
|
---|
442 | BEQ KLIT2
|
---|
443 | ADDB #$28
|
---|
444 | KLIT2 STD ,Y++
|
---|
445 | BRA KLI2
|
---|
446 |
|
---|
447 | ESCC CMPA #$4C L=Locate
|
---|
448 | BNE ESC4D
|
---|
449 | LBSR PARA
|
---|
450 | LDU #PARA1
|
---|
451 | LDD ,U++
|
---|
452 | CMPD #$FFFF
|
---|
453 | BEQ LO4
|
---|
454 | PSHS A
|
---|
455 | TSTB
|
---|
456 | BPL LO0
|
---|
457 | LDB $6B00
|
---|
458 | LO0 CMPB #25
|
---|
459 | BLO LO1
|
---|
460 | CLRB
|
---|
461 | LO1 STB $6B00
|
---|
462 | ADDB #$40
|
---|
463 | LDA #$1F
|
---|
464 | STD ,Y++
|
---|
465 | PULS B
|
---|
466 | TSTB
|
---|
467 | BPL LO2
|
---|
468 | LDB $6AF9
|
---|
469 | LO2 CMPB #40
|
---|
470 | BLS LO3
|
---|
471 | CLRB
|
---|
472 | LO3 STB $6AF9
|
---|
473 | ADDB #$41
|
---|
474 | STB ,Y+
|
---|
475 | LO4 LDB ,U+
|
---|
476 | BMI LO7
|
---|
477 | ANDB #1
|
---|
478 | STB $6AEB
|
---|
479 | BEQ LO5
|
---|
480 | LDB #$11
|
---|
481 | BRA LO6
|
---|
482 | LO5 LDB #$14
|
---|
483 | LO6 STB ,Y+
|
---|
484 | LO7 LDB ,U+
|
---|
485 | BMI LO8
|
---|
486 | ANDB #1
|
---|
487 | STB $6AA5
|
---|
488 | LDA $6AD6
|
---|
489 | ANDA #1
|
---|
490 | BNE LO8
|
---|
491 | ADDB #$58
|
---|
492 | LDA #$1B
|
---|
493 | STD ,Y++
|
---|
494 | LO8 LBRA ESCSUI
|
---|
495 |
|
---|
496 | ESC4D CMPA #$4D M=Mode
|
---|
497 | LBNE ESC4E
|
---|
498 | LDA ,X
|
---|
499 | CMPA #$52 R=Rouleau
|
---|
500 | BNE ESC4D1
|
---|
501 | LDB #$43
|
---|
502 | BRA ESC4D3
|
---|
503 | ESC4D1 CMPA #$68 H=Haut
|
---|
504 | BNE ESC4D2
|
---|
505 | LDB #$46
|
---|
506 | BRA ESC4D3
|
---|
507 | ESC4D2 CMPA #$42 B=Bas
|
---|
508 | BNE ESC4D4
|
---|
509 | LDB #$47
|
---|
510 | ESC4D3 LEAX 1,X
|
---|
511 | LDA #$1B
|
---|
512 | STA ,Y+
|
---|
513 | LDA #$3A
|
---|
514 | STA ,Y+
|
---|
515 | LDA #$39
|
---|
516 | STD ,Y++
|
---|
517 | ESC4D4 LBRA ESCSUI
|
---|
518 |
|
---|
519 | ESC4E CMPA #$4E N=nouvelle ligne
|
---|
520 | BNE ESC4F
|
---|
521 | LDD #$0A0D
|
---|
522 | STD ,Y++
|
---|
523 | BRA LO8
|
---|
524 |
|
---|
525 | ESC4F CMPA #$4F O=Oblitération=DEL
|
---|
526 | BNE ESC52
|
---|
527 | LDA #$7F
|
---|
528 | STA ,Y+
|
---|
529 | BRA LO8
|
---|
530 |
|
---|
531 | ESC52 CMPA #$52 R=Répétition
|
---|
532 | BNE ESC58
|
---|
533 | LBSR PARA
|
---|
534 | LDB PARA1
|
---|
535 | CMPB #63
|
---|
536 | BHI LO8
|
---|
537 | LDA #$12 rep
|
---|
538 | ADDB #$40
|
---|
539 | STD ,Y++
|
---|
540 | BRA LO8
|
---|
541 |
|
---|
542 | ESC58 CMPA #$58 X=effacement de
|
---|
543 | BNE ESC5E la fin de la ligne
|
---|
544 | LDA #$18
|
---|
545 | STA ,Y+
|
---|
546 | BRA LO8
|
---|
547 |
|
---|
548 | ESC5E CMPA #$5E ^ Déplacements
|
---|
549 | BNE ESCN
|
---|
550 | DEA LDA ,X+
|
---|
551 | LBEQ FINMOD
|
---|
552 | CMPA #$3A :
|
---|
553 | BEQ DE0
|
---|
554 | CMPA #$5C \
|
---|
555 | BNE DE1
|
---|
556 | DE0 LEAX -1,X
|
---|
557 | LBRA ESCSUI
|
---|
558 | DE1 ANDA #$5F
|
---|
559 | CMPA #$42 B=bas
|
---|
560 | BNE DE2
|
---|
561 | LDA #10
|
---|
562 | BRA DEX
|
---|
563 | DE2 CMPA #$43 C=coin sup/gauche
|
---|
564 | BNE DE3
|
---|
565 | LDA #30
|
---|
566 | BRA DEX
|
---|
567 | DE3 CMPA #$44 D=droite
|
---|
568 | BNE DE4
|
---|
569 | LDA #9
|
---|
570 | BRA DEX
|
---|
571 | DE4 CMPA #$47 G=gauche
|
---|
572 | BNE DE5
|
---|
573 | LDA #8
|
---|
574 | BRA DEX
|
---|
575 | DE5 CMPA #$48 H=haut
|
---|
576 | BNE DE6
|
---|
577 | LDA #11
|
---|
578 | BRA DEX
|
---|
579 | DE6 CMPA #$4C L=retour Ligne
|
---|
580 | BNE DE7
|
---|
581 | LDA #13
|
---|
582 | DEX STA ,Y+
|
---|
583 | DE7 BRA DEA
|
---|
584 |
|
---|
585 | ESCN LBRA ESC0
|
---|
586 |
|
---|
587 | FINMOD LDX #POKE+4
|
---|
588 | LDA $6AD6
|
---|
589 | CMPA #2
|
---|
590 | BEQ AFMINI Affichage MINITEL
|
---|
591 | AFTOMO CLR ,Y Affichage TO+MODEM
|
---|
592 | AFTM0 LDB ,X+
|
---|
593 | BEQ EXITEL
|
---|
594 | TST $6AD6
|
---|
595 | BNE AFTO
|
---|
596 | AFTM1 LDA $E7FE
|
---|
597 | BITA #2
|
---|
598 | BEQ AFTM1
|
---|
599 | STB $E7FF
|
---|
600 | BRA AFTM0
|
---|
601 | AFTO JSR $E803
|
---|
602 | BRA AFTM0
|
---|
603 | AFMINI LBSR TEL
|
---|
604 | EXITEL LDY #POKE
|
---|
605 | LDX #ZONE+22
|
---|
606 | FINMAX LBSR COPIE
|
---|
607 | PULS A,B,CC,DP,X,Y,U,PC
|
---|
608 |
|
---|
609 | PARA PSHS Y,U Recherche des
|
---|
610 | LDY #PARA1 paramètres (4 max)
|
---|
611 | LDD #$FFFF
|
---|
612 | STD ,Y
|
---|
613 | STD 2,Y
|
---|
614 | CLRB
|
---|
615 |
|
---|
616 | PAR0 LDA ,X+
|
---|
617 | BEQ SORPAR
|
---|
618 | CMPA #$3A :
|
---|
619 | BEQ AUTPAR
|
---|
620 | CMPA #$5C \
|
---|
621 | BEQ AUTPAR
|
---|
622 | CMPA #$2C ,
|
---|
623 | BEQ AUTPAR
|
---|
624 | CMPA #$30 0
|
---|
625 | BLO AUTPAR
|
---|
626 | CMPA #$39 9
|
---|
627 | BHI VAR
|
---|
628 | SUBA #$30
|
---|
629 | LDB ,Y
|
---|
630 | BPL PAR1
|
---|
631 | CLRB
|
---|
632 | STB ,Y
|
---|
633 | PAR1 ASLB
|
---|
634 | ASLB
|
---|
635 | ASLB
|
---|
636 | ADDB ,Y
|
---|
637 | ADDB ,Y
|
---|
638 | STB ,Y
|
---|
639 | ADDA ,Y
|
---|
640 | STA ,Y
|
---|
641 | BRA PAR0
|
---|
642 |
|
---|
643 | VAR CMPA #$41 A
|
---|
644 | BLO AUTPAR
|
---|
645 | CMPA #$5A Z
|
---|
646 | BLS VAR0
|
---|
647 | CMPA #$61 a
|
---|
648 | BLO AUTPAR
|
---|
649 | CMPA #$7A z
|
---|
650 | BHI AUTPAR
|
---|
651 | SUBA #$20
|
---|
652 | VAR0 SUBA #$41
|
---|
653 | STA ,Y
|
---|
654 | ASLA
|
---|
655 | ASLA
|
---|
656 | ASLA
|
---|
657 | SUBA ,Y
|
---|
658 | LDU #$6A58
|
---|
659 | TFR A,B
|
---|
660 | CLRA
|
---|
661 | LEAU D,U
|
---|
662 | LDB ,U
|
---|
663 | STB ,Y
|
---|
664 | BRA PAR0
|
---|
665 |
|
---|
666 | AUTPAR CMPA #$2C
|
---|
667 | BNE SORPAR
|
---|
668 | LEAY 1,Y
|
---|
669 | CMPY #PARA4
|
---|
670 | BHI SORPAR
|
---|
671 | CLRB
|
---|
672 | BRA PAR0
|
---|
673 |
|
---|
674 | SORPAR LEAX -1,X
|
---|
675 | PULS U,Y,PC
|
---|
676 |
|
---|
677 | PTEL PSHS U,Y,X,DP,B,A,CC
|
---|
678 | LDD #$1003
|
---|
679 | STA $624B
|
---|
680 | JSR $EC0C
|
---|
681 | LDX #$A000
|
---|
682 | TFR X,Y
|
---|
683 | CLR ,Y+
|
---|
684 | CLR ,Y+
|
---|
685 | LDA #$61
|
---|
686 | TFR A,DP
|
---|
687 | INPUT LDB #5
|
---|
688 | JSR $EC0C
|
---|
689 | LDA $6AD6
|
---|
690 | BNE PT1
|
---|
691 | PT0 LDA $E7FE
|
---|
692 | BITA #2
|
---|
693 | BEQ PT0
|
---|
694 | LDA <$96
|
---|
695 | STA $E7FF
|
---|
696 | BRA PT2
|
---|
697 | PT1 LDA <$96
|
---|
698 | STA ,Y+
|
---|
699 | CMPY #$DFFF
|
---|
700 | BHI CPTEL
|
---|
701 | PT2 TST <$78
|
---|
702 | BEQ INPUT
|
---|
703 | CPTEL LEAY -1,Y
|
---|
704 | LDB #6
|
---|
705 | JSR $EC0C
|
---|
706 | LDA $6AD6
|
---|
707 | BEQ FPTEL
|
---|
708 | CMPA #2
|
---|
709 | BEQ COMBLE
|
---|
710 | LDB #$FF
|
---|
711 | STB ,Y+
|
---|
712 | PT3 LDB ,X+
|
---|
713 | BMI FPTEL
|
---|
714 | CMPB #19
|
---|
715 | BNE PT4
|
---|
716 | LDB #22
|
---|
717 | PT4 JSR $E803
|
---|
718 | BRA PT3
|
---|
719 | FPTEL PULS U,Y,X,DP,B,A,CC,PC
|
---|
720 |
|
---|
721 | TEL PSHS U,Y,X,DP,B,A,CC
|
---|
722 | COMBLE LDD #$1B3A
|
---|
723 | STD ,Y++
|
---|
724 | LDD #$6AFE
|
---|
725 | STD ,Y++
|
---|
726 | LDD #$E7FD
|
---|
727 | TFR A,DP
|
---|
728 | STB <$C2
|
---|
729 | TFR X,U
|
---|
730 | LBSR ROUT1
|
---|
731 | LDX #$1000
|
---|
732 | TEMP1 LEAX -1,X
|
---|
733 | BNE TEMP1
|
---|
734 | CLRB
|
---|
735 | ORCC #$50
|
---|
736 | TOMI0 LDA #$07
|
---|
737 | STA ,S
|
---|
738 | BSR ROUT1
|
---|
739 | LDX #$0333
|
---|
740 | STX <$C6
|
---|
741 | LDA #$A2
|
---|
742 | STA <$C5
|
---|
743 | CLRA
|
---|
744 | BSR ROUT2
|
---|
745 | TOMI1 LSRB
|
---|
746 | BCC TOMI2
|
---|
747 | BSR ROUT1
|
---|
748 | INCA
|
---|
749 | BRA TOMI3
|
---|
750 | TOMI2 BSR ROUT2
|
---|
751 | TOMI3 DEC ,S
|
---|
752 | BNE TOMI1
|
---|
753 | BITA #$01
|
---|
754 | BNE TOMI4
|
---|
755 | BSR ROUT2
|
---|
756 | BRA TOMI5
|
---|
757 | TOMI4 BSR ROUT1
|
---|
758 | TOMI5 LDB ,U+
|
---|
759 | BPL TOMI0
|
---|
760 | PULS CC,A,B,DP,X,Y,U,PC
|
---|
761 |
|
---|
762 | ROUT1 PSHS X,A
|
---|
763 | LDA <$C5
|
---|
764 | ORA #$80
|
---|
765 | BRA TOMI6
|
---|
766 | ROUT2 PSHS X,A
|
---|
767 | LDA <$C5
|
---|
768 | ANDA #$7F
|
---|
769 | BRA TOMI6
|
---|
770 | TOMI6 STA <$C5
|
---|
771 | LDX #$0061
|
---|
772 | TEMP2 LEAX -1,X
|
---|
773 | BNE TEMP2
|
---|
774 | PULS A,X,PC
|
---|
775 |
|
---|
776 | CHERCH PSHS A,B,DP,CC,X,Y,U
|
---|
777 | LDX TAMPON
|
---|
778 | STX VAL+1
|
---|
779 | LDY #$A002
|
---|
780 | LDA $E7E5
|
---|
781 | TFR A,DP
|
---|
782 | LDA #$10
|
---|
783 | CH0 STA $E7E5
|
---|
784 | LDU #$A000
|
---|
785 | LDB #$80
|
---|
786 | CH1 LDX ,U
|
---|
787 | VAL CMPX #$0000 VALEUR CHERCHEE
|
---|
788 | BNE CH2
|
---|
789 | LDX 2,U
|
---|
790 | STX POKE
|
---|
791 | LDX 4,U
|
---|
792 | STX POKE+2
|
---|
793 | LDX 6,U
|
---|
794 | STX POKE+4
|
---|
795 | PSHS A,B
|
---|
796 | PSHS U
|
---|
797 | EXG A,DP
|
---|
798 | STA $E7E5
|
---|
799 | EXG DP,A
|
---|
800 | ANDA #$0F
|
---|
801 | LSLB
|
---|
802 | LSLB
|
---|
803 | ROLA
|
---|
804 | LSLB
|
---|
805 | ROLA
|
---|
806 | LSRB
|
---|
807 | LSRB
|
---|
808 | LSRB
|
---|
809 | LDU #TABLE
|
---|
810 | LDA A,U
|
---|
811 | STD ,Y++
|
---|
812 | LDD POKE
|
---|
813 | STD ,Y++
|
---|
814 | LDD POKE+2
|
---|
815 | STD ,Y++
|
---|
816 | LDA POKE+4
|
---|
817 | CLRB
|
---|
818 | STD ,Y++
|
---|
819 | PULS U
|
---|
820 | PULS A,B
|
---|
821 | STA $E7E5
|
---|
822 | CH2 LEAU 128,U
|
---|
823 | INCB
|
---|
824 | BNE CH1
|
---|
825 | INCA
|
---|
826 | CMPA #$20
|
---|
827 | BLO CH0
|
---|
828 | CH3 TFR DP,A
|
---|
829 | STA $E7E5
|
---|
830 | LEAX ,Y
|
---|
831 | STX LIMTR1+2
|
---|
832 | LEAX -8,X
|
---|
833 | STX LIMTR0+1
|
---|
834 | LEAX -$A002,Y
|
---|
835 | TFR X,D
|
---|
836 | LSRA
|
---|
837 | RORB
|
---|
838 | LSRA
|
---|
839 | RORB
|
---|
840 | LSRA
|
---|
841 | RORB
|
---|
842 | STD $A000
|
---|
843 | CMPD #$0002
|
---|
844 | BLO TRI4
|
---|
845 | LDX VAL+1
|
---|
846 | BEQ TRI4
|
---|
847 | LDX #$A002
|
---|
848 | TRI0 LEAY 8,X
|
---|
849 | TRI1 LDB #4
|
---|
850 | TRI2 LDA B,X
|
---|
851 | CMPA B,Y
|
---|
852 | BHI PERM
|
---|
853 | BLO TRI3
|
---|
854 | INCB
|
---|
855 | CMPB #7
|
---|
856 | BLO TRI2
|
---|
857 | BRA TRI3
|
---|
858 | PERM LDB #6
|
---|
859 | PERM0 LDA B,X
|
---|
860 | TFR A,DP
|
---|
861 | LDA B,Y
|
---|
862 | STA B,X
|
---|
863 | TFR DP,A
|
---|
864 | STA B,Y
|
---|
865 | DECB
|
---|
866 | BPL PERM0
|
---|
867 | TRI3 LEAY 8,Y
|
---|
868 | LIMTR1 CMPY #$0000
|
---|
869 | BLO TRI1
|
---|
870 | LEAX 8,X
|
---|
871 | LIMTR0 CMPX #$0000
|
---|
872 | BLO TRI0
|
---|
873 | TRI4 PULS A,B,DP,CC,X,Y,U,PC
|
---|
874 |
|
---|
875 | SAUV PSHS A,B,DP,CC,X,Y,U
|
---|
876 | LDA $E7E5
|
---|
877 | TFR A,DP
|
---|
878 | LDX #$FFFF
|
---|
879 | LDY #POKE
|
---|
880 | STX ,Y
|
---|
881 | STX 2,Y
|
---|
882 | LDA #$10
|
---|
883 | EC0 STA $E7E5
|
---|
884 | LDU #$A000
|
---|
885 | LDB #$80
|
---|
886 | EC1 LDX ,U
|
---|
887 | CMPX #$0000 VALEUR VIDE
|
---|
888 | BNE EC6
|
---|
889 | PSHS A,B,U
|
---|
890 | ANDA #$0F
|
---|
891 | LSLB
|
---|
892 | LSLB
|
---|
893 | ROLA
|
---|
894 | LSLB
|
---|
895 | ROLA
|
---|
896 | LSRB
|
---|
897 | LSRB
|
---|
898 | LSRB
|
---|
899 | LDU #TABLE
|
---|
900 | LDA A,U
|
---|
901 | STD 4,Y
|
---|
902 | SUBA $6052
|
---|
903 | BPL EC2
|
---|
904 | NEGA
|
---|
905 | EC2 STA 6,Y
|
---|
906 | CMPA 2,Y
|
---|
907 | BHI EC5
|
---|
908 | BEQ EC3
|
---|
909 | LDA #$FF
|
---|
910 | STA 3,Y
|
---|
911 | EC3 LDA 4,Y
|
---|
912 | SUBA #20
|
---|
913 | BPL EC4
|
---|
914 | NEGA
|
---|
915 | EC4 STA 7,Y
|
---|
916 | CMPA 3,Y
|
---|
917 | BHS EC5
|
---|
918 | LDX 4,Y
|
---|
919 | STX ,Y
|
---|
920 | LDX 6,Y
|
---|
921 | STX 2,Y
|
---|
922 | EC5 PULS A,B,U
|
---|
923 | EC6 LEAU 128,U
|
---|
924 | INCB
|
---|
925 | BNE EC1
|
---|
926 | INCA
|
---|
927 | CMPA #$20
|
---|
928 | BLO EC0
|
---|
929 | TFR DP,A
|
---|
930 | STA $E7E5
|
---|
931 | CLR TAMPON
|
---|
932 | LDD ,Y
|
---|
933 | LSRB
|
---|
934 | BCC EC7
|
---|
935 | COM TAMPON
|
---|
936 | EC7 INCB
|
---|
937 | STD $604B
|
---|
938 | BRA EC8
|
---|
939 |
|
---|
940 | COMPAC PSHS A,B,DP,CC,X,Y,U
|
---|
941 | EC8 LDD $604B
|
---|
942 | CMPA #63
|
---|
943 | LBHI COMP2
|
---|
944 | DECB
|
---|
945 | CMPB #15
|
---|
946 | LBHI COMP2
|
---|
947 | LDY #POKE
|
---|
948 | STY $604F
|
---|
949 | LDA #$94
|
---|
950 | STA $60CD
|
---|
951 | LDD #$0204
|
---|
952 | STD $6048
|
---|
953 | JSR $E004
|
---|
954 | LBSR HORPLU
|
---|
955 | LDD #$2804
|
---|
956 | PSHS A
|
---|
957 | LDX #TAMPON
|
---|
958 | LDA ,X+
|
---|
959 | BEQ COMP0
|
---|
960 | LEAY 128,Y
|
---|
961 | COMP0 LDA ,X+
|
---|
962 | STA ,Y+
|
---|
963 | DECB
|
---|
964 | BNE COMP0
|
---|
965 | LDD $607D
|
---|
966 | SUBB #90
|
---|
967 | CMPB #10
|
---|
968 | BLO DAT0
|
---|
969 | ADDB #100
|
---|
970 | DAT0 LSLA
|
---|
971 | LSLA
|
---|
972 | LSLA
|
---|
973 | LSLA
|
---|
974 | LSLA
|
---|
975 | ROLB
|
---|
976 | LSLA
|
---|
977 | ROLB
|
---|
978 | LSLA
|
---|
979 | ROLB
|
---|
980 | LSLA
|
---|
981 | ROLB
|
---|
982 | STB ,Y+
|
---|
983 | LDA $607C
|
---|
984 | LDB HEURE
|
---|
985 | LSLB
|
---|
986 | LSLB
|
---|
987 | LSLB
|
---|
988 | LSLB
|
---|
989 | ROLA
|
---|
990 | LSLB
|
---|
991 | ROLA
|
---|
992 | LSLB
|
---|
993 | ROLA
|
---|
994 | STA ,Y+
|
---|
995 | LDA MINUT
|
---|
996 | LSLA
|
---|
997 | LSLA
|
---|
998 | LSLB
|
---|
999 | PSHS CC
|
---|
1000 | LSLB
|
---|
1001 | RORA
|
---|
1002 | PULS CC
|
---|
1003 | RORA
|
---|
1004 | STA ,Y+
|
---|
1005 | COMP1 LDA ,X+
|
---|
1006 | SUBA #$20
|
---|
1007 | LDB ,X+
|
---|
1008 | SUBB #$20
|
---|
1009 | LSLB
|
---|
1010 | LSLB
|
---|
1011 | LSLB
|
---|
1012 | ROLA
|
---|
1013 | LSLB
|
---|
1014 | ROLA
|
---|
1015 | STA ,Y+
|
---|
1016 | LSLB
|
---|
1017 | ROLA
|
---|
1018 | LSLB
|
---|
1019 | ROLA
|
---|
1020 | LSLB
|
---|
1021 | ROLA
|
---|
1022 | LSLB
|
---|
1023 | ROLA
|
---|
1024 | LDB ,X+
|
---|
1025 | SUBB #$20
|
---|
1026 | LSLB
|
---|
1027 | LSLB
|
---|
1028 | LSLB
|
---|
1029 | ROLA
|
---|
1030 | LSLB
|
---|
1031 | ROLA
|
---|
1032 | LSLB
|
---|
1033 | ROLA
|
---|
1034 | LSLB
|
---|
1035 | ROLA
|
---|
1036 | STA ,Y+
|
---|
1037 | LSLB
|
---|
1038 | ROLA
|
---|
1039 | LSLB
|
---|
1040 | ROLA
|
---|
1041 | LDB ,X+
|
---|
1042 | SUBB #$20
|
---|
1043 | LSLB
|
---|
1044 | LSLB
|
---|
1045 | LSRA
|
---|
1046 | RORB
|
---|
1047 | LSRA
|
---|
1048 | RORB
|
---|
1049 | STB ,Y+
|
---|
1050 | DEC ,S
|
---|
1051 | BNE COMP1
|
---|
1052 | PULS B
|
---|
1053 | LDD #$0801
|
---|
1054 | STD $6048
|
---|
1055 | LDX #POKE
|
---|
1056 | STX $604F
|
---|
1057 | JSR $E004
|
---|
1058 | LDD #$0482
|
---|
1059 | STA $6049
|
---|
1060 | JSR $E004
|
---|
1061 | STB $60CD
|
---|
1062 | BRA COMP3
|
---|
1063 | COMP2 LDA #$FF
|
---|
1064 | STA $604E
|
---|
1065 | COMP3 BSR DIROK
|
---|
1066 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
1067 |
|
---|
1068 | DIROK LDY #$C000
|
---|
1069 | LDD #$0820
|
---|
1070 | DIR0 STB ,Y+
|
---|
1071 | DECA
|
---|
1072 | BNE DIR0
|
---|
1073 | RTS
|
---|
1074 |
|
---|
1075 | DECOMP PSHS A,B,DP,CC,X,Y,U
|
---|
1076 | LDA $E7E5
|
---|
1077 | TFR A,DP
|
---|
1078 | LDA #$0F
|
---|
1079 | STA $E7E5
|
---|
1080 | LDD $604B
|
---|
1081 | CMPA #63
|
---|
1082 | LBHI DECO2
|
---|
1083 | DECB
|
---|
1084 | CMPB #15
|
---|
1085 | LBHI DECO2
|
---|
1086 | LDA #$94
|
---|
1087 | STA $60CD
|
---|
1088 | LDD #$0204
|
---|
1089 | STD $6048
|
---|
1090 | LDX #TAMPON+1
|
---|
1091 | STX $604F
|
---|
1092 | JSR $E004
|
---|
1093 | TST $604E
|
---|
1094 | LBNE DECO3
|
---|
1095 | BSR DIROK
|
---|
1096 | LDD #$2804
|
---|
1097 | PSHS A
|
---|
1098 | LDA TAMPON
|
---|
1099 | BEQ DECO0
|
---|
1100 | LEAX 128,X
|
---|
1101 | DECO0 LDA ,X+
|
---|
1102 | STA ,Y+
|
---|
1103 | DECB
|
---|
1104 | BNE DECO0
|
---|
1105 | LDA ,X
|
---|
1106 | LSRA
|
---|
1107 | LSRA
|
---|
1108 | LSRA
|
---|
1109 | LSRA
|
---|
1110 | ADDA #90
|
---|
1111 | CMPA #100
|
---|
1112 | BLO DAT2
|
---|
1113 | SUBA #100
|
---|
1114 | DAT2 STA ,Y+
|
---|
1115 | LDA ,X+
|
---|
1116 | ANDA #$0F
|
---|
1117 | STA ,Y+
|
---|
1118 | LDA ,X
|
---|
1119 | LSRA
|
---|
1120 | LSRA
|
---|
1121 | LSRA
|
---|
1122 | STA ,Y+
|
---|
1123 | LDA ,X+
|
---|
1124 | ANDA #7
|
---|
1125 | LDB ,X
|
---|
1126 | LSLB
|
---|
1127 | ROLA
|
---|
1128 | LSLB
|
---|
1129 | ROLA
|
---|
1130 | STA ,Y+
|
---|
1131 | LDA ,X+
|
---|
1132 | ANDA #$3F
|
---|
1133 | STA ,Y+
|
---|
1134 | DECO1 LDA ,X
|
---|
1135 | LSRA
|
---|
1136 | RORB
|
---|
1137 | LSRA
|
---|
1138 | RORB
|
---|
1139 | ADDA #$20
|
---|
1140 | STA ,Y+
|
---|
1141 | LDD ,X+
|
---|
1142 | ANDA #3
|
---|
1143 | LSLB
|
---|
1144 | ROLA
|
---|
1145 | LSLB
|
---|
1146 | ROLA
|
---|
1147 | LSLB
|
---|
1148 | ROLA
|
---|
1149 | LSLB
|
---|
1150 | ROLA
|
---|
1151 | ADDA #$20
|
---|
1152 | STA ,Y+
|
---|
1153 | LDD ,X++
|
---|
1154 | ANDA #15
|
---|
1155 | LSLB
|
---|
1156 | ROLA
|
---|
1157 | LSLB
|
---|
1158 | ROLA
|
---|
1159 | ADDA #$20
|
---|
1160 | LSRB
|
---|
1161 | LSRB
|
---|
1162 | ADDB #$20
|
---|
1163 | STD ,Y++
|
---|
1164 | DEC ,S
|
---|
1165 | BNE DECO1
|
---|
1166 | TFR DP,A
|
---|
1167 | STA $E7E5
|
---|
1168 | PULS A
|
---|
1169 | BRA DECO3
|
---|
1170 | DECO2 LDA #$FF
|
---|
1171 | STA $604E
|
---|
1172 | DECO3 LDA #$82
|
---|
1173 | STA $60CD
|
---|
1174 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
1175 |
|
---|
1176 | AFFIC5 PSHS A,B,DP,CC,X,Y,U
|
---|
1177 | LDA #5
|
---|
1178 | STA $E7E5
|
---|
1179 | LDD $6AB2
|
---|
1180 | CMPD #0053
|
---|
1181 | LBHI FAFF5
|
---|
1182 | LDA #2
|
---|
1183 | MUL
|
---|
1184 | STD $6AB2
|
---|
1185 | LDA #2
|
---|
1186 | LDX #$A000
|
---|
1187 | LBSR PREPA5
|
---|
1188 | INC $6AB3
|
---|
1189 | LDA #2
|
---|
1190 | LDX #$A200
|
---|
1191 | LBSR PREPA5
|
---|
1192 | LDX #$A000
|
---|
1193 | LDY #$A400
|
---|
1194 | LDD #0
|
---|
1195 | STD ,Y++
|
---|
1196 | STD ,Y++
|
---|
1197 | LDD #$0C14
|
---|
1198 | STD ,Y++
|
---|
1199 | LDA #25
|
---|
1200 | STA LIGNE
|
---|
1201 | NOUVLI DEC LIGNE
|
---|
1202 | BEQ PRINT5
|
---|
1203 | LDA #40
|
---|
1204 | STA COLON
|
---|
1205 | OCTSUI LDA ,X+
|
---|
1206 | CMPX #$A400
|
---|
1207 | BHI PRINT5
|
---|
1208 | CMPA #$0D
|
---|
1209 | BNE ESTAFF
|
---|
1210 | LDB ,X+
|
---|
1211 | DEC COLON
|
---|
1212 | BMI NOUVLI
|
---|
1213 | AFFD LDD #$0D0A
|
---|
1214 | STD ,Y++
|
---|
1215 | BRA NOUVLI
|
---|
1216 | ESTAFF CMPA #32
|
---|
1217 | BLO OCTSUI
|
---|
1218 | CMPA #128
|
---|
1219 | BLO OCTAFF
|
---|
1220 | CMPA #161
|
---|
1221 | BHI OCTSUI
|
---|
1222 | SUBA #128
|
---|
1223 | LDB #3
|
---|
1224 | MUL
|
---|
1225 | LDU #TABPC
|
---|
1226 | LEAU B,U
|
---|
1227 | LDD ,U++
|
---|
1228 | STD ,Y++
|
---|
1229 | LDA ,U
|
---|
1230 | OCTAFF DEC COLON
|
---|
1231 | BMI OCTSUI
|
---|
1232 | STA ,Y+
|
---|
1233 | BRA OCTSUI
|
---|
1234 |
|
---|
1235 | PRINT5 LDU #$A400
|
---|
1236 | LDD #$1F41
|
---|
1237 | STA -1,Y
|
---|
1238 | STB ,Y+
|
---|
1239 | STB ,Y+
|
---|
1240 | LDA $6AD6
|
---|
1241 | CMPA #1
|
---|
1242 | LBEQ COMBLE
|
---|
1243 | LDB #255
|
---|
1244 | STB ,Y++
|
---|
1245 | TSTA
|
---|
1246 | BNE ECRAN
|
---|
1247 | ATTMOD LDA $E7FE
|
---|
1248 | BITA #2
|
---|
1249 | BEQ ATTMOD
|
---|
1250 | LDA ,U+
|
---|
1251 | BEQ ATTMOD
|
---|
1252 | BMI FAFF5
|
---|
1253 | STA $E7FF
|
---|
1254 | BRA ATTMOD
|
---|
1255 | ECRAN LDB ,U+
|
---|
1256 | BEQ ECRAN
|
---|
1257 | BMI FAFF5
|
---|
1258 | CMPB #$13
|
---|
1259 | BNE ECOK
|
---|
1260 | LDB #$16
|
---|
1261 | ECOK JSR $E803
|
---|
1262 | BRA ECRAN
|
---|
1263 |
|
---|
1264 | FAFF5 PULS A,B,DP,CC,X,Y,U,PC
|
---|
1265 |
|
---|
1266 | PREPA5 STA $6048
|
---|
1267 | STX $604F
|
---|
1268 | LDX $6AB2
|
---|
1269 | BMI PB5
|
---|
1270 | CMPX #719
|
---|
1271 | BHI PB5
|
---|
1272 | LDA #2
|
---|
1273 | STA LIGNE
|
---|
1274 | AGIR5 LDA #$D4
|
---|
1275 | STA $E7E7
|
---|
1276 | LDX $E000
|
---|
1277 | CMPX #$444B
|
---|
1278 | BEQ OK5
|
---|
1279 | LDA #$54
|
---|
1280 | STA $E7E7
|
---|
1281 | PB5 LDX #$FFFF
|
---|
1282 | STX $6AB2
|
---|
1283 | LEAS 2,S
|
---|
1284 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
1285 | OK5 LDA $6052
|
---|
1286 | LDB $6054
|
---|
1287 | STA $6054
|
---|
1288 | STB $6052
|
---|
1289 | CLR $6058
|
---|
1290 | LDX $6AB2
|
---|
1291 | LDA #$FF
|
---|
1292 | TEST5 INCA
|
---|
1293 | LEAX -9,X
|
---|
1294 | CMPX #0
|
---|
1295 | BPL TEST5
|
---|
1296 | LEAX 10,X
|
---|
1297 | STX $604B
|
---|
1298 | PSHS A
|
---|
1299 | ANDA #1
|
---|
1300 | STA $6049
|
---|
1301 | PULS A
|
---|
1302 | LSRA
|
---|
1303 | STA $604B
|
---|
1304 | JSR $E004
|
---|
1305 | LDA #$54
|
---|
1306 | STA $E7E7
|
---|
1307 | LDA $6052
|
---|
1308 | LDB $6054
|
---|
1309 | STA $6054
|
---|
1310 | STB $6052
|
---|
1311 | CLR $6058
|
---|
1312 | LDA $604E
|
---|
1313 | BEQ SOROK5
|
---|
1314 | DEC LIGNE
|
---|
1315 | BEQ SPB5
|
---|
1316 | LDA $6048
|
---|
1317 | LDB $6052
|
---|
1318 | PSHS A,B
|
---|
1319 | CLR $6052
|
---|
1320 | CLR $6054
|
---|
1321 | LDD #$D420
|
---|
1322 | STA $E7E7
|
---|
1323 | STB $6048
|
---|
1324 | JSR $E004
|
---|
1325 | LDD #$5401
|
---|
1326 | STB $6048
|
---|
1327 | JSR $E004
|
---|
1328 | STA $E7E7
|
---|
1329 | PULS A,B
|
---|
1330 | STA $6048
|
---|
1331 | STB $6052
|
---|
1332 | LBRA AGIR5
|
---|
1333 | SPB5 LDX #999
|
---|
1334 | STX $6AB2
|
---|
1335 | SOROK5 RTS
|
---|
1336 |
|
---|
1337 | LIRE5 PSHS A,B,DP,CC,X,Y,U
|
---|
1338 | LDA #2
|
---|
1339 | LDX #$9800
|
---|
1340 | LBSR PREPA5
|
---|
1341 | LDD #$0804
|
---|
1342 | STD $6048
|
---|
1343 | LDD #$1401
|
---|
1344 | STD $604B
|
---|
1345 | JSR $E004
|
---|
1346 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
1347 |
|
---|
1348 | ECRI5 PSHS A,B,DP,CC,X,Y,U
|
---|
1349 | LDA #8
|
---|
1350 | LDX #$9800
|
---|
1351 | LBSR PREPA5
|
---|
1352 | PULS A,B,DP,CC,X,Y,U,PC
|
---|
1353 |
|
---|
1354 | LIGNE FCB 0
|
---|
1355 | COLON FCB 0
|
---|
1356 |
|
---|
1357 | SAVPTR FCB 0,0
|
---|
1358 |
|
---|
1359 | PARA1 FCB 0
|
---|
1360 | PARA2 FCB 0
|
---|
1361 | PARA3 FCB 0
|
---|
1362 | PARA4 FCB 0
|
---|
1363 |
|
---|
1364 | TABPC FCB $1B,$48,32,$13,$48,$75
|
---|
1365 | FCB $13,$42,$65,$13,$43,$61
|
---|
1366 | FCB $13,$48,$61,$13,$41,$61
|
---|
1367 | FCB 0,32,0,$13,$4B,$63
|
---|
1368 | FCB $13,$43,$65,$13,$48,$65
|
---|
1369 | FCB $13,$41,$65,$13,$48,$69
|
---|
1370 | FCB $13,$43,$69,$1B,$5D,32
|
---|
1371 | FCB 0,32,0,0,32,0,0,32,0
|
---|
1372 | FCB $1B,$4C,32,$1B,$4D,32
|
---|
1373 | FCB $13,$43,$6F,$13,$48,$6F
|
---|
1374 | FCB $13,$41,$6F,$13,$43,$75
|
---|
1375 | FCB $13,$41,$75,0,32,0,0,32,0
|
---|
1376 | FCB 0,32,0,$1B,$49,32,22,23,0
|
---|
1377 | FCB 0,32,0,0,32,0,0,32,0
|
---|
1378 | FCB $13,$42,$61,$1B,$5C,32
|
---|
1379 |
|
---|
1380 | TABLE FCB 62,63,60,61,58,59,56,57
|
---|
1381 | FCB 54,55,52,53,50,51,48,49
|
---|
1382 | FCB 46,47,44,45,42,43,40,41
|
---|
1383 | FCB 38,39,36,37,34,35,32,33
|
---|
1384 | FCB 30,31,28,29,26,27,24,25
|
---|
1385 | FCB 22,23,19,21,17,18,15,16
|
---|
1386 | FCB 13,14,11,12,9,10,7,8
|
---|
1387 | FCB 5,6,3,4,1,2,20,0
|
---|
1388 |
|
---|
1389 | ZONE FCB $3B,$3A,$AA,$26,$48,$38
|
---|
1390 | FCB $38,$30,$30,$2C,0
|
---|
1391 |
|
---|
1392 | FCB $3A,$AB,$23,$22,0
|
---|
1393 |
|
---|
1394 | FCB $23,$31,$2C,$22,0
|
---|
1395 |
|
---|
1396 | FCB $22,$3B,$3A,$AB,$23,$23,0
|
---|
1397 |
|
---|
1398 | POKE RMB 300
|
---|
1399 |
|
---|
1400 | FIN FCB 0
|
---|
1401 |
|
---|
1402 | END
|
---|