QUELL-CODE

FILE INFORMATION

FILENAME(S): QUELL-CODE

FILE TYPE(S): PRG

FILE SIZE: 4.1K

FIRST SEEN: 2025-11-02 22:11:34

APPEARS ON: 2 disk(s)

FILE HASH

6195549773569d666ff17ef7af83d2ed7ae1776e652a35e96711cb5a2be4ad0b

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT ASS	QUELL-CODE	PRG	Treasure Chest - ToGuMi	11	19	DOWNLOAD FILE
SONDERHEFT ASS	QUELL-CODE	PRG	C64er	11	19	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 0C 08 64 00 9E 33  32 37 36 38 00 1A 08 6E  |....d..32768...n|
00000010: 00 2E 4F 50 54 20 4F 4F  2C 50 00 27 08 78 00 AC  |..OPT OO,P.'.x..|
00000020: B2 20 24 33 34 30 30 00  2D 08 79 00 3B 00 46 08  |. $3400.-.y.;.F.|
00000030: 7A 00 3B 20 56 41 52 49  41 42 C3 AB 44 45 4B 4C  |z.; VARIAB..DEKL|
00000040: 41 52 41 54 49 91 00 4C  08 7B 00 3B 00 73 08 7D  |ARATI..L.{.;.s.}|
00000050: 00 41 4C 54 20 B2 20 24  36 41 20 3B 20 5A 45 52  |.ALT . $6A ; ZER|
00000060: 4F 50 41 47 45 20 41 44  52 45 53 53 45 4E 20 46  |OPAGE ADRESSEN F|
00000070: 55 45 52 00 96 08 7E 00  4E 45 55 20 B2 20 24 36  |UER...~.NEU . $6|
00000080: 43 20 3B 20 56 45 52 53  43 48 49 45 42 45 AB 52  |C ; VERSCHIEBE.R|
00000090: 4F 55 54 49 4E 45 00 A9  08 82 00 43 48 52 4F 55  |OUTINE.....CHROU|
000000A0: 54 20 B2 20 24 46 46 44  32 00 BB 08 8C 00 43 48  |T . $FFD2.....CH|
000000B0: 52 49 4E 20 B2 20 24 46  46 43 46 00 CE 08 96 00  |RIN . $FFCF.....|
000000C0: 53 54 52 4F 55 54 20 B2  20 24 41 42 31 45 00 EC  |STROUT . $AB1E..|
000000D0: 08 A0 00 B9 31 20 B2 20  20 38 35 30 20 3B 20 53  |....1 .  850 ; S|
000000E0: 50 45 49 43 48 45 52 20  46 55 45 52 00 09 09 AA  |PEICHER FUER....|
000000F0: 00 B9 32 20 B2 20 20 38  36 30 20 3B 20 4B 4F 4D  |..2 .  860 ; KOM|
00000100: 42 49 4E 41 54 49 91 45  4E 00 17 09 B4 00 B9 33  |BINATI.EN......3|
00000110: 20 B2 20 20 38 37 30 00  25 09 BE 00 B9 34 20 B2  | .  870.%....4 .|
00000120: 20 20 38 38 30 00 4E 09  C8 00 53 43 48 57 41 52  |  880.N...SCHWAR|
00000130: 5A 45 20 B2 20 38 39 30  20 3B 20 45 49 4E 47 41  |ZE . 890 ; EINGA|
00000140: 42 45 4E 20 4D 49 54 53  50 49 45 4C 45 52 00 78  |BEN MITSPIELER.x|
00000150: 09 D2 00 43 53 43 48 57  41 52 5A 45 20 B2 20 39  |...CSCHWARZE . 9|
00000160: 30 30 20 3B 20 45 52 52  45 43 48 4E 45 54 45 20  |00 ; ERRECHNETE |
00000170: 45 49 4E 47 41 42 45 4E  00 A0 09 DC 00 57 45 49  |EINGABEN.....WEI|
00000180: 53 53 45 20 B2 20 39 31  30 20 3B 20 28 20 53 49  |SSE . 910 ; ( SI|
00000190: 45 48 45 20 41 4C CB 52  49 54 48 4D 55 53 20 29  |EHE AL.RITHMUS )|
000001A0: 00 B4 09 E6 00 43 57 45  49 53 53 45 20 B2 20 39  |.....CWEISSE . 9|
000001B0: 32 30 20 3B 00 C2 09 F0  00 8A 44 45 20 B2 20 38  |20 ;......DE . 8|
000001C0: 33 30 00 DE 09 F5 00 3B  20 44 49 56 45 52 53 45  |30.....; DIVERSE|
000001D0: 20 48 49 4C 46 53 52 45  47 49 53 54 45 52 00 EC  | HILFSREGISTER..|
000001E0: 09 FA 00 43 B9 31 20 B2  20 38 33 31 00 FA 09 04  |...C.1 . 831....|
000001F0: 01 43 B9 32 20 B2 20 38  33 32 00 08 0A 0E 01 43  |.C.2 . 832.....C|
00000200: B9 33 20 B2 20 38 33 33  00 16 0A 18 01 43 B9 34  |.3 . 833.....C.4|
00000210: 20 B2 20 38 33 34 00 24  0A 22 01 43 56 31 20 B2  | . 834.$.".CV1 .|
00000220: 20 38 33 35 00 32 0A 2C  01 43 56 32 20 B2 20 38  | 835.2.,.CV2 . 8|
00000230: 33 36 00 40 0A 36 01 43  56 33 20 B2 20 38 33 37  |36.@.6.CV3 . 837|
00000240: 00 4E 0A 40 01 43 56 34  20 B2 20 38 33 38 00 5B  |.N.@.CV4 . 838.[|
00000250: 0A 4A 01 48 31 20 B2 20  38 33 39 00 68 0A 54 01  |.J.H1 . 839.h.T.|
00000260: 48 32 20 B2 20 38 34 30  00 76 0A 68 01 4D 49 4E  |H2 . 840.v.h.MIN|
00000270: 20 B2 20 38 34 31 00 7C  0A 72 01 3B 00 91 0A 74  | . 841.|.r.;...t|
00000280: 01 3B 20 50 52 4F 47 52  41 4D 4D AB 53 54 41 52  |.; PROGRAMM.STAR|
00000290: 54 00 97 0A 76 01 3B 00  A4 0A 7C 01 4C 44 41 20  |T...v.;...|.LDA |
000002A0: 23 31 34 37 00 C9 0A 86  01 4A 53 52 20 43 48 52  |#147.....JSR CHR|
000002B0: 4F 55 54 20 3B 20 42 49  4C 44 53 43 48 49 52 4D  |OUT ; BILDSCHIRM|
000002C0: 20 4C 4F 45 53 43 48 45  4E 00 D4 0A D6 01 4C 44  | LOESCHEN.....LD|
000002D0: 41 20 23 31 00 F4 0A DB  01 53 54 41 20 8A 44 45  |A #1.....STA .DE|
000002E0: 20 3B 20 8A 44 45 20 49  4E 49 54 49 41 4C 49 53  | ; .DE INITIALIS|
000002F0: 49 45 52 54 00 37 0B E0  01 53 54 41 20 B9 31 3A  |IERT.7...STA .1:|
00000300: 53 54 41 20 B9 32 3A 53  54 41 20 B9 33 3A 53 54  |STA .2:STA .3:ST|
00000310: 41 20 B9 34 20 3B 20 53  43 48 4C 45 8B 45 20 49  |A .4 ; SCHLE.E I|
00000320: 4E 49 54 49 41 4C 49 53  49 45 52 54 20 41 55 46  |NITIALISIERT AUF|
00000330: 20 27 31 31 31 31 27 00  3D 0B E5 01 3B 00 6C 0B  | '1111'.=...;.l.|
00000340: E6 01 3B 20 31 2E 20 56  45 52 53 55 43 48 20 27  |..; 1. VERSUCH '|
00000350: 31 32 33 34 27 20 B6 50  45 49 43 48 45 52 4E 20  |1234' .PEICHERN |
00000360: 55 4E 44 20 41 55 53 47  45 42 45 4E 00 72 0B E7  |UND AUSGEBEN.r..|
00000370: 01 3B 00 7F 0B EA 01 53  54 41 20 B9 31 AA 31 00  |.;.....STA .1.1.|
00000380: 93 0B F4 01 41 53 4C 20  41 20 3A 53 54 41 20 B9  |....ASL A :STA .|
00000390: 32 AA 31 00 A7 0B FE 01  41 53 4C 20 41 20 3A 53  |2.1.....ASL A :S|
000003A0: 54 41 20 B9 33 AA 31 00  BB 0B 08 02 41 53 4C 20  |TA .3.1.....ASL |
000003B0: 41 20 3A 53 54 41 20 B9  34 AA 31 00 CA 0B 1C 02  |A :STA .4.1.....|
000003C0: 4C 44 41 20 23 B3 54 45  58 54 00 D9 0B 26 02 4C  |LDA #.TEXT...&.L|
000003D0: 44 59 20 23 B1 54 45 58  54 00 E8 0B 30 02 4A 53  |DY #.TEXT...0.JS|
000003E0: 52 20 53 54 52 4F 55 54  00 F7 0B 3A 02 4A 53 52  |R STROUT...:.JSR|
000003F0: 20 41 4E 54 57 B0 54 00  22 0C 3C 02 43 50 59 20  | ANTW.T.".<.CPY |
00000400: 23 24 46 46 20 3B 20 4B  4F 4D 42 49 4E 41 54 49  |#$FF ; KOMBINATI|
00000410: 91 20 47 45 46 55 4E 44  45 4E 20 4A 41 AD 4E 45  |. GEFUNDEN JA.NE|
00000420: 49 4E 00 42 0C 3E 02 42  4E 45 20 4C 30 20 3B 20  |IN.B.>.BNE L0 ; |
00000430: 4E 45 49 4E 20 AB 20 41  4C 53 4F 20 53 55 43 48  |NEIN . ALSO SUCH|
00000440: 45 4E 00 63 0C 40 02 52  54 53 20 3B 20 4A 41 20  |EN.c.@.RTS ; JA |
00000450: AB 20 5A 55 52 55 45 43  4B 20 49 4E 53 20 42 41  |. ZURUECK INS BA|
00000460: 53 49 43 00 75 0C 44 02  4C 30 20 4A 4D 50 20 4C  |SIC.u.D.L0 JMP L|
00000470: 49 4C 4F 4F 50 00 7B 0C  58 02 3B 00 A4 0C 62 02  |ILOOP.{.X.;...b.|
00000480: 3B 20 47 52 4F 53 53 45  20 53 43 48 4C 45 8B 45  |; GROSSE SCHLE.E|
00000490: 20 AB 20 27 31 31 31 31  27 20 42 49 53 20 27 36  | . '1111' BIS '6|
000004A0: 36 36 36 27 00 AA 0C 6C  02 3B 00 BC 0C 80 02 47  |666'...l.;.....G|
000004B0: 52 4C 4F 4F 50 20 4C 44  41 20 B9 31 00 CD 0C 8A  |RLOOP LDA .1....|
000004C0: 02 AF 20 23 25 30 30 31  30 30 30 30 30 00 DC 0C  |.. #%00100000...|
000004D0: 94 02 42 4E 45 20 4D 41  53 53 4E 31 00 E7 0C 9E  |..BNE MASSN1....|
000004E0: 02 41 53 4C 20 B9 31 00  F6 0C A8 02 4A 4D 50 20  |.ASL .1.....JMP |
000004F0: 4C 49 4C 4F 4F 50 00 08  0D B2 02 4D 41 53 53 4E  |LILOOP.....MASSN|
00000500: 31 20 4C 44 41 20 23 31  00 13 0D BC 02 53 54 41  |1 LDA #1.....STA|
00000510: 20 B9 31 00 24 0D C6 02  54 45 53 54 32 20 4C 44  | .1.$...TEST2 LD|
00000520: 41 20 B9 32 00 35 0D D0  02 AF 20 23 25 30 30 31  |A .2.5.... #%001|
00000530: 30 30 30 30 30 00 44 0D  DA 02 42 4E 45 20 4D 41  |00000.D...BNE MA|
00000540: 53 53 4E 32 00 4F 0D E4  02 41 53 4C 20 B9 32 00  |SSN2.O...ASL .2.|
00000550: 5E 0D EE 02 4A 4D 50 20  4C 49 4C 4F 4F 50 00 70  |^...JMP LILOOP.p|
00000560: 0D F8 02 4D 41 53 53 4E  32 20 4C 44 41 20 23 31  |...MASSN2 LDA #1|
00000570: 00 7B 0D 02 03 53 54 41  20 B9 32 00 8C 0D 0C 03  |.{...STA .2.....|
00000580: 54 45 53 54 33 20 4C 44  41 20 B9 33 00 9D 0D 16  |TEST3 LDA .3....|
00000590: 03 AF 20 23 25 30 30 31  30 30 30 30 30 00 AC 0D  |.. #%00100000...|
000005A0: 20 03 42 4E 45 20 4D 41  53 53 4E 33 00 B7 0D 2A  | .BNE MASSN3...*|
000005B0: 03 41 53 4C 20 B9 33 00  C6 0D 34 03 4A 4D 50 20  |.ASL .3...4.JMP |
000005C0: 4C 49 4C 4F 4F 50 00 D8  0D 3E 03 4D 41 53 53 4E  |LILOOP...>.MASSN|
000005D0: 33 20 4C 44 41 20 23 31  00 E3 0D 48 03 53 54 41  |3 LDA #1...H.STA|
000005E0: 20 B9 33 00 F4 0D 52 03  54 45 53 54 34 20 4C 44  | .3...R.TEST4 LD|
000005F0: 41 20 B9 34 00 05 0E 5C  03 AF 20 23 25 30 30 31  |A .4...\.. #%001|
00000600: 30 30 30 30 30 00 14 0E  66 03 42 4E 45 20 4D 41  |00000...f.BNE MA|
00000610: 53 53 4E 34 00 1F 0E 70  03 41 53 4C 20 B9 34 00  |SSN4...p.ASL .4.|
00000620: 2E 0E 7A 03 4A 4D 50 20  4C 49 4C 4F 4F 50 00 67  |..z.JMP LILOOP.g|
00000630: 0E 84 03 4D 41 53 53 4E  34 20 4C 44 41 20 23 24  |...MASSN4 LDA #$|
00000640: 36 42 3A 4C 44 59 20 23  24 41 33 20 3B 20 4B 4F  |6B:LDY #$A3 ; KO|
00000650: 4D 42 49 4E 41 54 49 91  20 4E 49 43 48 54 20 47  |MBINATI. NICHT G|
00000660: 45 46 55 4E 44 45 4E 00  88 0E 8E 03 4A 53 52 20  |EFUNDEN.....JSR |
00000670: 53 54 52 4F 55 54 20 3B  20 27 45 52 52 B0 27 20  |STROUT ; 'ERR.' |
00000680: 41 55 53 47 45 42 45 4E  00 A9 0E A2 03 52 54 53  |AUSGEBEN.....RTS|
00000690: 20 3B 20 55 4E 44 20 5A  55 52 55 45 43 4B 20 49  | ; UND ZURUECK I|
000006A0: 4E 53 20 42 41 53 49 43  2E 00 AF 0E A4 03 3B 00  |NS BASIC......;.|
000006B0: DD 0E A5 03 3B 20 55 4E  54 45 52 50 52 4F 47 52  |....; UNTERPROGR|
000006C0: 41 4D 4D 20 41 4E 5A 41  48 4C 20 53 43 48 57 41  |AMM ANZAHL SCHWA|
000006D0: 52 5A 45 20 45 52 4D 49  54 54 45 4C 4E 00 E3 0E  |RZE ERMITTELN...|
000006E0: A6 03 3B 00 F5 0E AC 03  42 4C 41 43 4B 53 20 4C  |..;.....BLACKS L|
000006F0: 44 41 20 23 30 00 09 0F  B6 03 53 54 41 20 43 53  |DA #0.....STA CS|
00000700: 43 48 57 41 52 5A 45 2C  58 00 18 0F C0 03 B9 31  |CHWARZE,X......1|
00000710: 56 20 4C 44 41 20 B9 31  00 23 0F CA 03 AF 20 B9  |V LDA .1.#.... .|
00000720: 31 2C 58 00 2F 0F D4 03  42 45 51 20 B9 32 56 00  |1,X./...BEQ .2V.|
00000730: 43 0F DE 03 49 4E 43 20  43 53 43 48 57 41 52 5A  |C...INC CSCHWARZ|
00000740: 45 2C 58 00 52 0F E8 03  B9 32 56 20 4C 44 41 20  |E,X.R....2V LDA |
00000750: B9 32 00 5D 0F F2 03 AF  20 B9 32 2C 58 00 69 0F  |.2.].... .2,X.i.|
00000760: FC 03 42 45 51 20 B9 33  56 00 7D 0F 06 04 49 4E  |..BEQ .3V.}...IN|
00000770: 43 20 43 53 43 48 57 41  52 5A 45 2C 58 00 8C 0F  |C CSCHWARZE,X...|
00000780: 10 04 B9 33 56 20 4C 44  41 20 B9 33 00 97 0F 1A  |...3V LDA .3....|
00000790: 04 AF 20 B9 33 2C 58 00  A3 0F 24 04 42 45 51 20  |.. .3,X...$.BEQ |
000007A0: B9 34 56 00 B7 0F 2E 04  49 4E 43 20 43 53 43 48  |.4V.....INC CSCH|
000007B0: 57 41 52 5A 45 2C 58 00  C6 0F 38 04 B9 34 56 20  |WARZE,X...8..4V |
000007C0: 4C 44 41 20 B9 34 00 D1  0F 42 04 AF 20 B9 34 2C  |LDA .4...B.. .4,|
000007D0: 58 00 DE 0F 4C 04 42 45  51 20 42 46 49 4E 00 F2  |X...L.BEQ BFIN..|
000007E0: 0F 56 04 49 4E 43 20 43  53 43 48 57 41 52 5A 45  |.V.INC CSCHWARZE|
000007F0: 2C 58 00 FF 0F 60 04 42  46 49 4E 20 52 54 53 00  |,X...`.BFIN RTS.|
00000800: 05 10 62 04 3B 00 31 10  64 04 3B 20 55 4E 54 45  |..b.;.1.d.; UNTE|
00000810: 52 50 52 4F 47 52 41 4D  4D 20 41 4E 5A 41 48 4C  |RPROGRAMM ANZAHL|
00000820: 20 57 45 49 53 53 45 20  45 52 4D 49 54 54 45 4C  | WEISSE ERMITTEL|
00000830: 4E 00 37 10 66 04 3B 00  49 10 6A 04 57 48 49 54  |N.7.f.;.I.j.WHIT|
00000840: 45 53 20 4C 44 41 20 B9  31 00 55 10 74 04 53 54  |ES LDA .1.U.t.ST|
00000850: 41 20 43 B9 31 00 60 10  7E 04 4C 44 41 20 B9 32  |A C.1.`.~.LDA .2|
00000860: 00 6C 10 88 04 53 54 41  20 43 B9 32 00 77 10 92  |.l...STA C.2.w..|
00000870: 04 4C 44 41 20 B9 33 00  83 10 9C 04 53 54 41 20  |.LDA .3.....STA |
00000880: 43 B9 33 00 8E 10 A6 04  4C 44 41 20 B9 34 00 9A  |C.3.....LDA .4..|
00000890: 10 B0 04 53 54 41 20 43  B9 34 00 A7 10 BA 04 4C  |...STA C.4.....L|
000008A0: 44 41 20 B9 31 2C 58 00  B3 10 C4 04 53 54 41 20  |DA .1,X.....STA |
000008B0: 43 56 31 00 C0 10 CE 04  4C 44 41 20 B9 32 2C 58  |CV1.....LDA .2,X|
000008C0: 00 CC 10 D8 04 53 54 41  20 43 56 32 00 D9 10 E2  |.....STA CV2....|
000008D0: 04 4C 44 41 20 B9 33 2C  58 00 E5 10 EC 04 53 54  |.LDA .3,X.....ST|
000008E0: 41 20 43 56 33 00 F2 10  F6 04 4C 44 41 20 B9 34  |A CV3.....LDA .4|
000008F0: 2C 58 00 FE 10 00 05 53  54 41 20 43 56 34 00 09  |,X.....STA CV4..|
00000900: 11 0A 05 4C 44 41 20 23  30 00 15 11 14 05 53 54  |...LDA #0.....ST|
00000910: 41 20 4D 49 4E 00 20 11  1E 05 4C 44 59 20 23 36  |A MIN. ...LDY #6|
00000920: 00 2F 11 32 05 4C 4F 53  20 4C 44 41 20 23 30 00  |./.2.LOS LDA #0.|
00000930: 3A 11 3C 05 53 54 41 20  48 31 00 45 11 46 05 53  |:.<.STA H1.E.F.S|
00000940: 54 41 20 48 32 00 5C 11  78 05 54 58 41 3A 50 48  |TA H2.\.x.TXA:PH|
00000950: 41 3A 4C 44 41 20 23 33  3A 54 41 58 00 6D 11 82  |A:LDA #3:TAX.m..|
00000960: 05 4C 31 20 4C 53 52 20  43 B9 31 2C 58 00 78 11  |.L1 LSR C.1,X.x.|
00000970: 8C 05 42 43 43 20 4C 32  00 83 11 96 05 49 4E 43  |..BCC L2.....INC|
00000980: 20 48 31 00 94 11 A0 05  4C 32 20 4C 53 52 20 43  | H1.....L2 LSR C|
00000990: 56 31 2C 58 00 9F 11 AA  05 42 43 43 20 4C 33 00  |V1,X.....BCC L3.|
000009A0: AA 11 B4 05 49 4E 43 20  48 32 00 B5 11 BE 05 4C  |....INC H2.....L|
000009B0: 33 20 44 45 58 00 C0 11  C8 05 42 50 4C 20 4C 31  |3 DEX.....BPL L1|
000009C0: 00 CC 11 D2 05 50 4C 41  3A 54 41 58 00 DF 11 40  |.....PLA:TAX...@|
000009D0: 06 4D 49 4E 46 49 4E 44  20 4C 44 41 20 48 31 00  |.MINFIND LDA H1.|
000009E0: E7 11 4A 06 53 45 43 00  F2 11 54 06 53 42 43 20  |..J.SEC...T.SBC |
000009F0: 48 32 00 02 12 5E 06 42  4D 49 20 48 32 47 52 4F  |H2...^.BMI H2GRO|
00000A00: 53 53 00 16 12 68 06 48  31 47 52 4F 53 53 20 4C  |SS...h.H1GROSS L|
00000A10: 44 41 20 4D 49 4E 00 1E  12 72 06 43 4C 43 00 29  |DA MIN...r.CLC.)|
00000A20: 12 7C 06 41 44 43 20 48  32 00 35 12 86 06 53 54  |.|.ADC H2.5...ST|
00000A30: 41 20 4D 49 4E 00 46 12  90 06 4A 4D 50 20 59 4B  |A MIN.F...JMP YK|
00000A40: 4C 45 49 4E 45 52 00 5A  12 9A 06 48 32 47 52 4F  |LEINER.Z...H2GRO|
00000A50: 53 53 20 4C 44 41 20 4D  49 4E 00 62 12 A4 06 43  |SS LDA MIN.b...C|
00000A60: 4C 43 00 6D 12 AE 06 41  44 43 20 48 31 00 79 12  |LC.m...ADC H1.y.|
00000A70: B8 06 53 54 41 20 4D 49  4E 00 8A 12 C2 06 59 4B  |..STA MIN.....YK|
00000A80: 4C 45 49 4E 45 52 20 44  45 59 00 96 12 CC 06 42  |LEINER DEY.....B|
00000A90: 4E 45 20 4C 4F 53 00 A2  12 D6 06 4C 44 41 20 4D  |NE LOS.....LDA M|
00000AA0: 49 4E 00 AA 12 E0 06 53  45 43 00 BE 12 EA 06 53  |IN.....SEC.....S|
00000AB0: 42 43 20 43 53 43 48 57  41 52 5A 45 2C 58 00 D0  |BC CSCHWARZE,X..|
00000AC0: 12 F4 06 53 54 41 20 43  57 45 49 53 53 45 2C 58  |...STA CWEISSE,X|
00000AD0: 00 DD 12 FE 06 57 46 49  4E 20 52 54 53 00 E3 12  |.....WFIN RTS...|
00000AE0: 00 07 3B 00 19 13 02 07  3B 20 4B 4C 45 49 4E 45  |..;.....; KLEINE|
00000AF0: 20 53 43 48 4C 45 8B 45  20 AB 20 4B 4F 4D 42 49  | SCHLE.E . KOMBI|
00000B00: 4E 41 54 49 91 20 BC 49  53 43 48 AB 52 49 43 48  |NATI. .ISCH.RICH|
00000B10: 54 49 47 20 28 4A AD 4E  29 00 1F 13 04 07 3B 00  |TIG (J.N).....;.|
00000B20: 32 13 08 07 4C 49 4C 4F  4F 50 20 4C 44 58 20 8A  |2...LILOOP LDX .|
00000B30: 44 45 00 46 13 12 07 9B  41 52 54 20 4A 53 52 20  |DE.F....ART JSR |
00000B40: 42 4C 41 43 4B 53 00 5A  13 1C 07 4C 44 41 20 43  |BLACKS.Z...LDA C|
00000B50: 53 43 48 57 41 52 5A 45  2C 58 00 6D 13 26 07 43  |SCHWARZE,X.m.&.C|
00000B60: 4D 50 20 53 43 48 57 41  52 5A 45 2C 58 00 78 13  |MP SCHWARZE,X.x.|
00000B70: 30 07 42 45 51 20 4C 34  00 87 13 35 07 4A 4D 50  |0.BEQ L4...5.JMP|
00000B80: 20 47 52 4C 4F 4F 50 00  99 13 3A 07 4C 34 20 4A  | GRLOOP...:.L4 J|
00000B90: 53 52 20 57 48 49 54 45  53 00 AB 13 44 07 4C 44  |SR WHITES...D.LD|
00000BA0: 41 20 43 57 45 49 53 53  45 2C 58 00 BC 13 4E 07  |A CWEISSE,X...N.|
00000BB0: 43 4D 50 20 57 45 49 53  53 45 2C 58 00 C7 13 58  |CMP WEISSE,X...X|
00000BC0: 07 42 45 51 20 4C 35 00  D6 13 5D 07 4A 4D 50 20  |.BEQ L5...].JMP |
00000BD0: 47 52 4C 4F 4F 50 00 E1  13 62 07 4C 35 20 44 45  |GRLOOP...b.L5 DE|
00000BE0: 58 00 EE 13 6C 07 42 4E  45 20 9B 41 52 54 00 F4  |X...l.BNE .ART..|
00000BF0: 13 6E 07 3B 00 1D 14 70  07 3B 20 BC 49 53 43 48  |.n.;...p.; .ISCH|
00000C00: AB 52 49 43 48 54 49 47  45 20 4B 4F 4D 42 49 4E  |.RICHTIGE KOMBIN|
00000C10: 41 54 49 91 20 41 55 53  47 45 42 45 4E 00 23 14  |ATI. AUSGEBEN.#.|
00000C20: 72 07 3B 00 2F 14 76 07  4C 44 58 20 8A 44 45 00  |r.;./.v.LDX .DE.|
00000C30: 37 14 80 07 49 4E 58 00  42 14 8A 07 4C 44 41 20  |7...INX.B...LDA |
00000C40: B9 31 00 57 14 94 07 53  54 41 20 B9 31 2C 58 3A  |.1.W...STA .1,X:|
00000C50: 53 54 41 20 43 56 31 00  62 14 9E 07 4C 44 41 20  |STA CV1.b...LDA |
00000C60: B9 32 00 77 14 A8 07 53  54 41 20 B9 32 2C 58 3A  |.2.w...STA .2,X:|
00000C70: 53 54 41 20 43 56 32 00  82 14 B2 07 4C 44 41 20  |STA CV2.....LDA |
00000C80: B9 33 00 97 14 BC 07 53  54 41 20 B9 33 2C 58 3A  |.3.....STA .3,X:|
00000C90: 53 54 41 20 43 56 33 00  A2 14 C6 07 4C 44 41 20  |STA CV3.....LDA |
00000CA0: B9 34 00 B7 14 D0 07 53  54 41 20 B9 34 2C 58 3A  |.4.....STA .4,X:|
00000CB0: 53 54 41 20 43 56 34 00  C2 14 20 08 4C 44 59 20  |STA CV4... .LDY |
00000CC0: 23 30 00 D4 14 2A 08 4C  36 20 4C 44 41 20 23 30  |#0...*.L6 LDA #0|
00000CD0: 3A 54 41 58 00 E0 14 2F  08 43 4C 43 3A 49 4E 59  |:TAX.../.CLC:INY|
00000CE0: 00 F0 14 34 08 4C 44 41  20 43 56 31 AB 31 2C 59  |...4.LDA CV1.1,Y|
00000CF0: 00 FD 14 3E 08 4C 37 20  4C 53 52 20 41 00 05 15  |...>.L7 LSR A...|
00000D00: 48 08 49 4E 58 00 10 15  52 08 42 43 43 20 4C 37  |H.INX...R.BCC L7|
00000D10: 00 25 15 5C 08 54 58 41  3A 43 4C 43 3A 41 44 43  |.%.\.TXA:CLC:ADC|
00000D20: 20 23 24 33 30 00 34 15  66 08 4A 53 52 20 43 48  | #$30.4.f.JSR CH|
00000D30: 52 4F 55 54 00 3F 15 70  08 43 50 59 20 23 34 00  |ROUT.?.p.CPY #4.|
00000D40: 4A 15 7A 08 42 4E 45 20  4C 36 00 56 15 8E 08 49  |J.z.BNE L6.V...I|
00000D50: 4E 43 20 8A 44 45 00 65  15 98 08 4A 53 52 20 41  |NC .DE.e...JSR A|
00000D60: 4E 54 57 B0 54 00 72 15  9A 08 43 50 59 20 23 24  |NTW.T.r...CPY #$|
00000D70: 46 46 00 7D 15 9C 08 42  4E 45 20 4C 38 00 85 15  |FF.}...BNE L8...|
00000D80: 9E 08 52 54 53 00 97 15  A2 08 4C 38 20 4A 4D 50  |..RTS.....L8 JMP|
00000D90: 20 47 52 4C 4F 4F 50 00  9D 15 A4 08 3B 00 BC 15  | GRLOOP.....;...|
00000DA0: A6 08 3B 20 55 4E 54 45  52 50 52 4F 47 52 41 4D  |..; UNTERPROGRAM|
00000DB0: 4D 20 41 4E 54 57 B0 54  20 48 4F C3 00 C2 15 A8  |M ANTW.T HO.....|
00000DC0: 08 3B 00 E1 15 AC 08 41  4E 54 57 B0 54 20 4C 44  |.;.....ANTW.T LD|
00000DD0: 41 20 23 24 30 44 3A 4A  53 52 20 43 48 52 4F 55  |A #$0D:JSR CHROU|
00000DE0: 54 00 EF 15 B6 08 4A 53  52 20 43 48 52 49 4E 00  |T.....JSR CHRIN.|
00000DF0: FB 15 C0 08 4C 44 58 20  8A 44 45 00 0C 16 CA 08  |....LDX .DE.....|
00000E00: 53 45 43 3A 53 42 43 20  23 24 33 30 00 17 16 CC  |SEC:SBC #$30....|
00000E10: 08 43 4D 50 20 23 34 00  22 16 CE 08 42 4E 45 20  |.CMP #4."...BNE |
00000E20: 4C 39 00 43 16 D0 08 4C  44 41 20 23 24 36 34 3A  |L9.C...LDA #$64:|
00000E30: 4C 44 59 20 23 24 41 33  3A 4A 53 52 20 53 54 52  |LDY #$A3:JSR STR|
00000E40: 4F 55 54 00 50 16 D2 08  4C 44 59 20 23 24 46 46  |OUT.P...LDY #$FF|
00000E50: 00 58 16 D3 08 52 54 53  00 82 16 D4 08 4C 39 20  |.X...RTS.....L9 |
00000E60: 53 54 41 20 53 43 48 57  41 52 5A 45 2C 58 3A 4C  |STA SCHWARZE,X:L|
00000E70: 44 41 20 23 24 30 44 3A  4A 53 52 20 43 48 52 4F  |DA #$0D:JSR CHRO|
00000E80: 55 54 00 90 16 DE 08 4A  53 52 20 43 48 52 49 4E  |UT.....JSR CHRIN|
00000E90: 00 AE 16 E8 08 53 45 43  3A 53 42 43 20 23 24 33  |.....SEC:SBC #$3|
00000EA0: 30 3A 53 54 41 20 57 45  49 53 53 45 2C 58 00 BB  |0:STA WEISSE,X..|
00000EB0: 16 F2 08 4C 44 41 20 23  24 30 44 00 CE 16 FC 08  |...LDA #$0D.....|
00000EC0: 4A 53 52 20 43 48 52 4F  55 54 3A 52 54 53 00 D4  |JSR CHROUT:RTS..|
00000ED0: 16 06 09 3B 00 E1 16 07  09 3B 20 27 31 32 33 34  |...;.....; '1234|
00000EE0: 27 00 E7 16 08 09 3B 00  03 17 10 09 54 45 58 54  |'.....;.....TEXT|
00000EF0: 20 2E C6 20 22 31 32 33  34 22 20 3A 20 2E 42 59  | .. "1234" : .BY|
00000F00: 54 20 30 00 09 17 B8 0B  3B 00 26 17 BD 0B 3B 20  |T 0.....;.&...; |
00000F10: 56 45 52 53 43 48 49 45  42 45 4E 20 4E 41 43 48  |VERSCHIEBEN NACH|
00000F20: 20 24 33 34 30 30 00 2C  17 C2 0B 3B 00 47 17 1C  | $3400.,...;.G..|
00000F30: 0C 4C 44 41 20 23 30 3A  53 54 41 20 41 4C 54 3A  |.LDA #0:STA ALT:|
00000F40: 53 54 41 20 4E 45 55 00  5E 17 26 0C 4C 44 41 20  |STA NEU.^.&.LDA |
00000F50: 23 24 30 34 3A 53 54 41  20 41 4C 54 AA 31 00 75  |#$04:STA ALT.1.u|
00000F60: 17 30 0C 4C 44 41 20 23  24 33 34 3A 53 54 41 20  |.0.LDA #$34:STA |
00000F70: 4E 45 55 AA 31 00 84 17  3A 0C 4C 31 30 20 4C 44  |NEU.1...:.L10 LD|
00000F80: 59 20 23 30 00 A4 17 44  0C 4C 31 31 20 4C 44 41  |Y #0...D.L11 LDA|
00000F90: 20 28 41 4C 54 29 2C 59  3A 53 54 41 20 28 4E 45  | (ALT),Y:STA (NE|
00000FA0: 55 29 2C 59 00 AC 17 62  0C 49 4E 59 00 B8 17 6C  |U),Y...b.INY...l|
00000FB0: 0C 42 4E 45 20 4C 31 31  00 C6 17 76 0C 4C 44 41  |.BNE L11...v.LDA|
00000FC0: 20 41 4C 54 AA 31 00 D3  17 80 0C 43 4D 50 20 23  | ALT.1.....CMP #|
00000FD0: 24 30 37 00 E4 17 8A 0C  42 45 51 20 41 55 46 47  |$07.....BEQ AUFG|
00000FE0: 45 48 54 53 00 FC 17 94  0C 49 4E 43 20 41 4C 54  |EHTS.....INC ALT|
00000FF0: AA 31 3A 49 4E 43 20 4E  45 55 AA 31 00 0C 18 9E  |.1:INC NEU.1....|
00001000: 0C 43 4C 43 3A 42 43 43  20 4C 31 30 00 34 18 A8  |.CLC:BCC L10.4..|
00001010: 0C 41 55 46 47 45 48 54  53 20 4A 4D 50 20 24 33  |.AUFGEHTS JMP $3|
00001020: 34 30 30 20 3B 20 50 52  4F 47 52 41 4D 4D AB 53  |400 ; PROGRAMM.S|
00001030: 54 41 52 54 00 00 00                              |TART...         |

