← #94 Top 1024 #96 →
#95

Hotline [HTL] 20

Hotline [HTL]

1.684 lines of code

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

History

Released
15 March 1989
Code
Bod
Music
EVS (Edwin van Santen) — "Big Fun Mix"
Graphics
Mantronix
Group
Hotline — Netherlands, founded August 1986

Hotline's 20th numbered intro — by March 1989 the Dutch group had been producing intros for nearly three years and showed no signs of slowing. Bod coded while EVS (Edwin van Santen) contributed "Big Fun Mix," preserved in the HVSC. Mantronix provided the graphics. Van Santen was a core contributor to the Dutch scene, his compositions appearing across Hotline, Ikari, and other groups. This is one of three Hotline intros in the top 100 — alongside #10 HTL-03 and #23 HTL-28 — demonstrating the group's consistent quality across their extensive catalogue. Doc Snyder's page documents the full numbered sequence. The group's August 1986 founding makes them one of the oldest Dutch cracking operations, predating even the golden age of 1987-1988.

Sources: CSDb · docsnyderspage

htl-20.asm 1.684 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: $284f  (8272 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1d00 (7424)
// IRQ handler:  $1e00 (irq_1e00)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1514 bytes, Data: 6758 bytes
// Labels: 202, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$100a ---
.pc = $1000 "sub_1000"
// Referenced by: jsr from $1d38

sub_1000:
        jmp loc_1006
// Referenced by: jsr from $1e42

sub_1003:
        jmp loc_1125

loc_1006:
        lda #$01
        sta $76
        rts

// --- Region $1125-$1488 ---
.pc = $1125 "loc_1125"

loc_1125:
        ldy $76
        bmi loc_1132
        beq loc_112e
        jmp loc_1442

loc_112e:
        sty $d418
        rts

loc_1132:
        ldx #$02

loc_1134:
        jsr sub_1147
        dex
        bpl loc_1134
        dec $0b
        bpl loc_1142
        lda $0c
        sta $0b

loc_1142:
        lda #$ff
        sta $77
        rts

// Referenced by: jsr from $1134
sub_1147: {
        lda $0b
        bne skip1
        dec $08,x
        bne skip1
        jmp loc_1320
skip1:
        lda $10,x
        bne skip2
        sta $61,x
        sta $64,x
        lda $3a,x
        bne skip2
        sta $6d,x
        sta $70,x
        sta $1f,x
        sta $52,x
        sta $4f,x
        sta $67,x
        ldy $19,x
        lda $15bc,y
        sta $37,x
        lda $15c0,y
        and #$0f
        sta $73,x
        lda $15be,y
        pha
        lda $15bf,y
        ldy $1549,x
        sta $d406,y
        pla
        sta $d405,y
skip2:
        inc $10,x
        lda $43,x
        bpl skip4
        ldy $46,x
        lda $1596,y
        sta $fe
        lda $1598,y
        sta $ff
        ldy $3d,x
        lda ($fe),y
        cmp #$ff
        beq skip3
        inc $3d,x
        sta $37,x
skip3:
        ldy $40,x
        lda ($fe),y
        cmp #$80
        beq skip4
        inc $40,x
        sta $1f,x
skip4:
        lda $1c,x
        clc
        adc $1f,x
        tay
        lda $43,x
        and #$08
        bne skip5
        tya
        adc $22,x
        adc $52,x
        tay
skip5:
        sty $ff
        lda dat_1489,y
        sta $58,x
        lda $14e9,y
        sta $5b,x
        lda #$00
        sta $78
        lda $4c,x
        beq skip6
        jsr sub_12e8
skip6:
        ldy $55,x
        beq skip7
        jsr sub_12d2
        lda $43,x