TOKEN.SRC

FILE INFORMATION

FILENAME(S): TOKEN.SRC

FILE TYPE(S): PRG

FILE SIZE: 2.5K

FIRST SEEN: 2025-11-30 21:23:14

APPEARS ON: 1 disk(s)

FILE HASH

1ee836d3e816168252e09fbe6e14f0fb5903943303d5dc133367be5c8cde9bca

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 HULP 1 1	TOKEN.SRC	PRG	DuncanTwain	25	5	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 19  |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20  50 00 1F 08 6E 00 3B 00  |.d..OPT P...n.;.|
00000020: 47 08 78 00 3B 20 52 4F  4D AB 52 4F 55 54 49 4E  |G.x.; ROM.ROUTIN|
00000030: 45 20 5A 55 52 20 55 4D  57 AF 4C 55 4E 47 20 49  |E ZUR UMW.LUNG I|
00000040: 4E 20 A4 4B 45 4E 53 00  4D 08 82 00 3B 00 62 08  |N .KENS.M...;.b.|
00000050: 8C 00 3B 20 42 45 53 91  44 45 52 45 20 A4 4B 45  |..; BES.DERE .KE|
00000060: 4E 53 00 68 08 96 00 3B  00 74 08 A0 00 83 20 3D  |NS.h...;.t.... =|
00000070: 20 24 38 33 00 80 08 AA  00 8F 20 3D 20 24 38 46  | $83...... = $8F|
00000080: 00 8C 08 B4 00 99 20 B2  20 24 39 39 00 92 08 BE  |...... . $99....|
00000090: 00 3B 00 9F 08 C8 00 43  48 41 52 20 B2 20 38 00  |.;.....CHAR . 8.|
000000A0: AE 08 D2 00 43 4F 55 4E  54 20 B2 20 31 31 00 BC  |....COUNT . 11..|
000000B0: 08 DC 00 50 4E 54 20 B2  20 24 37 31 00 D8 08 E6  |...PNT . $71....|
000000C0: 00 51 55 4F 54 45 20 B2  20 24 32 32 20 3B 20 48  |.QUOTE . $22 ; H|
000000D0: 4F 43 48 4B 4F 4D 4D 41  00 E9 08 F0 00 51 55 4F  |OCHKOMMA.....QUO|
000000E0: 54 46 4C 47 20 B2 20 31  35 00 FA 08 FA 00 54 58  |TFLG . 15.....TX|
000000F0: 54 50 54 52 20 B2 20 24  37 41 00 1C 09 04 01 42  |TPTR . $7A.....B|
00000100: 55 46 46 45 52 20 B2 20  24 32 30 30 20 3B 20 45  |UFFER . $200 ; E|
00000110: 49 4E 47 41 42 45 50 55  46 46 45 52 00 22 09 0E  |INGABEPUFFER."..|
00000120: 01 3B 00 4E 09 18 01 54  41 42 4C 45 20 B2 20 24  |.;.N...TABLE . $|
00000130: 41 30 39 45 20 3B 20 54  41 42 45 4C 4C 45 20 44  |A09E ; TABELLE D|
00000140: 45 52 20 42 45 46 45 48  4C 53 57 B0 54 45 00 54  |ER BEFEHLSW.TE.T|
00000150: 09 22 01 3B 00 6F 09 2C  01 AC B2 20 24 41 35 37  |.".;.o.,... $A57|
00000160: 43 20 3B 20 52 4F 4D AB  52 4F 55 54 49 4E 45 00  |C ; ROM.ROUTINE.|
00000170: 75 09 36 01 3B 00 A4 09  40 01 A2 A4 4B 20 4C 44  |u.6.;...@...K 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 38 0A 68 01  | PUFFER HO..8.h.|
00000230: 42 50 4C 20 4E 4F 50 49  00 4A 0A 72 01 43 4D 50  |BPL NOPI.J.r.CMP|
00000240: 20 23 24 46 46 20 3B 20  50 49 00 74 0A 7C 01 42  | #$FF ; PI.t.|.B|
00000250: 45 51 20 54 41 4B 43 48  41 52 20 3B 20 4A 41 2C  |EQ TAKCHAR ; JA,|
00000260: 20 4B 4F 44 45 20 53 4F  20 55 45 42 45 52 4E 45  | KODE SO UEBERNE|
00000270: 48 4D 45 4E 00 95 0A 86  01 49 4E 58 20 3B 20 53  |HMEN.....INX ; S|
00000280: 91 53 54 20 5A 45 49 43  48 45 4E 20 49 47 4E B0  |.ST ZEICHEN IGN.|
00000290: 49 45 52 45 4E 00 A3 0A  90 01 42 4E 45 20 82 43  |IEREN.....BNE .C|
000002A0: 48 41 52 00 A9 0A 9A 01  3B 00 C9 0A A4 01 4E 4F  |HAR.....;.....NO|
000002B0: 50 49 20 43 4D 50 20 23  22 20 22 20 3B 20 4C 45  |PI CMP #" " ; LE|
000002C0: 45 52 5A 45 49 43 48 45  4E 00 E7 0A AE 01 42 45  |ERZEICHEN.....BE|
000002D0: 51 20 54 41 4B 43 48 41  52 20 3B 20 55 45 42 45  |Q TAKCHAR ; UEBE|
000002E0: 52 4E 45 48 4D 45 4E 00  05 0B B8 01 53 54 41 20  |RNEHMEN.....STA |
000002F0: 43 48 41 52 20 3B 20 5A  45 49 43 48 45 4E 20 4D  |CHAR ; ZEICHEN M|
00000300: 45 52 4B 45 4E 00 20 0B  C2 01 43 4D 50 20 23 51  |ERKEN. ...CMP #Q|
00000310: 55 4F 54 45 20 3B 20 48  4F 43 48 4B 4F 4D 4D 41  |UOTE ; HOCHKOMMA|
00000320: 00 2E 0B CC 01 42 45 51  20 A1 43 48 41 52 00 3E  |.....BEQ .CHAR.>|
00000330: 0B D6 01 42 49 54 20 51  55 4F 54 46 4C 47 00 68  |...BIT QUOTFLG.h|
00000340: 0B E0 01 42 56 53 20 54  41 4B 43 48 41 52 20 3B  |...BVS TAKCHAR ;|
00000350: 20 83 2D 4D 4F 44 55 53  2C 20 53 4F 20 55 45 42  | .-MODUS, SO UEB|
00000360: 45 52 4E 45 48 4D 45 4E  00 75 0B EA 01 43 4D 50  |ERNEHMEN.u...CMP|
00000370: 20 23 22 3F 22 00 82 0B  F4 01 42 4E 45 20 53 4B  | #"?".....BNE SK|
00000380: 49 50 00 AC 0B FE 01 4C  44 41 20 23 99 20 3B 20  |IP.....LDA #. ; |
00000390: 22 3F 20 44 55 52 43 48  20 50 52 49 4E 54 2D 4B  |"? DURCH PRINT-K|
000003A0: 4F 44 45 20 45 52 53 45  54 5A 45 4E 00 BC 0B 08  |ODE ERSETZEN....|
000003B0: 02 42 4E 45 20 54 41 4B  43 48 41 52 00 CE 0B 12  |.BNE TAKCHAR....|
000003C0: 02 53 4B 49 50 20 43 4D  50 20 23 22 30 22 00 DC  |.SKIP CMP #"0"..|
000003D0: 0B 1C 02 42 43 43 20 53  4B 49 50 31 00 E9 0B 26  |...BCC SKIP1...&|
000003E0: 02 43 4D 50 20 23 22 3C  22 00 12 0C 30 02 42 43  |.CMP #"<"...0.BC|
000003F0: 43 20 54 41 4B 43 48 41  52 20 3B 20 5A 45 49 43  |C TAKCHAR ; ZEIC|
00000400: 48 45 4E 20 53 4F 20 55  45 42 45 52 4E 45 48 4D  |HEN SO UEBERNEHM|
00000410: 45 4E 00 3D 0C 3A 02 53  4B 49 50 31 20 53 54 59  |EN.=.:.SKIP1 STY|
00000420: 20 50 4E 54 20 3B 20 5A  45 49 47 45 52 20 49 4E  | PNT ; ZEIGER IN|
00000430: 20 5A 45 49 4C 45 20 4D  45 52 4B 45 4E 00 48 0C  | ZEILE MERKEN.H.|
00000440: 44 02 4C 44 59 20 23 30  00 71 0C 4E 02 53 54 59  |D.LDY #0.q.N.STY|
00000450: 20 43 4F 55 4E 54 20 3B  20 5A 41 45 48 4C 45 52  | COUNT ; ZAEHLER|
00000460: 20 46 55 45 52 20 42 45  46 45 48 4C 53 57 B0 54  | FUER BEFEHLSW.T|
00000470: 45 00 79 0C 58 02 44 45  59 00 88 0C 62 02 53 54  |E.y.X.DEY...b.ST|
00000480: 58 20 54 58 54 50 54 52  00 90 0C 6C 02 44 45 58  |X TXTPTR...l.DEX|
00000490: 00 96 0C 76 02 3B 00 BE  0C 80 02 43 4D 50 4C 4F  |...v.;.....CMPLO|
000004A0: 4F 50 20 49 4E 59 20 3A  20 49 4E 58 20 3B 20 5A  |OP INY : INX ; Z|
000004B0: 45 49 47 45 52 20 45 52  48 4F 45 48 45 4E 00 EA  |EIGER ERHOEHEN..|
000004C0: 0C 8A 02 54 45 53 54 82  20 4C 44 41 20 42 55 46  |...TEST. LDA BUF|
000004D0: 46 45 52 2C 58 20 3B 20  5A 45 49 43 48 45 4E 20  |FER,X ; ZEICHEN |
000004E0: 41 55 53 20 50 55 46 46  45 52 00 F2 0C 94 02 53  |AUS PUFFER.....S|
000004F0: 45 43 00 21 0D 9E 02 53  42 43 20 54 41 42 4C 45  |EC.!...SBC TABLE|
00000500: 2C 59 20 3B 20 4D 49 54  20 42 45 46 45 48 4C 53  |,Y ; MIT BEFEHLS|
00000510: 57 B0 54 45 4E 20 56 45  52 47 4C 45 49 43 48 45  |W.TEN VERGLEICHE|
00000520: 4E 00 45 0D A8 02 42 45  51 20 43 4D 50 4C 4F 4F  |N.E...BEQ CMPLOO|
00000530: 50 20 3B 20 4E 41 45 43  48 53 54 45 53 20 5A 45  |P ; NAECHSTES ZE|
00000540: 49 43 48 45 4E 00 64 0D  B2 02 43 4D 50 20 23 24  |ICHEN.d...CMP #$|
00000550: 38 30 20 3B 20 88 5A 54  45 52 20 42 55 43 48 53  |80 ; .ZTER BUCHS|
00000560: 54 41 42 45 00 97 0D BC  02 42 4E 45 20 82 9D 20  |TABE.....BNE .. |
00000570: 3B 20 4E 45 49 4E 2C 20  5A 45 49 47 45 52 20 41  |; NEIN, ZEIGER A|
00000580: 55 46 20 4E 41 45 43 48  53 54 45 53 20 42 45 46  |UF NAECHSTES BEF|
00000590: 45 48 4C 53 57 B0 54 00  BD 0D C6 02 B0 41 20 43  |EHLSW.T......A C|
000005A0: 4F 55 4E 54 20 3B 20 4E  52 AA 24 38 30 20 B2 20  |OUNT ; NR.$80 . |
000005B0: B5 45 52 50 52 45 54 45  52 43 4F 44 45 00 E6 0D  |.ERPRETERCODE...|
000005C0: D0 02 54 41 4B 43 48 41  52 31 20 4C 44 59 20 50  |..TAKCHAR1 LDY P|
000005D0: 4E 54 20 3B 20 5A 45 49  47 45 52 20 5A 55 52 55  |NT ; ZEIGER ZURU|
000005E0: 45 43 4B 48 4F C3 00 EC  0D DA 02 3B 00 02 0E E4  |ECKHO......;....|
000005F0: 02 54 41 4B 43 48 41 52  20 49 4E 58 20 3A 20 49  |.TAKCHAR INX : I|
00000600: 4E 59 00 26 0E EE 02 53  54 41 20 42 55 46 46 45  |NY.&...STA BUFFE|
00000610: 52 AB 35 2C 59 20 3B 20  4B 4F 44 45 20 B6 50 45  |R.5,Y ; KODE .PE|
00000620: 49 43 48 45 52 4E 00 50  0E F8 02 4C 44 41 20 42  |ICHERN.P...LDA B|
00000630: 55 46 46 45 52 AB 35 2C  59 20 3B 20 46 4C 41 47  |UFFER.5,Y ; FLAG|
00000640: 53 20 57 49 45 44 45 52  48 45 52 53 54 45 4C C3  |S WIEDERHERSTEL.|
00000650: 00 63 0E 02 03 42 45 51  20 80 45 3B 20 5A 45 49  |.c...BEQ .E; ZEI|
00000660: C3 80 45 00 6B 0E 0C 03  53 45 43 00 87 0E 16 03  |..E.k...SEC.....|
00000670: 53 42 43 20 23 22 3A 22  20 3B 20 54 52 45 4E 4E  |SBC #":" ; TRENN|
00000680: 5A 45 49 43 48 45 4E 00  95 0E 20 03 42 45 51 20  |ZEICHEN... .BEQ |
00000690: 53 4B 49 50 32 00 B7 0E  2A 03 43 4D 50 20 23 83  |SKIP2...*.CMP #.|
000006A0: 2D 22 3A 22 20 3B 20 4B  4F 44 45 20 46 55 45 52  |-":" ; KODE FUER|
000006B0: 20 27 44 41 54 41 27 00  C5 0E 34 03 42 4E 45 20  | 'DATA'...4.BNE |
000006C0: 53 4B 49 50 33 00 F2 0E  3E 03 53 4B 49 50 32 20  |SKIP3...>.SKIP2 |
000006D0: 53 54 41 20 51 55 4F 54  46 4C 47 20 3B 20 42 45  |STA QUOTFLG ; BE|
000006E0: 49 20 27 83 27 20 42 49  54 20 36 20 53 45 54 5A  |I '.' BIT 6 SETZ|
000006F0: 45 4E 00 00 0F 48 03 53  4B 49 50 33 20 53 45 43  |EN...H.SKIP3 SEC|
00000700: 00 21 0F 52 03 53 42 43  20 23 8F 2D 22 3A 22 20  |.!.R.SBC #.-":" |
00000710: 3B 20 4B 4F 44 45 20 46  55 45 52 20 27 52 45 4D  |; KODE FUER 'REM|
00000720: 27 00 4F 0F 5C 03 42 4E  45 20 82 43 48 41 52 20  |'.O.\.BNE .CHAR |
00000730: 3B 20 4E 41 45 43 48 53  54 45 53 20 5A 45 49 43  |; NAECHSTES ZEIC|
00000740: 48 45 4E 20 56 45 52 41  52 42 45 49 54 45 4E 00  |HEN VERARBEITEN.|
00000750: 6D 0F 66 03 53 54 41 20  43 48 41 52 20 3B 20 5A  |m.f.STA CHAR ; Z|
00000760: 45 49 43 48 45 4E 20 4D  45 52 4B 45 4E 00 84 0F  |EICHEN MERKEN...|
00000770: 70 03 8F 4C 4F 4F 50 20  4C 44 41 20 42 55 46 46  |p..LOOP LDA BUFF|
00000780: 45 52 2C 58 00 B5 0F 7A  03 42 45 51 20 54 41 4B  |ER,X...z.BEQ TAK|
00000790: 43 48 41 52 20 3B 20 5A  45 49 C3 80 45 2C 20 5A  |CHAR ; ZEI..E, Z|
000007A0: 45 49 43 48 45 4E 20 53  4F 20 55 45 42 45 52 4E  |EICHEN SO UEBERN|
000007B0: 45 48 4D 45 4E 00 E5 0F  84 03 43 4D 50 20 43 48  |EHMEN.....CMP CH|
000007C0: 41 52 20 3B 20 4E 41 45  43 48 53 54 45 53 20 27  |AR ; NAECHSTES '|
000007D0: 22 27 20 4F 44 45 52 20  52 45 4D 20 4F 44 45 52  |"' ODER REM ODER|
000007E0: 20 44 41 54 41 00 FA 0F  8E 03 42 45 51 20 54 41  | DATA.....BEQ TA|
000007F0: 4B 43 48 41 52 20 3B 20  4A 41 00 08 10 98 03 A1  |KCHAR ; JA......|
00000800: 43 48 41 52 20 49 4E 59  00 31 10 A2 03 53 54 41  |CHAR INY.1...STA|
00000810: 20 42 55 46 46 45 52 AB  35 2C 59 20 3B 20 5A 45  | BUFFER.5,Y ; ZE|
00000820: 49 43 48 45 4E 20 55 45  42 45 52 4E 45 48 4D 45  |ICHEN UEBERNEHME|
00000830: 4E 00 39 10 AC 03 49 4E  58 00 47 10 B6 03 42 4E  |N.9...INX.G...BN|
00000840: 45 20 8F 4C 4F 4F 50 00  4D 10 C0 03 3B 00 5F 10  |E .LOOP.M...;._.|
00000850: CA 03 82 9D 20 4C 44 58  20 54 58 54 50 54 52 00  |.... LDX TXTPTR.|
00000860: 90 10 D4 03 49 4E 43 20  43 4F 55 4E 54 20 3B 20  |....INC COUNT ; |
00000870: 5A 41 45 48 4C 45 52 20  41 55 46 20 4E 41 45 43  |ZAEHLER AUF NAEC|
00000880: 48 53 54 45 53 20 42 45  46 45 48 4C 53 57 B0 54  |HSTES BEFEHLSW.T|
00000890: 00 9F 10 DE 03 57 45 49  54 45 52 20 49 4E 59 00  |.....WEITER INY.|
000008A0: C7 10 E8 03 4C 44 41 20  54 41 42 4C 45 AB 31 2C  |....LDA TABLE.1,|
000008B0: 59 20 3B 20 4E 41 45 43  48 53 54 45 52 20 42 55  |Y ; NAECHSTER BU|
000008C0: 43 48 53 54 41 42 45 00  EC 10 F2 03 42 50 4C 20  |CHSTABE.....BPL |
000008D0: 57 45 49 54 45 52 20 3B  20 57 B0 54 20 4E 4F 43  |WEITER ; W.T NOC|
000008E0: 48 20 4E 49 43 48 54 20  5A 55 80 45 00 FC 10 FC  |H NICHT ZU.E....|
000008F0: 03 4C 44 41 20 54 41 42  4C 45 2C 59 00 2C 11 06  |.LDA TABLE,Y.,..|
00000900: 04 42 4E 45 20 54 45 53  54 82 20 3B 20 41 55 46  |.BNE TEST. ; AUF|
00000910: 20 4E 41 45 43 48 53 54  45 53 20 42 45 46 45 48  | NAECHSTES BEFEH|
00000920: 4C 53 57 B0 54 20 54 45  53 54 45 4E 00 32 11 10  |LSW.T TESTEN.2..|
00000930: 04 3B 00 43 11 1A 04 4C  44 41 20 42 55 46 46 45  |.;.C...LDA BUFFE|
00000940: 52 2C 58 00 6A 11 24 04  42 50 4C 20 54 41 4B 43  |R,X.j.$.BPL TAKC|
00000950: 48 41 52 31 20 3B 20 5A  45 49 43 48 45 4E 20 55  |HAR1 ; ZEICHEN U|
00000960: 45 42 45 52 4E 45 48 4D  45 4E 00 70 11 2E 04 3B  |EBERNEHMEN.p...;|
00000970: 00 86 11 38 04 80 45 20  53 54 41 20 42 55 46 46  |...8..E STA BUFF|
00000980: 45 52 AB 33 2C 59 00 8C  11 42 04 3B 00 9D 11 4C  |ER.3,Y...B.;...L|
00000990: 04 44 45 43 20 54 58 54  50 54 52 AA 31 00 C7 11  |.DEC TXTPTR.1...|
000009A0: 56 04 4C 44 41 20 23 24  46 46 20 3B 20 54 58 54  |V.LDA #$FF ; TXT|
000009B0: 50 54 52 20 41 55 46 20  24 30 31 46 46 2C 20 42  |PTR AUF $01FF, B|
000009C0: 55 46 46 45 52 AB 31 00  D6 11 60 04 53 54 41 20  |UFFER.1...`.STA |
000009D0: 54 58 54 50 54 52 00 DE  11 6A 04 52 54 53 00 00  |TXTPTR...j.RTS..|
000009E0: 00                                                |.               |

....Z.. 8.4096...D..OPT P...N.;.G.X.; RO
M.ROUTINE ZUR UMW.LUNG IN .KENS.M...;.B.
..; BES.DERE .KENS.H...;.T. .. = $83....
.. = $8F...... . $99.....;...H.CHAR . 8.
..R.COUNT . 11.....PNT . $71.X...QUOTE .
 $22 ; HOCHKOMMA.....QUOTFLG . 15.....TX
TPTR . $7A.....BUFFER . $200 ; EINGABEPU
FFER."...;.N...TABLE . $A09E ; TABELLE D
ER BEFEHLSW.TE.T.".;.O.,... $A57C ; ROM.
ROUTINE.U.6.;...@...K 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.8.H.
BPL NOPI.J.R.CMP #$FF ; PI.T.|.BEQ TAKCH
AR ; JA, KODE SO UEBERNEHMEN.....INX ; S
.ST ZEICHEN IGN.IEREN.....BNE .CHAR.....
;.I...NOPI CMP #" " ; LEERZEICHEN.....BE
Q TAKCHAR ; UEBERNEHMEN.....STA CHAR ; Z
EICHEN MERKEN. .B.CMP #QUOTE ; HOCHKOMMA
...L.BEQ .CHAR.>.V.BIT QUOTFLG.H...BVS T
AKCHAR ; .-MODUS, SO UEBERNEHMEN.U...CMP
 #"?".....BNE SKIP.....LDA #. ; "? DURCH
 PRINT-KODE ERSETZEN.....BNE TAKCHAR.N..
.SKIP CMP #"0".....BCC SKIP1...&.CMP #"<
"...0.BCC TAKCHAR ; ZEICHEN SO UEBERNEHM
EN.=.:.SKIP1 STY PNT ; ZEIGER IN ZEILE M
ERKEN.H.D.LDY #0.Q.N.STY COUNT ; ZAEHLER
 FUER BEFEHLSW.TE.Y.X.DEY...B.STX TXTPTR
...L.DEX...V.;.....CMPLOOP INY : INX ; Z
EIGER ERHOEHEN.....TEST. LDA BUFFER,X ; 
ZEICHEN AUS PUFFER.....SEC.!...SBC TABLE
,Y ; MIT BEFEHLSW.TEN VERGLEICHEN.E...BE
Q CMPLOOP ; NAECHSTES ZEICHEN.D...CMP #$
80 ; .ZTER BUCHSTABE.....BNE .. ; NEIN, 
ZEIGER AUF NAECHSTES BEFEHLSW.T...F..A C
OUNT ; NR.$80 . .ERPRETERCODE...P.TAKCHA
R1 LDY PNT ; ZEIGER ZURUECKHOC...Z.;....
.TAKCHAR INX : INY.&...STA BUFFER.5,Y ; 
KODE .PEICHERN.P...LDA BUFFER.5,Y ; FLAG
S WIEDERHERSTELC.C...BEQ .E; ZEIC.E.K...
SEC.....SBC #":" ; TRENNZEICHEN... .BEQ 
SKIP2...*.CMP #.-":" ; KODE FUER 'DATA'.
E.4.BNE SKIP3...>.SKIP2 STA QUOTFLG ; BE
I '.' BIT 6 SETZEN...H.SKIP3 SEC.!.R.SBC
 #.-":" ; KODE FUER 'REM'.O.\.BNE .CHAR 
; NAECHSTES ZEICHEN VERARBEITEN.M.F.STA 
CHAR ; ZEICHEN MERKEN...P..LOOP LDA BUFF
ER,X...Z.BEQ TAKCHAR ; ZEIC.E, ZEICHEN S
O UEBERNEHMEN.....CMP CHAR ; NAECHSTES '
"' ODER REM ODER DATA.....BEQ TAKCHAR ; 
JA......CHAR INY.1...STA BUFFER.5,Y ; ZE
ICHEN UEBERNEHMEN.9...INX.G...BNE .LOOP.
M...;._.J... LDX TXTPTR...T.INC COUNT ; 
ZAEHLER AUF NAECHSTES BEFEHLSW.T.....WEI
TER INY.G...LDA TABLE.1,Y ; NAECHSTER BU
CHSTABE.....BPL WEITER ; W.T NOCH NICHT 
ZU.E.....LDA TABLE,Y.,...BNE TEST. ; AUF
 NAECHSTES BEFEHLSW.T TESTEN.2...;.C...L
DA BUFFER,X.J.$.BPL TAKCHAR1 ; ZEICHEN U
EBERNEHMEN.P...;...8..E STA BUFFER.3,Y..
.B.;...L.DEC TXTPTR.1.G.V.LDA #$FF ; TXT
PTR AUF $01FF, BUFFER.1.V.`.STA TXTPTR..
.J.RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL