alttpr-gwaa-kiwi/alttpr-baserom
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b5bcc138064e9c630b17f392b8de234fc5ac382e
alttpr-baserom/roomloading.asm
aerinon 49dc0f4037 DR Code Init Commit 
Rails for Mixed Travel
2020-10-29 15:58:05 -06:00

299 lines
8.5 KiB
NASM
Raw Blame History

LoadRoomHook:
JSL.l IndoorTileTransitionCounter
.noStats
JSL Dungeon_LoadRoom
REP #$10 ; 16 bit XY
LDX $A0 ; Room ID
LDA.l RoomCallbackTable, X
SEP #$10 ; 8 bit XY
JSL UseImplicitRegIndexedLongJumpTable
; Callback routines:
dl NoCallback ; 00
dl IcePalaceBombosSE ; 01
dl IcePalaceBombosSW ; 02
dl IcePalaceBombosNE ; 03
dl CastleEastEntrance ; 04
dl CastleWestEntrance ; 05
dl PoDFallingBridge ; 06
dl PoDArena ; 07
dl MireBKPond ; 08
NoCallback:
RTL
!RL_TILE = 2
!RL_LINE = 128
macro setTilePointer(roomX, roomY, quadX, quadY)
; Left-to-right math. Should be equivalent to 0x7e2000+(roomX*2)+(roomY*128)+(quadX*64)+(quadY*4096)
LDX.w #<quadY>*32+<roomY>*2+<quadX>*32+<roomX>*2
endmacro
macro writeTile()
STA.l $7E2000,x
INX #2
endmacro
macro writeTileAt(roomX, roomY, quadX, quadY)
STA.l <quadY>*32+<roomY>*2+<quadX>*32+<roomX>*2+$7E2000
endmacro
!BOMBOS_BORDER = #$08D0
!BOMBOS_ICON_1 = #$0CCA
!BOMBOS_ICON_2 = #$0CCB
!BOMBOS_ICON_3 = #$0CDA
!BOMBOS_ICON_4 = #$0CDB
macro DrawBombosPlatform(roomX, roomY, quadX, quadY)
REP #$30 ; 16 AXY
%setTilePointer(<roomX>, <roomY>, <quadX>, <quadY>)
LDA.w !BOMBOS_BORDER
%writeTile()
%writeTile()
%writeTile()
%writeTile()
%setTilePointer(<roomX>, <roomY>+1, <quadX>, <quadY>)
%writeTile()
LDA.w !BOMBOS_ICON_1 : %writeTile()
LDA.w !BOMBOS_ICON_2 : %writeTile()
LDA.w !BOMBOS_BORDER : %writeTile()
%setTilePointer(<roomX>, <roomY>+2, <quadX>, <quadY>)
%writeTile()
LDA.w !BOMBOS_ICON_3 : %writeTile()
LDA.w !BOMBOS_ICON_4 : %writeTile()
LDA.w !BOMBOS_BORDER : %writeTile()
%setTilePointer(<roomX>, <roomY>+3, <quadX>, <quadY>)
%writeTile()
%writeTile()
%writeTile()
%writeTile()
SEP #$30 ; 8 AXY
endMacro
IcePalaceBombosSE:
LDA AllowSwordlessMedallionUse : BNE + : RTL : +
%DrawBombosPlatform(14, 18, 1, 1)
RTL
IcePalaceBombosSW:
LDA AllowSwordlessMedallionUse : BNE + : RTL : +
%DrawBombosPlatform(14, 18, 0, 1)
RTL
IcePalaceBombosNE:
LDA AllowSwordlessMedallionUse : BNE + : RTL : +
%DrawBombosPlatform(14, 18, 1, 0)
RTL
CastleEastEntrance:
LDA $7EF3C5 : CMP.b #$02 : !BLT + : RTL : + ; only apply in rain states (0 or 1)
LDA.l BlockCastleDoorsInRain : BNE + : RTL : +
REP #$20 ; 16 A
LDA.w #$08e1 ; square peg
%writeTileAt(11,21,0,1)
%writeTileAt(11,26,0,1)
%writeTileAt(20,21,0,1)
%writeTileAt(20,26,0,1)
INC ;horizontal rail
%writeTileAt(12,21,0,1)
%writeTileAt(13,21,0,1)
%writeTileAt(14,21,0,1)
%writeTileAt(15,21,0,1)
%writeTileAt(16,21,0,1)
%writeTileAt(17,21,0,1)
%writeTileAt(18,21,0,1)
%writeTileAt(19,21,0,1)
INC ;vertical rail
%writeTileAt(11,22,0,1)
%writeTileAt(11,23,0,1)
%writeTileAt(11,24,0,1)
%writeTileAt(11,25,0,1)
%writeTileAt(20,22,0,1)
%writeTileAt(20,23,0,1)
%writeTileAt(20,24,0,1)
%writeTileAt(20,25,0,1)
SEP #$20 ; 8 A
RTL
CastleWestEntrance:
LDA $7EF3C5 : CMP.b #$02 : !BLT + : RTL : + ; only apply in rain states (0 or 1)
LDA.l BlockCastleDoorsInRain : BNE + : RTL : +
REP #$20 ; 16 A
LDA.w #$08e1 ; square peg
%writeTileAt(11,21,1,1)
%writeTileAt(11,26,1,1)
%writeTileAt(20,21,1,1)
%writeTileAt(20,26,1,1)
INC ;horizontal rail
%writeTileAt(12,21,1,1)
%writeTileAt(13,21,1,1)
%writeTileAt(14,21,1,1)
%writeTileAt(15,21,1,1)
%writeTileAt(16,21,1,1)
%writeTileAt(17,21,1,1)
%writeTileAt(18,21,1,1)
%writeTileAt(19,21,1,1)
INC ;vertical rail
%writeTileAt(11,22,1,1)
%writeTileAt(11,23,1,1)
%writeTileAt(11,24,1,1)
%writeTileAt(11,25,1,1)
%writeTileAt(20,22,1,1)
%writeTileAt(20,23,1,1)
%writeTileAt(20,24,1,1)
%writeTileAt(20,25,1,1)
SEP #$20 ; 8 A
RTL
PoDFallingBridge:
LDA.l DRFlags : AND #$10 : BNE + : RTL : +
REP #$20 ; 16 A
LDA.w #$08e1 ; square peg
%writeTileAt(5,7,0,1)
%writeTileAt(11,7,0,1)
INC ;horizontal rail
%writeTileAt(6,7,0,1)
%writeTileAt(7,7,0,1)
%writeTileAt(8,7,0,1)
%writeTileAt(9,7,0,1)
%writeTileAt(10,7,0,1)
SEP #$20 ; 8 A
REP #$20 ; 16 A
LDA.w #$08e0 ; corner top left
%writeTileAt(5,6,0,1)
%writeTileAt(10,6,0,1)
LDA.w #$48e0 ; corner top right
%writeTileAt(6,6,0,1)
%writeTileAt(11,6,0,1)
LDA.w #$08f4 ; top mid
%writeTileAt(7,6,0,1)
%writeTileAt(8,6,0,1)
%writeTileAt(9,6,0,1)
LDA.w #$08f1 ; corner mid left
%writeTileAt(5,7,0,1)
%writeTileAt(10,7,0,1)
LDA.w #$48f1 ; corner mid right
%writeTileAt(6,7,0,1)
%writeTileAt(11,7,0,1)
LDA.w #$08f2 ; mid mid
%writeTileAt(7,7,0,1)
%writeTileAt(8,7,0,1)
%writeTileAt(9,7,0,1)
LDA.w #$08e4 ; corner lower left
%writeTileAt(5,8,0,1)
%writeTileAt(10,8,0,1)
LDA.w #$48e4 ; corner lower right
%writeTileAt(6,8,0,1)
%writeTileAt(11,8,0,1)
LDA.w #$08e5 ; lower mid
%writeTileAt(7,8,0,1)
%writeTileAt(8,8,0,1)
%writeTileAt(9,8,0,1)
SEP #$20 ; 8 A
RTL
;08e0 48e0 08f4 08f4 08e0 48e0
;08f1 48f1 08f2 08f2 08f1 48f1
;08e4 48e4 08e5 08e5 08e4 48e4
;
;(54,42) 22,10,1,1 42 85 2720 2742 156C
;(54,43) 22,11,1,1 43 87 2784 2806 15EC
;(54,44) 22,12,1,1 44 89 2848 2870 166C
PoDArena:
LDA.l DRFlags : AND #$10 : BNE + : RTL : +
REP #$20 ; 16 A
LDA.w #$08e0 ; corner top left
%writeTileAt(22,10,1,1)
%writeTileAt(25,10,1,1)
LDA.w #$48e0 ; corner top right
%writeTileAt(23,10,1,1)
%writeTileAt(26,10,1,1)
LDA.w #$08f4 ; top mid
%writeTileAt(24,10,1,1)
LDA.w #$08f1 ; corner mid left
%writeTileAt(22,11,1,1)
%writeTileAt(25,11,1,1)
LDA.w #$48f1 ; corner mid right
%writeTileAt(23,11,1,1)
%writeTileAt(26,11,1,1)
LDA.w #$08f2 ; mid mid
%writeTileAt(24,11,1,1)
LDA.w #$08e4 ; corner lower left
%writeTileAt(22,12,1,1)
%writeTileAt(25,12,1,1)
LDA.w #$48e4 ; corner lower right
%writeTileAt(23,12,1,1)
%writeTileAt(26,12,1,1)
LDA.w #$08e5 ; lower mid
%writeTileAt(24,12,1,1)
SEP #$20 ; 8 A
RTL
MireBKPond:
LDA.l DRFlags : AND #$10 : BNE + : RTL : +
REP #$20 ; 16 A
LDA.w #$08e0 ; corner top left
%writeTileAt(13,11,1,1)
%writeTileAt(17,11,1,1)
LDA.w #$48e0 ; corner top right
%writeTileAt(14,11,1,1)
%writeTileAt(18,11,1,1)
LDA.w #$08f4 ; top mid
%writeTileAt(15,11,1,1)
%writeTileAt(16,11,1,1)
LDA.w #$08f1 ; corner mid left
%writeTileAt(13,12,1,1)
%writeTileAt(17,12,1,1)
LDA.w #$48f1 ; corner mid right
%writeTileAt(14,12,1,1)
%writeTileAt(18,12,1,1)
LDA.w #$08f2 ; mid mid
%writeTileAt(15,12,1,1)
%writeTileAt(16,12,1,1)
LDA.w #$08e4 ; corner lower left
%writeTileAt(13,13,1,1)
%writeTileAt(17,13,1,1)
LDA.w #$48e4 ; corner lower right
%writeTileAt(14,13,1,1)
%writeTileAt(18,13,1,1)
LDA.w #$08e5 ; lower mid
%writeTileAt(15,13,1,1)
%writeTileAt(16,13,1,1)
SEP #$20 ; 8 A
RTL
RoomCallbackTable:
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $01, $00 ; 00x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $06, $00, $00, $00, $00, $00 ; 01x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $07, $00, $00, $00, $00, $00 ; 02x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 03x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 04x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 05x
db $05, $00, $04, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 06x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $02, $00 ; 07x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 08x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 09x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Ax
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Bx
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Cx
db $00, $08, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $03, $00 ; 0Dx
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Ex
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Fx
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 0Fx
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 10x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 11x
db $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00 ; 12x
Reference in New Issue View Git Blame Copy Permalink