393 lines
7.5 KiB
NASM
393 lines
7.5 KiB
NASM
;----------------[ Time system ]----------------
|
|
|
|
; tiles locations on HUD (status bar)
|
|
!hud_min_low = $7EC79E
|
|
!hud_min_high = $7EC79C
|
|
!hud_hours_low = $7EC798
|
|
!hud_hours_high = $7EC796
|
|
!hud_template = $0DFF07
|
|
|
|
org !hud_template
|
|
db $10,$24,$11,$24,$12,$24,$90,$24,$90,$24,$13,$24,$90,$24,$90,$24 ; HUD Template(adjusts timer's color)
|
|
|
|
org $068361
|
|
jsl $1CFF30
|
|
;originally JSL $09B06E, executed every frame
|
|
|
|
org $1CFF30
|
|
jsr counter_preroutine
|
|
ldx #$00
|
|
debut:
|
|
ldy #$00
|
|
lda $7EE000,x
|
|
|
|
debut2:
|
|
cmp #$0A
|
|
bmi draw
|
|
sbc #$0A
|
|
iny
|
|
bra debut2
|
|
|
|
draw:
|
|
adc #$90
|
|
cpx #$01
|
|
beq minutes_low
|
|
sta !hud_hours_low
|
|
bra 04
|
|
|
|
minutes_low:
|
|
sta !hud_min_low
|
|
tya
|
|
clc
|
|
adc #$90
|
|
cpx #$01
|
|
beq minutes_high
|
|
sta !hud_hours_high
|
|
bra 04
|
|
|
|
minutes_high:
|
|
sta !hud_min_high
|
|
inx
|
|
cpx #$02
|
|
bmi debut
|
|
jsl $09B06E
|
|
rtl
|
|
|
|
;--------------------------------
|
|
|
|
counter_preroutine:
|
|
lda $10 ;checks current event in game
|
|
cmp #$07 ;dungeon/building?
|
|
beq counter_increasing
|
|
cmp #$09 ;overworld?
|
|
beq overworld
|
|
cmp #$0B
|
|
beq overworld ;sub-area ? (under the bridge; zora domain...)
|
|
cmp #$0E ;dialog box?
|
|
beq dialog
|
|
rts
|
|
|
|
overworld:
|
|
lda $11
|
|
cmp #$23 ;hdma transfer? (warping)
|
|
bne mosaic
|
|
mosaic:
|
|
cmp #$0D ;mosaic ?
|
|
bmi counter_increasing
|
|
rts
|
|
|
|
dialog:
|
|
lda $11 ;which kind of dialog? (to prevent the counter from increasing if save menu or item menu openned)
|
|
cmp #$02 ;NPC/signs speech
|
|
beq counter_increasing
|
|
rts
|
|
|
|
counter_increasing:
|
|
lda $1A
|
|
and #$1F ;change value (1,3,5,7,F,1F,3F,7F,FF) to have different time speed, #$3F is almost 1 sec = 1 game minute
|
|
beq increase_minutes
|
|
end:
|
|
rts
|
|
|
|
increase_minutes:
|
|
lda $7EE001
|
|
inc a
|
|
sta $7EE001
|
|
cmp #$3C ; minutes = #60 ?
|
|
bpl increase_hours
|
|
rts
|
|
|
|
increase_hours:
|
|
lda #$00
|
|
sta $7EE001
|
|
lda $7EE000
|
|
inc a
|
|
sta $7EE000
|
|
cmp #$18 ; hours = #24 ?
|
|
bpl reset_hours
|
|
|
|
lda $1B ;check indoors/outdoors
|
|
beq outdoors0
|
|
rts
|
|
outdoors0:
|
|
jsl rom_to_buff ;update buffer palette
|
|
jsl buff_to_eff ;update effective palette
|
|
lda $8C
|
|
cmp #$9F ;rain layer ?
|
|
beq skip_bg_updt0
|
|
jsl $0BFE70 ;update background color
|
|
bra inc_hours_end
|
|
|
|
skip_bg_updt0: ;prevent the sub layer from disappearing ($1D zeroed)
|
|
jsl $0BFE72
|
|
inc_hours_end:
|
|
rts
|
|
|
|
reset_hours:
|
|
lda #$00
|
|
sta $7EE000
|
|
|
|
lda $1B ;check indoors/outdoors
|
|
beq outdoors1
|
|
rts
|
|
outdoors1:
|
|
jsl rom_to_buff
|
|
jsl buff_to_eff
|
|
lda $8C
|
|
cmp #$9F ;rain layer ?
|
|
beq skip_bg_updt1
|
|
jsl $0BFE70 ;update background color
|
|
bra reset_end
|
|
|
|
skip_bg_updt1: ;prevent the sub layer from disappearing ($1D zeroed)
|
|
jsl $0BFE72
|
|
reset_end:
|
|
rts
|
|
|
|
;-----------------------------------------------
|
|
;----[ Day / Night system * palette effect ]----
|
|
;-----------------------------------------------
|
|
|
|
!blue_value = $7EE010
|
|
!green_value = $7EE012
|
|
!red_value = $7EE014
|
|
|
|
!temp_value = $7EE016
|
|
!pal_color = $7EE018
|
|
!x_reg = $08
|
|
|
|
org $02FF70 ; free space on bank $02
|
|
|
|
buff_to_eff:
|
|
jsr $C769 ; $02:C65F -> palette buffer to effective routine
|
|
rtl
|
|
rom_to_buff:
|
|
jsr $AAF4 ; $02:AAF4 -> change buffer palette of trees,houses,rivers,etc.
|
|
jsr $C692 ; $02:C692 -> rom to palette buffer for other colors
|
|
rtl
|
|
|
|
; part of rom pal to buffer routine
|
|
;$1B/EF61 9F 00 C3 7E STA $7EC300,x[$7E:C422]
|
|
;$1B/EF3D 9F 00 C3 7E STA $7EC300,x[$7E:C412]
|
|
;$1B/EF84 9F 00 C3 7E STA $7EC300,x[$7E:C4B2]
|
|
|
|
org $1BEF3D
|
|
jsl new_palette_load
|
|
org $1BEF61
|
|
jsl new_palette_load
|
|
org $1BEF84
|
|
jsl new_palette_load
|
|
|
|
org $1EEE25 ; free space
|
|
|
|
new_palette_load:
|
|
|
|
sta !pal_color
|
|
|
|
cpx #$0041
|
|
bpl title_check
|
|
sta $7EC300,x
|
|
rtl
|
|
title_check:
|
|
lda $10
|
|
and #$00FF
|
|
cmp #$0002 ; title or file select screen ?
|
|
bpl outin_check
|
|
lda !pal_color
|
|
sta $7EC300,x
|
|
rtl
|
|
outin_check:
|
|
lda $1B
|
|
and #$00FF
|
|
beq outdoors2
|
|
lda !pal_color
|
|
sta $7EC300,x
|
|
rtl
|
|
|
|
outdoors2:
|
|
phx
|
|
jsl color_sub_effect
|
|
plx
|
|
sta $7EC300,x
|
|
rtl
|
|
|
|
;--------------------------------
|
|
|
|
color_sub_effect:
|
|
lda $7EE000 ; lda #hours
|
|
and #$00FF
|
|
clc
|
|
adc $7EE000 ; #hours * 2
|
|
and #$00FF
|
|
tax
|
|
|
|
|
|
do_blue:
|
|
LDA !pal_color
|
|
AND #$7C00
|
|
STA !blue_value
|
|
SEC
|
|
SBC blue_table,x ; substract amount to blue field based on a table
|
|
STA !temp_value
|
|
AND #$7C00 ; mask out everything except the blue bits
|
|
CMP !temp_value ; overflow ?
|
|
BEQ no_blue_sign_change
|
|
blue_sign_change:
|
|
LDA #$0400 ; lda smallest blue value
|
|
no_blue_sign_change:
|
|
STA !blue_value
|
|
|
|
do_green:
|
|
LDA !pal_color
|
|
AND #$03E0
|
|
STA !green_value
|
|
SEC
|
|
SBC green_table,x ; substract amount to blue field based on a table
|
|
STA !temp_value
|
|
AND #$03E0 ; mask out everything except the green bits
|
|
CMP !temp_value ; overflow ?
|
|
BEQ no_green_sign_change
|
|
green_sign_change:
|
|
LDA #$0020 ; lda smallest green value
|
|
no_green_sign_change:
|
|
STA !green_value
|
|
|
|
do_red:
|
|
LDA !pal_color
|
|
AND #$001F
|
|
STA !red_value
|
|
SEC
|
|
SBC red_table,x ; substract amount to red field based on a table
|
|
STA !temp_value
|
|
AND #$001F ; mask out everything except the red bits
|
|
CMP !temp_value ; overflow ?
|
|
BEQ no_red_sign_change
|
|
red_sign_change:
|
|
LDA #$0001 ; lda smallest red value
|
|
no_red_sign_change:
|
|
STA !red_value
|
|
|
|
LDA !blue_value
|
|
ORA !green_value
|
|
ORA !red_value
|
|
|
|
rtl
|
|
|
|
|
|
; color_sub_tables : 24 * 2 bytes each = 48 bytes (2 bytes = 1 color sub for each hour)
|
|
|
|
blue_table:
|
|
dw $1000, $1000, $1000, $1000
|
|
dw $1000, $1000, $1000, $0800
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0400, $0800, $0800
|
|
dw $0800, $1000, $1000, $1000
|
|
|
|
green_table:
|
|
dw $0100, $0100, $0100, $0100
|
|
dw $0100, $00C0, $0080, $0040
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0020, $0040, $0080
|
|
dw $00C0, $0100, $0100, $0100
|
|
|
|
red_table:
|
|
dw $0008, $0008, $0008, $0008
|
|
dw $0008, $0006, $0004, $0002
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0000, $0000, $0000
|
|
dw $0000, $0000, $0000, $0002
|
|
dw $0004, $0006, $0008, $0008
|
|
|
|
background_fix:
|
|
beq no_effect ;branch if A=#$0000 (transparent bg)
|
|
jsl color_sub_effect
|
|
|
|
no_effect:
|
|
sta $7EC500
|
|
sta $7EC300
|
|
sta $7EC540
|
|
sta $7EC340
|
|
rtl
|
|
|
|
subareas_fix:
|
|
sta !pal_color
|
|
phx
|
|
jsl color_sub_effect
|
|
plx
|
|
STA $7EC300
|
|
STA $7EC340
|
|
rtl
|
|
|
|
gloves_fix:
|
|
sta !pal_color
|
|
lda $1B
|
|
and #$00FF
|
|
beq outdoors3
|
|
lda !pal_color
|
|
STA $7EC4FA
|
|
rtl
|
|
|
|
outdoors3:
|
|
phx
|
|
jsl color_sub_effect
|
|
plx
|
|
STA $7EC4FA
|
|
rtl
|
|
|
|
; $0BFE70 -> background color loading routine
|
|
;Background color write fix - 16 bytes
|
|
;$0B/FEB6 8F 00 C5 7E STA $7EC500
|
|
;$0B/FEBA 8F 00 C3 7E STA $7EC300
|
|
;$0B/FEBE 8F 40 C5 7E STA $7EC540
|
|
;$0B/FEC2 8F 40 C3 7E STA $7EC340
|
|
|
|
org $0BFEB6
|
|
sta !pal_color
|
|
jsl background_fix
|
|
nop #8
|
|
|
|
; Subareas background color fix (under the bridge; zora...)
|
|
;$0E/D601 8F 00 C3 7E STA $7EC300[$7E:C300]
|
|
;$0E/D605 8F 40 C3 7E STA $7EC340[$7E:C340]
|
|
|
|
org $0ED601
|
|
jsl subareas_fix
|
|
|
|
;--------------------------------
|
|
|
|
; Gloves color loading routine
|
|
;$1B/EE1B C2 30 REP #$30
|
|
;$1B/EE1D AF 54 F3 7E LDA $7EF354[$7E:F354]
|
|
;$1B/EE21 29 FF 00 AND #$00FF
|
|
;$1B/EE24 F0 0F BEQ $0F [$EE35]
|
|
;$1B/EE26 3A DEC A
|
|
;$1B/EE27 0A ASL A
|
|
;$1B/EE28 AA TAX
|
|
;$1B/EE29 BF F5 ED 1B LDA $1BEDF5,x[$1B:EDF7]
|
|
;$1B/EE2D 8F FA C4 7E STA $7EC4FA[$7E:C4FA]
|
|
;$1B/EE31 8F FA C6 7E STA $7EC6FA[$7E:C6FA]
|
|
;$1B/EE35 E2 30 SEP #$30
|
|
;$1B/EE37 E6 15 INC $15 [$00:0015]
|
|
;$1B/EE39 6B RTL
|
|
|
|
org $1BEE2D
|
|
jsl gloves_fix
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|