← #964 Top 1024 #966 →
#965

Touch of Class, A [ATC] 11

Touch of Class, A [ATC]

2.680 lines of code

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

History

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

The eleventh and highest-numbered crack intro catalogued from A Touch of Class, the American group founded in September 1987 and commonly abbreviated ATC. No CSDb release data could be retrieved, and the group does not appear on Doc Snyder's page, Demozoo, or in scene press archives. The intros.c64.org listing drew comments from Rough and Hitman between 2011 and 2013. ATC's identity is best established through their higher-ranked entries: #43 ATC-06 was coded by Pudwerx with a ripped Tim Follin tune, and #85 ATC-02 featured Ironfist coding with music by Michael Hendriks. Pudwerx appears to have been ATC's primary coder, producing a numbered series of intros for the group. The existence of eleven numbered intros confirms a consistent output during the group's active years in the late 1980s. ATC is mentioned in greetings from multiple contemporary groups, placing them firmly within the transatlantic cracking network of the era.

Sources: intros.c64.org

atc-11.asm 2.680 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:08
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3b1f  (13088 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $09d0 (2512)
// IRQ handler:  $0a4a (irq_0a4a)
// IRQ handler:  $0940 (irq_0940)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 2724 bytes, Data: 10364 bytes
// Labels: 292, Subroutines: 20
//
// Cross-references: all OK
// ============================================


// --- Region $0940-$097d ---
.pc = $0940 "irq_0940"

irq_0940:
        inc $d019
        lda #$0c
        sta $d021
        lda #$1a
        sta $d018
        lda $0c45
        sta $d016
        ldy #$ff

loc_0955:
        dey
        bne loc_0955
        lda #$c8
        sta $d016
        dec $0c45
        lda $0c45
        jsr sub_0c00
        jsr sub_1003
        jsr sub_098d
        lda #$30
        sta $d012
        lda #$4a
        sta $0314
        lda #$0a
        sta $0315
        jmp $ea81

// --- Region $098d-$099a ---
.pc = $098d "sub_098d"
// Referenced by: jsr from $0969

sub_098d:
        jsr loc_0d00
        lda $dc01
        cmp #$ef
        beq loc_0998
        rts

loc_0998:
        jmp loc_3aa0

// --- Region $09d0-$09ea ---
.pc = $09d0 "main_09d0"

main_09d0:
        lda #$00
        sta $0286
        jsr $e544
        lda #$00
        sta $fb
        lda #$34
        sta $fc
        lda #$00
        sta $fd
        lda #$26
        sta $fe
        jmp loc_0a00

// --- Region $0a00-$0a72 ---
.pc = $0a00 "loc_0a00"

loc_0a00:
        lda #$00
        sta $d020
        ldx #$00

loc_0a07:
        lda txt_3000,x
        sta $0400,x
        lda $3100,x
        sta $0500,x
        inx
        cpx #$00
        bne loc_0a07
        ldx #$00
        lda #$0a

loc_0a1c:
        sta $d800,x
        sta $d8f0,x
        inx
        cpx #$ff
        bne loc_0a1c
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        sei
        inc $dc0d
        inc $d01a
        lda #$1b
        sta $d011
        lda #$4a
        sta $0314
        lda #$0a
        sta $0315
        cli

loc_0a47:
        jmp loc_0a47

irq_0a4a:
        inc $d019
        lda #$00
        sta $d021
        lda #$18
        sta $d018
        lda #$0a
        sta $d022
        lda #$0c
        sta $d023
        lda #$d8
        sta $d016
        lda #$a0
        sta $d012
        lda #$73
        sta $0314
        jmp $ea81