← #111 Top 1024 #113 →
#112

Science 451 [S451] 01

Science 451 [S451]

4.498 lines of code

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

History

Released
February 1989
Code
Glerc
Music
Jeroen Soede — "Airwolf Title" (ripped)
Group
Science 451 — Sweden, founded 18 December 1987

Named after Ray Bradbury's Fahrenheit 451 — Science 451 was a Swedish group founded on 18 December 1987. Glerc coded the intro while Jeroen Soede's "Airwolf Title" provides the ripped music, preserved in the HVSC. Soede's composition — based on the theme from the TV series Airwolf — was enormously popular in the cracking scene, appearing in multiple intros from different groups. Released in February 1989, this came during Science 451's active period within the competitive Swedish scene. The group operated alongside larger Swedish operations like Triad and Fairlight but maintained their own identity. The literary group name distinguishes them from the typical aggressive or boastful naming conventions of the era — suggesting members with broader cultural interests.

Sources: CSDb

s451-01.asm 4.498 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31
// 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:  $1000 (4096)
// IRQ handler:  $1100 (irq_1100)
// IRQ handler:  $1200 (irq_1200)
// IRQ handler:  $127e (irq_127e)
//
// Code: 4284 bytes, Data: 59204 bytes
// Labels: 471, Subroutines: 28
//
// Cross-references: all OK
// ============================================


// --- Region $0814-$0851 ---
.pc = $0814 "sub_0814"
// Referenced by: jsr from $fcec, $fcfe, $fd34

sub_0814:
        sbc #$eb
        nop
        nop
        .byte $3f,$fa,$ea                           // rla $eafa,x // ILLEGAL
        nop
        nop
        sbc #$e9
        sbc #$ff
        nop
        nop
        nop
        sbc #$e9
        sbc #$e9
        .byte $3f,$fa,$ea                           // rla $eafa,x // ILLEGAL
        nop
        sbc #$eb
        nop
        nop
        .byte $3f,$fa,$ea                           // rla $eafa,x // ILLEGAL
        nop
        sbc #$eb
        nop
        nop
        .byte $3f,$fa,$ea                           // rla $eafa,x // ILLEGAL
        nop
        nop
        sbc #$e9
        sbc #$fd
        sbc #$e9
        sbc #$e9
        sbc #$ea
        nop
        .byte $0f,$0e,$0e                           // slo $0e0e // ILLEGAL
        asl $0e0e
        asl.abs $000e
        brk

// --- Region $0902-$0916 ---
.pc = $0902 "Program $0902"
        brk

dat_0903:
        .byte $00,$00,$00                           // ...
        brk

dat_0907:
        .byte $00,$0f,$0e,$0e                       // ....
        asl $0e0e
        asl $3d0e
        and $3939,y
        and $00,x
        brk

// --- Region $0c01-$0c07 ---
.pc = $0c01 "sub_0c01"
// Referenced by: jsr from $ff5b

sub_0c01:
        brk

dat_0c02:
        .byte $00,$00,$00,$00,$00                   // .....
        brk

// --- Region $0e09-$0e0f ---
.pc = $0e09 "sub_0e09"
// Referenced by: jsr from $fce9

sub_0e09:
        lda #$a9
        sbc #$e9
        sbc #$d5
        brk

// --- Region $0eed-$0f07 ---
.pc = $0eed "loc_0eed"

loc_0eed:
        lda ($fc),y
        sta ($fa),y
        iny
        bne loc_0eed

loc_0ef4:
        inc $fd

loc_0ef6:
        inc $fb

loc_0ef8:
        bne loc_0eed
        dec $01
        jmp loc_fce2

dat_0eff:
        .byte $00,$00,$00,$00,$00                   // .....

loc_0f04:
        brk

dat_0f05:
        .byte $00                                   // .
// Referenced by: jsr from $fd51; branch from $0f74

sub_0f06:
        brk
// Referenced by: jsr from $fd40

sub_0f07:
        brk

// --- Region $0f14-$0f26 ---
.pc = $0f14 "sub_0f14"
// Referenced by: jsr from $fd43

sub_0f14:
        .byte $0f,$20,$02                           // slo $0220 // ILLEGAL
        ora $0720,y
        .byte $0c,$05,$12                           // nop $1205 // ILLEGAL
        .byte $03,$20                               // slo ($20,x) // ILLEGAL
        jsr sub_1514
        asl $2005
        .byte $02                                   // jam // ILLEGAL