blob: 9268017a8d2d02018aea9c4ed7a0ecaa46bbde9a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
page 80,132
; SCCSID = @(#)tparse.asm 4.1 87/04/28
; SCCSID = @(#)tparse.asm 4.1 87/04/28
TITLE COMMAND interface to SYSPARSE
.xlist
.xcref
INCLUDE comseg.asm ;AN000;
.list
.cref
TRANSPACE SEGMENT PUBLIC BYTE ;AN000;
CmpxSW equ 0 ;AN000; do not check complex list
KeySW equ 0 ;AN000; do not support keywords
Val2SW equ 0 ;AN000; do not Support value definition 2
IncSW equ 0 ;AN000; do not include psdata.inc
QusSW equ 0 ;AN025; do not include quoted string
LFEOLSW equ 0 ;AN044; do not use 0ah as line terminator
.xlist
.xcref
include psdata.inc ;AN000;
.list
.cref
TRANSPACE ENDS ;AN000;
TRANCODE SEGMENT PUBLIC BYTE ;AN000;
ASSUME CS:TRANGROUP,DS:NOTHING,ES:NOTHING,SS:NOTHING ;AN054;
; ****************************************************************
; *
; * ROUTINE: CMD_PARSE
; *
; * FUNCTION: Interface for transient COMMAND to invoke
; * SYSPARSE.
; *
; * INPUT: inputs to SYSPARSE
; *
; * OUTPUT: outputs from SYSPARSE
; *
; ****************************************************************
public Cmd_parse ;AN000;
.xlist
.xcref
INCLUDE parse.asm ;AN000;
.list
.cref
Cmd_parse Proc near ;AN000;
call sysparse ;AN000;
ret ;AN000;
Cmd_parse endp ;AN000;
public Append_parse ;AN010;
Append_parse Proc Far ;AN010;
call sysparse ;AN010;
ret ;AN010;
Append_parse endp ;AN010;
trancode ends ;AN000;
end ;AN000;
|
