IMPORT	_GemParBlk
	EXPORT	vdipb, CALL_VDI
	EXPORT	aespb, CALL_AES

	OFFSET
contrl: DS.W	15
global: DS.W	80
intin:	DS.W	128
intout: DS.W	45
ptsout: DS.W	128
addrin: DS.L	128
addrout:DS.L	6
ptsin:	DS.W	128

	DATA
	ALIGN	4

	MODULE	vdipb
	DC.L	_GemParBlk + contrl
	DC.L	_GemParBlk + intin
	DC.L	_GemParBlk + ptsin
	DC.L	_GemParBlk + intout
	DC.L	_GemParBlk + ptsout
	ENDMOD

	MODULE	aespb
	DC.L	_GemParBlk + contrl
	DC.L	_GemParBlk + global
	DC.L	_GemParBlk + intin
	DC.L	_GemParBlk + intout
	DC.L	_GemParBlk + addrin
	DC.L	_GemParBlk + addrout
	ENDMOD

	TEXT

	MODULE	CALL_VDI
	MOVE.L	A2,-(SP)
	MOVE.L	#vdipb,D1
	MOVEQ.L #$73,D0
	TRAP	#2
	MOVE.L	(SP)+,A2
	RTS
	ENDMOD

	MODULE	CALL_AES
	MOVE.L	A2,-(SP)
	MOVE.L	#aespb,D1
	MOVE.W	#$C8,D0
	TRAP	#2
	MOVE.L	(SP)+,A2
	RTS
	ENDMOD