LISTING 1

FILE INFORMATION

FILENAME(S): LISTING 1

FILE TYPE(S): PRG

FILE SIZE: 3.2K

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

APPEARS ON: 3 disk(s)

FILE HASH

6e034aa15e1fceaf5029463bea0d64fb3b08848a46a276b968225f0888d0ae94

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10908 08 89	LISTING 1	PRG	C64er, DuncanTwain	30	6	DOWNLOAD FILE
10908 08 89	LISTING 1	PRG	DuncanTwain	30	6	DOWNLOAD FILE
10908 08 89	LISTING 1	PRG	earthshaker	30	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F 03 20 0A 00 2E 42  41 20 34 39 31 35 32 20  |... ...BA 49152 |
00000010: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3B  |               ;|
00000020: 53 54 41 52 54 41 44 52  45 53 53 45 00 2C 20 14  |STARTADRESSE., .|
00000030: 00 2E 47 4C 20 49 52 51  56 45 43 20 3D 20 24 30  |..GL IRQVEC = $0|
00000040: 33 31 34 20 20 20 20 20  20 20 3B 49 52 51 2D 56  |314       ;IRQ-V|
00000050: 45 4B 54 4F 52 00 5B 20  1E 00 2E 47 4C 20 49 52  |EKTOR.[ ...GL IR|
00000060: 51 41 4C 54 20 3D 20 24  45 41 33 31 20 20 20 20  |QALT = $EA31    |
00000070: 20 20 20 3B 41 4C 54 45  20 49 52 51 2D 52 4F 55  |   ;ALTE IRQ-ROU|
00000080: 54 49 4E 45 00 8E 20 28  00 2E 47 4C 20 56 49 43  |TINE.. (..GL VIC|
00000090: 20 20 20 20 3D 20 24 44  30 30 30 20 20 20 20 20  |    = $D000     |
000000A0: 20 20 3B 42 41 53 49 53  41 44 52 45 53 53 45 20  |  ;BASISADRESSE |
000000B0: 44 45 53 20 56 49 43 00  BE 20 32 00 2E 47 4C 20  |DES VIC.. 2..GL |
000000C0: 49 52 51 4D 41 53 4B 3D  20 56 49 43 2B 32 36 20  |IRQMASK= VIC+26 |
000000D0: 20 20 20 20 20 3B 49 52  51 4D 41 53 4B 45 4E 52  |     ;IRQMASKENR|
000000E0: 45 47 49 53 54 45 52 00  F0 20 3C 00 2E 47 4C 20  |EGISTER.. <..GL |
000000F0: 49 52 51 46 4C 41 47 3D  20 56 49 43 2B 32 35 20  |IRQFLAG= VIC+25 |
00000100: 20 20 20 20 20 3B 49 52  51 2D 52 45 51 55 45 53  |     ;IRQ-REQUES|
00000110: 54 52 45 47 49 53 54 45  52 00 23 21 46 00 2E 47  |TREGISTER.#!F..G|
00000120: 4C 20 52 41 53 54 45 52  20 3D 20 56 49 43 2B 31  |L RASTER = VIC+1|
00000130: 38 20 20 20 20 20 20 3B  52 41 53 54 45 52 5A 45  |8      ;RASTERZE|
00000140: 49 4C 45 4E 52 45 47 49  53 54 45 52 00 56 21 50  |ILENREGISTER.V!P|
00000150: 00 2E 47 4C 20 42 4F 52  44 45 52 20 3D 20 56 49  |..GL BORDER = VI|
00000160: 43 2B 33 32 20 20 20 20  20 20 3B 52 41 48 4D 45  |C+32      ;RAHME|
00000170: 4E 46 41 52 42 45 2D 52  45 47 49 53 54 45 52 00  |NFARBE-REGISTER.|
00000180: 86 21 5A 00 2E 47 4C 20  4F 42 45 4E 20 20 20 3D  |.!Z..GL OBEN   =|
00000190: 20 31 30 20 20 20 20 20  20 20 20 20 20 3B 4F 42  | 10          ;OB|
000001A0: 45 52 45 20 52 41 53 54  45 52 5A 45 49 4C 45 00  |ERE RASTERZEILE.|
000001B0: B7 21 64 00 2E 47 4C 20  55 4E 54 45 4E 20 20 3D  |.!d..GL UNTEN  =|
000001C0: 20 32 30 31 20 20 20 20  20 20 20 20 20 3B 55 4E  | 201         ;UN|
000001D0: 54 45 52 45 20 52 41 53  54 45 52 5A 45 49 4C 45  |TERE RASTERZEILE|
000001E0: 00 F2 21 6E 00 2E 47 4C  20 48 49 42 49 54 20 20  |..!n..GL HIBIT  |
000001F0: 3D 20 56 49 43 2B 31 37  20 20 20 20 20 20 3B 42  |= VIC+17      ;B|
00000200: 49 54 20 38 20 44 45 52  20 52 41 53 54 45 52 5A  |IT 8 DER RASTERZ|
00000210: 45 49 4C 45 4E 4E 55 4D  4D 45 52 00 27 22 78 00  |EILENNUMMER.'"x.|
00000220: 2E 47 4C 20 43 49 41 54  49 4D 45 3D 20 24 44 43  |.GL CIATIME= $DC|
00000230: 30 45 20 20 20 20 20 20  20 3B 54 49 4D 45 52 20  |0E       ;TIMER |
00000240: 41 20 53 54 45 55 45 52  52 45 47 49 53 54 45 52  |A STEUERREGISTER|
00000250: 00 2D 22 82 00 3B 00 62  22 8C 00 2E 47 4C 20 43  |.-"..;.b"...GL C|
00000260: 54 52 4C 31 20 20 3D 20  56 49 43 2B 32 34 20 20  |TRL1  = VIC+24  |
00000270: 20 20 20 20 3B 56 49 43  2D 4B 4F 4E 54 52 4F 4C  |    ;VIC-KONTROL|
00000280: 4C 52 45 47 49 53 54 45  52 20 31 00 97 22 96 00  |LREGISTER 1.."..|
00000290: 2E 47 4C 20 43 54 52 4C  32 20 20 3D 20 56 49 43  |.GL CTRL2  = VIC|
000002A0: 2B 31 37 20 20 20 20 20  20 3B 56 49 43 2D 4B 4F  |+17      ;VIC-KO|
000002B0: 4E 54 52 4F 4C 4C 52 45  47 49 53 54 45 52 20 32  |NTROLLREGISTER 2|
000002C0: 00 C9 22 A0 00 2E 47 4C  20 50 4E 54 31 20 20 20  |.."...GL PNT1   |
000002D0: 3D 20 32 35 31 20 20 20  20 20 20 20 20 20 3B 5A  |= 251         ;Z|
000002E0: 45 52 4F 2D 50 41 47 45  2D 50 4F 49 4E 54 45 52  |ERO-PAGE-POINTER|
000002F0: 20 31 00 FB 22 AA 00 2E  47 4C 20 50 4E 54 32 20  | 1.."...GL PNT2 |
00000300: 20 20 3D 20 32 35 33 20  20 20 20 20 20 20 20 20  |  = 253         |
00000310: 3B 5A 45 52 4F 2D 50 41  47 45 2D 50 4F 49 4E 54  |;ZERO-PAGE-POINT|
00000320: 45 52 20 32 00 14 23 C8  00 49 4E 49 54 20 53 45  |ER 2..#..INIT SE|
00000330: 49 3B 49 52 51 20 53 50  45 52 52 45 4E 00 3A 23  |I;IRQ SPERREN.:#|
00000340: D2 00 20 4C 44 41 23 4F  42 45 4E 3B 49 52 51 20  |.. LDA#OBEN;IRQ |
00000350: 46 55 45 52 20 52 41 53  54 45 52 5A 45 49 4C 45  |FUER RASTERZEILE|
00000360: 20 31 30 00 49 23 DC 00  20 53 54 41 52 41 53 54  | 10.I#.. STARAST|
00000370: 45 52 00 66 23 E6 00 20  4C 44 41 48 49 42 49 54  |ER.f#.. LDAHIBIT|
00000380: 3B 42 49 54 20 38 20 4C  4F 45 53 43 48 45 4E 00  |;BIT 8 LOESCHEN.|
00000390: 73 23 F0 00 20 41 4E 44  23 31 32 37 00 81 23 FA  |s#.. AND#127..#.|
000003A0: 00 20 53 54 41 48 49 42  49 54 00 9C 23 04 01 20  |. STAHIBIT..#.. |
000003B0: 4C 44 41 23 31 32 39 3B  49 52 51 20 4D 41 53 4B  |LDA#129;IRQ MASK|
000003C0: 49 45 52 45 4E 00 B7 23  0E 01 20 53 54 41 49 52  |IEREN..#.. STAIR|
000003D0: 51 4D 41 53 4B 3B 52 41  53 54 45 52 2D 49 52 51  |QMASK;RASTER-IRQ|
000003E0: 00 DE 23 18 01 20 4C 44  41 23 3C 28 49 52 51 4E  |..#.. LDA#<(IRQN|
000003F0: 45 55 29 3B 49 52 51 2D  56 45 4B 54 4F 52 20 41  |EU);IRQ-VEKTOR A|
00000400: 55 46 20 4E 45 55 45 00  05 24 22 01 20 4C 44 58  |UF NEUE..$". LDX|
00000410: 23 3E 28 49 52 51 4E 45  55 29 3B 49 52 51 2D 52  |#>(IRQNEU);IRQ-R|
00000420: 4F 55 54 49 4E 45 20 53  54 45 4C 4C 45 4E 00 14  |OUTINE STELLEN..|
00000430: 24 2C 01 20 53 54 41 49  52 51 56 45 43 00 25 24  |$,. STAIRQVEC.%$|
00000440: 36 01 20 53 54 58 49 52  51 56 45 43 2B 31 00 45  |6. STXIRQVEC+1.E|
00000450: 24 40 01 20 4C 44 41 43  49 41 54 49 4D 45 3B 54  |$@. LDACIATIME;T|
00000460: 49 4D 45 52 20 41 20 53  54 4F 50 50 45 4E 00 52  |IMER A STOPPEN.R|
00000470: 24 4A 01 20 41 4E 44 23  32 35 34 00 62 24 54 01  |$J. AND#254.b$T.|
00000480: 20 53 54 41 43 49 41 54  49 4D 45 00 8B 24 5E 01  | STACIATIME..$^.|
00000490: 20 4C 44 41 49 52 51 46  4C 41 47 3B 49 52 51 46  | LDAIRQFLAG;IRQF|
000004A0: 4C 41 47 53 20 56 4F 52  53 49 43 48 54 53 48 41  |LAGS VORSICHTSHA|
000004B0: 4C 42 45 52 00 A4 24 68  01 20 53 54 41 49 52 51  |LBER..$h. STAIRQ|
000004C0: 46 4C 41 47 3B 4C 4F 45  53 43 48 45 4E 00 C1 24  |FLAG;LOESCHEN..$|
000004D0: 72 01 20 43 4C 49 3B 49  52 51 20 57 49 45 44 45  |r. CLI;IRQ WIEDE|
000004E0: 52 20 5A 55 4C 41 53 53  45 4E 00 E6 24 7C 01 20  |R ZULASSEN..$|. |
000004F0: 4A 53 52 4D 41 4B 45 42  49 54 4D 41 50 3B 42 49  |JSRMAKEBITMAP;BI|
00000500: 54 4D 41 50 20 47 45 4E  45 52 49 45 52 45 4E 00  |TMAP GENERIEREN.|
00000510: FE 24 86 01 20 52 54 53  3B 55 4E 44 20 5A 55 52  |.$.. RTS;UND ZUR|
00000520: 55 45 43 4B 2E 2E 2E 00  04 25 90 01 3B 00 2E 25  |UECK.....%..;..%|
00000530: 9A 01 49 52 51 4E 45 55  20 4C 44 41 49 52 51 46  |..IRQNEU LDAIRQF|
00000540: 4C 41 47 3B 56 49 43 2D  49 52 51 2D 46 4C 41 47  |LAG;VIC-IRQ-FLAG|
00000550: 53 20 4C 45 53 45 4E 00  53 25 A4 01 20 53 54 41  |S LESEN.S%.. STA|
00000560: 49 52 51 46 4C 41 47 3B  55 4E 44 20 57 49 45 44  |IRQFLAG;UND WIED|
00000570: 45 52 20 53 43 48 52 45  49 42 45 4E 00 59 25 AE  |ER SCHREIBEN.Y%.|
00000580: 01 3B 00 89 25 B8 01 56  49 43 49 52 51 20 4C 44  |.;..%..VICIRQ LD|
00000590: 41 52 41 53 54 45 52 3B  52 41 53 54 45 52 5A 45  |ARASTER;RASTERZE|
000005A0: 49 4C 45 4E 52 45 47 49  53 54 45 52 20 4C 45 53  |ILENREGISTER LES|
000005B0: 45 4E 00 AE 25 C2 01 20  43 4D 50 23 55 4E 54 45  |EN..%.. CMP#UNTE|
000005C0: 4E 3B 47 52 4F 45 53 53  45 52 2F 47 4C 45 49 43  |N;GROESSER/GLEIC|
000005D0: 48 20 32 30 31 20 3F 00  D3 25 CC 01 20 42 43 53  |H 201 ?..%.. BCS|
000005E0: 54 45 58 54 3B 4A 41 2C  20 44 41 4E 4E 20 54 45  |TEXT;JA, DANN TE|
000005F0: 58 54 42 49 4C 44 53 43  48 49 52 4D 00 D9 25 D6  |XTBILDSCHIRM..%.|
00000600: 01 3B 00 FC 25 E0 01 42  49 54 4D 41 50 4F 4E 20  |.;..%..BITMAPON |
00000610: 4C 44 41 43 54 52 4C 31  3B 53 4F 4E 53 54 20 42  |LDACTRL1;SONST B|
00000620: 49 54 4D 41 50 00 14 26  EA 01 20 41 4E 44 23 31  |ITMAP..&.. AND#1|
00000630: 35 3B 45 49 4E 53 43 48  41 4C 54 45 4E 00 20 26  |5;EINSCHALTEN. &|
00000640: F4 01 20 4F 52 41 23 33  32 00 2B 26 FE 01 20 4F  |.. ORA#32.+&.. O|
00000650: 52 41 23 38 00 39 26 08  02 20 53 54 41 43 54 52  |RA#8.9&.. STACTR|
00000660: 4C 31 00 47 26 12 02 20  4C 44 41 43 54 52 4C 32  |L1.G&.. LDACTRL2|
00000670: 00 53 26 1C 02 20 4F 52  41 23 33 32 00 61 26 26  |.S&.. ORA#32.a&&|
00000680: 02 20 53 54 41 43 54 52  4C 32 00 8C 26 30 02 20  |. STACTRL2..&0. |
00000690: 4C 44 41 23 55 4E 54 45  4E 3B 4E 41 45 43 48 53  |LDA#UNTEN;NAECHS|
000006A0: 54 45 52 20 49 52 51 20  42 45 49 20 5A 45 49 4C  |TER IRQ BEI ZEIL|
000006B0: 45 20 32 30 31 00 9B 26  3A 02 20 53 54 41 52 41  |E 201..&:. STARA|
000006C0: 53 54 45 52 00 A1 26 44  02 3B 00 C9 26 4E 02 49  |STER..&D.;..&N.I|
000006D0: 52 51 52 45 54 55 52 4E  20 50 4C 41 3B 52 45 47  |RQRETURN PLA;REG|
000006E0: 49 53 54 45 52 20 5A 55  52 55 45 43 4B 48 4F 4C  |ISTER ZURUECKHOL|
000006F0: 45 4E 00 D2 26 58 02 20  54 41 59 00 DB 26 62 02  |EN..&X. TAY..&b.|
00000700: 20 50 4C 41 00 E4 26 6C  02 20 54 41 58 00 ED 26  | PLA..&l. TAX..&|
00000710: 76 02 20 50 4C 41 00 0D  27 80 02 20 52 54 49 3B  |v. PLA..'.. RTI;|
00000720: 55 4E 44 20 4D 49 54 20  52 54 49 20 5A 55 52 55  |UND MIT RTI ZURU|
00000730: 45 43 4B 2E 2E 2E 00 13  27 8A 02 3B 00 40 27 94  |ECK.....'..;.@'.|
00000740: 02 54 45 58 54 20 4C 44  41 43 54 52 4C 31 3B 54  |.TEXT LDACTRL1;T|
00000750: 45 58 54 42 49 4C 44 53  43 48 49 52 4D 20 45 49  |EXTBILDSCHIRM EI|
00000760: 4E 53 43 48 41 4C 54 45  4E 00 4C 27 9E 02 20 41  |NSCHALTEN.L'.. A|
00000770: 4E 44 23 31 35 00 58 27  A8 02 20 4F 52 41 23 31  |ND#15.X'.. ORA#1|
00000780: 36 00 65 27 B2 02 20 41  4E 44 23 32 34 37 00 73  |6.e'.. AND#247.s|
00000790: 27 BC 02 20 53 54 41 43  54 52 4C 31 00 81 27 C6  |'.. STACTRL1..'.|
000007A0: 02 20 4C 44 41 43 54 52  4C 32 00 8E 27 D0 02 20  |. LDACTRL2..'.. |
000007B0: 41 4E 44 23 32 32 33 00  9C 27 DA 02 20 53 54 41  |AND#223..'.. STA|
000007C0: 43 54 52 4C 32 00 C5 27  E4 02 20 4C 44 41 23 4F  |CTRL2..'.. LDA#O|
000007D0: 42 45 4E 3B 4E 41 45 43  48 53 54 45 52 20 49 52  |BEN;NAECHSTER IR|
000007E0: 51 20 42 45 49 20 5A 45  49 4C 45 20 31 30 00 D4  |Q BEI ZEILE 10..|
000007F0: 27 EE 02 20 53 54 41 52  41 53 54 45 52 00 00 28  |'.. STARASTER..(|
00000800: F8 02 20 4A 4D 50 49 52  51 41 4C 54 3B 55 4E 44  |.. JMPIRQALT;UND|
00000810: 20 5A 55 52 20 41 4C 54  45 4E 20 49 52 51 2D 52  | ZUR ALTEN IRQ-R|
00000820: 4F 55 54 49 4E 45 2E 2E  2E 00 06 28 02 03 3B 00  |OUTINE.....(..;.|
00000830: 35 28 0C 03 4D 41 4B 45  42 49 54 4D 41 50 20 4C  |5(..MAKEBITMAP L|
00000840: 44 41 23 3C 28 38 31 39  32 29 3B 4C 4F 45 53 43  |DA#<(8192);LOESC|
00000850: 48 45 4E 20 44 45 52 20  42 49 54 4D 41 50 00 46  |HEN DER BITMAP.F|
00000860: 28 16 03 20 4C 44 58 23  3E 28 38 31 39 32 29 00  |(.. LDX#>(8192).|
00000870: 53 28 20 03 20 53 54 41  50 4E 54 31 00 62 28 2A  |S( . STAPNT1.b(*|
00000880: 03 20 53 54 58 50 4E 54  31 2B 31 00 6E 28 34 03  |. STXPNT1+1.n(4.|
00000890: 20 4C 44 58 23 33 32 00  79 28 3E 03 20 4C 44 59  | LDX#32.y(>. LDY|
000008A0: 23 30 00 82 28 48 03 20  54 59 41 00 9A 28 52 03  |#0..(H. TYA..(R.|
000008B0: 43 4C 52 4C 4F 4F 50 20  53 54 41 28 50 4E 54 31  |CLRLOOP STA(PNT1|
000008C0: 29 2C 59 00 A3 28 5C 03  20 49 4E 59 00 B3 28 66  |),Y..(\. INY..(f|
000008D0: 03 20 42 4E 45 43 4C 52  4C 4F 4F 50 00 C2 28 70  |. BNECLRLOOP..(p|
000008E0: 03 20 49 4E 43 50 4E 54  31 2B 31 00 CB 28 7A 03  |. INCPNT1+1..(z.|
000008F0: 20 44 45 58 00 DB 28 84  03 20 42 4E 45 43 4C 52  | DEX..(.. BNECLR|
00000900: 4C 4F 4F 50 00 02 29 8E  03 20 4C 44 41 23 3C 28  |LOOP..).. LDA#<(|
00000910: 32 30 34 38 29 3B 55 4E  44 20 4D 49 54 20 46 41  |2048);UND MIT FA|
00000920: 52 42 45 20 42 45 4C 45  47 45 4E 00 13 29 98 03  |RBE BELEGEN..)..|
00000930: 20 4C 44 58 23 3E 28 32  30 34 38 29 00 20 29 A2  | LDX#>(2048). ).|
00000940: 03 20 53 54 41 50 4E 54  31 00 2F 29 AC 03 20 53  |. STAPNT1./).. S|
00000950: 54 58 50 4E 54 31 2B 31  00 3A 29 B6 03 20 4C 44  |TXPNT1+1.:).. LD|
00000960: 58 23 34 00 46 29 C0 03  20 4C 44 41 23 31 35 00  |X#4.F).. LDA#15.|
00000970: 60 29 CA 03 43 4F 4C 4F  52 4C 4F 4F 50 20 53 54  |`)..COLORLOOP ST|
00000980: 41 28 50 4E 54 31 29 2C  59 00 69 29 D4 03 20 49  |A(PNT1),Y.i).. I|
00000990: 4E 59 00 7B 29 DE 03 20  42 4E 45 43 4F 4C 4F 52  |NY.{).. BNECOLOR|
000009A0: 4C 4F 4F 50 00 8A 29 E8  03 20 49 4E 43 50 4E 54  |LOOP..).. INCPNT|
000009B0: 31 2B 31 00 93 29 F2 03  20 44 45 58 00 A5 29 FC  |1+1..).. DEX..).|
000009C0: 03 20 42 4E 45 43 4F 4C  4F 52 4C 4F 4F 50 00 AB  |. BNECOLORLOOP..|
000009D0: 29 06 04 3B 00 CD 29 10  04 20 4C 44 41 23 3C 28  |)..;..).. LDA#<(|
000009E0: 39 32 33 32 29 3B 4C 49  4E 49 45 4E 20 5A 45 49  |9232);LINIEN ZEI|
000009F0: 43 48 45 4E 45 4E 00 DE  29 1A 04 20 4C 44 58 23  |CHENEN..).. LDX#|
00000A00: 3E 28 39 32 33 32 29 00  EC 29 24 04 20 4A 53 52  |>(9232)..)$. JSR|
00000A10: 4C 49 4E 45 31 00 FE 29  2E 04 20 4C 44 41 23 3C  |LINE1..).. LDA#<|
00000A20: 28 31 32 34 33 32 29 00  10 2A 38 04 20 4C 44 58  |(12432)..*8. LDX|
00000A30: 23 3E 28 31 32 34 33 32  29 00 1E 2A 42 04 20 4A  |#>(12432)..*B. J|
00000A40: 53 52 4C 49 4E 45 31 00  2F 2A 4C 04 20 4C 44 41  |SRLINE1./*L. LDA|
00000A50: 23 3C 28 39 32 33 32 29  00 40 2A 56 04 20 4C 44  |#<(9232).@*V. LD|
00000A60: 58 23 3E 28 39 32 33 32  29 00 4E 2A 60 04 20 4A  |X#>(9232).N*`. J|
00000A70: 53 52 4C 49 4E 45 32 00  5F 2A 6A 04 20 4C 44 41  |SRLINE2._*j. LDA|
00000A80: 23 3C 28 39 33 38 34 29  00 70 2A 74 04 20 4C 44  |#<(9384).p*t. LD|
00000A90: 58 23 3E 28 39 33 38 34  29 00 7E 2A 7E 04 20 4A  |X#>(9384).~*~. J|
00000AA0: 53 52 4C 49 4E 45 32 00  87 2A 88 04 20 52 54 53  |SRLINE2..*.. RTS|
00000AB0: 00 99 2A 92 04 4C 49 4E  45 31 20 53 54 41 50 4E  |..*..LINE1 STAPN|
00000AC0: 54 31 00 A8 2A 9C 04 20  53 54 58 50 4E 54 31 2B  |T1..*.. STXPNT1+|
00000AD0: 31 00 B4 2A A6 04 20 4C  44 58 23 32 30 00 BF 2A  |1..*.. LDX#20..*|
00000AE0: B0 04 20 4C 44 59 23 30  00 CC 2A BA 04 20 4C 44  |.. LDY#0..*.. LD|
00000AF0: 41 23 32 35 35 00 04 2B  C4 04 4C 49 4E 45 31 4C  |A#255..+..LINE1L|
00000B00: 4F 4F 50 20 53 54 41 28  50 4E 54 31 29 2C 59 3B  |OOP STA(PNT1),Y;|
00000B10: 55 4E 54 45 52 52 4F 55  54 49 4E 45 20 46 55 45  |UNTERROUTINE FUE|
00000B20: 52 20 57 41 41 47 45 52  45 43 48 54 45 00 14 2B  |R WAAGERECHTE..+|
00000B30: CE 04 20 49 4E 59 3B 4C  49 4E 49 45 4E 00 1D 2B  |.. INY;LINIEN..+|
00000B40: D8 04 20 49 4E 59 00 26  2B E2 04 20 49 4E 59 00  |.. INY.&+.. INY.|
00000B50: 2F 2B EC 04 20 49 4E 59  00 38 2B F6 04 20 49 4E  |/+.. INY.8+.. IN|
00000B60: 59 00 41 2B 00 05 20 49  4E 59 00 4A 2B 0A 05 20  |Y.A+.. INY.J+.. |
00000B70: 49 4E 59 00 53 2B 14 05  20 49 4E 59 00 5C 2B 1E  |INY.S+.. INY.\+.|
00000B80: 05 20 44 45 58 00 6E 2B  28 05 20 42 4E 45 4C 49  |. DEX.n+(. BNELI|
00000B90: 4E 45 31 4C 4F 4F 50 00  77 2B 32 05 20 52 54 53  |NE1LOOP.w+2. RTS|
00000BA0: 00 A6 2B 3C 05 4C 49 4E  45 32 20 53 54 41 50 4E  |..+<.LINE2 STAPN|
00000BB0: 54 31 3B 55 4E 54 45 52  52 4F 55 54 49 4E 45 20  |T1;UNTERROUTINE |
00000BC0: 46 55 45 52 20 53 45 4E  4B 52 45 43 48 54 45 00  |FUER SENKRECHTE.|
00000BD0: BC 2B 46 05 20 53 54 58  50 4E 54 31 2B 31 3B 4C  |.+F. STXPNT1+1;L|
00000BE0: 49 4E 49 45 4E 00 C8 2B  50 05 20 4C 44 58 23 37  |INIEN..+P. LDX#7|
00000BF0: 39 00 D3 2B 5A 05 20 4C  44 59 23 31 00 E9 2B 64  |9..+Z. LDY#1..+d|
00000C00: 05 4C 49 4E 45 32 4C 4F  4F 50 20 4C 44 41 23 31  |.LINE2LOOP LDA#1|
00000C10: 39 35 00 FA 2B 6E 05 20  53 54 41 28 50 4E 54 31  |95..+n. STA(PNT1|
00000C20: 29 2C 59 00 03 2C 78 05  20 44 45 58 00 14 2C 82  |),Y..,x. DEX..,.|
00000C30: 05 20 42 45 51 4C 49 4E  45 32 45 4E 44 00 1D 2C  |. BEQLINE2END..,|
00000C40: 8C 05 20 49 4E 59 00 28  2C 96 05 20 43 50 59 23  |.. INY.(,.. CPY#|
00000C50: 38 00 3A 2C A0 05 20 42  4E 45 4C 49 4E 45 32 4C  |8.:,.. BNELINE2L|
00000C60: 4F 4F 50 00 45 2C AA 05  20 4C 44 59 23 30 00 4E  |OOP.E,.. LDY#0.N|
00000C70: 2C B4 05 20 43 4C 43 00  5B 2C BE 05 20 4C 44 41  |,.. CLC.[,.. LDA|
00000C80: 50 4E 54 31 00 6B 2C C8  05 20 41 44 43 23 3C 28  |PNT1.k,.. ADC#<(|
00000C90: 33 32 30 29 00 78 2C D2  05 20 53 54 41 50 4E 54  |320).x,.. STAPNT|
00000CA0: 31 00 87 2C DC 05 20 4C  44 41 50 4E 54 31 2B 31  |1..,.. LDAPNT1+1|
00000CB0: 00 97 2C E6 05 20 41 44  43 23 3E 28 33 32 30 29  |..,.. ADC#>(320)|
00000CC0: 00 A6 2C F0 05 20 53 54  41 50 4E 54 31 2B 31 00  |..,.. STAPNT1+1.|
00000CD0: B8 2C FA 05 20 4A 4D 50  4C 49 4E 45 32 4C 4F 4F  |.,.. JMPLINE2LOO|
00000CE0: 50 00 C9 2C 04 06 4C 49  4E 45 32 45 4E 44 20 52  |P..,..LINE2END R|
00000CF0: 54 53 00 00 00                                    |TS...           |

X.. ...BA 49152                ;STARTADR
ESSE., ...GL IRQVEC = $0314       ;IRQ-V
EKTOR.[ ...GL IRQALT = $EA31       ;ALTE
 IRQ-ROUTINE.. (..GL VIC    = $D000     
  ;BASISADRESSE DES VIC.. 2..GL IRQMASK=
 VIC+26      ;IRQMASKENREGISTER.. <..GL 
IRQFLAG= VIC+25      ;IRQ-REQUESTREGISTE
R.#!F..GL RASTER = VIC+18      ;RASTERZE
ILENREGISTER.V!P..GL BORDER = VIC+32    
  ;RAHMENFARBE-REGISTER..!Z..GL OBEN   =
 10          ;OBERE RASTERZEILE..!D..GL 
UNTEN  = 201         ;UNTERE RASTERZEILE
..!N..GL HIBIT  = VIC+17      ;BIT 8 DER
 RASTERZEILENNUMMER.'"X..GL CIATIME= $DC
0E       ;TIMER A STEUERREGISTER.-"..;.B
"...GL CTRL1  = VIC+24      ;VIC-KONTROL
LREGISTER 1.."...GL CTRL2  = VIC+17     
 ;VIC-KONTROLLREGISTER 2.I" ..GL PNT1   
= 251         ;ZERO-PAGE-POINTER 1.."...
GL PNT2   = 253         ;ZERO-PAGE-POINT
ER 2..#H.INIT SEI;IRQ SPERREN.:#R. LDA#O
BEN;IRQ FUER RASTERZEILE 10.I#.. STARAST
ER.F#.. LDAHIBIT;BIT 8 LOESCHEN.S#.. AND
#127..#.. STAHIBIT..#.. LDA#129;IRQ MASK
IEREN..#.. STAIRQMASK;RASTER-IRQ..#.. LD
A#<(IRQNEU);IRQ-VEKTOR AUF NEUE..$". LDX
#>(IRQNEU);IRQ-ROUTINE STELLEN..$,. STAI
RQVEC.%$6. STXIRQVEC+1.E$@. LDACIATIME;T
IMER A STOPPEN.R$J. AND#254.B$T. STACIAT
IME..$^. LDAIRQFLAG;IRQFLAGS VORSICHTSHA
LBER..$H. STAIRQFLAG;LOESCHEN.A$R. CLI;I
RQ WIEDER ZULASSEN..$|. JSRMAKEBITMAP;BI
TMAP GENERIEREN..$.. RTS;UND ZURUECK....
.%..;..%..IRQNEU LDAIRQFLAG;VIC-IRQ-FLAG
S LESEN.S%.. STAIRQFLAG;UND WIEDER SCHRE
IBEN.Y%..;..%..VICIRQ LDARASTER;RASTERZE
ILENREGISTER LESEN..%B. CMP#UNTEN;GROESS
ER/GLEICH 201 ?.S%L. BCSTEXT;JA, DANN TE
XTBILDSCHIRM.Y%V.;..%..BITMAPON LDACTRL1
;SONST BITMAP..&.. AND#15;EINSCHALTEN. &
.. ORA#32.+&.. ORA#8.9&.. STACTRL1.G&.. 
LDACTRL2.S&.. ORA#32.A&&. STACTRL2..&0. 
LDA#UNTEN;NAECHSTER IRQ BEI ZEILE 201..&
:. STARASTER..&D.;.I&N.IRQRETURN PLA;REG
ISTER ZURUECKHOLEN.R&X. TAY..&B. PLA..&L
. TAX..&V. PLA..'.. RTI;UND MIT RTI ZURU
ECK.....'..;.@'..TEXT LDACTRL1;TEXTBILDS
CHIRM EINSCHALTEN.L'.. AND#15.X'.. ORA#1
6.E'.. AND#247.S'.. STACTRL1..'F. LDACTR
L2..'P. AND#223..'Z. STACTRL2.E'.. LDA#O
BEN;NAECHSTER IRQ BEI ZEILE 10.T'.. STAR
ASTER..(.. JMPIRQALT;UND ZUR ALTEN IRQ-R
OUTINE.....(..;.5(..MAKEBITMAP LDA#<(819
2);LOESCHEN DER BITMAP.F(.. LDX#>(8192).
S( . STAPNT1.B(*. STXPNT1+1.N(4. LDX#32.
Y(>. LDY#0..(H. TYA..(R.CLRLOOP STA(PNT1
),Y..(\. INY..(F. BNECLRLOOP.B(P. INCPNT
1+1.K(Z. DEX..(.. BNECLRLOOP..).. LDA#<(
2048);UND MIT FARBE BELEGEN..).. LDX#>(2
048). ).. STAPNT1./).. STXPNT1+1.:).. LD
X#4.F).. LDA#15.`)J.COLORLOOP STA(PNT1),
Y.I)T. INY.{).. BNECOLORLOOP..).. INCPNT
1+1..).. DEX..).. BNECOLORLOOP..)..;.M).
. LDA#<(9232);LINIEN ZEICHENEN..).. LDX#
>(9232)..)$. JSRLINE1..).. LDA#<(12432).
.*8. LDX#>(12432)..*B. JSRLINE1./*L. LDA
#<(9232).@*V. LDX#>(9232).N*`. JSRLINE2.
_*J. LDA#<(9384).P*T. LDX#>(9384).~*~. J
SRLINE2..*.. RTS..*..LINE1 STAPNT1..*.. 
STXPNT1+1..*.. LDX#20..*.. LDY#0.L*.. LD
A#255..+D.LINE1LOOP STA(PNT1),Y;UNTERROU
TINE FUER WAAGERECHTE..+N. INY;LINIEN..+
X. INY.&+.. INY./+.. INY.8+.. INY.A+.. I
NY.J+.. INY.S+.. INY.\+.. DEX.N+(. BNELI
NE1LOOP.W+2. RTS..+<.LINE2 STAPNT1;UNTER
ROUTINE FUER SENKRECHTE..+F. STXPNT1+1;L
INIEN.H+P. LDX#79.S+Z. LDY#1..+D.LINE2LO
OP LDA#195..+N. STA(PNT1),Y..,X. DEX..,.
. BEQLINE2END..,.. INY.(,.. CPY#8.:, . B
NELINE2LOOP.E,.. LDY#0.N,.. CLC.[,.. LDA
PNT1.K,H. ADC#<(320).X,R. STAPNT1..,.. L
DAPNT1+1..,.. ADC#>(320)..,.. STAPNT1+1.
.,.. JMPLINE2LOOP.I,..LINE2END RTS...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL