DEZ-HEX-BITM.SRC
FILE INFORMATION
FILENAME(S): DEZ-HEX-BITM.SRC
FILE TYPE(S): PRG
FILE SIZE: 14.3K
FIRST SEEN: 2025-11-30 01:13:11
APPEARS ON: 2 disk(s)
FILE HASH
48cfade346c3734871f759028b12741b19aa67b56dad32012fa6c0f362e4c100
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10901 SEITE C | DEZ-HEX-BITM.SRC | PRG | C64er, DuncanTwain | 22 | 0 | DOWNLOAD FILE |
| 10901 SEITE C | DEZ-HEX-BITM.SRC | PRG | DuncanTwain | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FC 1F 64 00 3B 20 3D 3D 3D 3D 3D 3D 3D 3D |....d.; ========|
00000010: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000020: 3D 3D 3D 3D 3D 00 13 20 6E 00 3B 20 C4 C5 DA 2D |=====.. n.; ...-|
00000030: C8 C5 D8 2D C2 C9 D4 CD 2E D3 D2 C3 00 37 20 78 |...-.........7 x|
00000040: 00 3B 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.; =============|
00000050: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000060: 00 5A 20 82 00 3B 20 D5 4D 52 45 43 48 4E 55 4E |.Z ..; .MRECHNUN|
00000070: 47 20 56 4F 4E 20 C4 45 5A 49 4D 41 4C 5A 41 48 |G VON .EZIMALZAH|
00000080: 4C 45 4E 00 7A 20 8C 00 3B 20 49 4E 20 C8 45 58 |LEN.z ..; IN .EX|
00000090: 41 44 45 5A 49 4D 41 4C 43 4F 44 45 20 55 4E 44 |ADEZIMALCODE UND|
000000A0: 20 49 4E 00 8E 20 96 00 3B 20 55 4E 44 20 C2 49 | IN.. ..; UND .I|
000000B0: 54 4D 55 53 54 45 52 00 B2 20 A0 00 3B 20 3D 3D |TMUSTER.. ..; ==|
000000C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 D2 20 A1 00 |===========.. ..|
000000E0: 3B 20 D0 52 4F 47 52 41 4D 4D 4C 41 45 4E 47 45 |; .ROGRAMMLAENGE|
000000F0: 3A 20 31 31 36 33 20 42 59 54 45 00 E8 20 A2 00 |: 1163 BYTE.. ..|
00000100: 3B 20 35 32 30 30 30 20 42 49 53 20 35 33 31 36 |; 52000 BIS 5316|
00000110: 32 00 FE 20 A3 00 3B 20 24 43 42 32 30 20 42 49 |2.. ..; $CB20 BI|
00000120: 53 20 24 43 46 41 42 00 04 21 AA 00 3B 00 12 21 |S $CFAB..!..;..!|
00000130: B4 00 2E 42 41 20 24 43 42 32 30 00 18 21 BE 00 |...BA $CB20..!..|
00000140: 3B 00 3C 21 C8 00 3B 20 C9 4E 54 45 52 52 55 50 |;.<!..; .NTERRUP|
00000150: 54 56 45 4B 54 4F 52 3B 20 D0 52 4F 47 52 2E 20 |TVEKTOR; .ROGR. |
00000160: 49 4E 49 54 2E 00 60 21 D2 00 3B 20 2D 2D 2D 2D |INIT..`!..; ----|
00000170: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 7E 21 DC 00 20 53 |---------.~!.. S|
00000190: 45 49 3B C9 4E 54 45 52 52 55 50 54 46 4C 41 47 |EI;.NTERRUPTFLAG|
000001A0: 20 53 45 54 5A 45 4E 00 AC 21 E6 00 20 4C 44 41 | SETZEN..!.. LDA|
000001B0: 23 3C 28 49 4E 54 45 52 29 3B 4E 45 55 45 20 C9 |#<(INTER);NEUE .|
000001C0: 4E 54 45 52 52 55 50 54 52 4F 55 54 49 4E 45 20 |NTERRUPTROUTINE |
000001D0: 28 4C 4F 57 29 00 D6 21 F0 00 20 53 54 41 24 30 |(LOW)..!.. STA$0|
000001E0: 33 31 34 3B C9 4E 54 45 52 52 55 50 54 56 45 43 |314;.NTERRUPTVEC|
000001F0: 54 4F 52 20 20 20 20 20 20 20 28 4C 4F 57 29 00 |TOR (LOW).|
00000200: 05 22 FA 00 20 4C 44 41 23 3E 28 49 4E 54 45 52 |.".. LDA#>(INTER|
00000210: 29 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |); |
00000220: 20 20 20 20 20 20 20 20 28 48 49 47 48 29 00 30 | (HIGH).0|
00000230: 22 04 01 20 53 54 41 24 30 33 31 35 3B 20 20 20 |".. STA$0315; |
00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000250: 20 20 20 28 48 49 47 48 29 00 4F 22 0E 01 20 43 | (HIGH).O".. C|
00000260: 4C 49 3B C9 4E 54 45 52 55 50 54 46 4C 41 47 20 |LI;.NTERUPTFLAG |
00000270: 4C 4F 45 53 43 48 45 4E 00 79 22 13 01 20 4A 53 |LOESCHEN.y".. JS|
00000280: 52 4B 4C 45 49 4E 3B D4 45 58 54 5A 45 49 43 48 |RKLEIN;.EXTZEICH|
00000290: 45 4E 53 41 54 5A 20 45 49 4E 53 43 48 41 4C 54 |ENSATZ EINSCHALT|
000002A0: 45 4E 00 82 22 18 01 20 52 54 53 00 88 22 22 01 |EN..".. RTS.."".|
000002B0: 3B 00 8E 22 2C 01 3B 00 AA 22 36 01 3B 20 4E 45 |;..",.;.."6.; NE|
000002C0: 55 45 20 C9 4E 54 45 52 52 55 50 54 52 4F 55 54 |UE .NTERRUPTROUT|
000002D0: 49 4E 45 00 C6 22 40 01 3B 20 2D 2D 2D 2D 2D 2D |INE.."@.; ------|
000002E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000002F0: E8 22 4A 01 49 4E 54 45 52 20 4C 44 41 24 43 35 |."J.INTER LDA$C5|
00000300: 3B D4 41 53 54 45 4E 43 4F 44 45 20 4C 45 53 45 |;.ASTENCODE LESE|
00000310: 4E 00 14 23 54 01 20 43 4D 50 23 24 30 34 3B 4D |N..#T. CMP#$04;M|
00000320: 49 54 20 C3 4F 44 45 20 46 55 45 52 20 3E C6 31 |IT .ODE FUER >.1|
00000330: 3C 20 56 45 52 47 4C 45 49 43 48 45 4E 00 37 23 |< VERGLEICHEN.7#|
00000340: 5E 01 20 42 4E 45 57 45 49 54 45 52 41 3B 55 4E |^. BNEWEITERA;UN|
00000350: 47 4C 45 49 43 48 20 2D 3E 20 57 45 49 54 45 52 |GLEICH -> WEITER|
00000360: 00 44 23 68 01 20 4C 44 58 23 24 38 30 00 6F 23 |.D#h. LDX#$80.o#|
00000370: 72 01 20 53 54 58 24 44 43 30 45 3B D4 49 4D 45 |r. STX$DC0E;.IME|
00000380: 52 20 41 55 53 2C 20 C9 4E 54 45 52 52 55 50 54 |R AUS, .NTERRUPT|
00000390: 20 53 50 45 52 52 45 4E 00 95 23 7C 01 20 4A 53 | SPERREN..#|. JS|
000003A0: 52 5A 45 49 4C 4F 45 3B 4F 42 45 52 53 54 45 20 |RZEILOE;OBERSTE |
000003B0: DA 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E 00 B5 |.EILE LOESCHEN..|
000003C0: 23 86 01 20 4A 53 52 44 45 5A 3B D5 4E 54 45 52 |#.. JSRDEZ;.NTER|
000003D0: 50 52 4F 47 52 41 4D 4D 20 3E C4 C5 DA 3C 00 E1 |PROGRAMM >...<..|
000003E0: 23 8B 01 20 4A 4D 50 49 4E 54 45 52 41 4C 54 3B |#.. JMPINTERALT;|
000003F0: 5A 55 52 20 41 4C 54 45 4E 20 C9 4E 54 45 52 52 |ZUR ALTEN .NTERR|
00000400: 55 50 54 52 4F 55 54 49 4E 45 00 F4 23 90 01 57 |UPTROUTINE..#..W|
00000410: 45 49 54 45 52 41 20 4C 44 41 24 43 35 00 20 24 |EITERA LDA$C5. $|
00000420: 9A 01 20 43 4D 50 23 24 30 35 3B 4D 49 54 20 C3 |.. CMP#$05;MIT .|
00000430: 4F 44 45 20 46 55 45 52 20 3E C6 33 3C 20 56 45 |ODE FUER >.3< VE|
00000440: 52 47 4C 45 49 43 48 45 4E 00 30 24 A4 01 20 42 |RGLEICHEN.0$.. B|
00000450: 4E 45 57 45 49 54 45 52 42 00 3D 24 AE 01 20 4C |NEWEITERB.=$.. L|
00000460: 44 58 23 24 38 30 00 4B 24 B8 01 20 53 54 58 24 |DX#$80.K$.. STX$|
00000470: 44 43 30 45 00 5A 24 C2 01 20 4A 53 52 5A 45 49 |DC0E.Z$.. JSRZEI|
00000480: 4C 4F 45 00 7A 24 CC 01 20 4A 53 52 48 45 58 3B |LOE.z$.. JSRHEX;|
00000490: D5 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 3E C8 |.NTERPROGRAMM >.|
000004A0: C5 D8 3C 00 8B 24 D6 01 20 4A 4D 50 49 4E 54 45 |..<..$.. JMPINTE|
000004B0: 52 41 4C 54 00 9E 24 E0 01 57 45 49 54 45 52 42 |RALT..$..WEITERB|
000004C0: 20 4C 44 41 24 43 35 00 CA 24 EA 01 20 43 4D 50 | LDA$C5..$.. CMP|
000004D0: 23 24 30 36 3B 4D 49 54 20 C3 4F 44 45 20 46 55 |#$06;MIT .ODE FU|
000004E0: 45 52 20 3E C6 35 3C 20 56 45 52 47 4C 45 49 43 |ER >.5< VERGLEIC|
000004F0: 48 45 4E 00 DA 24 F4 01 20 42 4E 45 57 45 49 54 |HEN..$.. BNEWEIT|
00000500: 45 52 43 00 E7 24 FE 01 20 4C 44 58 23 24 38 30 |ERC..$.. LDX#$80|
00000510: 00 F5 24 08 02 20 53 54 58 24 44 43 30 45 00 04 |..$.. STX$DC0E..|
00000520: 25 12 02 20 4A 53 52 5A 45 49 4C 4F 45 00 26 25 |%.. JSRZEILOE.&%|
00000530: 1C 02 20 4A 53 52 42 49 54 4D 3B D5 4E 54 45 52 |.. JSRBITM;.NTER|
00000540: 50 52 4F 47 52 41 4D 4D 20 3E C2 C9 D4 CD 3C 00 |PROGRAMM >....<.|
00000550: 3B 25 26 02 49 4E 54 45 52 41 4C 54 20 4C 44 58 |;%&.INTERALT LDX|
00000560: 23 24 38 31 00 67 25 30 02 20 53 54 58 24 44 43 |#$81.g%0. STX$DC|
00000570: 30 45 3B D4 49 4D 45 52 20 45 49 4E 2C 20 C9 4E |0E;.IMER EIN, .N|
00000580: 54 45 52 52 55 50 54 20 5A 55 4C 41 53 53 45 4E |TERRUPT ZULASSEN|
00000590: 00 96 25 3A 02 57 45 49 54 45 52 43 20 4A 4D 50 |..%:.WEITERC JMP|
000005A0: 24 45 41 33 31 3B 5A 55 52 20 41 4C 54 45 4E 20 |$EA31;ZUR ALTEN |
000005B0: C9 4E 54 45 52 52 55 50 54 52 4F 54 49 4E 45 00 |.NTERRUPTROTINE.|
000005C0: 9C 25 44 02 3B 00 A2 25 4E 02 3B 00 B7 25 58 02 |.%D.;..%N.;..%X.|
000005D0: 3B 20 DA 45 49 4C 45 20 4C 4F 45 53 43 48 45 4E |; .EILE LOESCHEN|
000005E0: 00 CC 25 62 02 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..%b.; ---------|
000005F0: 2D 2D 2D 2D 2D 00 E7 25 6C 02 5A 45 49 4C 4F 45 |-----..%l.ZEILOE|
00000600: 20 4C 44 59 23 24 30 30 3B DA 41 45 48 4C 45 52 | LDY#$00;.AEHLER|
00000610: 00 04 26 76 02 20 4C 44 41 23 24 32 30 3B C3 4F |..&v. LDA#$20;.O|
00000620: 44 45 20 46 55 45 52 20 D3 50 41 43 45 00 28 26 |DE FUER .PACE.(&|
00000630: 80 02 4E 41 45 53 50 41 20 53 54 41 24 30 34 30 |..NAESPA STA$040|
00000640: 30 2C 59 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 52 |0,Y;-> .ILDSCHIR|
00000650: 4D 00 3D 26 8A 02 20 49 4E 59 3B DA 41 45 48 4C |M.=&.. INY;.AEHL|
00000660: 45 52 20 2B 20 31 00 60 26 94 02 20 43 50 59 23 |ER + 1.`&.. CPY#|
00000670: 24 32 38 3B 34 30 2E 20 D3 50 41 4C 54 45 20 45 |$28;40. .PALTE E|
00000680: 52 52 45 49 43 48 54 20 3F 00 87 26 9E 02 20 42 |RREICHT ?..&.. B|
00000690: 43 43 4E 41 45 53 50 41 3B 4E 45 49 4E 20 2D 3E |CCNAESPA;NEIN ->|
000006A0: 20 4E 41 45 43 48 53 54 45 20 D3 50 41 4C 54 45 | NAECHSTE .PALTE|
000006B0: 00 90 26 A8 02 20 52 54 53 00 96 26 B2 02 3B 00 |..&.. RTS..&..;.|
000006C0: 9C 26 B3 02 3B 00 BE 26 B4 02 3B 20 C1 55 46 20 |.&..;..&..; .UF |
000006D0: CB 4C 45 49 4E 53 43 48 52 49 46 54 20 55 4D 53 |.LEINSCHRIFT UMS|
000006E0: 43 48 41 4C 54 45 4E 00 E0 26 B5 02 3B 20 2D 2D |CHALTEN..&..; --|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 00 27 B6 02 4B 4C |---------..'..KL|
00000710: 45 49 4E 20 4C 44 41 23 24 30 45 3B C1 D3 C3 C9 |EIN LDA#$0E;....|
00000720: C9 2D C3 4F 44 45 20 31 34 00 1C 27 B7 02 20 4A |.-.ODE 14..'.. J|
00000730: 53 52 24 45 37 31 36 3B 2D 3E 20 C2 49 4C 44 53 |SR$E716;-> .ILDS|
00000740: 43 48 49 52 4D 00 3B 27 B8 02 20 4C 44 41 23 24 |CHIRM.;'.. LDA#$|
00000750: 38 30 3B D5 4D 53 43 48 41 4C 54 55 4E 47 20 44 |80;.MSCHALTUNG D|
00000760: 55 52 43 48 00 5F 27 B9 02 20 53 54 41 24 30 32 |URCH._'.. STA$02|
00000770: 39 31 3B 3E D3 C8 C9 C6 D4 2D C3 3D 3C 20 42 4C |91;>.....-.=< BL|
00000780: 4F 43 4B 49 45 52 45 4E 00 68 27 BA 02 20 52 54 |OCKIEREN.h'.. RT|
00000790: 53 00 6E 27 BB 02 3B 00 74 27 BC 02 3B 00 97 27 |S.n'..;.t'..;..'|
000007A0: C6 02 3B 20 D5 4D 57 41 4E 44 4C 55 4E 47 20 56 |..; .MWANDLUNG V|
000007B0: 4F 4E 20 C4 45 5A 49 4D 41 4C 5A 41 48 4C 45 4E |ON .EZIMALZAHLEN|
000007C0: 00 BA 27 D0 02 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |..'..; ---------|
000007D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007E0: 2D 2D 2D 00 C6 27 DA 02 44 45 5A 20 43 4C 44 00 |---..'..DEZ CLD.|
000007F0: D7 27 E4 02 20 4C 44 58 23 24 30 34 3B 3E C4 3C |.'.. LDX#$04;>.<|
00000800: 00 F3 27 EE 02 20 53 54 58 24 30 34 30 30 3B 2D |..'.. STX$0400;-|
00000810: 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 04 28 F8 |> .ILDSCHIRM..(.|
00000820: 02 20 4C 44 58 23 24 33 41 3B 3E 3A 3C 00 20 28 |. LDX#$3A;>:<. (|
00000830: 02 03 20 53 54 58 24 30 34 30 31 3B 2D 3E 20 C2 |.. STX$0401;-> .|
00000840: 49 4C 44 53 43 48 49 52 4D 00 35 28 0C 03 20 4C |ILDSCHIRM.5(.. L|
00000850: 44 59 23 24 30 30 3B DA 41 45 48 4C 45 52 00 46 |DY#$00;.AEHLER.F|
00000860: 28 16 03 20 4C 44 41 23 24 32 45 3B 3E 2E 3C 00 |(.. LDA#$2E;>.<.|
00000870: 6D 28 20 03 50 55 4E 4B 54 41 55 53 31 20 53 54 |m( .PUNKTAUS1 ST|
00000880: 41 24 30 34 30 32 2C 59 3B 2D 3E 20 C2 49 4C 44 |A$0402,Y;-> .ILD|
00000890: 53 43 48 49 52 4D 00 82 28 2A 03 20 49 4E 59 3B |SCHIRM..(*. INY;|
000008A0: DA 41 45 48 4C 45 52 20 2B 20 31 00 A8 28 34 03 |.AEHLER + 1..(4.|
000008B0: 20 43 50 59 23 24 30 35 3B C5 49 4E 47 41 42 45 | CPY#$05;.INGABE|
000008C0: 4C 41 45 4E 47 45 20 45 52 52 45 49 43 48 54 20 |LAENGE ERREICHT |
000008D0: 3F 00 D6 28 3E 03 20 42 43 43 50 55 4E 4B 54 41 |?..(>. BCCPUNKTA|
000008E0: 55 53 31 3B 4E 45 49 4E 20 2D 3E 20 57 45 49 54 |US1;NEIN -> WEIT|
000008F0: 45 52 20 3E 2E 3C 20 41 55 53 47 45 42 45 4E 00 |ER >.< AUSGEBEN.|
00000900: F2 28 48 03 3B 20 C4 45 5A 49 4D 41 4C 5A 41 48 |.(H.; .EZIMALZAH|
00000910: 4C 20 45 49 4E 47 45 42 45 4E 3A 00 07 29 52 03 |L EINGEBEN:..)R.|
00000920: 20 4C 44 58 23 24 34 30 3B D4 41 53 54 45 4E 2D | LDX#$40;.ASTEN-|
00000930: 00 27 29 57 03 20 53 54 58 24 30 32 38 41 3B C4 |.')W. STX$028A;.|
00000940: 41 55 45 52 46 55 4E 4B 54 49 4F 4E 20 41 55 53 |AUERFUNKTION AUS|
00000950: 00 34 29 5C 03 20 4C 44 59 23 24 30 30 00 42 29 |.4)\. LDY#$00.B)|
00000960: 61 03 20 53 54 59 24 30 33 33 43 00 63 29 66 03 |a. STY$033C.c)f.|
00000970: 45 49 4E 4C 45 53 45 4E 41 20 49 4E 43 24 30 33 |EINLESENA INC$03|
00000980: 33 43 3B DA 41 45 48 4C 45 52 2B 31 00 85 29 6B |3C;.AEHLER+1..)k|
00000990: 03 47 45 54 31 20 4A 53 52 24 46 46 39 46 3B D4 |.GET1 JSR$FF9F;.|
000009A0: 41 53 54 41 54 55 52 41 42 46 52 41 47 45 00 AE |ASTATURABFRAGE..|
000009B0: 29 7A 03 20 4A 53 52 24 46 46 45 34 3B DA 45 49 |)z. JSR$FFE4;.EI|
000009C0: 43 48 45 4E 20 41 55 53 20 D4 41 53 54 41 54 55 |CHEN AUS .ASTATU|
000009D0: 52 50 55 46 46 45 52 00 CA 29 7F 03 20 43 4D 50 |RPUFFER..).. CMP|
000009E0: 23 24 30 30 3B 4B 45 49 4E 20 DA 45 49 43 48 45 |#$00;KEIN .EICHE|
000009F0: 4E 20 3F 00 ED 29 84 03 20 42 45 51 47 45 54 31 |N ?..).. BEQGET1|
00000A00: 3B 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 41 42 |;JA -> WEITER AB|
00000A10: 46 52 41 47 45 4E 00 02 2A 89 03 20 43 4D 50 23 |FRAGEN..*.. CMP#|
00000A20: 24 31 34 3B 3E C4 C5 CC 3C 20 3F 00 2F 2A 8E 03 |$14;>...< ?./*..|
00000A30: 20 42 45 51 45 49 4E 5A 45 49 4C 4F 31 3B 4A 41 | BEQEINZEILO1;JA|
00000A40: 20 2D 3E 20 45 49 4E 20 DA 45 49 43 48 45 4E 20 | -> EIN .EICHEN |
00000A50: 4C 4F 45 53 43 48 45 4E 00 47 2A 93 03 20 43 4D |LOESCHEN.G*.. CM|
00000A60: 50 23 24 30 44 3B 3E D2 C5 D4 D5 D2 CE 3C 20 3F |P#$0D;>......< ?|
00000A70: 00 6E 2A 98 03 20 42 45 51 45 49 4E 47 45 4E 44 |.n*.. BEQEINGEND|
00000A80: 31 3B 4A 41 20 2D 3E 20 C5 49 4E 47 41 42 45 20 |1;JA -> .INGABE |
00000A90: 42 45 45 4E 44 45 4E 00 7C 2A 9D 03 20 4C 44 59 |BEENDEN.|*.. LDY|
00000AA0: 24 30 33 33 43 00 98 2A A2 03 20 43 50 59 23 24 |$033C..*.. CPY#$|
00000AB0: 30 36 3B DA 41 45 48 4C 45 52 20 3E 3D 20 36 20 |06;.AEHLER >= 6 |
00000AC0: 3F 00 BB 2A A7 03 20 42 43 53 47 45 54 31 3B 4A |?..*.. BCSGET1;J|
00000AD0: 41 20 2D 3E 20 57 45 49 54 45 52 20 41 42 46 52 |A -> WEITER ABFR|
00000AE0: 41 47 45 4E 00 DB 2A AC 03 20 43 4D 50 23 24 33 |AGEN..*.. CMP#$3|
00000AF0: 30 3B C1 D3 C3 C9 C9 2D C3 4F 44 45 20 56 4F 4E |0;.....-.ODE VON|
00000B00: 20 3E 30 3C 00 11 2B B1 03 20 42 43 43 47 45 54 | >0<..+.. BCCGET|
00000B10: 31 3B 45 49 4E 47 45 4C 45 53 45 4E 45 53 20 DA |1;EINGELESENES .|
00000B20: 45 49 43 48 45 4E 20 3C 20 30 20 2D 3E 20 D7 49 |EICHEN < 0 -> .I|
00000B30: 45 44 45 52 48 4F 4C 55 4E 47 00 22 2B B6 03 20 |EDERHOLUNG."+.. |
00000B40: 43 4D 50 23 24 33 41 3B 3E 3A 3C 00 59 2B B8 03 |CMP#$3A;>:<.Y+..|
00000B50: 20 42 43 53 47 45 54 31 3B 45 49 4E 47 45 4C 45 | BCSGET1;EINGELE|
00000B60: 53 45 4E 45 53 20 DA 45 49 43 48 45 4E 20 3E 3D |SENES .EICHEN >=|
00000B70: 20 3A 20 2D 3E 20 D7 49 45 44 45 52 48 4F 4C 55 | : -> .IEDERHOLU|
00000B80: 4E 47 00 7F 2B BA 03 20 53 54 41 24 30 34 30 31 |NG..+.. STA$0401|
00000B90: 2C 59 3B DA 45 49 43 48 45 4E 20 2D 3E 20 C2 49 |,Y;.EICHEN -> .I|
00000BA0: 4C 44 53 43 48 49 52 4D 00 AB 2B BC 03 20 4A 4D |LDSCHIRM..+.. JM|
00000BB0: 50 45 49 4E 4C 45 53 45 4E 41 3B 57 45 49 54 45 |PEINLESENA;WEITE|
00000BC0: 52 45 53 20 DA 45 49 43 48 45 4E 20 45 49 4E 4C |RES .EICHEN EINL|
00000BD0: 45 53 45 4E 00 C2 2B BE 03 45 49 4E 5A 45 49 4C |ESEN..+..EINZEIL|
00000BE0: 4F 31 20 4C 44 59 24 30 33 33 43 00 DD 2B C0 03 |O1 LDY$033C..+..|
00000BF0: 20 43 50 59 23 24 30 32 3B DA 41 45 48 4C 45 52 | CPY#$02;.AEHLER|
00000C00: 20 3C 20 32 20 3F 00 00 2C C2 03 20 42 43 43 47 | < 2 ?..,.. BCCG|
00000C10: 45 54 31 3B 4A 41 20 2D 3E 20 57 45 49 54 45 52 |ET1;JA -> WEITER|
00000C20: 20 41 42 46 52 41 47 45 4E 00 19 2C C4 03 20 44 | ABFRAGEN..,.. D|
00000C30: 45 43 24 30 33 33 43 3B DA 41 45 48 4C 45 52 20 |EC$033C;.AEHLER |
00000C40: 2D 31 00 2A 2C C6 03 20 4C 44 41 23 24 32 45 3B |-1.*,.. LDA#$2E;|
00000C50: 3E 2E 3C 00 38 2C C8 03 20 4C 44 59 24 30 33 33 |>.<.8,.. LDY$033|
00000C60: 43 00 6F 2C CA 03 20 53 54 41 24 30 34 30 31 2C |C.o,.. STA$0401,|
00000C70: 59 3B 4C 45 54 5A 54 45 53 20 DA 45 49 43 48 45 |Y;LETZTES .EICHE|
00000C80: 4E 20 4D 49 54 20 3E 2E 3C 20 55 45 42 45 52 53 |N MIT >.< UEBERS|
00000C90: 43 48 52 45 49 42 45 4E 00 90 2C CC 03 20 4A 4D |CHREIBEN..,.. JM|
00000CA0: 50 47 45 54 31 3B 5A 55 52 55 45 43 4B 20 5A 55 |PGET1;ZURUECK ZU|
00000CB0: 52 20 C1 42 46 52 41 47 45 00 A6 2C CE 03 45 49 |R .BFRAGE..,..EI|
00000CC0: 4E 47 45 4E 44 31 20 4C 44 59 24 30 33 33 43 00 |NGEND1 LDY$033C.|
00000CD0: C1 2C D0 03 20 43 50 59 23 24 30 36 3B DA 41 45 |.,.. CPY#$06;.AE|
00000CE0: 48 4C 45 52 20 3C 20 36 20 3F 00 E4 2C D2 03 20 |HLER < 6 ?..,.. |
00000CF0: 42 43 43 47 45 54 31 3B 4A 41 20 2D 3E 20 57 45 |BCCGET1;JA -> WE|
00000D00: 49 54 45 52 20 41 42 46 52 41 47 45 4E 00 EA 2C |ITER ABFRAGEN..,|
00000D10: D4 03 3B 00 0B 2D D6 03 20 4C 44 58 23 24 30 30 |..;..-.. LDX#$00|
00000D20: 3B D4 41 53 54 45 4E 44 41 55 45 52 46 55 4E 4B |;.ASTENDAUERFUNK|
00000D30: 54 49 4F 4E 00 2C 2D D8 03 20 53 54 58 24 30 32 |TION.,-.. STX$02|
00000D40: 38 41 3B 57 49 45 44 45 52 20 45 49 4E 53 43 48 |8A;WIEDER EINSCH|
00000D50: 41 4C 54 45 4E 00 51 2D E8 03 3B 20 CD 41 58 49 |ALTEN.Q-..; .AXI|
00000D60: 4D 41 4C 57 45 52 54 20 49 4E 20 C3 41 53 53 45 |MALWERT IN .ASSE|
00000D70: 54 54 45 4E 50 55 46 46 45 52 00 62 2D F2 03 20 |TTENPUFFER.b-.. |
00000D80: 4C 44 58 23 24 33 36 3B 3E 36 3C 00 70 2D FC 03 |LDX#$36;>6<.p-..|
00000D90: 20 53 54 58 24 30 33 34 30 00 81 2D 06 04 20 4C | STX$0340..-.. L|
00000DA0: 44 58 23 24 33 35 3B 3E 35 3C 00 8F 2D 10 04 20 |DX#$35;>5<..-.. |
00000DB0: 53 54 58 24 30 33 34 31 00 9D 2D 1A 04 20 53 54 |STX$0341..-.. ST|
00000DC0: 58 24 30 33 34 32 00 AB 2D 24 04 20 53 54 58 24 |X$0342..-$. STX$|
00000DD0: 30 33 34 34 00 BC 2D 2E 04 20 4C 44 58 23 24 33 |0344..-.. LDX#$3|
00000DE0: 33 3B 3E 33 3C 00 CA 2D 38 04 20 53 54 58 24 30 |3;>3<..-8. STX$0|
00000DF0: 33 34 33 00 EB 2D 42 04 3B 20 4D 49 54 20 CD 41 |343..-B.; MIT .A|
00000E00: 58 2E 2D D7 45 52 54 20 56 45 52 47 4C 45 49 43 |X.-.ERT VERGLEIC|
00000E10: 48 45 4E 3A 00 F8 2D 4C 04 20 4C 44 59 23 24 30 |HEN:..-L. LDY#$0|
00000E20: 30 00 14 2E 56 04 56 45 52 47 4C 4D 41 58 20 49 |0...V.VERGLMAX I|
00000E30: 4E 59 3B DA 41 45 48 4C 45 52 20 2B 31 00 37 2E |NY;.AEHLER +1.7.|
00000E40: 60 04 20 4C 44 41 24 30 34 30 31 2C 59 3B 45 49 |`. LDA$0401,Y;EI|
00000E50: 4E 47 45 47 45 42 45 4E 45 20 DA 49 46 46 45 52 |NGEGEBENE .IFFER|
00000E60: 00 58 2E 6A 04 20 43 4D 50 24 30 33 33 46 2C 59 |.X.j. CMP$033F,Y|
00000E70: 3B D6 45 52 47 4C 45 49 43 48 53 5A 49 46 46 45 |;.ERGLEICHSZIFFE|
00000E80: 52 00 74 2E 74 04 20 42 43 43 57 45 49 54 45 52 |R.t.t. BCCWEITER|
00000E90: 44 3B 3E 20 2D 3E 20 57 45 49 54 45 52 00 91 2E |D;> -> WEITER...|
00000EA0: 7E 04 20 42 4E 45 5A 55 52 55 45 43 4B 3B 3C 20 |~. BNEZURUECK;< |
00000EB0: 2D 3E 20 5A 55 52 55 45 43 4B 00 B3 2E 88 04 20 |-> ZURUECK..... |
00000EC0: 43 50 59 23 24 30 35 3B 35 2E 20 DA 49 46 46 45 |CPY#$05;5. .IFFE|
00000ED0: 52 20 45 52 52 45 49 43 48 54 20 3F 00 DF 2E 92 |R ERREICHT ?....|
00000EE0: 04 20 42 43 43 56 45 52 47 4C 4D 41 58 3B 4E 45 |. BCCVERGLMAX;NE|
00000EF0: 49 4E 20 2D 3E 20 57 45 49 54 45 52 20 56 45 52 |IN -> WEITER VER|
00000F00: 47 4C 45 49 43 48 45 4E 00 EF 2E 9C 04 20 4A 4D |GLEICHEN..... JM|
00000F10: 50 57 45 49 54 45 52 44 00 05 2F A6 04 5A 55 52 |PWEITERD../..ZUR|
00000F20: 55 45 43 4B 20 4A 53 52 5A 45 49 4C 4F 45 00 11 |UECK JSRZEILOE..|
00000F30: 2F B0 04 20 4A 4D 50 44 45 5A 00 30 2F BA 04 3B |/.. JMPDEZ.0/..;|
00000F40: 20 DA 49 46 46 45 52 4E 20 49 4E 20 C6 C1 C3 20 | .IFFERN IN ... |
00000F50: 45 49 4E 4C 45 53 45 4E 3A 00 5B 2F C4 04 57 45 |EINLESEN:.[/..WE|
00000F60: 49 54 45 52 44 20 4C 44 58 23 24 30 32 3B C1 44 |ITERD LDX#$02;.D|
00000F70: 52 2E 20 41 55 46 20 DA 49 46 46 45 52 4E 20 28 |R. AUF .IFFERN (|
00000F80: 4C 4F 57 29 00 6E 2F CE 04 20 53 54 58 24 32 32 |LOW).n/.. STX$22|
00000F90: 3B 49 4E 20 24 32 32 00 87 2F D8 04 20 4C 44 58 |;IN $22../.. LDX|
00000FA0: 23 24 30 34 3B C1 44 52 2E 20 28 48 49 47 48 29 |#$04;.DR. (HIGH)|
00000FB0: 00 9A 2F E2 04 20 53 54 58 24 32 33 3B 49 4E 20 |../.. STX$23;IN |
00000FC0: 24 32 32 00 B4 2F EC 04 20 4C 44 41 23 24 30 35 |$22../.. LDA#$05|
00000FD0: 3B D3 54 52 49 4E 47 4C 41 45 4E 47 45 00 D7 2F |;.TRINGLAENGE../|
00000FE0: F6 04 20 4A 53 52 24 42 37 42 35 3B DA 49 46 46 |.. JSR$B7B5;.IFF|
00000FF0: 45 52 4E 53 54 52 49 4E 47 20 49 4E 20 C6 C1 C3 |ERNSTRING IN ...|
00001000: 00 EC 2F 00 05 3B 20 55 4D 20 31 20 45 52 48 4F |../..; UM 1 ERHO|
00001010: 45 48 45 4E 3A 00 F9 2F 0A 05 20 4C 44 41 23 24 |EHEN:../.. LDA#$|
00001020: 30 31 00 0E 30 14 05 20 4A 53 52 24 42 44 37 45 |01..0.. JSR$BD7E|
00001030: 3B C6 C1 C3 20 2B 31 00 2B 30 1E 05 3B 20 C6 C1 |;... +1.+0..; ..|
00001040: C3 20 49 4E 20 24 30 33 35 30 20 53 50 45 49 43 |. IN $0350 SPEIC|
00001050: 48 45 52 4E 00 38 30 28 05 20 4C 44 58 23 24 35 |HERN.80(. LDX#$5|
00001060: 30 00 45 30 32 05 20 4C 44 59 23 24 30 33 00 74 |0.E02. LDY#$03.t|
00001070: 30 3C 05 20 4A 53 52 24 42 42 44 34 3B C6 C1 C3 |0<. JSR$BBD4;...|
00001080: 20 41 4C 53 20 CD C6 CC D0 D4 20 49 4E 20 24 30 | ALS ..... IN $0|
00001090: 33 35 30 20 53 50 45 49 43 48 45 52 4E 00 7A 30 |350 SPEICHERN.z0|
000010A0: 46 05 3B 00 80 30 50 05 3B 00 AA 30 5A 05 20 4A |F.;..0P.;..0Z. J|
000010B0: 53 52 54 41 42 44 45 5A 3B D6 45 52 47 4C 45 49 |SRTABDEZ;.ERGLEI|
000010C0: 43 48 53 57 45 52 54 45 20 45 49 4E 52 49 43 48 |CHSWERTE EINRICH|
000010D0: 54 45 4E 00 D8 30 64 05 20 4A 53 52 44 45 5A 48 |TEN..0d. JSRDEZH|
000010E0: 45 58 3B C8 45 58 43 4F 44 45 20 42 45 52 45 43 |EX;.EXCODE BEREC|
000010F0: 48 4E 45 4E 20 55 4E 44 20 41 55 53 47 45 42 45 |HNEN UND AUSGEBE|
00001100: 4E 00 09 31 6E 05 20 4A 53 52 44 45 5A 42 49 54 |N..1n. JSRDEZBIT|
00001110: 4D 3B C2 49 54 4D 55 53 54 45 52 20 42 45 52 45 |M;.ITMUSTER BERE|
00001120: 43 48 4E 45 4E 20 55 4E 44 20 41 55 53 47 45 42 |CHNEN UND AUSGEB|
00001130: 45 4E 00 12 31 78 05 20 52 54 53 00 18 31 82 05 |EN..1x. RTS..1..|
00001140: 3B 00 1E 31 DC 05 3B 00 24 31 E6 05 3B 00 49 31 |;..1..;.$1..;.I1|
00001150: F0 05 3B 20 D5 4D 57 41 4E 44 4C 2E 20 56 4F 4E |..; .MWANDL. VON|
00001160: 20 C8 45 58 41 44 45 5A 49 4D 41 4C 5A 41 48 4C | .EXADEZIMALZAHL|
00001170: 45 4E 00 6E 31 FA 05 3B 20 2D 2D 2D 2D 2D 2D 2D |EN.n1..; -------|
00001180: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001190: 2D 2D 2D 2D 2D 2D 2D 00 7A 31 04 06 48 45 58 20 |-------.z1..HEX |
000011A0: 43 4C 44 00 8B 31 0E 06 20 4C 44 58 23 24 32 34 |CLD..1.. LDX#$24|
000011B0: 3B 3E 24 3C 00 A7 31 18 06 20 53 54 58 24 30 34 |;>$<..1.. STX$04|
000011C0: 30 41 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D |0A;-> .ILDSCHIRM|
000011D0: 00 B8 31 22 06 20 4C 44 58 23 24 33 41 3B 3E 3A |..1". LDX#$3A;>:|
000011E0: 3C 00 D4 31 2C 06 20 53 54 58 24 30 34 30 42 3B |<..1,. STX$040B;|
000011F0: 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 E9 31 |-> .ILDSCHIRM..1|
00001200: 36 06 20 4C 44 59 23 24 30 30 3B DA 41 45 48 4C |6. LDY#$00;.AEHL|
00001210: 45 52 00 FA 31 40 06 20 4C 44 41 23 24 32 45 3B |ER..1@. LDA#$2E;|
00001220: 3E 2E 3C 00 21 32 4A 06 50 55 4E 4B 54 41 55 53 |>.<.!2J.PUNKTAUS|
00001230: 32 20 53 54 41 24 30 34 30 43 2C 59 3B 2D 3E 20 |2 STA$040C,Y;-> |
00001240: C2 49 4C 44 53 43 48 49 52 4D 00 35 32 54 06 20 |.ILDSCHIRM.52T. |
00001250: 49 4E 59 3B DA 41 45 48 4C 45 52 20 2B 31 00 5B |INY;.AEHLER +1.[|
00001260: 32 5E 06 20 43 50 59 23 24 30 34 3B C5 49 4E 47 |2^. CPY#$04;.ING|
00001270: 41 42 45 4C 41 45 4E 47 45 3D 34 20 45 52 52 45 |ABELAENGE=4 ERRE|
00001280: 49 43 48 54 00 8A 32 68 06 20 42 43 43 50 55 4E |ICHT..2h. BCCPUN|
00001290: 4B 54 41 55 53 32 3B 4E 45 49 4E 20 2D 3E 20 D0 |KTAUS2;NEIN -> .|
000012A0: 55 4E 4B 54 20 41 55 46 20 C2 49 4C 44 53 43 48 |UNKT AUF .ILDSCH|
000012B0: 49 52 4D 00 A2 32 72 06 3B 20 C8 45 58 43 4F 44 |IRM..2r.; .EXCOD|
000012C0: 45 20 45 49 4E 47 45 42 45 4E 3A 00 B2 32 7C 06 |E EINGEBEN:..2|.|
000012D0: 20 4A 4D 50 57 45 49 54 45 52 49 00 D3 32 90 06 | JMPWEITERI..2..|
000012E0: 54 41 42 36 20 2E 42 59 35 38 2C 35 39 2C 36 30 |TAB6 .BY58,59,60|
000012F0: 2C 36 31 2C 36 32 2C 36 33 2C 36 34 00 FB 32 9A |,61,62,63,64..2.|
00001300: 06 57 45 49 54 45 52 49 20 4C 44 58 23 24 34 30 |.WEITERI LDX#$40|
00001310: 3B D4 41 53 54 45 4E 44 41 55 45 52 46 55 4E 4B |;.ASTENDAUERFUNK|
00001320: 54 49 4F 4E 00 15 33 9C 06 20 53 54 58 24 30 32 |TION..3.. STX$02|
00001330: 38 41 3B 41 55 53 53 43 48 41 4C 54 45 4E 00 2B |8A;AUSSCHALTEN.+|
00001340: 33 9E 06 20 4C 44 59 23 24 30 30 3B DA 41 45 48 |3.. LDY#$00;.AEH|
00001350: 4C 45 52 31 00 4B 33 A0 06 20 53 54 59 24 30 33 |LER1.K3.. STY$03|
00001360: 33 43 3B 5A 57 49 53 43 48 45 4E 53 50 45 49 43 |3C;ZWISCHENSPEIC|
00001370: 48 45 52 4E 00 6E 33 A2 06 45 49 4E 4C 45 53 45 |HERN.n3..EINLESE|
00001380: 4E 42 20 49 4E 43 24 30 33 33 43 3B DA 41 45 48 |NB INC$033C;.AEH|
00001390: 4C 45 52 31 20 2B 31 00 90 33 A4 06 47 45 54 32 |LER1 +1..3..GET2|
000013A0: 20 4A 53 52 24 46 46 39 46 3B D4 41 53 54 41 54 | JSR$FF9F;.ASTAT|
000013B0: 55 52 41 42 46 52 41 47 45 00 B9 33 A6 06 20 4A |URABFRAGE..3.. J|
000013C0: 53 52 24 46 46 45 34 3B DA 45 49 43 48 45 4E 20 |SR$FFE4;.EICHEN |
000013D0: 41 55 53 20 D4 41 53 54 41 54 55 52 50 55 46 46 |AUS .ASTATURPUFF|
000013E0: 45 52 00 D3 33 A8 06 20 43 4D 50 23 24 30 30 3B |ER..3.. CMP#$00;|
000013F0: 4B 45 49 4E 20 DA 45 49 43 48 45 4E 00 F6 33 AA |KEIN .EICHEN..3.|
00001400: 06 20 42 45 51 47 45 54 32 3B 4A 41 20 2D 3E 20 |. BEQGET2;JA -> |
00001410: 57 45 49 54 45 52 20 41 42 46 52 41 47 45 4E 00 |WEITER ABFRAGEN.|
00001420: 0B 34 AC 06 20 43 4D 50 23 24 31 34 3B 3E C4 C5 |.4.. CMP#$14;>..|
00001430: CC 3C 20 3F 00 38 34 AE 06 20 42 45 51 45 49 4E |.< ?.84.. BEQEIN|
00001440: 5A 45 49 4C 4F 32 3B 4A 41 20 2D 3E 20 45 49 4E |ZEILO2;JA -> EIN|
00001450: 20 DA 45 49 43 48 45 4E 20 4C 4F 45 53 43 48 45 | .EICHEN LOESCHE|
00001460: 4E 00 50 34 B0 06 20 43 4D 50 23 24 30 44 3B 3E |N.P4.. CMP#$0D;>|
00001470: D2 C5 D4 D5 D2 CE 3C 20 3F 00 77 34 B2 06 20 42 |......< ?.w4.. B|
00001480: 45 51 45 49 4E 47 45 4E 44 32 3B 4A 41 20 2D 3E |EQEINGEND2;JA ->|
00001490: 20 C5 49 4E 47 41 42 45 20 42 45 45 4E 44 45 4E | .INGABE BEENDEN|
000014A0: 00 85 34 B4 06 20 4C 44 59 24 30 33 33 43 00 A0 |..4.. LDY$033C..|
000014B0: 34 B6 06 20 43 50 59 23 24 30 35 3B DA 41 45 48 |4.. CPY#$05;.AEH|
000014C0: 4C 45 52 31 20 3E 35 20 3F 00 C3 34 B8 06 20 42 |LER1 >5 ?..4.. B|
000014D0: 43 53 47 45 54 32 3B 4A 41 20 2D 3E 20 57 45 49 |CSGET2;JA -> WEI|
000014E0: 54 45 52 20 41 42 46 52 41 47 45 4E 00 D9 34 BA |TER ABFRAGEN..4.|
000014F0: 06 20 4C 44 59 23 24 30 30 3B DA 41 45 48 4C 45 |. LDY#$00;.AEHLE|
00001500: 52 32 00 0C 35 BC 06 5A 57 49 43 4F 20 43 4D 50 |R2..5..ZWICO CMP|
00001510: 54 41 42 36 2C 59 3B DA 45 49 43 48 45 4E 20 5A |TAB6,Y;.EICHEN Z|
00001520: 57 49 53 43 48 45 4E 20 3E 39 3C 20 55 4E 44 20 |WISCHEN >9< UND |
00001530: 3E C1 3C 20 3F 00 2F 35 BE 06 20 42 45 51 47 45 |>.< ?./5.. BEQGE|
00001540: 54 32 3B 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 |T2;JA -> WEITER |
00001550: 41 42 46 52 41 47 45 4E 00 44 35 C0 06 20 49 4E |ABFRAGEN.D5.. IN|
00001560: 59 3B DA 41 45 48 4C 45 52 32 20 2B 31 00 63 35 |Y;.AEHLER2 +1.c5|
00001570: C2 06 20 43 50 59 23 24 30 37 3B C1 4E 5A 41 48 |.. CPY#$07;.NZAH|
00001580: 4C 20 DA 45 49 43 48 45 4E 20 3D 37 00 8C 35 C4 |L .EICHEN =7..5.|
00001590: 06 20 42 43 43 5A 57 49 43 4F 3B 4E 45 49 4E 20 |. BCCZWICO;NEIN |
000015A0: 2D 3E 20 57 45 49 54 45 52 20 56 45 52 47 4C 45 |-> WEITER VERGLE|
000015B0: 49 43 48 45 4E 00 A9 35 C6 06 20 43 4D 50 23 24 |ICHEN..5.. CMP#$|
000015C0: 33 30 3B DA 45 49 43 48 45 4E 20 3C 20 3E 30 3C |30;.EICHEN < >0<|
000015D0: 20 3F 00 CC 35 C8 06 20 42 43 43 47 45 54 32 3B | ?..5.. BCCGET2;|
000015E0: 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 41 42 46 |JA -> WEITER ABF|
000015F0: 52 41 47 45 4E 00 EA 35 CA 06 20 43 4D 50 23 24 |RAGEN..5.. CMP#$|
00001600: 34 37 3B DA 45 49 43 48 45 4E 20 3E 3D 20 3E C7 |47;.EICHEN >= >.|
00001610: 3C 20 3F 00 0D 36 CC 06 20 42 43 53 47 45 54 32 |< ?..6.. BCSGET2|
00001620: 3B 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 41 42 |;JA -> WEITER AB|
00001630: 46 52 41 47 45 4E 00 1B 36 CE 06 20 4C 44 59 24 |FRAGEN..6.. LDY$|
00001640: 30 33 33 43 00 41 36 D0 06 20 53 54 41 24 30 34 |033C.A6.. STA$04|
00001650: 30 42 2C 59 3B DA 45 49 43 48 45 4E 20 2D 3E 20 |0B,Y;.EICHEN -> |
00001660: C2 49 4C 44 53 43 48 49 52 4D 00 6D 36 D2 06 20 |.ILDSCHIRM.m6.. |
00001670: 4A 4D 50 45 49 4E 4C 45 53 45 4E 42 3B 57 45 49 |JMPEINLESENB;WEI|
00001680: 54 45 52 45 53 20 DA 45 49 43 48 45 4E 20 45 49 |TERES .EICHEN EI|
00001690: 4E 4C 45 53 45 4E 00 99 36 D4 06 45 49 4E 5A 45 |NLESEN..6..EINZE|
000016A0: 49 4C 4F 32 20 4C 44 59 24 30 33 33 43 3B 45 49 |ILO2 LDY$033C;EI|
000016B0: 4E 20 DA 45 49 43 48 45 4E 20 4C 4F 45 53 43 48 |N .EICHEN LOESCH|
000016C0: 45 4E 00 BF 36 D6 06 20 43 50 59 23 24 30 32 3B |EN..6.. CPY#$02;|
000016D0: 55 4E 44 20 44 55 52 43 48 20 D0 55 4E 4B 54 20 |UND DURCH .UNKT |
000016E0: 45 52 53 45 54 5A 45 4E 00 CC 36 D8 06 20 42 43 |ERSETZEN..6.. BC|
000016F0: 43 47 45 54 32 00 DA 36 DA 06 20 44 45 43 24 30 |CGET2..6.. DEC$0|
00001700: 33 33 43 00 E7 36 DC 06 20 4C 44 41 23 24 32 45 |33C..6.. LDA#$2E|
00001710: 00 F5 36 DE 06 20 4C 44 59 24 30 33 33 43 00 05 |..6.. LDY$033C..|
00001720: 37 E0 06 20 53 54 41 24 30 34 30 42 2C 59 00 12 |7.. STA$040B,Y..|
00001730: 37 E2 06 20 4A 4D 50 47 45 54 32 00 34 37 E4 06 |7.. JMPGET2.47..|
00001740: 45 49 4E 47 45 4E 44 32 20 4C 44 59 24 30 33 33 |EINGEND2 LDY$033|
00001750: 43 3B C5 49 4E 47 41 42 45 45 4E 44 45 00 41 37 |C;.INGABEENDE.A7|
00001760: E6 06 20 43 50 59 23 24 30 35 00 4E 37 E8 06 20 |.. CPY#$05.N7.. |
00001770: 42 43 43 47 45 54 32 00 6F 37 EA 06 20 4C 44 58 |BCCGET2.o7.. LDX|
00001780: 23 24 30 30 3B D4 41 53 54 45 4E 44 41 55 45 52 |#$00;.ASTENDAUER|
00001790: 46 55 4E 4B 54 49 4F 4E 00 89 37 EC 06 20 53 54 |FUNKTION..7.. ST|
000017A0: 58 24 30 32 38 41 3B 45 49 4E 53 43 48 41 4C 54 |X$028A;EINSCHALT|
000017B0: 45 4E 00 8F 37 6C 07 3B 00 95 37 76 07 3B 00 A4 |EN..7l.;..7v.;..|
000017C0: 37 80 07 20 4A 53 52 54 41 42 44 45 5A 00 DD 37 |7.. JSRTABDEZ..7|
000017D0: 8A 07 20 4A 53 52 48 45 58 44 45 5A 3B C8 45 58 |.. JSRHEXDEZ;.EX|
000017E0: 43 4F 44 45 20 49 4E 20 C4 45 5A 49 4D 41 4C 20 |CODE IN .EZIMAL |
000017F0: 55 4D 57 41 4E 44 45 4C 4E 20 55 4E 44 20 41 55 |UMWANDELN UND AU|
00001800: 53 47 45 42 45 4E 00 E3 37 94 07 3B 00 F0 37 9E |SGEBEN..7..;..7.|
00001810: 07 20 4C 44 41 23 24 35 30 00 FD 37 A8 07 20 4C |. LDA#$50..7.. L|
00001820: 44 59 23 24 30 33 00 24 38 B2 07 20 4A 53 52 24 |DY#$03.$8.. JSR$|
00001830: 42 42 41 32 3B 45 49 4E 47 45 47 45 42 45 4E 45 |BBA2;EINGEGEBENE|
00001840: 52 20 D7 45 52 54 20 49 4E 20 C6 C1 C3 00 31 38 |R .ERT IN ....18|
00001850: BC 07 20 4C 44 41 23 24 30 31 00 46 38 C6 07 20 |.. LDA#$01.F8.. |
00001860: 4A 53 52 24 42 44 37 45 3B C6 C1 C3 20 2B 31 00 |JSR$BD7E;... +1.|
00001870: 53 38 D0 07 20 4C 44 58 23 24 35 30 00 60 38 DA |S8.. LDX#$50.`8.|
00001880: 07 20 4C 44 59 23 24 30 33 00 81 38 E4 07 20 4A |. LDY#$03..8.. J|
00001890: 53 52 24 42 42 44 34 3B 57 49 45 44 45 52 20 41 |SR$BBD4;WIEDER A|
000018A0: 42 53 50 45 49 43 48 45 52 4E 00 B2 38 E9 07 20 |BSPEICHERN..8.. |
000018B0: 4A 53 52 54 41 42 44 45 5A 3B D6 45 52 47 4C 45 |JSRTABDEZ;.ERGLE|
000018C0: 49 43 48 53 57 45 52 54 45 20 57 49 45 44 45 52 |ICHSWERTE WIEDER|
000018D0: 20 48 45 52 53 54 45 4C 4C 45 4E 00 E3 38 EE 07 | HERSTELLEN..8..|
000018E0: 20 4A 53 52 44 45 5A 42 49 54 4D 3B C2 49 54 4D | JSRDEZBITM;.ITM|
000018F0: 55 53 54 45 52 20 45 52 52 45 43 48 4E 45 4E 20 |USTER ERRECHNEN |
00001900: 55 4E 44 20 41 55 53 47 45 42 45 4E 00 EC 38 F8 |UND AUSGEBEN..8.|
00001910: 07 20 52 54 53 00 F2 38 02 08 3B 00 F8 38 0C 08 |. RTS..8..;..8..|
00001920: 3B 00 FE 38 34 08 3B 00 04 39 3E 08 3B 00 24 39 |;..84.;..9>.;.$9|
00001930: 48 08 3B 20 D5 4D 57 41 4E 44 4C 55 4E 47 20 56 |H.; .MWANDLUNG V|
00001940: 4F 4E 20 C2 49 54 4D 55 53 54 45 52 4E 00 44 39 |ON .ITMUSTERN.D9|
00001950: 52 08 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |R.; ------------|
00001960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 51 39 |-------------.Q9|
00001970: 5C 08 42 49 54 4D 20 43 4C 44 00 62 39 66 08 20 |\.BITM CLD.b9f. |
00001980: 4C 44 41 23 24 32 35 3B 3E 25 3C 00 7E 39 70 08 |LDA#$25;>%<.~9p.|
00001990: 20 53 54 41 24 30 34 31 33 3B 2D 3E 20 C2 49 4C | STA$0413;-> .IL|
000019A0: 44 53 43 48 49 52 4D 00 8F 39 7A 08 20 4C 44 41 |DSCHIRM..9z. LDA|
000019B0: 23 24 33 41 3B 3E 3A 3C 00 AB 39 84 08 20 53 54 |#$3A;>:<..9.. ST|
000019C0: 41 24 30 34 31 34 3B 2D 3E 20 C2 49 4C 44 53 43 |A$0414;-> .ILDSC|
000019D0: 48 49 52 4D 00 C0 39 8E 08 20 4C 44 59 23 24 30 |HIRM..9.. LDY#$0|
000019E0: 30 3B DA 41 45 48 4C 45 52 00 D1 39 98 08 20 4C |0;.AEHLER..9.. L|
000019F0: 44 41 23 24 32 45 3B 3E 2E 3C 00 F7 39 A2 08 50 |DA#$2E;>.<..9..P|
00001A00: 55 4E 4B 54 41 55 53 33 20 53 54 41 24 30 34 31 |UNKTAUS3 STA$041|
00001A10: 35 2C 59 3B 2D 3E 20 C2 4C 44 53 43 48 49 52 4D |5,Y;-> .LDSCHIRM|
00001A20: 00 0B 3A AC 08 20 49 4E 59 3B DA 41 45 48 4C 45 |..:.. INY;.AEHLE|
00001A30: 52 20 2B 31 00 34 3A B6 08 20 43 50 59 23 24 31 |R +1.4:.. CPY#$1|
00001A40: 30 3B C5 49 4E 47 41 42 45 4C 41 45 4E 47 45 3D |0;.INGABELAENGE=|
00001A50: 31 36 20 45 52 52 45 49 43 48 54 20 3F 00 64 3A |16 ERREICHT ?.d:|
00001A60: C0 08 20 42 43 43 50 55 4E 4B 54 41 55 53 33 3B |.. BCCPUNKTAUS3;|
00001A70: 4E 45 49 4E 20 2D 3E 20 57 45 49 54 45 52 20 D0 |NEIN -> WEITER .|
00001A80: 55 4E 4B 54 20 41 55 53 47 45 42 45 4E 00 7E 3A |UNKT AUSGEBEN.~:|
00001A90: CA 08 3B 20 C2 49 54 4D 55 53 54 45 52 20 45 49 |..; .ITMUSTER EI|
00001AA0: 4E 47 45 42 45 4E 3A 00 9F 3A D4 08 20 4C 44 58 |NGEBEN:..:.. LDX|
00001AB0: 23 24 34 30 3B D4 41 53 54 45 4E 44 41 55 45 52 |#$40;.ASTENDAUER|
00001AC0: 46 55 4E 4B 54 49 4F 4E 00 B9 3A D6 08 20 53 54 |FUNKTION..:.. ST|
00001AD0: 58 24 30 32 38 41 3B 41 55 53 53 43 48 41 4C 54 |X$028A;AUSSCHALT|
00001AE0: 45 4E 00 CE 3A D8 08 20 4C 44 59 23 24 30 30 3B |EN..:.. LDY#$00;|
00001AF0: DA 41 45 48 4C 45 52 00 EE 3A DA 08 20 53 54 59 |.AEHLER..:.. STY|
00001B00: 24 30 33 33 43 3B 5A 57 49 53 43 48 45 4E 53 50 |$033C;ZWISCHENSP|
00001B10: 45 49 43 48 45 52 4E 00 10 3B DC 08 45 49 4E 4C |EICHERN..;..EINL|
00001B20: 45 53 45 4E 43 20 49 4E 43 24 30 33 33 43 3B DA |ESENC INC$033C;.|
00001B30: 41 45 48 4C 45 52 20 2B 31 00 32 3B DE 08 47 45 |AEHLER +1.2;..GE|
00001B40: 54 33 20 4A 53 52 24 46 46 39 46 3B D4 41 53 54 |T3 JSR$FF9F;.AST|
00001B50: 41 54 55 52 41 42 46 52 41 47 45 00 5B 3B E0 08 |ATURABFRAGE.[;..|
00001B60: 20 4A 53 52 24 46 46 45 34 3B DA 45 49 43 48 45 | JSR$FFE4;.EICHE|
00001B70: 4E 20 41 55 53 20 D4 41 53 54 41 54 55 52 50 55 |N AUS .ASTATURPU|
00001B80: 46 46 45 52 00 77 3B E2 08 20 43 4D 50 23 24 30 |FFER.w;.. CMP#$0|
00001B90: 30 3B 4B 45 49 4E 20 DA 45 49 43 48 45 4E 20 3F |0;KEIN .EICHEN ?|
00001BA0: 00 9A 3B E4 08 20 42 45 51 47 45 54 33 3B 4A 41 |..;.. BEQGET3;JA|
00001BB0: 20 2D 3E 20 57 45 49 54 45 52 20 41 42 46 52 41 | -> WEITER ABFRA|
00001BC0: 47 45 4E 00 AF 3B E6 08 20 43 4D 50 23 24 31 34 |GEN..;.. CMP#$14|
00001BD0: 3B 3E C4 C5 CC 3C 20 3F 00 DC 3B E8 08 20 42 45 |;>...< ?..;.. BE|
00001BE0: 51 45 49 4E 5A 45 49 4C 4F 33 3B 4A 41 20 2D 3E |QEINZEILO3;JA ->|
00001BF0: 20 45 49 4E 20 DA 45 49 43 48 45 4E 20 4C 4F 45 | EIN .EICHEN LOE|
00001C00: 53 43 48 45 4E 00 F4 3B EA 08 20 43 4D 50 23 24 |SCHEN..;.. CMP#$|
00001C10: 30 44 3B 3E D2 C5 D4 D5 D2 CE 3C 20 3F 00 17 3C |0D;>......< ?..<|
00001C20: EC 08 20 42 45 51 45 49 4E 47 45 4E 44 33 3B 4A |.. BEQEINGEND3;J|
00001C30: 41 20 2D 3E 20 C5 49 4E 47 41 42 45 45 4E 44 45 |A -> .INGABEENDE|
00001C40: 00 25 3C EE 08 20 4C 44 59 24 30 33 33 43 00 4E |.%<.. LDY$033C.N|
00001C50: 3C F0 08 20 43 50 59 23 24 31 31 3B C5 49 4E 47 |<.. CPY#$11;.ING|
00001C60: 41 42 45 4C 41 45 4E 47 45 3D 31 36 20 45 52 52 |ABELAENGE=16 ERR|
00001C70: 45 49 43 48 54 20 3F 00 71 3C F2 08 20 42 43 53 |EICHT ?.q<.. BCS|
00001C80: 47 45 54 33 3B 4A 41 20 2D 3E 20 57 45 49 54 45 |GET3;JA -> WEITE|
00001C90: 52 20 41 42 46 52 41 47 45 4E 00 8B 3C F4 08 20 |R ABFRAGEN..<.. |
00001CA0: 43 4D 50 23 24 33 30 3B DA 45 49 43 48 45 4E 20 |CMP#$30;.EICHEN |
00001CB0: 3C 30 20 3F 00 AE 3C F6 08 20 42 43 43 47 45 54 |<0 ?..<.. BCCGET|
00001CC0: 33 3B 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 41 |3;JA -> WEITER A|
00001CD0: 42 46 52 41 47 45 4E 00 C9 3C F8 08 20 43 4D 50 |BFRAGEN..<.. CMP|
00001CE0: 23 24 33 32 3B DA 45 49 43 48 45 4E 20 3E 3D 32 |#$32;.EICHEN >=2|
00001CF0: 20 3F 00 EC 3C FA 08 20 42 43 53 47 45 54 33 3B | ?..<.. BCSGET3;|
00001D00: 4A 41 20 2D 3E 20 57 45 49 54 45 52 20 41 42 46 |JA -> WEITER ABF|
00001D10: 52 41 47 45 4E 00 12 3D FC 08 20 53 54 41 24 30 |RAGEN..=.. STA$0|
00001D20: 34 31 34 2C 59 3B DA 45 49 43 48 45 4E 20 2D 3E |414,Y;.EICHEN ->|
00001D30: 20 C2 49 4C 44 53 43 48 49 52 4D 00 3E 3D FE 08 | .ILDSCHIRM.>=..|
00001D40: 20 4A 4D 50 45 49 4E 4C 45 53 45 4E 43 3B 57 45 | JMPEINLESENC;WE|
00001D50: 49 54 45 52 45 53 20 DA 45 49 43 48 45 4E 20 45 |ITERES .EICHEN E|
00001D60: 49 4E 4C 45 53 45 4E 00 6A 3D 00 09 45 49 4E 5A |INLESEN.j=..EINZ|
00001D70: 45 49 4C 4F 33 20 4C 44 59 24 30 33 33 43 3B 45 |EILO3 LDY$033C;E|
00001D80: 49 4E 20 DA 45 49 43 48 45 4E 20 4C 4F 45 53 43 |IN .EICHEN LOESC|
00001D90: 48 45 4E 00 90 3D 02 09 20 43 50 59 23 24 30 32 |HEN..=.. CPY#$02|
00001DA0: 3B 55 4E 44 20 44 55 52 43 48 20 D0 55 4E 4B 54 |;UND DURCH .UNKT|
00001DB0: 20 45 52 53 45 54 5A 45 4E 00 9D 3D 04 09 20 42 | ERSETZEN..=.. B|
00001DC0: 43 43 47 45 54 33 00 AB 3D 06 09 20 44 45 43 24 |CCGET3..=.. DEC$|
00001DD0: 30 33 33 43 00 B8 3D 08 09 20 4C 44 41 23 24 32 |033C..=.. LDA#$2|
00001DE0: 45 00 C6 3D 0A 09 20 4C 44 59 24 30 33 33 43 00 |E..=.. LDY$033C.|
00001DF0: D6 3D 0C 09 20 53 54 41 24 30 34 31 34 2C 59 00 |.=.. STA$0414,Y.|
00001E00: E3 3D 0E 09 20 4A 4D 50 47 45 54 33 00 05 3E 10 |.=.. JMPGET3..>.|
00001E10: 09 45 49 4E 47 45 4E 44 33 20 4C 44 59 24 30 33 |.EINGEND3 LDY$03|
00001E20: 33 43 3B C5 49 4E 47 41 42 45 45 4E 44 45 00 12 |3C;.INGABEENDE..|
00001E30: 3E 12 09 20 43 50 59 23 24 31 31 00 1F 3E 14 09 |>.. CPY#$11..>..|
00001E40: 20 42 43 43 47 45 54 33 00 2C 3E 16 09 20 4C 44 | BCCGET3.,>.. LD|
00001E50: 58 23 24 30 30 00 3A 3E 18 09 20 53 54 58 24 30 |X#$00.:>.. STX$0|
00001E60: 32 38 41 00 40 3E 6A 09 3B 00 6A 3E 74 09 20 4A |28A.@>j.;.j>t. J|
00001E70: 53 52 54 41 42 44 45 5A 3B D6 45 52 47 4C 45 49 |SRTABDEZ;.ERGLEI|
00001E80: 43 48 53 57 45 52 54 45 20 45 49 4E 52 49 43 48 |CHSWERTE EINRICH|
00001E90: 54 45 4E 00 9D 3E 7E 09 20 4A 53 52 42 49 54 4D |TEN..>~. JSRBITM|
00001EA0: 44 45 5A 3B C4 45 5A 49 4D 41 4C 5A 41 48 4C 20 |DEZ;.EZIMALZAHL |
00001EB0: 45 52 52 45 43 48 4E 45 4E 20 55 4E 44 20 41 55 |ERRECHNEN UND AU|
00001EC0: 53 47 45 42 45 4E 00 CB 3E 88 09 20 4A 53 52 44 |SGEBEN..>.. JSRD|
00001ED0: 45 5A 48 45 58 3B C8 45 58 43 4F 44 45 20 45 52 |EZHEX;.EXCODE ER|
00001EE0: 52 45 43 48 4E 45 4E 20 55 4E 44 20 41 55 53 47 |RECHNEN UND AUSG|
00001EF0: 45 42 45 4E 00 D1 3E 92 09 3B 00 DA 3E 9C 09 20 |EBEN..>..;..>.. |
00001F00: 52 54 53 00 E0 3E A6 09 3B 00 E6 3E 10 27 3B 00 |RTS..>..;..>.';.|
00001F10: EC 3E 1A 27 3B 00 0A 3F 24 27 3B 20 D4 41 42 45 |.>.';..?$'; .ABE|
00001F20: 4C 4C 45 4E 20 5A 55 52 20 D5 4D 52 45 43 48 4E |LLEN ZUR .MRECHN|
00001F30: 55 4E 47 00 28 3F 2E 27 3B 20 2D 2D 2D 2D 2D 2D |UNG.(?.'; ------|
00001F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001F50: 2D 00 47 3F 38 27 54 41 42 31 20 2E 54 58 22 30 |-.G?8'TAB1 .TX"0|
00001F60: 31 32 33 34 35 36 37 38 39 41 42 43 44 45 46 22 |123456789ABCDEF"|
00001F70: 00 5B 3F 42 27 54 41 42 32 20 2E 54 58 22 2D 34 |.[?B'TAB2 .TX"-4|
00001F80: 30 39 36 22 00 6E 3F 4C 27 54 41 42 33 20 2E 54 |096".n?L'TAB3 .T|
00001F90: 58 22 2D 32 35 36 22 00 80 3F 56 27 54 41 42 34 |X"-256"..?V'TAB4|
00001FA0: 20 2E 54 58 22 2D 31 36 22 00 91 3F 60 27 54 41 | .TX"-16"..?`'TA|
00001FB0: 42 35 20 2E 54 58 22 2D 31 22 00 97 3F 6A 27 3B |B5 .TX"-1"..?j';|
00001FC0: 00 9D 3F 74 27 3B 00 A3 3F F8 2A 3B 00 A9 3F 02 |..?t';..?.*;..?.|
00001FD0: 2B 3B 00 CF 3F 0C 2B 3B 20 D6 45 52 47 4C 45 49 |+;..?.+; .ERGLEI|
00001FE0: 43 48 53 57 45 52 54 45 20 41 4C 53 20 CD C6 CC |CHSWERTE ALS ...|
00001FF0: D0 D4 20 41 42 53 50 2E 00 F5 3F 16 2B 3B 20 2D |.. ABSP...?.+; -|
00002000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 1E |--------------..|
00002020: 40 20 2B 54 41 42 44 45 5A 20 4C 44 58 23 3C 28 |@ +TABDEZ LDX#<(|
00002030: 54 41 42 32 29 3B C1 44 52 2E 20 4C 4F 57 20 56 |TAB2);.DR. LOW V|
00002040: 4F 4E 20 54 41 42 32 00 33 40 2A 2B 20 53 54 58 |ON TAB2.3@*+ STX|
00002050: 24 32 32 3B 4E 41 43 48 20 24 32 32 00 57 40 34 |$22;NACH $22.W@4|
00002060: 2B 20 4C 44 58 23 3E 28 54 41 42 32 29 3B C1 44 |+ LDX#>(TAB2);.D|
00002070: 52 2E 20 48 49 47 48 20 56 4F 4E 20 54 41 42 32 |R. HIGH VON TAB2|
00002080: 00 6C 40 3E 2B 20 53 54 58 24 32 33 3B 4E 41 43 |.l@>+ STX$23;NAC|
00002090: 48 20 24 32 33 00 8F 40 48 2B 20 4C 44 41 23 24 |H $23..@H+ LDA#$|
000020A0: 30 35 3B D3 54 52 49 4E 47 4C 41 45 4E 47 45 20 |05;.TRINGLAENGE |
000020B0: 56 4F 4E 20 54 41 42 32 00 B9 40 52 2B 20 4A 53 |VON TAB2..@R+ JS|
000020C0: 52 24 42 37 42 35 3B D6 45 52 47 4C 45 49 43 48 |R$B7B5;.ERGLEICH|
000020D0: 53 57 45 52 54 3D 2D 34 30 39 36 20 49 4E 20 C6 |SWERT=-4096 IN .|
000020E0: C1 C3 00 CE 40 5C 2B 20 4C 44 58 23 24 36 30 3B |....@\+ LDX#$60;|
000020F0: 3E 2D 34 30 39 36 3C 00 F1 40 66 2B 20 4C 44 59 |>-4096<..@f+ LDY|
00002100: 23 24 30 33 3B 41 4C 53 20 CD C6 CC D0 D4 20 41 |#$03;ALS ..... A|
00002110: 42 53 50 45 49 43 48 45 52 4E 00 0A 41 70 2B 20 |BSPEICHERN..Ap+ |
00002120: 4A 53 52 24 42 42 44 34 3B 4E 41 43 48 20 24 30 |JSR$BBD4;NACH $0|
00002130: 33 36 30 00 10 41 7A 2B 3B 00 26 41 8E 2B 20 4C |360..Az+;.&A.+ L|
00002140: 44 58 23 3C 28 54 41 42 33 29 3B 53 2E 4F 2E 00 |DX#<(TAB3);S.O..|
00002150: 32 41 98 2B 20 53 54 58 24 32 32 00 43 41 A2 2B |2A.+ STX$22.CA.+|
00002160: 20 4C 44 58 23 3E 28 54 41 42 33 29 00 4F 41 AC | LDX#>(TAB3).OA.|
00002170: 2B 20 53 54 58 24 32 33 00 5C 41 B6 2B 20 4C 44 |+ STX$23.\A.+ LD|
00002180: 41 23 24 30 34 00 6A 41 C0 2B 20 4A 53 52 24 42 |A#$04.jA.+ JSR$B|
00002190: 37 42 35 00 7E 41 CA 2B 20 4C 44 58 23 24 37 30 |7B5.~A.+ LDX#$70|
000021A0: 3B 3E 2D 32 35 36 3C 00 A1 41 D4 2B 20 4C 44 59 |;>-256<..A.+ LDY|
000021B0: 23 24 30 33 3B 41 4C 53 20 CD C6 CC D0 D4 20 41 |#$03;ALS ..... A|
000021C0: 42 53 50 45 49 43 48 45 52 4E 00 BA 41 DE 2B 20 |BSPEICHERN..A.+ |
000021D0: 4A 53 52 24 42 42 44 34 3B 4E 41 43 48 20 24 30 |JSR$BBD4;NACH $0|
000021E0: 33 37 30 00 C0 41 E8 2B 3B 00 D6 41 F2 2B 20 4C |370..A.+;..A.+ L|
000021F0: 44 58 23 3C 28 54 41 42 34 29 3B 53 2E 4F 2E 00 |DX#<(TAB4);S.O..|
00002200: E2 41 FC 2B 20 53 54 58 24 32 32 00 F3 41 06 2C |.A.+ STX$22..A.,|
00002210: 20 4C 44 58 23 3E 28 54 41 42 34 29 00 FF 41 10 | LDX#>(TAB4)..A.|
00002220: 2C 20 53 54 58 24 32 33 00 0C 42 1A 2C 20 4C 44 |, STX$23..B., LD|
00002230: 41 23 24 30 33 00 1A 42 24 2C 20 4A 53 52 24 42 |A#$03..B$, JSR$B|
00002240: 37 42 35 00 2D 42 2E 2C 20 4C 44 58 23 24 38 30 |7B5.-B., LDX#$80|
00002250: 3B 3E 2D 31 36 3C 00 50 42 38 2C 20 4C 44 59 23 |;>-16<.PB8, LDY#|
00002260: 24 30 33 3B 41 4C 53 20 CD C6 CC D0 D4 20 41 42 |$03;ALS ..... AB|
00002270: 53 50 45 49 43 48 45 52 4E 00 69 42 42 2C 20 4A |SPEICHERN.iBB, J|
00002280: 53 52 24 42 42 44 34 3B 4E 41 43 48 20 24 30 33 |SR$BBD4;NACH $03|
00002290: 38 30 00 6F 42 4C 2C 3B 00 85 42 56 2C 20 4C 44 |80.oBL,;..BV, LD|
000022A0: 58 23 3C 28 54 41 42 35 29 3B 53 2E 4F 2E 00 91 |X#<(TAB5);S.O...|
000022B0: 42 60 2C 20 53 54 58 24 32 32 00 A2 42 6A 2C 20 |B`, STX$22..Bj, |
000022C0: 4C 44 58 23 3E 28 54 41 42 35 29 00 AE 42 74 2C |LDX#>(TAB5)..Bt,|
000022D0: 20 53 54 58 24 32 33 00 BB 42 7E 2C 20 4C 44 41 | STX$23..B~, LDA|
000022E0: 23 24 30 32 00 C9 42 88 2C 20 4A 53 52 24 42 37 |#$02..B., JSR$B7|
000022F0: 42 35 00 DB 42 92 2C 20 4C 44 58 23 24 39 30 3B |B5..B., LDX#$90;|
00002300: 3E 2D 31 3C 00 FE 42 9C 2C 20 4C 44 59 23 24 30 |>-1<..B., LDY#$0|
00002310: 33 3B 41 4C 53 20 CD C6 CC D0 D4 20 41 42 53 50 |3;ALS ..... ABSP|
00002320: 45 49 43 48 45 52 4E 00 17 43 A6 2C 20 4A 53 52 |EICHERN..C., JSR|
00002330: 24 42 42 44 34 3B 4E 41 43 48 20 24 30 33 39 30 |$BBD4;NACH $0390|
00002340: 00 1D 43 B0 2C 3B 00 26 43 BA 2C 20 52 54 53 00 |..C.,;.&C., RTS.|
00002350: 2C 43 E0 2E 3B 00 32 43 EA 2E 3B 00 4F 43 F4 2E |,C..;.2C..;.OC..|
00002360: 3B 20 C4 45 5A 49 4D 41 4C 57 45 52 54 20 2D 3E |; .EZIMALWERT ->|
00002370: 20 C8 45 58 43 4F 44 45 00 6C 43 FE 2E 3B 20 2D | .EXCODE.lC..; -|
00002380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002390: 2D 2D 2D 2D 2D 00 7F 43 08 2F 44 45 5A 48 45 58 |-----..C./DEZHEX|
000023A0: 20 4C 44 41 23 24 35 30 00 8C 43 12 2F 20 4C 44 | LDA#$50..C./ LD|
000023B0: 59 23 24 30 33 00 B3 43 1C 2F 20 4A 53 52 24 42 |Y#$03..C./ JSR$B|
000023C0: 42 41 32 3B 45 49 4E 47 45 47 45 42 45 4E 45 52 |BA2;EINGEGEBENER|
000023D0: 20 D7 45 52 54 20 49 4E 20 C6 C1 C3 00 C0 43 26 | .ERT IN .....C&|
000023E0: 2F 20 4C 44 59 23 24 30 30 00 F3 43 30 2F 20 53 |/ LDY#$00..C0/ S|
000023F0: 54 59 24 30 33 33 43 3B DA 41 45 48 4C 45 52 31 |TY$033C;.AEHLER1|
00002400: 20 3D 20 DA 45 49 47 45 52 20 41 55 46 20 DA 49 | = .EIGER AUF .I|
00002410: 46 46 45 52 20 49 4E 20 54 41 42 31 00 21 44 3A |FFER IN TAB1.!D:|
00002420: 2F 20 53 54 59 24 30 33 33 44 3B DA 41 45 48 4C |/ STY$033D;.AEHL|
00002430: 45 52 32 20 3D 20 C1 4E 5A 41 48 4C 20 C8 45 58 |ER2 = .NZAHL .EX|
00002440: 2D DA 49 46 46 45 52 4E 3D 34 00 4E 44 44 2F 20 |-.IFFERN=4.NDD/ |
00002450: 4C 44 59 23 24 36 30 3B DA 45 49 47 45 52 20 28 |LDY#$60;.EIGER (|
00002460: 4C 4F 57 29 20 41 55 46 20 D6 45 52 47 4C 45 49 |LOW) AUF .ERGLEI|
00002470: 43 48 53 57 45 52 54 00 5C 44 4E 2F 20 53 54 59 |CHSWERT.\DN/ STY|
00002480: 24 30 33 33 45 00 6D 44 58 2F 20 4C 44 58 23 24 |$033E.mDX/ LDX#$|
00002490: 32 34 3B 3E 24 3C 00 89 44 62 2F 20 53 54 58 24 |24;>$<..Db/ STX$|
000024A0: 30 34 30 41 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 |040A;-> .ILDSCHI|
000024B0: 52 4D 00 9A 44 6C 2F 20 4C 44 58 23 24 33 41 3B |RM..Dl/ LDX#$3A;|
000024C0: 3E 3A 3C 00 B6 44 76 2F 20 53 54 58 24 30 34 30 |>:<..Dv/ STX$040|
000024D0: 42 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 |B;-> .ILDSCHIRM.|
000024E0: D4 44 80 2F 5A 41 45 48 4C 54 41 42 31 20 4C 44 |.D./ZAEHLTAB1 LD|
000024F0: 41 24 30 33 33 45 3B DA 45 49 47 45 52 00 F4 44 |A$033E;.EIGER..D|
00002500: 8A 2F 20 4C 44 59 23 24 30 33 3B 41 55 46 20 D6 |./ LDY#$03;AUF .|
00002510: 45 52 47 4C 45 49 43 48 53 57 45 52 54 00 1D 45 |ERGLEICHSWERT..E|
00002520: 94 2F 20 4A 53 52 24 42 38 36 37 3B C6 C1 C3 20 |./ JSR$B867;... |
00002530: 3D 20 C6 C1 C3 20 2D 20 D6 45 52 47 4C 45 49 43 |= ... - .ERGLEIC|
00002540: 48 53 57 45 52 54 00 3A 45 9E 2F 20 4A 53 52 24 |HSWERT.:E./ JSR$|
00002550: 42 43 32 42 3B D6 4F 52 5A 45 49 43 48 45 4E 20 |BC2B;.ORZEICHEN |
00002560: C6 C1 C3 00 51 45 A8 2F 20 43 4D 50 23 24 30 31 |....QE./ CMP#$01|
00002570: 3B 4E 45 47 41 54 49 56 20 3F 00 6E 45 B2 2F 20 |;NEGATIV ?.nE./ |
00002580: 42 4E 45 57 45 49 54 45 52 46 3B 4A 41 20 2D 3E |BNEWEITERF;JA ->|
00002590: 20 57 45 49 54 45 52 00 88 45 BC 2F 20 49 4E 43 | WEITER..E./ INC|
000025A0: 24 30 33 33 43 3B DA 41 45 48 4C 45 52 31 20 2B |$033C;.AEHLER1 +|
000025B0: 31 00 9A 45 C6 2F 20 4A 4D 50 5A 41 45 48 4C 54 |1..E./ JMPZAEHLT|
000025C0: 41 42 31 00 AF 45 D0 2F 57 45 49 54 45 52 46 20 |AB1..E./WEITERF |
000025D0: 4C 44 59 24 30 33 33 43 00 BD 45 DA 2F 20 4C 44 |LDY$033C..E./ LD|
000025E0: 58 24 30 33 33 44 00 E0 45 E4 2F 20 4C 44 41 54 |X$033D..E./ LDAT|
000025F0: 41 42 31 2C 59 3B C8 45 58 2D DA 49 46 46 45 52 |AB1,Y;.EX-.IFFER|
00002600: 20 41 55 53 20 54 41 42 31 00 FE 45 EE 2F 20 53 | AUS TAB1..E./ S|
00002610: 54 41 24 30 34 30 43 2C 58 3B 2D 3E 20 C2 49 4C |TA$040C,X;-> .IL|
00002620: 44 53 43 48 49 52 4D 00 13 46 F8 2F 20 4C 44 41 |DSCHIRM..F./ LDA|
00002630: 24 30 33 33 45 3B DA 45 49 47 45 52 00 33 46 02 |$033E;.EIGER.3F.|
00002640: 30 20 4C 44 59 23 24 30 33 3B 41 55 46 20 D6 45 |0 LDY#$03;AUF .E|
00002650: 52 47 4C 45 49 43 48 53 57 45 52 54 00 56 46 0C |RGLEICHSWERT.VF.|
00002660: 30 20 4A 53 52 24 42 38 35 30 3B C6 C1 C3 20 3D |0 JSR$B850;... =|
00002670: 20 D3 50 45 49 43 48 45 52 20 2D 20 C6 C1 C3 00 | .PEICHER - ....|
00002680: 6F 46 16 30 20 4A 53 52 24 42 46 42 34 3B C6 C1 |oF.0 JSR$BFB4;..|
00002690: C3 20 3D 20 2D C6 C1 C3 00 78 46 20 30 20 43 4C |. = -....xF 0 CL|
000026A0: 43 00 A0 46 2A 30 20 4C 44 41 24 30 33 33 45 3B |C..F*0 LDA$033E;|
000026B0: DA 45 49 47 45 52 20 41 55 46 20 D6 45 52 47 4C |.EIGER AUF .ERGL|
000026C0: 45 49 43 48 53 57 45 52 54 00 C1 46 34 30 20 41 |EICHSWERT..F40 A|
000026D0: 44 43 23 24 31 30 3B 57 45 49 54 45 52 53 45 54 |DC#$10;WEITERSET|
000026E0: 5A 45 4E 20 28 2B 24 31 30 29 00 CF 46 3E 30 20 |ZEN (+$10)..F>0 |
000026F0: 53 54 41 24 30 33 33 45 00 E5 46 48 30 20 4C 44 |STA$033E..FH0 LD|
00002700: 59 23 24 30 30 3B DA 41 45 48 4C 45 52 31 00 01 |Y#$00;.AEHLER1..|
00002710: 47 52 30 20 53 54 59 24 30 33 33 43 3B 5A 55 52 |GR0 STY$033C;ZUR|
00002720: 55 45 43 4B 53 45 54 5A 45 4E 00 18 47 5C 30 20 |UECKSETZEN..G\0 |
00002730: 49 4E 43 24 30 33 33 44 3B DA 41 45 48 4C 45 52 |INC$033D;.AEHLER|
00002740: 32 00 33 47 66 30 20 4C 44 59 24 30 33 33 44 3B |2.3Gf0 LDY$033D;|
00002750: 57 45 49 54 45 52 53 45 54 5A 45 4E 00 4E 47 70 |WEITERSETZEN.NGp|
00002760: 30 20 43 50 59 23 24 30 34 3B DA 41 45 48 4C 45 |0 CPY#$04;.AEHLE|
00002770: 52 32 20 3C 34 20 3F 00 82 47 7A 30 20 42 43 43 |R2 <4 ?..Gz0 BCC|
00002780: 5A 41 45 48 4C 54 41 42 31 3B 4A 41 20 2D 3E 20 |ZAEHLTAB1;JA -> |
00002790: 57 45 49 54 45 52 45 20 C8 45 58 5A 49 46 46 45 |WEITERE .EXZIFFE|
000027A0: 52 20 45 52 52 45 43 48 4E 45 4E 00 8B 47 84 30 |R ERRECHNEN..G.0|
000027B0: 20 52 54 53 00 91 47 8E 30 3B 00 97 47 98 30 3B | RTS..G.0;..G.0;|
000027C0: 00 9D 47 C8 32 3B 00 A3 47 D2 32 3B 00 C2 47 DC |..G.2;..G.2;..G.|
000027D0: 32 3B 20 C4 45 5A 49 4D 41 4C 57 45 52 54 20 2D |2; .EZIMALWERT -|
000027E0: 3E 20 C2 49 54 4D 55 53 54 45 52 00 E1 47 E6 32 |> .ITMUSTER..G.2|
000027F0: 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |; --------------|
00002800: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 F5 47 F0 32 44 |----------..G.2D|
00002810: 45 5A 42 49 54 4D 20 4C 44 41 23 24 35 30 00 02 |EZBITM LDA#$50..|
00002820: 48 FA 32 20 4C 44 59 23 24 30 33 00 29 48 04 33 |H.2 LDY#$03.)H.3|
00002830: 20 4A 53 52 24 42 42 41 32 3B 45 49 4E 47 45 47 | JSR$BBA2;EINGEG|
00002840: 45 42 45 4E 45 4E 20 D7 45 52 54 20 49 4E 20 C6 |EBENEN .ERT IN .|
00002850: C1 C3 00 36 48 0E 33 20 4C 44 41 23 24 39 30 00 |...6H.3 LDA#$90.|
00002860: 43 48 18 33 20 4C 44 59 23 24 30 33 00 5E 48 22 |CH.3 LDY#$03.^H"|
00002870: 33 20 4A 53 52 24 42 38 36 37 3B C6 C1 C3 20 3D |3 JSR$B867;... =|
00002880: 20 C6 C1 C3 20 2D 31 00 8A 48 2C 33 20 4A 53 52 | ... -1..H,3 JSR|
00002890: 24 42 37 46 37 3B C6 C1 C3 20 41 4C 53 20 32 2D |$B7F7;... ALS 2-|
000028A0: C2 59 54 45 2D C9 4E 54 45 47 45 52 20 49 4E 20 |.YTE-.NTEGER IN |
000028B0: D9 2F C1 00 AB 48 36 33 20 53 54 41 24 30 33 41 |./...H63 STA$03A|
000028C0: 41 3B C8 49 47 48 2D C2 59 54 45 20 49 4E 20 24 |A;.IGH-.YTE IN $|
000028D0: 30 33 C1 C1 00 CB 48 40 33 20 53 54 59 24 30 33 |03....H@3 STY$03|
000028E0: 41 42 3B CC 4F 57 2D C2 59 54 45 20 49 4E 20 24 |AB;.OW-.YTE IN $|
000028F0: 30 33 C1 C2 00 DC 48 4A 33 20 4C 44 41 23 24 32 |03....HJ3 LDA#$2|
00002900: 35 3B 3E 25 3C 00 F8 48 54 33 20 53 54 41 24 30 |5;>%<..HT3 STA$0|
00002910: 34 31 33 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 52 |413;-> .ILDSCHIR|
00002920: 4D 00 09 49 5E 33 20 4C 44 41 23 24 33 41 3B 3E |M..I^3 LDA#$3A;>|
00002930: 3A 3C 00 25 49 68 33 20 53 54 41 24 30 34 31 34 |:<.%Ih3 STA$0414|
00002940: 3B 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 3A |;-> .ILDSCHIRM.:|
00002950: 49 72 33 20 4C 44 59 23 24 30 30 3B DA 41 45 48 |Ir3 LDY#$00;.AEH|
00002960: 4C 45 52 00 6D 49 7C 33 42 49 54 41 55 53 31 20 |LER.mI|3BITAUS1 |
00002970: 41 53 4C 24 30 33 41 41 3B 37 2E 20 C2 49 54 20 |ASL$03AA;7. .IT |
00002980: 56 4F 4E 20 C8 49 47 48 2D C2 59 54 45 20 49 4E |VON .IGH-.YTE IN|
00002990: 20 C3 41 52 52 59 00 92 49 86 33 20 42 43 53 42 | .ARRY..I.3 BCSB|
000029A0: 49 54 31 3B C3 41 52 52 59 3D 31 20 2D 3E 20 3E |IT1;.ARRY=1 -> >|
000029B0: 31 3C 20 41 55 53 47 45 42 45 4E 00 A3 49 90 33 |1< AUSGEBEN..I.3|
000029C0: 20 4C 44 41 23 24 33 30 3B 3E 30 3C 00 B3 49 9A | LDA#$30;>0<..I.|
000029D0: 33 20 4A 4D 50 57 45 49 54 45 52 47 00 C8 49 A4 |3 JMPWEITERG..I.|
000029E0: 33 42 49 54 31 20 4C 44 41 23 24 33 31 3B 3E 31 |3BIT1 LDA#$31;>1|
000029F0: 3C 00 ED 49 AE 33 57 45 49 54 45 52 47 20 53 54 |<..I.3WEITERG ST|
00002A00: 41 24 30 34 31 35 2C 59 3B 2D 3E 20 C2 49 4C 44 |A$0415,Y;-> .ILD|
00002A10: 53 43 48 49 52 4D 00 01 4A B8 33 20 49 4E 59 3B |SCHIRM..J.3 INY;|
00002A20: DA 41 45 48 4C 45 52 20 2B 31 00 1B 4A C2 33 20 |.AEHLER +1..J.3 |
00002A30: 43 50 59 23 24 30 38 3B DA 41 45 48 4C 45 52 20 |CPY#$08;.AEHLER |
00002A40: 3C 38 20 3F 00 4E 4A CC 33 20 42 43 43 42 49 54 |<8 ?.NJ.3 BCCBIT|
00002A50: 41 55 53 31 3B 4A 41 20 2D 3E 20 57 45 49 54 45 |AUS1;JA -> WEITE|
00002A60: 52 45 20 C4 55 41 4C 5A 49 46 46 45 52 20 45 52 |RE .UALZIFFER ER|
00002A70: 52 45 43 48 4E 45 4E 00 5B 4A D6 33 20 4C 44 59 |RECHNEN.[J.3 LDY|
00002A80: 23 24 30 30 00 8D 4A E0 33 42 49 54 41 55 53 32 |#$00..J.3BITAUS2|
00002A90: 20 41 53 4C 24 30 33 41 42 3B 37 2E 20 C2 49 54 | ASL$03AB;7. .IT|
00002AA0: 20 56 4F 4E 20 CC 4F 57 2D C2 59 54 45 20 49 4E | VON .OW-.YTE IN|
00002AB0: 20 C3 41 52 52 59 00 9F 4A EA 33 20 42 43 53 42 | .ARRY..J.3 BCSB|
00002AC0: 49 54 32 3B 53 2E 4F 2E 00 AC 4A F4 33 20 4C 44 |IT2;S.O...J.3 LD|
00002AD0: 41 23 24 33 30 00 BC 4A FE 33 20 4A 4D 50 57 45 |A#$30..J.3 JMPWE|
00002AE0: 49 54 45 52 48 00 CD 4A 08 34 42 49 54 32 20 4C |ITERH..J.4BIT2 L|
00002AF0: 44 41 23 24 33 31 00 E4 4A 12 34 57 45 49 54 45 |DA#$31..J.4WEITE|
00002B00: 52 48 20 53 54 41 24 30 34 31 44 2C 59 00 ED 4A |RH STA$041D,Y..J|
00002B10: 1C 34 20 49 4E 59 00 FA 4A 26 34 20 43 50 59 23 |.4 INY..J&4 CPY#|
00002B20: 24 30 38 00 0A 4B 30 34 20 42 43 43 42 49 54 41 |$08..K04 BCCBITA|
00002B30: 55 53 32 00 13 4B 3A 34 20 52 54 53 00 19 4B 44 |US2..K:4 RTS..KD|
00002B40: 34 3B 00 1F 4B 4E 34 3B 00 25 4B B0 36 3B 00 42 |4;..KN4;.%K.6;.B|
00002B50: 4B BA 36 3B 20 C8 45 58 43 4F 44 45 20 2D 3E 20 |K.6; .EXCODE -> |
00002B60: C4 45 5A 49 4D 41 4C 57 45 52 54 00 5F 4B C4 36 |.EZIMALWERT._K.6|
00002B70: 3B 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |; --------------|
00002B80: 2D 2D 2D 2D 2D 2D 2D 2D 00 72 4B CE 36 48 45 58 |--------.rK.6HEX|
00002B90: 44 45 5A 20 4C 44 59 23 24 30 30 00 AB 4B D8 36 |DEZ LDY#$00..K.6|
00002BA0: 20 53 54 59 24 30 33 33 43 3B DA 41 45 48 4C 45 | STY$033C;.AEHLE|
00002BB0: 52 31 20 3D 20 C1 4E 5A 41 48 4C 20 45 49 4E 47 |R1 = .NZAHL EING|
00002BC0: 45 47 45 42 45 4E 45 20 DA 49 46 46 45 52 4E 20 |EGEBENE .IFFERN |
00002BD0: 28 3D 34 29 00 E3 4B E2 36 20 53 54 59 24 30 33 |(=4)..K.6 STY$03|
00002BE0: 33 44 3B DA 41 45 48 4C 45 52 32 20 3D 20 C1 4E |3D;.AEHLER2 = .N|
00002BF0: 5A 41 48 4C 20 D6 45 52 47 4C 45 49 43 48 53 5A |ZAHL .ERGLEICHSZ|
00002C00: 49 46 46 45 52 4E 20 28 3D 31 36 29 00 FB 4B EC |IFFERN (=16)..K.|
00002C10: 36 20 4C 44 59 23 24 36 30 3B DA 45 49 47 45 52 |6 LDY#$60;.EIGER|
00002C20: 20 41 55 46 00 29 4C F6 36 20 53 54 59 24 30 33 | AUF.)L.6 STY$03|
00002C30: 33 45 3B D6 45 52 47 4C 45 49 43 48 53 57 45 52 |3E;.ERGLEICHSWER|
00002C40: 54 45 20 41 55 53 20 54 41 42 32 2E 2E 2E 54 41 |TE AUS TAB2...TA|
00002C50: 42 35 00 42 4C 00 37 20 4A 53 52 24 42 43 30 43 |B5.BL.7 JSR$BC0C|
00002C60: 3B C6 C1 C3 20 2D 3E 20 C1 D2 C7 00 68 4C 0A 37 |;... -> ....hL.7|
00002C70: 20 4A 53 52 24 42 38 35 33 3B C6 C1 C3 20 3D 20 | JSR$B853;... = |
00002C80: C1 D2 C7 20 2D 20 C6 C1 C3 20 28 C6 C1 C3 3D 30 |... - ... (...=0|
00002C90: 29 00 75 4C 14 37 20 4C 44 58 23 24 35 30 00 82 |).uL.7 LDX#$50..|
00002CA0: 4C 1E 37 20 4C 44 59 23 24 30 33 00 AB 4C 28 37 |L.7 LDY#$03..L(7|
00002CB0: 20 4A 53 52 24 42 42 44 34 3B 5A 57 49 53 43 48 | JSR$BBD4;ZWISCH|
00002CC0: 45 4E 53 50 45 49 43 48 45 52 4E 20 49 4E 20 24 |ENSPEICHERN IN $|
00002CD0: 30 33 35 30 00 CD 4C 32 37 4E 41 45 5A 49 20 4C |0350..L27NAEZI L|
00002CE0: 44 41 24 30 33 33 45 3B D6 45 52 47 4C 45 49 43 |DA$033E;.ERGLEIC|
00002CF0: 48 53 57 45 52 54 00 E7 4C 3C 37 20 4C 44 59 23 |HSWERT..L<7 LDY#|
00002D00: 24 30 33 3B 28 2D 34 30 39 36 2E 2E 2E 2D 31 29 |$03;(-4096...-1)|
00002D10: 00 FC 4C 46 37 20 4A 53 52 24 42 42 41 32 3B 49 |..LF7 JSR$BBA2;I|
00002D20: 4E 20 C6 C1 C3 00 15 4D 50 37 20 4A 53 52 24 42 |N .....MP7 JSR$B|
00002D30: 46 42 34 3B C6 C1 C3 20 3D 20 2D C6 C1 C3 00 3C |FB4;... = -....<|
00002D40: 4D 5A 37 20 4C 44 58 24 30 33 33 45 3B 50 4F 53 |MZ7 LDX$033E;POS|
00002D50: 49 54 49 56 45 20 D6 45 52 47 4C 45 49 43 48 53 |ITIVE .ERGLEICHS|
00002D60: 57 45 52 54 45 00 54 4D 64 37 20 4C 44 59 23 24 |WERTE.TMd7 LDY#$|
00002D70: 30 33 3B 28 34 30 39 36 2E 2E 2E 31 29 00 7D 4D |03;(4096...1).}M|
00002D80: 6E 37 20 4A 53 52 24 42 42 44 34 3B 57 49 45 44 |n7 JSR$BBD4;WIED|
00002D90: 45 52 20 49 4E 20 DA 57 49 53 43 48 45 4E 53 50 |ER IN .WISCHENSP|
00002DA0: 45 49 43 48 45 52 00 8B 4D 78 37 20 4C 44 41 24 |EICHER..Mx7 LDA$|
00002DB0: 30 33 33 45 00 98 4D 82 37 20 4C 44 59 23 24 30 |033E..M.7 LDY#$0|
00002DC0: 33 00 AD 4D 8C 37 20 4A 53 52 24 42 38 35 30 3B |3..M.7 JSR$B850;|
00002DD0: C6 C1 C3 20 3D 30 00 C3 4D AA 37 48 45 58 56 45 |... =0..M.7HEXVE|
00002DE0: 52 47 4C 20 4C 44 59 24 30 33 33 43 00 E6 4D B4 |RGL LDY$033C..M.|
00002DF0: 37 20 4C 44 41 24 30 34 30 43 2C 59 3B DA 49 46 |7 LDA$040C,Y;.IF|
00002E00: 46 45 52 20 41 55 53 20 C8 45 58 43 4F 44 45 00 |FER AUS .EXCODE.|
00002E10: F4 4D BE 37 20 4C 44 59 24 30 33 33 44 00 23 4E |.M.7 LDY$033D.#N|
00002E20: C8 37 20 43 4D 50 54 41 42 31 2C 59 3B 4D 49 54 |.7 CMPTAB1,Y;MIT|
00002E30: 20 DA 49 46 46 45 52 20 41 55 53 20 54 41 42 31 | .IFFER AUS TAB1|
00002E40: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 44 4E D2 | VERGLEICHEN.DN.|
00002E50: 37 20 42 45 51 57 45 49 54 45 52 4A 3B 47 4C 45 |7 BEQWEITERJ;GLE|
00002E60: 49 43 48 20 2D 3E 20 57 45 49 54 45 52 00 52 4E |ICH -> WEITER.RN|
00002E70: DC 37 20 4C 44 41 24 30 33 33 45 00 5F 4E E6 37 |.7 LDA$033E._N.7|
00002E80: 20 4C 44 59 23 24 30 33 00 88 4E F0 37 20 4A 53 | LDY#$03..N.7 JS|
00002E90: 52 24 42 38 36 37 3B C6 C1 C3 20 3D 20 D6 45 52 |R$B867;... = .ER|
00002EA0: 47 4C 45 49 43 48 53 57 45 52 54 20 2B 20 C6 C1 |GLEICHSWERT + ..|
00002EB0: C3 00 A2 4E FA 37 20 49 4E 43 24 30 33 33 44 3B |...N.7 INC$033D;|
00002EC0: DA 41 45 48 4C 45 52 32 20 2B 31 00 C6 4E 04 38 |.AEHLER2 +1..N.8|
00002ED0: 20 4A 4D 50 48 45 58 56 45 52 47 4C 3B 57 45 49 | JMPHEXVERGL;WEI|
00002EE0: 54 45 52 20 56 45 52 47 4C 45 49 43 48 45 4E 00 |TER VERGLEICHEN.|
00002EF0: DA 4E 0E 38 57 45 49 54 45 52 4A 20 4C 44 41 23 |.N.8WEITERJ LDA#|
00002F00: 24 35 30 00 E7 4E 18 38 20 4C 44 59 23 24 30 33 |$50..N.8 LDY#$03|
00002F10: 00 12 4F 22 38 20 4A 53 52 24 42 38 36 37 3B C6 |..O"8 JSR$B867;.|
00002F20: C1 C3 20 3D 20 DA 57 49 53 43 48 45 4E 53 50 45 |.. = .WISCHENSPE|
00002F30: 49 43 48 45 52 20 2B 20 C6 C1 C3 00 1F 4F 2C 38 |ICHER + .....O,8|
00002F40: 20 4C 44 58 23 24 35 30 00 2C 4F 36 38 20 4C 44 | LDX#$50.,O68 LD|
00002F50: 59 23 24 30 33 00 54 4F 40 38 20 4A 53 52 24 42 |Y#$03.TO@8 JSR$B|
00002F60: 42 44 34 3B D3 55 4D 4D 45 20 49 4E 20 DA 57 49 |BD4;.UMME IN .WI|
00002F70: 53 43 48 45 4E 53 50 45 49 43 48 45 52 00 61 4F |SCHENSPEICHER.aO|
00002F80: 42 38 20 4C 44 59 23 24 30 30 00 85 4F 44 38 20 |B8 LDY#$00..OD8 |
00002F90: 53 54 59 24 33 33 44 3B DA 41 45 48 4C 45 52 32 |STY$33D;.AEHLER2|
00002FA0: 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 8E | ZURUECKSETZEN..|
00002FB0: 4F 4A 38 20 43 4C 43 00 A7 4F 54 38 20 4C 44 41 |OJ8 CLC..OT8 LDA|
00002FC0: 24 30 33 33 45 3B DA 45 49 47 45 52 20 41 55 46 |$033E;.EIGER AUF|
00002FD0: 00 C3 4F 5E 38 20 41 44 43 23 24 31 30 3B D6 45 |..O^8 ADC#$10;.E|
00002FE0: 52 47 4C 45 49 43 48 53 57 45 52 54 00 DE 4F 63 |RGLEICHSWERT..Oc|
00002FF0: 38 20 53 54 41 24 30 33 33 45 3B 57 45 49 54 45 |8 STA$033E;WEITE|
00003000: 52 53 45 54 5A 45 4E 00 F8 4F 68 38 20 49 4E 43 |RSETZEN..Oh8 INC|
00003010: 24 30 33 33 43 3B DA 41 45 48 4C 45 52 31 20 2B |$033C;.AEHLER1 +|
00003020: 31 00 06 50 72 38 20 4C 44 59 24 30 33 33 43 00 |1..Pr8 LDY$033C.|
00003030: 21 50 7C 38 20 43 50 59 23 24 30 34 3B DA 41 45 |!P|8 CPY#$04;.AE|
00003040: 48 4C 45 52 31 20 3C 34 20 3F 00 45 50 86 38 20 |HLER1 <4 ?.EP.8 |
00003050: 42 43 43 4E 41 45 5A 49 3B 4A 41 20 2D 3E 20 4E |BCCNAEZI;JA -> N|
00003060: 41 45 43 48 53 54 45 20 DA 49 46 46 45 52 00 6E |AECHSTE .IFFER.n|
00003070: 50 90 38 20 4C 44 41 23 24 35 30 3B DA 57 49 53 |P.8 LDA#$50;.WIS|
00003080: 43 48 45 4E 53 50 45 49 43 48 45 52 20 28 3D C5 |CHENSPEICHER (=.|
00003090: 4E 44 57 45 52 54 29 00 7B 50 9A 38 20 4C 44 59 |NDWERT).{P.8 LDY|
000030A0: 23 24 30 33 00 90 50 A4 38 20 4A 53 52 24 42 42 |#$03..P.8 JSR$BB|
000030B0: 41 32 3B 49 4E 20 C6 C1 C3 00 BB 50 C2 38 20 4A |A2;IN .....P.8 J|
000030C0: 53 52 24 42 44 44 44 3B C6 C1 C3 20 2D 3E 20 C1 |SR$BDDD;... -> .|
000030D0: D3 C3 C9 C9 2D D3 54 52 49 4E 47 20 41 42 20 24 |....-.TRING AB $|
000030E0: 30 31 30 30 00 D0 50 CC 38 20 4C 44 59 23 24 30 |0100..P.8 LDY#$0|
000030F0: 30 3B DA 41 45 48 4C 45 52 00 FF 50 D6 38 44 45 |0;.AEHLER..P.8DE|
00003100: 5A 41 55 53 31 20 4C 44 41 24 30 31 30 30 2C 59 |ZAUS1 LDA$0100,Y|
00003110: 3B DA 49 46 46 45 52 20 41 55 53 20 C1 D3 C3 C9 |;.IFFER AUS ....|
00003120: C9 2D D3 54 52 49 4E 47 00 13 51 EA 38 20 43 4D |.-.TRING..Q.8 CM|
00003130: 50 23 24 30 30 3B C5 4E 44 45 20 3F 00 2F 51 F4 |P#$00;.NDE ?./Q.|
00003140: 38 20 42 45 51 57 45 49 54 45 52 4B 3B 4A 41 20 |8 BEQWEITERK;JA |
00003150: 2D 3E 57 45 49 54 45 52 00 54 51 F9 38 20 53 54 |->WEITER.TQ.8 ST|
00003160: 41 24 30 34 30 31 2C 59 3B DA 49 46 46 45 52 20 |A$0401,Y;.IFFER |
00003170: 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 68 51 |-> .ILDSCHIRM.hQ|
00003180: FE 38 20 49 4E 59 3B DA 41 45 48 4C 45 52 20 2B |.8 INY;.AEHLER +|
00003190: 31 00 90 51 08 39 20 4A 4D 50 44 45 5A 41 55 53 |1..Q.9 JMPDEZAUS|
000031A0: 31 3B 57 45 49 54 45 52 45 20 DA 49 46 46 45 52 |1;WEITERE .IFFER|
000031B0: 20 41 55 53 47 45 42 45 4E 00 A8 51 12 39 57 45 | AUSGEBEN..Q.9WE|
000031C0: 49 54 45 52 4B 20 4C 44 41 23 24 30 34 3B 3E C4 |ITERK LDA#$04;>.|
000031D0: 3C 00 C4 51 1C 39 20 53 54 41 24 30 34 30 30 3B |<..Q.9 STA$0400;|
000031E0: 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 D5 51 |-> .ILDSCHIRM..Q|
000031F0: 26 39 20 4C 44 41 23 24 33 41 3B 3E 3A 3C 00 F1 |&9 LDA#$3A;>:<..|
00003200: 51 30 39 20 53 54 41 24 30 34 30 31 3B 2D 3E 20 |Q09 STA$0401;-> |
00003210: C2 49 4C 44 53 43 48 49 52 4D 00 FA 51 3A 39 20 |.ILDSCHIRM..Q:9 |
00003220: 52 54 53 00 00 52 44 39 3B 00 06 52 4E 39 3B 00 |RTS..RD9;..RN9;.|
00003230: 0C 52 98 3A 3B 00 2B 52 A2 3A 3B 20 C2 49 54 4D |.R.:;.+R.:; .ITM|
00003240: 55 53 54 45 52 20 2D 3E 20 C4 45 5A 49 4D 41 4C |USTER -> .EZIMAL|
00003250: 57 45 52 54 00 4A 52 AC 3A 3B 20 2D 2D 2D 2D 2D |WERT.JR.:; -----|
00003260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003270: 2D 2D 2D 00 66 52 B6 3A 42 49 54 4D 44 45 5A 20 |---.fR.:BITMDEZ |
00003280: 4C 44 59 23 24 30 30 3B DA 41 45 48 4C 45 52 00 |LDY#$00;.AEHLER.|
00003290: 81 52 C0 3A 20 4C 44 41 23 24 30 30 3B C1 4B 4B |.R.: LDA#$00;.KK|
000032A0: 55 20 4C 4F 45 53 43 48 45 4E 00 AF 52 CA 3A 42 |U LOESCHEN..R.:B|
000032B0: 49 54 56 45 52 47 4C 31 20 4C 44 58 24 30 34 31 |ITVERGL1 LDX$041|
000032C0: 35 2C 59 3B DA 49 46 46 45 52 20 41 55 53 20 C2 |5,Y;.IFFER AUS .|
000032D0: 49 54 4D 55 53 54 45 52 00 C1 52 D4 3A 20 43 50 |ITMUSTER..R.: CP|
000032E0: 58 23 24 33 31 3B 3D 31 20 3F 00 EB 52 DE 3A 20 |X#$31;=1 ?..R.: |
000032F0: 42 45 51 53 45 54 43 41 52 52 59 31 3B 4A 41 20 |BEQSETCARRY1;JA |
00003300: 2D 3E 20 C3 41 52 52 59 2D C6 4C 41 47 20 53 45 |-> .ARRY-.LAG SE|
00003310: 54 5A 45 4E 00 10 53 E8 3A 20 43 4C 43 3B 4E 45 |TZEN..S.: CLC;NE|
00003320: 49 4E 20 2D 3E 20 C3 41 52 52 59 2D C6 4C 41 47 |IN -> .ARRY-.LAG|
00003330: 20 4C 4F 45 53 43 48 45 4E 00 35 53 F2 3A 20 52 | LOESCHEN.5S.: R|
00003340: 4F 4C 3B C3 41 52 52 59 2D C6 4C 41 47 20 49 4E |OL;.ARRY-.LAG IN|
00003350: 20 C1 4B 4B 55 20 53 43 48 49 45 42 45 4E 00 45 | .KKU SCHIEBEN.E|
00003360: 53 FC 3A 20 4A 4D 50 57 45 49 54 45 52 4C 00 68 |S.: JMPWEITERL.h|
00003370: 53 06 3B 53 45 54 43 41 52 52 59 31 20 53 45 43 |S.;SETCARRY1 SEC|
00003380: 3B C3 41 52 52 59 2D C6 4C 2E 20 53 45 54 5A 45 |;.ARRY-.L. SETZE|
00003390: 4E 00 8C 53 10 3B 20 52 4F 4C 3B C3 41 52 52 59 |N..S.; ROL;.ARRY|
000033A0: 2D C6 4C 2E 20 49 4E 20 C1 4B 4B 55 20 53 43 48 |-.L. IN .KKU SCH|
000033B0: 49 45 42 45 4E 00 A7 53 1A 3B 57 45 49 54 45 52 |IEBEN..S.;WEITER|
000033C0: 4C 20 49 4E 59 3B DA 41 45 48 4C 45 52 20 2B 31 |L INY;.AEHLER +1|
000033D0: 00 C1 53 24 3B 20 43 50 59 23 24 30 38 3B DA 41 |..S$; CPY#$08;.A|
000033E0: 45 48 4C 45 52 20 3C 38 20 3F 00 F7 53 2E 3B 20 |EHLER <8 ?..S.; |
000033F0: 42 43 43 42 49 54 56 45 52 47 4C 31 3B 4A 41 20 |BCCBITVERGL1;JA |
00003400: 2D 3E 20 4E 41 45 43 48 53 54 45 20 DA 49 46 46 |-> NAECHSTE .IFF|
00003410: 45 52 20 41 55 53 20 C2 49 54 4D 55 53 54 45 52 |ER AUS .ITMUSTER|
00003420: 00 2A 54 38 3B 20 53 54 41 24 30 33 41 42 3B C8 |.*T8; STA$03AB;.|
00003430: 49 47 48 2D C2 59 54 45 20 5A 57 49 53 43 48 45 |IGH-.YTE ZWISCHE|
00003440: 4E 53 50 45 49 43 48 45 52 4E 20 49 4E 20 24 30 |NSPEICHERN IN $0|
00003450: 33 C1 C2 00 30 54 42 3B 3B 00 55 54 4C 3B 20 4C |3...0TB;;.UTL; L|
00003460: 44 59 23 24 30 30 3B 57 49 45 20 4F 42 45 4E 2C |DY#$00;WIE OBEN,|
00003470: 20 46 55 45 52 20 CC 4F 57 2D C2 59 54 45 00 62 | FUER .OW-.YTE.b|
00003480: 54 56 3B 20 4C 44 41 23 24 30 30 00 7B 54 60 3B |TV; LDA#$00.{T`;|
00003490: 42 49 54 56 45 52 47 4C 32 20 4C 44 58 24 30 34 |BITVERGL2 LDX$04|
000034A0: 31 44 2C 59 00 88 54 6A 3B 20 43 50 58 23 24 33 |1D,Y..Tj; CPX#$3|
000034B0: 31 00 9A 54 74 3B 20 42 45 51 53 45 54 43 41 52 |1..Tt; BEQSETCAR|
000034C0: 52 59 32 00 A3 54 7E 3B 20 43 4C 43 00 AC 54 88 |RY2..T~; CLC..T.|
000034D0: 3B 20 52 4F 4C 00 BC 54 92 3B 20 4A 4D 50 57 45 |; ROL..T.; JMPWE|
000034E0: 49 54 45 52 4D 00 CE 54 9C 3B 53 45 54 43 41 52 |ITERM..T.;SETCAR|
000034F0: 52 59 32 20 53 45 43 00 D7 54 A6 3B 20 52 4F 4C |RY2 SEC..T.; ROL|
00003500: 00 E7 54 B0 3B 57 45 49 54 45 52 4D 20 49 4E 59 |..T.;WEITERM INY|
00003510: 00 F4 54 BA 3B 20 43 50 59 23 24 30 38 00 06 55 |..T.; CPY#$08..U|
00003520: C4 3B 20 42 43 43 42 49 54 56 45 52 47 4C 32 00 |.; BCCBITVERGL2.|
00003530: 38 55 CE 3B 20 53 54 41 24 30 33 41 41 3B CC 4F |8U.; STA$03AA;.O|
00003540: 57 2D C2 59 54 45 20 5A 57 49 53 43 48 45 4E 53 |W-.YTE ZWISCHENS|
00003550: 50 45 49 43 48 45 52 4E 20 49 4E 20 24 30 33 C1 |PEICHERN IN $03.|
00003560: C1 00 3E 55 D8 3B 3B 00 4B 55 E2 3B 20 4C 44 41 |..>U.;;.KU.; LDA|
00003570: 23 24 37 30 00 58 55 EC 3B 20 4C 44 59 23 24 30 |#$70.XU.; LDY#$0|
00003580: 33 00 72 55 F6 3B 20 4A 53 52 24 42 42 41 32 3B |3.rU.; JSR$BBA2;|
00003590: 2D 32 35 36 20 49 4E 20 C6 C1 C3 00 92 55 00 3C |-256 IN .....U.<|
000035A0: 20 4A 53 52 24 42 46 42 34 3B C6 C1 C3 20 3D 20 | JSR$BFB4;... = |
000035B0: 2D C6 C1 C3 20 28 3D 32 35 36 29 00 AB 55 0A 3C |-... (=256)..U.<|
000035C0: 20 4A 53 52 24 42 43 30 43 3B C6 C1 C3 20 2D 3E | JSR$BC0C;... ->|
000035D0: 20 C1 D2 C7 00 B1 55 14 3C 3B 00 BF 55 1E 3C 20 | .....U.<;..U.< |
000035E0: 4C 44 59 24 30 33 41 42 00 DE 55 28 3C 20 4A 53 |LDY$03AB..U(< JS|
000035F0: 52 24 42 33 41 32 3B C8 49 47 48 2D C2 59 54 45 |R$B3A2;.IGH-.YTE|
00003600: 20 49 4E 20 C6 C1 C3 00 0F 56 32 3C 20 4A 53 52 | IN .....V2< JSR|
00003610: 24 42 41 33 30 3B C6 C1 C3 20 3D 20 C1 D2 C7 20 |$BA30;... = ... |
00003620: 2A 20 C6 C1 C3 20 28 3D 32 35 36 20 2A 20 C8 49 |* ... (=256 * .I|
00003630: 47 48 2D C2 59 54 45 29 00 28 56 3C 3C 20 4A 53 |GH-.YTE).(V<< JS|
00003640: 52 24 42 43 30 43 3B C6 C1 C3 20 2D 3E 20 C1 D2 |R$BC0C;... -> ..|
00003650: C7 00 36 56 46 3C 20 4C 44 59 24 30 33 41 41 00 |..6VF< LDY$03AA.|
00003660: 54 56 50 3C 20 4A 53 52 24 42 33 41 32 3B CC 4F |TVP< JSR$B3A2;.O|
00003670: 57 2D C2 59 54 45 20 49 4E 20 C6 C1 C3 00 90 56 |W-.YTE IN .....V|
00003680: 5A 3C 20 4A 53 52 24 42 38 36 41 3B C6 C1 C3 20 |Z< JSR$B86A;... |
00003690: 3D 20 C1 D2 C7 20 2B 20 C6 C1 C3 20 28 3D 32 35 |= ... + ... (=25|
000036A0: 36 20 2A 20 C8 49 47 48 2D C2 59 54 45 20 2B 20 |6 * .IGH-.YTE + |
000036B0: CC 4F 57 2D C2 59 54 45 29 00 9D 56 5B 3C 20 4C |.OW-.YTE)..V[< L|
000036C0: 44 58 23 24 35 30 00 AA 56 5C 3C 20 4C 44 59 23 |DX#$50..V\< LDY#|
000036D0: 24 30 33 00 DC 56 5D 3C 20 4A 53 52 24 42 42 44 |$03..V]< JSR$BBD|
000036E0: 34 3B C5 52 47 45 42 4E 49 53 20 5A 57 49 53 43 |4;.RGEBNIS ZWISC|
000036F0: 48 45 4E 53 50 45 49 43 48 45 52 4E 20 49 4E 20 |HENSPEICHERN IN |
00003700: 24 30 33 35 30 00 E2 56 64 3C 3B 00 04 57 6E 3C |$0350..Vd<;..Wn<|
00003710: 20 4A 53 52 24 42 44 44 44 3B C6 C1 C3 20 2D 3E | JSR$BDDD;... ->|
00003720: 20 C1 D3 C3 C9 C9 2D D3 54 52 49 4E 47 00 11 57 | .....-.TRING..W|
00003730: 78 3C 20 4C 44 59 23 24 30 30 00 40 57 82 3C 44 |x< LDY#$00.@W.<D|
00003740: 45 5A 41 55 53 32 20 4C 44 41 24 30 31 30 30 2C |EZAUS2 LDA$0100,|
00003750: 59 3B DA 49 46 46 45 52 20 41 55 53 20 C1 D3 C3 |Y;.IFFER AUS ...|
00003760: C9 C9 2D D3 54 52 49 4E 47 00 54 57 8C 3C 20 43 |..-.TRING.TW.< C|
00003770: 4D 50 23 24 30 30 3B C5 4E 44 45 20 3F 00 71 57 |MP#$00;.NDE ?.qW|
00003780: 96 3C 20 42 45 51 57 45 49 54 45 52 4E 3B 4A 41 |.< BEQWEITERN;JA|
00003790: 20 2D 3E 20 57 45 49 54 45 52 00 96 57 A0 3C 20 | -> WEITER..W.< |
000037A0: 53 54 41 24 30 34 30 31 2C 59 3B DA 49 46 46 45 |STA$0401,Y;.IFFE|
000037B0: 52 20 2D 3E 20 C2 49 4C 44 53 43 48 49 52 4D 00 |R -> .ILDSCHIRM.|
000037C0: AA 57 AA 3C 20 49 4E 59 3B DA 41 45 48 4C 45 52 |.W.< INY;.AEHLER|
000037D0: 20 2B 31 00 BA 57 B4 3C 20 4A 4D 50 44 45 5A 41 | +1..W.< JMPDEZA|
000037E0: 55 53 32 00 D2 57 BE 3C 57 45 49 54 45 52 4E 20 |US2..W.<WEITERN |
000037F0: 4C 44 41 23 24 30 34 3B 3E C4 3C 00 EE 57 C8 3C |LDA#$04;>.<..W.<|
00003800: 20 53 54 41 24 30 34 30 30 3B 2D 3E 20 C2 49 4C | STA$0400;-> .IL|
00003810: 44 53 43 48 49 52 4D 00 FF 57 D2 3C 20 4C 44 41 |DSCHIRM..W.< LDA|
00003820: 23 24 33 41 3B 3E 3A 3C 00 1B 58 DC 3C 20 53 54 |#$3A;>:<..X.< ST|
00003830: 41 24 30 34 30 31 3B 2D 3E 20 C2 49 4C 44 53 43 |A$0401;-> .ILDSC|
00003840: 48 49 52 4D 00 21 58 E6 3C 3B 00 2E 58 E8 3C 20 |HIRM.!X.<;..X.< |
00003850: 4C 44 41 23 24 35 30 00 3B 58 EA 3C 20 4C 44 59 |LDA#$50.;X.< LDY|
00003860: 23 24 30 33 00 55 58 EC 3C 20 4A 53 52 24 42 42 |#$03.UX.< JSR$BB|
00003870: 41 32 3B D7 45 52 54 20 49 4E 20 C6 C1 C3 00 62 |A2;.ERT IN ....b|
00003880: 58 F0 3C 20 4C 44 41 23 24 30 31 00 77 58 FA 3C |X.< LDA#$01.wX.<|
00003890: 20 4A 53 52 24 42 44 37 45 3B C6 C1 C3 20 2B 31 | JSR$BD7E;... +1|
000038A0: 00 84 58 04 3D 20 4C 44 58 23 24 35 30 00 91 58 |..X.= LDX#$50..X|
000038B0: 0E 3D 20 4C 44 59 23 24 30 33 00 BB 58 18 3D 20 |.= LDY#$03..X.= |
000038C0: 4A 53 52 24 42 42 44 34 3B 57 49 45 44 45 52 20 |JSR$BBD4;WIEDER |
000038D0: 41 42 53 50 45 49 43 48 45 52 4E 20 49 4E 20 24 |ABSPEICHERN IN $|
000038E0: 30 33 35 30 00 C1 58 22 3D 3B 00 CA 58 2C 3D 20 |0350..X"=;..X,= |
000038F0: 52 54 53 00 D0 58 36 3D 3B 00 D8 58 40 3D 2E 53 |RTS..X6=;..X@=.S|
00003900: 54 00 00 00 |T... |
X...D.; =============================..
N.; DEZ-HEX-BITM.SRC.7 X.; =============
================.Z ..; UMRECHNUNG VON DE
ZIMALZAHLEN.Z ..; IN HEXADEZIMALCODE UND
IN.. ..; UND BITMUSTER.. .; ==========
===================.R ..; PROGRAMMLAENGE
: 1163 BYTE.. ..; 52000 BIS 53162.. ..;
$CB20 BIS $CFAB..!..;..!...BA $CB20..!..
;.<!H.; INTERRUPTVEKTOR; PROGR. INIT..`!
R.; -----------------------------.~!.. S
EI;INTERRUPTFLAG SETZEN..!.. LDA#<(INTER
);NEUE INTERRUPTROUTINE (LOW).V!.. STA$0
314;INTERRUPTVECTOR (LOW)..".. LDA
#>(INTER); (HIGH).0
".. STA$0315; (HIGH
).O".. CLI;INTERUPTFLAG LOESCHEN.Y".. JS
RKLEIN;TEXTZEICHENSATZ EINSCHALTEN.."..
RTS.."".;..",.;.."6.; NEUE INTERRUPTROUT
INE.F"@.; ---------------------.."J.INTE
R LDA$C5;TASTENCODE LESEN..#T. CMP#$04;M
IT CODE FUER >F1< VERGLEICHEN.7#^. BNEWE
ITERA;UNGLEICH -> WEITER.D#H. LDX#$80.O#
R. STX$DC0E;TIMER AUS, INTERRUPT SPERREN
..#|. JSRZEILOE;OBERSTE ZEILE LOESCHEN..
#.. JSRDEZ;UNTERPROGRAMM >DEZ<..#.. JMPI
NTERALT;ZUR ALTEN INTERRUPTROUTINE..#..W
EITERA LDA$C5. $.. CMP#$05;MIT CODE FUER
>F3< VERGLEICHEN.0$.. BNEWEITERB.=$.. L
DX#$80.K$.. STX$DC0E.Z$B. JSRZEILOE.Z$L.
JSRHEX;UNTERPROGRAMM >HEX<..$V. JMPINTE
RALT..$..WEITERB LDA$C5.J$.. CMP#$06;MIT
CODE FUER >F5< VERGLEICHEN.Z$.. BNEWEIT
ERC..$.. LDX#$80..$.. STX$DC0E..%.. JSRZ
EILOE.&%.. JSRBITM;UNTERPROGRAMM >BITM<.
;%&.INTERALT LDX#$81.G%0. STX$DC0E;TIMER
EIN, INTERRUPT ZULASSEN..%:.WEITERC JMP
$EA31;ZUR ALTEN INTERRUPTROTINE..%D.;..%
N.;..%X.; ZEILE LOESCHEN.L%B.; ---------
-----..%L.ZEILOE LDY#$00;ZAEHLER..&V. LD
A#$20;CODE FUER SPACE.(&..NAESPA STA$040
0,Y;-> BILDSCHIRM.=&.. INY;ZAEHLER + 1.`
&.. CPY#$28;40. SPALTE ERREICHT ?..&.. B
CCNAESPA;NEIN -> NAECHSTE SPALTE..&.. RT
S..&..;..&..;..&..; AUF KLEINSCHRIFT UMS
CHALTEN..&..; --------------------------
-..'..KLEIN LDA#$0E;ASCII-CODE 14..'.. J
SR$E716;-> BILDSCHIRM.;'.. LDA#$80;UMSCH
ALTUNG DURCH._'.. STA$0291;>SHIFT-C=< BL
OCKIEREN.H'.. RTS.N'..;.T'..;..'F.; UMWA
NDLUNG VON DEZIMALZAHLEN..'P.; ---------
-------------------.F'Z.DEZ CLD.W'.. LDX
#$04;>D<..'.. STX$0400;-> BILDSCHIRM..(.
. LDX#$3A;>:<. (.. STX$0401;-> BILDSCHIR
M.5(.. LDY#$00;ZAEHLER.F(.. LDA#$2E;>.<.
M( .PUNKTAUS1 STA$0402,Y;-> BILDSCHIRM..
(*. INY;ZAEHLER + 1..(4. CPY#$05;EINGABE
LAENGE ERREICHT ?.V(>. BCCPUNKTAUS1;NEIN
-> WEITER >.< AUSGEBEN..(H.; DEZIMALZAH
L EINGEBEN:..)R. LDX#$40;TASTEN-.')W. ST
X$028A;DAUERFUNKTION AUS.4)\. LDY#$00.B)
A. STY$033C.C)F.EINLESENA INC$033C;ZAEHL
ER+1..)K.GET1 JSR$FF9F;TASTATURABFRAGE..
)Z. JSR$FFE4;ZEICHEN AUS TASTATURPUFFER.
J). CMP#$00;KEIN ZEICHEN ?..).. BEQGET1
;JA -> WEITER ABFRAGEN..*.. CMP#$14;>DEL
< ?./*.. BEQEINZEILO1;JA -> EIN ZEICHEN
LOESCHEN.G*.. CMP#$0D;>RETURN< ?.N*.. BE
QEINGEND1;JA -> EINGABE BEENDEN.|*.. LDY
$033C..*.. CPY#$06;ZAEHLER >= 6 ?..*.. B
CSGET1;JA -> WEITER ABFRAGEN..*.. CMP#$3
0;ASCII-CODE VON >0<..+.. BCCGET1;EINGEL
ESENES ZEICHEN < 0 -> WIEDERHOLUNG."+..
CMP#$3A;>:<.Y+.. BCSGET1;EINGELESENES ZE
ICHEN >= : -> WIEDERHOLUNG.+.. STA$0401
,Y;ZEICHEN -> BILDSCHIRM..+.. JMPEINLESE
NA;WEITERES ZEICHEN EINLESEN.B+..EINZEIL
O1 LDY$033C..+.. CPY#$02;ZAEHLER < 2 ?..
,B. BCCGET1;JA -> WEITER ABFRAGEN..,D. D
EC$033C;ZAEHLER -1.*,F. LDA#$2E;>.<.8,H.
LDY$033C.O,J. STA$0401,Y;LETZTES ZEICHE
N MIT >.< UEBERSCHREIBEN..,L. JMPGET1;ZU
RUECK ZUR ABFRAGE..,N.EINGEND1 LDY$033C.
A,P. CPY#$06;ZAEHLER < 6 ?..,R. BCCGET1;
JA -> WEITER ABFRAGEN..,T.;..-V. LDX#$00
;TASTENDAUERFUNKTION.,-X. STX$028A;WIEDE
R EINSCHALTEN.Q-..; MAXIMALWERT IN CASSE
TTENPUFFER.B-.. LDX#$36;>6<.P-.. STX$034
0..-.. LDX#$35;>5<..-.. STX$0341..-.. ST
X$0342..-$. STX$0344..-.. LDX#$33;>3<.J-
8. STX$0343..-B.; MIT MAX.-WERT VERGLEIC
HEN:..-L. LDY#$00...V.VERGLMAX INY;ZAEHL
ER +1.7.`. LDA$0401,Y;EINGEGEBENE ZIFFER
.X.J. CMP$033F,Y;VERGLEICHSZIFFER.T.T. B
CCWEITERD;> -> WEITER...~. BNEZURUECK;<
-> ZURUECK..... CPY#$05;5. ZIFFER ERREIC
HT ?..... BCCVERGLMAX;NEIN -> WEITER VER
GLEICHEN..... JMPWEITERD../..ZURUECK JSR
ZEILOE../.. JMPDEZ.0/..; ZIFFERN IN FAC
EINLESEN:.[/D.WEITERD LDX#$02;ADR. AUF Z
IFFERN (LOW).N/N. STX$22;IN $22../X. LDX
#$04;ADR. (HIGH)../.. STX$23;IN $22../..
LDA#$05;STRINGLAENGE.W/.. JSR$B7B5;ZIFF
ERNSTRING IN FAC../..; UM 1 ERHOEHEN:../
.. LDA#$01..0.. JSR$BD7E;FAC +1.+0..; FA
C IN $0350 SPEICHERN.80(. LDX#$50.E02. L
DY#$03.T0<. JSR$BBD4;FAC ALS MFLPT IN $0
350 SPEICHERN.Z0F.;..0P.;..0Z. JSRTABDEZ
;VERGLEICHSWERTE EINRICHTEN.X0D. JSRDEZH
EX;HEXCODE BERECHNEN UND AUSGEBEN..1N. J
SRDEZBITM;BITMUSTER BERECHNEN UND AUSGEB
EN..1X. RTS..1..;..1..;.$1..;.I1..; UMWA
NDL. VON HEXADEZIMALZAHLEN.N1..; -------
-----------------------.Z1..HEX CLD..1..
LDX#$24;>$<..1.. STX$040A;-> BILDSCHIRM
..1". LDX#$3A;>:<.T1,. STX$040B;-> BILDS
CHIRM..16. LDY#$00;ZAEHLER..1@. LDA#$2E;
>.<.!2J.PUNKTAUS2 STA$040C,Y;-> BILDSCHI
RM.52T. INY;ZAEHLER +1.[2^. CPY#$04;EING
ABELAENGE=4 ERREICHT..2H. BCCPUNKTAUS2;N
EIN -> PUNKT AUF BILDSCHIRM..2R.; HEXCOD
E EINGEBEN:..2|. JMPWEITERI.S2..TAB6 .BY
58,59,60,61,62,63,64..2..WEITERI LDX#$40
;TASTENDAUERFUNKTION..3.. STX$028A;AUSSC
HALTEN.+3.. LDY#$00;ZAEHLER1.K3 . STY$03
3C;ZWISCHENSPEICHERN.N3..EINLESENB INC$0
33C;ZAEHLER1 +1..3..GET2 JSR$FF9F;TASTAT
URABFRAGE..3.. JSR$FFE4;ZEICHEN AUS TAST
ATURPUFFER.S3.. CMP#$00;KEIN ZEICHEN..3.
. BEQGET2;JA -> WEITER ABFRAGEN..4.. CMP
#$14;>DEL< ?.84.. BEQEINZEILO2;JA -> EIN
ZEICHEN LOESCHEN.P4.. CMP#$0D;>RETURN<
?.W4.. BEQEINGEND2;JA -> EINGABE BEENDEN
..4.. LDY$033C. 4.. CPY#$05;ZAEHLER1 >5
?.C4.. BCSGET2;JA -> WEITER ABFRAGEN.Y4.
. LDY#$00;ZAEHLER2..5..ZWICO CMPTAB6,Y;Z
EICHEN ZWISCHEN >9< UND >A< ?./5.. BEQGE
T2;JA -> WEITER ABFRAGEN.D5.. INY;ZAEHLE
R2 +1.C5B. CPY#$07;ANZAHL ZEICHEN =7..5D
. BCCZWICO;NEIN -> WEITER VERGLEICHEN..5
F. CMP#$30;ZEICHEN < >0< ?.L5H. BCCGET2;
JA -> WEITER ABFRAGEN..5J. CMP#$47;ZEICH
EN >= >G< ?..6L. BCSGET2;JA -> WEITER AB
FRAGEN..6N. LDY$033C.A6P. STA$040B,Y;ZEI
CHEN -> BILDSCHIRM.M6R. JMPEINLESENB;WEI
TERES ZEICHEN EINLESEN..6T.EINZEILO2 LDY
$033C;EIN ZEICHEN LOESCHEN..6V. CPY#$02;
UND DURCH PUNKT ERSETZEN.L6X. BCCGET2.Z6
Z. DEC$033C..6.. LDA#$2E..6.. LDY$033C..
7.. STA$040B,Y..7.. JMPGET2.47..EINGEND2
LDY$033C;EINGABEENDE.A7.. CPY#$05.N7..
BCCGET2.O7.. LDX#$00;TASTENDAUERFUNKTION
..7.. STX$028A;EINSCHALTEN..7L.;..7V.;..
7.. JSRTABDEZ..7.. JSRHEXDEZ;HEXCODE IN
DEZIMAL UMWANDELN UND AUSGEBEN..7..;..7.
. LDA#$50..7.. LDY#$03.$8.. JSR$BBA2;EIN
GEGEBENER WERT IN FAC.18.. LDA#$01.F8F.
JSR$BD7E;FAC +1.S8P. LDX#$50.`8Z. LDY#$0
3..8.. JSR$BBD4;WIEDER ABSPEICHERN..8..
JSRTABDEZ;VERGLEICHSWERTE WIEDER HERSTEL
LEN..8.. JSRDEZBITM;BITMUSTER ERRECHNEN
UND AUSGEBEN..8.. RTS..8..;..8..;..84.;.
.9>.;.$9H.; UMWANDLUNG VON BITMUSTERN.D9
R.; -------------------------.Q9\.BITM C
LD.B9F. LDA#$25;>%<.~9P. STA$0413;-> BIL
DSCHIRM..9Z. LDA#$3A;>:<..9.. STA$0414;-
> BILDSCHIRM..9.. LDY#$00;ZAEHLER.Q9.. L
DA#$2E;>.<..9..PUNKTAUS3 STA$0415,Y;-> B
LDSCHIRM..:.. INY;ZAEHLER +1.4:.. CPY#$1
0;EINGABELAENGE=16 ERREICHT ?.D:.. BCCPU
NKTAUS3;NEIN -> WEITER PUNKT AUSGEBEN.~:
J.; BITMUSTER EINGEBEN:..:T. LDX#$40;TAS
TENDAUERFUNKTION..:V. STX$028A;AUSSCHALT
EN.N:X. LDY#$00;ZAEHLER..:Z. STY$033C;ZW
ISCHENSPEICHERN..;..EINLESENC INC$033C;Z
AEHLER +1.2;..GET3 JSR$FF9F;TASTATURABFR
AGE.[;.. JSR$FFE4;ZEICHEN AUS TASTATURPU
FFER.W;.. CMP#$00;KEIN ZEICHEN ?..;.. BE
QGET3;JA -> WEITER ABFRAGEN..;.. CMP#$14
;>DEL< ?..;.. BEQEINZEILO3;JA -> EIN ZEI
CHEN LOESCHEN..;.. CMP#$0D;>RETURN< ?..<
.. BEQEINGEND3;JA -> EINGABEENDE.%<.. LD
Y$033C.N<.. CPY#$11;EINGABELAENGE=16 ERR
EICHT ?.Q<.. BCSGET3;JA -> WEITER ABFRAG
EN..<.. CMP#$30;ZEICHEN <0 ?..<.. BCCGET
3;JA -> WEITER ABFRAGEN.I<.. CMP#$32;ZEI
CHEN >=2 ?..<.. BCSGET3;JA -> WEITER ABF
RAGEN..=.. STA$0414,Y;ZEICHEN -> BILDSCH
IRM.>=.. JMPEINLESENC;WEITERES ZEICHEN E
INLESEN.J=..EINZEILO3 LDY$033C;EIN ZEICH
EN LOESCHEN..=.. CPY#$02;UND DURCH PUNKT
ERSETZEN..=.. BCCGET3..=.. DEC$033C..=.
. LDA#$2E.F=.. LDY$033C.V=.. STA$0414,Y.
.=.. JMPGET3..>..EINGEND3 LDY$033C;EINGA
BEENDE..>.. CPY#$11..>.. BCCGET3.,>.. LD
X#$00.:>.. STX$028A.@>J.;.J>T. JSRTABDEZ
;VERGLEICHSWERTE EINRICHTEN..>~. JSRBITM
DEZ;DEZIMALZAHL ERRECHNEN UND AUSGEBEN.K
>.. JSRDEZHEX;HEXCODE ERRECHNEN UND AUSG
EBEN.Q>..;.Z>.. RTS..>..;..>.';..>.';..?
$'; TABELLEN ZUR UMRECHNUNG.(?.'; ------
-----------------.G?8'TAB1 .TX"012345678
9ABCDEF".[?B'TAB2 .TX"-4096".N?L'TAB3 .T
X"-256"..?V'TAB4 .TX"-16"..?`'TAB5 .TX"-
1"..?J';..?T';..?.*;..?.+;.O?.+; VERGLEI
CHSWERTE ALS MFLPT ABSP...?.+; ---------
----------------------..@ +TABDEZ LDX#<(
TAB2);ADR. LOW VON TAB2.3@*+ STX$22;NACH
$22.W@4+ LDX#>(TAB2);ADR. HIGH VON TAB2
.L@>+ STX$23;NACH $23..@H+ LDA#$05;STRIN
GLAENGE VON TAB2..@R+ JSR$B7B5;VERGLEICH
SWERT=-4096 IN FAC.N@\+ LDX#$60;>-4096<.
.@F+ LDY#$03;ALS MFLPT ABSPEICHERN..AP+
JSR$BBD4;NACH $0360..AZ+;.&A.+ LDX#<(TAB
3);S.O..2A.+ STX$22.CA.+ LDX#>(TAB3).OA.
+ STX$23.\A.+ LDA#$04.JA.+ JSR$B7B5.~AJ+
LDX#$70;>-256<..AT+ LDY#$03;ALS MFLPT A
BSPEICHERN..A.+ JSR$BBD4;NACH $0370..A.+
;.VA.+ LDX#<(TAB4);S.O...A.+ STX$22..A.,
LDX#>(TAB4)..A., STX$23..B., LDA#$03..B
$, JSR$B7B5.-B., LDX#$80;>-16<.PB8, LDY#
$03;ALS MFLPT ABSPEICHERN.IBB, JSR$BBD4;
NACH $0380.OBL,;..BV, LDX#<(TAB5);S.O...
B`, STX$22..BJ, LDX#>(TAB5)..BT, STX$23.
.B~, LDA#$02.IB., JSR$B7B5..B., LDX#$90;
>-1<..B., LDY#$03;ALS MFLPT ABSPEICHERN.
.C., JSR$BBD4;NACH $0390..C.,;.&C., RTS.
,C..;.2C..;.OC..; DEZIMALWERT -> HEXCODE
.LC..; ----------------------.C./DEZHEX
LDA#$50..C./ LDY#$03..C./ JSR$BBA2;EING
EGEBENER WERT IN FAC..C&/ LDY#$00..C0/ S
TY$033C;ZAEHLER1 = ZEIGER AUF ZIFFER IN
TAB1.!D:/ STY$033D;ZAEHLER2 = ANZAHL HEX
-ZIFFERN=4.NDD/ LDY#$60;ZEIGER (LOW) AUF
VERGLEICHSWERT.\DN/ STY$033E.MDX/ LDX#$
24;>$<..DB/ STX$040A;-> BILDSCHIRM..DL/
LDX#$3A;>:<..DV/ STX$040B;-> BILDSCHIRM.
TD./ZAEHLTAB1 LDA$033E;ZEIGER..D./ LDY#$
03;AUF VERGLEICHSWERT..E./ JSR$B867;FAC
= FAC - VERGLEICHSWERT.:E./ JSR$BC2B;VOR
ZEICHEN FAC.QE./ CMP#$01;NEGATIV ?.NE./
BNEWEITERF;JA -> WEITER..E./ INC$033C;ZA
EHLER1 +1..EF/ JMPZAEHLTAB1..EP/WEITERF
LDY$033C..EZ/ LDX$033D..E./ LDATAB1,Y;HE
X-ZIFFER AUS TAB1..E./ STA$040C,X;-> BIL
DSCHIRM..F./ LDA$033E;ZEIGER.3F.0 LDY#$0
3;AUF VERGLEICHSWERT.VF.0 JSR$B850;FAC =
SPEICHER - FAC.OF.0 JSR$BFB4;FAC = -FAC
.XF 0 CLC. F*0 LDA$033E;ZEIGER AUF VERGL
EICHSWERT.AF40 ADC#$10;WEITERSETZEN (+$1
0).OF>0 STA$033E..FH0 LDY#$00;ZAEHLER1..
GR0 STY$033C;ZURUECKSETZEN..G\0 INC$033D
;ZAEHLER2.3GF0 LDY$033D;WEITERSETZEN.NGP
0 CPY#$04;ZAEHLER2 <4 ?..GZ0 BCCZAEHLTAB
1;JA -> WEITERE HEXZIFFER ERRECHNEN..G.0
RTS..G.0;..G.0;..GH2;..GR2;.BG.2; DEZIM
ALWERT -> BITMUSTER..G.2; --------------
----------..G.2DEZBITM LDA#$50..H.2 LDY#
$03.)H.3 JSR$BBA2;EINGEGEBENEN WERT IN F
AC.6H.3 LDA#$90.CH.3 LDY#$03.^H"3 JSR$B8
67;FAC = FAC -1..H,3 JSR$B7F7;FAC ALS 2-
BYTE-INTEGER IN Y/A..H63 STA$03AA;HIGH-B
YTE IN $03AA.KH@3 STY$03AB;LOW-BYTE IN $
03AB..HJ3 LDA#$25;>%<..HT3 STA$0413;-> B
ILDSCHIRM..I^3 LDA#$3A;>:<.%IH3 STA$0414
;-> BILDSCHIRM.:IR3 LDY#$00;ZAEHLER.MI|3
BITAUS1 ASL$03AA;7. BIT VON HIGH-BYTE IN
CARRY..I.3 BCSBIT1;CARRY=1 -> >1< AUSGE
BEN..I.3 LDA#$30;>0<..I.3 JMPWEITERG.HI.
3BIT1 LDA#$31;>1<..I.3WEITERG STA$0415,Y
;-> BILDSCHIRM..J.3 INY;ZAEHLER +1..JB3
CPY#$08;ZAEHLER <8 ?.NJL3 BCCBITAUS1;JA
-> WEITERE DUALZIFFER ERRECHNEN.[JV3 LDY
#$00..J.3BITAUS2 ASL$03AB;7. BIT VON LOW
-BYTE IN CARRY..J.3 BCSBIT2;S.O...J.3 LD
A#$30..J.3 JMPWEITERH.MJ.4BIT2 LDA#$31..
J.4WEITERH STA$041D,Y..J.4 INY..J&4 CPY#
$08..K04 BCCBITAUS2..K:4 RTS..KD4;..KN4;
.%K.6;.BK.6; HEXCODE -> DEZIMALWERT._KD6
; ----------------------.RKN6HEXDEZ LDY#
$00..KX6 STY$033C;ZAEHLER1 = ANZAHL EING
EGEBENE ZIFFERN (=4)..K.6 STY$033D;ZAEHL
ER2 = ANZAHL VERGLEICHSZIFFERN (=16)..K.
6 LDY#$60;ZEIGER AUF.)L.6 STY$033E;VERGL
EICHSWERTE AUS TAB2...TAB5.BL.7 JSR$BC0C
;FAC -> ARG.HL.7 JSR$B853;FAC = ARG - FA
C (FAC=0).UL.7 LDX#$50..L.7 LDY#$03..L(7
JSR$BBD4;ZWISCHENSPEICHERN IN $0350.ML2
7NAEZI LDA$033E;VERGLEICHSWERT..L<7 LDY#
$03;(-4096...-1)..LF7 JSR$BBA2;IN FAC..M
P7 JSR$BFB4;FAC = -FAC.<MZ7 LDX$033E;POS
ITIVE VERGLEICHSWERTE.TMD7 LDY#$03;(4096
...1).}MN7 JSR$BBD4;WIEDER IN ZWISCHENSP
EICHER..MX7 LDA$033E..M.7 LDY#$03..M.7 J
SR$B850;FAC =0.CM.7HEXVERGL LDY$033C..M.
7 LDA$040C,Y;ZIFFER AUS HEXCODE..M.7 LDY
$033D.#NH7 CMPTAB1,Y;MIT ZIFFER AUS TAB1
VERGLEICHEN.DNR7 BEQWEITERJ;GLEICH -> W
EITER.RN.7 LDA$033E._N.7 LDY#$03..N.7 JS
R$B867;FAC = VERGLEICHSWERT + FAC..N.7 I
NC$033D;ZAEHLER2 +1.FN.8 JMPHEXVERGL;WEI
TER VERGLEICHEN.ZN.8WEITERJ LDA#$50..N.8
LDY#$03..O"8 JSR$B867;FAC = ZWISCHENSPE
ICHER + FAC..O,8 LDX#$50.,O68 LDY#$03.TO
@8 JSR$BBD4;SUMME IN ZWISCHENSPEICHER.AO
B8 LDY#$00..OD8 STY$33D;ZAEHLER2 ZURUECK
SETZEN..OJ8 CLC..OT8 LDA$033E;ZEIGER AUF
.CO^8 ADC#$10;VERGLEICHSWERT..OC8 STA$03
3E;WEITERSETZEN..OH8 INC$033C;ZAEHLER1 +
1..PR8 LDY$033C.!P|8 CPY#$04;ZAEHLER1 <4
?.EP.8 BCCNAEZI;JA -> NAECHSTE ZIFFER.N
P.8 LDA#$50;ZWISCHENSPEICHER (=ENDWERT).
{P.8 LDY#$03..P.8 JSR$BBA2;IN FAC..PB8 J
SR$BDDD;FAC -> ASCII-STRING AB $0100.PPL
8 LDY#$00;ZAEHLER..PV8DEZAUS1 LDA$0100,Y
;ZIFFER AUS ASCII-STRING..Q.8 CMP#$00;EN
DE ?./Q.8 BEQWEITERK;JA ->WEITER.TQ.8 ST
A$0401,Y;ZIFFER -> BILDSCHIRM.HQ.8 INY;Z
AEHLER +1..Q.9 JMPDEZAUS1;WEITERE ZIFFER
AUSGEBEN..Q.9WEITERK LDA#$04;>D<.DQ.9 S
TA$0400;-> BILDSCHIRM.UQ&9 LDA#$3A;>:<..
Q09 STA$0401;-> BILDSCHIRM..Q:9 RTS..RD9
;..RN9;..R.:;.+R.:; BITMUSTER -> DEZIMAL
WERT.JR.:; ------------------------.FR.:
BITMDEZ LDY#$00;ZAEHLER..R.: LDA#$00;AKK
U LOESCHEN..RJ:BITVERGL1 LDX$0415,Y;ZIFF
ER AUS BITMUSTER.ART: CPX#$31;=1 ?..R.:
BEQSETCARRY1;JA -> CARRY-FLAG SETZEN..S.
: CLC;NEIN -> CARRY-FLAG LOESCHEN.5S.: R
OL;CARRY-FLAG IN AKKU SCHIEBEN.ES.: JMPW
EITERL.HS.;SETCARRY1 SEC;CARRY-FL. SETZE
N..S.; ROL;CARRY-FL. IN AKKU SCHIEBEN..S
.;WEITERL INY;ZAEHLER +1.AS$; CPY#$08;ZA
EHLER <8 ?..S.; BCCBITVERGL1;JA -> NAECH
STE ZIFFER AUS BITMUSTER.*T8; STA$03AB;H
IGH-BYTE ZWISCHENSPEICHERN IN $03AB.0TB;
;.UTL; LDY#$00;WIE OBEN, FUER LOW-BYTE.B
TV; LDA#$00.{T`;BITVERGL2 LDX$041D,Y..TJ
; CPX#$31..TT; BEQSETCARRY2..T~; CLC..T.
; ROL..T.; JMPWEITERM.NT.;SETCARRY2 SEC.
WT.; ROL..T.;WEITERM INY..T.; CPY#$08..U
D; BCCBITVERGL2.8UN; STA$03AA;LOW-BYTE Z
WISCHENSPEICHERN IN $03AA.>UX;;.KU.; LDA
#$70.XU.; LDY#$03.RU.; JSR$BBA2;-256 IN
FAC..U.< JSR$BFB4;FAC = -FAC (=256)..U.<
JSR$BC0C;FAC -> ARG..U.<;..U.< LDY$03AB
..U(< JSR$B3A2;HIGH-BYTE IN FAC..V2< JSR
$BA30;FAC = ARG * FAC (=256 * HIGH-BYTE)
.(V<< JSR$BC0C;FAC -> ARG.6VF< LDY$03AA.
TVP< JSR$B3A2;LOW-BYTE IN FAC..VZ< JSR$B
86A;FAC = ARG + FAC (=256 * HIGH-BYTE +
LOW-BYTE)..V[< LDX#$50..V\< LDY#$03..V]<
JSR$BBD4;ERGEBNIS ZWISCHENSPEICHERN IN
$0350..VD<;..WN< JSR$BDDD;FAC -> ASCII-S
TRING..WX< LDY#$00.@W.<DEZAUS2 LDA$0100,
Y;ZIFFER AUS ASCII-STRING.TW.< CMP#$00;E
NDE ?.QW.< BEQWEITERN;JA -> WEITER..W <
STA$0401,Y;ZIFFER -> BILDSCHIRM..W.< INY
;ZAEHLER +1..W.< JMPDEZAUS2.RW.<WEITERN
LDA#$04;>D<..WH< STA$0400;-> BILDSCHIRM.
.WR< LDA#$3A;>:<..X.< STA$0401;-> BILDSC
HIRM.!X.<;..X.< LDA#$50.;X.< LDY#$03.UX.
< JSR$BBA2;WERT IN FAC.BX.< LDA#$01.WX.<
JSR$BD7E;FAC +1..X.= LDX#$50..X.= LDY#$
03..X.= JSR$BBD4;WIEDER ABSPEICHERN IN $
0350.AX"=;.JX,= RTS.PX6=;.XX@=.ST...
> CLICK IMAGE PREVIEW FOR FULL MODAL