#607

Starion 01

Starion

3.696 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
1988
Group
Starion [STR] — Denmark, CSDb group ID #580
Code
Microtop
Graphics
Mr. 3D
Music
Laxity (Thomas E. Petersen) — "Something"

This crack intro from Starion — a Danish group founded in December 1987 with the motto "We try harder!" — dates to 1988 and is catalogued on CSDb as release #199350 under the title "Starion Intro." The code was written by Microtop, the graphics by Mr. 3D, and the music by Laxity (Thomas E. Petersen), using his SID composition "Something" from the HVSC. Doc Snyder's page confirms the code by Microtop and music by Laxity for Crack Intro #01 and maps it to CSDb release #199350. The scrolltext reveals the intro accompanied a crack of "1943" by Scorpio of Starion, dated 17 September 1988, and notes that the intro itself was made by Microtop. The text also advertises the group's services for purchasing custom intros. This is the only documented Starion intro on Doc Snyder's page, reflecting the group's relatively brief but notable presence in the Danish cracking scene.

Sources: CSDb Release · Doc Snyder · intros.c64.org

starion-01.asm 3.696 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $dbe7  (54247 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $3c00 (15360)
// IRQ handler:  $3e3b (irq_3e3b)
// IRQ handler:  $ea86 (nmi_ea86)
// IRQ handler:  $3ea1 (irq_3ea1)
// IRQ handler:  $3ed3 (irq_3ed3)
// IRQ handler:  $3f0d (irq_3f0d)
//
// Code: 3042 bytes, Data: 51205 bytes
// Labels: 428, Subroutines: 8
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0bae-$0bef ---
.pc = $0bae "sub_0bae"
// Referenced by: jsr from $3e78, $3e98, $3fd6

sub_0bae:
        jmp loc_0d18

dat_0bb1:
        .byte $4c,$09,$0d                           // L..
// Referenced by: jsr from $3c9d

sub_0bb4:
        jmp loc_0bba

dat_0bb7:
        .byte $00,$ae,$0b                           // ...

loc_0bba:
        ldy #$00
        sty smc_0d19                                // SMC: modifies $0d19
        lda #$00
        sta dat_0bef
        lda #$03
        sta smc_0d37                                // SMC: modifies $0d37
        lda #$fc
        sta smc_0d98                                // SMC: modifies $0d98
        lda #$f1
        sta smc_12f4                                // SMC: modifies $12f4
        lda #$0f
        sta smc_12ed                                // SMC: modifies $12ed
        tya
        ldx #$8d

loc_0bdb:
        sta $0f,x
        dex
        bne loc_0bdb
        sta dat_0bb7
        ldx #$14

loc_0be5:
        sta $d400,x
        dex
        bpl loc_0be5
        stx smc_0d19                                // SMC: modifies $0d19
        rts

dat_0bef:
        .byte $00                                   // .

// --- Region $0d09-$12f8 ---
.pc = $0d09 "loc_0d09"

loc_0d09:
        lda #$00
        sta $d404
        sta $d40b
        sta $d412
        sta smc_0d19                                // SMC: modifies $0d19
        rts

loc_0d18:
.label smc_0d19 = * + 1
        lda #$ff                                    // !SMC: modified by $0bbc, $0beb, $0d14
        bmi loc_0d1d

scr_0d1c:
        // === Screen RAM (1 bytes, $0d1c-$0d1c) ===
        .byte $60                                   // scrcode: .

loc_0d1d:
        lda dat_0bb7
        beq loc_0d30
        dec $79
        bpl loc_0d30
        sta $79
        lda smc_12ed
        beq loc_0d09
        dec smc_12ed

loc_0d30:
        ldx #$02
        dec $75
        bpl loc_0d3c
.label smc_0d37 = * + 1
        lda #$03                                    // !SMC: modified by $0bc6
        sta $75
        bne loc_0d46

loc_0d3c:
        dec dat_0bef
        bpl loc_0d46
        lda #$02
        sta dat_0bef

loc_0d46:
        stx $12
        lda #$02
        cmp dat_0bef
        beq loc_0d52
        jmp loc_0f34

loc_0d52:
        dec $94,x
        bmi loc_0d59
        jmp loc_0f0f

loc_0d59:
        txa
        asl
        tax
        lda dat_12f9,x
        clc
        adc $0bb8
        sta smc_0d74                                // SMC: modifies $0d74
        lda $12fa,x
        adc $0bb9
        sta smc_0d75                                // SMC: modifies $0d75
        ldx $12

loc_0d71:
        ldy $7f,x
.label smc_0d74 = * + 1
.label smc_0d75 = * + 2