← #619 Top 1024 #621 →
#620

Hotline [HTL] 09

Hotline [HTL]

1.082 lines of code

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

History

Released
1 December 1986
Code
The Mercenary Cracker
Group
Hotline — Netherlands, founded August 1986

CSDb catalogues this as Hotline Intro 09, released 1 December 1986 — just four months after the group's founding in August 1986. The Mercenary Cracker is credited for the code. No SID tunes are listed, suggesting the intro either used minimal sound or a non-SID audio approach. Hotline, based in the Netherlands with the slogan "Where cracking is an Art," were among the most prolific Dutch C64 cracking groups of the mid-to-late 1980s. Doc Snyder's page documents numerous Hotline intros with coders including The Mercenary Cracker, The Silver Surfer, BOD, Coco, and Softhunter. The group's extensive catalogue includes many other ranked entries such as #462 HTL-02. The December 1986 date places this among the earliest Hotline productions, from a period when the group was establishing its presence in the European trading networks. Comments on intros.c64.org from Rough and rambones confirm the intro's recognition.

Sources: CSDb · intros.c64.org · docsnyderspage

htl-09.asm 1.082 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:47
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $22ff  (6912 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $1700 (5888)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $112b (irq_112b)
//
// Code: 958 bytes, Data: 5954 bytes
// Labels: 122, Subroutines: 11
//
// Cross-references: all OK
// ============================================


// --- Region $1000-$1062 ---
.pc = $1000 "loc_1000"

loc_1000:
        lda #$00
        sta $c8
        sta $ca
        sta $d011
        ldx #$00

loc_100b:
        lda chr_1800,x
        sta $0400,x
        lda $1900,x
        sta $0500,x
        lda $1a00,x
        sta $0600,x
        lda $1b00,x
        sta $0700,x
        lda #$0f
        sta $d800,x
        sta $d900,x
        sta $d980,x
        lda #$00
        sta $da80,x
        sta $db00,x
        inx
        bne loc_100b
        sei
        jsr sub_119b
        lda #$2b
        ldy #$11
        sta $0314
        sty $0315
        lda #$1b
        sta $d011
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$13
        sta $d018
        cli
        jsr sub_1349
        jmp loc_106b

dat_1062:
        .byte $00                                   // .

// --- Region $106b-$1165 ---
.pc = $106b "loc_106b"

loc_106b:
        ldx #$00

loc_106d:
        ldy #$00

loc_106f:
        lda dat_1062,x
        sta $dab7,y
        iny
        cpy #$14
        bne loc_106f
        jsr sub_10b6
        inx
        cpx #$08
        bne loc_106d
        ldx #$00

loc_1084:
        ldy #$00

loc_1086:
        lda dat_1062,x
        sta $db48,y
        iny
        cpy #$28
        bne loc_1086
        jsr sub_10b6
        inx
        cpx #$07
        bne loc_1084

loc_1099:
        ldx #$00

loc_109b:
        ldy #$00

loc_109d:
        lda dat_1062,x
        sta $daf8,y
        iny
        cpy #$28
        bne loc_109d
        jsr sub_10b6
        inx
        cpx #$09
        bne loc_109b
        jsr $ffe4
        jmp loc_1099
// Referenced by: jsr from $107a, $1091, $10a8

sub_10b6:
        txa
        pha
        ldy #$50

loc_10ba:
        ldx #$00

loc_10bc:
        dex
        bne loc_10bc
        jsr $ffe4
        bne loc_10ca
        dey
        bne loc_10ba
        pla
        tax
        rts

loc_10ca:
        nop
        nop
        nop
        sei
        jsr $fda3