← #262 Top 1024 #264 →
#263

Eagle Soft Incorporated [ESI] 08

Eagle Soft Incorporated [ESI]

892 lines of code

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

History

Released
September 1987
Group
Eagle Soft Incorporated — Canada, founded 1982

An Eagle Soft Incorporated crack intro used for the release of Mini Putt, dated 9 September 1987 in the scrolltext. Mitch Solomon coded the intro while the iconic eagle graphic — painted by Scorpio — dominates the display. Disassembly confirms the binary contains no SID register writes — the intro runs as a silent visual presentation. Doc Snyder's page preserves the full scrolltext, which takes competitive shots at rival group USSPE and sends greetings to NEPA, The Alliance, Triad, TTI, Fairlight, and supply group SOHO. The text references acquiring new Rush and Pink Floyd albums, reflecting the group's Canadian identity. ESI was founded in 1982 — one of the earliest cracking groups on the Commodore 64. This intro shares the same production team as the legendary #1 ESI-02 and the highly-ranked #7 ESI-09, all built around Scorpio's eagle artwork and Mitch's code.

Sources: docsnyderspage · intros.c64.org

esi-08.asm 892 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:19
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ffff  (63487 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $cad9 (51929)
// IRQ handler:  $c950 (irq_c950)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 799 bytes, Data: 62688 bytes
// Labels: 93, Subroutines: 3
//
// Verification: 5 line(s) auto-corrected to .byte for exact byte matching
//
// Cross-references: all OK
// ============================================


// --- Region $8dd0-$8dd0 ---
.pc = $8dd0 "Segment $8dd0"
        brk

// --- Region $a0d0-$a0d0 ---
.pc = $a0d0 "Segment $a0d0"
        brk

// --- Region $a9d0-$a9d0 ---
.pc = $a9d0 "Segment $a9d0"
        brk

// --- Region $bcd0-$bcd0 ---
.pc = $bcd0 "Segment $bcd0"
        brk

// --- Region $c900-$c942 ---
.pc = $c900 "sub_c900"
// Referenced by: jsr from $cafa, $fd66

sub_c900:
        sei
        lda #$7f
        sta $dc0d
        lda #$01
        sta $d01a
        lda #$1b
        sta $d011
        lda #$62
        sta $d012
        lda #$50
        sta $02
        lda #$cb
        sta $03
        lda #$07
        sta $04
        lda #$50
        sta $05
        lda #$cd
        sta $06
        lda #$50
        sta $0314
        lda #$c9
        sta $0315
        lda #$07
        sta $07
        lda #$04
        sta $02aa
        lda #$c1
        sta $0318
        cli
        rts

// --- Region $c950-$cb01 ---
.pc = $c950 "irq_c950"
irq_c950: {
        ldy #$08
        jsr sub_cad5
        lda $04
        sta $d016
        lda #$15
        sta $d018
        ldy #$00
        ldx #$01
        lda #$6a
loop1:
        cmp $d012
        bne loop1
        ldy #$08
        jsr sub_cad5
        nop
        lda dat_cb00
        sta $d021
        sta $d020
        ldy #$00
        ldx #$01
        nop
        nop
        nop
loop2:
        lda dat_cb00,x
        sta $d021
        sta $d020
        ldy $cb18,x
loop3:
        dey
        bne loop3
        inx
        cpx #$18
        bne loop2
        nop
        nop
        lda #$00
        sta $d020
        sta $d021
        lda #$07
        sta $d016
        dec $04
        dec $04
        lda $04
        cmp #$ff
        bne skip3
        lda #$07
        sta $04
        ldx #$00
loop4:
        lda $0541,x
        sta $0540,x
        inx
        cpx #$27
        bne loop4
        ldy #$00
        lda ($02),y
        beq skip2
        ora #$80
        sta $0567
        inc $02
        bne skip1
        inc $03
skip1:
        jmp $c9dd
skip2:
        lda #$50
        sta $02
        lda #$cb
        sta $03
        jmp $c9c0