1581.BAS.ED
FILE INFORMATION
FILENAME(S): 1581.BAS.ED
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
9ad655e4292e2d035f63c64c7dcc662afa5c779671a5702dbce32870f2c84ba2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | 1581.BAS.ED | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 2B 1C E8 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..+.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 55 1C F2 03 |***********.U...|
00000030: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 2A 00 7F 1C FC 03 8F 20 2A 20 20 20 | *...... * |
00000060: 20 20 20 20 20 31 35 38 31 20 44 45 4D 4F 20 50 | 1581 DEMO P|
00000070: 52 4F 47 52 41 4D 20 20 20 20 20 20 20 20 2A 00 |ROGRAM *.|
00000080: A9 1C 06 04 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
00000090: 20 20 20 20 20 42 59 20 20 20 20 20 20 20 20 20 | BY |
000000A0: 20 20 20 20 20 20 20 20 2A 00 D3 1C 10 04 8F 20 | *...... |
000000B0: 2A 20 20 20 20 20 20 20 20 4D 2E 20 47 41 52 41 |* M. GARA|
000000C0: 4D 53 5A 45 47 48 59 20 20 20 20 20 20 20 20 20 |MSZEGHY |
000000D0: 20 20 2A 00 FD 1C 1A 04 8F 20 2A 20 20 20 20 20 | *...... * |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 27 1D | *.'.|
00000100: 24 04 8F 20 2A 20 20 20 20 46 4F 52 20 43 2D 31 |$.. * FOR C-1|
00000110: 32 38 20 41 4E 44 20 31 35 38 31 20 44 52 49 56 |28 AND 1581 DRIV|
00000120: 45 20 20 20 20 20 2A 00 51 1D 2E 04 8F 20 2A 20 |E *.Q.... * |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 2A 00 7B 1D 38 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.{.8.. ********|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 1D 42 04 |***********...B.|
00000180: 3A 00 B5 1D 4C 04 44 56 B2 39 20 20 20 20 20 20 |:...L.DV.9 |
00000190: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 44 49 53 | : . DIS|
000001A0: 4B 20 44 52 49 56 45 20 44 45 56 49 43 45 20 4E |K DRIVE DEVICE N|
000001B0: 55 4D 42 45 52 00 BB 1D 56 04 3A 00 DC 1D 60 04 |UMBER...V.:...`.|
000001C0: FE 25 3A 99 20 C7 28 31 34 37 29 3B 3A 42 31 B2 |.%:. .(147);:B1.|
000001D0: 33 33 32 38 3A 42 32 B2 33 33 33 38 00 12 1E 6A |3328:B2.3338...j|
000001E0: 04 81 20 49 B2 32 38 31 36 20 A4 20 32 39 33 35 |.. I.2816 . 2935|
000001F0: 3A 87 20 58 3A 97 20 49 2C 58 3A 82 20 3A 20 8F |:. X:. I,X:. : .|
00000200: 20 50 4F 4B 45 20 4D 41 43 48 49 4E 45 20 43 4F | POKE MACHINE CO|
00000210: 44 45 00 18 1E 74 04 3A 00 61 1E 7E 04 99 22 20 |DE...t.:.a.~.." |
00000220: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 20 31 35 | ******* 15|
00000230: 38 31 20 44 49 53 50 4C 41 59 20 54 26 53 20 20 |81 DISPLAY T&S |
00000240: 20 3C 43 3E 20 4D 2E 20 47 41 52 41 4D 53 5A 45 | <C> M. GARAMSZE|
00000250: 47 48 59 20 31 39 38 37 20 2A 2A 2A 2A 2A 2A 2A |GHY 1987 *******|
00000260: 22 00 67 1E 88 04 3A 00 94 1E 92 04 53 50 24 B2 |".g...:.....SP$.|
00000270: 22 53 22 3A 99 3A 99 3A 85 22 5B 53 5D 43 52 45 |"S":.:.:."[S]CRE|
00000280: 45 4E 20 4F 52 20 5B 50 5D 52 49 4E 54 45 52 22 |EN OR [P]RINTER"|
00000290: 3B 53 50 24 00 AE 1E 9C 04 50 44 B2 33 3A 8B 20 |;SP$.....PD.3:. |
000002A0: 53 50 24 B2 22 50 22 20 A7 20 50 44 B2 34 00 CD |SP$."P" . PD.4..|
000002B0: 1E A6 04 9F 20 31 2C 50 44 3A 20 8F 20 4F 50 45 |.... 1,PD: . OPE|
000002C0: 4E 20 4F 55 54 50 55 54 20 46 49 4C 45 00 D3 1E |N OUTPUT FILE...|
000002D0: B0 04 3A 00 03 1F BA 04 99 3A 99 22 49 4E 53 45 |..:......:."INSE|
000002E0: 52 54 20 44 49 53 4B 20 54 48 45 4E 20 50 52 45 |RT DISK THEN PRE|
000002F0: 53 53 20 41 20 4B 45 59 20 2E 2E 2E 22 3A A1 F9 |SS A KEY ...":..|
00000300: 20 49 24 00 39 1F C4 04 9F 20 31 35 2C 44 56 2C | I$.9.... 15,DV,|
00000310: 31 35 2C 22 55 30 22 AA C7 28 31 30 29 3A 20 9E |15,"U0"..(10): .|
00000320: 20 32 38 31 36 2C 30 3A 20 8F 20 41 4E 41 4C 59 | 2816,0: . ANALY|
00000330: 53 45 20 53 49 44 45 20 30 00 6D 1F CE 04 98 31 |SE SIDE 0.m....1|
00000340: 35 2C 22 55 30 22 AA C7 28 32 36 29 3A 20 9E 20 |5,"U0"..(26): . |
00000350: 32 38 31 36 2C 31 30 20 20 20 20 3A 20 8F 20 41 |2816,10 : . A|
00000360: 4E 41 4C 59 53 45 20 53 49 44 45 20 31 00 73 1F |NALYSE SIDE 1.s.|
00000370: D8 04 3A 00 B6 1F E2 04 54 31 B2 C2 28 42 31 29 |..:.....T1..(B1)|
00000380: 20 AF 20 31 34 20 3A 54 32 B2 C2 28 42 32 29 20 | . 14 :T2..(B2) |
00000390: AF 20 31 34 3A 20 8F 20 42 55 52 53 54 20 53 54 |. 14: . BURST ST|
000003A0: 41 54 55 53 20 42 59 54 45 20 53 49 44 45 20 30 |ATUS BYTE SIDE 0|
000003B0: 20 41 4E 44 20 31 00 EA 1F EC 04 8B 20 54 31 20 | AND 1...... T1 |
000003C0: AF 20 54 32 20 A7 20 99 20 22 2A 2A 2A 20 44 49 |. T2 . . "*** DI|
000003D0: 53 4B 20 45 52 52 4F 52 20 2A 2A 2A 22 3A A1 F9 |SK ERROR ***":..|
000003E0: 20 41 24 3A 89 20 31 37 32 30 00 27 20 F6 04 53 | A$:. 1720.' ..S|
000003F0: 5A B2 C2 28 42 31 29 20 AF 20 34 38 3A 20 8B 20 |Z..(B1) . 48: . |
00000400: 54 31 20 A7 20 53 5A B2 C2 28 42 32 29 20 AF 20 |T1 . SZ..(B2) . |
00000410: 34 38 3A 20 8F 20 43 48 45 43 4B 20 53 45 43 54 |48: . CHECK SECT|
00000420: 4F 52 20 53 49 5A 45 00 42 20 00 05 53 5A B2 53 |OR SIZE.B ..SZ.S|
00000430: 5A AD 31 36 3A 8B 20 53 5A B2 33 20 A7 20 53 5A |Z.16:. SZ.3 . SZ|
00000440: B2 34 00 5C 20 0A 05 53 31 B2 C2 28 42 31 AA 34 |.4.\ ..S1..(B1.4|
00000450: 29 3A 4D 31 B2 C2 28 42 31 AA 35 29 00 76 20 14 |):M1..(B1.5).v .|
00000460: 05 53 32 B2 C2 28 42 32 AA 34 29 3A 4D 32 B2 C2 |.S2..(B2.4):M2..|
00000470: 28 42 32 AA 35 29 00 A9 20 1E 05 FE 1A 20 30 2C |(B2.5).. .... 0,|
00000480: 32 2C 37 39 2C 32 34 2C 31 3A 8B 20 50 44 B2 34 |2,79,24,1:. PD.4|
00000490: 20 A7 20 9D 20 31 3A 8D 20 31 39 34 30 3A 98 31 | . . 1:. 1940:.1|
000004A0: 3A A0 31 3A 9F 31 2C 50 44 00 B4 20 28 05 8D 20 |:.1:.1,PD.. (.. |
000004B0: 31 39 34 30 00 E9 20 32 05 53 49 B2 AB 31 3A 85 |1940.. 2.SI..1:.|
000004C0: 22 53 49 44 45 2C 54 52 41 43 4B 2C 53 45 43 54 |"SIDE,TRACK,SECT|
000004D0: 4F 52 22 3B 53 49 2C 54 2C 53 3A 8B 20 53 49 B2 |OR";SI,T,S:. SI.|
000004E0: AB 31 20 A7 20 31 37 32 30 00 1C 21 3C 05 98 31 |.1 . 1720..!<..1|
000004F0: 35 2C 22 4D 2D 57 22 C7 28 32 30 36 29 C7 28 31 |5,"M-W".(206).(1|
00000500: 29 C7 28 31 29 C7 28 53 49 29 20 20 20 20 20 20 |).(1).(SI) |
00000510: 3A 20 8F 20 53 45 54 20 53 49 44 45 00 4D 21 46 |: . SET SIDE.M!F|
00000520: 05 98 31 35 2C 22 4D 2D 57 22 C7 28 31 31 29 C7 |..15,"M-W".(11).|
00000530: 28 30 29 C7 28 32 29 C7 28 54 29 C7 28 53 29 20 |(0).(2).(T).(S) |
00000540: 3A 20 8F 20 53 45 54 20 54 20 26 20 53 00 53 21 |: . SET T & S.S!|
00000550: 50 05 3A 00 96 21 5A 05 8F 20 54 48 45 4E 20 53 |P.:..!Z.. THEN S|
00000560: 54 55 46 46 20 4A 4F 42 20 43 4F 44 45 20 46 4F |TUFF JOB CODE FO|
00000570: 52 20 52 45 41 44 20 50 48 59 53 49 43 41 4C 20 |R READ PHYSICAL |
00000580: 53 45 43 54 4F 52 20 49 4E 54 4F 20 4A 4F 42 20 |SECTOR INTO JOB |
00000590: 42 55 46 46 45 52 00 B6 21 64 05 98 31 35 2C 22 |BUFFER..!d..15,"|
000005A0: 4D 2D 57 22 C7 28 32 29 C7 28 30 29 C7 28 31 29 |M-W".(2).(0).(1)|
000005B0: C7 28 31 36 34 29 00 DF 21 6E 05 8D 20 31 34 31 |.(164)..!n.. 141|
000005C0: 30 3A 20 89 20 31 34 34 30 3A 20 8F 20 57 41 49 |0: . 1440: . WAI|
000005D0: 54 20 54 49 4C 4C 20 4A 4F 42 20 44 4F 4E 45 00 |T TILL JOB DONE.|
000005E0: E5 21 78 05 3A 00 14 22 82 05 98 31 35 2C 22 4D |.!x.:.."...15,"M|
000005F0: 2D 52 22 C7 28 32 29 C7 28 30 29 C7 28 31 29 20 |-R".(2).(0).(1) |
00000600: 3A 20 8F 20 43 48 45 43 4B 20 4A 4F 42 20 53 54 |: . CHECK JOB ST|
00000610: 41 54 55 53 00 39 22 8C 05 A1 23 31 35 2C 41 24 |ATUS.9"...#15,A$|
00000620: 3A 8B 20 C6 28 41 24 29 B1 31 32 37 20 A7 20 31 |:. .(A$).127 . 1|
00000630: 34 31 30 20 3A 20 D5 20 8E 00 3F 22 96 05 3A 00 |410 : . ..?"..:.|
00000640: 7C 22 A0 05 FE 1A 20 30 2C 32 34 2C 37 39 2C 32 ||".... 0,24,79,2|
00000650: 34 2C 31 3A 98 31 2C 22 53 49 44 45 20 3E 3E 22 |4,1:.1,"SIDE >>"|
00000660: 53 49 2C 22 54 52 41 43 4B 20 3E 3E 22 54 2C 22 |SI,"TRACK >>"T,"|
00000670: 53 45 43 54 4F 52 20 3E 3E 22 53 3B 00 8E 22 AA |SECTOR >>"S;..".|
00000680: 05 FE 1A 20 30 2C 32 30 2C 37 39 2C 32 33 00 D4 |... 0,20,79,23..|
00000690: 22 B4 05 99 22 3C 4C 45 46 54 3E 20 2D 20 44 45 |"..."<LEFT> - DE|
000006A0: 43 52 45 41 53 45 20 53 45 43 54 4F 52 23 20 20 |CREASE SECTOR# |
000006B0: 20 20 20 20 20 20 20 20 20 3C 52 49 47 48 54 3E | <RIGHT>|
000006C0: 20 2D 20 49 4E 43 52 45 41 53 45 20 53 45 43 54 | - INCREASE SECT|
000006D0: 4F 52 23 22 00 19 23 BE 05 99 22 3C 44 4F 57 4E |OR#"..#..."<DOWN|
000006E0: 3E 20 2D 20 44 45 43 52 45 41 53 45 20 54 52 41 |> - DECREASE TRA|
000006F0: 43 4B 23 20 20 20 20 20 20 20 20 20 20 20 20 20 |CK# |
00000700: 20 20 3C 55 50 3E 20 2D 20 49 4E 43 52 45 41 53 | <UP> - INCREAS|
00000710: 45 20 54 52 41 43 4B 23 22 00 5F 23 C8 05 99 22 |E TRACK#"._#..."|
00000720: 20 3C 45 53 43 3E 20 2D 20 53 45 4C 45 43 54 20 | <ESC> - SELECT |
00000730: 4E 45 57 20 54 52 41 43 4B 2C 20 53 45 43 54 4F |NEW TRACK, SECTO|
00000740: 52 20 20 20 3C 53 50 41 43 45 3E 20 2D 20 4E 45 |R <SPACE> - NE|
00000750: 58 54 20 32 35 36 20 42 59 54 45 53 20 22 3B 00 |XT 256 BYTES ";.|
00000760: 91 23 D2 05 8B 20 C6 28 41 24 29 B1 31 20 A7 20 |.#... .(A$).1 . |
00000770: 98 31 2C 22 2A 2A 2A 20 45 52 52 4F 52 20 23 22 |.1,"*** ERROR #"|
00000780: C6 28 41 24 29 22 2A 2A 2A 22 3A 89 20 31 33 32 |.(A$)"***":. 132|
00000790: 30 00 97 23 DC 05 3A 00 CA 23 E6 05 98 31 35 2C |0..#..:..#...15,|
000007A0: 22 55 30 3E 4D 52 22 C7 28 33 29 C7 28 53 5A 29 |"U0>MR".(3).(SZ)|
000007B0: 3A 20 8F 20 42 55 52 53 54 20 4D 4F 44 45 20 4D |: . BURST MODE M|
000007C0: 45 4D 4F 52 59 20 52 45 41 44 00 F4 23 F0 05 9E |EMORY READ..#...|
000007D0: 20 32 38 31 39 2C 53 5A 20 3A 8F 20 52 45 41 44 | 2819,SZ :. READ|
000007E0: 20 44 41 54 41 20 56 49 41 20 42 55 52 53 54 20 | DATA VIA BURST |
000007F0: 4D 4F 44 45 00 FA 23 FA 05 3A 00 0E 24 04 06 8B |MODE..#..:..$...|
00000800: 20 50 44 B2 34 20 A7 20 98 31 2C 22 20 22 00 4E | PD.4 . .1," ".N|
00000810: 24 0E 06 81 20 49 B2 34 38 36 34 20 A4 20 34 38 |$... I.4864 . 48|
00000820: 36 34 AA 53 5A AC 32 35 36 AB 31 20 A9 20 32 35 |64.SZ.256.1 . 25|
00000830: 36 20 3A 20 8F 20 44 49 53 50 4C 41 59 20 44 41 |6 : . DISPLAY DA|
00000840: 54 41 20 49 4E 20 48 45 58 20 46 4F 52 4D 00 61 |TA IN HEX FORM.a|
00000850: 24 18 06 FE 1A 20 30 2C 32 2C 37 39 2C 31 39 2C |$.... 0,2,79,19,|
00000860: 31 00 A6 24 22 06 81 20 4A B2 30 20 A4 20 32 35 |1..$".. J.0 . 25|
00000870: 34 20 A9 20 31 36 20 3A 20 8F 20 31 36 20 42 59 |4 . 16 : . 16 BY|
00000880: 54 45 53 20 50 45 52 20 4C 49 4E 45 2C 20 32 35 |TES PER LINE, 25|
00000890: 36 20 42 59 54 45 53 20 50 45 52 20 50 41 47 45 |6 BYTES PER PAGE|
000008A0: 20 47 52 4F 55 50 00 AC 24 2C 06 3A 00 D4 24 36 | GROUP..$,.:..$6|
000008B0: 06 4E 55 24 B2 C9 28 D2 28 49 AA 4A AB 34 38 36 |.NU$..(.(I.J.486|
000008C0: 34 29 2C 33 29 AA 22 20 3A 20 22 3A 4E 32 24 B2 |4),3)." : ":N2$.|
000008D0: 22 3A 20 22 00 06 25 40 06 81 20 4B B2 30 20 A4 |": "..%@.. K.0 .|
000008E0: 20 31 35 3A 4E 32 B2 C2 28 49 AA 4A AA 4B 29 3A | 15:N2..(I.J.K):|
000008F0: 4E 55 24 B2 4E 55 24 AA C9 28 D2 28 4E 32 29 2C |NU$.NU$..(.(N2),|
00000900: 32 29 AA 22 20 22 00 39 25 4A 06 4E 24 B2 C7 28 |2)." ".9%J.N$..(|
00000910: 4E 32 29 3A 8B 20 4E 32 B3 33 32 20 B0 20 28 4E |N2):. N2.32 . (N|
00000920: 32 B1 31 32 37 20 AF 20 4E 32 20 B3 31 36 30 29 |2.127 . N2 .160)|
00000930: 20 A7 20 4E 24 B2 22 2E 22 00 57 25 54 06 4E 32 | . N$.".".W%T.N2|
00000940: 24 B2 4E 32 24 AA 4E 24 3A 82 3A 98 31 2C 4E 55 |$.N2$.N$:.:.1,NU|
00000950: 24 3B 4E 32 24 3A 82 00 5D 25 5E 06 3A 00 84 25 |$;N2$:..]%^.:..%|
00000960: 68 06 8B 20 50 44 B2 33 20 A7 20 A1 F9 20 41 24 |h.. PD.3 . .. A$|
00000970: 20 3A 20 8F 20 47 45 54 20 41 20 4B 45 59 20 50 | : . GET A KEY P|
00000980: 52 45 53 53 00 C6 25 72 06 8B 20 41 24 B2 C7 28 |RESS..%r.. A$..(|
00000990: 31 34 35 29 20 A7 20 54 B2 54 AA 31 3A 89 20 31 |145) . T.T.1:. 1|
000009A0: 33 34 30 3A 20 8F 20 20 20 20 43 55 52 53 4F 52 |340: . CURSOR|
000009B0: 20 55 50 20 3D 20 49 4E 43 52 45 41 53 45 20 54 | UP = INCREASE T|
000009C0: 52 41 43 4B 20 23 00 08 26 7C 06 8B 20 41 24 B2 |RACK #..&|.. A$.|
000009D0: C7 28 31 37 29 20 20 A7 20 54 B2 54 AB 31 3A 89 |.(17) . T.T.1:.|
000009E0: 20 31 33 34 30 3A 20 8F 20 20 43 55 52 53 4F 52 | 1340: . CURSOR|
000009F0: 20 44 4F 57 4E 20 3D 20 44 45 43 52 45 41 53 45 | DOWN = DECREASE|
00000A00: 20 54 52 41 43 4B 20 23 00 4B 26 86 06 8B 20 41 | TRACK #.K&... A|
00000A10: 24 B2 C7 28 31 35 37 29 20 A7 20 53 B2 53 AB 31 |$..(157) . S.S.1|
00000A20: 3A 89 20 31 33 34 30 3A 20 8F 20 20 43 55 52 53 |:. 1340: . CURS|
00000A30: 4F 52 20 4C 45 46 54 20 3D 20 44 45 43 52 45 41 |OR LEFT = DECREA|
00000A40: 53 45 20 53 45 43 54 4F 52 20 23 00 8E 26 90 06 |SE SECTOR #..&..|
00000A50: 8B 20 41 24 B2 C7 28 32 39 29 20 20 A7 20 53 B2 |. A$..(29) . S.|
00000A60: 53 AA 31 3A 89 20 31 33 34 30 3A 20 8F 20 43 55 |S.1:. 1340: . CU|
00000A70: 52 53 4F 52 20 52 49 47 48 54 20 3D 20 49 4E 43 |RSOR RIGHT = INC|
00000A80: 52 45 41 53 45 20 53 45 43 54 4F 52 20 23 00 D4 |REASE SECTOR #..|
00000A90: 26 9A 06 8B 20 41 24 B2 C7 28 32 37 29 20 20 A7 |&... A$..(27) .|
00000AA0: 20 31 33 31 30 20 20 20 20 20 20 20 20 20 20 20 | 1310 |
00000AB0: 3A 20 8F 20 20 20 20 20 20 20 45 53 43 41 50 45 |: . ESCAPE|
00000AC0: 20 3D 20 53 45 4C 45 43 54 20 4E 45 57 20 56 41 | = SELECT NEW VA|
00000AD0: 4C 55 45 53 00 1C 27 A4 06 82 3A 89 20 31 33 31 |LUES..'...:. 131|
00000AE0: 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |0 |
00000AF0: 20 20 20 20 20 20 20 3A 20 8F 20 20 20 20 4F 54 | : . OT|
00000B00: 48 45 52 20 4B 45 59 20 3D 20 44 49 53 50 4C 41 |HER KEY = DISPLA|
00000B10: 59 20 4E 45 58 54 20 47 52 4F 55 50 00 22 27 AE |Y NEXT GROUP."'.|
00000B20: 06 3A 00 44 27 B8 06 FE 0F 20 55 28 44 56 29 3A |.:.D'.... U(DV):|
00000B30: A0 20 31 3A FE 1A 20 30 2C 30 2C 37 39 2C 32 34 |. 1:.. 0,0,79,24|
00000B40: 2C 31 3A 80 00 4A 27 C2 06 3A 00 62 27 CC 06 8F |,1:..J'..:.b'...|
00000B50: 20 4D 41 43 48 49 4E 45 20 43 4F 44 45 20 44 41 | MACHINE CODE DA|
00000B60: 54 41 00 68 27 D6 06 3A 00 95 27 E0 06 83 20 20 |TA.h'..:..'... |
00000B70: 37 36 2C 20 20 34 34 2C 20 20 31 31 2C 20 20 37 |76, 44, 11, 7|
00000B80: 36 2C 20 20 38 34 2C 20 20 31 31 2C 20 31 36 39 |6, 84, 11, 169|
00000B90: 2C 20 20 20 30 00 C2 27 EA 06 83 20 31 34 31 2C |, 0..'... 141,|
00000BA0: 20 20 20 30 2C 20 32 35 35 2C 20 20 39 36 2C 20 | 0, 255, 96, |
00000BB0: 31 36 39 2C 20 20 20 38 2C 20 20 34 34 2C 20 20 |169, 8, 44, |
00000BC0: 31 33 00 EF 27 F4 06 83 20 32 32 30 2C 20 32 34 |13..'... 220, 24|
00000BD0: 30 2C 20 32 35 31 2C 20 31 37 33 2C 20 20 20 30 |0, 251, 173, 0|
00000BE0: 2C 20 32 32 31 2C 20 20 37 33 2C 20 20 31 36 00 |, 221, 73, 16.|
00000BF0: 1C 28 FE 06 83 20 31 34 31 2C 20 20 20 30 2C 20 |.(... 141, 0, |
00000C00: 32 32 31 2C 20 31 37 33 2C 20 20 31 32 2C 20 32 |221, 173, 12, 2|
00000C10: 32 30 2C 20 20 39 36 2C 20 31 32 30 00 49 28 08 |20, 96, 120.I(.|
00000C20: 07 83 20 20 34 34 2C 20 20 31 33 2C 20 32 32 30 |.. 44, 13, 220|
00000C30: 2C 20 31 37 33 2C 20 20 20 30 2C 20 32 32 31 2C |, 173, 0, 221,|
00000C40: 20 20 37 33 2C 20 20 31 36 00 76 28 12 07 83 20 | 73, 16.v(... |
00000C50: 31 34 31 2C 20 20 20 30 2C 20 32 32 31 2C 20 20 |141, 0, 221, |
00000C60: 39 36 2C 20 31 33 33 2C 20 32 35 30 2C 20 20 33 |96, 133, 250, 3|
00000C70: 32 2C 20 20 20 36 00 A3 28 1C 07 83 20 20 31 31 |2, 6..(... 11|
00000C80: 2C 20 31 36 39 2C 20 20 31 33 2C 20 31 33 33 2C |, 169, 13, 133,|
00000C90: 20 32 35 31 2C 20 20 33 32 2C 20 20 33 31 2C 20 | 251, 32, 31, |
00000CA0: 20 31 31 00 D0 28 26 07 83 20 31 36 30 2C 20 20 | 11..(&.. 160, |
00000CB0: 20 30 2C 20 20 33 32 2C 20 20 31 32 2C 20 20 31 | 0, 32, 12, 1|
00000CC0: 31 2C 20 31 34 35 2C 20 32 35 30 2C 20 20 34 31 |1, 145, 250, 41|
00000CD0: 00 FD 28 30 07 83 20 20 31 34 2C 20 32 30 38 2C |..(0.. 14, 208,|
00000CE0: 20 20 31 35 2C 20 32 30 30 2C 20 31 39 32 2C 20 | 15, 200, 192, |
00000CF0: 20 20 32 2C 20 32 30 38 2C 20 32 34 32 00 2A 29 | 2, 208, 242.*)|
00000D00: 3A 07 83 20 20 33 32 2C 20 20 31 32 2C 20 20 31 |:.. 32, 12, 1|
00000D10: 31 2C 20 31 34 35 2C 20 32 35 30 2C 20 32 30 30 |1, 145, 250, 200|
00000D20: 2C 20 31 39 32 2C 20 20 20 37 00 57 29 44 07 83 |, 192, 7.W)D..|
00000D30: 20 32 30 38 2C 20 32 34 36 2C 20 20 38 38 2C 20 | 208, 246, 88, |
00000D40: 20 39 36 2C 20 31 33 33 2C 20 32 35 32 2C 20 31 | 96, 133, 252, 1|
00000D50: 36 39 2C 20 20 20 30 00 84 29 4E 07 83 20 31 33 |69, 0..)N.. 13|
00000D60: 33 2C 20 32 35 30 2C 20 31 36 39 2C 20 20 31 39 |3, 250, 169, 19|
00000D70: 2C 20 31 33 33 2C 20 32 35 31 2C 20 20 33 32 2C |, 133, 251, 32,|
00000D80: 20 20 20 36 00 B1 29 58 07 83 20 20 31 31 2C 20 | 6..)X.. 11, |
00000D90: 20 33 32 2C 20 20 33 31 2C 20 20 31 31 2C 20 31 | 32, 31, 11, 1|
00000DA0: 36 30 2C 20 20 20 30 2C 20 20 33 32 2C 20 20 31 |60, 0, 32, 1|
00000DB0: 32 00 DE 29 62 07 83 20 20 31 31 2C 20 31 34 35 |2..)b.. 11, 145|
00000DC0: 2C 20 32 35 30 2C 20 32 30 30 2C 20 32 30 38 2C |, 250, 200, 208,|
00000DD0: 20 32 34 38 2C 20 31 39 38 2C 20 32 35 32 00 0B | 248, 198, 252..|
00000DE0: 2A 6C 07 83 20 32 34 30 2C 20 32 32 34 2C 20 32 |*l.. 240, 224, 2|
00000DF0: 33 30 2C 20 32 35 31 2C 20 20 37 36 2C 20 31 30 |30, 251, 76, 10|
00000E00: 32 2C 20 20 31 31 2C 20 32 35 35 00 11 2A 76 07 |2, 11, 255..*v.|
00000E10: 3A 00 2A 2A 80 07 8F 20 50 52 49 4E 54 20 44 49 |:.**... PRINT DI|
00000E20: 53 4B 20 44 45 54 41 49 4C 53 00 30 2A 8A 07 3A |SK DETAILS.0*..:|
00000E30: 00 6D 2A 94 07 99 20 22 53 45 43 54 4F 52 20 53 |.m*... "SECTOR S|
00000E40: 49 5A 45 20 3D 22 53 5A AC 32 35 36 3A 99 3A 8B |IZE ="SZ.256:.:.|
00000E50: 20 54 31 20 B0 20 54 32 20 A7 20 99 20 22 53 49 | T1 . T2 . . "SI|
00000E60: 4E 47 4C 45 20 53 49 44 45 44 21 21 22 00 7D 2A |NGLE SIDED!!".}*|
00000E70: 9E 07 8B 20 54 31 20 A7 20 31 39 37 30 00 B2 2A |... T1 . 1970..*|
00000E80: A8 07 99 20 22 53 49 44 45 20 30 3A 22 3A 99 20 |... "SIDE 0:":. |
00000E90: 22 4D 49 4E 20 53 45 43 54 4F 52 20 23 22 3B 53 |"MIN SECTOR #";S|
00000EA0: 31 2C 22 4D 41 58 20 53 45 43 54 4F 52 20 23 22 |1,"MAX SECTOR #"|
00000EB0: 4D 31 00 C2 2A B2 07 8B 20 54 32 20 A7 20 31 39 |M1..*... T2 . 19|
00000EC0: 39 30 00 F9 2A BC 07 99 3A 99 20 22 53 49 44 45 |90..*...:. "SIDE|
00000ED0: 20 31 3A 22 3A 99 20 22 4D 49 4E 20 53 45 43 54 | 1:":. "MIN SECT|
00000EE0: 4F 52 20 23 22 3B 53 32 2C 22 4D 41 58 20 53 45 |OR #";S2,"MAX SE|
00000EF0: 43 54 4F 52 20 23 22 4D 32 00 02 2B C6 07 99 3A |CTOR #"M2..+...:|
00000F00: 20 8E 00 00 00 | .... |
..+.... ********************************
***.U.... *
*..... * 1581 DEMO PROGRAM
*...... * BY
*.S.... * M. GARAMSZEGHY
*...... *
*.'.$.. * FOR C-128 AND 1
581 DRIVE *.Q.... *
*.{.8.. ****************
*******************...B.:...L.DV.9
: . DISK DRIVE DEVICE NUMBER...
V.:...`..%:. G(147);:B1.3328:B2.3338...J
.. I.2816 . 2935:. X:. I,X:. : . POKE MA
CHINE CODE...T.:.A.~.." ******* 15
81 DISPLAY T&S <C> M. GARAMSZEGHY 1987
*******".G...:.....SP$."S":.:.:."[S]CRE
EN OR [P]RINTER";SP$.....PD.3:. SP$."P"
. PD.4.M.... 1,PD: . OPEN OUTPUT FILE.S.
..:......:."INSERT DISK THEN PRESS A KEY
...":.. I$.9.D.. 15,DV,15,"U0".G(10): .
2816,0: . ANALYSE SIDE 0.M.N..15,"U0".G
(26): . 2816,10 : . ANALYSE SIDE 1.S.
X.:.....T1.B(B1) . 14 :T2.B(B2) . 14: .
BURST STATUS BYTE SIDE 0 AND 1...... T1
. T2 . . "*** DISK ERROR ***":.. A$:. 17
20.' ..SZ.B(B1) . 48: . T1 . SZ.B(B2) .
48: . CHECK SECTOR SIZE.B ..SZ.SZ.16:. S
Z.3 . SZ.4.\ ..S1.B(B1.4):M1.B(B1.5).V .
.S2.B(B2.4):M2.B(B2.5).. .... 0,2,79,24,
1:. PD.4 . . 1:. 1940:.1: 1:.1,PD.. (..
1940.. 2.SI..1:."SIDE,TRACK,SECTOR";SI,T
,S:. SI..1 . 1720..!<..15,"M-W"G(206)G(1
)G(1)G(SI) : . SET SIDE.M!F..15,"M-
W"G(11)G(0)G(2)G(T)G(S) : . SET T & S.S!
P.:..!Z.. THEN STUFF JOB CODE FOR READ P
HYSICAL SECTOR INTO JOB BUFFER..!D..15,"
M-W"G(2)G(0)G(1)G(164)..!N.. 1410: . 144
0: . WAIT TILL JOB DONE..!X.:.."...15,"M
-R"G(2)G(0)G(1) : . CHECK JOB STATUS.9".
..#15,A$:. F(A$).127 . 1410 : U ..?"..:.
|" ... 0,24,79,24,1:.1,"SIDE >>"SI,"TRAC
K >>"T,"SECTOR >>"S;..".... 0,20,79,23.T
"..."<LEFT> - DECREASE SECTOR#
<RIGHT> - INCREASE SECTOR#"..#..."<DOWN
> - DECREASE TRACK# <UP> -
INCREASE TRACK#"._#H.." <ESC> - SELECT
NEW TRACK, SECTOR <SPACE> - NEXT 256 B
YTES ";..#R.. F(A$).1 . .1,"*** ERROR #"
F(A$)"***":. 1320..#..:.J#...15,"U0>MR"G
(3)G(SZ): . BURST MODE MEMORY READ..#...
2819,SZ :. READ DATA VIA BURST MODE..#.
.:..$... PD.4 . .1," ".N$... I.4864 . 48
64.SZ.256.1 . 256 : . DISPLAY DATA IN HE
X FORM.A$.... 0,2,79,19,1..$".. J.0 . 25
4 . 16 : . 16 BYTES PER LINE, 256 BYTES
PER PAGE GROUP..$,.:.T$6.NU$.I(R(I.J.486
4),3)." : ":N2$.": "..%@.. K.0 . 15:N2.B
(I.J.K):NU$.NU$.I(R(N2),2)." ".9%J.N$.G(
N2):. N2.32 . (N2.127 . N2 .160) . N$.".
".W%T.N2$.N2$.N$:.:.1,NU$;N2$:..]%^.:..%
H.. PD.3 . .. A$ : . GET A KEY PRESS.F%R
.. A$.G(145) . T.T.1:. 1340: . CURSOR
UP = INCREASE TRACK #..&|.. A$.G(17) .
T.T.1:. 1340: . CURSOR DOWN = DECREASE
TRACK #.K&... A$.G(157) . S.S.1:. 1340:
. CURSOR LEFT = DECREASE SECTOR #..&..
. A$.G(29) . S.S.1:. 1340: . CURSOR RIG
HT = INCREASE SECTOR #.T&... A$.G(27) .
1310 : . ESCAPE = SELEC
T NEW VALUES..'...:. 1310
: . OTHER KEY = DISPLAY NEXT G
ROUP."'..:.D'.... U(DV): 1:.. 0,0,79,24
,1:..J'B.:.B'L.. MACHINE CODE DATA.H'V.:
..'... 76, 44, 11, 76, 84, 11, 169
, 0.B'... 141, 0, 255, 96, 169, 8
, 44, 13..'... 220, 240, 251, 173, 0
, 221, 73, 16..(... 141, 0, 221, 173
, 12, 220, 96, 120.I(... 44, 13, 220
, 173, 0, 221, 73, 16.V(... 141, 0
, 221, 96, 133, 250, 32, 6..(... 11
, 169, 13, 133, 251, 32, 31, 11.P(&.
. 160, 0, 32, 12, 11, 145, 250, 41
..(0.. 14, 208, 15, 200, 192, 2, 208
, 242.*):.. 32, 12, 11, 145, 250, 200
, 192, 7.W)D.. 208, 246, 88, 96, 133
, 252, 169, 0..)N.. 133, 250, 169, 19
, 133, 251, 32, 6..)X.. 11, 32, 31
, 11, 160, 0, 32, 12..)B.. 11, 145
, 250, 200, 208, 248, 198, 252..*L.. 240
, 224, 230, 251, 76, 102, 11, 255..*V.
:.**... PRINT DISK DETAILS.0*..:.M*... "
SECTOR SIZE ="SZ.256:.:. T1 . T2 . . "SI
NGLE SIDED!!".}*... T1 . 1970..*... "SID
E 0:":. "MIN SECTOR #";S1,"MAX SECTOR #"
M1.B*... T2 . 1990..*...:. "SIDE 1:":. "
MIN SECTOR #";S2,"MAX SECTOR #"M2..+F..:
....
> CLICK IMAGE PREVIEW FOR FULL MODAL