#849

Hotline [HTL] 54

Hotline [HTL]

3.516 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRT

History

Group
Hotline — Netherlands, founded August 1986

Doc Snyder's page catalogues this as "Crack Intro #05" from Hotline — note that the Doc Snyder numbering differs from the intros.c64.org catalogue position. The Mercenary Cracker handled the code while Marc Buttery contributed the music with "Brummen." Founded in August 1986 under the tagline "Where cracking is an Art," Hotline was one of the Netherlands' oldest cracking operations. This late-numbered entry is paired with HTL-02 in this batch. The scrolltext credits the crack to Popeye and thanks Ronnie for supplying the game, while the greetings list names RAD, Triad, FAC, The Movers, Plutonium Crackers, Fairlight, Reflex, and dozens more — mapping the group's extensive connections across the European scene. The intros.c64.org listing drew comments from iAN CooG (2009) and Twoflower (2008), both prominent scene archivists. No specific CSDb release match was found for this entry.

Sources: docsnyderspage · intros.c64.org

htl-54.asm 3.516 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:48
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $403f  (14656 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0800 (2048)
// IRQ handler:  $0839 (irq_0839)
// IRQ handler:  $0876 (irq_0876)
// IRQ handler:  $08b6 (irq_08b6)
// IRQ handler:  $08f3 (irq_08f3)
// IRQ handler:  $0930 (irq_0930)
// IRQ handler:  $0a35 (irq_0a35)
// IRQ handler:  $0a89 (irq_0a89)
// IRQ handler:  $0adc (irq_0adc)
// IRQ handler:  $0b9d (irq_0b9d)
// IRQ handler:  $0bba (irq_0bba)
// IRQ handler:  $0c1c (irq_0c1c)
// IRQ handler:  $0c43 (irq_0c43)
// IRQ handler:  $0c79 (irq_0c79)
// IRQ handler:  $0cbe (irq_0cbe)
// IRQ handler:  $0cf7 (irq_0cf7)
// IRQ handler:  $0d28 (irq_0d28)
// IRQ handler:  $0d67 (irq_0d67)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 3983 bytes, Data: 10673 bytes
// Labels: 364, Subroutines: 30
//
// Cross-references: all OK
// ============================================


// --- Region $0800-$0948 ---
.pc = $0800 "main_0800"

main_0800:
        lda #$00
        sta $d020
        sta $d021
        lda #$15
        sta $d018
        ldx #$ff

loc_080f:
        inx
        lda $09a8,x
        jsr $ffd2
        bne loc_080f
        ldx #$00

loc_081a:
        ldy #$00

loc_081c:
        iny
        nop
        nop
        nop
        nop
        nop
        nop
        bne loc_081c
        inx
        bne loc_081a
        lda #$0b
        sta $d011
        jsr sub_1bd9
        jsr sub_1cfb

loc_0833:
        jmp loc_0833

dat_0836:
        .byte $4c,$fc,$0e                           // L..
irq_0839: {
        rol $d019
        lda dat_1d20
        sta $d021
        lda $1d21
        sta $d023
        lda $1d22
        sta $d022
        lda $1d98
        sta $d016
        lda $43
        beq skip2
        lda $49
        bne skip1
        jsr sub_1b24
        jmp $0864
skip1:
        dec $49
skip2:
        lda #$76
        sta $0314
        lda #$08
        sta $0315
        lda #$61
        sta $d012
        jmp $ea81
}
irq_0876: {
        rol $d019
        nop
        nop
        nop
        lda $1d99
        sta $d016
        lda $1d23
        sta $d021
        lda $1d24
        sta $d023
        lda $1d25
        sta $d022
        lda $43
        beq skip2
        lda $4a
        bne skip1
        jsr sub_1b58
        jmp $08a4
skip1:
        dec $4a
skip2:
        lda #$b6
        sta $0314
        lda #$08
        sta $0315
        lda #$91
        sta $d012
        jmp $ea81
}
irq_08b6: {
        rol $d019
        lda $1d26
        sta $d021
        lda $1d27
        sta $d023
        lda $1d28
        sta $d022
        lda $1d9a
        sta $d016
        lda $43
        beq skip2
        lda $4b
        bne skip1