#389

Vision+Genetix 02

Vision+Genetix

1.940 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
December 1992
Code
Ray
Music
Zeus (Soren Bovbjerg) / Red (Jeroen Kimmel) / Shogun (Jimmy Nielsen) / Laxity (Thomas E. Petersen) — multiple tunes
Graphics
Wave
Group
Vision + Genetix — United Kingdom

A joint production between Vision and Genetix — two British groups collaborating on a crack intro released in December 1992. Ray coded the intro while Wave contributed the graphics. The soundtrack is exceptionally generous, featuring four ripped SID tunes from four different composers: Zeus's "Acid," Red's "Red Mokiz," Shogun's "Wet Cat," and Laxity's "Wow Intro" — all preserved in the HVSC. This multi-tune approach was a hallmark of later-era intros that offered selectable music. Genetix was a UK-based group; their CSDb entry lists no founding date. The cooperation between Vision and Genetix reflects the common practice of joint releases, where groups pooled talent for higher-quality output. Laxity (Thomas E. Petersen) was one of the most prolific SID composers in the scene, and his tunes appeared in intros from dozens of different groups. The four-musician, two-artist lineup makes this one of the more richly credited intros in the lower rankings.

Sources: CSDb

vsn_gtx-02.asm 1.940 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: $2dff  (9728 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2900 (10496)
// IRQ handler:  $296f (nmi_296f)
// IRQ handler:  $29fa (irq_29fa)
// IRQ handler:  $2972 (irq_2972)
//
// Code: 1691 bytes, Data: 8037 bytes
// Labels: 199, Subroutines: 15
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $291e

sub_1000:
        jmp loc_1048
// Referenced by: jsr from $299a

sub_1003:
        jmp loc_1021

txt_1006:
        .text " "

// --- Region $1021-$1080 ---
.pc = $1021 "loc_1021"

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
        rts

// --- Region $1091-$10c6 ---
.pc = $1091 "loc_1091"

loc_1091:
        ldy $108d,x
        cpy #$fe
        bne loc_10a1
// Referenced by: jsr from $10c0

sub_1098:
        lda $1084,x
        and #$fe
        sta $1084,x
        rts

loc_10a1:
        lda $1927,y
        sta $fa
        lda $1914,y
        sta $fb
        ldy dat_1081,x
        lda ($fa),y
        bmi loc_10d2
        cmp #$60
        bcc loc_10f9

loc_10b6:
        and #$1f
        sta $108a,x
        lda #$fe
        sta dat_1031,x
        jsr sub_1098

loc_10c3:
        jmp loc_1187

dat_10c6:
        .byte $00                                   // .

// --- Region $10d2-$10dd ---
.pc = $10d2 "loc_10d2"

loc_10d2:
        cmp #$a0
        bcc loc_10ec
        and #$1f
        sta $108a,x
        bcs loc_10c3
        brk

// --- Region $10ec-$1141 ---
.pc = $10ec "loc_10ec"