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