diff options
| author |  Mark Zbikowski | 2024-04-25 21:24:10 +0100 |
|---|---|---|
| committer |  Microsoft Open Source | 2024-04-25 22:32:27 +0000 |
| commit | 2d04cacc5322951f187bb17e017c12920ac8ebe2 (patch) | |
| tree | 80ee017efa878dfd5344b44249e6a241f2a7f6e2 /v4.0/src/CMD/ATTRIB/_PARSE.ASM | |
| parent | Merge pull request #430 from jpbaltazar/typoptbr (diff) | |
| download | ms-dos-main.tar.gz ms-dos-main.tar.xz ms-dos-main.zip | |
Diffstat (limited to 'v4.0/src/CMD/ATTRIB/_PARSE.ASM')
| -rw-r--r-- | v4.0/src/CMD/ATTRIB/_PARSE.ASM | 107 |
1 files changed, 107 insertions, 0 deletions
diff --git a/v4.0/src/CMD/ATTRIB/_PARSE.ASM b/v4.0/src/CMD/ATTRIB/_PARSE.ASM new file mode 100644 index 0000000..9800c9e --- /dev/null +++ b/v4.0/src/CMD/ATTRIB/_PARSE.ASM | |||
| @@ -0,0 +1,107 @@ | |||
| 1 | page 60,132 ;AN000; | ||
| 2 | name _parse ;AN000; | ||
| 3 | title C to PARSER interface ;AN000; | ||
| 4 | ;------------------------------------------------------------------- ;AN000; | ||
| 5 | ; ;AN000; | ||
| 6 | ; MODULE: _parse ;AN000; | ||
| 7 | ; ;AN000; | ||
| 8 | ; PURPOSE: Supplies an interface between C programs and ;AN000; | ||
| 9 | ; the DOS parser ;AN000; | ||
| 10 | ; ;AN000; | ||
| 11 | ; CALLING FORMAT: ;AN000; | ||
| 12 | ; parse(&inregs,&outregs); ;AN000; | ||
| 13 | ; ;AN000; | ||
| 14 | ; DATE: 5-21-87 ;AN000; | ||
| 15 | ; ;AN000; | ||
| 16 | ;------------------------------------------------------------------- ;AN000; | ||
| 17 | ; ;AN000; | ||
| 18 | ; extrn sysparse:far ;AN000; | ||
| 19 | ; ;AN000; | ||
| 20 | public _parse ;AN000; | ||
| 21 | ; ;AN000; | ||
| 22 | ;------------------------------------------------------------------- ;AN000; | ||
| 23 | FarSW equ 0 ; make sysparse be a NEAR proc ;AN000; | ||
| 24 | TimeSW equ 0 ; Check time format ;AN000; | ||
| 25 | FileSW equ 1 ; Check file specification ;AN000; | ||
| 26 | CAPSW equ 1 ; Perform CAPS if specified ;AN000; | ||
| 27 | CmpxSW equ 0 ; Check complex list ;AN000; | ||
| 28 | NumSW equ 1 ; Check numeric value ;AN000; | ||
| 29 | KeySW equ 1 ; Support keywords ;AN000; | ||
| 30 | SwSW equ 1 ; Support switches ;AN000; | ||
| 31 | Val1SW equ 1 ; Support value definition 1 ;AN000; | ||
| 32 | Val2SW equ 1 ; Support value definition 2 ;AN000; | ||
| 33 | Val3SW equ 1 ; Support value definition 3 ;AN000; | ||
| 34 | DrvSW equ 0 ; Support drive only format ;AN000; | ||
| 35 | QusSW equ 1 ; Support quoted string format ;AN000; | ||
| 36 | ;------------------------------------------------------------------- ;AN000; | ||
| 37 | DGROUP GROUP _DATA | ||
| 38 | PGROUP GROUP _TEXT | ||
| 39 | |||
| 40 | _DATA segment byte public 'DATA' ;AN000; | ||
| 41 | BASESW = 1 ;SPECIFY, PSDATA POINTED TO BY "DS" | ||
| 42 | INCSW = 0 ;PSDATA.INC IS ALREADY INCLUDED | ||
| 43 | INCLUDE PSDATA.INC ;PARSER'S WORK SPACE | ||
| 44 | _DATA ends ;AN000; | ||
| 45 | |||
| 46 | _TEXT segment byte public 'CODE' ;AN000; | ||
| 47 | |||
| 48 | ASSUME CS: PGROUP ;AN000; | ||
| 49 | ASSUME DS: DGROUP ;AN000; | ||
| 50 | ;------------------------------------------------------------------- ;AN000; | ||
| 51 | .xlist ;AN000; | ||
| 52 | include parse.asm ; include the parser ;AN000; | ||
| 53 | .list ;AN000; | ||
| 54 | ;------------------------------------------------------------------- ;AN000; | ||
| 55 | ; ;AN000; | ||
| 56 | _parse proc near ;AN000; | ||
| 57 | push bp ; save user's base pointer ;AN000; | ||
| 58 | mov bp,sp ; set bp to current sp ;AN000; | ||
| 59 | push di ; save some registers ;AN000; | ||
| 60 | push si ;AN000; | ||
| 61 | ; ;AN000; | ||
| 62 | ; copy C inregs into proper registers ;AN000; | ||
| 63 | ; ;AN000; | ||
| 64 | mov di,[bp+4] ; fix di (arg 0) ;AN000; | ||
| 65 | ; ;AN000; | ||
| 66 | mov ax,[di+0ah] ; load di ;AN000; | ||
| 67 | push ax ; the di value from inregs is now on stack ;AN000; | ||
| 68 | ; ;AN000; | ||
| 69 | mov ax,[di+00] ; get inregs.x.ax ;AN000; | ||
| 70 | mov bx,[di+02] ; get inregs.x.bx ;AN000; | ||
| 71 | mov cx,[di+04] ; get inregs.x.cx ;AN000; | ||
| 72 | mov dx,[di+06] ; get inregs.x.dx ;AN000; | ||
| 73 | mov si,[di+08] ; get inregs.x.si ;AN000; | ||
| 74 | pop di ; get inregs.x.di from stack ;AN000; | ||
| 75 | ; ;AN000; | ||
| 76 | push bp ; save base pointer ;AN000; | ||
| 77 | ; ;AN000; | ||
| 78 | ;------------------------------------------------------------------- ;AN000; | ||
| 79 | call sysparse ; call the parser ;AN000; | ||
| 80 | ;------------------------------------------------------------------- ;AN000; | ||
| 81 | ; ;AN000; | ||
| 82 | pop bp ; restore base pointer ;AN000; | ||
| 83 | push di ; the di value from call is now on stack ;AN000; | ||
| 84 | mov di,[bp+6] ; fix di (arg 1) ;AN000; | ||
| 85 | ; ;AN000; | ||
| 86 | mov [di+00],ax ; load outregs.x.ax ;AN000; | ||
| 87 | mov [di+02],bx ; load outregs.x.bx ;AN000; | ||
| 88 | mov [di+04],cx ; load outregs.x.cx ;AN000; | ||
| 89 | mov [di+06],dx ; load outregs.x.dx ;AN000; | ||
| 90 | mov [di+08],si ; load outregs.x.si ;AN000; | ||
| 91 | ; ;AN000; | ||
| 92 | lahf ; get flags into ax ;AN000; | ||
| 93 | mov al,ah ; move into low byte ;AN000; | ||
| 94 | mov [di+0ch],ax ; load outregs.x.cflag ;AN000; | ||
| 95 | ; ;AN000; | ||
| 96 | pop ax ; get di from stack ;AN000; | ||
| 97 | mov [di+0ah],ax ; load outregs.x.di ;AN000; | ||
| 98 | ; ;AN000; | ||
| 99 | pop si ; restore registers ;AN000; | ||
| 100 | pop di ;AN000; | ||
| 101 | mov sp,bp ; restore sp ;AN000; | ||
| 102 | pop bp ; restore user's bp ;AN000; | ||
| 103 | ret ;AN000; | ||
| 104 | _parse endp ;AN000; | ||
| 105 | _TEXT ends ; end code segment ;AN000; | ||
| 106 | end ;AN000; | ||
| 107 | \ No newline at end of file | ||