Multiple names: VDC RDEXT.S, VDC RDEXT2.S
FILE INFORMATION
FILENAME(S):
• VDC RDEXT.S<br>• VDC RDEXT2.S
FILE TYPE(S): PRG
FILE SIZE: 16.9K
FIRST SEEN: 2025-11-30 16:45:35
APPEARS ON: 2 disk(s)
FILE HASH
0591890d9e1833197caf3d7ead0689f79169e7c822553836bec78517a9824a41
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | VDC RDEXT.S | PRG | High Voltage Complete C64 Collection | 4 | 2 | DOWNLOAD FILE |
| UTILITY 1 | VDC RDEXT2.S | PRG | marcus | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 64 00 9E 37 30 30 00 15 08 65 00 2E |....d..700...e..|
00000010: 4F 50 54 20 50 00 21 08 66 00 AC B2 24 42 38 42 |OPT P.!.f...$B8B|
00000020: 30 00 3C 08 67 00 80 43 48 52 20 B2 20 24 30 38 |0.<.g..CHR . $08|
00000030: 3A 43 4F 55 4E 54 20 B2 20 24 30 42 00 58 08 68 |:COUNT . $0B.X.h|
00000040: 00 C5 54 59 50 20 B2 20 24 30 44 3A 47 41 52 42 |..TYP . $0D:GARB|
00000050: 46 4C 20 B2 20 24 30 46 00 73 08 69 00 49 4E 44 |FL . $0F.s.i.IND|
00000060: 45 58 20 B2 20 24 32 32 3A 81 50 4E 54 20 B2 20 |EX . $22:.PNT . |
00000070: 24 34 39 00 8F 08 6A 00 4A 4D 50 45 52 20 B2 20 |$49...j.JMPER . |
00000080: 24 35 34 3A 46 41 43 48 4F 20 B2 20 24 36 32 00 |$54:FACHO . $62.|
00000090: AB 08 6B 00 46 42 55 46 50 54 20 B2 20 24 37 31 |..k.FBUFPT . $71|
000000A0: 3A 43 48 52 A1 20 B2 20 24 37 33 00 C8 08 6C 00 |:CHR. . $73...l.|
000000B0: 43 48 52 CB 54 20 B2 20 24 37 39 3A 54 58 54 50 |CHR.T . $79:TXTP|
000000C0: 54 52 20 B2 20 24 37 41 00 E1 08 6D 00 4C 44 54 |TR . $7A...m.LDT|
000000D0: 42 31 20 B2 20 24 44 39 3A 5A 50 20 B2 20 24 46 |B1 . $D9:ZP . $F|
000000E0: 42 00 FE 08 6E 00 42 55 46 20 B2 20 24 32 30 30 |B...n.BUF . $200|
000000F0: 3A 56 45 43 53 41 56 20 B2 20 24 32 41 37 00 1D |:VECSAV . $2A7..|
00000100: 09 6F 00 49 43 52 4E 43 48 20 B2 20 24 33 30 34 |.o.ICRNCH . $304|
00000110: 3A 45 52 52 B0 20 B2 20 24 41 34 33 37 00 3E 09 |:ERR. . $A437.>.|
00000120: 70 00 4C 49 4E 4B 50 47 20 B2 20 24 41 35 33 33 |p.LINKPG . $A533|
00000130: 3A 43 52 4E 43 48 20 B2 20 24 41 35 37 43 00 5E |:CRNCH . $A57C.^|
00000140: 09 71 00 50 4C 4F 4F 50 20 B2 20 24 41 36 46 33 |.q.PLOOP . $A6F3|
00000150: 3A 50 52 49 54 34 20 B2 20 24 41 36 45 46 00 7D |:PRIT4 . $A6EF.}|
00000160: 09 72 00 51 50 4C 4F 50 20 B2 20 24 41 37 31 41 |.r.QPLOP . $A71A|
00000170: 3A A2 53 54 54 20 B2 20 24 41 37 41 45 00 9B 09 |:.STT . $A7AE...|
00000180: 73 00 CB 4E 45 20 B2 20 24 41 37 45 34 3A 4F 55 |s..NE . $A7E4:OU|
00000190: 54 44 4F 20 B2 20 24 41 42 34 37 00 BD 09 74 00 |TDO . $AB47...t.|
000001A0: 43 48 4B 4E 55 4D 20 B2 20 24 41 44 38 44 3A 46 |CHKNUM . $AD8D:F|
000001B0: 52 4D 45 56 4C 20 B2 20 24 41 44 39 45 00 DB 09 |RMEVL . $AD9E...|
000001C0: 75 00 45 C5 20 B2 20 24 41 45 38 36 3A 50 41 52 |u.E. . $AE86:PAR|
000001D0: 43 48 4B 20 B2 20 24 41 45 46 31 00 FB 09 76 00 |CHK . $AEF1...v.|
000001E0: 43 48 4B 43 4F 4D 20 B2 20 24 41 45 46 44 3A B8 |CHKCOM . $AEFD:.|
000001F0: 53 54 52 20 B2 20 24 42 36 41 33 00 19 0A 77 00 |STR . $B6A3...w.|
00000200: A1 4E 55 4D 20 B2 20 24 42 37 45 42 3A A1 41 44 |.NUM . $B7EB:.AD|
00000210: 52 20 B2 20 24 42 37 46 37 00 39 0A 78 00 46 4C |R . $B7F7.9.x.FL|
00000220: 4F 41 54 43 20 B2 20 24 42 43 34 39 3A 4F 55 54 |OATC . $BC49:OUT|
00000230: B5 20 B2 20 24 42 44 43 44 00 53 0A 79 00 A2 A4 |. . $BDCD.S.y...|
00000240: 4B 20 B2 20 24 43 43 3A 44 41 54 A4 4B 20 B2 20 |K . $CC:DAT.K . |
00000250: 24 34 39 00 6F 0A 7A 00 8F 54 4F 4B 20 3D 20 24 |$49.o.z..TOK = $|
00000260: 35 35 3A 46 55 4E 54 4F 4B 20 3D 20 24 44 30 00 |55:FUNTOK = $D0.|
00000270: 75 0A 7B 00 3B 00 91 0A 7C 00 3B 52 41 4D 20 44 |u.{.;...|.;RAM D|
00000280: 49 53 4B 20 46 49 C3 41 4D 45 20 42 55 46 46 45 |ISK FI.AME BUFFE|
00000290: 52 00 97 0A 7D 00 3B 00 A7 0A 7E 00 46 49 4C 4E |R...}.;...~.FILN|
000002A0: 41 4D 45 20 B2 20 AC 00 C1 0A 7F 00 2E C6 20 22 |AME . ........ "|
000002B0: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |@@@@@@@@@@@@@@@@|
000002C0: 22 00 D7 0A 80 00 A5 53 49 5A 45 20 B2 20 AC AB |"......SIZE . ..|
000002D0: 46 49 4C 4E 41 4D 45 00 DD 0A 81 00 3B 00 F4 0A |FILNAME.....;...|
000002E0: 82 00 3B 52 41 4D 20 44 49 53 4B 20 44 49 52 45 |..;RAM DISK DIRE|
000002F0: 43 A4 52 59 00 FA 0A 83 00 3B 00 0A 0B 84 00 44 |C.RY.....;.....D|
00000300: 49 52 42 55 46 46 20 B2 20 AC 00 24 0B 85 00 2E |IRBUFF . ..$....|
00000310: C6 20 22 40 40 40 40 40 40 40 40 40 40 40 40 40 |. "@@@@@@@@@@@@@|
00000320: 40 40 40 22 00 3E 0B 86 00 2E C6 20 22 40 40 40 |@@@".>..... "@@@|
00000330: 40 40 40 40 40 40 40 40 40 40 40 40 40 22 00 58 |@@@@@@@@@@@@@".X|
00000340: 0B 87 00 2E C6 20 22 40 40 40 40 40 40 40 40 40 |..... "@@@@@@@@@|
00000350: 40 40 40 40 40 40 40 22 00 72 0B 88 00 2E C6 20 |@@@@@@@".r..... |
00000360: 22 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |"@@@@@@@@@@@@@@@|
00000370: 40 22 00 8C 0B 89 00 2E C6 20 22 40 40 40 40 40 |@"....... "@@@@@|
00000380: 40 40 40 40 40 40 40 40 40 40 40 22 00 A6 0B 8A |@@@@@@@@@@@"....|
00000390: 00 2E C6 20 22 40 40 40 40 40 40 40 40 40 40 40 |... "@@@@@@@@@@@|
000003A0: 40 40 40 40 40 22 00 C0 0B 8B 00 2E C6 20 22 40 |@@@@@"....... "@|
000003B0: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 22 |@@@@@@@@@@@@@@@"|
000003C0: 00 DA 0B 8C 00 2E C6 20 22 40 40 40 40 40 40 40 |....... "@@@@@@@|
000003D0: 40 40 40 40 40 40 40 40 40 22 00 F4 0B 8D 00 2E |@@@@@@@@@"......|
000003E0: C6 20 22 40 40 40 40 40 40 40 40 40 40 40 40 40 |. "@@@@@@@@@@@@@|
000003F0: 40 40 40 22 00 0E 0C 8E 00 2E C6 20 22 40 40 40 |@@@"....... "@@@|
00000400: 40 40 40 40 40 40 40 40 40 40 40 40 40 22 00 28 |@@@@@@@@@@@@@".(|
00000410: 0C 8F 00 2E C6 20 22 40 40 40 40 40 40 40 40 40 |..... "@@@@@@@@@|
00000420: 40 40 40 40 40 40 40 22 00 42 0C 90 00 2E C6 20 |@@@@@@@".B..... |
00000430: 22 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 |"@@@@@@@@@@@@@@@|
00000440: 40 22 00 5C 0C 91 00 2E C6 20 22 40 40 40 40 40 |@".\..... "@@@@@|
00000450: 40 40 40 40 40 40 40 40 40 40 40 22 00 76 0C 92 |@@@@@@@@@@@".v..|
00000460: 00 2E C6 20 22 40 40 40 40 40 40 40 40 40 40 40 |... "@@@@@@@@@@@|
00000470: 40 40 40 40 40 22 00 90 0C 93 00 2E C6 20 22 40 |@@@@@"....... "@|
00000480: 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 22 |@@@@@@@@@@@@@@@"|
00000490: 00 A6 0C 94 00 42 55 4D 41 58 20 B2 20 AC AB 44 |.....BUMAX . ..D|
000004A0: 49 52 42 55 46 46 00 AC 0C 95 00 3B 00 CB 0C 96 |IRBUFF.....;....|
000004B0: 00 3B 4D 41 58 20 4E 55 4D 42 45 52 20 4F 46 20 |.;MAX NUMBER OF |
000004C0: 44 49 52 20 45 4E 54 52 49 45 53 00 D1 0C 97 00 |DIR ENTRIES.....|
000004D0: 3B 00 DF 0C 98 00 A5 4D 41 58 20 B2 20 31 35 00 |;......MAX . 15.|
000004E0: E5 0C 99 00 3B 00 00 0D 9A 00 3B 52 41 4D 20 44 |....;.....;RAM D|
000004F0: 49 53 4B 20 46 49 4C 45 20 45 4E 54 52 49 45 53 |ISK FILE ENTRIES|
00000500: 00 19 0D 9B 00 3B 43 B0 52 45 53 50 91 44 20 31 |.....;C.RESP.D 1|
00000510: 20 A4 20 31 20 57 49 54 48 00 35 0D 9C 00 3B 46 | . 1 WITH.5...;F|
00000520: 49 C3 41 4D 45 53 2C 20 46 49 52 53 54 20 32 20 |I.AMES, FIRST 2 |
00000530: 42 59 54 45 53 00 4E 0D 9D 00 3B 45 51 55 41 4C |BYTES.N...;EQUAL|
00000540: 53 20 46 49 4C 45 20 C3 47 54 48 2C 20 82 00 6A |S FILE .GTH, ..j|
00000550: 0D 9E 00 3B 32 20 42 59 54 45 53 20 45 51 55 41 |...;2 BYTES EQUA|
00000560: 4C 20 53 54 41 52 54 49 4E 47 00 82 0D 9F 00 3B |L STARTING.....;|
00000570: B9 49 54 49 91 20 49 4E 20 36 34 20 52 41 4D 2C |.ITI. IN 64 RAM,|
00000580: 20 82 00 9E 0D A0 00 3B 32 20 42 59 54 45 53 20 | ......;2 BYTES |
00000590: 45 51 55 41 4C 20 53 54 41 52 54 49 4E 47 00 B4 |EQUAL STARTING..|
000005A0: 0D A1 00 3B B9 49 54 49 91 20 49 4E 20 56 44 43 |...;.ITI. IN VDC|
000005B0: 20 52 41 4D 00 D0 0D A2 00 3B 54 48 49 53 20 49 | RAM.....;THIS I|
000005C0: 53 20 54 48 45 20 53 41 4D 45 20 81 20 41 4C 4C |S THE SAME . ALL|
000005D0: 00 ED 0D A3 00 3B 31 35 20 52 41 4D 44 49 53 4B |.....;15 RAMDISK|
000005E0: 20 46 49 4C 45 20 45 4E 54 52 49 45 53 00 F3 0D | FILE ENTRIES...|
000005F0: A4 00 3B 00 02 0E A5 00 44 49 52 42 59 54 20 B2 |..;.....DIRBYT .|
00000600: 20 AC 00 18 0E A6 00 2E 42 59 54 45 20 30 2C 30 | .......BYTE 0,0|
00000610: 2C 30 2C 30 2C 30 2C 30 00 2A 0E A7 00 4D 41 58 |,0,0,0,0.*...MAX|
00000620: 20 B2 AC AB 44 49 52 42 59 54 00 40 0E A8 00 2E | ...DIRBYT.@....|
00000630: 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |BYTE 0,0,0,0,0,0|
00000640: 00 56 0E A9 00 2E 42 59 54 45 20 30 2C 30 2C 30 |.V....BYTE 0,0,0|
00000650: 2C 30 2C 30 2C 30 00 6C 0E AA 00 2E 42 59 54 45 |,0,0,0.l....BYTE|
00000660: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 82 0E AB | 0,0,0,0,0,0....|
00000670: 00 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 |..BYTE 0,0,0,0,0|
00000680: 2C 30 00 98 0E AC 00 2E 42 59 54 45 20 30 2C 30 |,0......BYTE 0,0|
00000690: 2C 30 2C 30 2C 30 2C 30 00 AE 0E AD 00 2E 42 59 |,0,0,0,0......BY|
000006A0: 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 C4 |TE 0,0,0,0,0,0..|
000006B0: 0E AE 00 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 |....BYTE 0,0,0,0|
000006C0: 2C 30 2C 30 00 DA 0E AF 00 2E 42 59 54 45 20 30 |,0,0......BYTE 0|
000006D0: 2C 30 2C 30 2C 30 2C 30 2C 30 00 F0 0E B0 00 2E |,0,0,0,0,0......|
000006E0: 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |BYTE 0,0,0,0,0,0|
000006F0: 00 06 0F B1 00 2E 42 59 54 45 20 30 2C 30 2C 30 |......BYTE 0,0,0|
00000700: 2C 30 2C 30 2C 30 00 1C 0F B2 00 2E 42 59 54 45 |,0,0,0......BYTE|
00000710: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 32 0F B3 | 0,0,0,0,0,0.2..|
00000720: 00 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 |..BYTE 0,0,0,0,0|
00000730: 2C 30 00 48 0F B4 00 2E 42 59 54 45 20 30 2C 30 |,0.H....BYTE 0,0|
00000740: 2C 30 2C 30 2C 30 2C 30 00 5E 0F B5 00 2E 42 59 |,0,0,0,0.^....BY|
00000750: 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 00 73 |TE 0,0,0,0,0,0.s|
00000760: 0F B6 00 42 59 4D 41 58 20 B2 20 AC AB 44 49 52 |...BYMAX . ..DIR|
00000770: 42 59 54 00 79 0F B7 00 3B 00 90 0F B8 00 3B 82 |BYT.y...;.....;.|
00000780: 20 41 56 41 49 4C 41 42 4C 45 20 B9 49 54 49 91 | AVAILABLE .ITI.|
00000790: 00 A1 0F B9 00 3B 49 4E 20 52 41 4D 20 44 49 53 |.....;IN RAM DIS|
000007A0: 4B 00 A7 0F BA 00 3B 00 BC 0F BB 00 4E 44 42 59 |K.....;.....NDBY|
000007B0: 54 45 20 2E 42 59 54 45 20 30 2C 30 00 C2 0F BC |TE .BYTE 0,0....|
000007C0: 00 3B 00 DC 0F BD 00 3B 4D 49 53 43 2E 20 50 4F |.;.....;MISC. PO|
000007D0: B5 45 52 53 20 AF 20 46 4C 41 47 53 00 E2 0F BE |.ERS . FLAGS....|
000007E0: 00 3B 00 F5 0F BF 00 46 4C 41 47 31 36 20 2E 42 |.;.....FLAG16 .B|
000007F0: 59 54 45 20 30 00 0A 10 C0 00 4D 45 4D 4D 41 58 |YTE 0.....MEMMAX|
00000800: 20 2E 42 59 54 45 20 30 2C 30 00 1B 10 C1 00 80 | .BYTE 0,0......|
00000810: 50 20 2E 42 59 54 45 20 30 2C 30 00 32 10 C2 00 |P .BYTE 0,0.2...|
00000820: 52 45 53 55 4C 54 20 2E 42 59 54 45 20 30 2C 30 |RESULT .BYTE 0,0|
00000830: 2C 30 00 46 10 C3 00 52 4D 53 52 54 20 2E 42 59 |,0.F...RMSRT .BY|
00000840: 54 45 20 30 2C 30 00 57 10 C4 00 54 45 4D 50 20 |TE 0,0.W...TEMP |
00000850: 2E 42 59 54 45 20 30 00 67 10 C5 00 46 C3 4E 20 |.BYTE 0.g...F.N |
00000860: 2E 42 59 54 45 20 30 00 78 10 C6 00 44 49 52 B9 |.BYTE 0.x...DIR.|
00000870: 20 2E 42 59 54 45 20 30 00 7E 10 C7 00 3B 00 9B | .BYTE 0.~...;..|
00000880: 10 C8 00 3B 41 44 44 52 45 53 53 20 4F 46 20 42 |...;ADDRESS OF B|
00000890: 4C 4F 43 4B 20 A4 20 4D 4F 56 45 00 A1 10 C9 00 |LOCK . MOVE.....|
000008A0: 3B 00 B6 10 CA 00 42 4C 4F 43 4B 31 20 2E 42 59 |;.....BLOCK1 .BY|
000008B0: 54 45 20 30 2C 30 00 BC 10 CB 00 3B 00 DB 10 CC |TE 0,0.....;....|
000008C0: 00 3B 41 44 44 52 45 53 53 20 4F 46 20 42 4C 4F |.;ADDRESS OF BLO|
000008D0: 43 4B 20 A4 20 4D 4F 56 45 20 A4 00 E1 10 CD 00 |CK . MOVE ......|
000008E0: 3B 00 F6 10 CE 00 42 4C 4F 43 4B 32 20 2E 42 59 |;.....BLOCK2 .BY|
000008F0: 54 45 20 30 2C 30 00 FC 10 CF 00 3B 00 18 11 D0 |TE 0,0.....;....|
00000900: 00 3B 4E 55 4D 42 45 52 20 4F 46 20 42 59 54 45 |.;NUMBER OF BYTE|
00000910: 53 20 A4 20 4D 4F 56 45 00 1E 11 D1 00 3B 00 33 |S . MOVE.....;.3|
00000920: 11 D2 00 4E 55 4D 42 45 52 20 2E 42 59 54 45 20 |...NUMBER .BYTE |
00000930: 30 2C 30 00 39 11 D3 00 3B 00 5C 11 D4 00 3B 43 |0,0.9...;.\...;C|
00000940: 4F 55 4E 54 20 81 20 8F 41 49 4E 49 4E 47 20 42 |OUNT . .AINING B|
00000950: 59 54 45 53 20 54 4F 20 4D 4F 56 45 00 62 11 D5 |YTES TO MOVE.b..|
00000960: 00 3B 00 78 11 D6 00 43 4F 55 4E 54 45 52 20 2E |.;.x...COUNTER .|
00000970: 42 59 54 45 20 30 2C 30 00 7E 11 D7 00 3B 00 98 |BYTE 0,0.~...;..|
00000980: 11 D8 00 3B 45 52 52 B0 20 4D 45 53 53 41 47 45 |...;ERR. MESSAGE|
00000990: 20 52 4F 55 54 49 4E 45 00 9E 11 D9 00 3B 00 BB | ROUTINE.....;..|
000009A0: 11 DA 00 4C 91 45 52 52 20 4C 44 41 20 23 24 30 |...L.ERR LDA #$0|
000009B0: 30 3A 2E 42 59 54 45 20 24 32 43 00 D9 11 DB 00 |0:.BYTE $2C.....|
000009C0: 46 55 4C 45 52 52 20 4C 44 41 20 23 24 30 31 3A |FULERR LDA #$01:|
000009D0: 2E 42 59 54 45 20 24 32 43 00 F7 11 DC 00 45 58 |.BYTE $2C.....EX|
000009E0: 54 45 52 52 20 4C 44 41 20 23 24 30 32 3A 2E 42 |TERR LDA #$02:.B|
000009F0: 59 54 45 20 24 32 43 00 0A 12 DD 00 A5 46 45 52 |YTE $2C......FER|
00000A00: 52 20 4C 44 41 20 23 24 30 33 00 2A 12 DE 00 45 |R LDA #$03.*...E|
00000A10: 52 52 52 4F 55 20 41 53 4C 3A 54 41 58 3A 4C 44 |RRROU ASL:TAX:LD|
00000A20: 41 20 45 52 52 56 45 43 2C 58 00 4E 12 DF 00 3A |A ERRVEC,X.N...:|
00000A30: 20 20 20 20 20 20 53 54 41 20 49 4E 44 45 58 3A | STA INDEX:|
00000A40: 4C 44 41 20 45 52 52 56 45 43 AA 31 2C 58 00 6F |LDA ERRVEC.1,X.o|
00000A50: 12 E0 00 3A 20 20 20 20 20 20 53 54 41 20 49 4E |...: STA IN|
00000A60: 44 45 58 AA 31 3A 4A 4D 50 20 44 4F 45 52 B0 00 |DEX.1:JMP DOER..|
00000A70: 84 12 E1 00 45 52 52 56 45 43 20 2E 57 B0 44 20 |....ERRVEC .W.D |
00000A80: 54 4C 91 47 00 9D 12 E2 00 3A 20 20 20 20 20 20 |TL.G.....: |
00000A90: 2E 57 B0 44 20 46 55 4C 4C 4D 45 53 53 00 B2 12 |.W.D FULLMESS...|
00000AA0: E3 00 3A 20 20 20 20 20 20 2E 57 B0 44 20 46 41 |..: .W.D FA|
00000AB0: 4C 87 00 C9 12 E4 00 3A 20 20 20 20 20 20 2E 57 |L......: .W|
00000AC0: B0 44 20 A5 46 4D 45 53 53 00 CF 12 E5 00 3B 00 |.D .FMESS.....;.|
00000AD0: EC 12 E6 00 3B 52 41 4D 20 44 49 53 4B 20 43 41 |....;RAM DISK CA|
00000AE0: 54 41 BC 20 4D 45 53 53 41 47 45 53 00 F2 12 E7 |TA. MESSAGES....|
00000AF0: 00 3B 00 10 13 E8 00 2E C6 20 22 36 34 20 4D 4F |.;....... "64 MO|
00000B00: 44 45 20 56 44 43 20 52 41 4D 20 44 49 53 4B 22 |DE VDC RAM DISK"|
00000B10: 00 20 13 E9 00 2E C6 20 22 20 46 52 4F 4D 20 22 |. ..... " FROM "|
00000B20: 00 30 13 EA 00 2E C6 20 22 44 42 53 4F 46 54 22 |.0..... "DBSOFT"|
00000B30: 00 3D 13 EB 00 44 49 52 54 49 20 B2 AC 00 63 13 |.=...DIRTI ...c.|
00000B40: EC 00 2E C6 20 22 20 20 12 20 46 49 4C 45 4E 41 |.... " . FILENA|
00000B50: 4D 45 20 92 20 20 20 20 20 12 20 53 54 41 52 54 |ME . . START|
00000B60: 20 92 22 00 83 13 ED 00 2E C6 20 22 20 20 20 12 | ."....... " .|
00000B70: 20 4C 45 4E 47 54 48 20 92 22 3A 2E 42 59 54 45 | LENGTH .":.BYTE|
00000B80: 20 31 33 00 A8 13 EE 00 2E C6 20 22 2D 2D 2D 2D | 13....... "----|
00000B90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000BA0: 2D 2D 2D 2D 2D 2D 2D 22 00 C7 13 EF 00 2E C6 20 |-------"....... |
00000BB0: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A |"-------------":|
00000BC0: 2E 42 59 54 45 20 30 00 D3 13 F0 00 44 49 8F 50 |.BYTE 0.....DI.P|
00000BD0: 20 3D 2A 00 F1 13 F1 00 2E C6 20 22 4E 4F 20 46 | =*....... "NO F|
00000BE0: 49 4C 45 53 20 49 4E 20 52 41 4D 20 44 49 53 4B |ILES IN RAM DISK|
00000BF0: 22 00 FD 13 F2 00 2E 42 59 54 45 20 30 00 09 14 |"......BYTE 0...|
00000C00: F3 00 56 44 43 B8 20 B2 AC 00 2D 14 F4 00 2E C6 |..VDC. ...-.....|
00000C10: 20 22 20 12 20 42 59 54 45 53 20 46 52 45 45 20 | " . BYTES FREE |
00000C20: 92 22 3A 2E 42 59 54 45 20 31 33 2C 30 00 33 14 |.":.BYTE 13,0.3.|
00000C30: F5 00 3B 00 50 14 F6 00 3B 43 48 45 43 4B 20 41 |..;.P...;CHECK A|
00000C40: 4D 4F 55 4E 54 20 4F 46 20 4D 45 4D B0 59 20 A7 |MOUNT OF MEM.Y .|
00000C50: 00 70 14 F7 00 3B 41 44 4A 55 53 54 20 A4 50 20 |.p...;ADJUST .P |
00000C60: 4F 46 20 52 41 4D 44 49 53 4B 20 4D 45 4D B0 59 |OF RAMDISK MEM.Y|
00000C70: 00 76 14 F8 00 3B 00 9A 14 F9 00 43 48 4B 4D 45 |.v...;.....CHKME|
00000C80: 4D 20 4C 44 41 20 23 B3 36 35 35 33 35 3A 53 54 |M LDA #.65535:ST|
00000C90: 41 20 56 44 43 4C 4F 42 59 54 00 BE 14 FA 00 3A |A VDCLOBYT.....:|
00000CA0: 20 20 20 20 20 20 4C 44 41 20 23 B1 36 35 35 33 | LDA #.6553|
00000CB0: 35 3A 53 54 41 20 56 44 43 48 49 42 59 54 00 DB |5:STA VDCHIBYT..|
00000CC0: 14 FB 00 3A 20 20 20 20 20 20 4C 44 41 20 23 32 |...: LDA #2|
00000CD0: 31 39 3A 53 54 41 20 56 44 43 83 00 F9 14 FC 00 |19:STA VDC......|
00000CE0: 3A 20 20 20 20 20 20 4A 53 52 20 97 31 3A 4C 44 |: JSR .1:LD|
00000CF0: 41 20 23 B3 33 32 37 36 37 00 1D 15 FD 00 3A 20 |A #.32767.....: |
00000D00: 20 20 20 20 20 53 54 41 20 56 44 43 4C 4F 42 59 | STA VDCLOBY|
00000D10: 54 3A 4C 44 41 20 23 B1 33 32 37 36 37 00 3C 15 |T:LDA #.32767.<.|
00000D20: FE 00 3A 20 20 20 20 20 20 53 54 41 20 56 44 43 |..: STA VDC|
00000D30: 48 49 42 59 54 3A 4A 53 52 20 C2 31 00 5A 15 FF |HIBYT:JSR .1.Z..|
00000D40: 00 3A 20 20 20 20 20 20 43 4D 50 20 23 32 31 39 |.: CMP #219|
00000D50: 3A 42 45 51 20 91 4C 59 31 36 00 7A 15 00 01 CB |:BEQ .LY16.z....|
00000D60: 4F 44 36 34 20 4C 44 41 20 23 32 35 35 3A 53 54 |OD64 LDA #255:ST|
00000D70: 41 20 4D 45 4D 4D 41 58 AA 31 00 9B 15 01 01 3A |A MEMMAX.1.....:|
00000D80: 20 20 20 20 20 20 53 54 41 20 4D 45 4D 4D 41 58 | STA MEMMAX|
00000D90: 3A 4A 53 52 20 52 45 47 32 38 53 00 B9 15 02 01 |:JSR REG28S.....|
00000DA0: 3A 20 20 20 20 20 20 4C 44 41 20 35 34 37 38 35 |: LDA 54785|
00000DB0: 3A 43 4D 50 20 23 32 35 35 00 DA 15 03 01 3A 20 |:CMP #255.....: |
00000DC0: 20 20 20 20 20 42 45 51 20 43 4D 45 58 49 54 3A | BEQ CMEXIT:|
00000DD0: 4A 53 52 20 52 45 47 32 38 53 00 FB 15 04 01 3A |JSR REG28S.....:|
00000DE0: 20 20 20 20 20 20 4C 44 41 20 23 36 33 3A 53 54 | LDA #63:ST|
00000DF0: 41 20 35 34 37 38 35 3A 52 54 53 00 1A 16 05 01 |A 54785:RTS.....|
00000E00: 91 4C 59 31 36 20 4C 44 41 20 23 36 34 3A 53 54 |.LY16 LDA #64:ST|
00000E10: 41 20 4D 45 4D 4D 41 58 AA 31 00 37 16 06 01 3A |A MEMMAX.1.7...:|
00000E20: 20 20 20 20 20 20 4C 44 41 20 23 31 3A 53 54 41 | LDA #1:STA|
00000E30: 20 46 4C 41 47 31 36 00 46 16 07 01 43 4D 45 58 | FLAG16.F...CMEX|
00000E40: 49 54 20 52 54 53 00 6A 16 08 01 52 45 47 32 38 |IT RTS.j...REG28|
00000E50: 53 20 4C 44 41 20 23 32 38 3A 53 54 41 20 35 34 |S LDA #28:STA 54|
00000E60: 37 38 34 3A 4A 53 52 20 92 31 00 79 16 09 01 3A |784:JSR .1.y...:|
00000E70: 20 20 20 20 20 20 52 54 53 00 7F 16 2C 01 3B 00 | RTS...,.;.|
00000E80: 9C 16 2D 01 3B 46 49 4E 44 20 46 49 C3 41 4D 45 |..-.;FIND FI.AME|
00000E90: 20 49 4E 20 44 49 52 45 43 A4 52 59 00 B7 16 2E | IN DIREC.RY....|
00000EA0: 01 3B 54 48 41 54 20 49 53 20 9A 41 49 4E 45 44 |.;THAT IS .AINED|
00000EB0: 20 49 4E 20 54 48 45 00 D2 16 2F 01 3B 42 55 46 | IN THE.../.;BUF|
00000EC0: 46 45 52 20 43 41 4C 4C 45 44 20 46 49 4C 4E 41 |FER CALLED FILNA|
00000ED0: 4D 45 00 EE 16 30 01 3B 8B 20 50 52 45 53 45 4E |ME...0.;. PRESEN|
00000EE0: 54 20 2E 41 20 57 49 4C 4C 20 48 4F 4C 44 00 09 |T .A WILL HOLD..|
00000EF0: 17 31 01 3B 44 49 52 45 43 A4 52 59 20 45 4E 54 |.1.;DIREC.RY ENT|
00000F00: 52 59 20 4E 55 4D 42 45 52 00 24 17 32 01 3B 45 |RY NUMBER.$.2.;E|
00000F10: 4C 53 45 20 2E 41 20 57 49 4C 4C 20 48 4F 4C 44 |LSE .A WILL HOLD|
00000F20: 20 32 35 35 00 2A 17 33 01 3B 00 43 17 34 01 A5 | 255.*.3.;.C.4..|
00000F30: 45 4E 54 20 4C 44 41 20 23 30 3A 53 54 41 20 44 |ENT LDA #0:STA D|
00000F40: 49 52 B9 00 62 17 35 01 3A 20 20 20 20 20 4C 44 |IR..b.5.: LD|
00000F50: 41 20 23 B3 46 49 4C 4E 41 4D 45 3A 53 54 41 20 |A #.FILNAME:STA |
00000F60: 5A 50 00 8A 17 36 01 3A 20 20 20 20 20 4C 44 41 |ZP...6.: LDA|
00000F70: 20 23 B1 46 49 4C 4E 41 4D 45 3A 53 54 41 20 5A | #.FILNAME:STA Z|
00000F80: 50 AA 31 3A 4C 44 58 20 23 30 00 9C 17 37 01 46 |P.1:LDX #0...7.F|
00000F90: 49 4E 44 4C 50 20 4C 44 59 20 23 30 00 BF 17 38 |INDLP LDY #0...8|
00000FA0: 01 49 4E 46 4C 50 20 4C 44 41 20 28 5A 50 29 2C |.INFLP LDA (ZP),|
00000FB0: 59 3A 43 4D 50 20 44 49 52 42 55 46 46 2C 58 00 |Y:CMP DIRBUFF,X.|
00000FC0: E3 17 39 01 3A 20 20 20 20 20 42 4E 45 20 49 4E |..9.: BNE IN|
00000FD0: 43 58 43 3A 49 4E 59 3A 49 4E 58 3A 43 50 59 20 |CXC:INY:INX:CPY |
00000FE0: 46 C3 4E 00 01 18 3A 01 3A 20 20 20 20 20 42 4E |F.N...:.: BN|
00000FF0: 45 20 49 4E 46 4C 50 3A 4A 4D 50 20 4D 41 54 43 |E INFLP:JMP MATC|
00001000: 48 00 24 18 3B 01 49 4E 43 58 43 20 49 4E 43 20 |H.$.;.INCXC INC |
00001010: 44 49 52 B9 3A 4C 44 59 20 44 49 52 B9 3A 4C 44 |DIR.:LDY DIR.:LD|
00001020: 41 20 23 30 00 45 18 3C 01 41 44 44 4C 50 20 43 |A #0.E.<.ADDLP C|
00001030: 4C 43 3A 41 44 43 20 23 A5 53 49 5A 45 3A 54 41 |LC:ADC #.SIZE:TA|
00001040: 58 3A 44 45 59 00 62 18 3D 01 3A 20 20 20 20 20 |X:DEY.b.=.: |
00001050: 42 4E 45 20 41 44 44 4C 50 3A 4C 44 41 20 44 49 |BNE ADDLP:LDA DI|
00001060: 52 B9 00 81 18 3E 01 3A 20 20 20 20 20 43 4D 50 |R....>.: CMP|
00001070: 20 23 A5 4D 41 58 3A 42 43 43 20 46 49 4E 44 4C | #.MAX:BCC FINDL|
00001080: 50 00 A1 18 3F 01 3A 20 20 20 20 20 4C 44 41 20 |P...?.: LDA |
00001090: 23 32 35 35 3A 53 54 41 20 44 49 52 B9 3A 52 54 |#255:STA DIR.:RT|
000010A0: 53 00 B8 18 40 01 4D 41 54 43 48 20 4C 44 41 20 |S...@.MATCH LDA |
000010B0: 44 49 52 B9 3A 52 54 53 00 D8 18 41 01 53 45 54 |DIR.:RTS...A.SET|
000010C0: A5 4D 20 4C 44 59 20 23 A5 53 49 5A 45 AB 31 3A |.M LDY #.SIZE.1:|
000010D0: 4C 44 41 20 23 22 40 22 00 FC 18 42 01 46 49 4C |LDA #"@"...B.FIL|
000010E0: 50 20 53 54 41 20 46 49 4C 4E 41 4D 45 2C 59 3A |P STA FILNAME,Y:|
000010F0: 44 45 59 3A 42 4E 45 20 46 49 4C 50 00 02 19 43 |DEY:BNE FILP...C|
00001100: 01 3B 00 17 19 44 01 3B 45 C5 55 41 54 45 20 BD |.;...D.;E.UATE .|
00001110: 52 45 53 53 49 91 2C 00 2F 19 45 01 3B A1 20 53 |RESSI.,./.E.;. S|
00001120: 54 52 49 4E 47 20 49 4E 81 4D 41 54 49 91 2C 00 |TRING IN.MATI.,.|
00001130: 49 19 46 01 3B 50 52 45 50 41 52 45 20 30 20 50 |I.F.;PREPARE 0 P|
00001140: 41 47 45 20 50 4F B5 45 52 00 4F 19 47 01 3B 00 |AGE PO.ER.O.G.;.|
00001150: 73 19 48 01 3A 20 20 20 20 4A 53 52 20 53 45 54 |s.H.: JSR SET|
00001160: 4D 4C 31 3A 53 54 58 20 5A 50 3A 53 54 59 20 5A |ML1:STX ZP:STY Z|
00001170: 50 AA 31 00 8F 19 49 01 3A 20 20 20 20 53 54 41 |P.1...I.: STA|
00001180: 20 46 C3 4E 3A 43 4D 50 20 23 A5 53 49 5A 45 00 | F.N:CMP #.SIZE.|
00001190: AF 19 4A 01 3A 20 20 20 20 42 43 43 20 47 43 4F |..J.: BCC GCO|
000011A0: 50 59 3A 4C 44 41 20 23 A5 53 49 5A 45 AB 31 00 |PY:LDA #.SIZE.1.|
000011B0: C0 19 4B 01 3A 20 20 20 20 53 54 41 20 46 C3 4E |..K.: STA F.N|
000011C0: 00 C6 19 4C 01 3B 00 E0 19 4D 01 3B 43 4F 50 59 |...L.;...M.;COPY|
000011D0: 20 46 49 C3 41 4D 45 20 A4 20 42 55 46 46 45 52 | FI.AME . BUFFER|
000011E0: 00 E6 19 4E 01 3B 00 F8 19 4F 01 47 43 4F 50 59 |...N.;...O.GCOPY|
000011F0: 20 4C 44 59 20 46 C3 4E 00 1F 1A 50 01 43 50 59 | LDY F.N...P.CPY|
00001200: 4C 50 20 4C 44 41 20 28 5A 50 29 2C 59 3A 53 54 |LP LDA (ZP),Y:ST|
00001210: 41 20 46 49 4C 4E 41 4D 45 2C 59 3A 44 45 59 00 |A FILNAME,Y:DEY.|
00001220: 37 1A 51 01 3A 20 20 20 20 20 42 50 4C 20 43 50 |7.Q.: BPL CP|
00001230: 59 4C 50 3A 52 54 53 00 3D 1A 52 01 3B 00 5A 1A |YLP:RTS.=.R.;.Z.|
00001240: 53 01 3B 54 48 45 20 4A 4F 42 20 4F 46 20 54 48 |S.;THE JOB OF TH|
00001250: 49 53 20 52 4F 55 54 49 4E 45 00 6F 1A 54 01 3B |IS ROUTINE.o.T.;|
00001260: 49 53 20 A4 20 46 49 4E 44 20 54 48 45 20 82 00 |IS . FIND THE ..|
00001270: 89 1A 55 01 3B 42 4C 41 4E 4B 20 44 49 52 45 43 |..U.;BLANK DIREC|
00001280: A4 52 59 20 45 4E 54 52 59 00 8F 1A 56 01 3B 00 |.RY ENTRY...V.;.|
00001290: B1 1A 57 01 46 49 4E 42 C3 54 20 4C 44 41 20 23 |..W.FINB.T LDA #|
000012A0: 30 3A 53 54 41 20 54 45 4D 50 3A 4C 44 58 20 23 |0:STA TEMP:LDX #|
000012B0: 30 00 C9 1A 58 01 46 42 4C 4C 50 20 4C 44 41 20 |0...X.FBLLP LDA |
000012C0: 44 49 52 42 55 46 46 2C 58 00 CF 1A 59 01 3B 00 |DIRBUFF,X...Y.;.|
000012D0: EC 1A 5A 01 3B 43 4D 50 20 22 40 22 20 8B 20 B2 |..Z.;CMP "@" . .|
000012E0: 20 45 4E 54 52 59 20 42 4C 41 4E 4B 00 F2 1A 5B | ENTRY BLANK...[|
000012F0: 01 3B 00 18 1B 5C 01 3A 20 20 20 20 20 43 4D 50 |.;...\.: CMP|
00001300: 20 23 22 40 22 3A 42 45 51 20 42 4C 41 4E 4B 3A | #"@":BEQ BLANK:|
00001310: 49 4E 43 20 54 45 4D 50 00 32 1B 5D 01 3A 20 20 |INC TEMP.2.].: |
00001320: 20 20 20 4C 44 59 20 54 45 4D 50 3A 4C 44 41 20 | LDY TEMP:LDA |
00001330: 23 30 00 57 1B 5E 01 41 4C 4C 50 20 43 4C 43 3A |#0.W.^.ALLP CLC:|
00001340: 41 44 43 20 23 A5 53 49 5A 45 3A 44 45 59 3A 42 |ADC #.SIZE:DEY:B|
00001350: 4E 45 20 41 4C 4C 50 00 7A 1B 5F 01 3A 20 20 20 |NE ALLP.z._.: |
00001360: 20 20 54 41 58 3A 43 50 58 20 23 42 55 4D 41 58 | TAX:CPX #BUMAX|
00001370: 3A 42 43 43 20 46 42 4C 4C 50 00 91 1B 60 01 3A |:BCC FBLLP...`.:|
00001380: 20 20 20 20 20 4C 44 41 20 23 32 35 35 3A 52 54 | LDA #255:RT|
00001390: 53 00 97 1B 61 01 3B 00 B1 1B 62 01 3B 4C 44 41 |S...a.;...b.;LDA|
000013A0: 20 44 49 52 45 43 A4 52 59 20 45 4E 54 52 59 20 | DIREC.RY ENTRY |
000013B0: B9 00 BA 1B 63 01 3B AF 20 8E 00 C0 1B 64 01 3B |....c.;. ....d.;|
000013C0: 00 D7 1B 65 01 42 4C 41 4E 4B 20 4C 44 41 20 54 |...e.BLANK LDA T|
000013D0: 45 4D 50 3A 52 54 53 00 DD 1B 66 01 3B 00 F8 1B |EMP:RTS...f.;...|
000013E0: 67 01 3B 46 49 4C 4C 20 44 49 52 45 43 A4 52 59 |g.;FILL DIREC.RY|
000013F0: 20 45 4E 54 52 49 45 53 00 11 1C 68 01 3B 59 B2 | ENTRIES...h.;Y.|
00001400: 30 20 44 91 27 54 20 45 4E 54 45 52 20 4C 4F 4F |0 D.'T ENTER LOO|
00001410: 50 00 17 1C 69 01 3B 00 39 1C 6A 01 50 55 54 4E |P...i.;.9.j.PUTN|
00001420: 41 4D 20 4C 44 41 20 23 30 3A 4C 44 59 20 54 45 |AM LDA #0:LDY TE|
00001430: 4D 50 3A 43 50 59 20 23 30 00 4E 1C 6B 01 3A 20 |MP:CPY #0.N.k.: |
00001440: 20 20 20 20 20 42 45 51 20 53 54 50 55 54 00 54 | BEQ STPUT.T|
00001450: 1C 6C 01 3B 00 76 1C 6D 01 3B 53 45 54 20 59 B2 |.l.;.v.m.;SET Y.|
00001460: A4 20 43 B0 52 45 43 54 20 44 49 52 42 59 54 20 |. C.RECT DIRBYT |
00001470: 4F 46 46 53 45 54 00 7C 1C 6E 01 3B 00 A3 1C 6F |OFFSET.|.n.;...o|
00001480: 01 50 55 54 41 4C 50 20 43 4C 43 3A 41 44 43 20 |.PUTALP CLC:ADC |
00001490: 23 4D 41 58 3A 44 45 59 3A 42 4E 45 20 50 55 54 |#MAX:DEY:BNE PUT|
000014A0: 41 4C 50 00 A9 1C 70 01 3B 00 C3 1C 71 01 3B 53 |ALP...p.;...q.;S|
000014B0: A4 52 45 20 46 49 4C 45 20 50 41 52 41 4D 45 54 |.RE FILE PARAMET|
000014C0: 45 52 53 00 C9 1C 72 01 3B 00 EF 1C 73 01 53 54 |ERS...r.;...s.ST|
000014D0: 50 55 54 20 54 41 59 3A 4C 44 41 20 50 C3 3A 53 |PUT TAY:LDA P.:S|
000014E0: 54 41 20 44 49 52 42 59 54 2C 59 3A 49 4E 59 00 |TA DIRBYT,Y:INY.|
000014F0: 13 1D 74 01 3A 20 20 20 20 20 4C 44 41 20 50 C3 |..t.: LDA P.|
00001500: AA 31 3A 53 54 41 20 44 49 52 42 59 54 2C 59 3A |.1:STA DIRBYT,Y:|
00001510: 49 4E 59 00 38 1D 75 01 3A 20 20 20 20 20 4C 44 |INY.8.u.: LD|
00001520: 41 20 53 54 41 52 54 3A 53 54 41 20 44 49 52 42 |A START:STA DIRB|
00001530: 59 54 2C 59 3A 49 4E 59 00 5F 1D 76 01 3A 20 20 |YT,Y:INY._.v.: |
00001540: 20 20 20 4C 44 41 20 53 54 41 52 54 AA 31 3A 53 | LDA START.1:S|
00001550: 54 41 20 44 49 52 42 59 54 2C 59 3A 49 4E 59 00 |TA DIRBYT,Y:INY.|
00001560: 84 1D 77 01 3A 20 20 20 20 20 4C 44 41 20 52 4D |..w.: LDA RM|
00001570: 53 52 54 3A 53 54 41 20 44 49 52 42 59 54 2C 59 |SRT:STA DIRBYT,Y|
00001580: 3A 49 4E 59 00 A7 1D 78 01 3A 20 20 20 20 20 4C |:INY...x.: L|
00001590: 44 41 20 52 4D 53 52 54 AA 31 3A 53 54 41 20 44 |DA RMSRT.1:STA D|
000015A0: 49 52 42 59 54 2C 59 00 C8 1D 79 01 3A 20 20 20 |IRBYT,Y...y.: |
000015B0: 20 20 4C 44 41 20 23 30 3A 4C 44 59 20 54 45 4D | LDA #0:LDY TEM|
000015C0: 50 3A 43 50 59 20 23 30 00 DC 1D 7A 01 3A 20 20 |P:CPY #0...z.: |
000015D0: 20 20 20 42 45 51 20 53 54 46 50 54 00 E2 1D 7B | BEQ STFPT...{|
000015E0: 01 3B 00 05 1E 7C 01 3B 53 45 54 20 59 B2 A4 20 |.;...|.;SET Y.. |
000015F0: 43 B0 52 45 43 54 20 44 49 52 42 55 46 46 20 4F |C.RECT DIRBUFF O|
00001600: 46 46 53 45 54 00 0B 1E 7D 01 3B 00 30 1E 7E 01 |FFSET...}.;.0.~.|
00001610: 50 46 4C 50 20 43 4C 43 3A 41 44 43 20 23 A5 53 |PFLP CLC:ADC #.S|
00001620: 49 5A 45 3A 44 45 59 3A 42 4E 45 20 50 46 4C 50 |IZE:DEY:BNE PFLP|
00001630: 00 45 1E 7F 01 53 54 46 50 54 20 4C 44 58 20 23 |.E...STFPT LDX #|
00001640: 30 3A 54 41 59 00 4B 1E 80 01 3B 00 63 1E 81 01 |0:TAY.K...;.c...|
00001650: 3B 41 43 54 55 41 4C 20 54 52 41 4E 53 46 45 52 |;ACTUAL TRANSFER|
00001660: 20 4F 46 00 7B 1E 82 01 3B 46 49 C3 41 4D 45 20 | OF.{...;FI.AME |
00001670: 4F 43 43 55 52 53 20 48 45 52 45 00 81 1E 83 01 |OCCURS HERE.....|
00001680: 3B 00 A8 1E 84 01 53 54 46 50 4C 50 20 4C 44 41 |;.....STFPLP LDA|
00001690: 20 46 49 4C 4E 41 4D 45 2C 58 3A 53 54 41 20 44 | FILNAME,X:STA D|
000016A0: 49 52 42 55 46 46 2C 59 00 CE 1E 85 01 3A 20 20 |IRBUFF,Y.....: |
000016B0: 20 20 20 20 49 4E 59 3A 49 4E 58 3A 43 50 58 20 | INY:INX:CPX |
000016C0: 46 C3 4E 3A 42 43 43 20 53 54 46 50 4C 50 00 DD |F.N:BCC STFPLP..|
000016D0: 1E 86 01 3A 20 20 20 20 20 20 52 54 53 00 E3 1E |...: RTS...|
000016E0: 87 01 3B 00 02 1F 88 01 3B 43 48 45 43 4B 20 50 |..;.....;CHECK P|
000016F0: 52 4F 47 52 41 4D 20 C3 47 54 48 2C 20 49 53 20 |ROGRAM .GTH, IS |
00001700: 48 54 00 25 1F 89 01 3B 4C 45 53 53 20 54 48 41 |HT.%...;LESS THA|
00001710: 4E 20 41 56 41 49 4C 41 42 4C 45 20 56 44 43 20 |N AVAILABLE VDC |
00001720: 4D 45 4D B0 59 00 2B 1F 8A 01 3B 00 4A 1F 8B 01 |MEM.Y.+...;.J...|
00001730: 43 48 46 49 C3 20 53 45 43 3A 4C 44 41 20 80 50 |CHFI. SEC:LDA .P|
00001740: 3A 53 42 43 20 53 54 41 52 54 00 66 1F 8C 01 3A |:SBC START.f...:|
00001750: 20 20 20 20 20 20 20 53 54 41 20 50 C3 3A 4C 44 | STA P.:LD|
00001760: 41 20 80 50 AA 31 00 87 1F 8D 01 3A 20 20 20 20 |A .P.1.....: |
00001770: 20 20 20 53 42 43 20 53 54 41 52 54 AA 31 3A 53 | SBC START.1:S|
00001780: 54 41 20 50 C3 AA 31 00 AE 1F 8E 01 3A 20 20 20 |TA P..1.....: |
00001790: 20 20 20 20 4C 44 41 20 23 30 3A 53 42 43 20 23 | LDA #0:SBC #|
000017A0: 30 3A 53 54 41 20 52 45 53 55 4C 54 AA 32 00 CC |0:STA RESULT.2..|
000017B0: 1F 8F 01 3A 20 20 20 20 20 20 20 4C 44 41 20 46 |...: LDA F|
000017C0: 4C 41 47 31 36 3A 43 4D 50 20 23 31 00 F0 1F 90 |LAG16:CMP #1....|
000017D0: 01 3A 20 20 20 20 20 20 20 42 45 51 20 4D 41 58 |.: BEQ MAX|
000017E0: 4D 45 30 3A 4C 44 41 20 52 45 53 55 4C 54 AA 32 |ME0:LDA RESULT.2|
000017F0: 00 0D 20 91 01 3A 20 20 20 20 20 20 20 43 4D 50 |.. ..: CMP|
00001800: 20 23 30 3A 42 4E 45 20 A4 4F 4C 91 47 00 25 20 | #0:BNE .OL.G.% |
00001810: 92 01 3A 20 20 20 20 20 20 20 4A 4D 50 20 43 48 |..: JMP CH|
00001820: 46 49 4C 4E 31 00 2B 20 93 01 3B 00 4B 20 94 01 |FILN1.+ ..;.K ..|
00001830: 3B 46 49 4C 45 20 A4 4F 20 4C 91 47 20 99 20 45 |;FILE .O L.G . E|
00001840: 52 52 B0 20 4D 45 53 53 41 47 45 00 51 20 95 01 |RR. MESSAGE.Q ..|
00001850: 3B 00 72 20 96 01 4D 41 58 4D 45 30 20 4C 44 41 |;.r ..MAXME0 LDA|
00001860: 20 50 C3 AA 31 3A 43 4D 50 20 4D 45 4D 4D 41 58 | P..1:CMP MEMMAX|
00001870: AA 31 00 87 20 97 01 3A 20 20 20 20 20 20 42 43 |.1.. ..: BC|
00001880: 53 20 A4 4F 4C 91 47 00 8D 20 98 01 3B 00 A5 20 |S .OL.G.. ..;.. |
00001890: 99 01 3B 53 45 54 20 80 20 4F 46 20 50 52 47 20 |..;SET . OF PRG |
000018A0: 50 4F B5 45 52 00 AB 20 9A 01 3B 00 CD 20 9B 01 |PO.ER.. ..;.. ..|
000018B0: 43 48 46 49 4C 4E 31 20 43 4C 43 3A 4C 44 41 20 |CHFILN1 CLC:LDA |
000018C0: 50 C3 3A 41 44 43 20 4E 44 42 59 54 45 00 ED 20 |P.:ADC NDBYTE.. |
000018D0: 9C 01 3A 20 20 20 20 20 20 20 53 54 41 20 52 45 |..: STA RE|
000018E0: 53 55 4C 54 3A 4C 44 41 20 50 C3 AA 31 00 13 21 |SULT:LDA P..1..!|
000018F0: 9D 01 3A 20 20 20 20 20 20 20 41 44 43 20 4E 44 |..: ADC ND|
00001900: 42 59 54 45 AA 31 3A 53 54 41 20 52 45 53 55 4C |BYTE.1:STA RESUL|
00001910: 54 AA 31 00 3A 21 9E 01 3A 20 20 20 20 20 20 20 |T.1.:!..: |
00001920: 4C 44 41 20 23 30 3A 41 44 43 20 23 30 3A 53 54 |LDA #0:ADC #0:ST|
00001930: 41 20 52 45 53 55 4C 54 AA 32 00 58 21 9F 01 3A |A RESULT.2.X!..:|
00001940: 20 20 20 20 20 20 20 4C 44 41 20 46 4C 41 47 31 | LDA FLAG1|
00001950: 36 3A 43 4D 50 20 23 31 00 7C 21 A0 01 3A 20 20 |6:CMP #1.|!..: |
00001960: 20 20 20 20 20 42 45 51 20 4D 41 58 4D 45 31 3A | BEQ MAXME1:|
00001970: 4C 44 41 20 52 45 53 55 4C 54 AA 32 00 99 21 A1 |LDA RESULT.2..!.|
00001980: 01 3A 20 20 20 20 20 20 20 43 4D 50 20 23 30 3A |.: CMP #0:|
00001990: 42 4E 45 20 A4 4F 4C 91 47 00 B1 21 A2 01 3A 20 |BNE .OL.G..!..: |
000019A0: 20 20 20 20 20 20 4A 4D 50 20 43 48 46 49 4C 4E | JMP CHFILN|
000019B0: 32 00 B7 21 A3 01 3B 00 D8 21 A4 01 3B 43 48 45 |2..!..;..!..;CHE|
000019C0: 43 4B 20 A4 20 4D 41 4B 45 20 53 55 52 45 20 46 |CK . MAKE SURE F|
000019D0: 49 4C 45 20 46 49 54 53 00 F4 21 A5 01 3B B5 4F |ILE FITS..!..;.O|
000019E0: 20 41 56 41 49 4C 41 42 4C 45 20 56 44 43 20 4D | AVAILABLE VDC M|
000019F0: 45 4D B0 59 00 FA 21 A6 01 3B 00 1F 22 A7 01 4D |EM.Y..!..;.."..M|
00001A00: 41 58 4D 45 31 20 4C 44 41 20 52 45 53 55 4C 54 |AXME1 LDA RESULT|
00001A10: AA 31 3A 43 4D 50 20 4D 45 4D 4D 41 58 AA 31 00 |.1:CMP MEMMAX.1.|
00001A20: 34 22 A8 01 3A 20 20 20 20 20 20 42 43 53 20 A4 |4"..: BCS .|
00001A30: 4F 4C 91 47 00 4B 22 A9 01 43 48 46 49 4C 4E 32 |OL.G.K"..CHFILN2|
00001A40: 20 4C 44 41 20 23 30 3A 52 54 53 00 62 22 AA 01 | LDA #0:RTS.b"..|
00001A50: A4 4F 4C 91 47 20 4C 44 41 20 23 32 35 35 3A 52 |.OL.G LDA #255:R|
00001A60: 54 53 00 89 22 AB 01 53 45 54 52 4D 50 20 4C 44 |TS.."..SETRMP LD|
00001A70: 59 20 23 30 3A 4C 44 41 20 28 31 32 32 29 2C 59 |Y #0:LDA (122),Y|
00001A80: 3A 43 4D 50 20 23 22 2C 22 00 A1 22 AC 01 3A 20 |:CMP #",".."..: |
00001A90: 20 20 20 20 20 42 4E 45 20 49 54 53 42 41 53 49 | BNE ITSBASI|
00001AA0: 43 00 B6 22 AD 01 3A 20 20 20 20 20 20 4A 4D 50 |C.."..: JMP|
00001AB0: 20 49 54 53 4D 4C 00 D4 22 AE 01 49 54 53 42 41 | ITSML.."..ITSBA|
00001AC0: 53 49 43 20 4C 44 41 20 34 33 3A 53 54 41 20 53 |SIC LDA 43:STA S|
00001AD0: 54 41 52 54 00 FA 22 AF 01 3A 20 20 20 20 20 20 |TART.."..: |
00001AE0: 20 20 53 54 41 20 42 4C 4F 43 4B 31 3A 4C 44 41 | STA BLOCK1:LDA|
00001AF0: 20 34 35 3A 53 54 41 20 80 50 00 1A 23 B0 01 3A | 45:STA .P..#..:|
00001B00: 20 20 20 20 20 20 20 20 4C 44 41 20 34 34 3A 53 | LDA 44:S|
00001B10: 54 41 20 53 54 41 52 54 AA 31 00 3B 23 B1 01 3A |TA START.1.;#..:|
00001B20: 20 20 20 20 20 20 20 20 53 54 41 20 42 4C 4F 43 | STA BLOC|
00001B30: 4B 31 AA 31 3A 4C 44 41 20 34 36 00 59 23 B2 01 |K1.1:LDA 46.Y#..|
00001B40: 3A 20 20 20 20 20 20 20 20 53 54 41 20 80 50 20 |: STA .P |
00001B50: AA 31 3A 4C 44 41 20 34 35 00 5F 23 B3 01 3B 00 |.1:LDA 45._#..;.|
00001B60: 79 23 B4 01 3B 53 45 54 20 55 50 20 50 52 4F 50 |y#..;SET UP PROP|
00001B70: 45 52 20 C5 55 45 53 20 81 00 93 23 B5 01 3B 4D |ER .UES ...#..;M|
00001B80: 44 49 4E 49 54 20 52 4F 55 54 49 4E 45 2C 20 53 |DINIT ROUTINE, S|
00001B90: A4 52 45 00 AF 23 B6 01 3B 4E 55 4D 42 45 52 20 |.RE..#..;NUMBER |
00001BA0: 4F 46 20 42 59 54 45 53 20 A4 20 4D 4F 56 45 00 |OF BYTES . MOVE.|
00001BB0: B5 23 B7 01 3B 00 D4 23 B8 01 3A 20 20 20 20 20 |.#..;..#..: |
00001BC0: 20 20 20 53 45 43 3A 4C 44 41 20 34 35 3A 53 42 | SEC:LDA 45:SB|
00001BD0: 43 20 34 33 00 FA 23 B9 01 3A 20 20 20 20 20 20 |C 43..#..: |
00001BE0: 20 20 53 54 41 20 4E 55 4D 42 45 52 3A 4C 44 41 | STA NUMBER:LDA|
00001BF0: 20 34 36 3A 53 42 43 20 34 34 00 14 24 BA 01 3A | 46:SBC 44..$..:|
00001C00: 20 20 20 20 20 20 20 20 53 54 41 20 4E 55 4D 42 | STA NUMB|
00001C10: 45 52 AA 31 00 1A 24 BB 01 3B 00 2F 24 BC 01 3B |ER.1..$..;./$..;|
00001C20: 53 45 54 20 53 54 41 52 54 20 42 4C 4F 43 4B 00 |SET START BLOCK.|
00001C30: 35 24 BD 01 3B 00 55 24 BE 01 53 45 54 42 4C 20 |5$..;.U$..SETBL |
00001C40: 4C 44 41 20 4E 44 42 59 54 45 3A 53 54 41 20 42 |LDA NDBYTE:STA B|
00001C50: 4C 4F 43 4B 32 00 76 24 BF 01 3A 20 20 20 20 20 |LOCK2.v$..: |
00001C60: 53 54 41 20 52 4D 53 52 54 3A 4C 44 41 20 4E 44 |STA RMSRT:LDA ND|
00001C70: 42 59 54 45 AA 31 00 9D 24 C0 01 3A 20 20 20 20 |BYTE.1..$..: |
00001C80: 20 53 54 41 20 42 4C 4F 43 4B 32 AA 31 3A 53 54 | STA BLOCK2.1:ST|
00001C90: 41 20 52 4D 53 52 54 AA 31 3A 52 54 53 00 A3 24 |A RMSRT.1:RTS..$|
00001CA0: C1 01 3B 00 C1 24 C2 01 3B 53 41 4D 45 20 41 53 |..;..$..;SAME AS|
00001CB0: 20 41 42 4F 56 45 20 45 58 43 45 50 54 20 4D AD | ABOVE EXCEPT M.|
00001CC0: 4C 00 C7 24 C3 01 3B 00 E6 24 C4 01 49 54 53 4D |L..$..;..$..ITSM|
00001CD0: 4C 20 4A 53 52 20 53 45 54 4D 4C 32 3A 53 54 59 |L JSR SETML2:STY|
00001CE0: 20 53 54 41 52 54 00 07 25 C5 01 3A 20 20 20 20 | START..%..: |
00001CF0: 20 53 54 59 20 42 4C 4F 43 4B 31 3A 53 54 41 20 | STY BLOCK1:STA |
00001D00: 53 54 41 52 54 AA 31 00 29 25 C6 01 3A 20 20 20 |START.1.)%..: |
00001D10: 20 20 53 54 41 20 42 4C 4F 43 4B 31 AA 31 3A 4A | STA BLOCK1.1:J|
00001D20: 53 52 20 53 45 54 4D 4C 32 00 4A 25 C7 01 3A 20 |SR SETML2.J%..: |
00001D30: 20 20 20 20 53 54 59 20 80 50 3A 53 54 41 20 80 | STY .P:STA .|
00001D40: 50 AA 31 3A 4C 44 41 20 80 50 00 6D 25 C8 01 3A |P.1:LDA .P.m%..:|
00001D50: 20 20 20 20 20 53 45 43 3A 53 42 43 20 53 54 41 | SEC:SBC STA|
00001D60: 52 54 3A 53 54 41 20 4E 55 4D 42 45 52 00 8C 25 |RT:STA NUMBER..%|
00001D70: C9 01 3A 20 20 20 20 20 4C 44 41 20 80 50 AA 31 |..: LDA .P.1|
00001D80: 3A 53 42 43 20 53 54 41 52 54 AA 31 00 AD 25 CA |:SBC START.1..%.|
00001D90: 01 3A 20 20 20 20 20 53 54 41 20 4E 55 4D 42 45 |.: STA NUMBE|
00001DA0: 52 AA 31 3A 4A 4D 50 20 53 45 54 42 4C 00 CB 25 |R.1:JMP SETBL..%|
00001DB0: CB 01 53 45 54 55 50 20 4A 53 52 20 CB 46 41 53 |..SETUP JSR .FAS|
00001DC0: 54 3A 4A 53 52 20 53 45 54 A5 4D 00 E2 25 CC 01 |T:JSR SET.M..%..|
00001DD0: 3A 20 20 20 20 20 4A 53 52 20 A5 45 4E 54 3A 52 |: JSR .ENT:R|
00001DE0: 54 53 00 E8 25 CD 01 3B 00 FE 25 CE 01 3B 42 4C |TS..%..;..%..;BL|
00001DF0: 41 4E 4B 20 53 43 52 45 45 4E 20 AF 20 89 00 1A |ANK SCREEN . ...|
00001E00: 26 CF 01 3B 46 41 53 54 20 4D 4F 44 45 2C 20 53 |&..;FAST MODE, S|
00001E10: 45 54 20 46 49 C3 41 4D 45 2C 00 34 26 D0 01 3B |ET FI.AME,.4&..;|
00001E20: 43 48 45 43 4B 20 81 20 44 55 50 20 4E 41 4D 45 |CHECK . DUP NAME|
00001E30: 20 8B 20 AA 00 4D 26 D1 01 3B 49 54 20 41 4C 87 | . ..M&..;IT AL.|
00001E40: 59 20 45 58 49 53 54 53 2C 20 53 45 54 00 67 26 |Y EXISTS, SET.g&|
00001E50: D2 01 3B 50 41 52 41 4D 53 20 81 20 4D 4F 56 45 |..;PARAMS . MOVE|
00001E60: 2C 20 43 48 45 43 4B 00 81 26 D3 01 3B C3 47 54 |, CHECK..&..;.GT|
00001E70: 48 20 4F 46 20 50 52 47 20 8B 20 AB 20 49 54 27 |H OF PRG . . IT'|
00001E80: 53 00 9E 26 D4 01 3B A4 4F 20 4C 91 47 20 A4 20 |S..&..;.O L.G . |
00001E90: 46 49 54 20 49 4E 20 52 41 4D 44 49 53 4B 00 A4 |FIT IN RAMDISK..|
00001EA0: 26 D5 01 3B 00 C0 26 D6 01 52 53 41 56 20 4A 53 |&..;..&..RSAV JS|
00001EB0: 52 20 53 45 54 55 50 3A 42 50 4C 20 41 4C 87 59 |R SETUP:BPL AL.Y|
00001EC0: 00 DE 26 D7 01 3A 20 20 20 20 4A 53 52 20 53 45 |..&..: JSR SE|
00001ED0: 54 52 4D 50 3A 4A 53 52 20 43 48 46 49 C3 00 FC |TRMP:JSR CHFI...|
00001EE0: 26 D8 01 3A 20 20 20 20 42 50 4C 20 4E 58 53 55 |&..: BPL NXSU|
00001EF0: 42 3A 4A 53 52 20 52 4C 45 58 49 54 00 0F 27 D9 |B:JSR RLEXIT..'.|
00001F00: 01 3A 20 20 20 20 4A 4D 50 20 4C 91 45 52 52 00 |.: JMP L.ERR.|
00001F10: 15 27 DA 01 3B 00 31 27 DB 01 3B 46 49 4E 44 20 |.'..;.1'..;FIND |
00001F20: 82 20 42 4C 41 4E 4B 20 44 49 52 20 45 4E 54 52 |. BLANK DIR ENTR|
00001F30: 59 00 4C 27 DC 01 3B 8B AB 20 44 49 52 20 46 55 |Y.L'..;.. DIR FU|
00001F40: 4C 4C 20 99 20 45 52 52 20 4D 53 47 00 52 27 DD |LL . ERR MSG.R'.|
00001F50: 01 3B 00 71 27 DE 01 4E 58 53 55 42 20 4A 53 52 |.;.q'..NXSUB JSR|
00001F60: 20 46 49 4E 42 C3 54 3A 42 50 4C 20 47 45 58 49 | FINB.T:BPL GEXI|
00001F70: 54 00 91 27 DF 01 3A 20 20 20 20 20 4A 53 52 20 |T..'..: JSR |
00001F80: 52 4C 45 58 49 54 3A 4A 4D 50 20 46 55 4C 45 52 |RLEXIT:JMP FULER|
00001F90: 52 00 97 27 E0 01 3B 00 B5 27 E1 01 3B 50 55 54 |R..'..;..'..;PUT|
00001FA0: 20 4E 41 4D 45 20 49 4E 20 44 49 52 2C 20 50 52 | NAME IN DIR, PR|
00001FB0: 45 50 41 52 45 00 C8 27 E2 01 3B 81 20 4D 4F 56 |EPARE..'..;. MOV|
00001FC0: 45 2C 20 44 4F 20 49 54 00 CE 27 E3 01 3B 00 EE |E, DO IT..'..;..|
00001FD0: 27 E4 01 47 45 58 49 54 20 4A 53 52 20 50 55 54 |'..GEXIT JSR PUT|
00001FE0: 4E 41 4D 3A 4A 53 52 20 4D 44 49 4E 49 54 00 12 |NAM:JSR MDINIT..|
00001FF0: 28 E5 01 3A 20 20 20 20 20 4A 53 52 20 4D 4F 56 |(..: JSR MOV|
00002000: 45 55 50 3A 43 4C 43 3A 4C 44 41 20 52 45 53 55 |EUP:CLC:LDA RESU|
00002010: 4C 54 00 18 28 E6 01 3B 00 36 28 E7 01 3B 53 A4 |LT..(..;.6(..;S.|
00002020: 52 45 20 82 20 B9 2E 20 4C 4F 20 49 4E 20 52 41 |RE . .. LO IN RA|
00002030: 4D 20 44 49 53 4B 00 3C 28 E8 01 3B 00 58 28 E9 |M DISK.<(..;.X(.|
00002040: 01 3A 20 20 20 20 20 41 44 43 20 23 31 3A 53 54 |.: ADC #1:ST|
00002050: 41 20 4E 44 42 59 54 45 00 5E 28 EA 01 3B 00 7C |A NDBYTE.^(..;.||
00002060: 28 EB 01 3B 53 A4 52 45 20 82 20 B9 2E 20 48 49 |(..;S.RE . .. HI|
00002070: 20 49 4E 20 52 41 4D 20 44 49 53 4B 00 82 28 EC | IN RAM DISK..(.|
00002080: 01 3B 00 A0 28 ED 01 3A 20 20 20 20 20 4C 44 41 |.;..(..: LDA|
00002090: 20 52 45 53 55 4C 54 AA 31 3A 41 44 43 20 23 30 | RESULT.1:ADC #0|
000020A0: 00 C0 28 EE 01 3A 20 20 20 20 20 53 54 41 20 4E |..(..: STA N|
000020B0: 44 42 59 54 45 AA 31 3A 4A 53 52 20 B8 52 41 4D |DBYTE.1:JSR .RAM|
000020C0: 00 D5 28 EF 01 3A 20 20 20 20 20 4A 4D 50 20 52 |..(..: JMP R|
000020D0: 4C 45 58 49 54 00 FA 28 F0 01 B8 52 41 4D 20 53 |LEXIT..(...RAM S|
000020E0: 45 43 3A 4C 44 41 20 4D 45 4D 4D 41 58 3A 4C 44 |EC:LDA MEMMAX:LD|
000020F0: 58 20 4D 45 4D 4D 41 58 AA 31 00 18 29 F1 01 3A |X MEMMAX.1..)..:|
00002100: 20 20 20 20 20 20 53 42 43 20 4E 44 42 59 54 45 | SBC NDBYTE|
00002110: 3A 54 41 59 3A 54 58 41 00 38 29 F2 01 3A 20 20 |:TAY:TXA.8)..: |
00002120: 20 20 20 20 53 42 43 20 4E 44 42 59 54 45 AA 31 | SBC NDBYTE.1|
00002130: 3A 54 41 58 3A 54 59 41 00 5B 29 F3 01 3A 20 20 |:TAX:TYA.[)..: |
00002140: 20 20 20 20 53 54 41 20 4D 45 4D B8 3A 53 54 58 | STA MEM.:STX|
00002150: 20 4D 45 4D B8 AA 31 3A 52 54 53 00 61 29 F4 01 | MEM..1:RTS.a)..|
00002160: 3B 00 78 29 F5 01 3B 41 4C 4C 20 44 91 45 20 8E |;.x)..;ALL D.E .|
00002170: 20 A4 20 42 41 53 49 43 00 7E 29 F6 01 3B 00 97 | . BASIC.~)..;..|
00002180: 29 F7 01 52 4C 45 58 49 54 20 4A 53 52 20 CB 53 |)..RLEXIT JSR .S|
00002190: 4C 4F 57 3A 52 54 53 00 B6 29 F8 01 41 4C 87 59 |LOW:RTS..)..AL.Y|
000021A0: 20 4A 53 52 20 52 4C 45 58 49 54 3A 4A 4D 50 20 | JSR RLEXIT:JMP |
000021B0: 45 58 54 45 52 52 00 BC 29 F9 01 3B 00 D5 29 FA |EXTERR..)..;..).|
000021C0: 01 3B 53 45 54 20 50 41 52 41 4D 53 20 A4 20 93 |.;SET PARAMS . .|
000021D0: 20 46 52 4F 4D 00 E3 29 FB 01 3B 52 41 4D 20 44 | FROM..)..;RAM D|
000021E0: 49 53 4B 00 E9 29 FC 01 3B 00 0D 2A FD 01 53 45 |ISK..)..;..*..SE|
000021F0: 54 50 4C 44 20 4C 44 59 20 44 49 52 B9 3A 43 50 |TPLD LDY DIR.:CP|
00002200: 59 20 23 30 3A 42 45 51 20 53 45 54 50 00 1F 2A |Y #0:BEQ SETP..*|
00002210: FE 01 3A 20 20 20 20 20 20 4C 44 41 20 23 30 00 |..: LDA #0.|
00002220: 46 2A FF 01 50 41 44 44 4C 50 20 43 4C 43 3A 41 |F*..PADDLP CLC:A|
00002230: 44 43 20 23 4D 41 58 3A 44 45 59 3A 42 4E 45 20 |DC #MAX:DEY:BNE |
00002240: 50 41 44 44 4C 50 00 6B 2A 00 02 53 45 54 50 20 |PADDLP.k*..SETP |
00002250: 54 41 59 3A 4C 44 41 20 44 49 52 42 59 54 2C 59 |TAY:LDA DIRBYT,Y|
00002260: 3A 53 54 41 20 4E 55 4D 42 45 52 00 92 2A 01 02 |:STA NUMBER..*..|
00002270: 3A 20 20 20 20 49 4E 59 3A 4C 44 41 20 44 49 52 |: INY:LDA DIR|
00002280: 42 59 54 2C 59 3A 53 54 41 20 4E 55 4D 42 45 52 |BYT,Y:STA NUMBER|
00002290: AA 31 00 B7 2A 02 02 3A 20 20 20 20 49 4E 59 3A |.1..*..: INY:|
000022A0: 4C 44 41 20 44 49 52 42 59 54 2C 59 3A 53 54 41 |LDA DIRBYT,Y:STA|
000022B0: 20 42 4C 4F 43 4B 32 00 DE 2A 03 02 3A 20 20 20 | BLOCK2..*..: |
000022C0: 20 49 4E 59 3A 4C 44 41 20 44 49 52 42 59 54 2C | INY:LDA DIRBYT,|
000022D0: 59 3A 53 54 41 20 42 4C 4F 43 4B 32 AA 31 00 03 |Y:STA BLOCK2.1..|
000022E0: 2B 04 02 3A 20 20 20 20 49 4E 59 3A 4C 44 41 20 |+..: INY:LDA |
000022F0: 44 49 52 42 59 54 2C 59 3A 53 54 41 20 42 4C 4F |DIRBYT,Y:STA BLO|
00002300: 43 4B 31 00 2A 2B 05 02 3A 20 20 20 20 49 4E 59 |CK1.*+..: INY|
00002310: 3A 4C 44 41 20 44 49 52 42 59 54 2C 59 3A 53 54 |:LDA DIRBYT,Y:ST|
00002320: 41 20 42 4C 4F 43 4B 31 AA 31 00 37 2B 06 02 3A |A BLOCK1.1.7+..:|
00002330: 20 20 20 20 52 54 53 00 3D 2B 07 02 3B 00 59 2B | RTS.=+..;.Y+|
00002340: 08 02 3B 53 45 54 20 55 50 20 50 41 52 41 4D 53 |..;SET UP PARAMS|
00002350: 2C 20 44 4F 20 4D 4F 56 45 00 5F 2B 09 02 3B 00 |, DO MOVE._+..;.|
00002360: 84 2B 0A 02 44 B0 41 4D 4C 44 20 4A 53 52 20 4D |.+..D.AMLD JSR M|
00002370: 44 49 4E 49 54 3A 4A 53 52 20 4D 4F 56 45 44 4E |DINIT:JSR MOVEDN|
00002380: 3A 52 54 53 00 8A 2B 0B 02 3B 00 A0 2B 0C 02 3B |:RTS..+..;..+..;|
00002390: 42 4C 41 4E 4B 20 53 43 52 45 45 4E 20 AF 20 89 |BLANK SCREEN . .|
000023A0: 00 BC 2B 0D 02 3B 46 41 53 54 20 4D 4F 44 45 2C |..+..;FAST MODE,|
000023B0: 20 53 45 54 20 46 49 C3 41 4D 45 2C 00 D6 2B 0E | SET FI.AME,..+.|
000023C0: 02 3B 43 48 45 43 4B 20 A4 20 53 45 45 20 8B 20 |.;CHECK . SEE . |
000023D0: 45 58 49 53 54 53 00 EC 2B 0F 02 3B 8B 20 AA 20 |EXISTS..+..;. . |
000023E0: 49 54 20 44 4F 45 53 2C 20 8B 20 A8 00 01 2C 10 |IT DOES, . ...,.|
000023F0: 02 3B 99 20 45 52 52 B0 20 4D 45 53 53 41 47 45 |.;. ERR. MESSAGE|
00002400: 2C 00 1B 2C 11 02 3B 53 45 54 20 50 41 52 41 4D |,..,..;SET PARAM|
00002410: 53 20 81 20 4D 44 49 4E 49 54 2C 00 32 2C 12 02 |S . MDINIT,.2,..|
00002420: 3B 44 4F 20 93 2C 20 43 48 45 43 4B 20 A4 20 53 |;DO ., CHECK . S|
00002430: 45 45 00 49 2C 13 02 3B 8B 20 42 41 53 49 43 2C |EE.I,..;. BASIC,|
00002440: 20 8B 20 A8 20 45 58 49 54 00 62 2C 14 02 3B 45 | . . EXIT.b,..;E|
00002450: 4C 53 45 20 53 45 54 20 80 20 50 52 4F 47 52 41 |LSE SET . PROGRA|
00002460: 4D 2C 00 7B 2C 15 02 3B 52 45 4C 49 4E 4B 20 4C |M,.{,..;RELINK L|
00002470: 49 4E 45 53 2C 89 20 53 4C 4F 57 00 89 2C 16 02 |INES,. SLOW..,..|
00002480: 3B 4D 4F 44 45 20 AF 20 8E 00 8F 2C 17 02 3B 00 |;MODE . ...,..;.|
00002490: B5 2C 18 02 52 4C 4F 41 20 4A 53 52 20 53 45 54 |.,..RLOA JSR SET|
000024A0: 55 50 3A 42 50 4C 20 4E 58 52 4F 4F 54 3A 4A 4D |UP:BPL NXROOT:JM|
000024B0: 50 20 A5 A5 44 00 D6 2C 19 02 4E 58 52 4F 4F 54 |P ..D..,..NXROOT|
000024C0: 20 4A 53 52 20 53 45 54 50 4C 44 3A 4A 53 52 20 | JSR SETPLD:JSR |
000024D0: 44 B0 41 4D 4C 44 00 F5 2C 1A 02 3A 20 20 20 20 |D.AMLD..,..: |
000024E0: 20 20 4C 44 41 20 42 4C 4F 43 4B 32 AA 31 3A 43 | LDA BLOCK2.1:C|
000024F0: 4D 50 20 34 36 00 1B 2D 1B 02 3A 20 20 20 20 20 |MP 46..-..: |
00002500: 20 42 4E 45 20 52 4C 4F 45 58 54 3A 4C 44 41 20 | BNE RLOEXT:LDA |
00002510: 5A 50 AA 32 3A 53 54 41 20 34 35 00 3D 2D 1C 02 |ZP.2:STA 45.=-..|
00002520: 3A 20 20 20 20 20 20 53 54 41 20 34 37 3A 53 54 |: STA 47:ST|
00002530: 41 20 34 39 3A 4C 44 41 20 5A 50 AA 33 00 5D 2D |A 49:LDA ZP.3.]-|
00002540: 1D 02 3A 20 20 20 20 20 20 53 54 41 20 34 36 3A |..: STA 46:|
00002550: 53 54 41 20 34 38 3A 53 54 41 20 35 30 00 73 2D |STA 48:STA 50.s-|
00002560: 1E 02 3A 20 20 20 20 20 20 4A 53 52 20 52 45 4C |..: JSR REL|
00002570: 49 4E 4B 00 8C 2D 1F 02 52 4C 4F 45 58 54 20 4A |INK..-..RLOEXT J|
00002580: 53 52 20 CB 53 4C 4F 57 3A 52 54 53 00 AA 2D 20 |SR .SLOW:RTS..- |
00002590: 02 A5 A5 44 20 20 4A 53 52 20 52 4C 4F 45 58 54 |...D JSR RLOEXT|
000025A0: 3A 4A 4D 50 20 A5 46 45 52 52 00 C7 2D 21 02 4D |:JMP .FERR..-!.M|
000025B0: 44 49 4E 49 54 20 4C 44 41 20 42 4C 4F 43 4B 31 |DINIT LDA BLOCK1|
000025C0: 3A 53 54 41 20 5A 50 00 E8 2D 22 02 3A 20 20 20 |:STA ZP..-".: |
000025D0: 20 20 20 4C 44 41 20 42 4C 4F 43 4B 31 AA 31 3A | LDA BLOCK1.1:|
000025E0: 53 54 41 20 5A 50 AA 31 00 07 2E 23 02 3A 20 20 |STA ZP.1...#.: |
000025F0: 20 20 20 20 4C 44 41 20 42 4C 4F 43 4B 32 3A 53 | LDA BLOCK2:S|
00002600: 54 41 20 5A 50 AA 32 00 28 2E 24 02 3A 20 20 20 |TA ZP.2.(.$.: |
00002610: 20 20 20 4C 44 41 20 42 4C 4F 43 4B 32 AA 31 3A | LDA BLOCK2.1:|
00002620: 53 54 41 20 5A 50 AA 33 00 4F 2E 25 02 3A 20 20 |STA ZP.3.O.%.: |
00002630: 20 20 20 20 4C 44 58 20 4E 55 4D 42 45 52 3A 4C | LDX NUMBER:L|
00002640: 44 59 20 4E 55 4D 42 45 52 AA 31 3A 52 54 53 00 |DY NUMBER.1:RTS.|
00002650: 66 2E 26 02 4D 4F 56 45 44 4E 20 4A 53 52 20 53 |f.&.MOVEDN JSR S|
00002660: 43 4F 55 4E 54 31 00 87 2E 27 02 44 4F 57 4E 4C |COUNT1...'.DOWNL|
00002670: 50 20 4A 53 52 20 A1 56 44 43 3A 53 54 41 20 28 |P JSR .VDC:STA (|
00002680: 5A 50 AA 32 29 2C 59 00 A8 2E 28 02 3A 20 20 20 |ZP.2),Y...(.: |
00002690: 20 20 20 4A 53 52 20 41 44 44 91 45 3A 44 45 43 | JSR ADD.E:DEC|
000026A0: 20 43 4F 55 4E 54 45 52 00 CC 2E 29 02 3A 20 20 | COUNTER...).: |
000026B0: 20 20 20 20 42 4E 45 20 44 4F 57 4E 4C 50 3A 44 | BNE DOWNLP:D|
000026C0: 45 43 20 43 4F 55 4E 54 45 52 AA 31 00 EE 2E 2A |EC COUNTER.1...*|
000026D0: 02 3A 20 20 20 20 20 20 4C 44 41 20 43 4F 55 4E |.: LDA COUN|
000026E0: 54 45 52 AA 31 3A 43 4D 50 20 23 32 35 35 00 08 |TER.1:CMP #255..|
000026F0: 2F 2B 02 3A 20 20 20 20 20 20 42 4E 45 20 44 4F |/+.: BNE DO|
00002700: 57 4E 4C 50 3A 52 54 53 00 1F 2F 2C 02 4D 4F 56 |WNLP:RTS../,.MOV|
00002710: 45 55 50 20 4A 53 52 20 53 43 4F 55 4E 54 31 00 |EUP JSR SCOUNT1.|
00002720: 40 2F 2D 02 4D 4F 55 50 4C 50 20 4C 44 41 20 28 |@/-.MOUPLP LDA (|
00002730: 5A 50 29 2C 59 3A 4A 53 52 20 50 55 54 56 44 43 |ZP),Y:JSR PUTVDC|
00002740: 00 61 2F 2E 02 3A 20 20 20 20 20 20 4A 53 52 20 |.a/..: JSR |
00002750: 41 44 44 91 45 3A 44 45 43 20 43 4F 55 4E 54 45 |ADD.E:DEC COUNTE|
00002760: 52 00 85 2F 2F 02 3A 20 20 20 20 20 20 42 4E 45 |R..//.: BNE|
00002770: 20 4D 4F 55 50 4C 50 3A 44 45 43 20 43 4F 55 4E | MOUPLP:DEC COUN|
00002780: 54 45 52 AA 31 00 A7 2F 30 02 3A 20 20 20 20 20 |TER.1../0.: |
00002790: 20 4C 44 41 20 43 4F 55 4E 54 45 52 AA 31 3A 43 | LDA COUNTER.1:C|
000027A0: 4D 50 20 23 32 35 35 00 C1 2F 31 02 3A 20 20 20 |MP #255../1.: |
000027B0: 20 20 20 42 4E 45 20 4D 4F 55 50 4C 50 3A 52 54 | BNE MOUPLP:RT|
000027C0: 53 00 E6 2F 32 02 41 44 44 91 45 20 49 4E 43 20 |S../2.ADD.E INC |
000027D0: 5A 50 3A 42 4E 45 20 49 4E 43 54 41 52 3A 49 4E |ZP:BNE INCTAR:IN|
000027E0: 43 20 5A 50 AA 31 00 0E 30 33 02 49 4E 43 54 41 |C ZP.1..03.INCTA|
000027F0: 52 20 49 4E 43 20 5A 50 AA 32 3A 42 4E 45 20 41 |R INC ZP.2:BNE A|
00002800: 44 45 58 49 54 3A 49 4E 43 20 5A 50 AA 33 00 1D |DEXIT:INC ZP.3..|
00002810: 30 34 02 41 44 45 58 49 54 20 52 54 53 00 43 30 |04.ADEXIT RTS.C0|
00002820: 35 02 53 43 4F 55 4E 54 31 20 53 54 58 20 43 4F |5.SCOUNT1 STX CO|
00002830: 55 4E 54 45 52 3A 53 54 59 20 43 4F 55 4E 54 45 |UNTER:STY COUNTE|
00002840: 52 AA 31 00 5A 30 36 02 3A 20 20 20 20 20 20 20 |R.1.Z06.: |
00002850: 4C 44 59 20 23 30 3A 52 54 53 00 60 30 37 02 3B |LDY #0:RTS.`07.;|
00002860: 00 80 30 38 02 3B 42 4C 41 4E 4B 20 53 43 52 45 |..08.;BLANK SCRE|
00002870: 45 4E 20 AF 20 89 20 46 41 53 54 20 4D 4F 44 45 |EN . . FAST MODE|
00002880: 00 86 30 39 02 3B 00 A8 30 3A 02 CB 46 41 53 54 |..09.;..0:..FAST|
00002890: 20 4C 44 41 20 35 33 32 36 35 3A AF 20 23 32 33 | LDA 53265:. #23|
000028A0: 39 3A 4C 44 58 20 23 31 00 BF 30 3B 02 3A 20 20 |9:LDX #1..0;.: |
000028B0: 20 20 20 20 4A 4D 50 20 53 45 54 4D 4F 44 45 00 | JMP SETMODE.|
000028C0: C5 30 3C 02 3B 00 E3 30 3D 02 3B 46 49 58 20 53 |.0<.;..0=.;FIX S|
000028D0: 43 52 45 45 4E 20 AF 20 89 20 53 4C 4F 57 20 4D |CREEN . . SLOW M|
000028E0: 4F 44 45 00 E9 30 3E 02 3B 00 0B 31 3F 02 CB 53 |ODE..0>.;..1?..S|
000028F0: 4C 4F 57 20 4C 44 41 20 35 33 32 36 35 3A B0 41 |LOW LDA 53265:.A|
00002900: 20 23 31 36 3A 4C 44 58 20 23 30 00 2F 31 40 02 | #16:LDX #0./1@.|
00002910: 53 45 54 4D 4F 44 45 20 53 54 41 20 35 33 32 36 |SETMODE STA 5326|
00002920: 35 3A 53 54 58 20 35 33 32 39 36 3A 52 54 53 00 |5:STX 53296:RTS.|
00002930: 35 31 41 02 3B 00 4F 31 42 02 3B 52 4F 55 54 49 |51A.;.O1B.;ROUTI|
00002940: 4E 45 53 20 A4 20 87 20 26 20 57 52 49 54 45 00 |NES . . & WRITE.|
00002950: 60 31 43 02 3B A4 20 56 44 43 20 4D 45 4D B0 59 |`1C.;. VDC MEM.Y|
00002960: 00 66 31 44 02 3B 00 8C 31 45 02 A1 56 44 43 20 |.f1D.;..1E..VDC |
00002970: 4C 44 41 20 5A 50 3A 53 54 41 20 56 44 43 4C 4F |LDA ZP:STA VDCLO|
00002980: 42 59 54 3A 4C 44 41 20 5A 50 AA 31 00 AB 31 46 |BYT:LDA ZP.1..1F|
00002990: 02 3A 20 20 20 20 20 20 53 54 41 20 56 44 43 48 |.: STA VDCH|
000029A0: 49 42 59 54 3A 4A 53 52 20 C2 31 00 C3 31 47 02 |IBYT:JSR .1..1G.|
000029B0: 3A 20 20 20 20 20 20 4C 44 41 20 56 44 43 83 3A |: LDA VDC.:|
000029C0: 52 54 53 00 E0 31 48 02 50 55 54 56 44 43 20 53 |RTS..1H.PUTVDC S|
000029D0: 54 41 20 56 44 43 83 3A 4C 44 41 20 5A 50 AA 32 |TA VDC.:LDA ZP.2|
000029E0: 00 01 32 49 02 3A 20 20 20 20 20 20 53 54 41 20 |..2I.: STA |
000029F0: 56 44 43 4C 4F 42 59 54 3A 4C 44 41 20 5A 50 AA |VDCLOBYT:LDA ZP.|
00002A00: 33 00 20 32 4A 02 3A 20 20 20 20 20 20 53 54 41 |3. 2J.: STA|
00002A10: 20 56 44 43 48 49 42 59 54 3A 4A 53 52 20 97 31 | VDCHIBYT:JSR .1|
00002A20: 00 2F 32 4B 02 3A 20 20 20 20 20 20 52 54 53 00 |./2K.: RTS.|
00002A30: 35 32 4C 02 3B 00 4F 32 4D 02 3B 53 A4 52 45 20 |52L.;.O2M.;S.RE |
00002A40: 83 20 54 4F 20 56 44 43 20 4D 45 4D 4F 52 59 00 |. TO VDC MEMORY.|
00002A50: 55 32 4E 02 3B 00 6D 32 4F 02 97 31 20 4A 53 52 |U2N.;.m2O..1 JSR|
00002A60: 20 C2 32 3A 4A 53 52 20 53 45 54 4C 4F 00 8E 32 | .2:JSR SETLO..2|
00002A70: 50 02 3A 20 20 20 20 20 4C 44 41 20 56 44 43 83 |P.: LDA VDC.|
00002A80: 3A 53 54 41 20 35 34 37 38 35 3A 52 54 53 00 94 |:STA 54785:RTS..|
00002A90: 32 51 02 3B 00 AD 32 52 02 3B 87 20 83 20 46 52 |2Q.;..2R.;. . FR|
00002AA0: 4F 4D 20 56 44 43 20 4D 45 4D 4F 52 59 00 B3 32 |OM VDC MEMORY..2|
00002AB0: 53 02 3B 00 D2 32 54 02 C2 31 20 4A 53 52 20 C2 |S.;..2T..1 JSR .|
00002AC0: 32 3A 4A 53 52 20 92 31 3A 4A 53 52 20 53 45 54 |2:JSR .1:JSR SET|
00002AD0: 4C 4F 00 F3 32 55 02 3A 20 20 20 20 20 4C 44 41 |LO..2U.: LDA|
00002AE0: 20 35 34 37 38 35 3A 53 54 41 20 56 44 43 83 3A | 54785:STA VDC.:|
00002AF0: 52 54 53 00 F9 32 56 02 3B 00 11 33 57 02 3B 4D |RTS..2V.;..3W.;M|
00002B00: 49 53 43 2E 20 56 44 43 20 52 4F 55 54 49 4E 45 |ISC. VDC ROUTINE|
00002B10: 53 00 17 33 58 02 3B 00 38 33 59 02 53 45 54 4C |S..3X.;.83Y.SETL|
00002B20: 4F 20 4C 44 41 20 56 44 43 4C 4F 42 59 54 3A 53 |O LDA VDCLOBYT:S|
00002B30: 54 41 20 35 34 37 38 35 00 54 33 5A 02 3A 20 20 |TA 54785.T3Z.: |
00002B40: 20 20 20 4C 44 41 20 23 33 31 3A 53 54 41 20 35 | LDA #31:STA 5|
00002B50: 34 37 38 34 00 73 33 5B 02 92 31 20 4C 44 41 20 |4784.s3[..1 LDA |
00002B60: 35 34 37 38 34 3A AF 20 23 31 32 38 3A 42 45 51 |54784:. #128:BEQ|
00002B70: 20 92 31 00 81 33 5C 02 3A 20 20 20 20 20 52 54 | .1..3\.: RT|
00002B80: 53 00 A1 33 5D 02 C2 32 20 4C 44 41 20 23 31 38 |S..3]..2 LDA #18|
00002B90: 3A 53 54 41 20 35 34 37 38 34 3A 4A 53 52 20 92 |:STA 54784:JSR .|
00002BA0: 31 00 C2 33 5E 02 3A 20 20 20 20 20 4C 44 41 20 |1..3^.: LDA |
00002BB0: 56 44 43 48 49 42 59 54 3A 53 54 41 20 35 34 37 |VDCHIBYT:STA 547|
00002BC0: 38 35 00 E2 33 5F 02 3A 20 20 20 20 20 4C 44 41 |85..3_.: LDA|
00002BD0: 20 23 31 39 3A 53 54 41 20 35 34 37 38 34 3A 52 | #19:STA 54784:R|
00002BE0: 54 53 00 E8 33 60 02 3B 00 05 34 61 02 3B 49 4E |TS..3`.;..4a.;IN|
00002BF0: 49 54 49 41 4C 49 5A 45 20 54 48 45 20 52 41 4D |ITIALIZE THE RAM|
00002C00: 20 44 49 53 4B 00 0B 34 62 02 3B 00 27 34 63 02 | DISK..4b.;.'4c.|
00002C10: 52 44 43 4C 45 41 52 20 4C 44 58 20 23 30 3A 4C |RDCLEAR LDX #0:L|
00002C20: 44 41 20 23 22 40 22 00 4E 34 64 02 52 43 31 20 |DA #"@".N4d.RC1 |
00002C30: 53 54 41 20 44 49 52 42 55 46 46 2C 58 3A 49 4E |STA DIRBUFF,X:IN|
00002C40: 58 3A 43 50 58 20 23 42 55 4D 41 58 AB 31 00 69 |X:CPX #BUMAX.1.i|
00002C50: 34 65 02 3A 20 20 20 42 45 51 20 52 44 42 59 54 |4e.: BEQ RDBYT|
00002C60: 45 3A 4A 4D 50 20 52 43 31 00 89 34 66 02 52 44 |E:JMP RC1..4f.RD|
00002C70: 42 59 54 45 20 20 4C 44 58 20 23 42 59 4D 41 58 |BYTE LDX #BYMAX|
00002C80: AA 31 3A 4C 44 41 20 23 30 00 AA 34 67 02 52 43 |.1:LDA #0..4g.RC|
00002C90: 32 20 53 54 41 20 44 49 52 42 59 54 2C 58 3A 44 |2 STA DIRBYT,X:D|
00002CA0: 45 58 3A 42 50 4C 20 52 43 32 00 BF 34 68 02 3A |EX:BPL RC2..4h.:|
00002CB0: 20 20 20 4A 53 52 20 B8 52 41 4D 3A 52 54 53 00 | JSR .RAM:RTS.|
00002CC0: C5 34 69 02 3B 00 E2 34 6A 02 3B 52 4F 55 54 49 |.4i.;..4j.;ROUTI|
00002CD0: 4E 45 20 A4 20 44 49 53 50 4C 41 59 20 43 41 54 |NE . DISPLAY CAT|
00002CE0: 41 BC 00 E8 34 6B 02 3B 00 03 35 6C 02 44 49 52 |A...4k.;..5l.DIR|
00002CF0: A1 20 4C 44 41 20 23 30 3A 53 54 41 20 54 45 4D |. LDA #0:STA TEM|
00002D00: 50 44 41 00 27 35 6D 02 3A 20 20 20 20 20 20 53 |PDA.'5m.: S|
00002D10: 54 41 20 54 45 4D 50 44 41 AA 31 3A 4C 44 41 20 |TA TEMPDA.1:LDA |
00002D20: 23 B3 44 49 52 54 49 00 49 35 6E 02 3A 20 20 20 |#.DIRTI.I5n.: |
00002D30: 20 20 20 4C 44 59 20 23 B1 44 49 52 54 49 3A 4A | LDY #.DIRTI:J|
00002D40: 53 52 20 50 52 54 52 4F 55 00 6A 35 6F 02 3A 20 |SR PRTROU.j5o.: |
00002D50: 20 20 20 20 20 4A 53 52 20 43 41 52 52 45 54 3A | JSR CARRET:|
00002D60: 4A 53 52 20 46 49 4E 42 C3 54 00 8F 35 70 02 3A |JSR FINB.T..5p.:|
00002D70: 20 20 20 20 20 20 43 4D 50 20 23 30 3A 42 45 51 | CMP #0:BEQ|
00002D80: 20 52 44 45 4D 50 3A 43 4D 50 20 23 32 35 35 00 | RDEMP:CMP #255.|
00002D90: AF 35 71 02 3A 20 20 20 20 20 20 42 4E 45 20 54 |.5q.: BNE T|
00002DA0: 45 4D 44 49 52 3A 4C 44 41 20 23 A5 4D 41 58 00 |EMDIR:LDA #.MAX.|
00002DB0: C3 35 72 02 54 45 4D 44 49 52 20 53 54 41 20 54 |.5r.TEMDIR STA T|
00002DC0: 45 4D 50 00 E1 35 73 02 44 49 52 4C 50 31 20 44 |EMP..5s.DIRLP1 D|
00002DD0: 45 43 20 54 45 4D 50 3A 4A 53 52 20 46 49 4C A5 |EC TEMP:JSR FIL.|
00002DE0: 41 00 05 36 74 02 3A 20 20 20 20 20 20 4A 53 52 |A..6t.: JSR|
00002DF0: 20 50 52 54 4E 41 4D 3A 4C 44 41 20 23 B3 46 49 | PRTNAM:LDA #.FI|
00002E00: 4C 4E 41 4D 45 00 29 36 75 02 3A 20 20 20 20 20 |LNAME.)6u.: |
00002E10: 20 4C 44 59 20 23 B1 46 49 4C 4E 41 4D 45 3A 4A | LDY #.FILNAME:J|
00002E20: 53 52 20 50 52 54 52 4F 55 00 4E 36 76 02 3A 20 |SR PRTROU.N6v.: |
00002E30: 20 20 20 20 20 4C 44 41 20 23 31 39 3A 53 54 41 | LDA #19:STA|
00002E40: 20 32 31 31 3A 4C 44 58 20 53 54 41 52 54 00 6E | 211:LDX START.n|
00002E50: 36 77 02 3A 20 20 20 20 20 20 4C 44 41 20 53 54 |6w.: LDA ST|
00002E60: 41 52 54 AA 31 3A 4A 53 52 20 50 52 54 B5 00 94 |ART.1:JSR PRT...|
00002E70: 36 78 02 3A 20 20 20 20 20 20 4C 44 41 20 23 33 |6x.: LDA #3|
00002E80: 30 3A 53 54 41 20 32 31 31 3A 4A 53 52 20 41 4F |0:STA 211:JSR AO|
00002E90: 54 50 4C 45 00 AF 36 79 02 3A 20 20 20 20 20 20 |TPLE..6y.: |
00002EA0: 4C 44 58 20 50 C3 3A 4C 44 41 20 50 C3 AA 31 00 |LDX P.:LDA P..1.|
00002EB0: D3 36 7A 02 3A 20 20 20 20 20 20 4A 53 52 20 50 |.6z.: JSR P|
00002EC0: 52 54 B5 3A 4C 44 41 20 54 45 4D 50 3A 43 4D 50 |RT.:LDA TEMP:CMP|
00002ED0: 20 23 30 00 F2 36 7B 02 3A 20 20 20 20 20 20 42 | #0..6{.: B|
00002EE0: 45 51 20 44 49 52 B8 3A 4A 53 52 20 43 41 52 52 |EQ DIR.:JSR CARR|
00002EF0: 45 54 00 08 37 7C 02 3A 20 20 20 20 20 20 4A 4D |ET..7|.: JM|
00002F00: 50 20 44 49 52 4C 50 31 00 25 37 7D 02 44 49 52 |P DIRLP1.%7}.DIR|
00002F10: B8 20 4A 53 52 20 43 41 52 52 45 54 3A 4A 53 52 |. JSR CARRET:JSR|
00002F20: 20 B8 52 41 4D 00 44 37 7E 02 3A 20 20 20 20 20 | .RAM.D7~.: |
00002F30: 20 4C 44 58 20 4D 45 4D B8 3A 4C 44 41 20 4D 45 | LDX MEM.:LDA ME|
00002F40: 4D B8 AA 31 00 63 37 7F 02 3A 20 20 20 20 20 20 |M..1.c7..: |
00002F50: 4A 53 52 20 50 52 54 B5 3A 4C 44 41 20 23 B3 56 |JSR PRT.:LDA #.V|
00002F60: 44 43 B8 00 88 37 80 02 3A 20 20 20 20 20 20 4C |DC...7..: L|
00002F70: 44 59 20 23 B1 56 44 43 B8 3A 4A 53 52 20 50 52 |DY #.VDC.:JSR PR|
00002F80: 54 52 4F 55 3A 52 54 53 00 AA 37 81 02 52 44 45 |TROU:RTS..7..RDE|
00002F90: 4D 50 20 4C 44 41 20 23 B3 44 49 8F 50 3A 4C 44 |MP LDA #.DI.P:LD|
00002FA0: 59 20 23 3E 44 49 52 45 4D 50 00 C8 37 82 02 3A |Y #>DIREMP..7..:|
00002FB0: 20 20 20 20 20 4A 53 52 20 50 52 54 52 4F 55 3A | JSR PRTROU:|
00002FC0: 4A 4D 50 20 44 49 52 B8 00 E9 37 83 02 43 41 52 |JMP DIR...7..CAR|
00002FD0: 52 45 54 20 4C 44 41 20 23 31 33 3A 4A 53 52 20 |RET LDA #13:JSR |
00002FE0: 36 35 34 39 30 3A 52 54 53 00 0B 38 84 02 50 52 |65490:RTS..8..PR|
00002FF0: 54 4E 41 4D 20 4C 44 41 20 23 30 3A 4C 44 59 20 |TNAM LDA #0:LDY |
00003000: 54 45 4D 50 3A 43 50 59 20 23 30 00 1F 38 85 02 |TEMP:CPY #0..8..|
00003010: 3A 20 20 20 20 20 20 42 45 51 20 50 41 52 A1 00 |: BEQ PAR..|
00003020: 46 38 86 02 50 52 54 41 4C 50 20 43 4C 43 3A 41 |F8..PRTALP CLC:A|
00003030: 44 43 20 23 4D 41 58 3A 44 45 59 3A 42 4E 45 20 |DC #MAX:DEY:BNE |
00003040: 50 52 54 41 4C 50 00 67 38 87 02 50 41 52 A1 20 |PRTALP.g8..PAR. |
00003050: 54 41 59 3A 4C 44 41 20 44 49 52 42 59 54 2C 59 |TAY:LDA DIRBYT,Y|
00003060: 3A 53 54 41 20 50 C3 00 8C 38 88 02 3A 20 20 20 |:STA P...8..: |
00003070: 20 20 20 49 4E 59 3A 4C 44 41 20 44 49 52 42 59 | INY:LDA DIRBY|
00003080: 54 2C 59 3A 53 54 41 20 50 C3 AA 31 00 B2 38 89 |T,Y:STA P..1..8.|
00003090: 02 3A 20 20 20 20 20 20 49 4E 59 3A 4C 44 41 20 |.: INY:LDA |
000030A0: 44 49 52 42 59 54 2C 59 3A 53 54 41 20 53 54 41 |DIRBYT,Y:STA STA|
000030B0: 52 54 00 DA 38 8A 02 3A 20 20 20 20 20 20 49 4E |RT..8..: IN|
000030C0: 59 3A 4C 44 41 20 44 49 52 42 59 54 2C 59 3A 53 |Y:LDA DIRBYT,Y:S|
000030D0: 54 41 20 53 54 41 52 54 AA 31 00 FC 38 8B 02 3A |TA START.1..8..:|
000030E0: 20 20 20 20 20 20 4C 44 41 20 23 30 3A 4C 44 59 | LDA #0:LDY|
000030F0: 20 54 45 4D 50 3A 43 50 59 20 23 30 00 12 39 8C | TEMP:CPY #0..9.|
00003100: 02 3A 20 20 20 20 20 20 42 45 51 20 4E 41 5A 45 |.: BEQ NAZE|
00003110: 52 4F 00 30 39 8D 02 4E 41 4D 41 44 4A 20 43 4C |RO.09..NAMADJ CL|
00003120: 43 3A 41 44 43 20 23 A5 53 49 5A 45 3A 44 45 59 |C:ADC #.SIZE:DEY|
00003130: 00 46 39 8E 02 3A 20 20 20 20 20 20 42 4E 45 20 |.F9..: BNE |
00003140: 4E 41 4D 41 44 4A 00 5C 39 8F 02 4E 41 5A 45 52 |NAMADJ.\9..NAZER|
00003150: 4F 20 4C 44 58 20 23 30 3A 54 41 59 00 7C 39 90 |O LDX #0:TAY.|9.|
00003160: 02 4E 41 4D A1 20 4C 44 41 20 44 49 52 42 55 46 |.NAM. LDA DIRBUF|
00003170: 46 2C 59 3A 43 4D 50 20 23 22 40 22 00 9F 39 91 |F,Y:CMP #"@"..9.|
00003180: 02 3A 20 20 20 20 20 20 42 45 51 20 4E 41 44 91 |.: BEQ NAD.|
00003190: 45 3A 53 54 41 20 46 49 4C 4E 41 4D 45 2C 58 00 |E:STA FILNAME,X.|
000031A0: BB 39 92 02 3A 20 20 20 20 20 20 49 4E 59 3A 49 |.9..: INY:I|
000031B0: 4E 58 3A 4A 4D 50 20 4E 41 4D A1 00 DE 39 93 02 |NX:JMP NAM...9..|
000031C0: 4E 41 44 91 45 20 4C 44 41 20 23 30 3A 53 54 41 |NAD.E LDA #0:STA|
000031D0: 20 46 49 4C 4E 41 4D 45 2C 58 3A 52 54 53 00 ED | FILNAME,X:RTS..|
000031E0: 39 94 02 3A 20 20 20 20 20 20 52 54 53 00 07 3A |9..: RTS..:|
000031F0: 95 02 46 49 4C A5 41 20 4C 44 59 20 23 30 3A 4C |..FIL.A LDY #0:L|
00003200: 44 41 20 23 22 40 22 00 24 3A 96 02 46 49 4C 4C |DA #"@".$:..FILL|
00003210: 4E 41 20 53 54 41 20 46 49 4C 4E 41 4D 45 2C 59 |NA STA FILNAME,Y|
00003220: 3A 49 4E 59 00 45 3A 97 02 3A 20 20 20 20 20 20 |:INY.E:..: |
00003230: 43 50 59 20 23 A5 53 49 5A 45 3A 42 4E 45 20 46 |CPY #.SIZE:BNE F|
00003240: 49 4C 4C 4E 41 00 54 3A 98 02 3A 20 20 20 20 20 |ILLNA.T:..: |
00003250: 20 52 54 53 00 76 3A 99 02 50 52 54 52 4F 55 20 | RTS.v:..PRTROU |
00003260: 53 54 41 20 5A 50 3A 53 54 59 20 5A 50 AA 31 3A |STA ZP:STY ZP.1:|
00003270: 4C 44 59 20 23 30 00 93 3A 9A 02 50 52 54 4C 50 |LDY #0..:..PRTLP|
00003280: 31 20 4C 44 41 20 28 5A 50 29 2C 59 3A 43 4D 50 |1 LDA (ZP),Y:CMP|
00003290: 20 23 30 00 B7 3A 9B 02 3A 20 20 20 20 20 20 42 | #0..:..: B|
000032A0: 45 51 20 50 52 54 45 58 54 3A 4A 53 52 20 36 35 |EQ PRTEXT:JSR 65|
000032B0: 34 39 30 3A 49 4E 59 00 CD 3A 9C 02 3A 20 20 20 |490:INY..:..: |
000032C0: 20 20 20 4A 4D 50 20 50 52 54 4C 50 31 00 DC 3A | JMP PRTLP1..:|
000032D0: 9D 02 50 52 54 45 58 54 20 52 54 53 00 FB 3A 9E |..PRTEXT RTS..:.|
000032E0: 02 41 4F 54 50 4C 45 20 43 4C 43 3A 4C 44 41 20 |.AOTPLE CLC:LDA |
000032F0: 50 C3 3A 4C 44 58 20 50 C3 AA 31 00 20 3B 9F 02 |P.:LDX P..1. ;..|
00003300: 3A 20 20 20 20 20 20 41 44 43 20 23 31 3A 54 41 |: ADC #1:TA|
00003310: 59 3A 54 58 41 3A 41 44 43 20 23 30 3A 54 41 58 |Y:TXA:ADC #0:TAX|
00003320: 00 43 3B A0 02 3A 20 20 20 20 20 20 54 59 41 3A |.C;..: TYA:|
00003330: 53 54 41 20 50 C3 3A 53 54 58 20 50 C3 AA 31 3A |STA P.:STX P..1:|
00003340: 52 54 53 00 4F 3B A1 02 AC B2 24 43 30 30 30 00 |RTS.O;....$C000.|
00003350: 63 3B A2 02 49 4E 53 54 41 4C 20 4C 44 58 20 23 |c;..INSTAL LDX #|
00003360: 24 30 37 00 88 3B A3 02 49 4E 53 54 4C 31 20 4C |$07..;..INSTL1 L|
00003370: 44 41 20 49 43 52 4E 43 48 2C 58 3A 53 54 41 20 |DA ICRNCH,X:STA |
00003380: 56 45 43 53 41 56 2C 58 00 B0 3B A4 02 3A 20 20 |VECSAV,X..;..: |
00003390: 20 20 20 20 4C 44 41 20 49 56 45 43 53 2C 58 3A | LDA IVECS,X:|
000033A0: 53 54 41 20 49 43 52 4E 43 48 2C 58 3A 44 45 58 |STA ICRNCH,X:DEX|
000033B0: 00 D5 3B A5 02 3A 20 20 20 20 20 20 42 50 4C 20 |..;..: BPL |
000033C0: 49 4E 53 54 4C 31 3A 4A 53 52 20 4D 45 4D 43 48 |INSTL1:JSR MEMCH|
000033D0: 4B 3A 52 54 53 00 EA 3B A6 02 49 56 45 43 53 20 |K:RTS..;..IVECS |
000033E0: 2E 57 B0 44 20 A4 4B 4E 49 5A 00 FE 3B A7 02 3A |.W.D .KNIZ..;..:|
000033F0: 20 20 20 20 20 2E 57 B0 44 20 50 52 A4 4B 00 13 | .W.D PR.K..|
00003400: 3C A8 02 3A 20 20 20 20 20 2E 57 B0 44 20 45 58 |<..: .W.D EX|
00003410: 45 53 54 00 29 3C A9 02 3A 20 20 20 20 20 2E 57 |EST.)<..: .W|
00003420: B0 44 20 45 58 45 46 55 4E 00 4B 3C AA 02 4B 45 |.D EXEFUN.K<..KE|
00003430: 59 54 58 54 20 2E C6 20 22 52 43 41 22 3A 2E 42 |YTXT .. "RCA":.B|
00003440: 59 54 45 20 22 54 22 AA 31 32 38 00 6E 3C AB 02 |YTE "T".128.n<..|
00003450: 3A 20 20 20 20 20 20 2E C6 20 22 52 49 4E 49 22 |: .. "RINI"|
00003460: 3A 2E 42 59 54 45 20 22 54 22 AA 31 32 38 00 90 |:.BYTE "T".128..|
00003470: 3C AC 02 3A 20 20 20 20 20 20 2E C6 20 22 52 4C |<..: .. "RL|
00003480: 4F 22 3A 2E 42 59 54 45 20 22 41 22 AA 31 32 38 |O":.BYTE "A".128|
00003490: 00 B2 3C AD 02 3A 20 20 20 20 20 20 2E C6 20 22 |..<..: .. "|
000034A0: 52 53 41 22 3A 2E 42 59 54 45 20 22 56 22 AA 31 |RSA":.BYTE "V".1|
000034B0: 32 38 00 D4 3C AE 02 3A 20 20 20 20 20 20 2E C6 |28..<..: ..|
000034C0: 20 22 46 52 41 22 3A 2E 42 59 54 45 20 22 4D 22 | "FRA":.BYTE "M"|
000034D0: AA 31 32 38 00 E7 3C AF 02 3A 20 20 20 20 20 20 |.128..<..: |
000034E0: 2E 42 59 54 45 20 30 00 FF 3C B0 02 53 54 56 45 |.BYTE 0..<..STVE|
000034F0: 43 20 2E 57 B0 44 20 52 41 4D 44 49 52 AB 31 00 |C .W.D RAMDIR.1.|
00003500: 15 3D B1 02 3A 20 20 20 20 20 2E 57 B0 44 20 52 |.=..: .W.D R|
00003510: 41 4D B5 AB 31 00 2D 3D B2 02 3A 20 20 20 20 20 |AM..1.-=..: |
00003520: 2E 57 B0 44 20 52 41 4D 4C 4F 44 AB 31 00 45 3D |.W.D RAMLOD.1.E=|
00003530: B3 02 3A 20 20 20 20 20 2E 57 B0 44 20 52 41 4D |..: .W.D RAM|
00003540: 53 41 56 AB 31 00 5A 3D B4 02 46 55 4E 56 45 43 |SAV.1.Z=..FUNVEC|
00003550: 20 2E 57 B0 44 20 46 52 41 4D 00 80 3D B5 02 A4 | .W.D FRAM..=...|
00003560: 4B 4E 49 5A 20 4A 53 52 20 43 52 4E 43 48 3A 4C |KNIZ JSR CRNCH:L|
00003570: 44 58 20 23 24 30 30 3A 4C 44 59 20 23 24 30 34 |DX #$00:LDY #$04|
00003580: 00 96 3D B6 02 3A 20 20 20 20 20 20 53 54 59 20 |..=..: STY |
00003590: 47 41 52 42 46 4C 00 AB 3D B7 02 43 52 4E 31 20 |GARBFL..=..CRN1 |
000035A0: 20 20 4C 44 41 20 42 55 46 2C 58 00 C8 3D B8 02 | LDA BUF,X..=..|
000035B0: 43 52 4E 32 20 20 20 53 54 41 20 80 43 48 52 3A |CRN2 STA .CHR:|
000035C0: 43 4D 50 20 23 24 32 32 00 E9 3D B9 02 3A 20 20 |CMP #$22..=..: |
000035D0: 20 20 20 20 42 45 51 20 53 4B 51 55 4F 54 3A 42 | BEQ SKQUOT:B|
000035E0: 49 54 20 47 41 52 42 46 4C 00 0F 3E BA 02 3A 20 |IT GARBFL..>..: |
000035F0: 20 20 20 20 20 42 56 53 20 4D 4F 56 45 3A 43 4D | BVS MOVE:CM|
00003600: 50 20 23 22 41 22 3A 42 43 43 20 4D 4F 56 45 00 |P #"A":BCC MOVE.|
00003610: 2C 3E BB 02 3A 20 20 20 20 20 20 43 4D 50 20 23 |,>..: CMP #|
00003620: 24 35 42 3A 42 43 53 20 4D 4F 56 45 00 4F 3E BC |$5B:BCS MOVE.O>.|
00003630: 02 3A 20 20 20 20 20 20 53 54 59 20 46 42 55 46 |.: STY FBUF|
00003640: 50 54 3A 4C 44 59 20 23 A2 A4 4B AB 24 38 30 00 |PT:LDY #..K.$80.|
00003650: 6D 3E BD 02 3A 20 20 20 20 20 20 53 54 59 20 43 |m>..: STY C|
00003660: 4F 55 4E 54 3A 4C 44 59 20 23 24 46 46 00 87 3E |OUNT:LDY #$FF..>|
00003670: BE 02 3A 20 20 20 20 20 20 53 54 58 20 54 58 54 |..: STX TXT|
00003680: 50 54 52 3A 44 45 58 00 9A 3E BF 02 43 52 4E 33 |PTR:DEX..>..CRN3|
00003690: 20 20 20 49 4E 59 3A 49 4E 58 00 C0 3E C0 02 43 | INY:INX..>..C|
000036A0: 52 4E 34 20 20 20 4C 44 41 20 42 55 46 2C 58 3A |RN4 LDA BUF,X:|
000036B0: 53 45 43 3A 53 42 43 20 4B 45 59 54 58 54 2C 59 |SEC:SBC KEYTXT,Y|
000036C0: 00 DD 3E C1 02 3A 20 20 20 20 20 20 42 45 51 20 |..>..: BEQ |
000036D0: 43 52 4E 33 3A 43 4D 50 20 23 24 38 30 00 F9 3E |CRN3:CMP #$80..>|
000036E0: C2 02 3A 20 20 20 20 20 20 42 4E 45 20 82 4B 57 |..: BNE .KW|
000036F0: 3A B0 41 20 43 4F 55 4E 54 00 0F 3F C3 02 43 52 |:.A COUNT..?..CR|
00003700: 4E 35 20 20 20 4C 44 59 20 46 42 55 46 50 54 00 |N5 LDY FBUFPT.|
00003710: 2E 3F C4 02 4D 4F 56 45 20 20 20 49 4E 58 3A 49 |.?..MOVE INX:I|
00003720: 4E 59 3A 53 54 41 20 42 55 46 AB 35 2C 59 00 52 |NY:STA BUF.5,Y.R|
00003730: 3F C5 02 3A 20 20 20 20 20 20 4C 44 41 20 42 55 |?..: LDA BU|
00003740: 46 AB 35 2C 59 3A 42 45 51 20 45 58 49 54 3A 53 |F.5,Y:BEQ EXIT:S|
00003750: 45 43 00 70 3F C6 02 3A 20 20 20 20 20 20 53 42 |EC.p?..: SB|
00003760: 43 20 23 22 3A 22 3A 42 45 51 20 4D 4F 56 45 31 |C #":":BEQ MOVE1|
00003770: 00 90 3F C7 02 3A 20 20 20 20 20 20 43 4D 50 20 |..?..: CMP |
00003780: 23 44 41 54 A4 4B 3A 42 4E 45 20 4D 4F 56 45 32 |#DAT.K:BNE MOVE2|
00003790: 00 A6 3F C8 02 4D 4F 56 45 31 20 20 53 54 41 20 |..?..MOVE1 STA |
000037A0: 47 41 52 42 46 4C 00 C8 3F C9 02 4D 4F 56 45 32 |GARBFL..?..MOVE2|
000037B0: 20 20 53 45 43 3A 53 42 43 20 23 8F 54 4F 4B 3A | SEC:SBC #.TOK:|
000037C0: 42 4E 45 20 43 52 4E 31 00 DC 3F CA 02 3A 20 20 |BNE CRN1..?..: |
000037D0: 20 20 20 20 53 54 41 20 80 43 48 52 00 FA 3F CB | STA .CHR..?.|
000037E0: 02 53 4B 49 50 31 20 20 4C 44 41 20 42 55 46 2C |.SKIP1 LDA BUF,|
000037F0: 58 3A 42 45 51 20 4D 4F 56 45 00 17 40 CC 02 3A |X:BEQ MOVE..@..:|
00003800: 20 20 20 20 20 20 43 4D 50 20 80 43 48 52 3A 42 | CMP .CHR:B|
00003810: 45 51 20 4D 4F 56 45 00 36 40 CD 02 53 4B 51 55 |EQ MOVE.6@..SKQU|
00003820: 4F 54 20 49 4E 59 3A 53 54 41 20 42 55 46 AB 35 |OT INY:STA BUF.5|
00003830: 2C 59 3A 49 4E 58 00 4B 40 CE 02 3A 20 20 20 20 |,Y:INX.K@..: |
00003840: 20 20 42 4E 45 20 53 4B 49 50 31 00 68 40 CF 02 | BNE SKIP1.h@..|
00003850: 82 4B 57 20 4C 44 58 20 54 58 54 50 54 52 3A 49 |.KW LDX TXTPTR:I|
00003860: 4E 43 20 43 4F 55 4E 54 00 8A 40 D0 02 82 31 20 |NC COUNT..@...1 |
00003870: 20 49 4E 59 3A 4C 44 41 20 4B 45 59 54 58 54 AB | INY:LDA KEYTXT.|
00003880: 31 2C 59 3A 42 50 4C 20 82 31 00 AB 40 D1 02 3A |1,Y:BPL .1..@..:|
00003890: 20 20 20 20 20 20 4C 44 41 20 4B 45 59 54 58 54 | LDA KEYTXT|
000038A0: 2C 59 3A 42 4E 45 20 43 52 4E 34 00 C9 40 D2 02 |,Y:BNE CRN4..@..|
000038B0: 3A 20 20 20 20 20 20 4C 44 41 20 42 55 46 2C 58 |: LDA BUF,X|
000038C0: 3A 42 50 4C 20 43 52 4E 35 00 E9 40 D3 02 45 58 |:BPL CRN5..@..EX|
000038D0: 49 54 20 20 20 53 54 41 20 42 55 46 AB 33 2C 59 |IT STA BUF.3,Y|
000038E0: 3A 4C 44 41 20 23 24 46 46 00 03 41 D4 02 3A 20 |:LDA #$FF..A..: |
000038F0: 20 20 20 20 20 53 54 41 20 54 58 54 50 54 52 3A | STA TXTPTR:|
00003900: 52 54 53 00 1D 41 D5 02 50 52 A4 4B 20 20 42 50 |RTS..A..PR.K BP|
00003910: 4C 20 99 31 3A 43 4D 50 20 23 24 46 46 00 3A 41 |L .1:CMP #$FF.:A|
00003920: D6 02 3A 20 20 20 20 20 20 42 45 51 20 99 31 3A |..: BEQ .1:|
00003930: 42 49 54 20 47 41 52 42 46 4C 00 55 41 D7 02 3A |BIT GARBFL.UA..:|
00003940: 20 20 20 20 20 20 42 4D 49 20 99 31 3A 43 4D 50 | BMI .1:CMP|
00003950: 20 23 A2 A4 4B 00 79 41 D8 02 3A 20 20 20 20 20 | #..K.yA..: |
00003960: 20 42 43 43 20 4F 4C 44 50 52 3A 53 45 43 3A 53 | BCC OLDPR:SEC:S|
00003970: 42 43 20 23 A2 A4 4B AB 31 00 9A 41 D9 02 3A 20 |BC #..K.1..A..: |
00003980: 20 20 20 20 20 54 41 58 3A 53 54 59 20 81 50 4E | TAX:STY .PN|
00003990: 54 3A 4C 44 59 20 23 24 46 46 00 B3 41 DA 02 50 |T:LDY #$FF..A..P|
000039A0: 52 A4 4B 31 20 44 45 58 3A 42 45 51 20 50 52 4C |R.K1 DEX:BEQ PRL|
000039B0: 4F 4F 50 00 D8 41 DB 02 50 52 A4 4B 32 20 49 4E |OOP..A..PR.K2 IN|
000039C0: 59 3A 4C 44 41 20 4B 45 59 54 58 54 2C 59 3A 42 |Y:LDA KEYTXT,Y:B|
000039D0: 50 4C 20 50 52 A4 4B 32 00 ED 41 DC 02 3A 20 20 |PL PR.K2..A..: |
000039E0: 20 20 20 20 42 4D 49 20 50 52 A4 4B 31 00 10 42 | BMI PR.K1..B|
000039F0: DD 02 50 52 4C 4F 4F 50 20 49 4E 59 3A 4C 44 41 |..PRLOOP INY:LDA|
00003A00: 20 4B 45 59 54 58 54 2C 59 3A 42 4D 49 20 99 32 | KEYTXT,Y:BMI .2|
00003A10: 00 30 42 DE 02 3A 20 20 20 20 20 20 4A 53 52 20 |.0B..: JSR |
00003A20: 4F 55 54 44 4F 3A 42 4E 45 20 50 52 4C 4F 4F 50 |OUTDO:BNE PRLOOP|
00003A30: 00 41 42 DF 02 99 31 20 4A 4D 50 20 50 4C 4F 4F |.AB...1 JMP PLOO|
00003A40: 50 00 52 42 E0 02 99 32 20 4A 4D 50 20 50 52 49 |P.RB...2 JMP PRI|
00003A50: 54 34 00 67 42 E1 02 4F 4C 44 50 52 20 20 4A 4D |T4.gB..OLDPR JM|
00003A60: 50 20 51 50 4C 4F 50 00 84 42 E2 02 45 58 45 53 |P QPLOP..B..EXES|
00003A70: 54 20 20 4A 53 52 20 43 48 52 A1 3A 43 4D 50 20 |T JSR CHR.:CMP |
00003A80: 23 A2 A4 4B 00 A3 42 E3 02 3A 20 20 20 20 20 20 |#..K..B..: |
00003A90: 42 43 43 20 4F 4C 44 45 58 45 3A 4A 53 52 20 45 |BCC OLDEXE:JSR E|
00003AA0: 58 45 31 00 B7 42 E4 02 3A 20 20 20 20 20 20 4A |XE1..B..: J|
00003AB0: 4D 50 20 A2 53 54 54 00 D3 42 E5 02 45 58 45 31 |MP .STT..B..EXE1|
00003AC0: 20 20 20 53 42 43 20 23 A2 A4 4B 3A 41 53 4C 3A | SBC #..K:ASL:|
00003AD0: 54 41 59 00 F0 42 E6 02 3A 20 20 20 20 20 20 4C |TAY..B..: L|
00003AE0: 44 41 20 53 54 56 45 43 AA 31 2C 59 3A 50 48 41 |DA STVEC.1,Y:PHA|
00003AF0: 00 14 43 E7 02 3A 20 20 20 20 20 20 4C 44 41 20 |..C..: LDA |
00003B00: 53 54 56 45 43 2C 59 3A 50 48 41 3A 4A 4D 50 20 |STVEC,Y:PHA:JMP |
00003B10: 43 48 52 A1 00 33 43 E8 02 4F 4C 44 45 58 45 20 |CHR..3C..OLDEXE |
00003B20: 4A 53 52 20 43 48 52 CB 54 3A 4A 4D 50 20 CB 4E |JSR CHR.T:JMP .N|
00003B30: 45 AA 33 00 50 43 E9 02 45 58 45 46 55 4E 20 4C |E.3.PC..EXEFUN L|
00003B40: 44 41 20 23 24 30 30 3A 53 54 41 20 C5 54 59 50 |DA #$00:STA .TYP|
00003B50: 00 6D 43 EA 02 3A 20 20 20 20 20 20 4A 53 52 20 |.mC..: JSR |
00003B60: 43 48 52 A1 3A 43 4D 50 20 23 24 46 46 00 8E 43 |CHR.:CMP #$FF..C|
00003B70: EB 02 3A 20 20 20 20 20 20 42 45 51 20 4F 4C 44 |..: BEQ OLD|
00003B80: 46 55 4E 3A 43 4D 50 20 23 46 55 4E A4 4B 00 B3 |FUN:CMP #FUN.K..|
00003B90: 43 EC 02 3A 20 20 20 20 20 20 42 43 43 20 4F 4C |C..: BCC OL|
00003BA0: 44 46 55 4E 3A 53 45 43 3A 53 42 43 20 23 46 55 |DFUN:SEC:SBC #FU|
00003BB0: 4E A4 4B 00 CF 43 ED 02 3A 20 20 20 20 20 20 41 |N.K..C..: A|
00003BC0: 53 4C 3A 50 48 41 3A 4A 53 52 20 43 48 52 A1 00 |SL:PHA:JSR CHR..|
00003BD0: ED 43 EE 02 3A 20 20 20 20 20 20 4A 53 52 20 50 |.C..: JSR P|
00003BE0: 41 52 43 48 4B 3A 50 4C 41 3A 54 41 59 00 11 44 |ARCHK:PLA:TAY..D|
00003BF0: EF 02 3A 20 20 20 20 20 20 4C 44 41 20 46 55 4E |..: LDA FUN|
00003C00: 56 45 43 2C 59 3A 53 54 41 20 4A 4D 50 45 52 AA |VEC,Y:STA JMPER.|
00003C10: 31 00 37 44 F0 02 3A 20 20 20 20 20 20 4C 44 41 |1.7D..: LDA|
00003C20: 20 46 55 4E 56 45 43 AA 31 2C 59 3A 53 54 41 20 | FUNVEC.1,Y:STA |
00003C30: 4A 4D 50 45 52 AA 32 00 57 44 F1 02 3A 20 20 20 |JMPER.2.WD..: |
00003C40: 20 20 20 4A 53 52 20 4A 4D 50 45 52 3A 4A 4D 50 | JSR JMPER:JMP|
00003C50: 20 43 48 4B 4E 55 4D 00 75 44 F2 02 4F 4C 44 46 | CHKNUM.uD..OLDF|
00003C60: 55 4E 20 4A 53 52 20 43 48 52 CB 54 3A 4A 4D 50 |UN JSR CHR.T:JMP|
00003C70: 20 45 C5 AA 37 00 7B 44 F3 02 3B 00 97 44 F4 02 | E..7.{D..;..D..|
00003C80: 3B 83 20 4E 45 45 44 45 44 20 46 4F 52 20 42 41 |;. NEEDED FOR BA|
00003C90: 53 49 43 20 52 4F 4D 00 B5 44 F5 02 3B 52 4F 55 |SIC ROM..D..;ROU|
00003CA0: 54 49 4E 45 53 2C 20 41 4C 4C 20 4F 54 48 45 52 |TINES, ALL OTHER|
00003CB0: 53 20 41 52 45 00 CA 44 F6 02 3B 55 4E 44 45 52 |S ARE..D..;UNDER|
00003CC0: 20 42 41 53 49 43 20 52 4F 4D 00 ED 44 F7 02 3B | BASIC ROM..D..;|
00003CD0: 56 44 43 83 20 41 4C 53 4F 20 45 51 55 41 54 45 |VDC. ALSO EQUATE|
00003CE0: 53 20 57 49 54 48 20 54 45 4D 50 44 41 00 11 45 |S WITH TEMPDA..E|
00003CF0: F8 02 3B 56 44 43 4C 4F 42 59 54 20 45 51 55 41 |..;VDCLOBYT EQUA|
00003D00: 54 45 53 20 57 49 54 48 20 54 45 4D 50 44 41 AA |TES WITH TEMPDA.|
00003D10: 31 00 17 45 F9 02 3B 00 23 45 FA 02 4D 45 4D B8 |1..E..;.#E..MEM.|
00003D20: 20 B2 AC 00 47 45 FB 02 2E 42 59 54 45 20 30 2C | ...GE...BYTE 0,|
00003D30: 30 20 20 3B 42 59 54 45 53 20 B8 45 20 49 4E 20 |0 ;BYTES .E IN |
00003D40: 52 41 4D 44 49 53 4B 00 51 45 FC 02 50 C3 20 B2 |RAMDISK.QE..P. .|
00003D50: AC 00 72 45 FD 02 2E 42 59 54 45 20 30 2C 30 20 |..rE...BYTE 0,0 |
00003D60: 20 3B 46 49 4C 45 20 C3 47 54 48 AB 20 4C 4F 2C | ;FILE .GTH. LO,|
00003D70: 48 49 00 7F 45 FE 02 53 54 41 52 54 20 B2 AC 00 |HI..E..START ...|
00003D80: A2 45 FF 02 2E 42 59 54 45 20 30 2C 30 20 20 3B |.E...BYTE 0,0 ;|
00003D90: 46 49 4C 45 20 53 54 41 52 54 AB AB 20 4C 4F 2C |FILE START.. LO,|
00003DA0: 48 49 00 B0 45 00 03 54 45 4D 50 44 41 20 B2 AC |HI..E..TEMPDA ..|
00003DB0: 00 BC 45 01 03 56 44 43 83 20 3D 2A 00 DE 45 02 |..E..VDC. =*..E.|
00003DC0: 03 2E 42 59 54 45 20 30 20 20 20 20 3B 83 20 54 |..BYTE 0 ;. T|
00003DD0: 4F 20 53 54 4F 52 45 20 54 4F 20 56 44 43 00 EE |O STORE TO VDC..|
00003DE0: 45 03 03 56 44 43 4C 4F 42 59 54 20 B2 AC 00 14 |E..VDCLOBYT ....|
00003DF0: 46 04 03 2E 42 59 54 45 20 30 20 20 20 20 3B 56 |F...BYTE 0 ;V|
00003E00: 44 43 20 4C 4F 43 41 54 49 91 20 28 4C 4F AB 42 |DC LOCATI. (LO.B|
00003E10: 59 54 45 29 00 24 46 05 03 56 44 43 48 49 42 59 |YTE).$F..VDCHIBY|
00003E20: 54 20 B2 AC 00 4A 46 06 03 2E 42 59 54 45 20 30 |T ...JF...BYTE 0|
00003E30: 20 20 20 20 3B 56 44 43 20 4C 4F 43 41 54 49 91 | ;VDC LOCATI.|
00003E40: 20 28 48 49 AB 42 59 54 45 29 00 50 46 07 03 3B | (HI.BYTE).PF..;|
00003E50: 00 6C 46 08 03 3B 52 41 4D 20 44 49 53 4B 20 45 |.lF..;RAM DISK E|
00003E60: 52 52 B0 20 4D 45 53 53 41 47 45 53 00 72 46 09 |RR. MESSAGES.rF.|
00003E70: 03 3B 00 7E 46 0A 03 54 4C 91 47 20 B2 AC 00 95 |.;.~F..TL.G ....|
00003E80: 46 0B 03 2E C6 20 22 46 49 4C 45 20 54 4F 4F 20 |F.... "FILE TOO |
00003E90: 4C 4F 4E C7 22 00 A5 46 0C 03 46 55 4C 4C 4D 45 |LON."..F..FULLME|
00003EA0: 53 53 20 B2 AC 00 BD 46 0D 03 2E C6 20 22 44 49 |SS ....F.... "DI|
00003EB0: 52 45 43 54 4F 52 59 20 46 55 4C CC 22 00 C9 46 |RECTORY FUL."..F|
00003EC0: 0E 03 46 41 4C 87 20 B2 AC 00 DE 46 0F 03 2E C6 |..FAL. ....F....|
00003ED0: 20 22 46 49 4C 45 20 45 58 49 53 54 D3 22 00 EC | "FILE EXIST."..|
00003EE0: 46 10 03 A5 46 4D 45 53 53 20 B2 AC 00 04 47 11 |F...FMESS ....G.|
00003EF0: 03 2E C6 20 22 46 49 4C 45 20 4E 4F 54 20 46 4F |... "FILE NOT FO|
00003F00: 55 4E C4 22 00 0A 47 12 03 3B 00 2B 47 13 03 3B |UN."..G..;.+G..;|
00003F10: 52 41 4D 20 52 4F 55 54 49 4E 45 53 20 81 20 4D |RAM ROUTINES . M|
00003F20: 4C 20 55 4E 44 45 52 20 52 4F 4D 00 47 47 14 03 |L UNDER ROM.GG..|
00003F30: 3B 42 41 4E 4B 20 42 41 53 49 43 20 49 4E 2C 20 |;BANK BASIC IN, |
00003F40: 44 4F 20 57 B0 4B 2C 00 5D 47 15 03 3B A7 20 42 |DO W.K,.]G..;. B|
00003F50: 41 4E 4B 20 42 41 53 49 43 20 4F 55 54 00 63 47 |ANK BASIC OUT.cG|
00003F60: 16 03 3B 00 84 47 17 03 53 45 54 4D 4C 31 20 4A |..;..G..SETML1 J|
00003F70: 53 52 20 42 41 4E 42 49 4E 3A 4A 53 52 20 46 52 |SR BANBIN:JSR FR|
00003F80: 4D 45 56 4C 00 A3 47 18 03 3A 20 20 20 20 20 20 |MEVL..G..: |
00003F90: 4A 53 52 20 B8 53 54 52 3A 4A 4D 50 20 42 41 42 |JSR .STR:JMP BAB|
00003FA0: 4F 55 54 00 C4 47 19 03 53 45 54 4D 4C 32 20 4A |OUT..G..SETML2 J|
00003FB0: 53 52 20 42 41 4E 42 49 4E 3A 4A 53 52 20 43 48 |SR BANBIN:JSR CH|
00003FC0: 4B 43 4F 4D 00 E3 47 1A 03 3A 20 20 20 20 20 20 |KCOM..G..: |
00003FD0: 4A 53 52 20 46 52 4D 45 56 4C 3A 4A 53 52 20 A1 |JSR FRMEVL:JSR .|
00003FE0: 41 44 52 00 F9 47 1B 03 3A 20 20 20 20 20 20 4A |ADR..G..: J|
00003FF0: 4D 50 20 42 41 42 4F 55 54 00 1A 48 1C 03 52 45 |MP BABOUT..H..RE|
00004000: 4C 49 4E 4B 20 4A 53 52 20 42 41 4E 42 49 4E 3A |LINK JSR BANBIN:|
00004010: 4A 53 52 20 4C 49 4E 4B 50 47 00 30 48 1D 03 3A |JSR LINKPG.0H..:|
00004020: 20 20 20 20 20 20 4A 4D 50 20 42 41 42 4F 55 54 | JMP BABOUT|
00004030: 00 4D 48 1E 03 50 52 54 B5 20 4A 53 52 20 42 41 |.MH..PRT. JSR BA|
00004040: 4E 42 49 4E 3A 4A 53 52 20 4F 55 54 B5 00 63 48 |NBIN:JSR OUT..cH|
00004050: 1F 03 3A 20 20 20 20 20 20 4A 4D 50 20 42 41 42 |..: JMP BAB|
00004060: 4F 55 54 00 84 48 20 03 44 4F 45 52 B0 20 4A 53 |OUT..H .DOER. JS|
00004070: 52 20 42 41 4E 42 49 4E 3A 4A 4D 50 20 45 52 52 |R BANBIN:JMP ERR|
00004080: B0 AA 31 36 00 8A 48 21 03 3B 00 A2 48 22 03 3B |..16..H!.;..H".;|
00004090: 42 41 4E 4B 20 42 41 53 49 43 20 52 4F 4D 20 4F |BANK BASIC ROM O|
000040A0: 55 54 00 A8 48 23 03 3B 00 C4 48 24 03 42 41 42 |UT..H#.;..H$.BAB|
000040B0: 4F 55 54 20 50 48 41 3A 4C 44 41 20 31 3A AF 20 |OUT PHA:LDA 1:. |
000040C0: 23 32 35 34 00 DA 48 25 03 3A 20 20 20 20 20 20 |#254..H%.: |
000040D0: 4A 4D 50 20 42 49 4F 53 45 54 00 E0 48 26 03 3B |JMP BIOSET..H&.;|
000040E0: 00 F7 48 27 03 3B 42 41 4E 4B 20 42 41 53 49 43 |..H'.;BANK BASIC|
000040F0: 20 52 4F 4D 20 49 4E 00 FD 48 28 03 3B 00 18 49 | ROM IN..H(.;..I|
00004100: 29 03 42 41 4E 42 49 4E 20 50 48 41 3A 4C 44 41 |).BANBIN PHA:LDA|
00004110: 20 31 3A B0 41 20 23 31 00 31 49 2A 03 42 49 4F | 1:.A #1.1I*.BIO|
00004120: 53 45 54 20 53 54 41 20 31 3A 50 4C 41 3A 52 54 |SET STA 1:PLA:RT|
00004130: 53 00 37 49 2B 03 3B 00 4C 49 2C 03 3B 52 41 4D |S.7I+.;.LI,.;RAM|
00004140: 20 56 45 43 A4 52 53 20 81 20 4D 4C 00 69 49 2D | VEC.RS . ML.iI-|
00004150: 03 3B 55 4E 44 45 52 20 42 41 53 49 43 20 52 4F |.;UNDER BASIC RO|
00004160: 4D 2C 20 53 57 49 54 43 48 00 81 49 2E 03 3B 4F |M, SWITCH..I..;O|
00004170: 55 54 20 42 41 53 49 43 2C 20 44 4F 20 57 B0 4B |UT BASIC, DO W.K|
00004180: 2C 00 9B 49 2F 03 3B 53 57 49 54 43 48 20 42 41 |,..I/.;SWITCH BA|
00004190: 53 49 43 20 42 41 43 4B 20 49 4E 00 A1 49 30 03 |SIC BACK IN..I0.|
000041A0: 3B 00 C0 49 31 03 52 41 4D 4C 4F 44 20 4A 53 52 |;..I1.RAMLOD JSR|
000041B0: 20 42 41 42 4F 55 54 3A 4A 53 52 20 52 4C 4F 41 | BABOUT:JSR RLOA|
000041C0: 00 E0 49 32 03 3A 20 20 20 20 20 20 4A 4D 50 20 |..I2.: JMP |
000041D0: 42 41 4E 42 49 4E 3B 52 41 4D 44 49 53 4B 20 93 |BANBIN;RAMDISK .|
000041E0: 00 FF 49 33 03 52 41 4D 53 41 56 20 4A 53 52 20 |..I3.RAMSAV JSR |
000041F0: 42 41 42 4F 55 54 3A 4A 53 52 20 52 53 41 56 00 |BABOUT:JSR RSAV.|
00004200: 1F 4A 34 03 3A 20 20 20 20 20 20 4A 4D 50 20 42 |.J4.: JMP B|
00004210: 41 4E 42 49 4E 3B 52 41 4D 44 49 53 4B 20 94 00 |ANBIN;RAMDISK ..|
00004220: 3F 4A 35 03 52 41 4D B5 20 4A 53 52 20 42 41 42 |?J5.RAM. JSR BAB|
00004230: 4F 55 54 3A 4A 53 52 20 52 44 43 4C 45 41 52 00 |OUT:JSR RDCLEAR.|
00004240: 62 4A 36 03 3A 20 20 20 20 20 20 4A 4D 50 20 42 |bJ6.: JMP B|
00004250: 41 4E 42 49 4E 3B 52 41 4D 44 49 53 4B 20 49 4E |ANBIN;RAMDISK IN|
00004260: 49 54 00 81 4A 37 03 52 41 4D 44 49 52 20 4A 53 |IT..J7.RAMDIR JS|
00004270: 52 20 42 41 42 4F 55 54 3A 4A 53 52 20 44 49 52 |R BABOUT:JSR DIR|
00004280: A1 00 A5 4A 38 03 3A 20 20 20 20 20 20 4A 4D 50 |...J8.: JMP|
00004290: 20 42 41 4E 42 49 4E 3B 52 41 4D 44 49 53 4B 20 | BANBIN;RAMDISK |
000042A0: 43 41 54 41 BC 00 C6 4A 39 03 4D 45 4D 43 48 4B |CATA...J9.MEMCHK|
000042B0: 20 4A 53 52 20 42 41 42 4F 55 54 3A 4A 53 52 20 | JSR BABOUT:JSR |
000042C0: 43 48 4B 4D 45 4D 00 EA 4A 3A 03 3A 20 20 20 20 |CHKMEM..J:.: |
000042D0: 20 20 4A 4D 50 20 42 41 4E 42 49 4E 3B 43 48 4B | JMP BANBIN;CHK|
000042E0: 20 41 4D 54 20 4D 45 4D B0 59 00 F0 4A 3B 03 3B | AMT MEM.Y..J;.;|
000042F0: 00 0E 4B 3C 03 3B B8 45 20 52 41 4D 44 49 53 4B |..K<.;.E RAMDISK|
00004300: 20 4D 45 4D B0 59 20 46 55 4E 43 54 49 91 00 14 | MEM.Y FUNCTI...|
00004310: 4B 3D 03 3B 00 33 4B 3E 03 46 52 41 4D 20 20 4C |K=.;.3K>.FRAM L|
00004320: 44 41 20 4D 45 4D B8 3A 53 54 41 20 46 41 43 48 |DA MEM.:STA FACH|
00004330: 4F AA 31 00 52 4B 3F 03 3A 20 20 20 20 20 4C 44 |O.1.RK?.: LD|
00004340: 41 20 4D 45 4D B8 AA 31 3A 53 54 41 20 46 41 43 |A MEM..1:STA FAC|
00004350: 48 4F 00 78 4B 40 03 3A 20 20 20 20 20 4C 44 58 |HO.xK@.: LDX|
00004360: 20 23 24 39 30 3A 53 45 43 3A 4A 53 52 20 46 4C | #$90:SEC:JSR FL|
00004370: 4F 41 54 43 3A 52 54 53 00 00 00 |OATC:RTS... |
....D..700...E..OPT P.!.F...$B8B0.<.G..C
HR . $08:COUNT . $0B.X.H.ETYP . $0D:GARB
FL . $0F.S.I.INDEX . $22:.PNT . $49...J.
JMPER . $54:FACHO . $62...K.FBUFPT . $71
:CHR. . $73.H.L.CHRKT . $79:TXTPTR . $7A
...M.LDTB1 . $D9:ZP . $FB...N.BUF . $200
:VECSAV . $2A7...O.ICRNCH . $304:ERR. .
$A437.>.P.LINKPG . $A533:CRNCH . $A57C.^
.Q.PLOOP . $A6F3:PRIT4 . $A6EF.}.R.QPLOP
. $A71A:.STT . $A7AE...S.KNE . $A7E4:OU
TDO . $AB47...T.CHKNUM . $AD8D:FRMEVL .
$AD9E...U.EE . $AE86:PARCHK . $AEF1...V.
CHKCOM . $AEFD:.STR . $B6A3...W..NUM . $
B7EB:.ADR . $B7F7.9.X.FLOATC . $BC49:OUT
. . $BDCD.S.Y...K . $CC:DAT.K . $49.O.Z.
.TOK = $55:FUNTOK = $D0.U.{.;...|.;RAM D
ISK FICAME BUFFER...}.;...~.FILNAME . ..
A...F "@@@@@@@@@@@@@@@@".W....SIZE . ..
FILNAME.....;.....;RAM DISK DIREC.RY....
.;.....DIRBUFF . ..$....F "@@@@@@@@@@@@@
@@@".>....F "@@@@@@@@@@@@@@@@".X....F "@
@@@@@@@@@@@@@@@".R....F "@@@@@@@@@@@@@@@
@"......F "@@@@@@@@@@@@@@@@"......F "@@@
@@@@@@@@@@@@@"......F "@@@@@@@@@@@@@@@@"
.Z....F "@@@@@@@@@@@@@@@@"......F "@@@@@
@@@@@@@@@@@"......F "@@@@@@@@@@@@@@@@".(
....F "@@@@@@@@@@@@@@@@".B....F "@@@@@@@
@@@@@@@@@".\....F "@@@@@@@@@@@@@@@@".V..
..F "@@@@@@@@@@@@@@@@"......F "@@@@@@@@@
@@@@@@@".....BUMAX . ..DIRBUFF.....;.K..
.;MAX NUMBER OF DIR ENTRIES.Q...;......M
AX . 15.....;.....;RAM DISK FILE ENTRIES
.....;C.RESP.D 1 . 1 WITH.5...;FICAMES,
FIRST 2 BYTES.N...;EQUALS FILE CGTH, ..J
...;2 BYTES EQUAL STARTING.....;.ITI. IN
64 RAM, .... .;2 BYTES EQUAL STARTING..
...;.ITI. IN VDC RAM.P...;THIS IS THE SA
ME . ALL.....;15 RAMDISK FILE ENTRIES...
..;.....DIRBYT . .......BYTE 0,0,0,0,0,0
.*...MAX ...DIRBYT.@....BYTE 0,0,0,0,0,0
.V....BYTE 0,0,0,0,0,0.L....BYTE 0,0,0,0
,0,0......BYTE 0,0,0,0,0,0......BYTE 0,0
,0,0,0,0......BYTE 0,0,0,0,0,0.D....BYTE
0,0,0,0,0,0.Z....BYTE 0,0,0,0,0,0......
BYTE 0,0,0,0,0,0......BYTE 0,0,0,0,0,0..
....BYTE 0,0,0,0,0,0.2....BYTE 0,0,0,0,0
,0.H....BYTE 0,0,0,0,0,0.^....BYTE 0,0,0
,0,0,0.S...BYMAX . ..DIRBYT.Y...;.....;.
AVAILABLE .ITI......;IN RAM DISK.....;.
....NDBYTE .BYTE 0,0.B...;.....;MISC. PO
.ERS . FLAGS.....;.....FLAG16 .BYTE 0...
..MEMMAX .BYTE 0,0...A..P .BYTE 0,0.2.B.
RESULT .BYTE 0,0,0.F.C.RMSRT .BYTE 0,0.W
.D.TEMP .BYTE 0.G.E.FCN .BYTE 0.X.F.DIR.
.BYTE 0.~.G.;...H.;ADDRESS OF BLOCK . M
OVE...I.;...J.BLOCK1 .BYTE 0,0...K.;...L
.;ADDRESS OF BLOCK . MOVE ....M.;...N.BL
OCK2 .BYTE 0,0...O.;...P.;NUMBER OF BYTE
S . MOVE...Q.;.3.R.NUMBER .BYTE 0,0.9.S.
;.\.T.;COUNT . .AINING BYTES TO MOVE.B.U
.;.X.V.COUNTER .BYTE 0,0.~.W.;...X.;ERR.
MESSAGE ROUTINE...Y.;...Z.L.ERR LDA #$0
0:.BYTE $2C.Y...FULERR LDA #$01:.BYTE $2
C.....EXTERR LDA #$02:.BYTE $2C......FER
R LDA #$03.*...ERRROU ASL:TAX:LDA ERRVEC
,X.N...: STA INDEX:LDA ERRVEC.1,X.O
...: STA INDEX.1:JMP DOER......ERRV
EC .W.D TL.G.....: .W.D FULLMESS...
..: .W.D FAL..I...: .W.D .FMES
S.O...;.....;RAM DISK CATA. MESSAGES....
.;......F "64 MODE VDC RAM DISK". ....F
" FROM ".0....F "DBSOFT".=...DIRTI ...C.
...F " . FILENAME . . START .".....
.F " . LENGTH .":.BYTE 13......F "----
-----------------------".G....F "-------
------":.BYTE 0.S...DI.P =*......F "NO F
ILES IN RAM DISK"......BYTE 0.....VDC. .
..-....F " . BYTES FREE .":.BYTE 13,0.3.
..;.P...;CHECK AMOUNT OF MEM.Y ..P...;AD
JUST .P OF RAMDISK MEM.Y.V...;.....CHKME
M LDA #.65535:STA VDCLOBYT.....: LD
A #.65535:STA VDCHIBYT.....: LDA #2
19:STA VDC......: JSR .1:LDA #.3276
7.....: STA VDCLOBYT:LDA #.32767.<.
..: STA VDCHIBYT:JSR B1.Z...:
CMP #219:BEQ .LY16.Z...KOD64 LDA #255:ST
A MEMMAX.1.....: STA MEMMAX:JSR REG
28S.....: LDA 54785:CMP #255.Z...:
BEQ CMEXIT:JSR REG28S.....: LD
A #63:STA 54785:RTS......LY16 LDA #64:ST
A MEMMAX.1.7...: LDA #1:STA FLAG16.
F...CMEXIT RTS.J...REG28S LDA #28:STA 54
784:JSR .1.Y...: RTS..,.;...-.;FIN
D FICAME IN DIREC.RY.....;THAT IS .AINED
IN THE.R./.;BUFFER CALLED FILNAME...0.;
. PRESENT .A WILL HOLD...1.;DIREC.RY ENT
RY NUMBER.$.2.;ELSE .A WILL HOLD 255.*.3
.;.C.4..ENT LDA #0:STA DIR..B.5.: LD
A #.FILNAME:STA ZP...6.: LDA #.FILNA
ME:STA ZP.1:LDX #0...7.FINDLP LDY #0...8
.INFLP LDA (ZP),Y:CMP DIRBUFF,X...9.:
BNE INCXC:INY:INX:CPY FCN...:.: BN
E INFLP:JMP MATCH.$.;.INCXC INC DIR.:LDY
DIR.:LDA #0.E.<.ADDLP CLC:ADC #.SIZE:TA
X:DEY.B.=.: BNE ADDLP:LDA DIR....>.:
CMP #.MAX:BCC FINDLP...?.: LDA
#255:STA DIR.:RTS...@.MATCH LDA DIR.:RTS
.X.A.SET.M LDY #.SIZE.1:LDA #"@"...B.FIL
P STA FILNAME,Y:DEY:BNE FILP...C.;...D.;
EEUATE .RESSI.,./.E.;. STRING IN.MATI.,.
I.F.;PREPARE 0 PAGE PO.ER.O.G.;.S.H.:
JSR SETML1:STX ZP:STY ZP.1...I.: STA
FCN:CMP #.SIZE...J.: BCC GCOPY:LDA #
.SIZE.1...K.: STA FCN.F.L.;...M.;COPY
FICAME . BUFFER...N.;...O.GCOPY LDY FCN
...P.CPYLP LDA (ZP),Y:STA FILNAME,Y:DEY.
7.Q.: BPL CPYLP:RTS.=.R.;.Z.S.;THE J
OB OF THIS ROUTINE.O.T.;IS . FIND THE ..
..U.;BLANK DIREC.RY ENTRY...V.;...W.FINB
CT LDA #0:STA TEMP:LDX #0.I.X.FBLLP LDA
DIRBUFF,X.O.Y.;...Z.;CMP "@" . . ENTRY B
LANK...[.;...\.: CMP #"@":BEQ BLANK:
INC TEMP.2.].: LDY TEMP:LDA #0.W.^.A
LLP CLC:ADC #.SIZE:DEY:BNE ALLP.Z._.:
TAX:CPX #BUMAX:BCC FBLLP...`.: LDA
#255:RTS...A.;...B.;LDA DIREC.RY ENTRY
....C.;. ....D.;.W.E.BLANK LDA TEMP:RTS.
..F.;...G.;FILL DIREC.RY ENTRIES...H.;Y.
0 D.'T ENTER LOOP...I.;.9.J.PUTNAM LDA #
0:LDY TEMP:CPY #0.N.K.: BEQ STPUT.T
.L.;.V.M.;SET Y.. C.RECT DIRBYT OFFSET.|
.N.;...O.PUTALP CLC:ADC #MAX:DEY:BNE PUT
ALP...P.;.C.Q.;S.RE FILE PARAMETERS.I.R.
;...S.STPUT TAY:LDA PC:STA DIRBYT,Y:INY.
..T.: LDA PC.1:STA DIRBYT,Y:INY.8.U.
: LDA START:STA DIRBYT,Y:INY._.V.:
LDA START.1:STA DIRBYT,Y:INY...W.:
LDA RMSRT:STA DIRBYT,Y:INY...X.: L
DA RMSRT.1:STA DIRBYT,Y.H.Y.: LDA #0
:LDY TEMP:CPY #0...Z.: BEQ STFPT...{
.;...|.;SET Y.. C.RECT DIRBUFF OFFSET...
}.;.0.~.PFLP CLC:ADC #.SIZE:DEY:BNE PFLP
.E..STFPT LDX #0:TAY.K...;.C...;ACTUAL
TRANSFER OF.{...;FICAME OCCURS HERE.....
;.....STFPLP LDA FILNAME,X:STA DIRBUFF,Y
.N...: INY:INX:CPX FCN:BCC STFPLP..
...: RTS.....;.....;CHECK PROGRAM C
GTH, IS HT.%...;LESS THAN AVAILABLE VDC
MEM.Y.+...;.J...CHFIC SEC:LDA .P:SBC STA
RT.F...: STA PC:LDA .P.1.....:
SBC START.1:STA PC.1.....: LDA
#0:SBC #0:STA RESULT.2.L...: LDA F
LAG16:CMP #1.....: BEQ MAXME0:LDA
RESULT.2.. ..: CMP #0:BNE .OL.G.%
..: JMP CHFILN1.+ ..;.K ..;FILE .O
L.G . ERR. MESSAGE.Q ..;.R ..MAXME0 LDA
PC.1:CMP MEMMAX.1.. ..: BCS .OL.G.
. ..;.. ..;SET . OF PRG PO.ER.. ..;.M ..
CHFILN1 CLC:LDA PC:ADC NDBYTE.. ..:
STA RESULT:LDA PC.1..!..: ADC ND
BYTE.1:STA RESULT.1.:!..: LDA #0:A
DC #0:STA RESULT.2.X!..: LDA FLAG1
6:CMP #1.|! .: BEQ MAXME1:LDA RESU
LT.2..!..: CMP #0:BNE .OL.G..!..:
JMP CHFILN2..!..;.X!..;CHECK . MAK
E SURE FILE FITS..!..;.O AVAILABLE VDC M
EM.Y..!..;.."..MAXME1 LDA RESULT.1:CMP M
EMMAX.1.4"..: BCS .OL.G.K"..CHFILN2
LDA #0:RTS.B"...OL.G LDA #255:RTS.."..S
ETRMP LDY #0:LDA (122),Y:CMP #",".."..:
BNE ITSBASIC.."..: JMP ITSML.T
"..ITSBASIC LDA 43:STA START.."..:
STA BLOCK1:LDA 45:STA .P..#..:
LDA 44:STA START.1.;#..: STA BLOC
K1.1:LDA 46.Y#..: STA .P .1:LDA 4
5._#..;.Y#..;SET UP PROPER EUES ...#..;M
DINIT ROUTINE, S.RE..#..;NUMBER OF BYTES
. MOVE..#..;.T#..: SEC:LDA 45:SB
C 43..#..: STA NUMBER:LDA 46:SBC
44..$..: STA NUMBER.1..$..;./$..;
SET START BLOCK.5$..;.U$..SETBL LDA NDBY
TE:STA BLOCK2.V$..: STA RMSRT:LDA ND
BYTE.1..$..: STA BLOCK2.1:STA RMSRT.
1:RTS..$A.;.A$B.;SAME AS ABOVE EXCEPT M.
L.G$C.;..$D.ITSML JSR SETML2:STY START..
%E.: STY BLOCK1:STA START.1.)%F.:
STA BLOCK1.1:JSR SETML2.J%G.: STY
.P:STA .P.1:LDA .P.M%H.: SEC:SBC STA
RT:STA NUMBER..%I.: LDA .P.1:SBC STA
RT.1..%J.: STA NUMBER.1:JMP SETBL.K%
K.SETUP JSR KFAST:JSR SET.M..%L.: JS
R .ENT:RTS..%M.;..%N.;BLANK SCREEN . ...
&O.;FAST MODE, SET FICAME,.4&P.;CHECK .
DUP NAME . ..M&Q.;IT AL.Y EXISTS, SET.G&
R.;PARAMS . MOVE, CHECK..&S.;CGTH OF PRG
. . IT'S..&T.;.O L.G . FIT IN RAMDISK..
&U.;..&V.RSAV JSR SETUP:BPL AL.Y..&W.:
JSR SETRMP:JSR CHFIC..&X.: BPL NXSU
B:JSR RLEXIT..'Y.: JMP L.ERR..'Z.;.1'
..;FIND . BLANK DIR ENTRY.L'..;.. DIR FU
LL . ERR MSG.R'..;.Q'..NXSUB JSR FINBCT:
BPL GEXIT..'..: JSR RLEXIT:JMP FULER
R..'..;..'..;PUT NAME IN DIR, PREPARE.H'
..;. MOVE, DO IT.N'..;..'..GEXIT JSR PUT
NAM:JSR MDINIT..(..: JSR MOVEUP:CLC:
LDA RESULT..(..;.6(..;S.RE . .. LO IN RA
M DISK.<(..;.X(..: ADC #1:STA NDBYTE
.^(..;.|(..;S.RE . .. HI IN RAM DISK..(.
.;. (..: LDA RESULT.1:ADC #0..(..:
STA NDBYTE.1:JSR .RAM.U(..: JMP R
LEXIT..(...RAM SEC:LDA MEMMAX:LDX MEMMAX
.1..)..: SBC NDBYTE:TAY:TXA.8)..:
SBC NDBYTE.1:TAX:TYA.[)..: STA
MEM.:STX MEM..1:RTS.A)..;.X)..;ALL D.E .
. BASIC.~)..;..)..RLEXIT JSR KSLOW:RTS.
.)..AL.Y JSR RLEXIT:JMP EXTERR..)..;.U).
.;SET PARAMS . . FROM..)..;RAM DISK..)..
;..*..SETPLD LDY DIR.:CPY #0:BEQ SETP..*
..: LDA #0.F*..PADDLP CLC:ADC #MAX:
DEY:BNE PADDLP.K*..SETP TAY:LDA DIRBYT,Y
:STA NUMBER..*..: INY:LDA DIRBYT,Y:ST
A NUMBER.1..*..: INY:LDA DIRBYT,Y:STA
BLOCK2..*..: INY:LDA DIRBYT,Y:STA BL
OCK2.1..+..: INY:LDA DIRBYT,Y:STA BLO
CK1.*+..: INY:LDA DIRBYT,Y:STA BLOCK1
.1.7+..: RTS.=+..;.Y+..;SET UP PARAMS
, DO MOVE._+..;..+..D.AMLD JSR MDINIT:JS
R MOVEDN:RTS..+..;. +..;BLANK SCREEN . .
..+..;FAST MODE, SET FICAME,.V+..;CHECK
. SEE . EXISTS..+..;. . IT DOES, . ...,.
.;. ERR. MESSAGE,..,..;SET PARAMS . MDIN
IT,.2,..;DO ., CHECK . SEE.I,..;. BASIC,
. . EXIT.B,..;ELSE SET . PROGRAM,.{,..;
RELINK LINES,. SLOW..,..;MODE . ...,..;.
.,..RLOA JSR SETUP:BPL NXROOT:JMP ..D.V,
..NXROOT JSR SETPLD:JSR D.AMLD..,..:
LDA BLOCK2.1:CMP 46..-..: BNE RLO
EXT:LDA ZP.2:STA 45.=-..: STA 47:ST
A 49:LDA ZP.3.]-..: STA 46:STA 48:S
TA 50.S-..: JSR RELINK..-..RLOEXT J
SR KSLOW:RTS..- ...D JSR RLOEXT:JMP .FE
RR.G-!.MDINIT LDA BLOCK1:STA ZP..-".:
LDA BLOCK1.1:STA ZP.1...#.: LDA
BLOCK2:STA ZP.2.(.$.: LDA BLOCK2.1:
STA ZP.3.O.%.: LDX NUMBER:LDY NUMBE
R.1:RTS.F.&.MOVEDN JSR SCOUNT1...'.DOWNL
P JSR .VDC:STA (ZP.2),Y...(.: JSR A
DD.E:DEC COUNTER.L.).: BNE DOWNLP:D
EC COUNTER.1...*.: LDA COUNTER.1:CM
P #255../+.: BNE DOWNLP:RTS../,.MOV
EUP JSR SCOUNT1.@/-.MOUPLP LDA (ZP),Y:JS
R PUTVDC.A/..: JSR ADD.E:DEC COUNTE
R..//.: BNE MOUPLP:DEC COUNTER.1../
0.: LDA COUNTER.1:CMP #255.A/1.:
BNE MOUPLP:RTS../2.ADD.E INC ZP:BNE I
NCTAR:INC ZP.1..03.INCTAR INC ZP.2:BNE A
DEXIT:INC ZP.3..04.ADEXIT RTS.C05.SCOUNT
1 STX COUNTER:STY COUNTER.1.Z06.:
LDY #0:RTS.`07.;..08.;BLANK SCREEN . . F
AST MODE..09.;..0:.KFAST LDA 53265:. #23
9:LDX #1..0;.: JMP SETMODE.E0<.;..0
=.;FIX SCREEN . . SLOW MODE..0>.;..1?.KS
LOW LDA 53265:.A #16:LDX #0./1@.SETMODE
STA 53265:STX 53296:RTS.51A.;.O1B.;ROUTI
NES . . & WRITE.`1C.;. VDC MEM.Y.F1D.;..
1E..VDC LDA ZP:STA VDCLOBYT:LDA ZP.1..1F
.: STA VDCHIBYT:JSR B1.C1G.: L
DA VDC.:RTS..1H.PUTVDC STA VDC.:LDA ZP.2
..2I.: STA VDCLOBYT:LDA ZP.3. 2J.:
STA VDCHIBYT:JSR .1./2K.: RTS.
52L.;.O2M.;S.RE . TO VDC MEMORY.U2N.;.M2
O..1 JSR B2:JSR SETLO..2P.: LDA VDC.
:STA 54785:RTS..2Q.;..2R.;. . FROM VDC M
EMORY..2S.;.R2T.B1 JSR B2:JSR .1:JSR SET
LO..2U.: LDA 54785:STA VDC.:RTS..2V.
;..3W.;MISC. VDC ROUTINES..3X.;.83Y.SETL
O LDA VDCLOBYT:STA 54785.T3Z.: LDA #
31:STA 54784.S3[..1 LDA 54784:. #128:BEQ
.1..3\.: RTS..3].B2 LDA #18:STA 547
84:JSR .1.B3^.: LDA VDCHIBYT:STA 547
85..3_.: LDA #19:STA 54784:RTS..3`.;
..4A.;INITIALIZE THE RAM DISK..4B.;.'4C.
RDCLEAR LDX #0:LDA #"@".N4D.RC1 STA DIRB
UFF,X:INX:CPX #BUMAX.1.I4E.: BEQ RDBYT
E:JMP RC1..4F.RDBYTE LDX #BYMAX.1:LDA #
0..4G.RC2 STA DIRBYT,X:DEX:BPL RC2..4H.:
JSR .RAM:RTS.E4I.;..4J.;ROUTINE . DIS
PLAY CATA...4K.;..5L.DIR. LDA #0:STA TEM
PDA.'5M.: STA TEMPDA.1:LDA #.DIRTI.
I5N.: LDY #.DIRTI:JSR PRTROU.J5O.:
JSR CARRET:JSR FINBCT..5P.: CM
P #0:BEQ RDEMP:CMP #255..5Q.: BNE T
EMDIR:LDA #.MAX.C5R.TEMDIR STA TEMP..5S.
DIRLP1 DEC TEMP:JSR FIL.A..6T.: JSR
PRTNAM:LDA #.FILNAME.)6U.: LDY #.F
ILNAME:JSR PRTROU.N6V.: LDA #19:STA
211:LDX START.N6W.: LDA START.1:JS
R PRT...6X.: LDA #30:STA 211:JSR AO
TPLE..6Y.: LDX PC:LDA PC.1.S6Z.:
JSR PRT.:LDA TEMP:CMP #0..6{.: B
EQ DIR.:JSR CARRET..7|.: JMP DIRLP1
.%7}.DIR. JSR CARRET:JSR .RAM.D7~.:
LDX MEM.:LDA MEM..1.C7.: JSR PRT.
:LDA #.VDC...7..: LDY #.VDC.:JSR PR
TROU:RTS..7..RDEMP LDA #.DI.P:LDY #>DIRE
MP.H7..: JSR PRTROU:JMP DIR...7..CAR
RET LDA #13:JSR 65490:RTS..8..PRTNAM LDA
#0:LDY TEMP:CPY #0..8..: BEQ PAR..
F8..PRTALP CLC:ADC #MAX:DEY:BNE PRTALP.G
8..PAR. TAY:LDA DIRBYT,Y:STA PC..8..:
INY:LDA DIRBYT,Y:STA PC.1..8..:
INY:LDA DIRBYT,Y:STA START.Z8..: IN
Y:LDA DIRBYT,Y:STA START.1..8..: LD
A #0:LDY TEMP:CPY #0..9..: BEQ NAZE
RO.09..NAMADJ CLC:ADC #.SIZE:DEY.F9..:
BNE NAMADJ.\9..NAZERO LDX #0:TAY.|9.
.NAM. LDA DIRBUFF,Y:CMP #"@"..9..:
BEQ NAD.E:STA FILNAME,X..9..: INY:I
NX:JMP NAM...9..NAD.E LDA #0:STA FILNAME
,X:RTS..9..: RTS..:..FIL.A LDY #0:L
DA #"@".$:..FILLNA STA FILNAME,Y:INY.E:.
.: CPY #.SIZE:BNE FILLNA.T:..:
RTS.V:..PRTROU STA ZP:STY ZP.1:LDY #0..
:..PRTLP1 LDA (ZP),Y:CMP #0..:..: B
EQ PRTEXT:JSR 65490:INY.M:..: JMP P
RTLP1..:..PRTEXT RTS..:..AOTPLE CLC:LDA
PC:LDX PC.1. ;..: ADC #1:TAY:TXA:AD
C #0:TAX.C; .: TYA:STA PC:STX PC.1:
RTS.O;....$C000.C;..INSTAL LDX #$07..;..
INSTL1 LDA ICRNCH,X:STA VECSAV,X..;..:
LDA IVECS,X:STA ICRNCH,X:DEX.U;..:
BPL INSTL1:JSR MEMCHK:RTS..;..IVECS
.W.D .KNIZ..;..: .W.D PR.K..<..:
.W.D EXEST.)<..: .W.D EXEFUN.K<..KE
YTXT .F "RCA":.BYTE "T".128.N<..: .
F "RINI":.BYTE "T".128..<..: .F "RL
O":.BYTE "A".128..<..: .F "RSA":.BY
TE "V".128.T<..: .F "FRA":.BYTE "M"
.128..<..: .BYTE 0..<..STVEC .W.D R
AMDIR.1..=..: .W.D RAM..1.-=..:
.W.D RAMLOD.1.E=..: .W.D RAMSAV.1.Z=
..FUNVEC .W.D FRAM..=...KNIZ JSR CRNCH:L
DX #$00:LDY #$04..=..: STY GARBFL..
=..CRN1 LDA BUF,X.H=..CRN2 STA .CHR:
CMP #$22..=..: BEQ SKQUOT:BIT GARBF
L..>..: BVS MOVE:CMP #"A":BCC MOVE.
,>..: CMP #$5B:BCS MOVE.O>..:
STY FBUFPT:LDY #..K.$80.M>..: STY C
OUNT:LDY #$FF..>..: STX TXTPTR:DEX.
.>..CRN3 INY:INX..>..CRN4 LDA BUF,X:
SEC:SBC KEYTXT,Y..>A.: BEQ CRN3:CMP
#$80..>B.: BNE .KW:.A COUNT..?C.CR
N5 LDY FBUFPT..?D.MOVE INX:INY:STA B
UF.5,Y.R?E.: LDA BUF.5,Y:BEQ EXIT:S
EC.P?F.: SBC #":":BEQ MOVE1..?G.:
CMP #DAT.K:BNE MOVE2..?H.MOVE1 STA
GARBFL.H?I.MOVE2 SEC:SBC #.TOK:BNE CRN1
..?J.: STA .CHR..?K.SKIP1 LDA BUF,
X:BEQ MOVE..@L.: CMP .CHR:BEQ MOVE.
6@M.SKQUOT INY:STA BUF.5,Y:INX.K@N.:
BNE SKIP1.H@O..KW LDX TXTPTR:INC COUNT
..@P..1 INY:LDA KEYTXT.1,Y:BPL .1..@Q.:
LDA KEYTXT,Y:BNE CRN4.I@R.: L
DA BUF,X:BPL CRN5..@S.EXIT STA BUF.3,Y
:LDA #$FF..AT.: STA TXTPTR:RTS..AU.
PR.K BPL .1:CMP #$FF.:AV.: BEQ .1:
BIT GARBFL.UAW.: BMI .1:CMP #..K.YA
X.: BCC OLDPR:SEC:SBC #..K.1..AY.:
TAX:STY .PNT:LDY #$FF..AZ.PR.K1 DEX
:BEQ PRLOOP.XA..PR.K2 INY:LDA KEYTXT,Y:B
PL PR.K2..A..: BMI PR.K1..B..PRLOOP
INY:LDA KEYTXT,Y:BMI .2.0B..: JSR
OUTDO:BNE PRLOOP.AB...1 JMP PLOOP.RB...2
JMP PRIT4.GB..OLDPR JMP QPLOP..B..EXES
T JSR CHR.:CMP #..K..B..: BCC OLDE
XE:JSR EXE1..B..: JMP .STT.SB..EXE1
SBC #..K:ASL:TAY..B..: LDA STVEC
.1,Y:PHA..C..: LDA STVEC,Y:PHA:JMP
CHR..3C..OLDEXE JSR CHRKT:JMP KNE.3.PC..
EXEFUN LDA #$00:STA ETYP.MC..: JSR
CHR.:CMP #$FF..C..: BEQ OLDFUN:CMP
#FUN.K..C..: BCC OLDFUN:SEC:SBC #FU
N.K.OC..: ASL:PHA:JSR CHR...C..:
JSR PARCHK:PLA:TAY..D..: LDA FUN
VEC,Y:STA JMPER.1.7D..: LDA FUNVEC.
1,Y:STA JMPER.2.WD..: JSR JMPER:JMP
CHKNUM.UD..OLDFUN JSR CHRKT:JMP EE.7.{D
..;..D..;. NEEDED FOR BASIC ROM..D..;ROU
TINES, ALL OTHERS ARE.JD..;UNDER BASIC R
OM..D..;VDC. ALSO EQUATES WITH TEMPDA..E
..;VDCLOBYT EQUATES WITH TEMPDA.1..E..;.
#E..MEM. ...GE...BYTE 0,0 ;BYTES .E IN
RAMDISK.QE..PC ...RE...BYTE 0,0 ;FILE C
GTH. LO,HI.E..START ....E...BYTE 0,0 ;
FILE START.. LO,HI..E..TEMPDA ....E..VDC
. =*..E...BYTE 0 ;. TO STORE TO VDC..
E..VDCLOBYT ....F...BYTE 0 ;VDC LOCAT
I. (LO.BYTE).$F..VDCHIBYT ...JF...BYTE 0
;VDC LOCATI. (HI.BYTE).PF..;.LF..;RA
M DISK ERR. MESSAGES.RF..;.~F..TL.G ....
F...F "FILE TOO LONG"..F..FULLMESS ....F
...F "DIRECTORY FULL".IF..FAL. ....F...F
"FILE EXISTS"..F...FMESS ....G...F "FIL
E NOT FOUND"..G..;.+G..;RAM ROUTINES . M
L UNDER ROM.GG..;BANK BASIC IN, DO W.K,.
]G..;. BANK BASIC OUT.CG..;..G..SETML1 J
SR BANBIN:JSR FRMEVL..G..: JSR .STR
:JMP BABOUT.DG..SETML2 JSR BANBIN:JSR CH
KCOM..G..: JSR FRMEVL:JSR .ADR..G..
: JMP BABOUT..H..RELINK JSR BANBIN:
JSR LINKPG.0H..: JMP BABOUT.MH..PRT
. JSR BANBIN:JSR OUT..CH..: JMP BAB
OUT..H .DOER. JSR BANBIN:JMP ERR..16..H!
.;..H".;BANK BASIC ROM OUT..H#.;.DH$.BAB
OUT PHA:LDA 1:. #254.ZH%.: JMP BIOS
ET..H&.;..H'.;BANK BASIC ROM IN..H(.;..I
).BANBIN PHA:LDA 1:.A #1.1I*.BIOSET STA
1:PLA:RTS.7I+.;.LI,.;RAM VEC.RS . ML.II-
.;UNDER BASIC ROM, SWITCH..I..;OUT BASIC
, DO W.K,..I/.;SWITCH BASIC BACK IN..I0.
;..I1.RAMLOD JSR BABOUT:JSR RLOA..I2.:
JMP BANBIN;RAMDISK ...I3.RAMSAV JSR
BABOUT:JSR RSAV..J4.: JMP BANBIN;RA
MDISK ..?J5.RAM. JSR BABOUT:JSR RDCLEAR.
BJ6.: JMP BANBIN;RAMDISK INIT..J7.R
AMDIR JSR BABOUT:JSR DIR...J8.: JMP
BANBIN;RAMDISK CATA..FJ9.MEMCHK JSR BAB
OUT:JSR CHKMEM..J:.: JMP BANBIN;CHK
AMT MEM.Y..J;.;..K<.;.E RAMDISK MEM.Y F
UNCTI...K=.;.3K>.FRAM LDA MEM.:STA FACH
O.1.RK?.: LDA MEM..1:STA FACHO.XK@.:
LDX #$90:SEC:JSR FLOATC:RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL