;
; file:ram:test.h
;
; generated by FixFD v1.0
;
; Bias = 30
;
_LVOtestfunktion	equ -30
_LVOberechnen		equ -36
_LVOrequest		equ -42
_LVOcopy		equ -48
_LVOcheck		equ -54
_LVOcheckback		equ -60
_LVOev			equ -66
_LVOAnzahlKlammern	equ -72
_LVOleft		equ -78
_LVOright		equ -84
_LVOmid			equ -90
_LVOUmwStoF		equ -96
_LVOstof		equ -102
_LVOFak			equ -108
_LVONuK			equ -114
_LVOEventAbfrage	equ -120
_LVOCreatePort		equ -126
_LVODeletePort		equ -132
_LVOCreateExtIO		equ -138
_LVODeleteExtIO		equ -144
_LVOCreateStdIO		equ -150
_LVODeleteStdIO		equ -156
_LVOUmwFtoS		equ -162
_LVOPrint		equ -168

	xdef	_SetColor
	xdef	_SetNewColor
	xdef	_check
	xdef	_checkback
	xdef	_Print
	xref 	_viep
	xref 	_GfxBase
	xref	_ToolBase
	

	section "1",code

_SetColor
	movem.l	a6,-(a7)
	move.l	_GfxBase,a6
	move.l	_viep,a0
	move.l	#0,d0
	move.l	#0,d1
	move.l	#5,d2
	move.l	#11,d3
	jsr -288(a6)

	move.l	_viep,a0
	move.l	#1,d0
	move.l	#0,d1
	move.l	#0,d2
	move.l	#0,d3
	jsr	-288(a6)

	move.l	_viep,a0
	move.l	#3,d0
	move.l	#15,d1
	move.l	#0,d2
	move.l	#15,d3
	jsr -288(a6)

	move.l	_viep,a0
	move.l	#2,d0
	move.l	#15,d1
	move.l	#0,d2
	move.l	#15,d2
	jsr -288(a6)

	movem.l	(a7)+,a6
	rts

_SetNewColor
	movem.l	a6,-(a7)
	move.l	_GfxBase,a6
	move.l	_viep,a0
	move.l	#0,d0
	move.l	#15,d1
	move.l	#15,d2
	move.l	#15,d3
	jsr	-288(a6)

	move.l	_viep,a0
	move.l	#1,d0
	move.l	#15,d1
	move.l	#0,d2
	move.l	#15,d3
	jsr	-288(a6)

	move.l	_viep,a0
	move.l	#2,d0
	move.l	#0,d1
	move.l	#0,d2
	move.l	#0,d3
	jsr	-288(a6)

	move.l	_viep,a0
	move.l	#3,d0
	move.l	#5,d1
	move.l	#15,d2
	move.l	#0,d3
	jsr	-288(a6)

	movem.l	(a7)+,a6
	rts

; Die meisten Library-Funktionen können bei Lattice 4.00 direkt über 
; die Register aufgerufen werden. Nur wenn zu viele Parameter nötig 
; sind, muß der Umweg über eine solche Stub-Rutine gewählt werden.
; Da ich, wo möglich, die Funktionen direkt aufrufe, habe ich kein .lib
; File für die Library erstellt. Die nötigen Stub-Routinen folgen hier.
; Sie können auch in einem .lib-File zusammengefaßt werden. Analog zu den 
; hier angegebenen Routinen können alle anderen Funktionen natürlich auch
; über eine Stub-Routine aufgerufen werden. Es sollte nicht schwer sein,
; eine solche Sammlung zu erstellen (ist nötig, wenn man eine Sprache 
; benutzt, die die Direktaufrufe nicht zuläßt.

_check
	movem.l	 a6,-(a7)
	movea.l	_ToolBase,a6
	move.l	 8(a7),d0
	move.l	12(a7),d1
	move.l	16(a7),d2
	move.l	20(a7),d3
	move.l	24(a7),a0
	jsr	_LVOcheck(a6)
	movem.l	(a7)+,a6
	rts

_checkback
	movem.l	 a6,-(a7)
	movea.l	_ToolBase,a6
	move.l	 8(a7),d0
	move.l	12(a7),d1
	move.l	16(a7),d2
	move.l	20(a7),d3
	move.l	24(a7),a0
	jsr	_LVOcheckback(a6)
	movem.l	(a7)+,a6
	rts

_Print
	movem.l	 a6,-(a7)
	movea.l	_ToolBase,a6
	move.l	 8(a7),a0
	move.l	12(a7),a1
	move.l	16(a7),d0
	move.l	20(a7),d1
	move.l	24(a7),d2
	jsr	_LVOPrint(a6)
	movem.l	(a7)+,a6
	rts

	end