#311

Laser 02

Laser

4.439 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

History

Released
1994
Code
Ironfist
Music
Gangstar (Thomas Krefter) — Psycho Tune
Group
Laser — United Kingdom, founded 1986

This Laser crack intro from 1994 is catalogued on CSDb as release #216528 under the name "Laser intro." Ironfist coded the intro while Gangstar — Thomas Krefter — composed the SID tune "Psycho Tune," which is preserved in the HVSC. Both credits are confirmed by Doc Snyder's page, which lists this as Laser Crack Intro #02. Laser was a UK-based cracking group founded in 1986, operating under the abbreviation LCS. The scrolltext references Byterapers' latest demo release and mentions a game trained by Rough — identified as Laser's "Fleet Admiral." Ironfist was a key member of the group, contributing code to multiple Laser intros. Released in 1994, this is a notably late C64 crack intro — arriving well past the platform's commercial peak, making any active releases from this era noteworthy as evidence of continued dedication. Ironfist posted a comment on Doc Snyder's page in 2021, calling it the "Best intro ever."

Sources: CSDb · docsnyderspage

laser-02.asm 4.439 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:25
// 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:  $3050 (12368)
// IRQ handler:  $30a0 (irq_30a0)
//
// Code: 3020 bytes, Data: 60468 bytes
// Labels: 469, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0803-$0803 ---
.pc = $0803 "Program $0803"
        brk

// --- Region $0814-$081a ---
.pc = $0814 "Program $0814"
        dec $c6
        inc $3c00,x
        rts

dat_081a:
        .byte $c0                                   // .

// --- Region $08d0-$08d8 ---
.pc = $08d0 "Program $08d0"
        rol $7c06,x
        cpy #$c6
        dec $fe
        brk

dat_08d8:
        .byte $00                                   // .

// --- Region $0ad0-$0ad8 ---
.pc = $0ad0 "Program $0ad0"
        sbc $b5,x
        sbc $bfba,y
        .byte $bf,$fa,$e9                           // lax $e9fa,y // ILLEGAL
        brk

// --- Region $0b0b-$0b15 ---
.pc = $0b0b "loc_0b0b"

loc_0b0b:
        sbc #$a5
        sty $e5,x
        lda #$50
        bvc loc_0b63
        bvc loc_0b55
        rti

// --- Region $0b55-$0b55 ---
.pc = $0b55 "loc_0b55"

loc_0b55:
        brk

// --- Region $0b63-$0b69 ---
.pc = $0b63 "loc_0b63"

loc_0b63:
        cpy $d4
        .byte $d4,$c4                               // nop $c4,x // ILLEGAL
        .byte $d4,$01                               // nop $01,x // ILLEGAL
        rti

// --- Region $0e60-$0e7b ---
.pc = $0e60 "sub_0e60"
// Referenced by: jsr from $3116

sub_0e60:
        lda #$02
        sta $d02b
        sta $d02c
        lda #$3c
        sta $07fc
        sta $07fd
        lda #$10
        sta $d008
        sta $d00a
        jmp loc_3040

scr_0e7b:
        // === Screen RAM (1 bytes, $0e7b-$0e7b) ===
        .encoding "screencode_mixed"
        .text "@"
        .encoding "petscii_upper"

// --- Region $0f12-$0f12 ---
.pc = $0f12 "sub_0f12"
// Referenced by: jsr from $fee4

sub_0f12:
        brk

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $31af

sub_1000:
        jmp loc_1014
// Referenced by: jsr from $30f4

sub_1003:
        jmp loc_108a

txt_1006:
        .text "M"

// --- Region $1014-$10c0 ---
.pc = $1014 "loc_1014"

loc_1014:
        asl
        asl
        asl
        tay
        lda $199d,y
        sta $10c7
        and #$0f
        sta smc_1099                                // SMC: modifies $1099
        lda $199e,y
        sta smc_108f                                // SMC: modifies $108f
        eor #$0f
        sta $1821
        lda #$0f
        sta smc_10b4                                // SMC: modifies $10b4
        ldx #$00
        stx $d416
        stx smc_108b                                // SMC: modifies $108b
        stx $181a
        stx smc_10be                                // SMC: modifies $10be
        stx $1819
        stx $181b
        stx $d417
        stx smc_10b2                                // SMC: modifies $10b2

loc_104d:
        lda $1997,y
        sta $1824,x