Multiple names: BRSTXBAS, BURST EXAMPL.BAS
FILE INFORMATION
FILENAME(S):
• BRSTXBAS<br>• BURST EXAMPL.BAS
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 2 disk(s)
FILE HASH
9d7d1fc5fd8f60357b75e2ba4ccd2167657b26b96d113b1147d80cc443cad86d
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMO 1581 1 2 | BRSTXBAS | PRG | High Voltage Complete C64 Collection | 15 | 1 | DOWNLOAD FILE |
| CHRISTER MODIG | BURST EXAMPL.BAS | PRG | hedning, scooby | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 21 40 64 00 8F 20 20 44 53 41 56 45 22 40 |.@!@d.. DSAVE"@|
00000010: 42 55 52 53 54 20 45 58 41 4D 50 4C 2E 42 41 53 |BURST EXAMPL.BAS|
00000020: 22 00 46 40 69 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |".F@i.. ********|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 00 6B 40 6E 00 8F 20 2A 20 20 |******.k@n.. * |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 2A 00 90 40 73 00 | *..@s.|
00000070: 8F 20 2A 20 2D 2D 20 31 35 38 31 20 32 20 44 52 |. * -- 1581 2 DR|
00000080: 49 56 45 20 42 41 43 4B 55 50 20 2D 2D 20 20 2A |IVE BACKUP -- *|
00000090: 00 B5 40 78 00 8F 20 2A 20 20 20 20 20 20 20 20 |..@x.. * |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 20 20 20 20 2A 00 DA 40 7D 00 8F 20 2A 20 54 48 | *..@}.. * TH|
000000C0: 49 53 20 50 52 4F 47 52 41 4D 20 42 41 43 4B 53 |IS PROGRAM BACKS|
000000D0: 20 55 50 20 31 20 20 20 20 2A 00 FF 40 82 00 8F | UP 1 *..@...|
000000E0: 20 2A 20 31 35 38 31 20 44 49 53 4B 20 54 4F 20 | * 1581 DISK TO |
000000F0: 41 4E 4F 54 48 45 52 20 31 35 38 31 20 20 2A 00 |ANOTHER 1581 *.|
00000100: 24 41 87 00 8F 20 2A 20 44 52 49 56 45 2E 20 20 |$A... * DRIVE. |
00000110: 59 4F 55 20 4D 55 53 54 20 55 53 45 20 32 20 20 |YOU MUST USE 2 |
00000120: 20 20 20 2A 00 49 41 8C 00 8F 20 2A 20 53 45 50 | *.IA... * SEP|
00000130: 45 52 41 54 45 20 44 52 49 56 45 20 55 4E 49 54 |ERATE DRIVE UNIT|
00000140: 53 20 46 4F 52 20 20 20 2A 00 6E 41 91 00 8F 20 |S FOR *.nA... |
00000150: 2A 20 54 48 49 53 20 50 52 4F 47 52 41 4D 2E 20 |* THIS PROGRAM. |
00000160: 20 49 54 20 49 53 20 20 20 20 20 20 20 2A 00 93 | IT IS *..|
00000170: 41 96 00 8F 20 2A 20 50 52 4F 56 49 44 45 44 20 |A... * PROVIDED |
00000180: 46 4F 52 20 59 4F 55 20 41 53 20 41 4E 20 20 20 |FOR YOU AS AN |
00000190: 20 20 2A 00 B8 41 9B 00 8F 20 2A 20 45 58 41 4D | *..A... * EXAM|
000001A0: 50 4C 45 20 4F 46 20 48 4F 57 20 54 4F 20 55 53 |PLE OF HOW TO US|
000001B0: 45 20 54 48 45 20 20 2A 00 DD 41 A0 00 8F 20 2A |E THE *..A... *|
000001C0: 20 42 55 52 53 54 20 52 4F 55 54 49 4E 45 53 20 | BURST ROUTINES |
000001D0: 4F 46 20 54 48 45 20 31 35 38 31 2E 2A 00 02 42 |OF THE 1581.*..B|
000001E0: A5 00 8F 20 2A 20 55 53 49 4E 47 20 42 55 52 53 |... * USING BURS|
000001F0: 54 20 50 52 4F 54 4F 43 4F 4C 20 43 41 4E 20 20 |T PROTOCOL CAN |
00000200: 20 2A 00 27 42 AA 00 8F 20 2A 20 53 50 45 45 44 | *.'B... * SPEED|
00000210: 20 54 48 49 4E 47 53 20 55 50 20 51 55 49 54 45 | THINGS UP QUITE|
00000220: 20 20 20 20 20 20 2A 00 4C 42 AF 00 8F 20 2A 20 | *.LB... * |
00000230: 53 55 42 53 54 41 4E 54 49 41 4C 4C 59 2E 20 20 |SUBSTANTIALLY. |
00000240: 20 20 20 20 20 20 20 20 20 20 20 2A 00 71 42 B4 | *.qB.|
00000250: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 2A 00 96 42 B9 00 8F 20 2A 20 54 48 45 20 48 45 |*..B... * THE HE|
00000280: 41 52 54 20 4F 46 20 54 48 45 20 50 52 4F 47 52 |ART OF THE PROGR|
00000290: 41 4D 20 20 20 2A 00 BB 42 BE 00 8F 20 2A 20 49 |AM *..B... * I|
000002A0: 53 20 49 4E 20 4D 41 43 48 49 4E 45 20 4C 41 4E |S IN MACHINE LAN|
000002B0: 47 55 41 47 45 2E 20 20 20 20 2A 00 E0 42 C3 00 |GUAGE. *..B..|
000002C0: 8F 20 2A 20 42 41 53 49 43 20 49 53 20 55 53 45 |. * BASIC IS USE|
000002D0: 44 20 54 4F 20 4F 50 45 4E 20 55 50 20 20 20 2A |D TO OPEN UP *|
000002E0: 00 05 43 C8 00 8F 20 2A 20 53 4F 4D 45 20 43 48 |..C... * SOME CH|
000002F0: 41 4E 4E 45 4C 53 20 41 4E 44 20 50 41 53 53 20 |ANNELS AND PASS |
00000300: 20 20 20 20 2A 00 2A 43 CD 00 8F 20 2A 20 50 41 | *.*C... * PA|
00000310: 52 41 4D 45 54 45 52 53 20 54 4F 20 54 48 45 20 |RAMETERS TO THE |
00000320: 4D 41 43 48 49 4E 45 20 20 2A 00 4F 43 D2 00 8F |MACHINE *.OC...|
00000330: 20 2A 20 4C 41 4E 47 55 41 47 45 20 50 41 52 54 | * LANGUAGE PART|
00000340: 2E 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 |. *.|
00000350: 74 43 D7 00 8F 20 2A 20 54 48 45 20 53 4F 55 52 |tC... * THE SOUR|
00000360: 43 45 20 43 4F 44 45 20 46 4F 52 20 54 48 45 20 |CE CODE FOR THE |
00000370: 20 20 20 2A 00 99 43 DC 00 8F 20 2A 20 4D 41 43 | *..C... * MAC|
00000380: 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 20 50 4F |HINE LANGUAGE PO|
00000390: 52 54 49 4F 4E 20 20 20 2A 00 BE 43 E1 00 8F 20 |RTION *..C... |
000003A0: 2A 20 49 53 20 49 4E 20 54 48 45 20 53 45 51 55 |* IS IN THE SEQU|
000003B0: 45 4E 54 49 41 4C 20 46 49 4C 45 20 20 2A 00 E3 |ENTIAL FILE *..|
000003C0: 43 E6 00 8F 20 2A 20 43 41 4C 4C 45 44 20 22 42 |C... * CALLED "B|
000003D0: 55 52 53 54 20 53 55 42 53 2E 53 52 43 22 2E 20 |URST SUBS.SRC". |
000003E0: 20 20 2A 00 08 44 EB 00 8F 20 2A 20 54 48 45 20 | *..D... * THE |
000003F0: 41 53 53 45 4D 42 4C 45 44 20 53 4F 55 52 43 45 |ASSEMBLED SOURCE|
00000400: 20 49 53 20 20 20 20 2A 00 2D 44 F0 00 8F 20 2A | IS *.-D... *|
00000410: 20 49 4E 20 54 48 45 20 53 45 51 55 45 4E 54 49 | IN THE SEQUENTI|
00000420: 41 4C 20 46 49 4C 45 20 20 20 20 20 2A 00 52 44 |AL FILE *.RD|
00000430: F5 00 8F 20 2A 20 22 42 55 52 53 54 20 53 55 42 |... * "BURST SUB|
00000440: 53 2E 4C 53 54 22 2E 20 20 20 20 20 20 20 20 20 |S.LST". |
00000450: 20 2A 00 77 44 FA 00 8F 20 2A 20 4C 49 53 54 20 | *.wD... * LIST |
00000460: 54 48 45 53 45 20 53 4F 55 52 43 45 20 46 49 4C |THESE SOURCE FIL|
00000470: 45 53 20 20 20 20 2A 00 9C 44 FF 00 8F 20 2A 20 |ES *..D... * |
00000480: 54 4F 20 53 45 45 20 48 4F 57 20 54 48 45 20 42 |TO SEE HOW THE B|
00000490: 55 52 53 54 20 20 20 20 20 20 20 2A 00 C1 44 04 |URST *..D.|
000004A0: 01 8F 20 2A 20 52 4F 55 54 49 4E 45 53 20 57 4F |.. * ROUTINES WO|
000004B0: 52 4B 2E 20 20 54 48 45 53 45 20 20 20 20 20 20 |RK. THESE |
000004C0: 2A 00 E6 44 09 01 8F 20 2A 20 42 55 52 53 54 20 |*..D... * BURST |
000004D0: 53 55 42 52 4F 55 54 49 4E 45 53 20 41 52 45 20 |SUBROUTINES ARE |
000004E0: 20 20 20 20 20 2A 00 0B 45 0E 01 8F 20 2A 20 50 | *..E... * P|
000004F0: 52 4F 56 49 44 45 44 20 54 4F 20 4D 41 4B 45 20 |ROVIDED TO MAKE |
00000500: 49 54 20 45 41 53 59 20 20 20 2A 00 30 45 13 01 |IT EASY *.0E..|
00000510: 8F 20 2A 20 46 4F 52 20 41 4E 59 20 42 41 53 49 |. * FOR ANY BASI|
00000520: 43 20 50 52 4F 47 52 41 4D 4D 45 52 20 20 20 2A |C PROGRAMMER *|
00000530: 00 55 45 18 01 8F 20 2A 20 54 4F 20 4D 41 4B 45 |.UE... * TO MAKE|
00000540: 20 55 53 45 20 4F 46 20 54 48 45 20 42 55 52 53 | USE OF THE BURS|
00000550: 54 20 20 20 2A 00 7A 45 1D 01 8F 20 2A 20 52 4F |T *.zE... * RO|
00000560: 55 54 49 4E 45 53 20 42 59 20 55 53 49 4E 47 20 |UTINES BY USING |
00000570: 4F 4E 4C 59 20 20 20 20 20 2A 00 9F 45 22 01 8F |ONLY *..E"..|
00000580: 20 2A 20 27 50 45 45 4B 27 20 27 50 4F 4B 45 27 | * 'PEEK' 'POKE'|
00000590: 20 41 4E 44 20 27 53 59 53 27 2E 20 20 20 2A 00 | AND 'SYS'. *.|
000005A0: C4 45 27 01 8F 20 2A 20 20 20 20 20 20 20 20 20 |.E'.. * |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 20 20 20 2A 00 E9 45 2C 01 8F 20 2A 20 57 4F 52 | *..E,.. * WOR|
000005D0: 4B 53 20 49 4E 20 43 31 32 38 20 4D 4F 44 45 20 |KS IN C128 MODE |
000005E0: 4F 4E 4C 59 21 20 20 20 2A 00 0E 46 31 01 8F 20 |ONLY! *..F1.. |
000005F0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000600: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 33 | *.3|
00000610: 46 36 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |F6.. ***********|
00000620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000630: 2A 2A 2A 00 39 46 3B 01 3A 00 4D 46 40 01 8B 20 |***.9F;.:.MF@.. |
00000640: CE 09 28 32 29 B2 38 30 20 A7 20 FE 25 00 56 46 |..(2).80 . .%.VF|
00000650: 45 01 99 22 93 22 00 8A 46 4A 01 99 22 9E 12 2D |E.."."..FJ.."..-|
00000660: 2D 2D 2D 2D 2D 2D 20 31 35 38 31 20 32 20 44 52 |------ 1581 2 DR|
00000670: 49 56 45 20 44 49 53 4B 20 42 41 43 4B 55 50 20 |IVE DISK BACKUP |
00000680: 2D 2D 2D 2D 2D 2D 2D 92 05 22 00 90 46 4F 01 99 |-------.."..FO..|
00000690: 00 96 46 54 01 3A 00 C2 46 59 01 8F 20 20 43 48 |..FT.:..FY.. CH|
000006A0: 45 43 4B 20 49 46 20 4D 41 43 48 49 4E 45 20 4C |ECK IF MACHINE L|
000006B0: 41 4E 47 55 41 47 45 20 49 53 20 50 52 45 53 45 |ANGUAGE IS PRESE|
000006C0: 4E 54 00 F3 46 5E 01 3A 20 20 41 24 B2 22 47 52 |NT..F^.: A$."GR|
000006D0: 45 47 20 42 45 52 4C 49 4E 22 20 3A 20 8F 20 20 |EG BERLIN" : . |
000006E0: 2A 2A 20 41 55 54 48 4F 52 27 53 20 4E 41 4D 45 |** AUTHOR'S NAME|
000006F0: 20 2A 2A 00 05 47 63 01 3A 20 20 81 20 58 B2 30 | **..Gc.: . X.0|
00000700: 20 A4 20 31 30 00 37 47 68 01 3A 20 20 8B 20 28 | . 10.7Gh.: . (|
00000710: C2 28 D1 28 22 31 33 33 35 22 29 AA 58 29 20 B3 |.(.("1335").X) .|
00000720: B1 20 C6 28 CA 28 41 24 2C 58 AA 31 2C 31 29 29 |. .(.(A$,X.1,1))|
00000730: 29 20 A7 20 33 37 35 00 42 47 6D 01 3A 20 20 82 |) . 375.BGm.: .|
00000740: 20 58 00 51 47 72 01 3A 20 20 CB 20 A4 20 33 38 | X.QGr.: . . 38|
00000750: 35 00 6E 47 77 01 3A 20 FE 11 20 22 42 55 52 53 |5.nGw.: .. "BURS|
00000760: 54 20 53 55 42 53 2E 42 49 4E 22 2C 55 38 00 74 |T SUBS.BIN",U8.t|
00000770: 47 7C 01 3A 00 81 47 81 01 86 20 53 24 28 31 36 |G|.:..G... S$(16|
00000780: 29 00 AA 47 86 01 5A 28 30 29 B2 31 32 38 3A 5A |)..G..Z(0).128:Z|
00000790: 28 31 29 B2 32 35 36 3A 5A 28 32 29 B2 35 31 32 |(1).256:Z(2).512|
000007A0: 3A 5A 28 33 29 B2 31 30 32 34 00 B0 47 8B 01 3A |:Z(3).1024..G..:|
000007B0: 00 E8 47 90 01 8F 20 20 2D 2D 2D 2D 2D 2D 2D 2D |..G... --------|
000007C0: 20 56 41 52 49 41 42 4C 45 53 20 55 53 45 44 20 | VARIABLES USED |
000007D0: 49 4E 20 41 53 53 45 4D 42 4C 59 20 43 4F 44 45 |IN ASSEMBLY CODE|
000007E0: 20 2D 2D 2D 2D 2D 2D 2D 00 13 48 95 01 3A 20 20 | -------..H..: |
000007F0: 53 42 20 20 20 20 20 20 B2 D1 28 22 31 33 30 30 |SB ..("1300|
00000800: 22 29 20 3A 20 8F 20 20 53 54 41 54 55 53 20 42 |") : . STATUS B|
00000810: 59 54 45 00 40 48 9A 01 3A 20 20 44 45 56 20 20 |YTE.@H..: DEV |
00000820: 20 20 20 B2 D1 28 22 31 33 30 31 22 29 20 3A 20 | ..("1301") : |
00000830: 8F 20 20 44 45 56 49 43 45 20 4E 55 4D 42 45 52 |. DEVICE NUMBER|
00000840: 00 73 48 9F 01 3A 20 20 4C 46 20 20 20 20 20 20 |.sH..: LF |
00000850: B2 D1 28 22 31 33 30 32 22 29 20 3A 20 8F 20 20 |..("1302") : . |
00000860: 4C 4F 47 49 43 41 4C 20 46 49 4C 45 20 4E 55 4D |LOGICAL FILE NUM|
00000870: 42 45 52 00 9F 48 A4 01 3A 20 20 54 52 41 43 4B |BER..H..: TRACK|
00000880: 20 20 20 B2 D1 28 22 31 33 30 33 22 29 20 3A 20 | ..("1303") : |
00000890: 8F 20 20 54 52 41 43 4B 20 4E 55 4D 42 45 52 00 |. TRACK NUMBER.|
000008A0: CC 48 A9 01 3A 20 20 53 45 43 54 20 20 20 20 B2 |.H..: SECT .|
000008B0: D1 28 22 31 33 30 34 22 29 20 3A 20 8F 20 20 53 |.("1304") : . S|
000008C0: 45 43 54 4F 52 20 4E 55 4D 42 45 52 00 FD 48 AE |ECTOR NUMBER..H.|
000008D0: 01 3A 20 20 4E 55 4D 53 45 43 20 20 B2 D1 28 22 |.: NUMSEC ..("|
000008E0: 31 33 30 35 22 29 20 3A 20 8F 20 20 4E 55 4D 42 |1305") : . NUMB|
000008F0: 45 52 20 4F 46 20 53 45 43 54 4F 52 53 00 33 49 |ER OF SECTORS.3I|
00000900: B3 01 3A 20 20 42 55 46 4C 4F 43 20 20 B2 D1 28 |..: BUFLOC ..(|
00000910: 22 31 33 30 36 22 29 20 3A 20 8F 20 20 4D 45 4D |"1306") : . MEM|
00000920: 4F 52 59 20 42 55 46 46 45 52 20 4C 4F 43 41 54 |ORY BUFFER LOCAT|
00000930: 49 4F 4E 00 73 49 B8 01 3A 20 20 53 53 49 5A 45 |ION.sI..: SSIZE|
00000940: 20 20 20 B2 D1 28 22 31 33 30 38 22 29 20 3A 20 | ..("1308") : |
00000950: 8F 20 20 53 45 43 54 4F 52 20 53 49 5A 45 20 28 |. SECTOR SIZE (|
00000960: 31 3D 32 35 36 2C 32 3D 35 31 32 2C 34 3D 31 30 |1=256,2=512,4=10|
00000970: 32 34 29 00 A8 49 BD 01 3A 20 20 53 49 44 45 20 |24)..I..: SIDE |
00000980: 20 20 20 B2 D1 28 22 31 33 30 39 22 29 20 3A 20 | ..("1309") : |
00000990: 8F 20 20 53 49 44 45 20 4F 46 20 44 49 53 4B 20 |. SIDE OF DISK |
000009A0: 28 30 20 4F 52 20 31 29 00 EA 49 C2 01 3A 20 20 |(0 OR 1)..I..: |
000009B0: 4D 49 4E 53 45 43 20 20 B2 D1 28 22 31 33 30 41 |MINSEC ..("130A|
000009C0: 22 29 20 3A 20 8F 20 20 4D 49 4E 20 53 45 43 54 |") : . MIN SECT|
000009D0: 4F 52 20 23 20 46 4F 55 4E 44 20 49 4E 20 41 20 |OR # FOUND IN A |
000009E0: 44 49 53 4B 20 51 55 45 52 59 00 2C 4A C7 01 3A |DISK QUERY.,J..:|
000009F0: 20 20 4D 41 58 53 45 43 20 20 B2 D1 28 22 31 33 | MAXSEC ..("13|
00000A00: 30 42 22 29 20 3A 20 8F 20 20 4D 41 58 20 53 45 |0B") : . MAX SE|
00000A10: 43 54 4F 52 20 23 20 46 4F 55 4E 44 20 49 4E 20 |CTOR # FOUND IN |
00000A20: 41 20 44 49 53 4B 20 51 55 45 52 59 00 5C 4A CC |A DISK QUERY.\J.|
00000A30: 01 3A 20 20 5A 46 4C 41 47 20 20 20 B2 D1 28 22 |.: ZFLAG ..("|
00000A40: 31 33 30 44 22 29 20 3A 20 8F 20 20 27 5A 45 52 |130D") : . 'ZER|
00000A50: 4F 20 44 41 54 41 27 20 46 4C 41 47 00 62 4A D1 |O DATA' FLAG.bJ.|
00000A60: 01 3A 00 99 4A D6 01 8F 20 2D 2D 2D 2D 2D 2D 2D |.:..J... -------|
00000A70: 2D 2D 20 4A 55 4D 50 20 54 41 42 4C 45 20 54 4F |-- JUMP TABLE TO|
00000A80: 20 41 53 53 45 4D 42 4C 59 20 43 4F 44 45 20 2D | ASSEMBLY CODE -|
00000A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 C9 4A DB 01 3A 20 |---------..J..: |
00000AA0: 20 51 B2 D1 28 22 31 33 34 30 22 29 20 3A 20 8F | Q..("1340") : .|
00000AB0: 20 20 4A 55 4D 50 20 54 41 42 4C 45 20 42 41 53 | JUMP TABLE BAS|
00000AC0: 45 20 41 44 44 52 45 53 53 00 F6 4A E0 01 3A 20 |E ADDRESS..J..: |
00000AD0: 20 49 4E 51 55 49 52 45 20 B2 51 20 20 20 20 3A | INQUIRE .Q :|
00000AE0: 20 8F 20 20 42 55 52 53 54 20 44 49 53 4B 20 49 | . BURST DISK I|
00000AF0: 4E 51 55 49 52 45 00 2B 4B E5 01 3A 20 20 50 52 |NQUIRE.+K..: PR|
00000B00: 44 20 20 20 20 20 B2 51 AA 33 20 20 3A 20 8F 20 |D .Q.3 : . |
00000B10: 20 42 55 52 53 54 20 50 48 59 53 49 43 41 4C 20 | BURST PHYSICAL |
00000B20: 53 45 43 54 4F 52 20 52 45 41 44 00 5F 4B EA 01 |SECTOR READ._K..|
00000B30: 3A 20 20 4C 52 44 20 20 20 20 20 B2 51 AA 36 20 |: LRD .Q.6 |
00000B40: 20 3A 20 8F 20 20 42 55 52 53 54 20 4C 4F 47 49 | : . BURST LOGI|
00000B50: 43 41 4C 20 53 45 43 54 4F 52 20 52 45 41 44 00 |CAL SECTOR READ.|
00000B60: 95 4B EF 01 3A 20 20 50 57 52 49 54 45 20 20 B2 |.K..: PWRITE .|
00000B70: 51 AA 39 20 20 3A 20 8F 20 20 42 55 52 53 54 20 |Q.9 : . BURST |
00000B80: 50 48 59 53 49 43 41 4C 20 53 45 43 54 4F 52 20 |PHYSICAL SECTOR |
00000B90: 57 52 49 54 45 00 CA 4B F4 01 3A 20 20 4C 57 52 |WRITE..K..: LWR|
00000BA0: 49 54 45 20 20 B2 51 AA 31 32 20 3A 20 8F 20 20 |ITE .Q.12 : . |
00000BB0: 42 55 52 53 54 20 4C 4F 47 49 43 41 4C 20 53 45 |BURST LOGICAL SE|
00000BC0: 43 54 4F 52 20 57 52 49 54 45 00 F6 4B F9 01 3A |CTOR WRITE..K..:|
00000BD0: 20 20 4D 52 44 20 20 20 20 20 B2 51 AA 31 35 20 | MRD .Q.15 |
00000BE0: 3A 20 8F 20 20 42 55 52 53 54 20 4D 45 4D 4F 52 |: . BURST MEMOR|
00000BF0: 59 20 52 45 41 44 00 23 4C FE 01 3A 20 20 4D 57 |Y READ.#L..: MW|
00000C00: 52 20 20 20 20 20 B2 51 AA 31 38 20 3A 20 8F 20 |R .Q.18 : . |
00000C10: 20 42 55 52 53 54 20 4D 45 4D 4F 52 59 20 57 52 | BURST MEMORY WR|
00000C20: 49 54 45 00 5D 4C 03 02 3A 20 20 44 43 41 43 48 |ITE.]L..: DCACH|
00000C30: 45 20 20 B2 51 AA 32 31 20 3A 20 8F 20 20 44 55 |E .Q.21 : . DU|
00000C40: 4D 50 20 31 35 38 31 27 53 20 54 52 41 43 4B 20 |MP 1581'S TRACK |
00000C50: 43 41 43 48 45 20 54 4F 20 44 49 53 4B 00 89 4C |CACHE TO DISK..L|
00000C60: 08 02 3A 20 20 51 55 45 52 59 20 20 20 B2 51 AA |..: QUERY .Q.|
00000C70: 32 34 20 3A 20 8F 20 20 44 49 53 4B 20 46 4F 52 |24 : . DISK FOR|
00000C80: 4D 41 54 20 51 55 45 52 59 00 B7 4C 0D 02 3A 20 |MAT QUERY..L..: |
00000C90: 20 43 4D 50 4D 45 4D 20 20 B2 51 AA 32 37 20 3A | CMPMEM .Q.27 :|
00000CA0: 20 8F 20 20 43 31 32 38 20 4D 45 4D 4F 52 59 20 | . C128 MEMORY |
00000CB0: 43 4F 4D 50 41 52 45 00 BD 4C 12 02 3A 00 F4 4C |COMPARE..L..:..L|
00000CC0: 17 02 81 20 58 B2 30 20 A4 20 31 35 3A 87 20 53 |... X.0 . 15:. S|
00000CD0: 24 28 58 29 3A 82 3A 8F 20 52 45 41 44 20 49 4E |$(X):.:. READ IN|
00000CE0: 20 53 54 41 54 55 53 20 44 45 53 43 52 49 50 54 | STATUS DESCRIPT|
00000CF0: 49 4F 4E 53 00 38 4D 1C 02 83 20 4F 4B 2C 4F 4B |IONS.8M... OK,OK|
00000D00: 2C 53 45 43 54 4F 52 20 4E 4F 54 20 46 4F 55 4E |,SECTOR NOT FOUN|
00000D10: 44 2C 4E 4F 20 41 44 44 52 45 53 53 20 4D 41 52 |D,NO ADDRESS MAR|
00000D20: 4B 2C 44 41 54 41 20 42 4C 4F 43 4B 20 4E 4F 54 |K,DATA BLOCK NOT|
00000D30: 20 50 52 45 53 45 4E 54 00 77 4D 21 02 83 20 43 | PRESENT.wM!.. C|
00000D40: 52 43 20 45 52 52 4F 52 2C 46 4F 52 4D 41 54 20 |RC ERROR,FORMAT |
00000D50: 45 52 52 4F 52 2C 56 45 52 49 46 59 20 45 52 52 |ERROR,VERIFY ERR|
00000D60: 4F 52 2C 20 57 52 49 54 45 20 50 52 4F 54 45 43 |OR, WRITE PROTEC|
00000D70: 54 20 45 52 52 4F 52 00 B6 4D 26 02 83 20 48 45 |T ERROR..M&.. HE|
00000D80: 41 44 45 52 20 42 4C 4F 43 4B 20 43 48 45 43 4B |ADER BLOCK CHECK|
00000D90: 53 55 4D 20 45 52 52 4F 52 2C 20 57 52 49 54 45 |SUM ERROR, WRITE|
00000DA0: 20 50 52 4F 54 45 43 54 45 44 2C 44 49 53 4B 20 | PROTECTED,DISK |
00000DB0: 43 48 41 4E 47 45 00 FD 4D 2B 02 83 20 44 52 49 |CHANGE..M+.. DRI|
00000DC0: 56 45 20 45 4C 45 43 54 52 4F 4E 49 43 53 20 4E |VE ELECTRONICS N|
00000DD0: 4F 54 20 52 45 41 44 59 2C 52 45 53 45 52 56 45 |OT READY,RESERVE|
00000DE0: 44 20 45 52 52 4F 52 2C 53 59 4E 54 41 58 20 45 |D ERROR,SYNTAX E|
00000DF0: 52 52 4F 52 2C 4E 4F 20 44 52 49 56 45 00 03 4E |RROR,NO DRIVE..N|
00000E00: 30 02 3A 00 09 4E 35 02 3A 00 38 4E 3A 02 99 22 |0.:..N5.:.8N:.."|
00000E10: 55 4E 49 54 20 4E 55 4D 42 45 52 20 4F 46 20 53 |UNIT NUMBER OF S|
00000E20: 4F 55 52 43 45 20 44 52 49 56 45 20 20 20 38 9D |OURCE DRIVE 8.|
00000E30: 9D 9D 22 3B 3A 85 20 53 00 6C 4E 3F 02 99 22 55 |..";:. S.lN?.."U|
00000E40: 4E 49 54 20 4E 55 4D 42 45 52 20 4F 46 20 44 45 |NIT NUMBER OF DE|
00000E50: 53 54 49 4E 41 54 49 4F 4E 20 44 52 49 56 45 20 |STINATION DRIVE |
00000E60: 20 20 39 9D 9D 9D 22 3B 3A 85 20 44 00 7D 4E 44 | 9...";:. D.}ND|
00000E70: 02 8B 20 53 B3 B1 44 20 A7 20 35 39 30 00 C0 4E |.. S..D . 590..N|
00000E80: 49 02 99 3A 99 22 53 4F 52 52 59 20 2D 20 53 49 |I..:."SORRY - SI|
00000E90: 4E 47 4C 45 20 44 52 49 56 45 20 42 41 43 4B 55 |NGLE DRIVE BACKU|
00000EA0: 50 20 49 53 20 4E 4F 54 20 53 55 50 50 4F 52 54 |P IS NOT SUPPORT|
00000EB0: 45 44 2E 22 20 3A 20 99 3A CB 20 A4 20 35 37 30 |ED." : .:. . 570|
00000EC0: 00 E0 4E 4E 02 9F 20 38 2C 53 2C 31 35 2C 22 55 |..NN.. 8,S,15,"U|
00000ED0: 49 22 3A 84 38 2C 45 4E 2C 45 4D 24 2C 41 2C 42 |I":.8,EN,EM$,A,B|
00000EE0: 00 1B 4F 53 02 8B 20 C9 28 45 4D 24 2C 34 29 20 |..OS.. .(EM$,4) |
00000EF0: B3 B1 20 22 31 35 38 31 22 20 A7 20 99 20 22 55 |.. "1581" . . "U|
00000F00: 4E 49 54 20 22 3B 53 3B 22 20 49 53 20 4E 4F 54 |NIT ";S;" IS NOT|
00000F10: 20 41 20 31 35 38 31 21 22 3A 90 00 3B 4F 58 02 | A 1581!":..;OX.|
00000F20: 9F 20 39 2C 44 2C 31 35 2C 22 55 49 22 3A 84 39 |. 9,D,15,"UI":.9|
00000F30: 2C 45 4E 2C 45 4D 24 2C 41 2C 42 00 76 4F 5D 02 |,EN,EM$,A,B.vO].|
00000F40: 8B 20 C9 28 45 4D 24 2C 34 29 20 B3 B1 20 22 31 |. .(EM$,4) .. "1|
00000F50: 35 38 31 22 20 A7 20 99 20 22 55 4E 49 54 20 22 |581" . . "UNIT "|
00000F60: 3B 44 3B 22 20 49 53 20 4E 4F 54 20 41 20 31 35 |;D;" IS NOT A 15|
00000F70: 38 31 21 22 3A 90 00 7C 4F 62 02 3A 00 A2 4F 67 |81!":..|Ob.:..Og|
00000F80: 02 99 3A 99 22 50 55 54 20 53 4F 55 52 43 45 20 |..:."PUT SOURCE |
00000F90: 44 49 53 4B 20 49 4E 20 44 45 56 49 43 45 20 22 |DISK IN DEVICE "|
00000FA0: 3B 53 00 C7 4F 6C 02 99 22 28 4F 50 45 4E 20 57 |;S..Ol.."(OPEN W|
00000FB0: 52 49 54 45 20 50 52 4F 54 45 43 54 20 54 41 42 |RITE PROTECT TAB|
00000FC0: 29 2E 22 20 3A 20 99 00 F0 4F 71 02 99 22 50 55 |)." : ...Oq.."PU|
00000FD0: 54 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 |T DESTINATION DI|
00000FE0: 53 4B 20 49 4E 20 44 45 56 49 43 45 20 22 3B 44 |SK IN DEVICE ";D|
00000FF0: 00 24 50 76 02 99 3A 99 22 1C 12 2A 2A 2A 2A 2A |.$Pv..:."..*****|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 57 41 52 4E 49 |********* WARNI|
00001010: 4E 47 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NG ************|
00001020: 2A 2A 2A 22 00 56 50 7B 02 99 22 44 41 54 41 20 |***".VP{.."DATA |
00001030: 4F 4E 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |ON DESTINATION D|
00001040: 49 53 4B 20 57 49 4C 4C 20 42 45 20 45 52 41 53 |ISK WILL BE ERAS|
00001050: 45 44 21 92 05 22 00 7E 50 80 02 99 3A 99 22 44 |ED!..".~P...:."D|
00001060: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 4F |O YOU WANT TO CO|
00001070: 4E 54 49 4E 55 45 20 28 59 2F 4E 29 3F 22 00 88 |NTINUE (Y/N)?"..|
00001080: 50 85 02 A1 F9 20 41 24 00 BA 50 8A 02 8B 20 41 |P.... A$..P... A|
00001090: 24 B2 22 4E 22 20 A7 20 90 20 3A 20 D5 20 3A 20 |$."N" . . : . : |
000010A0: 8B 20 41 24 B2 22 59 22 20 A7 20 36 36 30 20 3A |. A$."Y" . 660 :|
000010B0: 20 D5 20 3A 20 89 20 36 34 35 00 C0 50 8F 02 3A | . : . 645..P..:|
000010C0: 00 EC 50 94 02 99 20 3A 20 99 22 46 4F 52 4D 41 |..P... : ."FORMA|
000010D0: 54 54 49 4E 47 20 44 45 53 54 49 4E 41 54 49 4F |TTING DESTINATIO|
000010E0: 4E 20 44 49 53 4B 20 2E 2E 2E 22 3B 00 20 51 99 |N DISK ...";. Q.|
000010F0: 02 98 39 2C 22 4E 30 3A 54 45 4D 50 2C 58 58 22 |..9,"N0:TEMP,XX"|
00001100: 20 3A 20 8F 20 46 4F 52 4D 41 54 20 54 48 45 20 | : . FORMAT THE |
00001110: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B |DESTINATION DISK|
00001120: 00 52 51 9E 02 84 39 2C 45 4E 2C 45 4D 24 2C 41 |.RQ...9,EN,EM$,A|
00001130: 2C 42 20 3A 20 8F 20 43 48 45 43 4B 20 49 46 20 |,B : . CHECK IF |
00001140: 46 4F 52 4D 41 54 54 49 4E 47 20 57 45 4E 54 20 |FORMATTING WENT |
00001150: 4F 4B 00 95 51 A3 02 8B 20 45 4E 20 B3 20 32 20 |OK..Q... EN . 2 |
00001160: A7 20 99 22 9D 9D 9D 9D 20 20 20 20 22 3A 89 20 |. .".... ":. |
00001170: 36 39 30 20 3A 20 8F 20 43 4F 4E 54 49 4E 55 45 |690 : . CONTINUE|
00001180: 20 49 46 20 44 49 53 4B 20 46 4F 52 4D 41 54 54 | IF DISK FORMATT|
00001190: 45 44 20 4F 4B 00 D6 51 A8 02 99 3A 99 22 1C 45 |ED OK..Q...:.".E|
000011A0: 52 52 4F 52 20 46 4F 52 4D 41 54 54 49 4E 47 20 |RROR FORMATTING |
000011B0: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B |DESTINATION DISK|
000011C0: 3A 20 22 3B 45 4E 3B 45 4D 24 3B 41 3B 42 3B 22 |: ";EN;EM$;A;B;"|
000011D0: 05 22 20 3A 20 90 00 DC 51 AD 02 3A 00 E4 51 B2 |." : ...Q..:..Q.|
000011E0: 02 99 3A 99 00 0F 52 B7 02 3A 20 81 20 54 B2 31 |..:...R..: . T.1|
000011F0: 20 A4 20 38 30 20 3A 20 8F 20 20 4C 4F 4F 50 20 | . 80 : . LOOP |
00001200: 54 48 52 55 20 54 48 45 20 54 52 41 43 4B 53 00 |THRU THE TRACKS.|
00001210: 15 52 BC 02 3A 00 47 52 C1 02 3A 20 20 8F 20 20 |.R..:.GR..: . |
00001220: 52 45 41 44 20 49 4E 20 54 48 45 20 54 52 41 43 |READ IN THE TRAC|
00001230: 4B 20 46 52 4F 4D 20 54 48 45 20 53 4F 55 52 43 |K FROM THE SOURC|
00001240: 45 20 44 52 49 56 45 00 73 52 C6 02 3A 20 20 20 |E DRIVE.sR..: |
00001250: 20 81 20 52 54 20 B2 20 31 20 A4 20 35 20 3A 20 | . RT . 1 . 5 : |
00001260: 8F 20 20 4C 4F 4F 50 20 46 4F 52 20 52 45 54 52 |. LOOP FOR RETR|
00001270: 49 45 53 00 B8 52 CB 02 3A 20 20 20 20 97 20 42 |IES..R..: . B|
00001280: 55 46 4C 4F 43 2C 30 20 3A 20 97 20 42 55 46 4C |UFLOC,0 : . BUFL|
00001290: 4F 43 AA 31 2C D1 28 22 38 30 22 29 20 3A 20 8F |OC.1,.("80") : .|
000012A0: 20 50 4F 49 4E 54 45 52 20 54 4F 20 53 54 4F 52 | POINTER TO STOR|
000012B0: 41 47 45 20 41 52 45 41 00 EB 52 D0 02 3A 20 20 |AGE AREA..R..: |
000012C0: 20 20 97 20 4C 46 2C 38 20 3A 20 8F 20 4C 4F 47 | . LF,8 : . LOG|
000012D0: 49 43 41 4C 20 46 49 4C 45 20 23 20 4F 46 20 53 |ICAL FILE # OF S|
000012E0: 4F 55 52 43 45 20 44 52 49 56 45 00 10 53 D5 02 |OURCE DRIVE..S..|
000012F0: 3A 20 20 20 20 97 20 54 52 41 43 4B 2C 54 20 3A |: . TRACK,T :|
00001300: 20 8F 20 54 52 41 43 4B 20 54 4F 20 52 45 41 44 | . TRACK TO READ|
00001310: 00 36 53 DA 02 3A 20 20 20 20 97 20 53 45 43 54 |.6S..: . SECT|
00001320: 2C 30 20 3A 20 8F 20 53 54 41 52 54 49 4E 47 20 |,0 : . STARTING |
00001330: 53 45 43 54 4F 52 00 69 53 DF 02 3A 20 20 20 20 |SECTOR.iS..: |
00001340: 97 20 4E 55 4D 53 45 43 2C 34 30 20 3A 20 8F 20 |. NUMSEC,40 : . |
00001350: 4E 55 4D 42 45 52 20 4F 46 20 53 45 43 54 4F 52 |NUMBER OF SECTOR|
00001360: 53 20 54 4F 20 52 45 41 44 00 9B 53 E4 02 3A 20 |S TO READ..S..: |
00001370: 20 20 20 99 22 91 52 45 41 44 49 4E 47 20 20 20 | .".READING |
00001380: 54 52 41 43 4B 20 20 20 20 9D 9D 9D 22 3B 54 3B |TRACK ...";T;|
00001390: 22 20 4F 46 20 38 30 20 20 20 22 00 CF 53 E9 02 |" OF 80 "..S..|
000013A0: 3A 20 20 20 20 9E 20 4C 52 44 20 3A 20 8F 20 44 |: . LRD : . D|
000013B0: 4F 20 54 48 45 20 42 55 52 53 54 20 4C 4F 47 49 |O THE BURST LOGI|
000013C0: 43 41 4C 20 53 45 43 54 4F 52 20 52 45 41 44 00 |CAL SECTOR READ.|
000013D0: FD 53 EE 02 3A 20 20 20 20 50 B2 C2 28 53 42 29 |.S..: P..(SB)|
000013E0: 20 3A 20 8F 20 52 45 41 44 20 54 48 45 20 53 54 | : . READ THE ST|
000013F0: 41 54 55 53 20 52 45 54 55 52 4E 45 44 00 3D 54 |ATUS RETURNED.=T|
00001400: F3 02 3A 20 20 20 20 8B 20 28 50 20 AF 20 31 35 |..: . (P . 15|
00001410: 29 B3 32 20 A7 20 37 37 30 20 3A 20 8F 20 43 48 |).2 . 770 : . CH|
00001420: 45 43 4B 20 46 4F 52 20 45 52 52 4F 52 53 20 28 |ECK FOR ERRORS (|
00001430: 30 20 4F 52 20 31 20 49 53 20 4F 4B 29 00 5B 54 |0 OR 1 IS OK).[T|
00001440: F8 02 3A 20 20 20 20 82 20 52 54 20 3A 20 8F 20 |..: . RT : . |
00001450: 20 52 45 54 52 59 20 4C 4F 4F 50 00 9D 54 FD 02 | RETRY LOOP..T..|
00001460: 3A 20 20 20 20 20 99 3A 99 22 45 52 52 4F 52 20 |: .:."ERROR |
00001470: 52 45 41 44 49 4E 47 20 53 4F 55 52 43 45 20 28 |READING SOURCE (|
00001480: 55 4E 49 54 20 22 3B 53 3B 22 29 3A 20 22 3B 53 |UNIT ";S;"): ";S|
00001490: 24 28 50 20 AF 20 31 35 29 20 3A 20 90 00 E4 54 |$(P . 15) : ...T|
000014A0: 02 03 3A 20 20 20 20 8B 20 C2 28 5A 46 4C 41 47 |..: . .(ZFLAG|
000014B0: 29 B2 30 20 A7 20 38 36 35 20 3A 20 8F 20 49 46 |).0 . 865 : . IF|
000014C0: 20 54 52 41 43 4B 20 52 45 41 44 20 49 53 20 42 | TRACK READ IS B|
000014D0: 4C 41 4E 4B 2C 20 53 4B 49 50 20 54 48 45 20 57 |LANK, SKIP THE W|
000014E0: 52 49 54 45 00 17 55 07 03 3A 20 20 8F 20 20 57 |RITE..U..: . W|
000014F0: 52 49 54 45 20 54 48 45 20 54 52 41 43 4B 20 54 |RITE THE TRACK T|
00001500: 4F 20 54 48 45 20 44 45 53 54 49 4E 41 54 49 4F |O THE DESTINATIO|
00001510: 4E 20 44 52 49 56 45 00 46 55 0C 03 3A 20 20 20 |N DRIVE.FU..: |
00001520: 81 20 52 54 20 B2 20 31 20 A4 20 35 20 3A 20 8F |. RT . 1 . 5 : .|
00001530: 20 57 52 49 54 45 20 41 54 54 45 4D 50 54 20 43 | WRITE ATTEMPT C|
00001540: 4F 55 4E 54 45 52 00 8B 55 11 03 3A 20 20 20 20 |OUNTER..U..: |
00001550: 97 20 42 55 46 4C 4F 43 2C 30 20 3A 20 97 20 42 |. BUFLOC,0 : . B|
00001560: 55 46 4C 4F 43 AA 31 2C D1 28 22 38 30 22 29 20 |UFLOC.1,.("80") |
00001570: 3A 20 8F 20 50 4F 49 4E 54 45 52 20 54 4F 20 53 |: . POINTER TO S|
00001580: 54 4F 52 41 47 45 20 41 52 45 41 00 C3 55 16 03 |TORAGE AREA..U..|
00001590: 3A 20 20 20 20 97 20 4C 46 2C 39 20 3A 20 8F 20 |: . LF,9 : . |
000015A0: 4C 4F 47 49 43 41 4C 20 46 49 4C 45 20 23 20 4F |LOGICAL FILE # O|
000015B0: 46 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 52 |F DESTINATION DR|
000015C0: 49 56 45 00 E9 55 1B 03 3A 20 20 20 20 97 20 54 |IVE..U..: . T|
000015D0: 52 41 43 4B 2C 54 20 3A 20 8F 20 54 52 41 43 4B |RACK,T : . TRACK|
000015E0: 20 54 4F 20 57 52 49 54 45 00 0F 56 20 03 3A 20 | TO WRITE..V .: |
000015F0: 20 20 20 97 20 53 45 43 54 2C 30 20 3A 20 8F 20 | . SECT,0 : . |
00001600: 53 54 41 52 54 49 4E 47 20 53 45 43 54 4F 52 00 |STARTING SECTOR.|
00001610: 43 56 25 03 3A 20 20 20 20 97 20 4E 55 4D 53 45 |CV%.: . NUMSE|
00001620: 43 2C 34 30 20 3A 20 8F 20 4E 55 4D 42 45 52 20 |C,40 : . NUMBER |
00001630: 4F 46 20 53 45 43 54 4F 52 53 20 54 4F 20 57 52 |OF SECTORS TO WR|
00001640: 49 54 45 00 74 56 2A 03 3A 20 20 20 20 99 22 91 |ITE.tV*.: .".|
00001650: 57 52 49 54 49 4E 47 20 20 20 54 52 41 43 4B 20 |WRITING TRACK |
00001660: 20 20 20 9D 9D 9D 22 3B 54 3B 22 20 4F 46 20 38 | ...";T;" OF 8|
00001670: 30 20 20 22 00 AC 56 2F 03 3A 20 20 20 20 9E 20 |0 "..V/.: . |
00001680: 4C 57 52 49 54 45 20 3A 20 8F 20 44 4F 20 54 48 |LWRITE : . DO TH|
00001690: 45 20 42 55 52 53 54 20 4C 4F 47 49 43 41 4C 20 |E BURST LOGICAL |
000016A0: 53 45 43 54 4F 52 20 57 52 49 54 45 00 DA 56 34 |SECTOR WRITE..V4|
000016B0: 03 3A 20 20 20 20 50 B2 C2 28 53 42 29 20 3A 20 |.: P..(SB) : |
000016C0: 8F 20 52 45 41 44 20 54 48 45 20 53 54 41 54 55 |. READ THE STATU|
000016D0: 53 20 52 45 54 55 52 4E 45 44 00 1C 57 39 03 3A |S RETURNED..W9.:|
000016E0: 20 20 20 20 8B 20 28 50 20 AF 20 31 35 29 20 B3 | . (P . 15) .|
000016F0: 20 32 20 A7 20 38 36 35 20 3A 20 8F 20 43 48 45 | 2 . 865 : . CHE|
00001700: 43 4B 20 46 4F 52 20 45 52 52 4F 52 53 20 28 30 |CK FOR ERRORS (0|
00001710: 20 4F 52 20 31 20 49 53 20 4F 4B 29 00 6A 57 3E | OR 1 IS OK).jW>|
00001720: 03 3A 20 20 20 20 8F 20 54 52 59 20 54 4F 20 52 |.: . TRY TO R|
00001730: 45 46 4F 52 4D 41 54 20 54 48 45 20 44 45 53 54 |EFORMAT THE DEST|
00001740: 49 4E 41 54 49 4F 4E 20 54 52 41 43 4B 20 53 4F |INATION TRACK SO|
00001750: 20 57 45 20 43 41 4E 20 54 52 59 20 54 4F 20 57 | WE CAN TRY TO W|
00001760: 52 49 54 45 20 41 47 41 49 4E 00 9E 57 43 03 3A |RITE AGAIN..WC.:|
00001770: 20 20 20 20 20 98 39 2C 22 55 30 22 3B C7 28 31 | .9,"U0";.(1|
00001780: 33 34 29 3B C7 28 30 32 29 3B C7 28 54 AB 31 29 |34);.(02);.(T.1)|
00001790: 3B C7 28 31 30 29 3B C7 28 54 AB 31 29 3B 00 D5 |;.(10);.(T.1);..|
000017A0: 57 48 03 3A 20 20 20 20 20 A1 23 39 2C 45 4E 2C |WH.: .#9,EN,|
000017B0: 45 4D 24 2C 41 2C 42 20 3A 20 8F 20 57 41 49 54 |EM$,A,B : . WAIT|
000017C0: 20 46 4F 52 20 46 4F 52 4D 41 54 20 54 4F 20 46 | FOR FORMAT TO F|
000017D0: 49 4E 49 53 48 00 F9 57 4D 03 3A 20 20 20 20 82 |INISH..WM.: .|
000017E0: 20 52 54 20 3A 20 8F 20 20 4C 4F 4F 50 20 46 4F | RT : . LOOP FO|
000017F0: 52 20 52 45 54 52 49 45 53 00 3F 58 52 03 3A 20 |R RETRIES.?XR.: |
00001800: 20 20 20 20 99 22 1C 45 52 52 4F 52 20 4F 4E 20 | .".ERROR ON |
00001810: 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 49 53 4B |DESTINATION DISK|
00001820: 20 28 55 4E 49 54 20 22 3B 53 3B 22 29 3A 20 22 | (UNIT ";S;"): "|
00001830: 3B 53 24 28 50 20 AF 20 31 35 29 3B 22 05 22 00 |;S$(P . 15);".".|
00001840: 4A 58 57 03 3A 20 20 20 20 90 00 50 58 5C 03 3A |JXW.: ..PX\.:|
00001850: 00 7B 58 61 03 3A 20 82 20 54 20 3A 20 8F 20 20 |.{Xa.: . T : . |
00001860: 4C 4F 4F 50 20 54 48 52 4F 55 47 48 20 45 41 43 |LOOP THROUGH EAC|
00001870: 48 20 54 52 41 43 4B 20 2E 2E 2E 00 81 58 66 03 |H TRACK .....Xf.|
00001880: 3A 00 AD 58 6B 03 98 39 2C 22 55 49 22 20 3A 20 |:..Xk..9,"UI" : |
00001890: 8F 20 4C 4F 47 20 4E 45 57 20 44 45 53 54 49 4E |. LOG NEW DESTIN|
000018A0: 41 54 49 4F 4E 20 44 49 53 4B 20 49 4E 00 C3 58 |ATION DISK IN..X|
000018B0: 70 03 FE 0F 20 55 28 53 29 20 3A 20 FE 0F 20 55 |p... U(S) : .. U|
000018C0: 28 44 29 00 D5 58 75 03 99 22 93 22 20 3A 20 EE |(D)..Xu.."." : .|
000018D0: 20 55 28 44 29 00 00 00 | U(D)... |
.@!@D.. DSAVE"@BURST EXAMPL.BAS".F@I..
******************************.K@N.. *
*..@S.. * -- 1
581 2 DRIVE BACKUP -- *..@X.. *
*.Z@}.. * THIS PROGR
AM BACKS UP 1 *..@... * 1581 DISK TO
ANOTHER 1581 *.$A... * DRIVE. YOU MUST
USE 2 *.IA... * SEPERATE DRIVE UNIT
S FOR *.NA... * THIS PROGRAM. IT IS
*..A... * PROVIDED FOR YOU AS AN
*..A... * EXAMPLE OF HOW TO USE THE *
..A .. * BURST ROUTINES OF THE 1581.*..B
... * USING BURST PROTOCOL CAN *.'B...
* SPEED THINGS UP QUITE *.LB... *
SUBSTANTIALLY. *.QB... *
*..B... * THE HE
ART OF THE PROGRAM *..B... * IS IN MAC
HINE LANGUAGE. *..BC.. * BASIC IS USE
D TO OPEN UP *..CH.. * SOME CHANNELS A
ND PASS *.*CM.. * PARAMETERS TO THE
MACHINE *.OCR.. * LANGUAGE PART.
*.TCW.. * THE SOURCE CODE FOR THE
*..C... * MACHINE LANGUAGE PORTION
*..C... * IS IN THE SEQUENTIAL FILE *..
C... * CALLED "BURST SUBS.SRC". *..D..
. * THE ASSEMBLED SOURCE IS *.-D... *
IN THE SEQUENTIAL FILE *.RD... * "B
URST SUBS.LST". *.WD... * LIST
THESE SOURCE FILES *..D... * TO SEE H
OW THE BURST *.AD... * ROUTINES WO
RK. THESE *..D... * BURST SUBROUTI
NES ARE *..E... * PROVIDED TO MAKE
IT EASY *.0E... * FOR ANY BASIC PROGRA
MMER *.UE... * TO MAKE USE OF THE BURS
T *.ZE... * ROUTINES BY USING ONLY
*..E".. * 'PEEK' 'POKE' AND 'SYS'. *.
DE'.. * *..E,
.. * WORKS IN C128 MODE ONLY! *..F1..
* *.3F6.. ***
***************************.9F;.:.MF@..
N.(2).80 . .%.VFE.."."..FJ.."..------- 1
581 2 DRIVE DISK BACKUP -------.."..FO..
..FT.:.BFY.. CHECK IF MACHINE LANGUAGE
IS PRESENT..F^.: A$."GREG BERLIN" : .
** AUTHOR'S NAME **..GC.: . X.0 . 10.7G
H.: . (B(Q("1335").X) .. F(J(A$,X.1,1))
) . 375.BGM.: . X.QGR.: K . 385.NGW.:
.. "BURST SUBS.BIN",U8.TG|.:..G... S$(16
)..G..Z(0).128:Z(1).256:Z(2).512:Z(3).10
24..G..:..G... -------- VARIABLES USED
IN ASSEMBLY CODE -------..H..: SB
.Q("1300") : . STATUS BYTE.@H..: DEV
.Q("1301") : . DEVICE NUMBER.SH..:
LF .Q("1302") : . LOGICAL FILE NUM
BER..H..: TRACK .Q("1303") : . TRACK
NUMBER.LH..: SECT .Q("1304") : . S
ECTOR NUMBER..H..: NUMSEC .Q("1305") :
. NUMBER OF SECTORS.3I..: BUFLOC .Q(
"1306") : . MEMORY BUFFER LOCATION.SI..
: SSIZE .Q("1308") : . SECTOR SIZE (
1=256,2=512,4=1024)..I..: SIDE .Q("1
309") : . SIDE OF DISK (0 OR 1)..IB.:
MINSEC .Q("130A") : . MIN SECTOR # FOU
ND IN A DISK QUERY.,JG.: MAXSEC .Q("13
0B") : . MAX SECTOR # FOUND IN A DISK Q
UERY.\JL.: ZFLAG .Q("130D") : . 'ZER
O DATA' FLAG.BJQ.:..JV.. --------- JUMP
TABLE TO ASSEMBLY CODE ----------.IJ..:
Q.Q("1340") : . JUMP TABLE BASE ADDRES
S..J..: INQUIRE .Q : . BURST DISK I
NQUIRE.+K..: PRD .Q.3 : . BURST P
HYSICAL SECTOR READ._K..: LRD .Q.6
: . BURST LOGICAL SECTOR READ..K..: P
WRITE .Q.9 : . BURST PHYSICAL SECTOR
WRITE.JK..: LWRITE .Q.12 : . BURST LO
GICAL SECTOR WRITE..K..: MRD .Q.15
: . BURST MEMORY READ.#L..: MWR .Q
.18 : . BURST MEMORY WRITE.]L..: DCACH
E .Q.21 : . DUMP 1581'S TRACK CACHE TO
DISK..L..: QUERY .Q.24 : . DISK FOR
MAT QUERY..L..: CMPMEM .Q.27 : . C128
MEMORY COMPARE..L..:..L... X.0 . 15:. S
$(X):.:. READ IN STATUS DESCRIPTIONS.8M.
.. OK,OK,SECTOR NOT FOUND,NO ADDRESS MAR
K,DATA BLOCK NOT PRESENT.WM!.. CRC ERROR
,FORMAT ERROR,VERIFY ERROR, WRITE PROTEC
T ERROR..M&.. HEADER BLOCK CHECKSUM ERRO
R, WRITE PROTECTED,DISK CHANGE..M+.. DRI
VE ELECTRONICS NOT READY,RESERVED ERROR,
SYNTAX ERROR,NO DRIVE..N0.:..N5.:.8N:.."
UNIT NUMBER OF SOURCE DRIVE 8...";:. S
.LN?.."UNIT NUMBER OF DESTINATION DRIVE
9...";:. D.}ND.. S..D . 590..NI..:."SO
RRY - SINGLE DRIVE BACKUP IS NOT SUPPORT
ED." : .:K . 570..NN.. 8,S,15,"UI":.8,EN
,EM$,A,B..OS.. I(EM$,4) .. "1581" . . "U
NIT ";S;" IS NOT A 1581!":..;OX.. 9,D,15
,"UI":.9,EN,EM$,A,B.VO].. I(EM$,4) .. "1
581" . . "UNIT ";D;" IS NOT A 1581!":..|
OB.:..OG..:."PUT SOURCE DISK IN DEVICE "
;S.GOL.."(OPEN WRITE PROTECT TAB)." : ..
.OQ.."PUT DESTINATION DISK IN DEVICE ";D
.$PV..:."..************** WARNING ****
***********".VP{.."DATA ON DESTINATION D
ISK WILL BE ERASED!..".~P...:."DO YOU WA
NT TO CONTINUE (Y/N)?"..P.... A$..P... A
$."N" . . : U : . A$."Y" . 660 : U : . 6
45..P..:..P... : ."FORMATTING DESTINATIO
N DISK ...";. Q...9,"N0:TEMP,XX" : . FOR
MAT THE DESTINATION DISK.RQ...9,EN,EM$,A
,B : . CHECK IF FORMATTING WENT OK..Q...
EN . 2 . .".... ":. 690 : . CONTINUE
IF DISK FORMATTED OK.VQ...:.".ERROR FOR
MATTING DESTINATION DISK: ";EN;EM$;A;B;"
." : ...Q..:..Q...:...R..: . T.1 . 80 :
. LOOP THRU THE TRACKS..R..:.GRA.: .
READ IN THE TRACK FROM THE SOURCE DRIVE.
SRF.: . RT . 1 . 5 : . LOOP FOR RETR
IES..RK.: . BUFLOC,0 : . BUFLOC.1,Q("
80") : . POINTER TO STORAGE AREA..RP.:
. LF,8 : . LOGICAL FILE # OF SOURCE DR
IVE..SU.: . TRACK,T : . TRACK TO READ
.6SZ.: . SECT,0 : . STARTING SECTOR.I
S..: . NUMSEC,40 : . NUMBER OF SECTOR
S TO READ..S..: .".READING TRACK
...";T;" OF 80 ".OS..: . LRD : . D
O THE BURST LOGICAL SECTOR READ..S..:
P.B(SB) : . READ THE STATUS RETURNED.=T
..: . (P . 15).2 . 770 : . CHECK FOR
ERRORS (0 OR 1 IS OK).[T..: . RT : .
RETRY LOOP..T..: .:."ERROR READING
SOURCE (UNIT ";S;"): ";S$(P . 15) : ...T
..: . B(ZFLAG).0 . 865 : . IF TRACK R
EAD IS BLANK, SKIP THE WRITE..U..: . W
RITE THE TRACK TO THE DESTINATION DRIVE.
FU..: . RT . 1 . 5 : . WRITE ATTEMPT C
OUNTER..U..: . BUFLOC,0 : . BUFLOC.1,
Q("80") : . POINTER TO STORAGE AREA.CU..
: . LF,9 : . LOGICAL FILE # OF DESTIN
ATION DRIVE..U..: . TRACK,T : . TRACK
TO WRITE..V .: . SECT,0 : . STARTING
SECTOR.CV%.: . NUMSEC,40 : . NUMBER
OF SECTORS TO WRITE.TV*.: .".WRITING
TRACK ...";T;" OF 80 "..V/.: .
LWRITE : . DO THE BURST LOGICAL SECTOR W
RITE.ZV4.: P.B(SB) : . READ THE STATU
S RETURNED..W9.: . (P . 15) . 2 . 865
: . CHECK FOR ERRORS (0 OR 1 IS OK).JW>
.: . TRY TO REFORMAT THE DESTINATION
TRACK SO WE CAN TRY TO WRITE AGAIN..WC.:
.9,"U0";G(134);G(02);G(T.1);G(10);G
(T.1);.UWH.: .#9,EN,EM$,A,B : . WAIT
FOR FORMAT TO FINISH..WM.: . RT : .
LOOP FOR RETRIES.?XR.: .".ERROR ON
DESTINATION DISK (UNIT ";S;"): ";S$(P .
15);".".JXW.: ..PX\.:.{XA.: . T : .
LOOP THROUGH EACH TRACK .....XF.:..XK..9
,"UI" : . LOG NEW DESTINATION DISK IN.CX
P... U(S) : .. U(D).UXU.."." : . U(D)...
> CLICK IMAGE PREVIEW FOR FULL MODAL