XMAIN.SRC

FILE INFORMATION

FILENAME(S): XMAIN.SRC

FILE TYPE(S): PRG

FILE SIZE: 3.4K

FIRST SEEN: 2025-11-30 01:13:13

APPEARS ON: 2 disk(s)

FILE HASH

91b24db773af9ea650c65e1e99d79f6a4722c4db10f01cf358cc52e2964698e6

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15722 SEITE B	XMAIN.SRC	PRG	C64er	12	0	DOWNLOAD FILE
15722 SEITE B	XMAIN.SRC	PRG	DuncanTwain	12	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 61 5C 8E 5C E8 03 3B 20  20 20 20 20 20 20 20 20  |a\.\..;         |
00000010: 20 20 20 20 20 20 20 54  4F 50 41 53 53 20 41 53  |       TOPASS AS|
00000020: 53 45 4D 42 4C 45 52 4C  49 53 54 49 4E 47 00 B4  |SEMBLERLISTING..|
00000030: 5C F2 03 3B 20 20 20 20  20 20 20 20 20 20 20 20  |\..;            |
00000040: 20 20 20 20 20 20 20 20  20 20 20 58 CD 41 49 4E  |           X.AIN|
00000050: 2E 53 52 43 00 E3 5C FC  03 3B 20 20 20 20 20 20  |.SRC..\..;      |
00000060: 20 20 20 20 20 20 20 20  4D 49 43 48 41 45 4C 20  |        MICHAEL |
00000070: 53 43 48 4D 41 4E 44 2C  20 33 31 2E 30 31 2E 31  |SCHMAND, 31.01.1|
00000080: 39 38 37 00 E9 5C 06 04  3B 00 F5 5C 10 04 2E 90  |987..\..;..\....|
00000090: 24 31 33 30 30 00 FB 5C  1A 04 3B 00 01 5D 24 04  |$1300..\..;..]$.|
000000A0: 3B 00 15 5D 2E 04 2E 8F  45 43 52 55 4E 43 48 3D  |;..]....ECRUNCH=|
000000B0: 24 34 33 32 31 00 29 5D  38 04 2E 8F 55 43 52 55  |$4321.)]8...UCRU|
000000C0: 4E 43 48 3D 24 34 33 42  32 00 3C 5D 42 04 2E 8F  |NCH=$43B2.<]B...|
000000D0: 53 45 41 52 43 48 3D 24  34 33 45 32 00 4E 5D 4C  |SEARCH=$43E2.N]L|
000000E0: 04 2E 8F 45 4C 49 53 54  3D 24 35 31 36 41 00 61  |...ELIST=$516A.a|
000000F0: 5D 56 04 2E 8F 43 48 52  47 45 54 3D 24 30 33 38  |]V...CHRGET=$038|
00000100: 30 00 73 5D 60 04 2E 8F  4A 4D 50 45 52 3D 24 30  |0.s]`...JMPER=$0|
00000110: 30 35 36 00 86 5D 6A 04  2E 8F 46 4E 4A 55 4D 50  |056..]j...FNJUMP|
00000120: 3D 24 30 30 35 37 00 8C  5D 74 04 3B 00 AE 5D 7E  |=$0057..]t.;..]~|
00000130: 04 49 4E 49 54 20 83 23  24 35 3B 45 53 43 2D 56  |.INIT .#$5;ESC-V|
00000140: 45 4B 54 4F 52 45 4E 20  53 45 54 5A 45 4E 00 C2  |EKTOREN SETZEN..|
00000150: 5D 88 04 49 4C 4F 4F 50  20 81 56 45 43 54 4F 52  |]..ILOOP .VECTOR|
00000160: 2C 58 00 D0 5D 92 04 20  82 24 30 33 30 43 2C 58  |,X..].. .$030C,X|
00000170: 00 D7 5D 9C 04 20 AF 00  E3 5D A6 04 20 B1 49 4C  |..].. ...].. .IL|
00000180: 4F 4F 50 00 09 5E B0 04  20 81 23 3C 28 45 58 45  |OOP..^.. .#<(EXE|
00000190: 43 46 4E 29 3B 45 53 43  2D 46 4E 2D 56 45 4B 54  |CFN);ESC-FN-VEKT|
000001A0: 4F 52 20 53 45 54 5A 45  4E 00 15 5E BA 04 20 82  |OR SETZEN..^.. .|
000001B0: 24 30 32 46 43 00 26 5E  C4 04 20 81 23 3E 28 45  |$02FC.&^.. .#>(E|
000001C0: 58 45 43 46 4E 29 00 32  5E CE 04 20 82 24 30 32  |XECFN).2^.. .$02|
000001D0: 46 44 00 39 5E D8 04 20  A4 00 3F 5E E2 04 3B 00  |FD.9^.. ..?^..;.|
000001E0: 64 5E EC 04 56 45 43 54  4F 52 20 2E 92 43 52 55  |d^..VECTOR ..CRU|
000001F0: 4E 43 48 3B 56 45 4B 54  4F 52 45 4E 2D 54 41 42  |NCH;VEKTOREN-TAB|
00000200: 45 4C 4C 45 00 70 5E F6  04 20 2E 92 4C 49 53 54  |ELLE.p^.. ..LIST|
00000210: 00 7C 5E 00 05 20 2E 92  45 58 45 43 00 82 5E 0A  |.|^.. ..EXEC..^.|
00000220: 05 3B 00 99 5E 14 05 43  52 55 4E 43 48 20 A0 3B  |.;..^..CRUNCH .;|
00000230: 41 43 20 52 45 54 54 45  4E 00 C3 5E 1E 05 20 81  |AC RETTEN..^.. .|
00000240: 23 3E 28 43 4D 44 4C 53  54 29 3B 53 54 41 52 54  |#>(CMDLST);START|
00000250: 41 44 52 45 53 53 45 20  43 4D 44 2D 54 41 42 45  |ADRESSE CMD-TABE|
00000260: 4C 4C 45 00 D4 5E 28 05  20 84 23 3C 28 43 4D 44  |LLE..^(. .#<(CMD|
00000270: 4C 53 54 29 00 ED 5E 32  05 20 97 53 45 41 52 43  |LST)..^2. .SEARC|
00000280: 48 3B 57 4F 52 54 20 53  55 43 48 45 4E 00 0F 5F  |H;WORT SUCHEN.._|
00000290: 3C 05 20 B5 46 4E 43 52  55 4E 43 48 3B 4E 49 43  |<. .FNCRUNCH;NIC|
000002A0: 48 54 20 47 45 46 55 4E  44 45 4E 20 2D 2D 3E 00  |HT GEFUNDEN -->.|
000002B0: 16 5F 46 05 20 99 00 2E  5F 50 05 20 A1 3B 53 54  |._F. ..._P. .;ST|
000002C0: 41 43 4B 20 42 45 52 45  49 4E 49 47 45 4E 00 35  |ACK BEREINIGEN.5|
000002D0: 5F 5A 05 20 98 00 4C 5F  64 05 20 87 23 24 37 46  |_Z. ..L_d. .#$7F|
000002E0: 3B 54 4F 4B 45 4E 20 49  4E 20 41 43 00 53 5F 6E  |;TOKEN IN AC.S_n|
000002F0: 05 20 A6 00 77 5F 78 05  20 86 23 24 32 37 3B 4B  |. ..w_x. .#$27;K|
00000300: 4C 45 49 4E 53 54 45 53  20 55 53 45 52 2D 43 4D  |LEINSTES USER-CM|
00000310: 44 2D 54 4F 4B 45 4E 00  8B 5F 82 05 20 83 23 24  |D-TOKEN.._.. .#$|
00000320: 30 30 3B 43 4D 44 2D 46  4C 41 47 00 B7 5F 8C 05  |00;CMD-FLAG.._..|
00000330: 20 96 55 43 52 55 4E 43  48 3B 54 4F 4B 45 4E 20  | .UCRUNCH;TOKEN |
00000340: 49 4E 20 42 41 53 49 43  2D 54 45 58 54 20 45 49  |IN BASIC-TEXT EI|
00000350: 4E 53 45 54 5A 45 4E 00  BD 5F 96 05 3B 00 ED 5F  |NSETZEN.._..;.._|
00000360: A0 05 46 4E 43 52 55 4E  43 48 20 81 23 3E 28 46  |..FNCRUNCH .#>(F|
00000370: 4E 4C 53 54 29 3B 53 54  41 52 54 41 44 52 45 53  |NLST);STARTADRES|
00000380: 53 45 20 46 4E 2D 54 41  42 45 4C 4C 45 00 FD 5F  |SE FN-TABELLE.._|
00000390: AA 05 20 84 23 3C 28 46  4E 4C 53 54 29 00 16 60  |.. .#<(FNLST)..`|
000003A0: B4 05 20 97 53 45 41 52  43 48 3B 57 4F 52 54 20  |.. .SEARCH;WORT |
000003B0: 53 55 43 48 45 4E 00 2F  60 BE 05 20 B6 46 4F 55  |SUCHEN./`.. .FOU|
000003C0: 4E 44 3B 47 45 46 55 4E  44 45 4E 20 2D 2D 3E 00  |ND;GEFUNDEN -->.|
000003D0: 35 60 C8 05 3B 00 56 60  D2 05 4E 4F 54 46 4F 55  |5`..;.V`..NOTFOU|
000003E0: 4E 44 20 A1 3B 53 4F 4E  53 54 3A 20 41 43 20 5A  |ND .;SONST: AC Z|
000003F0: 55 52 55 45 43 4B 00 7D  60 DC 05 20 A7 3B 46 4C  |URUECK.}`.. .;FL|
00000400: 41 47 20 46 55 45 52 20  4E 4F 52 4D 41 4C 45 4E  |AG FUER NORMALEN|
00000410: 20 42 41 53 49 43 2D 42  45 46 45 48 4C 00 98 60  | BASIC-BEFEHL..`|
00000420: E6 05 20 96 45 43 52 55  4E 43 48 3B 54 4F 4B 45  |.. .ECRUNCH;TOKE|
00000430: 4E 49 53 49 45 52 45 4E  00 9E 60 F0 05 3B 00 AA  |NISIEREN..`..;..|
00000440: 60 FA 05 46 4F 55 4E 44  20 99 00 C2 60 04 06 20  |`..FOUND ...`.. |
00000450: A1 3B 53 54 41 43 4B 20  42 45 52 45 49 4E 49 47  |.;STACK BEREINIG|
00000460: 45 4E 00 C9 60 0E 06 20  98 00 E0 60 18 06 20 87  |EN..`.. ...`.. .|
00000470: 23 24 37 46 3B 54 4F 4B  45 4E 20 49 4E 20 41 43  |#$7F;TOKEN IN AC|
00000480: 00 E7 60 22 06 20 A6 00  0A 61 2C 06 20 86 23 24  |..`". ...a,. .#$|
00000490: 30 42 3B 4B 4C 45 49 4E  53 54 45 53 20 55 53 45  |0B;KLEINSTES USE|
000004A0: 52 2D 46 4E 2D 54 4F 4B  45 4E 00 1D 61 36 06 20  |R-FN-TOKEN..a6. |
000004B0: 83 23 24 46 46 3B 46 4E  2D 46 4C 41 47 00 43 61  |.#$FF;FN-FLAG.Ca|
000004C0: 40 06 20 96 55 43 52 55  4E 43 48 3B 49 4E 20 42  |@. .UCRUNCH;IN B|
000004D0: 41 53 49 43 2D 54 45 58  54 20 45 49 4E 53 45 54  |ASIC-TEXT EINSET|
000004E0: 5A 45 4E 00 49 61 4A 06  3B 00 6D 61 54 06 4C 49  |ZEN.IaJ.;.maT.LI|
000004F0: 53 54 20 8F 23 24 38 30  3B 4D 53 42 20 46 55 45  |ST .#$80;MSB FUE|
00000500: 52 20 4C 49 53 54 20 53  45 54 5A 45 4E 00 74 61  |R LIST SETZEN.ta|
00000510: 5E 06 20 A2 00 92 61 68  06 20 B8 46 4E 4C 49 53  |^. ...ah. .FNLIS|
00000520: 54 3B 46 4E 2D 54 4F 4B  45 4E 3F 20 4A 41 20 2D  |T;FN-TOKEN? JA -|
00000530: 2D 3E 00 98 61 72 06 3B  00 B8 61 7C 06 20 A7 3B  |->..ar.;..a|. .;|
00000540: 4B 4C 45 49 4E 53 54 45  53 20 55 53 45 52 2D 43  |KLEINSTES USER-C|
00000550: 4D 44 2D 54 4F 4B 45 4E  00 E5 61 86 06 20 92 23  |MD-TOKEN..a.. .#|
00000560: 24 32 37 3B 46 55 45 52  20 54 41 42 45 4C 4C 45  |$27;FUER TABELLE|
00000570: 4E 2D 4F 46 46 53 45 54  20 53 55 42 54 52 41 48  |N-OFFSET SUBTRAH|
00000580: 49 45 52 45 4E 00 EC 61  90 06 20 99 00 16 62 9A  |IEREN..a.. ...b.|
00000590: 06 20 81 23 3E 28 43 4D  44 4C 53 54 29 3B 53 54  |. .#>(CMDLST);ST|
000005A0: 41 52 54 41 44 52 45 53  53 45 20 43 4D 44 2D 54  |ARTADRESSE CMD-T|
000005B0: 41 42 45 4C 4C 45 00 27  62 A4 06 20 84 23 3C 28  |ABELLE.'b.. .#<(|
000005C0: 43 4D 44 4C 53 54 29 00  3C 62 AE 06 20 96 45 4C  |CMDLST).<b.. .EL|
000005D0: 49 53 54 3B 2D 2D 3E 20  4C 49 53 54 00 42 62 B8  |IST;--> LIST.Bb.|
000005E0: 06 3B 00 67 62 C2 06 46  4E 4C 49 53 54 20 A7 3B  |.;.gb..FNLIST .;|
000005F0: 4B 4C 45 49 4E 53 54 45  53 20 55 53 45 52 2D 46  |KLEINSTES USER-F|
00000600: 4E 2D 54 4F 4B 45 4E 00  94 62 CC 06 20 92 23 24  |N-TOKEN..b.. .#$|
00000610: 30 42 3B 46 55 45 52 20  54 41 42 45 4C 4C 45 4E  |0B;FUER TABELLEN|
00000620: 2D 4F 46 46 53 45 54 20  53 55 42 54 52 41 48 49  |-OFFSET SUBTRAHI|
00000630: 45 52 45 4E 00 9B 62 D6  06 20 99 00 C3 62 E0 06  |EREN..b.. ...b..|
00000640: 20 81 23 3E 28 46 4E 4C  53 54 29 3B 53 54 41 52  | .#>(FNLST);STAR|
00000650: 54 41 44 52 45 53 53 45  20 46 4E 2D 54 41 42 45  |TADRESSE FN-TABE|
00000660: 4C 4C 45 00 D3 62 EA 06  20 84 23 3C 28 46 4E 4C  |LLE..b.. .#<(FNL|
00000670: 53 54 29 00 E8 62 F4 06  20 96 45 4C 49 53 54 3B  |ST)..b.. .ELIST;|
00000680: 2D 2D 3E 20 4C 49 53 54  00 EE 62 FE 06 3B 00 0C  |--> LIST..b..;..|
00000690: 63 08 07 45 58 45 43 20  87 23 24 37 46 3B 4D 53  |c..EXEC .#$7F;MS|
000006A0: 42 20 41 55 53 42 4C 45  4E 44 45 4E 00 2C 63 12  |B AUSBLENDEN.,c.|
000006B0: 07 20 A7 3B 4B 4C 45 49  4E 53 54 45 53 20 55 53  |. .;KLEINSTES US|
000006C0: 45 52 2D 43 4D 44 2D 54  4F 4B 45 4E 00 59 63 1C  |ER-CMD-TOKEN.Yc.|
000006D0: 07 20 92 23 24 32 37 3B  46 55 45 52 20 54 41 42  |. .#$27;FUER TAB|
000006E0: 45 4C 4C 45 4E 2D 4F 46  46 53 45 54 20 53 55 42  |ELLEN-OFFSET SUB|
000006F0: 54 52 41 48 49 45 52 45  4E 00 7B 63 26 07 20 8C  |TRAHIEREN.{c&. .|
00000700: 3B 4D 41 4C 20 20 32 2C  20 44 41 20 32 2D 42 59  |;MAL  2, DA 2-BY|
00000710: 54 45 20 41 44 52 45 53  53 45 4E 00 82 63 30 07  |TE ADRESSEN..c0.|
00000720: 20 9B 00 A4 63 3A 07 20  81 43 4F 4D 41 44 52 2B  | ...c:. .COMADR+|
00000730: 31 2C 59 3B 52 4F 55 54  49 4E 45 4E 2D 41 44 52  |1,Y;ROUTINEN-ADR|
00000740: 45 53 53 45 00 BB 63 44  07 20 A0 3B 41 55 46 20  |ESSE..cD. .;AUF |
00000750: 53 54 41 43 4B 20 4C 45  47 45 4E 00 CA 63 4E 07  |STACK LEGEN..cN.|
00000760: 20 81 43 4F 4D 41 44 52  2C 59 00 D1 63 58 07 20  | .COMADR,Y..cX. |
00000770: A0 00 F3 63 62 07 20 96  43 48 52 47 45 54 3B 2D  |...cb. .CHRGET;-|
00000780: 2D 3E 20 52 54 53 20 52  55 46 54 20 52 4F 55 54  |-> RTS RUFT ROUT|
00000790: 49 4E 45 00 F9 63 6C 07  3B 00 1E 64 76 07 45 58  |INE..cl.;..dv.EX|
000007A0: 45 43 46 4E 20 A7 3B 4B  4C 45 49 4E 53 54 45 53  |ECFN .;KLEINSTES|
000007B0: 20 55 53 45 52 2D 46 4E  2D 54 4F 4B 45 4E 00 4B  | USER-FN-TOKEN.K|
000007C0: 64 80 07 20 92 23 24 30  42 3B 46 55 45 52 20 54  |d.. .#$0B;FUER T|
000007D0: 41 42 45 4C 4C 45 4E 2D  4F 46 46 53 45 54 20 53  |ABELLEN-OFFSET S|
000007E0: 55 42 54 52 41 48 49 45  52 45 4E 00 6C 64 8A 07  |UBTRAHIEREN.ld..|
000007F0: 20 8C 3B 4D 41 4C 20 32  2C 20 44 41 20 32 2D 42  | .;MAL 2, DA 2-B|
00000800: 59 54 45 20 41 44 52 45  53 53 45 4E 00 73 64 94  |YTE ADRESSEN.sd.|
00000810: 07 20 9B 00 95 64 9E 07  20 81 46 4E 41 44 52 2B  |. ...d.. .FNADR+|
00000820: 31 2C 59 3B 20 52 4F 55  54 49 4E 45 4E 2D 41 44  |1,Y; ROUTINEN-AD|
00000830: 52 45 53 53 45 00 BE 64  A8 07 20 82 46 4E 4A 55  |RESSE..d.. .FNJU|
00000840: 4D 50 2B 31 3B 49 4E 20  53 50 52 55 4E 47 56 45  |MP+1;IN SPRUNGVE|
00000850: 4B 54 4F 52 20 45 49 4E  54 52 41 47 45 4E 00 CC  |KTOR EINTRAGEN..|
00000860: 64 B2 07 20 81 46 4E 41  44 52 2C 59 00 D9 64 BC  |d.. .FNADR,Y..d.|
00000870: 07 20 82 46 4E 4A 55 4D  50 00 F6 64 C6 07 20 97  |. .FNJUMP..d.. .|
00000880: 4A 4D 50 45 52 3B 52 4F  55 54 49 4E 45 20 41 55  |JMPER;ROUTINE AU|
00000890: 46 52 55 46 45 4E 00 1B  65 D0 07 20 A6 3B 46 4C  |FRUFEN..e.. .;FL|
000008A0: 41 47 20 46 55 45 52 20  55 53 45 52 2D 46 4E 20  |AG FUER USER-FN |
000008B0: 41 55 53 47 45 46 55 45  48 52 54 00 22 65 DA 07  |AUSGEFUEHRT."e..|
000008C0: 20 A4 00 28 65 E4 07 3B  00 56 65 EE 07 43 4F 4D  | ..(e..;.Ve..COM|
000008D0: 41 44 52 20 2E 92 46 55  4C 4C 53 43 52 45 45 4E  |ADR ..FULLSCREEN|
000008E0: 2D 31 3B 41 44 52 45 53  53 4C 49 53 54 45 20 42  |-1;ADRESSLISTE B|
000008F0: 45 46 45 48 4C 45 00 5C  65 F8 07 3B 00 8F 65 02  |EFEHLE.\e..;..e.|
00000900: 08 3B 48 49 45 52 20 4B  4F 45 4E 4E 45 4E 20 57  |.;HIER KOENNEN W|
00000910: 45 49 54 45 52 45 20 42  45 46 45 48 4C 53 41 44  |EITERE BEFEHLSAD|
00000920: 52 45 53 53 45 4E 2D 31  20 53 54 45 48 45 4E 00  |RESSEN-1 STEHEN.|
00000930: 95 65 0C 08 3B 00 9B 65  16 08 3B 00 C2 65 20 08  |.e..;..e..;..e .|
00000940: 46 4E 41 44 52 20 2E 92  54 45 4E 3B 41 44 52 45  |FNADR ..TEN;ADRE|
00000950: 53 53 4C 49 53 54 45 20  46 55 4E 4B 54 49 4F 4E  |SSLISTE FUNKTION|
00000960: 45 4E 00 C8 65 2A 08 3B  00 FB 65 34 08 3B 48 49  |EN..e*.;..e4.;HI|
00000970: 45 52 20 4B 4F 45 4E 4E  45 4E 20 57 45 49 54 45  |ER KOENNEN WEITE|
00000980: 52 45 20 46 55 4E 4B 54  49 4F 4E 53 41 44 52 45  |RE FUNKTIONSADRE|
00000990: 53 53 45 4E 20 53 54 45  48 45 4E 00 01 66 3E 08  |SSEN STEHEN..f>.|
000009A0: 3B 00 07 66 48 08 3B 00  3B 66 52 08 43 4D 44 4C  |;..fH.;.;fR.CMDL|
000009B0: 53 54 20 2E 91 22 46 55  4C 4C 53 43 52 45 45 CE  |ST .."FULLSCREE.|
000009C0: 22 3B 53 43 48 4C 55 45  53 53 45 4C 57 4F 45 52  |";SCHLUESSELWOER|
000009D0: 54 45 52 20 42 45 46 45  48 4C 45 00 7C 66 5C 08  |TER BEFEHLE.|f\.|
000009E0: 3B 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
000009F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000A00: 20 20 20 20 20 20 20 2C  45 52 53 54 45 53 20 54  |       ,ERSTES T|
00000A10: 4F 4B 45 4E 20 24 46 45  20 24 32 37 00 82 66 66  |OKEN $FE $27..ff|
00000A20: 08 3B 00 B5 66 70 08 3B  48 49 45 52 20 4B 4F 45  |.;..fp.;HIER KOE|
00000A30: 4E 4E 45 4E 20 57 45 49  54 45 52 45 20 53 43 48  |NNEN WEITERE SCH|
00000A40: 4C 55 45 53 53 45 4C 57  4F 45 52 54 45 52 20 53  |LUESSELWOERTER S|
00000A50: 54 45 48 45 4E 00 E9 66  7A 08 3B 44 45 52 20 4C  |TEHEN..fz.;DER L|
00000A60: 45 54 5A 54 45 20 42 55  43 48 53 54 41 42 45 20  |ETZTE BUCHSTABE |
00000A70: 4D 55 53 53 20 49 4D 4D  45 52 20 47 45 53 48 49  |MUSS IMMER GESHI|
00000A80: 46 54 45 54 20 53 45 49  4E 00 EF 66 84 08 3B 00  |FTET SEIN..f..;.|
00000A90: 06 67 8E 08 20 2E 91 30  3B 54 41 42 45 4C 4C 45  |.g.. ..0;TABELLE|
00000AA0: 4E 2D 45 4E 44 45 00 0C  67 98 08 3B 00 3B 67 A2  |N-ENDE..g..;.;g.|
00000AB0: 08 46 4E 4C 53 54 20 2E  91 22 54 45 CE 22 3B 53  |.FNLST .."TE.";S|
00000AC0: 43 48 4C 55 45 53 53 45  4C 57 4F 45 52 54 45 52  |CHLUESSELWOERTER|
00000AD0: 20 46 55 4E 4B 54 49 4F  4E 45 4E 00 7A 67 AC 08  | FUNKTIONEN.zg..|
00000AE0: 3B 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00000AF0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000B00: 20 20 20 20 20 2C 45 52  53 54 45 53 20 54 4F 4B  |     ,ERSTES TOK|
00000B10: 45 4E 20 24 43 45 20 24  30 42 00 80 67 B6 08 3B  |EN $CE $0B..g..;|
00000B20: 00 B3 67 C0 08 3B 48 49  45 52 20 4B 4F 45 4E 4E  |..g..;HIER KOENN|
00000B30: 45 4E 20 57 45 49 54 45  52 45 20 53 43 48 4C 55  |EN WEITERE SCHLU|
00000B40: 45 53 53 45 4C 57 4F 45  52 54 45 52 20 53 54 45  |ESSELWOERTER STE|
00000B50: 48 45 4E 00 E7 67 CA 08  3B 44 45 52 20 4C 45 54  |HEN..g..;DER LET|
00000B60: 5A 54 45 20 42 55 43 48  53 54 41 42 45 20 4D 55  |ZTE BUCHSTABE MU|
00000B70: 53 53 20 49 4D 4D 45 52  20 47 45 53 48 49 46 54  |SS IMMER GESHIFT|
00000B80: 45 54 20 53 45 49 4E 00  ED 67 D4 08 3B 00 04 68  |ET SEIN..g..;..h|
00000B90: DE 08 20 2E 91 30 3B 54  41 42 45 4C 4C 45 4E 2D  |.. ..0;TABELLEN-|
00000BA0: 45 4E 44 45 00 0A 68 E8  08 3B 00 3D 68 F2 08 3B  |ENDE..h..;.=h..;|
00000BB0: 4A 45 54 5A 54 20 46 4F  4C 47 45 4E 20 44 49 45  |JETZT FOLGEN DIE|
00000BC0: 20 42 45 46 45 48 4C 53  2D 52 4F 55 54 49 4E 45  | BEFEHLS-ROUTINE|
00000BD0: 4E 20 28 42 45 49 53 50  49 45 4C 45 29 00 43 68  |N (BEISPIELE).Ch|
00000BE0: FC 08 3B 00 49 68 06 09  3B 00 7C 68 10 09 46 55  |..;.Ih..;.|h..FU|
00000BF0: 4C 4C 53 43 52 45 45 4E  20 96 24 43 41 32 34 3B  |LLSCREEN .$CA24;|
00000C00: 56 4F 4C 4C 45 4E 20 C2  49 4C 44 53 43 48 49 52  |VOLLEN .ILDSCHIR|
00000C10: 4D 20 48 45 52 53 54 45  4C 4C 45 4E 00 82 68 1A  |M HERSTELLEN..h.|
00000C20: 09 3B 00 A6 68 24 09 54  45 4E 20 97 24 37 39 35  |.;..h$.TEN .$795|
00000C30: 36 3B 54 45 53 54 20 41  55 46 20 22 29 22 2C 20  |6;TEST AUF ")", |
00000C40: 49 4D 4D 45 52 21 00 BF  68 2E 09 20 96 24 38 42  |IMMER!..h.. .$8B|
00000C50: 31 37 3B 46 41 43 20 4D  41 4C 20 5A 45 48 4E 00  |17;FAC MAL ZEHN.|
00000C60: C5 68 38 09 3B 00 CB 68  42 09 3B 00 0C 69 4C 09  |.h8.;..hB.;..iL.|
00000C70: 3B 44 49 45 20 46 4F 4C  47 45 4E 44 45 4E 20 57  |;DIE FOLGENDEN W|
00000C80: 45 52 54 45 20 4B 4F 45  4E 4E 45 4E 20 4E 49 43  |ERTE KOENNEN NIC|
00000C90: 48 54 20 41 4C 53 20 54  4F 4B 45 4E 20 42 45 4E  |HT ALS TOKEN BEN|
00000CA0: 55 54 5A 54 20 57 45 52  44 45 4E 3A 00 12 69 56  |UTZT WERDEN:..iV|
00000CB0: 09 3B 00 36 69 60 09 3B  20 20 20 24 32 30 2C 20  |.;.6i`.;   $20, |
00000CC0: 45 4E 54 53 50 52 49 43  48 54 20 53 50 41 43 45  |ENTSPRICHT SPACE|
00000CD0: 20 28 22 20 22 29 00 61  69 6A 09 3B 20 20 20 24  | (" ").aij.;   $|
00000CE0: 32 32 2C 20 45 4E 54 53  50 52 49 43 48 54 20 41  |22, ENTSPRICHT A|
00000CF0: 4E 46 55 45 48 52 55 4E  47 53 5A 45 49 43 48 45  |NFUEHRUNGSZEICHE|
00000D00: 4E 00 8C 69 74 09 3B 20  20 20 24 33 41 2C 20 45  |N..it.;   $3A, E|
00000D10: 4E 54 53 50 52 49 43 48  54 20 54 52 45 4E 4E 5A  |NTSPRICHT TRENNZ|
00000D20: 45 49 43 48 45 4E 20 28  22 3A 22 29 00 92 69 7E  |EICHEN (":")..i~|
00000D30: 09 3B 00 D3 69 88 09 3B  41 4E 20 49 48 52 45 52  |.;..i..;AN IHRER|
00000D40: 20 53 54 45 4C 4C 45 20  49 53 54 20 49 4E 20 44  | STELLE IST IN D|
00000D50: 45 52 20 41 44 52 45 53  53 4C 49 53 54 45 20 2E  |ER ADRESSLISTE .|
00000D60: 57 4F 52 44 20 30 20 45  49 4E 5A 55 54 52 41 47  |WORD 0 EINZUTRAG|
00000D70: 45 4E 2C 00 FD 69 92 09  3B 49 4E 20 44 45 52 20  |EN,..i..;IN DER |
00000D80: 53 43 48 4C 55 45 53 53  45 4C 57 4F 52 54 4C 49  |SCHLUESSELWORTLI|
00000D90: 53 54 45 20 2E 42 59 54  45 20 24 41 30 00 00 00  |STE .BYTE $A0...|

