DISKPICKER
FILE INFORMATION
FILENAME(S): DISKPICKER
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 18:12:37
APPEARS ON: 1 disk(s)
FILE HASH
19e19569b4cd5322e8ad1ed6350537ab5068fc54d9afe0d08e74bb324c3963d5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 1541 DEVELOPMENT | DISKPICKER | PRG | Sailor, Ganheden | 27 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8B 41 B2 30 A7 41 B2 31 3A 93 |.."....A.0.A.1:.|
00000010: 22 4D 4F 4E 49 54 4F 52 24 38 30 30 30 22 2C 38 |"MONITOR$8000",8|
00000020: 2C 31 00 3C 08 14 00 8B 41 B2 31 A7 41 B2 32 3A |,1.<....A.1.A.2:|
00000030: 93 22 5A 4D 41 43 48 22 2C 38 2C 31 00 4E 08 1E |."ZMACH",8,1.N..|
00000040: 00 97 35 32 2C 33 31 3A 97 35 36 2C 33 31 00 5D |..52,31:.56,31.]|
00000050: 08 23 00 9E 34 39 31 35 32 3A 8A 34 30 00 86 08 |.#..49152:.40...|
00000060: 28 00 97 35 33 32 38 30 2C 31 31 3A 97 35 33 32 |(..53280,11:.532|
00000070: 38 31 2C 31 31 3A 9C 3A 86 45 52 24 28 31 31 29 |81,11:.:.ER$(11)|
00000080: 3A 8D 33 30 30 30 00 B2 08 2D 00 99 22 93 9E 20 |:.3000...-..".. |
00000090: 20 20 20 20 20 44 49 53 4B 50 49 43 4B 45 52 99 | DISKPICKER.|
000000A0: 20 50 53 49 44 41 43 28 43 29 38 34 20 56 42 4E | PSIDAC(C)84 VBN|
000000B0: 05 22 00 D2 08 32 00 99 22 11 20 20 20 20 20 20 |."...2..". |
000000C0: 20 20 20 20 20 2A 2A 2A 20 4D 45 4E 55 20 2A 2A | *** MENU **|
000000D0: 2A 22 00 FD 08 3C 00 99 22 11 28 31 29 20 54 52 |*"...<..".(1) TR|
000000E0: 41 4E 53 46 45 52 20 44 49 53 4B 20 4D 45 4D 4F |ANSFER DISK MEMO|
000000F0: 52 59 20 54 4F 20 42 55 46 46 45 52 22 00 1D 09 |RY TO BUFFER"...|
00000100: 41 00 99 22 11 28 32 29 20 45 4E 41 42 4C 45 20 |A..".(2) ENABLE |
00000110: 4D 4F 4E 49 54 4F 52 20 4D 4F 44 45 22 00 48 09 |MONITOR MODE".H.|
00000120: 46 00 99 22 11 28 33 29 20 54 52 41 4E 53 46 45 |F..".(3) TRANSFE|
00000130: 52 20 42 55 46 46 45 52 20 54 4F 20 44 49 53 4B |R BUFFER TO DISK|
00000140: 20 4D 45 4D 4F 52 59 22 00 70 09 4B 00 99 22 11 | MEMORY".p.K..".|
00000150: 28 34 29 20 44 49 52 45 43 54 20 45 58 45 43 55 |(4) DIRECT EXECU|
00000160: 54 45 20 55 53 45 52 20 50 52 4F 47 52 41 4D 22 |TE USER PROGRAM"|
00000170: 00 99 09 4E 00 99 22 11 28 35 29 20 4A 4F 42 20 |...N..".(5) JOB |
00000180: 51 55 45 20 45 58 45 43 55 54 45 20 55 53 45 52 |QUE EXECUTE USER|
00000190: 20 50 52 4F 47 52 41 4D 22 00 C0 09 50 00 99 22 | PROGRAM"...P.."|
000001A0: 11 28 36 29 20 4C 4F 41 44 20 53 45 43 54 4F 52 |.(6) LOAD SECTOR|
000001B0: 20 54 4F 20 44 49 53 4B 20 42 55 46 46 45 52 22 | TO DISK BUFFER"|
000001C0: 00 DF 09 52 00 99 22 11 28 37 29 20 49 4E 49 54 |...R..".(7) INIT|
000001D0: 49 41 4C 49 5A 45 20 44 49 53 4B 20 49 4F 22 00 |IALIZE DISK IO".|
000001E0: FB 09 53 00 99 22 11 28 38 29 20 46 4F 52 4D 41 |..S..".(8) FORMA|
000001F0: 54 20 44 49 53 4B 45 54 54 45 22 00 1F 0A 55 00 |T DISKETTE"...U.|
00000200: 85 22 11 53 45 4C 45 43 54 20 43 48 4F 49 43 45 |.".SELECT CHOICE|
00000210: 22 3B 43 48 24 3A 43 48 B2 C5 28 43 48 24 29 00 |";CH$:CH..(CH$).|
00000220: 2C 0A 58 00 8B 43 48 B1 38 A7 34 30 00 56 0A 5A |,.X..CH.8.40.V.Z|
00000230: 00 91 43 48 20 89 20 31 30 30 2C 33 30 30 2C 34 |..CH . 100,300,4|
00000240: 30 30 2C 35 30 30 2C 36 30 30 2C 37 30 30 2C 38 |00,500,600,700,8|
00000250: 30 30 2C 39 30 30 00 5E 0A 5F 00 89 34 30 00 90 |00,900.^._..40..|
00000260: 0A 64 00 99 22 93 11 28 31 29 20 54 52 41 4E 53 |.d.."..(1) TRANS|
00000270: 46 45 52 20 44 49 53 4B 20 4D 45 4D 4F 52 59 20 |FER DISK MEMORY |
00000280: 54 4F 20 42 55 46 46 45 52 22 3A 8D 32 30 30 30 |TO BUFFER":.2000|
00000290: 00 BF 0A 69 00 85 22 11 49 4E 50 55 54 20 44 49 |...i..".INPUT DI|
000002A0: 53 4B 20 53 54 41 52 54 20 41 44 44 52 45 53 53 |SK START ADDRESS|
000002B0: 22 3B 58 24 3A 8D 31 30 30 30 3A 53 41 B2 58 00 |";X$:.1000:SA.X.|
000002C0: EC 0A 6E 00 85 22 11 49 4E 50 55 54 20 44 49 53 |..n..".INPUT DIS|
000002D0: 4B 20 45 4E 44 20 41 44 44 52 45 53 53 22 3B 58 |K END ADDRESS";X|
000002E0: 24 3A 8D 31 30 30 30 3A 45 41 B2 58 00 25 0B 78 |$:.1000:EA.X.%.x|
000002F0: 00 85 22 11 49 4E 50 55 54 20 42 55 46 46 45 52 |..".INPUT BUFFER|
00000300: 20 41 44 44 52 45 53 53 22 3B 58 24 3A 8D 31 30 | ADDRESS";X$:.10|
00000310: 30 30 3A 42 41 B2 58 3A 8B 58 B3 38 31 39 32 A7 |00:BA.X:.X.8192.|
00000320: 8D 32 30 33 30 00 38 0B 7D 00 8B 58 B1 33 32 37 |.2030.8.}..X.327|
00000330: 36 37 A7 8D 32 30 34 30 00 79 0B 82 00 99 22 11 |67..2040.y....".|
00000340: 44 49 53 4B 20 4D 45 4D 2E 20 54 4F 20 42 55 46 |DISK MEM. TO BUF|
00000350: 46 2E 20 54 52 41 4E 53 46 45 52 20 49 4E 20 50 |F. TRANSFER IN P|
00000360: 52 4F 43 45 53 53 22 3A 99 22 11 42 59 54 45 20 |ROCESS":.".BYTE |
00000370: 43 4F 55 4E 54 20 3D 22 3B 00 A2 0B 8C 00 4E 42 |COUNT =";.....NB|
00000380: B2 45 41 AB 53 41 3A 53 48 B2 B5 28 53 41 AD 32 |.EA.SA:SH..(SA.2|
00000390: 35 36 29 3A 53 4C B2 53 41 AB 28 53 48 AC 32 35 |56):SL.SA.(SH.25|
000003A0: 36 29 00 B8 0B 96 00 9F 31 35 2C 38 2C 31 35 3A |6)......15,8,15:|
000003B0: 81 4C 50 B2 30 A4 4E 42 00 E6 0B A0 00 98 31 35 |.LP.0.NB......15|
000003C0: 2C 22 4D 2D 52 22 C7 28 53 4C 29 C7 28 53 48 29 |,"M-R".(SL).(SH)|
000003D0: 3A A1 23 31 35 2C 41 24 3A 50 4E B2 C6 28 41 24 |:.#15,A$:PN..(A$|
000003E0: AA C7 28 30 29 29 00 16 0C AA 00 97 42 41 2C 50 |..(0))......BA,P|
000003F0: 4E 3A 42 41 B2 42 41 AA 31 3A 53 4C B2 53 4C AA |N:BA.BA.1:SL.SL.|
00000400: 31 3A 8B 53 4C B2 32 35 36 A7 53 4C B2 30 3A 53 |1:.SL.256.SL.0:S|
00000410: 48 B2 53 48 AA 31 00 27 0C AF 00 99 A3 31 32 29 |H.SH.1.'.....12)|
00000420: 4C 50 22 91 22 3A 82 00 52 0C B4 00 A0 31 35 3A |LP".":..R....15:|
00000430: 99 22 11 11 45 4E 44 20 54 52 41 4E 53 46 45 52 |."..END TRANSFER|
00000440: 22 3A 81 54 44 B2 31 A4 33 30 30 30 3A 82 3A 8A |":.TD.1.3000:.:.|
00000450: 34 30 00 77 0C 2C 01 85 22 11 50 52 49 4E 54 45 |40.w.,..".PRINTE|
00000460: 52 20 59 2F 4E 22 3B 59 4E 24 3A 8B 59 4E 24 B2 |R Y/N";YN$:.YN$.|
00000470: 22 59 22 A7 50 B2 31 00 9A 0C 2E 01 8B 59 4E 24 |"Y".P.1......YN$|
00000480: B3 B1 22 59 22 AF 59 4E 24 B3 B1 22 4E 22 A7 99 |.."Y".YN$.."N"..|
00000490: 22 91 91 91 22 3A 89 33 30 30 00 AD 0C 31 01 99 |"...":.300...1..|
000004A0: 3A 8B 50 B2 31 A7 9F 34 2C 34 3A 9D 34 00 B8 0C |:.P.1..4,4:.4...|
000004B0: 36 01 9E 33 32 37 36 38 00 BE 0C 40 01 80 00 F0 |6..32768...@....|
000004C0: 0C 90 01 99 22 93 11 28 33 29 20 54 52 41 4E 53 |...."..(3) TRANS|
000004D0: 46 45 52 20 42 55 46 46 45 52 20 54 4F 20 44 49 |FER BUFFER TO DI|
000004E0: 53 4B 20 4D 45 4D 4F 52 59 22 3A 8D 32 30 30 30 |SK MEMORY":.2000|
000004F0: 00 1F 0D 95 01 85 22 11 49 4E 50 55 54 20 44 49 |......".INPUT DI|
00000500: 53 4B 20 53 54 41 52 54 20 41 44 44 52 45 53 53 |SK START ADDRESS|
00000510: 22 3B 58 24 3A 8D 31 30 30 30 3A 53 41 B2 58 00 |";X$:.1000:SA.X.|
00000520: 4C 0D 9A 01 85 22 11 49 4E 50 55 54 20 44 49 53 |L....".INPUT DIS|
00000530: 4B 20 45 4E 44 20 41 44 44 52 45 53 53 22 3B 58 |K END ADDRESS";X|
00000540: 24 3A 8D 31 30 30 30 3A 45 41 B2 58 00 85 0D A4 |$:.1000:EA.X....|
00000550: 01 85 22 11 49 4E 50 55 54 20 42 55 46 46 45 52 |..".INPUT BUFFER|
00000560: 20 41 44 44 52 45 53 53 22 3B 58 24 3A 8D 31 30 | ADDRESS";X$:.10|
00000570: 30 30 3A 42 41 B2 58 3A 8B 58 B3 38 31 39 32 A7 |00:BA.X:.X.8192.|
00000580: 8D 32 30 33 30 00 98 0D A9 01 8B 58 B1 33 32 37 |.2030......X.327|
00000590: 36 37 A7 8D 32 30 34 30 00 D9 0D AE 01 99 22 11 |67..2040......".|
000005A0: 42 55 46 46 2E 20 54 4F 20 44 49 53 4B 20 4D 45 |BUFF. TO DISK ME|
000005B0: 4D 2E 20 54 52 41 4E 53 46 45 52 20 49 4E 20 50 |M. TRANSFER IN P|
000005C0: 52 4F 43 45 53 53 22 3A 99 22 11 42 59 54 45 20 |ROCESS":.".BYTE |
000005D0: 43 4F 55 4E 54 20 3D 22 3B 00 02 0E B8 01 4E 42 |COUNT =";.....NB|
000005E0: B2 45 41 AB 53 41 3A 53 48 B2 B5 28 53 41 AD 32 |.EA.SA:SH..(SA.2|
000005F0: 35 36 29 3A 53 4C B2 53 41 AB 28 53 48 AC 32 35 |56):SL.SA.(SH.25|
00000600: 36 29 00 18 0E C2 01 9F 31 35 2C 38 2C 31 35 3A |6)......15,8,15:|
00000610: 81 4C 50 B2 30 A4 4E 42 00 42 0E CC 01 50 4E B2 |.LP.0.NB.B...PN.|
00000620: C2 28 42 41 29 3A 98 31 35 2C 22 4D 2D 57 22 C7 |.(BA):.15,"M-W".|
00000630: 28 53 4C 29 C7 28 53 48 29 C7 28 31 29 C7 28 50 |(SL).(SH).(1).(P|
00000640: 4E 29 00 6B 0E D6 01 42 41 B2 42 41 AA 31 3A 53 |N).k...BA.BA.1:S|
00000650: 4C B2 53 4C AA 31 3A 8B 53 4C B2 32 35 36 A7 53 |L.SL.1:.SL.256.S|
00000660: 4C B2 30 3A 53 48 B2 53 48 AA 31 00 7C 0E DB 01 |L.0:SH.SH.1.|...|
00000670: 99 A3 31 32 29 4C 50 22 91 22 3A 82 00 A7 0E E0 |..12)LP".":.....|
00000680: 01 A0 31 35 3A 99 22 11 11 45 4E 44 20 54 52 41 |..15:."..END TRA|
00000690: 4E 53 46 45 52 22 3A 81 54 44 B2 31 A4 33 30 30 |NSFER":.TD.1.300|
000006A0: 30 3A 82 3A 8A 34 30 00 D6 0E F4 01 99 22 93 11 |0:.:.40......"..|
000006B0: 28 34 29 20 44 49 52 45 43 54 20 45 58 45 43 55 |(4) DIRECT EXECU|
000006C0: 54 45 20 55 53 45 52 20 50 52 4F 47 52 41 4D 22 |TE USER PROGRAM"|
000006D0: 3A 8D 32 30 30 30 00 0B 0F F9 01 85 22 11 49 4E |:.2000......".IN|
000006E0: 50 55 54 20 44 49 53 4B 20 50 52 4F 47 2E 20 45 |PUT DISK PROG. E|
000006F0: 4E 54 52 59 20 41 44 44 52 45 53 53 22 3B 58 24 |NTRY ADDRESS";X$|
00000700: 3A 8D 31 30 30 30 3A 53 41 B2 58 00 2B 0F FE 01 |:.1000:SA.X.+...|
00000710: 53 48 B2 B5 28 53 41 AD 32 35 36 29 3A 53 4C B2 |SH..(SA.256):SL.|
00000720: 53 41 AB 28 53 48 AC 32 35 36 29 00 50 0F 08 02 |SA.(SH.256).P...|
00000730: 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 4D 2D |.15,8,15:.15,"M-|
00000740: 45 22 C7 28 53 4C 29 C7 28 53 48 29 3A A0 31 35 |E".(SL).(SH):.15|
00000750: 00 87 0F 12 02 99 22 11 50 52 4F 47 52 41 4D 20 |......".PROGRAM |
00000760: 45 58 45 43 55 54 49 4F 4E 20 45 4E 41 42 4C 45 |EXECUTION ENABLE|
00000770: 44 22 3A A0 31 35 3A 81 54 44 B2 31 A4 33 30 30 |D":.15:.TD.1.300|
00000780: 30 3A 82 3A 8A 34 30 00 B7 0F 58 02 99 22 93 11 |0:.:.40...X.."..|
00000790: 28 35 29 20 4A 4F 42 20 51 55 45 20 45 58 45 43 |(5) JOB QUE EXEC|
000007A0: 55 54 45 20 55 53 45 52 20 50 52 4F 47 52 41 4D |UTE USER PROGRAM|
000007B0: 22 3A 8D 32 30 30 30 00 F8 0F 5D 02 99 22 11 49 |":.2000...]..".I|
000007C0: 4E 50 55 54 20 4A 4F 42 20 43 48 4F 49 43 45 11 |NPUT JOB CHOICE.|
000007D0: 22 3A 99 22 31 32 38 3D 52 45 41 44 22 3A 99 22 |":."128=READ":."|
000007E0: 31 34 34 3D 57 52 49 54 45 22 3A 99 22 31 36 30 |144=WRITE":."160|
000007F0: 3D 56 45 52 49 46 59 22 00 30 10 62 02 99 22 31 |=VERIFY".0.b.."1|
00000800: 37 36 3D 53 45 45 4B 22 3A 99 22 31 38 34 3D 53 |76=SEEK":."184=S|
00000810: 45 43 20 53 45 45 4B 22 3A 99 22 31 39 32 3D 42 |EC SEEK":."192=B|
00000820: 55 4D 50 22 3A 99 22 32 30 38 3D 4A 55 4D 50 22 |UMP":."208=JUMP"|
00000830: 00 69 10 67 02 99 22 32 32 34 3D 45 58 45 43 55 |.i.g.."224=EXECU|
00000840: 54 45 22 3A 85 22 11 43 48 4F 49 43 45 22 3B 43 |TE":.".CHOICE";C|
00000850: 48 24 3A 43 48 B2 C5 28 43 48 24 29 3A 58 24 B2 |H$:CH..(CH$):X$.|
00000860: 43 48 24 3A 8D 31 31 30 30 00 78 10 69 02 8B 43 |CH$:.1100.x.i..C|
00000870: 48 B2 30 A7 36 30 30 3A 00 89 10 6A 02 8B 43 48 |H.0.600:...j..CH|
00000880: B3 B1 32 32 34 A7 36 34 30 00 CE 10 6C 02 99 22 |..224.640...l.."|
00000890: 93 53 45 4C 45 43 54 20 45 58 45 43 55 54 45 20 |.SELECT EXECUTE |
000008A0: 53 54 41 52 54 49 4E 47 20 41 44 44 52 45 53 53 |STARTING ADDRESS|
000008B0: 22 3A 99 22 11 41 44 44 52 45 53 53 45 53 20 41 |":.".ADDRESSES A|
000008C0: 56 41 49 4C 41 42 4C 45 20 41 52 45 3A 22 00 03 |VAILABLE ARE:"..|
000008D0: 11 71 02 99 22 11 28 31 29 3D 30 33 30 30 22 3A |.q..".(1)=0300":|
000008E0: 99 22 28 32 29 3D 30 34 30 30 22 3A 99 22 28 33 |."(2)=0400":."(3|
000008F0: 29 3D 30 35 30 30 22 3A 99 22 28 34 29 3D 30 36 |)=0500":."(4)=06|
00000900: 30 30 22 00 13 11 74 02 99 22 28 35 29 3D 30 37 |00"...t.."(5)=07|
00000910: 30 30 22 00 33 11 76 02 85 22 11 43 48 4F 49 43 |00".3.v..".CHOIC|
00000920: 45 22 3B 43 48 24 3A 58 24 B2 43 48 24 3A 8D 31 |E";CH$:X$.CH$:.1|
00000930: 31 30 30 00 59 11 78 02 43 31 B2 C5 28 43 48 24 |100.Y.x.C1..(CH$|
00000940: 29 3A 91 43 31 89 36 34 30 2C 36 34 30 2C 36 34 |):.C1.640,640,64|
00000950: 30 2C 36 34 30 2C 36 34 30 00 62 11 7B 02 89 36 |0,640,640.b.{..6|
00000960: 32 30 00 6C 11 80 02 8D 32 30 30 30 00 A0 11 85 |20.l....2000....|
00000970: 02 85 22 93 11 49 4E 50 55 54 20 48 45 41 44 45 |.."..INPUT HEADE|
00000980: 52 20 23 31 20 22 3B 58 24 3A 54 4E B2 C5 28 58 |R #1 ";X$:TN..(X|
00000990: 24 29 3A 8B 58 24 B2 22 58 22 A7 8D 31 31 30 30 |$):.X$."X"..1100|
000009A0: 00 D3 11 8A 02 85 22 11 49 4E 50 55 54 20 48 45 |......".INPUT HE|
000009B0: 41 44 45 52 20 23 32 20 22 3B 58 24 3A 53 4E B2 |ADER #2 ";X$:SN.|
000009C0: C5 28 58 24 29 3A 8B 58 24 B2 22 58 22 A7 8D 31 |.(X$):.X$."X"..1|
000009D0: 31 30 30 00 E0 11 8B 02 9F 31 35 2C 38 2C 31 35 |100......15,8,15|
000009E0: 00 F1 11 8C 02 8B 43 48 B3 B1 32 32 34 A7 36 35 |......CH..224.65|
000009F0: 35 00 19 12 8D 02 8B 43 31 B2 31 A7 98 31 35 2C |5......C1.1..15,|
00000A00: 22 4D 2D 57 22 C7 28 36 33 29 C7 28 30 29 C7 28 |"M-W".(63).(0).(|
00000A10: 31 29 C7 28 43 31 AB 31 29 00 4A 12 8E 02 8B 43 |1).(C1.1).J....C|
00000A20: 31 B3 B1 31 A7 98 31 35 2C 22 4D 2D 57 22 C7 28 |1..1..15,"M-W".(|
00000A30: 30 29 C7 28 33 29 C7 28 33 29 C7 28 37 36 29 C7 |0).(3).(3).(76).|
00000A40: 28 30 29 C7 28 43 31 AA 32 29 00 69 12 8F 02 98 |(0).(C1.2).i....|
00000A50: 31 35 2C 22 4D 2D 57 22 C7 28 36 29 C7 28 30 29 |15,"M-W".(6).(0)|
00000A60: C7 28 31 29 C7 28 54 4E 29 00 88 12 94 02 98 31 |.(1).(TN)......1|
00000A70: 35 2C 22 4D 2D 57 22 C7 28 37 29 C7 28 30 29 C7 |5,"M-W".(7).(0).|
00000A80: 28 31 29 C7 28 53 4E 29 00 A7 12 99 02 98 31 35 |(1).(SN)......15|
00000A90: 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 29 C7 28 |,"M-W".(0).(0).(|
00000AA0: 31 29 C7 28 43 48 29 00 C9 12 9E 02 99 22 11 50 |1).(CH)......".P|
00000AB0: 52 4F 47 52 41 4D 20 45 58 45 43 55 54 49 4F 4E |ROGRAM EXECUTION|
00000AC0: 20 45 4E 41 42 4C 45 44 22 00 01 13 A3 02 98 31 | ENABLED"......1|
00000AD0: 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 30 29 3A |5,"M-R".(0).(0):|
00000AE0: A1 23 31 35 2C 41 24 3A 4F 50 B2 C6 28 41 24 AA |.#15,A$:OP..(A$.|
00000AF0: C7 28 30 29 29 3A 8B 4F 50 B1 31 32 37 A7 36 37 |.(0)):.OP.127.67|
00000B00: 35 00 1D 13 A8 02 99 22 11 4F 50 20 53 54 41 54 |5......".OP STAT|
00000B10: 55 53 20 43 4F 44 45 20 3D 20 22 4F 50 00 31 13 |US CODE = "OP.1.|
00000B20: AD 02 99 22 9E 11 22 45 52 24 28 4F 50 29 22 05 |...".."ER$(OP)".|
00000B30: 22 00 43 13 B7 02 A0 31 35 3A 8D 32 30 30 30 3A |".C....15:.2000:|
00000B40: 8A 34 30 00 71 13 BC 02 99 22 93 11 28 36 29 20 |.40.q...."..(6) |
00000B50: 4C 4F 41 44 20 53 45 43 54 4F 52 20 54 4F 20 44 |LOAD SECTOR TO D|
00000B60: 49 53 4B 20 42 55 46 46 45 52 22 3A 8D 32 30 30 |ISK BUFFER":.200|
00000B70: 30 00 9A 13 C1 02 85 22 11 49 4E 50 55 54 20 54 |0......".INPUT T|
00000B80: 52 41 43 4B 20 23 20 22 3B 58 24 3A 54 4E B2 C5 |RACK # ";X$:TN..|
00000B90: 28 58 24 29 3A 8D 31 31 30 30 00 C4 13 C6 02 85 |(X$):.1100......|
00000BA0: 22 11 49 4E 50 55 54 20 53 45 43 54 4F 52 20 23 |".INPUT SECTOR #|
00000BB0: 20 22 3B 58 24 3A 53 4E B2 C5 28 58 24 29 3A 8D | ";X$:SN..(X$):.|
00000BC0: 31 31 30 30 00 DC 13 CB 02 9F 31 35 2C 38 2C 31 |1100......15,8,1|
00000BD0: 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 00 13 14 D0 |5:.2,8,2,"#"....|
00000BE0: 02 98 31 35 2C 22 55 31 3A 22 32 3B 30 3B 54 4E |..15,"U1:"2;0;TN|
00000BF0: 3B 53 4E 3A 84 31 35 2C 41 24 2C 42 24 2C 43 24 |;SN:.15,A$,B$,C$|
00000C00: 2C 44 24 3A 99 22 11 22 41 24 2C 42 24 2C 43 24 |,D$:."."A$,B$,C$|
00000C10: 2C 44 24 00 24 14 D5 02 81 54 44 B2 31 A4 33 30 |,D$.$....TD.1.30|
00000C20: 30 30 3A 82 00 33 14 DA 02 A0 32 3A A0 31 35 3A |00:..3....2:.15:|
00000C30: 8A 34 30 00 4D 14 20 03 9F 31 35 2C 38 2C 31 35 |.40.M. ..15,8,15|
00000C40: 2C 22 49 30 22 3A A0 31 35 3A 8A 34 30 00 7B 14 |,"I0":.15:.40.{.|
00000C50: 84 03 99 22 93 49 4E 53 45 52 54 20 44 49 53 4B |...".INSERT DISK|
00000C60: 45 54 54 45 20 54 4F 20 42 45 20 46 4F 52 4D 41 |ETTE TO BE FORMA|
00000C70: 54 54 45 44 22 3A 8D 32 30 30 30 00 A1 14 89 03 |TTED":.2000.....|
00000C80: 85 22 11 44 49 53 4B 45 54 54 45 20 4E 41 4D 45 |.".DISKETTE NAME|
00000C90: 22 3B 58 24 3A 4E 4D 24 B2 58 24 3A 8D 31 31 30 |";X$:NM$.X$:.110|
00000CA0: 30 00 CB 14 8E 03 85 22 11 44 49 53 4B 45 54 54 |0......".DISKETT|
00000CB0: 45 20 49 44 22 3B 58 24 3A 49 44 24 B2 58 24 3A |E ID";X$:ID$.X$:|
00000CC0: 8D 31 31 30 30 3A 8D 32 30 30 30 00 EE 14 93 03 |.1100:.2000.....|
00000CD0: 99 22 93 46 4F 52 4D 41 54 20 45 4E 41 42 4C 45 |.".FORMAT ENABLE|
00000CE0: 44 20 50 4C 45 41 53 45 20 57 41 49 54 22 00 22 |D PLEASE WAIT"."|
00000CF0: 15 98 03 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |....15,8,15:.15,|
00000D00: 22 4E 30 3A 22 4E 4D 24 3B C7 28 34 34 29 3B 49 |"N0:"NM$;.(44);I|
00000D10: 44 24 3A 84 31 35 2C 41 24 2C 42 24 2C 43 24 2C |D$:.15,A$,B$,C$,|
00000D20: 44 24 00 4B 15 A2 03 99 22 11 22 41 24 2C 42 24 |D$.K...."."A$,B$|
00000D30: 2C 43 24 2C 44 24 3A A0 31 35 3A 81 54 44 B2 31 |,C$,D$:.15:.TD.1|
00000D40: A4 33 30 30 30 3A 82 3A 8A 34 30 00 5B 15 E8 03 |.3000:.:.40.[...|
00000D50: 8B 58 24 B2 22 58 22 A7 8A 34 30 00 78 15 ED 03 |.X$."X"..40.x...|
00000D60: 81 49 B2 31 A4 34 3A 44 24 28 49 29 B2 CA 28 58 |.I.1.4:D$(I)..(X|
00000D70: 24 2C 49 2C 31 29 3A 82 00 91 15 F2 03 81 49 B2 |$,I,1):.......I.|
00000D80: 31 A4 34 3A 44 28 49 29 B2 C5 28 44 24 28 49 29 |1.4:D(I)..(D$(I)|
00000D90: 29 00 A8 15 FC 03 8B 44 24 28 49 29 B2 22 41 22 |)......D$(I)."A"|
00000DA0: A7 44 28 49 29 B2 31 30 00 BF 15 01 04 8B 44 24 |.D(I).10......D$|
00000DB0: 28 49 29 B2 22 42 22 A7 44 28 49 29 B2 31 31 00 |(I)."B".D(I).11.|
00000DC0: D6 15 06 04 8B 44 24 28 49 29 B2 22 43 22 A7 44 |.....D$(I)."C".D|
00000DD0: 28 49 29 B2 31 32 00 ED 15 0B 04 8B 44 24 28 49 |(I).12......D$(I|
00000DE0: 29 B2 22 44 22 A7 44 28 49 29 B2 31 33 00 04 16 |)."D".D(I).13...|
00000DF0: 10 04 8B 44 24 28 49 29 B2 22 45 22 A7 44 28 49 |...D$(I)."E".D(I|
00000E00: 29 B2 31 34 00 1B 16 15 04 8B 44 24 28 49 29 B2 |).14......D$(I).|
00000E10: 22 46 22 A7 44 28 49 29 B2 31 35 00 21 16 1A 04 |"F".D(I).15.!...|
00000E20: 82 00 65 16 24 04 44 28 31 29 B2 44 28 31 29 AC |..e.$.D(1).D(1).|
00000E30: 34 30 39 36 3A 44 28 32 29 B2 44 28 32 29 AC 32 |4096:D(2).D(2).2|
00000E40: 35 36 3A 44 28 33 29 B2 44 28 33 29 AC 31 36 3A |56:D(3).D(3).16:|
00000E50: 58 B2 44 28 31 29 AA 44 28 32 29 AA 44 28 33 29 |X.D(1).D(2).D(3)|
00000E60: AA 44 28 34 29 00 6B 16 29 04 8E 00 7A 16 4C 04 |.D(4).k.)...z.L.|
00000E70: 8B 58 24 B3 B1 22 58 22 A7 8E 00 82 16 51 04 8A |.X$.."X".....Q..|
00000E80: 34 30 00 A3 16 D0 07 99 22 11 43 48 45 43 4B 20 |40......".CHECK |
00000E90: 44 49 53 4B 20 54 48 45 4E 20 50 52 45 53 53 20 |DISK THEN PRESS |
00000EA0: 46 37 22 00 BB 16 DA 07 A1 46 37 24 3A 8B 46 37 |F7"......F7$:.F7|
00000EB0: 24 B3 B1 22 88 22 A7 32 30 31 30 00 C1 16 E4 07 |$..".".2010.....|
00000EC0: 8E 00 F8 16 EE 07 99 22 9E 11 42 55 46 46 20 41 |......."..BUFF A|
00000ED0: 44 44 52 45 53 53 20 54 4F 20 4C 4F 57 05 22 3A |DDRESS TO LOW.":|
00000EE0: 81 54 44 B2 31 A4 32 30 30 30 3A 82 3A 99 22 93 |.TD.1.2000:.:.".|
00000EF0: 22 3A 89 31 32 30 3A 8E 00 30 17 F8 07 99 22 9E |":.120:..0....".|
00000F00: 11 42 55 46 46 20 41 44 44 52 45 53 53 20 54 4F |.BUFF ADDRESS TO|
00000F10: 20 48 49 47 48 05 22 3A 81 54 44 B2 31 A4 32 30 | HIGH.":.TD.1.20|
00000F20: 30 30 3A 82 3A 99 22 93 22 3A 89 31 32 30 3A 8E |00:.:.".":.120:.|
00000F30: 00 48 17 B8 0B 81 52 50 B2 31 A4 31 31 3A 87 45 |.H....RP.1.11:.E|
00000F40: 52 24 28 52 50 29 3A 82 00 8F 17 C2 0B 83 22 41 |R$(RP):......."A|
00000F50: 4C 4C 20 4F 4B 22 2C 22 4E 4F 20 48 45 41 44 45 |LL OK","NO HEADE|
00000F60: 52 20 46 4F 55 4E 44 22 2C 22 4E 4F 20 53 59 4E |R FOUND","NO SYN|
00000F70: 43 20 46 4F 55 4E 44 22 2C 22 44 41 54 41 20 42 |C FOUND","DATA B|
00000F80: 4C 4F 43 4B 20 4E 4F 54 20 46 4F 55 4E 44 22 00 |LOCK NOT FOUND".|
00000F90: D8 17 CC 0B 83 22 43 48 45 43 4B 53 55 4D 20 45 |....."CHECKSUM E|
00000FA0: 52 52 4F 52 20 49 4E 20 44 41 54 41 22 2C 22 42 |RROR IN DATA","B|
00000FB0: 59 54 45 20 44 45 43 4F 44 49 4E 47 20 45 52 52 |YTE DECODING ERR|
00000FC0: 4F 52 22 2C 22 57 52 49 54 45 20 56 45 52 49 46 |OR","WRITE VERIF|
00000FD0: 59 20 45 52 52 4F 52 22 00 1D 18 D6 0B 83 22 57 |Y ERROR"......"W|
00000FE0: 52 49 54 45 20 50 52 4F 54 45 43 54 20 4F 4E 22 |RITE PROTECT ON"|
00000FF0: 2C 22 43 48 45 43 4B 53 55 4D 20 45 52 52 4F 52 |,"CHECKSUM ERROR|
00001000: 20 49 4E 20 48 45 41 44 45 52 22 2C 22 4C 4F 4E | IN HEADER","LON|
00001010: 47 20 44 41 54 41 20 42 4C 4F 43 4B 22 00 35 18 |G DATA BLOCK".5.|
00001020: E0 0B 83 22 44 49 53 4B 20 49 44 20 4D 49 53 4D |..."DISK ID MISM|
00001030: 41 54 43 48 22 00 3D 18 EA 0B 8C 3A 8E 00 00 00 |ATCH".=....:....|
00001040: 41 00 81 |A.. |
.."....A.0.A.1:."MONITOR$8000",8,1.<....
A.1.A.2:."ZMACH",8,1.N....52,31:.56,31.]
.#..49152:.40...(..53280,11:.53281,11:.:
.ER$(11):.3000...-..".. DISKPICKER.
PSIDAC(C)84 VBN.".R.2..". ***
MENU ***"...<..".(1) TRANSFER DISK MEMO
RY TO BUFFER"...A..".(2) ENABLE MONITOR
MODE".H.F..".(3) TRANSFER BUFFER TO DISK
MEMORY".P.K..".(4) DIRECT EXECUTE USER
PROGRAM"...N..".(5) JOB QUE EXECUTE USER
PROGRAM"...P..".(6) LOAD SECTOR TO DISK
BUFFER"...R..".(7) INITIALIZE DISK IO".
..S..".(8) FORMAT DISKETTE"...U..".SELEC
T CHOICE";CH$:CH.E(CH$).,.X..CH.8.40.V.Z
..CH . 100,300,400,500,600,700,800,900.^
._..40...D.."..(1) TRANSFER DISK MEMORY
TO BUFFER":.2000...I..".INPUT DISK START
ADDRESS";X$:.1000:SA.X...N..".INPUT DIS
K END ADDRESS";X$:.1000:EA.X.%.X..".INPU
T BUFFER ADDRESS";X$:.1000:BA.X:.X.8192.
.2030.8.}..X.32767..2040.Y....".DISK MEM
. TO BUFF. TRANSFER IN PROCESS":.".BYTE
COUNT =";.....NB.EA.SA:SH..(SA.256):SL.S
A.(SH.256)......15,8,15:.LP.0.NB... ..15
,"M-R"G(SL)G(SH):.#15,A$:PN.F(A$.G(0))..
....BA,PN:BA.BA.1:SL.SL.1:.SL.256.SL.0:S
H.SH.1.'.....12)LP".":..R... 15:."..END
TRANSFER":.TD.1.3000:.:.40.W.,..".PRINTE
R Y/N";YN$:.YN$."Y".P.1......YN$.."Y".YN
$.."N".."...":.300...1..:.P.1..4,4:.4...
6..32768...@........"..(3) TRANSFER BUFF
ER TO DISK MEMORY":.2000......".INPUT DI
SK START ADDRESS";X$:.1000:SA.X.L....".I
NPUT DISK END ADDRESS";X$:.1000:EA.X....
..".INPUT BUFFER ADDRESS";X$:.1000:BA.X:
.X.8192..2030......X.32767..2040.Y....".
BUFF. TO DISK MEM. TRANSFER IN PROCESS":
.".BYTE COUNT =";.....NB.EA.SA:SH..(SA.2
56):SL.SA.(SH.256)...B..15,8,15:.LP.0.NB
.B.L.PN.B(BA):.15,"M-W"G(SL)G(SH)G(1)G(P
N).K.V.BA.BA.1:SL.SL.1:.SL.256.SL.0:SH.S
H.1.|.....12)LP".":...... 15:."..END TRA
NSFER":.TD.1.3000:.:.40.V...."..(4) DIRE
CT EXECUTE USER PROGRAM":.2000......".IN
PUT DISK PROG. ENTRY ADDRESS";X$:.1000:S
A.X.+...SH..(SA.256):SL.SA.(SH.256).P...
.15,8,15:.15,"M-E"G(SL)G(SH): 15......".
PROGRAM EXECUTION ENABLED": 15:.TD.1.300
0:.:.40...X.."..(5) JOB QUE EXECUTE USER
PROGRAM":.2000...]..".INPUT JOB CHOICE.
":."128=READ":."144=WRITE":."160=VERIFY"
.0.B.."176=SEEK":."184=SEC SEEK":."192=B
UMP":."208=JUMP".I.G.."224=EXECUTE":.".C
HOICE";CH$:CH.E(CH$):X$.CH$:.1100.X.I..C
H.0.600:...J..CH..224.640.N.L..".SELECT
EXECUTE STARTING ADDRESS":.".ADDRESSES A
VAILABLE ARE:"...Q..".(1)=0300":."(2)=04
00":."(3)=0500":."(4)=0600"...T.."(5)=07
00".3.V..".CHOICE";CH$:X$.CH$:.1100.Y.X.
C1.E(CH$):.C1.640,640,640,640,640.B.{..6
20.L....2000. ...."..INPUT HEADER #1 ";X
$:TN.E(X$):.X$."X"..1100.S....".INPUT HE
ADER #2 ";X$:SN.E(X$):.X$."X"..1100.....
.15,8,15......CH..224.655......C1.1..15,
"M-W"G(63)G(0)G(1)G(C1.1).J....C1..1..15
,"M-W"G(0)G(3)G(3)G(76)G(0)G(C1.2).I....
15,"M-W"G(6)G(0)G(1)G(TN)......15,"M-W"G
(7)G(0)G(1)G(SN)......15,"M-W"G(0)G(0)G(
1)G(CH).I....".PROGRAM EXECUTION ENABLED
"......15,"M-R"G(0)G(0):.#15,A$:OP.F(A$.
G(0)):.OP.127.675......".OP STATUS CODE
= "OP.1....".."ER$(OP)".".C... 15:.2000:
.40.Q...."..(6) LOAD SECTOR TO DISK BUFF
ER":.2000...A..".INPUT TRACK # ";X$:TN.E
(X$):.1100.D.F..".INPUT SECTOR # ";X$:SN
.E(X$):.1100...K..15,8,15:.2,8,2,"#"...P
..15,"U1:"2;0;TN;SN:.15,A$,B$,C$,D$:."."
A$,B$,C$,D$.$.U..TD.1.3000:..3.Z. 2: 15:
.40.M. ..15,8,15,"I0": 15:.40.{....".INS
ERT DISKETTE TO BE FORMATTED":.2000.....
.".DISKETTE NAME";X$:NM$.X$:.1100.K...."
.DISKETTE ID";X$:ID$.X$:.1100:.2000.....
.".FORMAT ENABLED PLEASE WAIT"."....15,8
,15:.15,"N0:"NM$;G(44);ID$:.15,A$,B$,C$,
D$.K...."."A$,B$,C$,D$: 15:.TD.1.3000:.:
.40.[....X$."X"..40.X....I.1.4:D$(I).J(X
$,I,1):.......I.1.4:D(I).E(D$(I))......D
$(I)."A".D(I).10......D$(I)."B".D(I).11.
V....D$(I)."C".D(I).12......D$(I)."D".D(
I).13......D$(I)."E".D(I).14......D$(I).
"F".D(I).15.!.....E.$.D(1).D(1).4096:D(2
).D(2).256:D(3).D(3).16:X.D(1).D(2).D(3)
.D(4).K.)...Z.L..X$.."X".....Q..40...P..
".CHECK DISK THEN PRESS F7"...Z..F7$:.F7
$..".".2010.A.........."..BUFF ADDRESS T
O LOW.":.TD.1.2000:.:.".":.120:..0....".
.BUFF ADDRESS TO HIGH.":.TD.1.2000:.:.".
":.120:..H....RP.1.11:.ER$(RP):....B.."A
LL OK","NO HEADER FOUND","NO SYNC FOUND"
,"DATA BLOCK NOT FOUND".X.L.."CHECKSUM E
RROR IN DATA","BYTE DECODING ERROR","WRI
TE VERIFY ERROR"...V.."WRITE PROTECT ON"
,"CHECKSUM ERROR IN HEADER","LONG DATA B
LOCK".5...."DISK ID MISMATCH".=....:....
A..
> CLICK IMAGE PREVIEW FOR FULL MODAL