QUICKSORT.SRC
FILE INFORMATION
FILENAME(S): QUICKSORT.SRC
FILE TYPE(S): PRG
FILE SIZE: 8.6K
FIRST SEEN: 2025-11-30 01:12:36
APPEARS ON: 4 disk(s)
FILE HASH
a118e496ed96d1e20498eea6216aab273a2c23f8895916f2266f4e2be20f6146
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HEFT 12 85 | QUICKSORT.SRC | PRG | C64er | 9 | 9 | DOWNLOAD FILE |
| 64 ER 7 95 | QUICKSORT.SRC | PRG | DuncanTwain | 20 | 5 | DOWNLOAD FILE |
| HEFT 12 85 | QUICKSORT.SRC | PRG | DuncanTwain | 9 | 9 | DOWNLOAD FILE |
| HEFT 12 85 | QUICKSORT.SRC | PRG | DuncanTwain | 9 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 0A 00 9E 33 36 38 36 34 3A 2E 4F 50 |.......36864:.OP|
00000010: 54 20 50 2C 4F 4F 3A AC B2 20 35 32 30 30 30 00 |T P,OO:.. 52000.|
00000020: 31 08 14 00 4C 41 45 4E 47 45 31 20 B2 20 24 42 |1...LAENGE1 . $B|
00000030: 32 00 43 08 1E 00 4C 41 45 4E 47 45 32 20 B2 20 |2.C...LAENGE2 . |
00000040: 24 42 35 00 55 08 28 00 53 54 52 31 20 20 20 20 |$B5.U.(.STR1 |
00000050: B2 20 24 42 33 00 67 08 32 00 53 54 52 32 20 20 |. $B3.g.2.STR2 |
00000060: 20 20 B2 20 24 42 36 00 79 08 37 00 55 4D 55 4C | . $B6.y.7.UMUL|
00000070: 54 31 20 20 B2 20 24 32 38 00 8B 08 38 00 55 4D |T1 . $28...8.UM|
00000080: 55 4C 54 32 20 20 B2 20 24 37 31 00 9F 08 39 00 |ULT2 . $71...9.|
00000090: 55 4D 55 4C 54 20 20 20 B2 20 24 42 33 35 37 00 |UMULT . $B357.|
000000A0: B1 08 3A 00 41 41 52 52 41 59 20 20 B2 20 24 32 |..:.AARRAY . $2|
000000B0: 46 00 C2 08 3B 00 56 45 4B A4 52 31 20 B2 20 24 |F...;.VEK.R1 . $|
000000C0: 46 42 00 D3 08 3C 00 56 45 4B A4 52 32 20 B2 20 |FB...<.VEK.R2 . |
000000D0: 24 46 44 00 ED 08 64 00 20 20 20 20 20 20 20 20 |$FD...d. |
000000E0: 20 20 20 4A 53 52 20 52 45 47 53 45 54 00 03 09 | JSR REGSET...|
000000F0: 65 00 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |e. LDX|
00000100: 20 23 30 00 20 09 66 00 4D 41 52 4B 45 31 20 20 | #0. .f.MARKE1 |
00000110: 20 20 20 4C 44 41 20 4C 41 45 4E 47 45 31 2C 58 | LDA LAENGE1,X|
00000120: 00 39 09 67 00 20 20 20 20 20 20 20 20 20 20 20 |.9.g. |
00000130: 53 54 41 20 37 30 30 2C 58 00 4C 09 68 00 20 20 |STA 700,X.L.h. |
00000140: 20 20 20 20 20 20 20 20 20 49 4E 58 00 62 09 69 | INX.b.i|
00000150: 00 20 20 20 20 20 20 20 20 20 20 20 43 50 58 20 |. CPX |
00000160: 23 36 00 7C 09 6A 00 20 20 20 20 20 20 20 20 20 |#6.|.j. |
00000170: 20 20 42 4E 45 20 4D 41 52 4B 45 31 00 99 09 6E | BNE MARKE1...n|
00000180: 00 20 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |. JSR |
00000190: 48 41 55 50 54 53 43 48 4C 00 AF 09 6F 00 20 20 |HAUPTSCHL...o. |
000001A0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 00 | LDX #0.|
000001B0: C8 09 70 00 4D 41 52 4B 45 32 20 20 20 20 20 4C |..p.MARKE2 L|
000001C0: 44 41 20 37 30 30 2C 58 00 E5 09 71 00 20 20 20 |DA 700,X...q. |
000001D0: 20 20 20 20 20 20 20 20 53 54 41 20 4C 41 45 4E | STA LAEN|
000001E0: 47 45 31 2C 58 00 F8 09 72 00 20 20 20 20 20 20 |GE1,X...r. |
000001F0: 20 20 20 20 20 49 4E 58 00 0E 0A 73 00 20 20 20 | INX...s. |
00000200: 20 20 20 20 20 20 20 20 43 50 58 20 23 36 00 28 | CPX #6.(|
00000210: 0A 74 00 20 20 20 20 20 20 20 20 20 20 20 42 4E |.t. BN|
00000220: 45 20 4D 41 52 4B 45 32 00 3B 0A 75 00 20 20 20 |E MARKE2.;.u. |
00000230: 20 20 20 20 20 20 20 20 52 54 53 00 41 0A 82 00 | RTS.A...|
00000240: 3B 00 5A 0A 8C 00 48 41 55 50 54 53 43 48 4C 20 |;.Z...HAUPTSCHL |
00000250: 20 4A 53 52 20 48 4F 43 48 5A 00 73 0A 91 00 20 | JSR HOCHZ.s... |
00000260: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 48 4F | JSR HO|
00000270: 4C 4C 52 00 8E 0A 96 00 20 20 20 20 20 20 20 20 |LLR..... |
00000280: 20 20 20 4A 53 52 20 4C 52 56 45 52 47 4C 00 A4 | JSR LRVERGL..|
00000290: 0A A0 00 20 20 20 20 20 20 20 20 20 20 20 43 4D |... CM|
000002A0: 50 20 23 30 00 BC 0A AA 00 20 20 20 20 20 20 20 |P #0..... |
000002B0: 20 20 20 20 42 45 51 20 5A 33 35 30 00 D2 0A B4 | BEQ Z350....|
000002C0: 00 20 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 |. CMP |
000002D0: 23 32 00 EA 0A BE 00 20 20 20 20 20 20 20 20 20 |#2..... |
000002E0: 20 20 42 45 51 20 5A 33 35 30 00 03 0B C3 00 20 | BEQ Z350..... |
000002F0: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 48 4F | JSR HO|
00000300: 4C 58 59 00 1D 0B D2 00 20 20 20 20 20 20 20 20 |LXY..... |
00000310: 20 20 20 4A 53 52 20 45 56 49 4E 44 49 00 38 0B | JSR EVINDI.8.|
00000320: DC 00 5A 32 37 30 20 20 20 20 20 20 20 4A 53 52 |..Z270 JSR|
00000330: 20 58 59 56 45 52 47 4C 00 4E 0B E6 00 20 20 20 | XYVERGL.N... |
00000340: 20 20 20 20 20 20 20 20 43 4D 50 20 23 32 00 66 | CMP #2.f|
00000350: 0B F0 00 20 20 20 20 20 20 20 20 20 20 20 42 45 |... BE|
00000360: 51 20 5A 33 33 30 00 80 0B FA 00 5A 32 38 30 20 |Q Z330.....Z280 |
00000370: 20 20 20 20 20 20 4A 53 52 20 45 58 49 4E 44 49 | JSR EXINDI|
00000380: 00 9A 0B 04 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000390: 4A 53 52 20 45 49 4E 53 50 52 00 B0 0B 0E 01 20 |JSR EINSPR..... |
000003A0: 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 32 | CMP #2|
000003B0: 00 C8 0B 18 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
000003C0: 42 45 51 20 5A 32 39 30 00 DE 0B 1D 01 20 20 20 |BEQ Z290..... |
000003D0: 20 20 20 20 20 20 20 20 43 4D 50 20 23 30 00 F6 | CMP #0..|
000003E0: 0B 1E 01 20 20 20 20 20 20 20 20 20 20 20 42 45 |... BE|
000003F0: 51 20 5A 32 39 30 00 0F 0C 22 01 20 20 20 20 20 |Q Z290...". |
00000400: 20 20 20 20 20 20 4A 53 52 20 48 4F 43 48 58 00 | JSR HOCHX.|
00000410: 27 0C 2C 01 20 20 20 20 20 20 20 20 20 20 20 4A |'.,. J|
00000420: 4D 50 20 5A 32 38 30 00 41 0C 36 01 5A 32 39 30 |MP Z280.A.6.Z290|
00000430: 20 20 20 20 20 20 20 4A 53 52 20 45 59 49 4E 44 | JSR EYIND|
00000440: 49 00 5B 0C 40 01 20 20 20 20 20 20 20 20 20 20 |I.[.@. |
00000450: 20 4A 53 52 20 45 49 4E 53 50 52 00 71 0C 4A 01 | JSR EINSPR.q.J.|
00000460: 20 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 | CMP #|
00000470: 31 00 89 0C 54 01 20 20 20 20 20 20 20 20 20 20 |1...T. |
00000480: 20 42 45 51 20 5A 33 30 30 00 9F 0C 59 01 20 20 | BEQ Z300...Y. |
00000490: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 30 00 | CMP #0.|
000004A0: B7 0C 5A 01 20 20 20 20 20 20 20 20 20 20 20 42 |..Z. B|
000004B0: 45 51 20 5A 33 30 30 00 D0 0C 5E 01 20 20 20 20 |EQ Z300...^. |
000004C0: 20 20 20 20 20 20 20 4A 53 52 20 8A 54 45 52 59 | JSR .TERY|
000004D0: 00 E8 0C 68 01 20 20 20 20 20 20 20 20 20 20 20 |...h. |
000004E0: 4A 4D 50 20 5A 32 39 30 00 03 0D 72 01 5A 33 30 |JMP Z290...r.Z30|
000004F0: 30 20 20 20 20 20 20 20 4A 53 52 20 58 59 56 45 |0 JSR XYVE|
00000500: 52 47 4C 00 19 0D 7C 01 20 20 20 20 20 20 20 20 |RGL...|. |
00000510: 20 20 20 43 4D 50 20 23 32 00 31 0D 86 01 20 20 | CMP #2.1... |
00000520: 20 20 20 20 20 20 20 20 20 42 45 51 20 5A 33 33 | BEQ Z33|
00000530: 30 00 49 0D 90 01 20 20 20 20 20 20 20 20 20 20 |0.I... |
00000540: 20 4A 53 52 20 53 57 41 50 00 62 0D 9A 01 20 20 | JSR SWAP.b... |
00000550: 20 20 20 20 20 20 20 20 20 4A 53 52 20 48 4F 43 | JSR HOC|
00000560: 48 58 00 7B 0D A4 01 20 20 20 20 20 20 20 20 20 |HX.{... |
00000570: 20 20 4A 53 52 20 8A 54 45 52 59 00 93 0D AE 01 | JSR .TERY.....|
00000580: 20 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 5A | JMP Z|
00000590: 32 37 30 00 99 0D B3 01 3B 00 B3 0D B8 01 5A 33 |270.....;.....Z3|
000005A0: 33 30 20 20 20 20 20 20 20 4A 53 52 20 50 55 53 |30 JSR PUS|
000005B0: 48 4C 59 00 D0 0D CC 01 20 20 20 20 20 20 20 20 |HLY..... |
000005C0: 20 20 20 4A 53 52 20 48 41 55 50 54 53 43 48 4C | JSR HAUPTSCHL|
000005D0: 00 D6 0D D6 01 3B 00 F0 0D E0 01 20 20 20 20 20 |.....;..... |
000005E0: 20 20 20 20 20 20 4A 53 52 20 50 55 53 48 58 52 | JSR PUSHXR|
000005F0: 00 0D 0E F4 01 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000600: 4A 53 52 20 48 41 55 50 54 53 43 48 4C 00 13 0E |JSR HAUPTSCHL...|
00000610: FE 01 3B 00 2C 0E AC 03 5A 33 35 30 20 20 20 20 |..;.,...Z350 |
00000620: 20 20 20 4A 4D 50 20 8A 54 45 52 5A 00 32 0E ED | JMP .TERZ.2..|
00000630: 03 3B 00 55 0E F2 03 3B 20 20 20 20 56 45 52 47 |.;.U...; VERG|
00000640: 4C 45 49 43 48 20 53 54 52 31 20 4D 49 54 20 56 |LEICH STR1 MIT V|
00000650: 45 52 47 4C 24 00 77 0E F3 03 3B 31 29 20 53 54 |ERGL$.w...;1) ST|
00000660: 52 31 B3 56 45 52 47 4C 20 20 32 29 20 53 54 52 |R1.VERGL 2) STR|
00000670: 31 B1 56 45 52 47 4C 00 7D 0E F7 03 3B 00 94 0E |1.VERGL.}...;...|
00000680: FC 03 45 49 4E 53 50 52 20 20 20 20 4C 44 59 20 |..EINSPR LDY |
00000690: 23 24 46 46 00 A6 0E 06 04 53 43 48 4C 31 20 20 |#$FF.....SCHL1 |
000006A0: 20 20 20 49 4E 59 00 C0 0E 10 04 20 20 20 20 20 | INY..... |
000006B0: 20 20 20 20 20 43 50 59 20 4C 41 45 4E 47 45 31 | CPY LAENGE1|
000006C0: 00 DA 0E 1A 04 20 20 20 20 20 20 20 20 20 20 42 |..... B|
000006D0: 4E 45 20 57 45 49 54 45 52 31 00 EF 0E 24 04 20 |NE WEITER1...$. |
000006E0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 00 | LDA #1.|
000006F0: 06 0F 2E 04 20 20 20 20 20 20 20 20 20 20 4A 4D |.... JM|
00000700: 50 20 52 41 55 53 00 20 0F 38 04 57 45 49 54 45 |P RAUS. .8.WEITE|
00000710: 52 31 20 20 20 43 50 59 20 4C 41 45 4E 47 45 32 |R1 CPY LAENGE2|
00000720: 00 3A 0F 42 04 20 20 20 20 20 20 20 20 20 20 42 |.:.B. B|
00000730: 4E 45 20 57 45 49 54 45 52 32 00 4F 0F 4C 04 20 |NE WEITER2.O.L. |
00000740: 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 32 00 | LDA #2.|
00000750: 66 0F 56 04 20 20 20 20 20 20 20 20 20 20 4A 4D |f.V. JM|
00000760: 50 20 52 41 55 53 00 81 0F 60 04 57 45 49 54 45 |P RAUS...`.WEITE|
00000770: 52 32 20 20 20 4C 44 41 20 28 53 54 52 31 29 2C |R2 LDA (STR1),|
00000780: 59 00 9C 0F 6A 04 20 20 20 20 20 20 20 20 20 20 |Y...j. |
00000790: 43 4D 50 20 28 53 54 52 32 29 2C 59 00 AA 0F 74 |CMP (STR2),Y...t|
000007A0: 04 42 45 51 20 53 43 48 4C 31 00 C6 0F 7E 04 20 |.BEQ SCHL1...~. |
000007B0: 20 20 20 20 20 20 20 20 20 42 43 43 20 57 45 49 | BCC WEI|
000007C0: 54 45 52 33 AA 31 00 DB 0F 88 04 20 20 20 20 20 |TER3.1..... |
000007D0: 20 20 20 20 20 4C 44 41 20 23 32 00 08 10 92 04 | LDA #2.....|
000007E0: 57 45 49 54 45 52 33 20 20 20 42 49 54 20 24 31 |WEITER3 BIT $1|
000007F0: 41 39 20 3B 4D 41 53 4B 49 45 8A 47 20 46 55 45 |A9 ;MASKIE.G FUE|
00000800: 52 20 4C 44 41 20 23 31 00 1A 10 B0 04 20 20 20 |R LDA #1..... |
00000810: 20 20 20 20 20 20 20 52 54 53 00 34 10 BA 04 52 | RTS.4...R|
00000820: 41 55 53 20 20 20 20 20 20 4C 44 58 20 4C 41 45 |AUS LDX LAE|
00000830: 4E 47 45 31 00 4E 10 C4 04 20 20 20 20 20 20 20 |NGE1.N... |
00000840: 20 20 20 43 50 58 20 4C 41 45 4E 47 45 32 00 67 | CPX LAENGE2.g|
00000850: 10 CE 04 20 20 20 20 20 20 20 20 20 20 42 4E 45 |... BNE|
00000860: 20 46 45 52 54 49 47 00 7C 10 D8 04 20 20 20 20 | FERTIG.|... |
00000870: 20 20 20 20 20 20 4C 44 41 20 23 30 00 8E 10 E2 | LDA #0....|
00000880: 04 46 45 52 54 49 47 20 20 20 20 52 54 53 00 94 |.FERTIG RTS..|
00000890: 10 EC 04 3B 00 B4 10 F6 04 3B 20 20 20 20 56 45 |...;.....; VE|
000008A0: 52 47 4C 45 49 43 48 45 4E 20 56 91 20 58 20 55 |RGLEICHEN V. X U|
000008B0: 4E 44 20 59 00 DC 10 FB 04 3B 58 B1 59 20 4C 44 |ND Y.....;X.Y LD|
000008C0: 41 20 23 32 20 20 58 B3 59 20 4C 44 41 20 23 31 |A #2 X.Y LDA #1|
000008D0: 20 20 58 B2 59 20 4C 44 41 20 23 30 00 E2 10 00 | X.Y LDA #0....|
000008E0: 05 3B 00 FB 10 0A 05 58 59 56 45 52 47 4C 20 20 |.;.....XYVERGL |
000008F0: 20 4C 44 41 20 58 52 45 47 AA 31 00 14 11 14 05 | LDA XREG.1.....|
00000900: 20 20 20 20 20 20 20 20 20 20 43 4D 50 20 59 52 | CMP YR|
00000910: 45 47 AA 31 00 2E 11 1E 05 20 20 20 20 20 20 20 |EG.1..... |
00000920: 20 20 20 42 4E 45 20 57 45 49 54 45 52 34 00 45 | BNE WEITER4.E|
00000930: 11 28 05 20 20 20 20 20 20 20 20 20 20 4C 44 41 |.(. LDA|
00000940: 20 58 52 45 47 00 5C 11 32 05 20 20 20 20 20 20 | XREG.\.2. |
00000950: 20 20 20 20 43 4D 50 20 59 52 45 47 00 77 11 3C | CMP YREG.w.<|
00000960: 05 20 20 20 20 20 20 20 20 20 20 42 45 51 20 47 |. BEQ G|
00000970: 4C 45 49 43 48 AA 31 00 94 11 46 05 57 45 49 54 |LEICH.1...F.WEIT|
00000980: 45 52 34 20 20 20 42 43 53 20 47 52 4F 45 53 53 |ER4 BCS GROESS|
00000990: 45 52 AA 31 00 A9 11 50 05 20 20 20 20 20 20 20 |ER.1...P. |
000009A0: 20 20 20 4C 44 41 20 23 31 00 D0 11 5A 05 47 4C | LDA #1...Z.GL|
000009B0: 45 49 43 48 20 20 20 2E 42 59 54 20 24 32 43 2C |EICH .BYT $2C,|
000009C0: 24 41 39 2C 30 20 3B 42 49 54 20 24 30 30 41 39 |$A9,0 ;BIT $00A9|
000009D0: 00 E7 11 64 05 47 52 4F 45 53 53 45 52 20 20 42 |...d.GROESSER B|
000009E0: 49 54 20 24 32 41 39 00 F9 11 6E 05 20 20 20 20 |IT $2A9...n. |
000009F0: 20 20 20 20 20 20 52 54 53 00 FF 11 78 05 3B 00 | RTS...x.;.|
00000A00: 1F 12 82 05 3B 20 20 20 20 56 45 52 47 4C 45 49 |....; VERGLEI|
00000A10: 43 48 45 4E 20 56 91 20 4C 20 55 4E 44 20 52 00 |CHEN V. L UND R.|
00000A20: 47 12 87 05 3B 4C B1 52 20 4C 44 41 20 23 32 20 |G...;L.R LDA #2 |
00000A30: 20 4C B3 52 20 4C 44 41 20 23 31 20 20 4C B2 52 | L.R LDA #1 L.R|
00000A40: 20 4C 44 41 20 23 30 00 4D 12 8C 05 3B 00 66 12 | LDA #0.M...;.f.|
00000A50: 96 05 4C 52 56 45 52 47 4C 20 20 20 4C 44 41 20 |..LRVERGL LDA |
00000A60: 4C 52 45 47 AA 31 00 7F 12 A0 05 20 20 20 20 20 |LREG.1..... |
00000A70: 20 20 20 20 20 43 4D 50 20 52 52 45 47 AA 31 00 | CMP RREG.1.|
00000A80: 99 12 AA 05 20 20 20 20 20 20 20 20 20 20 42 4E |.... BN|
00000A90: 45 20 57 45 49 54 45 52 35 00 B0 12 B4 05 20 20 |E WEITER5..... |
00000AA0: 20 20 20 20 20 20 20 20 4C 44 41 20 4C 52 45 47 | LDA LREG|
00000AB0: 00 C7 12 BE 05 20 20 20 20 20 20 20 20 20 20 43 |..... C|
00000AC0: 4D 50 20 52 52 45 47 00 E2 12 C8 05 20 20 20 20 |MP RREG..... |
00000AD0: 20 20 20 20 20 20 42 45 51 20 47 4C 45 49 43 48 | BEQ GLEICH|
00000AE0: AA 31 00 FF 12 D2 05 57 45 49 54 45 52 35 20 20 |.1.....WEITER5 |
00000AF0: 20 42 43 53 20 47 52 4F 45 53 53 45 52 AA 31 00 | BCS GROESSER.1.|
00000B00: 14 13 DC 05 20 20 20 20 20 20 20 20 20 20 4C 44 |.... LD|
00000B10: 41 20 23 31 00 26 13 E6 05 20 20 20 20 20 20 20 |A #1.&... |
00000B20: 20 20 20 52 54 53 00 2C 13 C1 07 3B 00 4F 13 C6 | RTS.,...;.O..|
00000B30: 07 3B 20 52 45 47 49 53 54 45 52 20 48 4F 43 48 |.; REGISTER HOCH|
00000B40: AB 20 55 4E 47 20 8A 54 45 52 5A 41 45 48 C3 00 |. UNG .TERZAEH..|
00000B50: 55 13 CB 07 3B 00 67 13 D0 07 48 4F 43 48 5A 20 |U...;.g...HOCHZ |
00000B60: 20 20 20 20 43 4C 43 00 7E 13 E4 07 20 20 20 20 | CLC.~... |
00000B70: 20 20 20 20 20 20 4C 44 41 20 5A 52 45 47 00 89 | LDA ZREG..|
00000B80: 13 EE 07 41 44 43 20 23 34 00 A0 13 F8 07 20 20 |...ADC #4..... |
00000B90: 20 20 20 20 20 20 20 20 53 54 41 20 5A 52 45 47 | STA ZREG|
00000BA0: 00 B9 13 02 08 20 20 20 20 20 20 20 20 20 20 4C |..... L|
00000BB0: 44 41 20 5A 52 45 47 AA 31 00 CE 13 0C 08 20 20 |DA ZREG.1..... |
00000BC0: 20 20 20 20 20 20 20 20 41 44 43 20 23 30 00 E7 | ADC #0..|
00000BD0: 13 16 08 20 20 20 20 20 20 20 20 20 20 53 54 41 |... STA|
00000BE0: 20 5A 52 45 47 AA 31 00 F9 13 2A 08 20 20 20 20 | ZREG.1...*. |
00000BF0: 20 20 20 20 20 20 52 54 53 00 09 14 34 08 8A 54 | RTS...4..T|
00000C00: 45 52 5A 20 20 20 53 45 43 00 20 14 48 08 20 20 |ERZ SEC. .H. |
00000C10: 20 20 20 20 20 20 20 20 4C 44 41 20 5A 52 45 47 | LDA ZREG|
00000C20: 00 35 14 52 08 20 20 20 20 20 20 20 20 20 20 53 |.5.R. S|
00000C30: 42 43 20 23 34 00 4C 14 5C 08 20 20 20 20 20 20 |BC #4.L.\. |
00000C40: 20 20 20 20 53 54 41 20 5A 52 45 47 00 65 14 66 | STA ZREG.e.f|
00000C50: 08 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 5A |. LDA Z|
00000C60: 52 45 47 AA 31 00 7A 14 70 08 20 20 20 20 20 20 |REG.1.z.p. |
00000C70: 20 20 20 20 53 42 43 20 23 30 00 93 14 7A 08 20 | SBC #0...z. |
00000C80: 20 20 20 20 20 20 20 20 20 53 54 41 20 5A 52 45 | STA ZRE|
00000C90: 47 AA 31 00 A5 14 8E 08 20 20 20 20 20 20 20 20 |G.1..... |
00000CA0: 20 20 52 54 53 00 B7 14 98 08 48 4F 43 48 58 20 | RTS.....HOCHX |
00000CB0: 20 20 20 20 43 4C 43 00 CE 14 AC 08 20 20 20 20 | CLC..... |
00000CC0: 20 20 20 20 20 20 4C 44 41 20 58 52 45 47 00 E3 | LDA XREG..|
00000CD0: 14 B6 08 20 20 20 20 20 20 20 20 20 20 41 44 43 |... ADC|
00000CE0: 20 23 31 00 FA 14 C0 08 20 20 20 20 20 20 20 20 | #1..... |
00000CF0: 20 20 53 54 41 20 58 52 45 47 00 13 15 CA 08 20 | STA XREG..... |
00000D00: 20 20 20 20 20 20 20 20 20 4C 44 41 20 58 52 45 | LDA XRE|
00000D10: 47 AA 31 00 28 15 D4 08 20 20 20 20 20 20 20 20 |G.1.(... |
00000D20: 20 20 41 44 43 20 23 30 00 41 15 DE 08 20 20 20 | ADC #0.A... |
00000D30: 20 20 20 20 20 20 20 53 54 41 20 58 52 45 47 AA | STA XREG.|
00000D40: 31 00 53 15 F2 08 20 20 20 20 20 20 20 20 20 20 |1.S... |
00000D50: 52 54 53 00 63 15 FC 08 8A 54 45 52 59 20 20 20 |RTS.c....TERY |
00000D60: 53 45 43 00 7A 15 10 09 20 20 20 20 20 20 20 20 |SEC.z... |
00000D70: 20 20 4C 44 41 20 59 52 45 47 00 8F 15 1A 09 20 | LDA YREG..... |
00000D80: 20 20 20 20 20 20 20 20 20 53 42 43 20 23 31 00 | SBC #1.|
00000D90: A6 15 24 09 20 20 20 20 20 20 20 20 20 20 53 54 |..$. ST|
00000DA0: 41 20 59 52 45 47 00 BF 15 2E 09 20 20 20 20 20 |A YREG..... |
00000DB0: 20 20 20 20 20 4C 44 41 20 59 52 45 47 AA 31 00 | LDA YREG.1.|
00000DC0: D4 15 38 09 20 20 20 20 20 20 20 20 20 20 53 42 |..8. SB|
00000DD0: 43 20 23 30 00 ED 15 42 09 20 20 20 20 20 20 20 |C #0...B. |
00000DE0: 20 20 20 53 54 41 20 59 52 45 47 AA 31 00 FF 15 | STA YREG.1...|
00000DF0: 56 09 20 20 20 20 20 20 20 20 20 20 52 54 53 00 |V. RTS.|
00000E00: 05 16 A9 0B 3B 00 2B 16 AE 0B 3B 20 44 49 45 20 |....;.+...; DIE |
00000E10: 4D 49 54 20 58 AD 59 20 49 4E 44 49 5A 49 45 52 |MIT X.Y INDIZIER|
00000E20: 54 45 20 56 41 52 49 41 42 4C 45 00 4D 16 AF 0B |TE VARIABLE.M...|
00000E30: 3B 20 57 49 52 44 20 47 45 53 55 43 48 54 20 5A |; WIRD GESUCHT Z|
00000E40: 2E 42 2E 20 28 20 41 24 28 58 29 20 29 00 53 16 |.B. ( A$(X) ).S.|
00000E50: B3 0B 3B 00 6A 16 B8 0B 58 53 55 43 48 20 20 20 |..;.j...XSUCH |
00000E60: 20 20 4C 44 41 20 58 52 45 47 00 7C 16 C2 0B 20 | LDA XREG.|... |
00000E70: 20 20 20 20 20 20 20 20 20 41 53 4C 00 8E 16 C7 | ASL....|
00000E80: 0B 20 20 20 20 20 20 20 20 20 20 54 41 58 00 A7 |. TAX..|
00000E90: 16 CC 0B 20 20 20 20 20 20 20 20 20 20 4C 44 41 |... LDA|
00000EA0: 20 58 52 45 47 AA 31 00 BE 16 D6 0B 20 20 20 20 | XREG.1..... |
00000EB0: 20 20 20 20 20 20 4A 53 52 20 50 52 47 31 00 D5 | JSR PRG1..|
00000EC0: 16 E0 0B 20 20 20 20 20 20 20 20 20 20 41 44 43 |... ADC|
00000ED0: 20 58 52 45 47 00 E7 16 EA 0B 20 20 20 20 20 20 | XREG..... |
00000EE0: 20 20 20 20 54 41 58 00 F9 16 F4 0B 20 20 20 20 | TAX..... |
00000EF0: 20 20 20 20 20 20 54 59 41 00 12 17 FE 0B 20 20 | TYA..... |
00000F00: 20 20 20 20 20 20 20 20 41 44 43 20 58 52 45 47 | ADC XREG|
00000F10: AA 31 00 29 17 08 0C 20 20 20 20 20 20 20 20 20 |.1.)... |
00000F20: 20 4A 4D 50 20 50 52 47 32 00 40 17 1C 0C 59 53 | JMP PRG2.@...YS|
00000F30: 55 43 48 20 20 20 20 20 4C 44 41 20 59 52 45 47 |UCH LDA YREG|
00000F40: 00 52 17 26 0C 20 20 20 20 20 20 20 20 20 20 41 |.R.&. A|
00000F50: 53 4C 00 64 17 2B 0C 20 20 20 20 20 20 20 20 20 |SL.d.+. |
00000F60: 20 54 41 58 00 7D 17 30 0C 20 20 20 20 20 20 20 | TAX.}.0. |
00000F70: 20 20 20 4C 44 41 20 59 52 45 47 AA 31 00 94 17 | LDA YREG.1...|
00000F80: 3A 0C 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |:. JSR |
00000F90: 50 52 47 31 00 AB 17 3B 0C 20 20 20 20 20 20 20 |PRG1...;. |
00000FA0: 20 20 20 41 44 43 20 59 52 45 47 00 BD 17 3C 0C | ADC YREG...<.|
00000FB0: 20 20 20 20 20 20 20 20 20 20 54 41 58 00 CF 17 | TAX...|
00000FC0: 3D 0C 20 20 20 20 20 20 20 20 20 20 54 59 41 00 |=. TYA.|
00000FD0: E8 17 3E 0C 20 20 20 20 20 20 20 20 20 20 41 44 |..>. AD|
00000FE0: 43 20 59 52 45 47 AA 31 00 FF 17 3F 0C 20 20 20 |C YREG.1...?. |
00000FF0: 20 20 20 20 20 20 20 4A 4D 50 20 50 52 47 32 00 | JMP PRG2.|
00001000: 17 18 44 0C 56 53 55 43 48 20 20 20 20 20 4C 44 |..D.VSUCH LD|
00001010: 41 20 56 45 52 47 4C 00 29 18 4E 0C 20 20 20 20 |A VERGL.).N. |
00001020: 20 20 20 20 20 20 41 53 4C 00 3B 18 53 0C 20 20 | ASL.;.S. |
00001030: 20 20 20 20 20 20 20 20 54 41 58 00 55 18 58 0C | TAX.U.X.|
00001040: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 45 | LDA VE|
00001050: 52 47 4C AA 31 00 6C 18 62 0C 20 20 20 20 20 20 |RGL.1.l.b. |
00001060: 20 20 20 20 4A 53 52 20 50 52 47 31 00 84 18 63 | JSR PRG1...c|
00001070: 0C 20 20 20 20 20 20 20 20 20 20 41 44 43 20 56 |. ADC V|
00001080: 45 52 47 4C 00 96 18 64 0C 20 20 20 20 20 20 20 |ERGL...d. |
00001090: 20 20 20 54 41 58 00 A8 18 65 0C 20 20 20 20 20 | TAX...e. |
000010A0: 20 20 20 20 20 54 59 41 00 C2 18 66 0C 20 20 20 | TYA...f. |
000010B0: 20 20 20 20 20 20 20 41 44 43 20 56 45 52 47 4C | ADC VERGL|
000010C0: AA 31 00 D9 18 67 0C 20 20 20 20 20 20 20 20 20 |.1...g. |
000010D0: 20 4A 4D 50 20 50 52 47 32 00 EB 18 80 0C 50 52 | JMP PRG2.....PR|
000010E0: 47 31 20 20 20 20 20 20 52 4F 4C 00 FD 18 8A 0C |G1 ROL.....|
000010F0: 20 20 20 20 20 20 20 20 20 20 54 41 59 00 0F 19 | TAY...|
00001100: 94 0C 20 20 20 20 20 20 20 20 20 20 54 58 41 00 |.. TXA.|
00001110: 21 19 9E 0C 20 20 20 20 20 20 20 20 20 20 43 4C |!... CL|
00001120: 43 00 33 19 A8 0C 20 20 20 20 20 20 20 20 20 20 |C.3... |
00001130: 52 54 53 00 45 19 B2 0C 50 52 47 32 20 20 20 20 |RTS.E...PRG2 |
00001140: 20 20 54 41 59 00 57 19 BC 0C 20 20 20 20 20 20 | TAY.W... |
00001150: 20 20 20 20 43 4C 43 00 69 19 C6 0C 20 20 20 20 | CLC.i... |
00001160: 20 20 20 20 20 20 54 58 41 00 7E 19 D0 0C 20 20 | TXA.~... |
00001170: 20 20 20 20 20 20 20 20 41 44 43 20 23 37 00 90 | ADC #7..|
00001180: 19 D1 0C 20 20 20 20 20 20 20 20 20 20 54 41 58 |... TAX|
00001190: 00 A2 19 D2 0C 20 20 20 20 20 20 20 20 20 20 54 |..... T|
000011A0: 59 41 00 B7 19 D3 0C 20 20 20 20 20 20 20 20 20 |YA..... |
000011B0: 20 41 44 43 20 23 30 00 C9 19 D4 0C 20 20 20 20 | ADC #0..... |
000011C0: 20 20 20 20 20 20 54 41 59 00 DB 19 D5 0C 20 20 | TAY..... |
000011D0: 20 20 20 20 20 20 20 20 43 4C 43 00 ED 19 D6 0C | CLC.....|
000011E0: 20 20 20 20 20 20 20 20 20 20 54 58 41 00 06 1A | TXA...|
000011F0: DA 0C 20 20 20 20 20 20 20 20 20 20 41 44 43 20 |.. ADC |
00001200: 41 41 52 52 41 59 00 1F 1A E4 0C 20 20 20 20 20 |AARRAY..... |
00001210: 20 20 20 20 20 53 54 41 20 56 45 4B A4 52 31 00 | STA VEK.R1.|
00001220: 31 1A EE 0C 20 20 20 20 20 20 20 20 20 20 54 59 |1... TY|
00001230: 41 00 4C 1A F8 0C 20 20 20 20 20 20 20 20 20 20 |A.L... |
00001240: 41 44 43 20 41 41 52 52 41 59 AA 31 00 67 1A 02 |ADC AARRAY.1.g..|
00001250: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 56 |. STA V|
00001260: 45 4B A4 52 31 AA 31 00 79 1A 0C 0D 20 20 20 20 |EK.R1.1.y... |
00001270: 20 20 20 20 20 20 52 54 53 00 7F 1A 91 0F 3B 00 | RTS.....;.|
00001280: A6 1A 96 0F 3B 53 57 41 50 20 AB 20 56 45 52 54 |....;SWAP . VERT|
00001290: 41 55 53 43 48 45 4E 20 5A 57 45 49 45 52 20 53 |AUSCHEN ZWEIER S|
000012A0: 54 52 49 4E 47 53 00 AC 1A 9B 0F 3B 00 C4 1A A0 |TRINGS.....;....|
000012B0: 0F 53 57 41 50 20 20 20 20 20 20 4A 53 52 20 58 |.SWAP JSR X|
000012C0: 53 55 43 48 00 DD 1A AA 0F 20 20 20 20 20 20 20 |SUCH..... |
000012D0: 20 20 20 4C 44 41 20 56 45 4B A4 52 31 00 F6 1A | LDA VEK.R1...|
000012E0: B4 0F 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |.. STA |
000012F0: 56 45 4B A4 52 32 00 11 1B BE 0F 20 20 20 20 20 |VEK.R2..... |
00001300: 20 20 20 20 20 4C 44 41 20 56 45 4B A4 52 31 AA | LDA VEK.R1.|
00001310: 31 00 2C 1B C8 0F 20 20 20 20 20 20 20 20 20 20 |1.,... |
00001320: 53 54 41 20 56 45 4B A4 52 32 AA 31 00 44 1B D2 |STA VEK.R2.1.D..|
00001330: 0F 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 59 |. JSR Y|
00001340: 53 55 43 48 00 59 1B DC 0F 20 20 20 20 20 20 20 |SUCH.Y... |
00001350: 20 20 20 4C 44 59 20 23 30 00 76 1B E6 0F 53 43 | LDY #0.v...SC|
00001360: 48 4C 32 20 20 20 20 20 4C 44 41 20 28 56 45 4B |HL2 LDA (VEK|
00001370: A4 52 31 29 2C 59 00 88 1B F0 0F 20 20 20 20 20 |.R1),Y..... |
00001380: 20 20 20 20 20 54 41 58 00 A5 1B FA 0F 20 20 20 | TAX..... |
00001390: 20 20 20 20 20 20 20 4C 44 41 20 28 56 45 4B A4 | LDA (VEK.|
000013A0: 52 32 29 2C 59 00 C2 1B 04 10 20 20 20 20 20 20 |R2),Y..... |
000013B0: 20 20 20 20 53 54 41 20 28 56 45 4B A4 52 31 29 | STA (VEK.R1)|
000013C0: 2C 59 00 D4 1B 0E 10 20 20 20 20 20 20 20 20 20 |,Y..... |
000013D0: 20 54 58 41 00 F1 1B 18 10 20 20 20 20 20 20 20 | TXA..... |
000013E0: 20 20 20 53 54 41 20 28 56 45 4B A4 52 32 29 2C | STA (VEK.R2),|
000013F0: 59 00 03 1C 22 10 20 20 20 20 20 20 20 20 20 20 |Y...". |
00001400: 49 4E 59 00 18 1C 2C 10 20 20 20 20 20 20 20 20 |INY...,. |
00001410: 20 20 43 50 59 20 23 33 00 30 1C 36 10 20 20 20 | CPY #3.0.6. |
00001420: 20 20 20 20 20 20 20 42 4E 45 20 53 43 48 4C 32 | BNE SCHL2|
00001430: 00 42 1C 40 10 20 20 20 20 20 20 20 20 20 20 52 |.B.@. R|
00001440: 54 53 00 48 1C 79 13 3B 00 68 1C 7E 13 3B 20 20 |TS.H.y.;.h.~.; |
00001450: 20 20 20 56 45 52 47 4C 20 B2 20 28 58 52 45 47 | VERGL . (XREG|
00001460: AA 59 52 45 47 29 AD 32 00 6E 1C 83 13 3B 00 80 |.YREG).2.n...;..|
00001470: 1C 88 13 52 45 43 48 4E 55 4E 47 20 20 43 4C 43 |...RECHNUNG CLC|
00001480: 00 97 1C 92 13 20 20 20 20 20 20 20 20 20 20 4C |..... L|
00001490: 44 41 20 58 52 45 47 00 AE 1C 9C 13 20 20 20 20 |DA XREG..... |
000014A0: 20 20 20 20 20 20 41 44 43 20 59 52 45 47 00 C6 | ADC YREG..|
000014B0: 1C A6 13 20 20 20 20 20 20 20 20 20 20 53 54 41 |... STA|
000014C0: 20 56 45 52 47 4C 00 DF 1C B0 13 20 20 20 20 20 | VERGL..... |
000014D0: 20 20 20 20 20 4C 44 41 20 58 52 45 47 AA 31 00 | LDA XREG.1.|
000014E0: F8 1C BA 13 20 20 20 20 20 20 20 20 20 20 41 44 |.... AD|
000014F0: 43 20 59 52 45 47 AA 31 00 0A 1D C4 13 20 20 20 |C YREG.1..... |
00001500: 20 20 20 20 20 20 20 4C 53 52 00 24 1D CE 13 20 | LSR.$... |
00001510: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 45 52 | STA VER|
00001520: 47 4C AA 31 00 3B 1D D8 13 20 20 20 20 20 20 20 |GL.1.;... |
00001530: 20 20 20 52 B0 20 56 45 52 47 4C 00 4D 1D E2 13 | R. VERGL.M...|
00001540: 20 20 20 20 20 20 20 20 20 20 52 54 53 00 53 1D | RTS.S.|
00001550: EC 13 3B 00 7A 1D F6 13 3B 52 45 47 49 53 54 45 |..;.z...;REGISTE|
00001560: 52 20 41 55 46 20 41 55 53 47 41 4E 47 53 57 45 |R AUF AUSGANGSWE|
00001570: 52 54 45 20 53 45 54 5A 45 4E 00 80 1D 00 14 3B |RTE SETZEN.....;|
00001580: 00 95 1D 50 14 52 45 47 53 45 54 20 20 20 20 4C |...P.REGSET L|
00001590: 44 41 20 23 30 00 AC 1D 5A 14 20 20 20 20 20 20 |DA #0...Z. |
000015A0: 20 20 20 20 53 54 41 20 58 52 45 47 00 C5 1D 5F | STA XREG..._|
000015B0: 14 20 20 20 20 20 20 20 20 20 20 53 54 41 20 58 |. STA X|
000015C0: 52 45 47 AA 31 00 DF 1D 64 14 20 20 20 20 20 20 |REG.1...d. |
000015D0: 20 20 20 20 4C 44 41 20 23 B3 53 54 41 43 4B 00 | LDA #.STACK.|
000015E0: F6 1D 69 14 20 20 20 20 20 20 20 20 20 20 53 54 |..i. ST|
000015F0: 41 20 5A 52 45 47 00 10 1E 6E 14 20 20 20 20 20 |A ZREG...n. |
00001600: 20 20 20 20 20 4C 44 41 20 23 B1 53 54 41 43 4B | LDA #.STACK|
00001610: 00 29 1E 73 14 20 20 20 20 20 20 20 20 20 20 53 |.).s. S|
00001620: 54 41 20 5A 52 45 47 AA 31 00 41 1E 78 14 20 20 |TA ZREG.1.A.x. |
00001630: 20 20 20 20 20 20 20 20 4A 53 52 20 58 53 55 43 | JSR XSUC|
00001640: 48 00 58 1E 7D 14 20 20 20 20 20 20 20 20 20 20 |H.X.}. |
00001650: 49 4E 43 20 58 52 45 47 00 6A 1E 82 14 20 20 20 |INC XREG.j... |
00001660: 20 20 20 20 20 20 20 53 45 43 00 83 1E 8C 14 20 | SEC..... |
00001670: 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 45 4B | LDA VEK|
00001680: A4 52 31 00 98 1E 96 14 20 20 20 20 20 20 20 20 |.R1..... |
00001690: 20 20 53 42 43 20 23 32 00 B1 1E A0 14 20 20 20 | SBC #2..... |
000016A0: 20 20 20 20 20 20 20 53 54 41 20 56 45 4B A4 52 | STA VEK.R|
000016B0: 31 00 CC 1E AA 14 20 20 20 20 20 20 20 20 20 20 |1..... |
000016C0: 4C 44 41 20 56 45 4B A4 52 31 AA 31 00 E1 1E B4 |LDA VEK.R1.1....|
000016D0: 14 20 20 20 20 20 20 20 20 20 20 53 42 43 20 23 |. SBC #|
000016E0: 30 00 FC 1E BE 14 20 20 20 20 20 20 20 20 20 20 |0..... |
000016F0: 53 54 41 20 56 45 4B A4 52 31 AA 31 00 11 1F C8 |STA VEK.R1.1....|
00001700: 14 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 23 |. LDY #|
00001710: 31 00 23 1F CD 14 20 20 20 20 20 20 20 20 20 20 |1.#... |
00001720: 53 45 43 00 40 1F D2 14 20 20 20 20 20 20 20 20 |SEC.@... |
00001730: 20 20 4C 44 41 20 28 56 45 4B A4 52 31 29 2C 59 | LDA (VEK.R1),Y|
00001740: 00 55 1F D7 14 20 20 20 20 20 20 20 20 20 20 53 |.U... S|
00001750: 42 43 20 23 31 00 6C 1F DC 14 20 20 20 20 20 20 |BC #1.l... |
00001760: 20 20 20 20 53 54 41 20 59 52 45 47 00 7E 1F E6 | STA YREG.~..|
00001770: 14 20 20 20 20 20 20 20 20 20 20 44 45 59 00 9B |. DEY..|
00001780: 1F F0 14 20 20 20 20 20 20 20 20 20 20 4C 44 41 |... LDA|
00001790: 20 28 56 45 4B A4 52 31 29 2C 59 00 B0 1F F5 14 | (VEK.R1),Y.....|
000017A0: 20 20 20 20 20 20 20 20 20 20 53 42 43 20 23 30 | SBC #0|
000017B0: 00 C9 1F FA 14 20 20 20 20 20 20 20 20 20 20 53 |..... S|
000017C0: 54 41 20 59 52 45 47 AA 31 00 E2 1F 04 15 20 20 |TA YREG.1..... |
000017D0: 20 20 20 20 20 20 20 20 4A 4D 50 20 50 55 53 48 | JMP PUSH|
000017E0: 58 59 00 E8 1F 61 17 3B 00 0E 20 66 17 3B 44 49 |XY...a.;.. f.;DI|
000017F0: 53 43 52 49 50 A4 52 45 4E 20 49 4E 20 44 45 52 |SCRIP.REN IN DER|
00001800: 20 5A 50 20 45 49 4E 52 49 43 48 54 45 4E 00 14 | ZP EINRICHTEN..|
00001810: 20 6B 17 3B 00 2C 20 70 17 45 58 49 4E 44 49 20 | k.;., p.EXINDI |
00001820: 20 20 20 4A 53 52 20 58 53 55 43 48 00 47 20 7A | JSR XSUCH.G z|
00001830: 17 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 44 |. JMP D|
00001840: 49 53 43 52 49 50 31 00 4D 20 84 17 3B 00 65 20 |ISCRIP1.M ..;.e |
00001850: 8E 17 45 59 49 4E 44 49 20 20 20 20 4A 53 52 20 |..EYINDI JSR |
00001860: 59 53 55 43 48 00 6B 20 98 17 3B 00 80 20 A2 17 |YSUCH.k ..;.. ..|
00001870: 44 49 53 43 52 49 50 31 20 20 4C 44 59 20 23 30 |DISCRIP1 LDY #0|
00001880: 00 9D 20 AC 17 53 43 48 4C 33 20 20 20 20 20 4C |.. ..SCHL3 L|
00001890: 44 41 20 28 56 45 4B A4 52 31 29 2C 59 00 B9 20 |DA (VEK.R1),Y.. |
000018A0: B6 17 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |.. STA |
000018B0: 4C 41 45 4E 47 45 31 2C 59 00 CB 20 C0 17 20 20 |LAENGE1,Y.. .. |
000018C0: 20 20 20 20 20 20 20 20 49 4E 59 00 E0 20 CA 17 | INY.. ..|
000018D0: 20 20 20 20 20 20 20 20 20 20 43 50 59 20 23 33 | CPY #3|
000018E0: 00 F8 20 D4 17 20 20 20 20 20 20 20 20 20 20 42 |.. .. B|
000018F0: 4E 45 20 53 43 48 4C 33 00 0A 21 DE 17 20 20 20 |NE SCHL3..!.. |
00001900: 20 20 20 20 20 20 20 52 54 53 00 10 21 E8 17 3B | RTS..!..;|
00001910: 00 2B 21 F2 17 45 56 49 4E 44 49 20 20 20 20 4A |.+!..EVINDI J|
00001920: 53 52 20 52 45 43 48 4E 55 4E 47 00 43 21 F7 17 |SR RECHNUNG.C!..|
00001930: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 56 53 | JSR VS|
00001940: 55 43 48 00 58 21 FC 17 20 20 20 20 20 20 20 20 |UCH.X!.. |
00001950: 20 20 4C 44 59 20 23 30 00 75 21 06 18 53 43 48 | LDY #0.u!..SCH|
00001960: 4C 34 20 20 20 20 20 4C 44 41 20 28 56 45 4B A4 |L4 LDA (VEK.|
00001970: 52 31 29 2C 59 00 91 21 10 18 20 20 20 20 20 20 |R1),Y..!.. |
00001980: 20 20 20 20 53 54 41 20 4C 41 45 4E 47 45 32 2C | STA LAENGE2,|
00001990: 59 00 A3 21 1A 18 20 20 20 20 20 20 20 20 20 20 |Y..!.. |
000019A0: 49 4E 59 00 B8 21 24 18 20 20 20 20 20 20 20 20 |INY..!$. |
000019B0: 20 20 43 50 59 20 23 33 00 D0 21 2E 18 20 20 20 | CPY #3..!.. |
000019C0: 20 20 20 20 20 20 20 42 4E 45 20 53 43 48 4C 34 | BNE SCHL4|
000019D0: 00 EA 21 38 18 20 20 20 20 20 20 20 20 20 20 4C |..!8. L|
000019E0: 44 41 20 4C 41 45 4E 47 45 32 00 05 22 3D 18 20 |DA LAENGE2.."=. |
000019F0: 20 20 20 20 20 20 20 20 20 42 45 51 20 4B 5A 45 | BEQ KZE|
00001A00: 49 43 48 45 4E 00 1B 22 42 18 20 20 20 20 20 20 |ICHEN.."B. |
00001A10: 20 20 20 20 43 4D 50 20 23 32 31 00 35 22 4C 18 | CMP #21.5"L.|
00001A20: 20 20 20 20 20 20 20 20 20 20 42 43 43 20 4B 4C | BCC KL|
00001A30: 45 49 4E 45 52 00 4B 22 56 18 20 20 20 20 20 20 |EINER.K"V. |
00001A40: 20 20 20 20 4C 44 41 20 23 32 30 00 65 22 60 18 | LDA #20.e"`.|
00001A50: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 41 | STA LA|
00001A60: 45 4E 47 45 32 00 7A 22 6A 18 4B 4C 45 49 4E 45 |ENGE2.z"j.KLEINE|
00001A70: 52 20 20 20 4C 44 59 20 23 30 00 95 22 74 18 4E |R LDY #0.."t.N|
00001A80: 5A 45 49 43 48 45 4E 20 20 4C 44 41 20 28 53 54 |ZEICHEN LDA (ST|
00001A90: 52 32 29 2C 59 00 AE 22 7E 18 20 20 20 20 20 20 |R2),Y.."~. |
00001AA0: 20 20 20 20 53 54 41 20 56 53 54 52 2C 59 00 C0 | STA VSTR,Y..|
00001AB0: 22 88 18 20 20 20 20 20 20 20 20 20 20 49 4E 59 |".. INY|
00001AC0: 00 DA 22 92 18 20 20 20 20 20 20 20 20 20 20 43 |..".. C|
00001AD0: 50 59 20 4C 41 45 4E 47 45 32 00 F5 22 9C 18 20 |PY LAENGE2..".. |
00001AE0: 20 20 20 20 20 20 20 20 20 42 4E 45 20 4E 5A 45 | BNE NZE|
00001AF0: 49 43 48 45 4E 00 0E 23 A6 18 20 20 20 20 20 20 |ICHEN..#.. |
00001B00: 20 20 20 20 4C 44 41 20 23 B3 56 53 54 52 00 25 | LDA #.VSTR.%|
00001B10: 23 B0 18 20 20 20 20 20 20 20 20 20 20 53 54 41 |#.. STA|
00001B20: 20 53 54 52 32 00 3E 23 BA 18 20 20 20 20 20 20 | STR2.>#.. |
00001B30: 20 20 20 20 4C 44 41 20 23 B1 56 53 54 52 00 57 | LDA #.VSTR.W|
00001B40: 23 C4 18 20 20 20 20 20 20 20 20 20 20 53 54 41 |#.. STA|
00001B50: 20 53 54 52 32 AA 31 00 69 23 CE 18 4B 5A 45 49 | STR2.1.i#..KZEI|
00001B60: 43 48 45 4E 20 20 52 54 53 00 80 23 58 1B 53 54 |CHEN RTS..#X.ST|
00001B70: 43 4B 56 45 4B 20 20 20 4C 44 41 20 5A 52 45 47 |CKVEK LDA ZREG|
00001B80: 00 99 23 62 1B 20 20 20 20 20 20 20 20 20 20 53 |..#b. S|
00001B90: 54 41 20 56 45 4B A4 52 32 00 B2 23 6C 1B 20 20 |TA VEK.R2..#l. |
00001BA0: 20 20 20 20 20 20 20 20 4C 44 41 20 5A 52 45 47 | LDA ZREG|
00001BB0: AA 31 00 CD 23 76 1B 20 20 20 20 20 20 20 20 20 |.1..#v. |
00001BC0: 20 53 54 41 20 56 45 4B A4 52 32 AA 31 00 DF 23 | STA VEK.R2.1..#|
00001BD0: 80 1B 20 20 20 20 20 20 20 20 20 20 52 54 53 00 |.. RTS.|
00001BE0: E5 23 85 1B 3B 00 FD 23 BC 1B 50 55 53 48 58 52 |.#..;..#..PUSHXR|
00001BF0: 20 20 20 20 4A 53 52 20 48 4F 4C 4C 52 00 16 24 | JSR HOLLR..$|
00001C00: C1 1B 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |.. JSR |
00001C10: 56 45 4B A4 52 34 00 2B 24 C6 1B 20 20 20 20 20 |VEK.R4.+$.. |
00001C20: 20 20 20 20 20 4C 44 59 20 23 30 00 44 24 D0 1B | LDY #0.D$..|
00001C30: 53 43 48 4C 35 20 20 20 20 20 4C 44 41 20 58 52 |SCHL5 LDA XR|
00001C40: 45 47 2C 59 00 61 24 DA 1B 20 20 20 20 20 20 20 |EG,Y.a$.. |
00001C50: 20 20 20 53 54 41 20 28 56 45 4B A4 52 32 29 2C | STA (VEK.R2),|
00001C60: 59 00 73 24 EE 1B 20 20 20 20 20 20 20 20 20 20 |Y.s$.. |
00001C70: 49 4E 59 00 88 24 F8 1B 20 20 20 20 20 20 20 20 |INY..$.. |
00001C80: 20 20 43 50 59 20 23 32 00 A0 24 02 1C 20 20 20 | CPY #2..$.. |
00001C90: 20 20 20 20 20 20 20 42 4E 45 20 53 43 48 4C 35 | BNE SCHL5|
00001CA0: 00 BB 24 04 1C 53 43 48 4C 36 20 20 20 20 20 4C |..$..SCHL6 L|
00001CB0: 44 41 20 52 52 45 47 AB 32 2C 59 00 D8 24 05 1C |DA RREG.2,Y..$..|
00001CC0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 28 56 | STA (V|
00001CD0: 45 4B A4 52 32 29 2C 59 00 EA 24 06 1C 20 20 20 |EK.R2),Y..$.. |
00001CE0: 20 20 20 20 20 20 20 49 4E 59 00 FF 24 07 1C 20 | INY..$.. |
00001CF0: 20 20 20 20 20 20 20 20 20 43 50 59 20 23 34 00 | CPY #4.|
00001D00: 17 25 08 1C 20 20 20 20 20 20 20 20 20 20 42 4E |.%.. BN|
00001D10: 45 20 53 43 48 4C 36 00 29 25 09 1C 20 20 20 20 |E SCHL6.)%.. |
00001D20: 20 20 20 20 20 20 52 54 53 00 2F 25 0A 1C 3B 00 | RTS./%..;.|
00001D30: 47 25 0C 1C 50 55 53 48 4C 59 20 20 20 20 4A 53 |G%..PUSHLY JS|
00001D40: 52 20 48 4F 4C 4C 52 00 60 25 11 1C 20 20 20 20 |R HOLLR.`%.. |
00001D50: 20 20 20 20 20 20 4A 53 52 20 56 45 4B A4 52 34 | JSR VEK.R4|
00001D60: 00 75 25 16 1C 20 20 20 20 20 20 20 20 20 20 4C |.u%.. L|
00001D70: 44 59 20 23 30 00 8E 25 20 1C 53 43 48 4C 37 20 |DY #0..% .SCHL7 |
00001D80: 20 20 20 20 4C 44 41 20 4C 52 45 47 2C 59 00 AB | LDA LREG,Y..|
00001D90: 25 2A 1C 20 20 20 20 20 20 20 20 20 20 53 54 41 |%*. STA|
00001DA0: 20 28 56 45 4B A4 52 32 29 2C 59 00 BD 25 3E 1C | (VEK.R2),Y..%>.|
00001DB0: 20 20 20 20 20 20 20 20 20 20 49 4E 59 00 D2 25 | INY..%|
00001DC0: 48 1C 20 20 20 20 20 20 20 20 20 20 43 50 59 20 |H. CPY |
00001DD0: 23 32 00 EA 25 52 1C 20 20 20 20 20 20 20 20 20 |#2..%R. |
00001DE0: 20 42 4E 45 20 53 43 48 4C 37 00 05 26 5D 1C 53 | BNE SCHL7..&].S|
00001DF0: 43 48 4C 38 20 20 20 20 20 4C 44 41 20 59 52 45 |CHL8 LDA YRE|
00001E00: 47 AB 32 2C 59 00 22 26 5E 1C 20 20 20 20 20 20 |G.2,Y."&^. |
00001E10: 20 20 20 20 53 54 41 20 28 56 45 4B A4 52 32 29 | STA (VEK.R2)|
00001E20: 2C 59 00 34 26 5F 1C 20 20 20 20 20 20 20 20 20 |,Y.4&_. |
00001E30: 20 49 4E 59 00 49 26 60 1C 20 20 20 20 20 20 20 | INY.I&`. |
00001E40: 20 20 20 43 50 59 20 23 34 00 61 26 61 1C 20 20 | CPY #4.a&a. |
00001E50: 20 20 20 20 20 20 20 20 42 4E 45 20 53 43 48 4C | BNE SCHL|
00001E60: 38 00 73 26 62 1C 20 20 20 20 20 20 20 20 20 20 |8.s&b. |
00001E70: 52 54 53 00 79 26 66 1C 3B 00 8E 26 70 1C 48 4F |RTS.y&f.;..&p.HO|
00001E80: 4C 58 59 20 20 20 20 20 4C 44 59 20 23 30 00 A7 |LXY LDY #0..|
00001E90: 26 8E 1C 53 43 48 4C 39 20 20 20 20 20 4C 44 41 |&..SCHL9 LDA|
00001EA0: 20 4C 52 45 47 2C 59 00 C0 26 98 1C 20 20 20 20 | LREG,Y..&.. |
00001EB0: 20 20 20 20 20 20 53 54 41 20 58 52 45 47 2C 59 | STA XREG,Y|
00001EC0: 00 D2 26 A2 1C 20 20 20 20 20 20 20 20 20 20 49 |..&.. I|
00001ED0: 4E 59 00 E7 26 AC 1C 20 20 20 20 20 20 20 20 20 |NY..&.. |
00001EE0: 20 43 50 59 20 23 34 00 FF 26 B6 1C 20 20 20 20 | CPY #4..&.. |
00001EF0: 20 20 20 20 20 20 42 4E 45 20 53 43 48 4C 39 00 | BNE SCHL9.|
00001F00: 11 27 C0 1C 20 20 20 20 20 20 20 20 20 20 52 54 |.'.. RT|
00001F10: 53 00 17 27 CA 1C 3B 00 31 27 D4 1C 48 4F 4C 4C |S..'..;.1'..HOLL|
00001F20: 52 20 20 20 20 20 4A 53 52 20 53 54 43 4B 56 45 |R JSR STCKVE|
00001F30: 4B 00 46 27 E8 1C 20 20 20 20 20 20 20 20 20 20 |K.F'.. |
00001F40: 4C 44 59 20 23 30 00 63 27 F2 1C 53 43 48 4C 31 |LDY #0.c'..SCHL1|
00001F50: 30 20 20 20 20 4C 44 41 20 28 56 45 4B A4 52 32 |0 LDA (VEK.R2|
00001F60: 29 2C 59 00 7C 27 FC 1C 20 20 20 20 20 20 20 20 |),Y.|'.. |
00001F70: 20 20 53 54 41 20 4C 52 45 47 2C 59 00 8E 27 06 | STA LREG,Y..'.|
00001F80: 1D 20 20 20 20 20 20 20 20 20 20 49 4E 59 00 A3 |. INY..|
00001F90: 27 10 1D 20 20 20 20 20 20 20 20 20 20 43 50 59 |'.. CPY|
00001FA0: 20 23 34 00 BC 27 1A 1D 20 20 20 20 20 20 20 20 | #4..'.. |
00001FB0: 20 20 42 4E 45 20 53 43 48 4C 31 30 00 CE 27 24 | BNE SCHL10..'$|
00001FC0: 1D 20 20 20 20 20 20 20 20 20 20 52 54 53 00 D4 |. RTS..|
00001FD0: 27 29 1D 3B 00 DA 27 DD 1D 3B 00 F3 27 E2 1D 56 |').;..'..;..'..V|
00001FE0: 45 4B A4 52 34 20 20 20 4A 53 52 20 53 54 43 4B |EK.R4 JSR STCK|
00001FF0: 56 45 4B 00 05 28 EC 1D 20 20 20 20 20 20 20 20 |VEK..(.. |
00002000: 20 20 43 4C 43 00 1E 28 F6 1D 20 20 20 20 20 20 | CLC..(.. |
00002010: 20 20 20 20 4C 44 41 20 56 45 4B A4 52 32 00 33 | LDA VEK.R2.3|
00002020: 28 00 1E 20 20 20 20 20 20 20 20 20 20 41 44 43 |(.. ADC|
00002030: 20 23 34 00 4C 28 0A 1E 20 20 20 20 20 20 20 20 | #4.L(.. |
00002040: 20 20 53 54 41 20 56 45 4B A4 52 32 00 67 28 14 | STA VEK.R2.g(.|
00002050: 1E 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 56 |. LDA V|
00002060: 45 4B A4 52 32 AA 31 00 7C 28 1E 1E 20 20 20 20 |EK.R2.1.|(.. |
00002070: 20 20 20 20 20 20 41 44 43 20 23 30 00 97 28 28 | ADC #0..((|
00002080: 1E 20 20 20 20 20 20 20 20 20 20 53 54 41 20 56 |. STA V|
00002090: 45 4B A4 52 32 AA 31 00 A9 28 32 1E 20 20 20 20 |EK.R2.1..(2. |
000020A0: 20 20 20 20 20 20 52 54 53 00 AF 28 37 1E 3B 00 | RTS..(7.;.|
000020B0: C8 28 3C 1E 50 55 53 48 58 59 20 20 20 20 4A 53 |.(<.PUSHXY JS|
000020C0: 52 20 56 45 4B A4 52 34 00 DD 28 46 1E 20 20 20 |R VEK.R4..(F. |
000020D0: 20 20 20 20 20 20 20 4C 44 59 20 23 30 00 F6 28 | LDY #0..(|
000020E0: 50 1E 53 43 48 4C 31 31 20 20 20 20 4C 44 41 20 |P.SCHL11 LDA |
000020F0: 58 52 45 47 2C 59 00 13 29 5A 1E 20 20 20 20 20 |XREG,Y..)Z. |
00002100: 20 20 20 20 20 53 54 41 20 28 56 45 4B A4 52 32 | STA (VEK.R2|
00002110: 29 2C 59 00 25 29 64 1E 20 20 20 20 20 20 20 20 |),Y.%)d. |
00002120: 20 20 49 4E 59 00 3A 29 6E 1E 20 20 20 20 20 20 | INY.:)n. |
00002130: 20 20 20 20 43 50 59 20 23 34 00 53 29 78 1E 20 | CPY #4.S)x. |
00002140: 20 20 20 20 20 20 20 20 20 42 4E 45 20 53 43 48 | BNE SCH|
00002150: 4C 31 31 00 65 29 82 1E 20 20 20 20 20 20 20 20 |L11.e).. |
00002160: 20 20 52 54 53 00 6B 29 01 27 3B 00 92 29 06 27 | RTS.k).';..).'|
00002170: 3B 20 52 45 47 49 53 54 45 52 20 26 20 45 49 4E |; REGISTER & EIN|
00002180: 20 53 49 4D 55 4C 49 45 52 54 45 52 20 53 54 41 | SIMULIERTER STA|
00002190: 43 4B 00 98 29 0B 27 3B 00 AD 29 10 27 5A 52 45 |CK..).';..).'ZRE|
000021A0: 47 20 20 20 20 2E 42 59 54 20 30 2C 30 00 C2 29 |G .BYT 0,0..)|
000021B0: 1A 27 58 52 45 47 20 20 20 20 2E 42 59 54 20 30 |.'XREG .BYT 0|
000021C0: 2C 30 00 D7 29 24 27 59 52 45 47 20 20 20 20 2E |,0..)$'YREG .|
000021D0: 42 59 54 20 30 2C 30 00 EC 29 42 27 56 45 52 47 |BYT 0,0..)B'VERG|
000021E0: 4C 20 20 20 2E 42 59 54 20 30 2C 30 00 01 2A 4C |L .BYT 0,0..*L|
000021F0: 27 4C 52 45 47 20 20 20 20 2E 42 59 54 20 30 2C |'LREG .BYT 0,|
00002200: 30 00 16 2A 56 27 52 52 45 47 20 20 20 20 2E 42 |0..*V'RREG .B|
00002210: 59 54 20 30 2C 30 00 59 2A 60 27 56 53 54 52 20 |YT 0,0.Y*`'VSTR |
00002220: 20 20 20 2E 42 59 54 20 30 2C 30 2C 30 2C 30 2C | .BYT 0,0,0,0,|
00002230: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00002240: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 20 |0,0,0,0,0,0,0,0 |
00002250: 20 3B 20 32 30 20 AC 20 30 00 6C 2A 74 27 53 54 | ; 20 . 0.l*t'ST|
00002260: 41 43 4B 20 20 20 2E 42 59 54 20 30 00 73 2A 20 |ACK .BYT 0.s* |
00002270: 4E 2E 80 00 00 00 |N..... |
.......36864:.OPT P,OO:.. 52000.1...LAEN
GE1 . $B2.C...LAENGE2 . $B5.U.(.STR1
. $B3.G.2.STR2 . $B6.Y.7.UMULT1 . $2
8...8.UMULT2 . $71...9.UMULT . $B357.
..:.AARRAY . $2F.B.;.VEK.R1 . $FB.S.<.V
EK.R2 . $FD...D. JSR REGSET...
E. LDX #0. .F.MARKE1 LDA L
AENGE1,X.9.G. STA 700,X.L.H.
INX.B.I. CPX #6.|.J.
BNE MARKE1...N. JSR
HAUPTSCHL...O. LDX #0.H.P.MARK
E2 LDA 700,X...Q. STA LAEN
GE1,X...R. INX...S.
CPX #6.(.T. BNE MARKE2.;.U.
RTS.A...;.Z...HAUPTSCHL JSR HOC
HZ.S... JSR HOLLR.....
JSR LRVERGL... . CMP #0....
. BEQ Z350.R... CMP
#2..... BEQ Z350...C.
JSR HOLXY...R. JSR EVINDI.8.
..Z270 JSR XYVERGL.N...
CMP #2.F... BEQ Z330.....Z280
JSR EXINDI..... JSR EINS
PR..... CMP #2.H...
BEQ Z290..... CMP #0.....
BEQ Z290...". JSR HOCHX.
'.,. JMP Z280.A.6.Z290 J
SR EYINDI.[.@. JSR EINSPR.Q.J.
CMP #1...T. BEQ Z30
0...Y. CMP #0...Z. B
EQ Z300.P.^. JSR .TERY...H.
JMP Z290...R.Z300 JSR XYVE
RGL...|. CMP #2.1...
BEQ Z330.I... JSR SWAP.B...
JSR HOCHX.{... JSR .T
ERY..... JMP Z270.....;.....Z3
30 JSR PUSHLY.P.L. JSR H
AUPTSCHL.V.V.;..... JSR PUSHXR
..... JSR HAUPTSCHL.....;.,...
Z350 JMP .TERZ.2...;.U...; VERG
LEICH STR1 MIT VERGL$.W...;1) STR1.VERGL
2) STR1.VERGL.}...;.....EINSPR LDY
#$FF.....SCHL1 INY..... CPY
LAENGE1.Z... BNE WEITER1...$.
LDA #1..... JMP RAUS.
.8.WEITER1 CPY LAENGE2.:.B. B
NE WEITER2.O.L. LDA #2.F.V.
JMP RAUS...`.WEITER2 LDA (STR1),
Y...J. CMP (STR2),Y...T.BEQ SCH
L1.F.~. BCC WEITER3.1.....
LDA #2.....WEITER3 BIT $1A9 ;MASK
IE.G FUER LDA #1..... RTS.4...R
AUS LDX LAENGE1.N.D. CPX L
AENGE2.G.N. BNE FERTIG.|.X.
LDA #0.....FERTIG RTS.....;....
.; VERGLEICHEN V. X UND Y.....;X.Y LD
A #2 X.Y LDA #1 X.Y LDA #0.....;.....X
YVERGL LDA XREG.1..... CMP YR
EG.1..... BNE WEITER4.E.(.
LDA XREG.\.2. CMP YREG.W.<
. BEQ GLEICH.1...F.WEITER4 BC
S GROESSER.1...P. LDA #1.P.Z.GL
EICH .BYT $2C,$A9,0 ;BIT $00A9...D.GRO
ESSER BIT $2A9...N. RTS...X.;.
....; VERGLEICHEN V. L UND R.G...;L.R
LDA #2 L.R LDA #1 L.R LDA #0.M...;.F.
..LRVERGL LDA LREG.1.. . CMP
RREG.1..... BNE WEITER5.....
LDA LREG.G... CMP RREG.
..H. BEQ GLEICH.1...R.WEITER5
BCS GROESSER.1..... LDA #1.&..
. RTS.,.A.;.O.F.; REGISTER HOCH
. UNG .TERZAEHC.U.K.;.G.P.HOCHZ CLC.
~... LDA ZREG.....ADC #4. ...
STA ZREG..... LDA ZREG.
1.N... ADC #0..... STA
ZREG.1...*. RTS...4..TERZ SE
C. .H. LDA ZREG.5.R. S
BC #4.L.\. STA ZREG.E.F.
LDA ZREG.1.Z.P. SBC #0...Z.
STA ZREG.1..... RTS...
..HOCHX CLC.N... LDA XREG..
... ADC #1..... STA XR
EG...J. LDA XREG.1.(.T.
ADC #0.A... STA XREG.1.S...
RTS.C....TERY SEC.Z...
LDA YREG..... SBC #1...$.
STA YREG..... LDA YREG.1.
T.8. SBC #0...B. STA Y
REG.1...V. RTS.....;.+...; DIE
MIT X.Y INDIZIERTE VARIABLE.M...; WIRD G
ESUCHT Z.B. ( A$(X) ).S...;.J...XSUCH
LDA XREG.|.B. ASL...G.
TAX...L. LDA XREG.1...V.
JSR PRG1.U... ADC XREG...
.. TAX..... TYA.....
ADC XREG.1.)... JMP PRG
2.@...YSUCH LDA YREG.R.&. A
SL.D.+. TAX.}.0. LDA Y
REG.1...:. JSR PRG1...;.
ADC YREG...<. TAX.O.=.
TYA...>. ADC YREG.1...?.
JMP PRG2...D.VSUCH LDA VERGL.
).N. ASL.;.S. TAX.U.X.
LDA VERGL.1.L.B. JSR
PRG1...C. ADC VERGL...D.
TAX...E. TYA.B.F. A
DC VERGL.1.Y.G. JMP PRG2.....PR
G1 ROL..... TAY.....
TXA.!... CLC.3...
RTS.E...PRG2 TAY.W... CLC.
I.F. TXA.~.P. ADC #7..
.Q. TAX...R. TYA...S.
ADC #0.I.T. TAY...U.
CLC...V. TXA...Z.
ADC AARRAY..... STA VEK.R1.
1... TYA.L... ADC AARR
AY.1.G... STA VEK.R1.1.Y...
RTS....;.....;SWAP . VERTAUSCHEN
ZWEIER STRINGS.....;.D. .SWAP JSR X
SUCH..... LDA VEK.R1.....
STA VEK.R2..... LDA VEK.R1.
1.,.H. STA VEK.R2.1.D.R.
JSR YSUCH.Y... LDY #0.V...SC
HL2 LDA (VEK.R1),Y..... TAX
..... LDA (VEK.R2),Y.B...
STA (VEK.R1),Y.T... TXA....
. STA (VEK.R2),Y...".
INY...,. CPY #3.0.6. B
NE SCHL2.B.@. RTS.H.Y.;.H.~.;
VERGL . (XREG.YREG).2.N...;.....RECHN
UNG CLC..... LDA XREG.....
ADC YREG.F... STA VERGL..
... LDA XREG.1..... AD
C YREG.1...D. LSR.$.N.
STA VERGL.1.;.X. R. VERGL.M...
RTS.S...;.Z...;REGISTER AUF AU
SGANGSWERTE SETZEN.....;...P.REGSET L
DA #0...Z. STA XREG.E._.
STA XREG.1...D. LDA #.STACK.
..I. STA ZREG...N. LDA
#.STACK.).S. STA ZREG.1.A.X.
JSR XSUCH.X.}. INC XREG
.J... SEC..... LDA VEK
.R1..... SBC #2... . S
TA VEK.R1.L... LDA VEK.R1.1....
. SBC #0..... STA VEK.
R1.1...H. LDY #1.#.M.
SEC.@.R. LDA (VEK.R1),Y.U.W.
SBC #1.L... STA YREG.~..
. DEY..... LDA (VEK.R1
),Y..... SBC #0.I... S
TA YREG.1..... JMP PUSHXY...A.;
.. F.;DISCRIP.REN IN DER ZP EINRICHTEN..
K.;., P.EXINDI JSR XSUCH.G Z.
JMP DISCRIP1.M ..;.E ..EYINDI JSR
YSUCH.K ..;.. ..DISCRIP1 LDY #0.. ..SCH
L3 LDA (VEK.R1),Y.. .. STA
LAENGE1,Y.K .. INY.. J.
CPY #3.. T. BNE SCHL3..!..
RTS..!..;.+!..EVINDI JSR RECHN
UNG.C!.. JSR VSUCH.X!..
LDY #0.U!..SCHL4 LDA (VEK.R1),Y..!
.. STA LAENGE2,Y..!..
INY..!$. CPY #3.P!.. B
NE SCHL4..!8. LDA LAENGE2.."=.
BEQ KZEICHEN.."B. CMP
#21.5"L. BCC KLEINER.K"V.
LDA #20.E"`. STA LAENGE2.Z"
J.KLEINER LDY #0.."T.NZEICHEN LDA (ST
R2),Y.."~. STA VSTR,Y.."..
INY.Z".. CPY LAENGE2.."..
BNE NZEICHEN..#.. LDA
#.VSTR.%#.. STA STR2.>#..
LDA #.VSTR.W#D. STA STR2.1.
I#N.KZEICHEN RTS..#X.STCKVEK LDA ZREG
..#B. STA VEK.R2..#L.
LDA ZREG.1.M#V. STA VEK.R2.1..#
.. RTS..#..;..#..PUSHXR JSR
HOLLR..$A. JSR VEK.R4.+$F.
LDY #0.D$P.SCHL5 LDA XREG,Y.A$Z
. STA (VEK.R2),Y.S$..
INY..$.. CPY #2. $.. B
NE SCHL5..$..SCHL6 LDA RREG.2,Y.X$..
STA (VEK.R2),Y..$.. I
NY..$.. CPY #4..%.. BN
E SCHL6.)%.. RTS./%..;.G%..PUSH
LY JSR HOLLR.`%.. JSR VEK.R4
.U%.. LDY #0..% .SCHL7 LDA
LREG,Y..%*. STA (VEK.R2),Y..%>.
INY.R%H. CPY #2..%R.
BNE SCHL7..&].SCHL8 LDA YRE
G.2,Y."&^. STA (VEK.R2),Y.4&_.
INY.I&`. CPY #4.A&A.
BNE SCHL8.S&B. RTS.Y&F.
;..&P.HOLXY LDY #0..&..SCHL9 LDA
LREG,Y..&.. STA XREG,Y.R&..
INY..&.. CPY #4..&..
BNE SCHL9..'.. RTS..'J.;.
1'T.HOLLR JSR STCKVEK.F'..
LDY #0.C'..SCHL10 LDA (VEK.R2),Y.|'..
STA LREG,Y..'.. INY..
'.. CPY #4..'.. BNE SC
HL10.N'$. RTS.T').;.Z'..;..'..V
EK.R4 JSR STCKVEK..(.. CLC..(
.. LDA VEK.R2.3(.. ADC
#4.L(.. STA VEK.R2.G(..
LDA VEK.R2.1.|(.. ADC #0..((
. STA VEK.R2.1..(2. RT
S..(7.;.H(<.PUSHXY JSR VEK.R4..(F.
LDY #0..(P.SCHL11 LDA XREG,Y..
)Z. STA (VEK.R2),Y.%)D.
INY.:)N. CPY #4.S)X.
BNE SCHL11.E).. RTS.K).';..).'
; REGISTER & EIN SIMULIERTER STACK..).';
..).'ZREG .BYT 0,0.B).'XREG .BYT 0
,0.W)$'YREG .BYT 0,0..)B'VERGL .BYT
0,0..*L'LREG .BYT 0,0..*V'RREG .B
YT 0,0.Y*`'VSTR .BYT 0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0 ; 20 . 0.L*T'ST
ACK .BYT 0.S* N.....
> CLICK IMAGE PREVIEW FOR FULL MODAL