History
- Released
- 24 July 1987
- Code
- Mog
- Group
- Scouse Cracking Group — United Kingdom, founded July 1986
CSDb confirms Mog as the coder for this intro, released on 24 July 1987 — just over a year after the Scouse Cracking Group's founding in July 1986. The group name unmistakably identifies their Liverpool origin, "Scouse" being the local dialect and identity of Liverpudlians. No music credits are listed, indicating a code-only production. SCG's other ranked entry, #116 SCG-03 from May 1988, was coded by Chunk — showing the group had at least two active programmers. The regional pride in the group name was unusual for the era; most British groups avoided geographic specificity, preferring grandiose or intimidating names. Comments on intros.c64.org from DR.J and Mog themselves — both SCG members — confirm the group's continued identification with their work decades later. SCG's two ranked entries demonstrate consistent popularity despite a technically modest approach.
Sources: CSDb · intros.c64.org
// ============================================ // output - Part 1 of 2 // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:31 // 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: $0c98 (3224) // IRQ handler: $0e79 (irq_0e79) // IRQ handler: $ea31 (irq_ea31) // IRQ handler: $0e9a (irq_0e9a) // IRQ handler: $0eb6 (irq_0eb6) // IRQ handler: $0eef (irq_0eef) // // Code: 781 bytes, Data: 62707 bytes // Labels: 112, Subroutines: 5 // // Cross-references: all OK // ============================================ // --- Region $0c98-$0de3 --- .pc = $0c98 "main_0c98" main_0c98: sei jsr $e544 lda #$7f sta $dc0d lda $dc0d lda #$79 sta $0314 lda #$0e sta $0315 lda #$01 sta $d01a sta $d019 lda $d011 and #$7f sta $d011 lda #$62 sta $d012 lda #$02 sta $d022 lda #$07 sta $d023 ldy #$00 loc_0ccf: lda txt_09f8,y sta $05e0,y lda $0af8,y sta $06e0,y lda $0bf8,y sta $07e0,y lda #$01 sta $d800,y sta $d8e0,y lda #$09 sta $d900,y sta $da00,y sta $db00,y iny bne loc_0ccf lda #$00 sta $f8 lda #$d0 sta $f9 lda $02a6 bne loc_0d11 lda #$6f sta $fa lda #$0e sta $fb ldx #$04 jsr sub_0e11 loc_0d11: lda $d030 cmp #$ff beq loc_0d25 lda #$74 sta $fa lda #$0e sta $fb ldx #$28 jsr sub_0e11 loc_0d25: ldx #$27 loc_0d27: lda chr_0e1f,x and #$3f sta $0450,x clc adc #$40 sta $0478,x lda $0e47,x and #$3f sta $0400,x clc adc #$40 sta $0428,x dex bpl loc_0d27 lda #$33 sta $01 loc_0d4a: ldx #$00 ldy #$00 loc_0d4e: lda ($f8),y .label smc_0d51 = * + 1 sta dat_0800,x // !SMC: modified by $0d83, $fd17 inx lda #$00 .label smc_0d57 = * + 1 sta dat_0800,x // !SMC: modified by $0d86, $fd1a inx iny cpy #$04 bne loc_0d4e ldx #$00 loc_0d61: lda ($f8),y .label smc_0d64 = * + 1 sta $0a00,x // !SMC: modified by $0d97, $fd2b inx lda #$00 .label smc_0d6a = * + 1 sta $0a00,x // !SMC: modified by $0d9a, $fd2e inx iny cpy #$08 bne loc_0d61 clc lda $f8 adc #$08 sta $f8 bcc loc_0d7d inc $f9 loc_0d7d: