#824

Newlook 01

Newlook

632 lines of code

SpritesSPRT

History

Group
Newlook -- Norway

A crack intro from Newlook (abbreviated NWL), a Norwegian cracking group catalogued on CSDb with group ID 1958. CSDb documents at least six distinct Newlook productions including multiple crack intros, a disk renamer, and an "Intro Designer II" tool -- the latter indicating the group developed reusable frameworks for generating crack intros. The associated CSDb scener is listed as Swedish, hinting at Scandinavian cross-border membership typical of the tightly interconnected Nordic scene. No individual credits for code, graphics, or music are confirmed for this particular intro. The group attracted enough scene attention that a release titled "Hellmates vs. Newlook" and a "Letter to Newlook" both appear on CSDb, indicating rivalries and correspondence characteristic of the era's inter-group dynamics. Doc Snyder's page, Demozoo, and other archives return no results for Newlook, leaving CSDb as the sole documentation source. This entry appears alongside #614 newlook-03 in the collection.

Sources: CSDb Group · intros.c64.org

newlook-01.asm 632 lines
// ============================================
// output - Disassembled Source
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:36:00
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0800  End: $13ff  (3072 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080d (via BASIC SYS 2061)
// Entry point:  $0f00 (3840)
// IRQ handler:  $10a4 (irq_10a4)
// IRQ handler:  $ea31 (loc_ea31)
//
// Code: 528 bytes, Data: 2544 bytes
// Labels: 75, Subroutines: 6
//
// Cross-references: all OK
// ============================================


// --- Region $0f00-$0fab ---
.pc = $0f00 "main_0f00"

main_0f00:
        jsr sub_0fd8
        jsr sub_1066
        lda #$13
        sta $d018
        ldx #$00

loc_0f0d:
        lda dat_0fab,x
        sta $d000,x
        inx
        cpx #$11
        bne loc_0f0d
        ldx #$00

loc_0f1a:
        lda $0fbc,x
        sta $d01b,x
        inx
        cpx #$14
        bne loc_0f1a
        ldx #$00

loc_0f27:
        lda txt_0fd0,x
        sta $07f8,x
        inx
        cpx #$07
        bne loc_0f27
        lda #$7f
        sta $d015
        sta $d017
        sta $d01d

loc_0f3d:
        ldx #$00

loc_0f3f:
        lda $0a00,x
        sta $0d00,x
        lda $0b00,x
        sta $0e00,x
        jsr sub_0f99
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        bne loc_0f3f
        ldx #$00

loc_0f5b:
        txa
        jsr sub_0f99
        tax
        inx
        bne loc_0f5b
        ldx #$00

loc_0f65:
        lda $0b80,x
        sta $0d00,x
        lda $0c80,x
        sta $0e00,x
        jsr sub_0f99
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        inx
        bne loc_0f65
        ldx #$00

loc_0f81:
        txa
        jsr sub_0f99
        tax
        inx
        bne loc_0f81
        jmp loc_0f3d

loc_0f8c:
        txa
        ldx #$00

loc_0f8f:
        sta $d027,x
        inx
        cpx #$07
        bne loc_0f8f
        tax
        rts
// Referenced by: jsr from $0f4b, $0f5c, $0f71, $0f82

sub_0f99:
        pha
        jsr $ffe4
        beq loc_0fa2
        jmp loc_11bf

loc_0fa2:
        pla
        ldy #$00

loc_0fa5:
        iny
        cpy #$28
        bne loc_0fa5
        rts

dat_0fab:
        .byte $19                                   // .

// --- Region $0fd8-$0fe7 ---
.pc = $0fd8 "sub_0fd8"
// Referenced by: jsr from $0f00

sub_0fd8: