TOKNEW.SRC
FILE INFORMATION
FILENAME(S): TOKNEW.SRC
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
5181df96ad6f52013809d79794e31be39863b387b789e409bcdd75cdba037928
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | TOKNEW.SRC | PRG | DuncanTwain | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 5A 00 9E 20 38 AC 34 30 39 36 00 1C |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20 50 2C 4F 4F 00 22 08 6E |.d..OPT P,OO.".n|
00000020: 00 3B 00 4A 08 78 00 3B 20 52 4F 4D AB 52 4F 55 |.;.J.x.; ROM.ROU|
00000030: 54 49 4E 45 20 5A 55 52 20 55 4D 57 AF 4C 55 4E |TINE ZUR UMW.LUN|
00000040: 47 20 49 4E 20 A4 4B 45 4E 53 00 50 08 82 00 3B |G IN .KENS.P...;|
00000050: 00 65 08 8C 00 3B 20 42 45 53 91 44 45 52 45 20 |.e...; BES.DERE |
00000060: A4 4B 45 4E 53 00 6B 08 96 00 3B 00 77 08 A0 00 |.KENS.k...;.w...|
00000070: 83 20 3D 20 24 38 33 00 83 08 AA 00 8F 20 3D 20 |. = $83...... = |
00000080: 24 38 46 00 8F 08 B4 00 99 20 B2 20 24 39 39 00 |$8F...... . $99.|
00000090: 95 08 BE 00 3B 00 A2 08 C8 00 43 48 41 52 20 B2 |....;.....CHAR .|
000000A0: 20 38 00 B1 08 D2 00 43 4F 55 4E 54 20 B2 20 31 | 8.....COUNT . 1|
000000B0: 31 00 BF 08 DC 00 50 4E 54 20 B2 20 24 37 31 00 |1.....PNT . $71.|
000000C0: DB 08 E6 00 51 55 4F 54 45 20 B2 20 24 32 32 20 |....QUOTE . $22 |
000000D0: 3B 20 48 4F 43 48 4B 4F 4D 4D 41 00 EC 08 F0 00 |; HOCHKOMMA.....|
000000E0: 51 55 4F 54 46 4C 47 20 B2 20 31 35 00 FD 08 FA |QUOTFLG . 15....|
000000F0: 00 54 58 54 50 54 52 20 B2 20 24 37 41 00 1F 09 |.TXTPTR . $7A...|
00000100: 04 01 42 55 46 46 45 52 20 B2 20 24 32 30 30 20 |..BUFFER . $200 |
00000110: 3B 20 45 49 4E 47 41 42 45 50 55 46 46 45 52 00 |; EINGABEPUFFER.|
00000120: 25 09 0E 01 3B 00 51 09 18 01 54 41 42 4C 45 20 |%...;.Q...TABLE |
00000130: B2 20 24 41 30 39 45 20 3B 20 54 41 42 45 4C 4C |. $A09E ; TABELL|
00000140: 45 20 44 45 52 20 42 45 46 45 48 4C 53 57 B0 54 |E DER BEFEHLSW.T|
00000150: 45 00 57 09 22 01 3B 00 73 09 2C 01 AC B2 20 24 |E.W.".;.s.,... $|
00000160: 43 30 30 30 20 3B 20 4E 45 55 45 20 52 4F 55 54 |C000 ; NEUE ROUT|
00000170: 49 4E 45 00 79 09 36 01 3B 00 A4 09 40 01 4C 44 |INE.y.6.;...@.LD|
00000180: 58 20 54 58 54 50 54 52 20 3B 20 5A 45 49 47 45 |X TXTPTR ; ZEIGE|
00000190: 52 20 41 55 46 20 45 52 53 54 45 53 20 5A 45 49 |R AUF ERSTES ZEI|
000001A0: 43 48 45 4E 00 CC 09 4A 01 4C 44 59 20 23 34 20 |CHEN...J.LDY #4 |
000001B0: 3B 20 5A 45 49 47 45 52 20 49 4E 20 55 4D 47 45 |; ZEIGER IN UMGE|
000001C0: 57 AF 45 4C 54 45 20 5A 45 49 4C 45 00 FB 09 54 |W.ELTE ZEILE...T|
000001D0: 01 53 54 59 20 51 55 4F 54 46 4C 47 20 3B 20 46 |.STY QUOTFLG ; F|
000001E0: 4C 41 47 20 46 55 45 52 20 48 4F 43 48 4B 4F 4D |LAG FUER HOCHKOM|
000001F0: 4D 41 20 4C 4F 45 53 43 48 45 4E 00 2B 0A 5E 01 |MA LOESCHEN.+.^.|
00000200: 82 43 48 41 52 20 4C 44 41 20 42 55 46 46 45 52 |.CHAR LDA BUFFER|
00000210: 2C 58 20 3B 20 5A 45 49 43 48 45 4E 20 41 55 53 |,X ; ZEICHEN AUS|
00000220: 20 50 55 46 46 45 52 20 48 4F C3 00 39 0A 68 01 | PUFFER HO..9.h.|
00000230: 42 50 4C 20 4E B0 4D 41 4C 00 4B 0A 72 01 43 4D |BPL N.MAL.K.r.CM|
00000240: 50 20 23 24 46 46 20 3B 20 50 49 00 75 0A 7C 01 |P #$FF ; PI.u.|.|
00000250: 42 45 51 20 54 41 4B 43 48 41 52 20 3B 20 4A 41 |BEQ TAKCHAR ; JA|
00000260: 2C 20 4B 4F 44 45 20 53 4F 20 55 45 42 45 52 4E |, KODE SO UEBERN|
00000270: 45 48 4D 45 4E 00 96 0A 86 01 49 4E 58 20 3B 20 |EHMEN.....INX ; |
00000280: 53 91 53 54 20 5A 45 49 43 48 45 4E 20 49 47 4E |S.ST ZEICHEN IGN|
00000290: B0 49 45 52 45 4E 00 A4 0A 90 01 42 4E 45 20 82 |.IEREN.....BNE .|
000002A0: 43 48 41 52 00 AA 0A 9A 01 3B 00 CB 0A A4 01 4E |CHAR.....;.....N|
000002B0: B0 4D 41 4C 20 43 4D 50 20 23 22 20 22 20 3B 20 |.MAL CMP #" " ; |
000002C0: 4C 45 45 52 5A 45 49 43 48 45 4E 00 E9 0A AE 01 |LEERZEICHEN.....|
000002D0: 42 45 51 20 54 41 4B 43 48 41 52 20 3B 20 55 45 |BEQ TAKCHAR ; UE|
000002E0: 42 45 52 4E 45 48 4D 45 4E 00 07 0B B8 01 53 54 |BERNEHMEN.....ST|
000002F0: 41 20 43 48 41 52 20 3B 20 5A 45 49 43 48 45 4E |A CHAR ; ZEICHEN|
00000300: 20 4D 45 52 4B 45 4E 00 22 0B C2 01 43 4D 50 20 | MERKEN."...CMP |
00000310: 23 51 55 4F 54 45 20 3B 20 48 4F 43 48 4B 4F 4D |#QUOTE ; HOCHKOM|
00000320: 4D 41 00 30 0B CC 01 42 45 51 20 A1 43 48 41 52 |MA.0...BEQ .CHAR|
00000330: 00 40 0B D6 01 42 49 54 20 51 55 4F 54 46 4C 47 |.@...BIT QUOTFLG|
00000340: 00 6A 0B E0 01 42 56 53 20 54 41 4B 43 48 41 52 |.j...BVS TAKCHAR|
00000350: 20 3B 20 83 2D 4D 4F 44 55 53 2C 20 53 4F 20 55 | ; .-MODUS, SO U|
00000360: 45 42 45 52 4E 45 48 4D 45 4E 00 77 0B EA 01 43 |EBERNEHMEN.w...C|
00000370: 4D 50 20 23 22 3F 22 00 84 0B F4 01 42 4E 45 20 |MP #"?".....BNE |
00000380: 53 4B 49 50 00 AE 0B FE 01 4C 44 41 20 23 99 20 |SKIP.....LDA #. |
00000390: 3B 20 22 3F 20 44 55 52 43 48 20 50 52 49 4E 54 |; "? DURCH PRINT|
000003A0: 2D 4B 4F 44 45 20 45 52 53 45 54 5A 45 4E 00 BE |-KODE ERSETZEN..|
000003B0: 0B 08 02 42 4E 45 20 54 41 4B 43 48 41 52 00 D0 |...BNE TAKCHAR..|
000003C0: 0B 12 02 53 4B 49 50 20 43 4D 50 20 23 22 30 22 |...SKIP CMP #"0"|
000003D0: 00 DE 0B 1C 02 42 43 43 20 53 4B 49 50 31 00 EB |.....BCC SKIP1..|
000003E0: 0B 26 02 43 4D 50 20 23 22 3C 22 00 14 0C 30 02 |.&.CMP #"<"...0.|
000003F0: 42 43 43 20 54 41 4B 43 48 41 52 20 3B 20 5A 45 |BCC TAKCHAR ; ZE|
00000400: 49 43 48 45 4E 20 53 4F 20 55 45 42 45 52 4E 45 |ICHEN SO UEBERNE|
00000410: 48 4D 45 4E 00 3F 0C 3A 02 53 4B 49 50 31 20 53 |HMEN.?.:.SKIP1 S|
00000420: 54 59 20 50 4E 54 20 3B 20 5A 45 49 47 45 52 20 |TY PNT ; ZEIGER |
00000430: 49 4E 20 5A 45 49 4C 45 20 4D 45 52 4B 45 4E 00 |IN ZEILE MERKEN.|
00000440: 4A 0C 44 02 4C 44 59 20 23 30 00 73 0C 4E 02 53 |J.D.LDY #0.s.N.S|
00000450: 54 59 20 43 4F 55 4E 54 20 3B 20 5A 41 45 48 4C |TY COUNT ; ZAEHL|
00000460: 45 52 20 46 55 45 52 20 42 45 46 45 48 4C 53 57 |ER FUER BEFEHLSW|
00000470: B0 54 45 00 7B 0C 58 02 44 45 59 00 8A 0C 62 02 |.TE.{.X.DEY...b.|
00000480: 53 54 58 20 54 58 54 50 54 52 00 92 0C 6C 02 44 |STX TXTPTR...l.D|
00000490: 45 58 00 98 0C 76 02 3B 00 C0 0C 80 02 43 4D 50 |EX...v.;.....CMP|
000004A0: 4C 4F 4F 50 20 49 4E 59 20 3A 20 49 4E 58 20 3B |LOOP INY : INX ;|
000004B0: 20 5A 45 49 47 45 52 20 45 52 48 4F 45 48 45 4E | ZEIGER ERHOEHEN|
000004C0: 00 EC 0C 8A 02 54 45 53 54 82 20 4C 44 41 20 42 |.....TEST. LDA B|
000004D0: 55 46 46 45 52 2C 58 20 3B 20 5A 45 49 43 48 45 |UFFER,X ; ZEICHE|
000004E0: 4E 20 41 55 53 20 50 55 46 46 45 52 00 F4 0C 94 |N AUS PUFFER....|
000004F0: 02 53 45 43 00 23 0D 9E 02 53 42 43 20 54 41 42 |.SEC.#...SBC TAB|
00000500: 4C 45 2C 59 20 3B 20 4D 49 54 20 42 45 46 45 48 |LE,Y ; MIT BEFEH|
00000510: 4C 53 57 B0 54 45 4E 20 56 45 52 47 4C 45 49 43 |LSW.TEN VERGLEIC|
00000520: 48 45 4E 00 47 0D A8 02 42 45 51 20 43 4D 50 4C |HEN.G...BEQ CMPL|
00000530: 4F 4F 50 20 3B 20 4E 41 45 43 48 53 54 45 53 20 |OOP ; NAECHSTES |
00000540: 5A 45 49 43 48 45 4E 00 66 0D B2 02 43 4D 50 20 |ZEICHEN.f...CMP |
00000550: 23 24 38 30 20 3B 20 88 5A 54 45 52 20 42 55 43 |#$80 ; .ZTER BUC|
00000560: 48 53 54 41 42 45 00 99 0D BC 02 42 4E 45 20 82 |HSTABE.....BNE .|
00000570: 9D 20 3B 20 4E 45 49 4E 2C 20 5A 45 49 47 45 52 |. ; NEIN, ZEIGER|
00000580: 20 41 55 46 20 4E 41 45 43 48 53 54 45 53 20 42 | AUF NAECHSTES B|
00000590: 45 46 45 48 4C 53 57 B0 54 00 BF 0D C6 02 B0 41 |EFEHLSW.T......A|
000005A0: 20 43 4F 55 4E 54 20 3B 20 4E 52 AA 24 38 30 20 | COUNT ; NR.$80 |
000005B0: B2 20 B5 45 52 50 52 45 54 45 52 43 4F 44 45 00 |. .ERPRETERCODE.|
000005C0: E8 0D D0 02 54 41 4B 43 48 41 52 31 20 4C 44 59 |....TAKCHAR1 LDY|
000005D0: 20 50 4E 54 20 3B 20 5A 45 49 47 45 52 20 5A 55 | PNT ; ZEIGER ZU|
000005E0: 52 55 45 43 4B 48 4F C3 00 EE 0D DA 02 3B 00 04 |RUECKHO......;..|
000005F0: 0E E4 02 54 41 4B 43 48 41 52 20 49 4E 58 20 3A |...TAKCHAR INX :|
00000600: 20 49 4E 59 00 28 0E EE 02 53 54 41 20 42 55 46 | INY.(...STA BUF|
00000610: 46 45 52 AB 35 2C 59 20 3B 20 4B 4F 44 45 20 B6 |FER.5,Y ; KODE .|
00000620: 50 45 49 43 48 45 52 4E 00 4A 0E F8 02 43 4D 50 |PEICHERN.J...CMP|
00000630: 20 23 30 20 3B 20 46 4C 41 47 53 20 57 49 45 44 | #0 ; FLAGS WIED|
00000640: 45 52 48 45 52 53 54 45 4C C3 00 5D 0E 02 03 42 |ERHERSTEL..]...B|
00000650: 45 51 20 80 45 3B 20 5A 45 49 C3 80 45 00 65 0E |EQ .E; ZEI..E.e.|
00000660: 0C 03 53 45 43 00 81 0E 16 03 53 42 43 20 23 22 |..SEC.....SBC #"|
00000670: 3A 22 20 3B 20 54 52 45 4E 4E 5A 45 49 43 48 45 |:" ; TRENNZEICHE|
00000680: 4E 00 8F 0E 20 03 42 45 51 20 53 4B 49 50 32 00 |N... .BEQ SKIP2.|
00000690: B1 0E 2A 03 43 4D 50 20 23 83 2D 22 3A 22 20 3B |..*.CMP #.-":" ;|
000006A0: 20 4B 4F 44 45 20 46 55 45 52 20 27 44 41 54 41 | KODE FUER 'DATA|
000006B0: 27 00 BF 0E 34 03 42 4E 45 20 53 4B 49 50 33 00 |'...4.BNE SKIP3.|
000006C0: EC 0E 3E 03 53 4B 49 50 32 20 53 54 41 20 51 55 |..>.SKIP2 STA QU|
000006D0: 4F 54 46 4C 47 20 3B 20 42 45 49 20 27 83 27 20 |OTFLG ; BEI '.' |
000006E0: 42 49 54 20 36 20 53 45 54 5A 45 4E 00 FA 0E 48 |BIT 6 SETZEN...H|
000006F0: 03 53 4B 49 50 33 20 53 45 43 00 1B 0F 52 03 53 |.SKIP3 SEC...R.S|
00000700: 42 43 20 23 8F 2D 22 3A 22 20 3B 20 4B 4F 44 45 |BC #.-":" ; KODE|
00000710: 20 46 55 45 52 20 27 52 45 4D 27 00 49 0F 5C 03 | FUER 'REM'.I.\.|
00000720: 42 4E 45 20 82 43 48 41 52 20 3B 20 4E 41 45 43 |BNE .CHAR ; NAEC|
00000730: 48 53 54 45 53 20 5A 45 49 43 48 45 4E 20 56 45 |HSTES ZEICHEN VE|
00000740: 52 41 52 42 45 49 54 45 4E 00 67 0F 66 03 53 54 |RARBEITEN.g.f.ST|
00000750: 41 20 43 48 41 52 20 3B 20 5A 45 49 43 48 45 4E |A CHAR ; ZEICHEN|
00000760: 20 4D 45 52 4B 45 4E 00 7E 0F 70 03 8F 4C 4F 4F | MERKEN.~.p..LOO|
00000770: 50 20 4C 44 41 20 42 55 46 46 45 52 2C 58 00 AF |P LDA BUFFER,X..|
00000780: 0F 7A 03 42 45 51 20 54 41 4B 43 48 41 52 20 3B |.z.BEQ TAKCHAR ;|
00000790: 20 5A 45 49 C3 80 45 2C 20 5A 45 49 43 48 45 4E | ZEI..E, ZEICHEN|
000007A0: 20 53 4F 20 55 45 42 45 52 4E 45 48 4D 45 4E 00 | SO UEBERNEHMEN.|
000007B0: DF 0F 84 03 43 4D 50 20 43 48 41 52 20 3B 20 4E |....CMP CHAR ; N|
000007C0: 41 45 43 48 53 54 45 53 20 27 22 27 20 4F 44 45 |AECHSTES '"' ODE|
000007D0: 52 20 52 45 4D 20 4F 44 45 52 20 44 41 54 41 00 |R REM ODER DATA.|
000007E0: F4 0F 8E 03 42 45 51 20 54 41 4B 43 48 41 52 20 |....BEQ TAKCHAR |
000007F0: 3B 20 4A 41 00 02 10 98 03 A1 43 48 41 52 20 49 |; JA......CHAR I|
00000800: 4E 59 00 2B 10 A2 03 53 54 41 20 42 55 46 46 45 |NY.+...STA BUFFE|
00000810: 52 AB 35 2C 59 20 3B 20 5A 45 49 43 48 45 4E 20 |R.5,Y ; ZEICHEN |
00000820: 55 45 42 45 52 4E 45 48 4D 45 4E 00 33 10 AC 03 |UEBERNEHMEN.3...|
00000830: 49 4E 58 00 41 10 B6 03 42 4E 45 20 8F 4C 4F 4F |INX.A...BNE .LOO|
00000840: 50 00 47 10 C0 03 3B 00 59 10 CA 03 82 9D 20 4C |P.G...;.Y..... L|
00000850: 44 58 20 54 58 54 50 54 52 00 8A 10 D4 03 49 4E |DX TXTPTR.....IN|
00000860: 43 20 43 4F 55 4E 54 20 3B 20 5A 41 45 48 4C 45 |C COUNT ; ZAEHLE|
00000870: 52 20 41 55 46 20 4E 41 45 43 48 53 54 45 53 20 |R AUF NAECHSTES |
00000880: 42 45 46 45 48 4C 53 57 B0 54 00 99 10 DE 03 57 |BEFEHLSW.T.....W|
00000890: 45 49 54 45 52 20 49 4E 59 00 C1 10 E8 03 4C 44 |EITER INY.....LD|
000008A0: 41 20 54 41 42 4C 45 AB 31 2C 59 20 3B 20 4E 41 |A TABLE.1,Y ; NA|
000008B0: 45 43 48 53 54 45 52 20 42 55 43 48 53 54 41 42 |ECHSTER BUCHSTAB|
000008C0: 45 00 E6 10 F2 03 42 50 4C 20 57 45 49 54 45 52 |E.....BPL WEITER|
000008D0: 20 3B 20 57 B0 54 20 4E 4F 43 48 20 4E 49 43 48 | ; W.T NOCH NICH|
000008E0: 54 20 5A 55 80 45 00 F6 10 FC 03 4C 44 41 20 54 |T ZU.E.....LDA T|
000008F0: 41 42 4C 45 2C 59 00 26 11 06 04 42 4E 45 20 54 |ABLE,Y.&...BNE T|
00000900: 45 53 54 82 20 3B 20 41 55 46 20 4E 41 45 43 48 |EST. ; AUF NAECH|
00000910: 53 54 45 53 20 42 45 46 45 48 4C 53 57 B0 54 20 |STES BEFEHLSW.T |
00000920: 54 45 53 54 45 4E 00 41 11 10 04 42 45 51 20 A2 |TESTEN.A...BEQ .|
00000930: A4 4B 20 3B 20 4E 45 55 45 20 54 41 42 45 4C 4C |.K ; NEUE TABELL|
00000940: 45 00 47 11 1A 04 3B 00 5F 11 24 04 A8 46 4F 55 |E.G...;._.$..FOU|
00000950: 4E 44 20 4C 44 41 20 42 55 46 46 45 52 2C 58 00 |ND LDA BUFFER,X.|
00000960: 86 11 2E 04 42 50 4C 20 54 41 4B 43 48 41 52 31 |....BPL TAKCHAR1|
00000970: 20 3B 20 5A 45 49 43 48 45 4E 20 55 45 42 45 52 | ; ZEICHEN UEBER|
00000980: 4E 45 48 4D 45 4E 00 8C 11 38 04 3B 00 C3 11 42 |NEHMEN...8.;...B|
00000990: 04 80 45 20 53 54 41 20 42 55 46 46 45 52 AB 33 |..E STA BUFFER.3|
000009A0: 2C 59 20 3B 20 4C 49 4E 4B 42 59 54 45 20 4E 55 |,Y ; LINKBYTE NU|
000009B0: 4C 4C 20 46 55 45 52 20 44 49 52 45 4B 54 4D 4F |LL FUER DIREKTMO|
000009C0: 44 55 53 00 C9 11 4C 04 3B 00 DA 11 56 04 44 45 |DUS...L.;...V.DE|
000009D0: 43 20 54 58 54 50 54 52 AA 31 00 04 12 60 04 4C |C TXTPTR.1...`.L|
000009E0: 44 41 20 23 24 46 46 20 3B 20 54 58 54 50 54 52 |DA #$FF ; TXTPTR|
000009F0: 20 41 55 46 20 24 30 31 46 46 2C 20 42 55 46 46 | AUF $01FF, BUFF|
00000A00: 45 52 AB 31 00 13 12 6A 04 53 54 41 20 54 58 54 |ER.1...j.STA TXT|
00000A10: 50 54 52 00 1B 12 74 04 52 54 53 00 21 12 7E 04 |PTR...t.RTS.!.~.|
00000A20: 3B 00 4D 12 88 04 3B 20 56 45 52 41 52 42 45 49 |;.M...; VERARBEI|
00000A30: 54 55 4E 47 20 44 45 52 20 4E 45 55 45 4E 20 42 |TUNG DER NEUEN B|
00000A40: 45 46 45 48 4C 53 54 41 42 45 4C 4C 45 00 5C 12 |EFEHLSTABELLE.\.|
00000A50: 92 04 A2 A4 4B 20 4C 44 59 20 23 30 00 8C 12 9C |....K LDY #0....|
00000A60: 04 4C 44 41 20 A2 54 41 42 2C 59 20 3B 20 45 52 |.LDA .TAB,Y ; ER|
00000A70: 53 54 45 53 20 5A 45 49 43 48 45 4E 20 41 55 53 |STES ZEICHEN AUS|
00000A80: 20 54 41 42 45 4C 4C 45 20 48 4F C3 00 9A 12 A6 | TABELLE HO.....|
00000A90: 04 42 4E 45 20 A2 54 45 53 54 00 A0 12 B0 04 3B |.BNE .TEST.....;|
00000AA0: 00 B3 12 BA 04 A2 43 4D 50 20 49 4E 59 20 3A 20 |......CMP INY : |
00000AB0: 49 4E 58 00 CA 12 C4 04 A2 54 45 53 54 20 4C 44 |INX......TEST LD|
00000AC0: 41 20 42 55 46 46 45 52 2C 58 00 D2 12 CE 04 53 |A BUFFER,X.....S|
00000AD0: 45 43 00 E1 12 D8 04 53 42 43 20 A2 54 41 42 2C |EC.....SBC .TAB,|
00000AE0: 59 00 EE 12 E2 04 42 45 51 20 A2 43 4D 50 00 FB |Y.....BEQ .CMP..|
00000AF0: 12 EC 04 43 4D 50 20 23 24 38 30 00 06 13 F6 04 |...CMP #$80.....|
00000B00: 42 4E 45 20 82 A2 00 1E 13 00 05 B0 41 20 43 4F |BNE ........A CO|
00000B10: 55 4E 54 20 3B 20 47 45 46 55 4E 44 45 4E 00 2F |UNT ; GEFUNDEN./|
00000B20: 13 0A 05 42 4E 45 20 54 41 4B 43 48 41 52 31 00 |...BNE TAKCHAR1.|
00000B30: 35 13 14 05 3B 00 47 13 1E 05 82 A2 20 4C 44 58 |5...;.G..... LDX|
00000B40: 20 54 58 54 50 54 52 00 55 13 28 05 49 4E 43 20 | TXTPTR.U.(.INC |
00000B50: 43 4F 55 4E 54 00 65 13 32 05 57 45 49 54 45 52 |COUNT.e.2.WEITER|
00000B60: 31 20 49 4E 59 00 76 13 3C 05 4C 44 41 20 A2 54 |1 INY.v.<.LDA .T|
00000B70: 41 42 AB 31 2C 59 00 86 13 46 05 42 50 4C 20 57 |AB.1,Y...F.BPL W|
00000B80: 45 49 54 45 52 31 00 95 13 50 05 4C 44 41 20 A2 |EITER1...P.LDA .|
00000B90: 54 41 42 2C 59 00 A3 13 5A 05 42 4E 45 20 A2 54 |TAB,Y...Z.BNE .T|
00000BA0: 45 53 54 00 B2 13 64 05 42 45 51 20 A8 46 4F 55 |EST...d.BEQ .FOU|
00000BB0: 4E 44 00 B8 13 6E 05 3B 00 CD 13 78 05 A2 54 41 |ND...n.;...x..TA|
00000BC0: 42 20 2E C6 20 22 52 45 50 45 41 D4 22 00 DC 13 |B .. "REPEA."...|
00000BD0: 82 05 2E C6 20 22 55 4E 54 49 CC 22 00 EC 13 8C |.... "UNTI."....|
00000BE0: 05 2E C6 20 22 42 45 46 45 48 CC 22 00 07 14 96 |... "BEFEH."....|
00000BF0: 05 2E 42 59 54 20 30 20 3B 80 45 20 44 45 52 20 |..BYT 0 ;.E DER |
00000C00: 54 41 42 45 4C 4C 45 00 00 00 |TABELLE... |
....Z.. 8.4096...D..OPT P,OO.".N.;.J.X.;
ROM.ROUTINE ZUR UMW.LUNG IN .KENS.P...;
.E...; BES.DERE .KENS.K...;.W. .. = $83.
..... = $8F...... . $99.....;...H.CHAR .
8...R.COUNT . 11.....PNT . $71.....QUOT
E . $22 ; HOCHKOMMA.....QUOTFLG . 15....
.TXTPTR . $7A.....BUFFER . $200 ; EINGAB
EPUFFER.%...;.Q...TABLE . $A09E ; TABELL
E DER BEFEHLSW.TE.W.".;.S.,... $C000 ; N
EUE ROUTINE.Y.6.;...@.LDX TXTPTR ; ZEIGE
R AUF ERSTES ZEICHEN.L.J.LDY #4 ; ZEIGER
IN UMGEW.ELTE ZEILE...T.STY QUOTFLG ; F
LAG FUER HOCHKOMMA LOESCHEN.+.^..CHAR LD
A BUFFER,X ; ZEICHEN AUS PUFFER HOC.9.H.
BPL N.MAL.K.R.CMP #$FF ; PI.U.|.BEQ TAKC
HAR ; JA, KODE SO UEBERNEHMEN.....INX ;
S.ST ZEICHEN IGN.IEREN.....BNE .CHAR....
.;.K...N.MAL CMP #" " ; LEERZEICHEN.....
BEQ TAKCHAR ; UEBERNEHMEN.....STA CHAR ;
ZEICHEN MERKEN.".B.CMP #QUOTE ; HOCHKOM
MA.0.L.BEQ .CHAR.@.V.BIT QUOTFLG.J...BVS
TAKCHAR ; .-MODUS, SO UEBERNEHMEN.W...C
MP #"?".....BNE SKIP.....LDA #. ; "? DUR
CH PRINT-KODE ERSETZEN.....BNE TAKCHAR.P
...SKIP CMP #"0".....BCC SKIP1...&.CMP #
"<"...0.BCC TAKCHAR ; ZEICHEN SO UEBERNE
HMEN.?.:.SKIP1 STY PNT ; ZEIGER IN ZEILE
MERKEN.J.D.LDY #0.S.N.STY COUNT ; ZAEHL
ER FUER BEFEHLSW.TE.{.X.DEY...B.STX TXTP
TR...L.DEX...V.;.....CMPLOOP INY : INX ;
ZEIGER ERHOEHEN.....TEST. LDA BUFFER,X
; ZEICHEN AUS PUFFER.....SEC.#...SBC TAB
LE,Y ; MIT BEFEHLSW.TEN VERGLEICHEN.G...
BEQ CMPLOOP ; NAECHSTES ZEICHEN.F...CMP
#$80 ; .ZTER BUCHSTABE.....BNE .. ; NEIN
, ZEIGER AUF NAECHSTES BEFEHLSW.T...F..A
COUNT ; NR.$80 . .ERPRETERCODE...P.TAKC
HAR1 LDY PNT ; ZEIGER ZURUECKHOC...Z.;..
...TAKCHAR INX : INY.(...STA BUFFER.5,Y
; KODE .PEICHERN.J...CMP #0 ; FLAGS WIED
ERHERSTELC.]...BEQ .E; ZEIC.E.E...SEC...
..SBC #":" ; TRENNZEICHEN... .BEQ SKIP2.
..*.CMP #.-":" ; KODE FUER 'DATA'...4.BN
E SKIP3...>.SKIP2 STA QUOTFLG ; BEI '.'
BIT 6 SETZEN...H.SKIP3 SEC...R.SBC #.-":
" ; KODE FUER 'REM'.I.\.BNE .CHAR ; NAEC
HSTES ZEICHEN VERARBEITEN.G.F.STA CHAR ;
ZEICHEN MERKEN.~.P..LOOP LDA BUFFER,X..
.Z.BEQ TAKCHAR ; ZEIC.E, ZEICHEN SO UEBE
RNEHMEN.....CMP CHAR ; NAECHSTES '"' ODE
R REM ODER DATA.....BEQ TAKCHAR ; JA....
..CHAR INY.+...STA BUFFER.5,Y ; ZEICHEN
UEBERNEHMEN.3...INX.A...BNE .LOOP.G...;.
Y.J... LDX TXTPTR...T.INC COUNT ; ZAEHLE
R AUF NAECHSTES BEFEHLSW.T.....WEITER IN
Y.A...LDA TABLE.1,Y ; NAECHSTER BUCHSTAB
E.....BPL WEITER ; W.T NOCH NICHT ZU.E..
...LDA TABLE,Y.&...BNE TEST. ; AUF NAECH
STES BEFEHLSW.T TESTEN.A...BEQ ..K ; NEU
E TABELLE.G...;._.$..FOUND LDA BUFFER,X.
....BPL TAKCHAR1 ; ZEICHEN UEBERNEHMEN..
.8.;.C.B..E STA BUFFER.3,Y ; LINKBYTE NU
LL FUER DIREKTMODUS.I.L.;.Z.V.DEC TXTPTR
.1...`.LDA #$FF ; TXTPTR AUF $01FF, BUFF
ER.1...J.STA TXTPTR...T.RTS.!.~.;.M...;
VERARBEITUNG DER NEUEN BEFEHLSTABELLE.\.
....K LDY #0.....LDA .TAB,Y ; ERSTES ZEI
CHEN AUS TABELLE HOC.....BNE .TEST. ...;
......CMP INY : INX.J.D..TEST LDA BUFFER
,X.R.N.SEC...X.SBC .TAB,Y.....BEQ .CMP..
...CMP #$80.....BNE ........A COUNT ; GE
FUNDEN./...BNE TAKCHAR1.5...;.G..... LDX
TXTPTR.U.(.INC COUNT.E.2.WEITER1 INY.V.
<.LDA .TAB.1,Y...F.BPL WEITER1...P.LDA .
TAB,Y...Z.BNE .TEST...D.BEQ .FOUND...N.;
.M.X..TAB .F "REPEAT"......F "UNTIL"....
..F "BEFEHL"......BYT 0 ;.E DER TABELLE.
..
> CLICK IMAGE PREVIEW FOR FULL MODAL