LISTING 20

FILE INFORMATION

FILENAME(S): LISTING 20

FILE TYPE(S): PRG

FILE SIZE: 3.8K

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

APPEARS ON: 1 disk(s)

FILE HASH

c3a41ef6e45e06f5bc5d2d93f2d595d5d8db5a891435e9b6bd73a102c6f4f32d

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15721 SEITE A	LISTING 20	PRG	C64er	33	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0F 62 15 62 0A 00 3B 00  21 62 14 00 2E A3 31 2C  |.b.b..;.!b....1,|
00000010: 34 2C 37 00 27 62 1E 00  3B 00 76 62 28 00 3B 2A  |4,7.'b..;.vb(.;*|
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 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A  00 BA 62 32 00 3B 53 43  |********..b2.;SC|
00000070: 48 4C 45 49 46 45 4E 50  52 4F 47 52 41 4D 4D 49  |HLEIFENPROGRAMMI|
00000080: 45 52 55 4E 47 20 42 45  49 53 50 49 45 4C 20 54  |ERUNG BEISPIEL T|
00000090: 45 49 4C 42 45 52 45 49  43 48 45 20 44 45 53 20  |EILBEREICHE DES |
000000A0: 42 49 4C 44 53 43 48 49  52 4D 45 53 00 E3 62 3C  |BILDSCHIRMES..b<|
000000B0: 00 3B 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
000000C0: 20 20 20 20 20 20 20 20  20 20 42 45 53 43 48 52  |          BESCHR|
000000D0: 45 49 42 45 4E 00 32 63  46 00 3B 2A 2A 2A 2A 2A  |EIBEN.2cF.;*****|
000000E0: 2A 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 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000120: 2A 2A 2A 2A 00 38 63 50  00 3B 00 44 63 5A 00 2E  |****.8cP.;.DcZ..|
00000130: 90 24 43 30 30 30 00 4A  63 64 00 3B 00 99 63 6E  |.$C000.Jcd.;..cn|
00000140: 00 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 42 45 49 53  |.;----------BEIS|
00000150: 50 49 45 4C 57 45 52 54  45 20 28 44 55 52 43 48  |PIELWERTE (DURCH|
00000160: 20 50 4F 4B 45 53 20 56  45 52 41 45 4E 44 45 52  | POKES VERAENDER|
00000170: 42 41 52 29 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |BAR)------------|
00000180: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 00 9F 63 78 00  |-----------..cx.|
00000190: 3B 00 CA 63 82 00 2E 8F  46 41 52 42 45 3D 24 30  |;..c....FARBE=$0|
000001A0: 34 3B 49 4E 20 48 59 50  52 41 2D 41 53 53 20 4A  |4;IN HYPRA-ASS J|
000001B0: 45 57 45 49 4C 53 20 53  54 41 54 54 00 EC 63 8C  |EWEILS STATT..c.|
000001C0: 00 2E 8F 53 31 3D 24 30  34 3B 20 2E 44 45 46 49  |...S1=$04; .DEFI|
000001D0: 4E 45 20 49 4D 4D 45 52  3A 20 20 2E 45 51 00 1E  |NE IMMER:  .EQ..|
000001E0: 64 96 00 2E 8F 5A 31 3D  24 30 33 3B 53 50 41 4C  |d....Z1=$03;SPAL|
000001F0: 54 45 20 55 4E 44 20 5A  45 49 4C 45 20 44 45 52  |TE UND ZEILE DER|
00000200: 20 45 43 4B 45 20 4C 49  4E 4B 53 20 4F 42 45 4E  | ECKE LINKS OBEN|
00000210: 00 36 64 A0 00 2E 8F 53  32 3D 24 30 46 3B 53 50  |.6d....S2=$0F;SP|
00000220: 41 4C 54 45 20 55 4E 44  00 5F 64 AA 00 2E 8F 5A  |ALTE UND._d....Z|
00000230: 32 3D 24 30 43 3B 5A 45  49 4C 45 20 44 45 52 20  |2=$0C;ZEILE DER |
00000240: 45 43 4B 45 20 52 45 43  48 54 53 20 55 4E 54 45  |ECKE RECHTS UNTE|
00000250: 4E 00 8A 64 B4 00 2E 8F  57 45 52 54 3D 24 30 31  |N..d....WERT=$01|
00000260: 3B 44 41 53 20 49 53 54  20 44 45 52 20 50 4F 4B  |;DAS IST DER POK|
00000270: 45 2D 43 4F 44 45 20 56  4F 4E 20 41 00 90 64 BE  |E-CODE VON A..d.|
00000280: 00 3B 00 DF 64 C8 00 3B  2D 2D 2D 2D 2D 2D 2D 2D  |.;..d..;--------|
00000290: 2D 2D 2D 53 50 45 49 43  48 45 52 53 54 45 4C 4C  |---SPEICHERSTELL|
000002A0: 45 4E 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |EN--------------|
000002B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002D0: 2D 00 E5 64 D2 00 3B 00  07 65 DC 00 2E 8F 53 50  |-..d..;..e....SP|
000002E0: 44 49 46 46 3D 24 46 41  3B 53 50 41 4C 54 45 4E  |DIFF=$FA;SPALTEN|
000002F0: 44 49 46 46 45 52 45 4E  5A 00 27 65 E6 00 2E 8F  |DIFFERENZ.'e....|
00000300: 5A 44 49 46 46 3D 24 46  42 3B 5A 45 49 4C 45 4E  |ZDIFF=$FB;ZEILEN|
00000310: 44 49 46 46 45 52 45 4E  5A 00 59 65 F0 00 2E 8F  |DIFFERENZ.Ye....|
00000320: 42 49 4C 44 3D 24 46 43  3B 56 45 4B 54 4F 52 20  |BILD=$FC;VEKTOR |
00000330: 41 4B 54 55 45 4C 4C 45  20 42 49 4C 44 53 43 48  |AKTUELLE BILDSCH|
00000340: 49 52 4D 50 4F 53 49 54  49 4F 4E 00 83 65 FA 00  |IRMPOSITION..e..|
00000350: 2E 8F 53 50 41 4C 54 45  3D 24 46 45 3B 5A 57 49  |..SPALTE=$FE;ZWI|
00000360: 53 43 48 45 4E 53 50 45  49 43 48 45 52 20 46 55  |SCHENSPEICHER FU|
00000370: 45 52 20 53 31 00 AD 65  04 01 2E 8F 5A 57 53 50  |ER S1..e....ZWSP|
00000380: 3D 24 31 42 3B 5A 57 49  53 43 48 45 4E 53 50 45  |=$1B;ZWISCHENSPE|
00000390: 49 43 48 45 52 20 46 55  45 52 20 38 2A 5A 31 00  |ICHER FUER 8*Z1.|
000003A0: D4 65 0E 01 2E 8F 43 4F  4C 4F 52 3D 24 31 43 3B  |.e....COLOR=$1C;|
000003B0: 56 45 4B 54 4F 52 20 46  41 52 42 52 41 4D 50 4F  |VEKTOR FARBRAMPO|
000003C0: 53 49 54 49 4F 4E 00 DA  65 18 01 3B 00 29 66 22  |SITION..e..;.)f"|
000003D0: 01 3B 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 41 44 52  |.;-----------ADR|
000003E0: 45 53 53 45 4E 20 57 49  43 48 54 49 47 45 52 20  |ESSEN WICHTIGER |
000003F0: 52 41 4D 2D 42 45 52 45  49 43 48 45 2D 2D 2D 2D  |RAM-BEREICHE----|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000410: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 00 2F 66 2C 01  |-----------./f,.|
00000420: 3B 00 53 66 36 01 2E 8F  53 43 52 45 45 4E 3D 24  |;.Sf6...SCREEN=$|
00000430: 33 46 46 3B 42 49 4C 44  53 43 48 49 52 4D 52 41  |3FF;BILDSCHIRMRA|
00000440: 4D 20 2D 20 31 00 72 66  40 01 2E 8F 43 4F 4C 52  |M - 1.rf@...COLR|
00000450: 41 4D 3D 24 44 37 46 46  3B 46 41 52 42 52 41 4D  |AM=$D7FF;FARBRAM|
00000460: 20 2D 20 31 00 78 66 4A  01 3B 00 C7 66 54 01 3B  | - 1.xfJ.;..fT.;|
00000470: 2A 2A 2A 2A 2A 2A 2A 2A  2A 20 4A 45 54 5A 54 20  |********* JETZT |
00000480: 46 41 45 4E 47 54 20 44  41 53 20 50 52 4F 47 52  |FAENGT DAS PROGR|
00000490: 41 4D 4D 20 41 4E 3A 20  2A 2A 2A 2A 2A 2A 2A 2A  |AMM AN: ********|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000004B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 CD 66 5E 01 3B 00  |*********..f^.;.|
000004C0: FF 66 68 01 3B 49 4E 49  54 49 41 4C 49 53 49 45  |.fh.;INITIALISIE|
000004D0: 52 45 4E 55 4E 44 20 42  45 52 45 43 48 4E 45 4E  |RENUND BERECHNEN|
000004E0: 44 45 52 20 53 54 41 52  54 41 44 52 45 53 53 45  |DER STARTADRESSE|
000004F0: 3A 00 05 67 72 01 3B 00  32 67 7C 01 20 81 23 24  |:..gr.;.2g|. .#$|
00000500: 30 30 3B 5A 31 20 41 4C  53 20 31 36 2D 42 49 54  |00;Z1 ALS 16-BIT|
00000510: 2D 57 45 52 54 20 53 50  45 49 43 48 45 52 4E 2C  |-WERT SPEICHERN,|
00000520: 20 4D 53 42 00 3F 67 86  01 20 82 42 49 4C 44 2B  | MSB.?g.. .BILD+|
00000530: 31 00 6C 67 90 01 4D 41  52 4B 45 31 20 81 23 5A  |1.lg..MARKE1 .#Z|
00000540: 31 3B 4C 53 42 2E 20 44  55 52 43 48 20 50 4F 4B  |1;LSB. DURCH POK|
00000550: 45 20 56 45 52 41 45 4E  44 45 52 42 41 52 00 77  |E VERAENDERBAR.w|
00000560: 67 9A 01 20 82 42 49 4C  44 00 7D 67 A4 01 3B 00  |g.. .BILD.}g..;.|
00000570: B2 67 AE 01 4D 41 4B 45  32 20 81 23 53 31 3B 53  |.g..MAKE2 .#S1;S|
00000580: 31 20 53 50 45 49 43 48  45 52 4E 2E 20 44 55 52  |1 SPEICHERN. DUR|
00000590: 43 48 20 50 4F 4B 45 20  56 45 52 41 45 4E 44 45  |CH POKE VERAENDE|
000005A0: 52 42 41 52 00 BF 67 B8  01 20 82 53 50 41 4C 54  |RBAR..g.. .SPALT|
000005B0: 45 00 C5 67 C2 01 3B 00  E2 67 CC 01 20 A7 3B 42  |E..g..;..g.. .;B|
000005C0: 45 52 45 43 48 4E 55 4E  47 20 56 4F 4E 20 53 50  |ERECHNUNG VON SP|
000005D0: 44 49 46 46 00 07 68 D6  01 4D 41 4B 45 33 20 81  |DIFF..h..MAKE3 .|
000005E0: 23 53 32 3B 44 55 52 43  48 20 50 4F 4B 45 20 5A  |#S2;DURCH POKE Z|
000005F0: 55 20 41 45 4E 44 45 52  4E 00 14 68 E0 01 20 92  |U AENDERN..h.. .|
00000600: 53 50 41 4C 54 45 00 21  68 EA 01 20 82 53 50 44  |SPALTE.!h.. .SPD|
00000610: 49 46 46 00 41 68 F4 01  20 8A 53 50 44 49 46 46  |IFF.Ah.. .SPDIFF|
00000620: 3B 53 50 41 4C 54 45 4E  5A 41 45 48 4C 45 52 20  |;SPALTENZAEHLER |
00000630: 2B 20 31 00 47 68 FE 01  3B 00 5F 68 08 02 20 A7  |+ 1.Gh..;._h.. .|
00000640: 3B 42 45 52 45 43 48 4E  55 4E 47 20 5A 44 49 46  |;BERECHNUNG ZDIF|
00000650: 46 00 8B 68 12 02 4D 41  4B 45 34 20 81 23 5A 32  |F..h..MAKE4 .#Z2|
00000660: 3B 57 49 45 44 45 52 20  44 55 52 43 48 20 50 4F  |;WIEDER DURCH PO|
00000670: 4B 45 20 5A 55 20 41 45  4E 44 45 52 4E 00 96 68  |KE ZU AENDERN..h|
00000680: 1C 02 20 92 42 49 4C 44  00 A2 68 26 02 20 82 5A  |.. .BILD..h&. .Z|
00000690: 44 49 46 46 00 C0 68 30  02 20 8A 5A 44 49 46 46  |DIFF..h0. .ZDIFF|
000006A0: 3B 5A 45 49 4C 45 4E 5A  41 45 48 4C 45 52 20 2B  |;ZEILENZAEHLER +|
000006B0: 20 31 00 C6 68 3A 02 3B  00 F4 68 44 02 20 A6 3B  | 1..h:.;..hD. .;|
000006C0: 43 41 52 52 59 20 46 52  45 49 4D 41 43 48 45 4E  |CARRY FREIMACHEN|
000006D0: 20 46 55 45 52 20 42 45  52 45 43 48 4E 55 4E 47  | FUER BERECHNUNG|
000006E0: 20 34 30 2A 5A 31 00 07  69 4E 02 20 94 42 49 4C  | 40*Z1..iN. .BIL|
000006F0: 44 3B 5A 31 3D 5A 31 2D  31 00 18 69 58 02 20 8C  |D;Z1=Z1-1..iX. .|
00000700: 42 49 4C 44 3B 3D 5A 31  2A 32 00 29 69 62 02 20  |BILD;=Z1*2.)ib. |
00000710: 8C 42 49 4C 44 3B 3D 20  20 2A 34 00 4B 69 6C 02  |.BILD;=  *4.Kil.|
00000720: 20 8C 42 49 4C 44 3B 3D  20 20 2A 38 20 28 45 52  | .BILD;=  *8 (ER|
00000730: 53 54 45 52 20 53 55 4D  4D 41 4E 44 29 00 56 69  |STER SUMMAND).Vi|
00000740: 76 02 20 81 42 49 4C 44  00 73 69 80 02 20 82 5A  |v. .BILD.si.. .Z|
00000750: 57 53 50 3B 5A 57 49 53  43 48 45 4E 53 50 45 49  |WSP;ZWISCHENSPEI|
00000760: 43 48 45 52 4E 00 85 69  8A 02 20 8C 42 49 4C 44  |CHERN..i.. .BILD|
00000770: 3B 3D 20 20 2A 31 36 00  B7 69 94 02 20 90 42 49  |;=  *16..i.. .BI|
00000780: 4C 44 2B 31 3B 5A 55 52  20 53 49 43 48 45 52 48  |LD+1;ZUR SICHERH|
00000790: 45 49 54 20 43 41 52 52  59 20 49 4E 20 4D 53 42  |EIT CARRY IN MSB|
000007A0: 20 52 4F 54 49 45 52 45  4E 00 DB 69 9E 02 20 8C  | ROTIEREN..i.. .|
000007B0: 42 49 4C 44 3B 3D 20 20  2A 33 32 20 28 5A 57 45  |BILD;=  *32 (ZWE|
000007C0: 49 54 45 52 20 53 55 4D  4D 41 4E 44 29 00 07 6A  |ITER SUMMAND)..j|
000007D0: A8 02 20 90 42 49 4C 44  2B 31 3B 4E 4F 43 48 4D  |.. .BILD+1;NOCHM|
000007E0: 41 4C 20 43 41 52 52 59  20 49 4E 53 20 4D 53 42  |AL CARRY INS MSB|
000007F0: 20 52 4F 54 49 45 52 45  4E 00 3D 6A B2 02 20 81  | ROTIEREN.=j.. .|
00000800: 5A 57 53 50 3B 41 44 44  49 54 49 4F 4E 20 42 45  |ZWSP;ADDITION BE|
00000810: 49 44 45 52 20 53 55 4D  4D 41 4E 44 45 4E 20 28  |IDER SUMMANDEN (|
00000820: 43 41 52 52 59 20 49 53  54 20 46 52 45 49 29 00  |CARRY IST FREI).|
00000830: 56 6A BC 02 20 86 42 49  4C 44 3B 4C 53 42 20 56  |Vj.. .BILD;LSB V|
00000840: 4F 4E 20 33 32 2A 5A 31  00 6F 6A C6 02 20 82 42  |ON 32*Z1.oj.. .B|
00000850: 49 4C 44 3B 4C 53 42 20  56 4F 4E 20 34 30 2A 5A  |ILD;LSB VON 40*Z|
00000860: 31 00 8A 6A D0 02 20 81  42 49 4C 44 2B 31 3B 4D  |1..j.. .BILD+1;M|
00000870: 53 42 20 56 4F 4E 20 33  32 2A 5A 31 00 AE 6A DA  |SB VON 32*Z1..j.|
00000880: 02 20 86 23 24 30 30 3B  45 56 45 4E 54 55 45 4C  |. .#$00;EVENTUEL|
00000890: 4C 20 43 41 52 52 59 20  41 44 44 49 45 52 45 4E  |L CARRY ADDIEREN|
000008A0: 00 DE 6A E4 02 20 82 42  49 4C 44 2B 31 3B 49 4D  |..j.. .BILD+1;IM|
000008B0: 20 56 45 4B 54 4F 52 20  42 49 4C 44 20 53 54 45  | VEKTOR BILD STE|
000008C0: 48 54 20 4E 55 4E 20 34  30 2A 28 5A 31 2D 31 29  |HT NUN 40*(Z1-1)|
000008D0: 00 E4 6A EE 02 3B 00 FB  6A F8 02 20 A6 3B 41 44  |..j..;..j.. .;AD|
000008E0: 44 49 54 49 4F 4E 20 56  4F 4E 20 53 31 00 0A 6B  |DITION VON S1..k|
000008F0: 02 03 20 81 42 49 4C 44  3B 4C 53 42 00 25 6B 0C  |.. .BILD;LSB.%k.|
00000900: 03 20 86 53 50 41 4C 54  45 3B 44 41 53 20 49 53  |. .SPALTE;DAS IS|
00000910: 54 20 4A 41 20 53 31 00  30 6B 16 03 20 82 42 49  |T JA S1.0k.. .BI|
00000920: 4C 44 00 41 6B 20 03 20  81 42 49 4C 44 2B 31 3B  |LD.Ak . .BILD+1;|
00000930: 4D 53 42 00 65 6B 2A 03  20 86 23 24 30 30 3B 45  |MSB.ek*. .#$00;E|
00000940: 56 45 4E 54 55 45 4C 4C  20 43 41 52 52 59 20 41  |VENTUELL CARRY A|
00000950: 44 44 49 45 52 45 4E 00  98 6B 34 03 20 82 42 49  |DDIEREN..k4. .BI|
00000960: 4C 44 2B 31 3B 49 4D 20  56 45 4B 54 4F 52 20 42  |LD+1;IM VEKTOR B|
00000970: 49 4C 44 20 53 54 45 48  54 20 4E 55 4E 20 34 30  |ILD STEHT NUN 40|
00000980: 2A 28 5A 31 2D 31 29 2B  53 31 00 9E 6B 3E 03 3B  |*(Z1-1)+S1..k>.;|
00000990: 00 BE 6B 48 03 20 A6 3B  46 41 52 42 52 41 4D 41  |..kH. .;FARBRAMA|
000009A0: 44 52 45 53 53 45 20 42  45 52 45 43 48 4E 45 4E  |DRESSE BERECHNEN|
000009B0: 00 D3 6B 52 03 20 81 23  3C 28 43 4F 4C 52 41 4D  |..kR. .#<(COLRAM|
000009C0: 29 3B 4C 53 42 00 DE 6B  5C 03 20 86 42 49 4C 44  |);LSB..k\. .BILD|
000009D0: 00 0D 6C 66 03 20 82 43  4F 4C 4F 52 3B 56 45 4B  |..lf. .COLOR;VEK|
000009E0: 54 4F 52 20 41 4B 54 55  45 4C 4C 45 20 46 41 52  |TOR AKTUELLE FAR|
000009F0: 42 52 41 4D 41 44 52 45  53 53 45 20 4C 53 42 00  |BRAMADRESSE LSB.|
00000A00: 22 6C 70 03 20 81 23 3E  28 43 4F 4C 52 41 4D 29  |"lp. .#>(COLRAM)|
00000A10: 3B 4D 53 42 00 2F 6C 7A  03 20 86 42 49 4C 44 2B  |;MSB./lz. .BILD+|
00000A20: 31 00 48 6C 84 03 20 82  43 4F 4C 4F 52 2B 31 3B  |1.Hl.. .COLOR+1;|
00000A30: 56 45 4B 54 4F 52 20 4D  53 42 00 4E 6C 8E 03 3B  |VEKTOR MSB.Nl..;|
00000A40: 00 7A 6C 98 03 20 A6 3B  41 4B 54 55 45 4C 4C 45  |.zl.. .;AKTUELLE|
00000A50: 20 42 49 4C 44 53 43 48  49 52 4D 41 44 52 45 53  | BILDSCHIRMADRES|
00000A60: 53 45 20 42 45 52 45 43  48 4E 45 4E 00 8F 6C A2  |SE BERECHNEN..l.|
00000A70: 03 20 81 23 3C 28 53 43  52 45 45 4E 29 3B 4C 53  |. .#<(SCREEN);LS|
00000A80: 42 00 9A 6C AC 03 20 86  42 49 4C 44 00 BB 6C B6  |B..l.. .BILD..l.|
00000A90: 03 20 82 42 49 4C 44 3B  56 45 4B 54 4F 52 20 42  |. .BILD;VEKTOR B|
00000AA0: 49 4C 44 53 43 48 49 52  4D 20 4C 53 42 00 D0 6C  |ILDSCHIRM LSB..l|
00000AB0: C0 03 20 81 23 3E 28 53  43 52 45 45 4E 29 3B 4D  |.. .#>(SCREEN);M|
00000AC0: 53 42 00 DD 6C CA 03 20  86 42 49 4C 44 2B 31 00  |SB..l.. .BILD+1.|
00000AD0: FF 6C D4 03 20 82 42 49  4C 44 2B 31 3B 42 49 4C  |.l.. .BILD+1;BIL|
00000AE0: 44 53 43 48 49 52 4D 56  45 4B 54 4F 52 20 4D 53  |DSCHIRMVEKTOR MS|
00000AF0: 42 00 05 6D DE 03 3B 00  2F 6D E8 03 4D 41 4B 45  |B..m..;./m..MAKE|
00000B00: 35 20 83 23 46 41 52 42  45 3B 44 55 52 43 48 20  |5 .#FARBE;DURCH |
00000B10: 50 4F 4B 45 20 56 45 52  41 45 4E 44 45 52 42 41  |POKE VERAENDERBA|
00000B20: 52 00 35 6D F2 03 3B 00  84 6D FC 03 3B 2A 2A 2A  |R.5m..;..m..;***|
00000B30: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 20 48 49 45 52  |*********** HIER|
00000B40: 20 42 45 47 49 4E 4E 45  4E 20 44 49 45 20 56 45  | BEGINNEN DIE VE|
00000B50: 52 53 43 48 41 43 48 54  45 4C 54 45 4E 20 53 43  |RSCHACHTELTEN SC|
00000B60: 48 4C 45 49 46 45 4E 20  2A 2A 2A 2A 2A 2A 2A 2A  |HLEIFEN ********|
00000B70: 2A 2A 2A 2A 2A 2A 00 B2  6D 06 04 4C 41 42 45 4C  |******..m..LABEL|
00000B80: 31 20 84 23 24 30 30 3B  53 50 41 4C 54 45 4E 5A  |1 .#$00;SPALTENZ|
00000B90: 41 45 48 4C 45 52 20 5A  55 52 55 45 43 4B 53 45  |AEHLER ZURUECKSE|
00000BA0: 54 5A 45 4E 00 DC 6D 10  04 4C 41 42 45 4C 32 20  |TZEN..m..LABEL2 |
00000BB0: 81 23 57 45 52 54 3B 44  55 52 43 48 20 50 4F 4B  |.#WERT;DURCH POK|
00000BC0: 45 20 56 45 52 41 45 4E  44 45 52 42 41 52 00 04  |E VERAENDERBAR..|
00000BD0: 6E 1A 04 20 82 28 42 49  4C 44 29 2C 59 3B 41 55  |n.. .(BILD),Y;AU|
00000BE0: 46 20 42 49 4C 44 53 43  48 49 52 4D 20 53 43 48  |F BILDSCHIRM SCH|
00000BF0: 52 45 49 42 45 4E 00 1C  6E 24 04 20 98 3B 46 41  |REIBEN..n$. .;FA|
00000C00: 52 42 57 45 52 54 20 55  4D 4C 41 44 45 4E 00 45  |RBWERT UMLADEN.E|
00000C10: 6E 2E 04 20 82 28 43 4F  4C 4F 52 29 2C 59 3B 55  |n.. .(COLOR),Y;U|
00000C20: 4E 44 20 49 4E 20 46 41  52 42 52 41 4D 20 53 43  |ND IN FARBRAM SC|
00000C30: 48 52 45 49 42 45 4E 00  4C 6E 38 04 20 9E 00 68  |HREIBEN.Ln8. ..h|
00000C40: 6E 42 04 20 93 53 50 44  49 46 46 3B 5A 45 49 4C  |nB. .SPDIFF;ZEIL|
00000C50: 45 20 46 45 52 54 49 47  20 3F 00 93 6E 4C 04 20  |E FERTIG ?..nL. |
00000C60: B5 4C 41 42 45 4C 32 3B  4E 4F 43 48 20 4E 49 43  |.LABEL2;NOCH NIC|
00000C70: 48 54 2C 20 44 41 4E 4E  20 57 45 49 54 45 52 4D  |HT, DANN WEITERM|
00000C80: 41 43 48 45 4E 00 D4 6E  56 04 3B 41 4E 53 4F 4E  |ACHEN..nV.;ANSON|
00000C90: 53 54 45 4E 20 57 45 52  44 45 4E 20 5A 55 20 44  |STEN WERDEN ZU D|
00000CA0: 45 4E 20 56 45 4B 54 4F  52 45 4E 20 42 49 4C 44  |EN VEKTOREN BILD|
00000CB0: 20 55 4E 44 20 43 4F 4C  4F 52 20 34 30 20 41 44  | UND COLOR 40 AD|
00000CC0: 44 49 45 52 54 3A 00 EE  6E 60 04 20 A6 3B 42 49  |DIERT:..n`. .;BI|
00000CD0: 4C 44 20 41 4B 54 55 41  4C 49 53 49 45 52 45 4E  |LD AKTUALISIEREN|
00000CE0: 00 FD 6E 6A 04 20 81 42  49 4C 44 3B 4C 53 42 00  |..nj. .BILD;LSB.|
00000CF0: 1B 6F 74 04 20 86 23 24  32 38 3B 44 41 53 20 49  |.ot. .#$28;DAS I|
00000D00: 53 54 20 44 45 5A 49 4D  41 4C 20 34 30 00 26 6F  |ST DEZIMAL 40.&o|
00000D10: 7E 04 20 82 42 49 4C 44  00 37 6F 88 04 20 81 42  |~. .BILD.7o.. .B|
00000D20: 49 4C 44 2B 31 3B 4D 53  42 00 51 6F 92 04 20 86  |ILD+1;MSB.Qo.. .|
00000D30: 23 24 30 30 3B 43 41 52  52 59 20 41 44 44 49 45  |#$00;CARRY ADDIE|
00000D40: 52 45 4E 00 7B 6F 9C 04  20 82 42 49 4C 44 2B 31  |REN.{o.. .BILD+1|
00000D50: 3B 56 45 4B 54 4F 52 20  42 49 4C 44 20 49 53 54  |;VEKTOR BILD IST|
00000D60: 20 41 4B 54 55 41 4C 49  53 49 45 52 54 00 81 6F  | AKTUALISIERT..o|
00000D70: A6 04 3B 00 9C 6F B0 04  20 A6 3B 43 4F 4C 4F 52  |..;..o.. .;COLOR|
00000D80: 20 41 4B 54 55 41 4C 49  53 49 45 52 45 4E 00 AC  | AKTUALISIEREN..|
00000D90: 6F BA 04 20 81 43 4F 4C  4F 52 3B 4C 53 42 00 CD  |o.. .COLOR;LSB..|
00000DA0: 6F C4 04 20 86 23 24 32  38 3B 57 49 45 44 45 52  |o.. .#$28;WIEDER|
00000DB0: 20 34 30 20 44 41 5A 55  5A 41 45 48 4C 45 4E 00  | 40 DAZUZAEHLEN.|
00000DC0: D9 6F CE 04 20 82 43 4F  4C 4F 52 00 EB 6F D8 04  |.o.. .COLOR..o..|
00000DD0: 20 81 43 4F 4C 4F 52 2B  31 3B 4D 53 42 00 09 70  | .COLOR+1;MSB..p|
00000DE0: E2 04 20 86 23 24 30 30  3B 41 44 44 49 45 52 45  |.. .#$00;ADDIERE|
00000DF0: 4E 20 44 45 53 20 43 41  52 52 59 00 35 70 EC 04  |N DES CARRY.5p..|
00000E00: 20 82 43 4F 4C 4F 52 2B  31 3B 56 45 4B 54 4F 52  | .COLOR+1;VEKTOR|
00000E10: 20 43 4F 4C 4F 52 20 49  53 54 20 41 4B 54 55 41  | COLOR IST AKTUA|
00000E20: 4C 49 53 49 45 52 54 00  3B 70 F6 04 3B 00 65 70  |LISIERT.;p..;.ep|
00000E30: 00 05 20 94 5A 44 49 46  46 3B 5A 45 49 4C 45 4E  |.. .ZDIFF;ZEILEN|
00000E40: 5A 41 45 48 4C 45 52 20  48 45 52 55 4E 54 45 52  |ZAEHLER HERUNTER|
00000E50: 5A 41 45 48 4C 45 4E 00  99 70 0A 05 20 B7 4C 41  |ZAEHLEN..p.. .LA|
00000E60: 42 45 4C 31 3B 57 45 4E  4E 20 4E 4F 43 48 20 3E  |BEL1;WENN NOCH >|
00000E70: 20 30 2C 4E 41 45 43 48  53 54 45 20 5A 45 49 4C  | 0,NAECHSTE ZEIL|
00000E80: 45 20 53 43 48 52 45 49  42 45 4E 00 9F 70 14 05  |E SCHREIBEN..p..|
00000E90: 3B 00 CE 70 1E 05 3B 49  4D 20 41 4E 44 45 52 45  |;..p..;IM ANDERE|
00000EA0: 4E 20 46 41 4C 4C 20 49  53 54 20 44 49 45 20 41  |N FALL IST DIE A|
00000EB0: 55 46 47 41 42 45 20 45  52 4C 45 44 49 47 54 3A  |UFGABE ERLEDIGT:|
00000EC0: 00 01 71 28 05 20 A4 3B  5A 55 52 55 45 43 4B 20  |..q(. .;ZURUECK |
00000ED0: 5A 55 4D 20 41 55 46 52  55 46 45 4E 44 45 4E 20  |ZUM AUFRUFENDEN |
00000EE0: 50 52 4F 47 52 41 4D 4D  20 4F 44 45 52 20 42 41  |PROGRAMM ODER BA|
00000EF0: 53 49 43 00 07 71 32 05  3B 00 15 71 3C 05 2E A4  |SIC..q2.;..q<...|
00000F00: 55 2C 31 2C 34 2C 37 00  00 00                    |U,1,4,7...      |

.B.B..;.!B....1,4,7.'B..;.VB(.;*********
****************************************
************************..B2.;SCHLEIFENP
ROGRAMMIERUNG BEISPIEL TEILBEREICHE DES 
BILDSCHIRMES..B<.;                      
  BESCHREIBEN.2CF.;*********************
****************************************
************.8CP.;.DCZ...$C000.JCD.;..CN
.;----------BEISPIELWERTE (DURCH POKES V
ERAENDERBAR)-----------------------..CX.
;.JC....FARBE=$04;IN HYPRA-ASS JEWEILS S
TATT..C....S1=$04; .DEFINE IMMER:  .EQ..
D....Z1=$03;SPALTE UND ZEILE DER ECKE LI
NKS OBEN.6D ...S2=$0F;SPALTE UND._D....Z
2=$0C;ZEILE DER ECKE RECHTS UNTEN..D....
WERT=$01;DAS IST DER POKE-CODE VON A..D.
.;..DH.;-----------SPEICHERSTELLEN------
----------------------------------------
-..DR.;..E....SPDIFF=$FA;SPALTENDIFFEREN
Z.'E....ZDIFF=$FB;ZEILENDIFFERENZ.YE....
BILD=$FC;VEKTOR AKTUELLE BILDSCHIRMPOSIT
ION..E....SPALTE=$FE;ZWISCHENSPEICHER FU
ER S1..E....ZWSP=$1B;ZWISCHENSPEICHER FU
ER 8*Z1.TE....COLOR=$1C;VEKTOR FARBRAMPO
SITION.ZE..;.)F".;-----------ADRESSEN WI
CHTIGER RAM-BEREICHE--------------------
-----------./F,.;.SF6...SCREEN=$3FF;BILD
SCHIRMRAM - 1.RF@...COLRAM=$D7FF;FARBRAM
 - 1.XFJ.;.GFT.;********* JETZT FAENGT D
AS PROGRAMM AN: ************************
*********.MF^.;..FH.;INITIALISIERENUND B
ERECHNENDER STARTADRESSE:..GR.;.2G|. .#$
00;Z1 ALS 16-BIT-WERT SPEICHERN, MSB.?G.
. .BILD+1.LG..MARKE1 .#Z1;LSB. DURCH POK
E VERAENDERBAR.WG.. .BILD.}G..;..G..MAKE
2 .#S1;S1 SPEICHERN. DURCH POKE VERAENDE
RBAR..G.. .SPALTE.EGB.;..GL. .;BERECHNUN
G VON SPDIFF..HV.MAKE3 .#S2;DURCH POKE Z
U AENDERN..H.. .SPALTE.!H.. .SPDIFF.AH..
 .SPDIFF;SPALTENZAEHLER + 1.GH..;._H.. .
;BERECHNUNG ZDIFF..H..MAKE4 .#Z2;WIEDER 
DURCH POKE ZU AENDERN..H.. .BILD..H&. .Z
DIFF..H0. .ZDIFF;ZEILENZAEHLER + 1.FH:.;
..HD. .;CARRY FREIMACHEN FUER BERECHNUNG
 40*Z1..IN. .BILD;Z1=Z1-1..IX. .BILD;=Z1
*2.)IB. .BILD;=  *4.KIL. .BILD;=  *8 (ER
STER SUMMAND).VIV. .BILD.SI.. .ZWSP;ZWIS
CHENSPEICHERN..I.. .BILD;=  *16..I.. .BI
LD+1;ZUR SICHERHEIT CARRY IN MSB ROTIERE
N..I.. .BILD;=  *32 (ZWEITER SUMMAND)..J
.. .BILD+1;NOCHMAL CARRY INS MSB ROTIERE
N.=J.. .ZWSP;ADDITION BEIDER SUMMANDEN (
CARRY IST FREI).VJ.. .BILD;LSB VON 32*Z1
.OJF. .BILD;LSB VON 40*Z1..JP. .BILD+1;M
SB VON 32*Z1..JZ. .#$00;EVENTUELL CARRY 
ADDIEREN..J.. .BILD+1;IM VEKTOR BILD STE
HT NUN 40*(Z1-1)..J..;..J.. .;ADDITION V
ON S1..K.. .BILD;LSB.%K.. .SPALTE;DAS IS
T JA S1.0K.. .BILD.AK . .BILD+1;MSB.EK*.
 .#$00;EVENTUELL CARRY ADDIEREN..K4. .BI
LD+1;IM VEKTOR BILD STEHT NUN 40*(Z1-1)+
S1..K>.;..KH. .;FARBRAMADRESSE BERECHNEN
.SKR. .#<(COLRAM);LSB..K\. .BILD..LF. .C
OLOR;VEKTOR AKTUELLE FARBRAMADRESSE LSB.
"LP. .#>(COLRAM);MSB./LZ. .BILD+1.HL.. .
COLOR+1;VEKTOR MSB.NL..;.ZL.. .;AKTUELLE
 BILDSCHIRMADRESSE BERECHNEN..L.. .#<(SC
REEN);LSB..L.. .BILD..L.. .BILD;VEKTOR B
ILDSCHIRM LSB.PL.. .#>(SCREEN);MSB..LJ. 
.BILD+1..LT. .BILD+1;BILDSCHIRMVEKTOR MS
B..M..;./M..MAKE5 .#FARBE;DURCH POKE VER
AENDERBAR.5M..;..M..;************** HIER
 BEGINNEN DIE VERSCHACHTELTEN SCHLEIFEN 
**************..M..LABEL1 .#$00;SPALTENZ
AEHLER ZURUECKSETZEN..M..LABEL2 .#WERT;D
URCH POKE VERAENDERBAR..N.. .(BILD),Y;AU
F BILDSCHIRM SCHREIBEN..N$. .;FARBWERT U
MLADEN.EN.. .(COLOR),Y;UND IN FARBRAM SC
HREIBEN.LN8. ..HNB. .SPDIFF;ZEILE FERTIG
 ?..NL. .LABEL2;NOCH NICHT, DANN WEITERM
ACHEN.TNV.;ANSONSTEN WERDEN ZU DEN VEKTO
REN BILD UND COLOR 40 ADDIERT:..N`. .;BI
LD AKTUALISIEREN..NJ. .BILD;LSB..OT. .#$
28;DAS IST DEZIMAL 40.&O~. .BILD.7O.. .B
ILD+1;MSB.QO.. .#$00;CARRY ADDIEREN.{O..
 .BILD+1;VEKTOR BILD IST AKTUALISIERT..O
..;..O.. .;COLOR AKTUALISIEREN..O.. .COL
OR;LSB.MOD. .#$28;WIEDER 40 DAZUZAEHLEN.
YON. .COLOR..OX. .COLOR+1;MSB..P.. .#$00
;ADDIEREN DES CARRY.5P.. .COLOR+1;VEKTOR
 COLOR IST AKTUALISIERT.;P..;.EP.. .ZDIF
F;ZEILENZAEHLER HERUNTERZAEHLEN..P.. .LA
BEL1;WENN NOCH > 0,NAECHSTE ZEILE SCHREI
BEN..P..;.NP..;IM ANDEREN FALL IST DIE A
UFGABE ERLEDIGT:..Q(. .;ZURUECK ZUM AUFR
UFENDEN PROGRAMM ODER BASIC..Q2.;..Q<...
U,1,4,7...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL