DISKPICKER
FILE INFORMATION
FILENAME(S): DISKPICKER
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-12-01 00:58:19
APPEARS ON: 2 disk(s)
FILE HASH
bc66ba33780eeec84ce9a6bb17fa71456ecafc7ee562a1b27cb009e0db7dab82
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 72 A NYTTO | DISKPICKER | PRG | hedning, Beast | 21 | 1 | DOWNLOAD FILE |
| LASSES NYTTO PGR | DISKPICKER | PRG | hedning, Martin L0fgren | 20 | 1 | 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 91 11 82 |20.l....2000....|
00000970: 02 4F 4B 24 B2 22 4E 22 3A 85 22 11 4D 55 4C 54 |.OK$."N":.".MULT|
00000980: 49 20 53 45 43 54 4F 52 20 59 2F 4E 22 3B 4F 4B |I SECTOR Y/N";OK|
00000990: 24 00 C5 11 85 02 85 22 93 11 49 4E 50 55 54 20 |$......"..INPUT |
000009A0: 48 45 41 44 45 52 20 23 31 20 22 3B 58 24 3A 54 |HEADER #1 ";X$:T|
000009B0: 4E B2 C5 28 58 24 29 3A 8B 58 24 B2 22 58 22 A7 |N..(X$):.X$."X".|
000009C0: 8D 31 31 30 30 00 E3 11 88 02 8B 4F 4B 24 B2 22 |.1100......OK$."|
000009D0: 59 22 A7 81 53 4E B2 32 30 A4 30 A9 AB 31 3A 89 |Y"..SN.20.0..1:.|
000009E0: 36 35 31 00 16 12 8A 02 85 22 11 49 4E 50 55 54 |651......".INPUT|
000009F0: 20 48 45 41 44 45 52 20 23 32 20 22 3B 58 24 3A | HEADER #2 ";X$:|
00000A00: 53 4E B2 C5 28 58 24 29 3A 8B 58 24 B2 22 58 22 |SN..(X$):.X$."X"|
00000A10: A7 8D 31 31 30 30 00 23 12 8B 02 9F 31 35 2C 38 |..1100.#....15,8|
00000A20: 2C 31 35 00 34 12 8C 02 8B 43 48 B3 B1 32 32 34 |,15.4....CH..224|
00000A30: A7 36 35 35 00 5C 12 8D 02 8B 43 31 B2 31 A7 98 |.655.\....C1.1..|
00000A40: 31 35 2C 22 4D 2D 57 22 C7 28 36 33 29 C7 28 30 |15,"M-W".(63).(0|
00000A50: 29 C7 28 31 29 C7 28 43 31 AB 31 29 00 8D 12 8E |).(1).(C1.1)....|
00000A60: 02 8B 43 31 B3 B1 31 A7 98 31 35 2C 22 4D 2D 57 |..C1..1..15,"M-W|
00000A70: 22 C7 28 30 29 C7 28 33 29 C7 28 33 29 C7 28 37 |".(0).(3).(3).(7|
00000A80: 36 29 C7 28 30 29 C7 28 43 31 AA 32 29 00 AC 12 |6).(0).(C1.2)...|
00000A90: 8F 02 98 31 35 2C 22 4D 2D 57 22 C7 28 36 29 C7 |...15,"M-W".(6).|
00000AA0: 28 30 29 C7 28 31 29 C7 28 54 4E 29 00 CB 12 94 |(0).(1).(TN)....|
00000AB0: 02 98 31 35 2C 22 4D 2D 57 22 C7 28 37 29 C7 28 |..15,"M-W".(7).(|
00000AC0: 30 29 C7 28 31 29 C7 28 53 4E 29 00 EA 12 99 02 |0).(1).(SN).....|
00000AD0: 98 31 35 2C 22 4D 2D 57 22 C7 28 30 29 C7 28 30 |.15,"M-W".(0).(0|
00000AE0: 29 C7 28 31 29 C7 28 43 48 29 00 0C 13 9E 02 99 |).(1).(CH)......|
00000AF0: 22 11 50 52 4F 47 52 41 4D 20 45 58 45 43 55 54 |".PROGRAM EXECUT|
00000B00: 49 4F 4E 20 45 4E 41 42 4C 45 44 22 00 44 13 A3 |ION ENABLED".D..|
00000B10: 02 98 31 35 2C 22 4D 2D 52 22 C7 28 30 29 C7 28 |..15,"M-R".(0).(|
00000B20: 30 29 3A A1 23 31 35 2C 41 24 3A 4F 50 B2 C6 28 |0):.#15,A$:OP..(|
00000B30: 41 24 AA C7 28 30 29 29 3A 8B 4F 50 B1 31 32 37 |A$..(0)):.OP.127|
00000B40: A7 36 37 35 00 74 13 A8 02 99 22 11 54 52 4B 2E |.675.t....".TRK.|
00000B50: 22 54 4E 22 20 53 45 43 2E 22 53 4E 22 20 20 20 |"TN" SEC."SN" |
00000B60: 4F 50 20 53 54 41 54 55 53 20 43 4F 44 45 20 3D |OP STATUS CODE =|
00000B70: 20 22 4F 50 00 88 13 AD 02 99 22 9E 11 22 45 52 | "OP......".."ER|
00000B80: 24 28 4F 50 29 22 05 22 00 A5 13 B2 02 8B 4F 4B |$(OP)"."......OK|
00000B90: 24 B2 22 59 22 A7 A0 31 35 3A 82 3A 8D 32 30 30 |$."Y"..15:.:.200|
00000BA0: 30 3A 8A 34 30 00 B7 13 B7 02 A0 31 35 3A 8D 32 |0:.40......15:.2|
00000BB0: 30 30 30 3A 8A 34 30 00 E5 13 BC 02 99 22 93 11 |000:.40......"..|
00000BC0: 28 36 29 20 4C 4F 41 44 20 53 45 43 54 4F 52 20 |(6) LOAD SECTOR |
00000BD0: 54 4F 20 44 49 53 4B 20 42 55 46 46 45 52 22 3A |TO DISK BUFFER":|
00000BE0: 8D 32 30 30 30 00 0E 14 C1 02 85 22 11 49 4E 50 |.2000......".INP|
00000BF0: 55 54 20 54 52 41 43 4B 20 23 20 22 3B 58 24 3A |UT TRACK # ";X$:|
00000C00: 54 4E B2 C5 28 58 24 29 3A 8D 31 31 30 30 00 38 |TN..(X$):.1100.8|
00000C10: 14 C6 02 85 22 11 49 4E 50 55 54 20 53 45 43 54 |....".INPUT SECT|
00000C20: 4F 52 20 23 20 22 3B 58 24 3A 53 4E B2 C5 28 58 |OR # ";X$:SN..(X|
00000C30: 24 29 3A 8D 31 31 30 30 00 50 14 CB 02 9F 31 35 |$):.1100.P....15|
00000C40: 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 23 22 |,8,15:.2,8,2,"#"|
00000C50: 00 87 14 D0 02 98 31 35 2C 22 55 31 3A 22 32 3B |......15,"U1:"2;|
00000C60: 30 3B 54 4E 3B 53 4E 3A 84 31 35 2C 41 24 2C 42 |0;TN;SN:.15,A$,B|
00000C70: 24 2C 43 24 2C 44 24 3A 99 22 11 22 41 24 2C 42 |$,C$,D$:."."A$,B|
00000C80: 24 2C 43 24 2C 44 24 00 98 14 D5 02 81 54 44 B2 |$,C$,D$......TD.|
00000C90: 31 A4 33 30 30 30 3A 82 00 A7 14 DA 02 A0 32 3A |1.3000:.......2:|
00000CA0: A0 31 35 3A 8A 34 30 00 C1 14 20 03 9F 31 35 2C |.15:.40... ..15,|
00000CB0: 38 2C 31 35 2C 22 49 30 22 3A A0 31 35 3A 8A 34 |8,15,"I0":.15:.4|
00000CC0: 30 00 EF 14 84 03 99 22 93 49 4E 53 45 52 54 20 |0......".INSERT |
00000CD0: 44 49 53 4B 45 54 54 45 20 54 4F 20 42 45 20 46 |DISKETTE TO BE F|
00000CE0: 4F 52 4D 41 54 54 45 44 22 3A 8D 32 30 30 30 00 |ORMATTED":.2000.|
00000CF0: 15 15 89 03 85 22 11 44 49 53 4B 45 54 54 45 20 |.....".DISKETTE |
00000D00: 4E 41 4D 45 22 3B 58 24 3A 4E 4D 24 B2 58 24 3A |NAME";X$:NM$.X$:|
00000D10: 8D 31 31 30 30 00 3F 15 8E 03 85 22 11 44 49 53 |.1100.?....".DIS|
00000D20: 4B 45 54 54 45 20 49 44 22 3B 58 24 3A 49 44 24 |KETTE ID";X$:ID$|
00000D30: B2 58 24 3A 8D 31 31 30 30 3A 8D 32 30 30 30 00 |.X$:.1100:.2000.|
00000D40: 62 15 93 03 99 22 93 46 4F 52 4D 41 54 20 45 4E |b....".FORMAT EN|
00000D50: 41 42 4C 45 44 20 50 4C 45 41 53 45 20 57 41 49 |ABLED PLEASE WAI|
00000D60: 54 22 00 96 15 98 03 9F 31 35 2C 38 2C 31 35 3A |T"......15,8,15:|
00000D70: 98 31 35 2C 22 4E 30 3A 22 4E 4D 24 3B C7 28 34 |.15,"N0:"NM$;.(4|
00000D80: 34 29 3B 49 44 24 3A 84 31 35 2C 41 24 2C 42 24 |4);ID$:.15,A$,B$|
00000D90: 2C 43 24 2C 44 24 00 BF 15 A2 03 99 22 11 22 41 |,C$,D$......"."A|
00000DA0: 24 2C 42 24 2C 43 24 2C 44 24 3A A0 31 35 3A 81 |$,B$,C$,D$:.15:.|
00000DB0: 54 44 B2 31 A4 33 30 30 30 3A 82 3A 8A 34 30 00 |TD.1.3000:.:.40.|
00000DC0: CF 15 E8 03 8B 58 24 B2 22 58 22 A7 8A 34 30 00 |.....X$."X"..40.|
00000DD0: EC 15 ED 03 81 49 B2 31 A4 34 3A 44 24 28 49 29 |.....I.1.4:D$(I)|
00000DE0: B2 CA 28 58 24 2C 49 2C 31 29 3A 82 00 05 16 F2 |..(X$,I,1):.....|
00000DF0: 03 81 49 B2 31 A4 34 3A 44 28 49 29 B2 C5 28 44 |..I.1.4:D(I)..(D|
00000E00: 24 28 49 29 29 00 1C 16 FC 03 8B 44 24 28 49 29 |$(I))......D$(I)|
00000E10: B2 22 41 22 A7 44 28 49 29 B2 31 30 00 33 16 01 |."A".D(I).10.3..|
00000E20: 04 8B 44 24 28 49 29 B2 22 42 22 A7 44 28 49 29 |..D$(I)."B".D(I)|
00000E30: B2 31 31 00 4A 16 06 04 8B 44 24 28 49 29 B2 22 |.11.J....D$(I)."|
00000E40: 43 22 A7 44 28 49 29 B2 31 32 00 61 16 0B 04 8B |C".D(I).12.a....|
00000E50: 44 24 28 49 29 B2 22 44 22 A7 44 28 49 29 B2 31 |D$(I)."D".D(I).1|
00000E60: 33 00 78 16 10 04 8B 44 24 28 49 29 B2 22 45 22 |3.x....D$(I)."E"|
00000E70: A7 44 28 49 29 B2 31 34 00 8F 16 15 04 8B 44 24 |.D(I).14......D$|
00000E80: 28 49 29 B2 22 46 22 A7 44 28 49 29 B2 31 35 00 |(I)."F".D(I).15.|
00000E90: 95 16 1A 04 82 00 D9 16 24 04 44 28 31 29 B2 44 |........$.D(1).D|
00000EA0: 28 31 29 AC 34 30 39 36 3A 44 28 32 29 B2 44 28 |(1).4096:D(2).D(|
00000EB0: 32 29 AC 32 35 36 3A 44 28 33 29 B2 44 28 33 29 |2).256:D(3).D(3)|
00000EC0: AC 31 36 3A 58 B2 44 28 31 29 AA 44 28 32 29 AA |.16:X.D(1).D(2).|
00000ED0: 44 28 33 29 AA 44 28 34 29 00 DF 16 29 04 8E 00 |D(3).D(4)...)...|
00000EE0: EE 16 4C 04 8B 58 24 B3 B1 22 58 22 A7 8E 00 F6 |..L..X$.."X"....|
00000EF0: 16 51 04 8A 34 30 00 17 17 D0 07 99 22 11 43 48 |.Q..40......".CH|
00000F00: 45 43 4B 20 44 49 53 4B 20 54 48 45 4E 20 50 52 |ECK DISK THEN PR|
00000F10: 45 53 53 20 46 37 22 00 2F 17 DA 07 A1 46 37 24 |ESS F7"./....F7$|
00000F20: 3A 8B 46 37 24 B3 B1 22 88 22 A7 32 30 31 30 00 |:.F7$..".".2010.|
00000F30: 35 17 E4 07 8E 00 6D 17 EE 07 99 22 9E 11 42 55 |5.....m...."..BU|
00000F40: 46 46 20 41 44 44 52 45 53 53 20 54 4F 4F 20 4C |FF ADDRESS TOO L|
00000F50: 4F 57 05 22 3A 81 54 44 B2 31 A4 32 30 30 30 3A |OW.":.TD.1.2000:|
00000F60: 82 3A 99 22 93 22 3A 89 31 32 30 3A 8E 00 A6 17 |.:.".":.120:....|
00000F70: F8 07 99 22 9E 11 42 55 46 46 20 41 44 44 52 45 |..."..BUFF ADDRE|
00000F80: 53 53 20 54 4F 4F 20 48 49 47 48 05 22 3A 81 54 |SS TOO HIGH.":.T|
00000F90: 44 B2 31 A4 32 30 30 30 3A 82 3A 99 22 93 22 3A |D.1.2000:.:.".":|
00000FA0: 89 31 32 30 3A 8E 00 BE 17 B8 0B 81 52 50 B2 31 |.120:.......RP.1|
00000FB0: A4 31 31 3A 87 45 52 24 28 52 50 29 3A 82 00 05 |.11:.ER$(RP):...|
00000FC0: 18 C2 0B 83 22 41 4C 4C 20 4F 4B 22 2C 22 4E 4F |...."ALL OK","NO|
00000FD0: 20 48 45 41 44 45 52 20 46 4F 55 4E 44 22 2C 22 | HEADER FOUND","|
00000FE0: 4E 4F 20 53 59 4E 43 20 46 4F 55 4E 44 22 2C 22 |NO SYNC FOUND","|
00000FF0: 44 41 54 41 20 42 4C 4F 43 4B 20 4E 4F 54 20 46 |DATA BLOCK NOT F|
00001000: 4F 55 4E 44 22 00 4E 18 CC 0B 83 22 43 48 45 43 |OUND".N...."CHEC|
00001010: 4B 53 55 4D 20 45 52 52 4F 52 20 49 4E 20 44 41 |KSUM ERROR IN DA|
00001020: 54 41 22 2C 22 42 59 54 45 20 44 45 43 4F 44 49 |TA","BYTE DECODI|
00001030: 4E 47 20 45 52 52 4F 52 22 2C 22 57 52 49 54 45 |NG ERROR","WRITE|
00001040: 20 56 45 52 49 46 59 20 45 52 52 4F 52 22 00 93 | VERIFY ERROR"..|
00001050: 18 D6 0B 83 22 57 52 49 54 45 20 50 52 4F 54 45 |...."WRITE PROTE|
00001060: 43 54 20 4F 4E 22 2C 22 43 48 45 43 4B 53 55 4D |CT ON","CHECKSUM|
00001070: 20 45 52 52 4F 52 20 49 4E 20 48 45 41 44 45 52 | ERROR IN HEADER|
00001080: 22 2C 22 4C 4F 4E 47 20 44 41 54 41 20 42 4C 4F |","LONG DATA BLO|
00001090: 43 4B 22 00 AB 18 E0 0B 83 22 44 49 53 4B 20 49 |CK"......"DISK I|
000010A0: 44 20 4D 49 53 4D 41 54 43 48 22 00 B3 18 EA 0B |D MISMATCH".....|
000010B0: 8C 3A 8E 00 00 00 41 00 81 52 50 84 40 00 00 7F |.:....A..RP.@...|
.."....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.....OK$."N":.".MULTI SECTOR
Y/N";OK$.E...."..INPUT HEADER #1 ";X$:T
N.E(X$):.X$."X"..1100......OK$."Y"..SN.2
0.0..1:.651......".INPUT HEADER #2 ";X$:
SN.E(X$):.X$."X"..1100.#....15,8,15.4...
.CH..224.655.\....C1.1..15,"M-W"G(63)G(0
)G(1)G(C1.1)......C1..1..15,"M-W"G(0)G(3
)G(3)G(76)G(0)G(C1.2)......15,"M-W"G(6)G
(0)G(1)G(TN).K....15,"M-W"G(7)G(0)G(1)G(
SN)......15,"M-W"G(0)G(0)G(1)G(CH)......
".PROGRAM EXECUTION ENABLED".D....15,"M-
R"G(0)G(0):.#15,A$:OP.F(A$.G(0)):.OP.127
.675.T....".TRK."TN" SEC."SN" OP STATU
S CODE = "OP......".."ER$(OP)"."......OK
$."Y". 15:.:.2000:.40..... 15:.2000:.40.
....."..(6) LOAD SECTOR TO DISK BUFFER":
.2000...A..".INPUT TRACK # ";X$:TN.E(X$)
:.1100.8.F..".INPUT SECTOR # ";X$:SN.E(X
$):.1100.P.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:....Z. 2: 15:.40.
A. ..15,8,15,"I0": 15:.40......".INSERT
DISKETTE TO BE FORMATTED":.2000......".D
ISKETTE NAME";X$:NM$.X$:.1100.?....".DIS
KETTE ID";X$:ID$.X$:.1100:.2000.B....".F
ORMAT ENABLED PLEASE WAIT"......15,8,15:
.15,"N0:"NM$;G(44);ID$:.15,A$,B$,C$,D$..
...."."A$,B$,C$,D$: 15:.TD.1.3000:.:.40.
O....X$."X"..40......I.1.4:D$(I).J(X$,I,
1):.......I.1.4:D(I).E(D$(I))......D$(I)
."A".D(I).10.3....D$(I)."B".D(I).11.J...
.D$(I)."C".D(I).12.A....D$(I)."D".D(I).1
3.X....D$(I)."E".D(I).14......D$(I)."F".
D(I).15.......Y.$.D(1).D(1).4096:D(2).D(
2).256:D(3).D(3).16:X.D(1).D(2).D(3).D(4
)...).....L..X$.."X".....Q..40...P..".CH
ECK DISK THEN PRESS F7"./.Z..F7$:.F7$.."
.".2010.5.....M...."..BUFF ADDRESS TOO L
OW.":.TD.1.2000:.:.".":.120:......."..BU
FF ADDRESS TOO HIGH.":.TD.1.2000:.:.".":
.120:.......RP.1.11:.ER$(RP):....B.."ALL
OK","NO HEADER FOUND","NO SYNC FOUND","
DATA BLOCK NOT FOUND".N.L.."CHECKSUM ERR
OR IN DATA","BYTE DECODING ERROR","WRITE
VERIFY ERROR"...V.."WRITE PROTECT ON","
CHECKSUM ERROR IN HEADER","LONG DATA BLO
CK"......"DISK ID MISMATCH"......:....A.
.RP.@..
> CLICK IMAGE PREVIEW FOR FULL MODAL