← #359 Top 1024 #361 →
#360

Vision [VSN] 03

Vision [VSN]

4.146 lines of code

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

History

Released
13 August 1989
Group
Vision [VSN] — CSDb group ID #510
Code
The Scientific Man
Music
Drax (Thomas Mogensen) — "Influenza"
Music
HPH (Hein Holt) — "Marina Marina!"

This crack intro from Vision is catalogued on CSDb as release #150216 under the title "Simplistic Intro V.3," dated 13 August 1989. The code was written by The Scientific Man, and the music credits include Drax (Thomas Mogensen) with "Influenza" and "Piano Rap," as well as HPH (Hein Holt) with "Marina Marina!" — indicating the intro features multiple selectable tunes. Doc Snyder's page confirms the code by The Scientific Man, artwork by HPH, and music by Drax for Crack Intro #03, mapping it to CSDb release #150216. The scrolltext describes a crack of "Blast Ball" — trained with a highscore saver installed by Curlin of Vision — and lists the group's members at the time as Curlin, Groepaz, Luxor, Plug 1, TMM, TDS, Came, and Jive. The text mentions that the group's cracker had departed to join DDT, prompting Curlin to resume cracking duties, and announces an upcoming mega demo.

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

vsn-03.asm 4.146 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:59
// 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:  $19d7 (6615)
// IRQ handler:  $1acd (nmi_1acd)
// IRQ handler:  $1b3e (irq_1b3e)
// IRQ handler:  $1bb8 (irq_1bb8)
//
// Code: 3678 bytes, Data: 59810 bytes
// Labels: 444, Subroutines: 24
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0820 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fecf

sub_0814:
        .byte $27,$16                               // rla $16 // ILLEGAL
        sta $95,x
        cpy #$40
        ora #$27
        .byte $27,$17                               // rla $17 // ILLEGAL
        .byte $97,$97                               // sax $97,y // ILLEGAL
        brk

// --- Region $0e01-$0e14 ---
.pc = $0e01 "sub_0e01"
// Referenced by: jsr from $fd18

sub_0e01:
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0e07:
        .byte $ff,$0b,$0b,$07,$27,$27,$97,$97       // ....''..
        .byte $ff,$0b,$0b                           // isc $0b0b,x // ILLEGAL
        .byte $07,$27                               // slo $27 // ILLEGAL

dat_0e14:
        .byte $a7                                   // .

// --- Region $0f14-$0f18 ---
.pc = $0f14 "sub_0f14"
// Referenced by: jsr from $fec7

sub_0f14:
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0f17:
        .byte $ff,$ff                               // ..

// --- Region $0f23-$0f2a ---
.pc = $0f23 "sub_0f23"
// Referenced by: jsr from $fda5

sub_0f23:
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$3f                           // isc $3fff,x // ILLEGAL

dat_0f29:
        .byte $7f,$ff                               // ..

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1a3f, $ed90

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $1c04, $ef55

sub_1003:
        jmp loc_1021

txt_1006:
        .text " "

// --- Region $1020-$1080 ---
.pc = $1020 "sub_1020"
// Referenced by: jsr from $fcfa

sub_1020:
        nop

loc_1021:
        ldx #$00
        dec $1090
        bmi loc_1034
        jsr sub_1226
        jsr sub_1225
        jmp sub_1225

dat_1031:
        .byte $ff,$ff,$ff                           // ...

loc_1034:
        lda #$02
        sta $1090
        jsr sub_1040
        jsr sub_103f
// Referenced by: jsr from $103c

sub_103f:
        inx
// Referenced by: jsr from $1039

sub_1040:
        dec $108a,x
        bmi loc_1091
        jmp sub_1226

loc_1048:
        lda #$1f
        sta $d418
        lda #$f0
        sta $d417
        and #$0f
        sta smc_1262                                // SMC: modifies $1262
        ldx #$0f

loc_1059:
        sta dat_1081,x
        dex
        bpl loc_1059
        ldx #$02

loc_1061:
        lda $14b9,x
        sta $fa
        lda $14bc,x
        sta $fb
        ldy #$00
        lda ($fa),y
        sta $108d,x
        iny
        lda ($fa),y
        sta $10e6,x
        and #$0f
        sta $10e9,x
        dex
        bpl loc_1061