#675

Vision [VSN] 13

Vision [VSN]

2.591 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
February 1993
Code
Ray
Graphics
Wave
Music
EVS (Edwin van Santen) — "Enigma Intro Tune"
Group
Vision — Netherlands, founded 1 October 1988

Ray coded Vision's thirteenth numbered intro, released in February 1993, with graphics by Wave and music by EVS (Edwin van Santen) — a Dutch SID composer whose "Enigma Intro Tune" is preserved in the HVSC. EVS also contributed to Chromance's intro catalogue, reflecting the cross-pollination between Dutch and Hungarian scene groups. Ray served as Vision's primary cracker, appearing in other entries including #313 VSN-12. Vision was a Dutch group founded on 1 October 1988, carrying the tagline "Discover the difference." Doc Snyder's page documents the group's output from the late 1980s through a 2024 intro by Hein — remarkable longevity spanning over three decades. Wave handled graphics for Vision and also appeared in Chromance's credits, illustrating the fluid connections within the European scene. The group's greeting lists reference Dominators, Chromance, Fairlight, Legend, and Genesis Project.

Sources: CSDb · docsnyderspage

vsn-13.asm 2.591 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: $2c6a  (9323 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2c62 (11362)
// IRQ handler:  $28b9 (nmi_28b9)
// IRQ handler:  $28e1 (irq_28e1)
// IRQ handler:  $29b3 (irq_29b3)
//
// Code: 2926 bytes, Data: 6397 bytes
// Labels: 244, Subroutines: 19
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_10db
// Referenced by: jsr from $28ec

sub_1003:
        jmp loc_1147

dat_1006:
        .byte $4c                                   // L

// --- Region $10db-$18d2 ---
.pc = $10db "loc_10db"

loc_10db:
        lda $18d9,y
        tay
        lda $1bc3,y
        sta $1055
        lda $1bc4,y
        sta $1056
        lda #$0f
        sta $105c
        ldx #$00

loc_10f2:
        iny
        iny
        lda $1bc3,y
        sta $107b,x
        sta $107e,x
        lda $1bc4,y
        sta $1087,x
        lda $1bc5,y
        sta $108a,x
        lda #$01
        sta $1052
        sta $105d,x
        sta $1054
        lda #$00
        sta $1084,x
        sta $1081,x
        sta $108d,x
        sta $1069,x
        iny
        inx
        cpx #$03
        bne loc_10f2
        sta $10da
        sta $105a
        sta $105b
        sta $1053

loc_1134:
        sta $d404
        sta $d40b
        sta $d412
        sta $1057
// Referenced by: jsr from $1215, $122e

sub_1140:
        sta $1058
        sta $1059
        rts

loc_1147:
        lda $1052
        beq loc_1134
        cld
        ldx #$02
        lda $1058
        beq loc_1164
        ldy $105c
        beq loc_1164
        dec $1059
        bne loc_1164
        sta $1059
        dec $105c

loc_1164:
        dec $1054
        bpl loc_1171
        lda $1056
        sta $1054
        bne loc_1185

loc_1171:
        dec $1053
        bpl loc_1185
        lda $1055
        sta $1053
        dec $105d
        dec $105e
        dec $105f

loc_1185:
        stx $1050
        lda $105d,x
        beq loc_1190
        jmp loc_13ff

loc_1190:
        lda $1087,x
        sta $fe
        lda $108a,x
        sta $ff
        ldy $1084,x
        lda ($fe),y
        bpl loc_11e4
        cmp #$ff
        bne loc_11b0
        iny
        lda ($fe),y
        sta $1084,x
        tay
        lda ($fe),y
        bpl loc_11e4

loc_11b0:
        cmp #$c0
        bcs loc_11c4
        and #$3f
        adc $107b,x
        sta $107e,x
        inc $1084,x