source: thomson/code/3rdparty/sources3-lambinet/STI Serveur Telematique Interactif/STI5.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 100755
File size: 26.2 KB
Line 
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
16TAMPON RMB $180
17
18HEURE FCB 0
19MINUT FCB 0
20SECON FCB 0
21DIXIE FCB 0
22FLGPAL FCB 0
23
24LIRE 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
32SAUVE 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
37ECRIRE 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
42RECHER 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
49PAGTEL JMP PTEL affiche un fichier
50 * .TEL dont le nom est en $624F
51
52LIT5 JMP LIRE5 lit le secteur 5'
53 * de no contenu en $6AB2/3 (N%)
54
55ECR5 JMP ECRI5 écrit (voir haut)
56
57AFF5 JMP AFFIC5 affiche une page
58 * type tel depuis le 5'1/4
59
60INIT 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
76HORPLU PSHS A,CC
77 BRA HP
78HORLOG PSHS A,CC
79 LDA #10
80 STA DIXIE
81 INC SECON
82 LDA SECON
83 CMPA #60
84 BLO PALETT
85HP 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
112FEVBIS 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
121FEVNOR CMPA #29
122 BNE PALETT
123 LDA $607D
124 CMPA #2
125 BNE PALETT
126 LDA $607E
127 ANDA #3
128 BEQ PALETT
129MOISUI 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
138PALETT PULS A,CC,PC
139
140TIMER 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
155PAL0 TST $E7E7
156 BPL PAL0
157PAL1 TST $E7E7
158 BMI PAL1
159 LDY #$200
160PAL2 LEAY -1,Y
161 BNE PAL2
162 LDY #$E7DA
163 CLR 1,Y
164 LDB #32
165PAL3 LDA ,X+
166 STA ,Y
167 DECB
168 BNE PAL3
169SORPAL PULS B,X,Y
170SORTIM PULS A,CC
171ANCTI JMP $FFFF
172
173PAL 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
180INTER 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
193QUIT PULS CC,X,PC
194
195MODEM 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
203AUTRE LDA ,X+
204 BEQ M2
205 CMPA #$22
206 BNE M0
207 COMB
208M0 TSTB
209 BNE M1
210 CMPA #$3A
211 BEQ M2
212M1 STA ,Y+
213 BRA AUTRE
214M2 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
225BLANC CLR ,X+
226 CMPX #TAMPON+300
227 BLO BLANC
228ERROR PULS A,B,CC,DP,X,Y,U,PC
229
230COPIE LDA ,X+
231 BEQ FINCOP
232 STA ,Y+
233 BRA COPIE
234FINCOP RTS
235
236PRINT 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+
249MODIF 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
259CARAC STA ,Y+
260 BRA MODIF
261
262ESCSUI LDA ,X+
263 LBEQ FINMOD
264 CMPA #$3A
265 BEQ ESC0
266 CMPA #$5C
267 BNE ESCSUI
268 BRA MODIF
269
270ESCAPE LDA ,X+
271 LBEQ FINMOD
272 CMPA #$5C \ si \\ alors \
273 BEQ CARAC
274 BRA ESC1
275ESC0 LDA ,X+
276 LBEQ FINMOD
277 CMPA #$5C \ sortie ESCAPE
278 BEQ MODIF
279ESC1 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
289ATT1 ANDB #1
290ATT2 TST ,U+
291 BMI ATT4
292 BEQ ATT3
293 ORB #1
294 BRA ATT4
295ATT3 ANDB #2
296ATT4 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
308ATT6 LDB #$5F
309ATT7 STD ,Y++
310ATT5 LBRA ESCSUI
311
312ESC2 CMPA #$42 B (Beep)
313 BNE ESC3
314 LDB #7
315 STB ,Y+
316 LBRA ESCSUI
317
318ESC3 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
333CO00 LDA #$1B
334 STD ,Y++
335CO0 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
346CO10 LDA #$1B
347 STD ,Y++
348CO1 LDB ,U+
349 BMI CO2
350 ANDB #1
351 STB $6A90
352 SUBB #$5D
353 NEGB
354 LDA #$1B
355 STD ,Y++
356CO2 LDB ,U+
357 BMI CO3
358 ANDB #1
359 BRA KLI1
360CO3 LBRA ESCSUI
361
362ESC4 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
370ESC5 CMPA #$45 E=Effacement
371 BNE ESC7
372 LDA #$0C
373 STA ,Y+
374 LBRA ESCSUI
375
376ESC7 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
385GEN0 LDA #$0E mode Teletel
386GEN1 STA ,Y+
387 LBRA ESCSUI
388
389ESC9 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
404IE 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
415ESCB CMPA #$4B K=Klignotement
416 BNE ESCC
417 LDB $6A9E
418 ANDB #1
419 INCB
420 ANDB #1
421KLI1 STB $6A9E
422 LDA $6AD6
423 ANDA #1
424 BNE KLITO
425 SUBB #$49
426 NEGB
427 LDA #$1B
428 STD ,Y++
429KLI2 LBRA ESCSUI
430KLITO LDA #$1B
431 LDB $6A66
432 ANDB #7
433 ADDB #$40
434 TST $6A9E
435 BEQ KLIT1
436 ADDB #$30
437KLIT1 STD ,Y++
438 LDB $6A7B
439 ANDB #$7
440 ADDB #$50
441 TST $6A9E
442 BEQ KLIT2
443 ADDB #$28
444KLIT2 STD ,Y++
445 BRA KLI2
446
447ESCC 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
458LO0 CMPB #25
459 BLO LO1
460 CLRB
461LO1 STB $6B00
462 ADDB #$40
463 LDA #$1F
464 STD ,Y++
465 PULS B
466 TSTB
467 BPL LO2
468 LDB $6AF9
469LO2 CMPB #40
470 BLS LO3
471 CLRB
472LO3 STB $6AF9
473 ADDB #$41
474 STB ,Y+
475LO4 LDB ,U+
476 BMI LO7
477 ANDB #1
478 STB $6AEB
479 BEQ LO5
480 LDB #$11
481 BRA LO6
482LO5 LDB #$14
483LO6 STB ,Y+
484LO7 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++
494LO8 LBRA ESCSUI
495
496ESC4D CMPA #$4D M=Mode
497 LBNE ESC4E
498 LDA ,X
499 CMPA #$52 R=Rouleau
500 BNE ESC4D1
501 LDB #$43
502 BRA ESC4D3
503ESC4D1 CMPA #$68 H=Haut
504 BNE ESC4D2
505 LDB #$46
506 BRA ESC4D3
507ESC4D2 CMPA #$42 B=Bas
508 BNE ESC4D4
509 LDB #$47
510ESC4D3 LEAX 1,X
511 LDA #$1B
512 STA ,Y+
513 LDA #$3A
514 STA ,Y+
515 LDA #$39
516 STD ,Y++
517ESC4D4 LBRA ESCSUI
518
519ESC4E CMPA #$4E N=nouvelle ligne
520 BNE ESC4F
521 LDD #$0A0D
522 STD ,Y++
523 BRA LO8
524
525ESC4F CMPA #$4F O=Oblitération=DEL
526 BNE ESC52
527 LDA #$7F
528 STA ,Y+
529 BRA LO8
530
531ESC52 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
542ESC58 CMPA #$58 X=effacement de
543 BNE ESC5E la fin de la ligne
544 LDA #$18
545 STA ,Y+
546 BRA LO8
547
548ESC5E CMPA #$5E ^ Déplacements
549 BNE ESCN
550DEA LDA ,X+
551 LBEQ FINMOD
552 CMPA #$3A :
553 BEQ DE0
554 CMPA #$5C \
555 BNE DE1
556DE0 LEAX -1,X
557 LBRA ESCSUI
558DE1 ANDA #$5F
559 CMPA #$42 B=bas
560 BNE DE2
561 LDA #10
562 BRA DEX
563DE2 CMPA #$43 C=coin sup/gauche
564 BNE DE3
565 LDA #30
566 BRA DEX
567DE3 CMPA #$44 D=droite
568 BNE DE4
569 LDA #9
570 BRA DEX
571DE4 CMPA #$47 G=gauche
572 BNE DE5
573 LDA #8
574 BRA DEX
575DE5 CMPA #$48 H=haut
576 BNE DE6
577 LDA #11
578 BRA DEX
579DE6 CMPA #$4C L=retour Ligne
580 BNE DE7
581 LDA #13
582DEX STA ,Y+
583DE7 BRA DEA
584
585ESCN LBRA ESC0
586
587FINMOD LDX #POKE+4
588 LDA $6AD6
589 CMPA #2
590 BEQ AFMINI Affichage MINITEL
591AFTOMO CLR ,Y Affichage TO+MODEM
592AFTM0 LDB ,X+
593 BEQ EXITEL
594 TST $6AD6
595 BNE AFTO
596AFTM1 LDA $E7FE
597 BITA #2
598 BEQ AFTM1
599 STB $E7FF
600 BRA AFTM0
601AFTO JSR $E803
602 BRA AFTM0
603AFMINI LBSR TEL
604EXITEL LDY #POKE
605 LDX #ZONE+22
606FINMAX LBSR COPIE
607 PULS A,B,CC,DP,X,Y,U,PC
608
609PARA 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
616PAR0 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
633PAR1 ASLB
634 ASLB
635 ASLB
636 ADDB ,Y
637 ADDB ,Y
638 STB ,Y
639 ADDA ,Y
640 STA ,Y
641 BRA PAR0
642
643VAR 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
652VAR0 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
666AUTPAR CMPA #$2C
667 BNE SORPAR
668 LEAY 1,Y
669 CMPY #PARA4
670 BHI SORPAR
671 CLRB
672 BRA PAR0
673
674SORPAR LEAX -1,X
675 PULS U,Y,PC
676
677PTEL 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
687INPUT LDB #5
688 JSR $EC0C
689 LDA $6AD6
690 BNE PT1
691PT0 LDA $E7FE
692 BITA #2
693 BEQ PT0
694 LDA <$96
695 STA $E7FF
696 BRA PT2
697PT1 LDA <$96
698 STA ,Y+
699 CMPY #$DFFF
700 BHI CPTEL
701PT2 TST <$78
702 BEQ INPUT
703CPTEL 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+
712PT3 LDB ,X+
713 BMI FPTEL
714 CMPB #19
715 BNE PT4
716 LDB #22
717PT4 JSR $E803
718 BRA PT3
719FPTEL PULS U,Y,X,DP,B,A,CC,PC
720
721TEL PSHS U,Y,X,DP,B,A,CC
722COMBLE 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
732TEMP1 LEAX -1,X
733 BNE TEMP1
734 CLRB
735 ORCC #$50
736TOMI0 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
745TOMI1 LSRB
746 BCC TOMI2
747 BSR ROUT1
748 INCA
749 BRA TOMI3
750TOMI2 BSR ROUT2
751TOMI3 DEC ,S
752 BNE TOMI1
753 BITA #$01
754 BNE TOMI4
755 BSR ROUT2
756 BRA TOMI5
757TOMI4 BSR ROUT1
758TOMI5 LDB ,U+
759 BPL TOMI0
760 PULS CC,A,B,DP,X,Y,U,PC
761
762ROUT1 PSHS X,A
763 LDA <$C5
764 ORA #$80
765 BRA TOMI6
766ROUT2 PSHS X,A
767 LDA <$C5
768 ANDA #$7F
769 BRA TOMI6
770TOMI6 STA <$C5
771 LDX #$0061
772TEMP2 LEAX -1,X
773 BNE TEMP2
774 PULS A,X,PC
775
776CHERCH 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
783CH0 STA $E7E5
784 LDU #$A000
785 LDB #$80
786CH1 LDX ,U
787VAL 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
822CH2 LEAU 128,U
823 INCB
824 BNE CH1
825 INCA
826 CMPA #$20
827 BLO CH0
828CH3 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
848TRI0 LEAY 8,X
849TRI1 LDB #4
850TRI2 LDA B,X
851 CMPA B,Y
852 BHI PERM
853 BLO TRI3
854 INCB
855 CMPB #7
856 BLO TRI2
857 BRA TRI3
858PERM LDB #6
859PERM0 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
867TRI3 LEAY 8,Y
868LIMTR1 CMPY #$0000
869 BLO TRI1
870 LEAX 8,X
871LIMTR0 CMPX #$0000
872 BLO TRI0
873TRI4 PULS A,B,DP,CC,X,Y,U,PC
874
875SAUV 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
883EC0 STA $E7E5
884 LDU #$A000
885 LDB #$80
886EC1 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
905EC2 STA 6,Y
906 CMPA 2,Y
907 BHI EC5
908 BEQ EC3
909 LDA #$FF
910 STA 3,Y
911EC3 LDA 4,Y
912 SUBA #20
913 BPL EC4
914 NEGA
915EC4 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
922EC5 PULS A,B,U
923EC6 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
936EC7 INCB
937 STD $604B
938 BRA EC8
939
940COMPAC PSHS A,B,DP,CC,X,Y,U
941EC8 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
961COMP0 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
970DAT0 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+
1005COMP1 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
1063COMP2 LDA #$FF
1064 STA $604E
1065COMP3 BSR DIROK
1066 PULS A,B,DP,CC,X,Y,U,PC
1067
1068DIROK LDY #$C000
1069 LDD #$0820
1070DIR0 STB ,Y+
1071 DECA
1072 BNE DIR0
1073 RTS
1074
1075DECOMP 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
1101DECO0 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
1114DAT2 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+
1134DECO1 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
1170DECO2 LDA #$FF
1171 STA $604E
1172DECO3 LDA #$82
1173 STA $60CD
1174 PULS A,B,DP,CC,X,Y,U,PC
1175
1176AFFIC5 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
1201NOUVLI DEC LIGNE
1202 BEQ PRINT5
1203 LDA #40
1204 STA COLON
1205OCTSUI LDA ,X+
1206 CMPX #$A400
1207 BHI PRINT5
1208 CMPA #$0D
1209 BNE ESTAFF
1210 LDB ,X+
1211 DEC COLON
1212 BMI NOUVLI
1213AFFD LDD #$0D0A
1214 STD ,Y++
1215 BRA NOUVLI
1216ESTAFF 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
1230OCTAFF DEC COLON
1231 BMI OCTSUI
1232 STA ,Y+
1233 BRA OCTSUI
1234
1235PRINT5 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
1247ATTMOD LDA $E7FE
1248 BITA #2
1249 BEQ ATTMOD
1250 LDA ,U+
1251 BEQ ATTMOD
1252 BMI FAFF5
1253 STA $E7FF
1254 BRA ATTMOD
1255ECRAN LDB ,U+
1256 BEQ ECRAN
1257 BMI FAFF5
1258 CMPB #$13
1259 BNE ECOK
1260 LDB #$16
1261ECOK JSR $E803
1262 BRA ECRAN
1263
1264FAFF5 PULS A,B,DP,CC,X,Y,U,PC
1265
1266PREPA5 STA $6048
1267 STX $604F
1268 LDX $6AB2
1269 BMI PB5
1270 CMPX #719
1271 BHI PB5
1272 LDA #2
1273 STA LIGNE
1274AGIR5 LDA #$D4
1275 STA $E7E7
1276 LDX $E000
1277 CMPX #$444B
1278 BEQ OK5
1279 LDA #$54
1280 STA $E7E7
1281PB5 LDX #$FFFF
1282 STX $6AB2
1283 LEAS 2,S
1284 PULS A,B,DP,CC,X,Y,U,PC
1285OK5 LDA $6052
1286 LDB $6054
1287 STA $6054
1288 STB $6052
1289 CLR $6058
1290 LDX $6AB2
1291 LDA #$FF
1292TEST5 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
1333SPB5 LDX #999
1334 STX $6AB2
1335SOROK5 RTS
1336
1337LIRE5 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
1348ECRI5 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
1354LIGNE FCB 0
1355COLON FCB 0
1356
1357SAVPTR FCB 0,0
1358
1359PARA1 FCB 0
1360PARA2 FCB 0
1361PARA3 FCB 0
1362PARA4 FCB 0
1363
1364TABPC 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
1380TABLE 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
1389ZONE 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
1398POKE RMB 300
1399
1400FIN FCB 0
1401
1402 END
Note: See TracBrowser for help on using the repository browser.