100 lines
1.3 KiB
ArmAsm
100 lines
1.3 KiB
ArmAsm
*
|
|
* 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
|
|
*-------------------------------------------------------------------------------
|
|
|