← #291 Top 1024 #293 →
#292

Pulsar 02

Pulsar

2.501 lines of code

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

History

Released
September 1990
Group
Pulsar [PUL] — United Kingdom, CSDb group ID #628
Code
Dan
Music
JCH (Jens-Christian Huus) — "Strike Force"

This crack intro from Pulsar — a UK-based cracking group founded in 1988 — dates to September 1990 and is catalogued on CSDb as release #59368. The code was written by Dan, and the primary music is by JCH (Jens-Christian Huus), using the SID tune "Strike Force." Additional music credits on CSDb include Sequencer (Neil Voss) with "Island Lore" and PRI (Volker Meitz) with "Simple Unit," indicating the intro features multiple selectable tunes. Doc Snyder's page confirms the code by Dan and music by JCH for Crack Intro #02 and maps it to CSDb release #59368. The scrolltext reveals that Transfer of Pulsar handled the cracking duties — specifically cracking, training, levelpacking, and installing a fast-loader for "Final Fight." Greetings extend broadly to "all our allies in crime around the globe." This is one of six documented Pulsar intros spanning the group's activity from the late 1980s through the early 1990s.

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

pulsar-02.asm 2.501 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:50
// 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:  $1e00 (7680)
// IRQ handler:  $12ff (nmi_12ff)
// IRQ handler:  $1700 (irq_1700)
// IRQ handler:  $ff48 (irq_ff48)
// IRQ handler:  $fe43 (nmi_fe43)
//
// Code: 2121 bytes, Data: 61367 bytes
// Labels: 269, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0937-$0dc8 ---
.pc = $0937 "sub_0937"
// Referenced by: jsr from $18f0

sub_0937:
        jmp loc_09c6
// Referenced by: jsr from $13af

sub_093a:
        ldx #$59
        lda #$00
        sta $0b3a

loc_0941:
        sta $08,x
        dex
        bpl loc_0941
        ldx #$19

loc_0948:
        sta $d3ff,x
        dex
        bne loc_0948
        lda #$08
        sta $d404
        sta $d40b
        sta $d412

loc_0959:
        lda $0f30,x
        sta $3e,x
        inx
        cpx #$06
        bcc loc_0959
        lda #$80
        sta $09c9
        rts

loc_0969:
        cmp #$ff
        bne loc_097a
        iny
        lda ($02),y
        sta $3e,x
        iny
        lda ($02),y
        sta $41,x
        jmp loc_0998

loc_097a:
        cmp #$a0
        bcs loc_0986
        and #$1f
        sta $4d,x

loc_0982:
        iny
        jmp loc_09ae

loc_0986:
        cmp #$c0
        bcs loc_0990
        and #$1f
        sta $50,x
        bpl loc_0982

loc_0990:
        and #$3f
        sta $44,x
        iny
        jmp loc_09ae

loc_0998:
        lda $3e,x
        sta $02
        lda $41,x
        sta $03
        lda #$00
        tay
        sta $4a,x
        lda $44,x
        beq loc_09ae
        dec $44,x
        jmp loc_09e3

loc_09ae:
        lda ($02),y
        bmi loc_0969
        asl
        sta $47,x
        iny
        tya
        clc
        adc $3e,x
        sta $3e,x
        bcc loc_09e3
        inc $41,x
        jmp loc_09e3

loc_09c3:
        jmp loc_0c2e

loc_09c6:
        ldx #$02

loc_09c8:
        lda #$00
        bmi loc_0998
        lda $61
        bne loc_09c3
        dec $3b,x
        bpl loc_09df
        ldy $11,x
        lda $0dc6,y
        bmi loc_09df
        lda #$fe
        sta $38,x

loc_09df:
        dec $53,x
        bpl loc_09c3

loc_09e3:
        ldy $47,x
        lda $0f18,y
        sta $02
        lda $0f19,y