#255

1001 Crew 01

1001 Crew

2.859 lines of code

MusicSIDSpritesSPRT

History

Group
1001 Crew — Netherlands, founded 1985

This crack intro from the 1001 Crew is catalogued on CSDb as release #68148, one of at least sixteen distinct 1001 Crew crack intros preserved in the database under group ID #81. The group was founded in 1985 in the Netherlands and operated under the short name "1001." No individual credits for code or music are recorded on this particular release. The 1001 Crew's extensive CSDb catalogue includes joint intros with Future Projects and The Stars, reflecting the collaborative spirit of the Dutch cracking scene. The group name appears across 36 search results on CSDb, encompassing crack intros, joint releases, and related productions. The group also released under the alternate name "1001 and the Cracking Crew," suggesting an evolving roster or alliance structure. This intro is one of three ranked 1001 Crew entries, alongside #578 1001 Crew Intro #4 and #937 1001 Crew Intro #3.

Sources: CSDb · CSDb Group · intros.c64.org

1001-01.asm 2.859 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:14
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with NSU Packer 1.1 — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $081b (2075)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $0b0d (irq_0b0d)
//
// Code: 2853 bytes, Data: 60635 bytes
// Labels: 279, Subroutines: 9
//
// Verification: 4 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0800-$0800 ---
.pc = $0800 "loc_0800"

loc_0800:
        brk

// --- Region $081b-$087d ---
.pc = $081b "main_081b"

main_081b:
        lda #$93
        jsr $ffd2
        lda #$03
        ldx #$00

loc_0824:
        sta $d800,x
        sta $daf8,x
        inx
        bne loc_0824
        ldx #$00

loc_082f:
.label smc_0830 = * + 1
        lda $0e00,x                                 // !SMC: modified by $0877
        eor #$e5
        sta $0400,x
        inx
        bne loc_082f

loc_083a:
        lda txt_0880,x
        eor #$e1
        sta $06f8,x
        inx
        bne loc_083a
        nop
        nop
        nop
        nop
        nop
        jsr sub_0ae0
        jsr sub_1000
        .byte $af,$2f,$0e                           // lax $0e2f // ILLEGAL
        cmp #$54
        bne loc_0800
        .byte $af,$3b,$0e                           // lax $0e3b // ILLEGAL
        cmp #$45
        bne loc_0800
        .byte $af,$bd,$08                           // lax $08bd // ILLEGAL
        cmp #$6e
        bne loc_0800
        .byte $af,$19,$09                           // lax $0919 // ILLEGAL
        cmp #$41
        bne loc_0800
        lda #$00
        sta $d020
        sta $d021
        sta smc_0ae1                                // SMC: modifies $0ae1
        sta smc_0830                                // SMC: modifies $0830
        jmp loc_099b

dat_087d:
        .byte $ea                                   // .

// --- Region $0980-$0a57 ---
.pc = $0980 "sub_0980"
// Referenced by: jsr from $0a3f

sub_0980:
        nop
        lda #$31
        sta $0314
        lda #$ea
        sta $0315
        lda #$01
        sta $dc0e
        lda #$f0
        sta $d01a
        cli
        rts

dat_0997:
        .byte $ea,$ea,$ea,$ea                       // ....

loc_099b:
        ldx #$60

loc_099d:
        inc $0ac5
        inc $0ac7
        inc $0ac9
        jsr sub_0a18
        dex
        bne loc_099d
        nop
        nop
        nop
        nop
        ldx #$00

loc_09b2:
        jsr sub_0a18
        dec $0ac4
        inc $0ac8
        inx
        cpx #$2d
        bne loc_09b2
        ldx #$00

loc_09c2:
        jsr sub_0a18
        inc $0ac5
        inc $0ac7
        inc $0ac9
        inc $0ac4
        dec $0ac8
        inx
        cpx #$70
        bne loc_09c2
        ldx #$00

loc_09db:
        jsr sub_0a18
        inc $0ac4
        dec $0ac8
        inx