Upload

Digital Research

MPM OPERATING SYSTEMS/MPM-86/MISC DRI DISKS/10/DRCGSX.A86

@@ -0,0 +1,40 @@
+
+;****************************************************************
+;*								*
+;*		DRC to GSX interface				*
+;*								*
+;****************************************************************
+;
+;The following code is an assembler interface to the GSX for DRC
+;
+CGROUP	GROUP CODE
+;
+PUBLIC	GSX
+;
+	CSEG
+;
+GSX:
+	Mov	BX,SP			;get address of arguments from C
+	Add	BX,0AH			;point at the other end 
+	Push	SI
+	Push	DI
+	Push	BP
+	Push	ES
+	Pushf	
+	Mov	CX,5			;5 arguments
+MAKE_LONG:
+	Push	DS			;make them long word pointers
+	Push	word ptr [BX]			;data also
+	Sub	BX,2			;point at the next
+	Loop	MAKE_LONG	
+	Mov	DX,SP			;point at the list
+	Mov	CX,0473H		;layer 0, GDOS 4, function 115
+	Int	0E0H			;ring the BDOS bell
+	Add	SP,014H			;unstack the longwords
+	Popf
+	Pop	ES
+	Pop	BP
+	Pop	DI
+	Pop	SI
+	Ret
+