#218

Hotline [HTL] 60

Name: Hotline [HTL] 60
Availability: InStock
Author: Hotline

Hotline [HTL]

1.650 lines of code

RasterbarsRSTRMusicSIDScrollerSCRL

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

History

Released: 3 September 1988
Code: The Silver Surfer
Music: Jeroen Tel — "S-Express" (ripped)
Charset: Tob
Group: Hotline — Netherlands, founded August 1986

Hotline's sixtieth numbered intro — the highest number in the entire ranking, testifying to the Dutch group's extraordinary production volume. The Silver Surfer coded while Jeroen Tel's "S-Express" provides the music. Tob contributed the charset. Released on 3 September 1988, just two months after the group's second anniversary. Sixty intros in approximately two years means Hotline was producing roughly one new intro every twelve days — a pace unmatched by any other group in this collection. The HVSC preserves Tel's composition, which also appears in multiple DCS intros. Doc Snyder's page documents the complete numbered Hotline sequence. Silver Surfer's coding output — handling dozens of numbered intros — makes him one of the most productive individual programmers in crack intro history.

Sources: CSDb · docsnyderspage

htl-60.asm 1.650 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: $07ee  End: $1dbf  (5586 bytes)
// Crunched with Beta Dynamic v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1870 (6256)
// IRQ handler:  $187c (irq_187c)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1622 bytes, Data: 3964 bytes
// Labels: 205, Subroutines: 12
//
// Cross-references: all OK
// ============================================


// --- Region $0a16-$0a1d ---
.pc = $0a16 "Program $0a16"
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL
        .byte $ff,$ff,$ff                           // isc $ffff,x // ILLEGAL

dat_0a1c:
        // === Fill data (2 bytes, $0a1c-$0a1d) ===
        .byte $ff,$ff                               // ..

// --- Region $10d4-$10d7 ---
.pc = $10d4 "loc_10d4"

loc_10d4:
        ora ($ff,x)
        brk

dat_10d7:
        .byte $13                                   // .

// --- Region $10f0-$138d ---
.pc = $10f0 "sub_10f0"

// Referenced by: jsr from $1117; jmp from $1127
sub_10f0: {
        lda #$ff
        sta $109e
        sta $109f
        sta $10a0
        lda #$00
        ldx #$02
loop:
        sta $1046,x
        sta $1049,x
        sta $104c,x
        sta $1649,x
        dex
        bpl loop
        sta $10cb
        rts
}
// Referenced by: jsr from $18ec

sub_1112:
        lda #$01
        sta $10cb
        jsr sub_10f0
        rts

dat_111b:
        .byte $60                                   // `

loc_111c:
        lda $10cb
        cmp #$02
        beq loc_112a
        cmp #$01
        bne loc_112b
        jmp sub_10f0

loc_112a:
        rts

loc_112b:
        inc $109e
        inc $109f
        inc $10a0
        ldx #$02
        dec $10ca
        bpl loc_1141
        lda $1042
        sta $10ca

loc_1141:
        stx $48
        lda $1043,x
        sta $177d
        tay
        lda $10ca
        cmp $1042
        bne loc_1166
        lda $15d3,x
        sta smc_116d                                // SMC: modifies $116d
        lda $15d6,x
        sta smc_116e                                // SMC: modifies $116e
        dec $104c,x
        bmi loc_1169
        jmp loc_12c8

loc_1166:
        jmp loc_12f6

loc_1169:
        ldy $1046,x
.label smc_116d = * + 1
.label smc_116e = * + 2
        lda $10cc,y                                 // !SMC: modified by $1155, $115b
        cmp #$ff
        bne loc_1181
        lda #$00
        sta $104c,x
        sta $1046,x
        sta $1049,x
        jmp loc_1169

loc_1181:
        sta $10bf
        cmp #$80
        bcc loc_1193
        and #$1f
        sta $1779,x
        inc $1046,x
        jmp loc_1169

loc_1193:
        lda $10bf
        cmp #$40
        bcc loc_11a5
        and #$3f
        sta dat_10d7,x
        inc $1046,x
        jmp loc_1169

loc_11a5:
        lda $10bf
        asl
        tay
        lda $15d9,y
        sta $46
        lda $15da,y