#589

Hotline [HTL] 23

Hotline [HTL]

4.303 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

History

Released
28 September 1989
Code
Dynamo
Charset
801 DC, Spacie
Music
Markus Schneider, Drax (Thomas Mogensen), JCH (Jens-Christian Huus), Link (Klaus Gronaard), Henning Rokling
Group
Hotline — Netherlands, founded August 1986

Dynamo coded this Hotline intro, released on 28 September 1989, with charset work by 801 DC and Spacie. The soundtrack is exceptionally rich — CSDb lists fourteen SID tunes drawn from five composers: Drax (Thomas Mogensen) contributing seven tracks, JCH (Jens-Christian Huus) two, Link (Klaus Gronaard) two, plus individual tracks from Markus Schneider and Henning Rokling. All are preserved in the HVSC. This abundance of music suggests a multi-tune intro — a format where players could cycle through tracks. Hotline was founded in August 1986 in the Netherlands and is one of the most represented groups in the rankings, with entries including #10 HTL-03 and #23 HTL-28. The depth of Danish and Nordic musical talent on display — Drax, JCH, and Link were all prominent Scandinavian composers — reflects the strong cross-border collaboration between Dutch crackers and Nordic musicians.

Sources: CSDb · Doc Snyder

htl-23.asm 4.303 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: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $289d (10397)
// IRQ handler:  $2a69 (irq_2a69)
// IRQ handler:  $1930 (irq_1930)
//
// Code: 4745 bytes, Data: 58743 bytes
// Labels: 460, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$15aa ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $18f7, $2a01, $f59e, $fc68

sub_1000:
        jmp loc_1594

dat_1003:
        .byte $4c,$a2,$15                           // L..
// Referenced by: jsr from $2a78

sub_1006:
        lda $01cb
        cmp #$02
        beq loc_1014
        cmp #$01
        bne loc_1015
        jmp loc_1574

loc_1014:
        rts

loc_1015:
        inc $0199
        inc $019a
        inc $019b
        lda #$1f
        sta $d418
        ldx #$02
        dec $01ca
        bpl loc_1030
        lda $16e8
        sta $01ca

loc_1030:
        stx $ff
        lda $16e9,x
        sta $01ad
        tay
        lda $01ca
        cmp $16e8
        bne loc_1053
        lda $16ec,x
        sta $fb
        lda $16ef,x
        sta $fc
        dec $017e,x
        bmi loc_1056
        jmp loc_11dd

loc_1053:
        jmp loc_11ed

loc_1056:
        ldy $0178,x
        lda ($fb),y
        cmp #$fe
        beq loc_1074
        cmp #$ff
        bne loc_1077
        lda #$00
        sta $017e,x
        sta $0178,x
        sta $017b,x
        sta $01c9
        jmp loc_1056

loc_1074:
        jmp loc_15a2

loc_1077:
        sta $01be
        and #$80
        beq loc_108c
        lda $01be
        and #$1f
        sta $01a6,x
        inc $0178,x
        jmp loc_1056

loc_108c:
        lda $01be
        and #$40
        beq loc_10a1
        lda $01be
        and #$3f
        sta $01cd,x
        inc $0178,x
        jmp loc_1056

loc_10a1:
        lda $01be
        asl
        tay
        lda $1713,y
        sta $fd
        lda $1714,y
        sta $fe
        lda #$00
        sta $0196,x
        ldy $017b,x
        sta $0199,x
        lda #$03
        sta $01b8,x

loc_10c0:
        lda ($fd),y
        sta $f8
        and #$f0
        cmp #$f0
        bne loc_10da
        lda #$01
        sta $01d7,x
        inc $017b,x
        iny
        lda ($fd),y
        sta $f8
        jmp loc_113a

loc_10da:
        lda #$00
        sta $01d7,x
        lda $f8
        and #$f0
        cmp #$e0
        bne loc_1113
        lda $f8
        and #$01
        clc