....D..32768...N..OPT OO,P.'.X... $3400.
-.Y.;.F.Z.; VARIABC.DEKLARATI..L.{.;.S.}
.ALT . $6A ; ZEROPAGE ADRESSEN FUER...~.
NEU . $6C ; VERSCHIEBE.ROUTINE.....CHROU
T . $FFD2.....CHRIN . $FFCF.N...STROUT .
 $AB1E... ..1 .  850 ; SPEICHER FUER....
..2 .  860 ; KOMBINATI.EN......3 .  870.
%....4 .  880.N.H.SCHWARZE . 890 ; EINGA
BEN MITSPIELER.X.R.CSCHWARZE . 900 ; ERR
ECHNETE EINGABEN. ...WEISSE . 910 ; ( SI
EHE ALKRITHMUS ).....CWEISSE . 920 ;.B..
..DE . 830.....; DIVERSE HILFSREGISTER..
...C.1 . 831.....C.2 . 832.....C.3 . 833
.....C.4 . 834.$.".CV1 . 835.2.,.CV2 . 8
36.@.6.CV3 . 837.N.@.CV4 . 838.[.J.H1 . 
839.H.T.H2 . 840.V.H.MIN . 841.|.R.;...T
.; PROGRAMM.START...V.;...|.LDA #147.I..
.JSR CHROUT ; BILDSCHIRM LOESCHEN.T.V.LD
A #1.....STA .DE ; .DE INITIALISIERT.7..
.STA .1:STA .2:STA .3:STA .4 ; SCHLE.E I
NITIALISIERT AUF '1111'.=...;.L...; 1. V
ERSUCH '1234' .PEICHERN UND AUSGEBEN.R..
.;....STA .1.1.....ASL A :STA .2.1.....
ASL A :STA .3.1.....ASL A :STA .4.1.J...
LDA #.TEXT.Y.&.LDY #.TEXT...0.JSR STROUT
...:.JSR ANTW.T.".<.CPY #$FF ; KOMBINATI
. GEFUNDEN JA.NEIN.B.>.BNE L0 ; NEIN . A
LSO SUCHEN.C.@.RTS ; JA . ZURUECK INS BA
SIC.U.D.L0 JMP LILOOP.{.X.;...B.; GROSSE
 SCHLE.E . '1111' BIS '6666'...L.;.....G
RLOOP LDA .1.M.... #%00100000.....BNE MA
SSN1.....ASL .1.....JMP LILOOP.....MASSN
1 LDA #1.....STA .1.$.F.TEST2 LDA .2.5.P
.. #%00100000.D.Z.BNE MASSN2.O...ASL .2.
^...JMP LILOOP.P...MASSN2 LDA #1.{...STA
 .2.....TEST3 LDA .3...... #%00100000...
 .BNE MASSN3...*.ASL .3.F.4.JMP LILOOP.X
.>.MASSN3 LDA #1...H.STA .3...R.TEST4 LD
A .4...\.. #%00100000...F.BNE MASSN4...P
.ASL .4...Z.JMP LILOOP.G...MASSN4 LDA #$
6B:LDY #$A3 ; KOMBINATI. NICHT GEFUNDEN.
....JSR STROUT ; 'ERR.' AUSGEBEN.....RTS
 ; UND ZURUECK INS BASIC......;.....; UN
TERPROGRAMM ANZAHL SCHWARZE ERMITTELN...
..;.....BLACKS LDA #0.....STA CSCHWARZE,
X......1V LDA .1.#.J.. .1,X./.T.BEQ .2V.
C...INC CSCHWARZE,X.R....2V LDA .2.]....
 .2,X.I...BEQ .3V.}...INC CSCHWARZE,X...
