#757

Cult, The 02

Cult, The

859 lines of code

RasterbarsRSTR

History

Released
c. 1987
Group
The Cult — United Kingdom, founded 1987

This intro from The Cult — a British cracking group founded in 1987 — is praised on intros.c64.org for its visual ambition. Community commentary highlights a "more than 16 colors effect" achieved through raster techniques, noting it as technically impressive despite the absence of music. The Cult operated as a UK-based cracking group with members including A.S.C.I.I., Diblogic, and The Master handling cracking duties, while Grey Elf served as sysop for the group's Alcatraz BBS headquarters. CSDb records 27 releases during their active period, making them a modest but documented presence in the British scene. The lack of a SID soundtrack — unusual for intros of this era — suggests the coder prioritised visual effects over audio, channelling available raster time into colour manipulation. The group's short lifespan and relatively small output are typical of many late-1980s British cracking groups that operated in the shadow of larger Scandinavian and German collectives.

Sources: CSDb Group · intros.c64.org

clt-02.asm 859 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $ffff  (63744 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0a11 (2577)
// IRQ handler:  $088b (loc_088b)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 907 bytes, Data: 62837 bytes
// Labels: 97, Subroutines: 4
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $080d-$0aa2 ---
.pc = $080d "loc_080d"

loc_080d:
        sei
        lda #$8b
        sta $0314
        lda #$08
        sta $0315
        lda #$7f
        sta dat_dc0d
        jsr sub_0877
        lda dat_3fff
        pha
        lda #$80
        sta dat_3fff
        sta dat_0aa3
        lda #$14
        ldx #$00

loc_0830:
        sta $07f8,x
        clc
        adc #$01
        inx
        cpx #$08
        bne loc_0830
        ldx #$00
        txa
        sta $fd

loc_0840:
        sta $0500,x
        sta $0600,x
        inx
        bne loc_0840
        lda #$d3
        sta $fe
        lda #$0a
        sta $ff
        cli

loc_0852:
        lda $dc01
        and #$10
        bne loc_0852
        sei
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        lda #$00
        sta dat_dc0d
        pla
        sta dat_3fff
        jsr sub_0877
        jsr $fda3
        cli
        jmp loc_fce2
// Referenced by: jsr from $081d, $086d

sub_0877:
        ldx #$2e

loc_0879:
        lda dat_d000,x
        tay
        lda $0aa4,x
        sta dat_d000,x
        tya
        sta $0aa4,x
        dex
        bpl loc_0879
        rts

loc_088b:
        lda $d019
        sta $d019
        lda #$00
        beq loc_089b

dat_0895:
        .byte $ce,$92,$08,$4c                       // ...L

loc_0899:
        sta ($ea,x)

loc_089b:
        lda #$1b
        sta $d011
        ldx #$0e

loc_08a2:
        dex
        bne loc_08a2
        lda #$13
        sta $d011
        ldx #$0e

loc_08ac:
        dex
        bne loc_08ac
        lda #$00
        sta $d011
        ldy #$00
        sty $fa
        lda dat_3fff

loc_08bb:
        asl
        lda dat_3fff
        rol
        ldx $fa
        ldy dat_0d00,x
        ldx $d012

loc_08c8:
        cpx $d012
        beq loc_08c8
        sta dat_3fff
        sty $d021
        inc $fa
        ldy $fa
        cpx #$00
        bne loc_08bb
        ldx $d011
        bmi loc_08bb