mirror of https://github.com/KarolS/millfork.git
140 lines
2.7 KiB
Plaintext
140 lines
2.7 KiB
Plaintext
#if not(INIT_RW_MEMORY)
|
|
#error The init_rw_memory module cannot be used by the current target
|
|
#endif
|
|
|
|
#if ARCH_6502
|
|
|
|
|
|
#if TINY_RW_MEMORY
|
|
|
|
asm void init_rw_memory() {
|
|
? ldx #__rwdata_size.lo // can't be more than $00FC
|
|
? beq __init_rw_memory__skip3
|
|
+ memory_barrier()
|
|
__init_rw_memory__loop3:
|
|
? lda lo(__rwdata_init_start - 1),x
|
|
? sta lo(__rwdata_start - 1),x
|
|
? dex
|
|
? bne __init_rw_memory__loop3
|
|
+ memory_barrier()
|
|
__init_rw_memory__skip3:
|
|
? rts
|
|
}
|
|
|
|
#else
|
|
|
|
#if ZPREG_SIZE < 4
|
|
#error The init_rw_module requires at least 4 bytes of zeropage pseudoregister
|
|
#endif
|
|
|
|
noinline asm void init_rw_memory() {
|
|
? lda #__rwdata_size.hi
|
|
? ora #__rwdata_size.lo
|
|
? beq __init_rw_memory__skip3
|
|
+ memory_barrier()
|
|
|
|
? ldx #__rwdata_size.hi
|
|
? beq __init_rw_memory__skip1
|
|
|
|
? lda #__rwdata_init_start.lo
|
|
? sta __reg
|
|
? lda #__rwdata_init_start.hi
|
|
? sta __reg+1
|
|
? lda #__rwdata_start.lo
|
|
? sta __reg+2
|
|
? lda #__rwdata_start.hi
|
|
? sta __reg+3
|
|
|
|
__init_rw_memory__loop1:
|
|
? ldy #0
|
|
__init_rw_memory__loop2:
|
|
? lda (__reg),y
|
|
? sta (__reg+2),y
|
|
? dey
|
|
? bne __init_rw_memory__loop2
|
|
? inc __reg+1
|
|
? inc __reg+3
|
|
? dex
|
|
? bne __init_rw_memory__loop1
|
|
|
|
__init_rw_memory__skip1:
|
|
? ldx #__rwdata_size.lo
|
|
? beq __init_rw_memory__skip3
|
|
__init_rw_memory__loop3:
|
|
? lda __rwdata_init_start + (__rwdata_size & $ff00) - 1,x
|
|
? sta __rwdata_start + (__rwdata_size & $ff00) - 1,x
|
|
? dex
|
|
? bne __init_rw_memory__loop3
|
|
__init_rw_memory__skip3:
|
|
+ memory_barrier()
|
|
rts
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
#elseif CPUFEATURE_Z80
|
|
|
|
#pragma zilog_syntax
|
|
noinline asm void init_rw_memory() {
|
|
ld bc,__rwdata_size
|
|
ld a,b
|
|
or c
|
|
ret z
|
|
+ memory_barrier()
|
|
ld hl,__rwdata_init_start
|
|
ld de,__rwdata_start
|
|
ldir
|
|
+ memory_barrier()
|
|
ret
|
|
}
|
|
|
|
#elseif ARCH_I80
|
|
|
|
#pragma zilog_syntax
|
|
noinline asm void init_rw_memory() {
|
|
ld bc,__rwdata_size
|
|
ld a,b
|
|
or c
|
|
ret z
|
|
+ memory_barrier()
|
|
ld hl,__rwdata_init_start
|
|
ld de,__rwdata_start
|
|
__init_rw_memory__loop1:
|
|
? ld a,(hl)
|
|
? inc hl
|
|
ld (de),a
|
|
inc de
|
|
dec bc
|
|
? jp nz,__init_rw_memory__loop1
|
|
+ memory_barrier()
|
|
ret
|
|
}
|
|
|
|
#elseif ARCH_6809
|
|
|
|
noinline asm void init_rw_memory() {
|
|
// TODO: optimal register allocation
|
|
ldd __rwdata_size
|
|
beq __init_rw_memory_end
|
|
+ memory_barrier()
|
|
pshs u
|
|
ldx __rwdata_init_start
|
|
ldu __rwdata_start
|
|
__init_rw_memory__loop1:
|
|
ldb ,x
|
|
stb ,u
|
|
leax 1,x
|
|
cmpx #__rwdata_init_start+__rwdata_size
|
|
? bne __init_rw_memory__loop1
|
|
+ memory_barrier()
|
|
puls u
|
|
__init_rw_memory_end:
|
|
rts
|
|
}
|
|
|
|
#else
|
|
|
|
#error Unsupported architecture for init_rw_memory
|
|
|
|
#endif |