mirror of
https://github.com/cc65/cc65.git
synced 2024-07-02 15:29:33 +00:00
53dd513176
which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81
70 lines
894 B
ArmAsm
70 lines
894 B
ArmAsm
;
|
|
; Ullrich von Bassewitz, 06.06.1998
|
|
;
|
|
; int atexit (void (*f) (void));
|
|
;
|
|
|
|
; The exit functions
|
|
|
|
.export _atexit, doatexit
|
|
.import __errno, jmpvec
|
|
|
|
.bss
|
|
ecount: .byte 0 ; Really an index, inc'ed by 2
|
|
efunc: .word 0,0,0,0,0 ; 5 exit functions
|
|
maxcount = * - efunc
|
|
|
|
|
|
.code
|
|
|
|
_atexit:
|
|
ldy ecount
|
|
cpy #maxcount ; slot available?
|
|
beq E0 ; jump if no
|
|
|
|
; Enter the function into the table
|
|
|
|
sta efunc,y
|
|
iny
|
|
txa
|
|
sta efunc,y
|
|
iny
|
|
sty ecount
|
|
|
|
; Done, return zero
|
|
|
|
lda #0
|
|
tax
|
|
rts
|
|
|
|
; Error, no space left
|
|
|
|
E0: lda #$FF
|
|
sta __errno ; Use -1 until codes are defined ###
|
|
sta __errno+1
|
|
tax
|
|
rts
|
|
|
|
; Function called from exit
|
|
|
|
doatexit:
|
|
ldy ecount ; get index
|
|
beq L9 ; jump if done
|
|
dey
|
|
lda efunc,y
|
|
sta jmpvec+2
|
|
dey
|
|
lda efunc,y
|
|
sta jmpvec+1
|
|
sty ecount
|
|
ldy #0 ; number of function parms
|
|
jsr jmpvec
|
|
jmp doatexit ; next one
|
|
|
|
L9: rts
|
|
|
|
|
|
|
|
|
|
|