BSP.-QUELLTEXT

FILE INFORMATION

FILENAME(S): BSP.-QUELLTEXT

FILE TYPE(S): PRG

FILE SIZE: 2K

FIRST SEEN: 2025-11-30 01:12:36

APPEARS ON: 3 disk(s)

FILE HASH

5b8a9f9f59cf0a6a052c750642907e8c5ff41fdc75797d3f7a57f030373b2b81

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
HEFT 12 85	BSP.-QUELLTEXT	PRG	C64er	27	5	DOWNLOAD FILE
HEFT 12 85	BSP.-QUELLTEXT	PRG	DuncanTwain	27	5	DOWNLOAD FILE
HEFT 12 85	BSP.-QUELLTEXT	PRG	DuncanTwain	27	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2E 08 1E 00 2E 45  51 20 5A 45 49 43 48 45  |.......EQ ZEICHE|
00000010: 4E 20 3D 20 24 46 43 20  3B 56 41 52 49 41 42 4C  |N = $FC ;VARIABL|
00000020: 45 4E 20 56 45 52 45 49  4E 42 41 52 45 4E 00 43  |EN VEREINBAREN.C|
00000030: 08 28 00 2E 45 51 20 54  45 58 54 4C 4F 20 3D 20  |.(..EQ TEXTLO = |
00000040: 24 46 41 00 58 08 32 00  2E 45 51 20 54 45 58 54  |$FA.X.2..EQ TEXT|
00000050: 48 49 20 3D 20 24 46 42  00 6F 08 3C 00 2E 45 51  |HI = $FB.o.<..EQ|
00000060: 20 43 48 52 4F 55 54 20  3D 20 24 46 46 44 32 00  | CHROUT = $FFD2.|
00000070: 83 08 46 00 2E 45 51 20  47 45 54 20 3D 20 24 46  |..F..EQ GET = $F|
00000080: 46 45 34 00 89 08 50 00  3B 00 AB 08 5A 00 2E 42  |FE4...P.;...Z..B|
00000090: 41 20 24 39 30 30 30 20  3B 53 54 41 52 54 41 44  |A $9000 ;STARTAD|
000000A0: 52 45 53 53 45 3D 24 39  30 30 30 00 B1 08 64 00  |RESSE=$9000...d.|
000000B0: 3B 00 D4 08 6E 00 4C 4F  4F 50 20 4A 53 52 47 45  |;...n.LOOP JSRGE|
000000C0: 54 3B 41 55 46 20 45 49  4E 47 41 42 45 20 57 41  |T;AUF EINGABE WA|
000000D0: 52 54 45 4E 00 FD 08 78  00 20 42 45 51 4C 4F 4F  |RTEN...x. BEQLOO|
000000E0: 50 3B 57 45 4E 4E 20 55  4E 47 4C 45 49 43 48 20  |P;WENN UNGLEICH |
000000F0: 30 20 44 41 4E 4E 20 57  45 49 54 45 52 00 03 09  |0 DANN WEITER...|
00000100: 82 00 3B 00 1E 09 8C 00  20 53 54 41 5A 45 49 43  |..;..... STAZEIC|
00000110: 48 45 4E 3B 55 4E 44 20  4D 45 52 4B 45 4E 00 4B  |HEN;UND MERKEN.K|
00000120: 09 96 00 20 4C 44 58 23  30 30 3B 49 4E 44 45 58  |... LDX#00;INDEX|
00000130: 52 45 47 49 53 54 45 52  20 58 20 4D 49 54 20 30  |REGISTER X MIT 0|
00000140: 20 56 4F 52 42 45 4C 45  47 45 4E 00 85 09 A0 00  | VORBELEGEN.....|
00000150: 4C 4F 4F 50 31 20 4C 44  41 54 41 53 54 45 4E 54  |LOOP1 LDATASTENT|
00000160: 41 42 2C 58 3B 45 52 53  54 45 53 20 5A 45 49 43  |AB,X;ERSTES ZEIC|
00000170: 48 45 4E 20 41 55 53 20  54 41 42 45 4C 4C 45 20  |HEN AUS TABELLE |
00000180: 48 4F 4C 45 4E 00 B1 09  AA 00 20 43 4D 50 5A 45  |HOLEN..... CMPZE|
00000190: 49 43 48 45 4E 3B 55 4E  44 20 4D 49 54 20 5A 45  |ICHEN;UND MIT ZE|
000001A0: 49 43 48 45 4E 20 56 45  52 47 4C 45 49 43 48 45  |ICHEN VERGLEICHE|
000001B0: 4E 00 DA 09 B4 00 20 42  45 51 4C 4F 4F 50 31 45  |N..... BEQLOOP1E|
000001C0: 4E 44 3B 57 45 4E 4E 20  47 4C 45 49 43 48 20 44  |ND;WENN GLEICH D|
000001D0: 41 4E 4E 20 46 45 52 54  49 47 00 09 0A BE 00 20  |ANN FERTIG..... |
000001E0: 43 4D 50 23 22 23 22 3B  53 4F 4E 53 54 20 4D 49  |CMP#"#";SONST MI|
000001F0: 54 20 45 4E 44 45 5A 45  49 43 48 45 4E 20 56 45  |T ENDEZEICHEN VE|
00000200: 52 47 4C 45 49 43 48 45  4E 00 40 0A C8 00 20 42  |RGLEICHEN.@... B|
00000210: 45 51 4C 4F 4F 50 3B 42  45 49 20 55 45 42 45 52  |EQLOOP;BEI UEBER|
00000220: 45 49 4E 53 54 49 4D 4D  55 4E 47 20 57 49 45 44  |EINSTIMMUNG WIED|
00000230: 45 52 20 41 4E 20 44 45  4E 20 41 4E 46 41 4E 47  |ER AN DEN ANFANG|
00000240: 00 67 0A D2 00 20 49 4E  58 3B 53 4F 4E 53 54 20  |.g... INX;SONST |
00000250: 58 2D 52 45 47 49 53 54  45 52 20 55 4D 20 31 20  |X-REGISTER UM 1 |
00000260: 45 52 48 4F 45 45 4E 00  9B 0A DC 00 20 42 4E 45  |ERHOEEN..... BNE|
00000270: 4C 4F 4F 50 31 3B 55 4E  44 20 4D 49 54 20 4E 41  |LOOP1;UND MIT NA|
00000280: 45 43 48 53 54 45 4D 20  5A 45 49 43 48 45 4E 20  |ECHSTEM ZEICHEN |
00000290: 56 45 52 47 4C 45 49 43  48 45 4E 00 A1 0A E6 00  |VERGLEICHEN.....|
000002A0: 3B 00 EB 0A F0 00 4C 4F  4F 50 31 45 4E 44 20 4C  |;.....LOOP1END L|
000002B0: 44 41 46 55 4E 4B 54 41  42 48 49 2C 58 3B 41 42  |DAFUNKTABHI,X;AB|
000002C0: 48 41 45 4E 47 49 47 20  56 4F 4D 20 58 2D 52 45  |HAENGIG VOM X-RE|
000002D0: 47 49 53 54 45 52 20 48  49 2D 42 59 54 45 20 2D  |GISTER HI-BYTE -|
000002E0: 31 20 44 45 52 20 41 4E  5A 55 2D 00 21 0B FA 00  |1 DER ANZU-.!...|
000002F0: 20 50 48 41 3B 53 50 52  49 4E 47 45 4E 44 45 4E  | PHA;SPRINGENDEN|
00000300: 20 46 55 4E 4B 54 49 4F  4E 20 48 4F 4C 45 4E 20  | FUNKTION HOLEN |
00000310: 55 4E 44 20 41 55 46 20  44 45 4E 20 53 54 41 43  |UND AUF DEN STAC|
00000320: 4B 00 51 0B 04 01 20 4C  44 41 46 55 4E 4B 54 41  |K.Q... LDAFUNKTA|
00000330: 42 4C 4F 2C 58 3B 44 41  53 20 47 4C 45 49 43 48  |BLO,X;DAS GLEICH|
00000340: 45 20 46 55 52 20 44 41  53 20 4C 4F 2D 42 59 54  |E FUR DAS LO-BYT|
00000350: 45 00 5A 0B 0E 01 20 50  48 41 00 90 0B 18 01 20  |E.Z... PHA..... |
00000360: 52 54 53 3B 41 4E 20 44  49 45 53 45 52 20 53 54  |RTS;AN DIESER ST|
00000370: 45 4C 4C 45 20 57 49 52  44 20 5A 55 52 20 46 55  |ELLE WIRD ZUR FU|
00000380: 4E 4B 54 49 4F 4E 20 56  45 52 5A 57 45 49 47 54  |NKTION VERZWEIGT|
00000390: 00 96 0B 22 01 3B 00 DF  0B 2C 01 54 41 53 54 45  |...".;...,.TASTE|
000003A0: 31 20 4C 44 58 23 3C 28  54 45 58 54 31 29 3B 4C  |1 LDX#<(TEXT1);L|
000003B0: 4F 2D 42 59 54 45 20 53  54 41 52 54 41 44 52 45  |O-BYTE STARTADRE|
000003C0: 53 53 45 20 44 45 53 20  31 2E 54 45 58 54 45 53  |SSE DES 1.TEXTES|
000003D0: 20 49 4E 53 20 58 2D 52  45 47 49 53 54 45 52 00  | INS X-REGISTER.|
000003E0: 22 0C 36 01 20 4C 44 59  23 3E 28 54 45 58 54 31  |".6. LDY#>(TEXT1|
000003F0: 29 3B 48 49 2D 42 59 54  45 20 53 54 41 52 54 41  |);HI-BYTE STARTA|
00000400: 44 52 45 53 53 45 20 44  45 53 20 31 2E 54 45 58  |DRESSE DES 1.TEX|
00000410: 54 45 53 20 49 4E 53 20  59 2D 52 45 47 49 53 54  |TES INS Y-REGIST|
00000420: 45 52 00 40 0C 40 01 20  4A 4D 50 41 55 53 47 41  |ER.@.@. JMPAUSGA|
00000430: 42 45 3B 54 45 58 54 20  41 55 53 47 45 42 45 4E  |BE;TEXT AUSGEBEN|
00000440: 00 74 0C 4A 01 54 41 53  54 45 32 20 4C 44 58 23  |.t.J.TASTE2 LDX#|
00000450: 3C 28 54 45 58 54 32 29  3B 44 41 53 20 47 4C 45  |<(TEXT2);DAS GLE|
00000460: 49 43 48 45 20 46 55 45  52 20 44 45 4E 20 32 2E  |ICHE FUER DEN 2.|
00000470: 54 45 58 54 00 86 0C 54  01 20 4C 44 59 23 3E 28  |TEXT...T. LDY#>(|
00000480: 54 45 58 54 32 29 00 96  0C 5E 01 20 4A 4D 50 41  |TEXT2)...^. JMPA|
00000490: 55 53 47 41 42 45 00 9C  0C 68 01 3B 00 DB 0C 72  |USGABE...h.;...r|
000004A0: 01 54 41 53 54 45 33 20  52 54 53 3B 42 45 49 20  |.TASTE3 RTS;BEI |
000004B0: 44 49 45 53 45 52 20 54  41 53 54 45 20 49 4E 20  |DIESER TASTE IN |
000004C0: 44 45 4E 20 42 41 53 49  43 49 4E 54 45 52 50 52  |DEN BASICINTERPR|
000004D0: 45 54 45 52 20 56 45 52  5A 57 2E 00 E1 0C 7C 01  |ETER VERZW....|.|
000004E0: 3B 00 1F 0D 86 01 41 55  53 47 41 42 45 20 53 54  |;.....AUSGABE ST|
000004F0: 58 54 45 58 54 4C 4F 3B  4C 4F 2D 42 59 54 45 20  |XTEXTLO;LO-BYTE |
00000500: 44 45 53 20 41 55 53 47  45 57 41 45 48 4C 54 45  |DES AUSGEWAEHLTE|
00000510: 4E 20 54 45 58 54 45 53  20 4D 45 52 4B 45 4E 00  |N TEXTES MERKEN.|
00000520: 4B 0D 90 01 20 53 54 59  54 45 58 54 48 49 3B 44  |K... STYTEXTHI;D|
00000530: 41 53 20 47 4C 45 49 43  48 45 20 46 55 45 52 20  |AS GLEICHE FUER |
00000540: 44 41 53 20 48 49 2D 42  59 54 45 00 7D 0D 9A 01  |DAS HI-BYTE.}...|
00000550: 4C 4F 4F 50 41 55 53 20  4C 44 59 23 30 30 3B 59  |LOOPAUS LDY#00;Y|
00000560: 2D 52 45 47 49 53 54 45  52 20 4D 49 54 20 4E 55  |-REGISTER MIT NU|
00000570: 4C 4C 20 56 4F 52 42 45  4C 45 47 45 4E 00 BA 0D  |LL VORBELEGEN...|
00000580: A4 01 20 4C 44 41 28 54  45 58 54 4C 4F 29 2C 59  |.. LDA(TEXTLO),Y|
00000590: 3B 55 4E 44 20 44 45 4E  20 41 4B 4B 55 20 4D 49  |;UND DEN AKKU MI|
000005A0: 54 20 44 45 4D 20 45 52  53 54 45 4E 20 5A 45 49  |T DEM ERSTEN ZEI|
000005B0: 43 48 45 4E 20 4C 41 44  45 4E 00 E4 0D AE 01 20  |CHEN LADEN..... |
000005C0: 43 4D 50 23 22 23 22 3B  49 53 54 20 44 41 53 20  |CMP#"#";IST DAS |
000005D0: 45 4E 44 45 20 53 43 48  4F 4E 20 45 52 52 45 49  |ENDE SCHON ERREI|
000005E0: 43 48 54 3F 00 09 0E B8  01 20 42 45 51 4C 4F 4F  |CHT?..... BEQLOO|
000005F0: 50 41 55 53 45 3B 57 45  4E 4E 20 4A 41 20 44 41  |PAUSE;WENN JA DA|
00000600: 4E 4E 20 46 45 52 54 49  47 00 2F 0E C2 01 20 4A  |NN FERTIG./... J|
00000610: 53 52 43 48 52 4F 55 54  3B 53 4F 4E 53 54 20 5A  |SRCHROUT;SONST Z|
00000620: 45 49 43 48 45 4E 20 41  55 53 47 45 42 45 4E 00  |EICHEN AUSGEBEN.|
00000630: 68 0E CC 01 20 49 4E 43  54 45 58 54 4C 4F 3B 55  |h... INCTEXTLO;U|
00000640: 4E 44 20 44 45 4E 20 5A  45 49 47 45 52 20 54 45  |ND DEN ZEIGER TE|
00000650: 58 54 4C 4F 20 55 4E 44  20 48 49 20 55 4D 20 31  |XTLO UND HI UM 1|
00000660: 20 45 52 48 4F 45 45 4E  00 78 0E D6 01 20 42 4E  | ERHOEEN.x... BN|
00000670: 45 4C 4F 4F 50 41 55 53  00 87 0E E0 01 20 49 4E  |ELOOPAUS..... IN|
00000680: 43 54 45 58 54 48 49 00  97 0E EA 01 20 4A 4D 50  |CTEXTHI..... JMP|
00000690: 4C 4F 4F 50 41 55 53 00  DC 0E F4 01 4C 4F 4F 50  |LOOPAUS.....LOOP|
000006A0: 41 55 53 45 20 4A 4D 50  4C 4F 4F 50 3B 48 49 45  |AUSE JMPLOOP;HIE|
000006B0: 52 20 57 49 52 44 20 57  49 45 44 45 52 20 41 4E  |R WIRD WIEDER AN|
000006C0: 20 44 45 4E 20 41 4E 46  41 4E 47 20 28 45 49 4E  | DEN ANFANG (EIN|
000006D0: 47 41 42 45 29 20 56 45  52 5A 57 2E 00 E2 0E FE  |GABE) VERZW.....|
000006E0: 01 3B 00 FA 0E 08 02 54  41 53 54 45 4E 54 41 42  |.;.....TASTENTAB|
000006F0: 20 2E 54 58 22 31 32 33  23 22 00 00 0F 12 02 3B  | .TX"123#".....;|
00000700: 00 35 0F 1C 02 46 55 4E  4B 54 41 42 48 49 20 2E  |.5...FUNKTABHI .|
00000710: 42 59 3E 28 54 41 53 54  45 31 2D 31 29 2C 3E 28  |BY>(TASTE1-1),>(|
00000720: 54 41 53 54 45 32 2D 31  29 2C 3E 28 54 41 53 54  |TASTE2-1),>(TAST|
00000730: 45 33 2D 31 29 00 6A 0F  26 02 46 55 4E 4B 54 41  |E3-1).j.&.FUNKTA|
00000740: 42 4C 4F 20 2E 42 59 3C  28 54 41 53 54 45 31 2D  |BLO .BY<(TASTE1-|
00000750: 31 29 2C 3C 28 54 41 53  54 45 32 2D 31 29 2C 3C  |1),<(TASTE2-1),<|
00000760: 28 54 41 53 54 45 33 2D  31 29 00 70 0F 30 02 3B  |(TASTE3-1).p.0.;|
00000770: 00 97 0F 3A 02 54 45 58  54 31 20 2E 54 58 22 44  |...:.TEXT1 .TX"D|
00000780: 49 45 53 20 49 53 54 20  44 45 52 20 45 52 53 54  |IES IST DER ERST|
00000790: 45 20 54 45 58 54 22 00  A6 0F 44 02 20 2E 42 59  |E TEXT"...D. .BY|
000007A0: 31 33 2C 22 23 22 00 AC  0F 4E 02 3B 00 D4 0F 58  |13,"#"...N.;...X|
000007B0: 02 54 45 58 54 32 20 2E  54 58 22 44 49 45 53 20  |.TEXT2 .TX"DIES |
000007C0: 49 53 54 20 44 45 52 20  5A 57 45 49 54 45 20 54  |IST DER ZWEITE T|
000007D0: 45 58 54 22 00 E3 0F 62  02 20 2E 42 59 31 33 2C  |EXT"...b. .BY13,|
000007E0: 22 23 22 00 00 00                                 |"#"...          |

