mirror of https://github.com/a2-4am/4cade.git
43 lines
796 B
Plaintext
43 lines
796 B
Plaintext
;license:MIT
|
|
;(c) 2019-2022 by 4am
|
|
;
|
|
|
|
!ifndef _FX_MACROS_DHGR_ {
|
|
|
|
!macro COPY_TO_AUXMEM .startpage, .pagecount {
|
|
ldx #.pagecount
|
|
lda #.startpage
|
|
sta $FF
|
|
lda #$00
|
|
sta $FE
|
|
tay
|
|
sta $C005
|
|
- lda ($FE),y
|
|
sta ($FE),y
|
|
iny
|
|
bne -
|
|
inc $FF
|
|
dex
|
|
bne -
|
|
sta $C004
|
|
}
|
|
|
|
!macro BUILD_MIRROR_COLS_DHGR .mirror_cols {
|
|
; build lookup table to get $27-y for y in $00..$27
|
|
; duplicate in both mainmem and auxmem
|
|
ldx #$28
|
|
ldy #$00
|
|
- tya
|
|
sta .mirror_cols-1, x
|
|
sta $C005
|
|
sta .mirror_cols-1, x
|
|
sta $C004
|
|
iny
|
|
dex
|
|
bne -
|
|
; X=0
|
|
}
|
|
|
|
_FX_MACROS_DHGR_=*
|
|
}
|