← #631 Top 1024 #633 →
#632

Channel 42 01

Channel 42

883 lines of code

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

History

Released
1989
Music
Griff (Peter Varga)
Group
Channel 42 — Denmark, founded 1987

Scorpio coded this Channel 42 intro, accompanied by a SID tune from Griff (Peter Varga). CSDb catalogues it as a 1989 release under the label "Channel 42 Intro," with Mr.Wax credited for scrolltext and SKC listed for code on a related version. Channel 42 was founded in Denmark in 1987 by Fic and ICE as a demo group, later expanding into cracking. The group's name came from the apartment number where several members lived. Their roster included notable sceners such as JCH (Jens-Christian Huus) and Zoolook, who confirmed his involvement through an intros.c64.org comment. Channel 42 dissolved in August 1989 after a prolific burst of activity — releasing dozens of cracks in roughly six months. Griff's composition for this intro is preserved in the HVSC. The group's brief but intense period of activity reflects the fast-paced Danish scene of the late 1980s, which also produced groups like #25 The Dominators.

Sources: CSDb · CSDb Group · intros.c64.org

c42-01.asm 883 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: $0700  End: $d011  (51474 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $082a (via BASIC SYS 2090)
// Entry point:  $1818 (6168)
// IRQ handler:  $0bd8 (irq_0bd8)
//
// Code: 735 bytes, Data: 50739 bytes
// Labels: 94, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0981-$0993 ---
.pc = $0981 "loc_0981"

loc_0981:
        lda #$ff
        sta chr_0800
        lda #$e6
        sta $0801
        lda #$d9
        sta $0802
        jmp loc_0b14

chr_0993:
        // === Charset data (1 bytes, $0993-$0993) ===
        .byte $00                                   // char 0 (partial)

// --- Region $0b14-$0daa ---
.pc = $0b14 "loc_0b14"

loc_0b14:
        jsr sub_0b2d
        jsr sub_0bb9

loc_0b1a:
        lda $dc01
        cmp #$ef
        bne loc_0b1a
        sei
        jsr $ff81
        jsr $fd84
        jmp loc_0d91

chr_0b2b:
        // === Charset data (2 bytes, $0b2b-$0b2c) ===
        .byte $58,$60                               // char 0 (partial)

// Referenced by: jsr from $0b14
sub_0b2d: {
        jsr sub_0d6b
        lda #$00
        nop
        nop
        nop
        ldx #$00
loop1:
        lda #$01
        sta $da80,x
        lda #$05
        sta $0400,x
        sta $0468,x
        lda #$0e
        sta $d800,x
        sta $d840,x
        inx
        bne loop1
loop2:
        clc
        lda $08a0,x
        sta $0406,x
        lda $08c0,x
        sta $042e,x
        lda $08e0,x
        sta $0456,x
        lda $0900,x
        sta $047e,x
        lda $0920,x
        sta $04a6,x
        lda $0940,x
        sta $04ce,x
        inx
        cpx #$20
        bne loop2
        lda #$ff
        sta $d015
        sta $d01d
        sta $d017
        ldx #$00
loop3:
        txa
        clc
        adc #$37
        sta $07f8,x
        inx
        cpx #$08
        bne loop3
        ldx #$00
loop4:
        lda txt_09f6,x
        and #$3f
        sta $0630,x
        lda #$00
        sta $da30,x
        inx
        cpx #$28
        bne loop4
        ldx #$00
loop5:
        lda $0a1e,x
        sta $0540,x
        lda #$00
        sta $d940,x
        inx
        cpx #$f0
        bne loop5
        rts
}
// Referenced by: jsr from $0b17

sub_0bb9:
        sei
        lda #$01
        sta $d01a
        sta $dc0d
        ldx #$0b
        ldy #$d8
        stx $0315
        sty $0314
        lda #$32
        sta $d012
        lda #$1b
        sta $d011
        cli
        rts

irq_0bd8:
        lda #$12
        sta $d018
        lda #$18
        sta $d016
        ldy #$00