← #583 Top 1024 #585 →
#584

Pulsar 13

Pulsar

2.325 lines of code

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

History

Released
May 1989
Code
Jog
Group
Pulsar — United Kingdom, founded 1988

Jog coded this silent Pulsar intro, released in May 1989. Doc Snyder's page confirms Jog as a recurring Pulsar coder, credited on multiple intros alongside Dan and Mik. Pulsar was a British group founded in 1988 under the tagline "Facts, no fiction!" They were based in the Manchester area, as evidenced by contact phone numbers in their scrolltexts. The scrolltext for their third intro reveals Mik cracking "3D Pool" from tape, with greetings to B.Force, GP+FE, Drive, Ikari, NATO, ZEB+WOT, 2000AD, and Falcon. The intro runs silent, demonstrating Jog's ability to deliver clean, functional crack screens without relying on audio. This is the second Pulsar entry in the rankings, alongside #292 Pulsar-02. The group's consistent output across multiple intros reflects a disciplined operation within the British cracking scene of the late 1980s.

Sources: CSDb · Doc Snyder

pulsar-13.asm 2.325 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:31
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $393e  (12625 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $2700 (9984)
// IRQ handler:  $0900 (irq_0900)
// IRQ handler:  $27ff (nmi_27ff)
//
// Code: 442 bytes, Data: 12183 bytes
// Labels: 120, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $0900-$09d4 ---
.pc = $0900 "irq_0900"

irq_0900:
        inc $d019
        lda #$61
        sta $d012
        lda $d012

loc_090b:
        cmp $d012
        beq loc_090b
        lda #$06
        sta $d020
        sta $d021
        lda $41
        eor #$ff
        clc
        adc #$22
        tax
        ldy #$00

loc_0922:
        lda $1fe0,x
        sta $04f0,y
        lda $2030,x
        sta $0518,y
        lda $2080,x
        sta $0540,y
        lda $20d0,x
        sta $0568,y
        lda $2120,x
        sta $0590,y
        lda $2170,x
        sta $05b8,y
        lda $21c0,x
        sta $05e0,y
        lda $2210,x
        sta $0608,y
        lda $2260,x
        sta $0630,y
        lda $22b0,x
        sta $0658,y
        inx
        iny
        cpy #$28
        bne loc_0922
        lda #$0f

loc_0966:
        cmp $d012
        bne loc_0966
        ldx #$0c

loc_096d:
        dex
        bne loc_096d
        lda #$00
        sta $d020
        sta $d021
        lda $e1
        sta $d016
        nop
        nop
        nop
        lda $41
        eor #$ff
        clc
        adc #$22
        tax
        ldy #$00

loc_098a:
        lda $2300,x
        sta $0680,y
        lda $2350,x
        sta $06a8,y
        lda $23a0,x
        sta $06d0,y
        lda $23f0,x
        sta $06f8,y
        lda $2440,x
        sta $0720,y
        lda $2490,x
        sta $0748,y
        lda $24e0,x
        sta $0770,y
        lda $2530,x
        sta $0798,y
        lda tbl_2580,x
        sta $07c0,y
        inx
        iny
        cpy #$28
        bne loc_098a
        lda dat_0aa0
        lda #$1c
        sta $d018
        lda #$0b
        sta $ffff
        rti

dat_09d4:
        // === Fill data (1 bytes, $09d4-$09d4) ===
        .byte $00                                   // .

// --- Region $2700-$2766 ---
.pc = $2700 "main_2700"

main_2700:
        sei
        lda #$01
        lda $dead
        jsr sub_2770
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$00
        sta $d020
        sta $d021
        ldx #$00
        lda #$00