← #863 Top 1024 #865 →
#864

Lazer 21

Lazer

2.569 lines of code

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

History

Released
September 1990
Code
The Mysterious Art
Music
Deek (Richard Rinn) — "Ride on the Wind"
Group
Lazer — Austria, founded July 1988

This September 1990 crack intro from the Austrian group Lazer was coded by The Mysterious Art — a member who also handled graphics for several Lazer productions — with the SID tune "Ride on the Wind" by Deek, real name Richard Rinn, archived in the HVSC. Lazer, founded in July 1988 with the abbreviation "LZR," declared itself "Absolutely No.1 in Austria" and maintained a strong presence in the European cracking scene. Doc Snyder's page documents multiple Lazer intros, showing The Mysterious Art as one of the group's primary coders alongside Jack Ready, The Edge, and others. The group also cooperated with Actual for joint releases. Lazer is additionally represented at #464 Lazer Intro #1 in this collection. The scrolltext from other Lazer intros references a network of contacts across Europe, including a Vienna-based party organized jointly with Cosmos. The intro received a comment on intros.c64.org in September 2009.

Sources: CSDb · intros.c64.org · Doc Snyder's Page

lazer-21.asm 2.569 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:53
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3bff  (13312 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0a00 (2560)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2538 bytes, Data: 10774 bytes
// Labels: 295, Subroutines: 7
//
// Cross-references: all OK
// ============================================


// --- Region $0a00-$0a69 ---
.pc = $0a00 "main_0a00"

main_0a00:
        jsr $ff81
        sei
        lda #$00
        ldx #$0b
        ldy #$1b
        sty $d011
        sta $0314
        sta $d020
        sta $d021
        stx $0315
        lda #$02
        jsr sub_1000
        lda #$08
        sta $0286
        jsr $e544
        ldx #$00

loc_0a28:
        lda #$00
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0700,x
        inx
        bne loc_0a28
        ldx #$00

loc_0a3b:
        lda #$00
        sta $da08,x
        sta $db00,x
        inx
        bne loc_0a3b
        ldx #$00

loc_0a48:
        lda dat_3a00,x
        sta $0630,x
        inx
        bne loc_0a48
        ldx #$00

loc_0a53:
        lda #$1c
        sta $0720,x
        inx
        cpx #$28
        bne loc_0a53
        jsr sub_3533
        jsr sub_2661
        jsr sub_269d
        cli

loc_0a67:
        jmp loc_0a67

// --- Region $0ef0-$0eff ---
.pc = $0ef0 "Program $0ef0"
        php
        php
        php
        php
        php
        php
        ora ($08,x)
        php
        php
        php
        php
        php
        php
        ora ($08,x)

// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $0a1b

sub_1000:
        jmp loc_10b4

dat_1003:
        .byte $4c                                   // L

// --- Region $1088-$18d8 ---
.pc = $1088 "sub_1088"
// Referenced by: jsr from $10df

sub_1088:
        lda #$00
        ldx #$7a

loc_108c:
        sta $100d,x
        dex
        bpl loc_108c
        lda #$ff
        sta $103e
        sta $103f
        sta $1040
        lda #$00
        ldx #$02

loc_10a1:
        sta $100d,x
        sta $1010,x
        sta $1013,x
        sta $101f,x
        dex
        bpl loc_10a1
        sta $1061
        rts

loc_10b4:
        pha
        lda #$01
        sta $1061
        pla
        tax
        lda $19a5,x
        sta smc_10cb                                // SMC: modifies $10cb
        lda $19ac,x
        sta smc_10cc                                // SMC: modifies $10cc
        ldy #$05

loc_10ca:
.label smc_10cb = * + 1