← #557 Top 1024 #559 →
#558

Contex [CTX] 03

Contex [CTX]

3.453 lines of code

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

History

Released
c. 1989
Group
Contex — Finland, founded 26 November 1988

A Contex intro that was later NTSC-fixed by Master Kracker of INC, as noted in intros.c64.org comments — a detail revealing the intro's continued circulation in the North American scene where NTSC compatibility was essential. Contex was a prolific Finnish cracking and demo group founded on 26 November 1988 by Flex and Apollyon, operating under taglines including "That's the way we like it" and "The Best You Can Get." The group drew members from Finland, Denmark, Norway, and Germany, and according to co-founder Flex, released 213 titles during 1989 alone — an extraordinary output that places them among the most productive groups of that year. Contex dissolved on 14 May 1990, with the cracking division forming Extasy while the demo section continued as Artline Designs. This is the second ranked Contex entry alongside #558 CTX-01, the musically rich intro featuring six SID tunes. Danish Piracy Society merged into Contex in January 1989, expanding its multinational roster.

Sources: CSDb Group · intros.c64.org

ctx-03.asm 3.453 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:14
// 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:  $0f00 (3840)
// IRQ handler:  $0e1c (irq_0e1c)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 3852 bytes, Data: 59636 bytes
// Labels: 367, Subroutines: 18
//
// Cross-references: all OK
// ============================================


// --- Region $0c00-$0c46 ---
.pc = $0c00 "sub_0c00"
// Referenced by: jsr from $0e4e

sub_0c00:
        lda smc_0e78
        sec
        sbc #$02
        bcc loc_0c0c
        sta smc_0e78                                // SMC: modifies $0e78
        rts

loc_0c0c:
        and #$07
        sta smc_0e78                                // SMC: modifies $0e78
        ldx #$00

loc_0c13:
        lda $0591,x
        sta $0590,x
        lda $05b9,x
        sta $05b8,x
        inx
        cpx #$27
        bne loc_0c13
        ldy #$00
        lda ($03),y
        cmp #$00
        bne loc_0c37
// Referenced by: jsr from $0f53, $ee6d

sub_0c2c:
        lda #$80
        ldy #$1d
        sta $03
        sty $04
        jmp loc_0c46

loc_0c37:
        sta $05b7
        clc
        adc #$40
        sta $05df
        inc $03
        bne loc_0c46
        inc $04

loc_0c46:
        rts

// --- Region $0c50-$0cf5 ---
.pc = $0c50 "sub_0c50"
// Referenced by: jsr from $0cbf, $ec47

sub_0c50:
        ldx $0c4f
        lda $1a50,x
        inx
        cpx #$78
        bne loc_0c5d
        ldx #$00

loc_0c5d:
        stx $0c4f
        pha
        eor #$07
        and #$07
        ora #$10
        sta smc_0e91                                // SMC: modifies $0e91
        pla
        lsr
        lsr
        lsr
        tax
        ldy #$00

loc_0c71:
        lda $1b06,x
        sta $0608,y
        lda $1b56,x
        sta $0630,y
        lda $1ba6,x
        sta $0658,y
        lda $1bf6,x
        sta $0680,y
        lda $1c46,x
        sta $06a8,y
        lda $1c96,x
        sta $06d0,y
        inx
        iny
        cpy #$27
        bne loc_0c71
        rts

dat_0c9c:
        .byte $bc,$bc,$bc,$bc                       // ....

loc_0ca0:
        lda #$e7

loc_0ca2:
        cmp $d012
        bne loc_0ca2
        jsr sub_1cf0
.label smc_0cab = * + 1
        lda #$00                                    // !SMC: modified by $1add
        sta $d021
.label smc_0cb0 = * + 1
        lda #$05                                    // !SMC: modified by $2268, $226e
        sta $d016
        lda #$13
        sta $d018
        bit $d020
.label smc_0cbd = * + 1
.label smc_0cbe = * + 2
        jsr sub_1a00                                // !SMC: modified by $2318, $232c, $ff91, $ffa5
        jsr sub_0c50
        jsr sub_2260
        jsr sub_0cd4
        lsr $d019
        lda #$1c
        sta $0314
        jmp loc_febc

dat_0cd3:
        .byte $0f                                   // .
// Referenced by: jsr from $0cc5, $ec4d