mirror of
https://github.com/cc65/cc65.git
synced 2024-11-18 00:07:21 +00:00
97 lines
1.8 KiB
ArmAsm
97 lines
1.8 KiB
ArmAsm
;
|
|
; Ullrich von Bassewitz, 20.11.2000
|
|
;
|
|
; CC65 runtime: Support for calling module constructors/destructors
|
|
;
|
|
; The condes routine must be called with the table address in a/x and the
|
|
; size of the table in y. The current implementation limits the table size
|
|
; to 254 bytes (127 vectors) but this shouldn't be problem for now and may
|
|
; be changed later.
|
|
;
|
|
; libinit and libdone call condes with the predefined module constructor and
|
|
; destructor tables, they must be called from the platform specific startup
|
|
; code.
|
|
|
|
|
|
.export initlib, donelib, condes
|
|
|
|
.import callax
|
|
.import __CONSTRUCTOR_TABLE__, __CONSTRUCTOR_COUNT__
|
|
.import __DESTRUCTOR_TABLE__, __DESTRUCTOR_COUNT__
|
|
|
|
.macpack cpu
|
|
|
|
.code
|
|
|
|
; --------------------------------------------------------------------------
|
|
; Initialize library modules
|
|
|
|
.proc initlib
|
|
|
|
lda #<__CONSTRUCTOR_TABLE__
|
|
ldx #>__CONSTRUCTOR_TABLE__
|
|
ldy #<(__CONSTRUCTOR_COUNT__*2)
|
|
bne condes
|
|
rts
|
|
|
|
.endproc
|
|
|
|
|
|
; --------------------------------------------------------------------------
|
|
; Cleanup library modules
|
|
|
|
.proc donelib
|
|
|
|
lda #<__DESTRUCTOR_TABLE__
|
|
ldx #>__DESTRUCTOR_TABLE__
|
|
ldy #<(__DESTRUCTOR_COUNT__*2)
|
|
bne condes
|
|
rts
|
|
|
|
.endproc
|
|
|
|
|
|
; --------------------------------------------------------------------------
|
|
; Generic table call handler
|
|
|
|
.proc condes
|
|
|
|
sta getbyt+1
|
|
stx getbyt+2
|
|
sty index
|
|
|
|
loop: ldy index
|
|
beq done
|
|
dey
|
|
jsr getbyt
|
|
tax
|
|
dey
|
|
jsr getbyt
|
|
sty index
|
|
jsr callax
|
|
.if (.cpu .bitand ::CPU_ISET_65SC02)
|
|
bra loop
|
|
.else
|
|
jmp loop
|
|
.endif
|
|
|
|
done: rts
|
|
|
|
.endproc
|
|
|
|
|
|
; --------------------------------------------------------------------------
|
|
; Data. The getbyte routine is placed in the data segment cause it's patched
|
|
; at runtime.
|
|
|
|
.bss
|
|
|
|
index: .byte 0
|
|
|
|
.data
|
|
|
|
getbyt: lda $FFFF,y
|
|
rts
|
|
|
|
|