#126

Public Enemy No. 1 02

Public Enemy No. 1

1.872 lines of code

RasterbarsRSTRScrollerSCRLBitmapBMAP

History

Released
8 October 1988
Code
Ironfist
Music
Laxity (Thomas E. Petersen) — "Musique"
Group
Public Enemy No. 1 — United Kingdom, founded 1988

Ironfist coded while Laxity contributed "Musique" — a pairing that also produced intros for #55 Zenith. Ironfist was one of the scene's most versatile contributors, coding for multiple British groups during 1988. Public Enemy No. 1 was a UK group founded in 1988, their provocative name inspired by the American hip-hop group. Laxity's "Musique" is preserved in the HVSC. Released on 8 October 1988, this came during the intensely competitive autumn when British groups were releasing at maximum pace. The Ironfist-Laxity combination represents one of the most reliable coder-musician partnerships in the UK scene — both were prolific enough to serve multiple groups while maintaining consistent quality.

Sources: CSDb

pe1-02.asm 1.872 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:29
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $dbff  (54528 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $1a00 (6656)
// IRQ handler:  $1a30 (irq_1a30)
// IRQ handler:  $1a5a (irq_1a5a)
// IRQ handler:  $1a96 (irq_1a96)
// IRQ handler:  $1d86 (irq_1d86)
// IRQ handler:  $1d30 (irq_1d30)
// IRQ handler:  $ea31 (irq_ea31)
//
// Code: 1188 bytes, Data: 53340 bytes
// Labels: 167, Subroutines: 13
//
// Cross-references: all OK
// ============================================


// --- Region $1868-$186f ---
.pc = $1868 "Segment $1868"
        eor ($08,x)
        .byte $14,$01                               // nop $01,x // ILLEGAL
        .byte $83,$20                               // sax ($20,x) // ILLEGAL

dat_186e:
        .byte $0c,$81                               // ..

// --- Region $1a00-$1ad6 ---
.pc = $1a00 "main_1a00"

main_1a00:
        jsr sub_1b00
        sei
        ldx #$00
        stx $dc0e
        inx
        stx $d019
        stx $d01a
        lda #$1b
        sta $d011
        lda #$00
        sta $d012
        lda #$30
        sta $0314
        lda #$1a
        sta $0315
        cli
        jmp loc_1be0

dat_1a28:
        .fill 8, $ea

irq_1a30:
        lda #$1b
        sta $d011
        lda #$18
        sta $d016
        lda #$00
        sta $d020
        sta $d021
        jsr sub_1fe0
        lda #$28
        sta $d012
        lda #$5a
        sta $0314
        lda #$1a
        sta $0315
        rol $d019
        jmp $febc

irq_1a5a:
        lda #$19
        sta $d018
        lda $0a
        sta $d016
        jsr sub_2000
        ldx #$05

loc_1a69:
        ldy #$23

loc_1a6b:
        dey
        bne loc_1a6b
        dex
        bne loc_1a69
        lda #$0f
        sta $d121
        lda #$00
        sta $d120
        jsr sub_c003
        lda $05
        clc
        adc #$7a
        sta $d012
        lda #$96
        sta $0314
        lda #$1a
        sta $0315
        rol $d019
        jmp $febc

irq_1a96:
        lda #$00
        sta $d020
        sta $d021
        jsr sub_2037
        ldx #$05

loc_1aa3:
        dex
        bne loc_1aa3
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        nop
        lda #$12
        sta $d018
        lda #$1b
        sta $d011
        sei
        lda #$aa
        sta $d012
        lda #$86
        sta $0314
        lda #$1d
        sta $0315
        rol $d019
        jmp $febc

dat_1ad6: