QUELLCODE GIGA
FILE INFORMATION
FILENAME(S): QUELLCODE GIGA
FILE TYPE(S): PRG
FILE SIZE: 6.4K
FIRST SEEN: 2025-11-30 01:13:08
APPEARS ON: 1 disk(s)
FILE HASH
688e99fc39fd2b65ec84d5fb0ffb6b0cd4ec20e3306a4f28373e42492bdbbd2d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15833 SEITE A | QUELLCODE GIGA | PRG | C64er | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A |..(...;*********|
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 00 2E 08 14 00 3B 00 49 |********.....;.I|
00000030: 08 1E 00 3B 20 20 20 20 20 20 20 20 20 4D 4F 44 |...; MOD|
00000040: 45 52 4E 20 45 52 41 53 45 00 64 08 28 00 3B 20 |ERN ERASE.d.(.; |
00000050: 20 20 20 20 20 20 20 20 B7 B7 B7 B7 B7 B7 B7 B7 | ........|
00000060: B7 B7 B7 B7 00 86 08 32 00 3B 20 28 43 29 20 31 |.......2.; (C) 1|
00000070: 39 38 38 20 42 59 20 44 49 52 4B 20 4E 45 55 4D |988 BY DIRK NEUM|
00000080: 45 49 53 54 45 52 00 8C 08 3C 00 3B 00 A1 08 46 |EISTER...<.;...F|
00000090: 00 3B 20 53 49 5A 45 20 20 20 3A 20 24 43 30 30 |.; SIZE : $C00|
000000A0: 30 00 BB 08 50 00 3B 20 4C 41 45 4E 47 45 20 3A |0...P.; LAENGE :|
000000B0: 20 20 20 33 38 32 20 42 59 54 45 00 D5 08 5A 00 | 382 BYTE...Z.|
000000C0: 3B 20 53 4F 55 52 43 45 20 3A 20 20 36 35 31 35 |; SOURCE : 6515|
000000D0: 20 42 59 54 45 00 DB 08 64 00 3B 00 02 09 6E 00 | BYTE...d.;...n.|
000000E0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000100: 2A 2A 00 08 09 78 00 3B 00 0E 09 82 00 3B 00 19 |**...x.;.....;..|
00000110: 09 8C 00 AA 24 43 30 30 30 00 1F 09 96 00 3B 00 |....$C000.....;.|
00000120: 2E 09 A0 00 A3 56 49 43 3D 35 33 32 34 38 00 3E |.....VIC=53248.>|
00000130: 09 AA 00 A3 43 49 41 32 3D 24 44 44 30 30 00 4C |....CIA2=$DD00.L|
00000140: 09 B4 00 A3 42 49 4C 44 3D 36 34 38 00 5D 09 BE |....BILD=648.]..|
00000150: 00 A3 42 49 4C 44 31 3D 24 30 34 30 30 00 6E 09 |..BILD1=$0400.n.|
00000160: C8 00 A3 42 49 4C 44 32 3D 24 43 34 30 30 00 74 |...BILD2=$C400.t|
00000170: 09 D2 00 3B 00 84 09 DC 00 A4 53 41 54 5A 3D 24 |...;......SATZ=$|
00000180: 44 30 30 30 00 94 09 E6 00 A4 5A 49 45 4C 3D 24 |D000......ZIEL=$|
00000190: 45 30 30 30 00 A4 09 F0 00 A4 5A 45 49 47 45 52 |E000......ZEIGER|
000001A0: 3D 24 46 41 00 B5 09 FA 00 A4 50 4F 49 4E 54 45 |=$FA......POINTE|
000001B0: 52 3D 24 46 44 00 C6 09 04 01 A4 43 4C 45 41 52 |R=$FD......CLEAR|
000001C0: 3D 24 45 35 34 34 00 D4 09 0E 01 A4 46 4C 41 47 |=$E544......FLAG|
000001D0: 3D 24 46 43 00 E5 09 18 01 A4 4B 4F 4D 4D 41 3D |=$FC......KOMMA=|
000001E0: 24 41 45 46 44 00 F8 09 22 01 A4 47 45 54 42 59 |$AEFD..."..GETBY|
000001F0: 54 45 3D 24 42 37 39 45 00 07 0A 2C 01 A4 47 45 |TE=$B79E...,..GE|
00000200: 54 3D 24 30 30 37 33 00 0D 0A 36 01 3B 00 13 0A |T=$0073...6.;...|
00000210: 40 01 3B 00 19 0A 4A 01 3B 00 40 0A 54 01 3B 2A |@.;...J.;.@.T.;*|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000240: 00 46 0A 5E 01 3B 00 67 0A 68 01 3B 20 41 55 53 |.F.^.;.g.h.; AUS|
00000250: 57 45 52 54 55 4E 47 20 44 45 53 20 53 59 53 2D |WERTUNG DES SYS-|
00000260: 42 45 46 45 48 4C 53 00 6D 0A 72 01 3B 00 92 0A |BEFEHLS.m.r.;...|
00000270: 7C 01 3B 20 53 59 53 20 34 39 31 35 32 20 3D 3E ||.; SYS 49152 =>|
00000280: 20 4C 4F 45 53 43 48 45 4E 2F 41 4E 5A 45 49 47 | LOESCHEN/ANZEIG|
00000290: 45 4E 00 98 0A 86 01 3B 00 B8 0A 90 01 3B 20 53 |EN.....;.....; S|
000002A0: 59 53 20 34 39 31 35 32 2C 41 2C 42 2C 43 2C 44 |YS 49152,A,B,C,D|
000002B0: 2C 45 2C 46 2C 47 2C 48 00 BE 0A 9A 01 3B 00 E3 |,E,F,G,H.....;..|
000002C0: 0A A4 01 3B 20 20 20 20 20 20 20 3D 3E 20 52 45 |...; => RE|
000002D0: 49 48 45 4E 46 4F 4C 47 45 20 46 45 53 54 4C 45 |IHENFOLGE FESTLE|
000002E0: 47 45 4E 00 E9 0A AE 01 3B 00 10 0B B8 01 3B 2A |GEN.....;.....;*|
000002F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000310: 00 16 0B C2 01 3B 00 1C 0B CC 01 3B 00 3C 0B F4 |.....;.....;.<..|
00000320: 01 53 54 41 52 54 20 CA 23 22 2C 22 3B 20 54 45 |.START .#","; TE|
00000330: 53 54 20 41 55 46 20 4B 4F 4D 4D 41 00 46 0B FE |ST AUF KOMMA.F..|
00000340: 01 20 C3 23 30 30 00 54 0B 08 02 20 C4 28 24 37 |. .#00.T... .($7|
00000350: 41 29 2C 59 00 81 0B 12 02 20 F6 53 54 41 52 54 |A),Y..... .START|
00000360: 33 3B 20 57 45 4E 4E 20 4E 45 49 4E 2C 20 44 41 |3; WENN NEIN, DA|
00000370: 4E 4E 20 44 49 52 45 4B 54 20 53 54 41 52 54 45 |NN DIREKT STARTE|
00000380: 4E 00 BB 0B 1C 02 20 C2 23 30 38 3B 20 53 4F 4E |N..... .#08; SON|
00000390: 53 54 20 41 43 48 54 20 5A 41 48 4C 45 4E 2C 20 |ST ACHT ZAHLEN, |
000003A0: 44 49 45 20 44 49 45 20 52 45 49 48 45 4E 46 4F |DIE DIE REIHENFO|
000003B0: 4C 47 45 20 41 4E 47 45 42 45 4E 00 C5 0B 26 02 |LGE ANGEBEN...&.|
000003C0: 20 D3 24 46 37 00 D7 0B 30 02 53 54 41 52 54 32 | .$F7...0.START2|
000003D0: 20 D6 4B 4F 4D 4D 41 00 F3 0B 3A 02 20 D6 47 45 | .KOMMA...:. .GE|
000003E0: 54 42 59 54 45 3B 20 45 49 4E 4C 45 53 45 4E 20 |TBYTE; EINLESEN |
000003F0: 55 4E 44 00 FA 0B 44 02 20 D7 00 04 0C 4E 02 20 |UND...D. ....N. |
00000400: C2 24 46 37 00 21 0C 58 02 20 D2 52 45 49 48 45 |.$F7.!.X. .REIHE|
00000410: 4E 46 4F 4C 2C 58 3B 20 53 50 45 49 43 48 45 52 |NFOL,X; SPEICHER|
00000420: 4E 00 2B 0C 62 02 20 C7 24 46 37 00 38 0C 6C 02 |N.+.b. .$F7.8.l.|
00000430: 20 F6 53 54 41 52 54 32 00 77 0C 76 02 53 54 41 | .START2.w.v.STA|
00000440: 52 54 33 20 D5 5A 43 4C 45 41 52 3B 20 53 45 4C |RT3 .ZCLEAR; SEL|
00000450: 42 53 54 20 4D 4F 44 49 46 5A 2E 20 43 4F 44 45 |BST MODIFZ. CODE|
00000460: 20 28 4A 4D 50 20 28 24 34 43 29 20 3D 20 4C 4F | (JMP ($4C) = LO|
00000470: 45 53 43 48 45 4E 2C 00 A9 0C 80 02 3B 20 20 20 |ESCHEN,.....; |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 20 20 20 20 3B 20 42 49 54 20 28 24 32 41 29 20 | ; BIT ($2A) |
000004A0: 3D 20 4C 41 44 45 4E 20 29 00 AF 0C 8A 02 3B 00 |= LADEN ).....;.|
000004B0: B5 0C 94 02 3B 00 BB 0C 9E 02 3B 00 E2 0C A8 02 |....;.....;.....|
000004C0: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004E0: 2A 2A 00 E8 0C B2 02 3B 00 0E 0D BC 02 3B 20 56 |**.....;.....; V|
000004F0: 4F 52 42 45 52 45 49 54 55 4E 47 20 44 45 52 20 |ORBEREITUNG DER |
00000500: 4D 4F 44 45 52 4E 2D 52 4F 55 54 49 4E 45 00 14 |MODERN-ROUTINE..|
00000510: 0D C6 02 3B 00 27 0D D0 02 3B 20 5A 55 4D 20 41 |...;.'...; ZUM A|
00000520: 4E 5A 45 49 47 45 4E 00 2D 0D DA 02 3B 00 54 0D |NZEIGEN.-...;.T.|
00000530: E4 02 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..;*************|
00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000550: 2A 2A 2A 2A 00 5A 0D EE 02 3B 00 60 0D F8 02 3B |****.Z...;.`...;|
00000560: 00 AD 0D E8 03 5A 4C 41 44 45 4E 20 50 4F 4B 45 |.....ZLADEN POKE|
00000570: 58 59 A0 28 4C 41 44 45 42 49 54 29 2C 56 41 52 |XY.(LADEBIT),VAR|
00000580: 49 41 42 2B 31 3B 20 41 44 52 2E 20 56 45 52 4B |IAB+1; ADR. VERK|
00000590: 4E 2E 42 59 54 45 20 5A 55 4D 20 41 4E 5A 45 49 |N.BYTE ZUM ANZEI|
000005A0: 47 45 4E 20 53 43 48 52 45 49 42 45 4E 00 EE 0D |GEN SCHREIBEN...|
000005B0: F2 03 20 50 4F 4B 45 58 A0 24 33 31 2C 4D 4F 44 |.. POKEX.$31,MOD|
000005C0: 45 52 4E 32 2D 33 3B 20 50 52 4F 47 52 41 4D 4D |ERN2-3; PROGRAMM|
000005D0: 20 46 55 45 52 20 5A 45 49 43 48 45 4E 53 41 54 | FUER ZEICHENSAT|
000005E0: 5A 4C 45 53 45 4E 20 41 45 4E 44 45 52 4E 00 1E |ZLESEN AENDERN..|
000005F0: 0E FC 03 20 50 4F 4B 45 58 59 A0 24 44 30 30 30 |... POKEXY.$D000|
00000600: 2C 24 46 44 3B 20 53 54 41 52 54 41 44 52 45 53 |,$FD; STARTADRES|
00000610: 53 45 20 5A 45 49 43 48 45 4E 53 41 54 5A 00 4C |SE ZEICHENSATZ.L|
00000620: 0E 06 04 20 50 4F 4B 45 58 59 A0 24 45 30 30 30 |... POKEXY.$E000|
00000630: 2C 24 46 41 3B 20 45 4E 44 41 44 52 45 53 53 45 |,$FA; ENDADRESSE|
00000640: 20 5A 45 49 43 48 45 4E 53 41 54 5A 00 7B 0E 10 | ZEICHENSATZ.{..|
00000650: 04 20 50 4F 4B 45 58 A0 24 31 31 2C 4F 44 45 52 |. POKEX.$11,ODER|
00000660: 3B 20 4F 44 45 52 2D 56 45 52 4B 4E 55 45 50 55 |; ODER-VERKNUEPU|
00000670: 4E 47 20 5A 55 4C 41 53 53 45 4E 00 A3 0E 1A 04 |NG ZULASSEN.....|
00000680: 20 50 4F 4B 45 58 A0 24 41 39 2C 4C 44 41 3B 20 | POKEX.$A9,LDA; |
00000690: 4C 44 41 2D 42 45 46 45 48 4C 20 45 52 4C 41 55 |LDA-BEFEHL ERLAU|
000006A0: 42 45 4E 00 DA 0E 24 04 20 50 4F 4B 45 58 A0 24 |BEN...$. POKEX.$|
000006B0: 30 38 2C 46 4C 41 47 3B 20 46 4C 41 47 20 46 55 |08,FLAG; FLAG FU|
000006C0: 45 52 20 41 43 48 54 20 44 55 52 43 48 4C 41 45 |ER ACHT DURCHLAE|
000006D0: 55 46 45 20 53 45 54 5A 45 4E 00 09 0F 2E 04 20 |UFE SETZEN..... |
000006E0: D6 4D 4F 44 45 52 4E 3B 20 44 49 45 20 45 49 47 |.MODERN; DIE EIG|
000006F0: 45 4E 54 4C 49 43 48 45 20 52 4F 55 54 49 4E 45 |ENTLICHE ROUTINE|
00000700: 20 41 55 46 52 55 46 45 4E 00 2B 0F 38 04 20 56 | AUFRUFEN.+.8. V|
00000710: 45 52 53 43 48 49 45 42 45 A0 24 43 34 30 30 2C |ERSCHIEBE.$C400,|
00000720: 24 43 38 30 30 2C 24 30 38 30 30 00 67 0F 42 04 |$C800,$0800.g.B.|
00000730: 20 42 49 4C 44 30 34 30 30 3B 20 55 4E 44 20 57 | BILD0400; UND W|
00000740: 49 45 44 45 52 20 41 55 46 20 4F 52 49 47 49 4E |IEDER AUF ORIGIN|
00000750: 41 4C 42 49 4C 44 53 43 48 49 52 4D 20 55 4D 53 |ALBILDSCHIRM UMS|
00000760: 43 48 41 4C 54 45 4E 00 A9 0F 4C 04 20 50 4F 4B |CHALTEN...L. POK|
00000770: 45 41 A0 24 34 43 2C 53 54 41 52 54 33 3B 20 4A |EA.$4C,START3; J|
00000780: 4D 50 2D 42 45 46 45 48 4C 20 45 52 4C 41 55 42 |MP-BEFEHL ERLAUB|
00000790: 45 4E 20 3D 3E 20 53 59 53 34 39 31 35 32 20 3D |EN => SYS49152 =|
000007A0: 20 4C 4F 45 53 43 48 45 4E 00 B0 0F 56 04 20 E3 | LOESCHEN...V. .|
000007B0: 00 B6 0F 60 04 3B 00 BC 0F 6A 04 3B 00 C2 0F 74 |...`.;...j.;...t|
000007C0: 04 3B 00 E9 0F 7E 04 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;...~.;********|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EF 0F 88 04 3B 00 |*********.....;.|
000007F0: 15 10 92 04 3B 20 56 4F 52 42 45 52 45 49 54 55 |....; VORBEREITU|
00000800: 4E 47 20 44 45 52 20 4D 4F 44 45 52 4E 2D 52 4F |NG DER MODERN-RO|
00000810: 55 54 49 4E 45 00 1B 10 9C 04 3B 00 2E 10 A6 04 |UTINE.....;.....|
00000820: 3B 20 5A 55 4D 20 4C 4F 45 53 43 48 45 4E 00 34 |; ZUM LOESCHEN.4|
00000830: 10 B0 04 3B 00 5B 10 BA 04 3B 2A 2A 2A 2A 2A 2A |...;.[...;******|
00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 61 10 C4 04 |***********.a...|
00000860: 3B 00 67 10 CE 04 3B 00 90 10 D0 07 5A 43 4C 45 |;.g...;.....ZCLE|
00000870: 41 52 20 52 41 4D A0 24 33 31 3B 20 5A 45 49 43 |AR RAM.$31; ZEIC|
00000880: 48 45 4E 53 41 54 5A 20 4B 4F 50 49 45 52 45 4E |HENSATZ KOPIEREN|
00000890: 00 AE 10 DA 07 20 43 4F 50 59 A0 53 41 54 5A 2C |..... COPY.SATZ,|
000008A0: 24 30 32 2C 5A 49 45 4C 2C 24 30 34 2C 34 00 B7 |$02,ZIEL,$04,4..|
000008B0: 10 E4 07 20 52 4F 4D 00 ED 10 EE 07 20 56 45 52 |... ROM..... VER|
000008C0: 53 43 48 49 45 42 45 A0 24 30 34 30 30 2C 24 30 |SCHIEBE.$0400,$0|
000008D0: 38 30 30 2C 24 43 38 30 30 3B 42 49 4C 44 53 43 |800,$C800;BILDSC|
000008E0: 48 49 52 4D 20 4B 4F 50 49 45 52 45 4E 00 16 11 |HIRM KOPIEREN...|
000008F0: F8 07 20 42 49 4C 44 43 34 30 30 3B 20 55 4E 44 |.. BILDC400; UND|
00000900: 20 4E 41 43 48 20 24 43 34 30 30 20 55 4D 53 43 | NACH $C400 UMSC|
00000910: 48 41 4C 54 45 4E 00 58 11 02 08 20 50 4F 4B 45 |HALTEN.X... POKE|
00000920: 41 58 A0 28 4C 4F 45 53 43 48 42 49 54 29 2C 56 |AX.(LOESCHBIT),V|
00000930: 41 52 49 41 42 2B 31 3B 20 41 55 46 20 5A 45 49 |ARIAB+1; AUF ZEI|
00000940: 43 48 45 4E 20 4C 4F 45 53 43 48 45 4E 20 55 4D |CHEN LOESCHEN UM|
00000950: 53 43 48 41 4C 54 45 4E 00 9C 11 0C 08 20 50 4F |SCHALTEN..... PO|
00000960: 4B 45 58 A0 24 33 34 2C 4D 4F 44 45 52 4E 32 2D |KEX.$34,MODERN2-|
00000970: 33 3B 20 5A 55 47 52 49 46 46 20 41 55 46 20 52 |3; ZUGRIFF AUF R|
00000980: 4F 4D 20 55 4E 44 20 4E 49 43 48 54 20 41 55 46 |OM UND NICHT AUF|
00000990: 20 5A 45 49 43 48 45 4E 53 41 54 5A 00 D6 11 16 | ZEICHENSATZ....|
000009A0: 08 20 50 4F 4B 45 58 59 A0 24 45 30 30 30 2C 24 |. POKEXY.$E000,$|
000009B0: 46 41 3B 20 5A 45 49 43 48 45 4E 53 41 54 5A 20 |FA; ZEICHENSATZ |
000009C0: 42 45 49 20 24 45 30 30 30 20 4B 45 4E 4E 5A 45 |BEI $E000 KENNZE|
000009D0: 49 43 48 4E 45 4E 00 EC 11 20 08 20 50 4F 4B 45 |ICHNEN... . POKE|
000009E0: 58 59 A0 24 45 30 30 30 2C 24 46 44 00 32 12 2A |XY.$E000,$FD.2.*|
000009F0: 08 20 50 4F 4B 45 58 A0 24 32 34 2C 4F 44 45 52 |. POKEX.$24,ODER|
00000A00: 3B 20 4F 44 45 52 2D 56 45 52 4B 55 45 50 46 55 |; ODER-VERKUEPFU|
00000A10: 4E 47 20 55 4E 54 45 52 42 49 4E 44 45 4E 20 28 |NG UNTERBINDEN (|
00000A20: 4F 44 45 52 20 3D 3E 20 42 49 54 20 28 24 32 34 |ODER => BIT ($24|
00000A30: 29 29 00 74 12 34 08 20 50 4F 4B 45 58 A0 24 32 |)).t.4. POKEX.$2|
00000A40: 34 2C 4C 44 41 3B 20 4C 44 41 2D 56 45 52 4B 4E |4,LDA; LDA-VERKN|
00000A50: 55 45 50 46 55 4E 47 20 56 45 52 42 49 45 54 45 |UEPFUNG VERBIETE|
00000A60: 4E 20 28 4C 44 41 20 3D 3E 20 42 49 54 20 28 24 |N (LDA => BIT ($|
00000A70: 32 34 29 29 00 AB 12 3E 08 20 50 4F 4B 45 58 A0 |24))...>. POKEX.|
00000A80: 24 30 38 2C 46 4C 41 47 3B 20 46 4C 41 47 20 46 |$08,FLAG; FLAG F|
00000A90: 55 45 52 20 41 43 48 54 20 44 55 52 43 48 4C 41 |UER ACHT DURCHLA|
00000AA0: 45 55 46 45 20 53 45 54 5A 45 4E 00 DA 12 48 08 |EUFE SETZEN...H.|
00000AB0: 20 D6 4D 4F 44 45 52 4E 3B 20 44 49 45 20 45 49 | .MODERN; DIE EI|
00000AC0: 47 45 4E 54 4C 49 43 48 45 20 52 4F 55 54 49 4E |GENTLICHE ROUTIN|
00000AD0: 45 20 41 55 46 52 55 46 45 4E 00 FB 12 52 08 20 |E AUFRUFEN...R. |
00000AE0: D6 43 4C 45 41 52 3B 20 42 49 4C 44 53 43 48 49 |.CLEAR; BILDSCHI|
00000AF0: 52 4D 20 4C 4F 45 53 43 48 45 4E 00 42 13 5C 08 |RM LOESCHEN.B.\.|
00000B00: 20 50 4F 4B 45 41 A0 24 32 41 2C 53 54 41 52 54 | POKEA.$2A,START|
00000B10: 33 3B 20 42 45 49 20 4E 41 45 43 48 53 54 45 4E |3; BEI NAECHSTEN|
00000B20: 20 41 55 46 52 55 46 3A 20 27 5A 45 49 43 48 45 | AUFRUF: 'ZEICHE|
00000B30: 4E 20 4C 41 44 45 4E 27 28 4B 45 49 4E 20 4A 4D |N LADEN'(KEIN JM|
00000B40: 50 29 00 49 13 66 08 20 E3 00 4F 13 70 08 3B 00 |P).I.f. ..O.p.;.|
00000B50: 55 13 7A 08 3B 00 5B 13 84 08 3B 00 82 13 8E 08 |U.z.;.[...;.....|
00000B60: 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;***************|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B80: 2A 2A 00 88 13 98 08 3B 00 A6 13 A2 08 3B 20 45 |**.....;.....; E|
00000B90: 49 47 45 4E 54 4C 49 43 48 45 20 52 4F 55 54 49 |IGENTLICHE ROUTI|
00000BA0: 4E 45 20 5A 55 4D 00 AC 13 AC 08 3B 00 D1 13 B6 |NE ZUM.....;....|
00000BB0: 08 3B 20 4C 4F 45 53 43 48 45 4E 20 55 4E 44 20 |.; LOESCHEN UND |
00000BC0: 45 52 53 43 48 45 49 4E 45 4E 20 4C 41 53 53 45 |ERSCHEINEN LASSE|
00000BD0: 4E 00 D7 13 C0 08 3B 00 FE 13 CA 08 3B 2A 2A 2A |N.....;.....;***|
00000BE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 04 |**************..|
00000C00: 14 D4 08 3B 00 0A 14 DE 08 3B 00 3A 14 B8 0B 4D |...;.....;.:...M|
00000C10: 4F 44 45 52 4E 20 52 41 4D A0 24 33 34 3B 20 52 |ODERN RAM.$34; R|
00000C20: 41 4D 2F 5A 45 49 43 48 45 4E 53 41 54 5A 20 45 |AM/ZEICHENSATZ E|
00000C30: 49 4E 53 43 48 41 4C 54 45 4E 00 7E 14 C2 0B 4D |INSCHALTEN.~...M|
00000C40: 4F 44 45 52 4E 32 20 CA 52 45 49 48 45 4E 46 4F |ODERN2 .REIHENFO|
00000C50: 4C 2C 58 3B 20 56 45 52 4B 4E 55 45 50 46 55 4E |L,X; VERKNUEPFUN|
00000C60: 47 53 42 59 54 45 20 49 4E 20 41 42 48 41 45 4E |GSBYTE IN ABHAEN|
00000C70: 47 49 47 4B 45 49 54 20 44 45 52 20 5A 55 00 A7 |GIGKEIT DER ZU..|
00000C80: 14 CC 0B 20 DA 3B 20 42 45 41 52 42 45 49 54 45 |... .; BEARBEITE|
00000C90: 4E 44 45 4E 20 53 50 45 49 43 48 45 52 53 54 45 |NDEN SPEICHERSTE|
00000CA0: 4C 4C 45 20 55 4E 44 00 D0 14 D6 0B 56 41 52 49 |LLE UND.....VARI|
00000CB0: 41 42 20 CA 4C 41 44 45 42 49 54 2C 59 3B 20 52 |AB .LADEBIT,Y; R|
00000CC0: 45 49 48 45 4E 46 4F 4C 47 45 20 4C 41 44 45 4E |EIHENFOLGE LADEN|
00000CD0: 00 DA 14 E0 0B 20 C3 23 30 30 00 14 15 EA 0B 20 |..... .#00..... |
00000CE0: C6 28 50 4F 49 4E 54 45 52 29 2C 59 3B 20 55 4E |.(POINTER),Y; UN|
00000CF0: 44 20 4D 49 54 20 44 45 52 20 53 50 45 49 43 48 |D MIT DER SPEICH|
00000D00: 45 52 53 54 45 4C 4C 45 20 56 45 52 4B 4E 55 45 |ERSTELLE VERKNUE|
00000D10: 50 46 45 4E 00 56 15 F4 0B 4F 44 45 52 20 CE 28 |PFEN.V...ODER .(|
00000D20: 5A 45 49 47 45 52 29 2C 59 3B 20 28 4C 4F 45 53 |ZEIGER),Y; (LOES|
00000D30: 43 48 45 4E 3A 20 4E 55 52 20 27 41 4E 44 27 2C |CHEN: NUR 'AND',|
00000D40: 20 4C 41 44 45 4E 3A 20 27 41 4E 44 27 20 26 20 | LADEN: 'AND' & |
00000D50: 27 4F 52 41 27 29 00 67 15 FE 0B 20 D2 28 5A 45 |'ORA').g... .(ZE|
00000D60: 49 47 45 52 29 2C 59 00 6E 15 08 0C 20 EE 00 AD |IGER),Y.n... ...|
00000D70: 15 12 0C 20 F6 4D 4F 44 45 52 4E 33 3B 20 58 20 |... .MODERN3; X |
00000D80: 55 4D 20 45 49 4E 53 20 45 52 4E 49 45 44 52 49 |UM EINS ERNIEDRI|
00000D90: 47 45 4E 2C 20 57 45 4E 4E 20 4B 4C 45 49 4E 45 |GEN, WENN KLEINE|
00000DA0: 52 20 41 4C 53 20 31 2C 20 44 41 4E 4E 00 CC 15 |R ALS 1, DANN...|
00000DB0: 1C 0C 20 C2 23 30 38 3B 20 57 49 45 44 45 52 20 |.. .#08; WIEDER |
00000DC0: 41 55 46 20 38 20 53 45 54 5A 45 4E 00 F9 15 26 |AUF 8 SETZEN...&|
00000DD0: 0C 4D 4F 44 45 52 4E 33 20 C9 5A 45 49 47 45 52 |.MODERN3 .ZEIGER|
00000DE0: 3B 20 5A 45 49 47 45 52 20 55 4D 20 45 49 4E 53 |; ZEIGER UM EINS|
00000DF0: 20 45 52 48 4F 45 48 45 4E 00 07 16 30 0C 20 C9 | ERHOEHEN...0. .|
00000E00: 50 4F 49 4E 54 45 52 00 15 16 3A 0C 20 F6 4D 4F |POINTER...:. .MO|
00000E10: 44 45 52 4E 34 00 24 16 44 0C 20 C9 5A 45 49 47 |DERN4.$.D. .ZEIG|
00000E20: 45 52 2B 31 00 34 16 4E 0C 20 C9 50 4F 49 4E 54 |ER+1.4.N. .POINT|
00000E30: 45 52 2B 31 00 7A 16 58 0C 4D 4F 44 45 52 4E 34 |ER+1.z.X.MODERN4|
00000E40: 20 CA 5A 45 49 47 45 52 2B 31 3B 20 54 45 53 54 | .ZEIGER+1; TEST|
00000E50: 20 4F 42 20 41 4C 4C 45 20 53 50 45 49 43 48 45 | OB ALLE SPEICHE|
00000E60: 52 53 54 45 4C 4C 45 4E 20 42 45 41 52 42 45 49 |RSTELLEN BEARBEI|
00000E70: 54 45 54 20 57 55 52 44 45 4E 00 85 16 62 0C 20 |TET WURDEN...b. |
00000E80: C4 23 24 46 30 00 C4 16 6C 0C 20 F6 4D 4F 44 45 |.#$F0...l. .MODE|
00000E90: 52 4E 32 3B 20 57 45 4E 4E 20 4E 45 49 4E 2C 20 |RN2; WENN NEIN, |
00000EA0: 44 41 4E 4E 20 57 49 45 44 45 52 20 5A 55 52 55 |DANN WIEDER ZURU|
00000EB0: 45 43 4B 20 55 4E 44 20 57 45 49 54 45 52 4D 41 |ECK UND WEITERMA|
00000EC0: 43 48 45 4E 00 FA 16 76 0C 20 50 4F 4B 45 41 A0 |CHEN...v. POKEA.|
00000ED0: 24 45 30 2C 5A 45 49 47 45 52 2B 31 3B 20 5A 45 |$E0,ZEIGER+1; ZE|
00000EE0: 49 47 45 52 20 57 49 45 44 45 52 20 5A 55 52 55 |IGER WIEDER ZURU|
00000EF0: 45 43 4B 53 54 45 4C 4C 45 4E 00 16 17 80 0C 4C |ECKSTELLEN.....L|
00000F00: 44 41 20 50 4F 4B 45 41 A0 24 44 30 2C 50 4F 49 |DA POKEA.$D0,POI|
00000F10: 4E 54 45 52 2B 31 00 4F 17 8A 0C 20 EE 3B 20 52 |NTER+1.O... .; R|
00000F20: 45 49 48 45 4E 46 4F 4C 47 45 20 44 45 52 20 56 |EIHENFOLGE DER V|
00000F30: 45 52 4B 4E 55 45 46 55 4E 47 53 42 59 54 45 20 |ERKNUEFUNGSBYTE |
00000F40: 55 4D 20 31 20 56 45 52 52 49 4E 47 45 52 4E 00 |UM 1 VERRINGERN.|
00000F50: 5D 17 94 0C 20 F6 4D 4F 44 45 52 4E 35 00 67 17 |]... .MODERN5.g.|
00000F60: 9E 0C 20 C2 23 30 38 00 A2 17 A8 0C 4D 4F 44 45 |.. .#08.....MODE|
00000F70: 52 4E 35 20 C3 46 4C 41 47 3B 20 54 45 53 54 2C |RN5 .FLAG; TEST,|
00000F80: 20 4F 42 20 44 45 52 20 5A 45 49 43 48 45 4E 53 | OB DER ZEICHENS|
00000F90: 41 54 5A 20 53 43 48 4F 4E 20 41 43 48 54 20 4D |ATZ SCHON ACHT M|
00000FA0: 41 4C 00 C0 17 B2 0C 20 EC 3B 20 42 45 41 52 42 |AL..... .; BEARB|
00000FB0: 45 49 54 45 54 20 57 4F 52 44 45 4E 20 49 53 54 |EITET WORDEN IST|
00000FC0: 00 CB 17 BC 0C 20 D4 46 4C 41 47 00 F1 17 C6 0C |..... .FLAG.....|
00000FD0: 20 F6 4D 4F 44 45 52 4E 32 3B 20 57 45 4E 4E 20 | .MODERN2; WENN |
00000FE0: 4E 45 49 4E 2C 20 44 41 4E 4E 20 57 45 49 54 45 |NEIN, DANN WEITE|
00000FF0: 52 00 18 18 D0 0C 20 52 4F 4D 3B 20 53 4F 4E 53 |R..... ROM; SONS|
00001000: 54 20 52 4F 4D 20 57 49 45 44 45 52 20 45 49 4E |T ROM WIEDER EIN|
00001010: 53 43 48 41 4C 54 45 4E 00 30 18 DA 0C 20 E3 3B |SCHALTEN.0... .;|
00001020: 20 55 4E 44 20 52 55 45 43 4B 53 50 52 55 4E 47 | UND RUECKSPRUNG|
00001030: 00 36 18 E4 0C 3B 00 3C 18 EE 0C 3B 00 42 18 F8 |.6...;.<...;.B..|
00001040: 0C 3B 00 69 18 02 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A |.;.i...;********|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F 18 0C 0D 3B 00 |*********.o...;.|
00001070: 7E 18 16 0D 3B 20 54 41 42 45 4C 4C 45 4E 00 84 |~...; TABELLEN..|
00001080: 18 20 0D 3B 00 AB 18 2A 0D 3B 20 2D 20 56 45 52 |. .;...*.; - VER|
00001090: 4B 4E 55 45 50 46 55 4E 47 53 42 59 54 45 20 5A |KNUEPFUNGSBYTE Z|
000010A0: 55 4D 20 4C 4F 45 53 43 48 45 4E 00 B1 18 34 0D |UM LOESCHEN...4.|
000010B0: 3B 00 D8 18 3E 0D 3B 20 2D 20 56 45 52 4B 4E 55 |;...>.; - VERKNU|
000010C0: 45 50 46 55 4E 47 53 42 59 54 45 20 5A 55 4D 20 |EPFUNGSBYTE ZUM |
000010D0: 41 4E 5A 45 49 47 45 4E 00 DE 18 48 0D 3B 00 00 |ANZEIGEN...H.;..|
000010E0: 19 52 0D 3B 20 2D 20 52 45 49 48 45 4E 46 4F 4C |.R.; - REIHENFOL|
000010F0: 47 45 20 44 45 52 20 41 4E 57 45 4E 44 55 4E 47 |GE DER ANWENDUNG|
00001100: 00 06 19 5C 0D 3B 00 2D 19 66 0D 3B 2A 2A 2A 2A |...\.;.-.f.;****|
00001110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 19 |*************.3.|
00001130: 70 0D 3B 00 39 19 7A 0D 3B 00 68 19 10 27 4C 4F |p.;.9.z.;.h..'LO|
00001140: 45 53 43 48 42 49 54 20 A5 31 32 37 2C 31 39 31 |ESCHBIT .127,191|
00001150: 2C 32 32 33 2C 32 33 39 2C 32 34 37 2C 32 35 31 |,223,239,247,251|
00001160: 2C 32 35 33 2C 32 35 34 00 8A 19 1A 27 4C 41 44 |,253,254....'LAD|
00001170: 45 42 49 54 20 A5 31 32 38 2C 36 34 2C 33 32 2C |EBIT .128,64,32,|
00001180: 31 36 2C 38 2C 34 2C 32 2C 31 00 AB 19 24 27 52 |16,8,4,2,1...$'R|
00001190: 45 49 48 45 4E 46 4F 4C 20 A5 30 2C 30 2C 37 2C |EIHENFOL .0,0,7,|
000011A0: 31 2C 36 2C 32 2C 35 2C 33 2C 34 00 B1 19 2E 27 |1,6,2,5,3,4....'|
000011B0: 3B 00 B7 19 38 27 3B 00 BD 19 42 27 3B 00 E4 19 |;...8';...B';...|
000011C0: 4C 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L';*************|
000011D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000011E0: 2A 2A 2A 2A 00 EA 19 56 27 3B 00 01 1A 60 27 3B |****...V';...`';|
000011F0: 20 20 20 20 20 20 4D 20 41 20 4B 20 52 20 4F 20 | M A K R O |
00001200: 53 00 07 1A 6A 27 3B 00 22 1A 74 27 3B 20 4C 4F |S...j';.".t'; LO|
00001210: 57 20 4C 45 56 45 4C 20 3A 20 2D 20 50 4F 4B 45 |W LEVEL : - POKE|
00001220: 41 58 00 3D 1A 7E 27 3B 20 20 20 20 20 20 20 20 |AX.=.~'; |
00001230: 20 20 20 20 20 2D 20 50 4F 4B 45 58 59 00 57 1A | - POKEXY.W.|
00001240: 88 27 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 |.'; |
00001250: 2D 20 50 4F 4B 45 41 00 71 1A 92 27 3B 20 20 20 |- POKEA.q..'; |
00001260: 20 20 20 20 20 20 20 20 20 20 2D 20 50 4F 4B 45 | - POKE|
00001270: 58 00 77 1A 9C 27 3B 00 94 1A A6 27 3B 20 48 49 |X.w..';....'; HI|
00001280: 47 48 20 4C 45 56 45 4C 3A 20 2D 20 42 49 4C 44 |GH LEVEL: - BILD|
00001290: 43 34 30 30 00 B1 1A B0 27 3B 20 20 20 20 20 20 |C400....'; |
000012A0: 20 20 20 20 20 20 20 2D 20 42 49 4C 44 30 34 30 | - BILD040|
000012B0: 30 00 C9 1A BA 27 3B 20 20 20 20 20 20 20 20 20 |0....'; |
000012C0: 20 20 20 20 2D 20 52 4F 4D 00 E1 1A C4 27 3B 20 | - ROM....'; |
000012D0: 20 20 20 20 20 20 20 20 20 20 20 20 2D 20 52 41 | - RA|
000012E0: 4D 00 00 1B CE 27 3B 20 20 20 20 20 20 20 20 20 |M....'; |
000012F0: 20 20 20 20 2D 20 56 45 52 53 43 48 49 45 42 45 | - VERSCHIEBE|
00001300: 00 19 1B D8 27 3B 20 20 20 20 20 20 20 20 20 20 |....'; |
00001310: 20 20 20 2D 20 43 4F 50 59 00 1F 1B E2 27 3B 00 | - COPY....';.|
00001320: 46 1B EC 27 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |F..';***********|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001340: 2A 2A 2A 2A 2A 2A 00 4C 1B F6 27 3B 00 52 1B 00 |******.L..';.R..|
00001350: 28 3B 00 98 1B 30 75 A1 50 4F 4B 45 41 58 A0 56 |(;...0u.POKEAX.V|
00001360: 41 52 2C 41 44 52 3B 20 31 36 2D 42 49 54 20 57 |AR,ADR; 16-BIT W|
00001370: 45 52 54 20 53 43 48 52 49 45 42 45 4E 20 28 56 |ERT SCHRIEBEN (V|
00001380: 45 52 57 45 4E 44 45 54 45 20 52 45 47 49 53 54 |ERWENDETE REGIST|
00001390: 45 52 3A 20 41 2C 58 29 00 A6 1B 3A 75 20 CA 23 |ER: A,X)...:u .#|
000013A0: 3C 28 56 41 52 29 00 B4 1B 44 75 20 C2 23 3E 28 |<(VAR)...Du .#>(|
000013B0: 56 41 52 29 00 BE 1B 4E 75 20 D2 41 44 52 00 CA |VAR)...Nu .ADR..|
000013C0: 1B 58 75 20 D3 41 44 52 2B 31 00 D0 1B 62 75 A2 |.Xu .ADR+1...bu.|
000013D0: 00 D6 1B 6C 75 3B 00 1C 1C 76 75 A1 50 4F 4B 45 |...lu;...vu.POKE|
000013E0: 58 59 A0 56 41 52 2C 41 44 52 3B 20 31 36 2D 42 |XY.VAR,ADR; 16-B|
000013F0: 49 54 20 57 45 52 54 20 53 43 48 52 45 49 42 45 |IT WERT SCHREIBE|
00001400: 4E 20 28 56 45 52 57 45 4E 44 45 54 45 20 52 45 |N (VERWENDETE RE|
00001410: 47 49 53 54 45 52 3A 20 58 2C 59 29 00 2A 1C 80 |GISTER: X,Y).*..|
00001420: 75 20 C2 23 3C 28 56 41 52 29 00 38 1C 8A 75 20 |u .#<(VAR).8..u |
00001430: C3 23 3E 28 56 41 52 29 00 42 1C 94 75 20 D3 41 |.#>(VAR).B..u .A|
00001440: 44 52 00 4E 1C 9E 75 20 D4 41 44 52 2B 31 00 54 |DR.N..u .ADR+1.T|
00001450: 1C A8 75 A2 00 5A 1C B2 75 3B 00 9D 1C BC 75 A1 |..u..Z..u;....u.|
00001460: 50 4F 4B 45 41 A0 56 41 52 2C 41 44 52 3B 20 38 |POKEA.VAR,ADR; 8|
00001470: 2D 42 49 54 20 57 45 52 54 20 53 43 48 52 45 49 |-BIT WERT SCHREI|
00001480: 42 45 4E 20 28 56 45 52 57 45 4E 44 45 54 45 53 |BEN (VERWENDETES|
00001490: 20 52 45 47 49 53 54 45 52 3A 20 41 29 00 A8 1C | REGISTER: A)...|
000014A0: C6 75 20 CA 23 56 41 52 00 B2 1C D0 75 20 D2 41 |.u .#VAR....u .A|
000014B0: 44 52 00 B8 1C DA 75 A2 00 BE 1C E4 75 3B 00 01 |DR....u.....u;..|
000014C0: 1D EE 75 A1 50 4F 4B 45 58 A0 56 41 52 2C 41 44 |..u.POKEX.VAR,AD|
000014D0: 52 3B 20 38 2D 42 49 54 20 57 45 52 54 20 53 43 |R; 8-BIT WERT SC|
000014E0: 48 52 45 49 42 45 4E 20 28 56 45 52 57 45 4E 44 |HREIBEN (VERWEND|
000014F0: 45 54 45 53 20 52 45 47 49 53 54 45 52 3A 20 58 |ETES REGISTER: X|
00001500: 29 00 0C 1D F8 75 20 C2 23 56 41 52 00 16 1D 02 |)....u .#VAR....|
00001510: 76 20 D3 41 44 52 00 1C 1D 0C 76 A2 00 22 1D 16 |v .ADR....v.."..|
00001520: 76 3B 00 49 1D 20 76 3B 2A 20 2A 20 2A 20 2A 20 |v;.I. v;* * * * |
00001530: 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 2A 20 |* * * * * * * * |
00001540: 2A 20 2A 20 2A 20 2A 20 2A 00 4F 1D 2A 76 3B 00 |* * * * *.O.*v;.|
00001550: 86 1D 34 76 A1 42 49 4C 44 43 34 30 30 3B 20 42 |..4v.BILDC400; B|
00001560: 49 4C 44 53 43 48 49 52 4D 20 49 4D 20 42 45 52 |ILDSCHIRM IM BER|
00001570: 45 49 43 48 20 24 43 34 30 30 20 45 49 4E 53 43 |EICH $C400 EINSC|
00001580: 48 41 4C 54 45 4E 00 91 1D 3E 76 20 CA 43 49 41 |HALTEN...>v .CIA|
00001590: 32 00 9C 1D 48 76 20 C6 23 32 35 32 00 A7 1D 52 |2...Hv .#252...R|
000015A0: 76 20 D2 43 49 41 32 00 BB 1D 5C 76 20 50 4F 4B |v .CIA2...\v POK|
000015B0: 45 58 A0 31 39 36 2C 42 49 4C 44 00 C8 1D 66 76 |EX.196,BILD...fv|
000015C0: 20 CA 56 49 43 2B 32 34 00 D3 1D 70 76 20 C6 23 | .VIC+24...pv .#|
000015D0: 24 46 33 00 DD 1D 7A 76 20 CE 23 32 34 00 EA 1D |$F3...zv .#24...|
000015E0: 84 76 20 D2 56 49 43 2B 32 34 00 F0 1D 8E 76 A2 |.v .VIC+24....v.|
000015F0: 00 F6 1D 98 76 3B 00 2D 1E A2 76 A1 42 49 4C 44 |....v;.-..v.BILD|
00001600: 30 34 30 30 3B 20 42 49 4C 44 53 43 48 49 52 4D |0400; BILDSCHIRM|
00001610: 20 49 4D 20 42 45 52 45 49 43 48 20 24 30 34 30 | IM BEREICH $040|
00001620: 30 20 45 49 4E 53 43 48 41 4C 54 45 4E 00 38 1E |0 EINSCHALTEN.8.|
00001630: AC 76 20 CA 43 49 41 32 00 42 1E B6 76 20 CE 23 |.v .CIA2.B..v .#|
00001640: 30 33 00 4D 1E C0 76 20 D2 43 49 41 32 00 60 1E |03.M..v .CIA2.`.|
00001650: CA 76 20 50 4F 4B 45 58 A0 30 34 2C 42 49 4C 44 |.v POKEX.04,BILD|
00001660: 00 6D 1E D4 76 20 CA 56 49 43 2B 32 34 00 78 1E |.m..v .VIC+24.x.|
00001670: DE 76 20 C6 23 24 46 33 00 82 1E E8 76 20 CE 23 |.v .#$F3....v .#|
00001680: 32 30 00 8F 1E F2 76 20 D2 56 49 43 2B 32 34 00 |20....v .VIC+24.|
00001690: 95 1E FC 76 A2 00 9B 1E 06 77 3B 00 DD 1E 10 77 |...v.....w;....w|
000016A0: A1 56 45 52 53 43 48 49 45 42 45 A0 41 4E 46 41 |.VERSCHIEBE.ANFA|
000016B0: 4E 47 2C 45 4E 44 45 2C 4E 41 43 48 3B 20 52 4F |NG,ENDE,NACH; RO|
000016C0: 4D 20 56 45 52 53 43 48 49 45 42 45 2D 52 4F 55 |M VERSCHIEBE-ROU|
000016D0: 54 49 4E 45 20 41 55 46 52 55 46 45 4E 00 F4 1E |TINE AUFRUFEN...|
000016E0: 1A 77 20 50 4F 4B 45 58 59 A0 41 4E 46 41 4E 47 |.w POKEXY.ANFANG|
000016F0: 2C 24 35 46 00 09 1F 24 77 20 50 4F 4B 45 58 59 |,$5F...$w POKEXY|
00001700: A0 45 4E 44 45 2C 24 35 41 00 1E 1F 2E 77 20 50 |.ENDE,$5A....w P|
00001710: 4F 4B 45 58 59 A0 4E 41 43 48 2C 24 35 38 00 2A |OKEXY.NACH,$58.*|
00001720: 1F 38 77 20 D6 24 41 33 42 46 00 30 1F 42 77 A2 |.8w .$A3BF.0.Bw.|
00001730: 00 36 1F 4C 77 3B 00 53 1F 56 77 A1 52 4F 4D 3B |.6.Lw;.S.Vw.ROM;|
00001740: 20 41 55 46 20 52 4F 4D 20 55 4D 53 43 48 41 4C | AUF ROM UMSCHAL|
00001750: 54 45 4E 00 5A 1F 60 77 20 E0 00 64 1F 6A 77 20 |TEN.Z.`w ..d.jw |
00001760: D2 24 30 31 00 6B 1F 74 77 20 E7 00 71 1F 7E 77 |.$01.k.tw ..q.~w|
00001770: A2 00 77 1F 88 77 3B 00 A4 1F 92 77 A1 52 41 4D |..w..w;....w.RAM|
00001780: A0 56 41 52 3B 20 41 55 46 20 52 41 4D 2F 5A 45 |.VAR; AUF RAM/ZE|
00001790: 49 43 48 45 4E 53 41 54 5A 20 55 4D 53 43 48 41 |ICHENSATZ UMSCHA|
000017A0: 4C 54 45 4E 00 AB 1F 9C 77 20 E8 00 B5 1F A6 77 |LTEN....w .....w|
000017B0: 20 CA 24 30 31 00 BC 1F B0 77 20 DF 00 CF 1F BA | .$01....w .....|
000017C0: 77 20 50 4F 4B 45 41 A0 56 41 52 2C 24 30 31 00 |w POKEA.VAR,$01.|
000017D0: D5 1F C4 77 A2 00 DB 1F CE 77 3B 00 1D 20 D8 77 |...w.....w;.. .w|
000017E0: A1 43 4F 50 59 A0 42 45 47 49 4E 4E 2C 56 41 52 |.COPY.BEGINN,VAR|
000017F0: 31 2C 45 4E 44 45 2C 56 41 52 32 2C 4C 41 45 4E |1,ENDE,VAR2,LAEN|
00001800: 47 45 3B 20 31 36 2D 42 49 54 20 56 45 52 53 43 |GE; 16-BIT VERSC|
00001810: 48 49 45 42 45 2D 52 4F 55 54 49 4E 45 00 37 20 |HIEBE-ROUTINE.7 |
00001820: E2 77 20 50 4F 4B 45 41 58 A0 28 42 45 47 49 4E |.w POKEAX.(BEGIN|
00001830: 4E 29 2C 56 41 52 31 00 4F 20 EC 77 20 50 4F 4B |N),VAR1.O .w POK|
00001840: 45 41 58 A0 28 45 4E 44 45 29 2C 56 41 52 32 00 |EAX.(ENDE),VAR2.|
00001850: 5F 20 F6 77 20 C2 23 4C 41 45 4E 47 45 2A 38 00 |_ .w .#LAENGE*8.|
00001860: 69 20 00 78 20 C3 23 30 30 00 7D 20 0A 78 43 4F |i .x .#00.} .xCO|
00001870: 50 59 31 20 CA 28 56 41 52 31 29 2C 59 00 8C 20 |PY1 .(VAR1),Y.. |
00001880: 14 78 20 D2 28 56 41 52 32 29 2C 59 00 93 20 1E |.x .(VAR2),Y.. .|
00001890: 78 20 ED 00 9F 20 28 78 20 F6 43 4F 50 59 31 00 |x ... (x .COPY1.|
000018A0: AC 20 32 78 20 C9 56 41 52 31 2B 31 00 B9 20 3C |. 2x .VAR1+1.. <|
000018B0: 78 20 C9 56 41 52 32 2B 31 00 C0 20 46 78 20 EE |x .VAR2+1.. Fx .|
000018C0: 00 CC 20 50 78 20 F6 43 4F 50 59 31 00 D2 20 5A |.. Px .COPY1.. Z|
000018D0: 78 A2 00 D8 20 64 78 3B 00 DE 20 6E 78 3B 00 E4 |x... dx;.. nx;..|
000018E0: 20 78 78 3B 00 0B 21 82 78 3B 2A 2A 2A 2A 2A 2A | xx;..!.x;******|
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 11 21 8C 78 |***********..!.x|
00001910: 3B 00 33 21 96 78 3B 20 45 4E 44 45 20 44 45 53 |;.3!.x; ENDE DES|
00001920: 20 51 55 45 4C 4C 43 4F 44 45 2D 4C 49 53 54 49 | QUELLCODE-LISTI|
00001930: 4E 47 53 00 39 21 A0 78 3B 00 60 21 AA 78 3B 2A |NGS.9!.x;.`!.x;*|
00001940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001960: 00 66 21 B4 78 3B 00 6C 21 BE 78 3B 00 72 21 60 |.f!.x;.l!.x;.r!`|
00001970: EA B3 00 00 00 |..... |
..(...;*********************************
.....;.I...; MODERN ERASE.D.(.;
...............2.; (C) 1988 BY D
IRK NEUMEISTER...<.;...F.; SIZE : $C00
0...P.; LAENGE : 382 BYTE.U.Z.; SOURCE
: 6515 BYTE...D.;...N.;***************
******************...X.;.....;......$C00
0.....;... ..VIC=53248.>....CIA2=$DD00.L
....BILD=648.]....BILD1=$0400.N.H..BILD2
=$C400.T.R.;......SATZ=$D000......ZIEL=$
E000......ZEIGER=$FA......POINTER=$FD.F.
...CLEAR=$E544.T....FLAG=$FC......KOMMA=
$AEFD..."..GETBYTE=$B79E...,..GET=$0073.
..6.;...@.;...J.;.@.T.;*****************
****************.F.^.;.G.H.; AUSWERTUNG
DES SYS-BEFEHLS.M.R.;...|.; SYS 49152 =>
LOESCHEN/ANZEIGEN.....;.....; SYS 49152
,A,B,C,D,E,F,G,H.....;.....; => RE
IHENFOLGE FESTLEGEN.....;.....;*********
************************...B.;...L.;.<..
.START J#","; TEST AUF KOMMA.F... C#00.T
... D($7A),Y..... .START3; WENN NEIN, DA
NN DIREKT STARTEN..... B#08; SONST ACHT
ZAHLEN, DIE DIE REIHENFOLGE ANGEBEN.E.&.
S$F7.W.0.START2 VKOMMA...:. VGETBYTE; E
INLESEN UND...D. W...N. B$F7.!.X. RREIHE
NFOL,X; SPEICHERN.+.B. G$F7.8.L. .START2
.W.V.START3 UZCLEAR; SELBST MODIFZ. CODE
(JMP ($4C) = LOESCHEN,.....;
; BIT ($2A) = LADEN ).....;.
....;.....;.....;***********************
**********.....;.....; VORBEREITUNG DER
MODERN-ROUTINE...F.;.'.P.; ZUM ANZEIGEN.
-.Z.;.T...;*****************************
****.Z...;.`...;.....ZLADEN POKEXY (LADE
BIT),VARIAB+1; ADR. VERKN.BYTE ZUM ANZEI
GEN SCHREIBEN..... POKEX $31,MODERN2-3;
PROGRAMM FUER ZEICHENSATZLESEN AENDERN..
... POKEXY $D000,$FD; STARTADRESSE ZEICH
ENSATZ.L... POKEXY $E000,$FA; ENDADRESSE
ZEICHENSATZ.{... POKEX $11,ODER; ODER-V
ERKNUEPUNG ZULASSEN..... POKEX $A9,LDA;
LDA-BEFEHL ERLAUBEN.Z.$. POKEX $08,FLAG;
FLAG FUER ACHT DURCHLAEUFE SETZEN.....
VMODERN; DIE EIGENTLICHE ROUTINE AUFRUFE
N.+.8. VERSCHIEBE $C400,$C800,$0800.G.B.
BILD0400; UND WIEDER AUF ORIGINALBILDSC
HIRM UMSCHALTEN...L. POKEA $4C,START3; J
MP-BEFEHL ERLAUBEN => SYS49152 = LOESCHE
N...V. ....`.;...J.;.B.T.;...~.;********
*************************.....;.....; VO
RBEREITUNG DER MODERN-ROUTINE.....;.....
; ZUM LOESCHEN.4...;.[...;**************
*******************.A.D.;.G.N.;...P.ZCLE
AR RAM $31; ZEICHENSATZ KOPIEREN...Z. CO
PY SATZ,$02,ZIEL,$04,4..... ROM..... VER
SCHIEBE $0400,$0800,$C800;BILDSCHIRM KOP
IEREN..... BILDC400; UND NACH $C400 UMSC
HALTEN.X... POKEAX (LOESCHBIT),VARIAB+1;
AUF ZEICHEN LOESCHEN UMSCHALTEN..... PO
KEX $34,MODERN2-3; ZUGRIFF AUF ROM UND N
ICHT AUF ZEICHENSATZ.V... POKEXY $E000,$
FA; ZEICHENSATZ BEI $E000 KENNZEICHNEN..
. . POKEXY $E000,$FD.2.*. POKEX $24,ODER
; ODER-VERKUEPFUNG UNTERBINDEN (ODER =>
BIT ($24)).T.4. POKEX $24,LDA; LDA-VERKN
UEPFUNG VERBIETEN (LDA => BIT ($24))...>
. POKEX $08,FLAG; FLAG FUER ACHT DURCHLA
EUFE SETZEN.Z.H. VMODERN; DIE EIGENTLICH
E ROUTINE AUFRUFEN...R. VCLEAR; BILDSCHI
RM LOESCHEN.B.\. POKEA $2A,START3; BEI N
AECHSTEN AUFRUF: 'ZEICHEN LADEN'(KEIN JM
P).I.F. ..O.P.;.U.Z.;.[...;.....;*******
**************************.....;.....; E
IGENTLICHE ROUTINE ZUM.....;.Q...; LOESC
HEN UND ERSCHEINEN LASSEN.W...;...J.;***
******************************...T.;....
.;.:...MODERN RAM $34; RAM/ZEICHENSATZ E
INSCHALTEN.~.B.MODERN2 JREIHENFOL,X; VER
KNUEPFUNGSBYTE IN ABHAENGIGKEIT DER ZU..
.L. Z; BEARBEITENDEN SPEICHERSTELLE UND.
P.V.VARIAB JLADEBIT,Y; REIHENFOLGE LADEN
.Z... C#00..... F(POINTER),Y; UND MIT DE
R SPEICHERSTELLE VERKNUEPFEN.V...ODER N(
ZEIGER),Y; (LOESCHEN: NUR 'AND', LADEN:
'AND' & 'ORA').G... R(ZEIGER),Y.N... ...
... .MODERN3; X UM EINS ERNIEDRIGEN, WEN
N KLEINER ALS 1, DANN.L... B#08; WIEDER
AUF 8 SETZEN...&.MODERN3 IZEIGER; ZEIGER
UM EINS ERHOEHEN...0. IPOINTER...:. .MO
DERN4.$.D. IZEIGER+1.4.N. IPOINTER+1.Z.X
.MODERN4 JZEIGER+1; TEST OB ALLE SPEICHE
RSTELLEN BEARBEITET WURDEN...B. D#$F0.D.
L. .MODERN2; WENN NEIN, DANN WIEDER ZURU
ECK UND WEITERMACHEN...V. POKEA $E0,ZEIG
ER+1; ZEIGER WIEDER ZURUECKSTELLEN.....L
DA POKEA $D0,POINTER+1.O... .; REIHENFOL
GE DER VERKNUEFUNGSBYTE UM 1 VERRINGERN.
]... .MODERN5.G... B#08.....MODERN5 CFLA
G; TEST, OB DER ZEICHENSATZ SCHON ACHT M
AL..... .; BEARBEITET WORDEN IST.K... TF
LAG...F. .MODERN2; WENN NEIN, DANN WEITE
R...P. ROM; SONST ROM WIEDER EINSCHALTEN
.0.Z. .; UND RUECKSPRUNG.6...;.<...;.B..
.;.I...;********************************
*.O...;.~...; TABELLEN... .;...*.; - VER
KNUEPFUNGSBYTE ZUM LOESCHEN...4.;.X.>.;
- VERKNUEPFUNGSBYTE ZUM ANZEIGEN...H.;..
.R.; - REIHENFOLGE DER ANWENDUNG...\.;.-
.F.;*********************************.3.
P.;.9.Z.;.H..'LOESCHBIT .127,191,223,239
,247,251,253,254....'LADEBIT .128,64,32,
16,8,4,2,1...$'REIHENFOL .0,0,7,1,6,2,5,
3,4....';...8';...B';...L';*************
********************...V';...`'; M
A K R O S...J';.".T'; LOW LEVEL : - POKE
AX.=.~'; - POKEXY.W..';
- POKEA.Q..'; - POKE
X.W..';....'; HIGH LEVEL: - BILDC400....
'; - BILD0400.I..';
- ROM...D'; - RAM...N';
- VERSCHIEBE...X';
- COPY....';.F..';*******************
**************.L..';.R..(;...0U.POKEAX V
AR,ADR; 16-BIT WERT SCHRIEBEN (VERWENDET
E REGISTER: A,X)...:U J#<(VAR)...DU B#>(
VAR)...NU RADR.J.XU SADR+1.P.BU..V.LU;..
.VU.POKEXY VAR,ADR; 16-BIT WERT SCHREIBE
N (VERWENDETE REGISTER: X,Y).*..U B#<(VA
R).8..U C#>(VAR).B..U SADR.N..U TADR+1.T
..U..Z..U;....U.POKEA VAR,ADR; 8-BIT WER
T SCHREIBEN (VERWENDETES REGISTER: A)...
FU J#VAR...PU RADR...ZU.....U;....U.POKE
X VAR,ADR; 8-BIT WERT SCHREIBEN (VERWEND
ETES REGISTER: X)....U B#VAR....V SADR..
..V.."..V;.I. V;* * * * * * * * * * * *
* * * * *.O.*V;...4V.BILDC400; BILDSCHIR
M IM BEREICH $C400 EINSCHALTEN...>V JCIA
2...HV F#252...RV RCIA2...\V POKEX 196,B
ILD.H.FV JVIC+24.S.PV F#$F3...ZV N#24...
.V RVIC+24....V.....V;.-..V.BILD0400; BI
LDSCHIRM IM BEREICH $0400 EINSCHALTEN.8.
.V JCIA2.B..V N#03.M..V RCIA2.`.JV POKEX
04,BILD.M.TV JVIC+24.X..V F#$F3....V N#
20....V RVIC+24....V.....W;....W.VERSCHI
EBE ANFANG,ENDE,NACH; ROM VERSCHIEBE-ROU
TINE AUFRUFEN....W POKEXY ANFANG,$5F...$
W POKEXY ENDE,$5A....W POKEXY NACH,$58.*
.8W V$A3BF.0.BW..6.LW;.S.VW.ROM; AUF ROM
UMSCHALTEN.Z.`W ..D.JW R$01.K.TW ..Q.~W
..W..W;....W.RAM VAR; AUF RAM/ZEICHENSAT
Z UMSCHALTEN....W .....W J$01....W ..O..
W POKEA VAR,$01.U.DW....NW;.. XW.COPY BE
GINN,VAR1,ENDE,VAR2,LAENGE; 16-BIT VERSC
HIEBE-ROUTINE.7 .W POKEAX (BEGINN),VAR1.
O .W POKEAX (ENDE),VAR2._ .W B#LAENGE*8.
I .X C#00.} .XCOPY1 J(VAR1),Y.. .X R(VAR
2),Y.. .X ... (X .COPY1.. 2X IVAR1+1.. <
X IVAR2+1.. FX ..L PX .COPY1.R ZX..X DX;
.. NX;.. XX;..!.X;**********************
***********..!.X;.3!.X; ENDE DES QUELLCO
DE-LISTINGS.9! X;.`!.X;*****************
****************.F!.X;.L!.X;.R!`.....
> CLICK IMAGE PREVIEW FOR FULL MODAL