COPY-ALL64 GLINK

00000000: 01 08 22 08 01 00 8F 20  53 41 56 45 22 30 3A 43  |..".... SAVE"0:C|
00000010: 4F 50 59 41 4C 4C 20 36  34 20 47 4C 49 4E 4B 22  |OPYALL 64 GLINK"|
00000020: 2C 38 00 4A 08 02 00 8F  20 2A 2A 20 4A 49 4D 20  |,8.J.... ** JIM |
00000030: 42 55 54 54 45 52 46 49  45 4C 44 27 53 20 43 36  |BUTTERFIELD'S C6|
00000040: 34 20 43 4F 50 59 2D 41  4C 4C 00 86 08 03 00 8F  |4 COPY-ALL......|
00000050: 20 2A 2A 20 4D 4F 44 49  46 49 45 44 20 46 4F 52  | ** MODIFIED FOR|
00000060: 20 55 53 45 20 57 49 54  48 20 54 48 45 20 47 4C  | USE WITH THE GL|
00000070: 49 4E 4B 20 49 45 45 45  2D 34 38 38 20 49 4E 54  |INK IEEE-488 INT|
00000080: 45 52 46 41 43 45 00 A8  08 04 00 8F 20 2A 2A 20  |ERFACE...... ** |
00000090: 52 49 43 48 41 52 44 20  45 56 45 52 53 20 30 37  |RICHARD EVERS 07|
000000A0: 2D 30 36 2D 31 39 38 37  00 AE 08 05 00 3A 00 D9  |-06-1987.....:..|
000000B0: 08 06 00 8F 20 2A 2A 20  41 4C 4C 4F 57 53 20 43  |.... ** ALLOWS C|
000000C0: 4F 4E 43 55 52 52 45 4E  54 20 43 4F 50 59 49 4E  |ONCURRENT COPYIN|
000000D0: 47 20 4F 46 20 44 41 54  41 00 09 09 07 00 8F 20  |G OF DATA...... |
000000E0: 2A 2A 20 53 45 52 49 41  4C 20 54 4F 20 49 45 45  |** SERIAL TO IEE|
000000F0: 45 2D 34 38 38 2C 20 49  45 45 45 2D 34 38 38 20  |E-488, IEEE-488 |
00000100: 54 4F 20 53 45 52 49 41  4C 00 3B 09 08 00 8F 20  |TO SERIAL.;.... |
00000110: 2A 2A 20 53 45 52 49 41  4C 20 54 4F 20 53 45 52  |** SERIAL TO SER|
00000120: 49 41 4C 20 4F 52 20 49  45 45 45 2D 34 38 38 20  |IAL OR IEEE-488 |
00000130: 54 4F 20 49 45 45 45 2D  34 38 38 00 6E 09 09 00  |TO IEEE-488.n...|
00000140: 8F 20 2A 2A 20 56 49 41  20 54 52 41 4E 53 41 43  |. ** VIA TRANSAC|
00000150: 54 4F 52 27 53 20 47 4C  49 4E 4B 20 49 45 45 45  |TOR'S GLINK IEEE|
00000160: 2D 34 38 38 20 49 4E 54  45 52 46 41 43 45 00 74  |-488 INTERFACE.t|
00000170: 09 0A 00 3A 00 98 09 0B  00 8F 20 2A 2A 20 54 52  |...:...... ** TR|
00000180: 41 4E 53 41 43 54 4F 52  20 50 55 42 4C 49 53 48  |ANSACTOR PUBLISH|
00000190: 49 4E 47 20 49 4E 43 2E  00 B9 09 0C 00 8F 20 2A  |ING INC....... *|
000001A0: 2A 20 38 35 20 57 45 53  54 20 57 49 4C 4D 4F 54  |* 85 WEST WILMOT|
000001B0: 20 53 54 2E 2C 20 23 31  30 00 E0 09 0D 00 8F 20  | ST., #10...... |
000001C0: 2A 2A 20 52 49 43 48 4D  4F 4E 44 20 48 49 4C 4C  |** RICHMOND HILL|
000001D0: 2C 4F 4E 54 41 52 49 4F  2C 20 43 41 4E 41 44 41  |,ONTARIO, CANADA|
000001E0: 00 00 0A 0E 00 8F 20 2A  2A 20 4C 34 42 2D 31 4B  |...... ** L4B-1K|
000001F0: 37 20 28 34 31 36 29 20  37 36 34 2D 35 32 37 33  |7 (416) 764-5273|
00000200: 00 06 0A 0F 00 3A 00 34  0A 10 00 99 20 22 93 20  |.....:.4.... ". |
00000210: 20 44 49 53 4B 20 43 4F  50 59 2D 41 4C 4C 20 20  | DISK COPY-ALL  |
00000220: 20 20 20 20 4A 49 4D 20  42 55 54 54 45 52 46 49  |    JIM BUTTERFI|
00000230: 45 4C 44 22 00 64 0A 11  00 99 20 22 11 2A 2A 20  |ELD".d.... ".** |
00000240: 47 4C 49 4E 4B 20 49 45  45 45 2D 34 38 38 20 49  |GLINK IEEE-488 I|
00000250: 4E 54 45 52 46 41 43 45  20 56 45 52 53 49 4F 4E  |NTERFACE VERSION|
00000260: 20 2A 2A 22 00 95 0A 12  00 99 20 22 11 20 43 4F  | **"...... ". CO|
00000270: 50 49 45 53 20 42 45 54  57 45 45 4E 20 53 45 52  |PIES BETWEEN SER|
00000280: 49 41 4C 20 41 4E 44 20  49 45 45 45 20 44 52 49  |IAL AND IEEE DRI|
00000290: 56 45 53 11 22 00 D0 0A  13 00 41 24 B2 22 21 4A  |VES.".....A$."!J|
000002A0: 49 4D 20 42 55 54 54 45  52 46 49 45 4C 44 21 22  |IM BUTTERFIELD!"|
000002B0: 3A 20 41 24 B2 41 24 AA  41 24 AA 41 24 3A 20 41  |: A$.A$.A$.A$: A|
000002C0: 24 B2 41 24 AA 41 24 AA  41 24 AA 41 24 AA 41 24  |$.A$.A$.A$.A$.A$|
000002D0: 00 DA 0A 14 00 50 24 B2  22 22 00 07 0B 15 00 86  |.....P$.""......|
000002E0: 20 4C 32 28 32 33 32 29  2C 4C 31 25 28 32 33 32  | L2(232),L1%(232|
000002F0: 29 2C 4E 24 28 32 33 32  29 2C 54 25 28 32 33 32  |),N$(232),T%(232|
00000300: 29 2C 54 24 28 34 29 00  21 0B 16 00 83 20 58 58  |),T$(4).!.... XX|
00000310: 58 2C 53 45 51 2C 50 52  47 2C 55 53 52 2C 52 45  |X,SEQ,PRG,USR,RE|
00000320: 4C 00 3C 0B 17 00 81 20  4A B2 30 20 A4 20 34 3A  |L.<.... J.0 . 4:|
00000330: 20 87 20 54 24 28 4A 29  3A 20 82 4A 00 42 0B 18  | . T$(J): .J.B..|
00000340: 00 3A 00 70 0B 19 00 8F  20 57 48 45 4E 20 53 49  |.:.p.... WHEN SI|
00000350: 5A 45 3D 33 39 35 36 20  54 48 45 4E 20 43 4F 44  |ZE=3956 THEN COD|
00000360: 45 20 42 45 47 49 4E 53  20 41 54 20 36 30 30 35  |E BEGINS AT 6005|
00000370: 00 8E 0B 1A 00 5A 31 B2  36 30 32 37 3A 20 8F 20  |.....Z1.6027: . |
00000380: 45 4E 54 52 59 20 50 4F  49 4E 54 20 23 31 00 AC  |ENTRY POINT #1..|
00000390: 0B 1B 00 5A 32 B2 5A 31  AA 33 3A 20 8F 20 45 4E  |...Z2.Z1.3: . EN|
000003A0: 54 52 59 20 50 4F 49 4E  54 20 23 32 00 CA 0B 1C  |TRY POINT #2....|
000003B0: 00 5A 33 B2 5A 32 AA 33  3A 20 8F 20 45 4E 54 52  |.Z3.Z2.3: . ENTR|
000003C0: 59 20 50 4F 49 4E 54 20  23 33 00 E8 0B 1D 00 5A  |Y POINT #3.....Z|
000003D0: 34 B2 5A 33 AA 33 3A 20  8F 20 45 4E 54 52 59 20  |4.Z3.3: . ENTRY |
000003E0: 50 4F 49 4E 54 20 23 34  00 0F 0C 1E 00 49 4E 49  |POINT #4.....INI|
000003F0: 54 B2 5A 34 AA 33 3A 20  8F 20 4D 4F 56 45 20 52  |T.Z4.3: . MOVE R|
00000400: 4F 4D 20 54 4F 20 52 41  4D 2C 20 45 54 43 2E 00  |OM TO RAM, ETC..|
00000410: 40 0C 1F 00 53 57 41 50  B2 49 4E 49 54 AA 33 3A  |@...SWAP.INIT.3:|
00000420: 20 8F 20 53 57 41 50 20  52 4F 4D 20 54 4F 20 52  | . SWAP ROM TO R|
00000430: 41 4D 20 4F 52 20 56 49  43 45 2D 56 45 52 53 41  |AM OR VICE-VERSA|
00000440: 00 86 0C 20 00 46 52 B2  32 35 31 3A 20 54 55 B2  |... .FR.251: TU.|
00000450: 32 35 32 3A 20 54 50 B2  32 35 33 3A 20 8F 20 46  |252: TP.253: . F|
00000460: 52 4F 4D 2C 20 54 4F 20  41 4E 44 20 54 45 4D 50  |ROM, TO AND TEMP|
00000470: 20 53 54 4F 52 41 47 45  20 4F 46 20 44 52 49 56  | STORAGE OF DRIV|
00000480: 45 20 54 59 50 45 00 8C  0C 21 00 3A 00 A5 0C 22  |E TYPE...!.:..."|
00000490: 00 85 22 46 52 4F 4D 20  55 4E 49 54 20 20 38 9D  |.."FROM UNIT  8.|
000004A0: 9D 9D 22 3B 46 00 BC 0C  23 00 8D 31 32 33 3A 20  |..";F...#..123: |
000004B0: 8F 20 47 45 54 20 44 52  56 4E 55 4D 00 C6 0C 24  |. GET DRVNUM...$|
000004C0: 00 46 24 B2 44 24 00 EC  0C 25 00 85 20 22 31 29  |.F$.D$...%.. "1)|
000004D0: 20 53 45 52 49 41 4C 20  4F 52 20 32 29 20 49 45  | SERIAL OR 2) IE|
000004E0: 45 45 20 20 32 9D 9D 9D  22 3B 54 46 00 03 0D 26  |EE  2...";TF...&|
000004F0: 00 8B 20 54 46 B3 31 20  B0 20 54 46 B1 32 20 A7  |.. TF.1 . TF.2 .|
00000500: 20 33 37 00 09 0D 27 00  3A 00 20 0D 28 00 85 22  | 37...'.:. .(.."|
00000510: 54 4F 20 55 4E 49 54 20  20 38 9D 9D 9D 22 3B 54  |TO UNIT  8...";T|
00000520: 00 37 0D 29 00 8D 31 32  33 3A 20 8F 20 47 45 54  |.7.)..123: . GET|
00000530: 20 44 52 56 4E 55 4D 00  41 0D 2A 00 54 24 B2 44  | DRVNUM.A.*.T$.D|
00000540: 24 00 67 0D 2B 00 85 20  22 31 29 20 53 45 52 49  |$.g.+.. "1) SERI|
00000550: 41 4C 20 4F 52 20 32 29  20 49 45 45 45 20 20 31  |AL OR 2) IEEE  1|
00000560: 9D 9D 9D 22 3B 54 54 00  7E 0D 2C 00 8B 20 54 54  |...";TT.~.,.. TT|
00000570: B3 31 20 B0 20 54 54 B1  32 20 A7 20 34 33 00 84  |.1 . TT.2 . 43..|
00000580: 0D 2D 00 3A 00 A2 0D 2E  00 8B 20 46 B2 54 20 AF  |.-.:...... F.T .|
00000590: 20 46 24 B2 54 24 20 AF  20 54 54 B2 54 46 20 A7  | F$.T$ . TT.TF .|
000005A0: 20 8A 00 A8 0D 2F 00 3A  00 E6 0D 30 00 97 20 46  | ..../.:...0.. F|
000005B0: 52 2C 54 46 AB 31 3A 20  97 20 54 55 2C 54 54 AB  |R,TF.1: . TU,TT.|
000005C0: 31 3A 20 8F 20 44 52 49  56 45 20 54 59 50 45 20  |1: . DRIVE TYPE |
000005D0: 53 4F 55 52 43 45 20 41  4E 44 20 44 45 53 54 49  |SOURCE AND DESTI|
000005E0: 4E 41 54 49 4F 4E 00 0B  0E 31 00 9E 28 49 4E 49  |NATION...1..(INI|
000005F0: 54 29 3A 20 8F 20 4D 4F  56 45 20 52 4F 4D 20 54  |T): . MOVE ROM T|
00000600: 4F 20 52 41 4D 2C 20 45  54 43 2E 00 41 0E 32 00  |O RAM, ETC..A.2.|
00000610: 58 58 B2 46 52 3A 20 8D  20 31 33 36 3A 20 4E B2  |XX.FR: . 136: N.|
00000620: 30 3A 20 A0 31 3A 20 A0  31 35 3A 20 9F 20 31 35  |0: .1: .15: . 15|
00000630: 2C 46 2C 31 35 3A 20 98  31 35 2C 22 49 22 AA 46  |,F,15: .15,"I".F|
00000640: 24 00 59 0E 33 00 8D 31  32 37 3A 20 8B 20 45 20  |$.Y.3..127: . E |
00000650: A7 20 90 3A 20 89 20 35  30 00 7A 0E 34 00 5A B2  |. .: . 50.z.4.Z.|
00000660: 39 30 3A 20 99 3A 20 85  22 50 41 54 54 45 52 4E  |90: .: ."PATTERN|
00000670: 20 20 2A 9D 9D 9D 22 3B  50 24 00 A2 0E 35 00 50  |  *...";P$...5.P|
00000680: 24 B2 22 58 58 58 22 AA  C8 28 50 24 AA 22 A0 A0  |$."XXX"..(P$."..|
00000690: A0 A0 A0 A0 A0 A0 A0 A0  A0 A0 A0 A0 A0 22 2C 31  |.............",1|
000006A0: 36 29 00 CD 0E 36 00 99  20 22 48 4F 4C 44 20 44  |6)...6.. "HOLD D|
000006B0: 4F 57 4E 20 27 59 27 20  4F 52 20 27 4E 27 20 4B  |OWN 'Y' OR 'N' K|
000006C0: 45 59 20 54 4F 20 53 45  4C 45 43 54 22 00 EE 0E  |EY TO SELECT"...|
000006D0: 37 00 99 20 22 50 52 4F  47 52 41 4D 53 20 54 4F  |7.. "PROGRAMS TO|
000006E0: 20 42 45 20 43 4F 50 49  45 44 2E 2E 2E 22 00 07  | BE COPIED..."..|
000006F0: 0F 38 00 9F 20 31 2C 46  2C 33 2C 22 24 22 AA 46  |.8.. 1,F,3,"$".F|
00000700: 24 3A 20 8F 20 4F 4B 00  1E 0F 39 00 8D 31 32 37  |$: . OK...9..127|
00000710: 3A 20 8B 20 45 20 A7 20  90 3A 20 89 35 30 00 28  |: . E . .: .50.(|
00000720: 0F 3A 00 9E 28 5A 31 29  00 38 0F 3B 00 52 B2 32  |.:..(Z1).8.;.R.2|
00000730: 35 35 3A 20 89 20 36 31  00 42 0F 3C 00 9E 28 5A  |55: . 61.B.<..(Z|
00000740: 32 29 00 6B 0F 3D 00 81  20 4A B2 31 36 A4 32 A9  |2).k.=.. J.16.2.|
00000750: AB 31 3A 20 8B 20 C6 28  CA 28 41 24 2C 4A AA 33  |.1: . .(.(A$,J.3|
00000760: 29 29 B2 31 36 30 20 A7  20 82 4A 00 7C 0F 3E 00  |)).160 . .J.|.>.|
00000770: 4E 24 B2 CA 28 41 24 2C  34 2C 4A 29 00 A0 0F 3F  |N$..(A$,4,J)...?|
00000780: 00 54 39 B2 C6 28 41 24  29 AB 31 32 38 3A 20 8B  |.T9..(A$).128: .|
00000790: 20 54 39 B3 31 20 B0 20  54 39 B1 34 20 89 37 35  | T9.1 . T9.4 .75|
000007A0: 00 B4 0F 40 00 4C 31 25  B2 C6 28 CA 28 41 24 2C  |...@.L1%..(.(A$,|
000007B0: 32 32 29 29 00 D7 0F 41  00 4C 32 B2 C6 28 CA 28  |22))...A.L2..(.(|
000007C0: 41 24 2C 32 39 29 29 AA  C6 28 CA 28 41 24 2C 33  |A$,29))..(.(A$,3|
000007D0: 30 29 29 AC 32 35 36 00  12 10 42 00 99 20 C9 28  |0)).256...B.. .(|
000007E0: 22 20 20 20 22 AA CA 28  C4 28 4C 32 29 2C 32 29  |"   "..(.(L2),2)|
000007F0: 2C 34 29 22 20 3A 22 CA  28 41 24 2C 34 2C 31 36  |,4)" :".(A$,4,16|
00000800: 29 22 20 22 54 24 28 54  39 29 22 20 20 20 20 20  |)" "T$(T9)"     |
00000810: 20 22 00 23 10 43 00 50  B2 C2 28 32 30 33 29 20  | ".#.C.P..(203) |
00000820: AF 20 52 00 41 10 44 00  A1 20 5A 24 3A 20 8B 20  |. R.A.D.. Z$: . |
00000830: 5A 24 B2 22 22 20 AF 20  50 B3 30 36 34 20 89 37  |Z$."" . P.064 .7|
00000840: 33 00 6D 10 45 00 8B 20  5A 24 B2 22 59 22 20 B0  |3.m.E.. Z$."Y" .|
00000850: 20 5A 24 B2 22 4E 22 20  A7 20 5A B2 C6 28 5A 24  | Z$."N" . Z..(Z$|
00000860: 29 3A 20 52 B2 32 35 35  3A 20 89 37 33 00 87 10  |): R.255: .73...|
00000870: 46 00 8B 20 5A 24 B2 C7  28 31 33 29 20 A7 20 52  |F.. Z$..(13) . R|
00000880: B2 30 3A 20 89 37 33 00  8F 10 47 00 89 36 38 00  |.0: .73...G..68.|
00000890: 95 10 48 00 3A 00 C3 10  49 00 8B 20 5A B3 38 30  |..H.:...I.. Z.80|
000008A0: 20 A7 20 99 20 22 91 20  20 20 20 20 20 20 20 20  | . . ".         |
000008B0: 20 20 20 20 20 20 20 20  20 20 20 20 91 22 3A 20  |            .": |
000008C0: 89 37 35 00 F7 10 4A 00  4E B2 4E AA 31 3A 20 4C  |.75...J.N.N.1: L|
000008D0: 32 28 4E 29 B2 4C 32 3A  20 4E 24 28 4E 29 B2 4E  |2(N).L2: N$(N).N|
000008E0: 24 3A 20 54 25 28 4E 29  B2 54 39 3A 20 4C 31 25  |$: T%(N).T9: L1%|
000008F0: 28 4E 29 B2 4C 31 25 00  0E 11 4B 00 8B 20 53 54  |(N).L1%...K.. ST|
00000900: B2 30 20 AF 20 4E B3 32  33 32 20 89 36 30 00 4A  |.0 . N.232 .60.J|
00000910: 11 4C 00 58 58 B2 46 52  3A 20 8D 20 31 33 36 3A  |.L.XX.FR: . 136:|
00000920: 20 A0 31 3A 20 A0 31 35  3A 20 99 20 22 20 2A 20  | .1: .15: . " * |
00000930: 2A 20 2A 20 2A 20 2A 20  20 20 20 20 20 20 20 20  |* * * *         |
00000940: 20 20 20 20 20 20 20 20  20 22 00 71 11 4D 00 8B  |         ".q.M..|
00000950: 20 4E B2 30 20 A7 20 99  20 22 2A 20 4E 4F 20 50  | N.0 . . "* NO P|
00000960: 52 4F 47 52 41 4D 53 20  2A 22 3A 20 89 20 31 32  |ROGRAMS *": . 12|
00000970: 30 00 7F 11 4E 00 81 20  4A B2 31 20 A4 20 4E 00  |0...N.. J.1 . N.|
00000980: A3 11 4F 00 4C 32 B2 4C  32 28 4A 29 3A 20 54 25  |..O.L2.L2(J): T%|
00000990: B2 54 25 28 4A 29 3A 20  8B 20 4C B1 4C 32 20 89  |.T%(J): . L.L2 .|
000009A0: 31 30 30 00 B1 11 50 00  8B 20 51 B2 30 20 89 38  |100...P.. Q.0 .8|
000009B0: 34 00 CE 11 51 00 99 20  22 2A 2A 2A 20 4F 55 54  |4...Q.. "*** OUT|
000009C0: 50 55 54 20 44 49 53 4B  20 46 55 4C 4C 22 00 EE  |PUT DISK FULL"..|
000009D0: 11 52 00 85 22 44 4F 20  59 4F 55 20 48 41 56 45  |.R.."DO YOU HAVE|
000009E0: 20 41 20 4E 45 57 20 4F  4E 45 22 3B 5A 24 00 04  | A NEW ONE";Z$..|
000009F0: 12 53 00 8B 20 C6 28 5A  24 29 B3 B1 38 39 20 A7  |.S.. .(Z$)..89 .|
00000A00: 20 31 32 32 00 31 12 54  00 A0 31 35 3A 20 58 58  | 122.1.T..15: XX|
00000A10: B2 54 55 3A 20 8D 20 31  33 36 3A 20 8F 20 53 57  |.TU: . 136: . SW|
00000A20: 41 50 20 54 4F 20 44 45  53 54 49 4E 41 54 49 4F  |AP TO DESTINATIO|
00000A30: 4E 00 68 12 55 00 9F 20  31 35 2C 54 2C 31 35 3A  |N.h.U.. 15,T,15:|
00000A40: 20 85 22 57 41 4E 54 20  54 4F 20 4E 45 57 20 54  | ."WANT TO NEW T|
00000A50: 48 45 20 4F 55 54 50 55  54 20 44 49 53 4B 20 20  |HE OUTPUT DISK  |
00000A60: 4E 9D 9D 9D 22 3B 5A 24  00 7C 12 56 00 8B 20 C6  |N...";Z$.|.V.. .|
00000A70: 28 5A 24 29 B3 B1 38 39  20 89 39 32 00 82 12 57  |(Z$)..89 .92...W|
00000A80: 00 3A 00 9C 12 58 00 85  22 44 49 53 4B 20 4E 41  |.:...X.."DISK NA|
00000A90: 4D 45 2C 49 44 22 3B 58  24 2C 59 24 00 B9 12 59  |ME,ID";X$,Y$...Y|
00000AA0: 00 98 31 35 2C 22 4E 22  AA 54 24 AA 22 3A 22 AA  |..15,"N".T$.":".|
00000AB0: 58 24 AA 22 2C 22 AA 59  24 00 D0 12 5A 00 8D 31  |X$.",".Y$...Z..1|
00000AC0: 32 37 3A 20 8B 20 45 20  A7 20 90 3A 20 89 38 34  |27: . E . .: .84|
00000AD0: 00 D6 12 5B 00 3A 00 FF  12 5C 00 98 31 35 2C 22  |...[.:...\..15,"|
00000AE0: 49 22 AA 54 24 3A 20 9F  20 31 2C 54 2C 30 2C 22  |I".T$: . 1,T,0,"|
00000AF0: 24 22 AA 54 24 AA 22 3A  20 21 23 24 25 26 22 00  |$".T$.": !#$%&".|
00000B00: 16 13 5D 00 8D 31 32 37  3A 20 8B 20 45 20 A7 20  |..]..127: . E . |
00000B10: 90 3A 20 89 38 34 00 2C  13 5E 00 8D 31 33 31 3A  |.: .84.,.^..131:|
00000B20: 20 8D 31 33 31 3A 20 51  B2 51 AA 31 00 45 13 5F  | .131: Q.Q.1.E._|
00000B30: 00 A1 23 31 2C 58 24 3A  20 8B 20 58 24 B3 B1 22  |..#1,X$: . X$.."|
00000B40: 22 20 89 39 35 00 4E 13  60 00 8D 31 33 31 00 75  |" .95.N.`..131.u|
00000B50: 13 61 00 4C B2 58 AA 59  AC 32 35 36 3A 20 99 20  |.a.L.X.Y.256: . |
00000B60: 22 28 22 3B 4C 3B 22 42  4C 4F 43 4B 53 20 46 52  |"(";L;"BLOCKS FR|
00000B70: 45 45 20 29 22 00 94 13  62 00 58 58 B2 54 55 3A  |EE )"...b.XX.TU:|
00000B80: 20 8D 20 31 33 36 3A 20  A0 31 3A 20 A0 31 35 3A  | . 136: .1: .15:|
00000B90: 20 89 37 39 00 9A 13 63  00 3A 00 CC 13 64 00 58  | .79...c.:...d.X|
00000BA0: 58 B2 46 52 3A 20 8D 20  31 33 36 3A 20 9F 20 31  |X.FR: . 136: . 1|
00000BB0: 34 2C 46 2C 31 35 3A 20  8F 20 53 4F 55 52 43 45  |4,F,15: . SOURCE|
00000BC0: 20 43 4D 44 20 43 48 41  4E 4E 45 4C 00 FC 13 65  | CMD CHANNEL...e|
00000BD0: 00 58 58 B2 54 55 3A 20  8D 20 31 33 36 3A 20 9F  |.XX.TU: . 136: .|
00000BE0: 20 31 35 2C 54 2C 31 35  3A 20 8F 20 44 45 53 54  | 15,T,15: . DEST|
00000BF0: 20 43 4D 44 20 43 48 41  4E 4E 45 4C 00 26 14 66  | CMD CHANNEL.&.f|
00000C00: 00 99 20 C8 28 4E 24 28  4A 29 AA 22 20 20 20 20  |.. .(N$(J)."    |
00000C10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C20: 22 2C 32 31 29 3B 00 58  14 67 00 58 58 B2 46 52  |",21);.X.g.XX.FR|
00000C30: 3A 20 8D 20 31 33 36 3A  20 9F 20 33 2C 46 2C 33  |: . 136: . 3,F,3|
00000C40: 2C 46 24 AA 22 3A 22 AA  4E 24 28 4A 29 AA 22 2C  |,F$.":".N$(J).",|
00000C50: 22 AA 54 24 28 54 25 29  00 8B 14 68 00 84 31 34  |".T$(T%)...h..14|
00000C60: 2C 45 2C 45 24 2C 45 31  2C 45 32 3A 20 8D 31 32  |,E,E$,E1,E2: .12|
00000C70: 38 3A 20 8B 20 45 20 A7  20 99 20 22 2A 2A 20 22  |8: . E . . "** "|
00000C80: 3B 45 24 3B 45 3A 20 89  31 31 37 00 91 14 69 00  |;E$;E: .117...i.|
00000C90: 3A 00 B1 14 6A 00 58 58  B2 54 55 3A 20 8D 20 31  |:...j.XX.TU: . 1|
00000CA0: 33 36 3A 20 8F 20 44 45  53 54 49 4E 41 54 49 4F  |36: . DESTINATIO|
00000CB0: 4E 00 E9 14 6B 00 8B 20  54 25 B2 34 20 A7 20 9F  |N...k.. T%.4 . .|
00000CC0: 20 34 2C 54 2C 34 2C 54  24 AA 22 3A 22 AA 4E 24  | 4,T,4,T$.":".N$|
00000CD0: 28 4A 29 AA 22 2C 4C 2C  22 AA C7 28 4C 31 25 28  |(J).",L,"..(L1%(|
00000CE0: 4A 29 29 3A 20 89 31 31  31 00 EF 14 6C 00 3A 00  |J)): .111...l.:.|
00000CF0: 18 15 6D 00 9F 20 34 2C  54 2C 34 2C 54 24 AA 22  |..m.. 4,T,4,T$."|
00000D00: 3A 22 AA 4E 24 28 4A 29  AA 22 2C 22 AA 54 24 28  |:".N$(J).",".T$(|
00000D10: 54 25 29 AA 22 2C 57 22  00 1E 15 6E 00 3A 00 4A  |T%).",W"...n.:.J|
00000D20: 15 6F 00 4C B2 4C AB 4C  32 3A 20 8D 31 32 37 3A  |.o.L.L.L2: .127:|
00000D30: 20 8B 20 45 20 A7 20 99  20 22 2A 2A 2A 20 22 3B  | . E . . "*** ";|
00000D40: 45 24 3B 45 3A 20 89 31  31 37 00 74 15 70 00 8B  |E$;E: .117.t.p..|
00000D50: 20 54 25 B2 34 20 A7 20  9E 28 5A 34 29 3A 20 89  | T%.4 . .(Z4): .|
00000D60: 31 31 34 3A 20 8F 20 52  45 4C 41 54 49 56 45 20  |114: . RELATIVE |
00000D70: 43 4F 50 59 00 7E 15 71  00 9E 28 5A 33 29 00 A8  |COPY.~.q..(Z3)..|
00000D80: 15 72 00 58 58 B2 54 55  3A 20 8D 20 31 33 36 3A  |.r.XX.TU: . 136:|
00000D90: 20 8F 20 53 45 54 20 44  45 53 54 49 4E 41 54 49  | . SET DESTINATI|
00000DA0: 4F 4E 20 41 47 41 49 4E  00 D7 15 73 00 4E 24 28  |ON AGAIN...s.N$(|
00000DB0: 4A 29 B2 22 22 3A 20 8D  31 32 37 3A 20 8B 20 45  |J)."": .127: . E|
00000DC0: 20 A7 20 99 20 22 2A 2A  2A 2A 20 22 3B 45 24 3B  | . . "**** ";E$;|
00000DD0: 45 3A 20 89 31 31 37 00  E1 15 74 00 99 20 22 91  |E: .117...t.. ".|
00000DE0: 22 00 05 16 75 00 58 58  B2 46 52 3A 20 8D 20 31  |"...u.XX.FR: . 1|
00000DF0: 33 36 3A 20 A0 33 3A 20  A0 31 34 3A 20 8F 20 53  |36: .3: .14: . S|
00000E00: 4F 55 52 43 45 00 2E 16  76 00 58 58 B2 54 55 3A  |OURCE...v.XX.TU:|
00000E10: 20 8D 20 31 33 36 3A 20  A0 34 3A 20 A0 31 35 3A  | . 136: .4: .15:|
00000E20: 20 8F 20 44 45 53 54 49  4E 41 54 49 4F 4E 00 35  | . DESTINATION.5|
00000E30: 16 77 00 82 4A 00 60 16  78 00 58 B2 B8 28 30 29  |.w..J.`.x.X..(0)|
00000E40: 3A 20 85 22 41 4E 4F 54  48 45 52 20 49 4E 50 55  |: ."ANOTHER INPU|
00000E50: 54 20 44 49 53 4B 20 52  45 41 44 59 22 3B 5A 24  |T DISK READY";Z$|
00000E60: 00 73 16 79 00 8B 20 C6  28 5A 24 29 B2 38 39 20  |.s.y.. .(Z$).89 |
00000E70: 89 35 30 00 81 16 7A 00  97 20 31 2C 35 35 3A 20  |.50...z.. 1,55: |
00000E80: 80 00 96 16 7B 00 85 22  44 52 49 56 45 20 20 30  |....{.."DRIVE  0|
00000E90: 9D 9D 9D 22 3B 44 00 A8  16 7C 00 8B 20 44 AC 44  |...";D...|.. D.D|
00000EA0: B3 B1 44 20 89 31 32 33  00 BA 16 7D 00 44 24 B2  |..D .123...}.D$.|
00000EB0: C7 28 44 AA 34 38 29 3A  20 8E 00 C0 16 7E 00 3A  |.(D.48): ....~.:|
00000EC0: 00 D3 16 7F 00 84 31 35  2C 45 2C 45 24 2C 45 31  |......15,E,E$,E1|
00000ED0: 2C 45 32 00 F7 16 80 00  8B 20 45 B2 30 20 A7 20  |,E2...... E.0 . |
00000EE0: 45 B2 28 53 54 20 AF 20  31 39 31 29 3A 20 45 24  |E.(ST . 191): E$|
00000EF0: B2 22 2A 53 54 2A 22 00  FD 16 81 00 8E 00 03 17  |."*ST*".........|
00000F00: 82 00 3A 00 14 17 83 00  A1 23 31 2C 58 24 2C 58  |..:......#1,X$,X|
00000F10: 24 2C 58 24 00 25 17 84  00 58 B2 C6 28 58 24 AA  |$,X$.%...X..(X$.|
00000F20: C7 28 30 29 29 00 3E 17  85 00 A1 23 31 2C 58 24  |.(0)).>....#1,X$|
00000F30: 3A 20 59 B2 C6 28 58 24  AA C7 28 30 29 29 00 44  |: Y..(X$..(0)).D|
00000F40: 17 86 00 8E 00 4A 17 87  00 3A 00 89 17 88 00 97  |.....J...:......|
00000F50: 20 54 50 2C C2 28 58 58  29 3A 20 9E 28 53 57 41  | TP,.(XX): .(SWA|
00000F60: 50 29 3A 20 8E 3A 20 8F  20 46 4C 49 50 20 54 4F  |P): .: . FLIP TO|
00000F70: 20 53 4F 55 52 43 45 2F  44 45 53 54 49 4E 41 54  | SOURCE/DESTINAT|
00000F80: 49 4F 4E 20 44 52 49 56  45 00 00 00 4C 9D 17 4C  |ION DRIVE...L..L|
00000F90: F9 17 4C C8 18 4C DB 18  4C 2F 19 4C 80 19 A0 0B  |..L..L..L/.L....|
00000FA0: B1 2D 85 8E 88 B1 2D 85  8D 88 B1 2D 8D 46 03 A0  |.-....-....-.F..|
00000FB0: 04 B1 2D 85 8C 88 B1 2D  85 8B A9 08 8D 44 03 20  |..-....-.....D. |
00000FC0: 09 18 A0 00 B1 8B C9 40  90 16 C9 4F B0 12 20 75  |.......@...O.. u|
00000FD0: 19 A2 01 20 C6 FF A0 DE  20 E4 FF 88 D0 FA F0 DA  |... .... .......|
00000FE0: B1 8B 10 16 A0 03 B1 8D  C9 2A F0 0D C9 3F F0 04  |.........*...?..|
00000FF0: D1 8B D0 06 C8 C0 13 D0  ED 60 A0 00 98 91 8B A5  |.........`......|
00001000: 90 D0 F6 20 09 18 A0 00  F0 D6 A9 20 CE 44 03 D0  |... ....... .D..|
00001010: 07 A9 08 8D 44 03 A9 1E  8D 45 03 20 75 19 A2 01  |....D....E. u...|
00001020: 20 C6 FF A0 00 20 E4 FF  91 8B C8 CC 45 03 D0 F5  | .... ......E...|
00001030: 4C CC FF 18 78 F8 AD 42  03 69 01 8D 42 03 AD 43  |L...x..B.i..B..C|
00001040: 03 69 00 8D 43 03 D8 58  A2 01 BD 42 03 48 4A 4A  |.i..C..X...B.HJJ|
00001050: 4A 4A 09 30 20 D2 FF 68  29 0F 09 30 20 D2 FF CA  |JJ.0 ..h)..0 ...|
00001060: 10 E8 A2 03 A9 9D 20 D2  FF CA 10 FA 20 75 19 A2  |...... ..... u..|
00001070: 03 20 C6 FF A0 00 A2 00  8E 45 03 20 E4 FF A6 90  |. .......E. ....|
00001080: F0 0B E0 40 F0 07 EC 45  03 D0 ED F0 0B 91 8B C8  |...@...E........|
00001090: C0 FE F0 04 E0 00 F0 E0  8C 44 03 8E 45 03 20 CC  |.........D..E. .|
000010A0: FF 20 7C 19 A2 04 20 C9  FF A0 00 A2 00 B1 8B 8E  |. |... .........|
000010B0: 46 03 20 D2 FF A6 90 F0  07 EC 46 03 D0 F1 F0 06  |F. .......F.....|
000010C0: C8 CC 44 03 D0 E7 4C CC  FF A9 00 8D 42 03 8D 43  |..D...L.....B..C|
000010D0: 03 20 32 18 AD 45 03 05  90 F0 F6 60 A9 00 8D 40  |. 2..E.....`...@|
000010E0: 03 8D 41 03 8D 42 03 8D  43 03 EE 40 03 D0 03 EE  |..A..B..C..@....|
000010F0: 41 03 20 75 19 A2 0E 20  C9 FF A9 50 20 D2 FF A9  |A. u... ...P ...|
00001100: 03 20 D2 FF AD 40 03 20  D2 FF AD 41 03 20 D2 FF  |. ...@. ...A. ..|
00001110: A9 01 20 D2 FF 20 CC FF  A2 0E 20 C6 FF 20 E4 FF  |.. .. .... .. ..|
00001120: A8 20 CC FF C0 30 D0 07  20 32 18 A5 90 F0 BB 60  |. ...0.. 2.....`|
00001130: 2C F2 19 50 01 60 A5 01  8D F0 19 29 FD 8D F1 19  |,..P.`.....)....|
00001140: A9 40 8D F2 19 AD 0E ED  C9 48 F0 05 A0 2D 20 8A  |.@.......H...- .|
00001150: 19 A9 A0 85 51 A9 00 85  50 A8 B1 50 91 50 C8 D0  |....Q...P..P.P..|
00001160: F9 E6 51 A5 51 C9 C0 D0  04 A9 E0 85 51 C9 00 D0  |..Q.Q.......Q...|
00001170: E9 A0 37 4C 8A 19 A5 FB  85 FD 4C 80 19 A5 FC 85  |..7L......L.....|
00001180: FD 78 A6 FD BD F0 19 85  01 58 60 A2 1B 20 A1 19  |.x.......X`.. ..|
00001190: 98 AA 20 A1 19 A2 00 20  A1 19 20 E4 FF C9 0D D0  |.. .... .. .....|
000011A0: F9 60 BD AD 19 F0 06 20  D2 FF E8 D0 F5 60 0D 50  |.`..... .....`.P|
000011B0: 52 45 53 53 20 3C 52 45  54 55 52 4E 3E 20 57 48  |RESS <RETURN> WH|
000011C0: 45 4E 20 52 45 41 44 59  00 0D 50 4C 41 43 45 20  |EN READY..PLACE |
000011D0: 53 57 49 54 43 48 20 49  4E 20 00 49 45 45 45 20  |SWITCH IN .IEEE |
000011E0: 4D 4F 44 45 00 53 45 52  49 41 4C 20 4D 4F 44 45  |MODE.SERIAL MODE|
000011F0: 00 00 00 00 AA                                    |.....           |

..".... SAVE"0:COPYALL 64 GLINK",8.J....
 ** JIM BUTTERFIELD'S C64 COPY-ALL......
 ** MODIFIED FOR USE WITH THE GLINK IEEE
-488 INTERFACE...... ** RICHARD EVERS 07
-06-1987.....:.Y.... ** ALLOWS CONCURREN
T COPYING OF DATA...... ** SERIAL TO IEE
E-488, IEEE-488 TO SERIAL.;.... ** SERIA
L TO SERIAL OR IEEE-488 TO IEEE-488.N...
. ** VIA TRANSACTOR'S GLINK IEEE-488 INT
ERFACE.T...:...... ** TRANSACTOR PUBLISH
ING INC....... ** 85 WEST WILMOT ST., #1
0...... ** RICHMOND HILL,ONTARIO, CANADA
...... ** L4B-1K7 (416) 764-5273.....:.4
.... ".  DISK COPY-ALL      JIM BUTTERFI
ELD".D.... ".** GLINK IEEE-488 INTERFACE
 VERSION **"...... ". COPIES BETWEEN SER
IAL AND IEEE DRIVES.".P...A$."!JIM BUTTE
RFIELD!": A$.A$.A$.A$: A$.A$.A$.A$.A$.A$
.Z...P$.""...... L2(232),L1%(232),N$(232
),T%(232),T$(4).!.... XXX,SEQ,PRG,USR,RE
L.<.... J.0 . 4: . T$(J): .J.B...:.P....
 WHEN SIZE=3956 THEN CODE BEGINS AT 6005
