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:
1.7 KB
|
Line | |
---|
1 | *
|
---|
2 | * ANNONCE2 (c) THEOPHILE J. ELTABET
|
---|
3 | * No 5 page 45 juin 1984
|
---|
4 | *
|
---|
5 | ORG $A000
|
---|
6 | AFF EQU $E803
|
---|
7 | CLAV EQU $E806
|
---|
8 | US EQU 1FH
|
---|
9 | ESC EQU 1BH
|
---|
10 | *
|
---|
11 | * DEBUT
|
---|
12 | *
|
---|
13 | LDX 1,X RECUP AD TEXTE
|
---|
14 | STX ADTXT
|
---|
15 | STB LTXT
|
---|
16 | LDX #ATT11 EN GROSSES LETTRES
|
---|
17 | BSR EDM
|
---|
18 | DEB CLR I
|
---|
19 | A0 LDX #POSI
|
---|
20 | BSR EDM
|
---|
21 | LDA I CTRL AFF TXT
|
---|
22 | INCA
|
---|
23 | STA I
|
---|
24 | CMPA LTXT FIN D'UN TOUR ?
|
---|
25 | BHI A9
|
---|
26 | *
|
---|
27 | * DELAI ATTENTE
|
---|
28 | *
|
---|
29 | LDY #3000
|
---|
30 | ATT LEAY -1,Y
|
---|
31 | BNE ATT
|
---|
32 | LDA I
|
---|
33 | CMPA #19 SI L<19 ALORS A1
|
---|
34 | BMI A1
|
---|
35 | *
|
---|
36 | * CAS DU MESSAGE > 19
|
---|
37 | *
|
---|
38 | LDA I CALCUL ADR DEBUT
|
---|
39 | SUBA #18 DU TEXTE
|
---|
40 | LDX ADTXT
|
---|
41 | A7 LEAX 1,X
|
---|
42 | DECA
|
---|
43 | BNE A7
|
---|
44 | LDA #19 ET AFFICHAGE
|
---|
45 | A2 LDB 0,X 19 CAR
|
---|
46 | JSR AFF
|
---|
47 | LEAX 1,X
|
---|
48 | DECA
|
---|
49 | BNE A2
|
---|
50 | BRA A0
|
---|
51 | *
|
---|
52 | * CAS DU MESSAGE < 19 CAR
|
---|
53 | *
|
---|
54 | A1 LDA #19 AFF DES . AVANT
|
---|
55 | SUBA I
|
---|
56 | LDB #'.
|
---|
57 | A4 JSR AFF
|
---|
58 | DECA
|
---|
59 | BNE A4
|
---|
60 | LDX ADTXT
|
---|
61 | LDA #1 AFFICHAGE DES I
|
---|
62 | A6 CMPA I PREMIERS CAR
|
---|
63 | BHI A0
|
---|
64 | LDB 0,X
|
---|
65 | JSR AFF
|
---|
66 | LEAX 1,X
|
---|
67 | INCA
|
---|
68 | BRA A6
|
---|
69 | *
|
---|
70 | * AUTRE TOUR ?
|
---|
71 | *
|
---|
72 | A9 JSR CLAV
|
---|
73 | TSTB
|
---|
74 | BEQ DEB
|
---|
75 | *
|
---|
76 | * FINAL
|
---|
77 | *
|
---|
78 | FIN LDX #ATT00 ON REVIENT
|
---|
79 | BSR EDM EN LETTRES NORM
|
---|
80 | RTS
|
---|
81 | *
|
---|
82 | * AFFICHAGE MESSAGE
|
---|
83 | *
|
---|
84 | EDM LDB 0,X
|
---|
85 | BEQ FEDM
|
---|
86 | JSR AFF
|
---|
87 | LEAX 1,X
|
---|
88 | BRA EDM
|
---|
89 | FEDM RTS
|
---|
90 | *
|
---|
91 | * DEFINITION DE ZONES
|
---|
92 | *
|
---|
93 | POSI FCB US,40H+23,40H+1,0
|
---|
94 | ATT11 FCB ESC,4FH,0
|
---|
95 | ATT00 FCB ESC,4CH,0
|
---|
96 | LTXT FCB 0
|
---|
97 | I FCB 0
|
---|
98 | ADTXT FCB 00
|
---|
99 | END
|
---|
Note:
See
TracBrowser
for help on using the repository browser.