Splitted the atexit module. Minor cleanup in doatexit.

git-svn-id: svn://svn.cc65.org/cc65/trunk@395 b7a2c559-68d2-44c3-8de9-860c34a00d81
2000-10-26 06:36:29 +00:00
parent 0df99f3d4d
commit 623fd3e103
3 changed files with 59 additions and 42 deletions
--- a/libsrc/common/doatexit.s
+++ b/libsrc/common/doatexit.s
@@ -0,0 +1,38 @@
+;
+; Ullrich von Bassewitz, 26.10.2000
+;
+; Handle exit functions
+;
+
+      	.export	       	doatexit, exitfunc_index, exitfunc_table
+       	.exportzp      	exitfunc_max
+ 	.import	 	jmpvec
+
+.bss
+exitfunc_index:	.res	1	; Index into table, inc'ed by 2
+exitfunc_table:	.res	10	; 5 exit functions
+exitfunc_max	= <(* - exitfunc_table)
+
+
+.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
+
+
+