**************************************************
*
* Dummy Extension for STOS
*
* Compiler version
*

	OUTPUT	D:\STOS\COMPILER\DUMMY.ECZ

* Offsets to parts of the extension

START	dc.l	PARA-START
	dc.l	DATA-START
	dc.l	LIB1-START

* here is the library catalogue - ie length of each routine

CATALOG	dc.w	LIB2-LIB1	; I have 1 routine + 1 dummy
	dc.w	LIBEX-LIB2
* Here is the parameter table header

PARA	dc.w	2,2		; 2 instructions (including dummy)
	dc.w	pdummy-PARA
	dc.w	pjoypad-PARA

* Here are the actual parameter definitions
*
* format =         return value :: parameter list :: 1,1,0
* parameter list = value,",",value,",",value...
* value =          0 = int, $80=string

pdummy		dc.b	0,1,1,0
pjoypad		dc.b	0,0,1,1,0

* Here is the data space

	EVEN

DATA	bra	COLDST

global	ds.l	1

* Initialisation code

COLDST	lea	END(pc),a2
	clr.l	d0
	rts

END	rts



************************************************
*
* My instructions / functions
*

* dummy instruction 
LIB1	dc.w	0
	rts


* Joypad
LIB2	dc.w	0		all instructions start with dc.w 0
	move.l	$92c(a5),a3		
	move.l	0(a3,d1.w),a3		needed if referencing data area

	move.l	(a6)+,d0		get a parameter 

	move.l	global-DATA(a3),d1	put 'global' into d1

	add.l	d1,d0

	move.l	d0,-(a6)		return value
	rts

 
*** The end.....

LIBEX	dc.w	0