← #883 Top 1024 #885 →
#884

Italian Cracking Service [ICS] 11

Italian Cracking Service [ICS]

2.627 lines of code

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

History

Released
1990
Code
Mamasoft
Graphics
Dokk
Music
JCH (Jens-Christian Huus) -- "Tuned In"
Group
Italian Cracking Service -- Italy, founded 1988

CSDb catalogues this as the "ICS Intro (Tusker Endsequence)," indicating it accompanied the endsequence of the game Tusker. Mamasoft coded the intro -- the same programmer behind #248 ICS-12 -- while Dokk provided graphics and JCH (Jens-Christian Huus) contributed "Tuned In," preserved in the HVSC. Released in 1990, this came during ICS's most active period. Italian Cracking Service was founded in Italy in 1988, part of a small but dedicated Italian C64 scene. The group's consistent reliance on JCH compositions -- both this intro and ICS-12 use his music -- demonstrates the Danish musician's extraordinary reach across national boundaries. Mamasoft's dual appearance across ICS intros marks him as the group's primary coder. Another ICS production appears at #503 ICS-01, which also featured JCH music and was coded by Raster Burner, showing the group had at least two active programmers.

Sources: CSDb

ics-11.asm 2.627 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $4a00  (16897 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $4600 (17920)
// IRQ handler:  $4847 (irq_4847)
// IRQ handler:  $4898 (irq_4898)
// IRQ handler:  $48ea (irq_48ea)
// IRQ handler:  $4918 (irq_4918)
//
// Code: 1900 bytes, Data: 14997 bytes
// Labels: 247, Subroutines: 5
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1060
// Referenced by: jsr from $48f4

sub_1003:
        jmp loc_10e9

dat_1006:
        .byte $00                                   // .

// --- Region $1060-$1434 ---
.pc = $1060 "loc_1060"

loc_1060:
        asl
        asl
        asl
        tay
        ldx #$00

loc_1066:
        lda $1010,y
        sta $14f4,x
        sta $14fa,x
        lda $1011,y
        sta $14f7,x
        sta $14fd,x
        iny
        iny
        inx
        cpx #$03
        bne loc_1066
        lda $1010,y
        sta $150f
        ldx #$00
        txa

loc_1088:
        sta $152c,x
        inx
        cpx #$12
        bne loc_1088
        ldy #$00
        tya

loc_1093:
        sta $d400,y
        iny
        cpy #$19
        bne loc_1093
        lda #$88
        sta $d404
        sta $d40b
        sta $d412
        lda #$03
        sta $d403
        lda #$01
        sta $d40a
        sta $d411
        lda #$0f
        sta $d418
        lda #$01
        sta $1514
        lda #$00
        sta $1515
        lda #$ff
        sta $1516
        sta $1544
        sta $1545
        sta $1546
        lda #$01
        sta $153e
        lda #$02
        sta $153f
        lda #$03
        sta $1540
        sta $1511
        sta $1512
        sta $1513
        rts

loc_10e9:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02

loc_10f1:
        lda $14f4,x
        sta $fb
        lda $14f7,x
        sta $fc
        ldy $150c,x
        lda $1514,x
        bmi loc_1106
        jmp loc_1229

loc_1106:
        lda $1511,x
        sta $1514,x

loc_110c:
        lda $152f,x
        beq loc_1114
        jmp loc_1193

loc_1114:
        ldy #$00
        lda ($fb),y
        cmp #$80
        bpl loc_1137
        tay
        lda $fb
        sta $1500,x
        lda $fc
        sta $1503,x
        lda $15fd,y
        sta $fb
        lda $1608,y
        sta $fc
        inc $152f,x
        jmp loc_1193