FLASH-SORT.SRC
FILE INFORMATION
FILENAME(S): FLASH-SORT.SRC
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-11-30 01:12:40
APPEARS ON: 2 disk(s)
FILE HASH
40570695f29cda3e9586bf8ea780660e6a70308cac53caa304007b6d06f2163b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SH 12 86 VORDERS | FLASH-SORT.SRC | PRG | C64er, DuncanTwain | 12 | 9 | DOWNLOAD FILE |
| SH 12 86 VORDERS | FLASH-SORT.SRC | PRG | DuncanTwain | 12 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 64 00 9E 20 39 AC 34 30 39 36 00 1C |....d.. 9.4096..|
00000010: 08 65 00 2E 4F 50 54 20 50 2C 4F 4F 00 32 08 66 |.e..OPT P,OO.2.f|
00000020: 00 AC B2 20 24 43 42 32 30 20 3B 9E 20 35 32 30 |... $CB20 ;. 520|
00000030: 30 30 00 38 08 67 00 3B 00 65 08 68 00 3B AB AB |00.8.g.;.e.h.;..|
00000040: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000050: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000060: AB AB AB AB AB 00 91 08 69 00 3B AB AB AB AB AB |........i.;.....|
00000070: AB AB AB AB 20 51 55 45 4C 4C 54 45 58 54 20 46 |.... QUELLTEXT F|
00000080: 4C 41 53 48 53 B0 54 20 AB AB AB AB AB AB AB AB |LASHS.T ........|
00000090: AB 00 BE 08 6A 00 3B AB AB AB AB AB AB AB AB AB |....j.;.........|
000000A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000000B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 C4 |................|
000000C0: 08 6B 00 3B 00 D5 08 6C 00 54 45 52 4D 20 B2 20 |.k.;...l.TERM . |
000000D0: 24 41 44 39 45 00 E7 08 6D 00 53 54 45 53 54 20 |$AD9E...m.STEST |
000000E0: B2 20 24 41 33 46 42 00 F9 08 6E 00 4B 4F 4D 4D |. $A3FB...n.KOMM|
000000F0: 41 20 B2 20 24 41 45 46 44 00 0B 09 6F 00 43 48 |A . $AEFD...o.CH|
00000100: 52 CB 54 20 B2 20 24 30 30 37 39 00 1A 09 70 00 |R.T . $0079...p.|
00000110: 54 59 50 45 20 B2 20 24 36 44 00 27 09 71 00 8A |TYPE . $6D.'.q..|
00000120: 44 20 B2 20 24 36 45 00 37 09 72 00 4E 55 4D 46 |D . $6E.7.r.NUMF|
00000130: 4C 20 B2 20 24 36 46 00 3D 09 73 00 3B 00 68 09 |L . $6F.=.s.;.h.|
00000140: 74 00 3B AB AB AB AB AB AB 20 53 50 45 49 43 48 |t.;...... SPEICH|
00000150: 45 52 53 54 45 4C C3 20 5A 45 52 4F 50 41 47 45 |ERSTEL. ZEROPAGE|
00000160: 20 AB AB AB AB AB AB AB 00 92 09 75 00 3B AB AB | ..........u.;..|
00000170: AB AB AB AB 20 4E 55 52 20 45 49 4E 86 45 4E 53 |.... NUR EIN.ENS|
00000180: 49 91 41 4C AD 53 54 52 49 4E 47 20 AB AB AB AB |I.AL.STRING ....|
00000190: AB AB 00 98 09 76 00 3B 00 C5 09 77 00 3B AB AB |.....v.;...w.;..|
000001A0: AB AB AB AB AB AB AB AB AB AB AB AB 20 48 41 55 |............ HAU|
000001B0: 50 54 41 52 52 41 59 20 AB AB AB AB AB AB AB AB |PTARRAY ........|
000001C0: AB AB AB AB AB 00 CB 09 78 00 3B 00 EC 09 79 00 |........x.;...y.|
000001D0: 3B 24 46 42 AD 24 46 43 20 B2 20 48 41 55 50 54 |;$FB.$FC . HAUPT|
000001E0: 41 52 52 41 59 20 41 4E 46 41 4E 47 00 0B 0A 7A |ARRAY ANFANG...z|
000001F0: 00 3B 24 46 44 AD 24 46 45 20 B2 20 48 41 55 50 |.;$FD.$FE . HAUP|
00000200: 54 41 52 52 41 59 20 80 45 AA 31 00 2F 0A 7B 00 |TARRAY .E.1./.{.|
00000210: 3B 24 32 32 AD 24 32 33 20 B2 20 41 AB 45 4C 45 |;$22.$23 . A.ELE|
00000220: 4D 45 4E 54 20 48 41 55 50 54 41 52 52 41 59 00 |MENT HAUPTARRAY.|
00000230: 48 0A 7C 00 3B 24 37 31 AD 24 37 32 20 B2 20 42 |H.|.;$71.$72 . B|
00000240: AB 45 4C 45 4D 45 4E 54 00 6E 0A 7D 00 3B 24 32 |.ELEMENT.n.}.;$2|
00000250: 34 AD 24 32 35 20 B2 20 42 AB 45 4C 45 4D 45 4E |4.$25 . B.ELEMEN|
00000260: 54 28 45 49 4E 53 B0 54 49 45 52 45 4E 29 00 8D |T(EINS.TIEREN)..|
00000270: 0A 7E 00 3B 24 32 36 AD 24 32 37 20 B2 20 54 45 |.~.;$26.$27 . TE|
00000280: 49 4C 46 45 4C 44 20 41 4E 46 41 4E 47 00 B0 0A |ILFELD ANFANG...|
00000290: 7F 00 3B 24 35 35 AD 24 35 36 20 B2 20 80 45 AA |..;$55.$56 . .E.|
000002A0: 31 20 44 45 53 20 54 45 49 4C 46 45 4C 44 45 53 |1 DES TEILFELDES|
000002B0: 00 D3 0A 80 00 3B 24 35 42 AB 24 35 44 20 B2 20 |.....;$5B.$5D . |
000002C0: 44 45 53 4B 52 49 50 A4 52 20 41 AB 45 4C 45 4D |DESKRIP.R A.ELEM|
000002D0: 45 4E 54 00 F6 0A 81 00 3B 24 35 45 AB 24 36 30 |ENT.....;$5E.$60|
000002E0: 20 B2 20 44 45 53 4B 52 49 50 A4 52 20 42 AB 45 | . DESKRIP.R B.E|
000002F0: 4C 45 4D 45 4E 54 00 12 0B 82 00 3B 24 36 39 AD |LEMENT.....;$69.|
00000300: 24 36 41 20 B2 20 53 43 48 52 49 54 54 57 45 49 |$6A . SCHRITTWEI|
00000310: 54 45 00 39 0B 83 00 3B 20 20 24 36 44 20 20 20 |TE.9...; $6D |
00000320: B2 20 50 4C 41 54 5A 42 45 44 41 52 46 28 32 2C |. PLATZBEDARF(2,|
00000330: 33 20 4F 44 45 52 20 35 29 00 58 0B 84 00 3B 20 |3 ODER 5).X...; |
00000340: 20 24 36 45 20 20 20 B2 20 8A 44 55 4E 47 53 42 | $6E . .DUNGSB|
00000350: 59 54 45 20 42 45 49 4D 00 7E 0B 85 00 3B 20 20 |YTE BEIM.~...; |
00000360: 20 20 20 20 20 20 20 20 48 41 4C 42 49 45 52 45 | HALBIERE|
00000370: 4E 20 44 45 52 20 53 43 48 52 49 54 54 AB 00 A3 |N DER SCHRITT...|
00000380: 0B 86 00 3B 20 20 20 20 20 20 20 20 20 20 57 45 |...; WE|
00000390: 49 54 45 3B B5 45 47 45 52 20 42 45 4E 4F 45 54 |ITE;.EGER BENOET|
000003A0: 49 47 54 00 C0 0B 87 00 3B 20 20 20 20 20 20 20 |IGT.....; |
000003B0: 20 20 20 53 91 44 45 52 42 45 48 AF 4C 55 4E 47 | S.DERBEH.LUNG|
000003C0: 00 E5 0B 88 00 3B 20 20 24 36 46 20 20 20 B2 20 |.....; $6F . |
000003D0: 46 4C 41 47 20 4E 55 4D 2E AD 53 54 52 49 4E 47 |FLAG NUM..STRING|
000003E0: 41 52 52 41 59 00 06 0C 89 00 3B 20 20 20 20 20 |ARRAY.....; |
000003F0: 20 20 20 20 20 4E 55 4D 2E B2 30 20 53 54 52 49 | NUM..0 STRI|
00000400: 4E 47 B2 24 46 46 00 0C 0C 8A 00 3B 00 39 0C 8B |NG.$FF.....;.9..|
00000410: 00 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............|
00000420: 20 4E 45 42 45 4E 41 52 52 41 59 20 AB AB AB AB | NEBENARRAY ....|
00000430: AB AB AB AB AB AB AB AB AB 00 3F 0C 8C 00 3B 00 |..........?...;.|
00000440: 55 0C 8D 00 3B 24 35 37 AD 24 35 38 20 B2 20 41 |U...;$57.$58 . A|
00000450: 4E 46 41 4E 47 00 69 0C 8E 00 3B 24 35 39 AD 24 |NFANG.i...;$59.$|
00000460: 35 41 20 B2 20 80 45 AA 31 00 82 0C 8F 00 3B 24 |5A . .E.1.....;$|
00000470: 36 31 AD 24 36 32 20 B2 20 41 AB 45 4C 45 4D 45 |61.$62 . A.ELEME|
00000480: 4E 54 00 9B 0C 90 00 3B 24 34 42 AD 24 34 43 20 |NT.....;$4B.$4C |
00000490: B2 20 42 AB 45 4C 45 4D 45 4E 54 00 C1 0C 91 00 |. B.ELEMENT.....|
000004A0: 3B 24 36 33 AD 24 36 34 20 B2 20 42 AB 45 4C 45 |;$63.$64 . B.ELE|
000004B0: 4D 45 4E 54 28 45 49 4E 53 B0 54 49 45 52 45 4E |MENT(EINS.TIEREN|
000004C0: 29 00 DF 0C 92 00 3B 24 32 38 AD 24 32 39 20 B2 |).....;$28.$29 .|
000004D0: 20 54 45 49 4C 46 45 4C 44 42 45 47 49 4E 4E 00 | TEILFELDBEGINN.|
000004E0: 04 0D 93 00 3B 20 20 20 20 20 20 20 20 20 20 28 |....; (|
000004F0: 54 45 49 4C 46 45 4C 44 80 45 20 55 4E 4E 4F 45 |TEILFELD.E UNNOE|
00000500: 54 49 47 29 00 20 0D 94 00 3B 24 36 42 AD 24 36 |TIG). ...;$6B.$6|
00000510: 43 20 B2 20 53 43 48 52 49 54 54 57 45 49 54 45 |C . SCHRITTWEITE|
00000520: 00 47 0D 95 00 3B 20 20 24 31 34 20 20 20 B2 20 |.G...; $14 . |
00000530: 50 4C 41 54 5A 42 45 44 41 52 46 28 32 2C 33 20 |PLATZBEDARF(2,3 |
00000540: 4F 44 45 52 20 35 29 00 61 0D 96 00 3B 20 20 24 |ODER 5).a...; $|
00000550: 31 35 20 20 20 B2 20 8A 44 55 4E 47 53 42 59 54 |15 . .DUNGSBYT|
00000560: 45 00 87 0D 97 00 3B 20 20 20 20 20 20 20 20 20 |E.....; |
00000570: 20 57 49 45 20 24 36 44 AD 24 36 45 20 48 41 55 | WIE $6D.$6E HAU|
00000580: 50 54 41 52 52 41 59 00 B4 0D 98 00 3B AB AB AB |PTARRAY.....;...|
00000590: AB AB AB AB AB AB AB AB AB AB AB AB AB 20 53 54 |............. ST|
000005A0: 41 52 54 20 AB AB AB AB AB AB AB AB AB AB AB AB |ART ............|
000005B0: AB AB AB AB 00 BA 0D 99 00 3B 00 CF 0D 9A 00 4C |.........;.....L|
000005C0: 44 41 20 23 33 3B 53 54 41 43 4B 20 41 55 46 00 |DA #3;STACK AUF.|
000005D0: EB 0D 9B 00 4A 53 52 20 53 54 45 53 54 3B 36 20 |....JSR STEST;6 |
000005E0: 42 59 54 45 20 54 45 53 54 45 4E 00 05 0E 9C 00 |BYTE TESTEN.....|
000005F0: 4A 53 52 20 41 52 52 41 59 3B 31 2E 41 52 52 41 |JSR ARRAY;1.ARRA|
00000600: 59 20 48 4F C3 00 0D 0E 9D 00 54 58 41 00 20 0E |Y HO......TXA. .|
00000610: 9E 00 50 48 41 3B 54 59 50 20 4D 45 52 4B 45 4E |..PHA;TYP MERKEN|
00000620: 00 2B 0E 9F 00 4C 44 58 20 23 33 00 4C 0E A0 00 |.+...LDX #3.L...|
00000630: 53 45 54 41 52 20 4C 44 41 20 24 35 37 2C 58 3B |SETAR LDA $57,X;|
00000640: 41 52 52 41 59 47 52 45 4E 5A 45 4E 00 65 0E A1 |ARRAYGRENZEN.e..|
00000650: 00 53 54 41 20 24 46 42 2C 58 3B 48 41 55 50 54 |.STA $FB,X;HAUPT|
00000660: 41 52 52 41 59 00 6D 0E A2 00 44 45 58 00 7B 0E |ARRAY.m...DEX.{.|
00000670: A3 00 42 50 4C 20 53 45 54 41 52 00 83 0E A4 00 |..BPL SETAR.....|
00000680: 49 4E 58 00 9B 0E A5 00 4C 44 41 20 46 4C 41 47 |INX.....LDA FLAG|
00000690: 31 3B 32 20 86 2E 41 52 52 41 59 00 AF 0E A6 00 |1;2 ..ARRAY.....|
000006A0: 42 45 51 20 53 45 54 41 52 31 3B 4E 45 49 4E 00 |BEQ SETAR1;NEIN.|
000006B0: CE 0E A7 00 4C 44 41 20 46 4C 41 47 3B 4A 41 2C |....LDA FLAG;JA,|
000006C0: 54 45 53 54 20 41 55 46 20 54 45 49 4C AB 00 E6 |TEST AUF TEIL...|
000006D0: 0E A8 00 50 48 50 3B 42 45 52 45 49 43 48 3B 57 |...PHP;BEREICH;W|
000006E0: 45 4E 4E 20 4A 41 00 02 0F A9 00 42 45 51 20 4E |ENN JA.....BEQ N|
000006F0: B0 4D 41 4C 3B 80 45 20 55 4E 44 20 41 4E 5A 41 |.MAL;.E UND ANZA|
00000700: 48 4C 00 1E 0F AA 00 53 54 58 20 46 4C 41 47 31 |HL.....STX FLAG1|
00000710: 3B 45 4C 45 4D 45 4E 54 45 20 32 2E 86 2E 00 2F |;ELEMENTE 2..../|
00000720: 0F AB 00 4A 53 52 20 41 52 52 33 3B 48 4F C3 00 |...JSR ARR3;HO..|
00000730: 43 0F AC 00 4E B0 4D 41 4C 20 4A 53 52 20 50 4C |C...N.MAL JSR PL|
00000740: 41 54 5A 00 60 0F AD 00 53 54 41 20 24 36 32 3B |ATZ.`...STA $62;|
00000750: 47 45 53 2E 50 4C 41 54 5A 20 44 49 56 49 44 2E |GES.PLATZ DIVID.|
00000760: 00 79 0F AE 00 53 54 58 20 24 36 33 3B 44 55 52 |.y...STX $63;DUR|
00000770: 43 48 20 41 4E 5A 41 48 4C 00 94 0F AF 00 4C 44 |CH ANZAHL.....LD|
00000780: 58 20 23 24 39 30 3B 45 4C 45 4D 45 4E 54 45 20 |X #$90;ELEMENTE |
00000790: 32 2E 86 2E 00 AA 0F B0 00 53 45 43 3B 20 B2 20 |2........SEC; . |
000007A0: 4F 46 46 53 45 54 20 41 55 46 00 C6 0F B1 00 4A |OFFSET AUF.....J|
000007B0: 53 52 20 24 42 43 34 39 3B 44 41 53 20 31 2E 45 |SR $BC49;DAS 1.E|
000007C0: 4C 45 4D 45 4E 54 00 E1 0F B2 00 4A 53 52 20 24 |LEMENT.....JSR $|
000007D0: 42 43 30 43 3B 44 45 52 20 32 2E 86 45 4E 53 49 |BC0C;DER 2..ENSI|
000007E0: 91 00 EF 0F B3 00 4C 44 59 20 46 4C 41 47 31 00 |......LDY FLAG1.|
000007F0: FD 0F B4 00 42 45 51 20 46 45 48 4C 46 00 0B 10 |....BEQ FEHLF...|
00000800: B5 00 4A 53 52 20 24 42 33 41 32 00 17 10 B6 00 |..JSR $B3A2.....|
00000810: 4C 44 41 20 24 36 31 00 25 10 B7 00 4A 53 52 20 |LDA $61.%...JSR |
00000820: 24 42 42 31 32 00 33 10 B8 00 4A 53 52 20 24 42 |$BB12.3...JSR $B|
00000830: 37 46 37 00 49 10 B9 00 53 54 59 20 4F 4C 3B 4F |7F7.I...STY OL;O|
00000840: 46 46 53 45 54 20 4C 4F 57 00 60 10 BA 00 53 54 |FFSET LOW.`...ST|
00000850: 41 20 4F 48 3B 4F 46 46 53 45 54 20 48 49 47 48 |A OH;OFFSET HIGH|
00000860: 00 68 10 BB 00 54 41 58 00 70 10 BC 00 54 59 41 |.h...TAX.p...TYA|
00000870: 00 78 10 BD 00 43 4C 43 00 84 10 BE 00 41 44 43 |.x...CLC.....ADC|
00000880: 20 24 35 37 00 8C 10 BF 00 54 41 59 00 94 10 C0 | $57.....TAY....|
00000890: 00 54 58 41 00 A0 10 C1 00 41 44 43 20 24 35 38 |.TXA.....ADC $58|
000008A0: 00 B6 10 C2 00 50 4C 50 3B 4E 55 52 20 54 45 49 |.....PLP;NUR TEI|
000008B0: 4C 41 52 52 41 59 00 CA 10 C3 00 42 45 51 20 53 |LARRAY.....BEQ S|
000008C0: 45 54 41 52 41 3B 4E 45 49 4E 00 E5 10 C4 00 43 |ETARA;NEIN.....C|
000008D0: 4D 50 20 24 46 45 3B 54 45 53 54 2C 4F 42 20 41 |MP $FE;TEST,OB A|
000008E0: 4E 47 41 42 45 00 01 11 C5 00 42 43 43 20 46 45 |NGABE.....BCC FE|
000008F0: 48 4C 46 3B 31 2E 45 4C 45 4D 45 4E 54 20 44 45 |HLF;1.ELEMENT DE|
00000900: 52 00 1C 11 C6 00 42 4E 45 20 53 45 54 41 52 30 |R.....BNE SETAR0|
00000910: 3B 32 2E 86 45 4E 53 2E 20 B2 30 21 00 39 11 C7 |;2..ENS. .0!.9..|
00000920: 00 43 50 59 20 24 46 44 3B 57 45 4E 4E 20 4E 45 |.CPY $FD;WENN NE|
00000930: 49 4E 2C 46 45 48 4C 45 52 00 48 11 C8 00 42 43 |IN,FEHLER.H...BC|
00000940: 53 20 53 45 54 41 52 30 00 5D 11 C9 00 46 45 48 |S SETAR0.]...FEH|
00000950: 4C 46 20 4A 4D 50 20 46 45 48 4C 45 52 00 7D 11 |LF JMP FEHLER.}.|
00000960: CA 00 53 45 54 41 52 41 20 53 54 41 20 24 46 45 |..SETARA STA $FE|
00000970: 3B 47 41 4E 5A 45 53 20 41 52 52 41 59 00 97 11 |;GANZES ARRAY...|
00000980: CB 00 53 54 59 20 24 46 44 3B 80 45 20 4E 45 55 |..STY $FD;.E NEU|
00000990: 20 53 45 54 5A 45 4E 00 C4 11 CC 00 3B AB AB AB | SETZEN.....;...|
000009A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000009B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000009C0: AB AB AB AB 00 E1 11 CD 00 53 45 54 41 52 30 20 |.........SETAR0 |
000009D0: 4C 44 58 20 23 30 3B 96 41 55 4C 54 20 46 55 45 |LDX #0;.AULT FUE|
000009E0: 52 00 01 12 CE 00 53 45 54 41 52 31 20 53 54 58 |R.....SETAR1 STX|
000009F0: 20 24 31 34 3B 4B 45 49 4E 20 32 2E 41 52 52 41 | $14;KEIN 2.ARRA|
00000A00: 59 00 0F 12 CF 00 4A 53 52 20 43 48 52 CB 54 00 |Y.....JSR CHR.T.|
00000A10: 1B 12 D0 00 42 45 51 20 44 45 4C 00 34 12 D1 00 |....BEQ DEL.4...|
00000A20: 4A 53 52 20 41 52 52 31 3B 32 2E 41 52 52 41 59 |JSR ARR1;2.ARRAY|
00000A30: 20 48 4F C3 00 4D 12 D2 00 54 58 41 3B 50 4C 41 | HO..M...TXA;PLA|
00000A40: 54 5A 42 45 44 41 52 46 20 4E 41 43 48 00 61 12 |TZBEDARF NACH.a.|
00000A50: D3 00 53 54 41 20 24 31 34 3B 24 31 34 20 55 4E |..STA $14;$14 UN|
00000A60: 44 00 74 12 D4 00 4C 53 52 3B 8A 44 55 4E 47 53 |D.t...LSR;.DUNGS|
00000A70: 42 59 54 45 00 8B 12 D5 00 42 43 53 20 53 45 54 |BYTE.....BCS SET|
00000A80: 52 3B 42 45 52 45 43 48 4E 45 4E 00 A0 12 D6 00 |R;BERECHNEN.....|
00000A90: 4C 44 41 20 23 24 46 46 3B AB B5 45 47 45 52 AB |LDA #$FF;..EGER.|
00000AA0: 00 BC 12 D7 00 53 45 54 52 20 53 54 41 20 24 31 |.....SETR STA $1|
00000AB0: 35 3B 4E 45 42 45 4E 41 52 52 41 59 00 D6 12 D8 |5;NEBENARRAY....|
00000AC0: 00 54 58 41 3B 53 54 41 52 54 53 43 48 52 49 54 |.TXA;STARTSCHRIT|
00000AD0: 54 57 45 49 54 45 00 EF 12 D9 00 41 53 4C 3B 41 |TWEITE.....ASL;A|
00000AE0: 55 46 20 35 31 31 20 45 4C 45 4D 45 4E 54 45 00 |UF 511 ELEMENTE.|
00000AF0: 06 13 DA 00 54 41 58 3B 48 49 47 48 B2 50 4C 41 |....TAX;HIGH.PLA|
00000B00: 54 5A AC 32 AB 31 00 0E 13 DB 00 44 45 58 00 1A |TZ.2.1.....DEX..|
00000B10: 13 DC 00 53 54 58 20 24 36 43 00 33 13 DD 00 4C |...STX $6C.3...L|
00000B20: 44 41 20 23 30 3B 4C 4F 57 B2 32 35 36 AB 50 4C |DA #0;LOW.256.PL|
00000B30: 41 54 5A 00 3B 13 DE 00 53 45 43 00 47 13 DF 00 |ATZ.;...SEC.G...|
00000B40: 53 42 43 20 24 31 34 00 53 13 E0 00 53 54 41 20 |SBC $14.S...STA |
00000B50: 24 36 42 00 62 13 E1 00 4A 53 52 20 47 50 4C 41 |$6B.b...JSR GPLA|
00000B60: 54 5A 00 7B 13 E2 00 50 4C 41 3B 54 45 53 54 20 |TZ.{...PLA;TEST |
00000B70: 41 55 46 20 47 4C 45 49 43 48 45 00 8D 13 E3 00 |AUF GLEICHE.....|
00000B80: 50 48 41 3B 41 4E 5A 41 48 4C 20 56 91 00 A4 13 |PHA;ANZAHL V....|
00000B90: E4 00 4A 53 52 20 54 45 53 54 3B 45 4C 45 4D 45 |..JSR TEST;ELEME|
00000BA0: 4E 54 45 4E 00 D1 13 E5 00 3B AB AB AB AB AB AB |NTEN.....;......|
00000BB0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000BC0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000BD0: AB 00 EA 13 E6 00 44 45 4C 20 4C 44 59 20 23 30 |......DEL LDY #0|
00000BE0: 3B 96 41 55 4C 54 57 45 52 54 00 02 14 E7 00 53 |;.AULTWERT.....S|
00000BF0: 54 59 20 24 32 41 3B 4E 55 4D 45 52 2E 41 52 52 |TY $2A;NUMER.ARR|
00000C00: 41 59 00 1B 14 E8 00 50 4C 41 3B 46 55 45 52 20 |AY.....PLA;FUER |
00000C10: 4D 49 54 53 B0 54 49 45 52 45 4E 00 28 14 E9 00 |MITS.TIEREN.(...|
00000C20: 53 54 41 20 54 59 50 45 00 3F 14 EA 00 43 4D 50 |STA TYPE.?...CMP|
00000C30: 20 23 33 3B 4E 55 4D 45 52 2E 41 52 52 41 59 00 | #3;NUMER.ARRAY.|
00000C40: 51 14 EB 00 42 45 51 20 44 45 4C 30 3B 4E 45 49 |Q...BEQ DEL0;NEI|
00000C50: 4E 00 6B 14 EC 00 4C 44 58 20 46 4C 41 47 31 3B |N.k...LDX FLAG1;|
00000C60: 4A 41 2C 54 45 53 54 20 41 55 46 00 85 14 ED 00 |JA,TEST AUF.....|
00000C70: 42 4E 45 20 46 45 48 4C 46 3B 45 49 4E 86 45 4E |BNE FEHLF;EIN.EN|
00000C80: 53 49 91 41 4C 00 94 14 EE 00 42 45 51 20 53 54 |SI.AL.....BEQ ST|
00000C90: 41 52 54 30 00 C1 14 EF 00 3B AB AB AB AB AB AB |ART0.....;......|
00000CA0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000CB0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000CC0: AB 00 DE 14 F0 00 44 45 4C 30 20 4C 44 41 20 24 |......DEL0 LDA $|
00000CD0: 46 44 3B 4C 45 45 52 53 54 52 49 4E 47 53 00 F4 |FD;LEERSTRINGS..|
00000CE0: 14 F1 00 4C 44 58 20 24 46 45 3B 41 4D 20 80 45 |...LDX $FE;AM .E|
00000CF0: 20 44 45 53 00 12 15 F2 00 44 45 4C 31 20 53 45 | DES.....DEL1 SE|
00000D00: 43 3B 41 52 52 41 59 53 20 45 4E 54 46 45 52 4E |C;ARRAYS ENTFERN|
00000D10: 45 4E 00 2D 15 F3 00 53 42 43 20 23 33 3B 4E 55 |EN.-...SBC #3;NU|
00000D20: 52 20 57 45 4E 4E 20 48 41 55 50 54 AB 00 47 15 |R WENN HAUPT..G.|
00000D30: F4 00 42 43 53 20 44 45 4C 32 3B 41 52 52 41 59 |..BCS DEL2;ARRAY|
00000D40: 20 53 54 52 49 4E 47 00 4F 15 F5 00 44 45 58 00 | STRING.O...DEX.|
00000D50: 60 15 F6 00 44 45 4C 32 20 53 54 41 20 24 35 35 |`...DEL2 STA $55|
00000D60: 00 6C 15 F7 00 53 54 58 20 24 35 36 00 7C 15 F8 |.l...STX $56.|..|
00000D70: 00 4C 44 41 20 28 24 35 35 29 2C 59 00 9A 15 F9 |.LDA ($55),Y....|
00000D80: 00 42 4E 45 20 53 54 41 52 54 3B 4B 45 49 4E 20 |.BNE START;KEIN |
00000D90: 4C 45 45 52 53 54 52 49 4E 47 00 B1 15 FA 00 4C |LEERSTRING.....L|
00000DA0: 44 41 20 24 35 39 3B 4E 45 42 45 4E 41 52 52 41 |DA $59;NEBENARRA|
00000DB0: 59 00 C5 15 FB 00 53 45 43 3B 56 45 52 4B 4C 45 |Y.....SEC;VERKLE|
00000DC0: 49 4E 45 52 4E 00 D1 15 FC 00 53 42 43 20 24 31 |INERN.....SBC $1|
00000DD0: 34 00 DD 15 FD 00 53 54 41 20 24 35 39 00 EA 15 |4.....STA $59...|
00000DE0: FE 00 42 43 53 20 44 45 4C 33 00 F6 15 FF 00 44 |..BCS DEL3.....D|
00000DF0: 45 43 20 24 35 41 00 12 16 00 01 44 45 4C 33 20 |EC $5A.....DEL3 |
00000E00: 53 54 58 20 24 46 45 3B 48 41 55 50 54 41 52 52 |STX $FE;HAUPTARR|
00000E10: 41 59 00 2A 16 01 01 4C 44 41 20 24 35 35 3B 56 |AY.*...LDA $55;V|
00000E20: 45 52 4B 4C 45 49 4E 45 52 4E 00 36 16 02 01 53 |ERKLEINERN.6...S|
00000E30: 54 41 20 24 46 44 00 51 16 03 01 43 4D 50 20 24 |TA $FD.Q...CMP $|
00000E40: 46 42 3B 54 45 53 54 20 4F 42 20 41 52 52 41 59 |FB;TEST OB ARRAY|
00000E50: AB 00 6A 16 04 01 42 4E 45 20 44 45 4C 31 3B 41 |..j...BNE DEL1;A|
00000E60: 4E 46 41 4E 47 20 53 43 48 91 00 83 16 05 01 43 |NFANG SCH......C|
00000E70: 50 58 20 24 46 43 3B 45 52 52 45 49 43 48 54 20 |PX $FC;ERREICHT |
00000E80: 49 53 54 00 A2 16 06 01 42 4E 45 20 44 45 4C 31 |IST.....BNE DEL1|
00000E90: 3B 4E 45 49 4E 2C 57 45 49 54 45 52 4D 41 43 48 |;NEIN,WEITERMACH|
00000EA0: 45 4E 00 A8 16 07 01 3B 00 C1 16 08 01 52 54 53 |EN.....;.....RTS|
00000EB0: 3B AC AC AC AC AC AC 20 80 45 20 AC AC AC AC AC |;...... .E .....|
00000EC0: AC 00 EE 16 09 01 3B 20 20 20 20 20 20 20 20 20 |......; |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 AC 4E 55 52 | .NUR|
00000EE0: 20 4C 45 45 52 53 54 52 49 4E 47 53 20 AC 00 1A | LEERSTRINGS ...|
00000EF0: 17 0A 01 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
00000F00: 20 53 B0 54 49 45 52 42 45 47 49 4E 4E 20 AB AB | S.TIERBEGINN ..|
00000F10: AB AB AB AB AB AB AB AB AB AB 00 20 17 0B 01 3B |........... ...;|
00000F20: 00 34 17 0C 01 53 54 41 52 54 20 4C 44 41 20 54 |.4...START LDA T|
00000F30: 59 50 45 3B 00 47 17 0D 01 44 45 59 3B 53 54 52 |YPE;.G...DEY;STR|
00000F40: 49 4E 47 B2 24 46 46 00 63 17 0E 01 53 54 41 52 |ING.$FF.c...STAR|
00000F50: 54 30 20 53 54 59 20 4E 55 4D 46 4C 3B 4E 55 4D |T0 STY NUMFL;NUM|
00000F60: 2E B2 30 00 76 17 0F 01 4C 53 52 3B 8A 44 55 4E |..0.v...LSR;.DUN|
00000F70: 47 53 42 59 54 45 00 8F 17 10 01 42 43 53 20 53 |GSBYTE.....BCS S|
00000F80: 54 41 52 54 31 3B 42 45 52 45 43 48 4E 45 4E 00 |TART1;BERECHNEN.|
00000F90: A4 17 11 01 4C 44 41 20 23 24 46 46 3B AB AB B5 |....LDA #$FF;...|
00000FA0: 45 47 45 52 00 B6 17 12 01 53 54 41 52 54 31 20 |EGER.....START1 |
00000FB0: 53 54 41 20 8A 44 00 C3 17 13 01 4C 44 41 20 54 |STA .D.....LDA T|
00000FC0: 59 50 45 00 D9 17 14 01 41 53 4C 3B 53 54 41 52 |YPE.....ASL;STAR|
00000FD0: 54 53 43 48 52 49 54 54 AB 00 EF 17 15 01 54 41 |TSCHRITT......TA|
00000FE0: 58 3B 57 45 49 54 45 20 41 55 46 20 35 31 31 00 |X;WEITE AUF 511.|
00000FF0: 07 18 16 01 44 45 58 3B 45 4C 45 4D 45 4E 54 45 |....DEX;ELEMENTE|
00001000: 20 53 45 54 5A 45 4E 00 1D 18 17 01 4C 44 41 20 | SETZEN.....LDA |
00001010: 23 30 3B 28 57 49 45 20 4F 42 45 4E 29 00 25 18 |#0;(WIE OBEN).%.|
00001020: 18 01 53 45 43 00 32 18 19 01 53 42 43 20 54 59 |..SEC.2...SBC TY|
00001030: 50 45 00 3E 18 1A 01 53 54 41 20 24 36 39 00 4A |PE.>...STA $69.J|
00001040: 18 1B 01 53 54 58 20 24 36 41 00 64 18 1C 01 4C |...STX $6A.d...L|
00001050: 44 41 20 35 33 32 38 30 3B 52 41 48 4D 45 4E 46 |DA 53280;RAHMENF|
00001060: 41 52 42 45 00 73 18 1D 01 50 48 41 3B 4D 45 52 |ARBE.s...PHA;MER|
00001070: 4B 45 4E 00 A0 18 1E 01 3B AB AB AB AB AB AB AB |KEN.....;.......|
00001080: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001090: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000010A0: 00 BD 18 1F 01 42 49 47 20 4C 53 52 20 24 36 41 |.....BIG LSR $6A|
000010B0: 3B 53 43 48 52 49 54 54 57 45 49 54 45 00 D3 18 |;SCHRITTWEITE...|
000010C0: 20 01 4C 44 41 20 24 36 39 3B 48 41 4C 42 49 45 | .LDA $69;HALBIE|
000010D0: 52 45 4E 00 EE 18 21 01 52 B0 3B 53 54 41 52 54 |REN...!.R.;START|
000010E0: 20 4D 49 54 20 32 35 35 20 45 4C 45 4D 2E 00 08 | MIT 255 ELEM...|
000010F0: 19 22 01 42 49 54 20 8A 44 3B 54 45 53 54 20 41 |.".BIT .D;TEST A|
00001100: 55 46 20 B5 45 47 45 52 00 1A 19 23 01 42 56 43 |UF .EGER...#.BVC|
00001110: 20 42 49 47 41 3B 4E 45 49 4E 00 37 19 24 01 AF | BIGA;NEIN.7.$..|
00001120: 20 23 24 46 45 3B 4A 41 2C 42 49 54 20 30 20 4C | #$FE;JA,BIT 0 L|
00001130: 4F 45 53 43 48 45 4E 00 52 19 25 01 43 4C 43 3B |OESCHEN.R.%.CLC;|
00001140: 55 4E 44 20 4B 45 49 4E 20 55 45 42 45 52 54 52 |UND KEIN UEBERTR|
00001150: 41 47 00 64 19 26 01 42 49 47 41 20 42 43 43 20 |AG.d.&.BIGA BCC |
00001160: 42 49 47 42 00 6F 19 27 01 53 42 43 20 8A 44 00 |BIGB.o.'.SBC .D.|
00001170: 7C 19 28 01 42 49 47 42 20 54 41 58 00 89 19 29 ||.(.BIGB TAX...)|
00001180: 01 42 4E 45 20 42 49 47 31 00 91 19 2A 01 50 4C |.BNE BIG1...*.PL|
00001190: 41 00 9F 19 2B 01 53 54 41 20 35 33 32 38 30 00 |A...+.STA 53280.|
000011A0: B8 19 2C 01 52 54 53 3B AC AC AC AC AC AC 20 80 |..,.RTS;...... .|
000011B0: 45 20 AC AC AC AC AC AC 00 C9 19 2D 01 42 49 47 |E .........-.BIG|
000011C0: 31 20 53 54 41 20 24 36 39 00 DF 19 2E 01 49 4E |1 STA $69.....IN|
000011D0: 43 20 35 33 32 38 30 3B 42 4C 49 4E 4B 45 4E 00 |C 53280;BLINKEN.|
000011E0: E7 19 2F 01 43 4C 43 00 01 1A 30 01 4C 44 41 20 |../.CLC...0.LDA |
000011F0: 24 46 42 3B 54 45 49 4C 46 45 4C 44 53 54 41 52 |$FB;TEILFELDSTAR|
00001200: 54 00 16 1A 31 01 54 41 58 3B B2 41 52 52 41 59 |T...1.TAX;.ARRAY|
00001210: 41 4E 46 41 4E 47 00 2F 1A 32 01 41 44 43 20 24 |ANFANG./.2.ADC $|
00001220: 36 39 3B 4C 4F 57 20 49 4E 20 58 AB 52 45 47 00 |69;LOW IN X.REG.|
00001230: 49 1A 33 01 53 54 41 20 24 35 35 3B 48 49 47 48 |I.3.STA $55;HIGH|
00001240: 20 49 4E 20 59 AB 52 45 47 00 60 1A 34 01 4C 44 | IN Y.REG.`.4.LD|
00001250: 41 20 24 46 43 3B AA 53 43 48 52 49 54 54 57 2E |A $FC;.SCHRITTW.|
00001260: 00 74 1A 35 01 54 41 59 3B B2 54 45 49 4C 46 45 |.t.5.TAY;.TEILFE|
00001270: 4C 44 80 45 00 80 1A 36 01 41 44 43 20 24 36 41 |LD.E...6.ADC $6A|
00001280: 00 8C 1A 37 01 53 54 41 20 24 35 36 00 98 1A 38 |...7.STA $56...8|
00001290: 01 4C 44 41 20 24 31 34 00 A5 1A 39 01 42 45 51 |.LDA $14...9.BEQ|
000012A0: 20 53 45 54 33 00 BE 1A 3A 01 4C 53 52 20 24 36 | SET3...:.LSR $6|
000012B0: 43 3B 53 43 48 52 49 54 54 57 45 49 54 45 00 D5 |C;SCHRITTWEITE..|
000012C0: 1A 3B 01 4C 44 41 20 24 36 42 3B 4E 45 42 45 4E |.;.LDA $6B;NEBEN|
000012D0: 41 52 52 41 59 00 E6 1A 3C 01 52 B0 3B 48 41 4C |ARRAY...<.R.;HAL|
000012E0: 42 49 45 52 45 4E 00 01 1B 3D 01 42 49 54 20 24 |BIEREN...=.BIT $|
000012F0: 31 35 3B 54 45 53 54 20 41 55 46 20 B5 45 47 45 |15;TEST AUF .EGE|
00001300: 52 00 13 1B 3E 01 42 56 43 20 42 49 47 32 3B 4E |R...>.BVC BIG2;N|
00001310: 45 49 4E 00 30 1B 3F 01 AF 20 23 24 46 45 3B 4A |EIN.0.?.. #$FE;J|
00001320: 41 2C 42 49 54 20 30 20 4C 4F 45 53 43 48 45 4E |A,BIT 0 LOESCHEN|
00001330: 00 4B 1B 40 01 43 4C 43 3B 55 4E 44 20 4B 45 49 |.K.@.CLC;UND KEI|
00001340: 4E 20 55 45 42 45 52 54 52 41 47 00 5D 1B 41 01 |N UEBERTRAG.].A.|
00001350: 42 49 47 32 20 42 43 43 20 42 49 47 33 00 69 1B |BIG2 BCC BIG3.i.|
00001360: 42 01 53 42 43 20 24 31 35 00 7A 1B 43 01 42 49 |B.SBC $15.z.C.BI|
00001370: 47 33 20 53 54 41 20 24 36 42 00 86 1B 44 01 4C |G3 STA $6B...D.L|
00001380: 44 41 20 24 35 37 00 92 1B 45 01 53 54 41 20 24 |DA $57...E.STA $|
00001390: 34 42 00 9E 1B 46 01 53 54 41 20 24 32 38 00 AA |4B...F.STA $28..|
000013A0: 1B 47 01 4C 44 41 20 24 35 38 00 C9 1B 48 01 42 |.G.LDA $58...H.B|
000013B0: 4E 45 20 53 45 54 32 41 3B 55 4E 42 45 44 49 4E |NE SET2A;UNBEDIN|
000013C0: 47 54 45 52 20 53 50 8A 47 00 F6 1B 49 01 3B AB |GTER SP.G...I.;.|
000013D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000013E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000013F0: AB AB AB AB AB AB 00 19 1C 4A 01 53 45 54 20 4C |.........J.SET L|
00001400: 44 41 20 24 32 36 3B 4E 41 45 43 48 53 54 45 53 |DA $26;NAECHSTES|
00001410: 20 54 45 49 4C 46 45 4C 44 00 30 1C 4B 01 4C 44 | TEILFELD.0.K.LD|
00001420: 59 20 24 32 37 3B 42 45 41 52 42 45 49 54 45 4E |Y $27;BEARBEITEN|
00001430: 00 38 1C 4C 01 43 4C 43 00 45 1C 4D 01 41 44 43 |.8.L.CLC.E.M.ADC|
00001440: 20 54 59 50 45 00 4D 1C 4E 01 54 41 58 00 5A 1C | TYPE.M.N.TAX.Z.|
00001450: 4F 01 42 43 43 20 53 45 54 31 00 62 1C 50 01 49 |O.BCC SET1.b.P.I|
00001460: 4E 59 00 83 1C 51 01 53 45 54 31 20 43 4D 50 20 |NY...Q.SET1 CMP |
00001470: 24 35 35 3B 57 45 4E 4E 20 41 4C 4C 45 20 54 45 |$55;WENN ALLE TE|
00001480: 49 4C AB 00 A0 1C 52 01 42 4E 45 20 53 45 54 32 |IL....R.BNE SET2|
00001490: 3B 46 45 4C 44 45 52 20 53 B0 54 49 45 52 54 2C |;FELDER S.TIERT,|
000014A0: 00 BE 1C 53 01 43 50 59 20 24 35 36 3B 44 41 4E |...S.CPY $56;DAN|
000014B0: 4E 20 53 43 48 52 49 54 54 57 45 49 54 45 00 D4 |N SCHRITTWEITE..|
000014C0: 1C 54 01 42 45 51 20 42 49 47 3B 48 41 4C 42 49 |.T.BEQ BIG;HALBI|
000014D0: 45 52 45 4E 00 E5 1C 55 01 53 45 54 32 20 4C 44 |EREN...U.SET2 LD|
000014E0: 41 20 24 31 34 00 F2 1C 56 01 42 45 51 20 53 45 |A $14...V.BEQ SE|
000014F0: 54 33 00 FA 1C 57 01 43 4C 43 00 06 1D 58 01 41 |T3...W.CLC...X.A|
00001500: 44 43 20 24 32 38 00 12 1D 59 01 53 54 41 20 24 |DC $28...Y.STA $|
00001510: 32 38 00 1E 1D 5A 01 53 54 41 20 24 34 42 00 2A |28...Z.STA $4B.*|
00001520: 1D 5B 01 4C 44 41 20 24 32 39 00 35 1D 5C 01 41 |.[.LDA $29.5.\.A|
00001530: 44 43 20 23 30 00 47 1D 5D 01 53 45 54 32 41 20 |DC #0.G.].SET2A |
00001540: 53 54 41 20 24 32 39 00 53 1D 5E 01 53 54 41 20 |STA $29.S.^.STA |
00001550: 24 34 43 00 60 1D 5F 01 53 45 54 33 20 54 58 41 |$4C.`._.SET3 TXA|
00001560: 00 6C 1D 60 01 53 54 41 20 24 32 36 00 78 1D 61 |.l.`.STA $26.x.a|
00001570: 01 53 54 59 20 24 32 37 00 80 1D 62 01 43 4C 43 |.STY $27...b.CLC|
00001580: 00 9A 1D 63 01 42 49 54 20 4E 55 4D 46 4C 3B 4E |...c.BIT NUMFL;N|
00001590: 55 4D 45 52 2E 41 52 52 41 59 00 AA 1D 64 01 42 |UMER.ARRAY...d.B|
000015A0: 56 53 20 57 31 3B 4E 45 49 4E 00 BA 1D 65 01 4A |VS W1;NEIN...e.J|
000015B0: 53 52 20 5A 41 48 4C 3B 4A 41 00 C6 1D 66 01 42 |SR ZAHL;JA...f.B|
000015C0: 43 53 20 53 45 54 00 F3 1D 67 01 3B AB AB AB AB |CS SET...g.;....|
000015D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000015E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000015F0: AB AB AB 00 10 1E 68 01 57 B0 4B 20 43 4C 43 3B |......h.W.K CLC;|
00001600: 53 B0 54 49 45 52 45 4E 20 42 49 53 20 5A 55 4D |S.TIEREN BIS ZUM|
00001610: 00 2A 1E 69 01 4C 44 41 20 24 37 31 3B 45 52 53 |.*.i.LDA $71;ERS|
00001620: 54 45 4E 20 54 41 55 53 43 48 00 49 1E 6A 01 4C |TEN TAUSCH.I.j.L|
00001630: 44 59 20 24 37 32 3B 42 AB 45 4C 45 4D 45 4E 54 |DY $72;B.ELEMENT|
00001640: 28 24 37 31 AD 24 37 32 29 00 6A 1E 6B 01 57 31 |($71.$72).j.k.W1|
00001650: 20 53 54 41 20 24 32 32 3B 57 49 52 44 20 5A 55 | STA $22;WIRD ZU|
00001660: 20 41 AB 45 4C 45 4D 45 4E 54 00 84 1E 6C 01 41 | A.ELEMENT...l.A|
00001670: 44 43 20 24 36 39 3B AA 53 43 48 52 49 54 54 57 |DC $69;.SCHRITTW|
00001680: 45 49 54 45 00 98 1E 6D 01 54 41 58 3B B2 20 42 |EITE...m.TAX;. B|
00001690: AB 45 4C 45 4D 45 4E 54 00 A0 1E 6E 01 54 59 41 |.ELEMENT...n.TYA|
000016A0: 00 AC 1E 6F 01 41 44 43 20 24 36 41 00 CA 1E 70 |...o.ADC $6A...p|
000016B0: 01 43 4D 50 20 24 46 45 3B 54 45 53 54 2C 4F 42 |.CMP $FE;TEST,OB|
000016C0: 20 42 AB 45 4C 45 4D 45 4E 54 00 DE 1E 71 01 42 | B.ELEMENT...q.B|
000016D0: 43 43 20 82 3B B1 41 52 52 41 59 80 45 2C 00 F7 |CC .;.ARRAY.E,..|
000016E0: 1E 72 01 42 4E 45 20 53 45 54 3B 57 45 4E 4E 20 |.r.BNE SET;WENN |
000016F0: 4A 41 2C 44 41 4E 4E 00 03 1F 73 01 43 50 58 20 |JA,DANN...s.CPX |
00001700: 24 46 44 00 22 1F 74 01 42 43 53 20 53 45 54 3B |$FD.".t.BCS SET;|
00001710: 4E 41 45 43 48 53 54 45 53 20 54 45 49 4C 46 45 |NAECHSTES TEILFE|
00001720: 4C 44 00 30 1F 75 01 82 20 53 54 41 20 24 32 35 |LD.0.u.. STA $25|
00001730: 00 3C 1F 76 01 53 54 59 20 24 32 33 00 48 1F 77 |.<.v.STY $23.H.w|
00001740: 01 53 54 58 20 24 32 34 00 54 1F 78 01 53 54 41 |.STX $24.T.x.STA|
00001750: 20 24 37 32 00 60 1F 79 01 53 54 58 20 24 37 31 | $72.`.y.STX $71|
00001760: 00 6C 1F 7A 01 4C 44 59 20 24 31 34 00 7A 1F 7B |.l.z.LDY $14.z.{|
00001770: 01 42 45 51 20 56 45 52 47 4C 00 86 1F 7C 01 4C |.BEQ VERGL...|.L|
00001780: 44 41 20 24 34 42 00 92 1F 7D 01 53 54 41 20 24 |DA $4B...}.STA $|
00001790: 36 31 00 9E 1F 7E 01 41 44 43 20 24 36 42 00 AA |61...~.ADC $6B..|
000017A0: 1F 7F 01 53 54 41 20 24 36 33 00 B6 1F 80 01 53 |...STA $63.....S|
000017B0: 54 41 20 24 34 42 00 C2 1F 81 01 4C 44 41 20 24 |TA $4B.....LDA $|
000017C0: 34 43 00 CE 1F 82 01 53 54 41 20 24 36 32 00 DA |4C.....STA $62..|
000017D0: 1F 83 01 41 44 43 20 24 36 43 00 E6 1F 84 01 53 |...ADC $6C.....S|
000017E0: 54 41 20 24 36 34 00 F2 1F 85 01 53 54 41 20 24 |TA $64.....STA $|
000017F0: 34 43 00 1F 20 86 01 3B AB AB AB AB AB AB AB AB |4C.. ..;........|
00001800: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001810: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00001820: 2A 20 87 01 4C 44 59 20 23 30 00 4A 20 88 01 56 |* ..LDY #0.J ..V|
00001830: 45 52 47 4C 20 4C 44 41 20 28 24 32 34 29 2C 59 |ERGL LDA ($24),Y|
00001840: 3B 44 45 53 4B 52 49 50 A4 52 00 68 20 89 01 42 |;DESKRIP.R.h ..B|
00001850: 30 20 42 45 51 20 57 B0 4B 3B 42 AB 45 4C 45 4D |0 BEQ W.K;B.ELEM|
00001860: 45 4E 54 20 4E 41 43 48 00 81 20 8A 01 53 54 41 |ENT NACH.. ..STA|
00001870: 20 24 35 45 3B 24 35 45 AB 24 36 30 3B 57 45 4E | $5E;$5E.$60;WEN|
00001880: 4E 00 97 20 8B 01 49 4E 59 3B 4C 41 45 4E 47 45 |N.. ..INY;LAENGE|
00001890: B2 30 2C 44 41 4E 4E 00 B9 20 8C 01 4C 44 41 20 |.0,DANN.. ..LDA |
000018A0: 28 24 32 34 29 2C 59 3B 4E 41 45 43 48 53 54 45 |($24),Y;NAECHSTE|
000018B0: 53 20 45 4C 45 4D 45 4E 54 00 C5 20 8D 01 53 54 |S ELEMENT.. ..ST|
000018C0: 41 20 24 35 46 00 CD 20 8E 01 49 4E 59 00 DD 20 |A $5F.. ..INY.. |
000018D0: 8F 01 4C 44 41 20 28 24 32 34 29 2C 59 00 E9 20 |..LDA ($24),Y.. |
000018E0: 90 01 53 54 41 20 24 36 30 00 13 21 91 01 3B AB |..STA $60..!..;.|
000018F0: AB AB 20 45 49 4E 53 50 8A 47 20 45 49 4E 53 B0 |.. EINSP.G EINS.|
00001900: 54 49 45 52 45 4E 20 28 4C 44 59 20 23 32 29 20 |TIEREN (LDY #2) |
00001910: AB AB AB 00 32 21 92 01 56 45 52 53 20 4C 44 41 |....2!..VERS LDA|
00001920: 20 28 24 32 32 29 2C 59 3B 44 45 53 4B 52 49 50 | ($22),Y;DESKRIP|
00001930: A4 52 00 4D 21 93 01 53 54 41 20 24 35 44 3B 41 |.R.M!..STA $5D;A|
00001940: AB 45 4C 45 4D 45 4E 54 20 4E 41 43 48 00 62 21 |.ELEMENT NACH.b!|
00001950: 94 01 44 45 59 3B 24 35 42 AB 24 35 44 3B 57 45 |..DEY;$5B.$5D;WE|
00001960: 4E 4E 00 80 21 95 01 4C 44 41 20 28 24 32 32 29 |NN..!..LDA ($22)|
00001970: 2C 59 3B 4C 41 45 4E 47 45 B2 30 2C 44 41 4E 4E |,Y;LAENGE.0,DANN|
00001980: 00 95 21 96 01 53 54 41 20 24 35 43 3B 54 41 55 |..!..STA $5C;TAU|
00001990: 53 43 48 45 4E 00 A8 21 97 01 44 45 59 3B 59 AB |SCHEN..!..DEY;Y.|
000019A0: 52 45 47 2E 20 B2 20 30 00 B8 21 98 01 4C 44 41 |REG. . 0..!..LDA|
000019B0: 20 28 24 32 32 29 2C 59 00 C4 21 99 01 53 54 41 | ($22),Y..!..STA|
000019C0: 20 24 35 42 00 D1 21 9A 01 42 45 51 20 53 57 41 | $5B..!..BEQ SWA|
000019D0: 50 00 EE 21 9B 01 43 4D 50 20 24 35 45 3B 56 45 |P..!..CMP $5E;VE|
000019E0: 52 47 4C 45 49 43 48 53 4C 41 45 4E 47 45 00 07 |RGLEICHSLAENGE..|
000019F0: 22 9C 01 42 45 51 20 56 45 52 31 3B 4E 41 43 48 |"..BEQ VER1;NACH|
00001A00: 20 58 AB 52 45 47 2E 00 18 22 9D 01 42 43 43 20 | X.REG..."..BCC |
00001A10: 56 45 52 31 3B 48 4F C3 00 24 22 9E 01 4C 44 41 |VER1;HO..$"..LDA|
00001A20: 20 24 35 45 00 31 22 9F 01 56 45 52 31 20 54 41 | $5E.1"..VER1 TA|
00001A30: 58 00 5E 22 A0 01 3B AB AB AB AB AB AB AB AB AB |X.^"..;.........|
00001A40: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001A50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 83 |................|
00001A60: 22 A1 01 4C 4F 4F 50 20 4C 44 41 20 28 24 35 43 |"..LOOP LDA ($5C|
00001A70: 29 2C 59 3B 53 54 52 49 4E 47 56 45 52 47 4C 45 |),Y;STRINGVERGLE|
00001A80: 49 43 48 00 A1 22 A2 01 43 4D 50 20 28 24 35 46 |ICH.."..CMP ($5F|
00001A90: 29 2C 59 3B 46 55 45 52 20 31 2E 86 45 4E 53 49 |),Y;FUER 1..ENSI|
00001AA0: 91 00 B2 22 A3 01 42 31 20 42 43 43 20 57 B0 4B |..."..B1 BCC W.K|
00001AB0: AA 31 00 BF 22 A4 01 42 4E 45 20 53 57 41 50 00 |.1.."..BNE SWAP.|
00001AC0: C7 22 A5 01 49 4E 59 00 CF 22 A6 01 44 45 58 00 |."..INY.."..DEX.|
00001AD0: DC 22 A7 01 42 4E 45 20 4C 4F 4F 50 00 E8 22 A8 |."..BNE LOOP..".|
00001AE0: 01 4C 44 59 20 24 35 42 00 F4 22 A9 01 43 50 59 |.LDY $5B.."..CPY|
00001AF0: 20 24 35 45 00 13 23 AA 01 42 43 43 20 57 B0 4B | $5E..#..BCC W.K|
00001B00: AA 31 3B 57 45 4E 4E 20 47 4C 45 49 43 48 2C 44 |.1;WENN GLEICH,D|
00001B10: 41 4E 4E 00 20 23 AB 01 42 4E 45 20 53 57 41 50 |ANN. #..BNE SWAP|
00001B20: 00 3C 23 AC 01 4C 44 58 20 46 4C 41 47 31 3B 54 |.<#..LDX FLAG1;T|
00001B30: 45 53 54 20 41 55 46 20 32 2E 86 2E 00 58 23 AD |EST AUF 2....X#.|
00001B40: 01 42 45 51 20 42 30 3B 4E 45 49 4E 2C 4E 41 43 |.BEQ B0;NEIN,NAC|
00001B50: 48 20 22 57 4F 52 4B 22 00 85 23 AE 01 3B AB AB |H "WORK"..#..;..|
00001B60: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001B70: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001B80: AB AB AB AB AB 00 A1 23 AF 01 53 54 58 20 24 32 |.......#..STX $2|
00001B90: 41 3B 44 45 53 4B 52 49 50 A4 52 45 4E 20 44 45 |A;DESKRIP.REN DE|
00001BA0: 52 00 B8 23 B0 01 4A 53 52 20 44 32 53 45 54 3B |R..#..JSR D2SET;|
00001BB0: 32 2E 86 45 4E 53 49 91 00 D2 23 B1 01 5A 4C 20 |2..ENSI...#..ZL |
00001BC0: 44 45 43 20 24 32 41 3B 53 45 54 5A 45 4E 20 55 |DEC $2A;SETZEN U|
00001BD0: 4E 44 00 EF 23 B2 01 42 32 20 42 45 51 20 42 30 |ND..#..B2 BEQ B0|
00001BE0: 3B 56 45 52 47 4C 45 49 43 48 20 4E 41 43 48 00 |;VERGLEICH NACH.|
00001BF0: 0A 24 B3 01 4A 53 52 20 44 53 45 54 3B 44 45 4E |.$..JSR DSET;DEN|
00001C00: 20 45 4C 45 4D 45 4E 54 45 4E 00 21 24 B4 01 4C | ELEMENTEN.!$..L|
00001C10: 44 59 20 23 32 3B 52 4F 55 54 49 4E 45 20 49 53 |DY #2;ROUTINE IS|
00001C20: 54 00 40 24 B5 01 5A 31 20 4C 44 41 20 28 24 34 |T.@$..Z1 LDA ($4|
00001C30: 37 29 2C 59 3B 53 45 4C 42 53 54 4D 4F 44 49 AB |7),Y;SELBSTMODI.|
00001C40: 00 55 24 B6 01 53 54 41 20 56 31 2C 59 3B 46 49 |.U$..STA V1,Y;FI|
00001C50: 5A 49 45 52 80 00 65 24 B7 01 4C 44 41 20 28 24 |ZIER..e$..LDA ($|
00001C60: 34 39 29 2C 59 00 72 24 B8 01 53 54 41 20 56 32 |49),Y.r$..STA V2|
00001C70: 2C 59 00 7A 24 B9 01 44 45 59 00 85 24 BA 01 42 |,Y.z$..DEY..$..B|
00001C80: 4E 45 20 5A 31 00 95 24 BB 01 4C 44 41 20 28 24 |NE Z1..$..LDA ($|
00001C90: 34 39 29 2C 59 00 A3 24 BC 01 42 34 20 42 45 51 |49),Y..$..B4 BEQ|
00001CA0: 20 42 30 00 AF 24 BD 01 53 54 41 20 24 34 36 00 | B0..$..STA $46.|
00001CB0: BF 24 BE 01 4C 44 41 20 28 24 34 37 29 2C 59 00 |.$..LDA ($47),Y.|
00001CC0: CC 24 BF 01 42 45 51 20 53 57 41 50 00 D8 24 C0 |.$..BEQ SWAP..$.|
00001CD0: 01 53 54 41 20 24 34 35 00 E4 24 C1 01 43 4D 50 |.STA $45..$..CMP|
00001CE0: 20 24 34 36 00 EF 24 C2 01 42 43 43 20 56 30 00 | $46..$..BCC V0.|
00001CF0: FB 24 C3 01 4C 44 41 20 24 34 36 00 06 25 C4 01 |.$..LDA $46..%..|
00001D00: 56 30 20 54 41 58 00 24 25 C5 01 56 31 20 4C 44 |V0 TAX.$%..V1 LD|
00001D10: 41 20 24 34 37 31 31 2C 59 3B 44 55 4D 4D 59 AB |A $4711,Y;DUMMY.|
00001D20: 57 45 52 54 00 3D 25 C6 01 56 32 20 43 4D 50 20 |WERT.=%..V2 CMP |
00001D30: 24 30 38 31 35 2C 59 3B 20 20 20 20 22 00 48 25 |$0815,Y; ".H%|
00001D40: C7 01 42 43 43 20 42 31 00 55 25 C8 01 42 4E 45 |..BCC B1.U%..BNE|
00001D50: 20 53 57 41 50 00 5D 25 C9 01 49 4E 59 00 65 25 | SWAP.]%..INY.e%|
00001D60: CA 01 44 45 58 00 70 25 CB 01 42 4E 45 20 56 31 |..DEX.p%..BNE V1|
00001D70: 00 7C 25 CC 01 4C 44 59 20 24 34 35 00 88 25 CD |.|%..LDY $45..%.|
00001D80: 01 43 50 59 20 24 34 36 00 93 25 CE 01 42 43 43 |.CPY $46..%..BCC|
00001D90: 20 42 31 00 9E 25 CF 01 42 45 51 20 5A 4C 00 CB | B1..%..BEQ ZL..|
00001DA0: 25 D0 01 3B AB AB AB AB AB AB AB AB AB AB AB AB |%..;............|
00001DB0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001DC0: AB AB AB AB AB AB AB AB AB AB AB 00 EE 25 D1 01 |.............%..|
00001DD0: 53 57 41 50 20 4C 44 59 20 46 4C 41 47 31 3B 54 |SWAP LDY FLAG1;T|
00001DE0: 45 53 54 20 32 AB 86 45 4E 53 49 91 41 4C 00 01 |EST 2..ENSI.AL..|
00001DF0: 26 D2 01 42 45 51 20 53 57 41 50 31 3B 4E 45 49 |&..BEQ SWAP1;NEI|
00001E00: 4E 00 1C 26 D3 01 4A 53 52 20 53 57 41 50 44 32 |N..&..JSR SWAPD2|
00001E10: 3B 4A 41 2C 54 41 55 53 43 48 45 4E 00 3E 26 D4 |;JA,TAUSCHEN.>&.|
00001E20: 01 53 57 41 50 31 20 4C 44 59 20 24 31 34 3B 54 |.SWAP1 LDY $14;T|
00001E30: 45 53 54 20 4E 45 42 45 4E 41 52 52 41 59 00 51 |EST NEBENARRAY.Q|
00001E40: 26 D5 01 42 45 51 20 53 57 41 50 33 3B 4E 45 49 |&..BEQ SWAP3;NEI|
00001E50: 4E 00 65 26 D6 01 44 45 59 3B 4A 41 2C 54 41 55 |N.e&..DEY;JA,TAU|
00001E60: 53 43 48 45 4E 00 7B 26 D7 01 53 57 41 50 32 20 |SCHEN.{&..SWAP2 |
00001E70: 4C 44 41 20 28 24 36 31 29 2C 59 00 83 26 D8 01 |LDA ($61),Y..&..|
00001E80: 54 41 58 00 93 26 D9 01 4C 44 41 20 28 24 36 33 |TAX..&..LDA ($63|
00001E90: 29 2C 59 00 A3 26 DA 01 53 54 41 20 28 24 36 31 |),Y..&..STA ($61|
00001EA0: 29 2C 59 00 AB 26 DB 01 54 58 41 00 BB 26 DC 01 |),Y..&..TXA..&..|
00001EB0: 53 54 41 20 28 24 36 33 29 2C 59 00 C3 26 DD 01 |STA ($63),Y..&..|
00001EC0: 44 45 59 00 D1 26 DE 01 42 50 4C 20 53 57 41 50 |DEY..&..BPL SWAP|
00001ED0: 32 00 E2 26 DF 01 49 4E 59 3B 59 AB 52 45 47 2E |2..&..INY;Y.REG.|
00001EE0: B2 30 00 EA 26 E0 01 53 45 43 00 01 27 E1 01 4C |.0..&..SEC..'..L|
00001EF0: 44 41 20 24 36 31 3B 4E 45 42 45 4E 41 52 52 41 |DA $61;NEBENARRA|
00001F00: 59 00 18 27 E2 01 53 54 41 20 24 36 33 3B 5A 55 |Y..'..STA $63;ZU|
00001F10: 52 20 45 49 4E 53 B0 AB 00 2A 27 E3 01 53 42 43 |R EINS...*'..SBC|
00001F20: 20 24 36 42 3B 54 49 45 8A 47 00 41 27 E4 01 53 | $6B;TIE.G.A'..S|
00001F30: 54 41 20 24 36 31 3B 56 B0 42 45 52 45 49 54 45 |TA $61;V.BEREITE|
00001F40: 4E 00 59 27 E5 01 4C 44 41 20 24 36 32 3B 53 49 |N.Y'..LDA $62;SI|
00001F50: 45 48 45 20 50 52 47 2E AB 00 6E 27 E6 01 53 54 |EHE PRG...n'..ST|
00001F60: 41 20 24 36 34 3B 54 45 49 4C 20 53 B0 54 00 7A |A $64;TEIL S.T.z|
00001F70: 27 E7 01 53 42 43 20 24 36 43 00 86 27 E8 01 53 |'..SBC $6C..'..S|
00001F80: 54 41 20 24 36 32 00 A3 27 E9 01 53 57 41 50 33 |TA $62..'..SWAP3|
00001F90: 20 4C 44 41 20 24 35 42 3B 48 41 55 50 54 41 52 | LDA $5B;HAUPTAR|
00001FA0: 52 41 59 00 BF 27 EA 01 53 54 41 20 28 24 32 34 |RAY..'..STA ($24|
00001FB0: 29 2C 59 3B 44 45 53 4B 52 49 50 A4 52 45 4E 00 |),Y;DESKRIP.REN.|
00001FC0: D4 27 EB 01 4C 44 41 20 24 35 45 3B 54 41 55 53 |.'..LDA $5E;TAUS|
00001FD0: 43 48 45 4E 00 E5 27 EC 01 53 54 41 20 28 24 32 |CHEN..'..STA ($2|
00001FE0: 32 29 2C 59 3B 00 ED 27 ED 01 49 4E 59 00 F9 27 |2),Y;..'..INY..'|
00001FF0: EE 01 4C 44 41 20 24 35 43 00 09 28 EF 01 53 54 |..LDA $5C..(..ST|
00002000: 41 20 28 24 32 34 29 2C 59 00 15 28 F0 01 4C 44 |A ($24),Y..(..LD|
00002010: 41 20 24 35 46 00 25 28 F1 01 53 54 41 20 28 24 |A $5F.%(..STA ($|
00002020: 32 32 29 2C 59 00 36 28 F2 01 49 4E 59 3B 59 AB |22),Y.6(..INY;Y.|
00002030: 52 45 47 2E B2 32 00 42 28 F3 01 4C 44 41 20 24 |REG..2.B(..LDA $|
00002040: 35 44 00 52 28 F4 01 53 54 41 20 28 24 32 34 29 |5D.R(..STA ($24)|
00002050: 2C 59 00 5E 28 F5 01 4C 44 41 20 24 36 30 00 6E |,Y.^(..LDA $60.n|
00002060: 28 F6 01 53 54 41 20 28 24 32 32 29 2C 59 00 9B |(..STA ($22),Y..|
00002070: 28 F7 01 3B AB AB AB AB AB AB AB AB AB AB AB AB |(..;............|
00002080: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002090: AB AB AB AB AB AB AB AB AB AB AB 00 BD 28 F8 01 |.............(..|
000020A0: 53 B0 54 20 4C 44 41 20 24 32 32 3B 4E 41 43 48 |S.T LDA $22;NACH|
000020B0: 20 4C 49 4E 4B 53 20 45 49 4E 53 B0 AB 00 D9 28 | LINKS EINS....(|
000020C0: F9 01 4C 44 58 20 24 32 33 3B 54 49 45 52 45 4E |..LDX $23;TIEREN|
000020D0: 2C 42 49 53 20 4B 45 49 4E 00 F8 28 FA 01 43 50 |,BIS KEIN..(..CP|
000020E0: 58 20 24 32 37 3B 54 41 55 53 43 48 20 45 52 46 |X $27;TAUSCH ERF|
000020F0: 4F 4C 47 54 20 42 5A 57 00 17 29 FB 01 42 4E 45 |OLGT BZW..)..BNE|
00002100: 20 53 4F 31 3B 44 49 45 20 4C 49 4E 4B 45 20 54 | SO1;DIE LINKE T|
00002110: 45 49 4C 46 45 4C 44 00 33 29 FC 01 43 4D 50 20 |EILFELD.3)..CMP |
00002120: 24 32 36 3B 47 52 45 4E 5A 45 20 45 52 52 45 49 |$26;GRENZE ERREI|
00002130: 43 48 54 00 50 29 FD 01 42 45 51 20 42 34 3B 49 |CHT.P)..BEQ B4;I|
00002140: 53 54 2E 44 45 53 4B 52 49 50 A4 52 20 44 45 53 |ST.DESKRIP.R DES|
00002150: 00 6F 29 FE 01 53 4F 31 20 53 54 41 20 24 32 34 |.o)..SO1 STA $24|
00002160: 3B 45 49 4E 5A 55 53 B0 54 49 45 52 80 45 4E 00 |;EINZUS.TIER.EN.|
00002170: 8E 29 FF 01 53 54 58 20 24 32 35 3B 45 4C 45 4D |.)..STX $25;ELEM|
00002180: 45 4E 54 53 20 42 4C 45 49 42 54 20 49 4E 00 AC |ENTS BLEIBT IN..|
00002190: 29 00 02 53 42 43 20 24 36 39 3B 24 35 45 AB 24 |)..SBC $69;$5E.$|
000021A0: 36 30 2E 42 AB 45 4C 45 4D 45 4E 54 00 CA 29 01 |60.B.ELEMENT..).|
000021B0: 02 53 54 41 20 24 32 32 3B 57 49 52 44 20 44 55 |.STA $22;WIRD DU|
000021C0: 52 43 48 20 5A 45 49 47 45 52 00 E3 29 02 02 54 |RCH ZEIGER..)..T|
000021D0: 58 41 3B 24 32 34 AD 24 32 35 20 47 45 53 45 54 |XA;$24.$25 GESET|
000021E0: 5A 54 2E 00 FE 29 03 02 53 42 43 20 24 36 41 3B |ZT...)..SBC $6A;|
000021F0: 5A 45 49 47 45 52 20 24 37 31 AD 24 37 32 00 15 |ZEIGER $71.$72..|
00002200: 2A 04 02 53 54 41 20 24 32 33 3B 57 49 52 44 20 |*..STA $23;WIRD |
00002210: 4E 49 43 48 54 00 2C 2A 05 02 4A 4D 50 20 56 45 |NICHT.,*..JMP VE|
00002220: 52 53 3B 47 45 41 80 45 52 54 20 21 00 32 2A 06 |RS;GEA.ERT !.2*.|
00002230: 02 3B 00 5F 2A 07 02 3B AB AB AB AB AB AB AB AB |.;._*..;........|
00002240: AB AB AB AB 20 55 4E 54 45 52 50 52 4F 47 52 41 |.... UNTERPROGRA|
00002250: 4D 4D 45 20 AB AB AB AB AB AB AB AB AB AB AB 00 |MME ............|
00002260: 65 2A 08 02 3B 00 85 2A 09 02 41 52 52 41 59 20 |e*..;..*..ARRAY |
00002270: 4C 44 41 20 23 30 3B 96 41 55 4C 54 57 45 52 54 |LDA #0;.AULTWERT|
00002280: 20 46 55 45 52 00 9F 2A 0A 02 53 54 41 20 46 4C | FUER..*..STA FL|
00002290: 41 47 3B 47 41 4E 5A 45 53 20 41 52 52 41 59 00 |AG;GANZES ARRAY.|
000022A0: B8 2A 0B 02 53 54 41 20 46 4C 41 47 31 3B 96 41 |.*..STA FLAG1;.A|
000022B0: 55 4C 54 20 31 2E 86 2E 00 D4 2A 0C 02 4A 53 52 |ULT 1.....*..JSR|
000022C0: 20 43 48 52 CB 54 3B 88 5A 54 45 53 20 5A 45 49 | CHR.T;.ZTES ZEI|
000022D0: 43 48 45 4E 00 EF 2A 0D 02 43 4D 50 20 23 22 23 |CHEN..*..CMP #"#|
000022E0: 22 3B 4E 55 52 20 54 45 49 4C 41 52 52 41 59 00 |";NUR TEILARRAY.|
000022F0: 01 2B 0E 02 42 4E 45 20 41 52 52 31 3B 4E 45 49 |.+..BNE ARR1;NEI|
00002300: 4E 00 1B 2B 0F 02 4A 53 52 20 24 42 37 39 42 3B |N..+..JSR $B79B;|
00002310: 31 20 4F 44 45 52 20 32 20 86 2E 00 23 2B 10 02 |1 ODER 2 ...#+..|
00002320: 44 45 58 00 3F 2B 11 02 53 54 58 20 46 4C 41 47 |DEX.?+..STX FLAG|
00002330: 31 3B 46 4C 41 47 47 45 20 31 AD 32 20 86 2E 00 |1;FLAGGE 1.2 ...|
00002340: 5C 2B 12 02 44 45 43 20 46 4C 41 47 3B 46 4C 41 |\+..DEC FLAG;FLA|
00002350: 47 47 45 20 54 45 49 4C 53 B0 54 2E 00 6F 2B 13 |GGE TEILS.T..o+.|
00002360: 02 41 52 52 31 20 4A 53 52 20 4B 4F 4D 4D 41 00 |.ARR1 JSR KOMMA.|
00002370: 92 2B 14 02 41 52 52 32 20 4A 53 52 20 54 45 52 |.+..ARR2 JSR TER|
00002380: 4D 3B 4E 49 43 48 54 20 24 42 30 38 42 20 21 21 |M;NICHT $B08B !!|
00002390: 21 21 00 9F 2B 15 02 4C 44 59 20 46 4C 41 47 00 |!!..+..LDY FLAG.|
000023A0: AD 2B 16 02 42 4E 45 20 54 45 49 4C 31 00 D9 2B |.+..BNE TEIL1..+|
000023B0: 17 02 3B AB AB AB AB AB AB AB AB 20 47 41 4E 5A |..;........ GANZ|
000023C0: 45 53 20 41 52 52 41 59 20 53 B0 54 49 45 52 45 |ES ARRAY S.TIERE|
000023D0: 4E 20 AB AB AB AB AB AB AB 00 F8 2B 18 02 41 52 |N .........+..AR|
000023E0: 52 33 20 4C 44 41 20 24 32 46 3B 41 42 20 41 4E |R3 LDA $2F;AB AN|
000023F0: 46 41 4E 47 20 44 45 52 00 13 2C 19 02 4C 44 58 |FANG DER..,..LDX|
00002400: 20 24 33 30 3B 41 52 52 41 59 53 20 4D 49 54 20 | $30;ARRAYS MIT |
00002410: 44 45 52 00 33 2C 1A 02 47 41 4E 5A 20 53 54 41 |DER.3,..GANZ STA|
00002420: 20 24 35 37 3B 53 55 43 48 45 20 42 45 47 49 4E | $57;SUCHE BEGIN|
00002430: 4E 45 4E 00 3F 2C 1B 02 53 54 58 20 24 35 38 00 |NEN.?,..STX $58.|
00002440: 57 2C 1C 02 43 4D 50 20 24 33 31 3B 57 45 4E 4E |W,..CMP $31;WENN|
00002450: 20 80 45 20 44 45 52 00 76 2C 1D 02 42 4E 45 20 | .E DER.v,..BNE |
00002460: 47 41 4E 5A 30 3B 41 52 52 41 59 53 20 45 52 52 |GANZ0;ARRAYS ERR|
00002470: 45 49 43 48 54 2C 00 8D 2C 1E 02 43 50 58 20 24 |EICHT,..,..CPX $|
00002480: 33 32 3B 44 41 4E 4E 20 4E 49 43 48 54 00 AE 2C |32;DANN NICHT..,|
00002490: 1F 02 42 45 51 20 46 45 48 4C 45 52 3B 47 45 46 |..BEQ FEHLER;GEF|
000024A0: 55 4E 44 45 4E 2C 46 45 48 4C 45 52 20 21 00 BF |UNDEN,FEHLER !..|
000024B0: 2C 20 02 47 41 4E 5A 30 20 4C 44 59 20 23 30 00 |, .GANZ0 LDY #0.|
000024C0: CF 2C 21 02 4C 44 41 20 28 24 35 37 29 2C 59 00 |.,!.LDA ($57),Y.|
000024D0: D7 2C 22 02 49 4E 59 00 EF 2C 23 02 43 4D 50 20 |.,".INY..,#.CMP |
000024E0: 24 34 35 3B 56 41 52 49 41 42 C3 4E 41 4D 45 00 |$45;VARIAB.NAME.|
000024F0: FD 2C 24 02 42 4E 45 20 47 41 4E 5A 31 00 0D 2D |.,$.BNE GANZ1..-|
00002500: 25 02 4C 44 41 20 28 24 35 37 29 2C 59 00 19 2D |%.LDA ($57),Y..-|
00002510: 26 02 43 4D 50 20 24 34 36 00 3A 2D 27 02 47 41 |&.CMP $46.:-'.GA|
00002520: 4E 5A 31 20 50 48 50 3B 57 45 4E 4E 20 47 45 46 |NZ1 PHP;WENN GEF|
00002530: 55 4E 44 45 4E 2C 44 41 4E 4E 00 53 2D 28 02 49 |UNDEN,DANN.S-(.I|
00002540: 4E 59 3B 5A 45 52 4F 46 4C 41 47 20 47 45 53 45 |NY;ZEROFLAG GESE|
00002550: 54 5A 54 00 73 2D 29 02 4C 44 41 20 28 24 35 37 |TZT.s-).LDA ($57|
00002560: 29 2C 59 3B 80 45 20 4E 41 43 48 20 24 35 39 AD |),Y;.E NACH $59.|
00002570: 24 35 41 00 7B 2D 2A 02 43 4C 43 00 87 2D 2B 02 |$5A.{-*.CLC..-+.|
00002580: 41 44 43 20 24 35 37 00 93 2D 2C 02 53 54 41 20 |ADC $57..-,.STA |
00002590: 24 35 39 00 9B 2D 2D 02 49 4E 59 00 AB 2D 2E 02 |$59..--.INY..-..|
000025A0: 4C 44 41 20 28 24 35 37 29 2C 59 00 B7 2D 2F 02 |LDA ($57),Y..-/.|
000025B0: 41 44 43 20 24 35 38 00 C3 2D 30 02 53 54 41 20 |ADC $58..-0.STA |
000025C0: 24 35 41 00 CB 2D 31 02 54 41 58 00 D7 2D 32 02 |$5A..-1.TAX..-2.|
000025D0: 4C 44 41 20 24 35 39 00 F0 2D 33 02 50 4C 50 3B |LDA $59..-3.PLP;|
000025E0: 54 45 53 54 2C 4F 42 20 47 45 46 55 4E 44 45 4E |TEST,OB GEFUNDEN|
000025F0: 00 0D 2E 34 02 42 4E 45 20 47 41 4E 5A 3B 4E 41 |...4.BNE GANZ;NA|
00002600: 45 43 48 53 54 45 53 20 41 52 52 41 59 00 26 2E |ECHSTES ARRAY.&.|
00002610: 35 02 49 4E 59 3B AB AB 41 52 52 41 59 20 47 45 |5.INY;..ARRAY GE|
00002620: 46 55 4E 44 45 4E 00 44 2E 36 02 4C 44 41 20 28 |FUNDEN.D.6.LDA (|
00002630: 24 35 37 29 2C 59 3B 54 45 53 54 2C 4F 42 20 41 |$57),Y;TEST,OB A|
00002640: 52 52 41 59 00 5B 2E 37 02 43 4D 50 20 23 31 3B |RRAY.[.7.CMP #1;|
00002650: 45 49 4E 86 45 4E 53 49 91 41 4C 00 74 2E 38 02 |EIN.ENSI.AL.t.8.|
00002660: 42 45 51 20 47 41 4E 5A 34 3B 4A 41 2C 44 41 4E |BEQ GANZ4;JA,DAN|
00002670: 4E 20 4F 4B 00 7F 2E 39 02 43 4D 50 20 23 32 00 |N OK...9.CMP #2.|
00002680: 8E 2E 3A 02 42 4E 45 20 46 45 48 4C 45 52 00 9C |..:.BNE FEHLER..|
00002690: 2E 3B 02 4C 44 41 20 46 4C 41 47 31 00 AA 2E 3C |.;.LDA FLAG1...<|
000026A0: 02 42 45 51 20 47 41 4E 5A 33 00 C7 2E 3D 02 46 |.BEQ GANZ3...=.F|
000026B0: 45 48 4C 45 52 20 4C 44 58 20 23 24 31 39 3B 81 |EHLER LDX #$19;.|
000026C0: 4D 55 4C 41 20 A4 4F 00 E7 2E 3E 02 4A 4D 50 20 |MULA .O...>.JMP |
000026D0: 28 24 33 30 30 29 3B 4B 4F 4D 50 4C 45 58 20 41 |($300);KOMPLEX A|
000026E0: 55 53 47 45 42 45 4E 00 F5 2E 3F 02 47 41 4E 5A |USGEBEN...?.GANZ|
000026F0: 33 20 49 4E 59 00 05 2F 40 02 4C 44 41 20 28 24 |3 INY../@.LDA ($|
00002700: 35 37 29 2C 59 00 14 2F 41 02 42 4E 45 20 46 45 |57),Y../A.BNE FE|
00002710: 48 4C 45 52 00 1C 2F 42 02 49 4E 59 00 2C 2F 43 |HLER../B.INY.,/C|
00002720: 02 4C 44 41 20 28 24 35 37 29 2C 59 00 3A 2F 44 |.LDA ($57),Y.:/D|
00002730: 02 53 54 41 20 46 4C 41 47 31 00 47 2F 45 02 4C |.STA FLAG1.G/E.L|
00002740: 44 41 20 23 39 3B 39 00 59 2F 46 02 2E 42 59 54 |DA #9;9.Y/F..BYT|
00002750: 45 20 24 32 43 3B 42 5A 57 00 74 2F 47 02 47 41 |E $2C;BZW.t/G.GA|
00002760: 4E 5A 34 20 4C 44 41 20 23 37 3B 37 20 42 59 54 |NZ4 LDA #7;7 BYT|
00002770: 45 20 5A 55 00 8C 2F 48 02 43 4C 43 3B 41 4E 46 |E ZU../H.CLC;ANF|
00002780: 41 4E 47 20 41 44 44 49 45 52 45 4E 00 A8 2F 49 |ANG ADDIEREN../I|
00002790: 02 41 44 43 20 24 35 37 3B 55 4D 20 41 55 46 20 |.ADC $57;UM AUF |
000027A0: 31 2E 44 45 53 4B 52 2E 00 BE 2F 4A 02 53 54 41 |1.DESKR.../J.STA|
000027B0: 20 24 35 37 3B 5A 55 20 5A 45 49 47 45 4E 00 CB | $57;ZU ZEIGEN..|
000027C0: 2F 4B 02 42 43 43 20 4E 41 4D 45 00 D7 2F 4C 02 |/K.BCC NAME../L.|
000027D0: 49 4E 43 20 24 35 38 00 DD 2F 4D 02 3B 00 FE 2F |INC $58../M.;../|
000027E0: 4E 02 4E 41 4D 45 20 4C 44 58 20 23 35 3B 53 50 |N.NAME LDX #5;SP|
000027F0: 45 5A 2E 50 4C 41 54 5A 42 45 44 41 52 46 00 1A |EZ.PLATZBEDARF..|
00002800: 30 4F 02 4C 44 41 20 24 34 36 3B 41 55 53 20 56 |0O.LDA $46;AUS V|
00002810: 41 52 49 41 42 C3 4E 41 4D 45 00 3A 30 50 02 42 |ARIAB.NAME.:0P.B|
00002820: 50 4C 20 4E 41 4D 45 31 3B 42 45 52 45 43 48 4E |PL NAME1;BERECHN|
00002830: 45 4E 20 55 4E 44 20 49 4E 53 00 4D 30 51 02 44 |EN UND INS.M0Q.D|
00002840: 45 58 3B 58 AB 52 45 47 49 53 54 45 52 00 5F 30 |EX;X.REGISTER._0|
00002850: 52 02 44 45 58 3B B5 45 47 45 52 20 B2 20 32 00 |R.DEX;.EGER . 2.|
00002860: 7C 30 53 02 4E 41 4D 45 31 20 4C 44 41 20 24 34 ||0S.NAME1 LDA $4|
00002870: 35 3B 53 54 52 49 4E 47 20 B2 20 33 00 94 30 54 |5;STRING . 3..0T|
00002880: 02 42 50 4C 20 4E 41 4D 45 32 3B 52 45 41 4C 20 |.BPL NAME2;REAL |
00002890: 20 B2 20 35 00 9C 30 55 02 44 45 58 00 AA 30 56 | . 5..0U.DEX..0V|
000028A0: 02 4E 41 4D 45 32 20 52 54 53 00 D7 30 57 02 3B |.NAME2 RTS..0W.;|
000028B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000028C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000028D0: AB AB AB AB AB AB AB 00 FF 30 58 02 3B AB AB 20 |.........0X.;.. |
000028E0: 42 45 52 45 49 43 48 20 46 55 45 52 20 54 45 49 |BEREICH FUER TEI|
000028F0: 4C 53 B0 54 49 45 8A 47 20 48 4F C3 20 AB AB 00 |LS.TIE.G HO. ...|
00002900: 05 31 59 02 3B 00 16 31 5A 02 54 45 49 4C 31 20 |.1Y.;..1Z.TEIL1 |
00002910: 4C 44 59 20 23 33 00 2A 31 5B 02 54 45 49 4C 32 |LDY #3.*1[.TEIL2|
00002920: 20 4C 44 41 20 24 34 35 2C 59 00 42 31 5C 02 50 | LDA $45,Y.B1\.P|
00002930: 48 41 3B 4E 41 4D 45 20 55 4E 44 20 41 4E 46 41 |HA;NAME UND ANFA|
00002940: 4E 47 00 54 31 5D 02 44 45 59 3B 41 55 46 20 53 |NG.T1].DEY;AUF S|
00002950: 54 41 43 4B 00 62 31 5E 02 42 50 4C 20 54 45 49 |TACK.b1^.BPL TEI|
00002960: 4C 32 00 77 31 5F 02 4A 53 52 20 4B 4F 4D 4D 41 |L2.w1_.JSR KOMMA|
00002970: 3B 80 45 20 48 4F C3 00 84 31 60 02 4A 53 52 20 |;.E HO...1`.JSR |
00002980: 54 45 52 4D 00 9D 31 61 02 4A 53 52 20 4E 41 4D |TERM..1a.JSR NAM|
00002990: 45 3B 41 4E 47 45 47 45 42 45 4E 45 53 00 B7 31 |E;ANGEGEBENES..1|
000029A0: 62 02 54 58 41 3B 45 4C 45 4D 45 4E 54 20 41 55 |b.TXA;ELEMENT AU|
000029B0: 43 48 20 4E 4F 43 48 00 CB 31 63 02 43 4C 43 3B |CH NOCH..1c.CLC;|
000029C0: 4D 49 54 53 B0 54 49 45 52 45 4E 00 D7 31 64 02 |MITS.TIEREN..1d.|
000029D0: 41 44 43 20 24 34 37 00 E3 31 65 02 53 54 41 20 |ADC $47..1e.STA |
000029E0: 24 35 39 00 EF 31 66 02 4C 44 59 20 24 34 38 00 |$59..1f.LDY $48.|
000029F0: FD 31 67 02 42 43 43 20 54 45 49 4C 33 00 05 32 |.1g.BCC TEIL3..2|
00002A00: 68 02 49 4E 59 00 17 32 69 02 54 45 49 4C 33 20 |h.INY..2i.TEIL3 |
00002A10: 53 54 59 20 24 35 41 00 28 32 6A 02 50 4C 41 3B |STY $5A.(2j.PLA;|
00002A20: 54 45 53 54 20 41 55 46 00 43 32 6B 02 43 4D 50 |TEST AUF.C2k.CMP|
00002A30: 20 24 34 35 3B 47 4C 45 49 43 48 45 4E 20 4E 41 | $45;GLEICHEN NA|
00002A40: 4D 45 4E 00 52 32 6C 02 42 4E 45 20 46 45 48 4C |MEN.R2l.BNE FEHL|
00002A50: 45 52 00 5A 32 6D 02 50 4C 41 00 66 32 6E 02 43 |ER.Z2m.PLA.f2n.C|
00002A60: 4D 50 20 24 34 36 00 7B 32 6F 02 46 45 48 4C 41 |MP $46.{2o.FEHLA|
00002A70: 20 42 4E 45 20 46 45 48 4C 45 52 00 93 32 70 02 | BNE FEHLER..2p.|
00002A80: 50 4C 41 3B 4C 4F 57 AB 42 59 54 45 20 41 4E 46 |PLA;LOW.BYTE ANF|
00002A90: 41 4E 47 00 9B 32 71 02 54 41 59 00 B5 32 72 02 |ANG..2q.TAY..2r.|
00002AA0: 50 4C 41 20 3B 48 49 47 48 AB 42 59 54 45 20 41 |PLA ;HIGH.BYTE A|
00002AB0: 4E 46 41 4E 47 00 CC 32 73 02 43 4D 50 20 24 33 |NFANG..2s.CMP $3|
00002AC0: 30 3B 54 45 53 54 2C 4F 42 20 49 4D 00 E7 32 74 |0;TEST,OB IM..2t|
00002AD0: 02 42 43 43 20 46 45 48 4C 45 52 3B 42 45 52 45 |.BCC FEHLER;BERE|
00002AE0: 49 43 48 20 44 45 52 00 FC 32 75 02 42 4E 45 20 |ICH DER..2u.BNE |
00002AF0: 54 45 49 4C 34 3B 41 52 52 41 59 53 00 08 33 76 |TEIL4;ARRAYS..3v|
00002B00: 02 43 50 59 20 24 32 46 00 17 33 77 02 42 43 43 |.CPY $2F..3w.BCC|
00002B10: 20 46 45 48 4C 45 52 00 29 33 78 02 54 45 49 4C | FEHLER.)3x.TEIL|
00002B20: 34 20 53 54 41 20 24 35 38 00 35 33 79 02 53 54 |4 STA $58.53y.ST|
00002B30: 59 20 24 35 37 00 49 33 7A 02 43 4D 50 20 24 35 |Y $57.I3z.CMP $5|
00002B40: 41 3B 54 45 53 54 2C 4F 42 00 63 33 7B 02 42 43 |A;TEST,OB.c3{.BC|
00002B50: 43 20 4E 41 4D 45 32 3B 41 4E 46 41 4E 47 20 B3 |C NAME2;ANFANG .|
00002B60: 20 80 45 00 72 33 7C 02 42 4E 45 20 46 45 48 4C | .E.r3|.BNE FEHL|
00002B70: 45 52 00 7E 33 7D 02 43 50 59 20 24 35 39 00 93 |ER.~3}.CPY $59..|
00002B80: 33 7E 02 46 45 48 4C 42 20 42 43 53 20 46 45 48 |3~.FEHLB BCS FEH|
00002B90: 4C 45 52 00 9B 33 7F 02 52 54 53 00 C8 33 80 02 |LER..3..RTS..3..|
00002BA0: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00002BB0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002BC0: AB AB AB AB AB AB AB AB 00 E0 33 81 02 4C 54 45 |..........3..LTE|
00002BD0: 53 54 20 4C 53 52 3B 47 45 53 2E 50 4C 41 54 5A |ST LSR;GES.PLATZ|
00002BE0: 00 F4 33 82 02 AF 20 23 32 3B 48 41 55 50 54 41 |..3... #2;HAUPTA|
00002BF0: 52 52 41 59 00 08 34 83 02 50 48 50 3B AC 53 50 |RRAY..4..PHP;.SP|
00002C00: 45 5A 2E 50 4C 41 54 5A 00 1F 34 84 02 4C 44 41 |EZ.PLATZ..4..LDA|
00002C10: 20 24 32 32 3B 4E 45 42 45 4E 41 52 52 41 59 00 | $22;NEBENARRAY.|
00002C20: 2D 34 85 02 41 53 4C 3B 20 20 20 20 B2 00 3F 34 |-4..ASL; ..?4|
00002C30: 86 02 54 41 58 3B 47 45 53 2E 50 4C 41 54 5A 00 |..TAX;GES.PLATZ.|
00002C40: 56 34 87 02 4C 44 41 20 24 32 33 3B 4E 45 42 45 |V4..LDA $23;NEBE|
00002C50: 4E 41 52 52 41 59 00 6A 34 88 02 52 4F 4C 3B AC |NARRAY.j4..ROL;.|
00002C60: 53 50 45 5A 2E 50 4C 41 54 5A 00 83 34 89 02 42 |SPEZ.PLATZ..4..B|
00002C70: 43 53 20 46 45 48 4C 42 3B 48 41 55 50 54 41 52 |CS FEHLB;HAUPTAR|
00002C80: 52 41 59 00 99 34 8A 02 54 41 59 3B 53 91 53 54 |RAY..4..TAY;S.ST|
00002C90: 20 46 45 48 4C 45 52 20 21 00 B0 34 8B 02 50 4C | FEHLER !..4..PL|
00002CA0: 50 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |P;..............|
00002CB0: 00 C2 34 8C 02 42 43 43 20 4C 54 32 3B B5 45 47 |..4..BCC LT2;.EG|
00002CC0: 45 52 00 D5 34 8D 02 42 45 51 20 4C 54 31 3B 53 |ER..4..BEQ LT1;S|
00002CD0: 54 52 49 4E 47 00 E2 34 8E 02 54 58 41 3B 52 45 |TRING..4..TXA;RE|
00002CE0: 41 4C 00 EA 34 8F 02 41 53 4C 00 F2 34 90 02 54 |AL..4..ASL..4..T|
00002CF0: 41 58 00 FA 34 91 02 54 59 41 00 02 35 92 02 52 |AX..4..TYA..5..R|
00002D00: 4F 4C 00 0A 35 93 02 54 41 59 00 1E 35 94 02 46 |OL..5..TAY..5..F|
00002D10: 45 48 4C 43 20 42 43 53 20 46 45 48 4C 42 00 2A |EHLC BCS FEHLB.*|
00002D20: 35 95 02 4C 54 31 20 43 4C 43 00 32 35 96 02 54 |5..LT1 CLC.25..T|
00002D30: 58 41 00 3E 35 97 02 41 44 43 20 24 32 32 00 46 |XA.>5..ADC $22.F|
00002D40: 35 98 02 54 41 58 00 4E 35 99 02 54 59 41 00 5A |5..TAX.N5..TYA.Z|
00002D50: 35 9A 02 41 44 43 20 24 32 33 00 62 35 9B 02 54 |5..ADC $23.b5..T|
00002D60: 41 59 00 6E 35 9C 02 4C 54 32 20 52 54 53 00 74 |AY.n5..LT2 RTS.t|
00002D70: 35 9D 02 3B 00 8F 35 9E 02 54 45 53 54 20 4A 53 |5..;..5..TEST JS|
00002D80: 52 20 4C 54 45 53 54 3B 45 49 4E 53 50 8A 47 00 |R LTEST;EINSP.G.|
00002D90: AC 35 9F 02 53 54 58 20 24 32 34 3B 54 45 53 54 |.5..STX $24;TEST|
00002DA0: 20 41 55 46 20 47 4C 45 49 43 48 45 00 C4 35 A0 | AUF GLEICHE..5.|
00002DB0: 02 53 54 59 20 24 32 35 3B 45 4C 45 4D 45 4E 54 |.STY $25;ELEMENT|
00002DC0: 5A 41 48 4C 00 DA 35 A1 02 4C 44 41 20 24 36 39 |ZAHL..5..LDA $69|
00002DD0: 3B 53 2E 22 4C 54 45 53 54 22 00 E6 35 A2 02 53 |;S."LTEST"..5..S|
00002DE0: 54 41 20 24 32 32 00 F2 35 A3 02 4C 44 41 20 24 |TA $22..5..LDA $|
00002DF0: 36 41 00 FE 35 A4 02 53 54 41 20 24 32 33 00 0A |6A..5..STA $23..|
00002E00: 36 A5 02 4C 44 41 20 24 31 34 00 18 36 A6 02 4A |6..LDA $14..6..J|
00002E10: 53 52 20 4C 54 45 53 54 00 24 36 A7 02 43 50 59 |SR LTEST.$6..CPY|
00002E20: 20 24 32 35 00 32 36 A8 02 42 4E 45 20 46 45 48 | $25.26..BNE FEH|
00002E30: 4C 41 00 3E 36 A9 02 43 50 58 20 24 32 34 00 52 |LA.>6..CPX $24.R|
00002E40: 36 AA 02 46 45 48 4C 44 20 42 4E 45 20 46 45 48 |6..FEHLD BNE FEH|
00002E50: 4C 41 00 6C 36 AB 02 4C 44 41 20 24 46 42 3B 54 |LA.l6..LDA $FB;T|
00002E60: 45 53 54 20 4F 42 20 42 45 49 44 45 00 89 36 AC |EST OB BEIDE..6.|
00002E70: 02 43 4D 50 20 24 35 37 3B 41 52 52 41 59 53 20 |.CMP $57;ARRAYS |
00002E80: 47 4C 45 49 43 48 20 BF 44 00 A3 36 AD 02 42 4E |GLEICH .D..6..BN|
00002E90: 45 20 4F 4B 31 3B B2 9E 35 32 30 30 30 2C 41 24 |E OK1;..52000,A$|
00002EA0: 2C 41 24 00 BE 36 AE 02 4C 44 41 20 24 46 43 3B |,A$..6..LDA $FC;|
00002EB0: 57 45 4E 4E 20 4A 41 2C 46 45 48 4C 45 52 00 CA |WENN JA,FEHLER..|
00002EC0: 36 AF 02 43 4D 50 20 24 35 38 00 D8 36 B0 02 42 |6..CMP $58..6..B|
00002ED0: 45 51 20 46 45 48 4C 42 00 E4 36 B1 02 4F 4B 31 |EQ FEHLB..6..OK1|
00002EE0: 20 52 54 53 00 11 37 B2 02 3B AB AB AB AB AB AB | RTS..7..;......|
00002EF0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002F00: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002F10: AB 00 2E 37 B3 02 53 57 41 50 44 32 20 44 45 59 |...7..SWAPD2 DEY|
00002F20: 3B 41 4C 4C 45 20 45 4C 45 4D 45 4E 54 45 00 43 |;ALLE ELEMENTE.C|
00002F30: 37 B4 02 53 54 59 20 24 32 41 3B 44 45 52 20 32 |7..STY $2A;DER 2|
00002F40: 2E 86 2E 00 5A 37 B5 02 4A 53 52 20 44 32 53 45 |....Z7..JSR D2SE|
00002F50: 54 3B 54 41 55 53 43 48 45 4E 00 6A 37 B6 02 44 |T;TAUSCHEN.j7..D|
00002F60: 31 20 4A 53 52 20 44 53 45 54 00 75 37 B7 02 4C |1 JSR DSET.u7..L|
00002F70: 44 59 20 23 32 00 88 37 B8 02 44 32 20 4C 44 41 |DY #2..7..D2 LDA|
00002F80: 20 28 24 34 37 29 2C 59 00 90 37 B9 02 54 41 58 | ($47),Y..7..TAX|
00002F90: 00 A0 37 BA 02 4C 44 41 20 28 24 34 39 29 2C 59 |..7..LDA ($49),Y|
00002FA0: 00 B0 37 BB 02 53 54 41 20 28 24 34 37 29 2C 59 |..7..STA ($47),Y|
00002FB0: 00 B8 37 BC 02 54 58 41 00 C8 37 BD 02 53 54 41 |..7..TXA..7..STA|
00002FC0: 20 28 24 34 39 29 2C 59 00 E0 37 BE 02 44 34 20 | ($49),Y..7..D4 |
00002FD0: 44 45 59 3B 45 49 4E 53 50 8A 47 20 4E 55 4D 2E |DEY;EINSP.G NUM.|
00002FE0: 00 F6 37 BF 02 42 50 4C 20 44 32 3B 4E 45 42 45 |..7..BPL D2;NEBE|
00002FF0: 4E 41 52 52 41 59 00 0B 38 C0 02 44 45 43 20 24 |NARRAY..8..DEC $|
00003000: 32 41 3B 54 41 55 53 43 48 45 4E 00 16 38 C1 02 |2A;TAUSCHEN..8..|
00003010: 42 4E 45 20 44 31 00 1E 38 C2 02 52 54 53 00 4B |BNE D1..8..RTS.K|
00003020: 38 C3 02 3B AB AB AB AB AB AB AB AB AB AB AB AB |8..;............|
00003030: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003040: AB AB AB AB AB AB AB AB AB AB AB 00 68 38 C4 02 |............h8..|
00003050: 44 53 45 54 20 4C 44 41 20 24 34 37 3B 44 45 53 |DSET LDA $47;DES|
00003060: 4B 52 49 50 A4 52 45 4E 00 7E 38 C5 02 43 4C 43 |KRIP.REN.~8..CLC|
00003070: 3B 46 55 45 52 20 45 4C 45 4D 45 4E 54 45 00 92 |;FUER ELEMENTE..|
00003080: 38 C6 02 41 44 43 20 4F 4C 3B 44 45 52 20 32 2E |8..ADC OL;DER 2.|
00003090: 86 2E 00 A8 38 C7 02 53 54 41 20 24 34 37 3B 42 |....8..STA $47;B|
000030A0: 45 52 45 43 48 4E 45 4E 00 B4 38 C8 02 4C 44 41 |ERECHNEN..8..LDA|
000030B0: 20 24 34 38 00 BF 38 C9 02 41 44 43 20 4F 48 00 | $48..8..ADC OH.|
000030C0: CB 38 CA 02 53 54 41 20 24 34 38 00 D3 38 CB 02 |.8..STA $48..8..|
000030D0: 43 4C 43 00 DF 38 CC 02 4C 44 41 20 24 34 39 00 |CLC..8..LDA $49.|
000030E0: EA 38 CD 02 41 44 43 20 4F 4C 00 F6 38 CE 02 53 |.8..ADC OL..8..S|
000030F0: 54 41 20 24 34 39 00 02 39 CF 02 4C 44 41 20 24 |TA $49..9..LDA $|
00003100: 34 41 00 0D 39 D0 02 41 44 43 20 4F 48 00 19 39 |4A..9..ADC OH..9|
00003110: D1 02 53 54 41 20 24 34 41 00 21 39 D2 02 52 54 |..STA $4A.!9..RT|
00003120: 53 00 27 39 D3 02 3B 00 44 39 D4 02 44 32 53 45 |S.'9..;.D9..D2SE|
00003130: 54 20 4C 44 59 20 23 33 3B 56 B0 42 45 52 45 49 |T LDY #3;V.BEREI|
00003140: 54 55 4E 47 00 63 39 D5 02 44 33 20 4C 44 41 20 |TUNG.c9..D3 LDA |
00003150: 24 32 32 2C 59 3B 41 55 46 20 31 2E 45 4C 45 4D |$22,Y;AUF 1.ELEM|
00003160: 45 4E 54 00 7E 39 D6 02 53 54 41 20 24 34 37 2C |ENT.~9..STA $47,|
00003170: 59 3B 44 45 52 20 32 2E 86 45 4E 53 49 91 00 86 |Y;DER 2..ENSI...|
00003180: 39 D7 02 44 45 59 00 91 39 D8 02 42 50 4C 20 44 |9..DEY..9..BPL D|
00003190: 33 00 99 39 D9 02 52 54 53 00 C6 39 DA 02 3B AB |3..9..RTS..9..;.|
000031A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000031B0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000031C0: AB AB AB AB AB AB 00 E6 39 DB 02 47 50 4C 41 54 |........9..GPLAT|
000031D0: 5A 20 4C 44 41 20 24 46 44 3B 47 45 53 41 4D 54 |Z LDA $FD;GESAMT|
000031E0: 50 4C 41 54 5A AB 00 FA 39 DC 02 53 45 43 3B 42 |PLATZ...9..SEC;B|
000031F0: 45 44 41 52 46 20 46 55 45 52 00 11 3A DD 02 53 |EDARF FUER..:..S|
00003200: 42 43 20 24 46 42 3B 48 41 55 50 54 41 52 52 41 |BC $FB;HAUPTARRA|
00003210: 59 00 27 3A DE 02 53 54 41 20 24 36 39 3B 42 45 |Y.':..STA $69;BE|
00003220: 52 45 43 48 4E 45 4E 00 33 3A DF 02 4C 44 41 20 |RECHNEN.3:..LDA |
00003230: 24 46 45 00 3F 3A E0 02 53 42 43 20 24 46 43 00 |$FE.?:..SBC $FC.|
00003240: 4B 3A E1 02 53 54 41 20 24 36 41 00 6B 3A E2 02 |K:..STA $6A.k:..|
00003250: 50 4C 41 54 5A 20 4C 44 41 20 24 35 39 3B 57 49 |PLATZ LDA $59;WI|
00003260: 45 20 4F 42 45 4E 20 46 55 45 52 00 7E 3A E3 02 |E OBEN FUER.~:..|
00003270: 53 45 43 3B 4E 45 42 45 4E 41 52 52 41 59 00 8A |SEC;NEBENARRAY..|
00003280: 3A E4 02 53 42 43 20 24 35 37 00 96 3A E5 02 53 |:..SBC $57..:..S|
00003290: 54 41 20 24 32 32 00 9E 3A E6 02 54 41 58 00 AA |TA $22..:..TAX..|
000032A0: 3A E7 02 4C 44 41 20 24 35 41 00 B6 3A E8 02 53 |:..LDA $5A..:..S|
000032B0: 42 43 20 24 35 38 00 C2 3A E9 02 53 54 41 20 24 |BC $58..:..STA $|
000032C0: 32 33 00 CE 3A EA 02 42 4C 45 20 52 54 53 00 FB |23..:..BLE RTS..|
000032D0: 3A EB 02 3B AB AB AB AB AB AB AB AB AB AB AB AB |:..;............|
000032E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000032F0: AB AB AB AB AB AB AB AB AB AB AB 00 19 3B EC 02 |.............;..|
00003300: 46 4C 41 47 20 4E 4F 50 3B 46 4C 41 47 47 45 20 |FLAG NOP;FLAGGE |
00003310: 54 45 49 4C 41 52 52 41 59 00 33 3B ED 02 46 4C |TEILARRAY.3;..FL|
00003320: 41 47 31 20 4E 4F 50 3B 46 4C 41 47 47 45 20 32 |AG1 NOP;FLAGGE 2|
00003330: 20 86 2E 00 4C 3B EE 02 4F 4C 20 4E 4F 50 3B 4F | ...L;..OL NOP;O|
00003340: 46 46 53 45 54 20 41 55 46 20 31 2E 00 64 3B EF |FFSET AUF 1..d;.|
00003350: 02 4F 48 20 4E 4F 50 3B 45 4C 45 4D 45 4E 54 20 |.OH NOP;ELEMENT |
00003360: 32 2E 86 2E 00 91 3B F0 02 3B AB AB AB AB AB AB |2.....;..;......|
00003370: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003380: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003390: AB 00 BD 3B F1 02 3B AB AB AB AB AB AB AB AB 20 |...;..;........ |
000033A0: 4E 55 4D 45 52 2E 41 52 52 41 59 20 53 B0 54 49 |NUMER.ARRAY S.TI|
000033B0: 45 52 45 4E 20 AB AB AB AB AB AB AB AB 00 EA 3B |EREN ..........;|
000033C0: F2 02 3B AB AB AB AB AB AB AB AB AB AB AB AB AB |..;.............|
000033D0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000033E0: AB AB AB AB AB AB AB AB AB AB 00 08 3C F3 02 42 |............<..B|
000033F0: 4C 20 4C 44 41 20 24 37 31 3B 56 45 52 47 4C 20 |L LDA $71;VERGL |
00003400: 52 4F 55 54 49 4E 45 4E 00 26 3C F4 02 4C 44 59 |ROUTINEN.&<..LDY|
00003410: 20 24 37 32 3B 22 57 4F 52 4B 22 20 42 49 53 20 | $72;"WORK" BIS |
00003420: 22 53 4F 52 54 22 00 2E 3C F5 02 43 4C 43 00 49 |"SORT"..<..CLC.I|
00003430: 3C F6 02 5A 41 48 4C 20 53 54 41 20 24 35 42 3B |<..ZAHL STA $5B;|
00003440: 41 AB 45 4C 45 4D 45 4E 54 00 55 3C F7 02 53 54 |A.ELEMENT.U<..ST|
00003450: 59 20 24 35 43 00 61 3C F8 02 41 44 43 20 24 36 |Y $5C.a<..ADC $6|
00003460: 39 00 69 3C F9 02 54 41 58 00 71 3C FA 02 54 59 |9.i<..TAX.q<..TY|
00003470: 41 00 7D 3C FB 02 41 44 43 20 24 36 41 00 89 3C |A.}<..ADC $6A..<|
00003480: FC 02 43 4D 50 20 24 46 45 00 95 3C FD 02 42 43 |..CMP $FE..<..BC|
00003490: 43 20 42 4C 31 00 A1 3C FE 02 42 4E 45 20 42 4C |C BL1..<..BNE BL|
000034A0: 45 00 AD 3C FF 02 43 50 58 20 24 46 44 00 B9 3C |E..<..CPX $FD..<|
000034B0: 00 03 42 43 53 20 42 4C 45 00 C5 3C 01 03 42 4C |..BCS BLE..<..BL|
000034C0: 31 20 54 41 59 00 DB 3C 02 03 53 54 41 20 24 37 |1 TAY..<..STA $7|
000034D0: 32 3B 42 AB 45 4C 45 4D 45 4E 54 00 F6 3C 03 03 |2;B.ELEMENT..<..|
000034E0: 53 54 58 20 24 37 31 3B 47 52 4F 53 53 45 20 53 |STX $71;GROSSE S|
000034F0: 43 48 4C 45 8B 45 00 0C 3D 04 03 53 54 41 20 24 |CHLE.E..=..STA $|
00003500: 35 45 3B 42 AB 45 4C 45 4D 45 4E 54 00 24 3D 05 |5E;B.ELEMENT.$=.|
00003510: 03 53 54 58 20 24 35 44 3B 45 49 4E 53 B0 54 49 |.STX $5D;EINS.TI|
00003520: 45 52 45 4E 00 30 3D 06 03 4C 44 41 20 24 31 34 |EREN.0=..LDA $14|
00003530: 00 3D 3D 07 03 42 45 51 20 5A 56 45 52 00 49 3D |.==..BEQ ZVER.I=|
00003540: 08 03 4C 44 41 20 24 34 42 00 55 3D 09 03 53 54 |..LDA $4B.U=..ST|
00003550: 41 20 24 34 37 00 61 3D 0A 03 41 44 43 20 24 36 |A $47.a=..ADC $6|
00003560: 42 00 6D 3D 0B 03 53 54 41 20 24 34 42 00 79 3D |B.m=..STA $4B.y=|
00003570: 0C 03 53 54 41 20 24 34 39 00 85 3D 0D 03 4C 44 |..STA $49..=..LD|
00003580: 41 20 24 34 43 00 91 3D 0E 03 53 54 41 20 24 34 |A $4C..=..STA $4|
00003590: 38 00 9D 3D 0F 03 41 44 43 20 24 36 43 00 A9 3D |8..=..ADC $6C..=|
000035A0: 10 03 53 54 41 20 24 34 43 00 B5 3D 11 03 53 54 |..STA $4C..=..ST|
000035B0: 41 20 24 34 41 00 BB 3D 12 03 3B 00 C8 3D 13 03 |A $4A..=..;..=..|
000035C0: 5A 56 45 52 20 54 58 41 00 DF 3D 14 03 42 49 54 |ZVER TXA..=..BIT|
000035D0: 20 8A 44 3B 57 45 4E 4E 20 8A 44 B2 24 46 46 00 | .D;WENN .D.$FF.|
000035E0: F6 3D 15 03 42 56 53 20 B5 3B 44 41 4E 4E 20 B5 |.=..BVS .;DANN .|
000035F0: 45 47 45 52 20 21 00 12 3E 16 03 4A 53 52 20 24 |EGER !..>..JSR $|
00003600: 42 42 41 32 3B 42 AB 45 4C 45 4D 2E 49 4E 20 46 |BBA2;B.ELEM.IN F|
00003610: 41 43 00 28 3E 17 03 4C 44 41 20 24 35 42 3B 56 |AC.(>..LDA $5B;V|
00003620: 45 52 47 4C 2E 4D 49 54 00 3E 3E 18 03 4C 44 59 |ERGL.MIT.>>..LDY|
00003630: 20 24 35 43 3B 41 AB 45 4C 45 4D 45 4E 54 00 50 | $5C;A.ELEMENT.P|
00003640: 3E 19 03 5A 56 31 20 4A 53 52 20 24 42 43 35 42 |>..ZV1 JSR $BC5B|
00003650: 00 58 3E 1A 03 54 41 58 00 63 3E 1B 03 42 45 51 |.X>..TAX.c>..BEQ|
00003660: 20 42 4C 00 71 3E 1C 03 43 4D 50 20 46 4C 41 47 | BL.q>..CMP FLAG|
00003670: 32 00 81 3E 1D 03 5A 56 42 31 20 42 45 51 20 42 |2..>..ZVB1 BEQ B|
00003680: 4C 00 93 3E 1E 03 5A 54 41 55 20 4C 44 59 20 54 |L..>..ZTAU LDY T|
00003690: 59 50 45 00 9B 3E 1F 03 44 45 59 00 AF 3E 20 03 |YPE..>..DEY..> .|
000036A0: 53 5A 31 20 4C 44 41 20 28 24 35 42 29 2C 59 00 |SZ1 LDA ($5B),Y.|
000036B0: B7 3E 21 03 54 41 58 00 C7 3E 22 03 4C 44 41 20 |.>!.TAX..>".LDA |
000036C0: 28 24 35 44 29 2C 59 00 D7 3E 23 03 53 54 41 20 |($5D),Y..>#.STA |
000036D0: 28 24 35 42 29 2C 59 00 DF 3E 24 03 54 58 41 00 |($5B),Y..>$.TXA.|
000036E0: EF 3E 25 03 53 54 41 20 28 24 35 44 29 2C 59 00 |.>%.STA ($5D),Y.|
000036F0: F7 3E 26 03 44 45 59 00 03 3F 27 03 42 50 4C 20 |.>&.DEY..?'.BPL |
00003700: 53 5A 31 00 0F 3F 28 03 4C 44 59 20 24 31 34 00 |SZ1..?(.LDY $14.|
00003710: 1B 3F 29 03 42 45 51 20 5A 56 32 00 27 3F 2A 03 |.?).BEQ ZV2.'?*.|
00003720: 49 4E 43 20 24 32 41 00 32 3F 2B 03 4A 53 52 20 |INC $2A.2?+.JSR |
00003730: 44 34 00 5F 3F 2C 03 3B AB AB AB AB AB AB AB AB |D4._?,.;........|
00003740: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003750: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 |................|
00003760: 7D 3F 2D 03 5A 56 32 20 4C 44 41 20 24 35 42 3B |}?-.ZV2 LDA $5B;|
00003770: 45 4E 54 53 50 52 2E 22 53 4F 52 54 22 00 9A 3F |ENTSPR."SORT"..?|
00003780: 2E 03 4C 44 59 20 24 35 43 3B 42 AB 45 4C 45 4D |..LDY $5C;B.ELEM|
00003790: 45 4E 54 20 42 4C 45 49 42 54 00 AD 3F 2F 03 43 |ENT BLEIBT..?/.C|
000037A0: 50 59 20 24 32 37 3B 49 4D 20 46 41 43 00 B9 3F |PY $27;IM FAC..?|
000037B0: 30 03 42 4E 45 20 5A 56 33 00 C5 3F 31 03 43 4D |0.BNE ZV3..?1.CM|
000037C0: 50 20 24 32 36 00 D0 3F 32 03 42 45 51 20 42 4C |P $26..?2.BEQ BL|
000037D0: 00 E0 3F 33 03 5A 56 33 20 53 54 41 20 24 35 44 |..?3.ZV3 STA $5D|
000037E0: 00 EC 3F 34 03 53 54 59 20 24 35 45 00 F8 3F 35 |..?4.STY $5E..?5|
000037F0: 03 53 42 43 20 24 36 39 00 00 40 36 03 54 41 58 |.SBC $69..@6.TAX|
00003800: 00 08 40 37 03 54 59 41 00 14 40 38 03 53 42 43 |..@7.TYA..@8.SBC|
00003810: 20 24 36 41 00 1C 40 39 03 54 41 59 00 2D 40 3A | $6A..@9.TAY.-@:|
00003820: 03 5A 56 33 41 20 53 54 58 20 24 35 42 00 39 40 |.ZV3A STX $5B.9@|
00003830: 3B 03 53 54 59 20 24 35 43 00 45 40 3C 03 4C 44 |;.STY $5C.E@<.LD|
00003840: 41 20 24 31 34 00 51 40 3D 03 42 45 51 20 5A 56 |A $14.Q@=.BEQ ZV|
00003850: 34 00 5D 40 3E 03 4C 44 41 20 24 34 37 00 65 40 |4.]@>.LDA $47.e@|
00003860: 3F 03 53 45 43 00 71 40 40 03 53 54 41 20 24 34 |?.SEC.q@@.STA $4|
00003870: 39 00 7D 40 41 03 53 42 43 20 24 36 42 00 89 40 |9.}@A.SBC $6B..@|
00003880: 42 03 53 54 41 20 24 34 37 00 95 40 43 03 4C 44 |B.STA $47..@C.LD|
00003890: 41 20 24 34 38 00 A1 40 44 03 53 54 41 20 24 34 |A $48..@D.STA $4|
000038A0: 41 00 AD 40 45 03 53 42 43 20 24 36 43 00 B9 40 |A..@E.SBC $6C..@|
000038B0: 46 03 53 54 41 20 24 34 38 00 C5 40 47 03 5A 56 |F.STA $48..@G.ZV|
000038C0: 34 20 54 58 41 00 D0 40 48 03 42 49 54 20 8A 44 |4 TXA..@H.BIT .D|
000038D0: 00 DC 40 49 03 42 56 43 20 5A 56 31 00 E2 40 4A |..@I.BVC ZV1..@J|
000038E0: 03 3B 00 F2 40 4B 03 B5 20 4C 44 58 20 46 4C 41 |.;..@K.. LDX FLA|
000038F0: 47 32 00 FD 40 4C 03 4C 44 59 20 23 30 00 1A 41 |G2..@L.LDY #0..A|
00003900: 4D 03 49 31 20 4C 44 41 20 28 24 35 42 29 2C 59 |M.I1 LDA ($5B),Y|
00003910: 3B 56 45 52 47 4C 45 49 43 48 00 30 41 4E 03 43 |;VERGLEICH.0AN.C|
00003920: 4D 50 20 28 24 35 44 29 2C 59 3B B5 45 47 45 52 |MP ($5D),Y;.EGER|
00003930: 00 43 41 4F 03 42 43 43 20 4B 4C 3B 4B 4C 45 49 |.CAO.BCC KL;KLEI|
00003940: 4E 45 52 00 57 41 50 03 42 4E 45 20 47 52 3B 47 |NER.WAP.BNE GR;G|
00003950: 52 4F 45 53 53 45 52 00 5F 41 51 03 49 4E 59 00 |ROESSER._AQ.INY.|
00003960: 6A 41 52 03 43 50 59 20 23 32 00 75 41 53 03 42 |jAR.CPY #2.uAS.B|
00003970: 4E 45 20 49 31 00 82 41 54 03 42 45 51 20 5A 56 |NE I1..AT.BEQ ZV|
00003980: 42 31 00 96 41 55 03 47 52 20 54 58 41 3B 45 52 |B1..AU.GR TXA;ER|
00003990: 47 45 42 4E 49 53 00 AE 41 56 03 45 B0 20 23 24 |GEBNIS..AV.E. #$|
000039A0: 46 46 3B 48 45 52 55 4D 44 52 45 48 45 4E 00 C9 |FF;HERUMDREHEN..|
000039B0: 41 57 03 54 41 58 3B 57 49 45 44 45 52 20 4E 41 |AW.TAX;WIEDER NA|
000039C0: 43 48 20 58 AB 52 45 47 2E 00 D4 41 58 03 4B 4C |CH X.REG...AX.KL|
000039D0: 20 54 58 41 00 E1 41 59 03 42 4D 49 20 5A 54 41 | TXA..AY.BMI ZTA|
000039E0: 55 00 EC 41 5A 03 4A 4D 50 20 42 4C 00 F2 41 5B |U..AZ.JMP BL..A[|
000039F0: 03 3B 00 12 42 5C 03 46 4C 41 47 32 20 2E 42 59 |.;..B\.FLAG2 .BY|
00003A00: 54 45 20 31 3B 20 31 20 B2 4B 4C 45 49 4E 53 54 |TE 1; 1 .KLEINST|
00003A10: 45 53 00 3A 42 5D 03 3B 20 20 20 20 20 20 20 20 |ES.:B].; |
00003A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 32 35 35 | 255|
00003A30: B2 47 52 4F 45 53 53 54 45 53 00 5F 42 5E 03 3B |.GROESSTES._B^.;|
00003A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003A50: 20 20 20 20 20 45 4C 45 4D 45 4E 54 20 41 4E 00 | ELEMENT AN.|
00003A60: 85 42 5F 03 3B 20 20 20 20 20 20 20 20 20 20 20 |.B_.; |
00003A70: 20 20 20 20 20 20 20 20 20 20 41 52 52 41 59 41 | ARRAYA|
00003A80: 4E 46 41 4E 47 00 00 00 |NFANG... |
....D.. 9.4096...E..OPT P,OO.2.F... $CB2
0 ;. 52000.8.G.;.E.H.;..................
........................I.;......... QUE
LLTEXT FLASHS.T ............J.;.........
...............................D.K.;.U.L
.TERM . $AD9E...M.STEST . $A3FB...N.KOMM
A . $AEFD...O.CHRKT . $0079...P.TYPE . $
6D.'.Q..D . $6E.7.R.NUMFL . $6F.=.S.;.H.
T.;...... SPEICHERSTELC ZEROPAGE .......
...U.;...... NUR EIN.ENSI.AL.STRING ....
.....V.;.E.W.;.............. HAUPTARRAY
..............K.X.;...Y.;$FB.$FC . HAUPT
ARRAY ANFANG...Z.;$FD.$FE . HAUPTARRAY .
E.1./.{.;$22.$23 . A.ELEMENT HAUPTARRAY.
H.|.;$71.$72 . B.ELEMENT.N.}.;$24.$25 .
B.ELEMENT(EINS.TIEREN)...~.;$26.$27 . TE
ILFELD ANFANG....;$55.$56 . .E.1 DES TE
ILFELDES.S...;$5B.$5D . DESKRIP.R A.ELEM
ENT.....;$5E.$60 . DESKRIP.R B.ELEMENT..
...;$69.$6A . SCHRITTWEITE.9...; $6D
. PLATZBEDARF(2,3 ODER 5).X...; $6E .
.DUNGSBYTE BEIM.~...; HALBIERE
N DER SCHRITT......; WEITE;.EGE
R BENOETIGT.....; S.DERBEH.LUNG
.....; $6F . FLAG NUM..STRINGARRAY...
..; NUM..0 STRING.$FF.....;.9..
.;.............. NEBENARRAY ............
..?...;.U...;$57.$58 . ANFANG.I...;$59.$
5A . .E.1.....;$61.$62 . A.ELEMENT.....;
$4B.$4C . B.ELEMENT.A...;$63.$64 . B.ELE
MENT(EINS.TIEREN).....;$28.$29 . TEILFEL
DBEGINN.....; (TEILFELD.E UNNOE
TIG). ...;$6B.$6C . SCHRITTWEITE.G...;
$14 . PLATZBEDARF(2,3 ODER 5).A...; $
15 . .DUNGSBYTE.....; WIE $6D
.$6E HAUPTARRAY.....;................ ST
ART .....................;.O...LDA #3;ST
ACK AUF.....JSR STEST;6 BYTE TESTEN.....
JSR ARRAY;1.ARRAY HOC.....TXA. ...PHA;TY
P MERKEN.+...LDX #3.L. .SETAR LDA $57,X;
ARRAYGRENZEN.E...STA $FB,X;HAUPTARRAY.M.
..DEX.{...BPL SETAR.....INX.....LDA FLAG
1;2 ..ARRAY.....BEQ SETAR1;NEIN.N...LDA
FLAG;JA,TEST AUF TEIL......PHP;BEREICH;W
ENN JA.....BEQ N.MAL;.E UND ANZAHL.....S
TX FLAG1;ELEMENTE 2..../...JSR ARR3;HOC.
C...N.MAL JSR PLATZ.`...STA $62;GES.PLAT
Z DIVID..Y...STX $63;DURCH ANZAHL.....LD
X #$90;ELEMENTE 2........SEC; . OFFSET A
UF.F...JSR $BC49;DAS 1.ELEMENT.....JSR $
BC0C;DER 2..ENSI......LDY FLAG1.....BEQ
FEHLF.....JSR $B3A2.....LDA $61.%...JSR
$BB12.3...JSR $B7F7.I...STY OL;OFFSET LO
W.`...STA OH;OFFSET HIGH.H...TAX.P...TYA
.X...CLC.....ADC $57.....TAY.....TXA. .A
.ADC $58...B.PLP;NUR TEILARRAY.J.C.BEQ S
ETARA;NEIN...D.CMP $FE;TEST,OB ANGABE...
E.BCC FEHLF;1.ELEMENT DER...F.BNE SETAR0
;2..ENS. .0!.9.G.CPY $FD;WENN NEIN,FEHLE
R.H.H.BCS SETAR0.].I.FEHLF JMP FEHLER.}.
J.SETARA STA $FE;GANZES ARRAY...K.STY $F
D;.E NEU SETZEN.D.L.;...................
.......................M.SETAR0 LDX #0;.
AULT FUER...N.SETAR1 STX $14;KEIN 2.ARRA
Y...O.JSR CHRKT...P.BEQ DEL.4.Q.JSR ARR1
;2.ARRAY HOC.M.R.TXA;PLATZBEDARF NACH.A.
S.STA $14;$14 UND.T.T.LSR;.DUNGSBYTE...U
.BCS SETR;BERECHNEN. .V.LDA #$FF;..EGER.
...W.SETR STA $15;NEBENARRAY.V.X.TXA;STA
RTSCHRITTWEITE...Y.ASL;AUF 511 ELEMENTE.
..Z.TAX;HIGH.PLATZ.2.1.....DEX.....STX $
6C.3...LDA #0;LOW.256.PLATZ.;...SEC.G...
SBC $14.S...STA $6B.B...JSR GPLATZ.{...P
LA;TEST AUF GLEICHE.....PHA;ANZAHL V....
..JSR TEST;ELEMENTEN.Q...;..............
..............................DEL LDY #0
;.AULTWERT.....STY $2A;NUMER.ARRAY.....P
LA;FUER MITS.TIEREN.(...STA TYPE.?...CMP
#3;NUMER.ARRAY.Q...BEQ DEL0;NEIN.K...LD
X FLAG1;JA,TEST AUF.....BNE FEHLF;EIN.EN
SI.AL.....BEQ START0.A...;..............
..............................DEL0 LDA $
FD;LEERSTRINGS.....LDX $FE;AM .E DES....
.DEL1 SEC;ARRAYS ENTFERNEN.-...SBC #3;NU
R WENN HAUPT..G...BCS DEL2;ARRAY STRING.
O...DEX.`...DEL2 STA $55.L...STX $56.|..
.LDA ($55),Y.....BNE START;KEIN LEERSTRI
NG.....LDA $59;NEBENARRAY.E...SEC;VERKLE
INERN.Q...SBC $14.....STA $59.....BCS DE
L3.....DEC $5A.....DEL3 STX $FE;HAUPTARR
AY.*...LDA $55;VERKLEINERN.6...STA $FD.Q
...CMP $FB;TEST OB ARRAY..J...BNE DEL1;A
NFANG SCH......CPX $FC;ERREICHT IST.....
BNE DEL1;NEIN,WEITERMACHEN.....;.A...RTS
;...... .E ...........;
.NUR LEERSTRINGS ......;............
S.TIERBEGINN ............. ...;.4...STA
RT LDA TYPE;.G...DEY;STRING.$FF.C...STAR
T0 STY NUMFL;NUM..0.V...LSR;.DUNGSBYTE..
...BCS START1;BERECHNEN.....LDA #$FF;...
EGER.....START1 STA .D.C...LDA TYPE.Y...
ASL;STARTSCHRITT......TAX;WEITE AUF 511.
....DEX;ELEMENTE SETZEN.....LDA #0;(WIE
OBEN).%...SEC.2...SBC TYPE.>...STA $69.J
...STX $6A.D...LDA 53280;RAHMENFARBE.S..
.PHA;MERKEN. ...;.......................
.....................BIG LSR $6A;SCHRITT
WEITE.S. .LDA $69;HALBIEREN...!.R.;START
MIT 255 ELEM....".BIT .D;TEST AUF .EGER
...#.BVC BIGA;NEIN.7.$.. #$FE;JA,BIT 0 L
OESCHEN.R.%.CLC;UND KEIN UEBERTRAG.D.&.B
IGA BCC BIGB.O.'.SBC .D.|.(.BIGB TAX...)
.BNE BIG1...*.PLA...+.STA 53280...,.RTS;
...... .E .......I.-.BIG1 STA $69.....IN
C 53280;BLINKEN.../.CLC...0.LDA $FB;TEIL
FELDSTART...1.TAX;.ARRAYANFANG./.2.ADC $
69;LOW IN X.REG.I.3.STA $55;HIGH IN Y.RE
G.`.4.LDA $FC;.SCHRITTW..T.5.TAY;.TEILFE
LD.E...6.ADC $6A...7.STA $56...8.LDA $14
...9.BEQ SET3...:.LSR $6C;SCHRITTWEITE.U
.;.LDA $6B;NEBENARRAY...<.R.;HALBIEREN..
.=.BIT $15;TEST AUF .EGER...>.BVC BIG2;N
EIN.0.?.. #$FE;JA,BIT 0 LOESCHEN.K.@.CLC
;UND KEIN UEBERTRAG.].A.BIG2 BCC BIG3.I.
B.SBC $15.Z.C.BIG3 STA $6B...D.LDA $57..
.E.STA $4B...F.STA $28...G.LDA $58.I.H.B
NE SET2A;UNBEDINGTER SP.G...I.;.........
.................................J.SET L
DA $26;NAECHSTES TEILFELD.0.K.LDY $27;BE
ARBEITEN.8.L.CLC.E.M.ADC TYPE.M.N.TAX.Z.
O.BCC SET1.B.P.INY...Q.SET1 CMP $55;WENN
ALLE TEIL.. .R.BNE SET2;FELDER S.TIERT,
...S.CPY $56;DANN SCHRITTWEITE.T.T.BEQ B
IG;HALBIEREN...U.SET2 LDA $14...V.BEQ SE
T3...W.CLC...X.ADC $28...Y.STA $28...Z.S
TA $4B.*.[.LDA $29.5.\.ADC #0.G.].SET2A
STA $29.S.^.STA $4C.`._.SET3 TXA.L.`.STA
$26.X.A.STY $27...B.CLC...C.BIT NUMFL;N
UMER.ARRAY...D.BVS W1;NEIN...E.JSR ZAHL;
JA.F.F.BCS SET...G.;....................
......................H.W.K CLC;S.TIEREN
BIS ZUM.*.I.LDA $71;ERSTEN TAUSCH.I.J.L
DY $72;B.ELEMENT($71.$72).J.K.W1 STA $22
;WIRD ZU A.ELEMENT...L.ADC $69;.SCHRITTW
EITE...M.TAX;. B.ELEMENT. .N.TYA...O.ADC
$6A.J.P.CMP $FE;TEST,OB B.ELEMENT...Q.B
CC .;.ARRAY.E,...R.BNE SET;WENN JA,DANN.
..S.CPX $FD.".T.BCS SET;NAECHSTES TEILFE
LD.0.U.. STA $25.<.V.STY $23.H.W.STX $24
.T.X.STA $72.`.Y.STX $71.L.Z.LDY $14.Z.{
.BEQ VERGL...|.LDA $4B...}.STA $61...~.A
DC $6B....STA $63.....STA $4B.B...LDA $
4C.N...STA $62.Z...ADC $6C.....STA $64..
...STA $4C.. ..;........................
................* ..LDY #0.J ..VERGL LDA
($24),Y;DESKRIP.R.H ..B0 BEQ W.K;B.ELEM
ENT NACH.. ..STA $5E;$5E.$60;WENN.. ..IN
Y;LAENGE.0,DANN.. ..LDA ($24),Y;NAECHSTE
S ELEMENT.E ..STA $5F.M ..INY.. ..LDA ($
24),Y.. ..STA $60..!..;... EINSP.G EINS.
TIEREN (LDY #2) ....2!..VERS LDA ($22),Y
;DESKRIP.R.M!..STA $5D;A.ELEMENT NACH.B!
..DEY;$5B.$5D;WENN..!..LDA ($22),Y;LAENG
E.0,DANN..!..STA $5C;TAUSCHEN..!..DEY;Y.
REG. . 0..!..LDA ($22),Y.D!..STA $5B.Q!.
.BEQ SWAP..!..CMP $5E;VERGLEICHSLAENGE..
"..BEQ VER1;NACH X.REG..."..BCC VER1;HOC
.$"..LDA $5E.1"..VER1 TAX.^" .;.........
................................"..LOOP
LDA ($5C),Y;STRINGVERGLEICH.."..CMP ($5F
),Y;FUER 1..ENSI..."..B1 BCC W.K.1.."..B
NE SWAP.G"..INY.O"..DEX.."..BNE LOOP..".
.LDY $5B.."..CPY $5E..#..BCC W.K.1;WENN
GLEICH,DANN. #..BNE SWAP.<#..LDX FLAG1;T
EST AUF 2....X#..BEQ B0;NEIN,NACH "WORK"
..#..;..................................
.......#..STX $2A;DESKRIP.REN DER..#..JS
R D2SET;2..ENSI..R#..ZL DEC $2A;SETZEN U
ND..#..B2 BEQ B0;VERGLEICH NACH..$..JSR
DSET;DEN ELEMENTEN.!$..LDY #2;ROUTINE IS
T.@$..Z1 LDA ($47),Y;SELBSTMODI..U$..STA
V1,Y;FIZIER..E$..LDA ($49),Y.R$..STA V2
,Y.Z$..DEY..$..BNE Z1..$..LDA ($49),Y..$
..B4 BEQ B0..$..STA $46..$..LDA ($47),Y.
L$..BEQ SWAP.X$..STA $45..$A.CMP $46..$B
.BCC V0..$C.LDA $46..%D.V0 TAX.$%E.V1 LD
A $4711,Y;DUMMY.WERT.=%F.V2 CMP $0815,Y;
".H%G.BCC B1.U%H.BNE SWAP.]%I.INY.E%
J.DEX.P%K.BNE V1.|%L.LDY $45..%M.CPY $46
..%N.BCC B1..%O.BEQ ZL.K%P.;............
.............................%Q.SWAP LDY
FLAG1;TEST 2..ENSI.AL..&R.BEQ SWAP1;NEI
N..&S.JSR SWAPD2;JA,TAUSCHEN.>&T.SWAP1 L
DY $14;TEST NEBENARRAY.Q&U.BEQ SWAP3;NEI
N.E&V.DEY;JA,TAUSCHEN.{&W.SWAP2 LDA ($61
),Y..&X.TAX..&Y.LDA ($63),Y..&Z.STA ($61
),Y..&..TXA..&..STA ($63),Y.C&..DEY.Q&..
BPL SWAP2..&..INY;Y.REG..0..&..SEC..'..L
DA $61;NEBENARRAY..'..STA $63;ZUR EINS..
.*'..SBC $6B;TIE.G.A'..STA $61;V.BEREITE
N.Y'..LDA $62;SIEHE PRG...N'..STA $64;TE
IL S.T.Z'..SBC $6C..'..STA $62..'..SWAP3
LDA $5B;HAUPTARRAY..'..STA ($24),Y;DESK
RIP.REN.T'..LDA $5E;TAUSCHEN..'..STA ($2
2),Y;..'..INY..'..LDA $5C..(..STA ($24),
Y..(..LDA $5F.%(..STA ($22),Y.6(..INY;Y.
REG..2.B(..LDA $5D.R(..STA ($24),Y.^(..L
DA $60.N(..STA ($22),Y..(..;............
.............................(..S.T LDA
$22;NACH LINKS EINS...Y(..LDX $23;TIEREN
,BIS KEIN..(..CPX $27;TAUSCH ERFOLGT BZW
..)..BNE SO1;DIE LINKE TEILFELD.3)..CMP
$26;GRENZE ERREICHT.P)..BEQ B4;IST.DESKR
IP.R DES.O)..SO1 STA $24;EINZUS.TIER.EN.
.)..STX $25;ELEMENTS BLEIBT IN..)..SBC $
69;$5E.$60.B.ELEMENT.J)..STA $22;WIRD DU
RCH ZEIGER..)..TXA;$24.$25 GESETZT...)..
SBC $6A;ZEIGER $71.$72..*..STA $23;WIRD
NICHT.,*..JMP VERS;GEA.ERT !.2*..;._*..;
............ UNTERPROGRAMME ............
E*..;..*..ARRAY LDA #0;.AULTWERT FUER..*
..STA FLAG;GANZES ARRAY..*..STA FLAG1;.A
ULT 1....T*..JSR CHRKT;.ZTES ZEICHEN..*.
.CMP #"#";NUR TEILARRAY..+..BNE ARR1;NEI
N..+..JSR $B79B;1 ODER 2 ...#+..DEX.?+..
STX FLAG1;FLAGGE 1.2 ...\+..DEC FLAG;FLA
GGE TEILS.T..O+..ARR1 JSR KOMMA..+..ARR2
JSR TERM;NICHT $B08B !!!!..+..LDY FLAG.
.+..BNE TEIL1.Y+..;........ GANZES ARRAY
S.TIEREN .........+..ARR3 LDA $2F;AB AN
FANG DER..,..LDX $30;ARRAYS MIT DER.3,..
GANZ STA $57;SUCHE BEGINNEN.?,..STX $58.
W,..CMP $31;WENN .E DER.V,..BNE GANZ0;AR
RAYS ERREICHT,..,..CPX $32;DANN NICHT..,
..BEQ FEHLER;GEFUNDEN,FEHLER !.., .GANZ0
LDY #0.O,!.LDA ($57),Y.W,".INY..,#.CMP
$45;VARIABCNAME..,$.BNE GANZ1..-%.LDA ($
57),Y..-&.CMP $46.:-'.GANZ1 PHP;WENN GEF
UNDEN,DANN.S-(.INY;ZEROFLAG GESETZT.S-).
LDA ($57),Y;.E NACH $59.$5A.{-*.CLC..-+.
ADC $57..-,.STA $59..--.INY..-..LDA ($57
),Y..-/.ADC $58.C-0.STA $5A.K-1.TAX.W-2.
LDA $59..-3.PLP;TEST,OB GEFUNDEN...4.BNE
GANZ;NAECHSTES ARRAY.&.5.INY;..ARRAY GE
FUNDEN.D.6.LDA ($57),Y;TEST,OB ARRAY.[.7
.CMP #1;EIN.ENSI.AL.T.8.BEQ GANZ4;JA,DAN
N OK..9.CMP #2...:.BNE FEHLER...;.LDA F
LAG1...<.BEQ GANZ3.G.=.FEHLER LDX #$19;.
MULA .O...>.JMP ($300);KOMPLEX AUSGEBEN.
..?.GANZ3 INY../@.LDA ($57),Y../A.BNE FE
HLER../B.INY.,/C.LDA ($57),Y.:/D.STA FLA
G1.G/E.LDA #9;9.Y/F..BYTE $2C;BZW.T/G.GA
NZ4 LDA #7;7 BYTE ZU../H.CLC;ANFANG ADDI
EREN../I.ADC $57;UM AUF 1.DESKR.../J.STA
$57;ZU ZEIGEN.K/K.BCC NAME.W/L.INC $58.
./M.;../N.NAME LDX #5;SPEZ.PLATZBEDARF..
0O.LDA $46;AUS VARIABCNAME.:0P.BPL NAME1
;BERECHNEN UND INS.M0Q.DEX;X.REGISTER._0
R.DEX;.EGER . 2.|0S.NAME1 LDA $45;STRING
. 3..0T.BPL NAME2;REAL . 5..0U.DEX..0V
.NAME2 RTS.W0W.;........................
.................0X.;.. BEREICH FUER TEI
LS.TIE.G HOC ....1Y.;..1Z.TEIL1 LDY #3.*
1[.TEIL2 LDA $45,Y.B1\.PHA;NAME UND ANFA
NG.T1].DEY;AUF STACK.B1^.BPL TEIL2.W1_.J
SR KOMMA;.E HOC..1`.JSR TERM..1A.JSR NAM
E;ANGEGEBENES..1B.TXA;ELEMENT AUCH NOCH.
K1C.CLC;MITS.TIEREN.W1D.ADC $47..1E.STA
$59..1F.LDY $48..1G.BCC TEIL3..2H.INY..2
I.TEIL3 STY $5A.(2J.PLA;TEST AUF.C2K.CMP
$45;GLEICHEN NAMEN.R2L.BNE FEHLER.Z2M.P
LA.F2N.CMP $46.{2O.FEHLA BNE FEHLER..2P.
PLA;LOW.BYTE ANFANG..2Q.TAY..2R.PLA ;HIG
H.BYTE ANFANG.L2S.CMP $30;TEST,OB IM..2T
.BCC FEHLER;BEREICH DER..2U.BNE TEIL4;AR
RAYS..3V.CPY $2F..3W.BCC FEHLER.)3X.TEIL
4 STA $58.53Y.STY $57.I3Z.CMP $5A;TEST,O
B.C3{.BCC NAME2;ANFANG . .E.R3|.BNE FEHL
ER.~3}.CPY $59..3~.FEHLB BCS FEHLER..3.
RTS.H3..;...............................
..........3..LTEST LSR;GES.PLATZ..3... #
2;HAUPTARRAY..4..PHP;.SPEZ.PLATZ..4..LDA
$22;NEBENARRAY.-4..ASL; ..?4..TAX;GE
S.PLATZ.V4..LDA $23;NEBENARRAY.J4..ROL;.
SPEZ.PLATZ..4..BCS FEHLB;HAUPTARRAY..4..
TAY;S.ST FEHLER !..4..PLP;..............
.B4..BCC LT2;.EGER.U4..BEQ LT1;STRING..4
..TXA;REAL..4..ASL..4..TAX..4..TYA..5..R
OL..5..TAY..5..FEHLC BCS FEHLB.*5..LT1 C
LC.25..TXA.>5..ADC $22.F5..TAX.N5..TYA.Z
5..ADC $23.B5..TAY.N5..LT2 RTS.T5..;..5.
.TEST JSR LTEST;EINSP.G..5..STX $24;TEST
AUF GLEICHE.D5 .STY $25;ELEMENTZAHL.Z5.
.LDA $69;S."LTEST"..5..STA $22..5..LDA $
6A..5..STA $23..6..LDA $14..6..JSR LTEST
.$6..CPY $25.26..BNE FEHLA.>6..CPX $24.R
6..FEHLD BNE FEHLA.L6..LDA $FB;TEST OB B
EIDE..6..CMP $57;ARRAYS GLEICH .D..6..BN
E OK1;..52000,A$,A$..6..LDA $FC;WENN JA,
FEHLER.J6..CMP $58.X6..BEQ FEHLB..6..OK1
RTS..7..;..............................
...........7..SWAPD2 DEY;ALLE ELEMENTE.C
7..STY $2A;DER 2....Z7..JSR D2SET;TAUSCH
EN.J7..D1 JSR DSET.U7..LDY #2..7..D2 LDA
($47),Y..7..TAX. 7..LDA ($49),Y..7..STA
($47),Y..7..TXA.H7..STA ($49),Y..7..D4
DEY;EINSP.G NUM...7..BPL D2;NEBENARRAY..
8..DEC $2A;TAUSCHEN..8A.BNE D1..8B.RTS.K
8C.;....................................
....H8D.DSET LDA $47;DESKRIP.REN.~8E.CLC
;FUER ELEMENTE..8F.ADC OL;DER 2.....8G.S
TA $47;BERECHNEN..8H.LDA $48..8I.ADC OH.
K8J.STA $48.S8K.CLC..8L.LDA $49..8M.ADC
OL..8N.STA $49..9O.LDA $4A..9P.ADC OH..9
Q.STA $4A.!9R.RTS.'9S.;.D9T.D2SET LDY #3
;V.BEREITUNG.C9U.D3 LDA $22,Y;AUF 1.ELEM
ENT.~9V.STA $47,Y;DER 2..ENSI...9W.DEY..
9X.BPL D3..9Y.RTS.F9Z.;.................
........................9..GPLATZ LDA $F
D;GESAMTPLATZ...9..SEC;BEDARF FUER..:..S
BC $FB;HAUPTARRAY.':..STA $69;BERECHNEN.
3:..LDA $FE.?:..SBC $FC.K:..STA $6A.K:..
PLATZ LDA $59;WIE OBEN FUER.~:..SEC;NEBE
NARRAY..:..SBC $57..:..STA $22..:..TAX..
:..LDA $5A..:..SBC $58.B:..STA $23.N:..B
LE RTS..:..;............................
.............;..FLAG NOP;FLAGGE TEILARRA
Y.3;..FLAG1 NOP;FLAGGE 2 ...L;..OL NOP;O
FFSET AUF 1..D;..OH NOP;ELEMENT 2.....;.
.;......................................
...;..;........ NUMER.ARRAY S.TIEREN ...
.......;..;.............................
............<..BL LDA $71;VERGL ROUTINEN
.&<..LDY $72;"WORK" BIS "SORT"..<..CLC.I
<..ZAHL STA $5B;A.ELEMENT.U<..STY $5C.A<
..ADC $69.I<..TAX.Q<..TYA.}<..ADC $6A..<
..CMP $FE..<..BCC BL1..<..BNE BLE..<..CP
X $FD..<..BCS BLE.E<..BL1 TAY..<..STA $7
2;B.ELEMENT..<..STX $71;GROSSE SCHLE.E..
=..STA $5E;B.ELEMENT.$=..STX $5D;EINS.TI
EREN.0=..LDA $14.==..BEQ ZVER.I=..LDA $4
B.U=..STA $47.A=..ADC $6B.M=..STA $4B.Y=
..STA $49..=..LDA $4C..=..STA $48..=..AD
C $6C..=..STA $4C..=..STA $4A..=..;.H=..
ZVER TXA..=..BIT .D;WENN .D.$FF..=..BVS
.;DANN .EGER !..>..JSR $BBA2;B.ELEM.IN F
AC.(>..LDA $5B;VERGL.MIT.>>..LDY $5C;A.E
LEMENT.P>..ZV1 JSR $BC5B.X>..TAX.C>..BEQ
BL.Q>..CMP FLAG2..>..ZVB1 BEQ BL..>..ZT
AU LDY TYPE..>..DEY..> .SZ1 LDA ($5B),Y.
.>!.TAX.G>".LDA ($5D),Y.W>#.STA ($5B),Y.
.>$.TXA..>%.STA ($5D),Y..>&.DEY..?'.BPL
SZ1..?(.LDY $14..?).BEQ ZV2.'?*.INC $2A.
2?+.JSR D4._?,.;........................
................}?-.ZV2 LDA $5B;ENTSPR."
SORT"..?..LDY $5C;B.ELEMENT BLEIBT..?/.C
PY $27;IM FAC..?0.BNE ZV3.E?1.CMP $26.P?
2.BEQ BL..?3.ZV3 STA $5D..?4.STY $5E..?5
.SBC $69..@6.TAX..@7.TYA..@8.SBC $6A..@9
.TAY.-@:.ZV3A STX $5B.9@;.STY $5C.E@<.LD
A $14.Q@=.BEQ ZV4.]@>.LDA $47.E@?.SEC.Q@
@.STA $49.}@A.SBC $6B..@B.STA $47..@C.LD
A $48..@D.STA $4A..@E.SBC $6C..@F.STA $4
8.E@G.ZV4 TXA.P@H.BIT .D..@I.BVC ZV1..@J
.;..@K.. LDX FLAG2..@L.LDY #0..AM.I1 LDA
($5B),Y;VERGLEICH.0AN.CMP ($5D),Y;.EGER
.CAO.BCC KL;KLEINER.WAP.BNE GR;GROESSER.
_AQ.INY.JAR.CPY #2.UAS.BNE I1..AT.BEQ ZV
B1..AU.GR TXA;ERGEBNIS..AV.E. #$FF;HERUM
DREHEN.IAW.TAX;WIEDER NACH X.REG..TAX.KL
TXA..AY.BMI ZTAU..AZ.JMP BL..A[.;..B\.F
LAG2 .BYTE 1; 1 .KLEINSTES.:B].;
255.GROESSTES._B^.;
ELEMENT AN..B_.;
ARRAYANFANG...
> CLICK IMAGE PREVIEW FOR FULL MODAL