← #719 Top 1024 #721 →
#720

Laser 06

Laser

981 lines of code

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

History

Released
12 November 1987
Code
Sonix
Music
Matrix (Daniel Hansson) — "Gymnioped", David Whittaker — "Armageddon Man"
Group
Laser — United Kingdom, founded 1986

Released on 12 November 1987, this Laser intro was coded by Sonix and features a dual-music arrangement with compositions by Matrix (Daniel Hansson) — the Swedish musician performing as part of Nordic Beat — and David Whittaker, one of the most renowned commercial SID composers of the era. Both tunes, "Gymnioped" and "Armageddon Man," are preserved in the High Voltage SID Collection. Laser, tagged LCS, was a British cracking group founded in 1986. Doc Snyder's Page documents the group's other intros as the work of Ironfist on code, with contributions from L'Trimm, Tob, and musicians like Gangstar (Thomas Krefter) and Genius (Veli-Matti Jokela). The inclusion of a David Whittaker composition is notable — Whittaker was a professional game music composer whose melodies were frequently ripped for use in crack intros. Laser has two other entries in this collection: #311 Laser-02 and #483 Laser-05.

Sources: CSDb · Doc Snyder's Page

laser-06.asm 981 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $e3ff  (56319 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $ca40 (51776)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 916 bytes, Data: 55403 bytes
// Labels: 61, Subroutines: 5
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8cd0-$8cd0 ---
.pc = $8cd0 "Segment $8cd0"
        brk

// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $a68e-$a68e ---
.pc = $a68e "sub_a68e"
// Referenced by: jsr from $cabc

sub_a68e:
        brk

// --- Region $a7ae-$a7ae ---
.pc = $a7ae "loc_a7ae"

loc_a7ae:
        brk

// --- Region $c000-$c2a1 ---
.pc = $c000 "loc_c000"

loc_c000:
        sei
        lda #$37
        sta $01
        lda #$f5
        sta $d018
        lda #$07
        sta $ff
        jsr sub_c575
        ldx #$a2
        ldy #$c2
        jsr sub_c5eb
        ldy #$01
        sty $dc0d
        sty $d01a
        dey
        sty $dd00
        sty $d020
        sty $d021
        sty $d010
        sty $d015
        sty $fb
        lda #$d0
        sta $fc

loc_c036:
        lda #$33
        sta $01
        lda ($fb),y
        inc $01
        sta ($fb),y
        iny
        bne loc_c036
        inc $fc
        lda $fc
        cmp #$d7
        bne loc_c036
        dec $01
        ldy #$00

loc_c04f:
        lda chr_d000,y
        inc $01
        sta $d200,y
        sta $d201,y
        dec $01
        lda $d001,y
        inc $01
        sta $d202,y
        sta $d203,y
        dec $01
        lda $d002,y
        inc $01
        sta $d204,y
        sta $d205,y
        dec $01
        lda $d003,y
        inc $01
        sta $d206,y
        sta $d207,y
        dec $01
        lda $d004,y
        inc $01
        sta $d300,y
        sta $d301,y
        dec $01
        lda $d005,y
        inc $01
        sta $d302,y
        sta $d303,y
        dec $01
        lda $d006,y
        inc $01
        sta $d304,y
        sta $d305,y
        lda #$00
        sta $d306,y
        sta $d307,y
        dec $01
        lda $d100,y
        inc $01
        sta $d400,y
        sta $d401,y
        dec $01
        lda $d101,y
        inc $01
        sta $d402,y
        sta $d403,y
        dec $01
        lda $d102,y
        inc $01
        sta $d404,y
        sta $d405,y
        dec $01
        lda $d103,y
        inc $01
        sta $d406,y
        sta $d407,y
        dec $01
        lda $d104,y
        inc $01
        sta $d500,y
        sta $d501,y
        dec $01