History
- Group
- Hokuto Force — Italy
Another entry in Hokuto Force's prolific output — this Italian preservation group produced crack intros spanning decades, from their founding through to the present day. This intro joins HF-05 and HF-24 in this batch. No specific CSDb release match was found, and the intros.c64.org page carries no user comments, making attribution of individual credits difficult. Doc Snyder's page documents the group extensively, listing music contributions from composers including Jeroen Tel, Reyn Ouwehand, Rob Hubbard, Flex (Antti Hannula), Nike (Rudiger Tietz), Shinobi (Marcus Rousseau), DeMOSic (Emre Cakir), and Uctumi (Esteban Palladino) — a roster spanning multiple countries and decades. The group's willingness to draw on music from established SID legends and newer composers alike reflects their philosophy of celebrating C64 culture broadly. Hokuto Force remains active in the modern retro-computing community.
Sources: docsnyderspage · intros.c64.org
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:47 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $dbe7 (54248 bytes) // Crunched with Cruncher AB — depacked by emulation // Packer entry: $080d (via BASIC SYS 2061) // Entry point: $43b0 (17328) // IRQ handler: $098b (irq_098b) // IRQ handler: $09c5 (irq_09c5) // IRQ handler: $0a3a (irq_0a3a) // IRQ handler: $0aae (irq_0aae) // // Code: 2108 bytes, Data: 52140 bytes // Labels: 299, Subroutines: 29 // // Cross-references: all OK // ============================================ // --- Region $0815-$0864 --- .pc = $0815 "loc_0815" loc_0815: lda #$00 sta $d020 sta $d021 sei lda #$7f sta $dc0d sta $dd0d lda $dc0d loc_0829: jsr sub_08c0 lda dat_0864 beq loc_0837 jsr sub_5000 jmp loc_0829 loc_0837: sei .label smc_0839 = * + 1 .label smc_083a = * + 2 jsr $ff8a // !SMC: modified by $43bc, $43bf jsr $ff84 jsr $ff81 ldx #$50 loc_0843: lda dat_0864,x sta $03ff,x lda #$01 sta $d7ff,x dex bne loc_0843 ldx #$31 loc_0853: lda $4380,x sta $044f,x lda #$00 sta $d84f,x dex bne loc_0853 jmp $0450 dat_0864: .byte $00 // . // --- Region $08c0-$097f --- .pc = $08c0 "sub_08c0" // Referenced by: jsr from $0829 sub_08c0: { lda #$2f sta $00 lda #$37 sta $01 lda #$00 jsr sub_1000 lda #$01 sta $d01a lda $d011 and #$7f sta $d011 lda #$8b sta $0314 lda #$09 sta $0315 lda #$ec sta $d012 jsr sub_09a8 jsr sub_09f7 jsr sub_0a07 jsr sub_0a18 jsr sub_0a29 jsr sub_0a7b lda #$00 sta dat_097f lda #$07 sta $0980 jsr sub_3e00 jsr sub_0b4f sta bmp_3ea6 cli lda #$7f sta $dc00 loop1: lda $dc01 and #$10 bne loop1 sei loop2: lda $d012 bne loop2 lda #$00 sta $d020 sta $d011 sta $d418 rts } // Referenced by: jsr from $0991 sub_092d: lda dat_0b2b beq loc_093b lda #$0f sta $3f66 dec dat_0b2b rts loc_093b: lda #$64 sta $3f66 jsr sub_3ec0 jsr sub_3ec0 lda $0980 sec sbc #$03 sta $0980 lda $0980 ora #$10 sta smc_0ac1 // SMC: modifies $0ac1 bpl loc_098a and #$07 sta $0980