BC.SRC
FILE INFORMATION
FILENAME(S): BC.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 18:06:27
APPEARS ON: 1 disk(s)
FILE HASH
5687b6c03f09a3f245b738255f2df6b248012882cca456044555bedc6b1642e5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIGITAL TALK 05 | BC.SRC | PRG | Xii | 8 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 7C 2F 82 2F 00 00 3B 00 8F 2F 01 00 2E 42 41 24 ||/./..;../...BA$|
00000010: 36 30 30 30 00 A4 2F 02 00 2E 45 51 20 42 43 54 |6000../...EQ BCT|
00000020: 41 42 54 3D 24 37 30 30 30 00 AD 2F 03 00 20 53 |ABT=$7000../.. S|
00000030: 45 49 00 BD 2F 04 00 20 4C 44 41 23 3C 28 49 52 |EI../.. LDA#<(IR|
00000040: 51 29 00 CD 2F 05 00 20 4C 44 59 23 3E 28 49 52 |Q)../.. LDY#>(IR|
00000050: 51 29 00 DB 2F 06 00 20 53 54 41 24 30 33 31 34 |Q)../.. STA$0314|
00000060: 00 E9 2F 07 00 20 53 54 59 24 30 33 31 35 00 EF |../.. STY$0315..|
00000070: 2F 08 00 3B 00 FC 2F 09 00 20 4C 44 41 23 24 37 |/..;../.. LDA#$7|
00000080: 46 00 0A 30 0A 00 20 53 54 41 24 44 43 30 44 00 |F..0.. STA$DC0D.|
00000090: 10 30 0B 00 3B 00 1D 30 0C 00 20 4C 44 41 23 24 |.0..;..0.. LDA#$|
000000A0: 30 31 00 2B 30 0D 00 20 53 54 41 24 44 30 31 41 |01.+0.. STA$D01A|
000000B0: 00 31 30 0E 00 3B 00 3E 30 0F 00 20 4C 44 41 23 |.10..;.>0.. LDA#|
000000C0: 24 30 30 00 4C 30 10 00 20 53 54 41 24 44 30 32 |$00.L0.. STA$D02|
000000D0: 30 00 5A 30 11 00 20 53 54 41 24 44 30 32 31 00 |0.Z0.. STA$D021.|
000000E0: 60 30 12 00 3B 00 69 30 13 00 20 43 4C 49 00 80 |`0..;.i0.. CLI..|
000000F0: 30 14 00 45 4E 44 4C 45 53 53 20 4A 4D 50 45 4E |0..ENDLESS JMPEN|
00000100: 44 4C 45 53 53 00 86 30 15 00 3B 00 9C 30 16 00 |DLESS..0..;..0..|
00000110: 49 52 51 20 4A 53 52 42 4F 52 44 45 52 43 48 41 |IRQ JSRBORDERCHA|
00000120: 52 00 AA 30 17 00 20 4A 4D 50 24 45 41 38 31 00 |R..0.. JMP$EA81.|
00000130: B0 30 18 00 3B 00 D4 30 19 00 3B 44 49 45 20 52 |.0..;..0..;DIE R|
00000140: 4F 55 54 49 4E 45 20 49 53 54 20 41 42 47 45 53 |OUTINE IST ABGES|
00000150: 43 48 4C 4F 53 53 45 4E 2E 00 FD 30 1A 00 3B 20 |CHLOSSEN...0..; |
00000160: 45 53 20 53 4F 4C 4C 54 45 20 45 49 4E 45 20 4E |ES SOLLTE EINE N|
00000170: 45 55 45 20 5A 45 49 43 48 45 4E 54 41 42 45 4C |EUE ZEICHENTABEL|
00000180: 4C 45 00 28 31 1B 00 3B 41 4E 47 45 4C 45 47 54 |LE.(1..;ANGELEGT|
00000190: 20 57 45 52 44 45 4E 2E 20 44 41 46 55 45 52 20 | WERDEN. DAFUER |
000001A0: 49 53 54 20 41 4D 20 41 4E 46 41 4E 47 00 52 31 |IST AM ANFANG.R1|
000001B0: 1C 00 3B 45 49 4E 45 20 56 41 52 49 41 42 4C 45 |..;EINE VARIABLE|
000001C0: 20 4D 49 54 20 44 45 4D 20 4E 41 4D 45 4E 20 22 | MIT DEM NAMEN "|
000001D0: 42 43 54 41 42 54 22 00 78 31 1D 00 3B 41 4E 5A |BCTABT".x1..;ANZ|
000001E0: 55 4C 45 47 45 4E 2C 20 44 49 45 20 44 45 4E 20 |ULEGEN, DIE DEN |
000001F0: 53 54 41 52 54 57 45 52 54 20 44 45 52 00 91 31 |STARTWERT DER..1|
00000200: 1E 00 3B 54 41 42 45 4C 4C 45 20 42 45 49 4E 48 |..;TABELLE BEINH|
00000210: 41 4C 54 45 54 2E 00 B9 31 1F 00 3B 41 55 53 53 |ALTET...1..;AUSS|
00000220: 45 52 44 45 4D 20 4D 55 53 53 20 42 45 49 20 42 |ERDEM MUSS BEI B|
00000230: 43 43 48 41 4E 47 45 28 32 29 20 44 45 52 00 E4 |CCHANGE(2) DER..|
00000240: 31 20 00 3B 57 45 52 54 20 44 45 52 20 53 55 4D |1 .;WERT DER SUM|
00000250: 4D 45 20 41 4C 4C 45 52 20 5A 45 49 4C 45 4E 20 |ME ALLER ZEILEN |
00000260: 45 49 4E 47 45 54 52 41 3D 00 0D 32 21 00 3B 47 |EINGETRA=..2!.;G|
00000270: 45 4E 20 57 45 52 44 45 4E 2E 20 42 45 49 20 42 |EN WERDEN. BEI B|
00000280: 43 43 48 41 4E 47 45 20 4E 4F 43 48 20 45 49 4E |CCHANGE NOCH EIN|
00000290: 45 52 00 19 32 22 00 3B 20 44 41 5A 55 2E 00 1F |ER..2".; DAZU...|
000002A0: 32 23 00 3B 00 36 32 24 00 42 4F 52 44 45 52 43 |2#.;.62$.BORDERC|
000002B0: 48 41 52 20 4C 44 58 23 24 30 30 00 3C 32 25 00 |HAR LDX#$00.<2%.|
000002C0: 3B 00 49 32 26 00 20 4C 44 59 23 24 30 42 00 4F |;.I2&. LDY#$0B.O|
000002D0: 32 27 00 3B 00 5C 32 28 00 20 4C 44 41 23 24 46 |2'.;.\2(. LDA#$F|
000002E0: 41 00 6E 32 29 00 42 43 57 41 20 43 4D 50 24 44 |A.n2).BCWA CMP$D|
000002F0: 30 31 32 00 7B 32 2A 00 20 42 4E 45 42 43 57 41 |012.{2*. BNEBCWA|
00000300: 00 81 32 2B 00 3B 00 8F 32 2C 00 20 53 54 59 24 |..2+.;..2,. STY$|
00000310: 44 30 32 31 00 95 32 2D 00 3B 00 A2 32 2E 00 20 |D021..2-.;..2.. |
00000320: 4C 44 41 23 24 31 33 00 B0 32 2F 00 20 53 54 41 |LDA#$13..2/. STA|
00000330: 24 44 30 31 31 00 B6 32 30 00 3B 00 CD 32 31 00 |$D011..20.;..21.|
00000340: 42 43 4C 4F 4F 50 20 4C 44 41 42 43 54 41 42 54 |BCLOOP LDABCTABT|
00000350: 2C 58 00 DB 32 32 00 20 53 54 41 24 33 46 46 46 |,X..22. STA$3FFF|
00000360: 00 E1 32 33 00 3B 00 F2 32 34 00 20 4C 44 59 42 |..23.;..24. LDYB|
00000370: 43 57 41 49 54 2C 58 00 00 33 35 00 42 43 57 41 |CWAIT,X..35.BCWA|
00000380: 33 20 44 45 59 00 0E 33 36 00 20 42 4E 45 42 43 |3 DEY..36. BNEBC|
00000390: 57 41 33 00 14 33 37 00 3B 00 1D 33 38 00 20 49 |WA3..37.;..38. I|
000003A0: 4E 58 00 29 33 39 00 20 43 50 58 23 32 35 00 38 |NX.)39. CPX#25.8|
000003B0: 33 3A 00 20 42 4E 45 42 43 4C 4F 4F 50 00 3E 33 |3:. BNEBCLOOP.>3|
000003C0: 3B 00 3B 00 44 33 3C 00 3B 00 53 33 3D 00 20 49 |;.;.D3<.;.S3=. I|
000003D0: 4E 43 42 43 4D 45 4D 4F 00 62 33 3E 00 20 44 45 |NCBCMEMO.b3>. DE|
000003E0: 43 42 43 4D 45 4D 4F 00 71 33 3F 00 20 49 4E 43 |CBCMEMO.q3?. INC|
000003F0: 42 43 4D 45 4D 4F 00 80 33 40 00 20 44 45 43 42 |BCMEMO..3@. DECB|
00000400: 43 4D 45 4D 4F 00 86 33 41 00 3B 00 93 33 42 00 |CMEMO..3A.;..3B.|
00000410: 20 4C 44 41 23 24 30 30 00 A1 33 43 00 20 53 54 | LDA#$00..3C. ST|
00000420: 41 24 33 46 46 46 00 A7 33 44 00 3B 00 B4 33 45 |A$3FFF..3D.;..3E|
00000430: 00 20 4C 44 59 23 24 30 38 00 C2 33 46 00 42 43 |. LDY#$08..3F.BC|
00000440: 57 41 34 20 44 45 59 00 D0 33 47 00 20 42 4E 45 |WA4 DEY..3G. BNE|
00000450: 42 43 57 41 34 00 D6 33 48 00 3B 00 E4 33 49 00 |BCWA4..3H.;..3I.|
00000460: 20 53 54 41 24 44 30 32 31 00 F1 33 4A 00 20 4C | STA$D021..3J. L|
00000470: 44 59 23 24 31 42 00 F7 33 4B 00 3B 00 06 34 4C |DY#$1B..3K.;..4L|
00000480: 00 20 49 4E 43 42 43 4D 45 4D 4F 00 14 34 4D 00 |. INCBCMEMO..4M.|
00000490: 20 53 54 59 24 44 30 31 31 00 1A 34 4E 00 3B 00 | STY$D011..4N.;.|
000004A0: 20 34 4F 00 3B 00 34 34 50 00 20 4A 53 52 42 43 | 4O.;.44P. JSRBC|
000004B0: 48 41 52 53 43 52 4F 4C 4C 00 3D 34 51 00 20 52 |HARSCROLL.=4Q. R|
000004C0: 54 53 00 43 34 52 00 3B 00 5A 34 53 00 42 43 48 |TS.C4R.;.Z4S.BCH|
000004D0: 41 52 53 43 52 4F 4C 4C 20 4C 44 41 24 30 32 00 |ARSCROLL LDA$02.|
000004E0: 69 34 54 00 20 42 45 51 42 43 53 43 52 31 00 6F |i4T. BEQBCSCR1.o|
000004F0: 34 55 00 3B 00 7B 34 56 00 20 44 45 43 24 30 32 |4U.;.{4V. DEC$02|
00000500: 00 84 34 57 00 20 52 54 53 00 8A 34 58 00 3B 00 |..4W. RTS..4X.;.|
00000510: 9D 34 59 00 42 43 53 43 52 31 20 4C 44 41 23 24 |.4Y.BCSCR1 LDA#$|
00000520: 30 33 00 A9 34 5A 00 20 53 54 41 24 30 32 00 AF |03..4Z. STA$02..|
00000530: 34 5B 00 3B 00 BC 34 5C 00 20 4C 44 58 23 24 30 |4[.;..4\. LDX#$0|
00000540: 31 00 CB 34 5D 00 20 4C 44 59 42 43 54 41 42 54 |1..4]. LDYBCTABT|
00000550: 00 D1 34 5E 00 3B 00 E9 34 5F 00 42 43 4C 4F 4F |..4^.;..4_.BCLOO|
00000560: 50 32 20 4C 44 41 42 43 54 41 42 54 2C 58 00 FC |P2 LDABCTABT,X..|
00000570: 34 60 00 20 53 54 41 42 43 54 41 42 54 2D 31 2C |4`. STABCTABT-1,|
00000580: 58 00 02 35 61 00 3B 00 0B 35 62 00 20 49 4E 58 |X..5a.;..5b. INX|
00000590: 00 1F 35 63 00 42 43 43 48 41 4E 47 45 20 43 50 |..5c.BCCHANGE CP|
000005A0: 58 31 32 39 00 2F 35 64 00 20 42 4E 45 42 43 4C |X129./5d. BNEBCL|
000005B0: 4F 4F 50 32 00 4B 35 65 00 42 43 43 48 41 4E 47 |OOP2.K5e.BCCHANG|
000005C0: 45 32 20 53 54 59 42 43 54 41 42 54 2B 31 32 38 |E2 STYBCTABT+128|
000005D0: 00 54 35 66 00 20 52 54 53 00 5A 35 67 00 3B 00 |.T5f. RTS.Z5g.;.|
000005E0: 69 35 68 00 42 43 4D 45 4D 4F 20 42 52 4B 00 6F |i5h.BCMEMO BRK.o|
000005F0: 35 69 00 3B 00 80 35 6A 00 42 43 57 41 49 54 20 |5i.;..5j.BCWAIT |
00000600: 2E 42 59 30 38 00 9A 35 6B 00 2E 42 59 20 37 2C |.BY08..5k..BY 7,|
00000610: 38 2C 38 2C 39 2C 39 2C 31 30 2C 38 2C 31 31 00 |8,8,9,9,10,8,11.|
00000620: B4 35 6C 00 2E 42 59 20 38 2C 38 2C 39 2C 39 2C |.5l..BY 8,8,9,9,|
00000630: 31 30 2C 38 2C 31 31 2C 38 00 CE 35 6D 00 2E 42 |10,8,11,8..5m..B|
00000640: 59 20 38 2C 39 2C 39 2C 31 30 2C 38 2C 31 31 2C |Y 8,9,9,10,8,11,|
00000650: 37 2C 38 00 E6 35 6E 00 2E 42 59 20 39 2C 39 2C |7,8..5n..BY 9,9,|
00000660: 38 2C 38 2C 38 2C 38 2C 38 2C 38 00 FE 35 6F 00 |8,8,8,8,8,8..5o.|
00000670: 2E 42 59 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |.BY 8,8,8,8,8,8,|
00000680: 38 2C 38 00 16 36 70 00 2E 42 59 20 38 2C 38 2C |8,8..6p..BY 8,8,|
00000690: 38 2C 38 2C 38 2C 38 2C 38 2C 38 00 2E 36 71 00 |8,8,8,8,8,8..6q.|
000006A0: 2E 42 59 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |.BY 8,8,8,8,8,8,|
000006B0: 38 2C 38 00 46 36 72 00 2E 42 59 20 38 2C 38 2C |8,8.F6r..BY 8,8,|
000006C0: 38 2C 38 2C 38 2C 38 2C 38 2C 38 00 5E 36 73 00 |8,8,8,8,8,8.^6s.|
000006D0: 2E 42 59 20 38 2C 38 2C 38 2C 38 2C 38 2C 38 2C |.BY 8,8,8,8,8,8,|
000006E0: 38 2C 38 00 6C 36 74 00 2E 42 59 20 38 2C 38 2C |8,8.l6t..BY 8,8,|
000006F0: 38 00 72 36 75 00 3B 00 78 36 76 00 3B 00 A3 36 |8.r6u.;.x6v.;..6|
00000700: 77 00 3B 20 44 49 45 53 45 52 20 42 45 52 45 49 |w.; DIESER BEREI|
00000710: 43 48 20 42 45 49 4E 48 41 4C 54 45 54 20 44 49 |CH BEINHALTET DI|
00000720: 45 20 22 54 45 58 54 22 00 B1 36 78 00 3B 20 42 |E "TEXT"..6x.; B|
00000730: 59 54 45 53 2E 2E 00 00 00 |YTES..... |
|/./..;../...BA$6000../...EQ BCTABT=$700
0../.. SEI../.. LDA#<(IRQ).M/.. LDY#>(IR
Q)../.. STA$0314../.. STY$0315../..;../.
. LDA#$7F..0.. STA$DC0D..0..;..0.. LDA#$
01.+0.. STA$D01A.10..;.>0.. LDA#$00.L0..
STA$D020.Z0.. STA$D021.`0..;.I0.. CLI..
0..ENDLESS JMPENDLESS..0..;..0..IRQ JSRB
ORDERCHAR..0.. JMP$EA81..0..;.T0..;DIE R
OUTINE IST ABGESCHLOSSEN...0..; ES SOLLT
E EINE NEUE ZEICHENTABELLE.(1..;ANGELEGT
WERDEN. DAFUER IST AM ANFANG.R1..;EINE
VARIABLE MIT DEM NAMEN "BCTABT".X1..;ANZ
ULEGEN, DIE DEN STARTWERT DER..1..;TABEL
LE BEINHALTET...1..;AUSSERDEM MUSS BEI B
CCHANGE(2) DER..1 .;WERT DER SUMME ALLER
ZEILEN EINGETRA=..2!.;GEN WERDEN. BEI B
CCHANGE NOCH EINER..2".; DAZU...2#.;.62$
.BORDERCHAR LDX#$00.<2%.;.I2&. LDY#$0B.O
2'.;.\2(. LDA#$FA.N2).BCWA CMP$D012.{2*.
BNEBCWA..2+.;..2,. STY$D021..2-.;..2..
LDA#$13..2/. STA$D011..20.;.M21.BCLOOP L
DABCTABT,X..22. STA$3FFF..23.;..24. LDYB
CWAIT,X..35.BCWA3 DEY..36. BNEBCWA3..37.
;..38. INX.)39. CPX#25.83:. BNEBCLOOP.>3
;.;.D3<.;.S3=. INCBCMEMO.B3>. DECBCMEMO.
Q3?. INCBCMEMO..3@. DECBCMEMO..3A.;..3B.
LDA#$00..3C. STA$3FFF..3D.;..3E. LDY#$0
8.B3F.BCWA4 DEY.P3G. BNEBCWA4.V3H.;..3I.
STA$D021..3J. LDY#$1B..3K.;..4L. INCBCM
EMO..4M. STY$D011..4N.;. 4O.;.44P. JSRBC
HARSCROLL.=4Q. RTS.C4R.;.Z4S.BCHARSCROLL
LDA$02.I4T. BEQBCSCR1.O4U.;.{4V. DEC$02
..4W. RTS..4X.;..4Y.BCSCR1 LDA#$03..4Z.
STA$02..4[.;..4\. LDX#$01.K4]. LDYBCTABT
.Q4^.;..4_.BCLOOP2 LDABCTABT,X..4`. STAB
CTABT-1,X..5A.;..5B. INX..5C.BCCHANGE CP
X129./5D. BNEBCLOOP2.K5E.BCCHANGE2 STYBC
TABT+128.T5F. RTS.Z5G.;.I5H.BCMEMO BRK.O
5I.;..5J.BCWAIT .BY08..5K..BY 7,8,8,9,9,
10,8,11..5L..BY 8,8,9,9,10,8,11,8.N5M..B
Y 8,9,9,10,8,11,7,8..5N..BY 9,9,8,8,8,8,
8,8..5O..BY 8,8,8,8,8,8,8,8..6P..BY 8,8,
8,8,8,8,8,8..6Q..BY 8,8,8,8,8,8,8,8.F6R.
.BY 8,8,8,8,8,8,8,8.^6S..BY 8,8,8,8,8,8,
8,8.L6T..BY 8,8,8.R6U.;.X6V.;..6W.; DIES
ER BEREICH BEINHALTET DIE "TEXT"..6X.; B
YTES.....
> CLICK IMAGE PREVIEW FOR FULL MODAL