XRAM64.PAL
FILE INFORMATION
FILENAME(S): XRAM64.PAL
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-11-30 21:12:48
APPEARS ON: 1 disk(s)
FILE HASH
c1ede521f7cc2f7f724ea31e195fb94a2b2b1214e32699f31a900f127166c536
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | XRAM64.PAL | PRG | DuncanTwain | 29 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 1C 04 E8 03 8F 20 53 41 56 45 22 30 3A 58 |....... SAVE"0:X| 00000010: 52 41 4D 36 34 2E 50 41 4C 22 2C 38 00 36 04 F2 |RAM64.PAL",8.6..| 00000020: 03 8F 20 2A 2A 20 50 41 4C 20 36 34 20 46 4F 52 |.. ** PAL 64 FOR| 00000030: 4D 41 54 20 2A 2A 00 51 04 FC 03 9F 20 38 2C 38 |MAT **.Q.... 8,8| 00000040: 2C 31 2C 22 30 3A 58 52 41 4D 36 34 2E 4F 42 4A |,1,"0:XRAM64.OBJ| 00000050: 22 00 5A 04 06 04 9E 37 30 30 00 66 04 10 04 2E |".Z....700.f....| 00000060: 4F 50 54 20 4F 38 00 72 04 1A 04 AC B2 24 43 46 |OPT O8.r.....$CF| 00000070: 30 30 00 78 04 24 04 3B 00 9D 04 2E 04 3B 20 41 |00.x.$.;.....; A| 00000080: 20 50 52 4F 47 52 41 4D 20 A4 20 49 4D 50 4C 45 | PROGRAM . IMPLE| 00000090: 4D 45 4E 54 20 45 58 54 45 52 4E 41 4C 00 BA 04 |MENT EXTERNAL...| 000000A0: 38 04 3B 20 52 41 4D 20 46 55 4E 43 54 49 91 20 |8.; RAM FUNCTI. | 000000B0: 91 20 41 20 43 AB 36 34 20 B0 00 D1 04 42 04 3B |. A C.64 ....B.;| 000000C0: 20 43 31 32 38 20 49 4E 20 43 36 34 20 4D 4F 44 | C128 IN C64 MOD| 000000D0: 45 00 D7 04 4C 04 3B 00 EE 04 56 04 3B 20 44 41 |E...L.;...V.; DA| 000000E0: 4C 45 20 41 2E 20 43 41 53 54 45 4C 4C 4F 00 05 |LE A. CASTELLO..| 000000F0: 05 60 04 3B 20 35 39 36 34 20 4F 41 4B 4C 45 49 |.`.; 5964 OAKLEI| 00000100: 47 48 20 52 44 00 1D 05 6A 04 3B 20 4D 91 54 CB |GH RD...j.; M.T.| 00000110: 4D 45 52 59 20 41 4C 20 33 36 31 31 36 00 23 05 |MERY AL 36116.#.| 00000120: 74 04 3B 00 44 05 7E 04 3B 20 49 4D 50 4C 45 4D |t.;.D.~.; IMPLEM| 00000130: 45 4E 54 53 20 42 41 53 49 43 20 45 58 54 45 4E |ENTS BASIC EXTEN| 00000140: 53 49 91 53 00 71 05 88 04 3B 20 20 40 53 54 41 |SI.S.q...; @STA| 00000150: 53 48 20 B3 42 59 54 45 53 B1 2C B3 41 44 44 52 |SH .BYTES.,.ADDR| 00000160: 31 B1 2C B3 41 44 44 52 32 B1 2C B3 42 41 4E 4B |1.,.ADDR2.,.BANK| 00000170: B1 00 9E 05 92 04 3B 20 20 40 46 45 54 43 48 20 |......; @FETCH | 00000180: B3 42 59 54 45 53 B1 2C B3 41 44 44 52 31 B1 2C |.BYTES.,.ADDR1.,| 00000190: B3 41 44 44 52 32 B1 2C B3 42 41 4E 4B B1 00 CD |.ADDR2.,.BANK...| 000001A0: 05 9C 04 3B 20 20 40 43 4F 4D 50 41 52 45 20 B3 |...; @COMPARE .| 000001B0: 42 59 54 45 53 B1 2C B3 41 44 44 52 31 B1 2C B3 |BYTES.,.ADDR1.,.| 000001C0: 41 44 44 52 32 B1 2C B3 42 41 4E 4B B1 00 F9 05 |ADDR2.,.BANK....| 000001D0: A6 04 3B 20 20 40 53 57 41 50 20 B3 42 59 54 45 |..; @SWAP .BYTE| 000001E0: 53 B1 2C B3 41 44 44 52 31 B1 2C B3 41 44 44 52 |S.,.ADDR1.,.ADDR| 000001F0: 32 B1 2C B3 42 41 4E 4B B1 00 FF 05 B0 04 3B 00 |2.,.BANK......;.| 00000200: 0B 06 BA 04 3B 20 57 48 45 52 45 00 3F 06 C4 04 |....; WHERE.?...| 00000210: 3B 20 20 B3 42 59 54 45 53 B1 20 B2 20 4E 55 4D |; .BYTES. . NUM| 00000220: 42 45 52 20 4F 46 20 42 59 54 45 53 20 A4 20 54 |BER OF BYTES . T| 00000230: 52 41 4E 53 46 45 52 20 30 AB 36 35 35 33 35 00 |RANSFER 0.65535.| 00000240: 61 06 CE 04 3B 20 20 20 20 20 20 20 20 20 20 20 |a...; | 00000250: 20 30 20 B2 B1 20 36 35 35 33 36 20 42 59 54 45 | 0 .. 65536 BYTE| 00000260: 53 00 91 06 D8 04 3B 20 20 B3 41 44 44 52 31 B1 |S.....; .ADDR1.| 00000270: 20 B2 20 43 4F 4D 50 55 54 45 52 20 53 54 41 52 | . COMPUTER STAR| 00000280: 54 20 41 44 44 52 45 53 53 20 30 AB 36 35 35 33 |T ADDRESS 0.6553| 00000290: 35 00 BC 06 E2 04 3B 20 20 B3 41 44 44 52 32 B1 |5.....; .ADDR2.| 000002A0: 20 B2 20 52 41 4D 20 53 54 41 52 54 20 41 44 44 | . RAM START ADD| 000002B0: 52 45 53 53 20 30 AB 36 35 35 33 35 00 DD 06 EC |RESS 0.65535....| 000002C0: 04 3B 20 20 B3 42 41 4E 4B B1 20 20 B2 20 52 41 |.; .BANK. . RA| 000002D0: 4D 20 42 41 4E 4B 20 4E 55 4D 42 45 52 00 F9 06 |M BANK NUMBER...| 000002E0: F6 04 3B 20 20 20 20 20 20 20 20 20 20 20 20 30 |..; 0| 000002F0: AB 31 20 81 20 31 37 30 30 00 15 07 00 05 3B 20 |.1 . 1700.....; | 00000300: 20 20 20 20 20 20 20 20 20 20 20 30 AB 37 20 81 | 0.7 .| 00000310: 20 31 37 35 30 00 1B 07 0A 05 3B 00 3E 07 14 05 | 1750.....;.>...| 00000320: 3B 20 20 20 41 43 54 49 56 41 54 45 20 20 20 9E |; ACTIVATE .| 00000330: 20 35 32 39 39 32 20 28 24 43 46 30 30 29 00 61 | 52992 ($CF00).a| 00000340: 07 1E 05 3B 20 20 20 44 45 41 43 54 49 56 41 54 |...; DEACTIVAT| 00000350: 45 20 9E 20 35 33 30 32 30 20 28 24 43 46 31 43 |E . 53020 ($CF1C| 00000360: 29 00 67 07 28 05 3B 00 74 07 32 05 3B 20 91 20 |).g.(.;.t.2.; . | 00000370: 45 58 49 54 00 91 07 3C 05 3B 20 41 52 45 47 20 |EXIT...<.; AREG | 00000380: 20 53 54 41 54 55 53 20 20 24 32 30 20 4F 4B 41 | STATUS $20 OKA| 00000390: 59 00 B0 07 46 05 3B 20 20 20 20 20 20 20 20 20 |Y...F.; | 000003A0: 20 20 20 20 20 20 24 34 30 20 95 20 45 52 52 B0 | $40 . ERR.| 000003B0: 00 B6 07 50 05 3B 00 DC 07 5A 05 3B 20 58 52 45 |...P.;...Z.; XRE| 000003C0: 47 AD 59 52 45 47 20 4C 41 53 54 20 43 4F 4D 50 |G.YREG LAST COMP| 000003D0: 55 54 45 52 20 41 44 44 52 45 53 53 00 E2 07 64 |UTER ADDRESS...d| 000003E0: 05 3B 00 01 08 6E 05 9D 20 20 20 20 B2 20 32 20 |.;...n.. . 2 | 000003F0: 20 20 20 20 3B BD 41 4E 53 49 91 20 43 4F 4D 4D | ;.ANSI. COMM| 00000400: AF 00 30 08 78 05 54 58 54 50 54 52 20 B2 20 24 |..0.x.TXTPTR . $| 00000410: 37 41 20 20 20 3B 43 55 52 52 45 4E 54 20 42 59 |7A ;CURRENT BY| 00000420: 54 45 20 4F 46 20 42 41 53 49 43 20 54 45 58 54 |TE OF BASIC TEXT| 00000430: 00 54 08 82 05 41 52 45 47 20 20 20 B2 20 24 33 |.T...AREG . $3| 00000440: 30 43 20 20 3B 53 A4 52 41 47 45 20 4F 46 20 41 |0C ;S.RAGE OF A| 00000450: 20 52 45 47 00 78 08 8C 05 58 52 45 47 20 20 20 | REG.x...XREG | 00000460: B2 20 24 33 30 44 20 20 3B 53 A4 52 41 47 45 20 |. $30D ;S.RAGE | 00000470: 4F 46 20 58 20 52 45 47 00 9C 08 96 05 59 52 45 |OF X REG.....YRE| 00000480: 47 20 20 20 B2 20 24 33 30 45 20 20 3B 53 A4 52 |G . $30E ;S.R| 00000490: 41 47 45 20 4F 46 20 59 20 52 45 47 00 BD 08 A0 |AGE OF Y REG....| 000004A0: 05 49 CB 4E 45 20 20 B2 20 24 33 30 38 20 20 3B |.I.NE . $308 ;| 000004B0: 42 41 53 49 43 20 A4 4B 45 4E 20 45 C5 00 DB 08 |BASIC .KEN E....| 000004C0: AA 05 BD 20 20 20 20 B2 20 24 44 46 30 30 20 3B |... . $DF00 ;| 000004D0: 44 4D 41 20 9A 52 4F 4C 4C 45 52 00 EC 08 B4 05 |DMA .ROLLER.....| 000004E0: 43 36 34 20 20 20 20 B2 20 BD AA 32 00 FD 08 BE |C64 . ..2....| 000004F0: 05 52 41 4D 20 20 20 20 B2 20 BD AA 34 00 0E 09 |.RAM . ..4...| 00000500: C8 05 42 41 4E 4B 20 20 20 B2 20 BD AA 36 00 1D |..BANK . ..6..| 00000510: 09 D2 05 C3 47 20 20 20 B2 20 BD AA 37 00 23 09 |....G . ..7.#.| 00000520: DC 05 3B 00 32 09 E6 05 41 43 54 49 56 45 20 B2 |..;.2...ACTIVE .| 00000530: 20 AC 00 42 09 F0 05 4C 44 58 20 23 B3 50 41 52 | ..B...LDX #.PAR| 00000540: 53 45 00 52 09 FA 05 4C 44 59 20 23 B1 50 41 52 |SE.R...LDY #.PAR| 00000550: 53 45 00 6D 09 04 06 43 50 59 20 49 CB 4E 45 AA |SE.m...CPY I.NE.| 00000560: 31 20 3B 8B 20 50 41 47 45 20 24 43 46 00 8A 09 |1 ;. PAGE $CF...| 00000570: 0E 06 42 45 51 20 49 4E 50 4C 20 3B 41 4C 87 59 |..BEQ INPL ;AL.Y| 00000580: 20 49 4E 53 54 41 4C 4C 45 44 00 90 09 18 06 3B | INSTALLED.....;| 00000590: 00 9D 09 22 06 4C 44 41 20 49 CB 4E 45 00 AE 09 |...".LDA I.NE...| 000005A0: 2C 06 53 54 41 20 4F 4C 44 56 45 43 AA 31 00 BD |,.STA OLDVEC.1..| 000005B0: 09 36 06 4C 44 41 20 49 CB 4E 45 AA 31 00 CE 09 |.6.LDA I.NE.1...| 000005C0: 40 06 53 54 41 20 4F 4C 44 56 45 43 AA 32 00 DB |@.STA OLDVEC.2..| 000005D0: 09 4A 06 53 54 58 20 49 CB 4E 45 00 EA 09 54 06 |.J.STX I.NE...T.| 000005E0: 53 54 59 20 49 CB 4E 45 AA 31 00 F0 09 5E 06 3B |STY I.NE.1...^.;| 000005F0: 00 FD 09 68 06 49 4E 50 4C 20 B2 20 AC 00 05 0A |...h.INPL . ....| 00000600: 72 06 52 54 53 00 0B 0A 7C 06 3B 00 19 0A 86 06 |r.RTS...|.;.....| 00000610: 49 4E 41 43 54 20 B2 20 AC 00 2A 0A 90 06 4C 44 |INACT . ..*...LD| 00000620: 58 20 4F 4C 44 56 45 43 AA 31 00 3B 0A 9A 06 4C |X OLDVEC.1.;...L| 00000630: 44 59 20 4F 4C 44 56 45 43 AA 32 00 55 0A A4 06 |DY OLDVEC.2.U...| 00000640: 49 4E 59 20 3B 8B 20 24 46 46 20 49 53 20 48 49 |INY ;. $FF IS HI| 00000650: 20 41 44 44 52 00 69 0A AE 06 42 45 51 20 4E 4F | ADDR.i...BEQ NO| 00000660: CB 20 3B 44 91 27 54 20 8C 00 6F 0A B8 06 3B 00 |. ;D.'T ..o...;.| 00000670: 77 0A C2 06 44 45 59 00 84 0A CC 06 53 54 58 20 |w...DEY.....STX | 00000680: 49 CB 4E 45 00 93 0A D6 06 53 54 59 20 49 CB 4E |I.NE.....STY I.N| 00000690: 45 AA 31 00 99 0A E0 06 3B 00 A5 0A EA 06 4E 4F |E.1.....;.....NO| 000006A0: CB 20 B2 20 AC 00 AD 0A F4 06 52 54 53 00 B3 0A |. . ......RTS...| 000006B0: FE 06 3B 00 C1 0A 08 07 54 41 42 4C 45 20 B2 20 |..;.....TABLE . | 000006C0: AC 00 CF 0A 12 07 2E C6 20 22 53 54 41 53 22 00 |........ "STAS".| 000006D0: DD 0A 1C 07 2E 42 59 54 45 20 24 43 38 00 EB 0A |.....BYTE $C8...| 000006E0: 26 07 2E C6 20 22 46 45 54 43 22 00 F9 0A 30 07 |&... "FETC"...0.| 000006F0: 2E 42 59 54 45 20 24 43 38 00 06 0B 3A 07 2E C6 |.BYTE $C8...:...| 00000700: 20 22 53 57 41 22 00 14 0B 44 07 2E 42 59 54 45 | "SWA"...D..BYTE| 00000710: 20 24 44 30 00 24 0B 4E 07 2E C6 20 22 43 4F 4D | $D0.$.N... "COM| 00000720: 50 41 52 22 00 34 0B 58 07 2E 42 59 54 45 20 24 |PAR".4.X..BYTE $| 00000730: 43 35 2C 30 00 3A 0B 62 07 3B 00 49 0B 6C 07 4F |C5,0.:.b.;.I.l.O| 00000740: 4C 44 56 45 43 20 B2 20 AC 00 81 0B 76 07 4A 4D |LDVEC . ....v.JM| 00000750: 50 20 24 46 46 46 46 20 3B 41 44 44 52 45 53 53 |P $FFFF ;ADDRESS| 00000760: 20 53 45 54 20 A4 20 4F 4C 44 20 45 52 52 B0 20 | SET . OLD ERR. | 00000770: 56 45 43 A4 52 20 91 20 41 43 54 49 56 41 54 49 |VEC.R . ACTIVATI| 00000780: 91 00 87 0B 80 07 3B 00 95 0B 8A 07 50 41 52 53 |......;.....PARS| 00000790: 45 20 B2 20 AC 00 B1 0B 94 07 4C 44 59 20 23 30 |E . ......LDY #0| 000007A0: 20 3B 53 43 41 4E 20 42 41 53 49 43 20 54 45 58 | ;SCAN BASIC TEX| 000007B0: 54 00 D1 0B 9E 07 53 54 59 20 9D 20 3B 49 4E 49 |T.....STY . ;INI| 000007C0: 54 49 41 4C 20 43 4F 4D 4D AF 20 4E 55 4D 42 45 |TIAL COMM. NUMBE| 000007D0: 52 00 EC 0B A8 07 49 4E 59 20 3B 50 4F B5 20 A4 |R.....INY ;PO. .| 000007E0: 20 82 20 43 48 41 52 41 43 54 45 52 00 FF 0B B2 | . CHARACTER....| 000007F0: 07 4C 44 41 20 28 54 58 54 50 54 52 29 2C 59 00 |.LDA (TXTPTR),Y.| 00000800: 0C 0C BC 07 43 4D 50 20 23 22 40 22 00 29 0C C6 |....CMP #"@".)..| 00000810: 07 42 4E 45 20 4F 4C 44 56 45 43 20 3B 4E 4F 20 |.BNE OLDVEC ;NO | 00000820: 4C 45 41 44 49 4E 47 20 40 00 2F 0C D0 07 3B 00 |LEADING @./...;.| 00000830: 4C 0C DA 07 4C 44 58 20 23 30 20 3B 49 4E 49 54 |L...LDX #0 ;INIT| 00000840: 20 54 41 42 4C 45 20 50 4F B5 45 52 00 52 0C E4 | TABLE PO.ER.R..| 00000850: 07 3B 00 5E 0C EE 07 4E 58 54 20 B2 20 AC 00 77 |.;.^...NXT . ..w| 00000860: 0C F8 07 49 4E 59 20 3B A1 20 82 20 85 20 43 48 |...INY ;. . . CH| 00000870: 41 52 41 43 54 45 52 00 8A 0C 02 08 4C 44 41 20 |ARACTER.....LDA | 00000880: 28 54 58 54 50 54 52 29 2C 59 00 92 0C 0C 08 53 |(TXTPTR),Y.....S| 00000890: 45 43 00 AE 0C 16 08 53 42 43 20 54 41 42 4C 45 |EC.....SBC TABLE| 000008A0: 2C 58 20 3B 43 48 45 43 4B 20 54 45 58 54 00 CA |,X ;CHECK TEXT..| 000008B0: 0C 20 08 42 4E 45 20 4C 41 53 54 20 3B 4D 41 59 |. .BNE LAST ;MAY| 000008C0: 20 42 45 20 53 48 8B 54 45 44 00 D0 0C 2A 08 3B | BE SH.TED...*.;| 000008D0: 00 E5 0C 34 08 49 4E 58 20 3B 4F 4B 41 59 20 53 |...4.INX ;OKAY S| 000008E0: 4F 20 46 41 52 00 01 0D 3E 08 42 4E 45 20 4E 58 |O FAR...>.BNE NX| 000008F0: 54 20 3B 4C 4F 4F 50 20 81 20 82 20 4D 41 54 43 |T ;LOOP . . MATC| 00000900: 48 00 07 0D 48 08 3B 00 14 0D 52 08 4C 41 53 54 |H...H.;...R.LAST| 00000910: 20 B2 20 AC 00 2C 0D 5C 08 53 45 43 20 3B 43 48 | . ..,.\.SEC ;CH| 00000920: 45 43 4B 20 81 20 53 48 8B 54 45 44 00 49 0D 66 |ECK . SH.TED.I.f| 00000930: 08 53 42 43 20 23 24 38 30 20 3B 43 48 45 43 4B |.SBC #$80 ;CHECK| 00000940: 20 81 20 53 48 8B 54 45 44 00 61 0D 70 08 42 4E | . SH.TED.a.p.BN| 00000950: 45 20 53 4B 49 50 20 3B 43 48 41 52 41 43 54 45 |E SKIP ;CHARACTE| 00000960: 52 00 67 0D 7A 08 3B 00 84 0D 84 08 42 45 51 20 |R.g.z.;.....BEQ | 00000970: 46 4F 55 4E 44 20 3B 4D 41 54 43 48 53 20 53 54 |FOUND ;MATCHS ST| 00000980: 52 49 4E 47 00 8A 0D 8E 08 3B 00 AC 0D 98 08 3B |RING.....;.....;| 00000990: 20 4E 4F 20 4D 41 54 43 48 20 46 4F 55 4E 44 20 | NO MATCH FOUND | 000009A0: 53 4F 20 41 44 56 41 4E 43 45 20 A4 00 C1 0D A2 |SO ADVANCE .....| 000009B0: 08 3B 20 82 20 43 4F 4D 4D AF 20 53 54 52 49 4E |.; . COMM. STRIN| 000009C0: 47 00 C7 0D AC 08 3B 00 D4 0D B6 08 53 4B 49 50 |G.....;.....SKIP| 000009D0: 20 B2 20 AC 00 E4 0D C0 08 4C 44 41 20 54 41 42 | . ......LDA TAB| 000009E0: 4C 45 2C 58 00 05 0E CA 08 42 4D 49 20 4E 58 9D |LE,X.....BMI NX.| 000009F0: 20 3B 52 45 41 43 48 45 44 20 53 48 8B 54 45 44 | ;REACHED SH.TED| 00000A00: 20 43 48 41 52 00 0B 0E D4 08 3B 00 2B 0E DE 08 | CHAR.....;.+...| 00000A10: 42 45 51 20 4F 4C 44 56 45 43 20 3B 45 52 52 B0 |BEQ OLDVEC ;ERR.| 00000A20: 20 80 20 4F 46 20 54 41 42 4C 45 00 31 0E E8 08 | . OF TABLE.1...| 00000A30: 3B 00 39 0E F2 08 49 4E 58 00 51 0E FC 08 42 4E |;.9...INX.Q...BN| 00000A40: 45 20 53 4B 49 50 20 3B 4B 45 45 50 20 CB 49 4E |E SKIP ;KEEP .IN| 00000A50: 47 00 57 0E 06 09 3B 00 63 0E 10 09 4E 58 9D 20 |G.W...;.c...NX. | 00000A60: B2 20 AC 00 6D 0E 1A 09 49 4E 43 20 9D 00 75 0E |. ..m...INC ..u.| 00000A70: 24 09 49 4E 58 00 91 0E 2E 09 4C 44 59 20 23 31 |$.INX.....LDY #1| 00000A80: 20 3B D2 20 49 4E 20 42 41 53 49 43 20 54 45 58 | ;. IN BASIC TEX| 00000A90: 54 00 AD 0E 38 09 42 4E 45 20 4E 58 54 20 3B 53 |T...8.BNE NXT ;S| 00000AA0: 45 41 52 43 48 20 82 20 43 4F 4D 4D AF 00 B3 0E |EARCH . COMM....| 00000AB0: 42 09 3B 00 D1 0E 4C 09 3B 20 57 45 20 48 41 56 |B.;...L.; WE HAV| 00000AC0: 45 20 46 4F 55 4E 44 20 54 48 45 20 4D 41 54 43 |E FOUND THE MATC| 00000AD0: 48 00 E4 0E 56 09 3B 20 87 20 50 41 52 41 4D 45 |H...V.; . PARAME| 00000AE0: 54 45 52 53 00 EA 0E 60 09 3B 00 F8 0E 6A 09 46 |TERS...`.;...j.F| 00000AF0: 4F 55 4E 44 20 B2 20 AC 00 14 0F 74 09 49 4E 59 |OUND . ....t.INY| 00000B00: 20 3B 55 50 44 41 54 45 20 42 41 53 49 43 20 50 | ;UPDATE BASIC P| 00000B10: 4F B5 45 52 00 1C 0F 7E 09 54 59 41 00 24 0F 88 |O.ER...~.TYA.$..| 00000B20: 09 43 4C 43 00 33 0F 92 09 41 44 43 20 54 58 54 |.CLC.3...ADC TXT| 00000B30: 50 54 52 00 42 0F 9C 09 53 54 41 20 54 58 54 50 |PTR.B...STA TXTP| 00000B40: 54 52 00 51 0F A6 09 42 43 43 20 4E 4F 50 41 47 |TR.Q...BCC NOPAG| 00000B50: 45 00 57 0F B0 09 3B 00 68 0F BA 09 49 4E 43 20 |E.W...;.h...INC | 00000B60: 54 58 54 50 54 52 AA 31 00 6E 0F C4 09 3B 00 7D |TXTPTR.1.n...;.}| 00000B70: 0F CE 09 4E 4F 50 41 47 45 20 B2 20 AC 00 93 0F |...NOPAGE . ....| 00000B80: D8 09 4A 53 52 20 A1 B5 20 3B A1 20 23 20 42 59 |..JSR .. ;. # BY| 00000B90: 54 45 53 00 9E 0F E2 09 53 54 59 20 C3 47 00 AB |TES.....STY .G..| 00000BA0: 0F EC 09 53 54 41 20 C3 47 AA 31 00 CA 0F F6 09 |...STA .G.1.....| 00000BB0: 4A 53 52 20 41 52 47 20 3B A1 20 43 36 34 20 4D |JSR ARG ;. C64 M| 00000BC0: 45 4D B0 59 20 53 54 41 52 54 00 D6 0F 00 0A 53 |EM.Y START.....S| 00000BD0: 54 59 20 43 36 34 00 E4 0F 0A 0A 53 54 41 20 43 |TY C64.....STA C| 00000BE0: 36 34 AA 31 00 06 10 14 0A 4A 53 52 20 41 52 47 |64.1.....JSR ARG| 00000BF0: 20 3B A1 20 45 58 54 45 52 4E 41 4C 20 52 41 4D | ;. EXTERNAL RAM| 00000C00: 20 53 54 41 52 54 00 12 10 1E 0A 53 54 59 20 52 | START.....STY R| 00000C10: 41 4D 00 20 10 28 0A 53 54 41 20 52 41 4D AA 31 |AM. .(.STA RAM.1| 00000C20: 00 34 10 32 0A 4A 53 52 20 41 52 47 20 3B A1 20 |.4.2.JSR ARG ;. | 00000C30: 42 41 4E 4B 00 55 10 3C 0A 43 4D 50 20 23 30 20 |BANK.U.<.CMP #0 | 00000C40: 3B 43 48 45 43 4B 20 8B 20 4F 55 54 20 4F 46 20 |;CHECK . OUT OF | 00000C50: 52 41 4E 47 45 00 63 10 46 0A 42 45 51 20 4C 49 |RANGE.c.F.BEQ LI| 00000C60: 4D 49 54 00 69 10 50 0A 3B 00 77 10 5A 0A A4 4F |MIT.i.P.;.w.Z..O| 00000C70: 42 49 47 20 B2 20 AC 00 97 10 64 0A 4A 4D 50 20 |BIG . ....d.JMP | 00000C80: 24 42 32 34 38 20 3B 49 4C 4C 45 47 41 4C 20 51 |$B248 ;ILLEGAL Q| 00000C90: 55 41 4E 54 49 54 59 00 9D 10 6E 0A 3B 00 AB 10 |UANTITY...n.;...| 00000CA0: 78 0A 4C 49 4D 49 54 20 B2 20 AC 00 B5 10 82 0A |x.LIMIT . ......| 00000CB0: 4C 44 41 20 BD 00 D0 10 8C 0A AF 20 23 24 31 30 |LDA ....... #$10| 00000CC0: 20 3B 43 48 45 43 4B 20 52 41 4D 20 53 49 5A 45 | ;CHECK RAM SIZE| 00000CD0: 00 DD 10 96 0A 42 45 51 20 52 31 32 38 00 E3 10 |.....BEQ R128...| 00000CE0: A0 0A 3B 00 02 11 AA 0A 43 50 59 20 23 38 20 3B |..;.....CPY #8 ;| 00000CF0: 4D 41 58 20 42 41 4E 4B 20 81 20 35 31 32 4B 20 |MAX BANK . 512K | 00000D00: AA 31 00 11 11 B4 0A 42 43 43 20 49 4E 53 49 44 |.1.....BCC INSID| 00000D10: 45 00 17 11 BE 0A 3B 00 24 11 C8 0A 52 31 32 38 |E.....;.$...R128| 00000D20: 20 B2 20 AC 00 43 11 D2 0A 43 50 59 20 23 32 20 | . ..C...CPY #2 | 00000D30: 3B 4D 41 58 20 42 41 4E 4B 20 81 20 31 32 38 4B |;MAX BANK . 128K| 00000D40: 20 AA 31 00 51 11 DC 0A 42 43 53 20 A4 4F 42 49 | .1.Q...BCS .OBI| 00000D50: 47 00 57 11 E6 0A 3B 00 66 11 F0 0A 49 4E 53 49 |G.W...;.f...INSI| 00000D60: 44 45 20 B2 20 AC 00 73 11 FA 0A 53 54 59 20 42 |DE . ..s...STY B| 00000D70: 41 4E 4B 00 7D 11 04 0B 4C 44 41 20 9D 00 88 11 |ANK.}...LDA ....| 00000D80: 0E 0B 4C 44 59 20 23 30 00 A1 11 18 0B 53 54 59 |..LDY #0.....STY| 00000D90: 20 BD AA 31 30 20 3B 49 4E 43 20 50 4F B5 45 52 | ..10 ;INC PO.ER| 00000DA0: 53 00 BA 11 22 0B 53 54 59 20 BD AA 39 20 3B 4E |S...".STY ..9 ;N| 00000DB0: 4F 20 B5 45 52 52 55 50 54 53 00 C9 11 2C 0B 53 |O .ERRUPTS...,.S| 00000DC0: 45 49 20 3B 9F 20 52 41 4D 00 EC 11 36 0B 4C 44 |EI ;. RAM...6.LD| 00000DD0: 58 20 23 24 46 35 20 3B 55 4E 44 45 52 20 42 41 |X #$F5 ;UNDER BA| 00000DE0: 53 49 43 20 AF 20 4B 45 52 4E 45 4C 00 FF 11 40 |SIC . KERNEL...@| 00000DF0: 0B 4C 44 59 20 31 20 3B 4F 4C 44 20 C5 55 45 00 |.LDY 1 ;OLD .UE.| 00000E00: 13 12 4A 0B 53 54 58 20 31 20 3B 54 45 4D 50 20 |..J.STX 1 ;TEMP | 00000E10: C5 55 45 00 30 12 54 0B 42 49 54 20 BD 20 3B 52 |.UE.0.T.BIT . ;R| 00000E20: 45 53 45 54 20 44 4D 41 20 9A 52 4F 4C 4C 45 52 |ESET DMA .ROLLER| 00000E30: 00 46 12 5E 0B B0 41 20 23 24 39 30 20 3B 81 4D |.F.^..A #$90 ;.M| 00000E40: 20 43 4F 4D 4D AF 00 52 12 68 0B 53 54 41 20 BD | COMM..R.h.STA .| 00000E50: AA 31 00 72 12 72 0B 4C 44 41 20 54 58 54 50 54 |.1.r.r.LDA TXTPT| 00000E60: 52 20 3B D2 20 49 4E 20 42 41 53 49 43 20 54 45 |R ;. IN BASIC TE| 00000E70: 58 54 00 7D 12 7C 0B 42 4E 45 20 A8 42 00 83 12 |XT.}.|.BNE .B...| 00000E80: 86 0B 3B 00 A2 12 90 0B 44 45 43 20 54 58 54 50 |..;.....DEC TXTP| 00000E90: 54 52 AA 31 20 3B 50 41 47 45 20 42 4F 55 4E 44 |TR.1 ;PAGE BOUND| 00000EA0: 52 59 00 A8 12 9A 0B 3B 00 B3 12 A4 0B A8 42 20 |RY.....;......B | 00000EB0: B2 20 AC 00 CD 12 AE 0B 44 45 43 20 54 58 54 50 |. ......DEC TXTP| 00000EC0: 54 52 20 3B BF 47 4C 45 20 42 59 54 45 00 E1 12 |TR ;.GLE BYTE...| 00000ED0: B8 0B 4C 44 41 20 BD 20 3B 8E 20 52 45 53 55 4C |..LDA . ;. RESUL| 00000EE0: 54 00 EE 12 C2 0B 53 54 41 20 41 52 45 47 00 0A |T.....STA AREG..| 00000EF0: 13 CC 0B 4C 44 41 20 43 36 34 20 3B 8E 20 4C 41 |...LDA C64 ;. LA| 00000F00: 53 54 20 41 44 44 52 45 53 53 00 2D 13 D6 0B 53 |ST ADDRESS.-...S| 00000F10: 54 41 20 58 52 45 47 20 3B 41 43 43 45 53 53 45 |TA XREG ;ACCESSE| 00000F20: 44 20 49 4E 20 43 4F 4D 50 55 54 45 52 00 3B 13 |D IN COMPUTER.;.| 00000F30: E0 0B 4C 44 41 20 43 36 34 AA 31 00 48 13 EA 0B |..LDA C64.1.H...| 00000F40: 53 54 41 20 59 52 45 47 00 65 13 F4 0B 53 54 59 |STA YREG.e...STY| 00000F50: 20 31 20 3B 8C 20 52 41 4D 20 43 91 46 49 47 55 | 1 ;. RAM C.FIGU| 00000F60: 52 41 54 49 91 00 79 13 FE 0B 43 4C 49 20 3B B5 |RATI..y...CLI ;.| 00000F70: 45 52 52 55 50 54 53 20 91 00 96 13 08 0C 4A 4D |ERRUPTS ......JM| 00000F80: 50 20 4F 4C 44 56 45 43 20 3B 42 41 43 4B 20 A4 |P OLDVEC ;BACK .| 00000F90: 20 42 41 53 49 43 00 9C 13 12 0C 3B 00 BE 13 1C | BASIC.....;....| 00000FA0: 0C 3B 53 55 42 52 4F 55 54 49 4E 45 20 A4 20 45 |.;SUBROUTINE . E| 00000FB0: C5 55 41 54 45 20 41 52 47 55 4D 45 4E 54 00 C4 |.UATE ARGUMENT..| 00000FC0: 13 26 0C 3B 00 D0 13 30 0C 41 52 47 20 B2 20 AC |.&.;...0.ARG . .| 00000FD0: 00 EF 13 3A 0C 4A 53 52 20 24 41 45 46 44 20 3B |...:.JSR $AEFD ;| 00000FE0: 4D 55 53 54 20 48 41 56 45 20 43 4F 4D 4D 41 00 |MUST HAVE COMMA.| 00000FF0: F5 13 44 0C 3B 00 00 14 4E 0C A1 B5 20 B2 20 AC |..D.;...N... . .| 00001000: 00 1A 14 58 0C 4A 53 52 20 24 41 44 39 45 20 3B |...X.JSR $AD9E ;| 00001010: 45 C5 20 BD 52 45 53 53 49 91 00 30 14 62 0C 4A |E. .RESSI..0.b.J| 00001020: 4D 50 20 24 42 37 46 37 20 3B 46 49 58 20 49 54 |MP $B7F7 ;FIX IT| 00001030: 00 36 14 6C 0C 3B 00 3D 14 76 0C 2E 80 00 00 00 |.6.l.;.=.v......|
....... SAVE"0:XRAM64.PAL",8.6.... ** PA
L 64 FORMAT **.Q.... 8,8,1,"0:XRAM64.OBJ
".Z....700.F....OPT O8.R.....$CF00.X.$.;
.....; A PROGRAM . IMPLEMENT EXTERNAL...
8.; RAM FUNCTI. . A C.64 ..Q.B.; C128 IN
C64 MODE.W.L.;...V.; DALE A. CASTELLO..
.`.; 5964 OAKLEIGH RD...J.; M.TKMERY AL
36116.#.T.;.D.~.; IMPLEMENTS BASIC EXTEN
SI.S.Q...; @STASH .BYTES.,.ADDR1.,.ADDR
2.,.BANK......; @FETCH .BYTES.,.ADDR1.,
.ADDR2.,.BANK..M...; @COMPARE .BYTES.,.
ADDR1.,.ADDR2.,.BANK......; @SWAP .BYTE
S.,.ADDR1.,.ADDR2.,.BANK......;.....; WH
ERE.?.D.; .BYTES. . NUMBER OF BYTES . T
RANSFER 0.65535.A.N.; 0 .. 65
536 BYTES...X.; .ADDR1. . COMPUTER STAR
T ADDRESS 0.65535.....; .ADDR2. . RAM S
TART ADDRESS 0.65535.....; .BANK. . RA
M BANK NUMBER.....; 0.1 . 170
0.....; 0.7 . 1750.....;.>...
; ACTIVATE . 52992 ($CF00).A...; D
EACTIVATE . 53020 ($CF1C).G.(.;.T.2.; .
EXIT...<.; AREG STATUS $20 OKAY...F.;
$40 . ERR....P.;...Z.; XRE
G.YREG LAST COMPUTER ADDRESS...D.;...N..
. 2 ;.ANSI. COMM..0.X.TXTPTR . $
7A ;CURRENT BYTE OF BASIC TEXT.T...ARE
G . $30C ;S.RAGE OF A REG.X...XREG
. $30D ;S.RAGE OF X REG.....YREG . $3
0E ;S.RAGE OF Y REG... .IKNE . $308 ;
BASIC .KEN EE...... . $DF00 ;DMA .ROL
LER.....C64 . ..2.....RAM . ..4...
H.BANK . ..6...R.CG . ..7.#...;.2...
ACTIVE . ..B...LDX #.PARSE.R...LDY #.PAR
SE.M...CPY IKNE.1 ;. PAGE $CF.....BEQ IN
PL ;AL.Y INSTALLED.....;...".LDA IKNE...
,.STA OLDVEC.1...6.LDA IKNE.1.N.@.STA OL
DVEC.2...J.STX IKNE...T.STY IKNE.1...^.;
...H.INPL . ....R.RTS...|.;.....INACT .
..*...LDX OLDVEC.1.;...LDY OLDVEC.2.U...
INY ;. $FF IS HI ADDR.I...BEQ NOK ;D.'T
..O...;.W.B.DEY...L.STX IKNE...V.STY IKN
E.1.....;.....NOK . ......RTS.....;.A...
TABLE . ..O....F "STAS"......BYTE $C8...
&..F "FETC"...0..BYTE $C8...:..F "SWA"..
.D..BYTE $D0.$.N..F "COMPAR".4.X..BYTE $
C5,0.:.B.;.I.L.OLDVEC . ....V.JMP $FFFF
;ADDRESS SET . OLD ERR. VEC.R . ACTIVATI
......;.....PARSE . ......LDY #0 ;SCAN B
ASIC TEXT.Q...STY . ;INITIAL COMM. NUMBE
R.....INY ;PO. . . CHARACTER.....LDA (TX
TPTR),Y.....CMP #"@".).F.BNE OLDVEC ;NO
LEADING @./.P.;.L.Z.LDX #0 ;INIT TABLE P
O.ER.R...;.^...NXT . ..W...INY ;. . . CH
ARACTER.....LDA (TXTPTR),Y.....SEC.....S
BC TABLE,X ;CHECK TEXT.J. .BNE LAST ;MAY
BE SH.TED.P.*.;...4.INX ;OKAY SO FAR...
>.BNE NXT ;LOOP . . MATCH...H.;...R.LAST
. ..,.\.SEC ;CHECK . SH.TED.I.F.SBC #$8
0 ;CHECK . SH.TED.A.P.BNE SKIP ;CHARACTE
R.G.Z.;.....BEQ FOUND ;MATCHS STRING....
.;.....; NO MATCH FOUND SO ADVANCE ..A..
.; . COMM. STRING.G...;.T...SKIP . .....
.LDA TABLE,X...J.BMI NX. ;REACHED SH.TED
CHAR...T.;.+...BEQ OLDVEC ;ERR. . OF TA
BLE.1...;.9...INX.Q...BNE SKIP ;KEEP KIN
G.W...;.C...NX. . ..M...INC ..U.$.INX...
..LDY #1 ;R IN BASIC TEXT...8.BNE NXT ;S
EARCH . COMM....B.;.Q.L.; WE HAVE FOUND
THE MATCH...V.; . PARAMETERS...`.;...J.F
OUND . ....T.INY ;UPDATE BASIC PO.ER...~
.TYA.$...CLC.3...ADC TXTPTR.B...STA TXTP
TR.Q...BCC NOPAGE.W...;.H...INC TXTPTR.1
.N.D.;.}.N.NOPAGE . ....X.JSR .. ;. # BY
TES.....STY CG.....STA CG.1.J...JSR ARG
;. C64 MEM.Y START.V...STY C64.....STA C
64.1.....JSR ARG ;. EXTERNAL RAM START..
...STY RAM. .(.STA RAM.1.4.2.JSR ARG ;.
BANK.U.<.CMP #0 ;CHECK . OUT OF RANGE.C.
F.BEQ LIMIT.I.P.;.W.Z..OBIG . ....D.JMP
$B248 ;ILLEGAL QUANTITY...N.;...X.LIMIT
. ......LDA ..P.... #$10 ;CHECK RAM SIZE
.....BEQ R128... .;.....CPY #8 ;MAX BANK
. 512K .1.....BCC INSIDE.....;.$.H.R128
. ..C.R.CPY #2 ;MAX BANK . 128K .1.Q...
BCS .OBIG.W...;.F...INSIDE . ..S...STY B
ANK.}...LDA ......LDY #0.....STY ..10 ;I
NC PO.ERS...".STY ..9 ;NO .ERRUPTS.I.,.S
EI ;. RAM...6.LDX #$F5 ;UNDER BASIC . KE
RNEL...@.LDY 1 ;OLD EUE...J.STX 1 ;TEMP
EUE.0.T.BIT . ;RESET DMA .ROLLER.F.^..A
#$90 ;.M COMM..R.H.STA ..1.R.R.LDA TXTPT
R ;R IN BASIC TEXT.}.|.BNE .B.....;.....
DEC TXTPTR.1 ;PAGE BOUNDRY.....;......B
. ..M...DEC TXTPTR ;.GLE BYTE.....LDA .
;. RESULT...B.STA AREG...L.LDA C64 ;. LA
ST ADDRESS.-.V.STA XREG ;ACCESSED IN COM
PUTER.;...LDA C64.1.H...STA YREG.E...STY
1 ;. RAM C.FIGURATI..Y...CLI ;.ERRUPTS
......JMP OLDVEC ;BACK . BASIC.....;....
.;SUBROUTINE . EEUATE ARGUMENT.D.&.;.P.0
.ARG . ....:.JSR $AEFD ;MUST HAVE COMMA.
..D.;...N... . ....X.JSR $AD9E ;EE .RESS
I..0.B.JMP $B7F7 ;FIX IT.6.L.;.=.V......
> CLICK IMAGE PREVIEW FOR FULL MODAL