;; All NES ROMs have a 16 byte header that describes how the ROM ;; works; specifically, how many banks of 16kB PRG (program) code, ;; how many 8kB banks of CHR data, which mapper to use for bank swapping ;; and how to perform background mirroring ;; iNES header block .byte "NES",$1A .byte $01 ;; 1 PRG ROM page (how big is an ophis page?) .byte $02 ;; 1 CHR (tile/sprite) ROM page (how big is a page?) .byte $00 ; Horizontal mirroring .byte $00 ; Mapper 0 (NROM, no bank switching) .byte $00,$00,$00,$00 ; Reserved bytes .byte $00,$00,$00,$00 ; Reserved bytes .require "include/defines.S" .text zp .org $0000 ;; $0000 is reserved for things we use to extend PL/PH for call/return stacks ;; FIXME: Will need to expand this stuff once I start calling 2+ ;; functions at once; e.g., JSR a -> JSR b -> JSR c... ;; will need to expand it to a real stack. .space prevReturnAddrLo 1 .space prevReturnAddrHi 1 .org $0010 ;; $0010 - 001F is reserved for global pointers .space curPaletteLo 1 .space curPaletteHi 1 .space curSpriteOAMIndexLo 1 .space curSpriteOAMIndexHi 1 .space curBackgroundLo 1 .space curBackgroundHi 1 .space curBackgroundAttrLo 1 .space curBackgroundAttrHi 1 .space curSpriteDataLo 1 .space curSpriteDataHi 1 .org $0020 ;; $0020 - 00FF is space for general purpose global variable .space curBackgroundLen 1 .space curBackgroundAttrLen 1 .space curSpriteLen 1 .space playery 1 .space playerx 1 .space pad1a 1 .space pad1b 1 .space pad1select 1 .space pad1start 1 .space pad1up 1 .space pad1down 1 .space pad1left 1 .space pad1right 1 .space pad1areleased 1 .space multiSpriteList 16 ; reserve 6 words for the list of multisprites ; currently on screen, each one listed as a ; WORD address .space tempdivident 1 .space tempdivisor 1 .space tempdivresult 1 .space tempdivmodulus 1 .text .org $C000 ;; PRG bank code starts at 0xC000 .require "include/math.S" .require "include/graphics.S" ;; START will be called by the NES whenever the system boots ;; or when the reset button is pressed (think of _start in libc ) ;; but the fact that the NES looks at "START" is only because we ;; specified it in bank 1 at 0xFFFA, the vector table START: SEI ;; disable IRQs (we don't have an IRQ vector) CLD ;; disable decimal mode (NES 6502 doesn't have ;; a decimal mode, please don't produce decimal ;; mode instructions, NESASM!) LDX #$40 ;; load 0x40 into X register STX $4017 ;; store what's in X to address 0x4017 ... ;; 0x4017 is the Joystick 2 port?! WTF does this ;; do?! LDX #$FF TXS ;; Move the contents of X to the stack pointer INX ;; increment X by 1, which causes overflow, so ;; now X is 0 STX $2000 ;; set PPU flag to disable NMI (0x2000 = 0) STX $2001 ;; set PPU flag to disable rendering (0x2001=0) STX $4010 ;; disable APU IRQs, no audio _START_vblankwait: BIT $2002 ;; Bitwise AND the accumulator (LDA) with mem ;; at 0x2002, and set the Zero, Sign & Overflow ;; flags accordingly. 0x2002 is the PPU status ;; register; when 0x2002 has bit 7 set, we are ;; in vblank, so this is how we check for it. BPL _START_vblankwait ;; Until the sign bit is set, loop here. Wait ;; for vblank. _START_clearmem: ;; Hey look, it's the longest memset() ever! LDA #$00 STA $0000, x ;; store 0 to (LDX) + 0x0000 ... but X should ;; be 0 at this point (see START where we INX), ;; so why aren't we just using zero-page ;; addressing? ;; ... that's what I thought at first, before STA $0100, x ;; I realized that I'm looking at a loop: STA $0200, x STA $0400, x ;; for ( x = 0; x < 256 ; x++) STA $0500, x ;; *(0x0100 + x) = 0; STA $0600, x ;; .... STA $0700, x ;; the INX and BNE at the bottom are the "; x++)" ;; This clears the zero page (0000-00FF, the ;; stack (0100-01FF), the entirety of main RAM ;; (0200-07FF) LDA #$FE ;; These two are clearing all of the sprite STA $0200, x ;; OAM; previous tutorial had this at 0300, ;; which may have been wrong. We don't HAVE ;; to reserve this range for OAM; we could ;; just manually poke bits into the PPU, but ;; that is 3-4x (or more) slower than reserving ;; 256 bytes for an OAM copy that we DMA into ;; the PPU on every vblank/NMI INX ;; X is already 0 so this should do X=1, ;; and the Zero and Sign flags should both go 0 BNE _START_clearmem ;; "; x++)", loop back to clrmem until X rolls _START_vblankwait2: BIT $2002 ;; copy paste going to happen in ASM BPL _START_vblankwait2 ;; once we've gotten 1 vblank, ;; cleared mem, and gotten another vblank, ;; the PPU is ready. Wait for it. JMP main main: ;; horray, here is main() LDA #$00 PHA LDA #palette PHA JSR paletteLoad ;; $2000 is the PPU Control register, controlled by various bitflags. ;; ;; 7654 3210 ;; |||| |||| ;; |||| ||++- Base nametable address ;; |||| || (0 = $2000; 1 = $2400; 2 = $2800; 3 = $2C00) ;; |||| |+--- VRAM address increment per CPU read/write of PPUDATA ;; |||| | (0: increment by 1, going across; ;; |||| | 1: increment by 32, going down) ;; |||| +---- Sprite pattern table address for 8x8 sprites ;; |||| (0: $0000; 1: $1000; ignored in 8x16 mode) ;; |||+------ Background pattern table address (0: $0000; 1: $1000) ;; ||+------- Sprite size (0: 8x8; 1: 8x16) ;; |+-------- PPU master/slave select (has no effect on the NES) ;; +--------- Generate an NMI at the start of the ;; vertical blanking interval (0: off; 1: on) ;; The PPU mask is set at $2001, the 2nd PPU Control register, and it ;; sets one config option for every bit of the byte ;; ;; 76543210 ;; |||||||| ;; |||||||+- Grayscale (0: normal color; 1: AND all palette entries ;; ||||||| with 0x30, effectively producing a monochrome display; ;; ||||||| note that colour emphasis STILL works when this is on!) ;; ||||||+-- Disable background clipping in leftmost 8 pixels of screen ;; |||||+--- Disable sprite clipping in leftmost 8 pixels of screen ;; ||||+---- Enable background rendering ;; |||+----- Enable sprite rendering ;; ||+------ Intensify reds (and darken other colors) ;; |+------- Intensify greens (and darken other colors) ;; +-------- Intensify blues (and darken other colors) LDA #$80 STA playerx STA playery ;; Put mario in as the first multisprite LDA #sprMarioData PHA LDA sprMario PHA ;; DO IT LDA #$00 STA curSpriteOAMIndexLo LDA #$02 STA curSpriteOAMIndexHi JSR oamInsertMultiSprite ;; ---------------------------------- LDA #$20 STA playerx LDA #$20 STA playery LDA #sprMario2Data PHA LDA sprMario2 PHA LDA #$40 STA curSpriteOAMIndexLo LDA #$02 STA curSpriteOAMIndexHi JSR oamInsertMultiSprite ;; --------------------------- _bgcall: LDA bgattrsize PHA LDA #>backgroundattrs PHA LDA #background PHA LDA #