#234

Touch of Class, A [ATC] 05

Touch of Class, A [ATC]

5.005 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

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

No CSDb release match has been confirmed for this intro from A Touch of Class, the American group commonly abbreviated as ATC and founded in September 1987. The CSDb search did not return group-specific results, but ATC's existence is well-attested through their other ranked entries with confirmed CSDb data. Without archival data for this specific production, the coder, musician, and release date remain unidentified. ATC's other ranked entries provide context: #85 ATC-02 from March 1989 featured Ironfist coding with music by Michael Hendriks, while #43 ATC-06 from September 1988 was coded by Pudwerx with a ripped Tim Follin tune. These confirmed entries place ATC firmly within the American C64 cracking scene of the late 1980s. The intros.c64.org listing attracted comments from Daison, Rough, and Da Painta. With at least eleven numbered intros, ATC maintained a consistent output during their active period.

Sources: intros.c64.org

atc-05.asm 5.005 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:16
// 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:  $2610 (9744)
// IRQ handler:  $2731 (irq_2731)
// IRQ handler:  $ea86 (nmi_ea86)
// IRQ handler:  $2762 (irq_2762)
//
// Code: 4476 bytes, Data: 59012 bytes
// Labels: 486, Subroutines: 14
//
// Cross-references: all OK
// ============================================


// --- Region $0fa2-$12e7 ---
.pc = $0fa2 "Program $0fa2"
        .byte $d4,$4c                               // nop $4c,x // ILLEGAL
        jmp loc_4ce3

dat_0fa7:
        .byte $cb,$e1,$bd,$0f,$e5,$85,$fc,$bd,$12   // .........

loc_0fb0:
        sbc $85
        sbc.abs $00a9,x
        sta $e4f6
        ldy $e50c,x
        lda #$00
        sta $e503,x
        lda ($fc),y
        cmp #$ff
        bne loc_0fc9
        jmp loc_e459

loc_0fc9:
        pha
        and #$20
        beq loc_0fd3
        lda #$01
        sta $e4f6

loc_0fd3:
        pla
        cmp #$80
        bcc loc_0fdb
        jmp loc_e3c7

loc_0fdb:
        and #$1f
        clc
        adc #$01
        sta $e509,x
        iny
        lda ($fc),y
        pha
        iny
        tya
        sta $e50c,x
        pla
        bne loc_0ffa
        lda $e536,x
        and #$fe
        sta $e551,x
        jmp loc_e332

loc_0ffa:
        clc
        adc $e545,x
        sta $e500,x
        asl
        tay
        lda $e568,y
        sta $e515,x
        lda $e569,y
        sta $e518,x
        lda txt_e539,x
        pha
        lsr
        lsr
        lsr
        lsr
        pha
        clc
        adc #$01
        sta $e554,x
        pla
        sta $e4f5
        lda #$02
        sta $e54b,x
        pla
        tay
        lda $e4f6
        cmp #$01
        bne loc_1033
        jmp loc_e1cb

loc_1033:
        tya
        and #$0f
        sta $e542,x
        lda #$00
        sta $e4f4
        sta $e4fa,x
        sec
        sbc $e4f5
        sta dat_e557,x
        lda $e536,x
        sta $e551,x
        lda $e52a,x
        and #$10
        beq loc_1075
        lda $e4f2
        asl
        tay
        lda $e568,y
        pha
        lda $e568,y
        pha
        ldy $fb
        pla
        sta $d401,y
        pla
        sta $d400,y
        lda #$01
        sta $e4f4
        lda #$81
        bmi loc_1078

loc_1075:
        lda $e533,x

loc_1078:
        ldy $fb
        pha
        and #$fe
        sta $d404,y
        pla
        sta $d404,y
        lda $e52d,x
        sta $d405,y
        lda $e530,x
        sta $d406,y