← #890 Top 1024 #892 →
#891

Angels, The 01

Angels, The

331 lines of code

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

History

Released
c. 1985
Group
The Angels — Netherlands

A crack intro from The Angels, a Dutch cracking group catalogued on CSDb under group ID 5313. The sole documented member is Gamelord, credited as a cracker. No individual code, music, or graphics credits are recorded for this intro. The Angels produced 28 known releases, predominantly game cracks from 1984–1986 including A Journey to the Centre of the Earth, The Fall Guy, and International Tennis. This particular intro was reused in at least three of their cracks. The Netherlands had a significant C64 cracking scene during the mid-1980s, with groups like Dutch USA Team and 1001 Crew achieving wider fame — The Angels represent the smaller Dutch operations of that era. The lack of credited musicians is consistent with many early-to-mid 1980s intros, which frequently relied on ripped music or simple sound effects. CSDb lists a separate Hungarian group also called "Angels" (ANG, ID 825), active in a later period — the two should not be confused.

Sources: CSDb · intros.c64.org

the_angels-01.asm 331 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:49
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $0ef2  (1778 bytes)
// Entry point:  $0900 (via BASIC SYS 2304)
//
// Code: 325 bytes, Data: 1453 bytes
// Labels: 38, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0828-$08cd ---
.pc = $0828 "loc_0828"

loc_0828:
        lda #$08
        ldx #$01
        sta $fe
        stx $fd
        lda #$0e
        ldx #$f3
        sta $fc
        stx $fb
        lda #$b2
        sta $ff
        lda $01
        and #$fe
        sta $01
        ldy #$00

loc_0844:
        lda ($fb),y
        sta ($fd),y
        dey
        bne loc_0844
        inc $fc
        inc $fe
        dec $ff
        bne loc_0844
        lda $01
        ora #$01
        sta $01
        jmp $fce2

dat_085c:
        .byte $00,$00,$00,$00                       // ....
// Referenced by: jsr from $08a5, $0900

sub_0860:
        ldy #$02
        lda #$00
        tax

loc_0865:
        sta $0c00,x
        dex
        bne loc_0865
        inc $0867
        dey
        bne loc_0865
        dec $0867
        dec $0867
        jsr $e544
        jmp loc_08c0

dat_087d:
        .byte $ea,$ea,$ea                           // ...

loc_0880:
        lda #$50
        sta $08ff

loc_0885:
        ldy $d02e
        ldx #$05

loc_088a:
        lda $d028,x
        sta $d029,x
        dex
        bne loc_088a
        sty $d029
        ldy #$40

loc_0898:
        ldx #$00

loc_089a:
        dex
        bne loc_089a
        dey
        bne loc_0898
        dec $08ff
        bne loc_0885
        jsr sub_0860
        ldx #$35

loc_08aa:
        lda $0827,x
        sta $033f,x
        dex
        bne loc_08aa
        lda #$00
        sta $d015
        sta $0286
        jmp $0340

dat_08be:
        .byte $00,$00                               // ..

loc_08c0:
        lda #$00
        sta $d015
        lda #$0f
        sta $d028
        sta $d027
        rts

// --- Region $0900-$09aa ---
.pc = $0900 "main_0900"

main_0900:
        jsr sub_0860
        lda #$00
        sta $d020
        sta $d021
        sta $d01d
        lda #$ff
        sta $d015
        sta $d017
        ldx #$10

loc_0918:
        lda $09ef,x
        sta $cfff,x
        dex
        bne loc_0918
        ldx #$06
        ldy #$08

loc_0925:
        tya
        sta $d028,x
        dey