the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First condes feature test

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@463 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz
2000-11-20 23:05:52 +00:00
parent d2d7a2e31b
commit 23937f1dac
5 changed files with 47 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
libsrc/common/atexit.s
View File

@@ -5,12 +5,13 @@
;
.export _atexit
.import exitfunc_table, exitfunc_index
.importzp exitfunc_max
.destructor doatexit, 16
.import __errno
.import jmpvec
.include "errno.inc"
; ---------------------------------------------------------------------------
.proc _atexit
@@ -47,4 +48,35 @@
; ---------------------------------------------------------------------------
.code
.proc doatexit
ldy exitfunc_index ; Get index
beq @L9 ; Jump if done
dey
lda exitfunc_table,y
sta jmpvec+2
dey
lda exitfunc_table,y
sta jmpvec+1
sty exitfunc_index
jsr jmpvec ; Call the function
jmp doatexit ; Next one
@L9: rts
.endproc
; ---------------------------------------------------------------------------
.bss
exitfunc_index: .res 1 ; Index into table, inc'ed by 2
exitfunc_table: .res 10 ; 5 exit functions
exitfunc_max = <(* - exitfunc_table)