.....Z1.6027: . ENTRY POINT #1.....Z2.Z1
.3: . ENTRY POINT #2.J...Z3.Z2.3: . ENTR
Y POINT #3.....Z4.Z3.3: . ENTRY POINT #4
.....INIT.Z4.3: . MOVE ROM TO RAM, ETC..
@...SWAP.INIT.3: . SWAP ROM TO RAM OR VI
CE-VERSA... .FR.251: TU.252: TP.253: . F
ROM, TO AND TEMP STORAGE OF DRIVE TYPE..
.!.:...".."FROM UNIT  8...";F...#..123: 
. GET DRVNUM.F.$.F$.D$...%.. "1) SERIAL 
OR 2) IEEE  2...";TF...&.. TF.1 . TF.2 .
 37...'.:. .(.."TO UNIT  8...";T.7.)..12
3: . GET DRVNUM.A.*.T$.D$.G.+.. "1) SERI
AL OR 2) IEEE  1...";TT.~.,.. TT.1 . TT.
2 . 43...-.:...... F.T . F$.T$ . TT.TF .
 ..../.:...0.. FR,TF.1: . TU,TT.1: . DRI
VE TYPE SOURCE AND DESTINATION...1..(INI
T): . MOVE ROM TO RAM, ETC..A.2.XX.FR: .
 136: N.0:  1:  15: . 15,F,15: .15,"I".F
