removed jmpvec in favor of callax function

git-svn-id: svn://svn.cc65.org/cc65/trunk@1841 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/geos/runtime/Makefile

@@ -11,7 +11,7 @@
 	@$(AS) -o $@ $(AFLAGS) $<
 
 C_OBJS	=
-S_OBJS	= call.o
+S_OBJS	= call.o condes.o
 
 all: $(C_OBJS) $(S_OBJS)
 

libsrc/geos/runtime/condes.s

@@ -0,0 +1,93 @@
+;
+; 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	__CONSTRUCTOR_TABLE__, __CONSTRUCTOR_COUNT__
+	.import	__DESTRUCTOR_TABLE__, __DESTRUCTOR_COUNT__
+	.import callax
+
+
+.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			; call function in A/X
+.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:	lda	$FFFF,y		; may not change X!
+	rts
+	rts		;!!! this byte will be lost (od65 can't even dump this .o)