← #329 Top 1024 #331 →
#330

Nato 01

Nato

956 lines of code

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

History

Released
March 1989
Charset
801 DC
Group
NATO — United Kingdom, founded 1 January 1988

This NATO crack intro from March 1989 is catalogued on CSDb as release #60377 under the name "NATO Intro 03." The only credited contributor is 801 DC, who created the charset. No coder or musician is named on CSDb. Doc Snyder's page lists it as NATO Crack Intro #01 and confirms only the charset credit. The scrolltext identifies the crack-and-train work as performed by Megasnail of NATO and mentions that Nosah, formerly of DCS, had joined the group. NATO — whose tagline read "Nobodies Are Taking Over" — was a UK-based cracking group founded on 1 January 1988. They were active participants in the European trading network, with their greetings reaching groups like Ikari, NEC, and Triad. Despite limited documentation of individual contributors for this particular intro, NATO maintained a visible presence in the late 1980s scene, as evidenced by their appearance in greetings lists from numerous contemporary groups.

Sources: CSDb · docsnyderspage

nato-01.asm 956 lines
// ============================================
// output - Part 1 of 3
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:32
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $ffff  (63744 bytes)
// Crunched with Exomizer — depacked by emulation
// Packer entry: $082a (via BASIC SYS 2090)
// Entry point:  $11b6 (4534)
//
// Code: 426 bytes, Data: 63318 bytes
// Labels: 89, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0b78-$0bdb ---
.pc = $0b78 "loc_0b78"

loc_0b78:
        jsr sub_0ee7
        sei
        ldx #$ff
        txs
        inx
        stx $d011
        jsr sub_17cd
        ldx #$00

loc_0b88:
        lda $0c00,x
        sta $0400,x
        lda $0d00,x
        sta $0500,x
        lda #$00
        sta $d800,x
        sta $d900,x
        sta $d928,x
        inx
        bne loc_0b88
        jsr sub_0bee
        ldy #$35
        ldx #$db
        sty $01
        ldy #$0b
        stx $fffe
        sty $fffb
        sty $ffff
        lda #$ed
        sta $fffa
        lda #$01
        stx $d01a
        stx $d019
        stx $dc0d
        dex
        stx $dc0e
        lda #$12
        sta $d018
        lda #$9b
        sta $d011
        cli
        bit $2c2c

loc_0bd8:
        jmp loc_0bd8

chr_0bdb:
        // === Charset data (1 bytes, $0bdb-$0bdb) ===
        .byte $85                                   // char 0 (partial)

// --- Region $0bee-$0bfe ---
.pc = $0bee "sub_0bee"
// Referenced by: jsr from $0ba2; branch from $0bfc

sub_0bee:
        lda $0e00,x
        sta $0600,x
        lda #$00
        sta $da00,x
        inx
        cpx #$58
        bne sub_0bee
        rts

// --- Region $0ee7-$0efc ---
.pc = $0ee7 "sub_0ee7"
// Referenced by: jsr from $0b78

sub_0ee7:
        ldy #$28

loc_0ee9:
        lda $0331,y
        sta $db20,y
        dey
        bpl loc_0ee9
        lda #$0c

loc_0ef4:
        iny
        sta $db98,y
        cpy #$28
        bne loc_0ef4
        rts

// --- Region $1190-$11e5 ---
.pc = $1190 "sub_1190"

// Referenced by: jsr from $17f5
sub_1190: {
        bit $2c2c
        ldy #$00
        ldx #$00
loop:
        lda $1150,y
        and #$0f
        sta $0302,x
        lda $1150,y
        and #$f0
        lsr
        lsr
        lsr
        lsr
        sta $0301,x
        inx
        inx
        iny
        cpx #$80
        bne loop
        sta $0300
        rts
}

main_11b6:
        sei
        ldy #$00
        sty $2b
        sty $2d
        lda #$18
        ldx #$c7
        sta $2e
        stx $2c
        ldx #$09

loc_11c7:
        lda ($2b),y
        sta $02