CODE-MOVER+
FILE INFORMATION
FILENAME(S): CODE-MOVER+
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:26:28
APPEARS ON: 1 disk(s)
FILE HASH
40fed5eb307d1fccf585dd2074e125d7c0cd307f0d7623b2b7ac2b4f8664139a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LTN TOOLS | CODE-MOVER+ | PRG | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 00 00 99 22 05 22 3A 97 35 33 32 38 |..G....".":.5328|
00000010: 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A 44 49 24 |0,0:.53281,0:DI$|
00000020: B2 22 30 31 32 33 34 35 36 37 38 39 41 42 43 44 |."0123456789ABCD|
00000030: 45 46 22 3A 86 43 33 25 28 34 37 29 2C 43 32 25 |EF":.C3%(47),C2%|
00000040: 28 37 33 29 3A 89 37 00 A7 08 01 00 41 B2 C5 28 |(73):.7.....A..(|
00000050: 41 24 29 3A 41 24 B2 22 22 3A 81 49 B2 33 A4 31 |A$):A$."":.I.3.1|
00000060: A9 AB 31 3A 42 B2 B5 28 41 AD 28 31 36 AE 49 29 |..1:B..(A.(16.I)|
00000070: 29 3A 41 24 B2 41 24 AA CA 28 44 49 24 2C 42 AA |):A$.A$..(DI$,B.|
00000080: 31 2C 31 29 3A 41 B2 41 AB 42 AC 31 36 AE 49 3A |1,1):A.A.B.16.I:|
00000090: 82 49 3A 41 24 B2 41 24 AA CA 28 44 49 24 2C 41 |.I:A$.A$..(DI$,A|
000000A0: AA 31 2C 31 29 3A 8E 00 F2 08 02 00 41 B2 30 3A |.1,1):......A.0:|
000000B0: 81 49 B2 C3 28 41 24 29 A4 31 A9 AB 31 3A 81 4A |.I..(A$).1..1:.J|
000000C0: B2 31 A4 31 36 3A 8B CA 28 41 24 2C 49 2C 31 29 |.1.16:..(A$,I,1)|
000000D0: B2 CA 28 44 49 24 2C 4A 2C 31 29 A7 41 B2 41 AA |..(DI$,J,1).A.A.|
000000E0: 28 4A AB 31 29 AC 31 36 AE 28 C3 28 41 24 29 AB |(J.1).16.(.(A$).|
000000F0: 49 29 00 B4 09 03 00 82 4A 2C 49 3A 41 24 B2 C4 |I)......J,I:A$..|
00000100: 28 41 29 3A 8E 3A 83 37 36 2C 33 32 2C 31 37 33 |(A):.:.76,32,173|
00000110: 2C 31 37 34 2C 31 37 32 2C 31 30 39 2C 34 35 2C |,174,172,109,45,|
00000120: 31 34 2C 34 34 2C 32 30 35 2C 32 33 36 2C 32 30 |14,44,205,236,20|
00000130: 34 2C 32 30 36 2C 37 37 2C 32 33 38 2C 37 38 2C |4,206,77,238,78,|
00000140: 31 33 2C 34 36 2C 31 31 30 2C 32 33 37 2C 31 34 |13,46,110,237,14|
00000150: 31 2C 31 34 32 2C 31 34 30 2C 31 32 35 2C 36 31 |1,142,140,125,61|
00000160: 2C 33 30 2C 32 32 31 2C 32 32 32 2C 39 33 2C 32 |,30,221,222,93,2|
00000170: 35 34 2C 31 38 39 2C 31 38 38 2C 39 34 2C 32 39 |54,189,188,94,29|
00000180: 2C 36 32 2C 31 32 36 2C 32 35 33 2C 31 35 37 2C |,62,126,253,157,|
00000190: 31 32 31 2C 35 37 2C 32 31 37 2C 38 39 2C 31 38 |121,57,217,89,18|
000001A0: 35 2C 31 39 30 2C 32 35 2C 32 34 39 2C 31 35 33 |5,190,25,249,153|
000001B0: 2C 31 30 38 00 8E 0A 04 00 83 31 30 31 2C 33 37 |,108......101,37|
000001C0: 2C 36 2C 33 36 2C 31 39 37 2C 32 32 38 2C 31 39 |,6,36,197,228,19|
000001D0: 36 2C 31 39 38 2C 36 39 2C 32 33 30 2C 31 36 35 |6,198,69,230,165|
000001E0: 2C 31 36 36 2C 31 36 34 2C 37 30 2C 35 2C 33 38 |,166,164,70,5,38|
000001F0: 2C 31 30 32 2C 32 32 39 2C 31 33 33 2C 31 33 34 |,102,229,133,134|
00000200: 2C 31 33 32 2C 31 30 35 2C 34 31 2C 32 30 31 2C |,132,105,41,201,|
00000210: 32 32 34 2C 31 39 32 2C 37 33 2C 31 36 39 2C 31 |224,192,73,169,1|
00000220: 36 32 2C 31 36 30 2C 39 2C 32 33 33 2C 39 37 2C |62,160,9,233,97,|
00000230: 33 33 2C 31 39 33 2C 36 35 2C 31 36 31 2C 31 2C |33,193,65,161,1,|
00000240: 32 32 35 2C 31 32 39 2C 31 31 33 2C 34 39 2C 32 |225,129,113,49,2|
00000250: 30 39 2C 38 31 2C 31 37 37 2C 31 37 2C 32 34 31 |09,81,177,17,241|
00000260: 2C 31 34 35 2C 31 31 37 2C 35 33 2C 32 32 2C 32 |,145,117,53,22,2|
00000270: 31 33 2C 32 31 34 2C 38 35 2C 32 34 36 2C 31 38 |13,214,85,246,18|
00000280: 31 2C 31 38 30 2C 38 36 2C 32 31 2C 35 34 00 C8 |1,180,86,21,54..|
00000290: 0A 05 00 83 31 31 38 2C 32 34 35 2C 31 34 39 2C |....118,245,149,|
000002A0: 31 34 38 2C 31 34 34 2C 31 37 36 2C 32 34 30 2C |148,144,176,240,|
000002B0: 34 38 2C 32 30 38 2C 31 36 2C 38 30 2C 31 31 32 |48,208,16,80,112|
000002C0: 2C 31 38 32 2C 31 35 30 00 F2 0A 06 00 81 49 B2 |,182,150......I.|
000002D0: 30 A4 34 37 3A 87 43 33 25 28 49 29 3A 82 3A 81 |0.47:.C3%(I):.:.|
000002E0: 49 B2 30 A4 37 33 3A 87 43 32 25 28 49 29 3A 82 |I.0.73:.C2%(I):.|
000002F0: 3A 8E 00 C0 0B 07 00 41 24 B2 22 43 4F 44 45 4D |:......A$."CODEM|
00000300: 4F 56 45 52 22 3A 99 22 93 11 11 22 A3 33 30 29 |OVER":."...".30)|
00000310: 41 24 3A 81 49 B2 31 A4 39 3A 99 22 13 11 11 22 |A$:.I.1.9:."..."|
00000320: C8 28 41 24 2C 49 29 A3 33 30 29 3B 3A 81 4A B2 |.(A$,I).30);:.J.|
00000330: 30 A4 49 3A 99 22 20 22 3B 3A 82 3A 99 C9 28 41 |0.I:." ";:.:..(A|
00000340: 24 2C 39 AB 49 29 3B 3A 81 4A B2 31 A4 33 35 30 |$,9.I);:.J.1.350|
00000350: 3A 82 3A 82 3A 99 22 11 42 59 11 45 56 45 52 45 |:.:.:.".BY.EVERE|
00000360: 54 54 20 4C 55 4D 50 4B 49 4E 0D 13 11 11 11 11 |TT LUMPKIN......|
00000370: 11 11 11 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |...THIS PROGRAM |
00000380: 57 49 4C 4C 20 4D 4F 56 45 20 41 20 53 45 43 54 |WILL MOVE A SECT|
00000390: 49 4F 4E 20 4F 46 20 0D 4D 41 43 48 49 4E 45 20 |ION OF .MACHINE |
000003A0: 43 4F 44 45 20 54 4F 20 41 20 4E 45 57 20 4C 4F |CODE TO A NEW LO|
000003B0: 43 41 54 49 4F 4E 20 54 52 41 4E 53 4C 41 54 2D |CATION TRANSLAT-|
000003C0: 00 7C 0C 08 00 99 22 91 49 4E 47 20 41 4C 4C 20 |.|....".ING ALL |
000003D0: 54 48 45 20 4A 4D 50 27 53 20 41 4E 44 20 4F 54 |THE JMP'S AND OT|
000003E0: 48 45 52 20 41 44 44 52 45 53 53 45 53 2E 0D 42 |HER ADDRESSES..B|
000003F0: 45 43 41 55 53 45 20 53 4F 4D 45 20 50 41 52 54 |ECAUSE SOME PART|
00000400: 53 20 4F 46 20 54 48 45 20 50 52 4F 47 52 41 4D |S OF THE PROGRAM|
00000410: 20 57 49 4C 4C 0D 4E 45 45 44 20 54 4F 20 42 45 | WILL.NEED TO BE|
00000420: 20 4D 4F 56 45 44 20 56 45 52 42 41 54 49 4D 20 | MOVED VERBATIM |
00000430: 28 54 41 42 4C 45 53 20 45 43 54 2E 29 2C 0D 91 |(TABLES ECT.),..|
00000440: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 4C |THIS PROGRAM WIL|
00000450: 4C 20 50 52 4F 43 45 53 53 20 54 48 45 20 43 4F |L PROCESS THE CO|
00000460: 44 45 20 41 0D 53 45 43 54 49 4F 4E 20 41 54 20 |DE A.SECTION AT |
00000470: 41 20 54 49 4D 45 2E 11 22 3A 8D 36 00 54 0D 09 |A TIME..":.6.T..|
00000480: 00 99 22 45 4E 54 45 52 20 54 48 45 20 42 4F 55 |.."ENTER THE BOU|
00000490: 4E 44 41 52 49 45 53 20 4F 46 20 45 4E 54 49 52 |NDARIES OF ENTIR|
000004A0: 45 20 50 52 4F 47 52 41 4D 2E 20 20 20 46 4F 4C |E PROGRAM. FOL|
000004B0: 4C 4F 57 20 45 58 41 4D 50 4C 45 20 46 4F 52 4D |LOW EXAMPLE FORM|
000004C0: 41 54 2E 0D 20 20 42 30 30 30 2D 42 37 46 46 91 |AT.. B000-B7FF.|
000004D0: 22 3A 85 41 24 3A 42 24 B2 C9 28 41 24 2C 34 29 |":.A$:B$..(A$,4)|
000004E0: 3A 41 24 B2 C8 28 41 24 2C 34 29 3A 8D 32 3A 42 |:A$..(A$,4):.2:B|
000004F0: 4F B2 C5 28 41 24 29 3A 41 24 B2 42 24 3A 8D 32 |O..(A$):A$.B$:.2|
00000500: 3A 4C 4F B2 C5 28 41 24 29 3A 99 22 11 59 4F 55 |:LO..(A$):.".YOU|
00000510: 52 20 50 52 4F 47 52 41 4D 20 49 53 20 41 54 20 |R PROGRAM IS AT |
00000520: 22 42 4F 22 44 45 43 49 4D 41 4C 20 54 4F 0D 22 |"BO"DECIMAL TO."|
00000530: 4C 4F 22 44 45 43 49 4D 41 4C 20 41 4E 44 20 49 |LO"DECIMAL AND I|
00000540: 53 20 22 4C 4F AB 42 4F 22 42 59 54 45 53 20 4C |S "LO.BO"BYTES L|
00000550: 4F 4E 47 2E 00 13 0E 0A 00 99 22 11 45 4E 54 45 |ONG.......".ENTE|
00000560: 52 20 54 48 45 20 42 4F 55 4E 44 41 52 49 45 53 |R THE BOUNDARIES|
00000570: 20 57 48 45 52 45 20 59 27 20 57 4F 55 4C 44 20 | WHERE Y' WOULD |
00000580: 4C 49 4B 45 91 0D 91 54 48 45 20 50 52 4F 47 52 |LIKE...THE PROGR|
00000590: 41 4D 20 54 4F 20 42 45 20 43 4F 50 49 45 44 2E |AM TO BE COPIED.|
000005A0: 20 20 54 59 50 45 20 3F 3F 3F 3F 0D 49 46 20 59 | TYPE ????.IF Y|
000005B0: 4F 55 20 57 41 4E 54 20 54 48 45 20 43 4F 4D 50 |OU WANT THE COMP|
000005C0: 55 54 45 52 20 54 4F 20 43 4F 4D 50 55 54 45 20 |UTER TO COMPUTE |
000005D0: 41 4E 0D 41 44 44 52 45 53 53 2E 0D 20 20 42 30 |AN.ADDRESS.. B0|
000005E0: 30 30 2D 42 37 46 46 91 22 3A 85 41 24 3A 42 24 |00-B7FF.":.A$:B$|
000005F0: B2 C9 28 41 24 2C 34 29 3A 41 24 B2 C8 28 41 24 |..(A$,4):A$..(A$|
00000600: 2C 34 29 3A 8B C8 28 41 24 2C 31 29 B2 22 3F 22 |,4):..(A$,1)."?"|
00000610: A7 31 32 00 23 0E 0B 00 8D 32 3A 42 43 B2 C5 28 |.12.#....2:BC..(|
00000620: 41 24 29 00 46 0E 0C 00 8B C8 28 42 24 2C 31 29 |A$).F.....(B$,1)|
00000630: B2 22 3F 22 A7 4C 43 B2 42 43 AA 28 4C 4F AB 42 |."?".LC.BC.(LO.B|
00000640: 4F 29 3A 89 31 34 00 6A 0E 0D 00 41 24 B2 42 24 |O):.14.j...A$.B$|
00000650: 3A 8D 32 3A 4C 43 B2 C5 28 41 24 29 3A 42 43 B2 |:.2:LC..(A$):BC.|
00000660: 4C 43 AB 28 4C 4F AB 42 4F 29 00 E0 0E 0E 00 99 |LC.(LO.BO)......|
00000670: 22 11 59 4F 55 52 20 4E 45 57 20 50 52 4F 47 52 |".YOUR NEW PROGR|
00000680: 41 4D 20 57 49 4C 4C 20 42 45 0D 22 42 43 22 2D |AM WILL BE."BC"-|
00000690: 22 4C 43 22 49 4E 20 44 45 43 49 4D 41 4C 22 3A |"LC"IN DECIMAL":|
000006A0: 41 24 B2 C4 28 42 43 29 3A 8D 31 3A 99 41 24 22 |A$..(BC):.1:.A$"|
000006B0: 2D 22 3B 3A 41 24 B2 C4 28 4C 43 29 3A 8D 31 3A |-";:A$..(LC):.1:|
000006C0: 99 41 24 22 20 49 4E 20 48 45 58 22 3A 49 31 B2 |.A$" IN HEX":I1.|
000006D0: 42 4F 3A 49 32 B2 4C 4F 3A 44 B2 42 4F AB 42 43 |BO:I2.LO:D.BO.BC|
000006E0: 00 6E 0F 0F 00 99 22 11 45 4E 54 45 52 20 54 48 |.n....".ENTER TH|
000006F0: 45 20 12 53 45 43 54 49 4F 4E 92 20 4F 46 20 43 |E .SECTION. OF C|
00000700: 4F 44 45 20 54 4F 20 42 45 20 4D 4F 56 45 44 2E |ODE TO BE MOVED.|
00000710: 22 3A 41 24 B2 C4 28 49 31 29 3A 8D 31 3A 99 22 |":A$..(I1):.1:."|
00000720: 20 20 22 41 24 22 2D 22 3B 3A 41 24 B2 C4 28 49 | "A$"-";:A$..(I|
00000730: 32 29 3A 8D 31 3A 99 41 24 22 91 22 3A 85 42 24 |2):.1:.A$".":.B$|
00000740: 3A 41 24 B2 C8 28 42 24 2C 34 29 3A 8D 32 3A 49 |:A$..(B$,4):.2:I|
00000750: 31 B2 C5 28 41 24 29 3A 41 24 B2 C9 28 42 24 2C |1..(A$):A$..(B$,|
00000760: 34 29 3A 8D 32 3A 49 32 B2 C5 28 41 24 29 00 A2 |4):.2:I2..(A$)..|
00000770: 0F 10 00 99 22 11 49 53 20 49 54 20 54 4F 20 42 |....".IS IT TO B|
00000780: 45 20 12 54 92 52 41 4E 53 4C 41 54 45 44 20 4F |E .T.RANSLATED O|
00000790: 52 20 4D 4F 56 45 44 20 12 56 92 45 52 42 41 54 |R MOVED .V.ERBAT|
000007A0: 49 4D 00 B4 0F 11 00 A1 41 24 3A 8B 41 24 B2 22 |IM......A$:.A$."|
000007B0: 22 A7 31 37 00 C3 0F 12 00 8B 41 24 B2 22 54 22 |".17......A$."T"|
000007C0: A7 32 33 00 D3 0F 13 00 8B 41 24 B3 B1 22 56 22 |.23......A$.."V"|
000007D0: A7 31 36 00 02 10 14 00 81 49 31 B2 49 31 A4 49 |.16......I1.I1.I|
000007E0: 32 3A 41 25 B2 C2 28 49 31 29 3A 42 B2 49 31 AB |2:A%..(I1):B.I1.|
000007F0: 44 3A 99 42 2C 41 25 22 91 22 3A 97 42 2C 41 25 |D:.B,A%".":.B,A%|
00000800: 3A 82 00 11 10 15 00 8B 49 31 B1 B2 4C 4F A7 33 |:.......I1..LO.3|
00000810: 30 00 27 10 16 00 49 31 B2 49 32 AA 31 3A 49 32 |0.'...I1.I2.1:I2|
00000820: B2 4C 4F 3A 89 31 35 00 33 10 17 00 49 31 B2 49 |.LO:.15.3...I1.I|
00000830: 31 AB 31 00 5C 10 18 00 49 31 B2 49 31 AA 31 3A |1.1.\...I1.I1.1:|
00000840: 41 25 B2 C2 28 49 31 29 3A 99 49 31 2C 41 25 22 |A%..(I1):.I1,A%"|
00000850: 91 22 3A 8B 49 31 B1 49 32 A7 32 31 00 7B 10 19 |.":.I1.I2.21.{..|
00000860: 00 81 4A B2 30 A4 33 37 3A 8B 43 33 25 28 4A 29 |..J.0.37:.C3%(J)|
00000870: B3 B1 41 25 A7 82 4A 3A 89 32 38 00 C5 10 1A 00 |..A%..J:.28.....|
00000880: 97 49 31 AB 44 2C 41 25 3A 41 44 B2 C2 28 49 31 |.I1.D,A%:AD..(I1|
00000890: AA 32 29 AC 32 35 36 AA C2 28 49 31 AA 31 29 3A |.2).256..(I1.1):|
000008A0: 8B 28 41 44 B1 4C 4F 29 B0 28 41 44 B3 42 4F 29 |.(AD.LO).(AD.BO)|
000008B0: A7 49 31 B2 49 31 AA 31 3A 41 25 B2 C2 28 49 31 |.I1.I1.1:A%..(I1|
000008C0: 29 3A 89 32 39 00 0C 11 1B 00 4E 41 B2 41 44 AB |):.29.....NA.AD.|
000008D0: 44 3A 97 28 49 31 AA 32 AB 44 29 2C B5 28 4E 41 |D:.(I1.2.D),.(NA|
000008E0: AD 32 35 36 29 3A 97 28 49 31 AA 31 AB 44 29 2C |.256):.(I1.1.D),|
000008F0: 4E 41 AB B5 28 4E 41 AD 32 35 36 29 AC 32 35 36 |NA..(NA.256).256|
00000900: 3A 49 31 B2 49 31 AA 32 3A 89 32 34 00 34 11 1C |:I1.I1.2:.24.4..|
00000910: 00 81 4A B2 30 A4 37 33 3A 8B 43 32 25 28 4A 29 |..J.0.73:.C2%(J)|
00000920: B3 B1 41 25 A7 82 4A 3A 97 49 31 AB 44 2C 41 25 |..A%..J:.I1.D,A%|
00000930: 3A 89 32 34 00 5F 11 1D 00 97 49 31 AB 44 2C 41 |:.24._....I1.D,A|
00000940: 25 3A 49 31 B2 49 31 AA 31 3A 41 25 B2 C2 28 49 |%:I1.I1.1:A%..(I|
00000950: 31 29 3A 97 49 31 AB 44 2C 41 25 3A 89 32 34 00 |1):.I1.D,A%:.24.|
00000960: 3D 12 1E 00 99 22 93 59 4F 55 52 20 50 52 4F 47 |=....".YOUR PROG|
00000970: 52 41 4D 20 48 41 53 20 4E 4F 57 20 42 45 45 4E |RAM HAS NOW BEEN|
00000980: 20 4D 4F 56 45 44 0D 11 11 4F 4C 44 20 4C 4F 43 | MOVED...OLD LOC|
00000990: 41 54 49 4F 4E 20 20 20 20 20 20 20 20 4E 45 57 |ATION NEW|
000009A0: 20 4C 4F 43 41 54 49 4F 4E 0D 24 22 3B 3A 41 24 | LOCATION.$";:A$|
000009B0: B2 C4 28 42 4F 29 3A 8D 31 3A 99 41 24 22 2D 24 |..(BO):.1:.A$"-$|
000009C0: 22 3B 3A 41 24 B2 C4 28 4C 4F 29 3A 8D 31 3A 99 |";:A$..(LO):.1:.|
000009D0: 41 24 A3 32 30 29 3B 3A 41 24 B2 C4 28 42 43 29 |A$.20);:A$..(BC)|
000009E0: 3A 8D 31 3A 99 22 24 22 41 24 22 2D 24 22 3B 3A |:.1:."$"A$"-$";:|
000009F0: 41 24 B2 C4 28 4C 43 29 3A 8D 31 3A 99 41 24 3A |A$..(LC):.1:.A$:|
00000A00: 99 42 4F 22 2D 22 4C 4F A3 32 30 29 42 43 22 2D |.BO"-"LO.20)BC"-|
00000A10: 22 4C 43 3A 99 22 11 11 11 41 4C 54 48 4F 55 47 |"LC:."...ALTHOUG|
00000A20: 48 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 48 |H THIS PROGRAM H|
00000A30: 41 53 20 54 52 41 4E 53 4C 41 54 45 44 00 F3 12 |AS TRANSLATED...|
00000A40: 1F 00 99 3A 99 22 54 48 45 20 4A 4D 50 27 53 2C |...:."THE JMP'S,|
00000A50: 4A 53 52 27 53 20 41 4E 44 20 4F 54 48 45 52 20 |JSR'S AND OTHER |
00000A60: 41 44 44 52 45 53 53 45 53 0D 0D 54 48 45 52 45 |ADDRESSES..THERE|
00000A70: 20 4D 41 59 20 42 45 20 4F 54 48 45 52 20 50 52 | MAY BE OTHER PR|
00000A80: 4F 42 4C 45 4D 53 20 57 49 54 48 20 54 48 45 20 |OBLEMS WITH THE |
00000A90: 4E 45 57 0D 4C 4F 43 41 54 49 4F 4E 20 57 48 49 |NEW.LOCATION WHI|
00000AA0: 43 48 20 41 52 45 20 48 49 44 44 45 4E 2E 20 20 |CH ARE HIDDEN. |
00000AB0: 49 4E 20 4F 54 48 45 52 0D 0D 57 4F 52 44 53 2C |IN OTHER..WORDS,|
00000AC0: 53 41 56 45 20 54 48 45 20 4E 45 57 20 43 4F 44 |SAVE THE NEW COD|
00000AD0: 45 20 42 45 46 4F 52 45 20 54 52 59 49 4E 47 0D |E BEFORE TRYING.|
00000AE0: 0D 49 54 2E 2D 2D 47 4F 4F 44 20 4C 55 43 4B 21 |.IT.--GOOD LUCK!|
00000AF0: 22 3A 80 00 00 00 |":.... |
..G....".":.53280,0:.53281,0:DI$."012345
6789ABCDEF":.C3%(47),C2%(73):.7.....A.E(
A$):A$."":.I.3.1..1:B..(A.(16.I)):A$.A$.
J(DI$,B.1,1):A.A.B.16.I:.I:A$.A$.J(DI$,A
.1,1):......A.0:.I.C(A$).1..1:.J.1.16:.J
(A$,I,1).J(DI$,J,1).A.A.(J.1).16.(C(A$).
I)......J,I:A$.D(A):.:.76,32,173,174,172
,109,45,14,44,205,236,204,206,77,238,78,
13,46,110,237,141,142,140,125,61,30,221,
222,93,254,189,188,94,29,62,126,253,157,
121,57,217,89,185,190,25,249,153,108....
..101,37,6,36,197,228,196,198,69,230,165
,166,164,70,5,38,102,229,133,134,132,105
,41,201,224,192,73,169,162,160,9,233,97,
33,193,65,161,1,225,129,113,49,209,81,17
7,17,241,145,117,53,22,213,214,85,246,18
1,180,86,21,54.H....118,245,149,148,144,
176,240,48,208,16,80,112,182,150......I.
0.47:.C3%(I):.:.I.0.73:.C2%(I):.:......A
$."CODEMOVER":."...".30)A$:.I.1.9:."..."
H(A$,I).30);:.J.0.I:." ";:.:.I(A$,9.I);:
.J.1.350:.:.:.".BY.EVERETT LUMPKIN......
...THIS PROGRAM WILL MOVE A SECTION OF .
MACHINE CODE TO A NEW LOCATION TRANSLAT-
.|....".ING ALL THE JMP'S AND OTHER ADDR
ESSES..BECAUSE SOME PARTS OF THE PROGRAM
WILL.NEED TO BE MOVED VERBATIM (TABLES
ECT.),..THIS PROGRAM WILL PROCESS THE CO
DE A.SECTION AT A TIME..":.6.T...."ENTER
THE BOUNDARIES OF ENTIRE PROGRAM. FOL
LOW EXAMPLE FORMAT.. B000-B7FF.":.A$:B$
.I(A$,4):A$.H(A$,4):.2:BO.E(A$):A$.B$:.2
:LO.E(A$):.".YOUR PROGRAM IS AT "BO"DECI
MAL TO."LO"DECIMAL AND IS "LO.BO"BYTES L
ONG.......".ENTER THE BOUNDARIES WHERE Y
' WOULD LIKE...THE PROGRAM TO BE COPIED.
TYPE ????.IF YOU WANT THE COMPUTER TO
COMPUTE AN.ADDRESS.. B000-B7FF.":.A$:B$
.I(A$,4):A$.H(A$,4):.H(A$,1)."?".12.#...
.2:BC.E(A$).F....H(B$,1)."?".LC.BC.(LO.B
O):.14.J...A$.B$:.2:LC.E(A$):BC.LC.(LO.B
O)......".YOUR NEW PROGRAM WILL BE."BC"-
"LC"IN DECIMAL":A$.D(BC):.1:.A$"-";:A$.D
(LC):.1:.A$" IN HEX":I1.BO:I2.LO:D.BO.BC
.N....".ENTER THE .SECTION. OF CODE TO B
E MOVED.":A$.D(I1):.1:." "A$"-";:A$.D(I
2):.1:.A$".":.B$:A$.H(B$,4):.2:I1.E(A$):
A$.I(B$,4):.2:I2.E(A$)......".IS IT TO B
E .T.RANSLATED OR MOVED .V.ERBATIM......
A$:.A$."".17.C....A$."T".23.S....A$.."V"
.16......I1.I1.I2:A%.B(I1):B.I1.D:.B,A%"
.":.B,A%:.......I1..LO.30.'...I1.I2.1:I2
.LO:.15.3...I1.I1.1.\...I1.I1.1:A%.B(I1)
:.I1,A%".":.I1.I2.21.{....J.0.37:.C3%(J)
..A%..J:.28.E....I1.D,A%:AD.B(I1.2).256.
B(I1.1):.(AD.LO).(AD.BO).I1.I1.1:A%.B(I1
):.29.....NA.AD.D:.(I1.2.D),.(NA.256):.(
I1.1.D),NA..(NA.256).256:I1.I1.2:.24.4..
..J.0.73:.C2%(J)..A%..J:.I1.D,A%:.24._..
..I1.D,A%:I1.I1.1:A%.B(I1):.I1.D,A%:.24.
=....".YOUR PROGRAM HAS NOW BEEN MOVED..
.OLD LOCATION NEW LOCATION.$";:A$
.D(BO):.1:.A$"-$";:A$.D(LO):.1:.A$.20);:
A$.D(BC):.1:."$"A$"-$";:A$.D(LC):.1:.A$:
.BO"-"LO.20)BC"-"LC:."...ALTHOUGH THIS P
ROGRAM HAS TRANSLATED......:."THE JMP'S,
JSR'S AND OTHER ADDRESSES..THERE MAY BE
OTHER PROBLEMS WITH THE NEW.LOCATION WHI
CH ARE HIDDEN. IN OTHER..WORDS,SAVE THE
NEW CODE BEFORE TRYING..IT.--GOOD LUCK!
":....
> CLICK IMAGE PREVIEW FOR FULL MODAL