1
0
mirror of https://github.com/cc65/cc65.git synced 2026-03-11 08:41:58 +00:00
Files
cc65/libsrc/apple2/extra/integer-basic-compat.s
2025-03-09 16:19:42 +01:00

34 lines
927 B
ArmAsm

;
; Colin Leroy-Mira, 06.03.2025
;
; Copy the LC segment from the end of the binary to the Language Card
; using _memcpy. This allows running apple2 programs on the original
; Integer ROM Apple ][.
;
.export bltu2
.import _memcpy, pushax
.import __ONCE_LOAD__, __ONCE_SIZE__ ; Linker generated
.import __LC_START__, __LC_LAST__ ; Linker generated
.segment "ONCE"
bltu2:
; Get the destination start address.
lda #<__LC_START__
ldx #>__LC_START__
jsr pushax
; Get the source start address.
lda #<(__ONCE_LOAD__ + __ONCE_SIZE__)
ldx #>(__ONCE_LOAD__ + __ONCE_SIZE__)
jsr pushax
; Set the length
lda #<(__LC_LAST__ - __LC_START__)
ldx #>(__LC_LAST__ - __LC_START__)
; And do the copy
jmp _memcpy