← #875 Top 1024 #877 →
#876

Laser Incorporated [LSD] 02

Laser Incorporated [LSD]

1.959 lines of code

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

History

Group
Laser Incorporated [LSD]

This crack intro was produced by Laser Incorporated, a group operating under the abbreviation LSD. The group has proven difficult to trace in scene archives — CSDb searches for both "Laser Incorporated" and "LSD" return no matching group or scener entries, and no documentation exists on Doc Snyder's page, Demozoo, Pouet, or any of the diskmag archives consulted. The absence from CSDb is notable, as the database is generally comprehensive in cataloguing even obscure C64 groups. The LSD abbreviation — derived from the group's full name rather than any psychedelic reference — was not uncommon in the C64 era, when groups frequently adopted initialisms that overlapped with other entities. Without corroborating sources, the group's country of origin and period of activity cannot be confirmed. Laser Incorporated may have operated under a different name on CSDb, or the group's releases may simply have escaped documentation in the major scene databases.

Sources: intros.c64.org

lsd-02.asm 1.959 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:54
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $07ee  End: $2801  (8212 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0a00 (2560)
// IRQ handler:  $0b09 (irq_0b09)
//
// Code: 1915 bytes, Data: 6297 bytes
// Labels: 201, Subroutines: 15
//
// Cross-references: all OK
// ============================================


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

main_0a00:
        jsr sub_0b8a
        jmp loc_0ae6

// --- Region $0ae6-$0cf5 ---
.pc = $0ae6 "loc_0ae6"

loc_0ae6:
        sei
        lda #$01
        sta $d01a
        lda #$7f
        sta $dc0d
        lda #$1b
        sta $d011
        lda #$09
        sta $0314
        lda #$0b
        sta $0315
        lda #$00
        jsr sub_1000
        cli

loc_0b06:
        jmp loc_0b06

irq_0b09:
        lda #$01
        sta $d019
        lda #$20

loc_0b10:
        cmp $d012
        bne loc_0b10
        lda #$d8
        sta $d016
        lda #$18
        sta $d018
        lda $11
        sta $d021
        lda $12
        sta $d022
        lda $13
        sta $d023
        jsr sub_0c47
        jsr sub_0c47
        lda #$ca

loc_0b36:
        cmp $d012
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        bne loc_0b36
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$00
        sta $d021
        lda $c8
        sta $d016
        lda #$12
        sta $d018
        lda #$d3

loc_0b5e:
        cmp $d012
        bne loc_0b5e
        lda $05
        sta $d016
        lda #$f0

loc_0b6a:
        cmp $d012
        bne loc_0b6a
        lda #$c8
        sta $d016
        jsr sub_1003
        jsr sub_0c88
        jsr sub_0cc2
        lda $dc01
        cmp #$ef
        beq loc_0b87
        jmp $ea81

loc_0b87:
        jmp loc_1f00

// Referenced by: jsr from $0a00
sub_0b8a: {
        lda #$00
        sta $d020
        sta $d021
        jsr $e544
        ldx #$00
        lda #$08
loop1:
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $db00,x
        inx
        bne loop1
        lda #$00
        sta $11
        lda #$00
        sta $12
        lda #$00
        sta $13
        ldx #$00
loop2:
        lda $2500,x
        sta $0400,x
        lda $2600,x
        sta $0500,x