LISTING 1
FILE INFORMATION
FILENAME(S): LISTING 1
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-12-02 00:10:14
APPEARS ON: 1 disk(s)
FILE HASH
6769403fa8c0f393129f3af02f22ecca3c8742bcb4d13cc30a8b68c23aa5627f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10112 SEITE A | LISTING 1 | PRG | earthshaker | 26 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 4C 69 73 74 69 6E 67 20 31 3A 0D 73 65 |.. Listing 1:.se|
00000010: 69 20 3B 49 6E 74 65 72 72 75 70 74 2D 46 6C 61 |i ;Interrupt-Fla|
00000020: 67 20 73 65 74 7A 65 6E 0D 6C 64 61 20 20 23 3C |g setzen.lda #<|
00000030: 6E 65 75 69 72 71 20 3B 49 52 51 2D 56 65 6B 74 |neuirq ;IRQ-Vekt|
00000040: 6F 72 0D 6C 64 78 20 20 23 3E 6E 65 75 69 72 71 |or.ldx #>neuirq|
00000050: 20 3B 61 75 66 20 6E 65 75 65 0D 73 74 61 20 20 | ;auf neue.sta |
00000060: 24 30 33 31 34 20 3B 52 6F 75 74 69 6E 65 0D 73 |$0314 ;Routine.s|
00000070: 74 78 20 20 24 30 33 31 35 20 3B 76 65 72 62 69 |tx $0315 ;verbi|
00000080: 65 67 65 6E 0D 6C 64 61 20 20 23 24 37 66 20 3B |egen.lda #$7f ;|
00000090: 54 69 6D 65 72 2D 49 6E 74 65 72 72 75 70 74 0D |Timer-Interrupt.|
000000A0: 73 74 61 20 20 24 64 63 30 64 20 3B 76 65 72 68 |sta $dc0d ;verh|
000000B0: 69 6E 64 65 72 6E 0D 6C 64 61 20 20 23 24 30 31 |indern.lda #$01|
000000C0: 20 3B 52 61 73 74 65 72 2D 49 6E 74 65 72 72 75 | ;Raster-Interru|
000000D0: 70 74 0D 73 74 61 20 20 24 64 30 31 61 20 3B 7A |pt.sta $d01a ;z|
000000E0: 75 6C 61 73 73 65 6E 0D 6C 64 61 20 20 23 24 32 |ulassen.lda #$2|
000000F0: 38 20 3B 52 61 73 74 65 72 2D 5A 65 69 6C 65 0D |8 ;Raster-Zeile.|
00000100: 73 74 61 20 20 24 64 30 31 32 20 3B 64 65 66 69 |sta $d012 ;defi|
00000110: 6E 69 65 72 65 6E 0D 6C 64 61 20 20 24 64 30 31 |nieren.lda $d01|
00000120: 31 20 3B 42 69 74 38 0D 61 6E 64 20 20 23 24 37 |1 ;Bit8.and #$7|
00000130: 66 20 3B 6C 94 73 63 68 65 6E 0D 73 74 61 20 20 |f ;l.schen.sta |
00000140: 24 64 30 31 31 0D 6C 64 61 20 20 23 24 30 30 20 |$d011.lda #$00 |
00000150: 3B 47 65 6F 77 4D FF FF FF 53 4D FF FB FF 4D FF |;GeowM...SM...M.|
00000160: FF FF FF FF CC CC CC FF FF FF 2D FF FF FF FF FF |..........-.....|
00000170: FB FF FF C3 FF FF D3 CD 4D FF FF FF FF 4F 4D FF |........M....OM.|
00000180: DC FF FF C5 FF FF 2D FF FF FF FF FF FB FF 4D FF |......-.......M.|
00000190: FA FB FF CD FF FF C3 FF 47 FF FF FF FF FF FF FF |........G.......|
000001A0: FF FF FF FF FF FF FF C5 C3 FF 4D FF FF FF FF FF |..........M.....|
000001B0: FF FF FF FB FF 4D FF FF FF FF FF FF FF FF FF FF |.....M..........|
000001C0: FF 2D FF FF FF FF FF FA FB FF FF 43 FF FF FF FF |.-.........C....|
000001D0: FF FF FF FF FF 2D FF FF FF FF FF FF FF CC FF CD |.....-..........|
000001E0: FF FF FF FF FF FF 4D 5F FF FF FB FF FF FF FF FF |......M_........|
000001F0: FF FF FF FF FF FF FF FF FF 4D FF FF 2D 5A 65 69 |.........M..-Zei|
00000200: 6C 65 0D 3A 77 61 69 74 7A 65 69 6C 65 63 6D 70 |le.:waitzeilecmp|
00000210: 20 20 24 64 30 31 32 20 3B 61 62 77 61 72 74 65 | $d012 ;abwarte|
00000220: 6E 0D 62 63 73 20 20 77 61 69 74 7A 65 69 6C 65 |n.bcs waitzeile|
00000230: 0D 6C 64 79 20 20 23 24 30 63 20 3B 56 65 72 7A |.ldy #$0c ;Verz|
00000240: 94 67 65 72 75 6E 67 0D 3A 77 61 69 74 31 64 65 |.gerung.:wait1de|
00000250: 79 0D 62 6E 65 20 20 77 61 69 74 31 0D 6C 64 61 |y.bne wait1.lda|
00000260: 20 20 23 24 31 30 20 3B 65 78 61 6B 74 65 73 20 | #$10 ;exaktes |
00000270: 54 69 6D 69 6E 67 0D 73 74 61 20 20 24 64 30 31 |Timing.sta $d01|
00000280: 31 20 3B 6B CD C3 4D C3 FF FF C3 FF C3 FF FF FF |1 ;k..M.........|
00000290: FF FB FF FF 53 FF FF FF FF FF FF FF FF FF FF FF |....S...........|
000002A0: 5F 2D C5 FF FF FF CD C4 FB FF 55 FF C3 4D FF FF |_-........U..M..|
000002B0: FF 52 FB FF CD FF FF FF 55 FF C3 4D FF FB FF C3 |.R......U..M....|
000002C0: 4D FF FF FF FF FF FB FF C3 4D FF FF FF FF FF FB |M........M......|
000002D0: FF FF FF FF FF FF FF FF 53 FF FF FF FF FF FF FF |........S.......|
000002E0: FF FF FF FF FF ED FF C3 FF C7 FF FF FF FF FB FF |................|
000002F0: FF 52 FB 4D 53 FF FB FF CD C9 20 20 23 24 30 37 |.R.MS..... #$07|
00000300: 0D 6F 72 61 20 20 23 24 31 30 0D 73 74 61 20 20 |.ora #$10.sta |
00000310: 24 64 30 31 31 0D 6C 64 61 20 20 66 61 72 62 FF |$d011.lda farb.|
00000320: FF FF FF 8D 71 FF B9 18 1B FF B9 17 FF FF 19 FF |....q...........|
00000330: B7 1D FF B5 FF B9 B7 FF FF FF FF FF 8F 89 8F FF |................|
00000340: B9 B7 FF FF FF FF FF 8F 89 8F F4 F4 B9 10 B9 FF |................|
00000350: FF FF 11 11 11 11 FF FF FF 8D 7B FF B9 1D FF 11 |..........{.....|
00000360: FF B9 17 B5 11 F4 B9 10 B9 FF FF FF 11 11 11 11 |................|
00000370: FF FF F4 B9 10 B9 FF FF FF 11 11 11 11 FF FF F4 |................|
00000380: B9 10 B9 FF FF FF 11 11 11 11 FF FF F4 F4 FF B5 |................|
00000390: FF F4 B8 BF FF FF FF 88 FF 8F 9B FF 8D 99 89 FF |................|
000003A0: FF FF FF FF FF B5 FF B8 15 FF FF FF FF FF B8 FF |................|
000003B0: FF FF 8D FF FF B5 11 FF B1 FF 19 18 17 8A F4 BC |................|
000003C0: 14 BF FF FF FF FF FF FF 9F F4 FF FF 9D 11 FF B9 |................|
000003D0: 18 FF 95 18 FF FF FF 8F 97 FF 9F FF 9B FF 9F 97 |................|
000003E0: FF 9F 97 FF 9B FF 9F 97 FF 99 FF 9F 97 FF 9B FF |................|
000003F0: 9F 97 FF 95 18 FF FF FF 33 2C 31 2C 31 35 2C 36 |........3,1,15,6|
00000400: 2C 31 33 2C 33 2C 31 2C 33 2C 31 34 2C 36 2C 30 |,13,3,1,3,14,6,0|
.. LISTING 1:.SEI ;INTERRUPT-FLAG SETZEN
.LDA #<NEUIRQ ;IRQ-VEKTOR.LDX #>NEUIRQ
;AUF NEUE.STA $0314 ;ROUTINE.STX $031
5 ;VERBIEGEN.LDA #$7F ;TIMER-INTERRUPT.
STA $DC0D ;VERHINDERN.LDA #$01 ;RASTER
-INTERRUPT.STA $D01A ;ZULASSEN.LDA #$2
8 ;RASTER-ZEILE.STA $D012 ;DEFINIEREN.L
DA $D011 ;BIT8.AND #$7F ;L.SCHEN.STA
$D011.LDA #$00 ;GEOWM...SM...M.....LLL.
..-........C..SMM....OM....E..-.......M.
...M..C.G..............EC.M..........M..
.........-.........C.........-.......L.M
......M_.................M..-ZEILE.:WAIT
ZEILECMP $D012 ;ABWARTEN.BCS WAITZEILE
.LDY #$0C ;VERZ.GERUNG.:WAIT1DEY.BNE W
AIT1.LDA #$10 ;EXAKTES TIMING.STA $D01
1 ;KMCMC..C.C.......S..........._-E...MD
..U.CM...R..M...U.CM...CM.......CM......
........S..............C.G.......R.MS...
MI #$07.ORA #$10.STA $D011.LDA FARB.
....Q...................................
..................{.....................
........................................
........................................
........................................
................3,1,15,6,13,3,1,3,14,6,0
> CLICK IMAGE PREVIEW FOR FULL MODAL