mirror of
https://github.com/cc65/cc65.git
synced 2024-06-27 12:29:33 +00:00
46 lines
629 B
ArmAsm
46 lines
629 B
ArmAsm
|
;
|
||
|
|
; Ullrich von Bassewitz, 03.06.1998
|
||
|
|
;
|
||
|
|
; Heap variables and initialization.
|
||
|
|
;
|
||
|
|
|
||
|
|
.export __horg, __hptr, __hend, __hfirst, __hlast
|
||
|
|
.export __hinit
|
||
|
|
.import __BSS_RUN__, __BSS_SIZE__, __stksize
|
||
|
|
.importzp sp
|
||
|
|
|
||
|
|
.data
|
||
|
|
|
||
|
|
__horg:
|
||
|
|
.word __BSS_RUN__+__BSS_SIZE__ ; Linker calculates this symbol
|
||
|
|
__hptr:
|
||
|
|
.word __BSS_RUN__+__BSS_SIZE__ ; Dito
|
||
|
|
__hend:
|
||
|
|
.word __BSS_RUN__+__BSS_SIZE__
|
||
|
|
__hfirst:
|
||
|
|
.word 0
|
||
|
|
__hlast:
|
||
|
|
.word 0
|
||
|
|
|
||
|
|
|
||
|
|
;
|
||
|
|
; Initialization. Must be called from startup!
|
||
|
|
;
|
||
|
|
|
||
|
|
.code
|
||
|
|
|
||
|
|
__hinit:
|
||
|
|
sec
|
||
|
|
lda sp
|
||
|
|
sbc __stksize
|
||
|
|
sta __hend
|
||
|
|
lda sp+1
|
||
|
|
sbc __stksize+1
|
||
|
|
sta __hend+1
|
||
|
|
rts
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|