
; Name		getseg -- Get current Segment Values
;
;
; Synopsis	getseg(pcs, pds, pes, pss, psi, pdi, psp, pflag);
;
;		unsigned *cs Pointer to where code segment address goes
;		unsigned *ds Pointer to data segment
;		unsigned *es Pointer to extra segment
;		unsigned *ss Pointer to stack segment
;		unsigned *si Pointer to si register
;		unsigned *di Pointer to di register
;		unsigned *sp Pointer to sp register
;		unsigned *flag Returns flag
;
;
; Returns	cs		value of Code segment
;		ds		value of Data segment
;		es		value of Extra segment
;		ss		value of Stack segment
;		si		value of SI register ****NOT RELIABLE****
;		di		value of DI register
;		sp		value of Stack Pointer
;		flag		value of Flags register
;
;
;


pgroup	group	 prog
prog	segment  byte public 'PROG' ; Combine with C 'PROG' program segment
	assume	 cs:pgroup
	public	 getseg
getseg proc	near
	push	 bp		    ; Save the frame pointer
	mov	 bp,sp
	mov	 si,[bp + 04]	    ; Get the values for the registers
	mov	 ax,[si]
	mov	 si,[bp + 06]
	mov	 bx, [si]
	mov	 si,[bp + 08]
	mov	 cx, [si]
	mov	 si,[bp + 10]
	mov	 dx,[si]
;==============================================================
	mov ax, cs		    ;Get value of code segment
	mov bx, ds		    ;data segment
	mov cx, es		    ;extra segment
	mov dx, ss		    ;stack segment


;==============================================================

uret:	mov	 bp,sp		    ; Now recover the values of the
	mov	 si,[bp + 04]	    ; parameters
	mov	 [si],ax
	mov	 si, [bp + 06]
	mov	 [si], bx
	mov	 si, [bp + 08]
	mov	 [si], cx
	mov	 si, [bp + 10]
	mov	 [si], dx
	mov	 si, [bp + 12]
	mov	 [si], si
	mov	 si, [bp + 14]
	mov	 [si], di
	mov	 si, [bp + 16]
	mov	 [si], sp
	mov	 al, 00 	    ;zero out al
	lahf			    ;load flag into ah
	mov	 si, [bp + 18]
	mov	 [si], ax


	mov	 ax,0		    ; No error

quit:	pop	 bp		    ; Get the original frame pointer.
	ret
getseg endp
prog	ends
	end
                                                                               
