FLOPPY-LADER.SRC
FILE INFORMATION
FILENAME(S): FLOPPY-LADER.SRC
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-02 16:41:30
APPEARS ON: 4 disk(s)
FILE HASH
199c6995a9fcc215f06e3e61575bcbad72f21fce9e56ff13df2334c5bf2f6862
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15825 SH 25 | FLOPPY-LADER.SRC | PRG | Treasure Chest - PrettyOldPixel | 6 | 5 | DOWNLOAD FILE |
| 15825 SH 25 | FLOPPY-LADER.SRC | PRG | C64er | 6 | 5 | DOWNLOAD FILE |
| IDE HARDDISK | FLOPPY-LADER.SRC | PRG | DuncanTwain | 21 | 1 | DOWNLOAD FILE |
| PC FLOP | FLOPPY-LADER.SRC | PRG | DuncanTwain | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 0A 00 8F 20 4F 50 45 4E 20 31 2C 38 |..'.... OPEN 1,8|
00000010: 2C 31 2C 22 30 3A 46 4C 4F 50 50 59 2D 4C 41 44 |,1,"0:FLOPPY-LAD|
00000020: 45 52 2E 4F 42 4A 22 00 31 08 0C 00 9F 20 32 2C |ER.OBJ".1.... 2,|
00000030: 34 00 3D 08 0D 00 9E 20 33 32 37 36 38 00 43 08 |4.=.... 32768.C.|
00000040: 0E 00 3B 00 60 08 0F 00 3B 20 AC AC AC AC AC AC |..;.`...; ......|
00000050: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000060: 00 7D 08 10 00 3B 20 AC 20 20 20 20 46 4C 4F 50 |.}...; . FLOP|
00000070: 50 59 AB 4C 41 44 45 52 20 20 20 20 AC 00 9A 08 |PY.LADER ....|
00000080: 11 00 3B 20 AC 20 20 20 20 20 20 20 20 20 20 20 |..; . |
00000090: 20 20 20 20 20 20 20 20 20 AC 00 B6 08 12 00 3B | ......;|
000000A0: 20 AC 20 20 56 91 20 20 55 57 45 20 47 45 52 4C | . V. UWE GERL|
000000B0: 41 43 48 20 20 AC 00 D3 08 13 00 3B 20 AC 20 54 |ACH ......; . T|
000000C0: 45 4C 2E 20 20 30 36 31 35 31 AD 33 31 36 32 30 |EL. 06151.31620|
000000D0: 35 20 AC 00 F0 08 14 00 3B 20 AC 20 20 20 42 5A |5 ......; . BZ|
000000E0: 57 20 30 36 36 32 32 AD 33 39 30 38 20 20 20 AC |W 06622.3908 .|
000000F0: 00 0D 09 15 00 3B 20 AC 20 20 20 20 20 20 20 20 |.....; . |
00000100: 20 20 20 20 20 20 20 20 20 20 20 20 AC 00 2A 09 | ..*.|
00000110: 16 00 3B 20 AC 20 20 20 20 20 20 30 36 2E 30 34 |..; . 06.04|
00000120: 2E 38 36 20 20 20 20 20 20 AC 00 47 09 17 00 3B |.86 ..G...;|
00000130: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
00000140: AC AC AC AC AC AC AC 00 4D 09 28 00 3B 00 71 09 |........M.(.;.q.|
00000150: 32 00 3B 20 4C 41 45 44 54 20 45 49 4E 20 46 49 |2.; LAEDT EIN FI|
00000160: 4C 45 20 49 4E 53 20 46 4C 4F 50 50 59 AB 52 41 |LE INS FLOPPY.RA|
00000170: 4D 00 95 09 3C 00 3B 20 41 42 20 44 45 52 20 47 |M...<.; AB DER G|
00000180: 45 53 50 45 49 43 48 45 52 54 45 4E 20 41 44 52 |ESPEICHERTEN ADR|
00000190: 45 53 53 45 2E 00 BB 09 46 00 3B 20 46 49 C3 41 |ESSE....F.; FI.A|
000001A0: 4D 45 20 53 54 45 48 54 20 41 42 20 4E 41 4D 45 |ME STEHT AB NAME|
000001B0: 20 49 4D 20 46 4C 4F 50 50 59 AB 00 CB 09 50 00 | IM FLOPPY....P.|
000001C0: 3B 20 53 50 45 49 43 48 45 52 2E 00 D1 09 5A 00 |; SPEICHER....Z.|
000001D0: 3B 00 FA 09 64 00 2E 54 49 54 20 22 46 4C 4F 50 |;...d..TIT "FLOP|
000001E0: 50 59 2D 4C 41 44 45 52 20 43 36 34 20 26 20 56 |PY-LADER C64 & V|
000001F0: 43 31 35 34 31 20 20 20 20 22 00 06 0A 78 00 2E |C1541 "...x..|
00000200: 4F 50 54 20 50 32 00 0C 0A 7D 00 3B 00 36 0A 82 |OPT P2...}.;.6..|
00000210: 00 AC B2 24 30 34 30 30 3B 20 41 53 53 45 4D 42 |...$0400; ASSEMB|
00000220: 4C 49 45 52 45 4E 20 46 55 45 52 20 44 49 45 20 |LIEREN FUER DIE |
00000230: 46 4C 4F 50 50 59 00 3C 0A 96 00 3B 00 4D 0A C8 |FLOPPY.<...;.M..|
00000240: 00 5A 45 49 47 45 52 20 B2 20 24 33 37 00 5E 0A |.ZEIGER . $37.^.|
00000250: D2 00 4C 41 45 4E 47 45 20 B2 20 24 33 35 00 83 |..LAENGE . $35..|
00000260: 0A DC 00 4E 41 4D 45 20 B2 20 24 30 34 46 30 3B |...NAME . $04F0;|
00000270: 41 4E 46 41 4E 47 20 44 45 53 20 46 49 C3 41 4D |ANFANG DES FI.AM|
00000280: 45 4E 53 00 AC 0A E6 00 4C 45 44 20 B2 20 24 31 |ENS.....LED . $1|
00000290: 43 30 30 3B 41 44 52 45 53 53 45 20 46 55 45 52 |C00;ADRESSE FUER|
000002A0: 20 4C 45 44 20 28 42 49 54 20 33 29 00 B2 0A E8 | LED (BIT 3)....|
000002B0: 03 3B 00 D9 0A F2 03 3B 20 4C 45 44 20 42 45 44 |.;.....; LED BED|
000002C0: 49 45 4E 55 4E 47 20 55 4E 44 20 50 52 4F 47 52 |IENUNG UND PROGR|
000002D0: 41 4D 4D 41 55 46 52 55 46 00 DF 0A FC 03 3B 00 |AMMAUFRUF.....;.|
000002E0: EB 0A 1A 04 4C 44 41 20 4C 45 44 00 F7 0A 24 04 |....LDA LED...$.|
000002F0: B0 41 20 23 24 30 38 00 18 0B 2E 04 53 54 41 20 |.A #$08.....STA |
00000300: 4C 45 44 3B 52 4F 54 45 20 4C 45 44 20 45 49 4E |LED;ROTE LED EIN|
00000310: 53 43 48 41 4C 54 45 4E 00 1E 0B 38 04 3B 00 44 |SCHALTEN...8.;.D|
00000320: 0B 42 04 4A 53 52 20 53 55 43 48 45 3B 44 49 45 |.B.JSR SUCHE;DIE|
00000330: 4E 53 54 50 52 4F 47 52 41 4D 4D 20 41 55 46 52 |NSTPROGRAMM AUFR|
00000340: 55 46 45 4E 00 4A 0B 4C 04 3B 00 56 0B 60 04 4C |UFEN.J.L.;.V.`.L|
00000350: 44 41 20 4C 45 44 00 67 0B 6A 04 AF 20 23 25 31 |DA LED.g.j.. #%1|
00000360: 31 31 31 30 31 31 31 00 88 0B 74 04 53 54 41 20 |1110111...t.STA |
00000370: 4C 45 44 3B 52 4F 54 45 20 4C 45 44 20 41 55 53 |LED;ROTE LED AUS|
00000380: 53 43 48 41 4C 54 45 4E 00 A9 0B 7E 04 54 58 41 |SCHALTEN...~.TXA|
00000390: 3B 46 45 48 4C 45 52 4E 55 4D 4D 45 52 20 49 4E |;FEHLERNUMMER IN|
000003A0: 20 44 45 4E 20 41 4B 4B 55 00 D0 0B 88 04 42 45 | DEN AKKU.....BE|
000003B0: 51 20 4F 4B 3B 46 41 4C 4C 53 20 4B 45 49 4E 20 |Q OK;FALLS KEIN |
000003C0: 46 45 48 4C 45 52 20 41 55 46 A1 52 45 54 45 4E |FEHLER AUF.RETEN|
000003D0: 00 D6 0B 9C 04 3B 00 FE 0B A6 04 4A 53 52 20 24 |.....;.....JSR $|
000003E0: 45 36 43 37 3B 46 45 48 4C 45 52 4D 45 4C 44 55 |E6C7;FEHLERMELDU|
000003F0: 4E 47 20 42 45 52 45 49 54 53 54 45 4C C3 00 18 |NG BEREITSTEL...|
00000400: 0C B0 04 4A 53 52 20 24 43 31 32 43 3B 4C 45 44 |...JSR $C12C;LED|
00000410: 20 42 4C 49 4E 4B 45 4E 00 26 0C BA 04 4F 4B 20 | BLINKEN.&...OK |
00000420: 52 54 53 3B 80 45 00 2C 0C F0 0A 3B 00 32 0C 54 |RTS;.E.,...;.2.T|
00000430: 0B 3B 00 56 0C 5E 0B 3B 20 41 4E 46 41 4E 47 53 |.;.V.^.; ANFANGS|
00000440: 42 4C 4F 43 4B 20 44 45 53 20 46 49 4C 45 53 20 |BLOCK DES FILES |
00000450: 53 55 43 48 45 4E 00 5C 0C 68 0B 3B 00 88 0C B8 |SUCHEN.\.h.;....|
00000460: 0B 53 55 43 48 45 20 4A 53 52 20 4C 49 45 53 3B |.SUCHE JSR LIES;|
00000470: 42 4C 4F 43 4B 20 31 38 2C 31 20 4E 41 43 48 20 |BLOCK 18,1 NACH |
00000480: 50 55 46 46 45 52 20 30 00 AB 0C C2 0B 4C 44 59 |PUFFER 0.....LDY|
00000490: 20 23 32 3B 41 4E 46 41 4E 47 20 45 52 53 54 45 | #2;ANFANG ERSTE|
000004A0: 52 20 46 49 4C 45 45 B5 52 41 47 00 BA 0C CC 0B |R FILEE.RAG.....|
000004B0: 53 54 59 20 5A 45 49 47 45 52 00 C9 0C D6 0B 45 |STY ZEIGER.....E|
000004C0: B5 52 20 4C 44 58 20 23 30 00 E5 0C E0 0B 4C 44 |.R LDX #0.....LD|
000004D0: 41 20 24 30 33 30 30 2C 59 3B 46 49 88 59 50 20 |A $0300,Y;FI.YP |
000004E0: 4C 45 53 45 4E 00 0A 0D EA 0B 42 45 51 20 4E 49 |LESEN.....BEQ NI|
000004F0: 58 3B 55 45 42 45 52 53 50 52 49 4E 47 45 4E 2C |X;UEBERSPRINGEN,|
00000500: 20 46 41 4C 4C 53 20 44 45 4C 00 16 0D F4 0B 49 | FALLS DEL.....I|
00000510: 4E 59 3A 49 4E 59 00 33 0D FE 0B 49 4E 59 3B 5A |NY:INY.3...INY;Z|
00000520: 45 49 47 45 52 20 59 20 41 55 46 20 46 49 C3 41 |EIGER Y AUF FI.A|
00000530: 4D 45 4E 00 5F 0D 08 0C 50 52 55 45 46 20 4C 44 |MEN._...PRUEF LD|
00000540: 41 20 4E 41 4D 45 2C 58 3B 5A 45 49 43 48 45 4E |A NAME,X;ZEICHEN|
00000550: 20 41 55 53 20 46 49 C3 41 4D 45 20 48 4F C3 00 | AUS FI.AME HO..|
00000560: 7E 0D 12 0C 43 4D 50 20 23 22 2A 22 3B 41 55 46 |~...CMP #"*";AUF|
00000570: 20 4A 4F 4B 45 52 20 50 52 55 45 46 45 4E 00 AA | JOKER PRUEFEN..|
00000580: 0D 1C 0C 42 45 51 20 46 4F 55 4E 44 3B 41 4B 54 |...BEQ FOUND;AKT|
00000590: 55 45 4C C3 20 46 49 4C 45 45 B5 52 41 47 20 55 |UEL. FILEE.RAG U|
000005A0: 45 42 45 52 4E 45 48 4D 45 4E 00 CD 0D 26 0C 43 |EBERNEHMEN...&.C|
000005B0: 4D 50 20 23 22 3F 22 3B 41 55 46 20 57 49 4C 44 |MP #"?";AUF WILD|
000005C0: 20 43 41 52 44 20 50 52 55 45 46 45 4E 00 F7 0D | CARD PRUEFEN...|
000005D0: 30 0C 42 45 51 20 57 49 4C 44 3B 57 45 49 54 45 |0.BEQ WILD;WEITE|
000005E0: 52 20 4D 49 54 20 4E 41 45 43 48 53 54 45 4D 20 |R MIT NAECHSTEM |
000005F0: 5A 45 49 43 48 45 4E 00 27 0E 3A 0C 43 4D 50 20 |ZEICHEN.'.:.CMP |
00000600: 24 30 33 30 30 2C 59 3B 4D 49 54 20 44 49 52 45 |$0300,Y;MIT DIRE|
00000610: 43 A4 52 59 5A 45 49 43 48 45 4E 20 56 45 52 47 |C.RYZEICHEN VERG|
00000620: 4C 45 49 43 48 45 4E 00 56 0E 44 0C 42 4E 45 20 |LEICHEN.V.D.BNE |
00000630: 4E 49 58 3B 46 41 4C 4C 53 20 55 4E 47 4C 45 49 |NIX;FALLS UNGLEI|
00000640: 43 48 20 4E 41 45 43 48 53 54 45 52 20 46 49 4C |CH NAECHSTER FIL|
00000650: 45 45 B5 52 41 47 00 63 0E 4E 0C 57 49 4C 44 20 |EE.RAG.c.N.WILD |
00000660: 49 4E 59 00 6B 0E 58 0C 49 4E 58 00 8B 0E 62 0C |INY.k.X.INX...b.|
00000670: 43 50 58 20 23 31 36 3B 4C 41 45 4E 47 45 20 44 |CPX #16;LAENGE D|
00000680: 45 53 20 46 49 C3 41 4D 45 4E 53 00 B3 0E 6C 0C |ES FI.AMENS...l.|
00000690: 42 4E 45 20 50 52 55 45 46 3B 46 41 4C 4C 53 20 |BNE PRUEF;FALLS |
000006A0: 4E 4F 43 48 20 5A 45 49 43 48 45 4E 20 55 45 42 |NOCH ZEICHEN UEB|
000006B0: 52 49 47 00 B9 0E A0 0F 3B 00 CF 0E AA 0F 3B 20 |RIG.....;.....; |
000006C0: 46 49 C3 41 4D 45 20 47 45 46 55 4E 44 45 4E 00 |FI.AME GEFUNDEN.|
000006D0: D5 0E B4 0F 3B 00 EA 0E D2 0F 46 4F 55 4E 44 20 |....;.....FOUND |
000006E0: 4C 44 59 20 5A 45 49 47 45 52 00 14 0F E6 0F 49 |LDY ZEIGER.....I|
000006F0: 4E 59 3B 5A 45 49 47 45 52 20 59 20 41 55 46 20 |NY;ZEIGER Y AUF |
00000700: 54 52 41 43 4B AD 53 45 4B A4 52 20 48 45 52 53 |TRACK.SEK.R HERS|
00000710: 54 45 4C C3 00 35 0F F0 0F 4C 44 41 20 24 30 33 |TEL..5...LDA $03|
00000720: 30 30 2C 59 3B 41 4E 46 41 4E 47 53 54 52 41 43 |00,Y;ANFANGSTRAC|
00000730: 4B 20 48 4F C3 00 50 0F FA 0F 53 54 41 20 4C 49 |K HO..P...STA LI|
00000740: 45 53 AA 31 3B 55 4E 44 20 53 49 43 48 45 52 4E |ES.1;UND SICHERN|
00000750: 00 58 0F 04 10 49 4E 59 00 79 0F 0E 10 4C 44 41 |.X...INY.y...LDA|
00000760: 20 24 30 33 30 30 2C 59 3B 41 4E 46 41 4E 47 53 | $0300,Y;ANFANGS|
00000770: 53 45 4B A4 52 20 48 4F C3 00 95 0F 18 10 53 54 |SEK.R HO......ST|
00000780: 41 20 53 45 4B A4 52 AA 31 3B 55 4E 44 20 53 49 |A SEK.R.1;UND SI|
00000790: 43 48 45 52 4E 00 A3 0F 22 10 4A 4D 50 20 4C 41 |CHERN...".JMP LA|
000007A0: 44 45 4E 00 A9 0F 88 13 3B 00 C9 0F 92 13 3B 20 |DEN.....;.....; |
000007B0: 46 41 4C 4C 53 20 4E 4F 43 48 20 4E 49 43 48 54 |FALLS NOCH NICHT|
000007C0: 20 47 45 46 55 4E 44 45 4E 00 CF 0F 9C 13 3B 00 | GEFUNDEN.....;.|
000007D0: E2 0F BA 13 4E 49 58 20 4C 44 41 20 5A 45 49 47 |....NIX LDA ZEIG|
000007E0: 45 52 00 FD 0F C4 13 43 4C 43 3B 41 44 44 49 54 |ER.....CLC;ADDIT|
000007F0: 49 91 20 56 B0 42 45 52 45 49 54 45 4E 00 2A 10 |I. V.BEREITEN.*.|
00000800: CE 13 41 44 43 20 23 33 32 3B 41 4E 46 41 4E 47 |..ADC #32;ANFANG|
00000810: 20 4E 41 45 43 48 53 54 45 52 20 45 B5 52 41 47 | NAECHSTER E.RAG|
00000820: 20 42 45 52 45 43 48 4E 45 4E 00 45 10 D8 13 54 | BERECHNEN.E...T|
00000830: 41 59 3B 41 4C 53 20 5A 45 49 47 45 52 20 53 49 |AY;ALS ZEIGER SI|
00000840: 43 48 45 52 4E 00 6A 10 E2 13 53 54 59 20 5A 45 |CHERN.j...STY ZE|
00000850: 49 47 45 52 3B 55 4E 44 20 5A 57 49 53 43 48 45 |IGER;UND ZWISCHE|
00000860: 4E 53 50 45 49 43 48 45 52 4E 00 94 10 EC 13 42 |NSPEICHERN.....B|
00000870: 43 43 20 45 B5 52 3B 4E 41 45 43 48 53 54 45 52 |CC E.R;NAECHSTER|
00000880: 20 42 4C 4F 43 4B 2C 20 46 41 4C 4C 53 20 56 B0 | BLOCK, FALLS V.|
00000890: 48 AF 45 4E 00 BE 10 F6 13 4C 44 41 20 24 30 33 |H.EN.....LDA $03|
000008A0: 30 30 3B 54 52 41 43 4B 41 4E 47 41 42 45 20 4E |00;TRACKANGABE N|
000008B0: 41 45 43 48 53 54 45 52 20 42 4C 4F 43 4B 00 EB |AECHSTER BLOCK..|
000008C0: 10 00 14 42 4E 45 20 4E 45 55 42 4C 3B 46 41 4C |...BNE NEUBL;FAL|
000008D0: 4C 53 20 4E 49 43 48 54 20 30 20 55 4E 44 20 44 |LS NICHT 0 UND D|
000008E0: 41 4D 49 54 20 44 49 52 AB 80 45 00 16 11 0A 14 |AMIT DIR..E.....|
000008F0: 4C 44 58 20 23 24 33 39 3B 46 45 48 4C 45 52 4E |LDX #$39;FEHLERN|
00000900: 55 4D 4D 45 52 20 22 46 49 4C 45 20 4E 4F 54 20 |UMMER "FILE NOT |
00000910: 46 4F 55 4E 44 22 00 37 11 12 14 52 54 53 3B 80 |FOUND".7...RTS;.|
00000920: 45 2C 20 44 41 20 46 49 4C 45 20 4E 49 43 48 54 |E, DA FILE NICHT|
00000930: 20 56 B0 48 AF 45 4E 00 66 11 14 14 4E 45 55 42 | V.H.EN.f...NEUB|
00000940: 4C 20 53 54 41 20 4C 49 45 53 AA 31 3B 41 4C 53 |L STA LIES.1;ALS|
00000950: 20 54 52 41 43 4B 20 46 55 45 52 20 4C 45 53 45 | TRACK FUER LESE|
00000960: 42 45 46 45 48 4C 00 90 11 1E 14 4C 44 41 20 24 |BEFEHL.....LDA $|
00000970: 30 33 30 31 3B 53 45 4B A4 52 41 4E 47 41 42 45 |0301;SEK.RANGABE|
00000980: 20 4E 41 45 43 48 53 54 45 52 20 42 4C 4F 43 4B | NAECHSTER BLOCK|
00000990: 00 BA 11 28 14 53 54 41 20 53 45 4B A4 52 AA 31 |...(.STA SEK.R.1|
000009A0: 3B 41 4C 53 20 53 45 4B A4 52 20 46 55 45 52 20 |;ALS SEK.R FUER |
000009B0: 4C 45 53 45 42 45 46 45 48 4C 00 E3 11 32 14 4A |LESEBEFEHL...2.J|
000009C0: 4D 50 20 53 55 43 48 45 3B 57 45 49 54 45 52 20 |MP SUCHE;WEITER |
000009D0: 4D 49 54 20 4E 41 45 43 48 53 54 45 4D 20 42 4C |MIT NAECHSTEM BL|
000009E0: 4F 43 4B 00 E9 11 70 17 3B 00 11 12 7A 17 3B 20 |OCK...p.;...z.; |
000009F0: 46 49 4C 45 20 49 4E 20 44 45 4E 20 46 4C 4F 50 |FILE IN DEN FLOP|
00000A00: 50 59 AB 53 50 45 49 43 48 45 52 20 4C 41 44 45 |PY.SPEICHER LADE|
00000A10: 4E 00 17 12 84 17 3B 00 49 12 98 17 4C 41 44 45 |N.....;.I...LADE|
00000A20: 4E 20 4A 53 52 20 4C 49 45 53 3B 45 52 53 54 45 |N JSR LIES;ERSTE|
00000A30: 4E 20 46 49 4C 45 42 4C 4F 43 4B 20 49 4E 20 44 |N FILEBLOCK IN D|
00000A40: 45 4E 20 50 55 46 46 45 52 00 54 12 A2 17 4C 44 |EN PUFFER.T...LD|
00000A50: 41 20 23 30 00 75 12 AC 17 53 54 41 20 24 41 37 |A #0.u...STA $A7|
00000A60: 3B 4B 4F 50 49 45 52 5A 45 49 47 45 52 20 4C 4F |;KOPIERZEIGER LO|
00000A70: 57 42 59 54 45 00 97 12 B6 17 4C 44 41 20 24 30 |WBYTE.....LDA $0|
00000A80: 33 30 33 3B 41 4E 46 41 4E 47 53 41 44 52 45 53 |303;ANFANGSADRES|
00000A90: 53 45 20 48 49 47 48 00 B9 12 C0 17 53 54 41 20 |SE HIGH.....STA |
00000AA0: 24 41 38 3B 4B 4F 50 49 45 52 5A 45 49 47 45 52 |$A8;KOPIERZEIGER|
00000AB0: 20 48 49 47 48 42 59 54 45 00 DA 12 CA 17 4C 44 | HIGHBYTE.....LD|
00000AC0: 59 20 24 30 33 30 32 3B 41 4E 46 41 4E 47 53 41 |Y $0302;ANFANGSA|
00000AD0: 44 52 45 53 53 45 20 4C 4F 57 00 FB 12 D4 17 4C |DRESSE LOW.....L|
00000AE0: 44 58 20 23 34 3B 45 52 53 54 45 53 20 47 55 45 |DX #4;ERSTES GUE|
00000AF0: 4C 54 49 47 45 53 20 42 59 54 45 00 2D 13 DE 17 |LTIGES BYTE.-...|
00000B00: 82 42 4C 20 4C 44 41 20 23 30 3B 47 45 53 41 4D |.BL LDA #0;GESAM|
00000B10: 54 4C 41 45 4E 47 45 20 45 49 4E 45 53 20 56 4F |TLAENGE EINES VO|
00000B20: 4C C3 20 42 4C 4F 43 4B 53 20 AA 20 31 00 53 13 |L. BLOCKS . 1.S.|
00000B30: E8 17 53 54 41 20 4C 41 45 4E 47 45 3B 45 52 53 |..STA LAENGE;ERS|
00000B40: 54 45 53 20 55 4E 42 45 4C 45 47 54 45 53 20 42 |TES UNBELEGTES B|
00000B50: 59 54 45 00 78 13 FC 17 4C 44 41 20 24 30 33 30 |YTE.x...LDA $030|
00000B60: 30 3B 45 52 53 54 45 53 20 42 59 54 45 20 28 46 |0;ERSTES BYTE (F|
00000B70: 4F 4C A1 52 41 43 4B 29 00 9D 13 06 18 42 4E 45 |OL.RACK).....BNE|
00000B80: 20 82 3B 46 41 4C 4C 53 20 4E 4F 43 48 20 57 45 | .;FALLS NOCH WE|
00000B90: 49 54 45 52 45 20 42 4C 4F 45 43 4B 45 00 CA 13 |ITERE BLOECKE...|
00000BA0: 10 18 80 45 20 4C 44 41 20 24 30 33 30 31 3B 5A |...E LDA $0301;Z|
00000BB0: 57 45 49 54 45 53 20 42 59 54 45 20 28 41 4E 5A |WEITES BYTE (ANZ|
00000BC0: 41 48 4C 20 42 59 54 45 53 29 00 E5 13 1A 18 43 |AHL BYTES).....C|
00000BD0: 4C 43 3B 41 44 44 49 54 49 91 20 56 B0 42 45 52 |LC;ADDITI. V.BER|
00000BE0: 45 49 54 45 4E 00 F0 13 23 18 41 44 43 20 23 31 |EITEN...#.ADC #1|
00000BF0: 00 16 14 24 18 53 54 41 20 4C 41 45 4E 47 45 3B |...$.STA LAENGE;|
00000C00: 45 52 53 54 45 53 20 55 4E 42 45 4C 45 47 54 45 |ERSTES UNBELEGTE|
00000C10: 53 20 42 59 54 45 00 32 14 2E 18 4A 53 52 20 54 |S BYTE.2...JSR T|
00000C20: 52 41 4E 53 3B 52 45 53 54 20 4B 4F 50 49 45 52 |RANS;REST KOPIER|
00000C30: 45 4E 00 59 14 33 18 52 55 45 43 4B 20 52 54 53 |EN.Y.3.RUECK RTS|
00000C40: 3B 5A 55 52 55 45 43 4B 20 5A 55 52 20 4C 45 44 |;ZURUECK ZUR LED|
00000C50: AB 4B 91 54 52 4F 4C 4C 45 00 80 14 58 1B 82 20 |.K.TROLLE...X.. |
00000C60: 53 54 41 20 4C 49 45 53 AA 31 3B 54 52 41 43 4B |STA LIES.1;TRACK|
00000C70: 20 4E 41 45 43 48 53 54 45 52 20 42 4C 4F 43 4B | NAECHSTER BLOCK|
00000C80: 00 A8 14 62 1B 4C 44 41 20 24 30 33 30 31 3B 5A |...b.LDA $0301;Z|
00000C90: 57 45 49 54 45 53 20 42 59 54 45 20 28 46 4F 4C |WEITES BYTE (FOL|
00000CA0: 47 45 53 45 4B A4 52 29 00 CE 14 6C 1B 53 54 41 |GESEK.R)...l.STA|
00000CB0: 20 53 45 4B A4 52 AA 31 3B 53 45 4B A4 52 20 4E | SEK.R.1;SEK.R N|
00000CC0: 41 45 43 48 53 54 45 52 20 42 4C 4F 43 4B 00 F7 |AECHSTER BLOCK..|
00000CD0: 14 76 1B 4A 53 52 20 54 52 41 4E 53 3B 42 4C 4F |.v.JSR TRANS;BLO|
00000CE0: 43 4B 20 49 4E 20 53 50 45 49 43 48 45 52 20 4B |CK IN SPEICHER K|
00000CF0: 4F 50 49 45 52 45 4E 00 1A 15 7B 1B 42 4E 45 20 |OPIEREN...{.BNE |
00000D00: 52 55 45 43 4B 3B 46 45 48 4C 45 52 20 42 45 49 |RUECK;FEHLER BEI|
00000D10: 4D 20 4B 4F 50 49 45 52 45 4E 00 40 15 80 1B 4A |M KOPIEREN.@...J|
00000D20: 53 52 20 4C 49 45 53 3B 4E 41 45 43 48 53 54 45 |SR LIES;NAECHSTE|
00000D30: 4E 20 42 4C 4F 43 4B 20 45 49 4E 4C 45 53 45 4E |N BLOCK EINLESEN|
00000D40: 00 61 15 8A 1B 4C 44 58 20 23 32 3B 45 52 53 54 |.a...LDX #2;ERST|
00000D50: 45 53 20 47 55 45 4C 54 49 47 45 53 20 42 59 54 |ES GUELTIGES BYT|
00000D60: 45 00 88 15 94 1B 4A 4D 50 20 82 42 4C 3B 57 45 |E.....JMP .BL;WE|
00000D70: 49 54 45 52 20 4D 49 54 20 4E 41 45 43 48 53 54 |ITER MIT NAECHST|
00000D80: 45 4D 20 42 4C 4F 43 4B 00 8E 15 40 1F 3B 00 A2 |EM BLOCK...@.;..|
00000D90: 15 4A 1F 3B 20 55 4E 54 45 52 52 4F 55 54 49 4E |.J.; UNTERROUTIN|
00000DA0: 45 4E 00 A8 15 54 1F 3B 00 B9 15 72 1F 4C 49 45 |EN...T.;...r.LIE|
00000DB0: 53 20 4C 44 41 20 23 31 38 00 DD 15 7C 1F 53 54 |S LDA #18...|.ST|
00000DC0: 41 20 24 30 36 3B 41 4C 53 20 54 52 41 43 4B 20 |A $06;ALS TRACK |
00000DD0: 46 55 45 52 20 50 55 46 46 45 52 20 30 00 EE 15 |FUER PUFFER 0...|
00000DE0: 86 1F 53 45 4B A4 52 20 4C 44 41 20 23 31 00 12 |..SEK.R LDA #1..|
00000DF0: 16 90 1F 53 54 41 20 24 30 37 3B 41 4C 53 20 53 |...STA $07;ALS S|
00000E00: 45 4B A4 52 20 46 55 45 52 20 50 55 46 46 45 52 |EK.R FUER PUFFER|
00000E10: 20 30 00 3A 16 9A 1F 4C 44 41 20 23 24 38 30 3B | 0.:...LDA #$80;|
00000E20: 4A 4F 42 43 4F 44 45 20 46 55 45 52 20 22 42 4C |JOBCODE FUER "BL|
00000E30: 4F 43 4B 20 4C 45 53 45 4E 22 00 60 16 A4 1F 53 |OCK LESEN".`...S|
00000E40: 54 41 20 24 30 30 3B 41 4C 53 20 41 55 46 54 52 |TA $00;ALS AUFTR|
00000E50: 41 47 20 46 55 45 52 20 50 55 46 46 45 52 20 30 |AG FUER PUFFER 0|
00000E60: 00 83 16 AE 1F 57 45 49 54 45 52 20 4C 44 41 20 |.....WEITER LDA |
00000E70: 24 30 30 3B 53 54 41 54 55 53 20 50 55 46 46 45 |$00;STATUS PUFFE|
00000E80: 52 20 30 00 AA 16 B8 1F 42 4D 49 20 57 45 49 54 |R 0.....BMI WEIT|
00000E90: 45 52 3B 46 41 4C 4C 53 20 4E 4F 43 48 20 4E 49 |ER;FALLS NOCH NI|
00000EA0: 43 48 54 20 46 45 52 54 49 47 00 B2 16 C2 1F 52 |CHT FERTIG.....R|
00000EB0: 54 53 00 B8 16 28 23 3B 00 DE 16 5A 23 54 52 41 |TS...(#;...Z#TRA|
00000EC0: 4E 53 20 4C 44 41 20 24 30 33 30 30 2C 58 3B 42 |NS LDA $0300,X;B|
00000ED0: 59 54 45 20 41 55 53 20 50 55 46 46 45 52 00 05 |YTE AUS PUFFER..|
00000EE0: 17 64 23 53 54 41 20 28 24 41 37 29 2C 59 3B 49 |.d#STA ($A7),Y;I|
00000EF0: 4E 20 44 45 4E 20 46 4C 4F 50 50 59 AB 53 50 45 |N DEN FLOPPY.SPE|
00000F00: 49 43 48 45 52 00 21 17 6E 23 49 4E 59 3B 52 41 |ICHER.!.n#INY;RA|
00000F10: 4D AB 5A 45 49 47 45 52 20 45 52 48 4F 45 48 45 |M.ZEIGER ERHOEHE|
00000F20: 4E 00 49 17 78 23 42 4E 45 20 9A 3B 46 41 4C 4C |N.I.x#BNE .;FALL|
00000F30: 53 20 4B 45 49 4E 20 4C 4F 57 AB 42 59 54 45 20 |S KEIN LOW.BYTE |
00000F40: 55 45 42 45 52 4C 41 55 46 00 68 17 82 23 49 4E |UEBERLAUF.h..#IN|
00000F50: 43 20 24 41 38 3B 48 49 47 48 AB 42 59 54 45 20 |C $A8;HIGH.BYTE |
00000F60: 45 52 48 4F 45 48 45 4E 00 88 17 87 23 42 45 51 |ERHOEHEN....#BEQ|
00000F70: 20 4F 56 45 52 3B 5A 45 52 4F 50 41 47 45 20 53 | OVER;ZEROPAGE S|
00000F80: 43 48 55 45 54 5A 45 4E 00 A8 17 8C 23 9A 20 49 |CHUETZEN....#. I|
00000F90: 4E 58 3B 50 55 46 46 45 52 5A 45 49 47 45 52 20 |NX;PUFFERZEIGER |
00000FA0: 45 52 48 4F 45 48 45 4E 00 C3 17 96 23 43 50 58 |ERHOEHEN....#CPX|
00000FB0: 20 4C 41 45 4E 47 45 3B 53 43 48 91 20 46 45 52 | LAENGE;SCH. FER|
00000FC0: 54 49 47 00 EB 17 A0 23 42 4E 45 20 54 52 41 4E |TIG....#BNE TRAN|
00000FD0: 53 3B 57 45 49 54 45 52 4D 41 43 48 45 4E 2C 20 |S;WEITERMACHEN, |
00000FE0: 46 41 4C 4C 53 20 4E 49 43 48 54 00 08 18 AA 23 |FALLS NICHT....#|
00000FF0: 4C 44 58 20 23 30 3B 46 45 48 4C 45 52 B8 49 45 |LDX #0;FEHLER.IE|
00001000: 52 20 41 42 4C 41 55 46 00 25 18 BE 23 52 54 53 |R ABLAUF.%..#RTS|
00001010: 3B 46 41 4C 4C 53 20 50 55 46 46 45 52 20 4B 4F |;FALLS PUFFER KO|
00001020: 50 49 45 52 54 00 2B 18 F0 23 3B 00 5B 18 FA 23 |PIERT.+..#;.[..#|
00001030: 4F 56 45 52 20 4C 44 58 20 23 24 35 32 3B 46 45 |OVER LDX #$52;FE|
00001040: 48 4C 45 52 4E 55 4D 4D 45 52 20 22 46 49 4C 45 |HLERNUMMER "FILE|
00001050: 20 54 4F 4F 20 4C 41 52 47 45 22 00 63 18 04 24 | TOO LARGE".c..$|
00001060: 52 54 53 00 00 00 |RTS... |
..'.... OPEN 1,8,1,"0:FLOPPY-LADER.OBJ".
1.... 2,4.=.... 32768.C...;.`...; ......
.................}...; . FLOPPY.LADER
......; . ......;
. V. UWE GERLACH ..S...; . TEL. 061
51.316205 ......; . BZW 06622.3908 .
.....; . ..*...; .
06.04.86 ..G...; ...............
........M.(.;.Q.2.; LAEDT EIN FILE INS F
LOPPY.RAM...<.; AB DER GESPEICHERTEN ADR
ESSE....F.; FICAME STEHT AB NAME IM FLOP
PY..K.P.; SPEICHER..Q.Z.;...D..TIT "FLOP
PY-LADER C64 & VC1541 "...X..OPT P2..
.}.;.6.....$0400; ASSEMBLIEREN FUER DIE
FLOPPY.<...;.M.H.ZEIGER . $37.^.R.LAENGE
. $35.....NAME . $04F0;ANFANG DES FICAM
ENS.....LED . $1C00;ADRESSE FUER LED (BI
T 3).....;.Y...; LED BEDIENUNG UND PROGR
AMMAUFRUF.....;.....LDA LED...$..A #$08.
....STA LED;ROTE LED EINSCHALTEN...8.;.D
.B.JSR SUCHE;DIENSTPROGRAMM AUFRUFEN.J.L
.;.V.`.LDA LED.G.J.. #%11110111...T.STA
LED;ROTE LED AUSSCHALTEN...~.TXA;FEHLERN
UMMER IN DEN AKKU.P...BEQ OK;FALLS KEIN
FEHLER AUF.RETEN.V...;.....JSR $E6C7;FEH
LERMELDUNG BEREITSTELC.....JSR $C12C;LED
BLINKEN.&...OK RTS;.E.,...;.2.T.;.V.^.;
ANFANGSBLOCK DES FILES SUCHEN.\.H.;....
.SUCHE JSR LIES;BLOCK 18,1 NACH PUFFER 0
...B.LDY #2;ANFANG ERSTER FILEE.RAG...L.
STY ZEIGER.I.V.E.R LDX #0.....LDA $0300,
Y;FI.YP LESEN.....BEQ NIX;UEBERSPRINGEN,
FALLS DEL.....INY:INY.3...INY;ZEIGER Y
AUF FICAMEN._...PRUEF LDA NAME,X;ZEICHEN
AUS FICAME HOC.~...CMP #"*";AUF JOKER P
RUEFEN.....BEQ FOUND;AKTUELC FILEE.RAG U
EBERNEHMEN.M.&.CMP #"?";AUF WILD CARD PR
UEFEN...0.BEQ WILD;WEITER MIT NAECHSTEM
ZEICHEN.'.:.CMP $0300,Y;MIT DIREC.RYZEIC
HEN VERGLEICHEN.V.D.BNE NIX;FALLS UNGLEI
CH NAECHSTER FILEE.RAG.C.N.WILD INY.K.X.
INX...B.CPX #16;LAENGE DES FICAMENS...L.
BNE PRUEF;FALLS NOCH ZEICHEN UEBRIG... .
;.O...; FICAME GEFUNDEN.U...;...R.FOUND
LDY ZEIGER.....INY;ZEIGER Y AUF TRACK.SE
K.R HERSTELC.5...LDA $0300,Y;ANFANGSTRAC
K HOC.P...STA LIES.1;UND SICHERN.X...INY
.Y...LDA $0300,Y;ANFANGSSEK.R HOC.....ST
A SEK.R.1;UND SICHERN...".JMP LADEN.....
;.I...; FALLS NOCH NICHT GEFUNDEN.O...;.
....NIX LDA ZEIGER...D.CLC;ADDITI. V.BER
EITEN.*.N.ADC #32;ANFANG NAECHSTER E.RAG
BERECHNEN.E.X.TAY;ALS ZEIGER SICHERN.J.
..STY ZEIGER;UND ZWISCHENSPEICHERN.....B
CC E.R;NAECHSTER BLOCK, FALLS V.H.EN....
.LDA $0300;TRACKANGABE NAECHSTER BLOCK..
...BNE NEUBL;FALLS NICHT 0 UND DAMIT DIR
..E.....LDX #$39;FEHLERNUMMER "FILE NOT
FOUND".7...RTS;.E, DA FILE NICHT V.H.EN.
F...NEUBL STA LIES.1;ALS TRACK FUER LESE
BEFEHL.....LDA $0301;SEK.RANGABE NAECHST
ER BLOCK...(.STA SEK.R.1;ALS SEK.R FUER
LESEBEFEHL...2.JMP SUCHE;WEITER MIT NAEC
HSTEM BLOCK...P.;...Z.; FILE IN DEN FLOP
PY.SPEICHER LADEN.....;.I...LADEN JSR LI
ES;ERSTEN FILEBLOCK IN DEN PUFFER.T...LD
A #0.U...STA $A7;KOPIERZEIGER LOWBYTE...
..LDA $0303;ANFANGSADRESSE HIGH.....STA
$A8;KOPIERZEIGER HIGHBYTE.Z.J.LDY $0302;
ANFANGSADRESSE LOW...T.LDX #4;ERSTES GUE
LTIGES BYTE.-....BL LDA #0;GESAMTLAENGE
EINES VOLC BLOCKS . 1.S...STA LAENGE;ERS
TES UNBELEGTES BYTE.X...LDA $0300;ERSTES
BYTE (FOL.RACK).....BNE .;FALLS NOCH WE
ITERE BLOECKE.J....E LDA $0301;ZWEITES B
YTE (ANZAHL BYTES).....CLC;ADDITI. V.BER
EITEN...#.ADC #1...$.STA LAENGE;ERSTES U
NBELEGTES BYTE.2...JSR TRANS;REST KOPIER
EN.Y.3.RUECK RTS;ZURUECK ZUR LED.K.TROLL
E...X.. STA LIES.1;TRACK NAECHSTER BLOCK
...B.LDA $0301;ZWEITES BYTE (FOLGESEK.R)
.N.L.STA SEK.R.1;SEK.R NAECHSTER BLOCK..
.V.JSR TRANS;BLOCK IN SPEICHER KOPIEREN.
..{.BNE RUECK;FEHLER BEIM KOPIEREN.@...J
SR LIES;NAECHSTEN BLOCK EINLESEN.A...LDX
#2;ERSTES GUELTIGES BYTE.....JMP .BL;WE
ITER MIT NAECHSTEM BLOCK...@.;...J.; UNT
ERROUTINEN...T.;...R.LIES LDA #18...|.ST
A $06;ALS TRACK FUER PUFFER 0.....SEK.R
LDA #1.....STA $07;ALS SEK.R FUER PUFFER
0.:...LDA #$80;JOBCODE FUER "BLOCK LESE
N".`...STA $00;ALS AUFTRAG FUER PUFFER 0
.....WEITER LDA $00;STATUS PUFFER 0.....
BMI WEITER;FALLS NOCH NICHT FERTIG...B.R
TS...(#;...Z#TRANS LDA $0300,X;BYTE AUS
PUFFER...D#STA ($A7),Y;IN DEN FLOPPY.SPE
ICHER.!.N#INY;RAM.ZEIGER ERHOEHEN.I.X#BN
E .;FALLS KEIN LOW.BYTE UEBERLAUF.H..#IN
C $A8;HIGH.BYTE ERHOEHEN....#BEQ OVER;ZE
ROPAGE SCHUETZEN....#. INX;PUFFERZEIGER
ERHOEHEN.C..#CPX LAENGE;SCH. FERTIG... #
BNE TRANS;WEITERMACHEN, FALLS NICHT....#
LDX #0;FEHLER.IER ABLAUF.%..#RTS;FALLS P
UFFER KOPIERT.+..#;.[..#OVER LDX #$52;FE
HLERNUMMER "FILE TOO LARGE".C..$RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL