UNIV DISK RTNS

00000000: 01 04 30 04 00 00 8F 20  54 48 45 20 54 52 41 4E  |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56  4F 4C 55 4D 45 20 34 20  |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 36  20 50 41 47 45 20 34 39  |ISSUE 06 PAGE 49|
00000030: 00 50 04 01 00 8F 20 2A  20 55 4E 49 56 45 52 53  |.P.... * UNIVERS|
00000040: 41 4C 20 44 49 53 4B 20  52 4F 55 54 49 4E 45 53  |AL DISK ROUTINES|
00000050: 00 70 04 02 00 8F 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.p.... *********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000070: 00 9C 04 03 00 8F 20 2A  20 31 35 34 31 2F 32 30  |...... * 1541/20|
00000080: 33 31 2F 34 30 34 30 20  44 52 49 56 45 53 20 2D  |31/4040 DRIVES -|
00000090: 20 4D 54 3D 33 35 3A 4D  53 3D 32 31 00 C8 04 04  | MT=35:MS=21....|
000000A0: 00 8F 20 2A 20 38 30 35  30 20 44 52 49 56 45 20  |.. * 8050 DRIVE |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 2D 20 4D 54 3D  |           - MT=|
000000C0: 37 37 3A 4D 53 3D 32 39  00 F5 04 05 00 8F 20 2A  |77:MS=29...... *|
000000D0: 20 38 32 35 30 20 44 52  49 56 45 20 20 20 20 20  | 8250 DRIVE     |
000000E0: 20 20 20 20 20 20 20 2D  20 4D 54 3D 31 35 34 3A  |       - MT=154:|
000000F0: 4D 53 3D 32 39 00 0F 05  06 00 8F 20 2A 20 38 30  |MS=29...... * 80|
00000100: 20 43 4F 4C 20 20 20 20  2D 20 4D 50 3D 38 30 00  | COL    - MP=80.|
00000110: 48 05 07 00 8F 20 2A 20  34 2E 30 20 42 41 53 49  |H.... * 4.0 BASI|
00000120: 43 20 2D 20 53 53 3D 33  32 37 36 38 3A 59 41 3D  |C - SS=32768:YA=|
00000130: 32 31 36 3A 58 41 3D 31  39 38 3A 43 52 3D 31 36  |216:XA=198:CR=16|
00000140: 37 3A 4E 43 3D 31 35 38  00 62 05 08 00 8F 20 2A  |7:NC=158.b.... *|
00000150: 20 34 30 20 43 4F 4C 20  20 20 20 2D 20 4D 50 3D  | 40 COL    - MP=|
00000160: 34 30 00 9B 05 09 00 8F  20 2A 20 56 49 43 20 2B  |40...... * VIC +|
00000170: 20 43 36 34 20 2D 20 53  53 3D 31 30 32 34 20 3A  | C64 - SS=1024 :|
00000180: 59 41 3D 32 31 34 3A 58  41 3D 32 31 31 3A 43 52  |YA=214:XA=211:CR|
00000190: 3D 32 30 34 3A 4E 43 3D  31 39 38 00 B5 05 0A 00  |=204:NC=198.....|
000001A0: 8F 20 2A 20 32 32 20 43  4F 4C 20 20 20 20 2D 20  |. * 22 COL    - |
000001B0: 4D 50 3D 32 32 00 D2 05  0B 00 8F 20 2A 2A 2A 2A  |MP=22...... ****|
000001C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000001D0: 2A 2A 00 0D 06 32 00 4D  50 B2 38 30 3A 53 53 B2  |**...2.MP.80:SS.|
000001E0: 33 32 37 36 38 3A 59 41  B2 32 31 36 3A 58 41 B2  |32768:YA.216:XA.|
000001F0: 31 39 38 3A 43 52 B2 31  36 37 3A 4E 43 B2 31 35  |198:CR.167:NC.15|
00000200: 38 3A 4D 54 B2 33 35 3A  4D 53 B2 32 31 00 41 06  |8:MT.35:MS.21.A.|
00000210: 33 00 8F 20 44 45 46 41  55 4C 54 53 20 54 4F 20  |3.. DEFAULTS TO |
00000220: 42 41 53 49 43 20 34 2E  30 2C 20 38 30 20 43 4F  |BASIC 4.0, 80 CO|
00000230: 4C 55 4D 4E 53 2C 20 34  30 34 30 20 44 52 49 56  |LUMNS, 4040 DRIV|
00000240: 45 00 4E 06 64 00 99 C7  28 31 34 37 29 3B 00 92  |E.N.d...(147);..|
00000250: 06 69 00 99 22 28 41 29  20 46 49 4C 45 20 52 45  |.i.."(A) FILE RE|
00000260: 41 44 45 52 20 28 42 29  20 42 4C 4F 43 4B 20 52  |ADER (B) BLOCK R|
00000270: 45 41 44 45 52 20 28 43  29 20 42 4C 4F 43 4B 20  |EADER (C) BLOCK |
00000280: 57 52 49 54 45 52 20 28  51 29 20 51 55 49 54 20  |WRITER (Q) QUIT |
00000290: 22 3B 00 9C 06 6E 00 97  43 52 2C 30 00 AF 06 73  |";...n..CR,0...s|
000002A0: 00 A1 41 24 3A 8B 41 24  B2 22 22 A7 31 31 35 00  |..A$:.A$."".115.|
000002B0: CE 06 78 00 97 43 52 2C  31 3A 41 B2 C6 28 41 24  |..x..CR,1:A..(A$|
000002C0: 29 AB 36 34 3A 8B 41 24  B2 22 51 22 A7 80 00 E3  |).64:.A$."Q"....|
000002D0: 06 7D 00 8B 41 B3 31 20  B0 20 41 B1 33 20 A7 20  |.}..A.1 . A.3 . |
000002E0: 31 30 30 00 FD 06 82 00  91 41 20 8D 20 31 30 30  |100......A . 100|
000002F0: 30 2C 20 32 30 30 30 2C  20 33 30 30 30 00 06 07  |0, 2000, 3000...|
00000300: 87 00 89 31 30 30 00 13  07 E8 03 99 C7 28 31 34  |...100.......(14|
00000310: 37 29 3B 00 37 07 ED 03  85 22 C6 49 4C 45 4E 41  |7);.7....".ILENA|
00000320: 4D 45 2C 20 C4 52 49 56  45 20 CE 55 4D 42 45 52  |ME, .RIVE .UMBER|
00000330: 22 3B 46 24 2C 44 24 00  5C 07 F7 03 8B 44 24 B3  |";F$,D$.\....D$.|
00000340: 22 30 22 B0 44 24 B1 22  31 22 20 B0 20 C3 28 46  |"0".D$."1" . .(F|
00000350: 24 29 B1 31 36 20 A7 20  31 30 30 30 00 80 07 FC  |$).16 . 1000....|
00000360: 03 99 C7 28 31 34 37 29  3B 3A 9F 35 2C 38 2C 35  |...(147);:.5,8,5|
00000370: 2C 22 22 AA 44 24 AA 22  3A 22 AA 46 24 AA 22 22  |,"".D$.":".F$.""|
00000380: 00 9A 07 01 04 A1 23 35  2C 41 24 3A 8B 41 24 B2  |......#5,A$:.A$.|
00000390: 22 22 A7 41 24 B2 C7 28  30 29 00 B3 07 06 04 8B  |"".A$..(0)......|
000003A0: 41 24 B2 C7 28 31 33 29  A7 99 41 24 3B 3A 89 31  |A$..(13)..A$;:.1|
000003B0: 30 34 30 00 C5 07 0B 04  99 C7 28 C6 28 41 24 29  |040.......(.(A$)|
000003C0: B0 36 34 29 3B 00 D4 07  10 04 8B 53 54 B2 30 A7  |.64);......ST.0.|
000003D0: 31 30 32 35 00 E1 07 15  04 A0 35 3A 97 4E 43 2C  |1025......5:.NC,|
000003E0: 30 00 11 08 1A 04 99 3A  99 22 50 52 45 53 53 20  |0......:."PRESS |
000003F0: 41 4E 59 20 4B 45 59 20  54 4F 20 52 45 54 55 52  |ANY KEY TO RETUR|
00000400: 4E 22 3A 92 20 4E 43 2C  31 3A 97 4E 43 2C 30 3A  |N":. NC,1:.NC,0:|
00000410: 8E 00 1E 08 D0 07 99 C7  28 31 34 37 29 3B 00 52  |........(147);.R|
00000420: 08 D5 07 85 22 D3 50 45  43 49 46 59 20 C4 52 49  |....".PECIFY .RI|
00000430: 56 45 2C 20 D4 52 41 43  4B 20 41 4E 44 20 D3 45  |VE, .RACK AND .E|
00000440: 43 54 4F 52 20 3A 20 22  3B 44 2C 54 2C 53 3A 5A  |CTOR : ";D,T,S:Z|
00000450: B2 30 00 71 08 DA 07 8B  44 B1 31 20 B0 20 54 B1  |.0.q....D.1 . T.|
00000460: 20 4D 54 20 B0 20 53 B1  4D 53 20 A7 20 32 30 30  | MT . S.MS . 200|
00000470: 30 00 9A 08 DF 07 9F 35  2C 38 2C 35 2C 22 23 22  |0......5,8,5,"#"|
00000480: 3A 9F 31 35 2C 38 2C 31  35 3A 98 31 35 2C 22 55  |:.15,8,15:.15,"U|
00000490: 31 22 3B 35 3B 44 3B 54  3B 53 00 BD 08 E4 07 81  |1";5;D;T;S......|
000004A0: 41 B2 30 A4 32 35 35 3A  A1 23 35 2C 41 24 3A 8B  |A.0.255:.#5,A$:.|
000004B0: 41 24 B2 22 22 A7 41 24  B2 C7 28 30 29 00 DB 08  |A$."".A$..(0)...|
000004C0: E9 07 99 C7 28 C6 28 41  24 29 B0 36 34 29 3B 3A  |....(.(A$).64);:|
000004D0: 82 3A A0 31 35 3A 97 4E  43 2C 30 00 0B 09 EE 07  |.:.15:.NC,0.....|
000004E0: 99 3A 99 22 50 52 45 53  53 20 41 4E 59 20 4B 45  |.:."PRESS ANY KE|
000004F0: 59 20 54 4F 20 52 45 54  55 52 4E 22 3A 92 20 4E  |Y TO RETURN":. N|
00000500: 43 2C 31 3A 97 4E 43 2C  30 3A 8E 00 18 09 B8 0B  |C,1:.NC,0:......|
00000510: 99 C7 28 31 34 37 29 3B  00 48 09 BD 0B 85 22 D3  |..(147);.H....".|
00000520: 50 45 43 49 46 59 20 C4  52 49 56 45 2C 20 D4 52  |PECIFY .RIVE, .R|
00000530: 41 43 4B 20 41 4E 44 20  D3 45 43 54 4F 52 20 3A  |ACK AND .ECTOR :|
00000540: 20 22 3B 44 2C 54 2C 53  00 66 09 C2 0B 8B 44 B1  | ";D,T,S.f....D.|
00000550: 31 20 B0 20 54 B1 4D 54  20 B0 20 53 B1 4D 53 20  |1 . T.MT . S.MS |
00000560: A7 20 33 30 30 30 00 7B  09 C7 0B 99 C7 28 31 34  |. 3000.{.....(14|
00000570: 37 29 3B 3A 8D 33 30 34  35 3A 99 00 B4 09 CC 0B  |7);:.3045:......|
00000580: 85 22 C1 52 45 20 D9 4F  55 20 D3 55 52 45 20 28  |.".RE .OU .URE (|
00000590: 59 29 20 D9 45 53 20 4F  52 20 28 4E 29 20 CE 4F  |Y) .ES OR (N) .O|
000005A0: 20 3A 20 22 3B 43 24 3A  8B 43 24 B2 22 59 22 A7  | : ";C$:.C$."Y".|
000005B0: 33 30 33 30 00 BE 09 D1  0B 89 33 30 30 30 00 E5  |3030......3000..|
000005C0: 09 D6 0B 9F 35 2C 38 2C  35 2C 22 23 22 3A 9F 31  |....5,8,5,"#":.1|
000005D0: 35 2C 38 2C 31 35 3A 98  31 35 2C 22 42 2D 50 22  |5,8,15:.15,"B-P"|
000005E0: 3B 35 3B 44 3B 00 0F 0A  DB 0B 98 35 2C 42 24 3B  |;5;D;......5,B$;|
000005F0: 3A 98 31 35 2C 22 55 32  22 3B 35 3B 44 3B 54 3B  |:.15,"U2";5;D;T;|
00000600: 53 3B 3A A0 35 3A A0 31  35 3A 97 4E 43 2C 30 00  |S;:.5:.15:.NC,0.|
00000610: 4D 0A E0 0B 8F 20 2A 2A  2A 20 53 54 41 52 54 20  |M.... *** START |
00000620: 4F 46 20 47 45 54 20 41  20 53 54 52 49 4E 47 20  |OF GET A STRING |
00000630: 4F 46 20 32 35 35 20 43  48 41 52 41 43 54 45 52  |OF 255 CHARACTER|
00000640: 53 20 52 4F 55 54 49 4E  45 20 2A 2A 2A 00 57 0A  |S ROUTINE ***.W.|
00000650: E5 0B 42 24 B2 22 22 00  84 0A EA 0B 41 20 B2 20  |..B$."".....A . |
00000660: 53 53 20 AA 20 C2 28 58  41 29 20 AA 20 C2 28 59  |SS . .(XA) . .(Y|
00000670: 41 29 AC 4D 50 3A 97 20  41 2C C2 28 41 29 20 B0  |A).MP:. A,.(A) .|
00000680: 20 31 32 38 00 98 0A EF  0B A1 41 24 3A 8B 41 24  | 128......A$:.A$|
00000690: B2 22 22 A7 33 30 35 35  00 B3 0A F4 0B 97 20 41  |."".3055...... A|
000006A0: 2C C2 28 41 29 20 AB 20  31 32 38 3A 42 B2 C6 28  |,.(A) . 128:B..(|
000006B0: 41 24 29 00 D0 0A F9 0B  8B 42 B2 32 30 20 A7 33  |A$)......B.20 .3|
000006C0: 30 39 30 3A 8F 20 2A 20  44 45 4C 45 54 45 20 2A  |090:. * DELETE *|
000006D0: 00 F1 0A FE 0B 8B 42 B3  33 32 20 B0 20 42 B1 31  |......B.32 . B.1|
000006E0: 32 38 20 AF 20 42 B3 31  36 30 20 A7 20 33 30 35  |28 . B.160 . 305|
000006F0: 30 00 15 0B 03 0C 42 24  B2 42 24 AA 41 24 3A 99  |0.....B$.B$.A$:.|
00000700: 41 24 3B 3A 43 B2 C3 28  42 24 29 3A 8B 43 B2 32  |A$;:C..(B$):.C.2|
00000710: 35 35 20 A7 8E 00 27 0B  08 0C 8B 43 B2 32 35 34  |55 ...'....C.254|
00000720: A7 99 C7 28 37 29 3B 00  31 0B 0D 0C 89 33 30 35  |...(7);.1....305|
00000730: 30 00 4F 0B 12 0C 42 B2  C3 28 42 24 29 3A 8B 42  |0.O...B..(B$):.B|
00000740: A7 42 24 B2 CA 28 42 24  2C 31 2C 42 AB 31 29 00  |.B$..(B$,1,B.1).|
00000750: 6B 0B 17 0C 99 3A 99 C7  28 31 34 35 29 C7 28 32  |k....:..(145).(2|
00000760: 32 29 42 24 3B 3A 89 33  30 35 30 00 00 00        |2)B$;:.3050...  |

..0.... THE TRANSACTOR VOLUME 4 ISSUE 06
 PAGE 49.P.... * UNIVERSAL DISK ROUTINES
.P.... *************************...... *
 1541/2031/4040 DRIVES - MT=35:MS=21.H..
.. * 8050 DRIVE            - MT=77:MS=29
...... * 8250 DRIVE            - MT=154:
MS=29...... * 80 COL    - MP=80.H.... * 
4.0 BASIC - SS=32768:YA=216:XA=198:CR=16
7:NC=158.B.... * 40 COL    - MP=40......
 * VIC + C64 - SS=1024 :YA=214:XA=211:CR
=204:NC=198...... * 22 COL    - MP=22.R.
... **********************...2.MP.80:SS.
32768:YA.216:XA.198:CR.167:NC.158:MT.35:
MS.21.A.3.. DEFAULTS TO BASIC 4.0, 80 CO
LUMNS, 4040 DRIVE.N.D..G(147);...I.."(A)
 FILE READER (B) BLOCK READER (C) BLOCK 
WRITER (Q) QUIT ";...N..CR,0...S..A$:.A$
."".115.N.X..CR,1:A.F(A$).64:.A$."Q"....
.}..A.1 . A.3 . 100......A . 1000, 2000,
 3000......100......G(147);.7...."FILENA
ME, DRIVE NUMBER";F$,D$.\....D$."0".D$."
1" . C(F$).16 . 1000......G(147);:.5,8,5
,"".D$.":".F$.""......#5,A$:.A$."".A$.G(
0)......A$.G(13)..A$;:.1040.E....G(F(A$)
.64);.T....ST.0.1025..... 5:.NC,0......:
."PRESS ANY KEY TO RETURN":. NC,1:.NC,0:
....P..G(147);.R.U.."SPECIFY DRIVE, TRAC
K AND SECTOR : ";D,T,S:Z.0.Q.Z..D.1 . T.
 MT . S.MS . 2000......5,8,5,"#":.15,8,1
5:.15,"U1";5;D;T;S......A.0.255:.#5,A$:.
A$."".A$.G(0)......G(F(A$).64);:.: 15:.N
C,0......:."PRESS ANY KEY TO RETURN":. N
C,1:.NC,0:.......G(147);.H...."SPECIFY D
RIVE, TRACK AND SECTOR : ";D,T,S.F.B..D.
1 . T.MT . S.MS . 3000.{.G..G(147);:.304
5:....L.."ARE YOU SURE (Y) YES OR (N) NO
 : ";C$:.C$."Y".3030...Q..3000...V..5,8,
5,"#":.15,8,15:.15,"B-P";5;D;......5,B$;
:.15,"U2";5;D;T;S;: 5: 15:.NC,0.M.... **
* START OF GET A STRING OF 255 CHARACTER
S ROUTINE ***.W...B$."".....A . SS . B(X
A) . B(YA).MP:. A,B(A) . 128......A$:.A$
."".3055...... A,B(A) . 128:B.F(A$).P...
.B.20 .3090:. * DELETE *......B.32 . B.1
28 . B.160 . 3050.....B$.B$.A$:.A$;:C.C(
B$):.C.255 ...'....C.254..G(7);.1....305
0.O...B.C(B$):.B.B$.J(B$,1,B.1).K....:.G
(145)G(22)B$;:.3050...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL