LISTING 2
FILE INFORMATION
FILENAME(S): LISTING 2
FILE TYPE(S): PRG
FILE SIZE: 593b
FIRST SEEN: 2025-12-02 00:10:14
APPEARS ON: 1 disk(s)
FILE HASH
fb91efe2d75f815b62477d72f198d1f0445bd5f5517abf9491536e648ad4a508
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10112 SEITE A | LISTING 2 | PRG | earthshaker | 26 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 4C 69 73 74 69 6E 67 20 32 3A 0D 73 65 |.. Listing 2:.se| 00000010: 69 0D 6C 64 61 20 20 23 3C 6E 65 75 69 72 71 0D |i.lda #<neuirq.| 00000020: 6C 64 78 20 20 23 3E 6E 65 75 69 72 71 0D 73 74 |ldx #>neuirq.st| 00000030: 61 20 20 24 30 33 31 34 0D 73 74 78 20 20 24 30 |a $0314.stx $0| 00000040: 33 31 35 0D 6C 64 61 20 20 23 24 37 66 0D 73 74 |315.lda #$7f.st| 00000050: 61 20 20 24 64 63 30 64 0D 6C 64 61 20 20 23 24 |a $dc0d.lda #$| 00000060: 30 31 0D 73 74 61 20 20 24 64 30 31 61 0D 6C 64 |01.sta $d01a.ld| 00000070: 61 20 20 23 24 32 38 0D 73 74 61 20 20 24 64 30 |a #$28.sta $d0| 00000080: 31 32 0D 6C 64 61 20 20 24 64 30 31 31 0D 61 6E |12.lda $d011.an| 00000090: 64 20 20 23 24 37 66 0D 73 74 61 20 20 24 64 30 |d #$7f.sta $d0| 000000A0: 31 31 0D 6C 64 61 20 20 23 24 30 30 0D 73 74 61 |11.lda #$00.sta| 000000B0: 20 20 24 33 66 66 66 0D 63 6C 69 0D 72 74 73 0D | $3fff.cli.rts.| 000000C0: 0D 3A 6E 65 75 69 72 71 6C 64 61 20 20 24 64 30 |.:neuirqlda $d0| 000000D0: 31 39 0D 73 74 61 20 20 24 64 30 31 39 0D 0D 6C |19.sta $d019..l| 000000E0: 64 78 20 20 23 24 30 30 0D 6C 64 61 20 20 23 24 |dx #$00.lda #$| 000000F0: 31 39 0D 3A 77 61 69 74 7A 65 69 6C 65 63 6D 70 |19.:waitzeilecmp| 00000100: 20 20 24 64 30 31 32 0D 62 63 73 20 20 77 61 69 | $d012.bcs wai| 00000110: 74 7A 65 69 6C 65 0D 6C 64 79 20 20 23 24 30 63 |tzeile.ldy #$0c| 00000120: 0D 3A 77 61 69 74 31 64 65 79 0D 62 6E 65 20 20 |.:wait1dey.bne | 00000130: 77 61 69 74 31 0D 6C 64 61 20 20 23 24 31 30 0D |wait1.lda #$10.| 00000140: 73 74 61 20 20 24 64 30 31 31 0D 6C 64 79 20 20 |sta $d011.ldy | 00000150: 23 24 32 33 0D 3A 77 61 69 74 32 64 65 79 0D 62 |#$23.:wait2dey.b| 00000160: 6E 65 20 20 77 61 69 74 32 0D 62 69 74 20 20 24 |ne wait2.bit $| 00000170: 63 30 0D 62 69 74 20 20 24 63 30 0D 3A 6C 61 62 |c0.bit $c0.:lab| 00000180: 65 6C 6C 64 79 20 20 24 64 30 31 32 0D 64 65 79 |elldy $d012.dey| 00000190: 0D 74 79 61 0D 61 6E 64 20 20 23 24 30 37 0D 6F |.tya.and #$07.o| 000001A0: 72 61 20 20 23 24 31 30 0D 73 74 61 20 20 24 64 |ra #$10.sta $d| 000001B0: 30 31 31 0D 6C 64 61 20 20 23 30 36 0D 73 74 61 |011.lda #06.sta| 000001C0: 20 20 24 64 30 32 31 0D 6B FF FF FF FF FF FF FF | $d021.k.......| 000001D0: FB FF 4D FF FF FF FF FF FF FF FF FB FF FF FF FF |..M.............| 000001E0: FF FF FF FF FB FF 4D FF FF FF FF FF FF FF FF FB |......M.........| 000001F0: FF FF FF FF FF FF FF FF FB FF 4D FF 20 20 24 64 |..........M. $d| 00000200: 30 32 31 0D 6C 64 61 20 20 23 30 36 0D 73 74 61 |021.lda #06.sta| 00000210: 20 20 24 64 30 32 31 0D 69 6E 78 0D 63 70 78 20 | $d021.inx.cpx | 00000220: 20 23 24 36 34 0D 62 6E 65 20 20 6C 61 62 65 6A | #$64.bne labej| 00000230: FB C6 9A 94 80 80 04 8A C0 C8 16 E4 DA 94 80 80 |................| 00000240: 8A 9A C0 40 CC 16 B0 B6 D0 80 80 8A 9E 94 FF CC |...@............| 00000250: 1F |. |
.. LISTING 2:.SEI.LDA #<NEUIRQ.LDX #>N EUIRQ.STA $0314.STX $0315.LDA #$7F.ST A $DC0D.LDA #$01.STA $D01A.LDA #$28. STA $D012.LDA $D011.AND #$7F.STA $D0 11.LDA #$00.STA $3FFF.CLI.RTS..:NEUIRQ LDA $D019.STA $D019..LDX #$00.LDA #$ 19.:WAITZEILECMP $D012.BCS WAITZEILE.L DY #$0C.:WAIT1DEY.BNE WAIT1.LDA #$10. STA $D011.LDY #$23.:WAIT2DEY.BNE WAIT 2.BIT $C0.BIT $C0.:LABELLDY $D012.DEY .TYA.AND #$07.ORA #$10.STA $D011.LDA #06.STA $D021.K.........M............. ......M...................M. $D021.LDA #06.STA $D021.INX.CPX #$64.BNE LABEJ .F.......H..Z......@L...P......L.
> CLICK IMAGE PREVIEW FOR FULL MODAL