History
- Released
- 21 February 1990
- Code
- Got, Eid
- Music
- Rock (Sami Seppa) — "The Deadline"
- Graphics
- Simon Nicol
- Group
- Transcom — France, founded 1988
A dual-coder intro from France's most active C64 cracking group — Got and Eid shared programming duties while Rock (Sami Seppa) contributed "The Deadline," a Finnish composition preserved in the HVSC. Simon Nicol provided the graphics. Transcom was founded in France in 1988 and maintained a notably international roster despite France's smaller scene presence. The Finnish-French connection illustrates how BBS networks dissolved geographic barriers by 1990. Doc Snyder's page documents Transcom's output in detail. Released on 21 February 1990, this came during the period when Transcom was at peak activity, producing multiple numbered intros. The collaboration between two coders suggests either a complex intro requiring shared workload or a mentoring arrangement common in groups with members of varying skill levels.
Sources: CSDb · docsnyderspage
// ============================================ // output - Disassembled Source // ============================================ // KickAssembler syntax // Generated by Restore 64 v0.2.1 alpha build 298, 2026-04-01 10:59:33 // 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: $1000 (4096) // IRQ handler: $10ca (irq_10ca) // IRQ handler: $11b2 (irq_11b2) // IRQ handler: $11e0 (irq_11e0) // // Code: 2482 bytes, Data: 61006 bytes // Labels: 524, Subroutines: 7 // // Cross-references: all OK // ============================================ // --- Region $0fdd-$1081 --- .pc = $0fdd "loc_0fdd" loc_0fdd: bcc loc_1049 ldx $44 tax lda #$50 ror tax eor ($6a),y txs bvc loc_1055 adc #$41 and #$95 rti dat_0ff0: .byte $1a // . loc_0ff1: eor $54,x ora #$95 bvc loc_0ffd bvc loc_1049 ora ($41,x) rti dat_0ffc: .byte $00 // . loc_0ffd: eor $00,x .label main_1000 = * + 1 .byte $54,$a2 // nop $a2,x // ILLEGAL brk stx $d020 stx $d021 stx dat_0800 loc_100b: lda #$0b sta $d800,x sta $d890,x lda #$0f sta $d930,x lda #$00 sta $0400,x sta $0500,x sta $0600,x sta $0700,x lda #$0f sta $da58,x sta dat_db00,x inx bne loc_100b stx $d01b ldx #$07 lda #$0f loc_1038: sta $d027,x dex bpl loc_1038 stx $d015 stx $d01c lda #$0c ldx #$01 .label loc_1049 = * + 1 sta $d025 stx $d026 jsr sub_1800 jsr sub_1097 loc_1054: .label loc_1055 = * + 1 ldx $dc01 inx beq loc_1054 sei jsr $fda3 jsr $ff5b ldx #$1f loc_1063: lda $fd30,x sta $0314,x lda dat_1081,x sta $0340,x dex bpl loc_1063 inx stx $d020 stx $d021 lda #$37 sta $01 sei jmp $0340 dat_1081: .byte $a2 // . // --- Region $1097-$1333 --- .pc = $1097 "sub_1097" // Referenced by: jsr from $1051 sub_1097: { sei loop: lda $d012 cmp #$10 bne loop lda $d011 bmi loop lda #$7f sta $dc0d lda $dc0d lda #$01 sta $d01a lda #$05 sta $d012 lda $d011 and #$7f sta $d011 lda #$ca ldx #$10 sta $0314 stx $0315