SWITCH.SRC
FILE INFORMATION
FILENAME(S): SWITCH.SRC
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-02 16:39:38
APPEARS ON: 1 disk(s)
FILE HASH
fbae04b0a6eeb8ef52a91f6d49e902c4d272c6e5e4dc7cf0f10d28fceb3d9362
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 128 | SWITCH.SRC | PRG | Treasure Chest - Plattfuss | 3 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 61 5C A5 5C 64 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A |a\.\d.; ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 00 E9 5C 6E 00 3B 20 2A 20 20 20 |*****..\n.; * |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 2A 00 2D 5D 78 00 3B 20 | *.-]x.; |
00000090: 2A 20 20 51 20 55 20 45 20 4C 20 4C 20 54 20 45 |* Q U E L L T E|
000000A0: 20 58 20 54 20 20 20 5A 20 55 20 52 20 20 20 22 | X T Z U R "|
000000B0: 53 20 57 20 49 20 54 20 43 20 48 22 2D 52 20 4F |S W I T C H"-R O|
000000C0: 20 55 20 54 20 49 20 4E 20 45 20 20 2A 00 71 5D | U T I N E *.q]|
000000D0: 82 00 3B 20 2A 20 20 3D 3D 3D 3D 3D 3D 3D 3D 3D |..; * =========|
000000E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 20 20 |============== |
00000110: 2A 00 B5 5D 8C 00 3B 20 2A 20 20 20 20 20 20 20 |*..]..; * |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 2A 00 F9 5D 96 00 3B 20 2A 20 20 45 | *..]..; * E|
00000160: 52 53 54 45 4C 4C 54 20 4D 49 54 20 44 45 4D 20 |RSTELLT MIT DEM |
00000170: 41 53 53 45 4D 42 4C 45 52 3A 20 22 54 4F 50 2D |ASSEMBLER: "TOP-|
00000180: 41 53 53 22 20 28 4D 41 52 4B 54 20 26 20 54 45 |ASS" (MARKT & TE|
00000190: 43 48 4E 49 4B 29 20 20 2A 00 3D 5E A0 00 3B 20 |CHNIK) *.=^..; |
000001A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 81 5E | *..^|
000001E0: AA 00 3B 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..; ************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 00 87 5E B4 00 3B 00 99 5E BE 00 20 2E 8F 42 |*..^..;..^.. ..B|
00000230: 41 4E 4B 3D 24 30 30 30 32 00 AD 5E C8 00 20 2E |ANK=$0002..^.. .|
00000240: 8F 50 43 48 49 47 48 3D 24 30 30 30 33 00 C0 5E |.PCHIGH=$0003..^|
00000250: D2 00 20 2E 8F 50 43 4C 4F 57 3D 24 30 30 30 34 |.. ..PCLOW=$0004|
00000260: 00 DC 5E DC 00 20 2E 8F 53 54 41 54 55 53 52 45 |..^.. ..STATUSRE|
00000270: 47 49 53 54 45 52 3D 24 30 30 30 35 00 EE 5E E6 |GISTER=$0005..^.|
00000280: 00 20 2E 8F 41 4B 4B 55 3D 24 30 30 30 36 00 05 |. ..AKKU=$0006..|
00000290: 5F F0 00 20 2E 8F 58 52 45 47 49 53 54 45 52 3D |_.. ..XREGISTER=|
000002A0: 24 30 30 30 37 00 1C 5F FA 00 20 2E 8F 59 52 45 |$0007.._.. ..YRE|
000002B0: 47 49 53 54 45 52 3D 24 30 30 30 38 00 30 5F 04 |GISTER=$0008.0_.|
000002C0: 01 20 2E 8F 56 41 52 54 41 42 3D 24 30 30 32 46 |. ..VARTAB=$002F|
000002D0: 00 46 5F 0E 01 20 2E 8F 41 52 52 41 59 54 41 42 |.F_.. ..ARRAYTAB|
000002E0: 3D 24 30 30 33 31 00 5D 5F 18 01 20 2E 8F 4E 45 |=$0031.]_.. ..NE|
000002F0: 57 4A 53 52 46 41 52 3D 24 30 32 43 44 00 74 5F |WJSRFAR=$02CD.t_|
00000300: 22 01 20 2E 8F 4E 45 57 4A 4D 50 46 41 52 3D 24 |". ..NEWJMPFAR=$|
00000310: 30 32 45 33 00 90 5F 2C 01 20 2E 8F 52 4F 55 54 |02E3.._,. ..ROUT|
00000320: 49 4E 45 4E 4E 55 4D 4D 45 52 3D 24 30 33 45 34 |INENNUMMER=$03E4|
00000330: 00 A7 5F 36 01 20 2E 8F 55 53 52 56 45 43 54 4F |.._6. ..USRVECTO|
00000340: 52 3D 24 31 32 31 39 00 C5 5F 40 01 20 2E 8F 52 |R=$1219.._@. ..R|
00000350: 41 4D 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3D |AMCONFIGURATION=|
00000360: 24 44 35 30 36 00 E0 5F 4A 01 20 2E 8F 43 4F 4E |$D506.._J. ..CON|
00000370: 46 49 47 55 52 41 54 49 4F 4E 3D 24 46 46 30 30 |FIGURATION=$FF00|
00000380: 00 F6 5F 54 01 20 2E 8F 50 45 45 4B 50 4F 4B 45 |.._T. ..PEEKPOKE|
00000390: 3D 24 46 46 35 30 00 FC 5F 5E 01 3B 00 09 60 68 |=$FF50.._^.;..`h|
000003A0: 01 20 2E 90 24 30 43 30 30 00 0F 60 72 01 3B 00 |. ..$0C00..`r.;.|
000003B0: 15 60 7C 01 3B 00 36 60 86 01 3B 20 2A 2A 2A 20 |.`|.;.6`..; *** |
000003C0: 4B 45 52 4E 41 4C 20 2A 2A 2A 20 28 56 45 52 54 |KERNAL *** (VERT|
000003D0: 45 49 4C 45 52 29 00 5D 60 90 01 3B 20 4E 55 4D |EILER).]`..; NUM|
000003E0: 4D 45 52 20 44 2E 20 52 4F 55 54 49 4E 45 20 49 |MER D. ROUTINE I|
000003F0: 4E 20 24 30 33 45 34 20 28 39 39 36 29 00 74 60 |N $03E4 (996).t`|
00000400: 9A 01 3B 20 44 41 4E 4E 20 22 4A 53 52 20 24 30 |..; DANN "JSR $0|
00000410: 43 30 30 22 00 8E 60 A4 01 3B 20 41 55 53 20 42 |C00"..`..; AUS B|
00000420: 45 4C 49 45 42 49 47 45 52 20 42 41 4E 4B 00 94 |ELIEBIGER BANK..|
00000430: 60 AE 01 3B 00 AF 60 B8 01 4B 45 52 4E 41 4C 20 |`..;..`..KERNAL |
00000440: 82 41 4B 4B 55 3B 20 52 45 47 49 53 54 45 52 00 |.AKKU; REGISTER.|
00000450: CC 60 C2 01 20 88 58 52 45 47 49 53 54 45 52 3B |.`.. .XREGISTER;|
00000460: 20 49 4E 20 5A 45 52 4F 50 41 47 45 00 E4 60 CC | IN ZEROPAGE..`.|
00000470: 01 20 89 59 52 45 47 49 53 54 45 52 3B 20 52 45 |. .YREGISTER; RE|
00000480: 54 54 45 4E 00 F7 60 D6 01 20 81 23 31 35 3B 20 |TTEN..`.. .#15; |
00000490: 42 41 4E 4B 20 31 35 00 0E 61 E0 01 20 82 42 41 |BANK 15..a.. .BA|
000004A0: 4E 4B 3B 20 45 49 4E 53 54 45 4C 4C 45 4E 00 27 |NK; EINSTELLEN.'|
000004B0: 61 EA 01 20 81 23 3C 28 24 46 46 34 34 29 3B 20 |a.. .#<($FF44); |
000004C0: 41 44 52 45 53 53 45 00 46 61 F4 01 20 82 50 43 |ADRESSE.Fa.. .PC|
000004D0: 4C 4F 57 3B 20 44 45 52 20 53 50 52 55 4E 47 54 |LOW; DER SPRUNGT|
000004E0: 41 42 45 4C 4C 45 00 63 61 FE 01 20 81 23 3E 28 |ABELLE.ca.. .#>(|
000004F0: 24 46 46 34 34 29 3B 20 49 4E 20 5A 45 52 4F 50 |$FF44); IN ZEROP|
00000500: 41 47 45 00 79 61 08 02 20 82 50 43 48 49 47 48 |AGE.ya.. .PCHIGH|
00000510: 3B 20 41 42 4C 45 47 45 4E 00 8E 61 12 02 20 81 |; ABLEGEN..a.. .|
00000520: 52 4F 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 00 AC |ROUTINENNUMMER..|
00000530: 61 1C 02 20 85 23 32 30 3B 20 4D 49 54 20 32 30 |a.. .#20; MIT 20|
00000540: 20 56 45 52 47 4C 45 49 43 48 45 4E 00 D0 61 26 | VERGLEICHEN..a&|
00000550: 02 20 B5 4B 4C 45 49 4E 45 52 3B 20 43 3D 30 20 |. .KLEINER; C=0 |
00000560: 48 45 49 53 53 54 20 22 4B 4C 45 49 4E 45 52 22 |HEISST "KLEINER"|
00000570: 00 01 62 30 02 20 8A 50 43 4C 4F 57 3B 20 4C 4F |..b0. .PCLOW; LO|
00000580: 57 2D 42 59 54 45 20 44 45 52 20 53 50 52 55 4E |W-BYTE DER SPRUN|
00000590: 47 54 41 42 45 4C 4C 45 20 45 52 48 4F 45 48 45 |GTABELLE ERHOEHE|
000005A0: 4E 00 2A 62 3A 02 4B 4C 45 49 4E 45 52 20 8C 3B |N.*b:.KLEINER .;|
000005B0: 20 41 4B 4B 55 20 4D 49 54 20 32 20 4D 55 4C 54 | AKKU MIT 2 MULT|
000005C0: 49 50 4C 49 5A 49 45 52 45 4E 00 60 62 44 02 20 |IPLIZIEREN.`bD. |
000005D0: 86 52 4F 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 3B |.ROUTINENNUMMER;|
000005E0: 20 55 4E 44 20 4E 55 4D 4D 45 52 20 44 45 52 20 | UND NUMMER DER |
000005F0: 52 4F 55 54 49 4E 45 20 41 44 44 49 45 52 45 4E |ROUTINE ADDIEREN|
00000600: 00 91 62 4E 02 20 86 50 43 4C 4F 57 3B 20 4C 4F |..bN. .PCLOW; LO|
00000610: 57 2D 42 59 54 45 20 44 45 52 20 53 50 52 55 4E |W-BYTE DER SPRUN|
00000620: 47 54 41 42 45 4C 4C 45 20 41 44 44 49 45 52 45 |GTABELLE ADDIERE|
00000630: 4E 00 C1 62 58 02 20 82 50 43 4C 4F 57 3B 20 57 |N..bX. .PCLOW; W|
00000640: 45 52 54 20 49 4E 20 4C 4F 57 2D 42 59 54 45 20 |ERT IN LOW-BYTE |
00000650: 44 45 52 20 53 50 52 55 4E 47 54 41 42 45 4C 4C |DER SPRUNGTABELL|
00000660: 45 00 C7 62 62 02 3B 00 DC 62 6C 02 3B 20 2A 2A |E..bb.;..bl.; **|
00000670: 2A 20 4A 53 52 46 41 52 20 2A 2A 2A 00 07 63 76 |* JSRFAR ***..cv|
00000680: 02 3B 20 50 41 52 41 4D 45 54 45 52 20 57 49 45 |.; PARAMETER WIE|
00000690: 20 4E 4F 52 4D 41 4C 45 20 4A 53 52 46 41 52 2D | NORMALE JSRFAR-|
000006A0: 52 4F 55 54 49 4E 45 00 26 63 80 02 3B 20 41 55 |ROUTINE.&c..; AU|
000006B0: 46 52 55 46 20 44 55 52 43 48 20 22 4A 53 52 20 |FRUF DURCH "JSR |
000006C0: 24 30 43 30 30 22 00 40 63 8A 02 3B 20 41 55 53 |$0C00".@c..; AUS|
000006D0: 20 42 45 4C 49 45 42 49 47 45 52 20 42 41 4E 4B | BELIEBIGER BANK|
000006E0: 00 46 63 94 02 3B 00 80 63 9E 02 4A 53 52 46 41 |.Fc..;..c..JSRFA|
000006F0: 52 20 81 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E |R .CONFIGURATION|
00000700: 3B 20 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 |; KONFIGURATION |
00000710: 56 4F 52 20 41 55 46 52 55 46 20 48 4F 4C 45 4E |VOR AUFRUF HOLEN|
00000720: 00 B2 63 A8 02 20 A0 3B 20 55 4E 44 20 41 55 46 |..c.. .; UND AUF|
00000730: 20 53 54 41 50 45 4C 20 41 42 4C 45 47 45 4E 20 | STAPEL ABLEGEN |
00000740: 28 5A 57 45 43 4B 53 20 53 49 43 48 45 52 55 4E |(ZWECKS SICHERUN|
00000750: 47 29 00 C4 63 B2 02 20 81 23 30 3B 20 42 41 4E |G)..c.. .#0; BAN|
00000760: 4B 20 31 35 00 E4 63 BC 02 20 82 43 4F 4E 46 49 |K 15..c.. .CONFI|
00000770: 47 55 52 41 54 49 4F 4E 3B 20 45 49 4E 53 54 45 |GURATION; EINSTE|
00000780: 4C 4C 45 4E 00 12 64 C6 02 20 97 4E 45 57 4A 53 |LLEN..d.. .NEWJS|
00000790: 52 46 41 52 3B 20 4E 45 55 45 20 4A 53 52 46 41 |RFAR; NEUE JSRFA|
000007A0: 52 2D 52 4F 55 54 49 4E 45 20 41 55 46 52 55 46 |R-ROUTINE AUFRUF|
000007B0: 45 4E 00 38 64 D0 02 20 A1 3B 20 57 49 45 44 45 |EN.8d.. .; WIEDE|
000007C0: 52 20 44 49 45 20 41 4C 54 45 20 4B 4F 4E 46 49 |R DIE ALTE KONFI|
000007D0: 47 55 52 41 54 49 4F 4E 00 6D 64 DA 02 20 82 43 |GURATION.md.. .C|
000007E0: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 56 4F |ONFIGURATION; VO|
000007F0: 4D 20 53 54 41 50 45 4C 20 48 4F 4C 45 4E 20 55 |M STAPEL HOLEN U|
00000800: 4E 44 20 48 45 52 53 54 45 4C 4C 45 4E 00 90 64 |ND HERSTELLEN..d|
00000810: E4 02 20 81 53 54 41 54 55 53 52 45 47 49 53 54 |.. .STATUSREGIST|
00000820: 45 52 3B 20 53 54 41 54 55 53 20 48 4F 4C 45 4E |ER; STATUS HOLEN|
00000830: 00 B7 64 EE 02 20 A0 3B 20 55 4E 44 20 5A 55 4E |..d.. .; UND ZUN|
00000840: 41 45 43 48 53 54 20 41 55 46 20 53 54 41 50 45 |AECHST AUF STAPE|
00000850: 4C 20 4C 45 47 45 4E 00 CC 64 F8 02 20 81 41 4B |L LEGEN..d.. .AK|
00000860: 4B 55 3B 20 52 45 47 49 53 54 45 52 00 EA 64 02 |KU; REGISTER..d.|
00000870: 03 20 83 58 52 45 47 49 53 54 45 52 3B 20 41 55 |. .XREGISTER; AU|
00000880: 53 20 5A 45 52 4F 50 41 47 45 00 01 65 0C 03 20 |S ZEROPAGE..e.. |
00000890: 84 59 52 45 47 49 53 54 45 52 3B 20 48 4F 4C 45 |.YREGISTER; HOLE|
000008A0: 4E 00 21 65 16 03 20 9F 3B 20 53 54 41 54 55 53 |N.!e.. .; STATUS|
000008B0: 20 57 49 45 44 45 52 48 45 52 53 54 45 4C 4C 45 | WIEDERHERSTELLE|
000008C0: 4E 00 3A 65 20 03 20 A4 3B 20 45 4E 44 45 20 44 |N.:e . .; ENDE D|
000008D0: 45 52 20 52 4F 55 54 49 4E 45 00 40 65 2A 03 3B |ER ROUTINE.@e*.;|
000008E0: 00 65 65 34 03 3B 20 2A 2A 2A 20 49 4E 49 54 20 |.ee4.; *** INIT |
000008F0: 2A 2A 2A 20 28 49 4E 49 54 49 41 4C 49 53 49 45 |*** (INITIALISIE|
00000900: 52 55 4E 47 29 00 86 65 3E 03 3B 20 56 45 52 47 |RUNG)..e>.; VERG|
00000910: 52 4F 45 53 53 45 52 54 20 22 43 4F 4D 4D 4F 4E |ROESSERT "COMMON|
00000920: 20 41 52 45 41 22 00 AA 65 48 03 3B 20 41 55 46 | AREA"..eH.; AUF|
00000930: 20 34 4B 2C 20 50 41 53 53 54 20 42 41 53 49 43 | 4K, PASST BASIC|
00000940: 2D 5A 45 49 47 45 52 20 41 4E 00 D1 65 52 03 3B |-ZEIGER AN..eR.;|
00000950: 20 55 4E 44 20 56 45 52 53 43 48 49 45 42 54 20 | UND VERSCHIEBT |
00000960: 50 45 45 4B 2F 50 4F 4B 45 2D 52 4F 55 54 49 4E |PEEK/POKE-ROUTIN|
00000970: 45 00 D7 65 5C 03 3B 00 ED 65 66 03 49 4E 49 54 |E..e\.;..ef.INIT|
00000980: 20 81 23 30 3B 20 42 41 4E 4B 20 31 35 00 0D 66 | .#0; BANK 15..f|
00000990: 70 03 20 82 43 4F 4E 46 49 47 55 52 41 54 49 4F |p. .CONFIGURATIO|
000009A0: 4E 3B 20 45 49 4E 53 54 45 4C 4C 45 4E 00 31 66 |N; EINSTELLEN.1f|
000009B0: 7A 03 20 81 52 41 4D 43 4F 4E 46 49 47 55 52 41 |z. .RAMCONFIGURA|
000009C0: 54 49 4F 4E 3B 20 43 4F 4D 4D 4F 4E 20 41 52 45 |TION; COMMON ARE|
000009D0: 41 00 42 66 84 03 20 8F 23 35 3B 20 41 55 46 20 |A.Bf.. .#5; AUF |
000009E0: 34 4B 00 64 66 8E 03 20 82 52 41 4D 43 4F 4E 46 |4K.df.. .RAMCONF|
000009F0: 49 47 55 52 41 54 49 4F 4E 3B 20 45 52 57 45 49 |IGURATION; ERWEI|
00000A00: 54 45 52 4E 00 7D 66 98 03 20 81 23 30 3B 20 30 |TERN.}f.. .#0; 0|
00000A10: 20 41 4C 53 20 4C 4F 57 2D 42 59 54 45 00 A6 66 | ALS LOW-BYTE..f|
00000A20: A2 03 20 82 56 41 52 54 41 42 3B 20 46 55 45 52 |.. .VARTAB; FUER|
00000A30: 20 5A 45 49 47 45 52 20 41 55 46 20 56 41 52 49 | ZEIGER AUF VARI|
00000A40: 41 42 4C 45 4E 2D 00 D1 66 AC 03 20 82 41 52 52 |ABLEN-..f.. .ARR|
00000A50: 41 59 54 41 42 3B 20 55 4E 44 20 41 52 52 41 59 |AYTAB; UND ARRAY|
00000A60: 2D 42 45 47 49 4E 4E 20 49 4E 20 42 41 4E 4B 20 |-BEGINN IN BANK |
00000A70: 31 00 FF 66 B6 03 20 81 23 24 31 30 3B 20 24 31 |1..f.. .#$10; $1|
00000A80: 30 20 41 4C 53 20 48 49 47 48 2D 42 59 54 45 20 |0 ALS HIGH-BYTE |
00000A90: 28 24 31 30 30 30 20 3D 20 23 34 30 39 36 29 00 |($1000 = #4096).|
00000AA0: 2A 67 C0 03 20 82 56 41 52 54 41 42 2B 31 3B 20 |*g.. .VARTAB+1; |
00000AB0: 49 4E 20 47 4C 45 49 43 48 45 20 5A 45 49 47 45 |IN GLEICHE ZEIGE|
00000AC0: 52 20 57 49 45 20 4F 42 45 4E 00 46 67 CA 03 20 |R WIE OBEN.Fg.. |
00000AD0: 82 41 52 52 41 59 54 41 42 2B 31 3B 20 53 43 48 |.ARRAYTAB+1; SCH|
00000AE0: 52 45 49 42 45 4E 00 4C 67 D4 03 3B 00 72 67 DE |REIBEN.Lg..;.rg.|
00000AF0: 03 3B 20 2A 2A 20 55 53 52 2D 56 45 4B 54 4F 52 |.; ** USR-VEKTOR|
00000B00: 20 49 4E 49 54 49 41 4C 49 53 49 45 52 45 4E 20 | INITIALISIEREN |
00000B10: 2A 2A 00 78 67 E8 03 3B 00 9F 67 F2 03 49 4E 49 |**.xg..;..g..INI|
00000B20: 54 55 53 52 20 81 23 3C 28 53 54 41 52 54 29 3B |TUSR .#<(START);|
00000B30: 20 55 53 52 2D 56 45 4B 54 4F 52 20 41 55 46 00 | USR-VEKTOR AUF.|
00000B40: C8 67 FC 03 20 82 55 53 52 56 45 43 54 4F 52 3B |.g.. .USRVECTOR;|
00000B50: 20 22 53 54 41 52 54 22 20 53 54 45 4C 4C 45 4E | "START" STELLEN|
00000B60: 2C 20 56 4F 4E 20 57 4F 00 F3 67 06 04 20 81 23 |, VON WO..g.. .#|
00000B70: 3E 28 53 54 41 52 54 29 3B 20 41 55 53 20 42 45 |>(START); AUS BE|
00000B80: 49 20 22 55 53 52 22 20 4E 41 43 48 20 24 30 46 |I "USR" NACH $0F|
00000B90: 30 30 30 00 16 68 10 04 20 82 55 53 52 56 45 43 |000..h.. .USRVEC|
00000BA0: 54 4F 52 2B 31 3B 20 47 45 53 50 52 55 4E 47 45 |TOR+1; GESPRUNGE|
00000BB0: 4E 20 57 49 52 44 00 29 68 1A 04 20 81 23 24 37 |N WIRD.)h.. .#$7|
00000BC0: 46 3B 20 42 41 4E 4B 20 31 00 49 68 24 04 20 82 |F; BANK 1.Ih$. .|
00000BD0: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 45 |CONFIGURATION; E|
00000BE0: 49 4E 53 54 45 4C 4C 45 4E 00 72 68 2E 04 20 84 |INSTELLEN.rh.. .|
00000BF0: 23 24 33 37 3B 20 24 33 37 2B 31 20 3D 20 24 33 |#$37; $37+1 = $3|
00000C00: 38 20 42 59 54 45 53 20 55 4D 4B 4F 50 49 45 52 |8 BYTES UMKOPIER|
00000C10: 45 4E 00 90 68 38 04 4C 4F 4F 50 20 81 4E 45 57 |EN..h8.LOOP .NEW|
00000C20: 50 45 45 4B 2C 59 3B 20 53 43 48 4C 45 49 46 45 |PEEK,Y; SCHLEIFE|
00000C30: 00 B1 68 42 04 20 82 50 45 45 4B 50 4F 4B 45 2C |..hB. .PEEKPOKE,|
00000C40: 59 3B 20 5A 55 4D 20 55 4D 4B 4F 50 49 45 52 45 |Y; ZUM UMKOPIERE|
00000C50: 4E 00 CD 68 4C 04 20 A3 3B 20 44 45 52 20 50 45 |N..hL. .; DER PE|
00000C60: 45 4B 2D 20 55 4E 44 20 50 4F 4B 45 2D 00 E2 68 |EK- UND POKE-..h|
00000C70: 56 04 20 B1 4C 4F 4F 50 3B 20 52 4F 55 54 49 4E |V. .LOOP; ROUTIN|
00000C80: 45 4E 00 EF 68 60 04 20 A4 3B 20 45 4E 44 45 00 |EN..h`. .; ENDE.|
00000C90: F5 68 6A 04 3B 00 18 69 74 04 3B 20 2A 2A 2A 20 |.hj.;..it.; *** |
00000CA0: 42 45 49 20 22 55 53 52 22 20 4E 41 43 48 20 24 |BEI "USR" NACH $|
00000CB0: 30 46 30 30 20 2A 2A 2A 00 1E 69 7E 04 3B 00 36 |0F00 ***..i~.;.6|
00000CC0: 69 88 04 53 54 41 52 54 20 81 23 24 33 46 3B 20 |i..START .#$3F; |
00000CD0: 42 41 4E 4B 20 30 00 56 69 92 04 20 82 43 4F 4E |BANK 0.Vi.. .CON|
00000CE0: 46 49 47 55 52 41 54 49 4F 4E 3B 20 45 49 4E 53 |FIGURATION; EINS|
00000CF0: 54 45 4C 4C 45 4E 00 76 69 9C 04 20 96 24 46 30 |TELLEN.vi.. .$F0|
00000D00: 30 30 3B 20 53 50 52 55 4E 47 20 4E 41 43 48 20 |00; SPRUNG NACH |
00000D10: 24 30 46 30 30 30 00 7C 69 A6 04 3B 00 9A 69 B0 |$0F000.|i..;..i.|
00000D20: 04 3B 20 2A 2A 2A 20 50 45 45 4B 20 41 55 53 20 |.; *** PEEK AUS |
00000D30: 42 41 4E 4B 20 31 20 2A 2A 2A 00 C1 69 BA 04 3B |BANK 1 ***..i..;|
00000D40: 20 58 2D 52 45 47 49 53 54 45 52 20 3D 20 4C 4F | X-REGISTER = LO|
00000D50: 2D 42 59 54 45 20 44 45 52 20 41 44 52 45 53 53 |-BYTE DER ADRESS|
00000D60: 45 00 E8 69 C4 04 3B 20 59 2D 52 45 47 49 53 54 |E..i..; Y-REGIST|
00000D70: 45 52 20 3D 20 48 49 2D 42 59 54 45 20 44 45 52 |ER = HI-BYTE DER|
00000D80: 20 41 44 52 45 53 53 45 00 EE 69 CE 04 3B 00 10 | ADRESSE..i..;..|
00000D90: 6A D8 04 3B 20 4E 41 43 48 20 44 45 4D 20 41 55 |j..; NACH DEM AU|
00000DA0: 46 52 55 46 20 44 45 52 20 52 4F 55 54 49 4E 45 |FRUF DER ROUTINE|
00000DB0: 00 37 6A E2 04 3B 20 53 54 45 48 54 20 44 41 4E |.7j..; STEHT DAN|
00000DC0: 4E 20 49 4D 20 41 4B 4B 55 20 44 45 52 20 50 45 |N IM AKKU DER PE|
00000DD0: 45 4B 2D 57 45 52 54 00 3D 6A EC 04 3B 00 63 6A |EK-WERT.=j..;.cj|
00000DE0: F6 04 50 45 45 4B 42 41 4E 4B 31 20 82 50 45 45 |..PEEKBANK1 .PEE|
00000DF0: 4B 4C 4F 57 2B 31 3B 20 4C 44 41 2D 42 45 46 45 |KLOW+1; LDA-BEFE|
00000E00: 48 4C 45 00 8A 6A 00 05 20 82 50 45 45 4B 48 49 |HLE..j.. .PEEKHI|
00000E10: 47 48 2B 31 3B 20 28 5A 45 52 4F 50 41 47 45 41 |GH+1; (ZEROPAGEA|
00000E20: 44 52 45 53 53 49 45 52 54 29 00 A9 6A 0A 05 20 |DRESSIERT)..j.. |
00000E30: 8A 50 45 45 4B 48 49 47 48 2B 31 3B 20 4D 4F 44 |.PEEKHIGH+1; MOD|
00000E40: 49 46 49 5A 49 45 52 45 4E 00 D7 6A 14 05 20 81 |IFIZIEREN..j.. .|
00000E50: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 4B |CONFIGURATION; K|
00000E60: 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 41 55 46 |ONFIGURATION AUF|
00000E70: 20 53 54 41 50 45 4C 00 F8 6A 1E 05 20 A0 3B 20 | STAPEL..j.. .; |
00000E80: 5A 57 45 43 4B 53 20 53 49 43 48 45 52 55 4E 47 |ZWECKS SICHERUNG|
00000E90: 20 41 42 4C 45 47 45 4E 00 29 6B 28 05 20 81 23 | ABLEGEN.)k(. .#|
00000EA0: 24 37 45 3B 20 42 41 4E 4B 20 31 2C 41 42 45 52 |$7E; BANK 1,ABER|
00000EB0: 20 49 2F 4F 2D 42 45 52 45 49 43 48 20 45 49 4E | I/O-BEREICH EIN|
00000EC0: 47 45 42 4C 45 4E 44 45 54 00 57 6B 32 05 20 82 |GEBLENDET.Wk2. .|
00000ED0: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 41 |CONFIGURATION; A|
00000EE0: 4C 53 20 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E |LS KONFIGURATION|
00000EF0: 20 53 45 54 5A 45 4E 00 71 6B 3C 05 50 45 45 4B | SETZEN.qk<.PEEK|
00000F00: 4C 4F 57 20 81 30 3B 20 30 20 3D 20 44 55 4D 4D |LOW .0; 0 = DUMM|
00000F10: 59 00 93 6B 46 05 20 82 24 46 46 35 41 3B 20 4E |Y..kF. .$FF5A; N|
00000F20: 41 43 48 20 24 46 46 35 41 20 53 43 48 52 45 49 |ACH $FF5A SCHREI|
00000F30: 42 45 4E 00 AE 6B 50 05 50 45 45 4B 48 49 47 48 |BEN..kP.PEEKHIGH|
00000F40: 20 81 30 3B 20 30 20 3D 20 44 55 4D 4D 59 00 DA | .0; 0 = DUMMY..|
00000F50: 6B 5A 05 20 82 24 46 46 35 42 3B 20 4E 41 43 48 |kZ. .$FF5B; NACH|
00000F60: 20 24 46 46 35 41 2B 31 20 3D 20 24 46 46 35 42 | $FF5A+1 = $FF5B|
00000F70: 20 53 43 48 52 45 49 42 45 4E 00 0A 6C 64 05 20 | SCHREIBEN..ld. |
00000F80: 97 50 45 45 4B 50 4F 4B 45 3B 20 4E 45 55 45 20 |.PEEKPOKE; NEUE |
00000F90: 50 45 45 4B 2F 50 4F 4B 45 2D 52 4F 55 54 49 4E |PEEK/POKE-ROUTIN|
00000FA0: 45 20 41 55 46 52 55 46 45 4E 00 30 6C 6E 05 20 |E AUFRUFEN.0ln. |
00000FB0: 82 52 4F 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 3B |.ROUTINENNUMMER;|
00000FC0: 20 45 52 47 45 42 4E 49 53 20 4D 45 52 4B 45 4E | ERGEBNIS MERKEN|
00000FD0: 00 57 6C 78 05 20 A1 3B 20 4B 4F 4E 46 49 47 55 |.Wlx. .; KONFIGU|
00000FE0: 52 41 54 49 4F 4E 20 56 4F 4D 20 53 54 41 50 45 |RATION VOM STAPE|
00000FF0: 4C 20 48 4F 4C 45 4E 00 7B 6C 82 05 20 82 43 4F |L HOLEN.{l.. .CO|
00001000: 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 55 4E 44 |NFIGURATION; UND|
00001010: 20 45 49 4E 53 54 45 4C 4C 45 4E 00 B1 6C 8C 05 | EINSTELLEN..l..|
00001020: 20 81 52 4F 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 | .ROUTINENNUMMER|
00001030: 3B 20 45 52 47 45 42 4E 49 53 20 44 45 53 20 50 |; ERGEBNIS DES P|
00001040: 45 45 4B 2D 42 45 46 45 48 4C 53 20 48 4F 4C 45 |EEK-BEFEHLS HOLE|
00001050: 4E 00 CA 6C 96 05 20 A4 3B 20 45 4E 44 45 20 44 |N..l.. .; ENDE D|
00001060: 45 52 20 52 4F 55 54 49 4E 45 00 D0 6C A0 05 3B |ER ROUTINE..l..;|
00001070: 00 ED 6C AA 05 3B 20 2A 2A 2A 20 50 4F 4B 45 20 |..l..; *** POKE |
00001080: 49 4E 20 42 41 4E 4B 20 31 20 2A 2A 2A 00 F3 6C |IN BANK 1 ***..l|
00001090: B4 05 3B 00 1A 6D BE 05 3B 20 58 2D 52 45 47 49 |..;..m..; X-REGI|
000010A0: 53 54 45 52 20 3D 20 4C 4F 2D 42 59 54 45 20 44 |STER = LO-BYTE D|
000010B0: 45 52 20 41 44 52 45 53 53 45 00 41 6D C8 05 3B |ER ADRESSE.Am..;|
000010C0: 20 59 2D 52 45 47 49 53 54 45 52 20 3D 20 48 49 | Y-REGISTER = HI|
000010D0: 2D 42 59 54 45 20 44 45 52 20 41 44 52 45 53 53 |-BYTE DER ADRESS|
000010E0: 45 00 66 6D D2 05 3B 20 41 4B 4B 55 20 20 20 20 |E.fm..; AKKU |
000010F0: 20 20 20 3D 20 41 42 5A 55 4C 45 47 45 4E 44 45 | = ABZULEGENDE|
00001100: 52 20 57 45 52 54 00 6C 6D DC 05 3B 00 8B 6D E6 |R WERT.lm..;..m.|
00001110: 05 3B 20 4B 45 49 4E 45 20 52 55 45 43 4B 47 41 |.; KEINE RUECKGA|
00001120: 42 45 50 41 52 41 4D 45 54 45 52 00 91 6D F0 05 |BEPARAMETER..m..|
00001130: 3B 00 C7 6D FA 05 50 4F 4B 45 42 41 4E 4B 31 20 |;..m..POKEBANK1 |
00001140: 82 52 4F 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 3B |.ROUTINENNUMMER;|
00001150: 20 57 45 52 54 20 5A 57 49 53 43 48 45 4E 53 50 | WERT ZWISCHENSP|
00001160: 45 49 43 48 45 52 4E 00 F2 6D 04 06 50 4F 4B 45 |EICHERN..m..POKE|
00001170: 5A 50 20 81 23 24 46 46 3B 20 50 4F 4B 45 20 49 |ZP .#$FF; POKE I|
00001180: 4E 20 5A 45 52 4F 50 41 47 45 2D 41 44 52 45 53 |N ZEROPAGE-ADRES|
00001190: 53 45 00 0F 6E 0E 06 20 82 50 4F 4B 45 4C 4F 57 |SE..n.. .POKELOW|
000011A0: 2B 31 3B 20 4C 44 41 2D 42 45 46 45 48 4C 45 00 |+1; LDA-BEFEHLE.|
000011B0: 2E 6E 18 06 20 82 50 4F 4B 45 48 49 47 48 2B 31 |.n.. .POKEHIGH+1|
000011C0: 3B 20 45 4E 54 53 50 52 45 43 48 45 4E 44 00 4D |; ENTSPRECHEND.M|
000011D0: 6E 22 06 20 8A 50 4F 4B 45 48 49 47 48 2B 31 3B |n". .POKEHIGH+1;|
000011E0: 20 4D 4F 44 49 46 49 5A 49 45 52 45 4E 00 76 6E | MODIFIZIEREN.vn|
000011F0: 2C 06 20 81 43 4F 4E 46 49 47 55 52 41 54 49 4F |,. .CONFIGURATIO|
00001200: 4E 3B 20 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E |N; KONFIGURATION|
00001210: 20 48 4F 4C 45 4E 00 95 6E 36 06 20 A0 3B 20 55 | HOLEN..n6. .; U|
00001220: 4E 44 20 41 55 46 20 53 54 41 50 45 4C 20 53 49 |ND AUF STAPEL SI|
00001230: 43 48 45 52 4E 00 C6 6E 40 06 20 81 23 24 37 45 |CHERN..n@. .#$7E|
00001240: 3B 20 42 41 4E 4B 31 2C 20 41 42 45 52 20 49 2F |; BANK1, ABER I/|
00001250: 4F 2D 42 45 52 45 49 43 48 20 45 49 4E 47 45 42 |O-BEREICH EINGEB|
00001260: 4C 45 4E 44 45 54 00 F4 6E 4A 06 20 82 43 4F 4E |LENDET..nJ. .CON|
00001270: 46 49 47 55 52 41 54 49 4F 4E 3B 20 41 4C 53 20 |FIGURATION; ALS |
00001280: 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E 20 53 45 |KONFIGURATION SE|
00001290: 54 5A 45 4E 00 0E 6F 54 06 50 4F 4B 45 4C 4F 57 |TZEN..oT.POKELOW|
000012A0: 20 81 30 3B 20 30 20 3D 20 44 55 4D 4D 59 00 30 | .0; 0 = DUMMY.0|
000012B0: 6F 5E 06 20 82 24 46 46 37 43 3B 20 4E 41 43 48 |o^. .$FF7C; NACH|
000012C0: 20 24 46 46 37 43 20 53 43 48 52 45 49 42 45 4E | $FF7C SCHREIBEN|
000012D0: 00 4B 6F 68 06 50 4F 4B 45 48 49 47 48 20 81 30 |.Koh.POKEHIGH .0|
000012E0: 3B 20 30 20 3D 20 44 55 4D 4D 59 00 77 6F 72 06 |; 0 = DUMMY.wor.|
000012F0: 20 82 24 46 46 37 44 3B 20 4E 41 43 48 20 24 46 | .$FF7D; NACH $F|
00001300: 46 37 43 2B 31 20 3D 20 24 46 46 37 44 20 53 43 |F7C+1 = $FF7D SC|
00001310: 48 52 45 49 42 45 4E 00 A2 6F 7C 06 20 81 52 4F |HREIBEN..o|. .RO|
00001320: 55 54 49 4E 45 4E 4E 55 4D 4D 45 52 3B 20 47 45 |UTINENNUMMER; GE|
00001330: 4D 45 52 4B 54 45 4E 20 57 45 52 54 20 48 4F 4C |MERKTEN WERT HOL|
00001340: 45 4E 00 CC 6F 86 06 20 97 24 46 46 36 43 3B 20 |EN..o.. .$FF6C; |
00001350: 4E 45 55 45 20 50 4F 4B 45 2D 52 4F 55 54 49 4E |NEUE POKE-ROUTIN|
00001360: 45 20 41 4E 53 50 52 49 4E 47 45 4E 00 EF 6F 90 |E ANSPRINGEN..o.|
00001370: 06 20 A1 3B 20 41 4C 54 45 20 53 50 45 49 43 48 |. .; ALTE SPEICH|
00001380: 45 52 4B 4F 4E 46 49 47 55 52 41 54 49 4F 4E 00 |ERKONFIGURATION.|
00001390: 15 70 9A 06 20 82 43 4F 4E 46 49 47 55 52 41 54 |.p.. .CONFIGURAT|
000013A0: 49 4F 4E 3B 20 57 49 45 44 45 52 48 45 52 53 54 |ION; WIEDERHERST|
000013B0: 45 4C 4C 45 4E 00 2E 70 A4 06 20 A4 3B 20 45 4E |ELLEN..p.. .; EN|
000013C0: 44 45 20 44 45 52 20 52 4F 55 54 49 4E 45 00 34 |DE DER ROUTINE.4|
000013D0: 70 AE 06 3B 00 49 70 B8 06 3B 20 2A 2A 2A 20 4A |p..;.Ip..; *** J|
000013E0: 4D 50 46 41 52 20 2A 2A 2A 00 6A 70 C2 06 3B 20 |MPFAR ***.jp..; |
000013F0: 50 41 52 41 4D 45 54 45 52 20 57 49 45 20 42 45 |PARAMETER WIE BE|
00001400: 49 20 4E 4F 52 4D 41 4C 45 52 00 7F 70 CC 06 3B |I NORMALER..p..;|
00001410: 20 4A 4D 50 46 41 52 2D 52 4F 55 54 49 4E 45 00 | JMPFAR-ROUTINE.|
00001420: A5 70 D6 06 3B 20 44 41 4E 4E 20 22 4A 53 52 20 |.p..; DANN "JSR |
00001430: 24 30 43 44 30 22 20 41 55 53 20 4A 45 44 45 52 |$0CD0" AUS JEDER|
00001440: 20 42 41 4E 4B 00 AB 70 E0 06 3B 00 CE 70 EA 06 | BANK..p..;..p..|
00001450: 4A 4D 50 46 41 52 20 81 23 30 3B 20 42 41 4E 4B |JMPFAR .#0; BANK|
00001460: 20 31 35 20 45 49 4E 53 54 45 4C 4C 45 4E 00 F5 | 15 EINSTELLEN..|
00001470: 70 F4 06 20 82 43 4F 4E 46 49 47 55 52 41 54 49 |p.. .CONFIGURATI|
00001480: 4F 4E 3B 20 41 4C 53 20 4B 4F 4E 46 49 47 55 52 |ON; ALS KONFIGUR|
00001490: 41 54 49 4F 4E 00 25 71 FE 06 20 96 4E 45 57 4A |ATION.%q.. .NEWJ|
000014A0: 4D 50 46 41 52 3B 20 4E 45 55 45 20 4A 4D 50 46 |MPFAR; NEUE JMPF|
000014B0: 41 52 2D 52 4F 55 54 49 4E 45 20 41 4E 53 50 52 |AR-ROUTINE ANSPR|
000014C0: 49 4E 47 45 4E 00 2B 71 08 07 3B 00 47 71 12 07 |INGEN.+q..;.Gq..|
000014D0: 3B 20 2A 20 4E 45 55 45 20 50 45 45 4B 2D 52 4F |; * NEUE PEEK-RO|
000014E0: 55 54 49 4E 45 20 2A 00 4D 71 1C 07 3B 00 71 71 |UTINE *.Mq..;.qq|
000014F0: 26 07 4E 45 57 50 45 45 4B 20 A9 3B 20 49 4E 54 |&.NEWPEEK .; INT|
00001500: 45 52 52 55 50 54 20 41 42 53 43 48 41 4C 54 45 |ERRUPT ABSCHALTE|
00001510: 4E 00 95 71 30 07 20 81 52 41 4D 43 4F 4E 46 49 |N..q0. .RAMCONFI|
00001520: 47 55 52 41 54 49 4F 4E 3B 20 43 4F 4D 4D 4F 4E |GURATION; COMMON|
00001530: 20 41 52 45 41 00 AD 71 3A 07 20 87 23 24 46 33 | AREA..q:. .#$F3|
00001540: 3B 20 41 55 53 53 43 48 41 4C 54 45 4E 00 E4 71 |; AUSSCHALTEN..q|
00001550: 44 07 20 82 52 41 4D 43 4F 4E 46 49 47 55 52 41 |D. .RAMCONFIGURA|
00001560: 54 49 4F 4E 3B 20 55 4E 44 20 45 52 47 45 42 4E |TION; UND ERGEBN|
00001570: 49 53 20 41 4C 53 20 4B 4F 4E 46 49 47 55 52 41 |IS ALS KONFIGURA|
00001580: 54 49 4F 4E 00 FE 71 4E 07 20 81 24 46 46 46 46 |TION..qN. .$FFFF|
00001590: 2C 59 3B 20 57 45 52 54 20 48 4F 4C 45 4E 00 16 |,Y; WERT HOLEN..|
000015A0: 72 58 07 20 82 24 46 46 46 30 3B 20 55 4E 44 20 |rX. .$FFF0; UND |
000015B0: 4D 45 52 4B 45 4E 00 3A 72 62 07 20 81 52 41 4D |MERKEN.:rb. .RAM|
000015C0: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 43 |CONFIGURATION; C|
000015D0: 4F 4D 4D 4F 4E 20 41 52 45 41 00 4D 72 6C 07 20 |OMMON AREA.Mrl. |
000015E0: 8F 23 24 30 34 3B 20 57 49 45 44 45 52 00 70 72 |.#$04; WIEDER.pr|
000015F0: 76 07 20 82 52 41 4D 43 4F 4E 46 49 47 55 52 41 |v. .RAMCONFIGURA|
00001600: 54 49 4F 4E 3B 20 41 4E 53 43 48 41 4C 54 45 4E |TION; ANSCHALTEN|
00001610: 00 8F 72 80 07 20 81 24 46 46 46 30 3B 20 57 45 |..r.. .$FFF0; WE|
00001620: 52 54 20 57 49 45 44 45 52 20 48 4F 4C 45 4E 00 |RT WIEDER HOLEN.|
00001630: B1 72 8A 07 20 A8 3B 20 49 4E 54 45 52 52 55 50 |.r.. .; INTERRUP|
00001640: 54 20 57 49 45 44 45 52 20 5A 55 4C 41 53 53 45 |T WIEDER ZULASSE|
00001650: 4E 00 CA 72 94 07 20 A4 3B 20 45 4E 44 45 20 44 |N..r.. .; ENDE D|
00001660: 45 52 20 52 4F 55 54 49 4E 45 00 D0 72 9E 07 3B |ER ROUTINE..r..;|
00001670: 00 EC 72 A8 07 3B 20 2A 20 4E 45 55 45 20 50 4F |..r..; * NEUE PO|
00001680: 4B 45 2D 52 4F 55 54 49 4E 45 20 2A 00 F2 72 B2 |KE-ROUTINE *..r.|
00001690: 07 3B 00 12 73 BC 07 4E 45 57 50 4F 4B 45 20 82 |.;..s..NEWPOKE .|
000016A0: 24 46 46 46 30 3B 20 57 45 52 54 20 4D 45 52 4B |$FFF0; WERT MERK|
000016B0: 45 4E 00 2F 73 C6 07 20 A9 3B 20 49 4E 54 45 52 |EN./s.. .; INTER|
000016C0: 52 55 50 54 20 41 42 53 43 48 41 4C 54 45 4E 00 |RUPT ABSCHALTEN.|
000016D0: 53 73 D0 07 20 81 52 41 4D 43 4F 4E 46 49 47 55 |Ss.. .RAMCONFIGU|
000016E0: 52 41 54 49 4F 4E 3B 20 43 4F 4D 4D 4F 4E 20 41 |RATION; COMMON A|
000016F0: 52 45 41 00 6B 73 DA 07 20 87 23 24 46 33 3B 20 |REA.ks.. .#$F3; |
00001700: 41 55 53 53 43 48 41 4C 54 45 4E 00 9C 73 E4 07 |AUSSCHALTEN..s..|
00001710: 20 82 52 41 4D 43 4F 4E 46 49 47 55 52 41 54 49 | .RAMCONFIGURATI|
00001720: 4F 4E 3B 20 55 4E 44 20 4B 4F 4E 46 49 47 55 52 |ON; UND KONFIGUR|
00001730: 41 54 49 4F 4E 20 53 45 54 5A 45 4E 00 BB 73 EE |ATION SETZEN..s.|
00001740: 07 20 81 24 46 46 46 30 3B 20 57 45 52 54 20 57 |. .$FFF0; WERT W|
00001750: 49 45 44 45 52 20 48 4F 4C 45 4E 00 D6 73 F8 07 |IEDER HOLEN..s..|
00001760: 20 82 24 46 46 46 46 2C 59 3B 20 57 45 52 54 20 | .$FFFF,Y; WERT |
00001770: 53 45 54 5A 45 4E 00 FA 73 02 08 20 81 52 41 4D |SETZEN..s.. .RAM|
00001780: 43 4F 4E 46 49 47 55 52 41 54 49 4F 4E 3B 20 43 |CONFIGURATION; C|
00001790: 4F 4D 4D 4F 4E 20 41 52 45 41 00 0D 74 0C 08 20 |OMMON AREA..t.. |
000017A0: 8F 23 24 30 34 3B 20 57 49 45 44 45 52 00 31 74 |.#$04; WIEDER.1t|
000017B0: 16 08 20 82 52 41 4D 43 4F 4E 46 49 47 55 52 41 |.. .RAMCONFIGURA|
000017C0: 54 49 4F 4E 3B 20 45 49 4E 53 43 48 41 4C 54 45 |TION; EINSCHALTE|
000017D0: 4E 00 53 74 20 08 20 A8 3B 20 49 4E 54 45 52 52 |N.St . .; INTERR|
000017E0: 55 50 54 20 57 49 45 44 45 52 20 5A 55 4C 41 53 |UPT WIEDER ZULAS|
000017F0: 53 45 4E 00 6C 74 2A 08 20 A4 3B 20 45 4E 44 45 |SEN.lt*. .; ENDE|
00001800: 20 44 45 52 20 52 4F 55 54 49 4E 45 00 00 00 00 | DER ROUTINE....|
00001810: 00 00 00 00 |.... |
A\.\D.; ********************************
*****************************..\N.; *
*.-]X.; * Q U E L L T E
X T Z U R "S W I T C H"-R O U T I N
E *.Q]..; * =========================
============================== *..]..;
*
*..]..; * ERSTELLT
MIT DEM ASSEMBLER: "TOP-ASS" (MARKT & TE
CHNIK) *.=^ .; *
*..^
..; ************************************
*************************..^..;..^.. ..B
ANK=$0002..^H. ..PCHIGH=$0003..^R. ..PCL
OW=$0004..^.. ..STATUSREGISTER=$0005..^.
. ..AKKU=$0006.._.. ..XREGISTER=$0007.._
.. ..YREGISTER=$0008.0_.. ..VARTAB=$002F
.F_.. ..ARRAYTAB=$0031.]_.. ..NEWJSRFAR=
$02CD.T_". ..NEWJMPFAR=$02E3.._,. ..ROUT
INENNUMMER=$03E4.._6. ..USRVECTOR=$1219.
E_@. ..RAMCONFIGURATION=$D506.._J. ..CON
FIGURATION=$FF00.._T. ..PEEKPOKE=$FF50..
_^.;..`H. ..$0C00..`R.;..`|.;.6`..; ***
KERNAL *** (VERTEILER).]`..; NUMMER D. R
OUTINE IN $03E4 (996).T`..; DANN "JSR $0
C00"..`..; AUS BELIEBIGER BANK..`..;..`.
.KERNAL .AKKU; REGISTER.L`B. .XREGISTER;
IN ZEROPAGE..`L. .YREGISTER; RETTEN..`V
. .#15; BANK 15..A.. .BANK; EINSTELLEN.'
A.. .#<($FF44); ADRESSE.FA.. .PCLOW; DER
SPRUNGTABELLE.CA.. .#>($FF44); IN ZEROP
AGE.YA.. .PCHIGH; ABLEGEN..A.. .ROUTINEN
NUMMER..A.. .#20; MIT 20 VERGLEICHEN.PA&
. .KLEINER; C=0 HEISST "KLEINER"..B0. .P
CLOW; LOW-BYTE DER SPRUNGTABELLE ERHOEHE
N.*B:.KLEINER .; AKKU MIT 2 MULTIPLIZIER
EN.`BD. .ROUTINENNUMMER; UND NUMMER DER
ROUTINE ADDIEREN..BN. .PCLOW; LOW-BYTE D
ER SPRUNGTABELLE ADDIEREN.ABX. .PCLOW; W
ERT IN LOW-BYTE DER SPRUNGTABELLE.GBB.;.
.BL.; *** JSRFAR ***..CV.; PARAMETER WIE
NORMALE JSRFAR-ROUTINE.&C..; AUFRUF DUR
CH "JSR $0C00".@C..; AUS BELIEBIGER BANK
.FC..;..C..JSRFAR .CONFIGURATION; KONFIG
URATION VOR AUFRUF HOLEN..C.. ; UND AUF
STAPEL ABLEGEN (ZWECKS SICHERUNG).DC..
.#0; BANK 15..C.. .CONFIGURATION; EINSTE
LLEN..DF. .NEWJSRFAR; NEUE JSRFAR-ROUTIN
E AUFRUFEN.8DP. .; WIEDER DIE ALTE KONFI
GURATION.MDZ. .CONFIGURATION; VOM STAPEL
HOLEN UND HERSTELLEN..D.. .STATUSREGIST
ER; STATUS HOLEN..D.. ; UND ZUNAECHST A
UF STAPEL LEGEN.LD.. .AKKU; REGISTER..D.
. .XREGISTER; AUS ZEROPAGE..E.. .YREGIST
ER; HOLEN.!E.. .; STATUS WIEDERHERSTELLE
N.:E . .; ENDE DER ROUTINE.@E*.;.EE4.; *
** INIT *** (INITIALISIERUNG)..E>.; VERG
ROESSERT "COMMON AREA"..EH.; AUF 4K, PAS
ST BASIC-ZEIGER AN.QER.; UND VERSCHIEBT
PEEK/POKE-ROUTINE.WE\.;..EF.INIT .#0; BA
NK 15..FP. .CONFIGURATION; EINSTELLEN.1F
Z. .RAMCONFIGURATION; COMMON AREA.BF.. .
#5; AUF 4K.DF.. .RAMCONFIGURATION; ERWEI
TERN.}F.. .#0; 0 ALS LOW-BYTE..F.. .VART
AB; FUER ZEIGER AUF VARIABLEN-.QF.. .ARR
AYTAB; UND ARRAY-BEGINN IN BANK 1..F.. .
#$10; $10 ALS HIGH-BYTE ($1000 = #4096).
*G.. .VARTAB+1; IN GLEICHE ZEIGER WIE OB
EN.FGJ. .ARRAYTAB+1; SCHREIBEN.LGT.;.RG.
.; ** USR-VEKTOR INITIALISIEREN **.XG..;
..G..INITUSR .#<(START); USR-VEKTOR AUF.
HG.. .USRVECTOR; "START" STELLEN, VON WO
..G.. .#>(START); AUS BEI "USR" NACH $0F
000..H.. .USRVECTOR+1; GESPRUNGEN WIRD.)
H.. .#$7F; BANK 1.IH$. .CONFIGURATION; E
INSTELLEN.RH.. .#$37; $37+1 = $38 BYTES
UMKOPIEREN..H8.LOOP .NEWPEEK,Y; SCHLEIFE
..HB. .PEEKPOKE,Y; ZUM UMKOPIEREN.MHL. .
; DER PEEK- UND POKE-..HV. .LOOP; ROUTIN
EN..H`. .; ENDE..HJ.;..IT.; *** BEI "USR
" NACH $0F00 ***..I~.;.6I..START .#$3F;
BANK 0.VI.. .CONFIGURATION; EINSTELLEN.V
I.. .$F000; SPRUNG NACH $0F000.|I..;..I.
.; *** PEEK AUS BANK 1 ***.AI..; X-REGIS
TER = LO-BYTE DER ADRESSE..ID.; Y-REGIST
ER = HI-BYTE DER ADRESSE..IN.;..JX.; NAC
H DEM AUFRUF DER ROUTINE.7J..; STEHT DAN
N IM AKKU DER PEEK-WERT.=J..;.CJ..PEEKBA
NK1 .PEEKLOW+1; LDA-BEFEHLE..J.. .PEEKHI
GH+1; (ZEROPAGEADRESSIERT)..J.. .PEEKHIG
H+1; MODIFIZIEREN.WJ.. .CONFIGURATION; K
ONFIGURATION AUF STAPEL..J.. ; ZWECKS S
ICHERUNG ABLEGEN.)K(. .#$7E; BANK 1,ABER
I/O-BEREICH EINGEBLENDET.WK2. .CONFIGUR
ATION; ALS KONFIGURATION SETZEN.QK<.PEEK
LOW .0; 0 = DUMMY..KF. .$FF5A; NACH $FF5
A SCHREIBEN..KP.PEEKHIGH .0; 0 = DUMMY.Z
KZ. .$FF5B; NACH $FF5A+1 = $FF5B SCHREIB
EN..LD. .PEEKPOKE; NEUE PEEK/POKE-ROUTIN
E AUFRUFEN.0LN. .ROUTINENNUMMER; ERGEBNI
S MERKEN.WLX. .; KONFIGURATION VOM STAPE
L HOLEN.{L.. .CONFIGURATION; UND EINSTEL
LEN..L.. .ROUTINENNUMMER; ERGEBNIS DES P
EEK-BEFEHLS HOLEN.JL.. .; ENDE DER ROUTI
NE.PL .;..L..; *** POKE IN BANK 1 ***..L
..;..M..; X-REGISTER = LO-BYTE DER ADRES
SE.AMH.; Y-REGISTER = HI-BYTE DER ADRESS
E.FMR.; AKKU = ABZULEGENDER WERT.L
M..;..M..; KEINE RUECKGABEPARAMETER..M..
;.GM..POKEBANK1 .ROUTINENNUMMER; WERT ZW
ISCHENSPEICHERN..M..POKEZP .#$FF; POKE I
N ZEROPAGE-ADRESSE..N.. .POKELOW+1; LDA-
BEFEHLE..N.. .POKEHIGH+1; ENTSPRECHEND.M
N". .POKEHIGH+1; MODIFIZIEREN.VN,. .CONF
IGURATION; KONFIGURATION HOLEN..N6. ; U
ND AUF STAPEL SICHERN.FN@. .#$7E; BANK1,
ABER I/O-BEREICH EINGEBLENDET..NJ. .CON
FIGURATION; ALS KONFIGURATION SETZEN..OT
.POKELOW .0; 0 = DUMMY.0O^. .$FF7C; NACH
$FF7C SCHREIBEN.KOH.POKEHIGH .0; 0 = DU
MMY.WOR. .$FF7D; NACH $FF7C+1 = $FF7D SC
HREIBEN..O|. .ROUTINENNUMMER; GEMERKTEN
WERT HOLEN.LO.. .$FF6C; NEUE POKE-ROUTIN
E ANSPRINGEN..O.. .; ALTE SPEICHERKONFIG
URATION..P.. .CONFIGURATION; WIEDERHERST
ELLEN..P.. .; ENDE DER ROUTINE.4P..;.IP.
.; *** JMPFAR ***.JPB.; PARAMETER WIE BE
I NORMALER.PL.; JMPFAR-ROUTINE..PV.; DA
NN "JSR $0CD0" AUS JEDER BANK..P..;.NP..
JMPFAR .#0; BANK 15 EINSTELLEN..P.. .CON
FIGURATION; ALS KONFIGURATION.%Q.. .NEWJ
MPFAR; NEUE JMPFAR-ROUTINE ANSPRINGEN.+Q
..;.GQ..; * NEUE PEEK-ROUTINE *.MQ..;.QQ
&.NEWPEEK .; INTERRUPT ABSCHALTEN..Q0. .
RAMCONFIGURATION; COMMON AREA..Q:. .#$F3
; AUSSCHALTEN..QD. .RAMCONFIGURATION; UN
D ERGEBNIS ALS KONFIGURATION..QN. .$FFFF
,Y; WERT HOLEN..RX. .$FFF0; UND MERKEN.:
RB. .RAMCONFIGURATION; COMMON AREA.MRL.
.#$04; WIEDER.PRV. .RAMCONFIGURATION; AN
SCHALTEN..R.. .$FFF0; WERT WIEDER HOLEN.
.R.. .; INTERRUPT WIEDER ZULASSEN.JR.. .
; ENDE DER ROUTINE.PR..;..R..; * NEUE PO
KE-ROUTINE *..R..;..S..NEWPOKE .$FFF0; W
ERT MERKEN./SF. .; INTERRUPT ABSCHALTEN.
SSP. .RAMCONFIGURATION; COMMON AREA.KSZ.
.#$F3; AUSSCHALTEN..S.. .RAMCONFIGURATI
ON; UND KONFIGURATION SETZEN..S.. .$FFF0
; WERT WIEDER HOLEN.VS.. .$FFFF,Y; WERT
SETZEN..S.. .RAMCONFIGURATION; COMMON AR
EA..T.. .#$04; WIEDER.1T.. .RAMCONFIGURA
TION; EINSCHALTEN.ST . .; INTERRUPT WIED
ER ZULASSEN.LT*. .; ENDE DER ROUTINE....
....
> CLICK IMAGE PREVIEW FOR FULL MODAL