1581.DIAG
FILE INFORMATION
FILENAME(S): 1581.DIAG
FILE TYPE(S): PRG
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 16:59:23
APPEARS ON: 1 disk(s)
FILE HASH
bf02b926f8ea314d44718ce478a1502fe517f5fbe8705e55a31cb28d19768a8a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SERVANT V484 4 4 | 1581.DIAG | PRG | High Voltage Complete C64 Collection | 23 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 39 08 64 00 8F 20 20 20 43 48 45 43 4B 20 |..9.d.. CHECK | 00000010: 31 35 38 31 20 44 49 53 4B 20 46 4F 52 20 43 4F |1581 DISK FOR CO| 00000020: 4E 54 52 4F 4C 4C 45 52 20 54 59 50 45 20 26 20 |NTROLLER TYPE & | 00000030: 4A 31 20 4A 55 4D 50 45 52 00 56 08 6E 00 8F 20 |J1 JUMPER.V.n.. | 00000040: 20 20 31 32 2F 30 39 2F 38 37 20 20 46 52 45 44 | 12/09/87 FRED| 00000050: 20 42 4F 57 45 4E 00 5C 08 73 00 3A 00 87 08 78 | BOWEN.\.s.:...x| 00000060: 00 99 22 49 4E 53 45 52 54 20 41 4E 59 20 46 4F |.."INSERT ANY FO| 00000070: 52 4D 41 54 54 45 44 20 44 49 53 4B 20 49 4E 20 |RMATTED DISK IN | 00000080: 44 52 49 56 45 2E 22 00 A4 08 79 00 85 22 43 48 |DRIVE."...y.."CH| 00000090: 45 43 4B 20 57 48 49 43 48 20 55 4E 49 54 22 3B |ECK WHICH UNIT";| 000000A0: 55 3A 20 99 00 AA 08 7D 00 3A 00 C9 08 82 00 9F |U: ....}.:......| 000000B0: 20 31 2C 55 2C 31 35 20 20 20 20 20 20 3A 4C B2 | 1,U,15 :L.| 000000C0: 32 31 38 20 3A 20 48 B2 31 00 D9 08 8C 00 9F 20 |218 : H.1...... | 000000D0: 32 2C 55 2C 32 2C 22 23 22 00 FC 08 91 00 98 31 |2,U,2,"#"......1| 000000E0: 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 31 39 32 29 |,"M-R".(0).(192)| 000000F0: C7 28 31 29 3A 20 A1 23 31 2C 41 24 00 30 09 96 |.(1): .#1,A$.0..| 00000100: 00 8B 20 C6 28 41 24 29 B3 B1 31 39 32 20 A7 20 |.. .(A$)..192 . | 00000110: 99 22 44 45 56 49 43 45 22 55 22 49 53 20 4E 4F |."DEVICE"U"IS NO| 00000120: 54 20 41 20 31 35 38 31 2E 22 3A 20 89 33 36 30 |T A 1581.": .360| 00000130: 00 36 09 9B 00 3A 00 72 09 A0 00 98 31 2C 22 4D |.6...:.r....1,"M| 00000140: 2D 52 22 C7 28 4C 29 C7 28 48 29 C7 28 35 29 3A |-R".(L).(H).(5):| 00000150: 20 20 20 20 20 20 20 20 20 8F 20 20 4D 4F 44 49 | . MODI| 00000160: 46 59 20 43 4F 4E 54 52 4F 4C 4C 45 52 20 43 4D |FY CONTROLLER CM| 00000170: 44 53 00 A0 09 AA 00 81 49 B2 31 A4 35 3A A1 23 |DS......I.1.5:.#| 00000180: 31 2C 41 24 3A 42 24 B2 42 24 AA C7 28 C6 28 41 |1,A$:B$.B$..(.(A| 00000190: 24 29 B0 33 29 3A 43 24 B2 43 24 AA 41 24 3A 82 |$).3):C$.C$.A$:.| 000001A0: 00 BB 09 B4 00 98 31 2C 22 4D 2D 57 22 C7 28 4C |......1,"M-W".(L| 000001B0: 29 C7 28 48 29 C7 28 35 29 42 24 00 C1 09 BE 00 |).(H).(5)B$.....| 000001C0: 3A 00 07 0A C8 00 98 31 2C 22 55 31 22 3B 32 3B |:......1,"U1";2;| 000001D0: 30 3B 31 3B 30 20 20 20 20 20 20 20 3A 8D 35 30 |0;1;0 :.50| 000001E0: 30 3A 20 20 20 20 20 20 20 8F 20 20 53 45 45 4B |0: . SEEK| 000001F0: 20 54 52 41 43 4B 20 31 20 20 26 20 52 45 53 45 | TRACK 1 & RESE| 00000200: 54 20 54 49 4D 45 52 00 4D 0A D2 00 98 31 2C 22 |T TIMER.M....1,"| 00000210: 55 31 22 3B 32 3B 30 3B 38 30 3B 30 20 20 20 20 |U1";2;0;80;0 | 00000220: 20 20 3A 8D 36 30 30 3A 20 20 20 20 20 20 20 8F | :.600: .| 00000230: 20 20 53 45 45 4B 20 54 52 41 43 4B 20 38 30 20 | SEEK TRACK 80 | 00000240: 26 20 52 45 41 44 20 20 54 49 4D 45 52 00 53 0A |& READ TIMER.S.| 00000250: DC 00 3A 00 84 0A E6 00 98 31 2C 22 4D 2D 57 22 |..:......1,"M-W"| 00000260: C7 28 38 29 C7 28 36 34 29 C7 28 31 29 C7 28 30 |.(8).(64).(1).(0| 00000270: 29 3A 20 8F 20 20 54 45 53 54 20 4A 55 4D 50 45 |): . TEST JUMPE| 00000280: 52 20 4A 31 00 A6 0A F0 00 98 31 2C 22 4D 2D 52 |R J1......1,"M-R| 00000290: 22 C7 28 38 29 C7 28 36 34 29 C7 28 31 29 3A 20 |".(8).(64).(1): | 000002A0: A1 23 31 2C 4A 24 00 AC 0A FA 00 3A 00 E9 0A 04 |.#1,J$.....:....| 000002B0: 01 98 31 2C 22 4D 2D 57 22 C7 28 4C 29 C7 28 48 |..1,"M-W".(L).(H| 000002C0: 29 C7 28 35 29 43 24 3A 20 20 20 20 20 20 20 8F |).(5)C$: .| 000002D0: 20 20 52 45 53 54 4F 52 45 20 43 4F 4E 54 52 4F | RESTORE CONTRO| 000002E0: 4C 4C 45 52 20 43 4D 44 53 00 1E 0B 0E 01 8B 20 |LLER CMDS...... | 000002F0: C5 28 46 24 29 B1 30 20 A7 20 99 22 53 45 45 4B |.(F$).0 . ."SEEK| 00000300: 20 45 52 52 4F 52 2D 20 43 48 45 43 4B 20 44 49 | ERROR- CHECK DI| 00000310: 53 4B 45 54 54 45 2E 22 3A 20 99 3A 20 8A 00 24 |SKETTE.": .: ..$| 00000320: 0B 1D 01 3A 00 59 0B 22 01 99 22 55 4E 49 54 22 |...:.Y.".."UNIT"| 00000330: 55 22 43 4F 4E 54 41 49 4E 53 20 41 20 22 3B 3A |U"CONTAINS A ";:| 00000340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000350: 8F 20 20 52 45 50 4F 52 54 00 71 0B 2C 01 8B 20 |. REPORT.q.,.. | 00000360: 54 B1 32 30 20 A7 20 99 22 57 44 31 37 37 30 22 |T.20 . ."WD1770"| 00000370: 3B 00 89 0B 36 01 8B 20 54 B3 32 30 20 A7 20 99 |;...6.. T.20 . .| 00000380: 22 57 44 31 37 37 32 22 3B 00 9D 0B 40 01 99 22 |"WD1772";...@.."| 00000390: 20 41 4E 44 20 4A 31 20 49 53 20 22 3B 00 B3 0B | AND J1 IS ";...| 000003A0: 4A 01 8B 20 4A 24 B2 22 22 20 A7 20 99 22 4F 50 |J.. J$."" . ."OP| 000003B0: 45 4E 22 00 CB 0B 54 01 8B 20 4A 24 B1 22 22 20 |EN"...T.. J$."" | 000003C0: A7 20 99 22 43 4C 4F 53 45 44 22 00 D1 0B 68 01 |. ."CLOSED"...h.| 000003D0: 3A 00 DF 0B 72 01 A0 32 3A 20 A0 31 3A 20 80 00 |:...r..2: .1: ..| 000003E0: E5 0B 7C 01 3A 00 EB 0B 86 01 3A 00 F4 0B DA 01 |..|.:.....:.....| 000003F0: AB 32 35 36 00 15 0C F4 01 81 49 B2 31 31 A4 38 |.256......I.11.8| 00000400: A9 AB 31 3A 20 97 35 36 33 32 30 AA 49 2C 30 3A |..1: .56320.I,0:| 00000410: 20 82 3A 20 8E 00 43 0C 58 02 84 31 2C 46 24 2C | .: ..C.X..1,F$,| 00000420: 52 24 2C 45 24 2C 44 24 3A 20 54 B2 C2 28 35 36 |R$,E$,D$: T..(56| 00000430: 33 32 39 29 AC 31 30 AA C2 28 35 36 33 32 38 29 |329).10..(56328)| 00000440: 3A 20 8E 00 00 00 |: .... |
..9.D.. CHECK 1581 DISK FOR CONTROLLER
TYPE & J1 JUMPER.V.N.. 12/09/87 FRED
BOWEN.\.S.:...X.."INSERT ANY FORMATTED
DISK IN DRIVE."...Y.."CHECK WHICH UNIT";
U: ....}.:.I.... 1,U,15 :L.218 : H.
1.Y.... 2,U,2,"#"......1,"M-R"G(0)G(192)
G(1): .#1,A$.0.... F(A$)..192 . ."DEVICE
"U"IS NOT A 1581.": .360.6...:.R. ..1,"M
-R"G(L)G(H)G(5): . MODIFY CONTR
OLLER CMDS. ....I.1.5:.#1,A$:B$.B$.G(F(A
$).3):C$.C$.A$:.......1,"M-W"G(L)G(H)G(5
)B$.A...:...H..1,"U1";2;0;1;0 :.50
0: . SEEK TRACK 1 & RESET TIMER.
M.R..1,"U1";2;0;80;0 :.600: .
SEEK TRACK 80 & READ TIMER.S...:.....
.1,"M-W"G(8)G(64)G(1)G(0): . TEST JUMPE
R J1......1,"M-R"G(8)G(64)G(1): .#1,J$..
...:......1,"M-W"G(L)G(H)G(5)C$: .
RESTORE CONTROLLER CMDS...... E(F$).0
. ."SEEK ERROR- CHECK DISKETTE.": .: ..$
...:.Y.".."UNIT"U"CONTAINS A ";:
. REPORT.Q.,.. T.20 . ."WD1770"
;...6.. T.20 . ."WD1772";...@.." AND J1
IS ";...J.. J$."" . ."OPEN".K.T.. J$.""
. ."CLOSED".Q.H.:...R. 2: 1: ....|.:...
..:...Z..256......I.11.8..1: .56320.I,0:
.: ..C.X..1,F$,R$,E$,D$: T.B(56329).10.
B(56328): ....
> CLICK IMAGE PREVIEW FOR FULL MODAL