← #838 Top 1024 #840 →
#839

No Frills International [NFI] 02

No Frills International [NFI]

570 lines of code

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

History

Released
29 July 1988
Code
Rad Man
Group
No Frills International — using Eagle Soft Incorporated intro; ESI founded 1982, Canada

CSDb identifies this as a "Generic ESI Intro (Top Slow)" — a pre-made intro template from Eagle Soft Incorporated, reused by No Frills International (NFI) for their own releases. Rad Man of ESI coded the original intro, which was released on 29 July 1988. ESI was founded in 1982 in Canada and was one of the earliest North American cracking groups, known for distributing generic intro frameworks that other groups could adopt. NFI, catalogued elsewhere in this collection with #214 NFI 03, used the short tag "NFI" and was itself an internationally oriented group. No SID music is associated with this release on CSDb. The practice of reusing another group's intro code — whether by arrangement or simply by copying — was widespread in the scene, particularly among groups that lacked dedicated intro coders.

Sources: CSDb

nfi-02.asm 570 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:10
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0801  End: $ce2f  (50735 bytes)
// Crunched with Exomizer v2/v3 — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $cd00 (52480)
// IRQ handler:  $c950 (irq_c950)
//
// Code: 519 bytes, Data: 50216 bytes
// Labels: 61, 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 $bcd0-$bcd0 ---
.pc = $bcd0 "Segment $bcd0"
        brk

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

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 txt_cb00
        sta $d021
        sta $d020
        ldy #$00
        ldx #$01
        nop
        nop
        nop
loop2:
        lda txt_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
        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 $c9db
skip2:
        lda #$50
        sta $02
        lda #$cb
        sta $03
        jmp $c9be
skip3:
        ldx #$00
loop6:
        lda $cb30,x
        sta $cb08,x
        inx