source: thomson/code/3rdparty/sources2-hcl/SCROL16c.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.1 KB
Line 
1****************************************
2* SCROLLTEXT EN BITMAP 16 COULEURS *
3****************************************
4* Les autres scrolls peuvent toujours *
5* scroller, Doc Lô reste intouchable ! *
6****************************************
7
8FONTE EQU -HAUT*LONG*2
9RAMA EQU $DF18-HAUT*40
10RAMB EQU RAMA-$2000
11HAUT EQU 44 multiple de 7 ! +2
12LONG EQU 5 segments par CHR$
13DIR EQU $9F } début buffer
14Z EQU 0 } à accès direct
15CARTOU EQU 15 page $0000-$3FFF
16
17 ORG DIR*256+Z
18 FDB 1,TEXTE,FONTE
19
20 ORG $9800
21G ORCC #80
22 LDA #DIR
23 EXG A,DP
24 LDB $E7E6
25 STA RDP+1
26 STB RDP+2
27 STS RDP-2
28
29 LDA #123
30 STA $E7DC
31 LDD #$260+CARTOU
32 STD $E7E5
33 LDD #0
34 LDX #$A000
35 STD ,X++
36 CMPX #$E000
37 BNE *-5
38 INC $E7E5
39 STD ,--X
40 CMPX #$A000
41 BNE *-5
42 LDA #255
43 LDX #COLORS+32
44 JSR $EC00
45
46SYNCRO TST $E7E7
47 BPL *-3
48 TST $E7E7
49 BMI *-3
50 LDD #$380
51 STA $E7E5 premier écran
52 STB $E7DD
53
54 LDX #RAMA+160
55 LDU <Z+4
56 LDA #HAUT/7
57 STA <Z
58COPYA1 PULU D
59 STA -120,X
60 STB -80,X
61 PULU D
62 STA -40,X
63 STB ,X
64 PULU D
65 STA 40,X
66 STB 80,X
67 PULU A
68 STA 120,X
69 LEAX 280,X
70 DEC <Z
71 BNE COPYA1
72 PULU D
73 STA -120,X
74 STB -80,X
75 STU <Z+4
76
77 LDA #HAUT
78 STA <Z
79 LDU #RAMA+1
80SCRLA1 PULU D,X,Y,S
81 LEAU -1,U
82 PSHU S,Y,X,D
83 LEAU 9,U
84 FDB $3776,$335F,$3676,$3349
85 FDB $3776,$335F,$3676,$3349
86 FDB $3776,$335F,$3676,$3349
87 FDB $3776,$335F,$3676,$3349
88 DEC <Z
89 BNE SCRLA1
90 CLR RAMA+HAUT*40
91
92 DEC <Z+1
93 BNE MEMLET
94
95 LDA #LONG
96 STA <Z+1
97 LDX <Z+2
98 LDA ,X+ lettre suivante
99 BNE *+7
100 LDX #TEXTE
101 LDA ,X+
102 LDU #FONTE
103 LDB #HAUT*LONG
104 ASLA
105 MUL
106 LEAU D,U
107 STU <Z+4
108 STX <Z+2
109
110MEMLET LDX #RAMB+160
111 LDU <Z+4
112 LDA #HAUT/7
113 STA <Z
114COPYB1 PULU D
115 STA -120,X
116 STB -80,X
117 PULU D
118 STA -40,X
119 STB ,X
120 PULU D
121 STA 40,X
122 STB 80,X
123 PULU A
124 STA 120,X
125 LEAX 280,X
126 DEC <Z
127 BNE COPYB1
128 PULU D
129 STA -120,X
130 STB -80,X
131
132 LDA #HAUT
133 STA <Z
134 LDU #RAMB+1
135SCRLB1 PULU D,X,Y,S
136 LEAU -1,U
137 PSHU S,Y,X,D
138 LEAU 9,U
139 FDB $3776,$335F,$3676,$3349
140 FDB $3776,$335F,$3676,$3349
141 FDB $3776,$335F,$3676,$3349
142 FDB $3776,$335F,$3676,$3349
143 DEC <Z
144 BNE SCRLB1
145 CLR RAMB+HAUT*40
146
147 TST $E7E7
148 BPL *-3
149 TST $E7E7
150 BMI *-3
151 LDD #$2C0
152 STA $E7E5 deuxième écran
153 STB $E7DD
154
155 LDX #RAMA+160
156 LDU <Z+4
157 LDA #HAUT/7
158 STA <Z
159COPYA2 PULU D
160 STA -120,X
161 STB -80,X
162 PULU D
163 STA -40,X
164 STB ,X
165 PULU D
166 STA 40,X
167 STB 80,X
168 PULU A
169 STA 120,X
170 LEAX 280,X
171 DEC <Z
172 BNE COPYA2
173 PULU D
174 STA -120,X
175 STB -80,X
176 STU <Z+4
177
178 LDA #HAUT
179 STA <Z
180 LDU #RAMA+1
181SCRLA2 PULU D,X,Y,S
182 LEAU -1,U
183 PSHU S,Y,X,D
184 LEAU 9,U
185 FDB $3776,$335F,$3676,$3349
186 FDB $3776,$335F,$3676,$3349
187 FDB $3776,$335F,$3676,$3349
188 FDB $3776,$335F,$3676,$3349
189 DEC <Z
190 BNE SCRLA2
191 CLR RAMA+HAUT*40
192
193 LDX #RAMB+160
194 LDU <Z+4
195 LDA #HAUT/7
196 STA <Z
197COPYB2 PULU D
198 STA -120,X
199 STB -80,X
200 PULU D
201 STA -40,X
202 STB ,X
203 PULU D
204 STA 40,X
205 STB 80,X
206 PULU A
207 STA 120,X
208 LEAX 280,X
209 DEC <Z
210 BNE COPYB2
211 PULU D
212 STA -120,X
213 STB -80,X
214
215 LDA #HAUT
216 STA <Z
217 LDU #RAMB+1
218SCRLB2 PULU D,X,Y,S
219 LEAU -1,U
220 PSHU S,Y,X,D
221 LEAU 9,U
222 FDB $3776,$335F,$3676,$3349
223 FDB $3776,$335F,$3676,$3349
224 FDB $3776,$335F,$3676,$3349
225 FDB $3776,$335F,$3676,$3349
226 DEC <Z
227 BNE SCRLB2
228 CLR RAMB+HAUT*40
229
230 TST $E7C8
231 LBEQ SYNCRO
232
233 LDS #0
234RDP LDD #0
235 TFR A,DP
236 STB $E7E6
237 CLR $E7DD
238 CLR $E7DC
239 LDA #255
240 LDX #COLORS
241 JSR $EC00
242 SWI
243
244COLORS FDB 0,15,240,255,3840,3855
245 FDB 4080,4095,1911,826,931
246 FDB 938,2611,2618,3815,123
247 FDB 0,$FFF,$EEE,$DDD,$CCC,$BBB
248 FDB $AAA,$999,$888,$777,$666
249 FDB $555,$444,$333,$222,$111
250TEXTE FCB 1,2,3,4,5,6,7,8,9,0
251
252 END
Note: See TracBrowser for help on using the repository browser.