#693

Touch of Class, A [ATC] 07

Touch of Class, A [ATC]

3.936 lines of code

RasterbarsRSTRMusicSIDSpritesSPRT

History

Group
A Touch of Class — United States, founded September 1987

The seventh numbered crack intro from A Touch of Class, the American group commonly known by the abbreviation ATC. Founded in September 1987, ATC operated during the competitive late-1980s period when American groups maintained significant activity alongside their European counterparts. No CSDb release data was retrieved for this specific production, and the CSDb search returned no group-specific results under the ATC name. However, higher-ranked ATC entries confirm the group's identity: #43 ATC-06 from September 1988 was coded by Pudwerx with music ripped from Tim Follin's "Scumball," and #85 ATC-02 from March 1989 featured Ironfist with music by Michael Hendriks. With at least eleven numbered intros catalogued on intros.c64.org, ATC produced a steady stream of crack intros across their active period. The group name -- with its emphasis on quality and style -- reflects the competitive ethos of the era.

Sources: intros.c64.org

atc-07.asm 3.936 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:11
// 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:  $0d00 (3328)
// IRQ handler:  $3fc2 (nmi_3fc2)
//
// Code: 1654 bytes, Data: 61834 bytes
// Labels: 401, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0d00-$0d28 ---
.pc = $0d00 "main_0d00"

main_0d00:
        jsr $ff81
        ldx #$00

loc_0d05:
        lda spr_0800,x
        sta $0334,x
        lda spr_0900,x
        sta $0434,x
        lda txt_0a00,x
        sta $0534,x
        lda spr_0b00,x
        sta $0634,x
        lda $0c00,x
        sta $0734,x
        inx
        bne loc_0d05
        jmp loc_1800

// --- Region $1800-$1b4f ---
.pc = $1800 "loc_1800"

loc_1800:
        jsr sub_18c0
        sei
        lda #$00
        sta $60
        lda #$10
        sta $61
        lda #$00
        sta $62
        lda #$14
        sta $63
        lda #$15
        sta dat_d000
        sta $d002
        sta $d004
        sta $d006
        lda #$49
        sta $d008
        sta $d00a
        sta $d00c
        sta $d00e
        lda #$33
        sta $d001
        lda #$48
        sta $d003
        lda #$5d
        sta $d005
        lda #$72
        sta $d007
        lda #$33
        sta $d009
        lda #$48
        sta $d00b
        lda #$5d
        sta $d00d
        lda #$72
        sta $d00f
        lda #$f0
        sta $d010
        lda #$01
        sta $d027
        sta $d028
        sta $d029
        sta $d02a
        sta $d02b
        sta $d02c
        sta $d02d
        sta $d02e
        lda #$ff
        sta $d01d
        ldx #$00
        lda #$00

loc_1880:
        sta spr_0800,x
        sta spr_0900,x
        sta txt_0a00,x
        sta spr_0b00,x
        sta $0c00,x
        sta main_0d00,x
        inx
        bne loc_1880
        lda #$20
        sta $07f8
        lda #$21
        sta $07f9
        lda #$22
        sta $07fa
        lda #$23
        sta $07fb
        lda #$2c
        sta $07fc
        lda #$2d
        sta $07fd
        lda #$2e
        sta $07fe
        lda #$2f
        sta $07ff
        jmp loc_3fd0
// Referenced by: jsr from $1800

sub_18c0:
        lda #$00
        sta $d020
        sta $d021
        lda #$00
        sta $fb
        lda #$1c
        sta $fc
        lda #$00
        sta $fd
        lda #$d8
        sta $fe
        ldy #$00

loc_18da:
        lda ($fb),y
        sta ($fd),y
        iny
        bne loc_18da
        inc $fc
        inc $fe
        lda $fe
        cmp #$db
        bne loc_18da