← #836 Top 1024 #838 →
#837

Mr. L+Dr. Bakterius 03

Mr. L+Dr. Bakterius

1.415 lines of code

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

History

Group
Mr. L + Dr. Bakterius

The third intro from the partnership of Mr. L (CSDb scener ID 11614) and Dr. Bakterius (ID 11615), a two-person cracking team active from 1984 through the mid-1990s. Both sceners are documented on CSDb as coders and crackers who collaborated on numerous game cracks and intro productions. Their earlier intros are dated June 1985 and 28 September 1985 on CSDb, suggesting this third entry follows from that period. Mr. L's solo output includes tools like "Kernal Loader" and "Turbocopy," while Dr. Bakterius cracked titles including Elite and Mercenary. The partnership also involved collaborations with Commo Bam, Pegasus, and China-Soft. No country of origin is recorded on CSDb for either scener, and the group lacks a formal CSDb group page — typical of informal two-person partnerships that predated the structured group hierarchies of the later 1980s. Their combined output spans over 90 releases across the C64 platform.

Sources: CSDb (Mr. L) · CSDb (Dr. Bakterius) · intros.c64.org

mrl_drb-03.asm 1.415 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:57
// 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:  $a8a5 (43173)
// IRQ handler:  $a8f3 (irq_a8f3)
//
// Code: 2025 bytes, Data: 61719 bytes
// Labels: 123, Subroutines: 8
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0810-$0862 ---
.pc = $0810 "loc_0810"

loc_0810:
        sei
        lda #$34
        sta $01
        ldx #$05

loc_0817:
        lda dat_0842,x
        sta.abs $002d,x
        dex
        bpl loc_0817
        txs
        ldy #$00

loc_0823:
        dec $32
        dec $082c

loc_0828:
        lda ($31),y
        sta dat_fd00,y
        iny
        bne loc_0828
        lda $32
        cmp #$08
        bne loc_0823

loc_0836:
        lda loc_0848,y
        sta $0100,y
        iny
        bne loc_0836
        jmp $0100

dat_0842:
        .byte $a5,$a8,$8e,$fd,$ab,$0b               // ......

loc_0848:
        lda ($2f),y
        rol
        rol
        rol
        rol
        and #$07
        tax
        lda $011a,x
        sta $0118
        lda ($2f),y
        and #$1f
        tax
        jsr $0122
        jmp $01ff

dat_0862:
        .byte $a4                                   // .

// --- Region $086f-$0922 ---
.pc = $086f "loc_086f"

loc_086f:
        bmi loc_08d1
        lda ($2f),y
        jsr $0122

loc_0876:
        sta ($2d),y
        inc $2d
        bne loc_087e
        inc $2e

loc_087e:
        dex
        bne loc_0876
        beq loc_0848
        lda #$00
        beq loc_0876
        lda #$ff
        bne loc_0876

loc_088b:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_0895
        inc $30

loc_0895:
        inc $2d
        bne loc_089b
        inc $2e

loc_089b:
        dex
        bne loc_088b
        beq loc_0848
        jsr $0171
        lda ($2f),y
        jsr $0122

loc_08a8:
        sta ($2d),y
        inc $2d
        bne loc_08b0
        inc $2e

loc_08b0:
        dex
        bne loc_08a8
        dec $39
        bpl loc_08a8
        bmi loc_0848
        stx $39
        lda ($2f),y
        tax
        jmp $0122

loc_08c1:
        jsr $0171

loc_08c4:
        lda ($2f),y
        sta ($2d),y
        inc $2f
        bne loc_08ce
        inc $30