v4.0/src/CMD/REPLACE/_PARSE.ASM

   1 page    60,132                          ;\ f
   2 name    _parse
   3 title   C       to PARSER interface
   4 ;-------------------------------------------------------------------
   5 ;
   6 ;       MODULE:         _parse
   7 ;
   8 ;       PURPOSE:        Supplies an interface between C programs and
   9 ;                       the DOS 3.3 parser
  10 ;
  11 ;       CALLING FORMAT:
  12 ;                       parse(&inregs,&outregs);
  13 ;
  14 ;       DATE:           5-21-87
  15 ;
  16 ;-------------------------------------------------------------------
  17
  18 ;       extrn   sysparse:far
  19
  20         public  _parse                  ;AN000;
  21
  22 ;-------------------------------------------------------------------
  23
  24 ; SET FOR REPLACE
  25 ; -------------
  26
  27 FarSW   equ     0                       ; make sysparse be a NEAR proc          ;AN000;
  28 TimeSW  equ     0                       ; Check time format                     ;AN000;
  29 FileSW  equ     1                       ; Check file specification              ;AN000;
  30 CAPSW   equ     1                       ; Perform CAPS if specified             ;AN000;
  31 CmpxSW  equ     0                       ; Check complex list                    ;AN000;
  32 NumSW   equ     0                       ; Check numeric value                   ;AN000;
  33 KeySW   equ     0                       ; Support keywords                      ;AN000;
  34 SwSW    equ     1                       ; Support switches                      ;AN000;
  35 Val1SW  equ     0                       ; Support value definition 1            ;AN000;
  36 Val2SW  equ     0                       ; Support value definition 2            ;AN000;
  37 Val3SW  equ     0                       ; Support value definition 3            ;AN000;
  38 DrvSW   equ     1                       ; Support drive only format             ;AN000;
  39 QusSW   equ     0                       ; Support quoted string format          ;AN000;
  40 ;-------------------------------------------------------------------
  41
  42 DGROUP  GROUP   _DATA
  43 PGROUP  GROUP   _TEXT
  44
  45 _DATA   segment byte public 'DATA'      ;AN000;
  46 BASESW  =       1                       ;SPECIFY, PSDATA POINTED TO BY "DS"
  47 INCSW   =       0                       ;PSDATA.INC IS ALREADY INCLUDED
  48         INCLUDE PSDATA.INC              ;PARSER'S WORK SPACE
  49 _DATA   ends                            ;AN000;
  50
  51 _TEXT   segment byte public 'CODE'      ;AN000;
  52
  53         ASSUME  CS: PGROUP              ;AN000;
  54         ASSUME  DS: DGROUP              ;AN000;
  55
  56 ;-------------------------------------------------------------------
  57         include parse.asm               ; include the parser                    ;AN000;
  58 ;-------------------------------------------------------------------
  59
  60 _parse  proc    near                    ;AN000;
  61
  62         push    bp                      ; save user's base pointer              ;AN000;
  63         mov     bp,sp                   ; set bp to current sp                  ;AN000;
  64         push    di                      ; save some registers                   ;AN000;
  65         push    si                      ;AN000;
  66
  67 ;       copy C inregs into proper registers
  68
  69         mov     di,[bp+4]               ; fix di (arg 0)                        ;AN000;
  70
  71 ;-------------------------------------------------------------------
  72
  73         mov     ax,[di+0ah]             ; load di                               ;AN000;
  74         push    ax                      ; the di value from inregs is now on stack;AN000;
  75
  76         mov     ax,[di+00]              ; get inregs.x.ax                       ;AN000;
  77         mov     bx,[di+02]              ; get inregs.x.bx                       ;AN000;
  78         mov     cx,[di+04]              ; get inregs.x.cx                       ;AN000;
  79         mov     dx,[di+06]              ; get inregs.x.dx                       ;AN000;
  80         mov     si,[di+08]              ; get inregs.x.si                       ;AN000;
  81         pop     di                      ; get inregs.x.di from stack            ;AN000;
  82
  83         push    bp                      ; save base pointer                     ;AN000;
  84
  85 ;-------------------------------------------------------------------
  86         call    sysparse                ; call the parser                       ;AN000;
  87 ;-------------------------------------------------------------------
  88
  89         pop     bp                      ; restore base pointer                  ;AN000;
  90         push    di                      ; the di value from call is now on stack;AN000;
  91         mov     di,[bp+6]               ; fix di (arg 1)                        ;AN000;
  92
  93         mov     [di+00],ax              ; load outregs.x.ax                     ;AN000;
  94         mov     [di+02],bx              ; load outregs.x.bx                     ;AN000;
  95         mov     [di+04],cx              ; load outregs.x.cx                     ;AN000;
  96         mov     [di+06],dx              ; load outregs.x.dx                     ;AN000;
  97         mov     [di+08],si              ; load outregs.x.si                     ;AN000;
  98
  99         lahf                            ; get flags into ax                     ;AN000;
 100         mov     al,ah                   ; move into low byte                    ;AN000;
 101         mov     [di+0ch],ax             ; load outregs.x.cflag                  ;AN000;
 102
 103         pop     ax                      ; get di from stack                     ;AN000;
 104         mov     [di+0ah],ax             ; load outregs.x.di                     ;AN000;
 105
 106 ;-------------------------------------------------------------------
 107
 108         pop     si                      ; restore registers                     ;AN000;
 109         pop     di                      ;AN000;
 110         mov     sp,bp                   ; restore sp                            ;AN000;
 111         pop     bp                      ; restore user's bp                     ;AN000;
 112         ret                             ;AN000;
 113
 114 _parse  endp                            ;AN000;
 115
 116 _TEXT   ends                            ; end code segment                      ;AN000;
 117         end                             ;AN000;
 118
 119 \1a