#793

Survivors 2019, The [TS] 07

Survivors 2019, The [TS]

2.124 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Released
26 February 1988
Code
Satan
Music
Paul Clansey — "Alien"
Group
The Survivors — United States

CSDb titles this "The Survivors Intro 5 - Platoon," indicating it accompanied a crack of the Ocean Software game Platoon. Released on 26 February 1988, the code is by Satan — the same coder credited on The Survivors' earlier intro at #284 TS-01, which featured a ripped Rob Hubbard tune. Here the music is Paul Clansey's "Alien," preserved in the HVSC. The discrepancy between the intros.c64.org numbering (07) and the CSDb title (Intro 5) suggests the cataloguing systems use different counting methods. Clansey's "Alien" draws its name from the science fiction film franchise, a common source of inspiration for SID composers. The Survivors were an American group with no documented founding date on CSDb. Satan's consistent presence across multiple Survivors intros establishes him as the group's primary — and possibly sole — coder.

Sources: CSDb · HVSC

ts-07.asm 2.124 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:54
// 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:  $1500 (5376)
// IRQ handler:  $1638 (irq_1638)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 1659 bytes, Data: 61829 bytes
// Labels: 217, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0818 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fff0

sub_0814:
        .byte $fc,$c6,$fc                           // nop $fcc6,x // ILLEGAL
        brk

chr_0818:
        // === Charset data (1 bytes, $0818-$0818) ===
        .byte $00                                   // char 0 (partial)

// --- Region $1185-$1328 ---
.pc = $1185 "sub_1185"

// Referenced by: jsr from $156a
sub_1185: {
        sei
        nop
        nop
        nop
        nop
        nop
        ldy #$00
        lda #$00
        sta $135f
loop:
        sta $132b,y
        iny
        cpy #$0c
        bne loop
        lda #$0f
        sta $d418
        lda #$f0
        sta $d405
        lda #$f0
        sta $d406
        lda #$9f
        sta $d418
        lda #$f3
        sta $d417
        lda #$97
        sta $d413
        lda #$f0
        sta $d40c
        sta $d40d
        cli
        rts
}
// Referenced by: jsr from $16be

sub_11c2:
        lda $d41c
        sta $d416
        lda $132c
        inc $132b
        lda $132b
        cmp $132a
        beq loc_11d9
        jmp loc_12fc

loc_11d9:
        lda #$00
        sta $132b
        jmp loc_11ff

loc_11e1:
        inc $1335
        lda $1335
        cmp #$08
        bne loc_121b
        lda #$00
        sta $1335
        inc $1336
        lda $1336
        cmp #$04
        bne loc_121b
        lda #$00
        sta $1336

loc_11ff:
        inc $135f
        lda $135f
        sta $d413
        inc $132c
        lda $132c
        cmp dat_1329
        bcc loc_121b
        lda #$00
        sta $132c
        jmp loc_11e1

loc_121b:
        ldy $132c
        lda $134f,y
        beq loc_1235
        and #$0f
        sta $132d
        lda $134f,y
        and #$f0
        clc
        lsr
        lsr
        lsr
        lsr
        sta $132f

loc_1235:
        lda $1357,y
        beq loc_124c
        and #$0f
        sta $132e
        lda $1357,y
        and #$f0
        clc
        lsr
        lsr
        lsr
        lsr
        sta $1330

loc_124c:
        ldy $132d
        beq loc_127b
        lda $1336,y
        sta $1332
        lda $1342,y
        sta $1333
        lda $1336