← #653 Top 1024 #655 →
#654

International Network of Chaos [INC] 09

International Network of Chaos [INC]

2.589 lines of code

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

History

Released
26 February 1988
Code
The Butcher
Music
Rob Hubbard — "W.A.R. Preview"
Group
International Network of Chaos — United States, founded 1987

The Butcher coded this INC intro, released on 26 February 1988, with a ripped Rob Hubbard soundtrack — "W.A.R. Preview," preserved in the HVSC. Hubbard was the most frequently ripped composer in the C64 cracking scene, and his technically sophisticated SID work appeared in hundreds of crack intros across dozens of groups. International Network of Chaos was an American group founded in 1987, and this early 1988 release places it among their first productions. The Butcher is a different coder from The Mind Slayer, who handled other INC intros including #172 INC-01 and #157 INC-07. The American scene of this era operated somewhat independently from its European counterparts, with fewer direct connections to the dominant Scandinavian and German groups. The choice of Hubbard's music reflects the universal admiration for his work on both sides of the Atlantic.

Sources: CSDb

inc-09.asm 2.589 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:51
// 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:  $13b6 (5046)
// IRQ handler:  $148f (irq_148f)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 3438 bytes, Data: 60050 bytes
// Labels: 275, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0c17 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $ff8c

sub_0814:
        brk

dat_0815:
        .byte $00,$00,$00                           // ...
// Referenced by: jsr from $1612

sub_0818:
        lda #$0f
        sta $d418
        bit $0d23
        bmi loc_084c
        bvc loc_0864
        ldx $0d21

loc_0827:
        lda #$00
        ldy $0cd7,x
        sta $d404,y
        sta $0cdb,x
        sta $0cde,x
        sta $0ce1,x
        sta $0ce7,x
        sta $d406,y
        lda #$1b
        sta tbl_hi_0ced,x
        dex
        bpl loc_0827
        sta $0d23
        jmp loc_0c0c

loc_084c:
        bvc loc_0861
        lda #$00
        ldx $0d21

loc_0853:
        ldy $0cd7,x
        sta $d404,y
        dex
        bpl loc_0853
        lda #$80
        sta $0d23

loc_0861:
        jmp loc_0c0c

loc_0864:
        ldx $0d21
        dec $0d20
        bpl loc_0874
        lda #$08
        sta $0d20
        jmp loc_087f

loc_0874:
        dec $0d06
        bpl loc_087f
        lda $0d1f
        sta $0d06

loc_087f:
        lda $0cd7,x
        sta $0cda
        tay
        lda $0d20
        beq loc_08a5
        lda $0d06
        cmp $0d1f
        bne loc_08a5
        lda $0f12,x
        sta $fb
        lda $0f15,x
        sta $fc
        dec $0ce1,x
        bmi loc_08a8
        jmp loc_09a1

loc_08a5:
        jmp loc_09b5

loc_08a8:
        ldy $0cdb,x
        lda ($fb),y
        cmp #$ff
        beq loc_08b8
        cmp #$fe
        bne loc_08c6
        jmp loc_0c0c

loc_08b8:
        lda #$00
        sta $0ce1,x
        sta $0cdb,x
        sta $0cde,x
        jmp loc_08a8

loc_08c6:
        tay
        lda txt_0f1e,y
        sta $fd
        lda $0f40,y
        sta $fe
        lda #$00
        sta $0d2d,x
        sta $0d43,x
        ldy $0cde,x
        lda #$ff
        sta $0cf0,x
        lda ($fd),y
        sta tbl_lo_0ce4,x
        sta $0cf3
        and #$1f
        sta $0ce1,x
        bit $0cf3
        bvs loc_0931
        inc $0cde,x
        lda $0cf3
        bpl loc_0915
        iny
        lda ($fd),y
        bpl loc_090f
        sta $0d2d,x
        iny
        lda ($fd),y