romdev-mcp 0.1.1

package/examples/atari2600/templates/music_demo.asm

@@ -0,0 +1,322 @@
+; ── music_demo.asm — Atari 2600 2-voice music scaffold ──────────────
+;
+; The 2600 has two TIA audio channels (AUDC0/AUDC1 + AUDF0/AUDF1 +
+; AUDV0/AUDV1). This scaffold plays a CONTINUOUS 2-voice chiptune —
+; voice 0 = melody, voice 1 = bass — by stepping through hand-authored
+; note tables in ROM. The tables ARE the song: source-visible chiptune,
+; no tracker, no toolchain magic.
+;
+; How it works (per frame, in VBLANK so we don't disturb the display):
+;   - For each voice, decrement its frames-left counter.
+;   - When the counter hits 0, advance the table index and load the
+;     next (AUDF, length_frames) pair. Wraps to start at end-of-table.
+;   - AUDC0 = AUDC1 = $04 (pure tone) is set once at boot.
+;
+; Display: minimal — blue background + a static "MUSIC" rendered via
+; the playfield (PF1/PF2 patterns) in a centered band. The point is the
+; AUDIO; the visuals exist just to prove the ROM booted.
+;
+; TIA AUDF freq (NTSC, AUDC=$04 pure tone): ~30kHz / 114 / (AUDF+1).
+;   F=$1F → ~ 65 Hz (low C-ish, bass)
+;   F=$17 → ~ 80 Hz
+;   F=$13 → ~100 Hz
+;   F=$0F → ~125 Hz
+;   F=$0B → ~165 Hz
+;   F=$09 → ~200 Hz
+;   F=$07 → ~250 Hz
+;   F=$05 → ~330 Hz
+; (Exact values don't matter — what matters is relative pitch.)
+
+  processor 6502
+  org $F000
+
+; ── TIA register equates ───────────────────────────────────────────
+VSYNC    = $00
+VBLANK   = $01
+WSYNC    = $02
+COLUP0   = $06
+COLUPF   = $08
+COLUBK   = $09
+PF0      = $0D
+PF1      = $0E
+PF2      = $0F
+CTRLPF   = $0A
+; TIA audio — both voices.
+AUDC0    = $15
+AUDC1    = $16
+AUDF0    = $17
+AUDF1    = $18
+AUDV0    = $19
+AUDV1    = $1A
+
+; ── Zero-page state ($80-$86 used by sibling scaffolds; we use $87+) ─
+MEL_IDX   = $87        ; current melody-table index (in bytes, *2)
+MEL_LEFT  = $88        ; frames remaining on current melody note
+BASS_IDX  = $89        ; current bass-table index (in bytes, *2)
+BASS_LEFT = $8A        ; frames remaining on current bass note
+FRAME     = $8B
+
+; Note-table layout: pairs of (AUDF, length_frames). End sentinel = $FF
+; in the AUDF slot. When we hit it, we wrap MEL_IDX/BASS_IDX back to 0.
+
+START:
+  SEI
+  CLD
+  LDX #$FF
+  TXS
+  LDA #0
+.clr:
+  STA $00,X
+  DEX
+  BNE .clr
+
+  ; ── Visual setup ──────────────────────────────────────────────────
+  LDA #$80           ; blue background
+  STA COLUBK
+  LDA #$0F           ; white foreground (playfield + player)
+  STA COLUPF
+  LDA #$0F
+  STA COLUP0
+  LDA #$01           ; CTRLPF: reflected playfield (symmetrical "MUSIC" band)
+  STA CTRLPF
+
+  ; ── Audio setup ───────────────────────────────────────────────────
+  LDA #$04           ; pure tone, both voices
+  STA AUDC0
+  STA AUDC1
+  LDA #$08           ; medium volume on both voices
+  STA AUDV0
+  STA AUDV1
+  ; Prime both voices so they play immediately (no silent first frame).
+  LDA #1
+  STA MEL_LEFT       ; will hit 0 on first tick and load melody[0]
+  STA BASS_LEFT
+
+MAIN:
+  INC FRAME
+
+  ; ── VSYNC (3 lines) ──────────────────────────────────────────────
+  LDA #2
+  STA VSYNC
+  STA WSYNC
+  STA WSYNC
+  STA WSYNC
+  LDA #0
+  STA VSYNC
+
+  ; ── VBLANK (37 lines) — all music updates happen here ────────────
+  LDA #2
+  STA VBLANK
+
+  ; --- Voice 0 (melody) ---
+  DEC MEL_LEFT
+  BNE .mel_done
+  ; Time for the next melody note. Read AUDF byte at melody_notes,MEL_IDX.
+  LDX MEL_IDX
+  LDA melody_notes,X
+  CMP #$FF
+  BNE .mel_play
+  ; Sentinel → wrap to start of table.
+  LDX #0
+  STX MEL_IDX
+  LDA melody_notes,X
+.mel_play:
+  STA AUDF0
+  INX
+  LDA melody_notes,X      ; length_frames
+  STA MEL_LEFT
+  INX
+  STX MEL_IDX
+.mel_done:
+
+  ; --- Voice 1 (bass) ---
+  DEC BASS_LEFT
+  BNE .bass_done
+  LDX BASS_IDX
+  LDA bass_notes,X
+  CMP #$FF
+  BNE .bass_play
+  LDX #0
+  STX BASS_IDX
+  LDA bass_notes,X
+.bass_play:
+  STA AUDF1
+  INX
+  LDA bass_notes,X
+  STA BASS_LEFT
+  INX
+  STX BASS_IDX
+.bass_done:
+
+  ; Burn the rest of VBLANK (37 lines total). We've used a handful for
+  ; the music update; pad with WSYNCs.
+  LDX #34
+.vb:
+  STA WSYNC
+  DEX
+  BNE .vb
+
+  LDA #0
+  STA VBLANK
+
+  ; ── Visible (192 lines) ──────────────────────────────────────────
+  ; Render a centered horizontal band that spells "MUSIC" via playfield
+  ; bits. Top 80 blank, middle 32 = letterforms (16 unique rows × 2),
+  ; bottom 80 blank. DO NOT touch audio regs during the visible region.
+  LDY #192
+.draw:
+  STA WSYNC
+  CPY #112
+  BCS .top_blank      ; Y >= 112 → top blank rows
+  CPY #80
+  BCC .bot_blank      ; Y < 80 → bottom blank rows
+  ; Y in [80,111] → render letters. Map to 0..15 (each letter row used twice).
+  TYA
+  SEC
+  SBC #80
+  LSR
+  TAX
+  LDA LETTERS_PF1,X
+  STA PF1
+  LDA LETTERS_PF2,X
+  STA PF2
+  JMP .row_done
+.top_blank:
+.bot_blank:
+  LDA #0
+  STA PF1
+  STA PF2
+.row_done:
+  DEY
+  BNE .draw
+
+  ; ── Overscan (30 lines) ─────────────────────────────────────────
+  LDA #2
+  STA VBLANK
+  ; Clear playfield so it doesn't bleed into overscan.
+  LDA #0
+  STA PF0
+  STA PF1
+  STA PF2
+  LDX #30
+.os:
+  STA WSYNC
+  DEX
+  BNE .os
+
+  JMP MAIN
+
+; ── Note tables (the song) ─────────────────────────────────────────
+; Format: pairs of (AUDF, length_frames). $FF AUDF = wrap sentinel.
+; 60 frames = 1 second on NTSC. ~15-frame notes ≈ 4 notes/sec.
+;
+; Melody (voice 0): simple ascending/descending hook, 32 notes.
+melody_notes:
+  ; bar 1 — ascending
+  .byte $0F, 12     ; C5-ish
+  .byte $0D, 12
+  .byte $0B, 12     ; E5-ish
+  .byte $09, 12     ; G5-ish
+  ; bar 2 — descending
+  .byte $0B, 12
+  .byte $0D, 12
+  .byte $0F, 12
+  .byte $11, 24     ; held A4-ish
+  ; bar 3 — call
+  .byte $0D, 12
+  .byte $0B, 12
+  .byte $09, 18
+  .byte $07, 18     ; high note
+  ; bar 4 — response
+  .byte $09, 12
+  .byte $0B, 12
+  .byte $0D, 24
+  .byte $0F, 24
+  ; bar 5 — repeat with variation
+  .byte $0F, 12
+  .byte $0B, 12
+  .byte $0D, 12
+  .byte $09, 12
+  ; bar 6
+  .byte $07, 18
+  .byte $09, 18
+  .byte $0B, 18
+  .byte $0F, 18
+  ; bar 7 — tail
+  .byte $0D, 24
+  .byte $0B, 24
+  .byte $0F, 24
+  .byte $11, 36
+  .byte $FF         ; wrap
+
+; Bass (voice 1): root-fifth ostinato underneath, 16 notes, slower.
+bass_notes:
+  .byte $1F, 30     ; low C
+  .byte $17, 30     ; G
+  .byte $1F, 30
+  .byte $17, 30
+  .byte $1B, 30     ; low E
+  .byte $13, 30     ; B
+  .byte $1B, 30
+  .byte $13, 30
+  .byte $1D, 30     ; low D
+  .byte $15, 30     ; A
+  .byte $1D, 30
+  .byte $15, 30
+  .byte $1F, 30
+  .byte $17, 30
+  .byte $1F, 30
+  .byte $17, 30
+  .byte $FF         ; wrap
+
+; ── "MUSIC" playfield patterns ──────────────────────────────────────
+; CTRLPF bit 0 (reflected mode) is set, so PF1+PF2 occupy the left half
+; of the screen and mirror to the right. We have 16 distinct rows; each
+; one is used for 2 scanlines (so the band is 32 lines tall).
+;
+; PF1 bits are written MSB-first to screen pixels 16..23 (8 bits).
+; PF2 bits are written LSB-first to screen pixels 24..31 (8 bits).
+; We populate a few rows with rough letterforms and leave others blank
+; for visual separation. The exact glyph isn't load-bearing — point is
+; "something visible on screen so we know the ROM booted".
+LETTERS_PF1:
+  .byte %00000000
+  .byte %11000011    ; M  /  U  /  S  ... approximated as bars
+  .byte %11100111
+  .byte %11010101
+  .byte %11001001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %11000001
+  .byte %01111110
+  .byte %00111100
+  .byte %00000000
+
+LETTERS_PF2:
+  .byte %00000000
+  .byte %11000011
+  .byte %11100111
+  .byte %10100101
+  .byte %10010001
+  .byte %10000001
+  .byte %10000001
+  .byte %01111110
+  .byte %00000000
+  .byte %01111110
+  .byte %10000001
+  .byte %10000001
+  .byte %10000001
+  .byte %10000001
+  .byte %10000001
+  .byte %00000000
+
+  ; ── Vector table ──────────────────────────────────────────────────
+  org $FFFA
+  .word START
+  .word START
+  .word START

package/examples/atari2600/templates/paddle.asm

@@ -0,0 +1,345 @@
+; ── paddle.asm — Atari 2600 Pong-style paddle scaffold ────────────────
+;
+; Two paddles (player 0 = left, player 1 = right), one ball (BL),
+; symmetric playfield with top + bottom walls. Joystick port A up/down
+; moves the left paddle; the right paddle does simple AI (chases ball Y).
+;
+; 2600 architecture refresher:
+;   - No frame buffer. Every scanline you write TIA registers describing
+;     what THAT line looks like, then STA WSYNC to advance.
+;   - 5 graphics objects: P0, P1, M0, M1, BL (+ PF tiles via PF0/1/2).
+;   - "Race the beam": the CPU has ~76 cycles between WSYNCs.
+;
+; This scaffold uses:
+;   P0  → left paddle  (8-pixel-tall vertical bar)
+;   P1  → right paddle (8-pixel-tall vertical bar)
+;   BL  → 2-pixel-wide ball
+;   PF0 → top + bottom playfield walls (drawn for the top + bottom rows)
+
+  processor 6502
+  org $F000
+
+VSYNC    = $00
+VBLANK   = $01
+WSYNC    = $02
+COLUP0   = $06
+COLUP1   = $07
+COLUPF   = $08
+COLUBK   = $09
+PF0      = $0D
+PF1      = $0E
+PF2      = $0F
+RESP0    = $10
+RESP1    = $11
+RESBL    = $14
+GRP0     = $1B
+GRP1     = $1C
+ENABL    = $1F
+HMP0     = $20
+HMP1     = $21
+HMBL     = $24
+HMOVE    = $2A
+CTRLPF   = $0A
+SWCHA    = $280
+; ── TIA audio (R41) ────────────────────────────────────────────────
+AUDC0    = $15
+AUDF0    = $17
+AUDV0    = $19
+
+; ── Zero-page state ──────────────────────────────────────────────────
+P0_Y     = $80        ; left paddle top scanline (16..168)
+P1_Y     = $81        ; right paddle top scanline
+BALL_X   = $82        ; ball horizontal (TIA pixel 0..159)
+BALL_Y   = $83        ; ball vertical (scanline)
+BALL_DX  = $84        ; +1 or -1
+BALL_DY  = $85        ; +1 or -1
+FRAME    = $86
+SFX_LEFT = $87        ; frames remaining on active sfx (0 = silent)
+
+START:
+  SEI
+  CLD
+  LDX #$FF
+  TXS
+  LDA #0
+.clr:
+  STA $00,X
+  DEX
+  BNE .clr
+
+  LDA #88
+  STA P0_Y
+  STA P1_Y
+  LDA #80
+  STA BALL_X
+  LDA #90
+  STA BALL_Y
+  LDA #1
+  STA BALL_DX
+  STA BALL_DY
+
+  ; Boot chime — confirms TIA audio is wired.
+  LDA #$04
+  STA AUDC0
+  LDA #$0C
+  STA AUDF0
+  LDA #$0F
+  STA AUDV0
+  LDA #20
+  STA SFX_LEFT
+
+  LDA #$80           ; blue background
+  STA COLUBK
+  LDA #$0F           ; white paddles
+  STA COLUP0
+  STA COLUP1
+  LDA #$48           ; cyan playfield
+  STA COLUPF
+  LDA #$05           ; PF symmetric reflect + ball priority
+  STA CTRLPF
+
+MAIN:
+  INC FRAME
+
+  ; ── VSYNC ─────────────────────────────────────────────────────────
+  LDA #2
+  STA VSYNC
+  STA WSYNC
+  STA WSYNC
+  STA WSYNC
+  LDA #0
+  STA VSYNC
+
+  ; ── VBLANK (37 lines) — game logic ────────────────────────────────
+  LDA #2
+  STA VBLANK
+  LDX #37
+.vb:
+  STA WSYNC
+  DEX
+  BNE .vb
+
+  ; Move left paddle from joystick (every 2 frames to throttle).
+  LDA FRAME
+  AND #$01
+  BNE .skip_pad
+  LDA SWCHA
+  ASL                 ; right (unused)
+  ASL                 ; left (unused)
+  ASL                 ; down
+  BCS .nd
+  INC P0_Y
+.nd:
+  ASL                 ; up
+  BCS .nu
+  DEC P0_Y
+.nu:
+  ; Clamp paddle within bounds
+  LDA P0_Y
+  CMP #16
+  BCS .nopaddmin
+  LDA #16
+  STA P0_Y
+.nopaddmin:
+  CMP #168
+  BCC .nopaddmax
+  LDA #168
+  STA P0_Y
+.nopaddmax:
+.skip_pad:
+
+  ; Right-paddle AI — chase the ball's Y
+  LDA BALL_Y
+  CMP P1_Y
+  BCC .ai_up
+  INC P1_Y
+  JMP .ai_done
+.ai_up:
+  DEC P1_Y
+.ai_done:
+
+  ; Move ball
+  LDA BALL_DX
+  CLC
+  ADC BALL_X
+  STA BALL_X
+  LDA BALL_DY
+  CLC
+  ADC BALL_Y
+  STA BALL_Y
+
+  ; Bounce off top/bottom — short blip on each bounce.
+  LDA BALL_Y
+  CMP #20
+  BCS .nb_top
+  LDA #1
+  STA BALL_DY
+  JSR sfx_wall
+.nb_top:
+  LDA BALL_Y
+  CMP #180
+  BCC .nb_bot
+  LDA #$FF              ; -1
+  STA BALL_DY
+  JSR sfx_wall
+.nb_bot:
+  ; Bounce off left/right (and respawn near centre on miss) — pew on miss.
+  LDA BALL_X
+  CMP #4
+  BCS .nb_l
+  LDA #1
+  STA BALL_DX
+  LDA #80
+  STA BALL_X
+  JSR sfx_score
+.nb_l:
+  LDA BALL_X
+  CMP #156
+  BCC .nb_r
+  LDA #$FF
+  STA BALL_DX
+  LDA #80
+  STA BALL_X
+  JSR sfx_score
+.nb_r:
+
+  ; sfx_update: tick the countdown, silence on zero.
+  LDA SFX_LEFT
+  BEQ .sfx_done
+  DEC SFX_LEFT
+  BNE .sfx_done
+  LDA #0
+  STA AUDV0
+.sfx_done:
+
+  ; Position P0 horizontally at column 16 (race-the-beam delay)
+  STA WSYNC
+  LDA #1
+  STA WSYNC
+  LDX #15
+.p0d:
+  DEX
+  BNE .p0d
+  STA RESP0
+  ; Position P1 at column 144
+  STA WSYNC
+  LDX #38
+.p1d:
+  DEX
+  BNE .p1d
+  STA RESP1
+  STA HMOVE
+
+  LDA #0
+  STA VBLANK
+
+  ; ── Visible (192 lines) ───────────────────────────────────────────
+  LDY #192
+.draw:
+  STA WSYNC
+  TYA
+  ; Top-bottom walls: lines 0..3 and 188..191 draw a full-width PF
+  CMP #4
+  BCS .nottop
+  LDA #$FF
+  STA PF0
+  STA PF1
+  STA PF2
+  JMP .pf_done
+.nottop:
+  CMP #188
+  BCC .notbot
+  LDA #$FF
+  STA PF0
+  STA PF1
+  STA PF2
+  JMP .pf_done
+.notbot:
+  LDA #0
+  STA PF0
+  STA PF1
+  STA PF2
+.pf_done:
+  ; Left paddle: 8 lines starting at P0_Y
+  TYA
+  SEC
+  SBC P0_Y
+  CMP #8
+  BCS .p0blank
+  LDA #$FF
+  STA GRP0
+  JMP .p0done
+.p0blank:
+  LDA #0
+  STA GRP0
+.p0done:
+  ; Right paddle: 8 lines starting at P1_Y
+  TYA
+  SEC
+  SBC P1_Y
+  CMP #8
+  BCS .p1blank
+  LDA #$FF
+  STA GRP1
+  JMP .p1done
+.p1blank:
+  LDA #0
+  STA GRP1
+.p1done:
+  ; Ball: 2 lines starting at BALL_Y
+  TYA
+  SEC
+  SBC BALL_Y
+  CMP #2
+  BCS .blblank
+  LDA #2
+  STA ENABL
+  JMP .bldone
+.blblank:
+  LDA #0
+  STA ENABL
+.bldone:
+  DEY
+  BNE .draw
+
+  ; ── Overscan (30 lines) ───────────────────────────────────────────
+  LDA #2
+  STA VBLANK
+  LDX #30
+.os:
+  STA WSYNC
+  DEX
+  BNE .os
+
+  JMP MAIN
+
+  ; ── TIA sfx helpers (R41) ─────────────────────────────────────────
+  ; sfx_wall — short blip on wall bounce (4-frame ringing tone)
+sfx_wall:
+  LDA #$04
+  STA AUDC0
+  LDA #$10
+  STA AUDF0
+  LDA #$0F
+  STA AUDV0
+  LDA #4
+  STA SFX_LEFT
+  RTS
+
+  ; sfx_score — longer chime when a player scores (16 frames)
+sfx_score:
+  LDA #$04
+  STA AUDC0
+  LDA #$06            ; higher pitch
+  STA AUDF0
+  LDA #$0F
+  STA AUDV0
+  LDA #16
+  STA SFX_LEFT
+  RTS
+
+  ; ── Vector table ──────────────────────────────────────────────────
+  org $FFFA
+  .word START
+  .word START
+  .word START