blob: 88bf20981a157c0ab20a1e8d40131b0b3ffb0377 (
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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Redirector MACROS
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
EDW MACRO name
extrn name:near
DW OFFSET RG:name
ENDM
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CHECK_DIALECT MACRO name
IF2 ;AN000; If not defined yet,
IFNDEF CHECKDIALECT ;AN000; THEN Extrn
Extrn CHECKDIALECT&name:NEAR ;AN000;
ENDIF ;AN000;
ENDIF ;AN000;
CALL CHECKDIALECT&name ;AN000; Call the appropriate routine
ENDM
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CallREDIRSub MACRO name,fn,save,restore ;AN000;
IF2 ;AN000; If not defined yet,
IFNDEF REDIRSub&fn ;AN000; THEN Extrn
Extrn REDIRSub&fn:NEAR ;AN000;
ENDIF ;AN000;
ENDIF ;AN000;
IFNB <save> ;AN000; If not blank
SaveReg <save> ;AN000; Save the regs
ENDIF ;AN000;
CALL REDIRSub&fn ;AN000; Call the appropriate routine
IFNB <restore> ;AN000; If not blank
RestoreReg <restore> ;AN000; Save the regs
ENDIF ;AN000;
ENDM ;AN000;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Redirector structures
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
INCLUDE IFSSYM.INC ;AN000;
INCLUDE ERROR.INC ;AN000;
INCLUDE FILEMODE.INC ;AN000;
;; CD_FSDA STRUCTURE
CD_FSDA_OFF EQU WORD PTR CD_FSDA ;AN000;
CD_FSDA_SEG EQU WORD PTR CD_FSDA+2 ;AN000;
CD_FSDA_FLAGS EQU WORD PTR CD_FSDA+4 ;AN000;
;; DFL_FSDA STRUCTURE
DF_FSDA_OFF EQU WORD PTR DFL_FSDA ;AN000;
DF_FSDA_SEG EQU WORD PTR DFL_FSDA+2 ;AN000;
DF_FSDA_FLAGS EQU WORD PTR DFL_FSDA+4 ;AN000;
;; SFF_FSDA STRUCTURE
SFF_FSDA_OFF EQU WORD PTR SFF_FSDA ;AN000;
SFF_FSDA_SEG EQU WORD PTR SFF_FSDA+2 ;AN000;
SFF_FSDA_FLAGS EQU WORD PTR SFF_FSDA+4 ;AN000;
;; IFS Structure fixes
ifsr_fcn_def EXECAPI ;AN000;
ifsr_api_def OPENFILE ;AN000;
IFSR_OPENNAME@ = IFSR_NAME@ ;AN000;
ifsr_api_def SEARCHFILE ;AN000;
IFSR_SRCHNAME@ = IFSR_NAME@ ;AN000;
ifsr_api_def MKDIR ;AN000;
IFSR_DIRNAME@ = IFSR_NAME@ ;AN000;
ifsr_api_def DELFILE ;AN000;
IFSR_DELNAME@ = IFSR_NAME@ ;AN000;
ifsr_api_def FILEATTR ;AN000;
IFSR_ATTRNAME@ = IFSR_NAME@ ;AN000;
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Redirector Equates
; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Get_Interrupt_Vector EQU 35H ;AN000;
Set_Interrupt_Vector EQU 25H ;AN000;
Deallocate_memory EQU 49H ;AN000;
GET_SYS_CONFIG EQU 0C000H ;AN000; INT 15H to get configuration
CONFIG_STRUC STRUC ;AN001;
LENGTH DW ? ;AN001;
MODEL_BYTE DB ? ;AN001;
CONFIG_STRUC ENDS ;AN001;
LOWEST_386_MODEL EQU 0F8H ;AN001;
INCOR_DOS EQU 1 ;AN000;
ALREADY_INST EQU 2 ;AN000;
NOT_INST EQU 3 ;AN000;
NET_NOT_STARTED EQU 4 ;AN000;
INSUFF_MEM EQU 5 ;AN000;
BAD_PARM EQU 10 ;AN000;
INSUFFICENT_MEM EQU 76 ;AN001; Extended Error
ONE_REPLACE EQU 1 ;AN000;
SINGLE_COUNT EQU 1 ;AN000;
TESTDIALECT = 0 ;AN001;
REDIR_INSTALLED EQU -1 ;AN000;
REDIR_SYS_INSTALL EQU 0BF80H ;AN000; REDIR.SYS 2FH Function number
REDIR_EXE_INSTALL EQU 0BF00H ;AN000; REDIR.EXE 2FH Function number
FASSIGN_ON EQU -1 ;AN000;
FASSIGN_OFF EQU 0 ;AN000;
FPRINT_ON EQU -1 ;AN000;
FPRINT_OFF EQU 0 ;AN000;
EXT_ERR_72 EQU 72 ;AN000;
PSP_ENVIRO_SEG EQU 002CH ;AN000; Offset into the PSP of the Enviroment Segment
PrnIO EQU 17H ; Int vector for Printer IO
PrntScr EQU 05H ; Int vector for Print Screen
PrnRdrMark EQU 2 ; Mark for port addr
VER12 EQU 00000010b ;AN001;
VER13 EQU 00000100b ;AN001;
FIRST_TIME EQU 1 ;AN001;
SECOND_TIME EQU 2 ;AN001;
SHIFT_BY_7 EQU 7 ;AN001;
HI_BIT_SHARING_MASK EQU 1111111101111111b ;AN001; Turns off Hi bit in nibble
;; ###############################################################
;; MISC.INC
;; ###############################################################
; NETFILE
attr_read_only = 00000001b
; NETINIT
IFSR_INVALID_CMD = -1 ;AN000;
; NETUTIL
MACRO_4 = 4
DATE_TIME = 0
; NETHAND
LOCK_ALL_OPERS = 0
POS_LEN_PTR_SIZE = 8 ;AN001; 8 bytes for position/length
FIND_BUF STRUC
find_buf_drive DB ? ; drive of search
find_buf_name DB 11 DUP (?) ; formatted name
find_buf_sattr DB ? ; attribute of search
find_buf_LastEnt DW ? ; LastEnt
find_buf_DirStart DW ? ; DirStart
find_buf_NetID DB 4 DUP (?) ; Reserved for NET
find_buf_attr DB ? ; attribute found
find_buf_time DW ? ; time
find_buf_date DW ? ; date
find_buf_size_l DW ? ; low(size)
find_buf_size_h DW ? ; high(size)
find_buf_pname DB 13 DUP (?) ; packed name
FIND_BUF ENDS
|
