RC.SOURCE
FILE INFORMATION
FILENAME(S): RC.SOURCE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:13:33
APPEARS ON: 1 disk(s)
FILE HASH
3fff573972b13219642091ccd979802c98438af52eaef1d0c35ace494dd84041
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DISK 1 VORDER | RC.SOURCE | PRG | DuncanTwain | 29 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 01 00 8F 20 2A 20 52 41 4E 44 4F 4D |..#.... * RANDOM| 00000010: 20 43 4F 50 59 20 2D 20 53 4F 55 52 43 45 20 54 | COPY - SOURCE T| 00000020: 45 58 54 00 44 08 02 00 8F 20 2A 20 20 20 20 20 |EXT.D.... * | 00000030: 20 20 20 20 20 20 20 20 20 20 28 50 52 4F 46 49 | (PROFI| 00000040: 4D 41 54 29 00 4C 08 03 00 8F 20 2A 00 62 08 04 |MAT).L.... *.b..| 00000050: 00 8F 20 2A 20 28 43 29 20 31 39 38 35 20 46 52 |.. * (C) 1985 FR| 00000060: 41 53 00 6A 08 05 00 8F 20 2A 00 80 08 06 00 8F |AS.j.... *......| 00000070: 20 2A 20 53 54 45 50 48 41 4E 20 41 52 4E 44 54 | * STEPHAN ARNDT| 00000080: 00 99 08 07 00 8F 20 2A 20 53 55 45 44 57 45 53 |...... * SUEDWES| 00000090: 54 4B 4F 52 53 4F 20 36 32 00 B0 08 08 00 8F 20 |TKORSO 62...... | 000000A0: 2A 20 31 30 30 30 20 42 45 52 4C 49 4E 20 34 31 |* 1000 BERLIN 41| 000000B0: 00 B8 08 09 00 8F 20 2A 00 C5 08 0A 00 97 35 33 |...... *......53| 000000C0: 32 38 30 2C 31 00 D2 08 14 00 97 35 33 32 38 31 |280,1......53281| 000000D0: 2C 31 00 DC 08 1E 00 99 22 93 97 22 00 E2 08 28 |,1......".."...(| 000000E0: 00 3A 00 EE 08 32 00 9E 39 AC 34 30 39 36 00 FA |.:...2..9.4096..| 000000F0: 08 3C 00 2E 4F 50 54 20 4F 4F 00 06 09 46 00 AC |.<..OPT OO...F..| 00000100: B2 20 20 38 32 38 00 0C 09 50 00 3B 00 1B 09 51 |. 828...P.;...Q| 00000110: 00 52 AF 20 B2 20 24 44 34 31 42 00 27 09 52 00 |.R. . $D41B.'.R.| 00000120: A1 20 B2 20 24 46 42 00 35 09 53 00 50 55 54 20 |. . $FB.5.S.PUT | 00000130: B2 20 24 46 44 00 3B 09 57 00 3B 00 4B 09 58 00 |. $FD.;.W.;.K.X.| 00000140: 3B 20 52 AF 4F 4D 20 43 4F 50 59 00 51 09 59 00 |; R.OM COPY.Q.Y.| 00000150: 3B 00 75 09 5A 00 3B 20 55 45 42 45 52 54 52 41 |;.u.Z.; UEBERTRA| 00000160: 47 45 4E 20 45 49 4E 45 52 20 47 52 41 46 49 4B |GEN EINER GRAFIK| 00000170: 53 45 49 54 45 00 93 09 5B 00 3B 20 4D 49 54 20 |SEITE...[.; MIT | 00000180: 5A 55 46 41 45 4C 4C 49 47 45 4E 20 50 55 4E 4B |ZUFAELLIGEN PUNK| 00000190: 54 45 4E 00 99 09 5C 00 3B 00 A6 09 64 00 4C 44 |TEN...\.;...d.LD| 000001A0: 41 20 23 24 30 35 00 B6 09 65 00 53 54 41 20 43 |A #$05...e.STA C| 000001B0: 4F 55 4E 54 AA 32 00 C3 09 66 00 4A 53 52 20 52 |OUNT.2...f.JSR R| 000001C0: AF 4F 4D 00 CB 09 67 00 53 45 49 00 EA 09 68 00 |.OM...g.SEI...h.| 000001D0: 4C 44 41 20 23 35 33 20 20 20 20 20 20 20 20 3B |LDA #53 ;| 000001E0: 4B 45 52 4E 45 4C 20 55 4E 44 00 08 0A 69 00 53 |KERNEL UND...i.S| 000001F0: 54 41 20 24 31 20 20 20 20 20 20 20 20 20 3B 42 |TA $1 ;B| 00000200: 41 53 49 43 20 57 45 47 00 0E 0A 6A 00 3B 00 32 |ASIC WEG...j.;.2| 00000210: 0A 6E 00 53 54 41 52 54 20 4C 44 41 20 52 AF 20 |.n.START LDA R. | 00000220: 20 20 20 20 20 20 3B 5A 55 46 41 4C 4C 53 5A 41 | ;ZUFALLSZA| 00000230: 48 4C 00 42 0A 73 00 41 44 43 20 43 4F 55 4E 54 |HL.B.s.ADC COUNT| 00000240: AA 31 00 55 0A 78 00 53 54 41 20 A1 20 20 20 20 |.1.U.x.STA . | 00000250: 20 20 20 20 3B 00 73 0A 82 00 53 54 41 20 50 55 | ;.s...STA PU| 00000260: 54 20 20 20 20 20 20 20 20 3B 4C 4F 57 AB 42 59 |T ;LOW.BY| 00000270: 54 45 53 00 91 0A 8C 00 4C 44 41 20 52 AF 20 20 |TES.....LDA R. | 00000280: 20 20 20 20 20 3B 5A 55 46 41 4C 4C 53 5A 41 48 | ;ZUFALLSZAH| 00000290: 4C 00 9F 0A 91 00 41 44 43 20 43 4F 55 4E 54 00 |L.....ADC COUNT.| 000002A0: B6 0A 96 00 AF 20 23 25 30 30 30 31 31 31 31 31 |..... #%00011111| 000002B0: 20 3B 30 AB 33 31 00 D5 0A A0 00 53 54 41 20 A1 | ;0.31.....STA .| 000002C0: AA 31 20 20 20 20 20 20 3B 46 55 45 52 20 48 49 |.1 ;FUER HI| 000002D0: AB 42 59 54 45 00 EA 0A AA 00 53 54 41 20 50 55 |.BYTE.....STA PU| 000002E0: 54 AA 31 20 20 20 20 20 20 3B 00 F0 0A B4 00 3B |T.1 ;.....;| 000002F0: 00 05 0B C8 00 43 4C 43 20 20 20 20 20 20 20 20 |.....CLC | 00000300: 20 20 20 20 3B 00 27 0B D2 00 4C 44 41 20 A1 AA | ;.'...LDA ..| 00000310: 31 20 20 20 20 20 20 3B 53 4F 55 52 43 45 AB 41 |1 ;SOURCE.A| 00000320: 44 44 52 45 53 53 45 00 45 0B DC 00 41 44 43 20 |DDRESSE.E...ADC | 00000330: 53 4F 55 52 43 45 20 20 20 20 20 3B 42 45 52 45 |SOURCE ;BERE| 00000340: 43 48 4E 45 4E 00 58 0B E6 00 53 54 41 20 A1 AA |CHNEN.X...STA ..| 00000350: 31 20 20 20 20 20 20 3B 00 6D 0B F0 00 43 4C 43 |1 ;.m...CLC| 00000360: 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 8E 0B | ;...| 00000370: FA 00 4C 44 41 20 50 55 54 AA 31 20 20 20 20 20 |..LDA PUT.1 | 00000380: 20 3B 54 41 52 A1 AB 41 44 52 45 53 53 45 00 AA | ;TAR..ADRESSE..| 00000390: 0B 04 01 41 44 43 20 54 41 52 A1 20 20 20 20 20 |...ADC TAR. | 000003A0: 3B 42 45 52 45 43 48 4E 45 4E 00 BF 0B 0E 01 53 |;BERECHNEN.....S| 000003B0: 54 41 20 50 55 54 AA 31 20 20 20 20 20 20 3B 00 |TA PUT.1 ;.| 000003C0: C5 0B 18 01 3B 00 E3 0B 2C 01 4C 44 41 20 52 AF |....;...,.LDA R.| 000003D0: 20 20 20 20 20 20 20 3B 5A 55 46 41 4C 4C 53 5A | ;ZUFALLSZ| 000003E0: 41 48 4C 00 EF 0B 31 01 45 B0 20 23 24 46 46 00 |AHL...1.E. #$FF.| 000003F0: 0A 0C 36 01 AF 20 23 25 31 31 31 20 20 20 20 20 |..6.. #%111 | 00000400: 20 3B 30 AB 37 20 46 55 45 52 00 1F 0C 40 01 54 | ;0.7 FUER...@.T| 00000410: 41 58 20 20 20 20 20 20 20 20 20 20 20 20 3B 00 |AX ;.| 00000420: 42 0C 4A 01 4C 44 41 20 42 49 54 53 2C 58 20 20 |B.J.LDA BITS,X | 00000430: 20 20 20 3B 5A 57 45 49 45 52 50 4F 54 45 4E 5A | ;ZWEIERPOTENZ| 00000440: 45 4E 00 66 0C 54 01 53 54 41 20 4D 41 53 4B 20 |EN.f.T.STA MASK | 00000450: 20 20 20 20 20 20 3B 50 55 4E 4B 54 41 44 52 45 | ;PUNKTADRE| 00000460: 53 53 49 45 8A 47 00 6C 0C 5E 01 3B 00 81 0C 90 |SSIE.G.l.^.;....| 00000470: 01 4C 44 58 20 23 24 30 20 20 20 20 20 20 20 20 |.LDX #$0 | 00000480: 3B 00 9C 0C 9A 01 4C 44 41 20 28 A1 29 2C 58 20 |;.....LDA (.),X | 00000490: 20 20 20 3B 42 59 54 45 20 48 4F C3 00 BB 0C A4 | ;BYTE HO.....| 000004A0: 01 AF 20 4D 41 53 4B 20 20 20 20 20 20 20 3B 50 |.. MASK ;P| 000004B0: 55 4E 4B 54 20 4E 45 48 4D 45 4E 00 C6 0C A9 01 |UNKT NEHMEN.....| 000004C0: 42 45 51 20 43 4C 00 E7 0C AE 01 B0 41 20 28 50 |BEQ CL......A (P| 000004D0: 55 54 29 2C 58 20 20 20 20 3B 45 49 4E 53 43 48 |UT),X ;EINSCH| 000004E0: 4C 55 45 52 46 45 4E 00 07 0D B8 01 53 54 41 20 |LUERFEN.....STA | 000004F0: 28 50 55 54 29 2C 58 20 20 20 20 3B 55 45 42 45 |(PUT),X ;UEBE| 00000500: 52 54 52 41 47 45 4E 00 12 0D BD 01 4A 4D 50 20 |RTRAGEN.....JMP | 00000510: 4E 54 00 22 0D C2 01 43 4C 20 4C 44 41 20 4D 41 |NT."...CL LDA MA| 00000520: 53 4B 00 2E 0D C7 01 45 B0 20 23 24 46 46 00 3C |SK.....E. #$FF.<| 00000530: 0D CC 01 AF 20 28 50 55 54 29 2C 58 00 4C 0D D1 |.... (PUT),X.L..| 00000540: 01 53 54 41 20 28 50 55 54 29 2C 58 00 52 0D EF |.STA (PUT),X.R..| 00000550: 01 3B 00 63 0D F4 01 4E 54 20 44 45 43 20 43 4F |.;.c...NT DEC CO| 00000560: 55 4E 54 00 71 0D FE 01 42 4E 45 20 53 54 41 52 |UNT.q...BNE STAR| 00000570: 54 00 81 0D 08 02 44 45 43 20 43 4F 55 4E 54 AA |T.....DEC COUNT.| 00000580: 31 00 8F 0D 12 02 42 4E 45 20 53 54 41 52 54 00 |1.....BNE START.| 00000590: 9F 0D 1C 02 44 45 43 20 43 4F 55 4E 54 AA 32 00 |....DEC COUNT.2.| 000005A0: AD 0D 26 02 42 4E 45 20 53 54 41 52 54 00 B3 0D |..&.BNE START...| 000005B0: 30 02 3B 00 C2 0D 58 02 4C 44 41 20 53 4F 55 52 |0.;...X.LDA SOUR| 000005C0: 43 45 00 CE 0D 62 02 53 54 41 20 A1 AA 31 00 DB |CE...b.STA ..1..| 000005D0: 0D 76 02 4C 44 41 20 54 41 52 A1 00 E9 0D 80 02 |.v.LDA TAR......| 000005E0: 53 54 41 20 50 55 54 AA 31 00 F5 0D 8A 02 4C 44 |STA PUT.1.....LD| 000005F0: 41 20 23 24 30 00 FF 0D 94 02 53 54 41 20 A1 00 |A #$0.....STA ..| 00000600: 0B 0E 9E 02 53 54 41 20 50 55 54 00 16 0E A8 02 |....STA PUT.....| 00000610: 4C 44 59 20 23 30 00 22 0E B2 02 4C 44 58 20 23 |LDY #0."...LDX #| 00000620: 33 31 00 32 F5 4A F8 EE 1A E2 33 17 EE 9E 8E EE |31.2.J....3.....| 00000630: 9E E3 12 02 3E AE F6 2E 3E BB 32 E2 E2 1A 3B BB |....>...>.2...;.| 00000640: E6 E3 1E 02 36 A7 70 2E 33 33 BE 02 3D 27 74 2E |....6.p.33..='t.| 00000650: 3E 37 33 E2 33 1A 22 FE 27 73 2E 36 17 3E E2 62 |>73.3.".'s.6.>.b| 00000660: E6 EA A2 FA 27 77 2E 36 17 3E E2 3A 3B BB 66 EA |....'w.6.>.:;.f.| 00000670: A2 FA 07 F0 0E 33 33 BA 02 2E A7 F5 0E 3E 37 16 |.....33......>7.| 00000680: E2 3E 33 22 25 27 2E 2E BE 37 33 E2 33 1A 22 64 |.>3"%'...73.3."d| 00000690: 27 2F AE B3 13 3E E2 EE ED EB 22 63 A7 23 0E BE |'/...>...."c.#..| 000006A0: 37 33 E2 33 1A 22 66 A7 27 2E EE A2 35 07 2A AE |73.3."f.'...5.*.| 000006B0: BE 33 E2 33 13 32 E2 EE EB EB E2 E2 E2 E2 E2 E2 |.3.3.2..........| 000006C0: E2 E2 EE B6 B3 BE 37 33 B3 E2 3B B7 33 22 77 07 |......73..;.3"w.| 000006D0: 2E 2E BE BB 32 E2 E3 EA E2 E2 E2 E2 E2 E2 E2 E2 |....2...........| 000006E0: E2 EE BE 32 BE B6 1E E2 37 6A 37 12 B3 02 F1 A7 |...2....7j7.....| 000006F0: 2E AE 43 4C 49 00 FB 0E 16 03 3B 00 03 0F 1B 03 |..CLI.....;.....| 00000700: 52 54 53 00 09 0F 1F 03 3B 00 16 0F 20 03 52 AF |RTS.....;... .R.| 00000710: 4F 4D 20 4E 4F 50 00 36 0F 2A 03 4C 44 41 20 23 |OM NOP.6.*.LDA #| 00000720: 24 38 30 20 20 20 20 20 20 20 3B 5A 55 46 41 4C |$80 ;ZUFAL| 00000730: 4C 53 5A 41 48 4C 00 57 0F 34 03 53 54 41 20 24 |LSZAHL.W.4.STA $| 00000740: 44 34 31 38 20 20 20 20 20 20 3B 41 55 53 20 52 |D418 ;AUS R| 00000750: 45 47 49 53 54 45 52 00 77 0F 3E 03 4C 44 41 20 |EGISTER.w.>.LDA | 00000760: 23 24 38 30 20 20 20 20 20 20 20 3B 23 32 37 20 |#$80 ;#27 | 00000770: 44 45 53 20 53 49 44 00 9B 0F 48 03 53 54 41 20 |DES SID...H.STA | 00000780: 24 44 34 30 45 20 20 20 20 20 20 3B 28 52 41 55 |$D40E ;(RAU| 00000790: 53 43 48 47 45 4E 45 52 41 A4 52 00 BE 0F 52 03 |SCHGENERA.R...R.| 000007A0: 53 54 41 20 24 44 34 30 46 20 20 20 20 20 20 3B |STA $D40F ;| 000007B0: 44 45 52 20 33 2E 20 53 54 49 4D 4D 45 29 00 D3 |DER 3. STIMME)..| 000007C0: 0F 66 03 4C 44 41 20 23 24 30 20 20 20 20 20 20 |.f.LDA #$0 | 000007D0: 20 20 3B 00 EB 0F 6B 03 53 54 41 20 24 44 34 31 | ;...k.STA $D41| 000007E0: 32 20 20 20 20 20 20 3B 41 55 53 00 03 10 70 03 |2 ;AUS...p.| 000007F0: 4C 44 41 20 23 24 38 31 20 20 20 20 20 20 20 3B |LDA #$81 ;| 00000800: 45 49 4E 00 18 10 75 03 53 54 41 20 24 44 34 31 |EIN...u.STA $D41| 00000810: 32 20 20 20 20 20 20 3B 00 20 10 7A 03 52 54 53 |2 ;. .z.RTS| 00000820: 00 26 10 7F 03 3B 00 53 10 84 03 42 49 54 53 20 |.&...;.S...BITS | 00000830: 20 20 2E 42 59 54 45 20 24 31 2C 24 32 2C 24 34 | .BYTE $1,$2,$4| 00000840: 2C 24 38 2C 24 31 30 2C 24 32 30 2C 24 34 30 2C |,$8,$10,$20,$40,| 00000850: 24 38 30 00 70 10 8E 03 43 4F 55 4E 54 20 20 2E |$80.p...COUNT .| 00000860: 42 59 54 45 20 24 46 46 2C 24 46 46 2C 24 30 35 |BYTE $FF,$FF,$05| 00000870: 00 84 10 98 03 4D 41 53 4B 20 20 20 2E 42 59 54 |.....MASK .BYT| 00000880: 45 20 24 30 00 99 10 A2 03 53 4F 55 52 43 45 20 |E $0.....SOURCE | 00000890: 2E 42 59 54 45 20 24 45 30 00 AC 10 AC 03 54 41 |.BYTE $E0.....TA| 000008A0: 52 A1 20 2E 42 59 54 45 20 24 32 30 00 00 00 |R. .BYTE $20... |
..#.... * RANDOM COPY - SOURCE TEXT.D...
. * (PROFIMAT).L.... *.B..
.. * (C) 1985 FRAS.J.... *...... * STEPH
AN ARNDT...... * SUEDWESTKORSO 62......
* 1000 BERLIN 41...... *.E....53280,1.R.
...53281,1......".."...(.:...2..9.4096..
.<..OPT OO...F... 828...P.;...Q.R. . $D
41B.'.R.. . $FB.5.S.PUT . $FD.;.W.;.K.X.
; R.OM COPY.Q.Y.;.U.Z.; UEBERTRAGEN EINE
R GRAFIKSEITE...[.; MIT ZUFAELLIGEN PUNK
TEN...\.;...D.LDA #$05...E.STA COUNT.2.C
.F.JSR R.OM.K.G.SEI...H.LDA #53 ;
KERNEL UND...I.STA $1 ;BASIC WEG
...J.;.2.N.START LDA R. ;ZUFALLSZA
HL.B.S.ADC COUNT.1.U.X.STA . ;.S.
..STA PUT ;LOW.BYTES.....LDA R.
;ZUFALLSZAHL.....ADC COUNT...... #%
00011111 ;0.31.U. .STA ..1 ;FUER HI
.BYTE.....STA PUT.1 ;.....;...H.CLC
;.'.R.LDA ..1 ;SOURCE.A
DDRESSE.E...ADC SOURCE ;BERECHNEN.X.
..STA ..1 ;.M...CLC ;...
..LDA PUT.1 ;TAR..ADRESSE.....ADC T
AR. ;BERECHNEN.....STA PUT.1 ;.
E...;...,.LDA R. ;ZUFALLSZAHL...1.
E. #$FF...6.. #%111 ;0.7 FUER...@.T
AX ;.B.J.LDA BITS,X ;ZWEI
ERPOTENZEN.F.T.STA MASK ;PUNKTADRE
SSIE.G.L.^.;.....LDX #$0 ;.....LD
A (.),X ;BYTE HOC...... MASK ;P
UNKT NEHMEN.F...BEQ CL......A (PUT),X
;EINSCHLUERFEN.....STA (PUT),X ;UEBE
RTRAGEN.....JMP NT.".B.CL LDA MASK...G.E
. #$FF.<.L.. (PUT),X.L.Q.STA (PUT),X.R..
.;.C...NT DEC COUNT.Q...BNE START.....DE
C COUNT.1.....BNE START.....DEC COUNT.2.
..&.BNE START...0.;.B.X.LDA SOURCE.N.B.S
TA ..1...V.LDA TAR......STA PUT.1.....LD
A #$0.....STA ......STA PUT.....LDY #0."
...LDX #31.2.J....3.........>...>.2...;.
....6.P.33..='T.>73.3.".'S.6.>.B....'W.6
.>.:;.F......33......>7..>3"%'...73.3."D
'/...>...."C.#..73.3."F.'...5.*..3.3.2..
..............73..;.3"W.....2...........
...2....7J7.......CLI.....;.....RTS.....
;... .R.OM NOP.6.*.LDA #$80 ;ZUFAL
LSZAHL.W.4.STA $D418 ;AUS REGISTER.
W.>.LDA #$80 ;#27 DES SID...H.STA
$D40E ;(RAUSCHGENERA.R...R.STA $D40
F ;DER 3. STIMME).S.F.LDA #$0
;...K.STA $D412 ;AUS...P.LDA #$81
;EIN...U.STA $D412 ;. .Z.RTS
.&..;.S...BITS .BYTE $1,$2,$4,$8,$10,
$20,$40,$80.P...COUNT .BYTE $FF,$FF,$05
.....MASK .BYTE $0.....SOURCE .BYTE $E
0.....TAR. .BYTE $20...
> CLICK IMAGE PREVIEW FOR FULL MODAL