...3V LDA .3...... .3,X...$.BEQ .4V.....
INC CSCHWARZE,X.F.8..4V LDA .4.Q.B.. .4,
X...L.BEQ BFIN...V.INC CSCHWARZE,X...`.B
FIN RTS...B.;.1.D.; UNTERPROGRAMM ANZAHL
 WEISSE ERMITTELN.7.F.;.I.J.WHITES LDA .
1.U.T.STA C.1.`.~.LDA .2.L...STA C.2.W..
.LDA .3.....STA C.3.....LDA .4.....STA C
.4.....LDA .1,X...D.STA CV1...N.LDA .2,X
.L.X.STA CV2.Y...LDA .3,X.....STA CV3...
..LDA .4,X.....STA CV4.....LDA #0.....ST
A MIN. ...LDY #6./.2.LOS LDA #0.:.<.STA 
H1.E.F.STA H2.\.X.TXA:PHA:LDA #3:TAX.M..
.L1 LSR C.1,X.X...BCC L2.....INC H1... .
L2 LSR CV1,X.....BCC L3.....INC H2.....L
3 DEX...H.BPL L1.L.R.PLA:TAX...@.MINFIND
 LDA H1...J.SEC...T.SBC H2...^.BMI H2GRO
SS...H.H1GROSS LDA MIN...R.CLC.).|.ADC H
2.5...STA MIN.F...JMP YKLEINER.Z...H2GRO
SS LDA MIN.B...CLC.M...ADC H1.Y...STA MI
N...B.YKLEINER DEY...L.BNE LOS...V.LDA M
IN.....SEC.....SBC CSCHWARZE,X.P...STA C
WEISSE,X.....WFIN RTS.....;.....; KLEINE
 SCHLE.E . KOMBINATI. .ISCH.RICHTIG (J.N
).....;.2...LILOOP LDX .DE.F....ART JSR 
BLACKS.Z...LDA CSCHWARZE,X.M.&.CMP SCHWA
RZE,X.X.0.BEQ L4...5.JMP GRLOOP...:.L4 J
SR WHITES...D.LDA CWEISSE,X...N.CMP WEIS
SE,X.G.X.BEQ L5.V.].JMP GRLOOP...B.L5 DE
X...L.BNE .ART...N.;...P.; .ISCH.RICHTIG
E KOMBINATI. AUSGEBEN.#.R.;./.V.LDX .DE.
7...INX.B...LDA .1.W...STA .1,X:STA CV1.
B...LDA .2.W...STA .2,X:STA CV2.....LDA 
.3.....STA .3,X:STA CV3...F.LDA .4...P.S
TA .4,X:STA CV4.B. .LDY #0.T.*.L6 LDA #0
:TAX.../.CLC:INY...4.LDA CV1.1,Y...>.L7 
LSR A...H.INX...R.BCC L7.%.\.TXA:CLC:ADC
 #$30.4.F.JSR CHROUT.?.P.CPY #4.J.Z.BNE 
