#773

BAM International, The 01

BAM International, The

2.909 lines of code

RasterbarsRSTRBitmapBMAP

History

Group
The BAM International

A crack intro from The BAM International -- a group with minimal presence in C64 scene archives. No CSDb release match has been confirmed, and searches on Demozoo, Doc Snyder's page, the Atlantis Prophecy, and Freeze64 all returned no results. No individual credits for code, music, or graphics have been identified on any source consulted. A single comment on intros.c64.org from Tristan of Empire/SCS*TRC, posted in February 2006, provides the only known scene-era acknowledgment in the archive -- the commenter's membership in both Empire and SCS*TRC suggests recognition from within the scene's active trading networks. The group name -- combining a punchy abbreviation with the word "International" -- follows a common naming pattern among cracking crews who sought to project a globally connected image. With no country of origin, founding date, or member roster surviving in any consulted database, The BAM International's history and scope of activity remain unknown.

Sources: intros.c64.org

bam-01.asm 2.909 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:09
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $2570 (9584)
// IRQ handler:  $101b (irq_101b)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2554 bytes, Data: 60934 bytes
// Labels: 310, Subroutines: 20
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0818-$0841 ---
.pc = $0818 "sub_0818"
// Referenced by: jsr from $2570

sub_0818:
        sei
        jsr sub_0e60
        lda dat_11c4
        sta $d012
        ldx #$01
        stx $d01a
        dex
        stx $dc0e
        stx $d021
        stx $0286
        stx $bb
        stx $02
        stx $c2
        stx $a6
        lda #$07
        sta $ff
        jmp loc_0eb6

dat_0840:
        .byte $00,$00                               // ..

// --- Region $0e60-$0f2b ---
.pc = $0e60 "sub_0e60"
// Referenced by: jsr from $0819

sub_0e60:
        lda #$1b
        ldx #$10
        sta $0314
        stx $0315
        lda #$0b
        sta $d011
        jsr $e544
        ldx #$00

loc_0e74:
        lda #$00
        sta $0518,x
        sta $05a8,x
        lda #$20
        sta $0428,x
        lda #$8d
        sta $06a8,x
        sta $0700,x
        lda #$07
        sta $d828,x
        lda #$01
        sta $d940,x
        sta $da40,x
        lda #$01
        sta $daa8,x
        sta $db00,x
        inx
        bne loc_0e74
        ldx #$27

loc_0ea3:
        lda #$01
        sta $d800,x
        lda #$20
        sta $0400,x
        lda #$00
        sta $d918,x
        dex
        bpl loc_0ea3
        rts

loc_0eb6:
        sta $c1
        lda #$a9
        ldx #$09
        sta $a3
        stx $a4
        lda #$7e
        sta $a5
        lda #$0b
        sta $d011
        lda #$18
        sta $d018
        sei
        ldx #$2c
        lda #$0f
        jsr sub_0ef2
        ldx #$00
        stx $0286
        jsr $e566
        lda #$00
        ldx #$c0
        sta $fa
        stx $fb
        jsr sub_c938
        cli

loc_0eea:
        lda $93
        bne loc_0eea
        inc $d020
        rts
// Referenced by: jsr from $0ed3

sub_0ef2:
        stx $f7
        sta $f8

loc_0ef6:
        ldy #$00
        lda ($f7),y
        beq loc_0f2b
        pha
        lda $d6
        cmp #$0a
        bcc loc_0f1f
        pla
        cmp #$20
        bne loc_0f0d
        lda #$8d
        jmp loc_0f14

loc_0f0d:
        cmp #$40
        bcc loc_0f20
        clc