$.Y.3..127: . E . .: . 50.Z.4.Z.90: .: .
"PATTERN  *...";P$...5.P$."XXX".H(P$."  
             ",16).M.6.. "HOLD DOWN 'Y' 
OR 'N' KEY TO SELECT"...7.. "PROGRAMS TO
 BE COPIED..."...8.. 1,F,3,"$".F$: . OK.
..9..127: . E . .: .50.(.:..(Z1).8.;.R.2
55: . 61.B.<..(Z2).K.=.. J.16.2..1: . F(
J(A$,J.3)).160 . .J.|.>.N$.J(A$,4,J). .?
.T9.F(A$).128: . T9.1 . T9.4 .75...@.L1%
.F(J(A$,22)).W.A.L2.F(J(A$,29)).F(J(A$,3
0)).256...B.. I("   ".J(D(L2),2),4)" :"J
(A$,4,16)" "T$(T9)"      ".#.C.P.B(203) 
. R.A.D.. Z$: . Z$."" . P.064 .73.M.E.. 
Z$."Y" . Z$."N" . Z.F(Z$): R.255: .73...
F.. Z$.G(13) . R.0: .73...G..68...H.:.C.
I.. Z.80 . . ".                     .": 
.75...J.N.N.1: L2(N).L2: N$(N).N$: T%(N)
.T9: L1%(N).L1%...K.. ST.0 . N.232 .60.J
.L.XX.FR: . 136:  1:  15: . " * * * * * 
                 ".Q.M.. N.0 . . "* NO P
ROGRAMS *": . 120..N.. J.1 . N...O.L2.L
2(J): T%.T%(J): . L.L2 .100...P.. Q.0 .8
4.N.Q.. "*** OUTPUT DISK FULL"...R.."DO 
YOU HAVE A NEW ONE";Z$...S.. F(Z$)..89 .
 122.1.T. 15: XX.TU: . 136: . SWAP TO DE
STINATION.H.U.. 15,T,15: ."WANT TO NEW T
HE OUTPUT DISK  N...";Z$.|.V.. F(Z$)..89
 .92...W.:...X.."DISK NAME,ID";X$,Y$...Y
..15,"N".T$.":".X$.",".Y$.P.Z..127: . E 
. .: .84.V.[.:...\..15,"I".T$: . 1,T,0,"
$".T$.": !#$%&"...]..127: . E . .: .84.,
.^..131: .131: Q.Q.1.E._..#1,X$: . X$.."
" .95.N.`..131.U.A.L.X.Y.256: . "(";L;"B
LOCKS FREE )"...B.XX.TU: . 136:  1:  15:
 .79...C.:.L.D.XX.FR: . 136: . 14,F,15: 
. SOURCE CMD CHANNEL...E.XX.TU: . 136: .
 15,T,15: . DEST CMD CHANNEL.&.F.. H(N$(
J)."                    ",21);.X.G.XX.FR
: . 136: . 3,F,3,F$.":".N$(J).",".T$(T%)
...H..14,E,E$,E1,E2: .128: . E . . "** "
;E$;E: .117...I.:...J.XX.TU: . 136: . DE
STINATION...K.. T%.4 . . 4,T,4,T$.":".N$
(J).",L,".G(L1%(J)): .111...L.:...M.. 4,
T,4,T$.":".N$(J).",".T$(T%).",W"...N.:.J
.O.L.L.L2: .127: . E . . "*** ";E$;E: .1
17.T.P.. T%.4 . .(Z4): .114: . RELATIVE 
COPY.~.Q..(Z3)...R.XX.TU: . 136: . SET D
ESTINATION AGAIN.W.S.N$(J)."": .127: . E
 . . "**** ";E$;E: .117...T.. "."...U.XX
.FR: . 136:  3:  14: . SOURCE...V.XX.TU:
 . 136:  4:  15: . DESTINATION.5.W..J.`.
X.X..(0): ."ANOTHER INPUT DISK READY";Z$
.S.Y.. F(Z$).89 .50...Z.. 1,55: ....{.."
DRIVE  0...";D...|.. D.D..D .123...}.D$.
G(D.48): ....~.:.S...15,E,E$,E1,E2.....
. E.0 . E.(ST . 191): E$."*ST*".........
..:......#1,X$,X$,X$.%...X.F(X$.G(0)).>.
...#1,X$: Y.F(X$.G(0)).D.....J...:......
 TP,B(XX): .(SWAP): .: . FLIP TO SOURCE/
DESTINATION DRIVE...L..L..LH.L..L/.L.. .
.-....-....-.F. ..-....-.....D. .. ...I@
..IO.. U... F. . ...P..Z.... ...I*..I?..
Q.P.H..P.` ......P. .. ..V. ND.P....D...
.E. U... F. . ....HLE.P.LL..X..B.I..B..C
.I..C.XX...B.HJJJJ.0 R.H)..0 R.J...... R
.J.. U... F. ....E. .......@...E.P.....H
.........D..E. L. |... I. ......F. R....
..F.P...HLD.P.LL....B..C. 2..E.....`...@
..A..B..C..@.P..A. U... I..P R... R..@. 
R..A. R... R. L... F. ... L..0P. 2.....`
,..P.`.....).....@......IH.. - ... .Q...
P..P.PHP..Q.QI.P....QI.P. 7L......L.....
.X.......X`.. .... .... .. ..I.P.`..... 
R..P.`.PRESS <RETURN> WHEN READY..PLACE 
SWITCH IN .IEEE MODE.SERIAL MODE.....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL