← #247 Top 1024 #249 →
#248

Italian Cracking Service [ICS] 12

Italian Cracking Service [ICS]

2.539 lines of code

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

History

Released
25 November 1989
Code
Mamasoft
Music
JCH (Jens-Christian Huus) — "Secret Land"
Graphics
Royal'69
Group
Italian Cracking Service — Italy, founded 1988

Titled "Italy Map" on CSDb, this Italian Cracking Service intro from 25 November 1989 featured a graphical representation of the Italian peninsula — a patriotic visual motif that distinguished it from the typical logo-and-scrolltext format. Mamasoft coded the intro while Royal'69 provided the graphics. The music is JCH's (Jens-Christian Huus) "Secret Land," one of the Danish composer's many tunes that found their way into crack intros across Europe. ICS was founded in Italy in 1988, part of a small but dedicated Italian C64 cracking scene that operated largely independently of the dominant Nordic and German groups. The "Cracking Service" naming convention — shared with groups like Cleveland Cracking Service and The Alaskan Cracking Service — was popular in the late 1980s. With twelve numbered intros catalogued, ICS maintained a steady output. No Doc Snyder page or Demozoo listing exists for the group, leaving CSDb as the primary source for their release history.

Sources: CSDb

ics-12.asm 2.539 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:23
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $5000  (18433 bytes)
// Note: PRG was crunched, depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $4a00 (18944)
// IRQ handler:  $4a99 (irq_4a99)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2127 bytes, Data: 16306 bytes
// Labels: 256, Subroutines: 14
//
// Cross-references: all OK
// ============================================


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

sub_1000:
        jmp loc_1028
// Referenced by: jsr from $4b00

sub_1003:
        jmp loc_1070

dat_1006:
        .byte $01                                   // .

// --- Region $1028-$1511 ---
.pc = $1028 "loc_1028"

loc_1028:
        asl
        asl
        asl
        tay
        ldx #$00

loc_102e:
        lda $1020,y
        sta $15d1,x
        sta $15d7,x
        lda $1021,y
        sta $15d4,x
        sta $15da,x
        iny
        iny
        inx
        cpx #$03
        bne loc_102e
        lda $1020,y
        sta $1667
        sta $1668
        ldy #$00
        tya

loc_1053:
        sta $d400,y
        sta $15f3,y
        iny
        cpy #$1b
        bne loc_1053
        lda $1009
        sta $d418
        lda #$ff
        sta $1605
        sta $1606
        sta $1607
        rts

loc_1070:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $1667
        bpl loc_1083
        lda $1668
        sta $1667

loc_1083:
        bne loc_1092
        lda dat_1006,x
        bne loc_108d
        jmp loc_1501

loc_108d:
        dec $1605,x
        bmi loc_109d

loc_1092:
        lda $15ff,x
        bne loc_109a
        jmp loc_1293

loc_109a:
        jmp loc_11b9

loc_109d:
        lda $160b,x
        sta $1605,x
        lda #$00
        sta $1608,x

loc_10a8:
        lda $15d1,x
        sta $fb
        lda $15d4,x
        sta $fc
        ldy #$00
        lda ($fb),y
        bpl loc_10e6
        cmp #$ff
        bne loc_10d6
        lda $15d7,x
        sta $15d1,x
        sta $fb
        lda $15da,x
        sta $15d4,x
        sta $fc
        ldy #$00
        lda ($fb),y
        bpl loc_10e6
        cmp #$ff
        beq loc_10e7

loc_10d6:
        and #$7f
        asl
        sta $15f6,x
        inc $15d1,x
        bne loc_10a8
        inc $15d4,x
        bne loc_10a8

loc_10e6:
        tay

loc_10e7:
        lda $179b,y
        sta $fb
        lda $17d0,y