initial checkin
This commit is contained in:
Karkat
329
hashalphabet.asm
Normal file
329
hashalphabet.asm
Normal file
@@ -0,0 +1,329 @@
|
||||
;--------------------------------------------------------------------------------
|
||||
; PrepHashAlphabet:
|
||||
;--------------------------------------------------------------------------------
|
||||
PrepHashAlphabet:
|
||||
LDA $11 : CMP.b #$03 : BNE +
|
||||
LDA.b #$06 : STA $14 ; thing we wrote over
|
||||
RTL
|
||||
+
|
||||
|
||||
LDA $00 : PHA
|
||||
LDA $01 : PHA
|
||||
LDA $02 : PHA
|
||||
LDA $03 : PHA
|
||||
LDA $04 : PHA
|
||||
LDA $05 : PHA
|
||||
LDA $06 : PHA
|
||||
LDA $07 : PHA
|
||||
|
||||
JSL.l NameHash
|
||||
JSL.l LoadAlphabetTiles
|
||||
JSL.l LoadAlphabetTilemap
|
||||
|
||||
PLA : STA $07
|
||||
PLA : STA $06
|
||||
PLA : STA $05
|
||||
PLA : STA $04
|
||||
PLA : STA $03
|
||||
PLA : STA $02
|
||||
PLA : STA $01
|
||||
PLA : STA $00
|
||||
RTL
|
||||
;--------------------------------------------------------------------------------
|
||||
|
||||
;--------------------------------------------------------------------------------
|
||||
; GetAlphabetPalette:
|
||||
; In: X = Alphabet Index
|
||||
; Out: A = Palette
|
||||
;--------------------------------------------------------------------------------
|
||||
GetAlphabetPalette:
|
||||
LDA.l .table, X
|
||||
RTL
|
||||
;--------------------------------------------------------------------------------
|
||||
.table
|
||||
db $00, $0C, $04, $0C, $04, $00, $0C, $18
|
||||
db $08, $08, $08, $04, $00, $00, $0C, $08
|
||||
db $18, $0C, $18, $04, $04, $0C, $14, $00
|
||||
db $0C, $04, $08, $18, $04, $08, $04, $08
|
||||
;--------------------------------------------------------------------------------
|
||||
|
||||
;--------------------------------------------------------------------------------
|
||||
; GetAlphabetTileAddr:
|
||||
; Notes:
|
||||
; Assumes 16-bit accumulator
|
||||
;--------------------------------------------------------------------------------
|
||||
GetAlphabetTileAddr:
|
||||
ASL #6
|
||||
!ADD.w #$B800 ; $31:B800
|
||||
RTL
|
||||
;--------------------------------------------------------------------------------
|
||||
|
||||
!ALPHA_TILE_WIDTH = "#$40"
|
||||
!ALPHA_VRAM_DEST_BASE = "#$FA00"
|
||||
|
||||
;--------------------------------------------------------------------------------
|
||||
; LoadAlphabetTiles
|
||||
; In:
|
||||
; $00 - Tile 0
|
||||
; $01 - Tile 1
|
||||
; $02 - Tile 2
|
||||
; $03 - Tile 3
|
||||
; $04 - Tile 4
|
||||
;--------------------------------------------------------------------------------
|
||||
LoadAlphabetTiles:
|
||||
PHA : PHX
|
||||
LDA $4300 : PHA ; preserve DMA parameters
|
||||
LDA $4301 : PHA ; preserve DMA parameters
|
||||
LDA $4302 : PHA ; preserve DMA parameters
|
||||
LDA $4303 : PHA ; preserve DMA parameters
|
||||
LDA $4304 : PHA ; preserve DMA parameters
|
||||
LDA $4305 : PHA ; preserve DMA parameters
|
||||
LDA $4306 : PHA ; preserve DMA parameters
|
||||
;--------------------------------------------------------------------------------
|
||||
LDA.b #$80 : STA $2115 ; write read increment on $2119
|
||||
LDA.b #$01 : STA $4300 ; set DMA transfer direction A -> B, bus A auto increment, double-byte mode
|
||||
LDA.b #$18 : STA $4301 ; set bus B destination to VRAM register
|
||||
|
||||
LDA.b !ALPHA_VRAM_DEST_BASE>>1 : STA $2116 ; write VRAM destination address
|
||||
LDA.b !ALPHA_VRAM_DEST_BASE>>9 : STA $2117 ; write VRAM destination address
|
||||
|
||||
LDA.b #GFX_Hash_Alphabet>>16 : STA $4304 ; set bus A source bank
|
||||
|
||||
LDA $2100 : PHA : LDA.b #$80 : STA $2100 ; save screen state & turn screen off
|
||||
LDX.b #$00 : -
|
||||
|
||||
LDA $00, X
|
||||
REP #$20 ; set 16-bit accumulator
|
||||
AND.w #$001F ; mask to alphabet of 32
|
||||
JSL.l GetAlphabetTileAddr : STA $4302 ; set bus A source address to SRAM
|
||||
|
||||
SEP #$20 ; set 8-bit accumulator
|
||||
|
||||
LDA.b !ALPHA_TILE_WIDTH : STA $4305 : STZ $4306 ; set transfer size to 0x40
|
||||
LDA #$01 : STA $420B ; begin DMA transfer
|
||||
|
||||
INX
|
||||
CPX.b #$05 : !BLT -
|
||||
PLA : STA $2100 ; put screen back however it was before
|
||||
;--------------------------------------------------------------------------------
|
||||
PLA : STA $4306 ; restore DMA parameters
|
||||
PLA : STA $4305 ; restore DMA parameters
|
||||
PLA : STA $4304 ; restore DMA parameters
|
||||
PLA : STA $4303 ; restore DMA parameters
|
||||
PLA : STA $4302 ; restore DMA parameters
|
||||
PLA : STA $4301 ; restore DMA parameters
|
||||
PLA : STA $4300 ; restore DMA parameters
|
||||
PLX : PLA
|
||||
RTL
|
||||
;--------------------------------------------------------------------------------
|
||||
|
||||
;--------------------------------------------------------------------------------
|
||||
;Hash Alphabet
|
||||
!ALPHA_BOW = "#$0000"
|
||||
!ALPHA_BOOM = "#$0001"
|
||||
!ALPHA_HOOK = "#$0002"
|
||||
!ALPHA_BOMB = "#$0003"
|
||||
!ALPHA_SHROOM = "#$0004"
|
||||
!ALPHA_POWDER = "#$0005"
|
||||
!ALPHA_ROD = "#$0006"
|
||||
!ALPHA_PENDANT = "#$0007"
|
||||
!ALPHA_BOMBOS = "#$0008"
|
||||
!ALPHA_ETHER = "#$0009"
|
||||
!ALPHA_QUAKE = "#$000A"
|
||||
!ALPHA_LAMP = "#$000B"
|
||||
!ALPHA_HAMMER = "#$000C"
|
||||
!ALPHA_SHOVEL = "#$000D"
|
||||
!ALPHA_FLUTE = "#$000E"
|
||||
!ALPHA_NET = "#$000F"
|
||||
!ALPHA_BOOK = "#$0010"
|
||||
!ALPHA_BOTTLE = "#$0011"
|
||||
!ALPHA_POTION = "#$0012"
|
||||
!ALPHA_CANE = "#$0013"
|
||||
!ALPHA_CAPE = "#$0014"
|
||||
!ALPHA_MIRROR = "#$0015"
|
||||
!ALPHA_BOOTS = "#$0016"
|
||||
!ALPHA_GLOVES = "#$0017"
|
||||
!ALPHA_FLIPPERS = "#$0018"
|
||||
!ALPHA_PEARL = "#$0019"
|
||||
!ALPHA_SHIELD = "#$001A"
|
||||
!ALPHA_TUNIC = "#$001B"
|
||||
!ALPHA_HEART = "#$001C"
|
||||
!ALPHA_MAP = "#$001D"
|
||||
!ALPHA_COMPASS = "#$001E"
|
||||
!ALPHA_KEY = "#$001F"
|
||||
;--------------------------------------------------------------------------------
|
||||
|
||||
;--------------------------------------------------------------------------------
|
||||
!BIGRAM = "$7EC900";
|
||||
;--------------------------------------------------------------------------------
|
||||
LoadAlphabetTilemap:
|
||||
PHA : PHX : PHY : PHP
|
||||
SEP #$10 ; 8-bit index registers
|
||||
REP #$20 ; 16-bit accumulator
|
||||
|
||||
LDX.b #$00 : -
|
||||
LDA FileSelect_PlayerSelectText_Top, X
|
||||
STA !BIGRAM, X
|
||||
INX #2
|
||||
CPX #128 : !BLT -
|
||||
|
||||
|
||||
SEP #$20 ; 8-bit accumulator
|
||||
|
||||
LDY.b #00
|
||||
LDX.b #$00 : -
|
||||
PHX : TYX : LDA $00, X : PLX
|
||||
AND.b #$1F ; mask to alphabet of 32
|
||||
PHX : TAX : JSL.l GetAlphabetPalette : PLX
|
||||
ORA.b #$01
|
||||
|
||||
STA !BIGRAM+28+1, X
|
||||
STA !BIGRAM+28+1+2, X
|
||||
STA !BIGRAM+28+64+1, X
|
||||
STA !BIGRAM+28+64+1+2, X
|
||||
INX #6 : INY
|
||||
CPX #25 : !BLT -
|
||||
|
||||
JSR DMAAlphabetTilemap:
|
||||
|
||||
PLP : PLY : PLX : PLA
|
||||
RTL
|
||||
;--------------------------------------------------------------------------------
|
||||
; DMAAlphabetTilemap:
|
||||
;--------------------------------------------------------------------------------
|
||||
DMAAlphabetTilemap:
|
||||
PHA : PHX
|
||||
LDA $4300 : PHA ; preserve DMA parameters
|
||||
LDA $4301 : PHA ; preserve DMA parameters
|
||||
LDA $4302 : PHA ; preserve DMA parameters
|
||||
LDA $4303 : PHA ; preserve DMA parameters
|
||||
LDA $4304 : PHA ; preserve DMA parameters
|
||||
LDA $4305 : PHA ; preserve DMA parameters
|
||||
LDA $4306 : PHA ; preserve DMA parameters
|
||||
;--------------------------------------------------------------------------------
|
||||
LDA.b #$01 : STA $4300 ; set DMA transfer direction A -> B, bus A auto increment, double-byte mode
|
||||
LDA.b #$80 : STA $2115 ; write read increment on $2119
|
||||
LDA.b #$18 : STA $4301 ; set bus B destination to VRAM register
|
||||
|
||||
LDA.b #$60 : STA $2116 ; write VRAM destination address
|
||||
STA $2117 ; write VRAM destination address
|
||||
|
||||
LDA.b #!BIGRAM : STA $4302 ; set bus A source address to WRAM
|
||||
LDA.b #!BIGRAM>>8 : STA $4303 ; set bus A source address to WRAM
|
||||
LDA.b #!BIGRAM>>16 : STA $4304 ; set bus A source bank
|
||||
|
||||
LDA.b #$80 : STA $4305 : STZ $4306 ; set transfer size to 0x40
|
||||
|
||||
LDA $2100 : PHA : LDA.b #$80 : STA $2100 ; save screen state & turn screen off
|
||||
LDA #$01 : STA $420B ; begin DMA transfer
|
||||
PLA : STA $2100 ; put screen back however it was before
|
||||
;--------------------------------------------------------------------------------
|
||||
LDA.b #$00 : STA $4300 ; set DMA transfer direction A -> B, bus A auto increment, single-byte mode
|
||||
LDA.b #$22 : STA $4301 ; set bus B destination to CGRAM register
|
||||
|
||||
STZ $2121 ; write CGRAM destination address
|
||||
|
||||
LDA.b #GFX_HUD_Palette : STA $4302 ; set bus A source address to WRAM
|
||||
LDA.b #GFX_HUD_Palette>>8 : STA $4303 ; set bus A source address to WRAM
|
||||
LDA.b #GFX_HUD_Palette>>16 : STA $4304 ; set bus A source bank
|
||||
|
||||
LDA.b #$80 : STA $4305 : STZ $4306 ; set transfer size to 0x40
|
||||
|
||||
LDA $2100 : PHA : LDA.b #$80 : STA $2100 ; save screen state & turn screen off
|
||||
LDA #$01 : STA $420B ; begin DMA transfer
|
||||
PLA : STA $2100 ; put screen back however it was before
|
||||
;--------------------------------------------------------------------------------
|
||||
PLA : STA $4306 ; restore DMA parameters
|
||||
PLA : STA $4305 ; restore DMA parameters
|
||||
PLA : STA $4304 ; restore DMA parameters
|
||||
PLA : STA $4303 ; restore DMA parameters
|
||||
PLA : STA $4302 ; restore DMA parameters
|
||||
PLA : STA $4301 ; restore DMA parameters
|
||||
PLA : STA $4300 ; restore DMA parameters
|
||||
PLX : PLA
|
||||
RTS
|
||||
;--------------------------------------------------------------------------------
|
||||
!FSTILE_SPACE = "$0188"
|
||||
|
||||
!FSTILE_BRACKET_OPEN_TOP = "$1D8A"
|
||||
!FSTILE_BRACKET_OPEN_BOTTOM = "$1D9A"
|
||||
|
||||
!FSTILE_BRACKET_CLOSE_TOP = "$1D8B"
|
||||
!FSTILE_BRACKET_CLOSE_BOTTOM = "$1D9B"
|
||||
;--------------------------------------------------------------------------------
|
||||
FileSelect_PlayerSelectText_Top:
|
||||
;db $60, $62, $00, $37
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
dw !FSTILE_BRACKET_OPEN_TOP
|
||||
dw !FSTILE_SPACE, $1D6C
|
||||
dw !FSTILE_SPACE, $1D4E
|
||||
dw !FSTILE_SPACE, $1D4E
|
||||
dw !FSTILE_SPACE, $1D4D
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
dw !FSTILE_SPACE, $05A0, $05A1
|
||||
dw !FSTILE_SPACE, $05A4, $05A5
|
||||
dw !FSTILE_SPACE, $05A8, $05A9
|
||||
dw !FSTILE_SPACE, $05AC, $05AD
|
||||
dw !FSTILE_SPACE, $05B0, $05B1
|
||||
dw !FSTILE_SPACE
|
||||
dw !FSTILE_BRACKET_CLOSE_TOP
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;--------------------------------------------------------------------------------
|
||||
FileSelect_PlayerSelectText_Bottom:
|
||||
;db $60, $82, $00, $37
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
dw !FSTILE_BRACKET_OPEN_BOTTOM
|
||||
dw !FSTILE_SPACE, $1D7C
|
||||
dw !FSTILE_SPACE, $1D5E
|
||||
dw !FSTILE_SPACE, $1D5E
|
||||
dw !FSTILE_SPACE, $1D5D
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
dw !FSTILE_SPACE, $05A2, $05A3
|
||||
dw !FSTILE_SPACE, $05A6, $05A7
|
||||
dw !FSTILE_SPACE, $05AA, $05AB
|
||||
dw !FSTILE_SPACE, $05AE, $05AF
|
||||
dw !FSTILE_SPACE, $05B2, $05B3
|
||||
dw !FSTILE_SPACE
|
||||
dw !FSTILE_BRACKET_CLOSE_BOTTOM
|
||||
dw !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;--------------------------------------------------------------------------------
|
||||
org $0CDE60 ; <- 65E60
|
||||
FileSelect_CopyFile_Top:
|
||||
db $62, $A5, $00, $15
|
||||
dw $1D4C, !FSTILE_SPACE, $1D68, !FSTILE_SPACE, $1D69, !FSTILE_SPACE, $1D82, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;dw $1CAC, !FSTILE_SPACE, $1D23, !FSTILE_SPACE, $1D89, !FSTILE_SPACE, $1D04, !FSTILE_SPACE, $1D89, !FSTILE_SPACE, $1D07
|
||||
;--------------------------------------------------------------------------------
|
||||
org $0CDE7A ; <- 65E7A
|
||||
FileSelect_CopyFile_Bottom:
|
||||
db $62, $C5, $00, $15
|
||||
dw $1D5C, !FSTILE_SPACE, $1D78, !FSTILE_SPACE, $1D79, !FSTILE_SPACE, $1D92, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;dw $1CBC, !FSTILE_SPACE, $1D33, !FSTILE_SPACE, $1D99, !FSTILE_SPACE, $1D14, !FSTILE_SPACE, $1D99, !FSTILE_SPACE, $1D17
|
||||
;--------------------------------------------------------------------------------
|
||||
org $0CDE94 ; <- 65E94
|
||||
FileSelect_KillFile_Top:
|
||||
db $63, $25, $00, $19
|
||||
dw $1D64, !FSTILE_SPACE, $1D62, !FSTILE_SPACE, $1D65, !FSTILE_SPACE, $1D65, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;dw $1D64, !FSTILE_SPACE, $1D62, !FSTILE_SPACE, $1D65, !FSTILE_SPACE, $1D65, !FSTILE_SPACE, $1D04, !FSTILE_SPACE, $1D89, !FSTILE_SPACE, $1D07
|
||||
;--------------------------------------------------------------------------------
|
||||
;org $0CDEB2 ; <- 65EB2
|
||||
;FileSelect_KillFile_Bottom:
|
||||
db $63, $45, $00, $19
|
||||
dw $1D74, !FSTILE_SPACE, $1D72, !FSTILE_SPACE, $1D75, !FSTILE_SPACE, $1D75, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE, !FSTILE_SPACE
|
||||
;dw $1D74, !FSTILE_SPACE, $1D72, !FSTILE_SPACE, $1D75, !FSTILE_SPACE, $1D75, !FSTILE_SPACE, $1D14, !FSTILE_SPACE, $1D99, !FSTILE_SPACE, $1D17
|
||||
;--------------------------------------------------------------------------------
|
||||
;org $0CDDE8 ; <- 65DE8
|
||||
;FileSelect_PlayerSelectText_Top:
|
||||
;db $60, $62, $00, $37
|
||||
;db $8A, $1D, $88, $01, $69, $1D, $88, $01, $65, $1D, $88, $01, $4A, $1D, $88, $01
|
||||
;db $82, $1D, $88, $01, $4E, $1D, $88, $01, $6B, $1D, $88, $01, $88, $01, $6C, $1D
|
||||
;db $88, $01, $4E, $1D, $88, $01, $65, $1D, $88, $01, $4E, $1D, $88, $01, $4C, $1D
|
||||
;db $88, $01, $6D, $1D, $88, $01, $8B, $1D
|
||||
;--------------------------------------------------------------------------------
|
||||
;org $0CDE24 ; <- 65E24
|
||||
;FileSelect_PlayerSelectText_Bottom:
|
||||
;db $60, $82, $00, $37
|
||||
;db $9A, $1D, $88, $01, $79, $1D, $88, $01, $75, $1D, $88, $01, $5A, $1D, $88, $01
|
||||
;db $92, $1D, $88, $01, $5E, $1D, $88, $01, $7B, $1D, $88, $01, $88, $01, $7C, $1D
|
||||
;db $88, $01, $5E, $1D, $88, $01, $75, $1D, $88, $01, $5E, $1D, $88, $01, $5C, $1D
|
||||
;db $88, $01, $7D, $1D, $88, $01, $9B, $1D
|
||||
;--------------------------------------------------------------------------------
|
||||
Reference in New Issue
Block a user