History
- Released
- 3 September 1988
- Group
- Transcom — France, founded 1988
Transcom's seventh numbered intro, released on 3 September 1988 — the same year the French group was founded. No individual credits for code, music, or graphics are listed on CSDb for this particular entry. Transcom operated from France, a country with a smaller but dedicated C64 cracking scene compared to the dominant Scandinavian and German circuits. Doc Snyder's page documents four Transcom intros, with credits on other entries going to coders Unknow, Eid, and Got, and musicians including Mike, Rock, and EVS. Two other Transcom intros appear in this collection: #62 TCOM-02 and #81 TCOM-08. That three Transcom entries rank among the top 250 speaks to the group's consistent quality. The September 1988 release date places this early in Transcom's output — the group would continue producing intros into the early 1990s.
Sources: CSDb · docsnyderspage · 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:53 // 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: $0c00 (3072) // // Code: 374 bytes, Data: 63114 bytes // Labels: 52, Subroutines: 5 // // Cross-references: all OK // ============================================ // --- Region $0c00-$0d78 --- .pc = $0c00 "main_0c00" main_0c00: sei lda #$33 sta $01 ldx #$08 ldy #$08 loc_0c09: lda $0c12 cmp #$d2 beq loc_0c3a lda $d000,x sta $0801,y lda $d004,x sta dat_0a00,y iny iny bne loc_0c26 dat_0c20: .byte $ee,$15,$0c,$ee,$1b,$0c // ...... loc_0c26: inx txa and #$03 bne loc_0c09 inx inx inx inx bne loc_0c09 inc $0c12 inc $0c18 bne loc_0c09 loc_0c3a: lda #$37 sta $01 ldx #$00 loc_0c40: lda #$20 sta $0400,x sta $0500,x sta $0600,x sta $0700,x lda #$09 sta $d8c8,x lda #$01 sta $dad0,x inx bne loc_0c40 stx $a2 stx $d023 ldy #$00 loc_0c62: ldx #$08 loc_0c64: asl $0d81 bcc loc_0c6e lda #$40 sta $04c8,y loc_0c6e: iny dex bne loc_0c64 inc $0c65 cpy #$f0 bne loc_0c62 jsr sub_0d35 lda #$12 sta $d018 loc_0c81: lda $d011 bmi loc_0c81 lda $d012 cmp #$50 bne loc_0c81 lda #$0f ldx #$52 jsr sub_0d09 lda #$0c ldx #$56 jsr sub_0d09 ldy $20 ldx #$58 loc_0c9f: tya and #$07 tay lda dat_0d79,y loc_0ca6: cpx $d012 bne loc_0ca6 sta $d022 inx inx iny cpx #$86 bne loc_0c9f lda #$0b ldx #$88 jsr sub_0d09 lda #$00 ldx #$8c jsr sub_0d09 lda #$0f ldx #$bc jsr sub_0d09 lda #$0c ldx #$c0 jsr sub_0d09 lda $a2 ora #$d0 sta $d016 lda #$0b ldx #$d4 jsr sub_0d09 lda #$00 ldx #$d8 jsr sub_0d09