#153

Hotline [HTL] 04

Hotline [HTL]

1.208 lines of code

MusicSIDSpritesSPRT

History

Released
August 1987
Code
Coco
Music
The Mercenary Cracker / Charles Deenen — "Give It a Try"
Group
Hotline — Netherlands, founded August 1986

An early Hotline intro — released in August 1987, exactly one year after the group's founding. Coco coded while The Mercenary Cracker is credited alongside Charles Deenen's "Give It a Try" (CSDb lists the SID under Deenen's TMC alias). The Mercenary Cracker's dual role as both charset artist and music contributor across the scene makes their exact contribution here ambiguous. This is one of Hotline's earliest productions, from before they adopted the prolific numbered series that would eventually reach into the forties. Hotline's August 1986 founding makes them one of the oldest Dutch cracking groups, already well-established by the time this intro appeared. The HVSC preserves Deenen's composition. Doc Snyder's page documents Hotline's full chronological output.

Sources: CSDb · docsnyderspage

htl-04.asm 1.208 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:22
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $21ff  (6656 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1100 (4352)
// IRQ handler:  $11d8 (irq_11d8)
//
// Code: 1574 bytes, Data: 5082 bytes
// Labels: 128, Subroutines: 7
//
// Verification: 6 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $0800-$0b0c ---
.pc = $0800 "smc_0800"

smc_0800:
        brk                                         // !SMC: modified by $1117

dat_0801:
        // === BASIC loader stub ===
        .byte $d9,$0f                                                     // [corrected] was: .byte $0b,$08                               // next line pointer ($080b)
        .byte $8d,$dc                                                     // [corrected] was: .byte $00,$00                               // line number 0
        .byte $0f                                                         // [corrected] was: .byte $9e                                   // SYS token
        .byte $a8,$ad,$03,$10
        .byte $cd                                                         // [corrected] was: .byte $00                                   // end of line
        .byte $02,$10                                                     // [corrected] was: .byte $00,$00                               // end of BASIC program
        bne loc_0821
        lda $0c71,x
        sta $fb
        lda $0c74,x
        sta $fc
        dec $0fe3,x
        bmi loc_0824
        jmp loc_08fb

loc_0821:
        jmp loc_091a

loc_0824:
        ldy $0fdd,x
        lda ($fb),y
        cmp #$ff
        bne loc_083b
        lda #$00
        sta $0fe3,x
        sta $0fdd,x
        sta $0fe0,x
        jmp loc_0824

loc_083b:
        tay
        lda $0c77,y
        sta $fd
        lda $0c85,y
        sta $fe
        lda #$00
        sta $100c,x
        ldy $0fe0,x
        lda #$ff
        sta $0ff2
        lda ($fd),y
        sta $0fe6,x
        sta $0ff3
        and #$1f
        sta $0fe3,x
        bit $0ff3
        bvs loc_08a4
        inc $0fe0,x
        lda $0ff3
        bpl loc_087e
        iny
        lda ($fd),y
        bpl loc_0878
        sta $100c,x
        jmp loc_087b

loc_0878:
        sta $0fef,x

loc_087b:
        inc $0fe0,x

loc_087e:
        iny
        lda ($fd),y
        sta $0fec,x
        asl
        tay
        lda dat_0b0d,y
        sta $0ff4
        lda $0b0e,y
        ldy $0fdc
        sta $d401,y
        sta $1006,x
        lda $0ff4
        sta $d400,y
        sta $1009,x
        jmp loc_08a7

loc_08a4:
        dec $0ff2

loc_08a7:
        ldy $0fdc
        lda $0fef,x
        stx $0ff5
        asl
        asl
        asl
        tax
        lda $0bef,x
        sta $0ff6
        lda $0bef,x
        and $0ff2
        sta $d404,y
        lda $0bed,x
        sta $d402,y
        lda $0bee,x
        sta $d403,y
        lda $0bf0,x
        sta $d405,y
        lda $0bf1,x
        sta $d406,y
        ldx $0ff5
        lda $0ff6
        sta $0fe9,x
        inc $0fe0,x
        ldy $0fe0,x
        lda ($fd),y
        cmp #$ff
        bne loc_08f8
        lda #$00
        sta $0fe0,x
        inc $0fdd,x

loc_08f8:
        jmp loc_0b06

loc_08fb:
        ldy $0fdc