#964

Pulsar 01

Pulsar

1.133 lines of code

RasterbarsRSTRBitmapBMAP

History

Released
March 1989
Group
Pulsar [PUL] — United Kingdom, CSDb group ID #628
Code
Jog
Graphics
STE
Music
Diflex (Markus Schneider) — "Rhenus Demo '88"

This crack intro from Pulsar — a UK-based group founded in 1988 — dates to March 1989 and is catalogued on CSDb as release #58644 under the title "Pulsar Intro." The code was written by Jog, with graphics by STE and music by Diflex (Markus Schneider), using the SID composition "Rhenus Demo '88." Doc Snyder's page confirms these credits for Crack Intro #01 and maps it to CSDb release #58644. The CSDb entry also references additional music credits from Mike (Michael Hendriks), Johannes Bjerregaard, and JCH (Jens-Christian Huus), suggesting the intro features multiple selectable tunes — including "Sound Example #1," "Beyond," "Shape," "She's Just a Maniac," and "Chase." Pulsar maintained an active presence in the UK and European cracking scene throughout the late 1980s, with Doc Snyder's page documenting six of their intros. The group's website was later hosted at pulsar.scoopex.org.

Sources: CSDb Release · Doc Snyder · intros.c64.org

pulsar-01.asm 1.133 lines
// ============================================
// pulsar-01 - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 vdisasm-one 1.0 build 1, 2026-03-29 17:54:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $0812 (via BASIC SYS 2066)
// Entry point:  $0334 (820)
//
// Code: 671 bytes, Data: 62817 bytes
// Labels: 111, Subroutines: 3
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0914-$091e ---
.pc = $0914 "Program $0914"
        sei
        sei
        sei
        .byte $7c,$3c,$3c                           // nop $3c3c,x // ILLEGAL
        .byte $3c,$3c,$3c                           // nop $3c3c,x // ILLEGAL

dat_091d:
        .byte $3c,$3c                               // <<

// --- Region $10a8-$1274 ---
.pc = $10a8 "loc_10a8"

loc_10a8:
        sbc #$10
        lda #$ff
        sta $d012
        lda #$7a
        sta $ff
        lda $144c
        ora #$10
        sta $d016
        ldx #$00

loc_10bd:
        lda $ff

loc_10bf:
        cmp $d012
        bne loc_10bf
        ldy #$09

loc_10c6:
        dey
        bne loc_10c6
        lda $1479,x
        sta $d022
        lda $14bd,x
        sta $d023
        lda $ff
        adc #$01
        sta $ff
        inx
        cpx #$40
        bne loc_10bd
        jsr sub_10ef
        jsr sub_1105
        jsr sub_1119
        pla
        tax
        pla
        tay
        pla
        rti

// Referenced by: jsr from $10e0
sub_10ef: {
        ldx #$00
        lda $1479,x
        pha
loop:
        lda $147a,x
        sta $1479,x
        inx
        cpx #$3f
        bne loop
        pla
        sta $1479,x
        rts
}

// Referenced by: jsr from $10e3
sub_1105: {
        ldx #$3f
        lda $14bd,x
        pha
loop:
        lda $14bd,x
        sta $14be,x
        dex
        bpl loop
        pla
        sta $14bd
        rts
}
// Referenced by: jsr from $10e6

sub_1119:
        lda $1450
        beq loc_1184
        lda $04
        clc
        adc #$14
        sta $02
        lda $05
        adc #$00
        sta $03
        ldx #$00
        ldy #$00

loc_112f:
        lda ($04),y
        asl
        asl
        sta $0450,x
        clc
        adc #$01
        sta $0451,x
        adc #$01
        sta $0478,x
        adc #$01
        sta $0479,x
        lda ($02),y
        asl
        asl
        sta $04c8,x
        clc
        adc #$01
        sta $04c9,x
        adc #$01
        sta $04f0,x
        adc #$01
        sta $04f1,x
        inx
        inx
        iny
        cpy #$14
        bne loc_112f