BUBBLEFLIESS
FILE INFORMATION
FILENAME(S): BUBBLEFLIESS
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-20 14:30:10
APPEARS ON: 2 disk(s)
FILE HASH
6fcf09936687421571ea8653d9bf10f40be8a95145888bd2f527626327d12a1e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 90571 | BUBBLEFLIESS | PRG | Treasure Chest - Klaus Der Suhler | 12 | 0 | DOWNLOAD FILE |
| 90571 | BUBBLEFLIESS | PRG | BrainSkull, Georg Fuchs 1988 | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 14 2D 30 2D 01 00 3B 42 55 42 42 4C 45 53 4F 52 |.-0-..;BUBBLESOR| 00000010: 54 2D 46 4C 49 45 53 53 4B 4F 4D 4D 41 00 36 2D |T-FLIESSKOMMA.6-| 00000020: 02 00 3B 00 44 2D 03 00 20 2E 42 41 24 43 30 30 |..;.D-.. .BA$C00| 00000030: 30 00 4A 2D 05 00 3B 00 61 2D 0A 00 20 2E 45 51 |0.J-..;.a-.. .EQ| 00000040: 43 48 4B 43 4F 4D 20 3D 20 24 41 45 46 44 00 78 |CHKCOM = $AEFD.x| 00000050: 2D 0B 00 20 2E 45 51 56 41 52 49 41 42 20 3D 20 |-.. .EQVARIAB = | 00000060: 24 42 30 38 42 00 8F 2D 0C 00 20 2E 45 51 4D 45 |$B08B..-.. .EQME| 00000070: 4D 46 41 43 20 3D 20 24 42 42 41 32 00 A6 2D 0D |MFAC = $BBA2..-.| 00000080: 00 20 2E 45 51 43 4D 50 46 41 43 20 3D 20 24 42 |. .EQCMPFAC = $B| 00000090: 43 35 42 00 B9 2D 0E 00 20 2E 45 51 46 4C 41 47 |C5B..-.. .EQFLAG| 000000A0: 20 3D 20 24 41 42 00 CD 2D 0F 00 20 2E 45 51 41 | = $AB..-.. .EQA| 000000B0: 52 52 41 59 20 3D 20 24 35 46 00 DD 2D 10 00 20 |RRAY = $5F..-.. | 000000C0: 2E 45 51 49 20 3D 20 24 41 37 00 ED 2D 11 00 20 |.EQI = $A7..-.. | 000000D0: 2E 45 51 4A 20 3D 20 24 41 39 00 FE 2D 12 00 20 |.EQJ = $A9..-.. | 000000E0: 2E 45 51 4A 31 20 3D 20 24 38 42 00 0E 2E 13 00 |.EQJ1 = $8B.....| 000000F0: 20 2E 45 51 4E 20 3D 20 24 38 44 00 14 2E 14 00 | .EQN = $8D.....| 00000100: 3B 00 2A 2E 15 00 53 54 41 52 54 20 20 4A 53 52 |;.*...START JSR| 00000110: 20 43 48 4B 43 4F 4D 00 4D 2E 16 00 20 4A 53 52 | CHKCOM.M... JSR| 00000120: 56 41 52 49 41 42 20 20 20 20 20 20 20 3B 53 54 |VARIAB ;ST| 00000130: 41 52 54 41 44 52 45 53 53 45 00 74 2E 17 00 20 |ARTADRESSE.t... | 00000140: 4C 44 41 41 52 52 41 59 20 20 20 20 20 20 20 20 |LDAARRAY | 00000150: 3B 44 45 53 20 46 4C 45 44 45 53 20 48 4F 4C 45 |;DES FLEDES HOLE| 00000160: 4E 00 80 2E 18 00 20 4C 44 59 23 30 32 00 89 2E |N..... LDY#02...| 00000170: 19 00 20 43 4C 43 00 AC 2E 19 00 20 41 44 43 28 |.. CLC..... ADC(| 00000180: 41 52 52 41 59 29 2C 59 20 20 20 20 3B 2B 41 52 |ARRAY),Y ;+AR| 00000190: 52 41 59 4C 41 45 4E 47 45 00 D3 2E 1A 00 20 53 |RAYLAENGE..... S| 000001A0: 54 41 4E 20 20 20 20 20 20 20 20 20 20 20 20 3B |TAN ;| 000001B0: 3D 45 4E 44 45 20 44 45 53 20 41 52 52 41 59 53 |=ENDE DES ARRAYS| 000001C0: 00 DC 2E 1B 00 20 49 4E 59 00 EC 2E 1C 00 20 4C |..... INY..... L| 000001D0: 44 41 41 52 52 41 59 2B 31 00 FE 2E 1D 00 20 41 |DAARRAY+1..... A| 000001E0: 44 43 28 41 52 52 41 59 29 2C 59 00 0A 2F 1E 00 |DC(ARRAY),Y../..| 000001F0: 20 53 54 41 4E 2B 31 00 2B 2F 1F 00 20 4C 44 41 | STAN+1.+/.. LDA| 00000200: 4E 20 20 20 20 20 20 20 20 20 20 20 20 3B 5A 45 |N ;ZE| 00000210: 49 47 45 52 20 41 55 46 00 49 2F 20 00 20 53 45 |IGER AUF.I/ . SE| 00000220: 43 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 4C |C ;L| 00000230: 45 54 5A 54 45 53 00 6C 2F 21 00 20 53 42 43 23 |ETZTES.l/!. SBC#| 00000240: 30 35 20 20 20 20 20 20 20 20 20 20 3B 41 52 52 |05 ;ARR| 00000250: 41 59 45 4C 45 4D 45 4E 54 00 89 2F 22 00 20 53 |AYELEMENT../". S| 00000260: 54 41 4E 20 20 20 20 20 20 20 20 20 20 20 20 3B |TAN ;| 00000270: 53 45 54 5A 45 4E 00 AF 2F 23 00 20 42 43 53 4C |SETZEN../#. BCSL| 00000280: 4F 4F 50 31 20 20 20 20 20 20 20 20 3B 28 3D 45 |OOP1 ;(=E| 00000290: 4E 44 45 2D 35 20 42 59 54 45 53 29 00 BB 2F 24 |NDE-5 BYTES)../$| 000002A0: 00 20 44 45 43 4E 2B 31 00 C1 2F 25 00 3B 00 D6 |. DECN+1../%.;..| 000002B0: 2F 26 00 4C 4F 4F 50 31 20 20 4C 44 41 20 41 52 |/&.LOOP1 LDA AR| 000002C0: 52 41 59 00 F6 2F 27 00 20 43 4C 43 20 20 20 20 |RAY../'. CLC | 000002D0: 20 20 20 20 20 20 20 20 20 3B 53 54 41 52 54 20 | ;START | 000002E0: 41 55 46 00 13 30 28 00 20 41 44 43 23 30 37 20 |AUF..0(. ADC#07 | 000002F0: 20 20 20 20 20 20 20 20 20 3B 45 52 53 54 45 53 | ;ERSTES| 00000300: 00 36 30 29 00 20 53 54 41 49 20 20 20 20 20 20 |.60). STAI | 00000310: 20 20 20 20 20 20 3B 41 52 52 41 59 45 4C 45 4D | ;ARRAYELEM| 00000320: 45 4E 54 00 53 30 2A 00 20 4C 44 41 41 52 52 41 |ENT.S0*. LDAARRA| 00000330: 59 2B 31 20 20 20 20 20 20 3B 53 45 54 5A 45 4E |Y+1 ;SETZEN| 00000340: 00 77 30 2B 00 20 41 44 43 23 30 30 20 20 20 20 |.w0+. ADC#00 | 00000350: 20 20 20 20 20 20 3B 28 48 45 41 44 45 52 4C 41 | ;(HEADERLA| 00000360: 45 4E 47 45 00 97 30 2C 00 20 53 54 41 49 2B 31 |ENGE..0,. STAI+1| 00000370: 20 20 20 20 20 20 20 20 20 20 3B 3D 37 20 42 59 | ;=7 BY| 00000380: 54 45 53 29 00 9D 30 2D 00 3B 00 BE 30 2E 00 4C |TES)..0-.;..0..L| 00000390: 4F 4F 50 49 20 20 4C 44 59 20 23 30 30 20 20 20 |OOPI LDY #00 | 000003A0: 3B 53 43 48 4C 45 49 46 45 20 49 00 CB 30 2F 00 |;SCHLEIFE I..0/.| 000003B0: 20 53 54 59 46 4C 41 47 00 E8 30 30 00 20 4C 44 | STYFLAG..00. LD| 000003C0: 41 4E 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 |AN ;F| 000003D0: 4C 20 3D 20 30 00 F2 30 31 00 20 53 54 41 4A 00 |L = 0..01. STAJ.| 000003E0: 0C 31 32 00 20 4C 44 41 4E 2B 31 20 20 20 20 20 |.12. LDAN+1 | 000003F0: 20 20 20 20 20 3B 4A 3D 4E 00 18 31 33 00 20 53 | ;J=N..13. S| 00000400: 54 41 4A 2B 31 00 1E 31 34 00 3B 00 3F 31 35 00 |TAJ+1..14.;.?15.| 00000410: 4C 4F 4F 50 4A 20 20 4C 44 41 20 4A 20 20 20 20 |LOOPJ LDA J | 00000420: 20 3B 53 43 48 4C 45 49 46 45 20 4A 00 48 31 36 | ;SCHLEIFE J.H16| 00000430: 00 20 53 45 43 00 65 31 37 00 20 53 42 43 23 30 |. SEC.e17. SBC#0| 00000440: 35 20 20 20 20 20 20 20 20 20 20 3B 4A 31 3D 4A |5 ;J1=J| 00000450: 2D 31 00 70 31 38 00 20 53 54 41 4A 31 00 79 31 |-1.p18. STAJ1.y1| 00000460: 39 00 20 54 41 58 00 99 31 3A 00 20 4C 44 41 4A |9. TAX..1:. LDAJ| 00000470: 2B 31 20 20 20 20 20 20 20 20 20 20 3B 46 45 4C |+1 ;FEL| 00000480: 44 28 4A 2D 31 29 00 A5 31 3B 00 20 53 42 43 23 |D(J-1)..1;. SBC#| 00000490: 30 30 00 C4 31 3C 00 20 53 54 41 4A 31 2B 31 20 |00..1<. STAJ1+1 | 000004A0: 20 20 20 20 20 20 20 20 3B 4E 41 43 48 20 46 41 | ;NACH FA| 000004B0: 43 00 CD 31 3D 00 20 54 41 59 00 E9 31 3E 00 20 |C..1=. TAY..1>. | 000004C0: 54 58 41 20 20 20 20 20 20 20 20 20 20 20 20 20 |TXA | 000004D0: 3B 48 4F 4C 45 4E 00 F8 31 3F 00 20 4A 53 52 4D |;HOLEN..1?. JSRM| 000004E0: 45 4D 46 41 43 00 1E 32 40 00 20 4C 44 41 4A 20 |EMFAC..2@. LDAJ | 000004F0: 20 20 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 | ;UND | 00000500: 4D 49 54 20 46 45 4C 44 28 4A 29 00 2A 32 41 00 |MIT FELD(J).*2A.| 00000510: 20 4C 44 59 4A 2B 31 00 4C 32 42 00 20 4A 53 52 | LDYJ+1.L2B. JSR| 00000520: 43 4D 50 46 41 43 20 20 20 20 20 20 20 3B 56 45 |CMPFAC ;VE| 00000530: 52 47 4C 45 49 43 48 45 4E 00 74 32 43 00 20 42 |RGLEICHEN.t2C. B| 00000540: 4D 49 57 45 49 54 45 52 20 20 20 20 20 20 20 3B |MIWEITER ;| 00000550: 46 45 4C 44 28 4A 2D 31 29 3C 46 45 4C 44 28 4A |FELD(J-1)<FELD(J| 00000560: 29 00 7A 32 44 00 3B 00 9C 32 45 00 54 41 55 53 |).z2D.;..2E.TAUS| 00000570: 43 48 20 20 49 4E 43 20 46 4C 41 47 20 3B 46 4C |CH INC FLAG ;FL| 00000580: 41 47 20 53 45 54 5A 45 4E 00 A8 32 46 00 20 4C |AG SETZEN..2F. L| 00000590: 44 59 23 30 34 00 BA 32 47 00 4C 31 20 20 4C 44 |DY#04..2G.L1 LD| 000005A0: 41 20 28 4A 29 2C 59 00 DC 32 48 00 20 54 41 58 |A (J),Y..2H. TAX| 000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 46 45 | ;FE| 000005C0: 4C 44 28 4A 29 20 4D 49 54 00 EB 32 49 00 20 4C |LD(J) MIT..2I. L| 000005D0: 44 41 28 4A 31 29 2C 59 00 0B 33 4A 00 20 53 54 |DA(J1),Y..3J. ST| 000005E0: 41 28 4A 29 2C 59 20 20 20 20 20 20 20 20 3B 46 |A(J),Y ;F| 000005F0: 45 4C 44 28 4A 2D 31 29 00 14 33 4B 00 20 54 58 |ELD(J-1)..3K. TX| 00000600: 41 00 33 33 4C 00 20 53 54 41 28 4A 31 29 2C 59 |A.33L. STA(J1),Y| 00000610: 20 20 20 20 20 20 20 3B 54 41 55 53 43 48 45 4E | ;TAUSCHEN| 00000620: 00 3C 33 4D 00 20 44 45 59 00 47 33 4E 00 20 42 |.<3M. DEY.G3N. B| 00000630: 50 4C 4C 31 00 4D 33 4F 00 3B 00 5F 33 50 00 57 |PLL1.M3O.;._3P.W| 00000640: 45 49 54 45 52 20 20 4C 44 41 20 4A 00 68 33 51 |EITER LDA J.h3Q| 00000650: 00 20 53 45 43 00 84 33 52 00 20 53 42 43 23 30 |. SEC..3R. SBC#0| 00000660: 35 20 20 20 20 20 20 20 20 20 20 3B 4A 3D 4A 2D |5 ;J=J-| 00000670: 31 00 8E 33 53 00 20 53 54 41 4A 00 9B 33 54 00 |1..3S. STAJ..3T.| 00000680: 20 42 43 53 45 4E 44 4A 00 A7 33 55 00 20 44 45 | BCSENDJ..3U. DE| 00000690: 43 4A 2B 31 00 AD 33 56 00 3B 00 CF 33 57 00 45 |CJ+1..3V.;..3W.E| 000006A0: 4E 44 4A 20 20 43 4D 50 20 49 20 20 20 20 20 20 |NDJ CMP I | 000006B0: 3B 4A 20 42 49 53 20 41 55 46 20 49 00 F6 33 58 |;J BIS AUF I..3X| 000006C0: 00 20 42 4E 45 4C 4F 4F 50 4A 20 20 20 20 20 20 |. BNELOOPJ | 000006D0: 20 20 3B 48 45 52 55 4E 54 45 52 47 45 5A 41 45 | ;HERUNTERGEZAE| 000006E0: 48 4C 54 00 1B 34 59 00 20 4C 44 41 4A 2B 31 20 |HLT..4Y. LDAJ+1 | 000006F0: 20 20 20 20 20 20 20 20 20 3B 57 45 4E 4E 20 4E | ;WENN N| 00000700: 45 49 4E 2C 20 4D 49 54 00 3C 34 5A 00 20 43 4D |EIN, MIT.<4Z. CM| 00000710: 50 49 2B 31 20 20 20 20 20 20 20 20 20 20 3B 53 |PI+1 ;S| 00000720: 43 48 4C 45 49 46 45 20 4A 00 5F 34 5B 00 20 42 |CHLEIFE J._4[. B| 00000730: 4E 45 4C 4F 4F 50 4A 20 20 20 20 20 20 20 20 3B |NELOOPJ ;| 00000740: 57 45 49 54 45 52 4D 41 43 48 45 4E 00 65 34 5C |WEITERMACHEN.e4\| 00000750: 00 3B 00 8D 34 5D 00 20 4C 44 41 46 4C 41 47 20 |.;..4]. LDAFLAG | 00000760: 20 20 20 20 20 20 20 20 3B 4B 45 49 4E 20 54 41 | ;KEIN TA| 00000770: 55 53 43 48 2C 20 44 41 4E 4E 00 A8 34 5E 00 20 |USCH, DANN..4^. | 00000780: 42 45 51 45 4E 44 45 20 20 20 20 20 20 20 20 20 |BEQENDE | 00000790: 3B 45 4E 44 45 00 AE 34 5F 00 3B 00 B8 34 60 00 |;ENDE..4_.;..4`.| 000007A0: 20 4C 44 41 49 00 D4 34 61 00 20 43 4C 43 20 20 | LDAI..4a. CLC | 000007B0: 20 20 20 20 20 20 20 20 20 20 20 3B 49 3D 49 2B | ;I=I+| 000007C0: 31 00 E0 34 62 00 20 41 44 43 23 30 35 00 EA 34 |1..4b. ADC#05..4| 000007D0: 63 00 20 53 54 41 49 00 F7 34 64 00 20 42 43 43 |c. STAI..4d. BCC| 000007E0: 45 4E 44 49 00 03 35 65 00 20 49 4E 43 49 2B 31 |ENDI..5e. INCI+1| 000007F0: 00 09 35 66 00 3B 00 2A 35 67 00 45 4E 44 49 20 |..5f.;.*5g.ENDI | 00000800: 20 43 4D 50 20 4E 20 20 20 20 20 3B 49 20 42 49 | CMP N ;I BI| 00000810: 53 20 41 55 46 20 4E 00 4E 35 68 00 20 42 4E 45 |S AUF N.N5h. BNE| 00000820: 4C 4F 4F 50 49 20 20 20 20 20 20 20 3B 48 45 52 |LOOPI ;HER| 00000830: 41 55 46 47 45 5A 41 45 48 4C 54 00 72 35 69 00 |AUFGEZAEHLT.r5i.| 00000840: 20 4C 44 41 49 2B 31 20 20 20 20 20 20 20 20 20 | LDAI+1 | 00000850: 3B 57 45 4E 4E 20 4E 45 49 4E 2C 20 4D 49 54 00 |;WENN NEIN, MIT.| 00000860: 92 35 6A 00 20 43 4D 50 4E 2B 31 20 20 20 20 20 |.5j. CMPN+1 | 00000870: 20 20 20 20 3B 53 43 48 4C 45 49 46 45 20 49 00 | ;SCHLEIFE I.| 00000880: B4 35 6B 00 20 42 4E 45 4C 4F 4F 50 49 20 20 20 |.5k. BNELOOPI | 00000890: 20 20 20 20 3B 57 45 49 54 45 52 4D 41 43 48 45 | ;WEITERMACHE| 000008A0: 4E 00 BA 35 6C 00 3B 00 C8 35 6D 00 45 4E 44 45 |N..5l.;..5m.ENDE| 000008B0: 20 20 52 54 53 00 00 00 | RTS... |
.-0-..;BUBBLESORT-FLIESSKOMMA.6-..;.D-..
.BA$C000.J-..;.A-.. .EQCHKCOM = $AEFD.X
-.. .EQVARIAB = $B08B..-.. .EQMEMFAC = $
BBA2..-.. .EQCMPFAC = $BC5B..-.. .EQFLAG
= $AB.M-.. .EQARRAY = $5F..-.. .EQI = $
A7..-.. .EQJ = $A9..-.. .EQJ1 = $8B.....
.EQN = $8D.....;.*...START JSR CHKCOM.
M... JSRVARIAB ;STARTADRESSE.T...
LDAARRAY ;DES FLEDES HOLEN..... L
DY#02..... CLC..... ADC(ARRAY),Y ;+AR
RAYLAENGE.S... STAN ;=ENDE DE
S ARRAYS..... INY..... LDAARRAY+1..... A
DC(ARRAY),Y../.. STAN+1.+/.. LDAN
;ZEIGER AUF.I/ . SEC ;L
ETZTES.L/!. SBC#05 ;ARRAYELEMEN
T../". STAN ;SETZEN../#. BCSL
OOP1 ;(=ENDE-5 BYTES)../$. DECN+1
.A/%.;.V/&.LOOP1 LDA ARRAY../'. CLC
;START AUF..0(. ADC#07
;ERSTES.60). STAI ;ARRAYELEM
ENT.S0*. LDAARRAY+1 ;SETZEN.W0+. AD
C#00 ;(HEADERLAENGE..0,. STAI+1
;=7 BYTES)..0-.;..0..LOOPI LD
Y #00 ;SCHLEIFE I.K0/. STYFLAG..00. LD
AN ;FL = 0..01. STAJ..12. LDA
N+1 ;J=N..13. STAJ+1..14.;.?15.
LOOPJ LDA J ;SCHLEIFE J.H16. SEC.E1
7. SBC#05 ;J1=J-1.P18. STAJ1.Y1
9. TAX..1:. LDAJ+1 ;FELD(J-1)..
1;. SBC#00.D1<. STAJ1+1 ;NACH FA
C.M1=. TAY..1>. TXA ;HOLEN..
1?. JSRMEMFAC..2@. LDAJ ;UND
MIT FELD(J).*2A. LDYJ+1.L2B. JSRCMPFAC
;VERGLEICHEN.T2C. BMIWEITER ;
FELD(J-1)<FELD(J).Z2D.;..2E.TAUSCH INC
FLAG ;FLAG SETZEN..2F. LDY#04..2G.L1 LD
A (J),Y..2H. TAX ;FELD(J) MI
T..2I. LDA(J1),Y..3J. STA(J),Y ;F
ELD(J-1)..3K. TXA.33L. STA(J1),Y ;
TAUSCHEN.<3M. DEY.G3N. BPLL1.M3O.;._3P.W
EITER LDA J.H3Q. SEC..3R. SBC#05
;J=J-1..3S. STAJ..3T. BCSENDJ..3U. DE
CJ+1..3V.;.O3W.ENDJ CMP I ;J BIS A
UF I..3X. BNELOOPJ ;HERUNTERGEZAE
HLT..4Y. LDAJ+1 ;WENN NEIN, MIT
.<4Z. CMPI+1 ;SCHLEIFE J._4[. B
NELOOPJ ;WEITERMACHEN.E4\.;..4].
LDAFLAG ;KEIN TAUSCH, DANN..4^.
BEQENDE ;ENDE..4_.;..4`. LDAI.T4
A. CLC ;I=I+1..4B. ADC#05..4
C. STAI..4D. BCCENDI..5E. INCI+1..5F.;.*
5G.ENDI CMP N ;I BIS AUF N.N5H. BNE
LOOPI ;HERAUFGEZAEHLT.R5I. LDAI+1
;WENN NEIN, MIT..5J. CMPN+1
;SCHLEIFE I..5K. BNELOOPI ;WEI
TERMACHEN..5L.;.H5M.ENDE RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL