#313

Vision [VSN] 12

Vision [VSN]

1.270 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Released
10 January 1992
Code
Houbba
Music
JCH (Jens-Christian Huus), Shogun (Jimmy Nielsen), O'Neill (Morten Kristensen)
Group
Vision — Netherlands, founded 1 October 1988

A three-SID jukebox intro coded by Houbba, featuring music from JCH ("Scanliner"), Shogun ("Vision Intro 3"), and O'Neill ("Plutonium") — all preserved in the HVSC. This is the twelfth numbered intro from Vision, a Dutch group founded on 1 October 1988. The intro holds a CSDb rating of 9.2, indicating strong community appreciation. Released on 10 January 1992, it arrived during the transitional period when many groups were migrating to Amiga, yet Vision continued investing in polished C64 productions. JCH — Jens-Christian Huus — was one of the most acclaimed SID composers of the era, and his presence alongside Shogun and O'Neill gives this intro a formidable musical roster. Doc Snyder's page documents Vision's broader output, including joint releases with Genetix and intros spanning from the late 1980s into the 2020s. The group's longevity is remarkable — member Hein was still producing intros as recently as 2024.

Sources: CSDb · docsnyderspage

vsn-12.asm 1.270 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:37:00
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $179f  (4000 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0811 (2065)
//
// Code: 1567 bytes, Data: 2433 bytes
// Labels: 140, Subroutines: 14
//
// Verification: 2 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0811-$0a24 ---
.pc = $0811 "main_0811"

main_0811:
        lda #$00
        sta $d020
        sta $d021
        sta $0286
        jsr $e544
        lda #$8a
        dex
        jmp loc_082a

dat_0825:
        .byte $f0,$03,$4c,$16,$0b                   // ..L..

loc_082a:
        tay
        sta $0176,y
        stx $d015
        lda #$03

loc_0833:
        sta $0400,x
        sta $0508,x
        inx
        bne loc_0833

loc_083c:
        ldy #$00

loc_083e:
        lda $0c75,y
.label smc_0842 = * + 1
        sta $0410,y                                 // !SMC: modified by $085d
        lda $0c88,y
.label smc_0848 = * + 1
        sta $d810,y                                 // !SMC: modified by $0860
        iny
        cpy #$13
        bne loc_083e
        lda smc_0842
        clc
        adc #$27
        bcc loc_085d
        inc $0843
        inc $0849

loc_085d:
        sta smc_0842                                // SMC: modifies $0842
        sta smc_0848                                // SMC: modifies $0848
        inx
        cpx #$0d
        bne loc_083c
        ldx #$00
        txa

loc_086b:
        sta $0430,x
        sta $05c7,x
        inx
        cpx #$10
        bne loc_086b
        ldy #$00

loc_0878:
        lda $0c51,y
        tax
        and #$f0
        jsr sub_0b2e
        jsr sub_0b33
        txa
        and #$0f
        sta smc_0892                                // SMC: modifies $0892
        ldx #$00
        txa

loc_088d:
.label smc_088e = * + 1
        sta $04a4,x                                 // !SMC: modified by $0b3c
        inx
.label smc_0892 = * + 1
        cpx #$e0                                    // !SMC: modified by $0887
        bne loc_088d
        txa
.label smc_0897 = * + 1
        jsr sub_0b33                                // !SMC: modified by $0940
        iny
        cpy #$24
        bne loc_0878
        lda $041d
        sta $04e0
        ldx #$04
        stx $051e
        stx $0544
        inx
        stx $042f
        stx $05c6
        inx
        stx $0440
        stx $05d7
        inx
        stx $051c
        ldy #$00

loc_08c0:
        txa
        sta $0c51,y
        sta $0c71,y
        and #$03
        sta $0c61,y
        iny
.label smc_08ce = * + 1
        cpy #$04                                    // !SMC: modified by $08d7
        bne loc_08c0
        lda smc_08ce
        clc
        adc #$04
        sta smc_08ce                                // SMC: modifies $08ce
        dex
        cpx #$03
        bne loc_08c0
        ldx #$00
        ldy #$07

loc_08e3:
        lda #$00
        sta $0800,x