hlb@loral.UUCP () (09/21/84)
The follwoing was extracted from a local BBS and can serve as a cp/m to dos transfer program. The only catch is that the file is saved on the DOS disk with a file identifier as binary. This however can be changed to text with a sector editor program. Please read on. The file can be downloaded and the pertinent part EXEC'd. Please read on. -------- Msg #7673 on 08/06/84 @22:14 (130) Subj: CPM2DOS, To: George Wadsworth From: Irwin Hom, San Diego, CA ->FWD FP MONICO 1 REM TO RUN THIS PROGRAM, INSERT 2 REM DOS DISK IN DRIVE A, AND CP/M 3 REM DISK IN DRIVE B. SYNTAX IS: 4 REM A:<DOS>=B:<CP/M> 10 PRINT CHR$(4);"BRUN CPMXFER,A$900" SAVE CPM2DOS CALL-151 6000:AD 00 E0 C9 4C F0 06 A5 4C A4 4D D0 04 A5 6F A4 6010:70 85 08 84 09 98 38 E9 11 0A 85 54 A9 00 2A 85 6020:55 A9 60 8D 9F 0F A9 02 8D A0 0F A0 00 8C A2 0F 6030:C8 8C A1 0F 20 58 FC 20 A7 0D 58 0E BA 8E A9 0F 6040:AE A9 0F BA A9 A4 85 33 8D A5 0F 20 67 FD 8A F0 6050:EF AD 00 02 C9 83 D0 03 4C D0 03 A2 02 BD 00 02 6060:DD 0C 0F D0 06 CA 10 F5 4C F9 0B A2 02 BD 00 02 6070:DD 0F 0F D0 06 CA 10 F5 4C E1 0B A0 00 8C A5 0F 6080:8C A8 0F 8C A7 0F A2 2B A9 20 9D 0C 0E CA D0 FA 6090:AD 01 02 C9 BA D0 07 20 D7 0C 8D A2 0F C8 20 84 60A0:0D C9 3D F0 0B 9D 0D 0E E8 E4 20 D0 F1 4C 9F 0D 60B0:8A F0 FA 8D A6 0F B9 01 02 C9 BA D0 04 20 D7 0C 60C0:C8 A2 00 CE A5 0F 20 E9 09 C9 2E F0 0F 9D 2D 0E 60D0:E8 E0 08 D0 F1 20 E9 09 C9 2E D0 F9 A2 08 20 E9 60E0:09 9D 2D 0E E8 E0 0B D0 F5 20 84 0D F0 05 C9 2F 60F0:F0 02 60 88 68 68 8A F0 B4 20 84 0D 38 E9 54 8D 6100:A4 0F AD A2 0F CD A1 0F D0 0D 20 A7 0D 71 0F A9 6110:D3 20 F8 0D 4C 40 09 20 4F 0C A0 00 84 50 84 51 6120:8C A3 0F 20 6D 0C B0 39 A2 0A BD 39 0E 29 7F DD 6130:2D 0E D0 EF CA 10 F3 AD 44 0E 48 0A 0A 0A 0A A8 6140:A2 00 BD 48 0E 99 AA 0F C8 E8 E0 10 D0 F4 68 69 6150:00 CD A3 0F 90 08 8D A3 0F AD 47 0E 85 50 4C 23 6160:0A CE A3 0F 10 03 4C 96 0D AD A3 0F AE A4 0F F0 6170:0C C9 02 90 08 20 A7 0D 80 0F 4C 40 09 4A 85 51 6180:A9 00 6A 05 50 85 50 05 51 D0 08 20 A7 0D 90 0F 6190:4C 40 09 A0 00 8C A3 0F C8 8C 9E 0F AD A4 0F D0 61A0:03 20 63 0B A4 50 C4 54 A5 51 E5 55 F0 02 B0 04 61B0:A5 51 90 09 AD A4 0F D0 BC A4 54 A5 55 84 56 85 61C0:57 A9 AA A0 10 85 52 84 53 CE 9E 0F D0 03 20 02 61D0:0D AD 9E 0F 4A B0 03 20 22 0D A5 52 18 69 80 85 61E0:52 90 02 E6 53 A5 50 D0 02 C6 51 C6 50 A5 56 D0 61F0:02 C6 57 C6 56 A5 56 05 57 D0 CE AD A4 0F D0 06 6200:20 87 0B 4C 09 0B 20 1A 0B A5 50 05 51 D0 95 AD 6210:A4 0F D0 03 20 81 0B 4C 40 09 20 A7 0D 43 0F A5 6220:52 38 E9 AA A8 A5 53 E9 10 48 20 D3 0D 98 48 20 6230:F3 0D 20 A7 0D 27 0F 20 54 0B 20 A7 0D 2E 0F A0 6240:AA A9 10 20 D3 0D 20 A7 0D 31 0F 68 A8 68 20 D3 6250:0D 4C 79 0B A0 00 B9 0D 0E 20 F8 0D C8 CC A6 0F 6260:D0 F4 60 20 A7 0D 12 0F 20 54 0B 20 79 0B 20 A7 6270:0D 20 0F 20 54 0B 4C F3 0D 20 A7 0D 3C 0F 4C F3 6280:0D 20 A7 0D 18 0F 60 A9 AA A0 10 85 56 84 57 AE 6290:A8 0F A0 00 B1 56 09 80 C9 9A D0 01 98 C9 8A D0 62A0:04 E0 8D F0 03 20 BC 0B E6 56 D0 02 E6 57 A5 56 62B0:C5 52 A5 57 E5 53 90 DA 8E A8 0F 60 AA 20 F8 0D 62C0:C9 8D D0 05 A9 00 8D A7 0F C9 A0 90 03 EE A7 0F 62D0:C9 89 D0 0C A9 A0 20 BC 0B AD A7 0F 29 07 D0 F4 62E0:60 20 C3 0C F0 03 20 A6 0C 20 A7 0D 34 0F 20 A7 62F0:0D 3C 0F 20 F3 0D 4C 40 09 20 C3 0C F0 03 8D A1 6300:0F 20 4F 0C 20 6D 0C B0 43 AD 44 0E D0 F6 EE A5 6310:0F AD A5 0F 4A 90 0C 20 F3 0D AD A1 0F 18 69 C1 6320:20 F8 0D A9 BA 20 F8 0D 20 F6 0D A0 00 B9 39 0E 6330:20 F8 0D C8 C0 08 90 F5 20 F6 0D B9 39 0E 20 F8 6340:0D C8 C0 0B 90 F5 20 F6 0D 4C 04 0C 4C 40 09 AD 6350:A1 0F 20 EB 0C A9 03 8D 9D 0F A9 00 8D 9C 0F 8D 6360:9E 0F 8D A5 0F 20 E3 03 85 07 84 06 60 AD 9E 0F 6370:29 07 D0 03 20 2F 0D AD 9E 0F 0A 0A 0A 0A 0A A8 6380:B9 AA 10 D0 0E A2 00 B9 AA 10 9D 38 0E C8 E8 E0 6390:20 D0 F4 08 EE 9E 0F AD 9E 0F C9 30 F0 05 28 D0 63A0:CC 18 60 28 38 60 8D A2 0F 20 EB 0C 4A 4A 4A 4A 63B0:69 30 8D 3E 0F AD A0 0F 69 30 8D 41 0F 60 68 68 63C0:4C 7B 09 AD 03 02 C9 8D F0 F3 C9 A0 D0 F0 AD 05 63D0:02 C9 BA D0 E9 A0 04 20 84 0D 38 E9 41 90 04 C9 63E0:06 90 DA 20 A7 0D 71 0F 4C 40 09 48 29 01 18 69 63F0:01 8D A0 0F 68 0A 0A 0A 29 F0 49 FF 69 61 8D 9F 6400:0F 60 AC A3 0F EE A3 0F B9 AA 0F 48 29 03 0A 0A 6410:8D 9C 0F 68 4A 4A 18 69 03 8D 9D 0F A9 08 8D 9E 6420:0F 60 A0 08 A5 52 91 06 C8 A5 53 91 06 D0 0B A0 6430:08 A9 AA 91 06 C8 A9 10 91 06 AE 9C 0F AD 9D 0F 6440:20 54 0D AE 9C 0F E8 E0 10 90 05 A2 00 EE 9D 0F 6450:8E 9C 0F 60 48 A0 01 AD 9F 0F 91 06 C8 AD A0 0F 6460:91 06 C8 A9 00 91 06 C8 68 91 06 C8 BD FD 0D 91 6470:06 A9 01 A0 0C 91 06 20 E3 03 20 D9 03 90 16 A9 6480:07 4C F8 0D B9 00 02 C8 29 7F C9 0D D0 07 2C A5 6490:0F 10 0A A9 00 60 20 A7 0D 52 0F 30 07 68 68 20 64A0:A7 0D 62 0F 4C 40 09 68 85 F0 68 85 F1 AA A9 02 64B0:18 65 F0 A8 90 01 E8 8A 48 98 48 A0 02 B1 F0 AA 64C0:88 B1 F0 85 F0 86 F1 88 B1 F0 AA 20 F8 0D C8 8A 64D0:10 F6 60 20 D7 0D 98 48 20 DD 0D 68 60 48 4A 4A 64E0:4A 4A 20 E8 0D 68 29 0F C9 0A 90 02 69 06 69 B0 64F0:4C F8 0D A9 8D 2C A9 A0 09 80 4C ED FD 00 06 0C 6500:03 09 0F 0E 05 0B 02 08 07 0D 04 0A 01 77 00 00 6510:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6520:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6530:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6540:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 6550:00 00 00 00 00 00 00 00 20 20 20 20 20 20 2A 2A 6560:2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 6570:2A 2A 2A 2A 2A 0D 20 20 20 20 20 20 2A 20 20 20 6580:20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6590:20 20 2A 0D 20 20 20 20 20 20 2A 20 20 43 50 2F 65A0:4D 20 54 4F 20 41 50 50 4C 45 20 44 4F 53 20 20 65B0:2A 0D 20 20 20 20 20 20 2A 20 20 20 20 46 49 4C 65C0:45 20 54 52 41 4E 53 46 45 52 20 20 20 20 2A 0D 65D0:20 20 20 20 20 20 2A 20 20 20 20 20 20 20 20 20 65E0:20 20 20 20 20 20 20 20 20 20 20 20 2A 0D 20 20 65F0:20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 6600:2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 8D C4 C9 D2 C3 6610:C1 D4 04 4F 50 45 4E A0 0D 04 43 4C 4F 53 45 8D 6620:04 57 52 49 54 45 A0 04 42 53 41 56 45 A0 2C 41 6630:A4 2C 4C A4 04 43 41 54 41 4C 4F C7 2C 53 36 2C 6640:44 31 8D 0D 46 49 4C 45 20 4C 45 4E 47 54 48 3A 6650:20 A4 07 0D 46 49 4C 45 20 4E 4F 54 20 46 4F 55 6660:4E C4 07 0D 43 4F 4D 4D 41 4E 44 20 45 52 52 4F 6670:D2 07 0D 49 4E 56 41 4C 49 44 20 44 52 49 56 C5 6680:07 0D 46 49 4C 45 20 54 4F 4F 20 4C 41 52 47 C5 6690:07 0D 45 4D 50 54 59 20 46 49 4C C5 00 00 00 00 66A0:00 00 00 00 00 00 00 00 00 00 FF FF FF FF FF FF 66B0:FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 66C0:FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 66D0:FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 66E0:FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF 66F0:FF 3D0G BSAVE CPMXFER,A$6000,L$06F0 FP ------------------------------------------------------------- On the CPMXFER file, the converted binary file should be marked text. I don't have the source code, but the signature byte is written as a 04h (file type BIN) and not 00h (file type TEXT). If you can use some sort of track/sector editor to change that byte in the catalog track, that file will read as straight ASCII text. -------------------------------------------------------------