*
* ORCA/M Format!!
* Thunk from C to compiled draw things
*
 case on
 longa on
 longi on

Dummy3 start ASMCODE
	end

*
* void DrawTile(short offset, short tileNo)
*

DrawTile start ASMCODE
	
iOffset equ 5
iTileNo equ 7

	phb
		
	lda iOffset,s
	tay
	lda iTileNo,s
	asl A
	tax 		; jmp table offset in x
	
	anop ; adjust the stack
    anop ; Copy the Return address
    lda 3,s
    sta iTileNo,s
    lda 1,s
    sta iTileNo-2,s

	pla
	
	lda #$0101
	sta 1,s
	plb
	plb
TILEBANK2 entry	
	lda >$880005,x	
	sta >TILEBANK+1
	
	cpy #$9D00-(7*160)
	bge skip

TILEBANK entry	
	jsl >$880000
skip anop   
	plb
	
	rtl

*-------------------------------------------------------------------------------
    end

SetTileBank start ASMCODE
	
iBank equ 4
	sep #$30
	lda iBank,s
	sta >TILEBANK+3
	sta >TILEBANK2+3
	rep #$30
	lda 2,s
	sta iBank,s
	lda 1,s
	sta iBank-1,s
	pla
	rtl	

*-------------------------------------------------------------------------------
	end
	

*-------------------------------------------------------------------------------
wait_vsync start BLITCODE
	
	php
	sep #$30
  
*	while VBLANK, wait here  
invbl anop
	lda >$00c019
	bpl invbl
	
*	while !VBLANK, loop here
vbl anop
	lda >$00c019
	bmi vbl
	
	plp
	rtl
*-------------------------------------------------------------------------------
	end
*-------------------------------------------------------------------------------