← #626 Top 1024 #628 →
#627

Nato 04

Nato

741 lines of code

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

History

Released
July 1989
Group
NATO — United Kingdom, founded January 1988

The fourth numbered intro from NATO, a British cracking group whose name stood for "Nobodies Are Taking Over." Released in July 1989, this intro carries no individual code or music credits on CSDb. NATO were founded in January 1988 in the United Kingdom and maintained active trading contacts with both European and American groups. Their other ranked entries — #84 NATO-03 and #330 NATO-01 — feature work by coder Zero and SID musician Jeroen Tel, suggesting a consistent creative team across multiple intros. Doc Snyder's page documents that the group's intro #02 was used to release a crack of "Wizard Warz" by Zero on 3 March 1988. NATO appeared frequently in greeting lists from prominent groups including Action, Fairlight, and Ikari. Their scrolltexts also mention connections to NFI and NFL, indicating a respected position within the late-1980s British and wider European scene.

Sources: CSDb · docsnyderspage

nato-04.asm 741 lines
// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:25
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $ffff  (63488 bytes)
// Crunched with Exomizer v2/v3 (with relocation) — depacked by emulation
// Packer entry: $0810 (via BASIC SYS 2064)
// Entry point:  $0801 (2049)
//
// Code: 554 bytes, Data: 62934 bytes
// Labels: 78, Subroutines: 5
//
// Cross-references: all OK
// ============================================


// --- Region $0801-$0820 ---
.pc = $0801 "main_0801"

main_0801:
        jsr sub_08fe
        stx $d011
        sei
        .byte $e7,$01                               // isc $01 // ILLEGAL

loc_080a:
        lda $f720,x
        sta $ff00,x
        inx
        bne loc_080a
        .byte $cf,$0f,$08                           // dcp $080f // ILLEGAL
        dec $080c
        bne loc_080a
        .byte $c7,$01                               // dcp $01 // ILLEGAL
        jmp loc_1000

dat_0820:
        .byte $20                                   //  

// --- Region $08b3-$08de ---
.pc = $08b3 "loc_08b3"

loc_08b3:
        .byte $af,$12,$d0                           // lax $d012 // ILLEGAL

loc_08b6:
        cmp #$43
        bne loc_08b3
        lda #$20
        sta $d016
        ldx $dc01
        cpx #$ef
        beq loc_08c9
        jmp loc_ea81

loc_08c9:
        jsr sub_10d2
        .byte $4f,$11,$d0                           // sre $d011 // ILLEGAL
        sei
        .byte $e7,$01                               // isc $01 // ILLEGAL

loc_08d2:
        lda $10be,x
        sta $0100,x
        inx
        bne loc_08d2
        jmp ($10b6)

dat_08de:
        .byte $b9                                   // .

// --- Region $08fe-$0915 ---
.pc = $08fe "sub_08fe"
// Referenced by: jsr from $0801

sub_08fe:
        jsr $fda3
        jsr $fd15
        jsr $ff5b
        jsr $e3bf
        tax
        tay
        lda #$5b
        sta $fc
        lda #$13
        sta $fd
        rts

dat_0915:
        .byte $a0                                   // .

// --- Region $0949-$09ad ---
.pc = $0949 "loc_0949"

loc_0949:
        sei
        lda #$33
        sta $01
        lda #$d8
        sta $fc
        ldy #$00
        sty $fb
        dec $2b
        ldx #$07

loc_095a:
        lda ($fb),y
        sta ($2b),y
        dey
        bne loc_095a
        inc $fc
        inc $2c
        dex
        bpl loc_095a
        lda #$5c
        sta $fa
        lda #$08
        sta $fc
        lda #$0c
        sta $fe

loc_0974:
        ldy #$07
        ldx #$0f

loc_0978:
        lda ($fb),y
        sta $10,x
        dex
        sta $10,x
        dex
        dey
        bpl loc_0978
        ldy #$07

loc_0985:
        ldx $10,y
        txa
        sta ($fb),y
        ldx $18,y
        txa
        sta ($fd),y
        dey
        bpl loc_0985
        lda $fb
        clc
        adc #$08