← #880 Top 1024 #882 →
#881

Hokuto Force [HF] 05

Hokuto Force [HF]

2.316 lines of code

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

History

Code
Yado
Graphics
Shine
Music
Nike (Rudiger Tietz)
Released
29 September 2019
Group
Hokuto Force [HF] -- Italy

Hokuto Force Crack Intro #05 -- titled "Nostalgy" on CSDb -- is a C64 intro released on 29 September 2019 by the Italian group Hokuto Force, known for their motto "To serve and preserve." The intro was coded by Yado, with graphics by Shine and music by Nike (Rudiger Tietz) using the "Marchmeeting (part 11)" SID composition. Both CSDb and Doc Snyder confirm these credits. CSDb classifies this as a "C64 Intro" rather than a crack intro specifically. Hokuto Force became one of the C64 scene's most dedicated preservation crews, frequently collaborating with Alpha Flight and Excess on cooperative releases. Doc Snyder's page documents an extensive catalogue of Hokuto Force intros, with coders including Xenox, Twilight, The Chaos Engineer, Wolf, Nadira, Jesder, Domspitze, and Yado. The release is preserved on CSDb as release #182077, verified through the Doc Snyder link.

Sources: CSDb · intros.c64.org · Doc Snyder

hf-05.asm 2.316 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $3cff  (13568 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1100 (4352)
// IRQ handler:  $11db (irq_11db)
// IRQ handler:  $2024 (irq_2024)
//
// Code: 2039 bytes, Data: 11529 bytes
// Labels: 284, Subroutines: 8
//
// Cross-references: all OK
// ============================================


// --- Region $1100-$12e8 ---
.pc = $1100 "main_1100"

main_1100:
        sei
        lda #$00
        sta smc_1284                                // SMC: modifies $1284
        lda #$09
        sta smc_1285                                // SMC: modifies $1285
        lda #$00
        sta $0330
        sta $0331
        lda #$0c
        sta $d020
        lda #$0b
        sta $d021
        lda #$0c
        sta $d023
        lda #$1a
        sta $d018
        ldx #$00

loc_1129:
        lda #$20
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $06e8,x
        lda #$0f
        sta $d800,x
        sta $d900,x
        sta $da00,x
        sta $dae8,x
        inx
        bne loc_1129
        lda #$18
        sta $d016
        jsr sub_2000

loc_1150:
        inc $0330
        lda $0330
        cmp #$ff
        bne loc_1150
        lda #$00
        sta $0330
        inc $0331
        lda $0331
        cmp #$77
        bne loc_1150
        ldx #$00

loc_116b:
        ldy #$00

loc_116d:
        lda dat_3800,x
        sta $0400,x
        lda $3900,x
        sta $0500,x
        lda $3a00,x
        sta $0600,x
        lda $3ae8,x
        sta $06e8,x
        iny
        cpy #$ff
        bne loc_116d
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        bne loc_116b
        ldx #$00

loc_1195:
        lda #$20
        sta $0590,x
        sta $0600,x
        sta $06e8,x
        inx
        bne loc_1195
        lda #$db
        sta $0314
        lda #$11
        sta $0315
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d019
        sta $d01a
        cli
        ldx #$00

loc_11bd:
        lda tbl_lo_2b00,x
        sta $0590,x
        ora #$40
        sta $05b8,x
        lda tbl_hi_2b28,x
        sta $05e0,x
        ora #$40
        sta $0608,x
        inx
        cpx #$28
        bne loc_11bd

loc_11d8:
        jmp loc_11d8
irq_11db: {
        lda $d019
        and #$01
        sta $d019
        cli
        bne skip1
        jmp $ea81
skip1:
        jsr sub_12b3
        jsr sub_11ff
        jsr sub_1806
        lda $dc01
        cmp #$ef
        bne skip2
        jmp loc_3c00
skip2:
        jmp $ea31
}