← #703 Top 1024 #705 →
#704

Oneway 02

Oneway

922 lines of code

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

History

Released
January 1989
Code
Zizyphus
Group
Oneway — Sweden, founded October 1988

Oneway's intro, released on 1 January 1989, was coded by Zizyphus for this Swedish cracking group founded just months earlier in October 1988. CSDb lists an additional uncredited graphics contributor, suggesting the intro featured custom visual elements beyond simple text. Oneway operated during a particularly competitive period for Scandinavian cracking groups, when Swedish outfits like Triad, Fairlight, and Active were among the most prominent names in the European scene. The group's other ranked entry is #287 Oneway-03, which placed somewhat higher in the collection. No Doc Snyder's Page listing or Demozoo entry has been located for this release, and the absence of music credits suggests the intro may have been a silent or sound-effect-only production. Oneway's abbreviated tag "1WAY" appears in CSDb's records, though the group left a relatively modest archival footprint compared to its better-documented Swedish contemporaries.

Sources: CSDb

oneway-02.asm 922 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:22
// 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:  $080b (2059)
//
// Code: 412 bytes, Data: 63076 bytes
// Labels: 139, Subroutines: 1
//
// Cross-references: all OK
// ============================================


// --- Region $080b-$08cb ---
.pc = $080b "main_080b"

main_080b:
        ldy #$00

loc_080d:
        lda #$a0
        sta $0400,y
        sta $0500,y
        sta $0600,y
        sta $0700,y
        iny
        bne loc_080d
        sei
        ldx #$ff
        txs
        lda #$35
        sta $01

loc_0826:
        lda dat_0a8b,y
        sta $0400,y
        sta $06a8,y
        lda $0b8b,y
        sta $0500,y
        lda $0ae3,y
        sta $0700,y
        lda #$00
        sta $d800,y
        sta $d900,y
        sta $da00,y
        sta $db00,y
        iny
        bne loc_0826
        sty $d020
        ldy #$0c
        lda #$8a
        sta $fb
        sty $fc
        ldy #$09
        lda #$0b
        sta $fffe
        sty $ffff
        ldy #$09
        lda #$e6
        sta $fffa
        sty $fffb
        lda #$01
        sta $d019
        sta $d01a
        lda #$38
        sta $d012
        lda #$1b
        sta $d011
        lda #$7f
        sta $dc0d
        lda $dc0d
        cli

loc_0886:
        lda #$ff

loc_0888:
        cmp $d012
        bne loc_0888
        dec $0946
        dec $0946
        lda $0946
        cmp #$bf
        bne loc_0886
        lda #$c7
        sta $0946
        ldx #$00

loc_08a1:
        lda $0659,x
        sta $0658,x
        inx
        cpx #$28
        bne loc_08a1
        inc $fb
        bne loc_08b2

dat_08b0:
        .byte $e6,$fc                               // ..

loc_08b2:
        ldy #$00
        lda ($fb),y
        cmp #$00
        bne loc_08c4
        ldx #$0c
        lda #$8b
        sta $fb
        stx $fc
        lda ($fb),y

loc_08c4:
        ora #$80
        sta $067f
        jmp loc_0886

// --- Region $0f00-$0f21 ---
.pc = $0f00 "loc_0f00"

loc_0f00:
        sei
        ldx #$00

loc_0f03:
        lda $1000,x
        sta $0400,x
        lda #$00
        sta $d800,x
        inx
        bne loc_0f03
        nop
        ldx #$27
        lda #$04

loc_0f16:
        sta $d800,x
        dex
        bpl loc_0f16
        nop
        jmp loc_0f90

dat_0f20:
        .byte $c9,$59                               // .Y