← #941 Top 1024 #943 →
#942

Vision+Genetix 04

Vision+Genetix

2.070 lines of code

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

History

Released
January 1993
Code
DMC
Graphics
Clairvoyant
Music
Zeus (Søren Bovbjerg) — "IntroJam 3", "Acid"
Group
Vision+Genetix — United Kingdom

CSDb catalogues this as "Genetix & Vision Intro 04," a January 1993 production from the cooperative alliance between the British groups Vision and Genetix. DMC coded the intro, Clairvoyant provided the graphics, and Zeus (Søren Bovbjerg) contributed two SID tunes — "IntroJam 3" and "Acid" — both preserved in the HVSC. The dual-music setup allowed users to switch between tracks, a feature that became increasingly common in early-1990s intros. Zeus was a prolific Danish SID composer whose "IntroJam" series was specifically composed for crack intros. The Vision+Genetix collaboration represents the cooperative spirit of the British C64 scene, where groups frequently merged or formed alliances. Their other ranked intro in this collection is #389 vsn_gtx-02. CSDb lists the release under the Genetix group ID, with the group based in the United Kingdom.

Sources: CSDb

vsn_gtx-04.asm 2.070 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: $3fff  (14336 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2a00 (10752)
// IRQ handler:  $2b54 (irq_2b54)
//
// Code: 1567 bytes, Data: 12769 bytes
// Labels: 202, Subroutines: 16
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1003 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2a67

sub_1000:
        jmp loc_1048

dat_1003:
        .byte $4c                                   // L

// --- Region $101e-$1080 ---
.pc = $101e "loc_101e"

loc_101e:
        and $ea31,y
        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 $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 $1836,y
        sta $fa
        lda $1826,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-$10df ---
.pc = $10d2 "loc_10d2"

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

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

loc_10ec:
        asl
        asl