CODEMOVER
FILE INFORMATION
FILENAME(S): CODEMOVER
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 21:23:45
APPEARS ON: 1 disk(s)
FILE HASH
647b273c7d0a86ece00769ee57c5f83279668acdec2d265bbfd10853455287e3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 25 1 | CODEMOVER | PRG | DuncanTwain | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 14 00 99 22 05 22 3A 97 35 33 32 38 |.......".":.5328| 00000010: 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 37 08 1E |0,0:.53281,0.7..| 00000020: 00 44 49 24 B2 22 30 31 32 33 34 35 36 37 38 39 |.DI$."0123456789| 00000030: 41 42 43 44 45 46 22 00 4D 08 28 00 86 20 43 33 |ABCDEF".M.(.. C3| 00000040: 25 28 34 37 29 2C 43 32 25 28 37 33 29 00 72 08 |%(47),C2%(73).r.| 00000050: 32 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 56 41 52 49 |2..*********VARI| 00000060: 42 4C 45 53 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |BLES************| 00000070: 2A 2A 00 78 08 34 00 8F 00 9B 08 36 00 8F 20 42 |**.x.4.....6.. B| 00000080: 4F 20 20 2D 2D 42 45 47 49 4E 20 4F 46 20 4F 52 |O --BEGIN OF OR| 00000090: 49 47 49 4E 41 4C 20 43 4F 44 45 00 BD 08 38 00 |IGINAL CODE...8.| 000000A0: 8F 20 4C 4F 20 20 2D 2D 4C 41 53 54 20 4F 46 20 |. LO --LAST OF | 000000B0: 4F 52 49 47 49 4E 41 4C 20 43 4F 44 45 00 DC 08 |ORIGINAL CODE...| 000000C0: 3A 00 8F 20 42 43 20 20 2D 2D 42 45 47 49 4E 20 |:.. BC --BEGIN | 000000D0: 4F 46 20 43 4F 50 59 20 43 4F 44 45 00 FA 08 3C |OF COPY CODE...<| 000000E0: 00 8F 20 4C 43 20 20 2D 2D 4C 41 53 54 20 4F 46 |.. LC --LAST OF| 000000F0: 20 43 4F 50 59 20 43 4F 44 45 00 1B 09 3E 00 8F | COPY CODE...>..| 00000100: 20 44 20 20 20 2D 2D 44 49 53 50 4C 41 43 45 4D | D --DISPLACEM| 00000110: 45 4E 54 20 4F 46 20 43 4F 44 45 00 38 09 40 00 |ENT OF CODE.8.@.| 00000120: 8F 20 49 31 20 20 2D 2D 42 45 47 49 4E 20 4F 46 |. I1 --BEGIN OF| 00000130: 20 53 45 43 54 49 4F 4E 00 53 09 42 00 8F 20 49 | SECTION.S.B.. I| 00000140: 32 20 20 2D 2D 45 4E 44 20 4F 46 20 53 45 43 54 |2 --END OF SECT| 00000150: 49 4F 4E 00 73 09 44 00 8F 20 43 33 25 28 34 37 |ION.s.D.. C3%(47| 00000160: 29 20 20 2D 2D 33 20 42 59 54 45 20 4F 50 43 4F |) --3 BYTE OPCO| 00000170: 44 45 53 00 93 09 46 00 8F 20 43 32 25 28 37 33 |DES...F.. C2%(73| 00000180: 29 20 20 2D 2D 32 20 42 59 54 45 20 4F 50 43 4F |) --2 BYTE OPCO| 00000190: 44 45 53 00 B3 09 48 00 8F 20 41 44 44 20 20 20 |DES...H.. ADD | 000001A0: 20 20 20 2D 2D 46 4F 52 4D 45 52 20 41 44 44 52 | --FORMER ADDR| 000001B0: 45 53 53 00 D5 09 4A 00 8F 20 4E 41 44 44 20 20 |ESS...J.. NADD | 000001C0: 20 20 20 2D 2D 43 4F 4D 50 55 54 45 44 20 41 44 | --COMPUTED AD| 000001D0: 44 52 45 53 53 00 DB 09 4C 00 8F 00 00 0A 4E 00 |DRESS...L.....N.| 000001E0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************| 000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000200: 00 0A 0A 63 00 89 20 39 30 30 00 52 0A 64 00 8F |...c.. 900.R.d..| 00000210: 20 53 55 42 20 54 4F 20 54 52 41 4E 53 4C 41 54 | SUB TO TRANSLAT| 00000220: 45 20 44 45 43 49 4D 41 4C 20 54 4F 20 48 45 58 |E DECIMAL TO HEX| 00000230: 3A 45 4E 54 45 52 20 41 53 20 41 24 2D 2D 52 45 |:ENTER AS A$--RE| 00000240: 54 55 52 4E 20 41 24 20 41 53 20 44 45 43 49 4D |TURN A$ AS DECIM| 00000250: 41 4C 00 64 0A 78 00 41 B2 C5 28 41 24 29 3A 41 |AL.d.x.A..(A$):A| 00000260: 24 B2 22 22 00 80 0A 82 00 81 49 B2 33 A4 31 A9 |$.""......I.3.1.| 00000270: AB 31 3A 42 B2 B5 28 41 AD 28 31 36 AE 49 29 29 |.1:B..(A.(16.I))| 00000280: 00 A2 0A 8C 00 41 24 B2 41 24 AA CA 28 44 49 24 |.....A$.A$..(DI$| 00000290: 2C 42 AA 31 2C 31 29 3A 41 B2 41 AB 42 AC 31 36 |,B.1,1):A.A.B.16| 000002A0: AE 49 00 A9 0A 96 00 82 49 00 C0 0A A0 00 41 24 |.I......I.....A$| 000002B0: B2 41 24 AA CA 28 44 49 24 2C 41 AA 31 2C 31 29 |.A$..(DI$,A.1,1)| 000002C0: 00 C6 0A AA 00 8E 00 0E 0B C8 00 8F 20 53 55 42 |............ SUB| 000002D0: 20 54 4F 20 54 52 41 4E 53 4C 41 54 45 20 48 45 | TO TRANSLATE HE| 000002E0: 58 20 54 4F 20 44 45 43 49 4D 41 4C 3A 45 4E 54 |X TO DECIMAL:ENT| 000002F0: 45 52 20 41 53 20 41 24 2D 2D 52 45 54 55 52 4E |ER AS A$--RETURN| 00000300: 20 41 24 20 41 53 20 44 45 43 49 4D 41 4C 00 16 | A$ AS DECIMAL..| 00000310: 0B CD 00 41 B2 30 00 30 0B D2 00 81 49 B2 C3 28 |...A.0.0....I..(| 00000320: 41 24 29 A4 31 A9 AB 31 3A 81 4A B2 31 A4 31 36 |A$).1..1:.J.1.16| 00000330: 00 61 0B DC 00 8B CA 28 41 24 2C 49 2C 31 29 B2 |.a.....(A$,I,1).| 00000340: CA 28 44 49 24 2C 4A 2C 31 29 A7 41 B2 41 AA 28 |.(DI$,J,1).A.A.(| 00000350: 4A AB 31 29 AC 31 36 AE 28 C3 28 41 24 29 AB 49 |J.1).16.(.(A$).I| 00000360: 29 00 6A 0B E6 00 82 4A 2C 49 00 78 0B F0 00 41 |).j....J,I.x...A| 00000370: 24 B2 C4 28 41 29 3A 8E 00 8D 0B 2C 01 8F 20 33 |$..(A):....,.. 3| 00000380: 20 42 59 54 45 20 4F 50 43 4F 44 45 53 00 CC 0B | BYTE OPCODES...| 00000390: 36 01 83 20 37 36 2C 33 32 2C 31 37 33 2C 31 37 |6.. 76,32,173,17| 000003A0: 34 2C 31 37 32 2C 31 30 39 2C 34 35 2C 31 34 2C |4,172,109,45,14,| 000003B0: 34 34 2C 32 30 35 2C 32 33 36 2C 32 30 34 2C 32 |44,205,236,204,2| 000003C0: 30 36 2C 37 37 2C 32 33 38 2C 37 38 00 09 0C 40 |06,77,238,78...@| 000003D0: 01 83 20 31 33 2C 34 36 2C 31 31 30 2C 32 33 37 |.. 13,46,110,237| 000003E0: 2C 31 34 31 2C 31 34 32 2C 31 34 30 2C 31 32 35 |,141,142,140,125| 000003F0: 2C 36 31 2C 33 30 2C 32 32 31 2C 32 32 32 2C 39 |,61,30,221,222,9| 00000400: 33 2C 32 35 34 2C 31 38 39 00 4D 0C 4A 01 83 20 |3,254,189.M.J.. | 00000410: 31 38 38 2C 39 34 2C 32 39 2C 36 32 2C 31 32 36 |188,94,29,62,126| 00000420: 2C 32 35 33 2C 31 35 37 2C 31 32 31 2C 35 37 2C |,253,157,121,57,| 00000430: 32 31 37 2C 38 39 2C 31 38 35 2C 31 39 30 2C 32 |217,89,185,190,2| 00000440: 35 2C 32 34 39 2C 31 35 33 2C 31 30 38 00 62 0C |5,249,153,108.b.| 00000450: 54 01 8F 20 32 20 42 59 54 45 20 4F 50 43 4F 44 |T.. 2 BYTE OPCOD| 00000460: 45 53 00 9C 0C 5E 01 83 20 31 30 31 2C 33 37 2C |ES...^.. 101,37,| 00000470: 36 2C 33 36 2C 31 39 37 2C 32 32 38 2C 31 39 36 |6,36,197,228,196| 00000480: 2C 31 39 38 2C 36 39 2C 32 33 30 2C 31 36 35 2C |,198,69,230,165,| 00000490: 31 36 36 2C 31 36 34 2C 37 30 2C 35 00 DB 0C 68 |166,164,70,5...h| 000004A0: 01 83 20 33 38 2C 31 30 32 2C 32 32 39 2C 31 33 |.. 38,102,229,13| 000004B0: 33 2C 31 33 34 2C 31 33 32 2C 31 30 35 2C 34 31 |3,134,132,105,41| 000004C0: 2C 32 30 31 2C 32 32 34 2C 31 39 32 2C 37 33 2C |,201,224,192,73,| 000004D0: 31 36 39 2C 31 36 32 2C 31 36 30 00 14 0D 72 01 |169,162,160...r.| 000004E0: 83 20 39 2C 32 33 33 2C 39 37 2C 33 33 2C 31 39 |. 9,233,97,33,19| 000004F0: 33 2C 36 35 2C 31 36 31 2C 31 2C 32 32 35 2C 31 |3,65,161,1,225,1| 00000500: 32 39 2C 31 31 33 2C 34 39 2C 32 30 39 2C 38 31 |29,113,49,209,81| 00000510: 2C 31 37 37 00 4F 0D 7C 01 83 20 31 37 2C 32 34 |,177.O.|.. 17,24| 00000520: 31 2C 31 34 35 2C 31 31 37 2C 35 33 2C 32 32 2C |1,145,117,53,22,| 00000530: 32 31 33 2C 32 31 34 2C 38 35 2C 32 34 36 2C 31 |213,214,85,246,1| 00000540: 38 31 2C 31 38 30 2C 38 36 2C 32 31 2C 35 34 00 |81,180,86,21,54.| 00000550: 8A 0D 86 01 83 20 31 31 38 2C 32 34 35 2C 31 34 |..... 118,245,14| 00000560: 39 2C 31 34 38 2C 31 34 34 2C 31 37 36 2C 32 34 |9,148,144,176,24| 00000570: 30 2C 34 38 2C 32 30 38 2C 31 36 2C 38 30 2C 31 |0,48,208,16,80,1| 00000580: 31 32 2C 31 38 32 2C 31 35 30 00 A4 0D 90 01 8F |12,182,150......| 00000590: 20 53 55 42 20 54 4F 20 52 45 41 44 20 4F 50 43 | SUB TO READ OPC| 000005A0: 4F 44 45 53 00 BA 0D A4 01 81 49 B2 30 A4 34 37 |ODES......I.0.47| 000005B0: 3A 87 43 33 25 28 49 29 3A 82 00 D0 0D AE 01 81 |:.C3%(I):.......| 000005C0: 49 B2 30 A4 37 33 3A 87 43 32 25 28 49 29 3A 82 |I.0.73:.C2%(I):.| 000005D0: 00 D6 0D B8 01 8E 00 FA 0D 83 03 8F 20 2A 2A 2A |............ ***| 000005E0: 2A 2A 2A 2A 2A 4D 41 49 4E 20 50 52 4F 47 52 41 |*****MAIN PROGRA| 000005F0: 4D 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0D 0E 84 03 41 |M*********.....A| 00000600: 24 B2 22 43 4F 44 45 4D 4F 56 45 52 22 00 1E 0E |$."CODEMOVER"...| 00000610: 8E 03 99 22 93 11 11 22 A3 33 30 29 41 24 00 29 |..."...".30)A$.)| 00000620: 0E 98 03 81 49 B2 31 A4 39 00 5B 0E A2 03 99 22 |....I.1.9.[...."| 00000630: 13 11 11 22 C8 28 41 24 2C 49 29 A3 33 30 29 3B |...".(A$,I).30);| 00000640: 3A 81 4A B2 30 A4 49 3A 99 22 20 22 3B 3A 82 3A |:.J.0.I:." ";:.:| 00000650: 99 C9 28 41 24 2C 39 AB 49 29 3B 00 6A 0E AC 03 |..(A$,9.I);.j...| 00000660: 81 4A B2 31 A4 33 35 30 3A 82 00 70 0E B6 03 82 |.J.1.350:..p....| 00000670: 00 8B 0E C0 03 99 22 11 42 59 11 45 56 45 52 45 |......".BY.EVERE| 00000680: 54 54 20 4C 55 4D 50 4B 49 4E 22 00 BF 0E E8 03 |TT LUMPKIN".....| 00000690: 99 22 13 11 11 11 11 11 11 11 54 48 49 53 20 50 |."........THIS P| 000006A0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 4D 4F 56 45 |ROGRAM WILL MOVE| 000006B0: 20 41 20 53 45 43 54 49 4F 4E 20 4F 46 20 22 00 | A SECTION OF ".| 000006C0: EF 0E F2 03 99 22 4D 41 43 48 49 4E 45 20 43 4F |....."MACHINE CO| 000006D0: 44 45 20 54 4F 20 41 20 4E 45 57 20 4C 4F 43 41 |DE TO A NEW LOCA| 000006E0: 54 49 4F 4E 20 54 52 41 4E 53 4C 41 54 2D 22 00 |TION TRANSLAT-".| 000006F0: 1E 0F FC 03 99 22 91 49 4E 47 20 41 4C 4C 20 54 |.....".ING ALL T| 00000700: 48 45 20 4A 4D 50 27 53 20 41 4E 44 20 4F 54 48 |HE JMP'S AND OTH| 00000710: 45 52 20 41 44 44 52 45 53 53 45 53 2E 22 00 4C |ER ADDRESSES.".L| 00000720: 0F 06 04 99 22 42 45 43 41 55 53 45 20 53 4F 4D |...."BECAUSE SOM| 00000730: 45 20 50 41 52 54 53 20 4F 46 20 54 48 45 20 50 |E PARTS OF THE P| 00000740: 52 4F 47 52 41 4D 20 57 49 4C 4C 22 00 7C 0F 10 |ROGRAM WILL".|..| 00000750: 04 99 22 4E 45 45 44 20 54 4F 20 42 45 20 4D 4F |.."NEED TO BE MO| 00000760: 56 45 44 20 56 45 52 42 41 54 49 4D 20 28 54 41 |VED VERBATIM (TA| 00000770: 42 4C 45 53 20 45 43 54 2E 29 2C 22 00 A9 0F 1A |BLES ECT.),"....| 00000780: 04 99 22 91 54 48 49 53 20 50 52 4F 47 52 41 4D |..".THIS PROGRAM| 00000790: 20 57 49 4C 4C 20 50 52 4F 43 45 53 53 20 54 48 | WILL PROCESS TH| 000007A0: 45 20 43 4F 44 45 20 41 22 00 C9 0F 24 04 99 22 |E CODE A"...$.."| 000007B0: 53 45 43 54 49 4F 4E 20 41 54 20 41 20 54 49 4D |SECTION AT A TIM| 000007C0: 45 2E 11 22 3A 8D 34 30 30 00 11 10 2E 04 99 22 |E..":.400......"| 000007D0: 45 4E 54 45 52 20 54 48 45 20 42 4F 55 4E 44 41 |ENTER THE BOUNDA| 000007E0: 52 49 45 53 20 4F 46 20 45 4E 54 49 52 45 20 50 |RIES OF ENTIRE P| 000007F0: 52 4F 47 52 41 4D 2E 20 20 20 46 4F 4C 4C 4F 57 |ROGRAM. FOLLOW| 00000800: 20 45 58 41 4D 50 4C 45 20 46 4F 52 4D 41 54 2E | EXAMPLE FORMAT.| 00000810: 22 00 29 10 33 04 99 22 20 20 42 30 30 30 2D 42 |".).3.." B000-B| 00000820: 37 46 46 91 22 3A 85 41 24 00 43 10 35 04 42 24 |7FF.":.A$.C.5.B$| 00000830: B2 C9 28 41 24 2C 34 29 3A 41 24 B2 C8 28 41 24 |..(A$,4):A$..(A$| 00000840: 2C 34 29 00 69 10 38 04 8D 32 30 30 3A 42 4F B2 |,4).i.8..200:BO.| 00000850: C5 28 41 24 29 3A 41 24 B2 42 24 3A 8D 32 30 30 |.(A$):A$.B$:.200| 00000860: 3A 4C 4F B2 C5 28 41 24 29 00 95 10 42 04 99 22 |:LO..(A$)...B.."| 00000870: 11 59 4F 55 52 20 50 52 4F 47 52 41 4D 20 49 53 |.YOUR PROGRAM IS| 00000880: 20 41 54 20 22 3B 42 4F 3B 22 44 45 43 49 4D 41 | AT ";BO;"DECIMA| 00000890: 4C 20 54 4F 22 00 C4 10 4C 04 99 20 4C 4F 3B 22 |L TO"...L.. LO;"| 000008A0: 44 45 43 49 4D 41 4C 20 41 4E 44 20 49 53 20 22 |DECIMAL AND IS "| 000008B0: 3B 4C 4F AB 42 4F 3B 22 42 59 54 45 53 20 4C 4F |;LO.BO;"BYTES LO| 000008C0: 4E 47 2E 22 00 F6 10 56 04 99 22 11 45 4E 54 45 |NG."...V..".ENTE| 000008D0: 52 20 54 48 45 20 42 4F 55 4E 44 41 52 49 45 53 |R THE BOUNDARIES| 000008E0: 20 57 48 45 52 45 20 59 27 20 57 4F 55 4C 44 20 | WHERE Y' WOULD | 000008F0: 4C 49 4B 45 91 22 00 23 11 60 04 99 22 91 54 48 |LIKE.".#.`..".TH| 00000900: 45 20 50 52 4F 47 52 41 4D 20 54 4F 20 42 45 20 |E PROGRAM TO BE | 00000910: 43 4F 50 49 45 44 2E 20 20 54 59 50 45 20 3F 3F |COPIED. TYPE ??| 00000920: 3F 3F 22 00 51 11 6A 04 99 22 49 46 20 59 4F 55 |??".Q.j.."IF YOU| 00000930: 20 57 41 4E 54 20 54 48 45 20 43 4F 4D 50 55 54 | WANT THE COMPUT| 00000940: 45 52 20 54 4F 20 43 4F 4D 50 55 54 45 20 41 4E |ER TO COMPUTE AN| 00000950: 22 00 71 11 74 04 99 22 41 44 44 52 45 53 53 2E |".q.t.."ADDRESS.| 00000960: 22 3A 99 22 20 20 42 30 30 30 2D 42 37 46 46 91 |":." B000-B7FF.| 00000970: 22 00 8F 11 79 04 85 41 24 3A 42 24 B2 C9 28 41 |"...y..A$:B$..(A| 00000980: 24 2C 34 29 3A 41 24 B2 C8 28 41 24 2C 34 29 00 |$,4):A$..(A$,4).| 00000990: A5 11 7E 04 8B C8 28 41 24 2C 31 29 B2 22 3F 22 |..~...(A$,1)."?"| 000009A0: A7 31 31 37 30 00 B7 11 88 04 8D 32 30 30 3A 42 |.1170......200:B| 000009B0: 43 B2 C5 28 41 24 29 00 DC 11 92 04 8B C8 28 42 |C..(A$).......(B| 000009C0: 24 2C 31 29 B2 22 3F 22 A7 4C 43 B2 42 43 AA 28 |$,1)."?".LC.BC.(| 000009D0: 4C 4F AB 42 4F 29 3A 89 31 31 39 30 00 02 12 9C |LO.BO):.1190....| 000009E0: 04 41 24 B2 42 24 3A 8D 32 30 30 3A 4C 43 B2 C5 |.A$.B$:.200:LC..| 000009F0: 28 41 24 29 3A 42 43 B2 4C 43 AB 28 4C 4F AB 42 |(A$):BC.LC.(LO.B| 00000A00: 4F 29 00 23 12 A6 04 99 22 11 59 4F 55 52 20 4E |O).#....".YOUR N| 00000A10: 45 57 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |EW PROGRAM WILL | 00000A20: 42 45 22 00 3B 12 B0 04 99 42 43 22 2D 22 4C 43 |BE".;....BC"-"LC| 00000A30: 22 49 4E 20 44 45 43 49 4D 41 4C 00 55 12 BA 04 |"IN DECIMAL.U...| 00000A40: 41 24 B2 C4 28 42 43 29 3A 8D 31 30 30 3A 99 41 |A$..(BC):.100:.A| 00000A50: 24 22 2D 22 3B 00 74 12 C4 04 41 24 B2 C4 28 4C |$"-";.t...A$..(L| 00000A60: 43 29 3A 8D 31 30 30 3A 99 41 24 22 20 49 4E 20 |C):.100:.A$" IN | 00000A70: 48 45 58 22 00 8C 12 C9 04 49 31 B2 42 4F 3A 49 |HEX".....I1.BO:I| 00000A80: 32 B2 4C 4F 3A 44 B2 42 4F AB 42 43 00 BD 12 CE |2.LO:D.BO.BC....| 00000A90: 04 99 22 11 45 4E 54 45 52 20 54 48 45 20 12 53 |..".ENTER THE .S| 00000AA0: 45 43 54 49 4F 4E 92 20 4F 46 20 43 4F 44 45 20 |ECTION. OF CODE | 00000AB0: 54 4F 20 42 45 20 4D 4F 56 45 44 2E 22 00 CF 12 |TO BE MOVED."...| 00000AC0: D8 04 41 24 B2 C4 28 49 31 29 3A 8D 31 30 30 00 |..A$..(I1):.100.| 00000AD0: ED 12 E2 04 99 22 20 20 22 41 24 22 2D 22 3B 3A |....." "A$"-";:| 00000AE0: 41 24 B2 C4 28 49 32 29 3A 8D 31 30 30 00 FC 12 |A$..(I2):.100...| 00000AF0: EC 04 99 41 24 22 91 22 3A 85 42 24 00 19 13 F6 |...A$".":.B$....| 00000B00: 04 41 24 B2 C8 28 42 24 2C 34 29 3A 8D 32 30 30 |.A$..(B$,4):.200| 00000B10: 3A 49 31 B2 C5 28 41 24 29 00 36 13 00 05 41 24 |:I1..(A$).6...A$| 00000B20: B2 C9 28 42 24 2C 34 29 3A 8D 32 30 30 3A 49 32 |..(B$,4):.200:I2| 00000B30: B2 C5 28 41 24 29 00 6B 13 0A 05 99 22 11 49 53 |..(A$).k....".IS| 00000B40: 20 49 54 20 54 4F 20 42 45 20 12 54 92 52 41 4E | IT TO BE .T.RAN| 00000B50: 53 4C 41 54 45 44 20 4F 52 20 4D 4F 56 45 44 20 |SLATED OR MOVED | 00000B60: 12 56 92 45 52 42 41 54 49 4D 22 00 7F 13 14 05 |.V.ERBATIM".....| 00000B70: A1 41 24 3A 8B 41 24 B2 22 22 A7 31 33 30 30 00 |.A$:.A$."".1300.| 00000B80: 90 13 1E 05 8B 41 24 B2 22 54 22 A7 31 34 30 30 |.....A$."T".1400| 00000B90: 00 A2 13 28 05 8B 41 24 B3 B1 22 56 22 A7 31 32 |...(..A$.."V".12| 00000BA0: 39 30 00 B6 13 2D 05 8F 20 4D 4F 56 45 20 56 45 |90...-.. MOVE VE| 00000BB0: 52 42 41 54 49 4D 00 E5 13 32 05 81 49 31 B2 49 |RBATIM...2..I1.I| 00000BC0: 31 A4 49 32 3A 41 25 B2 C2 28 49 31 29 3A 42 B2 |1.I2:A%..(I1):B.| 00000BD0: 49 31 AB 44 3A 99 42 2C 41 25 22 91 22 3A 97 42 |I1.D:.B,A%".":.B| 00000BE0: 2C 41 25 3A 82 00 F6 13 3C 05 8B 49 31 B1 B2 4C |,A%:....<..I1..L| 00000BF0: 4F A7 31 36 30 30 00 0E 14 46 05 49 31 B2 49 32 |O.1600...F.I1.I2| 00000C00: AA 31 3A 49 32 B2 4C 4F 3A 89 31 32 33 30 00 31 |.1:I2.LO:.1230.1| 00000C10: 14 78 05 8F 20 54 52 41 4E 53 4C 41 54 45 20 41 |.x.. TRANSLATE A| 00000C20: 44 44 52 45 53 53 27 53 20 41 4E 44 20 4D 4F 56 |DDRESS'S AND MOV| 00000C30: 45 00 3D 14 7D 05 49 31 B2 49 31 AB 31 00 68 14 |E.=.}.I1.I1.1.h.| 00000C40: 82 05 49 31 B2 49 31 AA 31 3A 41 25 B2 C2 28 49 |..I1.I1.1:A%..(I| 00000C50: 31 29 3A 99 49 31 2C 41 25 22 91 22 3A 8B 49 31 |1):.I1,A%".":.I1| 00000C60: B1 49 32 A7 31 33 34 30 00 83 14 8C 05 8F 20 49 |.I2.1340...... I| 00000C70: 53 20 49 54 20 33 20 42 59 54 45 20 4F 50 43 4F |S IT 3 BYTE OPCO| 00000C80: 44 45 3F 00 B1 14 96 05 81 4A B2 30 A4 33 37 3A |DE?......J.0.37:| 00000C90: 8B 43 33 25 28 4A 29 B3 B1 41 25 A7 82 4A 3A 89 |.C3%(J)..A%..J:.| 00000CA0: 31 35 31 30 3A 8F 20 4E 4F 54 20 33 20 42 59 54 |1510:. NOT 3 BYT| 00000CB0: 45 00 C5 14 9B 05 8F 20 33 20 42 59 54 45 20 4F |E...... 3 BYTE O| 00000CC0: 50 43 4F 44 45 00 D2 14 A0 05 97 49 31 AB 44 2C |PCODE......I1.D,| 00000CD0: 41 25 00 EE 14 AA 05 41 44 44 B2 C2 28 49 31 AA |A%.....ADD..(I1.| 00000CE0: 32 29 AC 32 35 36 AA C2 28 49 31 AA 31 29 00 1C |2).256..(I1.1)..| 00000CF0: 15 B4 05 8B 28 41 44 44 B1 4C 4F 29 B0 28 41 44 |....(ADD.LO).(AD| 00000D00: 44 B3 42 4F 29 A7 49 31 B2 49 31 AA 31 3A 41 25 |D.BO).I1.I1.1:A%| 00000D10: B2 C2 28 49 31 29 3A 89 31 35 34 30 00 2B 15 BE |..(I1):.1540.+..| 00000D20: 05 4E 41 44 44 B2 41 44 44 AB 44 00 45 15 C8 05 |.NADD.ADD.D.E...| 00000D30: 97 28 49 31 AA 32 AB 44 29 2C B5 28 4E 41 44 44 |.(I1.2.D),.(NADD| 00000D40: AD 32 35 36 29 00 68 15 D2 05 97 28 49 31 AA 31 |.256).h....(I1.1| 00000D50: AB 44 29 2C 4E 41 44 44 AB B5 28 4E 41 44 44 AD |.D),NADD..(NADD.| 00000D60: 32 35 36 29 AC 32 35 36 00 7A 15 DC 05 49 31 B2 |256).256.z...I1.| 00000D70: 49 31 AA 32 3A 89 31 34 31 30 00 95 15 E6 05 8F |I1.2:.1410......| 00000D80: 20 49 53 20 49 54 20 41 20 32 20 42 59 54 45 20 | IS IT A 2 BYTE | 00000D90: 43 4F 44 45 3F 00 D3 15 F0 05 81 4A B2 30 A4 37 |CODE?......J.0.7| 00000DA0: 33 3A 8B 43 32 25 28 4A 29 B3 B1 41 25 A7 82 4A |3:.C2%(J)..A%..J| 00000DB0: 3A 97 49 31 AB 44 2C 41 25 3A 89 31 34 31 30 3A |:.I1.D,A%:.1410:| 00000DC0: 8F 20 53 49 4E 47 4C 20 42 59 54 45 20 4F 50 43 |. SINGL BYTE OPC| 00000DD0: 4F 44 45 00 E7 15 FA 05 8F 20 32 20 42 59 54 45 |ODE...... 2 BYTE| 00000DE0: 20 4F 50 43 4F 44 45 00 FC 15 04 06 97 49 31 AB | OPCODE......I1.| 00000DF0: 44 2C 41 25 3A 49 31 B2 49 31 AA 31 00 12 16 0E |D,A%:I1.I1.1....| 00000E00: 06 41 25 B2 C2 28 49 31 29 3A 97 49 31 AB 44 2C |.A%..(I1):.I1.D,| 00000E10: 41 25 00 1C 16 18 06 89 31 34 31 30 00 44 16 40 |A%......1410.D.@| 00000E20: 06 99 22 93 59 4F 55 52 20 50 52 4F 47 52 41 4D |..".YOUR PROGRAM| 00000E30: 20 48 41 53 20 4E 4F 57 20 42 45 45 4E 20 4D 4F | HAS NOW BEEN MO| 00000E40: 56 45 44 22 00 6E 16 4A 06 99 22 11 11 4F 4C 44 |VED".n.J.."..OLD| 00000E50: 20 4C 4F 43 41 54 49 4F 4E 20 20 20 20 20 20 20 | LOCATION | 00000E60: 20 4E 45 57 20 4C 4F 43 41 54 49 4F 4E 22 00 8F | NEW LOCATION"..| 00000E70: 16 54 06 99 22 24 22 3B 3A 41 24 B2 C4 28 42 4F |.T.."$";:A$..(BO| 00000E80: 29 3A 8D 31 30 30 3A 99 41 24 22 2D 24 22 3B 00 |):.100:.A$"-$";.| 00000E90: AB 16 5E 06 41 24 B2 C4 28 4C 4F 29 3A 8D 31 30 |..^.A$..(LO):.10| 00000EA0: 30 3A 99 41 24 3B A3 32 30 29 3B 00 C9 16 68 06 |0:.A$;.20);...h.| 00000EB0: 41 24 B2 C4 28 42 43 29 3A 8D 31 30 30 3A 99 22 |A$..(BC):.100:."| 00000EC0: 24 22 41 24 22 2D 24 22 3B 00 DF 16 72 06 41 24 |$"A$"-$";...r.A$| 00000ED0: B2 C4 28 4C 43 29 3A 8D 31 30 30 3A 99 41 24 00 |..(LC):.100:.A$.| 00000EE0: F9 16 7C 06 99 42 4F 22 2D 22 4C 4F 3B A3 32 30 |..|..BO"-"LO;.20| 00000EF0: 29 3B 42 43 22 2D 22 4C 43 00 28 17 86 06 99 22 |);BC"-"LC.(...."| 00000F00: 11 11 11 41 4C 54 48 4F 55 47 48 20 54 48 49 53 |...ALTHOUGH THIS| 00000F10: 20 50 52 4F 47 52 41 4D 20 48 41 53 20 54 52 41 | PROGRAM HAS TRA| 00000F20: 4E 53 4C 41 54 45 44 22 00 55 17 90 06 99 3A 99 |NSLATED".U....:.| 00000F30: 22 54 48 45 20 4A 4D 50 27 53 2C 4A 53 52 27 53 |"THE JMP'S,JSR'S| 00000F40: 20 41 4E 44 20 4F 54 48 45 52 20 41 44 44 52 45 | AND OTHER ADDRE| 00000F50: 53 53 45 53 22 00 87 17 9A 06 99 3A 99 22 54 48 |SSES"......:."TH| 00000F60: 45 52 45 20 4D 41 59 20 42 45 20 4F 54 48 45 52 |ERE MAY BE OTHER| 00000F70: 20 50 52 4F 42 4C 45 4D 53 20 57 49 54 48 20 54 | PROBLEMS WITH T| 00000F80: 48 45 20 4E 45 57 22 00 B3 17 A4 06 99 22 4C 4F |HE NEW"......"LO| 00000F90: 43 41 54 49 4F 4E 20 57 48 49 43 48 20 41 52 45 |CATION WHICH ARE| 00000FA0: 20 48 49 44 44 45 4E 2E 20 20 49 4E 20 4F 54 48 | HIDDEN. IN OTH| 00000FB0: 45 52 22 00 E2 17 AE 06 99 3A 99 22 57 4F 52 44 |ER"......:."WORD| 00000FC0: 53 2C 53 41 56 45 20 54 48 45 20 4E 45 57 20 43 |S,SAVE THE NEW C| 00000FD0: 4F 44 45 20 42 45 46 4F 52 45 20 54 52 59 49 4E |ODE BEFORE TRYIN| 00000FE0: 47 22 00 FB 17 B8 06 99 3A 99 22 49 54 2E 2D 2D |G"......:."IT.--| 00000FF0: 47 4F 4F 44 20 4C 55 43 4B 21 22 00 01 18 C2 06 |GOOD LUCK!".....| 00001000: 80 00 00 00 36 DF 5A C2 FF |....6.Z.. |
.......".":.53280,0:.53281,0.7...DI$."01 23456789ABCDEF".M.(.. C3%(47),C2%(73).R. 2..*********VARIBLES**************.X.4.. ...6.. BO --BEGIN OF ORIGINAL CODE...8. . LO --LAST OF ORIGINAL CODE...:.. BC --BEGIN OF COPY CODE...<.. LC --LAST OF COPY CODE...>.. D --DISPLACEMENT OF C ODE.8.@.. I1 --BEGIN OF SECTION.S.B.. I 2 --END OF SECTION.S.D.. C3%(47) --3 B YTE OPCODES...F.. C2%(73) --2 BYTE OPCO DES...H.. ADD --FORMER ADDRESS.U.J. . NADD --COMPUTED ADDRESS...L.....N. .*******************************...C.. 9 00.R.D.. SUB TO TRANSLATE DECIMAL TO HEX :ENTER AS A$--RETURN A$ AS DECIMAL.D.X.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).F.......H.. SUB TO TRANSLATE HEX TO DECIMAL:ENTER AS A$ --RETURN A$ AS DECIMAL...M.A.0.0.R..I.C( A$).1..1:.J.1.16.A....J(A$,I,1).J(DI$,J, 1).A.A.(J.1).16.(C(A$).I).J....J,I.X...A $.D(A):....,.. 3 BYTE OPCODES.L.6.. 76,3 2,173,174,172,109,45,14,44,205,236,204,2 06,77,238,78...@.. 13,46,110,237,141,142 ,140,125,61,30,221,222,93,254,189.M.J.. 188,94,29,62,126,253,157,121,57,217,89,1 85,190,25,249,153,108.B.T.. 2 BYTE OPCOD ES...^.. 101,37,6,36,197,228,196,198,69, 230,165,166,164,70,5...H.. 38,102,229,13 3,134,132,105,41,201,224,192,73,169,162, 160...R.. 9,233,97,33,193,65,161,1,225,1 29,113,49,209,81,177.O.|.. 17,241,145,11 7,53,22,213,214,85,246,181,180,86,21,54. ..... 118,245,149,148,144,176,240,48,208 ,16,80,112,182,150...... SUB TO READ OPC ODES......I.0.47:.C3%(I):..P....I.0.73:. C2%(I):..V.......... ********MAIN PROGRA M*********.....A$."CODEMOVER"......"..." .30)A$.)....I.1.9.[...."..."H(A$,I).30); :.J.0.I:." ";:.:.I(A$,9.I);.J....J.1.350 :..P..........".BY.EVERETT LUMPKIN"..... ."........THIS PROGRAM WILL MOVE A SECTI ON OF "......"MACHINE CODE TO A NEW LOCA TION TRANSLAT-"......".ING ALL THE JMP'S AND OTHER ADDRESSES.".L...."BECAUSE SOM E PARTS OF THE PROGRAM WILL".|...."NEED TO BE MOVED VERBATIM (TABLES ECT.),".... ..".THIS PROGRAM WILL PROCESS THE CODE A ".I.$.."SECTION AT A TIME..":.400......" ENTER THE BOUNDARIES OF ENTIRE PROGRAM. FOLLOW EXAMPLE FORMAT.".).3.." B000-B 7FF.":.A$.C.5.B$.I(A$,4):A$.H(A$,4).I.8. .200:BO.E(A$):A$.B$:.200:LO.E(A$)...B.." .YOUR PROGRAM IS AT ";BO;"DECIMAL TO".D. L.. LO;"DECIMAL AND IS ";LO.BO;"BYTES LO NG."...V..".ENTER THE BOUNDARIES WHERE Y ' WOULD LIKE.".#.`..".THE PROGRAM TO BE COPIED. TYPE ????".Q.J.."IF YOU WANT TH E COMPUTER TO COMPUTE AN".Q.T.."ADDRESS. ":." B000-B7FF."...Y..A$:B$.I(A$,4):A$. H(A$,4)...~..H(A$,1)."?".1170......200:B C.E(A$)......H(B$,1)."?".LC.BC.(LO.BO):. 1190.....A$.B$:.200:LC.E(A$):BC.LC.(LO.B O).#....".YOUR NEW PROGRAM WILL BE".;... .BC"-"LC"IN DECIMAL.U...A$.D(BC):.100:.A $"-";.T.D.A$.D(LC):.100:.A$" IN HEX"...I .I1.BO:I2.LO:D.BO.BC...N..".ENTER THE .S ECTION. OF CODE TO BE MOVED.".O.X.A$.D(I 1):.100......" "A$"-";:A$.D(I2):.100... ...A$".":.B$.....A$.H(B$,4):.200:I1.E(A$ ).6...A$.I(B$,4):.200:I2.E(A$).K....".IS IT TO BE .T.RANSLATED OR MOVED .V.ERBAT IM".....A$:.A$."".1300......A$."T".1400 ...(..A$.."V".1290...-.. MOVE VERBATIM.. .2..I1.I1.I2:A%.B(I1):B.I1.D:.B,A%".":.B ,A%:....<..I1..LO.1600...F.I1.I2.1:I2.LO :.1230.1.X.. TRANSLATE ADDRESS'S AND MOV E.=.}.I1.I1.1.H...I1.I1.1:A%.B(I1):.I1,A %".":.I1.I2.1340...... IS IT 3 BYTE OPCO DE?......J.0.37:.C3%(J)..A%..J:.1510:. N OT 3 BYTE.E.... 3 BYTE OPCODE.R. ..I1.D, A%.....ADD.B(I1.2).256.B(I1.1)......(ADD .LO).(ADD.BO).I1.I1.1:A%.B(I1):.1540.+.. .NADD.ADD.D.E.H..(I1.2.D),.(NADD.256).H. R..(I1.1.D),NADD..(NADD.256).256.Z...I1. I1.2:.1410...... IS IT A 2 BYTE CODE?.S. ...J.0.73:.C2%(J)..A%..J:.I1.D,A%:.1410: . SINGL BYTE OPCODE...... 2 BYTE OPCODE. .....I1.D,A%:I1.I1.1.....A%.B(I1):.I1.D, A%......1410.D.@..".YOUR PROGRAM HAS NOW BEEN MOVED".N.J.."..OLD LOCATION NEW LOCATION"...T.."$";:A$.D(BO):.100:. A$"-$";...^.A$.D(LO):.100:.A$;.20);.I.H. A$.D(BC):.100:."$"A$"-$";...R.A$.D(LC):. 100:.A$...|..BO"-"LO;.20);BC"-"LC.(...." ...ALTHOUGH THIS PROGRAM HAS TRANSLATED" .U....:."THE JMP'S,JSR'S AND OTHER ADDRE SSES"......:."THERE MAY BE OTHER PROBLEM S WITH THE NEW"......"LOCATION WHICH ARE HIDDEN. IN OTHER"......:."WORDS,SAVE T HE NEW CODE BEFORE TRYING"......:."IT.-- GOOD LUCK!"...B.....6.ZB.
> CLICK IMAGE PREVIEW FOR FULL MODAL