← #630 Top 1024 #632 →
#631

A-Team [A] 05

A-Team [A]

2.389 lines of code

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

History

Released
October 1991
Code
B.A.
Charset
Fox
Music
A-Man (Steven Diemer) — "Thriller"
Group
A-Team — Austria, founded 1990

A crack intro from A-Team, an Austrian group founded in 1990 and identified on CSDb by the short tag "A." Released in October 1991, the intro credits B.A. for the code, Fox for the charset, and A-Man (Steven Diemer) for the music — a SID tune titled "Thriller," preserved in the HVSC. The CSDb release is catalogued as "A-Team (Austria) Crack Intro 15," distinguishing this outfit from other groups sharing the A-Team name. A-Man was a prolific SID composer whose work appeared across multiple cracking groups' intros during this period. The comment from iAN CooG — a well-known scene archivist — on the intros.c64.org page suggests this intro was re-examined during preservation cataloguing efforts. No Doc Snyder's page or Demozoo entry exists for this group, and the intro carries no graphics credit beyond the charset.

Sources: CSDb

a_t-05.asm 2.389 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:05
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $2aff  (8960 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2400 (9216)
// IRQ handler:  $2526 (irq_2526)
//
// Code: 2625 bytes, Data: 6335 bytes
// Labels: 271, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0f02-$0f02 ---
.pc = $0f02 "$0f02"
        .byte $02                                   // jam // ILLEGAL

// --- Region $1000-$1009 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $251f

sub_1000:
        jmp loc_1187

dat_1003:
        .byte $00,$00,$01                           // ...
// Referenced by: jsr from $2533

sub_1006:
        jmp loc_1179

dat_1009:
        .byte $03                                   // .

// --- Region $1179-$18a6 ---
.pc = $1179 "loc_1179"

loc_1179:
        lda $100c
        cmp #$01
        beq loc_11dd
        cmp #$02
        bne loc_11a7
        jmp loc_11cd

loc_1187:
        tax
        lda $1e93,x
        sta $10ab
        txa
        asl
        sta $1080
        ldx #$00
        asl
        clc
        adc $1080
        tay

loc_119b:
        lda $19f2,y
        sta $19ec,x
        iny
        inx
        cpx #$06
        bne loc_119b

loc_11a7:
        ldx #$9f

loc_11a9:
        lda #$00
        sta $1008,x
        dex
        bne loc_11a9
        ldx #$02

loc_11b3:
        lda #$00
        sta $18a9,x
        lda #$01
        sta $102b,x
        sta $1058,x
        dex
        bpl loc_11b3
        lda #$10
        sta smc_11de                                // SMC: modifies $11de
        lda #$01
        sta $100c

loc_11cd:
        ldx #$18

loc_11cf:
        lda #$08
        sta $d400,x
        lda #$00
        sta $d400,x
        dex
        bpl loc_11cf
        rts

loc_11dd:
.label smc_11de = * + 1
        lda #$1f                                    // !SMC: modified by $11c5, $121f, $16d3
        sta $d418
        lda $10a6
        beq loc_1200
        clc
        adc $10a7
        sta $10a7
        lda smc_11de
        adc #$00
.label loc_11f4 = * + 1
        cmp #$20
        bcc loc_121f
        lda #$00
        sta $10a6
        lda #$1f
        bne loc_121f

loc_1200:
        lda $10a5
        beq loc_1222
        lda $10a7
        sec
        sbc $10a5
        sta $10a7
        lda smc_11de
        sbc #$00
        cmp #$10
        bcs loc_121f
        lda #$00
        sta $10a5
        lda #$10

loc_121f:
        sta smc_11de                                // SMC: modifies $11de

loc_1222:
        ldx #$02
        stx $100f
        dec $1050
        bpl loc_1232