← #86 Top 1024 #88 →
#87

Channel 42 02

Channel 42

2.039 lines of code

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

History

Released
April 1989
Code
Scorpio
Music
ICE, Johannes Bjerregaard
Group
Channel 42 — Denmark, founded 1987

A Danish intro combining two musical contributions — Scorpio co-composed "Channel 42 Intro" with ICE, while Johannes Bjerregaard added "Dummy II." Scorpio also coded, making him a dual-role contributor handling both programming and music. Bjerregaard was one of the most celebrated Danish SID composers, his work preserved extensively in the HVSC. Channel 42 was founded in Denmark in 1987, part of the strong Scandinavian cracking tradition alongside groups like #25 The Dominators and The Papillons. Released in April 1989, this arrived during Denmark's peak period of C64 scene activity. The dual-composer approach mirrors the jukebox trend popular among contemporary British and Dutch groups, suggesting Danish crackers followed the same evolution toward music-rich intros.

Sources: CSDb

c42-02.asm 2.039 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:17
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $d011  (51474 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $082a (via BASIC SYS 2090)
// Entry point:  $2400 (9216)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1193 (irq_1193)
//
// Code: 2439 bytes, Data: 49035 bytes
// Labels: 200, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$14ad ---
.pc = $1000 "loc_1000"

loc_1000:
        jsr sub_1034
        jsr sub_1179

loc_1006:
        lda $c5
        cmp #$3c
        beq loc_101f
        lda $2530
        cmp #$00
        beq loc_1006
        clc
        jsr sub_143f
        lda #$00
        sta $2530
        jmp loc_1006

loc_101f:
        sei
        jsr $ff5b
        jsr $fda3
        ldx #$ea
        ldy #$31
        stx $0315
        sty $0314
        cli
        jmp loc_1830
// Referenced by: jsr from $1000

sub_1034:
        lda #$00
        jsr sub_1900
        ldx #$25
        ldy #$50
        stx $c3
        sty $c2
        lda #$00
        sta $d020
        sta $d021
        sta $d030
        lda #$01
        sta $0286
        jsr $e544
        ldx #$00

loc_1056:
        lda #$80
        sta $0450,x
        sta $0550,x
        sta $0650,x
        sta $0700,x
        inx
        bne loc_1056
        ldx #$00

loc_1069:
        lda #$01
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae7,x
        lda #$80
        sta $03a0,x
        lda #$0a
        sta $d7a0,x
        inx
        bne loc_1069

loc_1084:
        lda #$0a
        sta $db20,x
        lda #$80
        sta $0720,x
        inx
        cpx #$c8
        bne loc_1084
        ldx #$00

loc_1095:
        clc
        txa
        sta $0404,x
        sta $074c,x
        adc #$20
        sta $042c,x
        sta $0774,x
        adc #$20
        sta $0454,x
        sta $079c,x
        adc #$20
        sta $047c,x
        sta $07c4,x
        inx
        cpx #$20
        bne loc_1095
        lda #$0a
        sta $d022
        lda #$00
        sta $d023
        sei
        lda #$33
        sta $01
        lda #$d8
        sta $b1
        lda #$0c
        sta $b3
        lda #$00
        sta $b0
        sta $b2

loc_10d7:
        ldy #$00
        lda ($b0),y
        sta ($b2),y
        iny
        sta ($b2),y
        inc $b2
        inc $b2
        bne loc_10e8

dat_10e6:
        .byte $e6,$b3                               // ..

loc_10e8:
        inc $b0
        bne loc_10d7