← #865 Top 1024 #867 →
#866

Channel 42 03

Channel 42

2.136 lines of code

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

History

Released
1989
Group
Channel 42 — Denmark, founded 1987

A second ranked intro from Denmark's Channel 42, sharing the same group and era as #632 C42-01. No individual credits have been identified for this specific production, though the group's coding roster included Fic, Scorpio, Rooze, and Magic — any of whom may have authored it. Channel 42 was founded in 1987 by Fic and ICE, initially as a demo group before pivoting to cracking. The outfit dissolved in August 1989 after a concentrated period of releases. CSDb lists at least five distinct Channel 42 intros, suggesting the group frequently refreshed its crack intro designs during its short lifespan. Musician JCH (Jens-Christian Huus) — later famous for his JCH editor and work with Vibrants — was among the members, making Channel 42 part of the lineage of Denmark's most influential SID composers. The group evolved from the earlier FBI Crew, whose member Griff later contributed music to Chromance productions.

Sources: CSDb Group · intros.c64.org

c42-03.asm 2.136 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:13
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2dff  (9728 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $16e8 (5864)
// IRQ handler:  $1848 (irq_1848)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 2166 bytes, Data: 7562 bytes
// Labels: 210, Subroutines: 9
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1020
// Referenced by: jsr from $18e0

sub_1003:
        jmp loc_104b

dat_1006:
        .byte $0f                                   // .

// --- Region $1020-$105e ---
.pc = $1020 "loc_1020"

loc_1020:
        ldx #$02

loc_1022:
        lda $14fb,x
        sta $14f5,x
        lda $14fe,x
        sta $14f8,x
        dex
        bpl loc_1022
        lda #$04
        sta $155c
        ldy #$00
        tya

loc_1039:
        sta $d400,y
        sta $1511,y
        iny
        cpy #$1b
        bne loc_1039
        lda dat_1006
        sta $d418
        rts

loc_104b:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $155c
        bpl loc_105d
        lda #$04
        sta $155c

loc_105d:
        bne loc_1067

// --- Region $1067-$1453 ---
.pc = $1067 "loc_1067"

loc_1067:
        jmp loc_11c3

loc_106a:
        lda $1523,x
        sta $151a,x
        lda $14f5,x
        sta $fb
        lda $14f8,x
        sta $fc
        ldy #$00
        tya
        sta $151d,x
        lda ($fb),y
        bpl loc_109a
        and #$7f
        asl
        sta $1511,x
        inc $14f5,x
        inc $fb
        bne loc_1096
        inc $14f8,x
        inc $fc

loc_1096:
        ldy #$00
        lda ($fb),y

loc_109a:
        tay
        lda $160d,y
        sta $fb
        lda $1613,y
        sta $fc

loc_10a5:
        ldy $1514,x
        lda ($fb),y
        bmi loc_10e4
        beq loc_10da
        cmp #$7e
        beq loc_10d0
        sta $1526,x
        asl
        clc
        adc $1511,x
        tay
        lda dat_1453,y
        clc
        adc $100e,x
        sta $1541,x
        lda $1454,y
        adc #$00
        sta $1544,x
        jmp loc_10d3

loc_10d0:
        inc $151d,x

loc_10d3:
        lda #$ff
        sta $150b,x
        bne loc_110c

loc_10da:
        lda #$fe
        sta $150b,x
        inc $151d,x
        bne loc_110c