BUBBLESTRINGS
FILE INFORMATION
FILENAME(S): BUBBLESTRINGS
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
f18fe817ff562689190a0d4c5651a8731961fa59a54ce20edb2ec5af67d717aa
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | BUBBLESTRINGS | PRG | Treasure Chest - Klaus Der Suhler | 12 | 10 | DOWNLOAD FILE |
| 90571 | BUBBLESTRINGS | PRG | BrainSkull, Georg Fuchs 1988 | 12 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 2C 2D 01 00 3B 42 55 42 42 4C 45 53 4F 52 |.-,-..;BUBBLESOR|
00000010: 54 2D 53 54 52 49 4E 47 53 00 32 2D 02 00 3B 00 |T-STRINGS.2-..;.|
00000020: 40 2D 03 00 20 2E 42 41 24 43 31 30 30 00 46 2D |@-.. .BA$C100.F-|
00000030: 05 00 3B 00 5D 2D 0A 00 20 2E 45 51 43 48 4B 43 |..;.]-.. .EQCHKC|
00000040: 4F 4D 20 3D 20 24 41 45 46 44 00 74 2D 0B 00 20 |OM = $AEFD.t-.. |
00000050: 2E 45 51 56 41 52 49 41 42 20 3D 20 24 42 30 38 |.EQVARIAB = $B08|
00000060: 42 00 87 2D 0C 00 20 2E 45 51 46 4C 41 47 20 3D |B..-.. .EQFLAG =|
00000070: 20 24 41 42 00 9B 2D 0D 00 20 2E 45 51 41 52 52 | $AB..-.. .EQARR|
00000080: 41 59 20 3D 20 24 35 46 00 AB 2D 0E 00 20 2E 45 |AY = $5F..-.. .E|
00000090: 51 49 20 3D 20 24 41 37 00 BB 2D 0F 00 20 2E 45 |QI = $A7..-.. .E|
000000A0: 51 4A 20 3D 20 24 41 39 00 CC 2D 10 00 20 2E 45 |QJ = $A9..-.. .E|
000000B0: 51 4A 31 20 3D 20 24 38 42 00 DC 2D 11 00 20 2E |QJ1 = $8B..-.. .|
000000C0: 45 51 4E 20 3D 20 24 38 44 00 ED 2D 12 00 20 2E |EQN = $8D..-.. .|
000000D0: 45 51 50 4A 20 3D 20 24 46 41 00 FF 2D 13 00 20 |EQPJ = $FA..-.. |
000000E0: 2E 45 51 50 4A 31 20 3D 20 24 46 43 00 0F 2E 14 |.EQPJ1 = $FC....|
000000F0: 00 20 2E 45 51 4C 20 3D 20 24 38 46 00 20 2E 15 |. .EQL = $8F. ..|
00000100: 00 20 2E 45 51 4C 31 20 3D 20 24 46 45 00 26 2E |. .EQL1 = $FE.&.|
00000110: 14 00 3B 00 3C 2E 15 00 53 54 41 52 54 20 20 4A |..;.<...START J|
00000120: 53 52 20 43 48 4B 43 4F 4D 00 5F 2E 16 00 20 4A |SR CHKCOM._... J|
00000130: 53 52 56 41 52 49 41 42 20 20 20 20 20 20 20 3B |SRVARIAB ;|
00000140: 53 54 41 52 54 41 44 52 45 53 53 45 00 86 2E 17 |STARTADRESSE....|
00000150: 00 20 4C 44 41 41 52 52 41 59 20 20 20 20 20 20 |. LDAARRAY |
00000160: 20 20 3B 44 45 53 20 46 4C 45 44 45 53 20 48 4F | ;DES FLEDES HO|
00000170: 4C 45 4E 00 92 2E 18 00 20 4C 44 59 23 30 32 00 |LEN..... LDY#02.|
00000180: 9B 2E 19 00 20 43 4C 43 00 BE 2E 19 00 20 41 44 |.... CLC..... AD|
00000190: 43 28 41 52 52 41 59 29 2C 59 20 20 20 20 3B 2B |C(ARRAY),Y ;+|
000001A0: 41 52 52 41 59 4C 41 45 4E 47 45 00 E5 2E 1A 00 |ARRAYLAENGE.....|
000001B0: 20 53 54 41 4E 20 20 20 20 20 20 20 20 20 20 20 | STAN |
000001C0: 20 3B 3D 45 4E 44 45 20 44 45 53 20 41 52 52 41 | ;=ENDE DES ARRA|
000001D0: 59 53 00 EE 2E 1B 00 20 49 4E 59 00 FE 2E 1C 00 |YS..... INY.....|
000001E0: 20 4C 44 41 41 52 52 41 59 2B 31 00 10 2F 1D 00 | LDAARRAY+1../..|
000001F0: 20 41 44 43 28 41 52 52 41 59 29 2C 59 00 1C 2F | ADC(ARRAY),Y../|
00000200: 1E 00 20 53 54 41 4E 2B 31 00 3D 2F 1F 00 20 4C |.. STAN+1.=/.. L|
00000210: 44 41 4E 20 20 20 20 20 20 20 20 20 20 20 20 3B |DAN ;|
00000220: 5A 45 49 47 45 52 20 41 55 46 00 5B 2F 20 00 20 |ZEIGER AUF.[/ . |
00000230: 53 45 43 20 20 20 20 20 20 20 20 20 20 20 20 20 |SEC |
00000240: 3B 4C 45 54 5A 54 45 53 00 7E 2F 21 00 20 53 42 |;LETZTES.~/!. SB|
00000250: 43 23 30 33 20 20 20 20 20 20 20 20 20 20 3B 41 |C#03 ;A|
00000260: 52 52 41 59 45 4C 45 4D 45 4E 54 00 9B 2F 22 00 |RRAYELEMENT../".|
00000270: 20 53 54 41 4E 20 20 20 20 20 20 20 20 20 20 20 | STAN |
00000280: 20 3B 53 45 54 5A 45 4E 00 C1 2F 23 00 20 42 43 | ;SETZEN../#. BC|
00000290: 53 4C 4F 4F 50 31 20 20 20 20 20 20 20 20 3B 28 |SLOOP1 ;(|
000002A0: 3D 45 4E 44 45 2D 33 20 42 59 54 45 53 29 00 CD |=ENDE-3 BYTES)..|
000002B0: 2F 24 00 20 44 45 43 4E 2B 31 00 D3 2F 25 00 3B |/$. DECN+1../%.;|
000002C0: 00 E8 2F 26 00 4C 4F 4F 50 31 20 20 4C 44 41 20 |../&.LOOP1 LDA |
000002D0: 41 52 52 41 59 00 08 30 27 00 20 43 4C 43 20 20 |ARRAY..0'. CLC |
000002E0: 20 20 20 20 20 20 20 20 20 20 20 3B 53 54 41 52 | ;STAR|
000002F0: 54 20 41 55 46 00 25 30 28 00 20 41 44 43 23 30 |T AUF.%0(. ADC#0|
00000300: 37 20 20 20 20 20 20 20 20 20 20 3B 45 52 53 54 |7 ;ERST|
00000310: 45 53 00 48 30 29 00 20 53 54 41 49 20 20 20 20 |ES.H0). STAI |
00000320: 20 20 20 20 20 20 20 20 3B 41 52 52 41 59 45 4C | ;ARRAYEL|
00000330: 45 4D 45 4E 54 00 65 30 2A 00 20 4C 44 41 41 52 |EMENT.e0*. LDAAR|
00000340: 52 41 59 2B 31 20 20 20 20 20 20 3B 53 45 54 5A |RAY+1 ;SETZ|
00000350: 45 4E 00 89 30 2B 00 20 41 44 43 23 30 30 20 20 |EN..0+. ADC#00 |
00000360: 20 20 20 20 20 20 20 20 3B 28 48 45 41 44 45 52 | ;(HEADER|
00000370: 4C 41 45 4E 47 45 00 A9 30 2C 00 20 53 54 41 49 |LAENGE..0,. STAI|
00000380: 2B 31 20 20 20 20 20 20 20 20 20 20 3B 3D 37 20 |+1 ;=7 |
00000390: 42 59 54 45 53 29 00 AF 30 2D 00 3B 00 D0 30 2E |BYTES)..0-.;..0.|
000003A0: 00 4C 4F 4F 50 49 20 20 4C 44 59 20 23 30 30 20 |.LOOPI LDY #00 |
000003B0: 20 20 3B 53 43 48 4C 45 49 46 45 20 49 00 DD 30 | ;SCHLEIFE I..0|
000003C0: 2F 00 20 53 54 59 46 4C 41 47 00 FA 30 30 00 20 |/. STYFLAG..00. |
000003D0: 4C 44 41 4E 20 20 20 20 20 20 20 20 20 20 20 20 |LDAN |
000003E0: 3B 46 4C 20 3D 20 30 00 04 31 31 00 20 53 54 41 |;FL = 0..11. STA|
000003F0: 4A 00 1E 31 32 00 20 4C 44 41 4E 2B 31 20 20 20 |J..12. LDAN+1 |
00000400: 20 20 20 20 20 20 20 3B 4A 3D 4E 00 2A 31 33 00 | ;J=N.*13.|
00000410: 20 53 54 41 4A 2B 31 00 30 31 34 00 3B 00 51 31 | STAJ+1.014.;.Q1|
00000420: 35 00 4C 4F 4F 50 4A 20 20 4C 44 41 20 4A 20 20 |5.LOOPJ LDA J |
00000430: 20 20 20 3B 53 43 48 4C 45 49 46 45 20 4A 00 5A | ;SCHLEIFE J.Z|
00000440: 31 36 00 20 53 45 43 00 77 31 37 00 20 53 42 43 |16. SEC.w17. SBC|
00000450: 23 30 33 20 20 20 20 20 20 20 20 20 20 3B 4A 31 |#03 ;J1|
00000460: 3D 4A 2D 31 00 82 31 38 00 20 53 54 41 4A 31 00 |=J-1..18. STAJ1.|
00000470: 8B 31 39 00 20 54 41 58 00 AC 31 3A 00 20 4C 44 |.19. TAX..1:. LD|
00000480: 41 4A 2B 31 20 20 20 20 20 20 20 20 20 20 3B 46 |AJ+1 ;F|
00000490: 45 4C 44 24 28 4A 2D 31 29 00 B8 31 3B 00 20 53 |ELD$(J-1)..1;. S|
000004A0: 42 43 23 30 30 00 DB 31 3C 00 20 53 54 41 4A 31 |BC#00..1<. STAJ1|
000004B0: 2B 31 20 20 20 20 20 20 20 20 20 3B 46 45 4C 44 |+1 ;FELD|
000004C0: 24 28 4A 29 20 4D 49 54 00 01 32 3F 00 20 4A 53 |$(J) MIT..2?. JS|
000004D0: 52 56 45 52 47 4C 45 49 43 48 20 20 20 20 3B 46 |RVERGLEICH ;F|
000004E0: 45 4C 44 24 28 4A 2D 31 29 20 56 45 52 2D 00 29 |ELD$(J-1) VER-.)|
000004F0: 32 40 00 3B 20 20 20 20 20 20 20 20 20 20 20 20 |2@.; |
00000500: 20 20 20 20 3B 47 4C 45 49 43 48 45 4E 20 55 4E | ;GLEICHEN UN|
00000510: 44 20 47 47 46 2E 00 48 32 41 00 3B 20 20 20 20 |D GGF..H2A.; |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 3B 54 41 55 | ;TAU|
00000530: 53 43 48 45 4E 00 5A 32 50 00 57 45 49 54 45 52 |SCHEN.Z2P.WEITER|
00000540: 20 20 4C 44 41 20 4A 00 63 32 51 00 20 53 45 43 | LDA J.c2Q. SEC|
00000550: 00 7F 32 52 00 20 53 42 43 23 30 33 20 20 20 20 |..2R. SBC#03 |
00000560: 20 20 20 20 20 20 3B 4A 3D 4A 2D 31 00 89 32 53 | ;J=J-1..2S|
00000570: 00 20 53 54 41 4A 00 96 32 54 00 20 42 43 53 45 |. STAJ..2T. BCSE|
00000580: 4E 44 4A 00 A2 32 55 00 20 44 45 43 4A 2B 31 00 |NDJ..2U. DECJ+1.|
00000590: A8 32 56 00 3B 00 CA 32 57 00 45 4E 44 4A 20 20 |.2V.;..2W.ENDJ |
000005A0: 43 4D 50 20 49 20 20 20 20 20 20 3B 4A 20 42 49 |CMP I ;J BI|
000005B0: 53 20 41 55 46 20 49 00 F1 32 58 00 20 42 4E 45 |S AUF I..2X. BNE|
000005C0: 4C 4F 4F 50 4A 20 20 20 20 20 20 20 20 3B 48 45 |LOOPJ ;HE|
000005D0: 52 55 4E 54 45 52 47 45 5A 41 45 48 4C 54 00 16 |RUNTERGEZAEHLT..|
000005E0: 33 59 00 20 4C 44 41 4A 2B 31 20 20 20 20 20 20 |3Y. LDAJ+1 |
000005F0: 20 20 20 20 3B 57 45 4E 4E 20 4E 45 49 4E 2C 20 | ;WENN NEIN, |
00000600: 4D 49 54 00 37 33 5A 00 20 43 4D 50 49 2B 31 20 |MIT.73Z. CMPI+1 |
00000610: 20 20 20 20 20 20 20 20 20 3B 53 43 48 4C 45 49 | ;SCHLEI|
00000620: 46 45 20 4A 00 5A 33 5B 00 20 42 4E 45 4C 4F 4F |FE J.Z3[. BNELOO|
00000630: 50 4A 20 20 20 20 20 20 20 20 3B 57 45 49 54 45 |PJ ;WEITE|
00000640: 52 4D 41 43 48 45 4E 00 60 33 5C 00 3B 00 88 33 |RMACHEN.`3\.;..3|
00000650: 5D 00 20 4C 44 41 46 4C 41 47 20 20 20 20 20 20 |]. LDAFLAG |
00000660: 20 20 20 3B 4B 45 49 4E 20 54 41 55 53 43 48 2C | ;KEIN TAUSCH,|
00000670: 20 44 41 4E 4E 00 A3 33 5E 00 20 42 45 51 45 4E | DANN..3^. BEQEN|
00000680: 44 45 20 20 20 20 20 20 20 20 20 3B 45 4E 44 45 |DE ;ENDE|
00000690: 00 A9 33 5F 00 3B 00 B3 33 60 00 20 4C 44 41 49 |..3_.;..3`. LDAI|
000006A0: 00 CF 33 61 00 20 43 4C 43 20 20 20 20 20 20 20 |..3a. CLC |
000006B0: 20 20 20 20 20 20 3B 49 3D 49 2B 31 00 DB 33 62 | ;I=I+1..3b|
000006C0: 00 20 41 44 43 23 30 33 00 E5 33 63 00 20 53 54 |. ADC#03..3c. ST|
000006D0: 41 49 00 F2 33 64 00 20 42 43 43 45 4E 44 49 00 |AI..3d. BCCENDI.|
000006E0: FE 33 65 00 20 49 4E 43 49 2B 31 00 04 34 66 00 |.3e. INCI+1..4f.|
000006F0: 3B 00 25 34 67 00 45 4E 44 49 20 20 43 4D 50 20 |;.%4g.ENDI CMP |
00000700: 4E 20 20 20 20 20 3B 49 20 42 49 53 20 41 55 46 |N ;I BIS AUF|
00000710: 20 4E 00 49 34 68 00 20 42 4E 45 4C 4F 4F 50 49 | N.I4h. BNELOOPI|
00000720: 20 20 20 20 20 20 20 3B 48 45 52 41 55 46 47 45 | ;HERAUFGE|
00000730: 5A 41 45 48 4C 54 00 6D 34 69 00 20 4C 44 41 49 |ZAEHLT.m4i. LDAI|
00000740: 2B 31 20 20 20 20 20 20 20 20 20 3B 57 45 4E 4E |+1 ;WENN|
00000750: 20 4E 45 49 4E 2C 20 4D 49 54 00 8D 34 6A 00 20 | NEIN, MIT..4j. |
00000760: 43 4D 50 4E 2B 31 20 20 20 20 20 20 20 20 20 3B |CMPN+1 ;|
00000770: 53 43 48 4C 45 49 46 45 20 49 00 AF 34 6B 00 20 |SCHLEIFE I..4k. |
00000780: 42 4E 45 4C 4F 4F 50 49 20 20 20 20 20 20 20 3B |BNELOOPI ;|
00000790: 57 45 49 54 45 52 4D 41 43 48 45 4E 00 B5 34 6C |WEITERMACHEN..4l|
000007A0: 00 3B 00 C3 34 6D 00 45 4E 44 45 20 20 52 54 53 |.;..4m.ENDE RTS|
000007B0: 00 C9 34 6E 00 3B 00 E0 34 6F 00 56 45 52 47 4C |..4n.;..4o.VERGL|
000007C0: 45 49 43 48 20 20 4C 44 59 20 23 30 30 00 EE 34 |EICH LDY #00..4|
000007D0: 70 00 20 4C 44 41 28 4A 29 2C 59 00 13 35 71 00 |p. LDA(J),Y..5q.|
000007E0: 20 53 54 41 4C 20 20 20 20 20 20 20 20 20 20 20 | STAL |
000007F0: 3B 4C 41 45 4E 47 45 20 46 45 4C 44 24 28 4A 29 |;LAENGE FELD$(J)|
00000800: 00 1C 35 72 00 20 54 41 58 00 2B 35 73 00 20 4C |..5r. TAX.+5s. L|
00000810: 44 41 28 4A 31 29 2C 59 00 52 35 74 00 20 53 54 |DA(J1),Y.R5t. ST|
00000820: 41 4C 31 20 20 20 20 20 20 20 20 20 20 3B 4C 41 |AL1 ;LA|
00000830: 45 4E 47 45 20 46 45 4C 44 24 28 4A 2D 31 29 00 |ENGE FELD$(J-1).|
00000840: 5C 35 75 00 20 43 4D 50 4C 00 80 35 76 00 20 42 |\5u. CMPL..5v. B|
00000850: 43 43 57 45 49 54 45 52 31 20 20 20 20 20 3B 4B |CCWEITER1 ;K|
00000860: 45 49 4E 45 52 45 20 4C 41 45 4E 47 45 00 A3 35 |EINERE LAENGE..5|
00000870: 77 00 20 54 58 41 20 20 20 20 20 20 20 20 20 20 |w. TXA |
00000880: 20 20 3B 5A 55 4D 20 56 45 52 47 4C 45 49 43 48 | ;ZUM VERGLEICH|
00000890: 00 BC 35 78 00 57 45 49 54 45 52 31 20 20 53 54 |..5x.WEITER1 ST|
000008A0: 41 20 4B 4C 45 49 4E 2B 31 00 C5 35 79 00 20 49 |A KLEIN+1..5y. I|
000008B0: 4E 59 00 D3 35 7A 00 20 4C 44 41 28 4A 29 2C 59 |NY..5z. LDA(J),Y|
000008C0: 00 DE 35 7B 00 20 53 54 41 50 4A 00 01 36 7C 00 |..5{. STAPJ..6|.|
000008D0: 20 4C 44 41 28 4A 31 29 2C 59 20 20 20 20 20 20 | LDA(J1),Y |
000008E0: 3B 53 54 52 49 4E 47 50 4F 49 4E 54 45 52 00 0D |;STRINGPOINTER..|
000008F0: 36 7D 00 20 53 54 41 50 4A 31 00 29 36 7E 00 20 |6}. STAPJ1.)6~. |
00000900: 49 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 3B |INY ;|
00000910: 53 45 54 5A 45 4E 00 37 36 7F 00 20 4C 44 41 28 |SETZEN.76.. LDA(|
00000920: 4A 29 2C 59 00 44 36 80 00 20 53 54 41 50 4A 2B |J),Y.D6.. STAPJ+|
00000930: 31 00 53 36 81 00 20 4C 44 41 28 4A 31 29 2C 59 |1.S6.. LDA(J1),Y|
00000940: 00 61 36 82 00 20 53 54 41 50 4A 31 2B 31 00 67 |.a6.. STAPJ1+1.g|
00000950: 36 83 00 3B 00 7C 36 84 00 43 4F 4D 50 41 52 45 |6..;.|6..COMPARE|
00000960: 20 20 4C 44 59 20 23 30 30 00 9E 36 85 00 4C 32 | LDY #00..6..L2|
00000970: 20 20 4C 44 41 20 28 50 4A 31 29 2C 59 20 3B 5A | LDA (PJ1),Y ;Z|
00000980: 45 49 43 48 45 4E 57 45 49 53 45 00 BF 36 86 00 |EICHENWEISE..6..|
00000990: 20 43 4D 50 28 50 4A 29 2C 59 20 20 20 20 20 20 | CMP(PJ),Y |
000009A0: 3B 56 45 52 47 4C 45 49 43 48 45 4E 00 E4 36 87 |;VERGLEICHEN..6.|
000009B0: 00 20 42 45 51 57 45 49 54 45 52 32 20 20 20 20 |. BEQWEITER2 |
000009C0: 20 3B 46 2E 24 28 4A 29 3D 46 2E 24 28 4A 2D 31 | ;F.$(J)=F.$(J-1|
000009D0: 29 00 09 37 88 00 20 42 43 43 57 45 49 54 45 52 |)..7.. BCCWEITER|
000009E0: 33 20 20 20 20 20 3B 46 2E 24 28 4A 29 3C 46 2E |3 ;F.$(J)<F.|
000009F0: 24 28 4A 2D 31 29 00 0F 37 89 00 3B 00 23 37 8A |$(J-1)..7..;.#7.|
00000A00: 00 54 41 55 53 43 48 20 20 4C 44 59 20 23 30 32 |.TAUSCH LDY #02|
00000A10: 00 44 37 8B 00 20 53 54 59 46 4C 41 47 20 20 20 |.D7.. STYFLAG |
00000A20: 20 20 20 20 20 3B 46 4C 41 47 20 53 45 54 5A 45 | ;FLAG SETZE|
00000A30: 4E 00 57 37 8C 00 4C 33 20 20 4C 44 41 20 28 4A |N.W7..L3 LDA (J|
00000A40: 31 29 2C 59 00 60 37 8D 00 20 54 41 58 00 83 37 |1),Y.`7.. TAX..7|
00000A50: 8E 00 20 4C 44 41 28 4A 29 2C 59 20 20 20 20 20 |.. LDA(J),Y |
00000A60: 20 20 3B 53 54 52 49 4E 47 50 4F 49 4E 54 45 52 | ;STRINGPOINTER|
00000A70: 00 92 37 8F 00 20 53 54 41 28 4A 31 29 2C 59 00 |..7.. STA(J1),Y.|
00000A80: B3 37 90 00 20 54 58 41 20 20 20 20 20 20 20 20 |.7.. TXA |
00000A90: 20 20 20 20 3B 56 45 52 54 41 55 53 43 48 45 4E | ;VERTAUSCHEN|
00000AA0: 00 C1 37 91 00 20 53 54 41 28 4A 29 2C 59 00 CA |..7.. STA(J),Y..|
00000AB0: 37 92 00 20 44 45 59 00 D5 37 93 00 20 42 50 4C |7.. DEY..7.. BPL|
00000AC0: 4C 33 00 F8 37 94 00 20 42 4D 49 57 45 49 54 45 |L3..7.. BMIWEITE|
00000AD0: 52 33 20 20 20 20 20 3B 53 50 52 49 4E 47 54 20 |R3 ;SPRINGT |
00000AE0: 49 4D 4D 45 52 00 FE 37 95 00 3B 00 25 38 96 00 |IMMER..7..;.%8..|
00000AF0: 57 45 49 54 45 52 32 20 20 49 4E 59 20 20 20 20 |WEITER2 INY |
00000B00: 3B 4E 41 45 43 48 53 54 45 53 20 5A 45 49 43 48 |;NAECHSTES ZEICH|
00000B10: 45 4E 00 46 38 97 00 4B 4C 45 49 4E 20 20 43 50 |EN.F8..KLEIN CP|
00000B20: 59 20 23 30 30 20 20 3B 56 45 52 47 4C 45 49 43 |Y #00 ;VERGLEIC|
00000B30: 48 45 4E 00 51 38 98 00 20 42 4E 45 4C 32 00 57 |HEN.Q8.. BNEL2.W|
00000B40: 38 99 00 3B 00 7B 38 9A 00 47 4C 45 49 43 48 20 |8..;.{8..GLEICH |
00000B50: 20 4C 44 41 20 4C 20 20 20 3B 44 45 52 20 53 54 | LDA L ;DER ST|
00000B60: 52 49 4E 47 20 4D 49 54 00 9F 38 9B 00 20 43 4D |RING MIT..8.. CM|
00000B70: 50 4C 31 20 20 20 20 20 20 20 20 20 20 3B 44 45 |PL1 ;DE|
00000B80: 52 20 47 52 4F 45 53 53 45 52 45 4E 00 C3 38 9C |R GROESSEREN..8.|
00000B90: 00 20 42 43 43 54 41 55 53 43 48 20 20 20 20 20 |. BCCTAUSCH |
00000BA0: 20 3B 4C 41 45 4E 47 45 20 49 53 54 20 3E 20 21 | ;LAENGE IST > !|
00000BB0: 00 C9 38 9D 00 3B 00 DA 38 9E 00 57 45 49 54 45 |..8..;..8..WEITE|
00000BC0: 52 33 20 20 52 54 53 00 00 00 |R3 RTS... |
.-,-..;BUBBLESORT-STRINGS.2-..;.@-.. .BA
$C100.F-..;.]-.. .EQCHKCOM = $AEFD.T-..
.EQVARIAB = $B08B..-.. .EQFLAG = $AB..-.
. .EQARRAY = $5F..-.. .EQI = $A7..-.. .E
QJ = $A9.L-.. .EQJ1 = $8B..-.. .EQN = $8
D..-.. .EQPJ = $FA..-.. .EQPJ1 = $FC....
. .EQL = $8F. ... .EQL1 = $FE.&...;.<...
START JSR CHKCOM._... JSRVARIAB ;
STARTADRESSE..... LDAARRAY ;DES F
LEDES HOLEN..... LDY#02..... CLC..... AD
C(ARRAY),Y ;+ARRAYLAENGE..... STAN
;=ENDE DES ARRAYS..... INY.....
LDAARRAY+1../.. ADC(ARRAY),Y../.. STAN+
1.=/.. LDAN ;ZEIGER AUF.[/ .
SEC ;LETZTES.~/!. SBC#03
;ARRAYELEMENT../". STAN
;SETZEN.A/#. BCSLOOP1 ;(=ENDE-3
BYTES).M/$. DECN+1.S/%.;../&.LOOP1 LDA
ARRAY..0'. CLC ;START AUF.%0
(. ADC#07 ;ERSTES.H0). STAI
;ARRAYELEMENT.E0*. LDAARRAY+1
;SETZEN..0+. ADC#00 ;(HEADER
LAENGE..0,. STAI+1 ;=7 BYTES)..
0-.;.P0..LOOPI LDY #00 ;SCHLEIFE I..0
/. STYFLAG..00. LDAN ;FL = 0.
.11. STAJ..12. LDAN+1 ;J=N.*13.
STAJ+1.014.;.Q15.LOOPJ LDA J ;SCHL
EIFE J.Z16. SEC.W17. SBC#03 ;J1
=J-1..18. STAJ1..19. TAX..1:. LDAJ+1
;FELD$(J-1)..1;. SBC#00..1<. STAJ1
+1 ;FELD$(J) MIT..2?. JSRVERGLEI
CH ;FELD$(J-1) VER-.)2@.;
;GLEICHEN UND GGF..H2A.;
;TAUSCHEN.Z2P.WEITER LDA J.C2Q. SEC
.2R. SBC#03 ;J=J-1..2S. STAJ..
2T. BCSENDJ..2U. DECJ+1..2V.;.J2W.ENDJ
CMP I ;J BIS AUF I..2X. BNELOOPJ
;HERUNTERGEZAEHLT..3Y. LDAJ+1
;WENN NEIN, MIT.73Z. CMPI+1
;SCHLEIFE J.Z3[. BNELOOPJ ;WEITE
RMACHEN.`3\.;..3]. LDAFLAG ;KEIN
TAUSCH, DANN..3^. BEQENDE ;ENDE
..3_.;..3`. LDAI.O3A. CLC ;I
=I+1..3B. ADC#03..3C. STAI..3D. BCCENDI.
.3E. INCI+1..4F.;.%4G.ENDI CMP N ;I
BIS AUF N.I4H. BNELOOPI ;HERAUFGE
ZAEHLT.M4I. LDAI+1 ;WENN NEIN, M
IT..4J. CMPN+1 ;SCHLEIFE I..4K.
BNELOOPI ;WEITERMACHEN..4L.;.C4M.E
NDE RTS.I4N.;..4O.VERGLEICH LDY #00..4
P. LDA(J),Y..5Q. STAL ;LAENGE
FELD$(J)..5R. TAX.+5S. LDA(J1),Y.R5T. ST
AL1 ;LAENGE FELD$(J-1).\5U. CMP
L..5V. BCCWEITER1 ;KEINERE LAENGE..5
W. TXA ;ZUM VERGLEICH..5X.WEI
TER1 STA KLEIN+1.E5Y. INY.S5Z. LDA(J),Y
..5{. STAPJ..6|. LDA(J1),Y ;STRINGP
OINTER..6}. STAPJ1.)6~. INY ;
SETZEN.76. LDA(J),Y.D6.. STAPJ+1.S6.. L
DA(J1),Y.A6.. STAPJ1+1.G6..;.|6..COMPARE
LDY #00..6..L2 LDA (PJ1),Y ;ZEICHENWE
ISE..6.. CMP(PJ),Y ;VERGLEICHEN..6.
. BEQWEITER2 ;F.$(J)=F.$(J-1)..7.. B
CCWEITER3 ;F.$(J)<F.$(J-1)..7..;.#7.
.TAUSCH LDY #02.D7.. STYFLAG ;FL
AG SETZEN.W7..L3 LDA (J1),Y.`7.. TAX..7
.. LDA(J),Y ;STRINGPOINTER..7.. ST
A(J1),Y..7.. TXA ;VERTAUSCHEN
.A7.. STA(J),Y.J7.. DEY.U7.. BPLL3..7..
BMIWEITER3 ;SPRINGT IMMER..7..;.%8..
WEITER2 INY ;NAECHSTES ZEICHEN.F8..K
LEIN CPY #00 ;VERGLEICHEN.Q8.. BNEL2.W
8..;.{8..GLEICH LDA L ;DER STRING MIT
..8.. CMPL1 ;DER GROESSEREN.C8.
. BCCTAUSCH ;LAENGE IST > !.I8..;.Z
8..WEITER3 RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL