PALVERT64 1.0

00000000: 01 08 30 08 14 00 8F 20  2A 2A 2A 2A 2A 2A 2A 2A  |..0.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000030: 00 5F 08 1E 00 8F 20 2A  20 43 4F 4E 56 45 52 54  |._.... * CONVERT|
00000040: 20 43 42 4D 20 41 53 53  45 4D 42 4C 45 52 20 53  | CBM ASSEMBLER S|
00000050: 4F 55 52 43 45 20 46 49  4C 45 20 54 4F 20 2A 00  |OURCE FILE TO *.|
00000060: 8E 08 28 00 8F 20 2A 20  20 46 49 4C 45 20 54 4F  |..(.. *  FILE TO|
00000070: 20 50 41 4C 20 41 53 53  45 4D 42 4C 45 52 20 53  | PAL ASSEMBLER S|
00000080: 4F 55 52 43 45 20 46 49  4C 45 20 20 20 2A 00 BD  |OURCE FILE   *..|
00000090: 08 32 00 8F 20 2A 20 20  20 20 20 20 20 20 20 4B  |.2.. *         K|
000000A0: 2E 4A 2E 48 2E 20 48 49  4C 44 4F 4E 20 30 33 2F  |.J.H. HILDON 03/|
000000B0: 38 33 20 20 20 20 20 20  20 20 20 20 2A 00 EC 08  |83          *...|
000000C0: 3C 00 8F 20 2A 20 20 20  3D 3D 3D 3D 3D 3D 3D 20  |<.. *   ======= |
000000D0: 20 50 41 4C 56 45 52 54  36 34 20 31 2E 30 20 3D  | PALVERT64 1.0 =|
000000E0: 3D 3D 3D 3D 3D 3D 3D 3D  20 20 20 2A 00 1B 09 46  |========   *...F|
000000F0: 00 8F 20 2A 20 20 20 20  20 20 20 57 4F 52 4B 53  |.. *       WORKS|
00000100: 20 4F 4E 20 43 36 34 20  57 49 54 48 20 44 49 53  | ON C64 WITH DIS|
00000110: 4B 20 20 20 20 20 20 20  20 20 2A 00 4A 09 50 00  |K         *.J.P.|
00000120: 8F 20 2A 20 41 42 53 4F  4C 55 54 45 4C 59 20 4E  |. * ABSOLUTELY N|
00000130: 4F 20 43 4F 50 59 52 49  47 48 54 20 52 45 53 54  |O COPYRIGHT REST|
00000140: 52 49 43 54 49 4F 4E 53  20 2A 00 79 09 5A 00 8F  |RICTIONS *.y.Z..|
00000150: 20 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  | ***************|
00000160: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000170: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 BD 09 64 00 49 24  |*********...d.I$|
00000180: B2 22 41 42 43 44 45 46  47 48 49 4A 4B 4C 4D 4E  |."ABCDEFGHIJKLMN|
00000190: 4F 50 51 52 53 54 55 56  57 58 59 5A 31 32 33 34  |OPQRSTUVWXYZ1234|
000001A0: 22 20 3A 20 8F 20 49 24  20 4D 55 53 54 20 42 45  |" : . I$ MUST BE|
000001B0: 20 31 53 54 20 56 41 52  20 55 53 45 44 00 00 0A  | 1ST VAR USED...|
000001C0: 6E 00 49 24 B2 49 24 AA  49 24 AA 49 24 20 20 20  |n.I$.I$.I$.I$   |
000001D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001E0: 20 20 20 20 20 20 3A 20  8F 20 45 53 54 41 42 4C  |      : . ESTABL|
000001F0: 49 53 48 20 49 4E 50 55  54 20 42 55 46 46 45 52  |ISH INPUT BUFFER|
00000200: 00 41 0A 78 00 4D 43 B2  38 39 36 20 20 20 20 20  |.A.x.MC.896     |
00000210: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000220: 20 20 20 20 20 20 20 20  20 3A 20 8F 20 4D 41 43  |         : . MAC|
00000230: 48 20 43 4F 44 45 20 53  54 41 52 54 20 41 44 44  |H CODE START ADD|
00000240: 52 00 7A 0A 82 00 8F 20  2A 2A 2A 20 53 54 52 49  |R.z.... *** STRI|
00000250: 4E 47 20 49 4E 50 55 54  20 52 4F 55 54 49 4E 45  |NG INPUT ROUTINE|
00000260: 20 2D 2D 20 42 59 20 4A  49 4D 20 42 55 54 54 45  | -- BY JIM BUTTE|
00000270: 52 46 49 45 4C 44 20 2A  2A 2A 00 C5 0A 8C 00 83  |RFIELD ***......|
00000280: 20 31 36 30 2C 20 20 20  32 2C 20 31 37 37 2C 20  | 160,   2, 177, |
00000290: 20 34 35 2C 20 31 35 33  2C 20 31 33 37 2C 20 20  | 45, 153, 137,  |
000002A0: 20 30 2C 20 32 30 30 2C  20 31 39 32 2C 20 20 20  | 0, 200, 192,   |
000002B0: 36 2C 20 32 30 38 2C 20  32 34 36 2C 20 31 36 32  |6, 208, 246, 162|
000002C0: 2C 20 20 20 31 00 10 0B  96 00 83 20 20 33 32 2C  |,   1......  32,|
000002D0: 20 31 39 38 2C 20 32 35  35 2C 20 20 33 32 2C 20  | 198, 255,  32, |
000002E0: 32 32 38 2C 20 32 35 35  2C 20 32 30 31 2C 20 20  |228, 255, 201,  |
000002F0: 31 33 2C 20 32 34 30 2C  20 20 31 35 2C 20 31 36  |13, 240,  15, 16|
00000300: 34 2C 20 31 34 32 2C 20  31 34 35 2C 20 31 34 30  |4, 142, 145, 140|
00000310: 00 5B 0B A0 00 83 20 32  30 30 2C 20 31 33 32 2C  |.[.... 200, 132,|
00000320: 20 31 34 32 2C 20 31 39  36 2C 20 31 33 39 2C 20  | 142, 196, 139, |
00000330: 32 34 30 2C 20 20 20 34  2C 20 31 36 35 2C 20 31  |240,   4, 165, 1|
00000340: 34 34 2C 20 32 34 30 2C  20 32 33 34 2C 20 20 37  |44, 240, 234,  7|
00000350: 36 2C 20 32 30 34 2C 20  32 35 35 00 8D 0B AA 00  |6, 204, 255.....|
00000360: 8C 20 3A 20 81 20 4A B2  4D 43 20 A4 20 4D 43 AA  |. : . J.MC . MC.|
00000370: 34 31 20 3A 20 87 20 58  20 3A 20 97 20 4A 2C 20  |41 : . X : . J, |
00000380: 58 20 3A 20 54 B2 54 AA  58 20 3A 20 82 00 B1 0B  |X : T.T.X : ....|
00000390: B4 00 8B 20 54 B3 B1 36  31 32 30 20 A7 20 99 22  |... T..6120 . ."|
000003A0: 54 59 50 4F 20 49 4E 20  44 41 54 41 22 20 3A 20  |TYPO IN DATA" : |
000003B0: 90 00 E3 0B BE 00 5A 24  B2 C7 28 30 29 20 3A 20  |......Z$..(0) : |
000003C0: 43 44 B2 38 20 3A 20 50  44 B2 38 20 3A 20 4F 44  |CD.8 : PD.8 : OD|
000003D0: B2 38 20 3A 20 43 4E B2  30 20 3A 20 99 20 C7 28  |.8 : CN.0 : . .(|
000003E0: 31 34 29 00 1E 0C C8 00  53 41 B2 32 30 34 39 20  |14).....SA.2049 |
000003F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000400: 20 20 20 20 20 20 20 20  20 20 20 20 3A 20 8F 20  |            : . |
00000410: 53 54 41 52 54 20 41 44  44 52 20 43 36 34 00 5A  |START ADDR C64.Z|
00000420: 0C D2 00 53 4C B2 31 30  30 20 20 20 20 20 20 20  |...SL.100       |
00000430: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000440: 20 20 20 20 20 20 20 3A  20 8F 20 53 54 41 52 54  |       : . START|
00000450: 49 4E 47 20 4C 49 4E 45  20 23 00 90 0C DC 00 49  |ING LINE #.....I|
00000460: 43 B2 31 30 20 20 20 20  20 20 20 20 20 20 20 20  |C.10            |
00000470: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000480: 20 20 20 3A 20 8F 20 49  4E 43 52 45 4D 45 4E 54  |   : . INCREMENT|
00000490: 00 9A 0C E6 00 8D 20 32  37 30 00 CC 0C F0 00 99  |...... 270......|
000004A0: 20 3A 20 85 20 22 41 50  50 45 4E 44 20 54 4F 20  | : . "APPEND TO |
000004B0: 45 58 49 53 54 49 4E 47  20 50 41 4C 20 46 49 4C  |EXISTING PAL FIL|
000004C0: 45 20 28 59 2F 4E 29 22  3B 59 4E 24 00 E0 0C FA  |E (Y/N)";YN$....|
000004D0: 00 8B 20 59 4E 24 B2 22  59 22 20 A7 20 39 30 30  |.. YN$."Y" . 900|
000004E0: 00 FA 0C 04 01 8D 20 33  36 30 20 3A 20 8D 20 34  |...... 360 : . 4|
000004F0: 35 30 20 3A 20 89 20 35  32 30 00 1E 0D 0E 01 99  |50 : . 520......|
00000500: 20 3A 20 85 20 22 43 42  4D 20 53 4F 55 52 43 45  | : . "CBM SOURCE|
00000510: 20 46 49 4C 45 4E 41 4D  45 22 3B 43 4E 24 00 2E  | FILENAME";CN$..|
00000520: 0D 18 01 99 20 A3 32 30  29 43 4E 22 91 22 00 4D  |.... .20)CN".".M|
00000530: 0D 22 01 85 20 22 20 20  20 20 20 20 20 53 4F 55  |.".. "       SOU|
00000540: 52 43 45 20 44 52 49 56  45 22 3B 43 4E 00 5D 0D  |RCE DRIVE";CN.].|
00000550: 2C 01 99 20 A3 32 30 29  43 44 22 91 22 00 7C 0D  |,.. .20)CD".".|.|
00000560: 36 01 85 20 22 20 20 20  20 20 53 4F 55 52 43 45  |6.. "     SOURCE|
00000570: 20 44 45 56 49 43 45 23  22 3B 43 44 00 97 0D 40  | DEVICE#";CD...@|
00000580: 01 43 4E 24 B2 CA 28 C4  28 43 4E 29 2C 32 29 AA  |.CN$..(.(CN),2).|
00000590: 22 3A 22 AA 43 4E 24 00  C1 0D 4A 01 9F 20 31 2C  |":".CN$...J.. 1,|
000005A0: 20 43 44 2C 20 38 2C 20  43 4E 24 20 3A 20 45 44  | CD, 8, CN$ : ED|
000005B0: B2 43 44 20 3A 20 8D 20  37 30 30 20 3A 20 A0 20  |.CD : . 700 : . |
000005C0: 31 00 DD 0D 54 01 8B 20  45 20 A7 20 99 20 45 45  |1...T.. E . . EE|
000005D0: 24 20 3A 20 99 20 3A 20  89 20 32 37 30 00 E3 0D  |$ : . : . 270...|
000005E0: 5E 01 8E 00 07 0E 68 01  99 20 3A 20 85 20 22 20  |^.....h.. : . " |
000005F0: 20 20 4E 45 57 20 50 41  4C 20 46 49 4C 45 4E 41  |  NEW PAL FILENA|
00000600: 4D 45 22 3B 50 4E 24 00  17 0E 72 01 99 20 A3 32  |ME";PN$...r.. .2|
00000610: 30 29 43 4E 22 91 22 00  36 0E 7C 01 85 20 22 20  |0)CN".".6.|.. " |
00000620: 20 44 45 53 54 49 4E 41  54 49 4F 4E 20 44 52 49  | DESTINATION DRI|
00000630: 56 45 22 3B 50 4E 00 46  0E 86 01 99 20 A3 32 30  |VE";PN.F.... .20|
00000640: 29 50 44 22 91 22 00 65  0E 90 01 85 20 22 44 45  |)PD".".e.... "DE|
00000650: 53 54 49 4E 41 54 49 4F  4E 20 44 45 56 49 43 45  |STINATION DEVICE|
00000660: 23 22 3B 50 44 00 80 0E  9A 01 50 4E 24 B2 CA 28  |#";PD.....PN$..(|
00000670: C4 28 50 4E 29 2C 32 29  AA 22 3A 22 AA 50 4E 24  |.(PN),2).":".PN$|
00000680: 00 AA 0E A4 01 9F 20 32  2C 20 50 44 2C 20 36 2C  |...... 2, PD, 6,|
00000690: 20 50 4E 24 20 3A 20 45  44 B2 50 44 20 3A 20 8D  | PN$ : ED.PD : .|
000006A0: 20 37 30 30 20 3A 20 A0  20 32 00 D4 0E AE 01 8B  | 700 : . 2......|
000006B0: 20 45 B3 B1 36 32 20 A7  20 99 20 22 46 49 4C 45  | E..62 . . "FILE|
000006C0: 20 45 58 49 53 54 53 22  20 3A 20 99 20 3A 20 89  | EXISTS" : . : .|
000006D0: 20 33 36 30 00 DE 0E B8  01 99 20 3A 20 8E 00 F9  | 360...... : ...|
000006E0: 0E C2 01 41 B2 53 4C 20  3A 20 99 20 3A 20 99 20  |...A.SL : . : . |
000006F0: A3 32 30 29 53 4C 22 91  22 00 18 0F CC 01 85 20  |.20)SL"."...... |
00000700: 22 20 20 20 20 53 54 41  52 54 49 4E 47 20 4C 49  |"    STARTING LI|
00000710: 4E 45 20 23 22 3B 53 4C  00 48 0F D6 01 8B 20 53  |NE #";SL.H.... S|
00000720: 4C B3 41 20 A7 20 99 22  4D 55 53 54 20 42 45 20  |L.A . ."MUST BE |
00000730: 3E 20 4F 52 20 3D 20 21  22 20 3A 20 53 4C B2 41  |> OR = !" : SL.A|
00000740: 20 3A 20 89 20 34 35 30  00 58 0F E0 01 99 20 A3  | : . 450.X.... .|
00000750: 32 30 29 49 43 22 91 22  00 77 0F EA 01 85 20 22  |20)IC".".w.... "|
00000760: 20 20 20 20 20 4C 49 4E  45 20 49 4E 43 52 45 4D  |     LINE INCREM|
00000770: 45 4E 54 22 3B 49 43 00  81 0F F4 01 99 20 3A 20  |ENT";IC...... : |
00000780: 8E 00 A9 0F FE 01 8F 20  2A 2A 20 4F 50 45 4E 20  |....... ** OPEN |
00000790: 49 4E 50 55 54 20 41 4E  44 20 4F 55 54 50 55 54  |INPUT AND OUTPUT|
000007A0: 20 46 49 4C 45 53 20 2A  2A 00 BD 0F 08 02 9F 20  | FILES **...... |
000007B0: 31 2C 20 43 44 2C 20 38  2C 20 43 4E 24 00 D8 0F  |1, CD, 8, CN$...|
000007C0: 12 02 9F 20 32 2C 20 50  44 2C 20 36 2C 20 50 4E  |... 2, PD, 6, PN|
000007D0: 24 AA 22 2C 50 2C 57 22  00 10 10 1C 02 41 B2 53  |$.",P,W".....A.S|
000007E0: 41 20 3A 20 8D 20 36 36  30 20 20 20 20 20 3A 20  |A : . 660     : |
000007F0: 8F 20 4F 55 54 50 55 54  20 46 49 4C 45 20 53 54  |. OUTPUT FILE ST|
00000800: 41 52 54 20 41 44 44 52  20 28 24 30 38 30 31 29  |ART ADDR ($0801)|
00000810: 00 4B 10 26 02 9E 20 4D  43 20 3A 20 53 58 B2 53  |.K.&.. MC : SX.S|
00000820: 54 20 20 20 20 20 20 20  3A 20 8F 20 49 4E 50 55  |T       : . INPU|
00000830: 54 20 4C 49 4E 45 20 46  52 4F 4D 20 43 42 4D 20  |T LINE FROM CBM |
00000840: 53 4F 55 52 43 45 20 46  49 4C 45 00 5F 10 30 02  |SOURCE FILE._.0.|
00000850: 41 24 B2 C8 28 49 24 2C  C2 28 31 34 32 29 29 00  |A$..(I$,.(142)).|
00000860: A6 10 3A 02 53 41 B2 53  41 AA C3 28 41 24 29 AA  |..:.SA.SA..(A$).|
00000870: 35 20 20 20 20 20 20 3A  20 8F 20 53 54 41 52 54  |5      : . START|
00000880: 20 41 44 44 52 20 2B 20  4C 49 4E 45 20 4C 45 4E  | ADDR + LINE LEN|
00000890: 20 2B 20 35 20 46 4F 52  20 4C 49 4E 4B 2C 4C 49  | + 5 FOR LINK,LI|
000008A0: 4E 45 2C 4D 4B 52 00 E1  10 44 02 41 B2 53 41 20  |NE,MKR...D.A.SA |
000008B0: 3A 20 8D 20 36 36 30 20  20 20 20 20 3A 20 8F 20  |: . 660     : . |
000008C0: 4F 55 54 50 55 54 20 4C  49 4E 45 20 4C 49 4E 4B  |OUTPUT LINE LINK|
000008D0: 20 2D 20 48 45 58 20 4C  4F 2C 20 48 45 58 20 48  | - HEX LO, HEX H|
000008E0: 49 00 1C 11 4E 02 41 B2  53 4C 20 3A 20 8D 20 36  |I...N.A.SL : . 6|
000008F0: 36 30 20 20 20 20 20 3A  20 8F 20 4F 55 54 50 55  |60     : . OUTPU|
00000900: 54 20 4C 49 4E 45 20 23  20 20 20 20 2D 20 48 45  |T LINE #    - HE|
00000910: 58 20 4C 4F 2C 20 48 45  58 20 48 49 00 53 11 58  |X LO, HEX HI.S.X|
00000920: 02 99 53 4C 3B 41 24 20  20 20 20 3A 20 8F 20 3D  |..SL;A$    : . =|
00000930: 3D 3D 3D 3D 20 52 45 4D  4F 56 45 20 46 4F 52 20  |==== REMOVE FOR |
00000940: 42 45 54 54 45 52 20 53  50 45 45 44 20 3D 3D 3D  |BETTER SPEED ===|
00000950: 3D 3D 3D 00 86 11 62 02  53 4C B2 53 4C AA 49 43  |===...b.SL.SL.IC|
00000960: 20 20 20 20 20 20 20 20  20 20 20 20 20 3A 20 8F  |             : .|
00000970: 20 49 4E 43 52 45 4D 45  4E 54 20 4C 49 4E 45 20  | INCREMENT LINE |
00000980: 4E 55 4D 42 45 52 00 B5  11 6C 02 98 32 2C 20 41  |NUMBER...l..2, A|
00000990: 24 5A 24 3B 20 20 20 20  20 20 20 3A 20 8F 20 4F  |$Z$;       : . O|
000009A0: 55 54 50 55 54 20 4C 49  4E 45 2C 20 43 48 52 24  |UTPUT LINE, CHR$|
000009B0: 20 5A 45 52 4F 00 C6 11  76 02 8B 20 53 58 B2 30  | ZERO...v.. SX.0|
000009C0: 20 A7 20 35 35 30 00 DC  11 80 02 A0 20 32 20 3A  | . 550...... 2 :|
000009D0: 20 A0 20 31 20 3A 20 89  20 37 36 30 00 F9 11 8A  | . 1 : . 760....|
000009E0: 02 AC AC 20 4F 55 54 50  55 54 20 32 20 48 45 58  |... OUTPUT 2 HEX|
000009F0: 20 42 59 54 45 53 20 AC  AC 00 0D 12 94 02 98 32  | BYTES ........2|
00000A00: 2C 20 C7 28 41 20 AF 20  32 35 35 29 3B 00 22 12  |, .(A . 255);.".|
00000A10: 9E 02 98 32 2C 20 C7 28  B5 28 41 AD 32 35 36 29  |...2, .(.(A.256)|
00000A20: 29 3B 00 28 12 A8 02 8E  00 39 12 B2 02 AC AC 20  |);.(.....9..... |
00000A30: 45 52 52 B0 20 85 20 AC  AC 00 4A 12 BC 02 9F 20  |ERR. . ...J.... |
00000A40: 31 35 2C 20 45 44 2C 20  31 35 00 61 12 C6 02 84  |15, ED, 15.a....|
00000A50: 31 35 2C 20 45 2C 20 45  24 2C 20 45 54 2C 20 45  |15, E, E$, ET, E|
00000A60: 53 00 8A 12 D0 02 45 45  24 B2 C4 28 45 29 AA 22  |S.....EE$..(E)."|
00000A70: 2C 22 AA 45 24 AA 22 2C  22 AA 20 C4 28 45 54 29  |,".E$.",". .(ET)|
00000A80: AA 22 2C 22 AA C4 28 45  53 29 00 93 12 DA 02 A0  |.","..(ES)......|
00000A90: 20 31 35 00 99 12 E4 02  8E 00 C1 12 EE 02 8F 20  | 15............ |
00000AA0: 2A 2A 20 41 44 44 20 4D  4F 52 45 20 43 42 4D 20  |** ADD MORE CBM |
00000AB0: 53 4F 55 52 43 45 20 4D  4F 44 55 4C 45 53 20 2A  |SOURCE MODULES *|
00000AC0: 2A 00 C7 12 F8 02 99 00  EA 12 02 03 99 20 22 28  |*............ "(|
00000AD0: C4 CF 20 CE CF D4 20 45  58 49 54 20 57 49 54 48  |.. ... EXIT WITH|
00000AE0: 20 3C D2 C5 D4 D5 D2 CE  3E 29 00 11 13 07 03 85  | <......>)......|
00000AF0: 22 C1 50 50 45 4E 44 20  41 4E 4F 54 48 45 52 20  |".PPEND ANOTHER |
00000B00: 46 49 4C 45 20 1D 1D 1D  4E 9D 9D 9D 22 3B 59 4E  |FILE ...N...";YN|
00000B10: 24 00 25 13 0C 03 8B 20  59 4E 24 B2 22 59 22 20  |$.%.... YN$."Y" |
00000B20: A7 20 38 34 30 00 3E 13  16 03 9F 20 32 2C 20 50  |. 840.>.... 2, P|
00000B30: 44 2C 20 36 2C 20 50 4E  24 AA 22 2C 41 22 00 7B  |D, 6, PN$.",A".{|
00000B40: 13 20 03 98 32 2C 20 5A  24 5A 24 3B 20 20 20 20  |. ..2, Z$Z$;    |
00000B50: 20 20 20 20 20 20 20 20  20 3A 20 8F 20 41 44 44  |         : . ADD|
00000B60: 20 45 4E 44 20 46 49 4C  45 20 4D 41 52 4B 45 52  | END FILE MARKER|
00000B70: 20 28 24 30 30 2C 20 24  30 30 29 00 8A 13 2A 03  | ($00, $00)...*.|
00000B80: A0 20 32 20 3A 20 A0 20  31 35 00 BD 13 34 03 99  |. 2 : . 15...4..|
00000B90: 20 22 11 11 11 4C 4F 41  44 22 3B C7 28 33 34 29  | "...LOAD";.(34)|
00000BA0: 3B 50 4E 24 3B C7 28 33  34 29 3B 22 2C 22 CA 28  |;PN$;.(34);",".(|
00000BB0: C4 28 50 44 29 2C 32 29  22 91 91 91 22 00 C3 13  |.(PD),2)"..."...|
00000BC0: 3E 03 80 00 F8 13 48 03  8D 20 32 37 30 20 20 20  |>.....H.. 270   |
00000BD0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3A  |               :|
00000BE0: 20 8F 20 46 4F 52 20 4E  45 57 20 43 42 4D 20 46  | . FOR NEW CBM F|
00000BF0: 49 4C 45 20 4E 41 4D 45  00 39 14 52 03 8D 20 34  |ILE NAME.9.R.. 4|
00000C00: 35 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |50              |
00000C10: 20 20 20 20 3A 20 8F 20  41 4C 54 45 52 20 4E 45  |    : . ALTER NE|
00000C20: 58 54 20 4C 49 4E 45 20  4E 55 4D 42 45 52 2C 20  |XT LINE NUMBER, |
00000C30: 49 4E 43 52 45 4D 45 4E  54 00 4D 14 5C 03 9F 20  |INCREMENT.M.\.. |
00000C40: 31 2C 20 43 44 2C 20 38  2C 20 43 4E 24 00 66 14  |1, CD, 8, CN$.f.|
00000C50: 66 03 9F 20 32 2C 20 50  44 2C 20 36 2C 20 50 4E  |f.. 2, PD, 6, PN|
00000C60: 24 AA 22 2C 41 22 00 92  14 70 03 89 20 35 35 30  |$.",A"...p.. 550|
00000C70: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000C80: 20 20 20 3A 20 8F 20 47  4F 20 41 44 44 20 46 49  |   : . GO ADD FI|
00000C90: 4C 45 00 C5 14 7A 03 8F  20 2A 2A 20 41 50 50 45  |LE...z.. ** APPE|
00000CA0: 4E 44 20 43 42 4D 20 53  4F 55 52 43 45 20 54 4F  |ND CBM SOURCE TO|
00000CB0: 20 45 58 49 53 54 49 4E  47 20 50 41 4C 20 46 49  | EXISTING PAL FI|
00000CC0: 4C 45 20 2A 2A 00 E9 14  84 03 99 20 3A 20 85 20  |LE **...... : . |
00000CD0: 22 20 20 20 4F 4C 44 20  50 41 4C 20 46 49 4C 45  |"   OLD PAL FILE|
00000CE0: 4E 41 4D 45 22 3B 4F 50  24 00 F9 14 8E 03 99 20  |NAME";OP$...... |
00000CF0: A3 32 30 29 43 4E 22 91  22 00 18 15 98 03 85 20  |.20)CN"."...... |
00000D00: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 44  |"              D|
00000D10: 52 49 56 45 22 3B 4F 50  00 28 15 A2 03 99 20 A3  |RIVE";OP.(.... .|
00000D20: 32 30 29 4F 44 22 91 22  00 47 15 AC 03 85 20 22  |20)OD".".G.... "|
00000D30: 20 20 20 20 20 20 20 20  20 20 20 20 44 45 56 49  |            DEVI|
00000D40: 43 45 23 22 3B 4F 44 00  71 15 B6 03 9F 20 31 2C  |CE#";OD.q.... 1,|
00000D50: 20 4F 44 2C 20 38 2C 20  4F 50 24 20 3A 20 45 44  | OD, 8, OP$ : ED|
00000D60: B2 4F 44 20 3A 20 8D 20  37 30 30 20 3A 20 A0 20  |.OD : . 700 : . |
00000D70: 31 00 8D 15 C0 03 8B 20  45 20 A7 20 99 20 45 45  |1...... E . . EE|
00000D80: 24 20 3A 20 99 20 3A 20  89 20 39 30 30 00 A5 15  |$ : . : . 900...|
00000D90: CA 03 99 20 3A 20 99 20  A3 32 31 29 22 40 22 4F  |... : . .21)"@"O|
00000DA0: 50 24 22 91 22 00 C5 15  D4 03 85 20 22 20 20 20  |P$"."...... "   |
00000DB0: 4E 45 57 20 50 41 4C 20  46 49 4C 45 4E 41 4D 45  |NEW PAL FILENAME|
00000DC0: 22 3B 50 4E 24 00 E0 15  DE 03 8B 20 C8 28 50 4E  |";PN$...... .(PN|
00000DD0: 24 2C 31 29 B3 B1 22 40  22 20 A7 20 31 30 31 30  |$,1).."@" . 1010|
00000DE0: 00 1D 16 E8 03 50 4E B2  4F 50 20 3A 20 50 44 B2  |.....PN.OP : PD.|
00000DF0: 4F 44 20 3A 20 50 4E 24  B2 22 40 22 AA CA 28 C4  |OD : PN$."@"..(.|
00000E00: 28 50 4E 29 2C 32 29 AA  22 3A 22 AA CA 28 50 4E  |(PN),2).":"..(PN|
00000E10: 24 2C 32 29 20 3A 20 89  20 31 30 38 30 00 2D 16  |$,2) : . 1080.-.|
00000E20: F2 03 99 20 A3 32 30 29  43 4E 22 91 22 00 4C 16  |... .20)CN".".L.|
00000E30: FC 03 85 20 22 20 20 44  45 53 54 49 4E 41 54 49  |... "  DESTINATI|
00000E40: 4F 4E 20 44 52 49 56 45  22 3B 50 4E 00 5C 16 06  |ON DRIVE";PN.\..|
00000E50: 04 99 20 A3 32 30 29 50  44 22 91 22 00 7B 16 10  |.. .20)PD".".{..|
00000E60: 04 85 20 22 44 45 53 54  49 4E 41 54 49 4F 4E 20  |.. "DESTINATION |
00000E70: 44 45 56 49 43 45 23 22  3B 50 44 00 96 16 1A 04  |DEVICE#";PD.....|
00000E80: 50 4E 24 B2 CA 28 C4 28  50 4E 29 2C 32 29 AA 22  |PN$..(.(PN),2)."|
00000E90: 3A 22 AA 50 4E 24 00 C0  16 24 04 9F 20 32 2C 20  |:".PN$...$.. 2, |
00000EA0: 50 44 2C 20 36 2C 20 50  4E 24 20 3A 20 45 44 B2  |PD, 6, PN$ : ED.|
00000EB0: 50 44 20 3A 20 8D 20 37  30 30 20 3A 20 A0 20 32  |PD : . 700 : . 2|
00000EC0: 00 EC 16 2E 04 8B 20 45  B3 B1 36 32 20 20 A7 20  |...... E..62  . |
00000ED0: 99 20 22 20 46 49 4C 45  20 45 58 49 53 54 53 22  |. " FILE EXISTS"|
00000EE0: 20 3A 20 99 20 3A 20 89  20 39 37 30 00 23 17 38  | : . : . 970.#.8|
00000EF0: 04 99 20 3A 20 99 22 43  52 45 41 54 49 4E 47 20  |.. : ."CREATING |
00000F00: 4E 45 57 20 46 49 4C 45  20 46 52 4F 4D 20 22 3B  |NEW FILE FROM ";|
00000F10: 4F 50 24 3B 22 20 20 53  54 41 4E 44 20 42 59 2E  |OP$;"  STAND BY.|
00000F20: 2E 2E 22 00 3E 17 42 04  9F 20 31 2C 20 4F 44 2C  |..".>.B.. 1, OD,|
00000F30: 20 38 2C 20 4F 50 24 AA  22 2C 50 2C 52 22 00 59  | 8, OP$.",P,R".Y|
00000F40: 17 4C 04 9F 20 32 2C 20  50 44 2C 20 36 2C 20 50  |.L.. 2, PD, 6, P|
00000F50: 4E 24 AA 22 2C 50 2C 57  22 00 90 17 56 04 A1 23  |N$.",P,W"...V..#|
00000F60: 31 2C 41 24 20 3A 20 98  32 2C 20 C7 28 C6 28 41  |1,A$ : .2, .(.(A|
00000F70: 24 AA 5A 24 29 29 3B 20  20 20 3A 20 8F 20 46 49  |$.Z$));   : . FI|
00000F80: 4C 45 20 53 54 41 52 54  20 41 44 44 52 45 53 53  |LE START ADDRESS|
00000F90: 00 AE 17 60 04 A1 23 31  2C 41 24 20 3A 20 98 32  |...`..#1,A$ : .2|
00000FA0: 2C 20 C7 28 C6 28 41 24  AA 5A 24 29 29 3B 00 E6  |, .(.(A$.Z$));..|
00000FB0: 17 6A 04 A1 23 31 2C 20  42 24 2C 20 43 24 20 3A  |.j..#1, B$, C$ :|
00000FC0: 20 8B 20 53 54 B2 36 34  20 20 A7 20 31 32 33 30  | . ST.64  . 1230|
00000FD0: 20 20 20 20 20 3A 20 8F  20 47 45 54 20 4C 49 4E  |     : . GET LIN|
00000FE0: 45 20 4C 49 4E 4B 00 07  18 74 04 41 24 B2 C7 28  |E LINK...t.A$..(|
00000FF0: C6 28 42 24 AA 5A 24 29  29 20 AA 20 C7 28 C6 28  |.(B$.Z$)) . .(.(|
00001000: 43 24 AA 5A 24 29 29 00  45 18 7E 04 A1 23 31 2C  |C$.Z$)).E.~..#1,|
00001010: 20 42 24 2C 20 43 24 20  20 20 20 20 20 20 20 20  | B$, C$         |
00001020: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001030: 20 20 3A 20 8F 20 47 45  54 20 4C 49 4E 45 20 4E  |  : . GET LINE N|
00001040: 55 4D 42 45 52 00 6B 18  88 04 41 24 B2 41 24 20  |UMBER.k...A$.A$ |
00001050: AA 20 C7 28 C6 28 42 24  AA 5A 24 29 29 20 AA 20  |. .(.(B$.Z$)) . |
00001060: C7 28 C6 28 43 24 AA 5A  24 29 29 00 AC 18 92 04  |.(.(C$.Z$)).....|
00001070: 97 20 4D 43 AA 32 31 2C  20 30 20 20 20 20 20 20  |. MC.21, 0      |
00001080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001090: 20 20 20 20 20 3A 20 8F  20 49 4E 50 55 54 20 44  |     : . INPUT D|
000010A0: 45 4C 49 4D 20 4E 4F 57  20 24 30 30 00 B5 18 9C  |ELIM NOW $00....|
000010B0: 04 9E 20 4D 43 00 F2 18  A6 04 41 24 B2 41 24 AA  |.. MC.....A$.A$.|
000010C0: C8 28 49 24 2C C2 28 31  34 32 29 29 AA 5A 24 20  |.(I$,.(142)).Z$ |
000010D0: 20 20 20 20 20 20 20 20  20 20 20 3A 20 8F 20 2B  |           : . +|
000010E0: 5A 24 20 54 4F 20 41 44  44 20 4C 4F 53 54 20 4D  |Z$ TO ADD LOST M|
000010F0: 4B 52 00 FD 18 B0 04 98  32 2C 41 24 3B 00 3D 19  |KR......2,A$;.=.|
00001100: BA 04 53 41 B2 53 41 AA  C3 28 41 24 29 20 20 20  |..SA.SA..(A$)   |
00001110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001120: 20 20 20 20 20 20 20 20  3A 20 8F 20 55 50 44 41  |        : . UPDA|
00001130: 54 45 20 53 54 41 52 54  20 41 44 44 52 00 48 19  |TE START ADDR.H.|
00001140: C4 04 89 20 31 31 33 30  00 50 19 CE 04 A0 20 31  |... 1130.P.... 1|
00001150: 00 94 19 D8 04 97 20 4D  43 AA 32 31 2C 20 31 33  |...... MC.21, 13|
00001160: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001170: 20 20 20 20 20 20 20 20  20 20 3A 20 8F 20 49 4E  |          : . IN|
00001180: 50 55 54 20 44 45 4C 49  4D 20 42 41 43 4B 20 54  |PUT DELIM BACK T|
00001190: 4F 20 43 52 00 BE 19 E2  04 53 4C B2 C6 28 CA 28  |O CR.....SL..(.(|
000011A0: 41 24 2C 33 29 AA 5A 24  29 AA C6 28 CA 28 41 24  |A$,3).Z$)..(.(A$|
000011B0: 2C 34 29 AA 5A 24 29 AC  32 35 36 AA 49 43 00 FE  |,4).Z$).256.IC..|
000011C0: 19 EC 04 8D 20 34 35 30  20 20 20 20 20 20 20 20  |.... 450        |
000011D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011E0: 20 20 20 20 20 20 20 3A  20 8F 20 41 4C 54 45 52  |       : . ALTER|
000011F0: 20 4E 45 58 54 20 4C 49  4E 45 20 4E 55 4D 00 19  | NEXT LINE NUM..|
00001200: 1A F6 04 9F 20 31 2C 20  43 44 2C 20 38 2C 20 43  |.... 1, CD, 8, C|
00001210: 4E 24 AA 22 2C 53 2C 52  22 00 23 1A 00 05 89 20  |N$.",S,R".#.... |
00001220: 35 35 30 00 00 00                                 |550...          |

..0.... ********************************
********._.... * CONVERT CBM ASSEMBLER S
OURCE FILE TO *...(.. *  FILE TO PAL ASS
EMBLER SOURCE FILE   *...2.. *         K
.J.H. HILDON 03/83          *...<.. *   
=======  PALVERT64 1.0 =========   *...F
.. *       WORKS ON C64 WITH DISK       
  *.J.P.. * ABSOLUTELY NO COPYRIGHT REST
RICTIONS *.Y.Z.. ***********************
*****************...D.I$."ABCDEFGHIJKLMN
OPQRSTUVWXYZ1234" : . I$ MUST BE 1ST VAR
 USED...N.I$.I$.I$.I$                   
      : . ESTABLISH INPUT BUFFER.A.X.MC.
896                              : . MAC
H CODE START ADDR.Z.... *** STRING INPUT
 ROUTINE -- BY JIM BUTTERFIELD ***.E....
 160,   2, 177,  45, 153, 137,   0, 200,
 192,   6, 208, 246, 162,   1......  32,
 198, 255,  32, 228, 255, 201,  13, 240,
  15, 164, 142, 145, 140.[. .. 200, 132,
 142, 196, 139, 240,   4, 165, 144, 240,
 234,  76, 204, 255...... : . J.MC . MC.
41 : . X : . J, X : T.T.X : ....... T..6
120 . ."TYPO IN DATA" : ......Z$.G(0) : 
CD.8 : PD.8 : OD.8 : CN.0 : . G(14)...H.
SA.2049                             : . 
START ADDR C64.Z.R.SL.100               
               : . STARTING LINE #.....I
C.10                               : . I
NCREMENT...... 270.L.... : . "APPEND TO 
EXISTING PAL FILE (Y/N)";YN$...... YN$."
Y" . 900...... 360 : . 450 : . 520......
 : . "CBM SOURCE FILENAME";CN$...... .20
)CN".".M.".. "       SOURCE DRIVE";CN.].
,.. .20)CD".".|.6.. "     SOURCE DEVICE#
";CD...@.CN$.J(D(CN),2).":".CN$.A.J.. 1,
 CD, 8, CN$ : ED.CD : . 700 :   1...T.. 
E . . EE$ : . : . 270...^.....H.. : . " 
  NEW PAL FILENAME";PN$...R.. .20)CN".".
6.|.. "  DESTINATION DRIVE";PN.F.... .20
)PD".".E.... "DESTINATION DEVICE#";PD...
..PN$.J(D(PN),2).":".PN$...... 2, PD, 6,
 PN$ : ED.PD : . 700 :   2.T.... E..62 .
 . "FILE EXISTS" : . : . 360...... : ...
.B.A.SL : . : . .20)SL"."...L.. "    STA
RTING LINE #";SL.H.V.. SL.A . ."MUST BE 
> OR = !" : SL.A : . 450.X.... .20)IC"."
.W.... "     LINE INCREMENT";IC...... : 
....... ** OPEN INPUT AND OUTPUT FILES *
*...... 1, CD, 8, CN$.X.... 2, PD, 6, PN
$.",P,W".....A.SA : . 660     : . OUTPUT
 FILE START ADDR ($0801).K.&.. MC : SX.S
T       : . INPUT LINE FROM CBM SOURCE F
ILE._.0.A$.H(I$,B(142))...:.SA.SA.C(A$).
5      : . START ADDR + LINE LEN + 5 FOR
 LINK,LINE,MKR...D.A.SA : . 660     : . 
OUTPUT LINE LINK - HEX LO, HEX HI...N.A.
SL : . 660     : . OUTPUT LINE #    - HE
X LO, HEX HI.S.X..SL;A$    : . ===== REM
OVE FOR BETTER SPEED ======...B.SL.SL.IC
             : . INCREMENT LINE NUMBER..
.L..2, A$Z$;       : . OUTPUT LINE, CHR$
 ZERO.F.V.. SX.0 . 550.....  2 :   1 : .
 760....... OUTPUT 2 HEX BYTES ........2
, G(A . 255);."....2, G(.(A.256));.(....
.9..... ERR. . ...J.... 15, ED, 15.A.F..
15, E, E$, ET, ES...P.EE$.D(E).",".E$.",
". D(ET).",".D(ES)...Z.  15.......A.... 
** ADD MORE CBM SOURCE MODULES **.G.....
..... "(DO NOT EXIT WITH <RETURN>)......
"APPEND ANOTHER FILE ...N...";YN$.%.... 
YN$."Y" . 840.>.... 2, PD, 6, PN$.",A".{
. ..2, Z$Z$;             : . ADD END FIL
E MARKER ($00, $00)...*.  2 :   15...4..
 "...LOAD";G(34);PN$;G(34);","J(D(PD),2)
"...".C.>.....H.. 270                  :
 . FOR NEW CBM FILE NAME.9.R.. 450      
            : . ALTER NEXT LINE NUMBER, 
INCREMENT.M.\.. 1, CD, 8, CN$.F.F.. 2, P
D, 6, PN$.",A"...P.. 550                
   : . GO ADD FILE.E.Z.. ** APPEND CBM S
OURCE TO EXISTING PAL FILE **...... : . 
"   OLD PAL FILENAME";OP$...... .20)CN".
"...... "              DRIVE";OP.(.... .
20)OD".".G.... "            DEVICE#";OD.
Q.... 1, OD, 8, OP$ : ED.OD : . 700 :   
1...... E . . EE$ : . : . 900...J.. : . 
.21)"@"OP$".".E.T.. "   NEW PAL FILENAME
";PN$...... H(PN$,1).."@" . 1010.....PN.
OP : PD.OD : PN$."@".J(D(PN),2).":".J(PN
$,2) : . 1080.-.... .20)CN".".L.... "  D
ESTINATION DRIVE";PN.\.... .20)PD".".{..
.. "DESTINATION DEVICE#";PD.....PN$.J(D(
PN),2).":".PN$...$.. 2, PD, 6, PN$ : ED.
PD : . 700 :   2...... E..62  . . " FILE
 EXISTS" : . : . 970.#.8.. : ."CREATING 
NEW FILE FROM ";OP$;"  STAND BY...".>.B.
. 1, OD, 8, OP$.",P,R".Y.L.. 2, PD, 6, P
N$.",P,W"...V..#1,A$ : .2, G(F(A$.Z$)); 
  : . FILE START ADDRESS...`..#1,A$ : .2
, G(F(A$.Z$));...J..#1, B$, C$ : . ST.64
  . 1230     : . GET LINE LINK...T.A$.G(
F(B$.Z$)) . G(F(C$.Z$)).E.~..#1, B$, C$ 
                          : . GET LINE N
UMBER.K...A$.A$ . G(F(B$.Z$)) . G(F(C$.Z
$))...... MC.21, 0                      
     : . INPUT DELIM NOW $00...... MC...
..A$.A$.H(I$,B(142)).Z$            : . +
Z$ TO ADD LOST MKR......2,A$;.=...SA.SA.
C(A$)                           : . UPDA
TE START ADDR.H.D.. 1130.P.N.  1...X.. M
C.21, 13                          : . IN
PUT DELIM BACK TO CR.....SL.F(J(A$,3).Z$
).F(J(A$,4).Z$).256.IC...... 450        
                       : . ALTER NEXT LI
NE NUM...... 1, CD, 8, CN$.",S,R".#.... 
550...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL