History
- Group
- Berlin Cracking Service — Germany
Ranked #8 on intros.c64.org despite having almost no metadata attached: CSDb catalogues the release as "BCS Intro" but records no release date, no credits and no SID data. Berlin Cracking Service were — as the name states — a German group based in West Berlin. No founding date is documented on CSDb, and Doc Snyder's page for the group carries no section that maps specifically to this intro. The group operated in the same Berlin postal-district scene as #4 Plutonium Crackers, whose scrolltexts list PLK addresses in the city. What survives and drives the ranking is the intro itself — remembered by the community even though the individuals responsible for coding, drawing and scoring it are not currently documented in the primary databases.
Sources: CSDb · docsnyderspage
bcs-01.asm 727 lines
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:16 // https://restore64.dev by datucker / Rabenauge // // Load address: $0700 End: $d011 (51474 bytes) // Crunched with Exomizer — depacked by emulation // Packer entry: $082a (via BASIC SYS 2090) // Entry point: $0816 (2070) // // Code: 104 bytes, Data: 51370 bytes // Labels: 57, Subroutines: 0 // // Verification: 4 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $0816-$0871 --- .pc = $0816 "main_0816" main_0816: lda #$08 ldy #$73 sty $fb sta $fc lda #$40 ldy #$00 sty $fd sta $fe ldx #$24 sty $d011 loc_082b: lda ($fb),y sta ($fd),y iny bne loc_082b inc $fc inc $fe dex bne loc_082b lda $5f44 sta $d020 lda $5f40 sta $d021 lda #$06 sta $dd00 lda #$80 sta $d018 lda #$d8 sta $d016 lda $5f43 loc_0857: sta $d800,x sta $d900,x sta $da00,x sta $db00,x inx bne loc_0857 lda #$3b sta $d011 nop nop jmp loc_2c70 dat_0870: // === Data block (2 bytes, $0870-$0871) === .byte $80,$71 // .q // --- Region $2c70-$2c7c --- .pc = $2c70 "loc_2c70" loc_2c70: lda $cb cmp #$40 beq loc_2c70 lda #$37 sta $01 jmp $fce2 // --- Region $add0-$add0 --- .pc = $add0 "Segment $add0" brk // ============================================ // Data blocks // ============================================ // --- Region $0801-$0815 --- .pc = $0801 "dat_0801" dat_0801: // === BASIC loader stub === .byte $14,$08 // [corrected] was: .byte $0b,$08 // next line pointer ($080b) .byte $d1,$07 // [corrected] was: .byte $00,$00 // line number 0 .byte $9e // SYS token .text "2070" // SYS 2070 → main_0816 .byte $20 // [corrected] was: .byte $00 // end of line .byte $42,$59 // [corrected] was: .byte $00,$00 // end of BASIC program .text " B-C-S" .byte $00,$00,$00 // --- Region $0872-$0873 --- .pc = $0872 "Program $0872" .byte $80 // . dat_0873: // === Fill data (1 bytes, $0873-$0873) === .byte $00 // . // --- Region $0c39-$23f0 --- .pc = $0c39 "dat_0c39" dat_0c39: .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$00,$00,$00,$00,$00,$00 // ................ .byte $aa,$ff,$00,$00,$00,$00,$00,$00,$aa,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................ .byte $be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff,$be,$ff,$ae,$ff // ................