#962

Laser 16

Laser

2.246 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
28 January 1988
Code
Steve
Charset
Pete Harrison
Music
Mad (Marcel Donne) — "Ikari Intro"
Group
Laser — United Kingdom, founded 1986

A crack intro from Laser, the British group founded in 1986 — not to be confused with Lazer of Austria. Released on 28 January 1988, Steve coded the intro, Pete Harrison created the charset, and Mad (Marcel Donne) composed the music — a tune titled "Ikari Intro" preserved in the HVSC. The tune's name suggests it may have originally been composed for or associated with the Ikari group before being adopted here. Doc Snyder's page documents two other Laser intros, coded by Ironfist, with music by Gangstar and Genius. The group abbreviated itself as LCS and maintained contacts within the British cracking scene. This entry joins #311 Laser-02 and #483 Laser-05 among the group's ranked intros. Laser was one of several British groups active during 1986-1988, a period when UK crackers competed actively with Scandinavian and German rivals for scene dominance.

Sources: CSDb · docsnyderspage

laser-16.asm 2.246 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:52
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $dbff  (54272 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1900 (6400)
// IRQ handler:  $1bd0 (irq_1bd0)
// IRQ handler:  $196a (irq_196a)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2158 bytes, Data: 52114 bytes
// Labels: 201, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $1900-$19f6 ---
.pc = $1900 "main_1900"

main_1900:
        jsr sub_1e00
        sei
        lda #$34
        sei
        lda #$7f
        sta $dc0d
        ldx #$00
        stx $dc0e
        inx
        stx $d01a
        lda #$d8
        sta $d016
        lda #$32
        sta $d012
        lda #$03
        jsr sub_c000
        ldx #$00

loc_1926:
        lda $1f00,x
        sta $0450,x
        lda $2000,x
        sta $d850,x
        inx
        bne loc_1926
        jsr sub_1d00
        lda #$00
        sta $1cd2
        sta $1cd0
        jsr sub_1dc3
        lda #$f5
        sta spr_0800
        lda #$01
        sta $cc
        lda #$00
        sta $1cd2
        sta $1cd0
        jsr sub_1dc3
        lda #$d0
        sta $0314
        lda #$1b
        sta $0315
        lda #$12
        sta $d018
        cli

loc_1967:
        jmp loc_1967

irq_196a:
        lda #$1b
        sta $d011
        ldx #$06

loc_1971:
        dex
        bne loc_1971
        ldx #$00

loc_1976:
        ldy #$08
        lda $1a00,x

loc_197b:
        sta $d021
        sta $d020
        inx
        dey
        beq loc_1976
        cpx #$b1
        bcs $199e
        jsr sub_1b8c
        lda dat_1c00,x
        sta $d016
        lda $1b00,x
        sta $d022
        lda $1a00,x
        clc
        bcc loc_197b
        jsr sub_1dd0
        jsr sub_1de0
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        ldx #$11

loc_19b0:
        sta $1c9e,x
        dex
        bne loc_19b0
        lda $1cd3
        cmp #$80
        bne loc_19c0
        jsr sub_1ed0

loc_19c0:
        nop
        ldy $1b09
        ldx #$00

loc_19c6:
        lda $1b0a,x
        sta $1b09,x
        inx
        cpx #$7c
        bne loc_19c6
        sty $1b85
        inc $19ff
        ldx $19ff
        lda $1b98,x
        sta $d022
        lda $19ff
        cmp #$39
        bne loc_19ec
        lda #$00
        sta $19ff