45 lines
923 B
NASM
45 lines
923 B
NASM
clearTable:
|
|
dw $007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F,$007F
|
|
|
|
|
|
WriteText:
|
|
{
|
|
PHP
|
|
; $7EC025 = Timer
|
|
; $7EC026 = When we find an empty item get set on 1
|
|
; $7EC027 = character data
|
|
|
|
LDX.b #$80 : STX.w INIDISP
|
|
REP #$20
|
|
LDA.w #$6000+$0340 : STA.w VMADDL
|
|
|
|
LDA.w #$C027 : STA.w A1T4L
|
|
LDX.b #$7E : STX.w A1B4
|
|
LDA.w #$0040 : STA.w DAS4L
|
|
LDA.w #$1801 : STA.w DMAP4
|
|
LDX.b #$10 : STX.w DMAENABLE
|
|
|
|
LDX.b #$0F : STX.w INIDISP
|
|
PLP
|
|
RTL
|
|
}
|
|
|
|
|
|
ClearBG:
|
|
{
|
|
PHP
|
|
LDX.b #$80 : STX.w INIDISP
|
|
REP #$20
|
|
LDA.w #$6000+$0340 : STA.w VMADDL
|
|
LDA.w #clearTable : STA.w A1T4L
|
|
LDX.b #clearTable>>16 : STX.w A1B4
|
|
|
|
LDA.w #$0040 : STA.w DAS4L
|
|
LDA.w #$1801 : STA.w DMAP4
|
|
LDX.b #$10 : STX.w DMAENABLE
|
|
|
|
LDX.b #$0F : STX.w INIDISP
|
|
PLP
|
|
RTL
|
|
}
|