← #286 Top 1024 #288 →
#287

Oneway 03

Oneway

703 lines of code

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

History

Released
October 1988
Charset
Jon Hare
Group
Oneway — Sweden, founded October 1988

Oneway Intro #3, released in October 1988, is a crack intro from the Swedish group Oneway. The charset is credited to Jon Hare on CSDb -- notably, this is the same Jon Hare who co-founded Sensible Software and later created games such as Cannon Fodder and Sensible Soccer, making this an unusual intersection between the cracking scene and the commercial games industry. No code or music credits have been identified for this particular intro. Oneway was founded in October 1988 in Sweden and is referenced in the greetings lists of numerous contemporary groups, including Dynamix and Ikari, confirming their standing in the European trading network. The group's name suggests a one-directional commitment to the scene -- a common type of aspirational branding among C64 cracking crews.

Sources: CSDb · intros.c64.org

oneway-03.asm 703 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:28
// 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:  $0a08 (2568)
//
// Code: 241 bytes, Data: 63247 bytes
// Labels: 74, Subroutines: 2
//
// Cross-references: all OK
// ============================================


// --- Region $0a08-$0ac6 ---
.pc = $0a08 "main_0a08"

main_0a08:
        sei
        lda #$12
        sta $d018
        nop
        nop
        nop
        lda #$00
        tay
        sta $0286
        sta $d021
        sta $d020
        sta $ab
        lda #$01
        sta $d022
        jsr sub_0b00
        jsr $e544
        ldy #$00

loc_0a2c:
        lda $0f00,y
        cmp #$01
        bne loc_0a3d
        lda #$40
        sta $04f0,y
        lda #$0a
        sta $d8f0,y

loc_0a3d:
        dey
        bne loc_0a2c
        lda #$c1
        sta $0318

loc_0a45:
        ldy #$00

loc_0a47:
        lda $0e01,y
        sta txt_0e00,y
        iny
        bne loc_0a47
        lda txt_0e00
        sta $0eff
        ldy #$52

loc_0a58:
        lda txt_0e00,y

loc_0a5b:
        cpy $d012
        bne loc_0a5b
        sta $d023
        iny
        cpy #$9a
        bne loc_0a58
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda $a7
        sta $d016
        ldy #$9b
        ldx #$00

loc_0a82:
        lda chr_0b0f,x

loc_0a85:
        cpy $d012
        bne loc_0a85
        sta $d021
        iny
        inx
        cpx #$0b
        bne loc_0a82
        ldy #$d0
        sty $d016
        jsr sub_0ae0
        nop
        nop
        nop
        lda $dc01
        cmp #$ef
        bne loc_0a45
        jsr $e5a0
        sty $d418
        sty $d020
        sty $d021
        ldy #$28

loc_0ab3:
        lda $0ac5,y
        sta $0607,y
        lda #$01
        sta $da08,y
        dey
        bne loc_0ab3
        inc $01
        jmp $0608

chr_0ac6:
        // === Charset data (1 bytes, $0ac6-$0ac6) ===
        .byte $b9                                   // char 0 (partial)

// --- Region $0ae0-$0b0e ---
.pc = $0ae0 "sub_0ae0"

// Referenced by: jsr from $0a98
sub_0ae0: {
        dec $a7
        dec $a7
        bpl loc_0b0e
loop:
        lda $0539,y