A\.\..;                TOPASS ASSEMBLERL
ISTING..\..;                       XMAIN
.SRC..\..;              MICHAEL SCHMAND,
 31.01.1987..\..;..\....$1300..\..;..]$.
;..]....ECRUNCH=$4321.)]8...UCRUNCH=$43B
2.<]B...SEARCH=$43E2.N]L...ELIST=$516A.A
]V...CHRGET=$0380.S]`...JMPER=$0056..]J.
..FNJUMP=$0057..]T.;..]~.INIT .#$5;ESC-V
EKTOREN SETZEN.B]..ILOOP .VECTOR,X.P].. 
.$030C,X.W].. ...].. .ILOOP..^.. .#<(EXE
CFN);ESC-FN-VEKTOR SETZEN..^.. .$02FC.&^
D. .#>(EXECFN).2^N. .$02FD.9^X. ..?^..;.
D^..VECTOR ..CRUNCH;VEKTOREN-TABELLE.P^.
. ..LIST.|^.. ..EXEC..^..;..^..CRUNCH  ;
AC RETTEN.C^.. .#>(CMDLST);STARTADRESSE 
CMD-TABELLE.T^(. .#<(CMDLST)..^2. .SEARC
H;WORT SUCHEN.._<. .FNCRUNCH;NICHT GEFUN
DEN -->.._F. ..._P. .;STACK BEREINIGEN.5
_Z. ..L_D. .#$7F;TOKEN IN AC.S_N. ..W_X.
 .#$27;KLEINSTES USER-CMD-TOKEN.._.. .#$
00;CMD-FLAG.._.. .UCRUNCH;TOKEN IN BASIC
-TEXT EINSETZEN.._..;.._ .FNCRUNCH .#>(F
NLST);STARTADRESSE FN-TABELLE.._.. .#<(F
NLST)..`.. .SEARCH;WORT SUCHEN./`.. .FOU
ND;GEFUNDEN -->.5`H.;.V`R.NOTFOUND .;SON
ST: AC ZURUECK.}`.. .;FLAG FUER NORMALEN
 BASIC-BEFEHL..`.. .ECRUNCH;TOKENISIEREN
..`..;..`..FOUND ..B`.. .;STACK BEREINIG
EN.I`.. ...`.. .#$7F;TOKEN IN AC..`". ..
.A,. .#$0B;KLEINSTES USER-FN-TOKEN..A6. 
.#$FF;FN-FLAG.CA@. .UCRUNCH;IN BASIC-TEX
T EINSETZEN.IAJ.;.MAT.LIST .#$80;MSB FUE
R LIST SETZEN.TA^. ...AH. .FNLIST;FN-TOK
EN? JA -->..AR.;..A|. .;KLEINSTES USER-C
MD-TOKEN..A.. .#$27;FUER TABELLEN-OFFSET
 SUBTRAHIEREN..A.. ...B.. .#>(CMDLST);ST
