; 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