.......EQ ZEICHEN = $FC ;VARIABLEN VEREI
NBAREN.C.(..EQ TEXTLO = $FA.X.2..EQ TEXT
HI = $FB.O.<..EQ CHROUT = $FFD2...F..EQ 
GET = $FFE4...P.;...Z..BA $9000 ;STARTAD
RESSE=$9000...D.;.T.N.LOOP JSRGET;AUF EI
NGABE WARTEN...X. BEQLOOP;WENN UNGLEICH 
0 DANN WEITER.....;..... STAZEICHEN;UND 
MERKEN.K... LDX#00;INDEXREGISTER X MIT 0
 VORBELEGEN... .LOOP1 LDATASTENTAB,X;ERS
TES ZEICHEN AUS TABELLE HOLEN..... CMPZE
ICHEN;UND MIT ZEICHEN VERGLEICHEN.Z... B
EQLOOP1END;WENN GLEICH DANN FERTIG..... 
CMP#"#";SONST MIT ENDEZEICHEN VERGLEICHE
N.@.H. BEQLOOP;BEI UEBEREINSTIMMUNG WIED
ER AN DEN ANFANG.G.R. INX;SONST X-REGIST
ER UM 1 ERHOEEN..... BNELOOP1;UND MIT NA
ECHSTEM ZEICHEN VERGLEICHEN.....;.....LO
OP1END LDAFUNKTABHI,X;ABHAENGIG VOM X-RE
GISTER HI-BYTE -1 DER ANZU-.!... PHA;SPR
INGENDEN FUNKTION HOLEN UND AUF DEN STAC
K.Q... LDAFUNKTABLO,X;DAS GLEICHE FUR DA
S LO-BYTE.Z... PHA..... RTS;AN DIESER ST
ELLE WIRD ZUR FUNKTION VERZWEIGT...".;..
.,.TASTE1 LDX#<(TEXT1);LO-BYTE STARTADRE
SSE DES 1.TEXTES INS X-REGISTER.".6. LDY
#>(TEXT1);HI-BYTE STARTADRESSE DES 1.TEX
TES INS Y-REGISTER.@.@. JMPAUSGABE;TEXT 
AUSGEBEN.T.J.TASTE2 LDX#<(TEXT2);DAS GLE
ICHE FUER DEN 2.TEXT...T. LDY#>(TEXT2)..
.^. JMPAUSGABE...H.;...R.TASTE3 RTS;BEI 
DIESER TASTE IN DEN BASICINTERPRETER VER
ZW....|.;.....AUSGABE STXTEXTLO;LO-BYTE 
DES AUSGEWAEHLTEN TEXTES MERKEN.K... STY
TEXTHI;DAS GLEICHE FUER DAS HI-BYTE.}...
LOOPAUS LDY#00;Y-REGISTER MIT NULL VORBE
LEGEN..... LDA(TEXTLO),Y;UND DEN AKKU MI
T DEM ERSTEN ZEICHEN LADEN..... CMP#"#";
IST DAS ENDE SCHON ERREICHT?..... BEQLOO
PAUSE;WENN JA DANN FERTIG./.B. JSRCHROUT
;SONST ZEICHEN AUSGEBEN.H.L. INCTEXTLO;U
ND DEN ZEIGER TEXTLO UND HI UM 1 ERHOEEN
.X.V. BNELOOPAUS..... INCTEXTHI..... JMP
LOOPAUS.....LOOPAUSE JMPLOOP;HIER WIRD W
IEDER AN DEN ANFANG (EINGABE) VERZW.....
.;.....TASTENTAB .TX"123#".....;.5...FUN
KTABHI .BY>(TASTE1-1),>(TASTE2-1),>(TAST
E3-1).J.&.FUNKTABLO .BY<(TASTE1-1),<(TAS
TE2-1),<(TASTE3-1).P.0.;...:.TEXT1 .TX"D
IES IST DER ERSTE TEXT"...D. .BY13,"#"..
.N.;.T.X.TEXT2 .TX"DIES IST DER ZWEITE T
EXT"...B. .BY13,"#"...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL