home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
olymp.-comp.-2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
6KB
|
241 lines
100 REM ****** CENTRONICS ***********
101 REM INTERFACE FUER OLYMPIA COMPACT2
102 REM (C) REINHARD ATZBACH 020784
103 REM *******************************
104 FORN=0TO462: READB: POKE32000+N,B
105 NEXT:SYS32000:POKE55,255:POKE56,124
106 REM *******************************
107 :
108 : REM INITIALISIERUNG
109 :
110 DATA 169,255 :REM LDA #FF
111 DATA 141, 3,221:REM STA DDR B
112 DATA 169, 0 :REM LDA #00
113 DATA 141, 1,221:REM STA PORT B
114 DATA 169,125 :REM * LDA #CHROUTH
115 DATA 141, 39, 3:REM STA CHRVEKH
116 DATA 141, 33, 3:REM STA CHKVEKH
117 DATA 169, 54 :REM * LDA #CHROUTL
118 DATA 141, 38, 3:REM STA CHRVEKL
119 DATA 169, 29 :REM * LDA #CHKOUTL
120 DATA 141, 32, 3:REM STA CHKVEKL
121 DATA 96 :REM RTS
122 :
123 : REM CHKOUT
124 :
125 DATA 32, 15,243:REM JSR FILENR
126 DATA 240, 3 :REM BEQ A
127 DATA 76, 1,247:REM JMP F N OPEN
128 DATA 32, 31,243:REM A JSR SETPARA
129 DATA 165,186 :REM LDA GERAETNR
130 DATA 201, 4 :REM CMP #CEN
131 DATA 240, 5 :REM BEQ B
132 DATA 165,186 :REM LDA GERAETNR
133 DATA 76, 93,242:REM JMP ANDERES
134 DATA 76,117,242:REM B JMP CENTR.
135 :
136 : REM CHROUT
137 :
138 DATA 72 :REM PHA
139 DATA 165,154 :REM LDA GERAET
140 DATA 201, 4 :REM CMP #CENTR.
141 DATA 240, 3 :REM BEQ C
142 DATA 76,205,241:REM JMP ANDERES
143 :
144 : REM OLYMPIAUMSETZUNG
145 :
146 DATA 134, 5 :REM C STX 5
147 DATA 132, 6 :REM STY 6
148 DATA 169, 6 :REM * LDA #ENDPGL
149 DATA 133, 3 :REM STA 3
150 DATA 169,126 :REM * LDA #ENDPGH
151 DATA 133, 4 :REM STA 4
152 DATA 160,200 :REM LDY LENCAT
153 DATA 162, 1 :REM LDX #1
154 DATA 104 :REM PLA
155 :
156 : REM SONDERZEICHEN
157 :
158 DATA 201,127 :REM CMP #7F
159 DATA 240, 77 :REM BEQ K
160 :
161 DATA 209, 3 :REM D CMP (3),Y
162 DATA 240, 8 :REM BEQ E
163 DATA 136 :REM DEY
164 DATA 136 :REM DEY
165 DATA 136 :REM DEY
166 DATA 136 :REM DEY
167 DATA 208,246 :REM BNE D
168 DATA 240, 27 :REM BEQ G
169 DATA 192, 73 :REM E CPY #49
170 DATA 144, 8 :REM BCC F
171 DATA 36, 15 :REM BIT 15
172 DATA 48, 4 :REM BMI F
173 DATA 169, 0 :REM LDA #0
174 DATA 16, 53 :REM BPL K
175 DATA 162, 3 :REM F LDX #3
176 DATA 136 :REM DEY
177 DATA 177, 3 :REM LDA (3),Y
178 DATA 72 :REM PHA
179 DATA 136 :REM DEY
180 DATA 177, 3 :REM LDA (3),Y
181 DATA 72 :REM PHA
182 DATA 136 :REM DEY
183 DATA 177, 3 :REM LDA (3),Y
184 DATA 16, 38 :REM BPL K
185 :
186 : REM ZEICHENSATZ ?
187 :
188 DATA 72 :REM G PHA
189 DATA 173, 24,208:REM LDA VIDEO
190 DATA 41, 2 :REM AND #02
191 DATA 208, 9 :REM BNE H
192 :
193 : REM 1.ZEICHENSATZ
194 :
195 DATA 104 :REM PLA
196 DATA 201, 91 :REM CMP #5B
197 DATA 144, 25 :REM BCC K
198 DATA 169, 95 :REM LDA #5F
199 DATA 176, 21 :REM BCS K
200 :
201 : REM 2.ZEICHENSATZ
202 :
203 DATA 104 :REM H PLA
204 DATA 201, 64 :REM CMP #40
205 DATA 144, 10 :REM BCC J
206 DATA 201,192 :REM CMP #C0
207 DATA 144, 4 :REM BCC I
208 DATA 41,127 :REM AND #7F
209 DATA 208, 2 :REM BNE J
210 DATA 9, 32 :REM I ORA #20
211 DATA 201,123 :REM J CMP #7A
212 DATA 144, 2 :REM BCC K
213 DATA 169, 95 :REM LDA #5F
214 DATA 72 :REM K PHA
215 :
216 : REM RUECKTASTE
217 :
218 DATA 104 :REM L PLA
219 DATA 201,127 :REM CMP #7F
220 DATA 208, 20 :REM BNE O
221 DATA 198, 2 :REM DEC 2
222 DATA 230, 2 :REM INC 2
223 DATA 240, 68 :REM BEQ T
224 DATA 198, 2 :REM DEC 2
225 DATA 240, 8 :REM BEQ N
226 DATA 169, 32 :REM LDA #20
227 DATA 232 :REM M INX
228 DATA 72 :REM PHA
229 DATA 198, 2 :REM DEC 2
230 DATA 208,250 :REM BNE M
231 DATA 169, 13 :REM N LDA #0D
232 :
233 : REM DRUCKERCURSOR IN 0002
234 :
235 DATA 201, 13 :REM O CMP #0D
236 DATA 208, 6 :REM BNE Q
237 DATA 72 :REM P PHA
238 DATA 169, 0 :REM LDA #0
239 DATA 133, 2 :REM STA 2
240 DATA 104 :REM PLA
241 :
242 DATA 201, 27 :REM Q CMP #1B
243 DATA 208, 2 :REM BNE R
244 DATA 198, 2 :REM DEC 2
245 :
246 DATA 201, 32 :REM R CMP #20
247 DATA 144, 34 :REM BCC U
248 :
249 DATA 201, 94 :REM CMP #5E
250 DATA 208, 12 :REM BNE S
251 DATA 169,127 :REM LDA #7F
252 DATA 72 :REM PHA
253 DATA 232 :REM INX
254 DATA 169, 32 :REM LDA #20
255 DATA 72 :REM PHA
256 DATA 232 :REM INX
257 DATA 169, 94 :REM LDA #5E
258 DATA 208, 18 :REM BNE U
259 :
260 DATA 201, 96 :REM S CMP #60
261 DATA 208, 12 :REM BNE T
262 DATA 169,127 :REM LDA #7F
263 DATA 72 :REM PHA
264 DATA 232 :REM INX
265 DATA 169, 32 :REM LDA #20
266 DATA 72 :REM PHA
267 DATA 232 :REM INX
268 DATA 169, 96 :REM LDA #60
269 DATA 208, 2 :REM BNE U
270 :
271 DATA 230, 2 :REM T INC 2
272 :
273 : REM AUSGABE
274 :
275 DATA 72 :REM U PHA
276 DATA 173, 13,221:REM V LDA FLAG
277 DATA 41, 16 :REM AND #10
278 DATA 240,249 :REM BEQ V
279 DATA 104 :REM PLA
280 DATA 141, 1,221:REM STA PORT
281 DATA 202 :REM DEX
282 DATA 208,162 :REM BNE L
283 DATA 166, 5 :REM LDX 5
284 DATA 164, 6 :REM LDY 6
285 DATA 24 :REM CLC
286 DATA 96 :REM RTS
287 :
288 : REM OLYMPIADATEN
289 :
290 DATA 13, 10, 0, 13 :REM CR MIT LF
291 DATA 13, 0, 0, 11 :REM OHNE LF
292 DATA 112,127,105,255 :REM (null)
293 DATA 96, 94, 39, 94 :REM ^
294 DATA 62, 0, 0, 64 :REM @
295 DATA 14, 47, 15, 62 :REM >
296 DATA 14, 45, 15, 60 :REM <
297 DATA 123, 0, 0,166 :REM KL AE
298 DATA 124, 0, 0,220 :REM KL OE
299 DATA 125, 0, 0,168 :REM KL UE
300 DATA 126, 0, 0, 92 :REM SZ
301 DATA 91, 0, 0,219 :REM GR AE
302 DATA 92, 0, 0,221 :REM GR OE
303 DATA 93, 0, 0,169 :REM GR UE
304 DATA 95, 0, 0,164 :REM UNTERSTR
305 DATA 14, 44, 15,186 :REM TEILUNG
306 DATA 14, 42, 15,223 :REM QUADRAT
307 DATA 14, 43, 15,192 :REM KUBIK
308 DATA 95,127, 85,145 :REM CURS U
309 DATA 95,127, 68, 17 :REM CURS D
310 DATA 95,127, 76,157 :REM CURS L
311 DATA 95,127, 82, 29 :REM CURS R
312 DATA 95,127, 67, 19 :REM CLR
313 DATA 95,127, 72,147 :REM HOME
314 DATA 95,127, 73, 18 :REM RVS
315 DATA 95,127, 78,146 :REM RVS OFF
316 DATA 95,127, 97,144 :REM SCHWARZ
317 DATA 95,127, 98, 5 :REM WEISS
318 DATA 95,127, 99, 28 :REM ROT
319 DATA 95,127,100,159 :REM CYAN
320 DATA 95,127,101,156 :REM MAGENTA
321 DATA 95,127,102, 30 :REM GRUEN
322 DATA 95,127,103, 31 :REM BLAU
323 DATA 95,127,103,158 :REM YELLOW
324 DATA 95,127,105,129 :REM ORANGE
325 DATA 95,127,106,149 :REM BRAUN
326 DATA 95,127,107,150 :REM HELLROT
327 DATA 95,127,108,151 :REM GRAU 1
328 DATA 95,127,109,152 :REM GRAU 2
329 DATA 95,127,110,153 :REM GRUEN
330 DATA 95,127,111,154 :REM HELLBLAU
331 DATA 95,127,112,155 :REM GRAU 3
332 DATA 95,127, 49,133 :REM F 1
333 DATA 95,127, 51,134 :REM F 3
334 DATA 95,127, 53,135 :REM F 5
335 DATA 95,127, 55,136 :REM F 7
336 DATA 95,127, 50,137 :REM F 2
337 DATA 95,127, 52,138 :REM F 4
338 DATA 95,127, 54,139 :REM F 6
339 DATA 95,127, 56,140 :REM F 8