Validate-Befehl ($ed84) B262: 20 85 80 JSR $8085 Drivenummer holen B265: 20 03 8F JSR $8F03 Partition initialisieren B268: 20 4A B4 JSR $B44A neue BAM erzeugen, BAM-Blocks belegen B26B: A9 00 LDA #$00 Flag fuer Suche nach benutzten Directory- B26D: 85 73 STA $73 Eintraegen setzen B26F: 20 24 84 JSR $8424 1. Directory-Eintrag suchen B272: D0 38 BNE $B2AC gefunden, ==> Directory-Blocks belegen Einsprung von $B2AA: B274: A9 00 LDA #$00 1. Directory-Sektor holen B276: 85 4E STA $4E B278: AD 2B 02 LDA $022B B27B: 85 4D STA $4D B27D: 20 C7 B2 JSR $B2C7 Blocks belegen B280: 20 15 B5 JSR $B515 BAM abspeichern B283: 4C 4C 80 JMP $804C Ende Datei-Blocks (incl. Side-Sektoren) belegen Einsprung von $B2B6: B286: C8 INY y=1 B287: B1 64 LDA ($64),Y Track- & B289: 48 PHA B28A: C8 INY B28B: B1 64 LDA ($64),Y Sektornummer B28D: 48 PHA merken B28E: A0 13 LDY #$13 B290: B1 64 LDA ($64),Y sind Side-Sektoren vorhanden ? B292: F0 0A BEQ $B29E nein, ==> B294: 85 4D STA $4D T&S des ersten Side-Sektors B296: C8 INY setzen B297: B1 64 LDA ($64),Y B299: 85 4E STA $4E B29B: 20 C7 B2 JSR $B2C7 Blocks belegen Einsprung von $B292: B29E: 68 PLA B29F: 85 4E STA $4E T&S des Datenbereichs zurueckholen B2A1: 68 PLA B2A2: 85 4D STA $4D B2A4: 20 C7 B2 JSR $B2C7 und Blocks belegen naechstes File holen Einsprung von $B2BE, $B2C4: B2A7: 20 77 84 JSR $8477 Naechstes File suchen B2AA: F0 C8 BEQ $B274 Directory-Ende, ==> Einsprung von $B272: B2AC: A0 00 LDY #$00 B2AE: B1 64 LDA ($64),Y Filetyp holen B2B0: 10 0F BPL $B2C1 File nicht geschlossen, ==> B2B2: 29 07 AND #$07 Filetyp = CBM ? B2B4: C9 05 CMP #$05 B2B6: D0 CE BNE $B286 nein, ==> Partitions in BAM belegen B2B8: 20 23 B3 JSR $B323 Partition-Parameter holen B2BB: 20 3C B3 JSR $B33C Partition in BAM belegen B2BE: 4C A7 B2 JMP $B2A7 offene Files loeschen Einsprung von $B2B0: B2C1: 20 3B 87 JSR $873B Filetyp = 0 (DEL) setzen B2C4: 4C A7 B2 JMP $B2A7 naechstes File suchen Previous Page / Next Page |