← #412 Top 1024 #414 →
#413

Poltergeist [PGT] 02

Poltergeist [PGT]

3.474 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT
Disassemble Download .asm Download .prg intros.c64.org

History

Released
16 April 1989
Code
New Style
Music
Jeroen Soede — "Science Fighter"
Group
Poltergeist — France, founded 1988

A crack intro from Poltergeist, one of the few French groups to appear in the rankings. New Style coded the intro while Jeroen Soede composed "Science Fighter," preserved in the HVSC. Soede was a Dutch musician — his appearance in a French group's intro reflects the cross-border collaborations common in the European scene. Poltergeist was founded in 1988 and released this intro on 16 April 1989, during the peak period of C64 cracking activity. France's C64 scene was notably smaller than those of Germany, Scandinavia, or the Netherlands, making Poltergeist's presence in the rankings distinctive. No graphics credits are listed on CSDb. The group does not appear on Doc Snyder's page, Demozoo, or other major scene archives, suggesting a limited documented output. The "Science Fighter" SID title evokes the science fiction themes popular in late-1980s game and demo culture.

Sources: CSDb · CSDb Group

pgt-02.asm 3.474 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:30
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $1f00 (7936)
// IRQ handler:  $2b00 (irq_2b00)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2481 bytes, Data: 61007 bytes
// Labels: 421, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $11e3-$147c ---
.pc = $11e3 "sub_11e3"
// Referenced by: jsr from $12b1, $1353, $1360, $136c, $ee0b, $eead, $eeba, $eec6

sub_11e3:
        tya
        sta $101c,x
// Referenced by: jsr from $12df, $ee39

sub_11e7:
        lda $106e,y
        sta $d401,x
        sta $1033,x
        lda $10ce,y
        sta $d400,x
        sta $1032,x
        rts
// Referenced by: jsr from $13fa, $ef54

sub_11fa:
        lda #$01
        sta $1047,x

loc_11ff:
        lda $101e,x
        sta $fb
        lda $101f,x
        sta $fc
        lda $101d,x
        asl
        tay
        iny
        lda ($fb),y
        cmp #$00
        bne loc_1221
        lda #$00
        sta $101d,x
        ldy #$01
        lda ($fb),y
        clv
        bvc loc_122b

loc_1221:
        cmp #$01
        bne loc_122b
        lda #$00
        sta dat_1000
        rts

loc_122b:
        pha
        dey
        lda ($fb),y
        sta $fb
        pla
        sta $fc
        lda $102f,x
        tay
        clc
        adc #$02
        sta $102f,x
        lda ($fb),y
        cmp #$00
        bne loc_124f
        lda #$00
        sta $102f,x
        inc $101d,x
        jmp loc_11ff

loc_124f:
        sta $101c,x
        iny
        lda ($fb),y
        pha
        and #$1f
        sta $1004,x
        pla
        and #$e0
        lsr
        lsr
        tay
        lda $1059,x
        sta $fb
        lda $105a
        sta $fc
        lda #$00
        sta $d404,x
        sta $d402,x
        sta $1034,x
        lda ($fb),y
        iny
        sta $d403,x
        sta $1035,x
        and #$f0
        sta $1003,x
        lda ($fb),y
        iny
        sta $1005,x
        lda ($fb),y
        iny
        sta $d405,x
        lda ($fb),y
        iny
        sta $d406,x
        lda ($fb),y
        iny
        sta $101a,x
        lda ($fb),y
        iny
        sta $1007,x
        lda ($fb),y
        iny
        sta $1046,x
        lda ($fb),y
        iny
        sta $1008,x
        ldy $101c,x
        jsr sub_11e3
        lda $1033,x
        sta $1049,x
        lda $1032,x
        sta $1048,x
        lda $1005,x
        sta $d404,x
        lda #$00
        sta $1009,x
        rts

// Referenced by: jsr from $13ea, $ef44