home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c005 / 5.ddi / UTSREG.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-08-05  |  2.7 KB  |  159 lines
  1. ;
  2. ; Name        utsreg -- Return the segment register values
  3. ;
  4. ; Synopsis    utsreg(pcs,pss,pds,pes);
  5. ;
  6. ;        unsigned *pcs,*pss,*pds,*pes
  7. ;             Segment registers are returned in these
  8. ;             variables.
  9. ;
  10. ; Description    This function returns the values of the segment
  11. ;        registers of the calling function.
  12. ;
  13. ; Version    3.0 (C)Copyright Blaise Computing Inc.    1983, 1984, 1986
  14.  
  15.     name     utsreg
  16.  
  17.     LONGPROG = 0               ; Initialize constants for
  18.     LONGDATA = 0               ; pass1 of the assembler
  19.  
  20.     include   compiler.mac           ; Specifies the C compiler
  21.  
  22.     if LAT200 or LAT210 or LAT300
  23.     include  dos.mac
  24.     LONGDATA = LDATA
  25.     LONGPROG = LPROG
  26.  
  27.     pseg
  28.     public     utsreg
  29.     if     LPROG
  30. utsreg    proc     far
  31.     x  equ     6               ; offset of arguments
  32.     else
  33. utsreg    proc     near
  34.     x equ     4
  35.     endif
  36.     if LDATA
  37.     b equ 4
  38.     c equ 8
  39.     d equ 12
  40.     else
  41.     b equ 2
  42.     c equ 4
  43.     d equ 6
  44.     endif
  45.     endif
  46.  
  47.     if MSC300
  48.     include  dos.mac
  49.     LONGPROG = LPROG
  50.     LONGDATA = LDATA
  51.  
  52.     pseg     utsreg
  53.     public     _utsreg
  54.     if     LPROG
  55.     x   equ  6               ; offset of arguments
  56. _utsreg proc     far
  57.     else
  58.     x   equ  4
  59. _utsreg proc     near
  60.     endif
  61.     if LDATA
  62.     b equ 4
  63.     c equ 8
  64.     d equ 12
  65.     else
  66.     b equ 2
  67.     c equ 4
  68.     d equ 6
  69.     endif
  70.     endif
  71.  
  72.     if CI201A
  73.     include  model.h
  74.     include  prologue.h
  75.     LONGDATA = @bigmodel
  76.     LONGPROG = @bigmodel
  77.  
  78.     public     utsreg
  79.     if     @bigmodel
  80. utsreg    proc     far
  81.     x equ 6
  82.     b equ 4
  83.     c equ 8
  84.     d equ 12
  85.     else
  86. utsreg    proc     near
  87.     x equ 4
  88.     b equ 2
  89.     c equ 4
  90.     d equ 6
  91.     endif
  92.     endif
  93.  
  94.     push     bp
  95.     mov     bp,sp
  96.     if     MSC300
  97.     push     si               ; Save register variables
  98.     endif
  99.  
  100.     if     LONGDATA
  101.     push     ax               ; Store the ES register for
  102.     push     es               ; recovery later
  103.     les     si,dword ptr [bp + x]
  104.     if     LONGPROG
  105.     mov     cx,[bp + x - 2]       ; CS is on the stack
  106.     mov     es:[si],cx
  107.     else
  108.     mov     es:[si],cs           ; CS has not changed for NEAR
  109.     endif
  110.     les     si,dword ptr [bp + x + b]
  111.     mov     es:[si],ss
  112.     les     si,dword ptr [bp + x + c]
  113.     mov     es:[si],ds
  114.     les     si,dword ptr [bp + x + d]
  115.     pop     ax               ; This is ES
  116.     mov     es:[si],ax
  117.     pop     ax               ; Restore AX
  118.     else
  119.     mov     si,[bp + x]
  120.     if     LONGPROG
  121.     mov     cx,[bp + x -2]        ; CS is on the stack
  122.     mov     [si],cx
  123.     else
  124.     mov     [si],cs           ; CS has not changed for NEAR
  125.     endif
  126.     mov     si,[bp + x + b]
  127.     mov     [si],ss
  128.     mov     si,[bp + x + c]
  129.     mov     [si],ds
  130.     mov     si,[bp + x + d]
  131.     mov     [si],es
  132.     endif
  133.  
  134.     if     MSC300            ; Recover index registers
  135.     pop     si               ; (used for register variables)
  136.     cld                   ; MSC 3 expects DF = 0.
  137.     endif
  138.     pop     bp
  139.     ret
  140.     if MSC300
  141. _utsreg endp
  142.     else
  143. utsreg    endp
  144.     endif
  145.  
  146.     if LAT200 or LAT210 or LAT300
  147.     endps
  148.     endif
  149.  
  150.     if CI201A
  151.     include  epilogue.h
  152.     endif
  153.  
  154.     if MSC300
  155.     endps     utsreg
  156.     endif
  157.  
  158.     end
  159.