LISTING 4

FILE INFORMATION

FILENAME(S): LISTING 4

FILE TYPE(S): PRG

FILE SIZE: 736b

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

APPEARS ON: 1 disk(s)

FILE HASH

b1781944087ca8d448d7ce29f243fe069452de7d9ce4d63c2d2ad842b8c10a93

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10112 SEITE A	LISTING 4	PRG	C64er	27	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 20 4C 69 73 74 69  6E 67 20 34 3A 0D 0D 6C  |.. Listing 4:..l|
00000010: 64 61 20 20 23 32 30 30  0D 73 74 61 20 20 24 64  |da  #200.sta  $d|
00000020: 30 30 30 20 3B 78 2D 4B  6F 6F 72 64 2E 3D 32 30  |000 ;x-Koord.=20|
00000030: 30 0D 6C 64 61 20 20 23  32 30 0D 73 74 61 20 20  |0.lda  #20.sta  |
00000040: 24 64 30 30 31 20 3B 79  2D 4B 6F 6F 72 64 2E 3D  |$d001 ;y-Koord.=|
00000050: 32 30 0D 6C 64 61 20 20  23 30 31 0D 73 74 61 20  |20.lda  #01.sta |
00000060: 20 24 64 30 31 35 20 3B  53 70 72 69 74 65 20 31  | $d015 ;Sprite 1|
00000070: 20 65 69 6E 0D 0D 73 65  69 20 3B 49 6E 74 65 72  | ein..sei ;Inter|
00000080: 72 75 70 74 20 73 70 65  72 72 65 6E 0D 6C 64 61  |rupt sperren.lda|
00000090: 20 20 23 3C 6E 65 75 69  72 71 20 3B 56 65 6B 74  |  #<neuirq ;Vekt|
000000A0: 6F 72 0D 6C 64 78 20 20  23 3E 6E 65 75 69 72 71  |or.ldx  #>neuirq|
000000B0: 20 3B 76 65 72 62 69 65  67 65 6E 0D 73 74 61 20  | ;verbiegen.sta |
000000C0: 20 24 30 33 31 34 0D 73  74 78 20 20 24 30 33 31  | $0314.stx  $031|
000000D0: 35 0D 6C 64 61 20 20 23  24 37 66 0D 73 74 61 20  |5.lda  #$7f.sta |
000000E0: 20 24 64 63 30 64 0D 6C  64 61 20 20 23 24 30 31  | $dc0d.lda  #$01|
000000F0: 0D 73 74 61 20 20 24 64  30 31 61 0D 6C 64 61 20  |.sta  $d01a.lda |
00000100: 20 23 24 66 37 0D 73 74  61 20 20 24 64 30 31 32  | #$f7.sta  $d012|
00000110: 0D 6C 64 61 20 20 24 64  30 31 31 0D 61 6E 64 20  |.lda  $d011.and |
00000120: 20 23 24 37 66 0D 73 74  61 20 20 24 64 30 31 31  | #$7f.sta  $d011|
00000130: 0D 6C 64 61 20 20 23 24  30 30 0D 73 74 61 20 20  |.lda  #$00.sta  |
00000140: 24 33 66 66 66 0D 63 6C  69 0D 72 74 73 0D 0D 3A  |$3fff.cli.rts..:|
00000150: 6E 65 75 69 72 71 20 6C  64 61 20 20 24 64 30 31  |neuirq lda  $d01|
00000160: 39 0D 73 74 61 20 20 24  64 30 31 39 0D 0D 6C 64  |9.sta  $d019..ld|
00000170: 61 20 20 24 64 30 31 32  0D 63 6D 70 20 20 23 24  |a  $d012.cmp  #$|
00000180: 66 38 20 3B 5A 65 69 6C  65 20 32 34 38 20 3F 0D  |f8 ;Zeile 248 ?.|
00000190: 62 6E 65 20 20 6E 65 75  69 72 71 31 0D 6C 64 61  |bne  neuirq1.lda|
000001A0: 20 20 23 24 31 37 0D 73  74 61 20 20 24 64 30 31  |  #$17.sta  $d01|
000001B0: 31 0D 6C 64 61 20 20 23  24 66 66 20 3B 6E 84 63  |1.lda  #$ff ;n.c|
000001C0: 68 73 74 65 72 20 49 52  51 20 62 65 69 0D 73 74  |hster IRQ bei.st|
000001D0: 61 20 20 24 64 30 31 32  20 3B 52 61 73 74 65 72  |a  $d012 ;Raster|
000001E0: 7A 65 69 6C 65 20 32 35  35 0D 6A 6D 70 20 20 24  |zeile 255.jmp  $|
000001F0: 65 61 38 31 0D 0D 3A 6E  65 75 69 72 71 31 20 63  |ea81..:neuirq1 c|
00000200: 6D 70 20 20 23 24 66 66  20 3B 5A 65 69 6C 65 20  |mp  #$ff ;Zeile |
00000210: 32 35 35 20 3F 0D 62 6E  65 20 20 6E 65 75 69 72  |255 ?.bne  neuir|
00000220: 71 32 0D 6C 64 61 20 20  23 24 39 37 0D 73 74 61  |q2.lda  #$97.sta|
00000230: 20 20 24 64 30 31 31 20  3B 52 61 68 6D 65 6E 20  |  $d011 ;Rahmen |
00000240: 61 75 73 73 63 68 61 6C  74 65 6E 0D 6C 64 61 20  |ausschalten.lda |
00000250: 20 23 24 32 38 0D 73 74  61 20 20 24 64 30 31 32  | #$28.sta  $d012|
00000260: 0D 6A 6D 70 20 20 24 65  61 38 31 0D 0D 3A 6E 65  |.jmp  $ea81..:ne|
00000270: 75 69 72 71 32 6C 64 61  20 20 23 24 31 62 20 3B  |uirq2lda  #$1b ;|
00000280: 4E 6F 72 6D 61 6C 7A 75  73 74 61 6E 64 0D 73 74  |Normalzustand.st|
00000290: 61 20 20 24 64 30 31 31  20 3B 68 65 72 73 74 65  |a  $d011 ;herste|
000002A0: 6C 6C 65 6E 20 75 6E 64  0D 6C 64 61 20 20 23 24  |llen und.lda  #$|
000002B0: 66 38 20 3B 49 52 51 2D  52 6F 75 74 69 6E 65 6E  |f8 ;IRQ-Routinen|
000002C0: 0D 73 74 61 20 20 24 64  30 31 32 20 3B 61 75 66  |.sta  $d012 ;auf|
000002D0: 72 75 66 65 6E 0D 6A 6D  70 20 20 24 65 61 33 31  |rufen.jmp  $ea31|

.. LISTING 4:..LDA  #200.STA  $D000 ;X-K
OORD.=200.LDA  #20.STA  $D001 ;Y-KOORD.=
20.LDA  #01.STA  $D015 ;SPRITE 1 EIN..SE
I ;INTERRUPT SPERREN.LDA  #<NEUIRQ ;VEKT
OR.LDX  #>NEUIRQ ;VERBIEGEN.STA  $0314.S
TX  $0315.LDA  #$7F.STA  $DC0D.LDA  #$01
.STA  $D01A.LDA  #$F7.STA  $D012.LDA  $D
011.AND  #$7F.STA  $D011.LDA  #$00.STA  
$3FFF.CLI.RTS..:NEUIRQ LDA  $D019.STA  $
D019..LDA  $D012.CMP  #$F8 ;ZEILE 248 ?.
BNE  NEUIRQ1.LDA  #$17.STA  $D011.LDA  #
$FF ;N.CHSTER IRQ BEI.STA  $D012 ;RASTER
ZEILE 255.JMP  $EA81..:NEUIRQ1 CMP  #$FF
 ;ZEILE 255 ?.BNE  NEUIRQ2.LDA  #$97.STA
  $D011 ;RAHMEN AUSSCHALTEN.LDA  #$28.ST
A  $D012.JMP  $EA81..:NEUIRQ2LDA  #$1B ;
NORMALZUSTAND.STA  $D011 ;HERSTELLEN UND
.LDA  #$F8 ;IRQ-ROUTINEN.STA  $D012 ;AUF
RUFEN.JMP  $EA31

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL