DISK-CONTROL.SRC

FILE INFORMATION

FILENAME(S): DISK-CONTROL.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 01:12:58

APPEARS ON: 1 disk(s)

FILE HASH

762c1a28a38303c14999c51ade963d5a1c9943c1d310f486f780c83b5e62fed2

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10211 SEITE B	DISK-CONTROL.SRC	PRG	C64er	15	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 0A 00 2E 42  41 20 24 43 30 30 30 00  |.......BA $C000.|
00000010: 0C 20 14 00 3B 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |. ..;***********|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 2A 2A 2A 2A 2A 00 32 20  1E 00 3B 2A 20 44 49 53  |*****.2 ..;* DIS|
00000040: 4B 2D 43 4F 4E 54 52 4F  4C 20 57 52 49 54 54 45  |K-CONTROL WRITTE|
00000050: 4E 20 49 4E 20 31 39 39  32 20 2A 00 58 20 28 00  |N IN 1992 *.X (.|
00000060: 3B 2A 20 20 20 20 42 59  20 54 48 45 20 58 2D 54  |;*    BY THE X-T|
00000070: 45 52 4D 49 4E 41 54 4F  52 20 4F 46 20 20 20 20  |ERMINATOR OF    |
00000080: 2A 00 7E 20 32 00 3B 2A  20 20 20 20 20 20 20 4D  |*.~ 2.;*       M|
00000090: 41 47 49 43 20 50 52 4F  44 55 43 54 49 4F 4E 53  |AGIC PRODUCTIONS|
000000A0: 20 20 20 20 20 20 2A 00  A4 20 3C 00 3B 2A 20 20  |      *.. <.;*  |
000000B0: 20 20 20 20 20 20 20 20  43 4F 4E 54 41 43 54 20  |        CONTACT |
000000C0: 55 53 20 21 20 20 20 20  20 20 20 20 2A 00 CA 20  |US !        *.. |
000000D0: 46 00 3B 2A 20 20 20 20  20 20 20 20 20 30 35 31  |F.;*         051|
000000E0: 33 32 20 2F 20 35 31 31  38 36 20 20 20 20 20 20  |32 / 51186      |
000000F0: 20 20 2A 00 F0 20 50 00  3B 2A 2A 2A 2A 2A 2A 2A  |  *.. P.;*******|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 00 21 5A 00 53 54  |*********..!Z.ST|
00000120: 41 52 54 20 4C 44 41 23  31 00 0B 21 64 00 20 4C  |ART LDA#1..!d. L|
00000130: 44 58 23 38 00 17 21 6E  00 20 4C 44 59 23 31 35  |DX#8..!n. LDY#15|
00000140: 00 3A 21 78 00 20 4A 53  52 24 46 46 42 41 3B 46  |.:!x. JSR$FFBA;F|
00000150: 49 4C 45 50 41 52 41 4D  45 54 45 52 20 53 45 54  |ILEPARAMETER SET|
00000160: 5A 45 4E 00 45 21 82 00  20 4C 44 41 23 30 00 61  |ZEN.E!.. LDA#0.a|
00000170: 21 8C 00 20 4A 53 52 24  46 46 42 44 3B 4B 45 49  |!.. JSR$FFBD;KEI|
00000180: 4E 20 46 49 4C 45 4E 41  4D 45 00 7B 21 96 00 20  |N FILENAME.{!.. |
00000190: 4A 53 52 24 46 46 43 30  3B 4F 50 45 4E 20 31 2C  |JSR$FFC0;OPEN 1,|
000001A0: 38 2C 31 35 00 86 21 A0  00 20 4C 44 58 23 31 00  |8,15..!.. LDX#1.|
000001B0: A7 21 AA 00 20 4A 53 52  24 46 46 43 39 3B 46 4C  |.!.. JSR$FFC9;FL|
000001C0: 4F 50 50 59 20 41 55 46  20 45 4D 50 46 41 4E 47  |OPPY AUF EMPFANG|
000001D0: 00 B2 21 B4 00 20 4C 44  58 23 30 00 C9 21 BE 00  |..!.. LDX#0..!..|
000001E0: 4C 4F 4F 50 31 20 4C 44  41 57 41 49 54 41 55 46  |LOOP1 LDAWAITAUF|
000001F0: 2C 58 00 00 22 C8 00 20  4A 53 52 24 46 46 44 32  |,X..".. JSR$FFD2|
00000200: 3B 50 52 4F 47 52 41 4D  4D 20 31 20 49 4E 20 46  |;PROGRAMM 1 IN F|
00000210: 4C 4F 50 50 59 53 50 45  49 43 48 45 52 20 55 45  |LOPPYSPEICHER UE|
00000220: 42 45 52 54 52 41 47 45  4E 00 09 22 D2 00 20 49  |BERTRAGEN..".. I|
00000230: 4E 58 00 26 22 DC 00 20  43 50 58 23 32 39 3B 53  |NX.&".. CPX#29;S|
00000240: 43 48 4F 4E 20 32 39 20  42 59 54 45 53 20 3F 00  |CHON 29 BYTES ?.|
00000250: 4E 22 E6 00 20 42 4E 45  4C 4F 4F 50 31 3B 4E 45  |N".. BNELOOP1;NE|
00000260: 49 4E 2C 20 44 41 4E 4E  20 4E 41 45 43 48 53 54  |IN, DANN NAECHST|
00000270: 45 53 20 42 59 54 45 00  59 22 F0 00 20 4C 44 58  |ES BYTE.Y".. LDX|
00000280: 23 31 00 92 22 FA 00 20  4A 53 52 24 46 46 43 43  |#1..".. JSR$FFCC|
00000290: 3B 46 4C 4F 50 50 59 20  46 52 45 49 47 45 42 45  |;FLOPPY FREIGEBE|
000002A0: 4E 20 55 4E 44 20 4D 2D  57 20 42 45 46 45 48 4C  |N UND M-W BEFEHL|
000002B0: 20 41 55 53 46 55 45 48  52 45 4E 00 9D 22 04 01  | AUSFUEHREN.."..|
000002C0: 20 4C 44 58 23 31 00 BE  22 0E 01 20 4A 53 52 24  | LDX#1..".. JSR$|
000002D0: 46 46 43 39 3B 46 4C 4F  50 50 59 20 41 55 46 20  |FFC9;FLOPPY AUF |
000002E0: 45 4D 50 46 41 4E 47 00  C9 22 18 01 20 4C 44 58  |EMPFANG..".. LDX|
000002F0: 23 30 00 02 23 22 01 4C  4F 4F 50 32 20 4C 44 41  |#0..#".LOOP2 LDA|
00000300: 44 4F 41 55 46 2C 58 3B  41 55 53 46 55 45 48 52  |DOAUF,X;AUSFUEHR|
00000310: 2D 42 45 46 45 48 4C 20  31 20 49 4E 20 46 4C 4F  |-BEFEHL 1 IN FLO|
00000320: 50 50 59 53 50 45 49 43  48 45 52 00 10 23 2C 01  |PPYSPEICHER..#,.|
00000330: 20 4A 53 52 24 46 46 44  32 00 19 23 36 01 20 49  | JSR$FFD2..#6. I|
00000340: 4E 58 00 34 23 40 01 20  43 50 58 23 35 3B 53 43  |NX.4#@. CPX#5;SC|
00000350: 48 4F 4E 20 35 20 42 59  54 45 53 20 3F 00 5B 23  |HON 5 BYTES ?.[#|
00000360: 4A 01 20 42 4E 45 4C 4F  4F 50 32 3B 4E 45 49 4E  |J. BNELOOP2;NEIN|
00000370: 20 44 41 4E 4E 20 4E 41  45 43 48 53 54 45 53 20  | DANN NAECHSTES |
00000380: 42 59 54 45 00 66 23 54  01 20 4C 44 58 23 31 00  |BYTE.f#T. LDX#1.|
00000390: A4 23 5E 01 20 4A 53 52  24 46 46 43 43 3B 46 4C  |.#^. JSR$FFCC;FL|
000003A0: 4F 50 50 59 20 46 52 45  49 47 45 42 45 4E 20 55  |OPPY FREIGEBEN U|
000003B0: 4E 44 20 50 52 47 20 49  4D 20 53 50 45 49 43 48  |ND PRG IM SPEICH|
000003C0: 45 52 20 41 55 53 46 55  45 48 52 45 4E 00 AF 23  |ER AUSFUEHREN..#|
000003D0: 68 01 20 4C 44 58 23 31  00 D0 23 72 01 20 4A 53  |h. LDX#1..#r. JS|
000003E0: 52 24 46 46 43 39 3B 46  4C 4F 50 50 59 20 41 55  |R$FFC9;FLOPPY AU|
000003F0: 46 20 45 4D 50 46 41 4E  47 00 DB 23 7C 01 20 4C  |F EMPFANG..#|. L|
00000400: 44 58 23 30 00 0E 24 86  01 4C 4F 4F 50 33 20 4C  |DX#0..$..LOOP3 L|
00000410: 44 41 57 41 49 54 5A 55  2C 58 3B 50 52 4F 47 52  |DAWAITZU,X;PROGR|
00000420: 41 4D 4D 20 32 20 49 4E  20 46 4C 4F 50 50 59 53  |AMM 2 IN FLOPPYS|
00000430: 50 45 49 43 48 45 52 00  1C 24 90 01 20 4A 53 52  |PEICHER..$.. JSR|
00000440: 24 46 46 44 32 00 25 24  9A 01 20 49 4E 58 00 42  |$FFD2.%$.. INX.B|
00000450: 24 A4 01 20 43 50 58 23  32 39 3B 53 43 48 4F 4E  |$.. CPX#29;SCHON|
00000460: 20 32 39 20 42 59 54 45  53 20 3F 00 6A 24 AE 01  | 29 BYTES ?.j$..|
00000470: 20 42 4E 45 4C 4F 4F 50  33 3B 4E 45 49 4E 2C 20  | BNELOOP3;NEIN, |
00000480: 44 41 4E 4E 20 4E 41 45  43 48 53 54 45 53 20 42  |DANN NAECHSTES B|
00000490: 59 54 45 00 75 24 B8 01  20 4C 44 58 23 31 00 AE  |YTE.u$.. LDX#1..|
000004A0: 24 C2 01 20 4A 53 52 24  46 46 43 43 3B 46 4C 4F  |$.. JSR$FFCC;FLO|
000004B0: 50 50 59 20 46 52 45 49  47 45 42 45 4E 20 55 4E  |PPY FREIGEBEN UN|
000004C0: 44 20 4D 2D 57 20 42 45  46 45 48 4C 20 41 55 53  |D M-W BEFEHL AUS|
000004D0: 46 55 45 48 52 45 4E 00  B9 24 CC 01 20 4C 44 58  |FUEHREN..$.. LDX|
000004E0: 23 31 00 DA 24 D6 01 20  4A 53 52 24 46 46 43 39  |#1..$.. JSR$FFC9|
000004F0: 3B 46 4C 4F 50 50 59 20  41 55 46 20 45 4D 50 46  |;FLOPPY AUF EMPF|
00000500: 41 4E 47 00 E5 24 E0 01  20 4C 44 58 23 30 00 1D  |ANG..$.. LDX#0..|
00000510: 25 EA 01 4C 4F 4F 50 34  20 4C 44 41 44 4F 5A 55  |%..LOOP4 LDADOZU|
00000520: 2C 58 3B 41 55 53 46 55  45 48 52 2D 42 45 46 45  |,X;AUSFUEHR-BEFE|
00000530: 48 4C 20 32 20 49 4E 20  46 4C 4F 50 50 59 53 50  |HL 2 IN FLOPPYSP|
00000540: 45 49 43 48 45 52 00 2B  25 F4 01 20 4A 53 52 24  |EICHER.+%.. JSR$|
00000550: 46 46 44 32 00 34 25 FE  01 20 49 4E 58 00 4F 25  |FFD2.4%.. INX.O%|
00000560: 08 02 20 43 50 58 23 35  3B 53 43 48 4F 4E 20 35  |.. CPX#5;SCHON 5|
00000570: 20 42 59 54 45 53 20 3F  00 77 25 12 02 20 42 4E  | BYTES ?.w%.. BN|
00000580: 45 4C 4F 4F 50 34 3B 4E  45 49 4E 2C 20 44 41 4E  |ELOOP4;NEIN, DAN|
00000590: 4E 20 4E 41 45 43 48 53  54 45 53 20 42 59 54 45  |N NAECHSTES BYTE|
000005A0: 00 82 25 1C 02 20 4C 44  58 23 31 00 C0 25 26 02  |..%.. LDX#1..%&.|
000005B0: 20 4A 53 52 24 46 46 43  43 3B 46 4C 4F 50 50 59  | JSR$FFCC;FLOPPY|
000005C0: 20 46 52 45 49 47 45 42  45 4E 20 55 4E 44 20 50  | FREIGEBEN UND P|
000005D0: 52 47 20 49 4D 20 53 50  45 49 43 48 45 52 20 41  |RG IM SPEICHER A|
000005E0: 55 53 46 55 45 48 52 45  4E 00 ED 25 30 02 20 4C  |USFUEHREN..%0. L|
000005F0: 44 41 23 31 3B 57 45 4E  4E 20 46 4C 4F 50 50 59  |DA#1;WENN FLOPPY|
00000600: 20 4D 49 54 20 50 52 47  20 32 20 46 45 52 54 49  | MIT PRG 2 FERTI|
00000610: 47 20 44 41 4E 4E 00 07  26 3A 02 20 4A 53 52 24  |G DANN..&:. JSR$|
00000620: 46 46 43 33 3B 43 4C 4F  53 45 20 31 20 55 4E 44  |FFC3;CLOSE 1 UND|
00000630: 00 22 26 44 02 20 52 54  53 3B 5A 55 52 55 45 43  |."&D. RTS;ZURUEC|
00000640: 4B 20 49 4E 53 20 42 41  53 49 43 00 37 26 4E 02  |K INS BASIC.7&N.|
00000650: 57 41 49 54 41 55 46 20  2E 54 58 22 4D 2D 57 22  |WAITAUF .TX"M-W"|
00000660: 00 74 26 58 02 20 2E 42  59 30 2C 33 2C 32 33 3B  |.t&X. .BY0,3,23;|
00000670: 32 33 20 42 59 54 45 53  20 49 4E 20 46 4C 4F 50  |23 BYTES IN FLOP|
00000680: 50 59 53 50 45 49 43 48  45 52 20 41 42 20 24 30  |PYSPEICHER AB $0|
00000690: 33 30 30 20 53 43 48 52  45 49 42 45 4E 00 86 26  |300 SCHREIBEN..&|
000006A0: 62 02 20 4C 44 41 23 31  38 3B 54 52 41 43 4B 00  |b. LDA#18;TRACK.|
000006B0: 98 26 6C 02 20 4C 44 58  23 30 3B 53 45 4B 54 4F  |.&l. LDX#0;SEKTO|
000006C0: 52 00 D3 26 76 02 20 4C  44 59 23 24 42 30 3B 4A  |R..&v. LDY#$B0;J|
000006D0: 4F 42 43 4F 44 45 20 46  55 45 52 20 27 42 4C 4F  |OBCODE FUER 'BLO|
000006E0: 43 4B 20 41 55 46 20 56  4F 52 48 41 4E 44 45 4E  |CK AUF VORHANDEN|
000006F0: 53 45 49 4E 20 54 45 53  54 45 4E 27 00 ED 26 80  |SEIN TESTEN'..&.|
00000700: 02 20 53 54 41 24 30 41  3B 54 52 41 43 4B 53 50  |. STA$0A;TRACKSP|
00000710: 45 49 43 48 45 52 00 08  27 8A 02 20 53 54 58 24  |EICHER..'.. STX$|
00000720: 30 42 3B 53 45 4B 54 4F  52 53 50 45 49 43 48 45  |0B;SEKTORSPEICHE|
00000730: 52 00 23 27 94 02 47 45  54 20 53 54 59 24 30 32  |R.#'..GET STY$02|
00000740: 3B 4A 4F 42 53 50 45 49  43 48 45 52 00 33 27 9E  |;JOBSPEICHER.3'.|
00000750: 02 57 41 49 54 20 4C 44  41 24 30 32 00 5F 27 A8  |.WAIT LDA$02._'.|
00000760: 02 20 42 4D 49 57 41 49  54 3B 57 41 52 54 45 4E  |. BMIWAIT;WARTEN|
00000770: 20 42 49 53 20 4A 4F 42  20 41 55 53 47 45 46 55  | BIS JOB AUSGEFU|
00000780: 45 48 52 54 20 49 53 54  00 6B 27 B2 02 20 4C 44  |EHRT IST.k'.. LD|
00000790: 41 24 30 32 00 88 27 BC  02 20 43 4D 50 23 31 3B  |A$02..'.. CMP#1;|
000007A0: 42 4C 4F 43 4B 20 56 4F  52 48 41 4E 44 45 4E 20  |BLOCK VORHANDEN |
000007B0: 3F 00 AD 27 C6 02 20 42  45 51 47 45 54 3B 4A 41  |?..'.. BEQGET;JA|
000007C0: 2C 20 44 41 4E 4E 20 57  45 49 54 45 52 20 41 42  |, DANN WEITER AB|
000007D0: 46 52 41 47 45 4E 00 DA  27 D0 02 20 52 54 53 3B  |FRAGEN..'.. RTS;|
000007E0: 4E 45 49 4E 20 44 41 4E  4E 20 5A 55 52 55 45 43  |NEIN DANN ZURUEC|
000007F0: 4B 20 49 4E 53 20 48 41  55 50 54 50 52 4F 47 52  |K INS HAUPTPROGR|
00000800: 41 4D 4D 00 ED 27 DA 02  44 4F 41 55 46 20 2E 54  |AMM..'..DOAUF .T|
00000810: 58 22 4D 2D 45 22 00 24  28 E4 02 20 2E 42 59 30  |X"M-E".$(.. .BY0|
00000820: 2C 33 3B 46 4C 4F 50 50  59 53 50 45 49 43 48 45  |,3;FLOPPYSPEICHE|
00000830: 52 20 41 42 20 41 44 52  45 53 53 45 20 24 30 33  |R AB ADRESSE $03|
00000840: 30 30 20 41 55 53 46 55  45 48 52 45 4E 00 38 28  |00 AUSFUEHREN.8(|
00000850: EE 02 57 41 49 54 5A 55  20 2E 54 58 22 4D 2D 57  |..WAITZU .TX"M-W|
00000860: 22 00 75 28 F8 02 20 2E  42 59 30 2C 33 2C 32 33  |".u(.. .BY0,3,23|
00000870: 3B 32 33 20 42 59 54 45  53 20 49 4E 20 46 4C 4F  |;23 BYTES IN FLO|
00000880: 50 50 59 53 50 45 49 43  48 45 52 20 41 42 20 24  |PPYSPEICHER AB $|
00000890: 30 33 30 30 20 53 43 48  52 45 49 42 45 4E 00 87  |0300 SCHREIBEN..|
000008A0: 28 02 03 20 4C 44 41 23  31 38 3B 54 52 41 43 4B  |(.. LDA#18;TRACK|
000008B0: 00 99 28 0C 03 20 4C 44  58 23 30 3B 53 45 4B 54  |..(.. LDX#0;SEKT|
000008C0: 4F 52 00 BF 28 16 03 20  4C 44 59 23 24 42 30 3B  |OR..(.. LDY#$B0;|
000008D0: 4A 4F 42 43 4F 44 45 20  46 55 45 52 20 42 4C 4F  |JOBCODE FUER BLO|
000008E0: 43 4B 20 4C 45 53 45 4E  00 D9 28 20 03 20 53 54  |CK LESEN..( . ST|
000008F0: 41 24 30 41 3B 54 52 41  43 4B 53 50 45 49 43 48  |A$0A;TRACKSPEICH|
00000900: 45 52 00 F4 28 2A 03 20  53 54 58 24 30 42 3B 53  |ER..(*. STX$0B;S|
00000910: 45 4B 54 4F 52 53 50 45  49 43 48 45 52 00 10 29  |EKTORSPEICHER..)|
00000920: 34 03 47 45 54 32 20 53  54 59 24 30 32 3B 4A 4F  |4.GET2 STY$02;JO|
00000930: 42 53 50 45 49 43 48 45  52 00 21 29 3E 03 57 41  |BSPEICHER.!)>.WA|
00000940: 49 54 32 20 4C 44 41 24  30 32 00 4E 29 48 03 20  |IT2 LDA$02.N)H. |
00000950: 42 4D 49 57 41 49 54 32  3B 57 41 52 54 45 4E 20  |BMIWAIT2;WARTEN |
00000960: 42 49 53 20 4A 4F 42 20  41 55 53 47 45 46 55 45  |BIS JOB AUSGEFUE|
00000970: 48 52 54 20 49 53 54 00  5A 29 52 03 20 4C 44 41  |HRT IST.Z)R. LDA|
00000980: 24 30 32 00 77 29 5C 03  20 43 4D 50 23 31 3B 42  |$02.w)\. CMP#1;B|
00000990: 4C 4F 43 4B 20 56 4F 52  48 41 4E 44 45 4E 20 3F  |LOCK VORHANDEN ?|
000009A0: 00 9F 29 66 03 20 42 4E  45 47 45 54 32 3B 4E 45  |..)f. BNEGET2;NE|
000009B0: 49 4E 2C 20 44 41 4E 4E  20 57 45 49 54 45 52 20  |IN, DANN WEITER |
000009C0: 41 42 46 52 41 47 45 4E  00 CA 29 70 03 20 52 54  |ABFRAGEN..)p. RT|
000009D0: 53 3B 4A 41 20 44 41 4E  4E 20 5A 55 52 55 45 43  |S;JA DANN ZURUEC|
000009E0: 4B 20 49 4E 53 20 48 41  55 50 54 50 52 4F 47 52  |K INS HAUPTPROGR|
000009F0: 41 4D 4D 00 DC 29 7A 03  44 4F 5A 55 20 2E 54 58  |AMM..)z.DOZU .TX|
00000A00: 22 4D 2D 45 22 00 0C 2A  84 03 20 2E 42 59 30 2C  |"M-E"..*.. .BY0,|
00000A10: 33 3B 46 4C 4F 50 50 59  53 50 45 49 43 48 45 52  |3;FLOPPYSPEICHER|
00000A20: 20 42 45 49 20 24 30 33  30 30 20 41 55 53 46 55  | BEI $0300 AUSFU|
00000A30: 45 48 52 45 4E 00 00 00                           |EHREN...        |

X......BA $C000.. ..;*******************
*************.2 ..;* DISK-CONTROL WRITTE
N IN 1992 *.X (.;*    BY THE X-TERMINATO
R OF    *.~ 2.;*       MAGIC PRODUCTIONS
      *.. <.;*          CONTACT US !    
    *.J F.;*         05132 / 51186      
  *.. P.;*******************************
*..!Z.START LDA#1..!D. LDX#8..!N. LDY#15
.:!X. JSR$FFBA;FILEPARAMETER SETZEN.E!..
 LDA#0.A!.. JSR$FFBD;KEIN FILENAME.{!.. 
JSR$FFC0;OPEN 1,8,15..! . LDX#1..!.. JSR
$FFC9;FLOPPY AUF EMPFANG..!.. LDX#0.I!..
LOOP1 LDAWAITAUF,X.."H. JSR$FFD2;PROGRAM
M 1 IN FLOPPYSPEICHER UEBERTRAGEN.."R. I
NX.&".. CPX#29;SCHON 29 BYTES ?.N".. BNE
LOOP1;NEIN, DANN NAECHSTES BYTE.Y".. LDX
#1..".. JSR$FFCC;FLOPPY FREIGEBEN UND M-
W BEFEHL AUSFUEHREN..".. LDX#1..".. JSR$
FFC9;FLOPPY AUF EMPFANG.I".. LDX#0..#".L
OOP2 LDADOAUF,X;AUSFUEHR-BEFEHL 1 IN FLO
PPYSPEICHER..#,. JSR$FFD2..#6. INX.4#@. 
CPX#5;SCHON 5 BYTES ?.[#J. BNELOOP2;NEIN
 DANN NAECHSTES BYTE.F#T. LDX#1..#^. JSR
$FFCC;FLOPPY FREIGEBEN UND PRG IM SPEICH
ER AUSFUEHREN..#H. LDX#1.P#R. JSR$FFC9;F
LOPPY AUF EMPFANG..#|. LDX#0..$..LOOP3 L
DAWAITZU,X;PROGRAMM 2 IN FLOPPYSPEICHER.
.$.. JSR$FFD2.%$.. INX.B$.. CPX#29;SCHON
 29 BYTES ?.J$.. BNELOOP3;NEIN, DANN NAE
CHSTES BYTE.U$.. LDX#1..$B. JSR$FFCC;FLO
PPY FREIGEBEN UND M-W BEFEHL AUSFUEHREN.
.$L. LDX#1.Z$V. JSR$FFC9;FLOPPY AUF EMPF
ANG..$.. LDX#0..%..LOOP4 LDADOZU,X;AUSFU
EHR-BEFEHL 2 IN FLOPPYSPEICHER.+%.. JSR$
FFD2.4%.. INX.O%.. CPX#5;SCHON 5 BYTES ?
.W%.. BNELOOP4;NEIN, DANN NAECHSTES BYTE
..%.. LDX#1..%&. JSR$FFCC;FLOPPY FREIGEB
EN UND PRG IM SPEICHER AUSFUEHREN..%0. L
DA#1;WENN FLOPPY MIT PRG 2 FERTIG DANN..
&:. JSR$FFC3;CLOSE 1 UND."&D. RTS;ZURUEC
K INS BASIC.7&N.WAITAUF .TX"M-W".T&X. .B
Y0,3,23;23 BYTES IN FLOPPYSPEICHER AB $0
300 SCHREIBEN..&B. LDA#18;TRACK..&L. LDX
#0;SEKTOR.S&V. LDY#$B0;JOBCODE FUER 'BLO
CK AUF VORHANDENSEIN TESTEN'..&.. STA$0A
;TRACKSPEICHER..'.. STX$0B;SEKTORSPEICHE
R.#'..GET STY$02;JOBSPEICHER.3'..WAIT LD
A$02._'.. BMIWAIT;WARTEN BIS JOB AUSGEFU
EHRT IST.K'.. LDA$02..'.. CMP#1;BLOCK VO
RHANDEN ?..'F. BEQGET;JA, DANN WEITER AB
FRAGEN.Z'P. RTS;NEIN DANN ZURUECK INS HA
UPTPROGRAMM..'Z.DOAUF .TX"M-E".$(.. .BY0
,3;FLOPPYSPEICHER AB ADRESSE $0300 AUSFU
EHREN.8(..WAITZU .TX"M-W".U(.. .BY0,3,23
;23 BYTES IN FLOPPYSPEICHER AB $0300 SCH
REIBEN..(.. LDA#18;TRACK..(.. LDX#0;SEKT
OR..(.. LDY#$B0;JOBCODE FUER BLOCK LESEN
.Y( . STA$0A;TRACKSPEICHER..(*. STX$0B;S
EKTORSPEICHER..)4.GET2 STY$02;JOBSPEICHE
R.!)>.WAIT2 LDA$02.N)H. BMIWAIT2;WARTEN 
BIS JOB AUSGEFUEHRT IST.Z)R. LDA$02.W)\.
 CMP#1;BLOCK VORHANDEN ?..)F. BNEGET2;NE
IN, DANN WEITER ABFRAGEN.J)P. RTS;JA DAN
N ZURUECK INS HAUPTPROGRAMM..)Z.DOZU .TX
"M-E"..*.. .BY0,3;FLOPPYSPEICHER BEI $03
00 AUSFUEHREN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL