home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / turbo55 / tdinstal / taexmpl2.arc / OPARSCMD.ASM < prev    next >
Assembly Source File  |  1989-05-02  |  3KB  |  104 lines
  1.  
  2. ;    FILENAME: OPARSCMD.ASM
  3. ;    Copyright (c) 1988, 1989 by Borland International, Inc.
  4. ;
  5. ;    Description: This module implements the routine ParseCmd. ParseCmd 
  6. ;    parses the command line.
  7. ; 
  8. ;    ASSEMBLY INSTRUCTIONS:  To assemble this module use the following  
  9. ;    TASM command line.     
  10. ;  
  11. ;        TASM oparscmd
  12.  
  13. include globals.inc
  14.  
  15. _TEXT   segment
  16.  
  17.     ParseCmd proc
  18.  
  19.     ;    Input 
  20.     ;        si - address of start of command line
  21.     ;        OptTab - Option Table
  22.     ;        Options - designates user set options
  23.     ;    Output
  24.     ;        command line processed
  25.     ;    Registers modified
  26.     ;        si, bx, ax, di
  27.  
  28.     push    ds              ;save current value of ds
  29.     push    ds              ;set es to point to current
  30.     pop     es              ;data segment
  31.  
  32.     mov     ax, PSP         ;set ds to point to the PSP
  33.     mov     ds, ax
  34.  
  35.     mov     si, 80h         ;command tail
  36.  
  37.     lea     di, CMDBUF      ;get the address of the local buffer
  38.     mov     cx, BUFLEN      ;get the size of the local buffer
  39.     rep     movsb           ;get a copy of the command-line arguments
  40.     pop     ds              ;reset ds to the data segment
  41.  
  42.     lea     si, CMDBUF      ;load si with the address of CMDBUF for the
  43.                             ;lodsb instruction
  44.     lodsb                   ;get number of bytes
  45.     cmp     al, 0           ;see if command tail exists
  46.     jnz     hastail
  47.     mov     al, '?'         ;force help screen
  48.     jmp     SHORT   parcmd1a
  49.  
  50. hastail:
  51.  
  52.     mov     bx, si
  53.     sub     ah, ah
  54.     add     bx, ax          ;BX points to end
  55.  
  56. parcmd1:
  57.     cmp     bx, si          ;check if done
  58.     je      parcmd5
  59.     lodsb                   ;get character
  60.  
  61.  
  62. parcmd1a:
  63.  
  64.     mov     mess1+16, al    ;put in message in case of error
  65.     lea     di, OptTab      ;start of table
  66.  
  67. parcmd2:
  68.     cmp     BYTE PTR [di], 0    ;check if end of table
  69.     je      parcmd6
  70.     cmp     al, [di]        ;check if option matches
  71.     je      parcmd3
  72.     add     di, 5           ;skip to next entry
  73.     jmp     parcmd2
  74.  
  75.     ;--- found matching option
  76.  
  77. parcmd3:
  78.     mov     ax, [di+1]      ;load command word
  79.     or      ax, ax          ;check if branch location
  80.     jnz     parcmd4
  81.     mov     ax, [di+3]      ;load option flag
  82.     xor     Options, ax     ;flip bits
  83.     jmp     parcmd1
  84.  
  85. parcmd4:
  86.     call    ax              ;branch to special routine
  87.     jmp     parcmd1
  88.  
  89.     ;--- finished
  90.  
  91. parcmd5:
  92.     ret
  93.  
  94.     ;--- bad option
  95.  
  96. parcmd6:
  97.     mov     al, 0           ;error number
  98.     call    ErrorExit       ;call error routine
  99.     ParseCmd endp
  100.  
  101. _TEXT    ends
  102.  
  103. end
  104.