L6.V...INC .DE.E...JSR ANTW.T.R...CPY #$
FF.}...BNE L8.....RTS.....L8 JMP GRLOOP.
....;.....; UNTERPROGRAMM ANTW.T HOC.B..
.;.....ANTW.T LDA #$0D:JSR CHROUT.....JS
R CHRIN.....LDX .DE...J.SEC:SBC #$30...L
.CMP #4.".N.BNE L9.C.P.LDA #$64:LDY #$A3
:JSR STROUT.P.R.LDY #$FF.X.S.RTS...T.L9 
STA SCHWARZE,X:LDA #$0D:JSR CHROUT.....J
SR CHRIN.....SEC:SBC #$30:STA WEISSE,X..
...LDA #$0D.N...JSR CHROUT:RTS.T...;....
.; '1234'.....;.....TEXT .F "1234" : .BY
T 0.....;.&...; VERSCHIEBEN NACH $3400.,
.B.;.G...LDA #0:STA ALT:STA NEU.^.&.LDA 
#$04:STA ALT.1.U.0.LDA #$34:STA NEU.1...
:.L10 LDY #0...D.L11 LDA (ALT),Y:STA (NE
U),Y...B.INY...L.BNE L11.F.V.LDA ALT.1.S
...CMP #$07.....BEQ AUFGEHTS.....INC ALT
.1:INC NEU.1.....CLC:BCC L10.4...AUFGEHT
S JMP $3400 ; PROGRAMM.START...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL