PALVERT 1.0
FILE INFORMATION
FILENAME(S): PALVERT 1.0
FILE TYPE(S): PRG
FILE SIZE: 4.6K
FIRST SEEN: 2025-11-30 21:12:48
APPEARS ON: 7 disk(s)
FILE HASH
bc9ecba28ad31da1cffc497a5b512dbc000861ac97be22e3bf2ae2e12debd8df
FOUND ON DISKS (7 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 21 | 7 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 22 | 1 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 21 | 7 | DOWNLOAD FILE |
| TRANSACTOR DISK | PALVERT 1.0 | PRG | DuncanTwain | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 0A 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 04 14 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 04 1E 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: 04 28 00 8F 20 2A 20 20 20 20 20 20 20 20 20 4B |.(.. * 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 04 |83 *...| 000000C0: 32 00 8F 20 2A 20 20 20 3D 3D 3D 3D 3D 3D 3D 3D |2.. * ========| 000000D0: 20 20 50 41 4C 56 45 52 54 20 20 31 2E 30 20 3D | PALVERT 1.0 =| 000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 20 20 20 2A 00 1B 05 3C |======== *...<| 000000F0: 00 8F 20 2A 20 20 20 20 20 20 57 4F 52 4B 53 20 |.. * WORKS | 00000100: 4F 4E 20 50 45 54 2F 43 42 4D 20 57 49 54 48 20 |ON PET/CBM WITH | 00000110: 44 49 53 4B 20 20 20 20 20 20 2A 00 4A 05 46 00 |DISK *.J.F.| 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 05 50 00 8F |RICTIONS *.y.P..| 00000150: 20 2A 20 20 57 4F 4E 27 54 20 57 4F 52 4B 20 4F | * WON'T WORK O| 00000160: 4E 20 42 41 53 49 43 20 31 2E 30 20 4F 52 20 44 |N BASIC 1.0 OR D| 00000170: 4F 53 20 31 2E 30 20 20 2A 00 A8 05 5A 00 8F 20 |OS 1.0 *...Z.. | 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 EC 05 64 00 49 24 B2 |********...d.I$.| 000001B0: 22 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F |"ABCDEFGHIJKLMNO| 000001C0: 50 51 52 53 54 55 56 57 58 59 5A 31 32 33 34 22 |PQRSTUVWXYZ1234"| 000001D0: 20 3A 20 8F 20 49 24 20 4D 55 53 54 20 42 45 20 | : . I$ MUST BE | 000001E0: 31 53 54 20 56 41 52 20 55 53 45 44 00 2F 06 6E |1ST VAR USED./.n| 000001F0: 00 49 24 B2 49 24 AA 49 24 AA 49 24 20 20 20 20 |.I$.I$.I$.I$ | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 20 3A 20 8F 20 45 53 54 41 42 4C 49 | : . ESTABLI| 00000220: 53 48 20 49 4E 50 55 54 20 42 55 46 46 45 52 00 |SH INPUT BUFFER.| 00000230: 70 06 78 00 4D 43 B2 38 39 36 20 20 20 20 20 20 |p.x.MC.896 | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 20 20 20 20 20 20 3A 20 8F 20 4D 41 43 48 | : . MACH| 00000260: 20 43 4F 44 45 20 53 54 41 52 54 20 41 44 44 52 | CODE START ADDR| 00000270: 00 A9 06 82 00 8F 20 2A 2A 2A 20 53 54 52 49 4E |...... *** STRIN| 00000280: 47 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 |G INPUT ROUTINE | 00000290: 2D 2D 20 42 59 20 4A 49 4D 20 42 55 54 54 45 52 |-- BY JIM BUTTER| 000002A0: 46 49 45 4C 44 20 2A 2A 2A 00 EF 06 8C 00 83 20 |FIELD ***...... | 000002B0: 31 36 30 2C 20 20 20 32 2C 20 31 37 37 2C 20 20 |160, 2, 177, | 000002C0: 34 32 2C 20 31 35 33 2C 20 31 38 34 2C 20 20 20 |42, 153, 184, | 000002D0: 30 2C 20 32 30 30 2C 20 31 39 32 2C 20 20 20 36 |0, 200, 192, 6| 000002E0: 2C 20 32 30 38 2C 20 32 34 36 2C 20 31 36 32 00 |, 208, 246, 162.| 000002F0: 35 07 96 00 83 20 20 20 31 2C 20 20 33 32 2C 20 |5.... 1, 32, | 00000300: 31 39 38 2C 20 32 35 35 2C 20 20 33 32 2C 20 32 |198, 255, 32, 2| 00000310: 32 38 2C 20 32 35 35 2C 20 32 30 31 2C 20 20 31 |28, 255, 201, 1| 00000320: 33 2C 20 32 34 30 2C 20 20 31 31 2C 20 31 36 34 |3, 240, 11, 164| 00000330: 2C 20 31 38 39 00 76 07 A0 00 83 20 31 34 35 2C |, 189.v.... 145,| 00000340: 20 31 38 37 2C 20 32 30 30 2C 20 31 33 32 2C 20 | 187, 200, 132, | 00000350: 31 38 39 2C 20 31 39 36 2C 20 31 38 36 2C 20 32 |189, 196, 186, 2| 00000360: 30 38 2C 20 32 33 38 2C 20 20 37 36 2C 20 32 30 |08, 238, 76, 20| 00000370: 34 2C 20 32 35 35 00 A8 07 AA 00 8C 20 3A 20 81 |4, 255...... : .| 00000380: 20 4A B2 4D 43 20 A4 20 4D 43 AA 33 37 20 3A 20 | J.MC . MC.37 : | 00000390: 87 20 58 20 3A 20 97 20 4A 2C 20 58 20 3A 20 54 |. X : . J, X : T| 000003A0: B2 54 AA 58 20 3A 20 82 00 CC 07 B4 00 8B 20 54 |.T.X : ....... T| 000003B0: B3 B1 35 37 36 37 20 A7 20 99 22 54 59 50 4F 20 |..5767 . ."TYPO | 000003C0: 49 4E 20 44 41 54 41 22 20 3A 20 90 00 F4 07 BE |IN DATA" : .....| 000003D0: 00 5A 24 B2 C7 28 30 29 20 3A 20 43 44 B2 38 20 |.Z$..(0) : CD.8 | 000003E0: 3A 20 50 44 B2 38 20 3A 20 4F 44 B2 38 20 3A 20 |: PD.8 : OD.8 : | 000003F0: 43 4E B2 30 00 33 08 C8 00 53 41 B2 31 30 32 35 |CN.0.3...SA.1025| 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F | : .| 00000420: 20 53 54 41 52 54 20 41 44 44 52 20 50 45 54 2F | START ADDR PET/| 00000430: 43 42 4D 00 6F 08 D2 00 53 4C B2 31 30 30 20 20 |CBM.o...SL.100 | 00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000450: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 | : . | 00000460: 53 54 41 52 54 49 4E 47 20 4C 49 4E 45 20 23 00 |STARTING LINE #.| 00000470: A5 08 DC 00 49 43 B2 31 30 20 20 20 20 20 20 20 |....IC.10 | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000490: 20 20 20 20 20 20 20 20 3A 20 8F 20 49 4E 43 52 | : . INCR| 000004A0: 45 4D 45 4E 54 00 AF 08 E6 00 8D 20 32 37 30 00 |EMENT...... 270.| 000004B0: E1 08 F0 00 99 20 3A 20 85 20 22 41 50 50 45 4E |..... : . "APPEN| 000004C0: 44 20 54 4F 20 45 58 49 53 54 49 4E 47 20 50 41 |D TO EXISTING PA| 000004D0: 4C 20 46 49 4C 45 20 28 59 2F 4E 29 22 3B 59 4E |L FILE (Y/N)";YN| 000004E0: 24 00 F5 08 FA 00 8B 20 59 4E 24 B2 22 59 22 20 |$...... YN$."Y" | 000004F0: A7 20 39 30 30 00 0F 09 04 01 8D 20 33 36 30 20 |. 900...... 360 | 00000500: 3A 20 8D 20 34 35 30 20 3A 20 89 20 35 32 30 00 |: . 450 : . 520.| 00000510: 33 09 0E 01 99 20 3A 20 85 20 22 43 42 4D 20 53 |3.... : . "CBM S| 00000520: 4F 55 52 43 45 20 46 49 4C 45 4E 41 4D 45 22 3B |OURCE FILENAME";| 00000530: 43 4E 24 00 43 09 18 01 99 20 A3 32 30 29 43 4E |CN$.C.... .20)CN| 00000540: 22 91 22 00 62 09 22 01 85 20 22 20 20 20 20 20 |".".b.".. " | 00000550: 20 20 53 4F 55 52 43 45 20 44 52 49 56 45 22 3B | SOURCE DRIVE";| 00000560: 43 4E 00 72 09 2C 01 99 20 A3 32 30 29 43 44 22 |CN.r.,.. .20)CD"| 00000570: 91 22 00 91 09 36 01 85 20 22 20 20 20 20 20 53 |."...6.. " S| 00000580: 4F 55 52 43 45 20 44 45 56 49 43 45 23 22 3B 43 |OURCE DEVICE#";C| 00000590: 44 00 AC 09 40 01 43 4E 24 B2 CA 28 C4 28 43 4E |D...@.CN$..(.(CN| 000005A0: 29 2C 32 29 AA 22 3A 22 AA 43 4E 24 00 D6 09 4A |),2).":".CN$...J| 000005B0: 01 9F 20 31 2C 20 43 44 2C 20 38 2C 20 43 4E 24 |.. 1, CD, 8, CN$| 000005C0: 20 3A 20 45 44 B2 43 44 20 3A 20 8D 20 37 30 30 | : ED.CD : . 700| 000005D0: 20 3A 20 A0 20 31 00 F2 09 54 01 8B 20 45 20 A7 | : . 1...T.. E .| 000005E0: 20 99 20 45 45 24 20 3A 20 99 20 3A 20 89 20 32 | . EE$ : . : . 2| 000005F0: 37 30 00 F8 09 5E 01 8E 00 1C 0A 68 01 99 20 3A |70...^.....h.. :| 00000600: 20 85 20 22 20 20 20 4E 45 57 20 50 41 4C 20 46 | . " NEW PAL F| 00000610: 49 4C 45 4E 41 4D 45 22 3B 50 4E 24 00 2C 0A 72 |ILENAME";PN$.,.r| 00000620: 01 99 20 A3 32 30 29 43 4E 22 91 22 00 4B 0A 7C |.. .20)CN".".K.|| 00000630: 01 85 20 22 20 20 44 45 53 54 49 4E 41 54 49 4F |.. " DESTINATIO| 00000640: 4E 20 44 52 49 56 45 22 3B 50 4E 00 5B 0A 86 01 |N DRIVE";PN.[...| 00000650: 99 20 A3 32 30 29 50 44 22 91 22 00 7A 0A 90 01 |. .20)PD".".z...| 00000660: 85 20 22 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 |. "DESTINATION D| 00000670: 45 56 49 43 45 23 22 3B 50 44 00 95 0A 9A 01 50 |EVICE#";PD.....P| 00000680: 4E 24 B2 CA 28 C4 28 50 4E 29 2C 32 29 AA 22 3A |N$..(.(PN),2).":| 00000690: 22 AA 50 4E 24 00 BF 0A A4 01 9F 20 32 2C 20 50 |".PN$...... 2, P| 000006A0: 44 2C 20 36 2C 20 50 4E 24 20 3A 20 45 44 B2 50 |D, 6, PN$ : ED.P| 000006B0: 44 20 3A 20 8D 20 37 30 30 20 3A 20 A0 20 32 00 |D : . 700 : . 2.| 000006C0: E9 0A AE 01 8B 20 45 B3 B1 36 32 20 A7 20 99 20 |..... E..62 . . | 000006D0: 22 46 49 4C 45 20 45 58 49 53 54 53 22 20 3A 20 |"FILE EXISTS" : | 000006E0: 99 20 3A 20 89 20 33 36 30 00 F3 0A B8 01 99 20 |. : . 360...... | 000006F0: 3A 20 8E 00 0E 0B C2 01 41 B2 53 4C 20 3A 20 99 |: ......A.SL : .| 00000700: 20 3A 20 99 20 A3 32 30 29 53 4C 22 91 22 00 2D | : . .20)SL".".-| 00000710: 0B CC 01 85 20 22 20 20 20 20 53 54 41 52 54 49 |.... " STARTI| 00000720: 4E 47 20 4C 49 4E 45 20 23 22 3B 53 4C 00 5D 0B |NG LINE #";SL.].| 00000730: D6 01 8B 20 53 4C B3 41 20 A7 20 99 22 4D 55 53 |... SL.A . ."MUS| 00000740: 54 20 42 45 20 3E 20 4F 52 20 3D 20 21 22 20 3A |T BE > OR = !" :| 00000750: 20 53 4C B2 41 20 3A 20 89 20 34 35 30 00 6D 0B | SL.A : . 450.m.| 00000760: E0 01 99 20 A3 32 30 29 49 43 22 91 22 00 8C 0B |... .20)IC"."...| 00000770: EA 01 85 20 22 20 20 20 20 20 4C 49 4E 45 20 49 |... " LINE I| 00000780: 4E 43 52 45 4D 45 4E 54 22 3B 49 43 00 96 0B F4 |NCREMENT";IC....| 00000790: 01 99 20 3A 20 8E 00 BE 0B FE 01 8F 20 2A 2A 20 |.. : ....... ** | 000007A0: 4F 50 45 4E 20 49 4E 50 55 54 20 41 4E 44 20 4F |OPEN INPUT AND O| 000007B0: 55 54 50 55 54 20 46 49 4C 45 53 20 2A 2A 00 D2 |UTPUT FILES **..| 000007C0: 0B 08 02 9F 20 31 2C 20 43 44 2C 20 38 2C 20 43 |.... 1, CD, 8, C| 000007D0: 4E 24 00 ED 0B 12 02 9F 20 32 2C 20 50 44 2C 20 |N$...... 2, PD, | 000007E0: 36 2C 20 50 4E 24 AA 22 2C 50 2C 57 22 00 25 0C |6, PN$.",P,W".%.| 000007F0: 1C 02 41 B2 53 41 20 3A 20 8D 20 36 36 30 20 20 |..A.SA : . 660 | 00000800: 20 20 20 3A 20 8F 20 4F 55 54 50 55 54 20 46 49 | : . OUTPUT FI| 00000810: 4C 45 20 53 54 41 52 54 20 41 44 44 52 20 28 24 |LE START ADDR ($| 00000820: 30 34 30 31 29 00 60 0C 26 02 9E 20 4D 43 20 3A |0401).`.&.. MC :| 00000830: 20 53 58 B2 53 54 20 20 20 20 20 20 20 3A 20 8F | SX.ST : .| 00000840: 20 49 4E 50 55 54 20 4C 49 4E 45 20 46 52 4F 4D | INPUT LINE FROM| 00000850: 20 43 42 4D 20 53 4F 55 52 43 45 20 46 49 4C 45 | CBM SOURCE FILE| 00000860: 00 74 0C 30 02 41 24 B2 C8 28 49 24 2C C2 28 31 |.t.0.A$..(I$,.(1| 00000870: 38 39 29 29 00 BB 0C 3A 02 53 41 B2 53 41 AA C3 |89))...:.SA.SA..| 00000880: 28 41 24 29 AA 35 20 20 20 20 20 20 3A 20 8F 20 |(A$).5 : . | 00000890: 53 54 41 52 54 20 41 44 44 52 20 2B 20 4C 49 4E |START ADDR + LIN| 000008A0: 45 20 4C 45 4E 20 2B 20 35 20 46 4F 52 20 4C 49 |E LEN + 5 FOR LI| 000008B0: 4E 4B 2C 4C 49 4E 45 2C 4D 4B 52 00 F6 0C 44 02 |NK,LINE,MKR...D.| 000008C0: 41 B2 53 41 20 3A 20 8D 20 36 36 30 20 20 20 20 |A.SA : . 660 | 000008D0: 20 3A 20 8F 20 4F 55 54 50 55 54 20 4C 49 4E 45 | : . OUTPUT LINE| 000008E0: 20 4C 49 4E 4B 20 2D 20 48 45 58 20 4C 4F 2C 20 | LINK - HEX LO, | 000008F0: 48 45 58 20 48 49 00 31 0D 4E 02 41 B2 53 4C 20 |HEX HI.1.N.A.SL | 00000900: 3A 20 8D 20 36 36 30 20 20 20 20 20 3A 20 8F 20 |: . 660 : . | 00000910: 4F 55 54 50 55 54 20 4C 49 4E 45 20 23 20 20 20 |OUTPUT LINE # | 00000920: 20 2D 20 48 45 58 20 4C 4F 2C 20 48 45 58 20 48 | - HEX LO, HEX H| 00000930: 49 00 6F 0D 58 02 99 53 4C 3B 41 24 20 20 20 20 |I.o.X..SL;A$ | 00000940: 20 20 20 20 20 20 20 3A 20 8F 20 3D 3D 3D 3D 3D | : . =====| 00000950: 20 52 45 4D 4F 56 45 20 46 4F 52 20 42 45 54 54 | REMOVE FOR BETT| 00000960: 45 52 20 53 50 45 45 44 20 3D 3D 3D 3D 3D 3D 00 |ER SPEED ======.| 00000970: A2 0D 62 02 53 4C B2 53 4C AA 49 43 20 20 20 20 |..b.SL.SL.IC | 00000980: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 49 4E 43 | : . INC| 00000990: 52 45 4D 45 4E 54 20 4C 49 4E 45 20 4E 55 4D 42 |REMENT LINE NUMB| 000009A0: 45 52 00 D3 0D 6C 02 98 32 2C 41 24 5A 24 3B 20 |ER...l..2,A$Z$; | 000009B0: 20 20 20 20 20 20 20 3A 20 8F 20 4F 55 54 50 55 | : . OUTPU| 000009C0: 54 20 4C 49 4E 45 20 28 2B 43 48 52 24 20 5A 45 |T LINE (+CHR$ ZE| 000009D0: 52 4F 29 00 E4 0D 76 02 8B 20 53 58 B2 30 20 A7 |RO)...v.. SX.0 .| 000009E0: 20 35 35 30 00 FA 0D 80 02 A0 20 32 20 3A 20 A0 | 550...... 2 : .| 000009F0: 20 31 20 3A 20 89 20 37 36 30 00 17 0E 8A 02 AC | 1 : . 760......| 00000A00: AC 20 4F 55 54 50 55 54 20 32 20 48 45 58 20 42 |. OUTPUT 2 HEX B| 00000A10: 59 54 45 53 20 AC AC 00 2B 0E 94 02 98 32 2C 20 |YTES ...+....2, | 00000A20: C7 28 41 20 AF 20 32 35 35 29 3B 00 40 0E 9E 02 |.(A . 255);.@...| 00000A30: 98 32 2C 20 C7 28 B5 28 41 AD 32 35 36 29 29 3B |.2, .(.(A.256));| 00000A40: 00 46 0E A8 02 8E 00 57 0E B2 02 AC AC 20 45 52 |.F.....W..... ER| 00000A50: 52 B0 20 85 20 AC AC 00 68 0E BC 02 9F 20 31 35 |R. . ...h.... 15| 00000A60: 2C 20 45 44 2C 20 31 35 00 7F 0E C6 02 84 31 35 |, ED, 15......15| 00000A70: 2C 20 45 2C 20 45 24 2C 20 45 54 2C 20 45 53 00 |, E, E$, ET, ES.| 00000A80: A8 0E D0 02 45 45 24 B2 C4 28 45 29 AA 22 2C 22 |....EE$..(E).","| 00000A90: AA 45 24 AA 22 2C 22 AA 20 C4 28 45 54 29 AA 22 |.E$.",". .(ET)."| 00000AA0: 2C 22 AA C4 28 45 53 29 00 B1 0E DA 02 A0 20 31 |,"..(ES)...... 1| 00000AB0: 35 00 B7 0E E4 02 8E 00 DF 0E EE 02 8F 20 2A 2A |5............ **| 00000AC0: 20 41 44 44 20 4D 4F 52 45 20 43 42 4D 20 53 4F | ADD MORE CBM SO| 00000AD0: 55 52 43 45 20 4D 4F 44 55 4C 45 53 20 2A 2A 00 |URCE MODULES **.| 00000AE0: E5 0E F8 02 99 00 2B 0F 02 03 85 20 22 28 C4 CF |......+.... "(..| 00000AF0: 20 CE CF D4 20 45 58 49 54 20 57 49 54 48 20 3C | ... EXIT WITH <| 00000B00: D2 C5 D4 D5 D2 CE 3E 29 20 20 20 C1 50 50 45 4E |......>) .PPEN| 00000B10: 44 20 41 4E 4F 54 48 45 52 20 46 49 4C 45 20 1D |D ANOTHER FILE .| 00000B20: 1D 1D 4E 9D 9D 9D 22 3B 59 4E 24 00 3F 0F 0C 03 |..N...";YN$.?...| 00000B30: 8B 20 59 4E 24 B2 22 59 22 20 A7 20 38 34 30 00 |. YN$."Y" . 840.| 00000B40: 58 0F 16 03 9F 20 32 2C 20 50 44 2C 20 36 2C 20 |X.... 2, PD, 6, | 00000B50: 50 4E 24 AA 22 2C 41 22 00 95 0F 20 03 98 32 2C |PN$.",A"... ..2,| 00000B60: 20 5A 24 5A 24 3B 20 20 20 20 20 20 20 20 20 20 | Z$Z$; | 00000B70: 20 20 20 3A 20 8F 20 41 44 44 20 45 4E 44 20 46 | : . ADD END F| 00000B80: 49 4C 45 20 4D 41 52 4B 45 52 20 28 24 30 30 2C |ILE MARKER ($00,| 00000B90: 20 24 30 30 29 00 A4 0F 2A 03 A0 20 32 20 3A 20 | $00)...*.. 2 : | 00000BA0: A0 20 31 35 00 D7 0F 34 03 99 20 22 11 11 11 4C |. 15...4.. "...L| 00000BB0: 4F 41 44 22 3B C7 28 33 34 29 3B 50 4E 24 3B C7 |OAD";.(34);PN$;.| 00000BC0: 28 33 34 29 3B 22 2C 22 CA 28 C4 28 50 44 29 2C |(34);",".(.(PD),| 00000BD0: 32 29 22 91 91 91 22 00 DD 0F 3E 03 80 00 12 10 |2)"..."...>.....| 00000BE0: 48 03 8D 20 32 37 30 20 20 20 20 20 20 20 20 20 |H.. 270 | 00000BF0: 20 20 20 20 20 20 20 20 20 3A 20 8F 20 46 4F 52 | : . FOR| 00000C00: 20 4E 45 57 20 43 42 4D 20 46 49 4C 45 20 4E 41 | NEW CBM FILE NA| 00000C10: 4D 45 00 53 10 52 03 8D 20 34 35 30 20 20 20 20 |ME.S.R.. 450 | 00000C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : | 00000C30: 8F 20 41 4C 54 45 52 20 4E 45 58 54 20 4C 49 4E |. ALTER NEXT LIN| 00000C40: 45 20 4E 55 4D 42 45 52 2C 20 49 4E 43 52 45 4D |E NUMBER, INCREM| 00000C50: 45 4E 54 00 67 10 5C 03 9F 20 31 2C 20 43 44 2C |ENT.g.\.. 1, CD,| 00000C60: 20 38 2C 20 43 4E 24 00 80 10 66 03 9F 20 32 2C | 8, CN$...f.. 2,| 00000C70: 20 50 44 2C 20 36 2C 20 50 4E 24 AA 22 2C 41 22 | PD, 6, PN$.",A"| 00000C80: 00 AC 10 70 03 89 20 35 35 30 20 20 20 20 20 20 |...p.. 550 | 00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F | : .| 00000CA0: 20 47 4F 20 41 44 44 20 46 49 4C 45 00 DF 10 7A | GO ADD FILE...z| 00000CB0: 03 8F 20 2A 2A 20 41 50 50 45 4E 44 20 43 42 4D |.. ** APPEND CBM| 00000CC0: 20 53 4F 55 52 43 45 20 54 4F 20 45 58 49 53 54 | SOURCE TO EXIST| 00000CD0: 49 4E 47 20 50 41 4C 20 46 49 4C 45 20 2A 2A 00 |ING PAL FILE **.| 00000CE0: 03 11 84 03 99 20 3A 20 85 20 22 20 20 20 4F 4C |..... : . " OL| 00000CF0: 44 20 50 41 4C 20 46 49 4C 45 4E 41 4D 45 22 3B |D PAL FILENAME";| 00000D00: 4F 50 24 00 13 11 8E 03 99 20 A3 32 30 29 43 4E |OP$...... .20)CN| 00000D10: 22 91 22 00 32 11 98 03 85 20 22 20 20 20 20 20 |".".2.... " | 00000D20: 20 20 20 20 20 20 20 20 20 44 52 49 56 45 22 3B | DRIVE";| 00000D30: 4F 50 00 42 11 A2 03 99 20 A3 32 30 29 4F 44 22 |OP.B.... .20)OD"| 00000D40: 91 22 00 61 11 AC 03 85 20 22 20 20 20 20 20 20 |.".a.... " | 00000D50: 20 20 20 20 20 20 44 45 56 49 43 45 23 22 3B 4F | DEVICE#";O| 00000D60: 44 00 8B 11 B6 03 9F 20 31 2C 20 4F 44 2C 20 38 |D...... 1, OD, 8| 00000D70: 2C 20 4F 50 24 20 3A 20 45 44 B2 4F 44 20 3A 20 |, OP$ : ED.OD : | 00000D80: 8D 20 37 30 30 20 3A 20 A0 20 31 00 A7 11 C0 03 |. 700 : . 1.....| 00000D90: 8B 20 45 20 A7 20 99 20 45 45 24 20 3A 20 99 20 |. E . . EE$ : . | 00000DA0: 3A 20 89 20 39 30 30 00 BF 11 CA 03 99 20 3A 20 |: . 900...... : | 00000DB0: 99 20 A3 32 31 29 22 40 22 4F 50 24 22 91 22 00 |. .21)"@"OP$".".| 00000DC0: DF 11 D4 03 85 20 22 20 20 20 4E 45 57 20 50 41 |..... " NEW PA| 00000DD0: 4C 20 46 49 4C 45 4E 41 4D 45 22 3B 50 4E 24 00 |L FILENAME";PN$.| 00000DE0: FA 11 DE 03 8B 20 C8 28 50 4E 24 2C 31 29 B3 B1 |..... .(PN$,1)..| 00000DF0: 22 40 22 20 A7 20 31 30 31 30 00 37 12 E8 03 50 |"@" . 1010.7...P| 00000E00: 4E B2 4F 50 20 3A 20 50 44 B2 4F 44 20 3A 20 50 |N.OP : PD.OD : P| 00000E10: 4E 24 B2 22 40 22 AA CA 28 C4 28 50 4E 29 2C 32 |N$."@"..(.(PN),2| 00000E20: 29 AA 22 3A 22 AA CA 28 50 4E 24 2C 32 29 20 3A |).":"..(PN$,2) :| 00000E30: 20 89 20 31 30 38 30 00 47 12 F2 03 99 20 A3 32 | . 1080.G.... .2| 00000E40: 30 29 43 4E 22 91 22 00 66 12 FC 03 85 20 22 20 |0)CN".".f.... " | 00000E50: 20 44 45 53 54 49 4E 41 54 49 4F 4E 20 44 52 49 | DESTINATION DRI| 00000E60: 56 45 22 3B 50 4E 00 76 12 06 04 99 20 A3 32 30 |VE";PN.v.... .20| 00000E70: 29 50 44 22 91 22 00 95 12 10 04 85 20 22 44 45 |)PD"."...... "DE| 00000E80: 53 54 49 4E 41 54 49 4F 4E 20 44 45 56 49 43 45 |STINATION DEVICE| 00000E90: 23 22 3B 50 44 00 B0 12 1A 04 50 4E 24 B2 CA 28 |#";PD.....PN$..(| 00000EA0: C4 28 50 4E 29 2C 32 29 AA 22 3A 22 AA 50 4E 24 |.(PN),2).":".PN$| 00000EB0: 00 DA 12 24 04 9F 20 32 2C 20 50 44 2C 20 36 2C |...$.. 2, PD, 6,| 00000EC0: 20 50 4E 24 20 3A 20 45 44 B2 50 44 20 3A 20 8D | PN$ : ED.PD : .| 00000ED0: 20 37 30 30 20 3A 20 A0 20 32 00 06 13 2E 04 8B | 700 : . 2......| 00000EE0: 20 45 B3 B1 36 32 20 20 A7 20 99 20 22 20 46 49 | E..62 . . " FI| 00000EF0: 4C 45 20 45 58 49 53 54 53 22 20 3A 20 99 20 3A |LE EXISTS" : . :| 00000F00: 20 89 20 39 37 30 00 3D 13 38 04 99 20 3A 20 99 | . 970.=.8.. : .| 00000F10: 22 43 52 45 41 54 49 4E 47 20 4E 45 57 20 46 49 |"CREATING NEW FI| 00000F20: 4C 45 20 46 52 4F 4D 20 22 3B 4F 50 24 3B 22 20 |LE FROM ";OP$;" | 00000F30: 20 53 54 41 4E 44 20 42 59 2E 2E 2E 22 00 58 13 | STAND BY...".X.| 00000F40: 42 04 9F 20 31 2C 20 4F 44 2C 20 38 2C 20 4F 50 |B.. 1, OD, 8, OP| 00000F50: 24 AA 22 2C 50 2C 52 22 00 73 13 4C 04 9F 20 32 |$.",P,R".s.L.. 2| 00000F60: 2C 20 50 44 2C 20 36 2C 20 50 4E 24 AA 22 2C 50 |, PD, 6, PN$.",P| 00000F70: 2C 57 22 00 AA 13 56 04 A1 23 31 2C 41 24 20 3A |,W"...V..#1,A$ :| 00000F80: 20 98 32 2C 20 C7 28 C6 28 41 24 AA 5A 24 29 29 | .2, .(.(A$.Z$))| 00000F90: 3B 20 20 20 3A 20 8F 20 46 49 4C 45 20 53 54 41 |; : . FILE STA| 00000FA0: 52 54 20 41 44 44 52 45 53 53 00 C8 13 60 04 A1 |RT ADDRESS...`..| 00000FB0: 23 31 2C 41 24 20 3A 20 98 32 2C 20 C7 28 C6 28 |#1,A$ : .2, .(.(| 00000FC0: 41 24 AA 5A 24 29 29 3B 00 00 14 6A 04 A1 23 31 |A$.Z$));...j..#1| 00000FD0: 2C 20 42 24 2C 20 43 24 20 3A 20 8B 20 53 54 B2 |, B$, C$ : . ST.| 00000FE0: 36 34 20 20 A7 20 31 32 33 30 20 20 20 20 20 3A |64 . 1230 :| 00000FF0: 20 8F 20 47 45 54 20 4C 49 4E 45 20 4C 49 4E 4B | . GET LINE LINK| 00001000: 00 21 14 74 04 41 24 B2 C7 28 C6 28 42 24 AA 5A |.!.t.A$..(.(B$.Z| 00001010: 24 29 29 20 AA 20 C7 28 C6 28 43 24 AA 5A 24 29 |$)) . .(.(C$.Z$)| 00001020: 29 00 5F 14 7E 04 A1 23 31 2C 20 42 24 2C 20 43 |)._.~..#1, B$, C| 00001030: 24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$ | 00001040: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 8F 20 | : . | 00001050: 47 45 54 20 4C 49 4E 45 20 4E 55 4D 42 45 52 00 |GET LINE NUMBER.| 00001060: 85 14 88 04 41 24 B2 41 24 20 AA 20 C7 28 C6 28 |....A$.A$ . .(.(| 00001070: 42 24 AA 5A 24 29 29 20 AA 20 C7 28 C6 28 43 24 |B$.Z$)) . .(.(C$| 00001080: AA 5A 24 29 29 00 C6 14 92 04 97 20 4D 43 AA 32 |.Z$))...... MC.2| 00001090: 31 2C 20 30 20 20 20 20 20 20 20 20 20 20 20 20 |1, 0 | 000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A | :| 000010B0: 20 8F 20 49 4E 50 55 54 20 44 45 4C 49 4D 20 4E | . INPUT DELIM N| 000010C0: 4F 57 20 24 30 30 00 CF 14 9C 04 9E 20 4D 43 00 |OW $00...... MC.| 000010D0: 0C 15 A6 04 41 24 B2 41 24 AA C8 28 49 24 2C C2 |....A$.A$..(I$,.| 000010E0: 28 31 38 39 29 29 AA 5A 24 20 20 20 20 20 20 20 |(189)).Z$ | 000010F0: 20 20 20 20 20 3A 20 8F 20 2B 5A 24 20 54 4F 20 | : . +Z$ TO | 00001100: 41 44 44 20 4C 4F 53 54 20 4D 4B 52 00 17 15 B0 |ADD LOST MKR....| 00001110: 04 98 32 2C 41 24 3B 00 57 15 BA 04 53 41 B2 53 |..2,A$;.W...SA.S| 00001120: 41 AA C3 28 41 24 29 20 20 20 20 20 20 20 20 20 |A..(A$) | 00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001140: 20 20 3A 20 8F 20 55 50 44 41 54 45 20 53 54 41 | : . UPDATE STA| 00001150: 52 54 20 41 44 44 52 00 62 15 C4 04 89 20 31 31 |RT ADDR.b.... 11| 00001160: 33 30 00 6A 15 CE 04 A0 20 31 00 AE 15 D8 04 97 |30.j.... 1......| 00001170: 20 4D 43 AA 32 31 2C 20 31 33 20 20 20 20 20 20 | MC.21, 13 | 00001180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001190: 20 20 20 20 3A 20 8F 20 49 4E 50 55 54 20 44 45 | : . INPUT DE| 000011A0: 4C 49 4D 20 42 41 43 4B 20 54 4F 20 43 52 00 D8 |LIM BACK TO CR..| 000011B0: 15 E2 04 53 4C B2 C6 28 CA 28 41 24 2C 33 29 AA |...SL..(.(A$,3).| 000011C0: 5A 24 29 AA C6 28 CA 28 41 24 2C 34 29 AA 5A 24 |Z$)..(.(A$,4).Z$| 000011D0: 29 AC 32 35 36 AA 49 43 00 18 16 EC 04 8D 20 34 |).256.IC...... 4| 000011E0: 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |50 | 000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001200: 20 3A 20 8F 20 41 4C 54 45 52 20 4E 45 58 54 20 | : . ALTER NEXT | 00001210: 4C 49 4E 45 20 4E 55 4D 00 33 16 F6 04 9F 20 31 |LINE NUM.3.... 1| 00001220: 2C 20 43 44 2C 20 38 2C 20 43 4E 24 AA 22 2C 53 |, CD, 8, CN$.",S| 00001230: 2C 52 22 00 3D 16 00 05 89 20 35 35 30 00 00 00 |,R".=.... 550...|
..0.... ********************************
********._.... * CONVERT CBM ASSEMBLER S
OURCE FILE TO *...... * FILE TO PAL ASS
EMBLER SOURCE FILE *...(.. * K
.J.H. HILDON 03/83 *...2.. *
======== PALVERT 1.0 ========= *...<
.. * WORKS ON PET/CBM WITH DISK
*.J.F.. * ABSOLUTELY NO COPYRIGHT REST
RICTIONS *.Y.P.. * WON'T WORK ON BASIC
1.0 OR DOS 1.0 *...Z.. ****************
************************...D.I$."ABCDEFG
HIJKLMNOPQRSTUVWXYZ1234" : . I$ MUST BE
1ST VAR USED./.N.I$.I$.I$.I$
: . ESTABLISH INPUT BUFFER.
P.X.MC.896
: . MACH CODE START ADDR...... *** STRIN
G INPUT ROUTINE -- BY JIM BUTTERFIELD **
*...... 160, 2, 177, 42, 153, 184,
0, 200, 192, 6, 208, 246, 162.5....
1, 32, 198, 255, 32, 228, 255, 201, 1
3, 240, 11, 164, 189.V. .. 145, 187, 20
0, 132, 189, 196, 186, 208, 238, 76, 20
4, 255...... : . J.MC . MC.37 : . X : .
J, X : T.T.X : ..L.... T..5767 . ."TYPO
IN DATA" : ......Z$.G(0) : CD.8 : PD.8 :
OD.8 : CN.0.3.H.SA.1025
: . START ADDR PET/CBM.O.R.
SL.100 : .
STARTING LINE #.....IC.10
: . INCREMENT...... 270.
..... : . "APPEND TO EXISTING PAL FILE (
Y/N)";YN$...... YN$."Y" . 900...... 360
: . 450 : . 520.3.... : . "CBM SOURCE FI
LENAME";CN$.C.... .20)CN".".B.".. "
SOURCE DRIVE";CN.R.,.. .20)CD"."...6..
" SOURCE DEVICE#";CD...@.CN$.J(D(CN
),2).":".CN$.V.J.. 1, CD, 8, CN$ : ED.CD
: . 700 : 1...T.. E . . EE$ : . : . 2
70...^.....H.. : . " NEW PAL FILENAME"
;PN$.,.R.. .20)CN".".K.|.. " DESTINATIO
N DRIVE";PN.[.... .20)PD".".Z.... "DESTI
NATION DEVICE#";PD.....PN$.J(D(PN),2).":
".PN$...... 2, PD, 6, PN$ : ED.PD : . 70
0 : 2...... E..62 . . "FILE EXISTS" :
. : . 360...... : ....B.A.SL : . : . .20
)SL".".-.L.. " STARTING LINE #";SL.].
V.. SL.A . ."MUST BE > OR = !" : SL.A :
. 450.M.... .20)IC"."...... " LINE I
NCREMENT";IC...... : ....... ** OPEN INP
UT AND OUTPUT FILES **.R.... 1, CD, 8, C
N$...... 2, PD, 6, PN$.",P,W".%...A.SA :
. 660 : . OUTPUT FILE START ADDR ($
0401).`.&.. MC : SX.ST : . INPUT L
INE FROM CBM SOURCE FILE.T.0.A$.H(I$,B(1
89))...:.SA.SA.C(A$).5 : . START AD
DR + LINE LEN + 5 FOR LINK,LINE,MKR...D.
A.SA : . 660 : . OUTPUT LINE LINK -
HEX LO, HEX HI.1.N.A.SL : . 660 : .
OUTPUT LINE # - HEX LO, HEX HI.O.X..S
L;A$ : . ===== REMOVE FOR BETT
ER SPEED ======...B.SL.SL.IC
: . INCREMENT LINE NUMBER.S.L..2,A$Z$;
: . OUTPUT LINE (+CHR$ ZERO)...V.
. SX.0 . 550..... 2 : 1 : . 760......
. OUTPUT 2 HEX BYTES ...+....2, G(A . 25
5);.@....2, G(.(A.256));.F.....W..... ER
R. . ...H.... 15, ED, 15..F..15, E, E$,
ET, ES...P.EE$.D(E).",".E$.",". D(ET)."
,".D(ES)...Z. 15............ ** ADD MOR
E CBM SOURCE MODULES **.......+.... "(DO
NOT EXIT WITH <RETURN>) APPEND ANOTHE
R FILE ...N...";YN$.?.... YN$."Y" . 840.
X.... 2, PD, 6, PN$.",A"... ..2, Z$Z$;
: . ADD END FILE MARKER ($00,
$00)...*. 2 : 15.W.4.. "...LOAD";G(3
4);PN$;G(34);","J(D(PD),2)"..."...>.....
H.. 270 : . FOR NEW CBM
FILE NAME.S.R.. 450 :
. ALTER NEXT LINE NUMBER, INCREMENT.G.\.
. 1, CD, 8, CN$...F.. 2, PD, 6, PN$.",A"
...P.. 550 : . GO ADD
FILE...Z.. ** APPEND CBM SOURCE TO EXIST
ING PAL FILE **...... : . " OLD PAL FI
LENAME";OP$...... .20)CN".".2.... "
DRIVE";OP.B.... .20)OD".".A....
" DEVICE#";OD...... 1, OD, 8
, OP$ : ED.OD : . 700 : 1...... E . .
EE$ : . : . 900...J.. : . .21)"@"OP$".".
..T.. " NEW PAL FILENAME";PN$...... H(
PN$,1).."@" . 1010.7...PN.OP : PD.OD : P
N$."@".J(D(PN),2).":".J(PN$,2) : . 1080.
G.... .20)CN".".F.... " DESTINATION DRI
VE";PN.V.... .20)PD"."...... "DESTINATIO
N DEVICE#";PD.....PN$.J(D(PN),2).":".PN$
.Z.$.. 2, PD, 6, PN$ : ED.PD : . 700 :
2...... E..62 . . " FILE EXISTS" : . :
. 970.=.8.. : ."CREATING NEW FILE FROM
";OP$;" STAND BY...".X.B.. 1, OD, 8, OP
$.",P,R".S.L.. 2, PD, 6, PN$.",P,W"...V.
.#1,A$ : .2, G(F(A$.Z$)); : . FILE STA
RT ADDRESS.H.`..#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$))._.~..#1, B$, C$
: . GET LINE NUMBER.....A$.A
$ . G(F(B$.Z$)) . G(F(C$.Z$)).F.... MC.2
1, 0 : . INPUT
DELIM NOW $00.O.... MC.....A$.A$.H(I$,B
(189)).Z$ : . +Z$ TO ADD LOST
MKR......2,A$;.W...SA.SA.C(A$)
: . UPDATE START ADDR.
B.D.. 1130.J.N. 1...X.. MC.21, 13
: . INPUT DELIM BACK
TO CR.X...SL.F(J(A$,3).Z$).F(J(A$,4).Z$
).256.IC...... 450
: . ALTER NEXT LINE NUM.3.... 1
, CD, 8, CN$.",S,R".=.... 550...
> CLICK IMAGE PREVIEW FOR FULL MODAL