#888

Gulas 01

Name: Gulas 01
Availability: InStock
Author: Gulas

Gulas

1.807 lines of code

RasterbarsRSTRMusicSIDScrollerSCRLSpritesSPRTBitmapBMAP

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

History

Released: 1993
Code: Taplo
Music: Griff (Peter Varga) — "Gulas Intro"
Group: Gulas — Hungary

A crack intro from the Hungarian group Gulas, released in 1993. Taplo handled the code while Griff (Peter Varga) composed an original SID tune titled "Gulas Intro," preserved in the HVSC at /MUSICIANS/G/Griff/Gulas_Intro.sid. Griff was one of Hungary's most prolific SID composers, contributing music to numerous groups including Ikari+Talent and various Hungarian crews. CSDb catalogues at least six distinct Gulas crack intros under the abbreviation GLS, indicating the group maintained a steady release schedule. The group is listed on CSDb as based in Hungary. Limited documentation survives beyond the CSDb entries themselves — no Demozoo, Doc Snyder, or diskmag coverage has been identified. This scarcity is typical of smaller national-scene groups that operated primarily within their local trading networks rather than competing on the international stage.

Sources: CSDb

gulas-01.asm 1.807 lines

// ============================================
// output - Part 1 of 2
// ============================================
// KickAssembler syntax
// Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:46
// https://restore64.dev by datucker / Rabenauge
//
// Load address: $0700  End: $d030  (51505 bytes)
// Crunched with Cruncher AB — depacked by emulation
// Packer entry: $080b (via BASIC SYS 2059)
// Entry point:  $0840 (2112)
// IRQ handler:  $ea31 (irq_ea31)
// IRQ handler:  $1018 (loc_1018)
//
// Code: 1240 bytes, Data: 50265 bytes
// Labels: 154, Subroutines: 9
//
// Cross-references: all OK
// ============================================


// --- Region $0840-$0930 ---
.pc = $0840 "main_0840"

main_0840:
        sei

loc_0841:
        ldx $d012
        bne loc_0841
        stx $d011
        jmp loc_0850

dat_084c:
        .byte $ea,$ea,$ea,$ea                       // ....

loc_0850:
        lda #$0b
        sta $d020
        sta $d021
        txa
        jsr $e536
        ldx #$4f

loc_085e:
        lda $09ee,x
        sta $0748,x
        dex
        bpl loc_085e
        ldx #$27

loc_0869:
        lda #$0f
        sta $db48,x
        lda #$01
        sta $db70,x
        dex
        bpl loc_0869
        lda #$0b
        ldx #$00

loc_087a:
        sta $0400,x
        sta $0500,x
        sta $0600,x
        sta $0648,x
        inx
        bne loc_087a
        stx $02
        stx $05
        stx $06
        clc
        jsr sub_090a
        jsr sub_1048

loc_0896:
        lda #$da

loc_0898:
        cmp $d012
        bne loc_0898
        ldx #$07

loc_089f:
        dex
        bpl loc_089f
        nop
        lda $d011
        and #$1f
        sta $d011
        lda #$16
        sta $d018
        lda #$f1

loc_08b2:
        cmp $d012
        bne loc_08b2
        lda $02
        sta $d016

loc_08bc:
        ldx $d012
        inx
        bne loc_08bc
        lda #$3b
        sta $d011
        lda #$18
        sta $d018
        lda #$08
        sta $d016
        lda $06
        eor #$01
        sta $06
        beq loc_08ee
        ldx $05
        inc $05
        lda $098c,x
        bpl loc_08e6
        ldx #$00
        stx $05

loc_08e6:
        ldy #$26

loc_08e8:
        sta $dbc0,y
        dey
        bpl loc_08e8

loc_08ee:
        lda $02
        sec
        sbc #$02
        and #$07
        sta $02
        bcs loc_0920
        ldx #$00

loc_08fb:
        lda $07c1,x
        sta $07c0,x
        inx
        cpx #$26
        bne loc_08fb
        lda ($dd,x)
        bne loc_0917
// Referenced by: jsr from $0890

sub_090a:
        ldx #$1b