mirror of
https://github.com/lscharen/iigs-game-engine.git
synced 2024-09-29 02:55:06 +00:00
Init tile sizes; fix merlin bug and fix bad jump table values
This commit is contained in:
parent
e0550696fb
commit
d1557437c5
@ -73,6 +73,17 @@ SetScreenRect sty ScreenHeight ; Save the screen height a
|
|||||||
adc ScreenWidth
|
adc ScreenWidth
|
||||||
sta ScreenX1
|
sta ScreenX1
|
||||||
|
|
||||||
|
lda ScreenHeight ; Divide the height in scanlines by 8 to get the number tiles
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
sta ScreenTileHeight
|
||||||
|
|
||||||
|
lda ScreenWidth ; Divide width in bytes by 4 to get the number of tiles
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
sta ScreenTileWidth
|
||||||
|
|
||||||
lda ScreenY0 ; Calculate the address of the first byte
|
lda ScreenY0 ; Calculate the address of the first byte
|
||||||
asl ; of the right side of the playfield
|
asl ; of the right side of the playfield
|
||||||
tax
|
tax
|
||||||
@ -417,10 +428,10 @@ SetNextLine lda #$F000+{entry_3-base}
|
|||||||
|
|
||||||
PushBanks sep #$20
|
PushBanks sep #$20
|
||||||
jmp (:tbl,x)
|
jmp (:tbl,x)
|
||||||
:tbl da :bottom-04,:bottom-08,:bottom-12,:bottom-16
|
:tbl da :bottom-05,:bottom-10,:bottom-15,:bottom-20
|
||||||
da :bottom-20,:bottom-24,:bottom-28,:bottom-32
|
da :bottom-25,:bottom-30,:bottom-35,:bottom-40
|
||||||
da :bottom-36,:bottom-40,:bottom-44,:bottom-48
|
da :bottom-45,:bottom-50,:bottom-55,:bottom-60
|
||||||
da :bottom-52
|
da :bottom-65
|
||||||
:top lda: BlitBuff+48,y ; These are all 8-bit loads and stores
|
:top lda: BlitBuff+48,y ; These are all 8-bit loads and stores
|
||||||
sta bstk+13
|
sta bstk+13
|
||||||
lda: BlitBuff+44,y
|
lda: BlitBuff+44,y
|
||||||
@ -467,7 +478,8 @@ PushBanks sep #$20
|
|||||||
; A = value
|
; A = value
|
||||||
;
|
;
|
||||||
; Set M to 0 or 1
|
; Set M to 0 or 1
|
||||||
SetConst jmp (:tbl,x)
|
SetConst ; Need a blnk line here, otherwise the :tbl local variable resolveds backwards
|
||||||
|
jmp (:tbl,x)
|
||||||
:tbl da :bottom-00,:bottom-03,:bottom-06,:bottom-09
|
:tbl da :bottom-00,:bottom-03,:bottom-06,:bottom-09
|
||||||
da :bottom-12,:bottom-15,:bottom-18,:bottom-21
|
da :bottom-12,:bottom-15,:bottom-18,:bottom-21
|
||||||
da :bottom-24,:bottom-27,:bottom-30,:bottom-33
|
da :bottom-24,:bottom-27,:bottom-30,:bottom-33
|
||||||
@ -1025,39 +1037,3 @@ top
|
|||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user