BSP.-QUELLTEXT
FILE INFORMATION
FILENAME(S): BSP.-QUELLTEXT
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-12-02 00:13:14
APPEARS ON: 1 disk(s)
FILE HASH
920818a7b30bcfa5bc26c3d4c2599c6250474a3db4b1414549974a95faea1a19
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER 12 85 01 8 | BSP.-QUELLTEXT | PRG | earthshaker | 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 FF FF D2 FF FF FF |N = $FC ;V......| 00000020: FF DD FF FF FF FF FF D2 DD FF FF FF FF FF FF FF |................| 00000030: FF FF FF FF FF E7 FF FF FF E2 FF FF D1 FF FF FF |................| 00000040: FF FF FF FF E2 FF FF FF FF FF E7 FF FF FF E2 FF |................| 00000050: FF D3 FF FF FF FF FF FF FF C0 FF FF FF FF FF E7 |................| 00000060: FF FF FF FF D0 EE ED FF FF FF FF FF FF FF FF FF |................| 00000070: FF FF FF FF FF FF E7 FF D4 FF ED FF FF FF FF FF |................| 00000080: FF FF FF FF 32 FF FF FF FF FF F6 FF FF FF FF FF |....2...........| 00000090: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................| 000000A0: FF FF FF FF FF FF FF FF FF FF FF FF 66 FF FF FF |............f...| 000000B0: FF FF FF FF FF FF FF D0 D0 EF FF FF FF FF D4 FF |................| 000000C0: ED FF FF EE DC FF FF D2 FF D4 FF FF FF FF FF FF |................| 000000D0: FF FF FF FF FF 1A FF 42 FF FF FF FF E6 FF D0 D0 |.......B........| 000000E0: EF FF FF FF FF DD FF EE FF D4 FF FF D2 FF FF FF |................| 000000F0: FF FF FF FF FF DD FF FF FF D2 FF FF FF FF 03 09 |................| 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 B6 FF AA FF FF FF FF FF |ERHOEEN.........| 00000270: FF D0 D0 EF FF FF EE FF FF FF DA D2 ED FF FF FF |................| 00000280: FF FF FF FF FF FF DB FF FF FF D2 FF FF FF DD FF |................| 00000290: FF 9D E8 AD 9F 9D FF AC FF 9D B9 81 8C 11 A9 80 |................| 000002A0: 5C 81 BC 10 F8 88 9F AF AF D0 CC 9D B9 9A 88 9F |\...............| 000002B0: 99 9C A9 DD B9 BC D9 9C A8 FF FF 8F FF 5C 9C A8 |.............\..| 000002C0: FF 9C 9D B9 AD FF AE 88 E9 AF B6 88 FF 1F E8 9D |................| 000002D0: AD FF EC D9 9D E0 88 FF FF 1F A8 FF D9 9E 80 16 |................| 000002E0: C4 88 99 9D E0 88 9C B9 FF DE 1F 80 8C 14 78 80 |..............x.| 000002F0: 88 D8 FF 94 5C EC D8 E8 FF B9 47 45 4E 44 45 4E |....\.....GENDEN| 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 ;V..R..........R ....................Q................... .S..................P................... T...........2........................... ............F..........PP.....T........R .T.............B......PP.........T..R... .........R........;..... 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..........PP.......ZR.... ..........R.....................\....... .PL...........Y......\.................. ...Y........Y...D.............X..X..\.X. ..GENDEN 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,"#"...
> CLICK IMAGE PREVIEW FOR FULL MODAL