167 lines
4.5 KiB
NASM
167 lines
4.5 KiB
NASM
!ExtendedPlayerName = "$700500"
|
|
|
|
;FS prefix means file_select, since these defines and macros are specific to this screen
|
|
!FS_INVENTORY_SWAP = "$70038C"
|
|
!FS_INVENTORY_SWAP_2 = "$70038E"
|
|
|
|
|
|
!FS_COLOR_BROWN = "$0000" ;(only used for: Shovel, hammer, powder)
|
|
!FS_COLOR_RED = "$0400"
|
|
!FS_COLOR_YELLOW = "$0800"
|
|
!FS_COLOR_BLUE = "$0C00"
|
|
!FS_COLOR_GRAY = "$1000" ;(Used to gray out items)
|
|
!FS_COLOR_BOOTS = "$1400"
|
|
!FS_COLOR_GREEN = "$1800"
|
|
!FS_COLOR_BW = "$1C00"
|
|
|
|
macro fs_draw8x8(screenrow,screencol)
|
|
;Note due to XKAS's screwy math this formula is misleading.
|
|
;in normal math we have $1004+2*col+$40*row
|
|
STA.w <screenrow>*$20+<screencol>*2+$1004
|
|
endmacro
|
|
macro fs_draw16x8(screenrow,screencol)
|
|
%fs_draw8x8(<screenrow>,<screencol>)
|
|
INC A
|
|
%fs_draw8x8(<screenrow>,<screencol>+1)
|
|
endmacro
|
|
macro fs_draw8x16(screenrow,screencol)
|
|
%fs_draw8x8(<screenrow>,<screencol>)
|
|
!ADD #$0010
|
|
%fs_draw8x8(<screenrow>+1,<screencol>)
|
|
endmacro
|
|
macro fs_draw16x16(screenrow,screencol)
|
|
%fs_draw16x8(<screenrow>,<screencol>)
|
|
!ADD #$000F
|
|
%fs_draw16x8(<screenrow>+1,<screencol>)
|
|
endmacro
|
|
|
|
|
|
DrawPlayerFile:
|
|
PHX : PHY
|
|
|
|
LDA !ExtendedPlayerName+$00 : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(6,3)
|
|
LDA !ExtendedPlayerName+$02 : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(6,5)
|
|
LDA !ExtendedPlayerName+$04 : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(6,7)
|
|
LDA !ExtendedPlayerName+$06 : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(6,9)
|
|
|
|
LDA !ExtendedPlayerName+$08 : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(9,3)
|
|
LDA !ExtendedPlayerName+$0A : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(9,5)
|
|
LDA !ExtendedPlayerName+$0C : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(9,7)
|
|
LDA !ExtendedPlayerName+$0E : ORA.w #!FS_COLOR_BW
|
|
%fs_draw8x16(9,9)
|
|
|
|
; ;bow
|
|
; LDA.l !FS_INVENTORY_SWAP_2 : AND.w #$0040 : BEQ +
|
|
; LDA.l $700340 : AND.w #$00FF : BEQ ++
|
|
; LDA.w #$0201|!FS_COLOR_YELLOW : %fs_draw8x8(2,12)
|
|
; LDA.w #$0204|!FS_COLOR_YELLOW : %fs_draw8x8(2,13)
|
|
; LDA.w #$0203|!FS_COLOR_RED : %fs_draw8x8(3,12)
|
|
; LDA.w #$0212|!FS_COLOR_YELLOW : %fs_draw8x8(3,13)
|
|
; BRA .bow_end
|
|
; ++
|
|
; LDA #$0214|!FS_COLOR_RED : %fs_draw8x8(2,13)
|
|
; LDA.w #$0213|!FS_COLOR_RED : %fs_draw8x8(3,12)
|
|
; BRA .bow_end
|
|
; +
|
|
; LDA.l $700340 : AND.w #$00FF : BEQ ++
|
|
; LDA.w #$0201|!FS_COLOR_YELLOW : %fs_draw16x16(2,12)
|
|
; BRA .bow_end
|
|
; ++
|
|
; LDA.w #$0201|!FS_COLOR_GRAY : %fs_draw16x16(2,12)
|
|
; .bow_end
|
|
;
|
|
; ;hookshot
|
|
; LDA.l $700342 : AND.w #$00FF : BEQ +
|
|
; LDA.w #$0215|!FS_COLOR_RED
|
|
; BRA .draw_hook
|
|
; +
|
|
; LDA.w #$0215|!FS_COLOR_GRAY
|
|
; .draw_hook
|
|
; %fs_draw8x8(2,17)
|
|
; !ADD.w #$0230-$0215 ;hookshot handle
|
|
; %fs_draw8x8(3,16)
|
|
;
|
|
; ;powder
|
|
; LDA !FS_INVENTORY_SWAP : AND.w #$0010 : BEQ +
|
|
; LDA.w #$020A|!FS_COLOR_BROWN
|
|
; BRA .draw_powder
|
|
; +
|
|
; LDA.w #$020A|!FS_COLOR_GRAY
|
|
; .draw_powder
|
|
; %fs_draw16x16(2,20)
|
|
;
|
|
; ;mushroom
|
|
; LDA !FS_INVENTORY_SWAP : AND.w #$0020 : BEQ +
|
|
; LDA.w #$0262|!FS_COLOR_RED
|
|
; BRA .draw_shroom
|
|
; +
|
|
; LDA.w #$0262|!FS_COLOR_GRAY
|
|
; .draw_shroom
|
|
; %fs_draw16x16(2,22)
|
|
|
|
PLY : PLX
|
|
LDA.w #$0004 : STA $02 ; thing we wrote over
|
|
RTL
|
|
;--------------------------------------------------------------------------------
|
|
AltBufferTable:
|
|
LDA.b #$02 : STA $210c ; Have Screen 3 use same tile area as screens 1
|
|
|
|
REP #$20
|
|
LDX.w #$0300 ; 12 rows with 64 bytes (30 tiles * 2 + 4 byte header)
|
|
;fill with the blank character
|
|
LDA.w #$0188
|
|
-
|
|
STA $1000, X
|
|
DEX : DEX : BNE -
|
|
|
|
; set vram offsets
|
|
LDA.w #$2161 : STA $1002 ;file 1 top row
|
|
LDA.w #$4161 : STA $1042 ;file 1 bottom row
|
|
|
|
LDA.w #$6161 : STA $1082 ;gap row top
|
|
LDA.w #$8161 : STA $10C2 ;gap row bottom
|
|
|
|
LDA.w #$A161 : STA $1102 ;file 2 top row
|
|
LDA.w #$C161 : STA $1142 ;file 2 bottom row
|
|
|
|
LDA.w #$E161 : STA $1182 ;gap row top
|
|
LDA.w #$0162 : STA $11c2 ;gap row bottom
|
|
|
|
LDA.w #$2162 : STA $1202 ;file 3 top row
|
|
LDA.w #$4162 : STA $1242 ;file 3 bottom row
|
|
|
|
LDA.w #$6162 : STA $1282 ;extra gap row top
|
|
LDA.w #$8162 : STA $12c2 ;extra gap row bottom
|
|
|
|
; set lengths
|
|
LDA.w #$3B00
|
|
STA $1004 ;file 1 top row
|
|
STA $1044 ;file 1 bottom row
|
|
STA $1084 ;gap row top
|
|
STA $10C4 ;gap row bottom
|
|
STA $1104 ;file 2 top row
|
|
STA $1144 ;file 2 bottom row
|
|
STA $1184 ;gap row top
|
|
STA $11c4 ;gap row bottom
|
|
STA $1204 ;file 3 top row
|
|
STA $1244 ;file 3 bottom row
|
|
STA $1284 ;extra gap row top
|
|
STA $12c4 ;extra gap row bottom
|
|
|
|
; Set last packet marker
|
|
LDA.w #$00FF : STA $1302
|
|
SEP #$20
|
|
|
|
RTL
|
|
;--------------------------------------------------------------------------------
|
|
Validate_SRAM:
|
|
RTL
|
|
;--------------------------------------------------------------------------------
|