00000000: 56 45 52 53 49 4F 4E 4C 4F 47 20 46 4F 52 20 4D |VERSIONLOG FOR M|
00000010: 53 44 4F 53 43 4F 50 59 0D 0D D6 30 2E 31 0D C2 |SDOSCOPY...0.1..|
00000020: C1 D3 C9 C3 2D 50 52 4F 47 52 41 4D 20 54 4F 20 |....-PROGRAM TO |
00000030: 52 45 41 44 20 44 49 52 20 4F 46 20 D4 CF D3 2F |READ DIR OF .../|
00000040: CD D3 2D C4 CF D3 20 44 49 53 4B 3B 20 52 45 41 |..-... DISK; REA|
00000050: 44 53 20 42 4F 4F 54 53 45 43 54 4F 52 20 54 4F |DS BOOTSECTOR TO|
00000060: 20 24 43 30 30 30 20 41 4E 44 0D 44 49 52 20 54 | $C000 AND.DIR T|
00000070: 4F 20 24 43 32 30 30 3B 20 53 43 52 45 45 4E 4F |O $C200; SCREENO|
00000080: 55 54 50 55 54 20 4F 46 20 41 44 52 45 53 53 20 |UTPUT OF ADRESS |
00000090: 42 45 49 4E 47 20 57 52 49 54 54 45 4E 20 54 4F |BEING WRITTEN TO|
000000A0: 0D 0D D6 30 2E 32 0D 44 49 52 20 4E 4F 57 20 41 |...0.2.DIR NOW A|
000000B0: 54 20 24 39 30 30 30 3B 20 42 45 43 41 55 53 45 |T $9000; BECAUSE|
000000C0: 20 4F 46 20 54 48 49 53 20 C8 C9 C7 C8 CD C5 CD | OF THIS .......|
000000D0: 20 53 45 54 20 54 4F 20 24 39 30 30 30 3B 20 41 | SET TO $9000; A|
000000E0: 44 52 45 53 53 20 4F 55 54 50 55 54 20 52 45 4D |DRESS OUTPUT REM|
000000F0: 4F 56 45 44 3B 0D 53 50 45 45 44 53 20 50 52 4F |OVED;.SPEEDS PRO|
00000100: 47 52 41 4D 20 55 50 20 4E 4F 54 49 43 45 41 42 |GRAM UP NOTICEAB|
00000110: 4C 45 0D 0D D6 31 2E 30 0D 43 48 41 4E 47 45 44 |LE...1.0.CHANGED|
00000120: 20 54 4F 20 41 53 53 45 4D 42 4C 45 52 3B 20 43 | TO ASSEMBLER; C|
00000130: 4F 4D 50 4C 45 54 45 20 50 52 4F 47 52 41 4D 20 |OMPLETE PROGRAM |
00000140: 54 4F 20 43 4F 50 59 20 46 49 4C 45 20 46 52 4F |TO COPY FILE FRO|
00000150: 4D 20 C9 C2 CD 2D 44 49 53 4B 20 49 4E 20 31 35 |M ...-DISK IN 15|
00000160: 38 31 28 23 39 29 0D 54 4F 20 44 52 49 56 45 20 |81(#9).TO DRIVE |
00000170: 23 38 3B 20 42 4F 4F 54 53 45 43 54 4F 52 20 41 |#8; BOOTSECTOR A|
00000180: 54 20 24 43 30 30 30 3B 20 46 41 54 20 41 54 20 |T $C000; FAT AT |
00000190: 24 43 32 30 30 3B 20 44 49 52 42 4C 4F 43 4B 20 |$C200; DIRBLOCK |
000001A0: 41 54 20 24 39 30 30 30 3B 20 41 43 54 55 41 4C |AT $9000; ACTUAL|
000001B0: 0D 43 4C 55 53 54 45 52 20 41 54 20 24 39 38 30 |.CLUSTER AT $980|
000001C0: 30 3B 20 51 55 45 52 59 20 46 4F 52 20 44 49 52 |0; QUERY FOR DIR|
000001D0: 2D 45 4E 54 52 49 45 53 20 41 54 20 4D 53 2D 44 |-ENTRIES AT MS-D|
000001E0: 4F 53 20 44 49 53 4B 3B 20 4A 55 4D 50 53 20 4F |OS DISK; JUMPS O|
000001F0: 56 45 52 20 53 43 52 41 54 43 48 45 44 0D 46 49 |VER SCRATCHED.FI|
00000200: 4C 45 53 0D 0D D6 31 2E 31 0D 49 4E 43 4C 55 44 |LES...1.1.INCLUD|
00000210: 45 44 20 D3 D4 CF D0 2D 4B 45 59 20 46 4F 52 20 |ED ....-KEY FOR |
00000220: 44 49 52 45 43 54 4F 52 59 2D 51 55 45 52 59 3B |DIRECTORY-QUERY;|
00000230: 20 46 49 58 45 44 20 53 45 56 45 52 41 4C 20 4D | FIXED SEVERAL M|
00000240: 49 4E 4F 52 20 42 55 47 53 0D 0D D6 31 2E 31 31 |INOR BUGS...1.11|
00000250: 0D 46 49 58 45 44 20 22 31 CB 2D C2 55 47 22 3B |.FIXED "1.-.UG";|
00000260: 20 50 52 47 20 44 49 44 4E 27 54 20 43 4F 50 59 | PRG DIDN'T COPY|
00000270: 20 4C 41 53 54 20 43 4C 55 53 54 45 52 20 4F 46 | LAST CLUSTER OF|
00000280: 20 46 49 4C 45 20 31 30 30 25 20 52 45 4C 49 41 | FILE 100% RELIA|
00000290: 42 4C 45 3B 20 43 55 54 54 45 44 0D 53 4F 55 52 |BLE; CUTTED.SOUR|
000002A0: 43 45 20 42 59 20 45 4C 49 4D 49 4E 41 54 49 4E |CE BY ELIMINATIN|
000002B0: 47 20 53 4F 4D 45 20 4C 41 42 45 4C 53 0D 0D D6 |G SOME LABELS...|
000002C0: 31 2E 32 0D 43 4F 4D 50 4C 45 54 45 4C 59 20 52 |1.2.COMPLETELY R|
000002D0: 45 57 52 49 54 54 45 4E 20 42 59 54 45 43 4F 55 |EWRITTEN BYTECOU|
000002E0: 4E 54 45 52 20 41 54 20 27 43 4F 50 59 54 4F 34 |NTER AT 'COPYTO4|
000002F0: 31 27 3B 20 31 CB 2D C2 55 47 20 4E 4F 57 20 54 |1'; 1.-.UG NOW T|
00000300: 4F 54 41 4C 4C 59 20 46 49 58 45 44 3B 0D 49 4E |OTALLY FIXED;.IN|
00000310: 43 4C 55 44 45 44 20 4D 41 49 4E 20 4D 45 4E 55 |CLUDED MAIN MENU|
00000320: 20 41 4E 44 20 50 52 4F 47 52 41 4D 20 4C 4F 4F | AND PROGRAM LOO|
00000330: 50 3B 20 50 52 4F 47 52 41 4D 20 44 4F 45 53 4E |P; PROGRAM DOESN|
00000340: 27 54 20 46 49 4E 49 53 48 20 41 55 54 4F 4D 41 |'T FINISH AUTOMA|
00000350: 54 49 43 41 4C 4C 59 0D 41 4E 59 20 4D 4F 52 45 |TICALLY.ANY MORE|
00000360: 20 41 46 54 45 52 20 45 41 43 48 20 44 49 53 4B | AFTER EACH DISK|
00000370: 3B 20 27 55 30 44 27 2D 43 4F 4D 4D 41 4E 44 20 |; 'U0D'-COMMAND |
00000380: 49 4E 43 4C 55 44 45 44 20 49 4E 20 49 4E 49 54 |INCLUDED IN INIT|
00000390: 44 49 53 4B 3B 20 44 49 52 2D 50 52 47 20 46 4F |DISK; DIR-PRG FO|
000003A0: 52 0D 43 42 4D 20 44 52 49 56 45 53 20 49 4E 43 |R.CBM DRIVES INC|
000003B0: 4C 55 44 45 44 3B 20 27 48 41 53 48 49 4E 47 27 |LUDED; 'HASHING'|
000003C0: 20 57 48 49 4C 45 20 43 4F 50 59 49 4E 47 20 46 | WHILE COPYING F|
000003D0: 49 4C 45 3B 20 50 52 4F 47 52 41 4D 20 4E 4F 57 |ILE; PROGRAM NOW|
000003E0: 20 43 4F 4D 50 4C 45 54 45 4C 59 20 49 4E 0D 22 | COMPLETELY IN."|
000003F0: 4E 45 57 47 45 52 4D 41 4E 22 28 45 4E 47 4C 49 |NEWGERMAN"(ENGLI|
00000400: 53 48 29 0D 0D D6 31 2E 33 0D 49 4E 43 4C 55 44 |SH)...1.3.INCLUD|
00000410: 45 44 20 53 55 42 20 46 4F 52 20 53 45 4E 44 49 |ED SUB FOR SENDI|
00000420: 4E 47 20 44 4F 53 20 43 4F 4D 4D 41 4E 44 53 20 |NG DOS COMMANDS |
00000430: 54 4F 20 23 38 3B 20 53 55 42 20 46 4F 52 20 47 |TO #8; SUB FOR G|
00000440: 45 54 54 49 4E 47 20 53 49 4E 47 4C 45 20 4B 45 |ETTING SINGLE KE|
00000450: 59 2E 0D 0D D6 31 2E 33 31 0D 43 48 41 4E 47 45 |Y....1.31.CHANGE|
00000460: 44 20 54 48 45 20 55 53 45 20 4F 46 20 5A 50 2D |D THE USE OF ZP-|
00000470: 41 44 52 45 53 53 20 24 30 33 2F 24 30 34 20 54 |ADRESS $03/$04 T|
00000480: 4F 20 24 43 33 2F 24 43 34 20 54 4F 20 41 43 48 |O $C3/$C4 TO ACH|
00000490: 49 45 56 45 20 43 4F 4D 50 41 54 49 42 49 4C 49 |IEVE COMPATIBILI|
000004A0: 54 59 20 57 49 54 48 0D 46 53 44 2D C4 CF D3 0D |TY WITH.FSD-....|
000004B0: 0D D6 31 2E 33 32 0D 52 45 50 4C 41 43 45 44 20 |..1.32.REPLACED |
000004C0: 41 4C 4C 20 41 44 52 45 53 53 45 53 20 24 30 35 |ALL ADRESSES $05|
000004D0: 2D 24 30 37 20 42 59 20 41 44 52 45 53 53 45 53 |-$07 BY ADRESSES|
000004E0: 20 49 4E 20 54 48 45 20 49 2F 4F 2D 50 4F 49 4E | IN THE I/O-POIN|
000004F0: 54 45 52 20 41 52 45 41 20 49 4E 20 54 48 45 20 |TER AREA IN THE |
00000500: 5A 50 0D 28 45 2E 47 2E 20 24 42 30 2E 2E 2E 29 |ZP.(E.G. $B0...)|
00000510: 0D 0D D6 31 2E 34 0D C1 44 44 45 44 20 53 49 4D |...1.4..DDED SIM|
00000520: 50 4C 45 20 52 4F 55 54 49 4E 45 20 46 4F 52 20 |PLE ROUTINE FOR |
00000530: 56 49 45 57 49 4E 47 20 CD D3 2D C4 CF D3 20 44 |VIEWING ..-... D|
00000540: 49 52 45 43 54 4F 52 59 2E 20 CE 4F 54 20 51 55 |IRECTORY. .OT QU|
00000550: 49 54 45 20 46 41 53 54 2C 20 4E 4F 54 20 45 56 |ITE FAST, NOT EV|
00000560: 45 4E 0D 47 4F 4F 44 20 28 53 48 4F 57 53 20 C1 |EN.GOOD (SHOWS .|
00000570: CC CC 20 46 49 4C 45 53 2C 20 45 56 45 4E 20 54 |.. FILES, EVEN T|
00000580: 48 45 20 44 45 4C 45 54 45 44 20 4F 52 20 4E 4F |HE DELETED OR NO|
00000590: 54 20 41 4C 4C 4F 43 41 54 45 44 29 0D 0D D6 31 |T ALLOCATED)...1|
000005A0: 2E 34 31 0D C3 48 41 4E 47 45 44 20 4C 4F 43 41 |.41..HANGED LOCA|
000005B0: 54 49 4F 4E 20 4F 46 20 C6 C1 D4 20 41 4E 44 20 |TION OF ... AND |
000005C0: 44 49 52 20 46 52 4F 4D 20 24 43 30 30 30 20 54 |DIR FROM $C000 T|
000005D0: 4F 20 24 38 30 30 30 20 54 4F 20 53 50 45 45 44 |O $8000 TO SPEED|
000005E0: 20 55 50 20 57 4F 52 4B 20 57 49 54 48 20 41 0D | UP WORK WITH A.|
000005F0: D2 C1 CD 20 44 52 49 56 45 20 44 45 46 49 4E 49 |... DRIVE DEFINI|
00000600: 54 4C 59 21 20 C8 4D 4D 4D 2E 2E 2E 44 4F 45 53 |TLY! .MMM...DOES|
00000610: 4E 27 54 20 57 4F 52 4B 20 45 49 54 48 45 52 2E |N'T WORK EITHER.|
00000620: 2E 2E 0D 0D D6 31 2E 34 32 0D C6 49 58 45 44 20 |.....1.42..IXED |
00000630: CD D3 2D C4 CF D3 20 44 49 52 20 52 4F 55 54 49 |..-... DIR ROUTI|
00000640: 4E 45 20 42 59 20 41 44 44 49 4E 47 20 41 20 27 |NE BY ADDING A '|
00000650: 4A 53 52 20 49 4E 49 54 44 49 53 4B 27 20 41 54 |JSR INITDISK' AT|
00000660: 20 54 48 45 20 42 45 47 49 4E 4E 49 4E 47 2E 20 | THE BEGINNING. |
00000670: CE 4F 57 20 57 4F 52 4B 53 0D 41 54 20 46 49 52 |.OW WORKS.AT FIR|
00000680: 53 54 20 43 41 4C 4C 2E 20 C6 49 52 53 54 20 50 |ST CALL. .IRST P|
00000690: 55 42 4C 49 43 20 52 45 4C 45 41 53 45 21 0D 0D |UBLIC RELEASE!..|
VERSIONLOG FOR MSDOSCOPY..V0.1.BASIC-PRO
GRAM TO READ DIR OF TOS/MS-DOS DISK; REA
DS BOOTSECTOR TO $C000 AND.DIR TO $C200;
SCREENOUTPUT OF ADRESS BEING WRITTEN TO
..V0.2.DIR NOW AT $9000; BECAUSE OF THIS
HIGHMEM SET TO $9000; ADRESS OUTPUT REM
OVED;.SPEEDS PROGRAM UP NOTICEABLE..V1.0
.CHANGED TO ASSEMBLER; COMPLETE PROGRAM
TO COPY FILE FROM IBM-DISK IN 1581(#9).T
O DRIVE #8; BOOTSECTOR AT $C000; FAT AT
$C200; DIRBLOCK AT $9000; ACTUAL.CLUSTER
AT $9800; QUERY FOR DIR-ENTRIES AT MS-D
OS DISK; JUMPS OVER SCRATCHED.FILES..V1.
1.INCLUDED STOP-KEY FOR DIRECTORY-QUERY;
FIXED SEVERAL MINOR BUGS..V1.11.FIXED "
1K-BUG"; PRG DIDN'T COPY LAST CLUSTER OF
FILE 100% RELIABLE; CUTTED.SOURCE BY EL
IMINATING SOME LABELS..V1.2.COMPLETELY R
EWRITTEN BYTECOUNTER AT 'COPYTO41'; 1K-B
UG NOW TOTALLY FIXED;.INCLUDED MAIN MENU
AND PROGRAM LOOP; PROGRAM DOESN'T FINIS
H AUTOMATICALLY.ANY MORE AFTER EACH DISK
; 'U0D'-COMMAND INCLUDED IN INITDISK; DI
R-PRG FOR.CBM DRIVES INCLUDED; 'HASHING'
WHILE COPYING FILE; PROGRAM NOW COMPLET
ELY IN."NEWGERMAN"(ENGLISH)..V1.3.INCLUD
ED SUB FOR SENDING DOS COMMANDS TO #8; S
UB FOR GETTING SINGLE KEY...V1.31.CHANGE
D THE USE OF ZP-ADRESS $03/$04 TO $C3/$C
4 TO ACHIEVE COMPATIBILITY WITH.FSD-DOS.
.V1.32.REPLACED ALL ADRESSES $05-$07 BY
ADRESSES IN THE I/O-POINTER AREA IN THE
ZP.(E.G. $B0...)..V1.4.ADDED SIMPLE ROUT
INE FOR VIEWING MS-DOS DIRECTORY. NOT QU
ITE FAST, NOT EVEN.GOOD (SHOWS ALL FILES
, EVEN THE DELETED OR NOT ALLOCATED)..V1
.41.CHANGED LOCATION OF FAT AND DIR FROM
$C000 TO $8000 TO SPEED UP WORK WITH A.
RAM DRIVE DEFINITLY! HMMM...DOESN'T WORK
EITHER.....V1.42.FIXED MS-DOS DIR ROUTI
NE BY ADDING A 'JSR INITDISK' AT THE BEG
INNING. NOW WORKS.AT FIRST CALL. FIRST P
UBLIC RELEASE!..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL