o crc checking rom

snes/crc/Makefile

@@ -0,0 +1,77 @@
+# SDK Config
+
+# Linux Wine 
+SDK=/home/david/.wine/drive_c/65xx_FreeSDK
+WINE=wine
+EMU=zsnes
+EMU_DEBUG=/home/david/Devel/arch/snes/tools/zsnes_linux_debug151/src/zsnesd -d 
+
+
+# OSX Crossover Office
+SDK=/Users/david/.wine/drive_c/65xx_FreeSDK
+CC=/Applications/CrossOver.app/Contents/SharedSupport/CrossOver/bin/wineloader winewrapper.exe --wait-children --start -- C:/65xx_FreeSDK/bin/WDC816CC.exe
+AS=/Applications/CrossOver.app/Contents/SharedSupport/CrossOver/bin/wineloader winewrapper.exe --wait-children --start -- C:/65xx_FreeSDK/bin/WDC816AS.exe
+LD=/Applications/CrossOver.app/Contents/SharedSupport/CrossOver/bin/wineloader winewrapper.exe --wait-children --start -- C:/65xx_FreeSDK/bin/WDCLN.exe
+EMU=zsnes
+
+# Mac Wine 
+SDK=/Users/david/.wine/drive_c/65xx_FreeSDK
+WINE=wine
+EMU=zsnes
+CC=$(WINE) $(SDK)/bin/WDC816CC.exe
+AS=$(WINE) $(SDK)/bin/WDC816AS.exe
+LD=$(WINE) $(SDK)/bin/WDCLN.exe
+
+
+
+
+
+PADBIN=$(WINE) tools/padbin.exe
+PCX2SNES=$(WINE) tools/Pcx2Snes.exe
+
+# Project
+INC=$(SDK)/include
+LIBS=$(SDK)/lib/cs
+#OBJS=StartupSnes.obj main.obj pad.obj event.obj myEvents.obj PPU.obj debug.obj ressource.obj
+OBJS=StartupSnes.obj main.obj pad.obj  PPU.obj debug.obj ressource.obj crc.obj
+APP=crc.smc
+GFX=kungfu debugfont
+
+all:  $(APP)
+
+run:  
+	$(EMU) $(APP)
+
+debugger:  
+	$(EMU_DEBUG) $(APP)
+
+upload:
+	ucon64 $(APP)
+	cp -rv $(APP) /Volumes/SNES
+	sync
+	diskutil unmount /Volumes/SNES
+
+
+kungfu:
+		$(PCX2SNES) ressource/kungfu -n -c16 -screen
+
+debugfont:
+		$(PCX2SNES) ressource/debugFont -n -c16 -s8 -o1
+
+%.obj: %.asm
+		$(AS) -V $?
+
+%.obj: %.c
+		$(CC) -wl -wp -sop -MS -I $(INC) $?
+
+$(APP): $(OBJS)
+		$(LD) -HB -M21 -V -T -Pff \
+                -C008000,0000 -U0000,0000 \
+                -Avectors=FFE4,7FE4 \
+                -Aregistration_data=FFB0,7FB0 \
+                -Aressource=18000,8000 \
+                -N $(OBJS) -L$(LIBS) -O $@
+		$(PADBIN) 0x40000 $(APP)
+
+clean:
+		rm -vf $(APP) *.obj

snes/crc/PPU.c

@@ -0,0 +1,80 @@
+#include "data.h"
+
+byte tileMapLocation[4];
+word characterLocation[4];
+
+void waitForVBlank(void) {
+	byte Status;
+	do {
+		Status = *(byte*)0x4210;
+	} while (!(Status & 0x80));
+}
+
+void setTileMapLocation(word vramDst, byte screenProp, byte bgNumber) {
+	tileMapLocation[bgNumber] = ((vramDst >> 8) & 0xfc) | ( screenProp & 0x03 );
+	*(byte*) (0x2107+bgNumber) = tileMapLocation[bgNumber];
+}
+
+void restoreTileMapLocation(byte bgNumber) {
+	*(byte*) (0x2107+bgNumber) = tileMapLocation[bgNumber];
+}
+
+void setCharacterLocation(word vramDst, byte bgNumber) {
+	characterLocation[bgNumber] = vramDst;
+	if(bgNumber < 2) {
+		*(byte*) 0x210b = (characterLocation[1] >> 8 & 0xf0 ) + (characterLocation[0] >> 12);
+	} else {
+		*(byte*) 0x210c = (characterLocation[3] >> 8 & 0xf0 ) + (characterLocation[2] >> 12);
+	}
+}
+
+void restoreCharacterLocation(byte bgNumber) {
+	setCharacterLocation(characterLocation[bgNumber], bgNumber);
+}
+
+void VRAMByteWrite(byte value, word vramDst) {
+	*(byte*)0x2115 = 0x80;	
+	*(word*)0x2116 = vramDst;
+
+	*(byte*)0x2118 = value;
+}
+
+void VRAMLoad(word src, word vramDst, word size) {
+	// set address in VRam for read or write ($2116) + block size transfer ($2115)
+	*(byte*)0x2115 = 0x80;
+	*(word*)0x2116 = vramDst;	
+
+	*(word*)0x4300 = 0x1801;	// set DMA control register (1 word inc) 
+								// and destination ($21xx xx -> 0x18)
+	*(word*)0x4302 = src;		// DMA channel x source address offset 
+								// (low $4302 and high $4303 optimisation)
+	*(byte*)0x4304 = 0x01; 		// DMA channel x source address bank
+	*(word*)0x4305 = size;		// DMA channel x transfer size 
+								// (low $4305 and high $4306 optimisation)
+
+	// Turn on DMA transfer for this channel
+	waitForVBlank();
+	*(byte*)0x2100 = 0x80;
+	*(byte*)0x420b = 0x01;
+	*(byte*)0x2100 = 0x00;
+}
+
+void CGRAMLoad(word src, byte cgramDst, word size) {
+	
+	// set address in VRam for read or write + block size
+	*(byte*)0x2121 = cgramDst;
+
+	*(word*)0x4300 = 0x2200;	// set DMA control register (1 byte inc) 
+								// and destination ($21xx xx -> 022)
+	*(word*)0x4302 = src;		// DMA channel x source address offset
+								// (low $4302 and high $4303 optimisation)
+	*(byte*)0x4304 = 0x01; 		// DMA channel x source address bank
+	*(word*)0x4305 = size;		// DMA channel x transfer size
+								// (low $4305 and high $4306 optimisation)
+
+	// Turn on DMA transfer for this channel
+	waitForVBlank();
+	*(byte*)0x2100 = 0x80;
+	*(byte*)0x420b = 0x01;
+	*(byte*)0x2100 = 0x00;
+}

snes/crc/PPU.h

@@ -0,0 +1,11 @@
+extern byte tileMapLocation[4];
+extern word characterLocation[4];
+
+void waitForVBlank(void);
+void setTileMapLocation(word vramDst, byte screenProp, byte bgNumber);
+void restoreTileMapLocation(byte bgNumber);
+void setCharacterLocation(word vramDst, byte bgNumber);
+void restoreCharacterLocation(byte bgNumber);
+void VRAMByteWrite(byte value, word vramDst);
+void VRAMLoad(word src, word vramDst, word size);
+void CGRAMLoad(word src, byte cgramDst, word size);

snes/crc/StartupSnes.asm

@@ -0,0 +1,240 @@
+; SNES ROM startup code 
+
+;******************************************************************************
+;*** Define a special section in case most of the code is not in bank 0.    ***
+;******************************************************************************
+
+;STACK   EQU   $01ff     ;CHANGE THIS FOR YOUR SYSTEM
+
+;STARTUP SECTION OFFSET $008000
+
+CODE
+
+	XDEF  	START
+START:
+        XREF  	__main
+  	
+	sei             ; Disabled interrupts
+        clc             ; clear carry to switch to native mode
+        xce             ; Xchange carry & emulation bit. native mode
+        rep     #$18    ; Binary mode (decimal mode off), X/Y 16 bit
+	LONGI	ON
+        ldx     #$1FFF  ; set stack to $1FFF
+        txs
+
+	rep 	#$30
+	longa	on
+	longi	on
+
+	; Init data used for heap 
+	; see heap definition below
+	XREF ___heap_top
+	XREF ___mem_start	
+	stz	___heap_top
+	stz	___mem_start
+	
+	XREF	__preInit
+        jsr   	>__preInit
+
+        sep     #$30    ; X,Y,A are 8 bit numbers
+	LONGA	OFF
+	LONGI	OFF	
+        lda     #$8F    ; screen off, full brightness
+        sta     $2100   ; brightness + screen enable register 
+        stz     $2101   ; Sprite register (size + address in VRAM) 
+        stz     $2102   ; Sprite registers (address of sprite memory [OAM])
+        stz     $2103   ;    ""                       ""
+        stz     $2105   ; Mode 0, = Graphic mode register
+        stz     $2106   ; noplanes, no mosaic, = Mosaic register
+        stz     $2107   ; Plane 0 map VRAM location
+        stz     $2108   ; Plane 1 map VRAM location
+        stz     $2109   ; Plane 2 map VRAM location
+        stz     $210A   ; Plane 3 map VRAM location
+        stz     $210B   ; Plane 0+1 Tile data location
+        stz     $210C   ; Plane 2+3 Tile data location
+        stz     $210D   ; Plane 0 scroll x (first 8 bits)
+        stz     $210D   ; Plane 0 scroll x (last 3 bits) #$0 - #$07ff
+        stz     $210E   ; Plane 0 scroll y (first 8 bits)
+        stz     $210E   ; Plane 0 scroll y (last 3 bits) #$0 - #$07ff
+        stz     $210F   ; Plane 1 scroll x (first 8 bits)
+        stz     $210F   ; Plane 1 scroll x (last 3 bits) #$0 - #$07ff
+        stz     $2110   ; Plane 1 scroll y (first 8 bits)
+        stz     $2110   ; Plane 1 scroll y (last 3 bits) #$0 - #$07ff
+        stz     $2111   ; Plane 2 scroll x (first 8 bits)
+        stz     $2111   ; Plane 2 scroll x (last 3 bits) #$0 - #$07ff
+        stz     $2112   ; Plane 2 scroll y (first 8 bits)
+        stz     $2112   ; Plane 2 scroll y (last 3 bits) #$0 - #$07ff
+        stz     $2113   ; Plane 3 scroll x (first 8 bits)
+        stz     $2113   ; Plane 3 scroll x (last 3 bits) #$0 - #$07ff
+        stz     $2114   ; Plane 3 scroll y (first 8 bits)
+        stz     $2114   ; Plane 3 scroll y (last 3 bits) #$0 - #$07ff
+        lda     #$80    ; increase VRAM address after writing to $2119
+        sta     $2115   ; VRAM address increment register
+        stz     $2116   ; VRAM address low
+        stz     $2117   ; VRAM address high
+        stz     $211A   ; Initial Mode 7 setting register
+        stz     $211B   ; Mode 7 matrix parameter A register (low)
+        lda     #$01
+        sta     $211B   ; Mode 7 matrix parameter A register (high)
+        stz     $211C   ; Mode 7 matrix parameter B register (low)
+        stz     $211C   ; Mode 7 matrix parameter B register (high)
+        stz     $211D   ; Mode 7 matrix parameter C register (low)
+        stz     $211D   ; Mode 7 matrix parameter C register (high)
+        stz     $211E   ; Mode 7 matrix parameter D register (low)
+        sta     $211E   ; Mode 7 matrix parameter D register (high)
+        stz     $211F   ; Mode 7 center position X register (low)
+        stz     $211F   ; Mode 7 center position X register (high)
+        stz     $2120   ; Mode 7 center position Y register (low)
+        stz     $2120   ; Mode 7 center position Y register (high)
+        stz     $2121   ; Color number register ($0-ff)
+        stz     $2123   ; BG1 & BG2 Window mask setting register
+        stz     $2124   ; BG3 & BG4 Window mask setting register
+        stz     $2125   ; OBJ & Color Window mask setting register
+        stz     $2126   ; Window 1 left position register
+        stz     $2127   ; Window 2 left position register
+        stz     $2128   ; Window 3 left position register
+        stz     $2129   ; Window 4 left position register
+        stz     $212A   ; BG1, BG2, BG3, BG4 Window Logic register
+        stz     $212B   ; OBJ, Color Window Logic Register (or,and,xor,xnor)
+        sta     $212C   ; Main Screen designation (planes, sprites enable)
+        stz     $212D   ; Sub Screen designation
+        stz     $212E   ; Window mask for Main Screen
+        stz     $212F   ; Window mask for Sub Screen
+        lda     #$30
+        sta     $2130   ; Color addition & screen addition init setting
+        stz     $2131   ; Add/Sub sub designation for screen, sprite, color
+        lda     #$E0
+        sta     $2132   ; color data for addition/subtraction
+        stz     $2133   ; Screen setting (interlace x,y/enable SFX data)
+        stz     $4200   ; Enable V-blank, interrupt, Joypad register
+        lda     #$FF
+        sta     $4201   ; Programmable I/O port
+        stz     $4202   ; Multiplicand A
+        stz     $4203   ; Multiplier B
+        stz     $4204   ; Multiplier C
+        stz     $4205   ; Multiplicand C
+        stz     $4206   ; Divisor B
+        stz     $4207   ; Horizontal Count Timer
+        stz     $4208   ; Horizontal Count Timer MSB (most significant bit)
+    stz     $4209   ; Vertical Count Timer
+    stz     $420A   ; Vertical Count Timer MSB
+    stz     $420B   ; General DMA enable (bits 0-7)
+    stz     $420C   ; Horizontal DMA (HDMA) enable (bits 0-7)
+    stz     $420D   ; Access cycle designation (slow/fast rom)
+    cli             ; Enable interrupts
+
+	rep     #$30
+	longa	on
+	longi	on
+
+    jsr   	>__main
+    brk
+
+	XDEF IRQ
+IRQ:	
+	XREF __IRQHandler
+	LONGA	ON
+	LONGI	ON
+	rep	#$30
+	pha
+	phx
+	phy
+	jsr	__IRQHandler
+	ply
+	plx
+	pla
+	rti
+	
+	XDEF	NMI
+NMI:
+	XREF	__NMIHandler
+	LONGA	ON
+	LONGI	ON
+	rep	#$30
+	pha
+	phx
+	phy
+	phd
+	phb
+	lda	#$0000
+	sep     #$30    ; X,Y,A are 8 bit numbers
+	LONGA	OFF
+	LONGI	OFF
+	lda     $4210		; Read NMI 
+	LONGA	ON
+	LONGI	ON
+	rep	#$30
+	jsr	__NMIHandler
+	plb
+	pld
+	ply
+	plx
+	pla
+	rti
+  
+DIRQ:
+	rti
+
+ENDS
+
+;******************************************************************************
+;*** Heap definition                                                        ***
+;******************************************************************************
+
+DATA
+
+	XDEF	__heap_start
+	XDEF	__heap_end
+
+__heap_start:
+	WORD	$1000
+__heap_end:
+	WORD	$1200
+
+;******************************************************************************
+;*** SNES ROM Registartion Data                                             ***
+;******************************************************************************
+
+REGISTRATION_DATA SECTION
+
+MAKER_CODE          FCC	/FF/
+GAME_CODE		    FCC	/SMWJ/
+FIXED_VALUE0		BYTE	$00, $00, $00, $00, $00, $00, $00
+EXPANSION_RAM_SIZE	BYTE	$00
+SPECIAL_VERSION		BYTE	$00
+CARTRIDGE_TYPE_SUB	BYTE	$00
+GAME_TITLE		    FCC	/GAME TITLE          !/
+				        ;012345678901234567890;
+MAP_MODE            BYTE	$20
+CARTRIDGE_SIZE		BYTE	$00
+ROM_SIZE            BYTE	$08
+RAM_SIZE            BYTE	$00
+DESTINATION_CODE	BYTE	$00
+FIXED_VALUE1		BYTE	$33
+MASK_ROM_VERSION	BYTE	$00
+COMPLEMENT_CHECK	BYTE	$00, $00
+CHEKSUM             BYTE	$00, $00 
+
+;******************************************************************************
+;*** SNES Interrupts and Reset vector                                       ***
+;******************************************************************************
+
+VECTORS	SECTION
+; Native vector
+N_COP   DW   DIRQ
+N_BRK   DW   DIRQ
+N_ABORT DW   DIRQ        
+N_NMI   DW   NMI
+N_RSRVD DW   DIRQ
+N_IRQ   DW   IRQ
+        DS   4
+; Emulation vector
+E_COP   DW   DIRQ
+E_RSRVD DW   DIRQ
+E_ABORT DW   DIRQ
+E_NMI   DW   DIRQ
+E_RESET DW   START
+E_IRQ   DW   DIRQ
+
+END
+

snes/crc/TMPA264.TMP

@@ -0,0 +1,183 @@
+;:ts=8
+R0	equ	1
+R1	equ	5
+R2	equ	9
+R3	equ	13
+	code
+	xdef	__initInternalRegisters
+	func
+__initInternalRegisters:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L2
+	tcs
+	phd
+	tcd
+	stz	|__characterLocation
+	stz	|__characterLocation+2
+	stz	|__characterLocation+4
+	stz	|__characterLocation+6
+	jsr	__initDebugMap
+L4:
+	pld
+	tsc
+	clc
+	adc	#L2
+	tcs
+	rts
+L2	equ	0
+L3	equ	1
+	ends
+	efunc
+	code
+	xdef	__preInit
+	func
+__preInit:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L5
+	tcs
+	phd
+	tcd
+L7:
+	pld
+	tsc
+	clc
+	adc	#L5
+	tcs
+	rts
+L5	equ	0
+L6	equ	1
+	ends
+	efunc
+	code
+	xdef	__main
+	func
+__main:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L8
+	tcs
+	phd
+	tcd
+	jsr	__initInternalRegisters
+	pea	#<$0
+	pea	#<$0
+	pea	#<$1000
+	jsr	__setTileMapLocation
+	pea	#<$0
+	pea	#<$2000
+	jsr	__setCharacterLocation
+	pea	#<$100
+	pea	#<$0
+	lda	#<__title_pal
+	pha
+	jsr	__CGRAMLoad
+	sep	#$20
+	longa	off
+	lda	#$1
+	sta	|8453
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$1
+	sta	|8492
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$0
+	sta	|8493
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$f
+	sta	|8448
+	rep	#$20
+	longa	on
+	stz	|__currentScrollEvent
+	stz	|__scrollValue
+	jsr	__debug
+L10001:
+	brl	L10001
+L8	equ	0
+L9	equ	1
+	ends
+	efunc
+	code
+	xdef	__IRQHandler
+	func
+__IRQHandler:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L10
+	tcs
+	phd
+	tcd
+L12:
+	pld
+	tsc
+	clc
+	adc	#L10
+	tcs
+	rts
+L10	equ	0
+L11	equ	1
+	ends
+	efunc
+	code
+	xdef	__NMIHandler
+	func
+__NMIHandler:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L13
+	tcs
+	phd
+	tcd
+L15:
+	pld
+	tsc
+	clc
+	adc	#L13
+	tcs
+	rts
+L13	equ	0
+L14	equ	1
+	ends
+	efunc
+	xref	__debug
+	xref	__initDebugMap
+	xref	__CGRAMLoad
+	xref	__setCharacterLocation
+	xref	__setTileMapLocation
+	udata
+	xdef	__scrollValue
+__scrollValue
+	ds	2
+	ends
+	udata
+	xdef	__currentScrollEvent
+__currentScrollEvent
+	ds	2
+	ends
+	udata
+	xdef	__pad1
+__pad1
+	ds	2
+	ends
+	xref	__characterLocation
+	xref	__title_pal
+	end

snes/crc/TMPA737.TMP

@@ -0,0 +1,183 @@
+;:ts=8
+R0	equ	1
+R1	equ	5
+R2	equ	9
+R3	equ	13
+	code
+	xdef	__initInternalRegisters
+	func
+__initInternalRegisters:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L2
+	tcs
+	phd
+	tcd
+	stz	|__characterLocation
+	stz	|__characterLocation+2
+	stz	|__characterLocation+4
+	stz	|__characterLocation+6
+	jsr	__initDebugMap
+L4:
+	pld
+	tsc
+	clc
+	adc	#L2
+	tcs
+	rts
+L2	equ	0
+L3	equ	1
+	ends
+	efunc
+	code
+	xdef	__preInit
+	func
+__preInit:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L5
+	tcs
+	phd
+	tcd
+L7:
+	pld
+	tsc
+	clc
+	adc	#L5
+	tcs
+	rts
+L5	equ	0
+L6	equ	1
+	ends
+	efunc
+	code
+	xdef	__main
+	func
+__main:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L8
+	tcs
+	phd
+	tcd
+	jsr	__initInternalRegisters
+	pea	#<$0
+	pea	#<$0
+	pea	#<$1000
+	jsr	__setTileMapLocation
+	pea	#<$0
+	pea	#<$2000
+	jsr	__setCharacterLocation
+	pea	#<$100
+	pea	#<$0
+	lda	#<__title_pal
+	pha
+	jsr	__CGRAMLoad
+	sep	#$20
+	longa	off
+	lda	#$1
+	sta	|8453
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$1
+	sta	|8492
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$0
+	sta	|8493
+	rep	#$20
+	longa	on
+	sep	#$20
+	longa	off
+	lda	#$f
+	sta	|8448
+	rep	#$20
+	longa	on
+	stz	|__currentScrollEvent
+	stz	|__scrollValue
+	jsr	__debug
+L10001:
+	brl	L10001
+L8	equ	0
+L9	equ	1
+	ends
+	efunc
+	code
+	xdef	__IRQHandler
+	func
+__IRQHandler:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L10
+	tcs
+	phd
+	tcd
+L12:
+	pld
+	tsc
+	clc
+	adc	#L10
+	tcs
+	rts
+L10	equ	0
+L11	equ	1
+	ends
+	efunc
+	code
+	xdef	__NMIHandler
+	func
+__NMIHandler:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L13
+	tcs
+	phd
+	tcd
+L15:
+	pld
+	tsc
+	clc
+	adc	#L13
+	tcs
+	rts
+L13	equ	0
+L14	equ	1
+	ends
+	efunc
+	xref	__debug
+	xref	__initDebugMap
+	xref	__CGRAMLoad
+	xref	__setCharacterLocation
+	xref	__setTileMapLocation
+	udata
+	xdef	__scrollValue
+__scrollValue
+	ds	2
+	ends
+	udata
+	xdef	__currentScrollEvent
+__currentScrollEvent
+	ds	2
+	ends
+	udata
+	xdef	__pad1
+__pad1
+	ds	2
+	ends
+	xref	__characterLocation
+	xref	__title_pal
+	end

snes/crc/crc.c

@@ -0,0 +1,39 @@
+#include "data.h"
+
+
+word crc_update (byte *data, word size)
+{
+	word i;
+    word j;
+	word crc=0;
+	for (j=0; j<size; j++){
+		crc = crc ^ ((word)data[j]<< 8);
+		for (i=0; i<8; i++){
+        	if (crc & 0x8000)
+            	crc = (crc << 1) ^ 0x1021;
+        	else
+            	crc <<= 1;
+    	}
+	}
+	return crc;
+}
+
+
+word crc_update_mem (word addr, word size)
+{
+	word i;
+    word j;
+	word crc=0;
+    word v;
+	for (j=0; j<size; j++){
+        v = addr;
+		crc = crc ^ ((word)v<< 8);
+		for (i=0; i<8; i++){
+        	if (crc & 0x8000)
+            	crc = (crc << 1) ^ 0x1021;
+        	else
+            	crc <<= 1;
+    	}
+	}
+	return crc;
+}

snes/crc/crc.h

@@ -0,0 +1,3 @@
+
+word crc_update (byte *data, word size);
+

snes/crc/data.h

@@ -0,0 +1,2 @@
+typedef	unsigned char	byte;
+typedef	unsigned short	word;

snes/crc/debug.c

@@ -0,0 +1,80 @@
+#include "data.h"
+#include "pad.h"
+#include "PPU.h"
+#include "ressource.h"
+#include "crc.h"
+
+word debugMap[0x400];
+
+void initDebugMap(void) {
+	word i;
+	for(i=0; i<0x400; i++) {
+		debugMap[i] = 0x00;
+	}
+}
+
+
+void int2hex(word i, char *buf)
+{
+    word a;
+    for (a = 0; a < 4; ++a) {
+        buf[a] = (i >> (4 * (2 * 2 - 1 - a))) & 0xf;
+        if (buf[a] < 10)
+            buf[a] += '0';
+        else
+            buf[a] += 'A' - 10;
+    }
+    buf[a] = 0;
+}
+
+void debug(void) {
+	word i,j;
+	word crc01;
+	word crc02;
+	padStatus pad1;
+	char line_header[32] = "BANK CRC  ADDR 123456789ABCDEF";
+    char line[32] = "                             ";	
+	char test_buffer[] = "da";
+	void *pointer;
+	
+	VRAMLoad((word) debugFont_pic, 0x5000, 2048);
+	CGRAMLoad((word) debugFont_pal, (byte) 0x00, (word) 16);
+	VRAMLoad((word) debugMap, 0x4000, 0x0800);
+	setTileMapLocation(0x4000, (byte) 0x00, (byte) 0);
+	setCharacterLocation(0x5000, (byte) 0);
+	*(byte*) 0x2100 = 0x0f; // enable background
+
+    j=0;
+    waitForVBlank();
+	for(i=0; i<32; i++) {
+		waitForVBlank();
+		VRAMByteWrite((byte) (line_header[i]-32), (word) (0x4000+i+(j*0x20)));
+	}
+
+	while(1){
+		pointer = (void*)0x8000;
+		crc02 = crc_update(test_buffer,2);
+		//crc01 = crc_update(pointer,255);
+		for(j=0; j<8; j++) {
+    		crc01 = crc_update(pointer,0x8000);
+			int2hex(j,&line[0]);
+			int2hex(crc01,&line[5]);
+			int2hex((word)pointer,&line[10]);
+            waitForVBlank();
+			for(i=0; i<32; i++) {
+				waitForVBlank();
+				VRAMByteWrite((byte) (line[i]-32), (word) (0x4000+i+((j+1)*0x20)));
+			}
+            //pointer+=0x010000;
+		}
+		while(!pad1.start) {
+			waitForVBlank();
+			pad1 = readPad((byte) 0);
+		}
+	}	
+	
+}
+
+#pragma section CODE=BANK3,offset $3:0000 
+char far dummy[128];
+

snes/crc/debug.h

@@ -0,0 +1,2 @@
+void initDebugMap(void);
+void debug(void);

snes/crc/event.asm

@@ -0,0 +1,294 @@
+;:ts=8
+R0	equ	1
+R1	equ	5
+R2	equ	9
+R3	equ	13
+	code
+	xdef	__initEvents
+	func
+__initEvents:
+	longa	on
+	longi	on
+	stz	|__events
+	rts
+L2	equ	0
+L3	equ	1
+	ends
+	efunc
+	code
+	xdef	__createEvent
+	func
+__createEvent:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L5
+	tcs
+	phd
+	tcd
+callback_0	set	3
+myEvent_1	set	0
+	pea	#<$8
+	jsr	__malloc
+	sta	<L6+myEvent_1
+	lda	#$0
+	sta	(<L6+myEvent_1)
+	lda	<L5+callback_0
+	ldy	#$2
+	sta	(<L6+myEvent_1),Y
+	lda	#$0
+	ldy	#$6
+	sta	(<L6+myEvent_1),Y
+	dey
+	dey
+	sta	(<L6+myEvent_1),Y
+	lda	<L6+myEvent_1
+	tay
+	lda	<L5+1
+	sta	<L5+1+2
+	pld
+	tsc
+	clc
+	adc	#L5+2
+	tcs
+	tya
+	rts
+L5	equ	2
+L6	equ	1
+	ends
+	efunc
+	code
+	xdef	__addEvent
+	func
+__addEvent:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L8
+	tcs
+	phd
+	tcd
+callback_0	set	3
+noDuplicateCallback_0	set	5
+lastEvent_1	set	0
+myEvent_1	set	2
+	lda	|__events
+	bne	L10001
+	pei	<L8+callback_0
+	jsr	__createEvent
+	sta	|__events
+L11:
+	tay
+	lda	<L8+1
+	sta	<L8+1+4
+	pld
+	tsc
+	clc
+	adc	#L8+4
+	tcs
+	tya
+	rts
+L10001:
+	lda	|__events
+	bra	L20000
+L20004:
+	ldy	#$2
+	lda	(<L9+lastEvent_1),Y
+	cmp	<L8+callback_0
+	bne	L10005
+L20005:
+	lda	#$0
+	bra	L11
+L20002:
+	lda	<L8+noDuplicateCallback_0
+	cmp	#<$1
+	bne	L10004
+	ldy	#$2
+	lda	(<L9+lastEvent_1),Y
+	cmp	<L8+callback_0
+	beq	L20005
+L10004:
+	ldy	#$6
+	lda	(<L9+lastEvent_1),Y
+L20000:
+	sta	<L9+lastEvent_1
+	ldy	#$6
+	lda	(<L9+lastEvent_1),Y
+	bne	L20002
+	lda	<L8+noDuplicateCallback_0
+	cmp	#<$1
+	beq	L20004
+L10005:
+	pei	<L8+callback_0
+	jsr	__createEvent
+	sta	<L9+myEvent_1
+	lda	<L9+lastEvent_1
+	ldy	#$4
+	sta	(<L9+myEvent_1),Y
+	lda	<L9+myEvent_1
+	iny
+	iny
+	sta	(<L9+lastEvent_1),Y
+	lda	<L9+myEvent_1
+	bra	L11
+L8	equ	4
+L9	equ	1
+	ends
+	efunc
+	code
+	xdef	__removeEvent
+	func
+__removeEvent:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L17
+	tcs
+	phd
+	tcd
+eventElement_0	set	3
+alone_1	set	0
+next_1	set	1
+previous_1	set	3
+	sep	#$20
+	longa	off
+	stz	<L18+alone_1
+	rep	#$20
+	longa	on
+	ldy	#$6
+	lda	(<L17+eventElement_0),Y
+	sta	<L18+next_1
+	dey
+	dey
+	lda	(<L17+eventElement_0),Y
+	sta	<L18+previous_1
+	iny
+	iny
+	lda	(<L17+eventElement_0),Y
+	beq	L10006
+	dey
+	dey
+	lda	(<L17+eventElement_0),Y
+	beq	L10006
+	sep	#$20
+	longa	off
+	inc	<L18+alone_1
+	rep	#$20
+	longa	on
+	lda	<L18+previous_1
+	sta	(<L18+next_1),Y
+	lda	<L18+next_1
+	bra	L20007
+L10006:
+	ldy	#$6
+	lda	(<L17+eventElement_0),Y
+	beq	L10008
+	sep	#$20
+	longa	off
+	inc	<L18+alone_1
+	rep	#$20
+	longa	on
+	lda	#$0
+	dey
+	dey
+	sta	(<L18+next_1),Y
+	lda	<L18+next_1
+	sta	|__events
+	bra	L10007
+L10008:
+	ldy	#$4
+	lda	(<L17+eventElement_0),Y
+	beq	L10007
+	sep	#$20
+	longa	off
+	inc	<L18+alone_1
+	rep	#$20
+	longa	on
+	lda	#$0
+L20007:
+	ldy	#$6
+	sta	(<L18+previous_1),Y
+L10007:
+	pei	<L17+eventElement_0
+	jsr	__free
+	lda	<L18+alone_1
+	and	#$ff
+	bne	L24
+	stz	|__events
+L24:
+	lda	<L17+1
+	sta	<L17+1+2
+	pld
+	tsc
+	clc
+	adc	#L17+2
+	tcs
+	rts
+L17	equ	5
+L18	equ	1
+	ends
+	efunc
+	code
+	xdef	__processEvents
+	func
+__processEvents:
+	longa	on
+	longi	on
+	tsc
+	sec
+	sbc	#L25
+	tcs
+	phd
+	tcd
+currentEvent_1	set	0
+returnValue_1	set	2
+	lda	|__events
+L20008:
+	sta	<L26+currentEvent_1
+	lda	<L26+currentEvent_1
+	bne	L20010
+	pld
+	tsc
+	clc
+	adc	#L25
+	tcs
+	rts
+L20010:
+	lda	(<L26+currentEvent_1)
+	pha
+	ldy	#$2
+	lda	(<L26+currentEvent_1),Y
+	xref	__~cal
+	jsr	__~cal
+	sep	#$20
+	longa	off
+	sta	<L26+returnValue_1
+	cmp	#<$1
+	rep	#$20
+	longa	on
+	bne	L10014
+	lda	(<L26+currentEvent_1)
+	ina
+	sta	(<L26+currentEvent_1)
+	bra	L10015
+L10014:
+	pei	<L26+currentEvent_1
+	jsr	__removeEvent
+L10015:
+	ldy	#$6
+	lda	(<L26+currentEvent_1),Y
+	bra	L20008
+L25	equ	3
+L26	equ	1
+	ends
+	efunc
+	xref	__malloc
+	xref	__free
+	udata
+	xdef	__events
+__events
+	ds	2
+	ends

snes/crc/event.c

@@ -0,0 +1,101 @@
+#include <stdlib.h>
+
+#include "data.h";
+#include "event.h";
+
+event *events;
+
+void initEvents(void) {
+	events = NULL;
+}
+
+event *createEvent(char (*callback)(word counter)) {
+	event *myEvent;
+
+	myEvent = (event*) malloc(sizeof(event));
+
+	myEvent->VBlankCount = 0;
+	myEvent->callback = callback;
+	myEvent->nextEvent = NULL;
+	myEvent->previousEvent = NULL;
+
+
+	return myEvent;
+}
+
+event* addEvent(char (*callback)(word counter), int noDuplicateCallback) {
+
+	event *lastEvent;
+	event *myEvent;
+
+	if(events == NULL) {
+		events = createEvent(callback);
+		return events;
+	} else {
+		lastEvent = events;
+		// TODO optimise this with noduplicate
+		while(lastEvent->nextEvent != NULL) {
+			if(noDuplicateCallback == 1 && lastEvent->callback == *callback) {
+				return NULL;
+			}
+			lastEvent = lastEvent->nextEvent;
+		}
+		if(noDuplicateCallback == 1 && lastEvent->callback == *callback) {
+			return NULL;
+		}
+		myEvent = createEvent(callback);
+		myEvent->previousEvent = lastEvent;
+		lastEvent->nextEvent = myEvent;
+		return myEvent;
+	}
+
+
+}
+
+void removeEvent(event *eventElement) {
+
+	byte alone = 0;
+	event *next, *previous;
+
+	next = eventElement->nextEvent;
+	previous = eventElement->previousEvent;
+
+	if(eventElement->nextEvent != NULL && eventElement->previousEvent != NULL) {
+		alone++;
+		next->previousEvent = previous;
+		previous->nextEvent = next;
+
+	} else if(eventElement->nextEvent != NULL) {
+		alone++;
+		next->previousEvent = NULL;
+		events = next;
+
+	} else if(eventElement->previousEvent != NULL) {
+		alone++;
+		previous->nextEvent = NULL;
+	}
+
+	free(eventElement);
+
+	if(alone == 0) {
+		events = NULL;
+	}
+}
+
+void processEvents(void) {
+
+	event *currentEvent;
+	char returnValue;
+
+	currentEvent = events;
+	while(currentEvent != NULL) {
+		returnValue = currentEvent->callback(currentEvent->VBlankCount);
+		if(returnValue == EVENT_CONTINUE) {
+			currentEvent->VBlankCount++;
+		} else {
+			removeEvent(currentEvent);
+		}
+		currentEvent = currentEvent->nextEvent;
+	}
+
+}

snes/crc/event.h

@@ -0,0 +1,16 @@
+typedef struct event{
+	word VBlankCount;
+	char (*callback)(word counter);
+	struct event *previousEvent;
+	struct event *nextEvent;
+} event;
+
+#define EVENT_STOP 0
+#define EVENT_CONTINUE 1
+
+extern event *events;
+
+void initEvents(void);
+extern event* addEvent(char (*callback)(word counter), int noDuplicateCallback);
+extern void removeEvent(event *eventElement);
+extern void processEvents(void);

snes/crc/main.c

@@ -0,0 +1,71 @@
+#include "data.h";
+#include "pad.h";
+#include "event.h";
+#include "myEvents.h";
+#include "ressource.h";
+#include "PPU.h"
+#include "debug.h"
+
+#include <stdlib.h>
+
+padStatus pad1;
+
+event *currentScrollEvent;
+word scrollValue;
+
+void initInternalRegisters(void) {
+	characterLocation[0] = 0x0000;
+	characterLocation[1] = 0x0000;
+	characterLocation[2] = 0x0000;
+	characterLocation[3] = 0x0000;
+
+	initDebugMap();
+}
+
+void preInit(void) {
+	// For testing purpose ... 
+	// Insert code here to be executed before register init
+}
+
+void main(void) {
+
+	initInternalRegisters();
+
+	// Screen map data @ VRAM location $1000
+	setTileMapLocation(0x1000, (byte) 0x00, (byte) 0);
+	//*(byte*) 0x2107 = 0x10;
+	
+	// Plane 0 Tile graphics @ $2000
+	setCharacterLocation(0x2000, (byte) 0);
+	//*(byte*) 0x210b = 0x02;
+
+	//VRAMLoad((word) title_pic, 0x2000, 0x1BE0);
+	//VRAMLoad((word) title_map, 0x1000, 0x0800);
+	CGRAMLoad((word) title_pal, (byte) 0x00, (word) 256);
+	
+	// TODO sitwch to mode 0 for trying
+	*(byte*) 0x2105 = 0x01;	// MODE 1 value
+
+	*(byte*) 0x212c = 0x01; // Plane 0 (bit one) enable register
+	*(byte*) 0x212d = 0x00;	// All subPlane disable
+
+	*(byte*) 0x2100 = 0x0f; // enable background
+
+	currentScrollEvent = NULL;
+	scrollValue = 0;
+
+	//initEvents();
+	//enablePad();
+	debug();
+	//addEvent(&NMIReadPad, 1);
+	
+	// Loop forever
+	while(1);
+}
+
+void IRQHandler(void) {
+}
+
+void NMIHandler(void) {
+	//processEvents();
+}

snes/crc/myEvents.c

@@ -0,0 +1,97 @@
+#include "data.h";
+#include "pad.h";
+#include "event.h";
+
+extern padStatus pad1;
+extern word scrollValue;
+
+char fadeOut(word counter) {
+	static byte fadeOutValue;
+
+	if(counter == 0) {
+		// init fade value
+		fadeOutValue = 0x0f;
+	} else {
+		fadeOutValue--;
+	}
+
+	*(byte*) 0x2100 = fadeOutValue;	
+
+	if(fadeOutValue == 0x00) {
+		return EVENT_STOP;
+	} else { 
+		return EVENT_CONTINUE;
+	}
+}
+
+char fadeIn(word counter) {
+	static byte fadeInValue;
+
+	if(counter == 0) {
+		// init fade value
+		fadeInValue = 0x00;
+	} else {
+		fadeInValue++;
+	}
+
+	*(byte*) 0x2100 = fadeInValue;	
+
+	if(fadeInValue >= 0x0f) {
+		return EVENT_STOP;
+	} else { 
+		return EVENT_CONTINUE;
+	}
+}
+
+char mosaicOut(word counter) {
+	static byte mosaicOutValue;
+
+	if(counter == 0) {
+		// init fade value
+		mosaicOutValue = 0xff;
+	} else {
+		mosaicOutValue -= 0x10;
+	}
+
+	*(byte*) 0x2106 = mosaicOutValue;	
+
+	if(mosaicOutValue == 0x0f) {
+		return EVENT_STOP;
+	} else { 
+		return EVENT_CONTINUE;
+	}
+}
+
+char mosaicIn(word counter) {
+	static byte mosaicInValue;
+
+	if(counter == 0) {
+		// init fade value
+		mosaicInValue = 0x0f;
+	} else {
+		mosaicInValue += 0x10;
+	}
+
+	*(byte*) 0x2106 = mosaicInValue;	
+
+	if(mosaicInValue == 0xff) {
+		return EVENT_STOP;
+	} else { 
+		return EVENT_CONTINUE;
+	}
+}
+
+char NMIReadPad(word counter) {
+	pad1 = readPad((byte) 0);
+
+	return EVENT_CONTINUE;
+}
+
+char scrollLeft(word counter) {
+	scrollValue++;
+
+	*(byte*) 0x210d = (byte) scrollValue;
+	*(byte*) 0x210d = (byte) (scrollValue>>8);
+
+	return EVENT_CONTINUE;
+}

snes/crc/myEvents.h

@@ -0,0 +1,6 @@
+char fadeOut(word counter);
+char fadeIn(word counter);
+char mosaicOut(word counter);
+char mosaicIn(word counter);
+char NMIReadPad(word counter);
+char scrollLeft(word counter);

snes/crc/pad.c

@@ -0,0 +1,17 @@
+#include "data.h";
+#include "pad.h";
+
+void enablePad(void) {
+	// Enable pad reading and NMI
+	*(byte*)0x4200 = 0x81;
+}
+
+padStatus readPad(byte padNumber) {
+	word test;
+	padStatus *status;
+	padNumber = padNumber << 1;
+	test = (word) *(byte*)0x4218+padNumber << 8;
+	test |= (word) *(byte*)0x4219+padNumber;
+	status = (padStatus *) &test;
+	return *status;
+}

snes/crc/pad.h

@@ -0,0 +1,19 @@
+typedef struct padStatus{
+	byte right:1;
+	byte left:1;
+	byte down:1;
+	byte up:1;	
+	byte start:1;	// Enter
+	byte select:1;	// Space
+	byte Y:1;	// X
+	byte B:1;	// C
+	//--------------------------------
+	byte Dummy:4;
+	byte R:1;	// Z
+	byte L:1;	// A
+	byte X:1; 	// S
+	byte A:1;	// D
+} padStatus;
+
+extern void enablePad(void);
+extern padStatus readPad(byte padNumber);

snes/crc/ressource.asm

@@ -0,0 +1,23 @@
+ressource	.section
+
+;	XDEF __title_map
+;__title_map:
+;	INSERT ressource/kungfu.map
+;
+;	XDEF __title_pic
+;__title_pic:
+;	INSERT ressource/kungfu.pic
+;	
+	XDEF __title_pal	
+__title_pal:
+	INSERT ressource/kungfu.clr
+
+	XDEF __debugFont_pic
+__debugFont_pic
+	INSERT ressource/debugFont.pic
+
+	XDEF __debugFont_pal
+__debugFont_pal
+	INSERT ressource/debugFont.clr
+
+.ends

snes/crc/ressource.h

@@ -0,0 +1,6 @@
+//extern word title_map[];
+//extern word title_pic[];
+extern word title_pal[];
+
+extern word debugFont_pic[];
+extern word debugFont_pal[];

snes/crc/wine.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+wine $*
+exit 0