mirror of
https://github.com/cc65/cc65.git
synced 2024-11-19 21:32:19 +00:00
103 lines
1.8 KiB
ArmAsm
103 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__
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
.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
|
||
|
|
.ifpc02
|
||
|
|
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:
|
||
|
|
;;getbyt_:
|
||
|
|
lda $FFFF,y
|
||
|
|
rts
|
||
|
|
|
||
|
|
;; callax doesnt work? why?!
|
||
|
|
;_callax:
|
||
|
|
; sta @l+1
|
||
|
|
; stx @l+2
|
||
|
|
;@l: jmp $dead
|