ARTADRESSE CMD-TABELLE.'B.. .#<(CMDLST).
<B.. .ELIST;--> LIST.BB..;.GBB.FNLIST .;
KLEINSTES USER-FN-TOKEN..BL. .#$0B;FUER 
TABELLEN-OFFSET SUBTRAHIEREN..BV. ..CB..
 .#>(FNLST);STARTADRESSE FN-TABELLE.SB..
 .#<(FNLST)..B.. .ELIST;--> LIST..B..;..
C..EXEC .#$7F;MSB AUSBLENDEN.,C.. .;KLEI
NSTES USER-CMD-TOKEN.YC.. .#$27;FUER TAB
ELLEN-OFFSET SUBTRAHIEREN.{C&. .;MAL  2,
 DA 2-BYTE ADRESSEN..C0. ...C:. .COMADR+
1,Y;ROUTINEN-ADRESSE..CD.  ;AUF STACK LE
GEN.JCN. .COMADR,Y.QCX.  ..CB. .CHRGET;-
-> RTS RUFT ROUTINE..CL.;..DV.EXECFN .;K
LEINSTES USER-FN-TOKEN.KD.. .#$0B;FUER T
ABELLEN-OFFSET SUBTRAHIEREN.LD.. .;MAL 2
, DA 2-BYTE ADRESSEN.SD.. ...D.. .FNADR+
1,Y; ROUTINEN-ADRESSE..D.. .FNJUMP+1;IN 
SPRUNGVEKTOR EINTRAGEN.LD.. .FNADR,Y.YD.
. .FNJUMP..DF. .JMPER;ROUTINE AUFRUFEN..
EP. .;FLAG FUER USER-FN AUSGEFUEHRT."EZ.
 ..(E..;.VE..COMADR ..FULLSCREEN-1;ADRES
SLISTE BEFEHLE.\E..;..E..;HIER KOENNEN W
EITERE BEFEHLSADRESSEN-1 STEHEN..E..;..E
..;.BE .FNADR ..TEN;ADRESSLISTE FUNKTION
EN.HE*.;..E4.;HIER KOENNEN WEITERE FUNKT
IONSADRESSEN STEHEN..F>.;..FH.;.;FR.CMDL
ST .."FULLSCREEN";SCHLUESSELWOERTER BEFE
HLE.|F\.;                               
       ,ERSTES TOKEN $FE $27..FF.;..FP.;
HIER KOENNEN WEITERE SCHLUESSELWOERTER S
TEHEN..FZ.;DER LETZTE BUCHSTABE MUSS IMM
ER GESHIFTET SEIN..F..;..G.. ..0;TABELLE
N-ENDE..G..;.;G..FNLST .."TEN";SCHLUESSE
LWOERTER FUNKTIONEN.ZG..;               
                     ,ERSTES TOKEN $CE $
0B..G..;..G..;HIER KOENNEN WEITERE SCHLU
ESSELWOERTER STEHEN..GJ.;DER LETZTE BUCH
STABE MUSS IMMER GESHIFTET SEIN..GT.;..H
.. ..0;TABELLEN-ENDE..H..;.=H..;JETZT FO
LGEN DIE BEFEHLS-ROUTINEN (BEISPIELE).CH
..;.IH..;.|H..FULLSCREEN .$CA24;VOLLEN B
ILDSCHIRM HERSTELLEN..H..;..H$.TEN .$795
6;TEST AUF ")", IMMER!..H.. .$8B17;FAC M
AL ZEHN.EH8.;.KHB.;..IL.;DIE FOLGENDEN W
ERTE KOENNEN NICHT ALS TOKEN BENUTZT WER
DEN:..IV.;.6I`.;   $20, ENTSPRICHT SPACE
 (" ").AIJ.;   $22, ENTSPRICHT ANFUEHRUN
GSZEICHEN..IT.;   $3A, ENTSPRICHT TRENNZ
EICHEN (":")..I~.;.SI..;AN IHRER STELLE 
IST IN DER ADRESSLISTE .WORD 0 EINZUTRAG
EN,..I..;IN DER SCHLUESSELWORTLISTE .BYT
E $A0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL