10 INPUT"LAUFWERK";DD:REM LAUFWERKNUMMER HOLEN 15 INPUT"NAME";NA$:REM FILENAME HOLEN 20 NA$=LEFT$(NA$,16)+",P,W" 30 OPEN1,DD,7,NA$:REM FILE OEFFNEN 40 READDA:IFDA<>-1THENPRINT#1,CHR$(DA);:GOTO40 50 CLOSE1 500 DATA 66,3 505 REM ADDRESSE DER ROUTINE ($0342) 1120 DATA 173,2,221 1125 REM $0342 LDA $DD02 ; DDRA BEI 1130 DATA 141,64,3 1135 REM $0345 STA $0340 ; $0340 1137 REM ; SICHERN 1140 DATA 173,3,221 1145 REM $0348 LDA $DD03 ; DDRB BEI 1150 DATA 141,65,3 1155 REM $034B STA #0341 ; $0341 1157 REM ; SICHERN 1160 DATA 173,60,3 1165 REM $034E LDA $033C ; LOW BYTE 1170 DATA 133,167 1175 REM $0351 STA $A7 ; NACH $A7 1180 DATA 173,61,3 1185 REM $0353 LDA $033D ; HIGH BYTE 1190 DATA 133,168 1195 REM $0356 STA $A8 ; NACH $A8 1200 DATA 120 1205 REM $0358 SEI ; IRQ 1207 REM ; VERBIETEN 1210 DATA 173,2,221 1215 REM $0359 LDA $DD02 ; DDRA HOLEN 1220 DATA 9,4 1225 REM $035C ORA #$04 ; BIT 2 1227 REM ; SETZEN 1230 DATA 141,2,221 1235 REM $035E STA $DD02 ; NACH DDRA 1240 DATA 169,255 1245 REM $0361 LDA #$FF ; ALLE BITS 1247 REM ; SETZEN 1250 DATA 141,3,221 1255 REM $0363 STA $DD03 ; IN DDRB 1260 DATA 160,0 1265 REM $0366 LDY #$00 ; RESET Y REG 1270 DATA 174,63,3 1275 REM $0368 LDX $033F ; LAENGE HIGH 1276 REM ; NACH X 1280 DATA 240,33 1285 REM $036B BEQ $038E ; VERZWEIGE 1287 REM ; WENN 0 1290 DATA 173,13,221 1295 REM $036D LDA $DD0D ; HOLE ICR 1300 DATA 41,16 1305 REM $0370 AND #$10 ; UEBERPRUEFE 1307 REM ; BIT 4 1310 DATA 240,249 1315 REM $0372 BEQ $036D ; SCHLEIFE 1316 REM ; WENN NICHT 1317 REM ; GESETZT 1320 DATA 177,167 1325 REM $0374 LDA ($A7),Y; LADE DATUM 1330 DATA 141,1,221 1335 REM $0376 STA $DD01 ; SCHIEBE 1336 REM ; NACH PRB 1340 DATA 173,0,221 1345 REM $0379 LDA $DD00 ; HOLE PRA 1350 DATA 41,251 1355 REM $037C AND #$FB ; LOESCHE 1357 REM ; BIT 2 1360 DATA 141,0,221 1365 REM $037E STA $DD00 ; NACH PRA 1370 DATA 9,4 1375 REM $0381 ORA #$04 ; SETZE 1377 REM ; BIT 2 1380 DATA 141,0,221 1385 REM $0383 STA $DD00 ; NACH PRA 1390 DATA 200 1395 REM $0386 INY ; ERHOEHE 1396 REM ; Y REG 1400 DATA 208,228 1405 REM $0387 BNE $036D ; SCHLEIFE 1406 REM ; WENN SEITE 1407 REM ; NOCH NICHT 1408 REM ; VOLL 1410 DATA 230,168 1415 REM $0389 INC $A8 ; ERHOEHE 1416 REM ; SEITE IN 1417 REM ; $A8 1420 DATA 202 1425 REM $038B DEX ; VERRINGERE 1426 REM ; SEITENZAHL 1430 DATA 208,223 1435 REM $038C BNE $036D ; SCHLEIFE 1436 REM ; WENN 1437 REM ; UNGLEICH 0 1440 DATA 174,62,3 1445 REM $038E LDX $033E ; LAENGE LOW 1446 REM ; NACH X REG 1450 DATA 240,29 1455 REM $0391 BEQ $031E ; ENDE WENN 0 1460 DATA 173,13,221 1465 REM $0393 LDA $DD0D ; HOLE ICR 1470 DATA 41,16 1475 REM $0396 AND #$10 ; PRUEFE 1477 REM ; BIT 4 1480 DATA 240,249 1485 REM $0398 BEQ $08A8 ; SCHLEIFE 1486 REM ; WENN NICHT 1487 REM ; GESETZT 1490 DATA 177,167 1495 REM $039A LDA ($A7),Y; HOLE DATUM 1500 DATA 141,1,221 1505 REM $039C STA $DD01 ; SCHIEBE 1506 REM ; NACH PRB 1510 DATA 173,0,221 1515 REM $039F LDA $DD00 ; HOLE PRA 1520 DATA 41,251 1525 REM $03A2 AND #$FB ; LOESCHE 1527 REM ; BIT 2 1530 DATA 141,0,221 1535 REM $03A4 STA $DD00 ; NACH PRA 1540 DATA 9,4 1545 REM $03A7 ORA #$04 ; SETZE 1547 REM ; BIT 2 1550 DATA 141,0,221 1555 REM $03A9 STA $DD00 ; NACH PRA 1560 DATA 200 1565 REM $03AC INY ; ERHOEHE 1566 REM ; Y REG 1570 DATA 202 1575 REM $03AD DEX ; VERRINGERE 1576 REM ; ZAEHLER 1580 DATA 208,227 1585 REM $03AE BNE $0391 ; SCHLEIFE 1586 REM ; WENN 1587 REM ; UNGLEICH 0 1590 DATA 173,64,3 1595 REM $03B0 LDA $0340 ; HOLE DDRA 1600 DATA 141,2,221 1605 REM $03B3 STA $DD02 ; ZURUECK 1610 DATA 173,65,3 1615 REM $03B6 LDA $0341 ; HOLE DDRB 1620 DATA 141,3,221 1625 REM $03B9 STA $DD03 ; ZURUECK 1630 DATA 88 1635 REM $03BC CLI ; GESTATTE 1637 REM ; IRQ 1640 DATA 96 1645 REM $03BD RTS ; END 30000 DATA -1