← #288 Top 1024 #290 →
#289

Occult (US) 01

Occult (US)

2.714 lines of code

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

History

Group
Occult -- United States

A crack intro from Occult, a United States-based group distinguished by the "(US)" suffix in the intros.c64.org catalogue to differentiate it from any European namesakes. The CSDb search returned no relevant matches, and Doc Snyder's page, Demozoo, and other archives are similarly empty. No individual credits for code, graphics, or music are confirmed. The intro's comment thread on intros.c64.org features notable sceners including iAN CooG, Sir Garbagetruck, Mason, and Pan, with discussion spanning 2009--2017 -- an unusually active thread for an otherwise undocumented group, suggesting the intro itself provoked interest or debate among archivists. The need to append a country qualifier suggests the handle "Occult" was used by multiple unrelated groups across different regions -- a common problem in a scene where group names were chosen independently and collisions were frequent. Despite the lack of archival documentation, the intro placed in the top 290, indicating the production made a strong impression on voters regardless of the group's obscurity.

Sources: intros.c64.org

occult_us-01.asm 2.714 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:21
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3fff  (14336 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $2b80 (11136)
// IRQ handler:  $2c79 (irq_2c79)
// IRQ handler:  $355a (irq_355a)
// IRQ handler:  $3579 (irq_3579)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 4287 bytes, Data: 10049 bytes
// Labels: 201, Subroutines: 3
//
// Cross-references: all OK
// ============================================


// --- Region $09bd-$09bf ---
.pc = $09bd "Program $09bd"
        .byte $04,$00                               // nop $00 // ILLEGAL
        brk

// --- Region $0a0a-$0a12 ---
.pc = $0a0a "Program $0a0a"
        .byte $bf,$ef,$bf                           // lax $bfef,y // ILLEGAL
        .byte $ff,$ef,$bf                           // isc $bfef,x // ILLEGAL
        adc #$42
        brk

// --- Region $0abd-$0abd ---
.pc = $0abd "Program $0abd"
        brk

// --- Region $0bbd-$0bbd ---
.pc = $0bbd "Program $0bbd"
        brk

// --- Region $0cbd-$0cbd ---
.pc = $0cbd "Program $0cbd"
        brk

// --- Region $0dbd-$0dbd ---
.pc = $0dbd "Program $0dbd"
        brk

// --- Region $0ebd-$0ec5 ---
.pc = $0ebd "Program $0ebd"
        eor $9a66,y
        .byte $6b,$ae                               // arr #$ae // ILLEGAL
        .byte $6b,$9f                               // arr #$9f // ILLEGAL

dat_0ec4:
        .byte $6f,$af                               // o.

// --- Region $0fbd-$0fc4 ---
.pc = $0fbd "Program $0fbd"
        .byte $fb,$99,$65                           // isc $6599,y // ILLEGAL
        .byte $bf,$ff,$ef                           // lax $efff,y // ILLEGAL

dat_0fc3:
        .byte $bf,$ee                               // ..

// --- Region $1000-$1006 ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $2c6a

sub_1000:
        jmp loc_1066
// Referenced by: jsr from $378e

sub_1003:
        jmp loc_10ab

dat_1006:
        .byte $00                                   // .

// --- Region $1066-$14a2 ---
.pc = $1066 "loc_1066"

loc_1066:
        ldx #$00
        ldy #$00

loc_106a:
        lda $1060,y
        sta $156e,x
        sta $1574,x
        lda $1061,y
        sta $1571,x
        sta $1577,x
        iny
        iny
        inx
        cpx #$03
        bne loc_106a
        lda #$03
        sta $15d2
        sta $15d3
        ldy #$00
        tya

loc_108e:
        sta $d400,y
        sta $1587,y
        iny
        cpy #$1b
        bne loc_108e
        lda $1009
        sta $d418
        lda #$ff
        sta $1599
        sta $159a
        sta $159b
        rts

loc_10ab:
        lda $fb
        pha
        lda $fc
        pha
        ldx #$02
        dec $15d2
        bpl loc_10be
        lda $15d3
        sta $15d2

loc_10be:
        bne loc_10c5
        dec $1599,x
        bmi loc_10d0

loc_10c5:
        lda $1593,x
        bne loc_10cd
        jmp loc_1273

loc_10cd:
        jmp loc_11a2

loc_10d0:
        lda $159f,x
        sta $1599,x
        lda #$00
        sta $159c,x