#982

Mirage 04

Mirage

669 lines of code

RasterbarsRSTR

History

Group
Mirage — United States, founded 1988

The fourth crack intro from Mirage, an American cracking, importing, and fixing group founded in 1988 by Sonny, Diver One, and Double D. CSDb documents the group under ID 1255 with 282 releases and a roster of approximately 45 members. Mirage operated an extensive network of 23 affiliated bulletin board systems and partnered with A Touch of Class from June 1991. The group dissolved in February 1992 after Master Kracker departed to rebuild No Frills International. No individual credits for code, music, or graphics have been confirmed for this particular production. Other Mirage entries in this collection include #293 Mirage-01, #366 Mirage-02, and #424 Mirage-05. The group described itself as "America's group" — a fitting label given its large US-based BBS network and its role in distributing European imports across North America.

Sources: CSDb Group · intros.c64.org

mirage-04.asm 669 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:56
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2000  (6145 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1000 (4096)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $10b6 (irq_10b6)
//
// Code: 402 bytes, Data: 5743 bytes
// Labels: 75, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$10fa ---
.pc = $1000 "main_1000"

main_1000:
        lda #$01
        sta $0286
        jsr $e544
        sei
        jsr sub_1340
        sei
        lda #$1c
        sta $59
        lda #$00
        sta $58
        lda #$13
        sta $d018
        jsr sub_109b

loc_101d:
        lda $dc01
        cmp #$ef
        bne loc_101d
        sei
        lda #$00
        sta $dc0d
        lda #$ea
        sta $0315
        lda #$31
        sta $0314
        lda #$f0
        jsr sub_1090
        nop
        nop
        lda #$06
        sta $d021
        lda #$0e
        sta $d020
        ldx #$00

loc_1047:
        lda loc_1055,x
        sta $0400,x
        inx
        cpx #$44
        bne loc_1047
        jmp $0400

loc_1055:
        sei
        lda #$34
        sta $01
        lda #$01
        sta $f7
        sta $f9
        lda #$20
        sta $f8
        lda #$08
        sta $fa

loc_1068:
        ldy #$00
        lda ($f7),y
        sta ($f9),y
        inc $f7
        inc $f9
        bne loc_1068
        inc $fa
        inc $f8
        lda $f8
        cmp #$d0
        bne loc_1068
        lda #$37
        sta $01
        cli
        lda #$00
        sta chr_0800
        sta $c8
        jmp $fce2

dat_108d:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $1036

sub_1090:
        sta $d01a
        cli
        jsr $ff5b
        rts

dat_1098:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $101a

sub_109b:
        lda #$00
        sta $1fff
        sei
        inc $d01a
        inc $dc0d
        inc $d011
        lda #$10
        sta $0315
        lda #$b6
        sta $0314
        cli
        rts

irq_10b6:
        ldx $a4
        stx $d016
        ldx #$73

loc_10bd:
        cpx $d012
        bne loc_10bd
        ldx #$0a

loc_10c4:
        dex
        bne loc_10c4
        ldx #$00

loc_10c9:
        lda $1100,x
        sta $d020
        sta $d021
        ldy $1120,x

loc_10d5: