History
- Released
- February 1989
- Code
- The Edge, Jack Ready
- Music
- Stefan Hartwig
- Group
- Lazer — Austria, founded July 1988
This February 1989 intro from Lazer features code by The Edge and Jack Ready, with music by Stefan Hartwig. The SID tune — "Lazer Intro #4" — is a purpose-composed piece preserved in the HVSC, indicating a close working relationship between the musician and the group. Lazer was an Austrian group founded in July 1988, operating under the abbreviation LZR with the self-proclaimed motto "Absolutely No.1 in Austria!" Doc Snyder's page documents seven Lazer intros, revealing a roster that included coders The Mysterious Art, Dux, and Count Hadik alongside musicians such as JCH, Charles Deenen, and Deek. Another Lazer intro — #464 Lazer-01 — also appears in the rankings. Austria's C64 scene was smaller than those of neighboring Germany or Scandinavia, making Lazer's claim to national supremacy more defensible than similar boasts from groups in more crowded markets.
Sources: CSDb · docsnyderspage
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-11 21:35:53 // https://restore64.dev by datucker / Rabenauge // // Load address: $0800 End: $3fff (14336 bytes) // Crunched with Exomizer v2/v3 — depacked by emulation // Packer entry: $080b (via BASIC SYS 2059) // Entry point: $0840 (2112) // IRQ handler: $09f4 (irq_09f4) // IRQ handler: $0aa2 (irq_0aa2) // IRQ handler: $0dec (irq_0dec) // IRQ handler: $0b51 (irq_0b51) // // Code: 3106 bytes, Data: 11230 bytes // Labels: 359, Subroutines: 24 // // Verification: 4 line(s) auto-corrected to .byte for exact byte matching // // Cross-references: all OK // ============================================ // --- Region $0840-$085e --- .pc = $0840 "main_0840" main_0840: jsr $ff81 jsr sub_0f80 jsr sub_0900 lda #$00 sta $0800 sei jsr $fda3 jsr $fd15 jsr $ff5b sei jsr sub_0f80 jmp $fce2 // --- Region $0900-$0903 --- .pc = $0900 "sub_0900" // Referenced by: jsr from $0846 sub_0900: jmp loc_0931 dat_0903: .byte $00 // . // --- Region $0931-$0ef4 --- .pc = $0931 "loc_0931" loc_0931: jsr $e544 jsr sub_0e29 sei lda #$35 sta $01 lda #$00 jsr sub_0f00 lda #$37 sta $01 lda #$f4 ldy #$09 sta $0314 sty $0315 lda #$f1 sta $d01a sta $06f5 lda #$d7 sta $06f4 lda #$1b sta $d011 lda #$01 sta $06f8 sta $06fb sta $06fc lda #$00 sta $dc0e cli jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 ldx #$0d ldy #$00 loc_0988: lda $3480,x sta $3434,x lda $3490,y sta $3442,y txa pha tya pha jsr sub_0a68 pla tay pla tax iny dex bpl loc_0988 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 ldx #$2c ldy #$00 loc_09bc: jsr sub_0a6d jsr sub_09dd jsr sub_0a39 loc_09c5: lda $d012 bne loc_09c5 iny dex bne loc_09bc jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jsr sub_0a68 jmp loc_0a81 // Referenced by: jsr from $09bf sub_09dd: { tya pha txa pha ldy #$00 loop: lda $3480,y sta $3400,x inx iny cpy #$0e bne loop