STRING SYNTHESIS
FILE INFORMATION
FILENAME(S): STRING SYNTHESIS
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:12:22
APPEARS ON: 1 disk(s)
FILE HASH
9f341fd3ea9a7618ff906b8adee6da77dbb885ee9ab65edddc435f5ceac8298f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK2 | STRING SYNTHESIS | PRG | DuncanTwain | 31 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 53 54 52 49 4E 47 20 53 |..).... STRING S| 00000010: 59 4E 54 48 45 53 49 53 20 28 41 55 47 20 32 39 |YNTHESIS (AUG 29| 00000020: 2F 38 34 29 20 20 20 20 3A 00 2F 08 01 00 3A 00 |/84) :./...:.| 00000030: 4F 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |O.... 0 STATEMEN| 00000040: 54 53 2C 20 35 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 5 FUNCTIONS.| 00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: | 00000070: 32 38 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |28.x...:...... K| 00000080: 45 59 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 |EYWORD ROUTI| 00000090: 4E 45 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 |NE LINE SER #| 000000A0: 00 C7 08 07 00 8F 20 46 2F 41 4C 50 48 24 20 20 |...... F/ALPH$ | 000000B0: 20 20 20 41 4C 50 48 20 20 20 20 20 32 38 39 34 | ALPH 2894| 000000C0: 20 20 20 20 30 32 31 00 EE 08 08 00 8F 20 46 2F | 021...... F/| 000000D0: 55 43 41 4C 50 48 24 20 20 20 55 43 41 4C 50 48 |UCALPH$ UCALPH| 000000E0: 20 20 20 32 39 30 32 20 20 20 20 30 32 32 00 15 | 2902 022..| 000000F0: 09 09 00 8F 20 46 2F 4E 55 4D 24 20 20 20 20 20 |.... F/NUM$ | 00000100: 20 4E 55 4D 20 20 20 20 20 20 32 39 31 30 20 20 | NUM 2910 | 00000110: 20 20 30 32 33 00 3B 09 0A 00 8F 20 46 2F 52 56 | 023.;.... F/RV| 00000120: 53 24 28 20 20 20 20 52 56 53 20 20 20 20 20 20 |S$( RVS | 00000130: 32 39 32 38 20 20 20 20 30 32 34 00 61 09 0B 00 |2928 024.a...| 00000140: 8F 20 46 2F 42 55 49 4C 44 24 28 20 20 42 55 49 |. F/BUILD$( BUI| 00000150: 4C 44 20 20 20 20 32 39 38 36 20 20 20 20 30 32 |LD 2986 02| 00000160: 35 00 67 09 0C 00 3A 00 81 09 0D 00 8F 20 55 2F |5.g...:...... U/| 00000170: 50 53 48 54 45 4D 20 28 33 31 30 30 2F 30 36 30 |PSHTEM (3100/060| 00000180: 29 00 9B 09 0E 00 8F 20 55 2F 50 55 4C 54 45 4D |)...... U/PULTEM| 00000190: 20 28 33 31 33 34 2F 30 36 31 29 00 B5 09 0F 00 | (3134/061).....| 000001A0: 8F 20 55 2F 4B 50 46 54 4F 50 20 28 33 31 35 36 |. U/KPFTOP (3156| 000001B0: 2F 30 36 32 29 00 BB 09 10 00 3A 00 E2 09 11 00 |/062).....:.....| 000001C0: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============| 000001D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000001E0: 3D 3D 00 E8 09 12 00 3A 00 02 0A 5B 02 2E C6 20 |==.....:...[... | 000001F0: 22 41 4C 50 48 A4 55 43 41 4C 50 48 A4 4E 55 4D |"ALPH.UCALPH.NUM| 00000200: A4 22 00 18 0A 5C 02 2E C6 20 22 52 56 53 24 A8 |."...\... "RVS$.| 00000210: 42 55 49 4C 44 24 A8 22 00 37 0A 43 06 2E 57 B0 |BUILD$.".7.C..W.| 00000220: 44 20 41 4C 50 48 AB 31 2C 55 43 41 4C 50 48 AB |D ALPH.1,UCALPH.| 00000230: 31 2C 4E 55 4D AB 31 00 4E 0A 44 06 2E 57 B0 44 |1,NUM.1.N.D..W.D| 00000240: 20 52 56 53 AB 31 2C 42 55 49 4C 44 AB 31 00 71 | RVS.1,BUILD.1.q| 00000250: 0A 4E 0B 55 43 41 4C 50 48 20 4C 44 41 20 23 22 |.N.UCALPH LDA #"| 00000260: C1 22 3B 52 41 4E 47 45 20 4F 46 20 55 50 50 45 |.";RANGE OF UPPE| 00000270: 52 00 7E 0A 50 0B 4C 44 58 20 23 22 DA 22 00 8B |R.~.P.LDX #"."..| 00000280: 0A 52 0B 42 4E 45 20 4E 55 4D 31 00 91 0A 54 0B |.R.BNE NUM1...T.| 00000290: 3B 00 A3 0A 56 0B 41 4C 50 48 20 4C 44 41 20 23 |;...V.ALPH LDA #| 000002A0: 22 41 22 00 B0 0A 58 0B 4C 44 58 20 23 22 5A 22 |"A"...X.LDX #"Z"| 000002B0: 00 BD 0A 5A 0B 42 4E 45 20 4E 55 4D 31 00 C3 0A |...Z.BNE NUM1...| 000002C0: 5C 0B 3B 00 D4 0A 5E 0B 4E 55 4D 20 4C 44 41 20 |\.;...^.NUM LDA | 000002D0: 23 22 30 22 00 E1 0A 60 0B 4C 44 58 20 23 22 39 |#"0"...`.LDX #"9| 000002E0: 22 00 F1 0A 62 0B 4E 55 4D 31 20 53 54 41 20 54 |"...b.NUM1 STA T| 000002F0: 33 00 FC 0A 64 0B 4C 44 41 20 23 30 00 07 0B 66 |3...d.LDA #0...f| 00000300: 0B 53 54 41 20 54 32 00 14 0B 68 0B 4C 44 41 20 |.STA T2...h.LDA | 00000310: 23 24 38 30 00 1F 0B 6A 0B 53 54 41 20 54 34 00 |#$80...j.STA T4.| 00000320: 2B 0B 6C 0B 42 4E 45 20 42 55 32 00 31 0B 6E 0B |+.l.BNE BU2.1.n.| 00000330: 3B 00 43 0B 70 0B 52 56 53 20 4A 53 52 20 24 41 |;.C.p.RVS JSR $A| 00000340: 45 46 34 00 51 0B 72 0B 4A 53 52 20 24 42 36 41 |EF4.Q.r.JSR $B6A| 00000350: 33 00 61 0B 74 0B 52 56 31 20 53 54 41 20 24 36 |3.a.t.RV1 STA $6| 00000360: 31 00 6C 0B 76 0B 53 54 58 20 54 35 00 77 0B 78 |1.l.v.STX T5.w.x| 00000370: 0B 53 54 59 20 54 36 00 85 0B 7A 0B 4A 53 52 20 |.STY T6...z.JSR | 00000380: 24 42 34 37 44 00 8D 0B 7C 0B 54 41 59 00 99 0B |$B47D...|.TAY...| 00000390: 7E 0B 42 45 51 20 52 56 33 00 A1 0B 80 0B 44 45 |~.BEQ RV3.....DE| 000003A0: 59 00 AC 0B 82 0B 4C 5E 41 20 23 30 00 B7 0B 84 |Y.....L^A #0....| 000003B0: 0B 53 54 41 20 54 32 00 C6 0B 86 0B 52 56 32 20 |.STA T2.....RV2 | 000003C0: 53 54 59 20 54 33 00 D5 0B 88 0B 4C 5E 41 20 28 |STY T3.....L^A (| 000003D0: 54 35 29 2C 59 00 DD 0B 8A 0B 50 48 41 00 E8 0B |T5),Y.....PHA...| 000003E0: 8C 0B 4C 44 59 20 54 32 00 F7 0B 8E 0B 4C 44 41 |..LDY T2.....LDA| 000003F0: 20 28 54 35 29 2C 59 00 FF 0B 90 0B 54 41 58 00 | (T5),Y.....TAX.| 00000400: 07 0C 92 0B 50 4C 41 00 17 0C 94 0B 53 54 41 20 |....PLA.....STA | 00000410: 28 24 36 32 29 2C 59 00 1F 0C 96 0B 54 58 41 00 |($62),Y.....TXA.| 00000420: 2A 0C 98 0B 4C 44 59 20 54 33 00 3A 0C 9A 0B 53 |*...LDY T3.:...S| 00000430: 54 41 20 28 24 36 32 29 2C 59 00 46 0C 9C 0B 42 |TA ($62),Y.F...B| 00000440: 45 51 20 52 56 33 00 51 0C 9E 0B 49 4E 43 20 54 |EQ RV3.Q...INC T| 00000450: 32 00 59 0C A0 0B 44 45 59 00 64 0C A2 0B 43 50 |2.Y...DEY.d...CP| 00000460: 59 20 54 32 00 70 0C A4 0B 42 43 53 20 52 56 32 |Y T2.p...BCS RV2| 00000470: 00 82 0C A6 0B 52 56 33 20 4A 4D 50 20 24 42 34 |.....RV3 JMP $B4| 00000480: 43 41 00 88 0C A8 0B 3B 00 99 0C AA 0B 42 55 49 |CA.....;.....BUI| 00000490: 4C 44 20 4C 44 59 20 23 30 00 A4 0C AC 0B 53 54 |LD LDY #0.....ST| 000004A0: 59 20 54 32 00 AF 0C AE 0B 53 54 59 20 54 34 00 |Y T2.....STY T4.| 000004B0: C2 0C B0 0B 42 55 31 20 4A 53 52 20 50 53 48 54 |....BU1 JSR PSHT| 000004C0: 45 4D 00 CF 0C B2 0B 4A 53 52 20 4B 50 46 31 00 |EM.....JSR KPF1.| 000004D0: DB 0C B4 0B 53 54 58 20 24 36 37 00 EA 0C B6 0B |....STX $67.....| 000004E0: 4A 53 52 20 50 55 4C 54 45 4D 00 F6 0C B8 0B 4C |JSR PULTEM.....L| 000004F0: 44 58 20 24 36 37 00 01 0D BA 0B 53 54 58 20 54 |DX $67.....STX T| 00000500: 33 00 0D 0D BC 0B 4A 53 52 20 24 37 39 00 1A 0D |3.....JSR $79...| 00000510: BE 0B 43 4D 50 20 23 22 3B 22 00 26 0D C0 0B 42 |..CMP #";".&...B| 00000520: 4E 45 20 42 55 32 00 35 0D C2 0B 4A 53 52 20 50 |NE BU2.5...JSR P| 00000530: 53 48 54 45 4D 00 43 0D C4 0B 4A 53 52 20 4B 50 |SHTEM.C...JSR KP| 00000540: 46 A4 50 00 4F 0D C6 0B 53 54 58 20 24 36 37 00 |F.P.O...STX $67.| 00000550: 5E 0D C8 0B 4A 53 52 20 50 55 4C 54 45 4D 00 6A |^...JSR PULTEM.j| 00000560: 0D CA 0B 4C 44 58 20 24 36 37 00 76 0D CC 0B 42 |...LDX $67.v...B| 00000570: 55 32 20 54 58 41 00 7E 0D CE 0B 53 45 43 00 89 |U2 TXA.~...SEC..| 00000580: 0D D0 0B 53 42 43 20 54 33 00 95 0D D2 0B 42 43 |...SBC T3.....BC| 00000590: 43 20 42 55 37 00 A0 0D D4 0B 41 44 43 20 23 30 |C BU7.....ADC #0| 000005A0: 00 AC 0D D6 0B 42 43 53 20 42 55 38 00 B4 0D D8 |.....BCS BU8....| 000005B0: 0B 50 48 41 00 BF 0D DA 0B 41 44 43 20 54 32 00 |.PHA.....ADC T2.| 000005C0: CB 0D DC 0B 42 43 53 20 42 55 38 00 D6 0D DE 0B |....BCS BU8.....| 000005D0: 53 54 41 20 54 32 00 DE 0D E0 0B 50 4C 41 00 E9 |STA T2.....PLA..| 000005E0: 0D E2 0B 53 54 58 20 54 33 00 F7 0D E4 0B 4A 53 |...STX T3.....JS| 000005F0: 52 20 24 42 34 37 44 00 03 0E E6 0B 53 54 58 20 |R $B47D.....STX | 00000600: 24 32 32 00 0F 0E E8 0B 53 54 59 20 24 32 33 00 |$22.....STY $23.| 00000610: 1A 0E EA 0B 4C 44 58 20 54 33 00 25 0E EC 0B 53 |....LDX T3.%...S| 00000620: 54 41 20 54 33 00 32 0E EE 0B 4C 44 59 20 23 24 |TA T3.2...LDY #$| 00000630: 46 46 00 3E 0E F0 0B 42 55 33 20 54 58 41 00 46 |FF.>...BU3 TXA.F| 00000640: 0E F2 0B 49 4E 59 00 51 0E F4 0B 43 50 59 20 54 |...INY.Q...CPY T| 00000650: 33 00 5D 0E F6 0B 42 45 51 20 42 55 34 00 6D 0E |3.]...BEQ BU4.m.| 00000660: F8 0B 53 54 41 20 28 24 36 32 29 2C 59 00 75 0E |..STA ($62),Y.u.| 00000670: FA 0B 44 45 58 00 81 0E FC 0B 42 43 43 20 42 55 |..DEX.....BCC BU| 00000680: 33 00 90 0E FE 0B 42 55 34 20 42 49 54 20 54 34 |3.....BU4 BIT T4| 00000690: 00 9C 0E 00 0C 42 4D 49 20 42 55 36 00 A8 0E 02 |.....BMI BU6....| 000006A0: 0C 4A 53 52 20 24 37 39 00 B5 0E 04 0C 43 4D 50 |.JSR $79.....CMP| 000006B0: 20 23 22 2C 22 00 C1 0E 06 0C 42 4E 45 20 42 55 | #",".....BNE BU| 000006C0: 35 00 CD 0E 08 0C 4A 53 52 20 24 37 33 00 D9 0E |5.....JSR $73...| 000006D0: 0A 0C 42 4E 45 20 42 55 31 00 EB 0E 0C 0C 42 55 |..BNE BU1.....BU| 000006E0: 35 20 4A 53 52 20 24 41 45 46 37 00 FA 0E 0E 0C |5 JSR $AEF7.....| 000006F0: 42 55 36 20 4C 44 41 20 54 32 00 06 0F 10 0C 4C |BU6 LDA T2.....L| 00000700: 44 58 20 24 36 32 00 12 0F 12 0C 4C 44 59 20 24 |DX $62.....LDY $| 00000710: 36 33 00 1E 0F 14 0C 4A 4D 50 20 52 56 31 00 30 |63.....JMP RV1.0| 00000720: 0F 16 0C 42 55 37 20 4A 4D 50 20 24 42 32 34 38 |...BU7 JMP $B248| 00000730: 00 42 0F 18 0C 42 55 38 20 4A 4D 50 20 24 41 35 |.B...BU8 JMP $A5| 00000740: 37 31 00 48 0F 1A 0C 3B 00 5A 0F 1C 0C 50 53 48 |71.H...;.Z...PSH| 00000750: 54 45 4D 20 4C 44 41 20 23 33 00 68 0F 1E 0C 4A |TEM LDA #3.h...J| 00000760: 53 52 20 24 41 33 46 42 00 70 0F 20 0C 50 4C 41 |SR $A3FB.p. .PLA| 00000770: 00 7C 0F 22 0C 53 54 41 20 24 37 31 00 84 0F 24 |.|.".STA $71...$| 00000780: 0C 50 4C 41 00 90 0F 26 0C 53 54 41 20 24 37 32 |.PLA...&.STA $72| 00000790: 00 9B 0F 28 0C 4C 44 58 20 23 34 00 AD 0F 2A 0C |...(.LDX #4...*.| 000007A0: 50 48 54 31 20 4C 44 41 20 54 32 2C 58 00 B5 0F |PHT1 LDA T2,X...| 000007B0: 2C 0C 50 48 41 00 BD 0F 2E 0C 44 45 58 00 CA 0F |,.PHA.....DEX...| 000007C0: 30 0C 42 50 4C 20 50 48 54 31 00 DB 0F 32 0C 50 |0.BPL PHT1...2.P| 000007D0: 48 54 32 20 4C 44 41 20 24 37 32 00 E3 0F 34 0C |HT2 LDA $72...4.| 000007E0: 50 48 41 00 EF 0F 36 0C 4C 44 41 20 24 37 31 00 |PHA...6.LDA $71.| 000007F0: F7 0F 38 0C 50 48 41 00 FF 0F 3A 0C 52 54 53 00 |..8.PHA...:.RTS.| 00000800: 05 10 3C 0C 3B 00 14 10 3E 0C 50 55 4C 54 45 4D |..<.;...>.PULTEM| 00000810: 20 50 4C 41 00 20 10 40 0C 53 54 41 20 24 37 31 | PLA. .@.STA $71| 00000820: 00 28 10 42 0C 50 4C 41 00 34 10 44 0C 53 54 41 |.(.B.PLA.4.D.STA| 00000830: 20 24 37 32 00 41 10 46 0C 4C 44 58 20 23 24 46 | $72.A.F.LDX #$F| 00000840: 42 00 4E 10 48 0C 50 4C 54 31 20 50 4C 41 00 5B |B.N.H.PLT1 PLA.[| 00000850: 10 4A 0C 53 54 41 20 24 37 2C 58 00 63 10 4C 0C |.J.STA $7,X.c.L.| 00000860: 49 4E 58 00 70 10 4E 0C 42 4D 49 20 50 4C 54 31 |INX.p.N.BMI PLT1| 00000870: 00 7D 10 50 0C 42 50 4C 20 50 48 54 32 00 83 10 |.}.P.BPL PHT2...| 00000880: 52 0C 3B 00 95 10 54 0C 4B 50 46 A4 50 20 4A 53 |R.;...T.KPF.P JS| 00000890: 52 20 24 37 33 00 A6 10 56 0C 4B 50 46 31 20 4C |R $73...V.KPF1 L| 000008A0: 44 41 20 24 33 33 00 AE 10 58 0C 50 48 41 00 BA |DA $33...X.PHA..| 000008B0: 10 5A 0C 4C 44 41 20 24 33 34 00 C2 10 5C 0C 50 |.Z.LDA $34...\.P| 000008C0: 48 41 00 D0 10 5E 0C 4A 53 52 20 24 42 37 39 45 |HA...^.JSR $B79E| 000008D0: 00 D8 10 60 0C 50 4C 41 00 E4 10 62 0C 53 54 41 |...`.PLA...b.STA| 000008E0: 20 24 33 34 00 EC 10 64 0C 50 4C 41 00 F8 10 66 | $34...d.PLA...f| 000008F0: 0C 53 54 41 20 24 33 33 00 00 11 68 0C 52 54 53 |.STA $33...h.RTS| 00000900: 00 06 11 6A 0C 3B 00 00 00 |...j.;... |
..).... STRING SYNTHESIS (AUG 29/84) :./...:.O.... 0 STATEMENTS, 5 FUNCTIONS. U...:.R.... KEYWORD CHARACTERS: 28.X...: . .... KEYWORD ROUTINE LINE SER # .G.... F/ALPH$ ALPH 2894 021. ..... F/UCALPH$ UCALPH 2902 022.. .... F/NUM$ NUM 2910 023.;. ... F/RVS$( RVS 2928 024.A... . F/BUILD$( BUILD 2986 025.G...:. ..... U/PSHTEM (3100/060)...... U/PULTEM (3134/061)...... U/KPFTOP (3156/062)... ..:...... ============================== ==.....:...[..F "ALPH.UCALPH.NUM."...\.. F "RVS$.BUILD$.".7.C..W.D ALPH.1,UCALPH. 1,NUM.1.N.D..W.D RVS.1,BUILD.1.Q.N.UCALP H LDA #"A";RANGE OF UPPER.~.P.LDX #"Z".. .R.BNE NUM1...T.;...V.ALPH LDA #"A"...X. LDX #"Z"...Z.BNE NUM1.C.\.;.T.^.NUM LDA #"0"...`.LDX #"9"...B.NUM1 STA T3...D.LD A #0...F.STA T2...H.LDA #$80...J.STA T4. +.L.BNE BU2.1.N.;.C.P.RVS JSR $AEF4.Q.R. JSR $B6A3.A.T.RV1 STA $61.L.V.STX T5.W.X .STY T6...Z.JSR $B47D...|.TAY...~.BEQ RV 3.....DEY.....L^A #0.....STA T2.F...RV2 STY T3.U...L^A (T5),Y.....PHA.....LDY T2 .....LDA (T5),Y.....TAX.....PLA.....STA ($62),Y.....TXA.*...LDY T3.:...STA ($62) ,Y.F...BEQ RV3.Q...INC T2.Y. .DEY.D...CP Y T2.P...BCS RV2.....RV3 JMP $B4CA.....; .....BUILD LDY #0.....STY T2.....STY T4. B...BU1 JSR PSHTEM.O...JSR KPF1.....STX $67.....JSR PULTEM.....LDX $67.....STX T 3.....JSR $79.....CMP #";".&...BNE BU2.5 .B.JSR PSHTEM.C.D.JSR KPF.P.O.F.STX $67. ^.H.JSR PULTEM.J.J.LDX $67.V.L.BU2 TXA.~ .N.SEC...P.SBC T3...R.BCC BU7. .T.ADC #0 ...V.BCS BU8...X.PHA...Z.ADC T2.K...BCS BU8.V...STA T2.....PLA.....STX T3.....JS R $B47D.....STX $22.....STY $23.....LDX T3.%...STA T3.2...LDY #$FF.>...BU3 TXA.F ...INY.Q...CPY T3.]...BEQ BU4.M...STA ($ 62),Y.U...DEX.....BCC BU3.....BU4 BIT T4 .....BMI BU6.....JSR $79.....CMP #",".A. ..BNE BU5.M...JSR $73.Y...BNE BU1.....BU 5 JSR $AEF7.....BU6 LDA T2.....LDX $62.. ...LDY $63.....JMP RV1.0...BU7 JMP $B248 .B...BU8 JMP $A571.H...;.Z...PSHTEM LDA #3.H...JSR $A3FB.P. .PLA.|.".STA $71...$ .PLA...&.STA $72...(.LDX #4...*.PHT1 LDA T2,X...,.PHA.....DEX.J.0.BPL PHT1...2.P HT2 LDA $72...4.PHA...6.LDA $71...8.PHA. ..:.RTS...<.;...>.PULTEM PLA. .@.STA $71 .(.B.PLA.4.D.STA $72.A.F.LDX #$FB.N.H.PL T1 PLA.[.J.STA $7,X.C.L.INX.P.N.BMI PLT1 .}.P.BPL PHT2...R.;...T.KPF.P JSR $73... V.KPF1 LDA $33...X.PHA...Z.LDA $34.B.\.P HA.P.^.JSR $B79E.X.`.PLA...B.STA $34...D .PLA...F.STA $33...H.RTS...J.;...
> CLICK IMAGE PREVIEW FOR FULL MODAL