← #463 Top 1024 #465 →
#464

Lazer 01

Lazer

1.590 lines of code

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

History

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

This Lazer crack intro from September 1990 is catalogued on CSDb as release #100611 under the name "Lazer Intro." The Mysterious Art programmed the intro, while Deek — Richard Rinn — contributed the SID tune "Ride on the Wind," preserved in the HVSC. The graphics credit on CSDb is listed but left unnamed. Doc Snyder's page identifies this as Lazer Crack Intro #01 in a joint release with Actual, with the scrolltext describing it as a cooperation between the two groups and noting The Mysterious Art as a new Lazer member who would supply code and art from Germany. Lazer was an Austrian group founded in July 1988, operating under the abbreviation LZR and the self-proclaimed tagline "Absolutely No.1 in Austria!" The group maintained an active presence in the European trading scene, greeting groups including NATO, Ikari, Beyond Force, Cosmos, and Byterapers in their scrolltexts. Doc Snyder's page documents a further six Lazer intros with varying personnel.

Sources: CSDb · docsnyderspage

lazer-01.asm 1.590 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: $0801  End: $20c0  (6336 bytes)
// Entry point:  $080d (via BASIC SYS 2061)
// IRQ handler:  $0973 (loc_0973)
// IRQ handler:  $0dc9 (loc_0dc9)
// IRQ handler:  $0a52 (loc_0a52)
//
// Code: 2503 bytes, Data: 3833 bytes
// Labels: 158, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0820 ---
.pc = $080d "main_080d"

main_080d:
        lda $52,x
        .byte $4f,$20,$42                           // sre $4220 // ILLEGAL
        eor $4e20,y
        eor #$42
        jsr $464f
        jsr $4354
        eor $ab20
        brk

// --- Region $08f0-$0e57 ---
.pc = $08f0 "loc_08f0"

loc_08f0:
        ldx #$00
        txa

loc_08f3:
        sta $033c,x
        inx
        bne loc_08f3
        jsr $ff81
        ldx #$00
        txa

loc_08ff:
        sta $d8a0,x
        inx
        cpx #$c8
        bne loc_08ff
        lda #$97
        sta $dd00
        sei
        lda #$1b
        sta $d011
        lda #$73
        sta $0314
        lda #$09
        sta $0315
        lda #$81
        sta $d01a
        lda #$00
        sta $dc0e
        lda #$00
        sta $d012
        lda #$ff
        sta $d015
        lda #$00
        sta $d01d
        lda #$00
        sta $d020
        lda #$00
        sta $d021
        cli
        ldx #$00

loc_0942:
        lda txt_2000,x
        sta $04a0,x
        inx
        bne loc_0942
        ldx #$00

loc_094d:
        lda $3700,x
        sta $05a0,x
        inx
        bne loc_094d
        ldx #$00

loc_0958:
        lda $31c0,x
        sta $d850,x
        inx
        cpx #$14
        bne loc_0958
        sei
        lda #$35
        sta $01
        jsr sub_0f00
        lda #$37
        sta $01
        cli
        jmp loc_0e09

loc_0973:
        inc $d019
        nop
        dec $d016
        inc $d016
        ldx #$05

loc_097f:
        dex
        bpl loc_097f
        bit $ea
        ldx #$00
        nop

loc_0987:
        ldy $31a0,x
        lda $31b8
        sta $d001,y
        dec $d016
        inc $d016
        lda $d012
        and #$07
        eor #$1c
        sta $d011
        nop
        inx
        cpx #$14
        bne loc_0987
        lda #$e5
        sta $d018
        lda $ff
        ldx #$00
        beq loc_09ba

loc_09b1:
        ldy $31a0,x
        lda $31b9
        sta $d001,y

loc_09ba:
        dec $d016
        inc $d016