]> pd.if.org Git - mmurtl/blob - msamples/dumbterm/dumbterm.asm
autocommit for file dated 1995-02-09 16:00:32
[mmurtl] / msamples / dumbterm / dumbterm.asm
1 \r
2 .DATA\r
3 EXTRN _InitDevDr FWORD\r
4 EXTRN _DeviceOp FWORD\r
5 EXTRN _DeviceStat FWORD\r
6 EXTRN _DeviceInit FWORD\r
7 EXTRN _UnMaskIRQ FWORD\r
8 EXTRN _MaskIRQ FWORD\r
9 EXTRN _SetIRQVector FWORD\r
10 EXTRN _EndOfIRQ FWORD\r
11 EXTRN _GetpJCB FWORD\r
12 EXTRN _GetJobNum FWORD\r
13 EXTRN _LoadNewJob FWORD\r
14 EXTRN _Chain FWORD\r
15 EXTRN _ExitJob FWORD\r
16 EXTRN _KillJob FWORD\r
17 EXTRN _SetUserName FWORD\r
18 EXTRN _GetUserName FWORD\r
19 EXTRN _SetCmdLine FWORD\r
20 EXTRN _GetCmdLine FWORD\r
21 EXTRN _SetPath FWORD\r
22 EXTRN _GetPath FWORD\r
23 EXTRN _SetExitJob FWORD\r
24 EXTRN _GetExitJob FWORD\r
25 EXTRN _SetSysIn FWORD\r
26 EXTRN _GetSysIn FWORD\r
27 EXTRN _SetSysOut FWORD\r
28 EXTRN _GetSysOut FWORD\r
29 EXTRN _SetJobName FWORD\r
30 EXTRN _RegisterSvc FWORD\r
31 EXTRN _UnRegisterSvc FWORD\r
32 EXTRN _GetSystemDisk FWORD\r
33 EXTRN _ReadKbd FWORD\r
34 EXTRN _Alarm FWORD\r
35 EXTRN _KillAlarm FWORD\r
36 EXTRN _Sleep FWORD\r
37 EXTRN _MicroDelay FWORD\r
38 EXTRN _GetCMOSTime FWORD\r
39 EXTRN _GetCMOSDate FWORD\r
40 EXTRN _GetTimerTick FWORD\r
41 EXTRN _Tone FWORD\r
42 EXTRN _Beep FWORD\r
43 EXTRN _SetVidOwner FWORD\r
44 EXTRN _SetNormVid FWORD\r
45 EXTRN _GetNormVid FWORD\r
46 EXTRN _ClrScr FWORD\r
47 EXTRN _GetVidChar FWORD\r
48 EXTRN _SetXY FWORD\r
49 EXTRN _PutVidAttrs FWORD\r
50 EXTRN _PutVidChars FWORD\r
51 EXTRN _GetVidOwner FWORD\r
52 EXTRN _GetXY FWORD\r
53 EXTRN _ScrollVid FWORD\r
54 EXTRN _TTYOut FWORD\r
55 EXTRN _EditLine FWORD\r
56 L_lit DB 32,32,32,32,32,84,101,114,109,105,110,97,108,108,121,32\r
57  DB 68,85,77,66,44,32,68,117,109,98,32,84,101,114,109,105\r
58  DB 110,97,108,32,80,114,111,103,114,97,109,13,10,0,32,32\r
59  DB 32,32,32,32,40,77,77,85,82,84,76,32,67,111,109,109\r
60  DB 115,32,68,101,118,105,99,101,32,68,114,105,118,101,114,32\r
61  DB 100,101,109,111,41,32,13,10,0,69,114,114,111,114,32,111\r
62  DB 110,32,68,101,118,105,99,101,32,83,116,97,116,58,32,37\r
63  DB 100,13,10,0,73,82,81,78,117,109,58,32,37,100,13,10\r
64  DB 0,73,79,66,97,115,101,58,32,37,100,13,10,0,115,88\r
65  DB 66,117,102,58,32,32,37,100,13,10,0,115,82,66,117,102\r
66  DB 58,32,32,37,100,13,10,0,82,84,105,109,101,79,58,32\r
67  DB 37,100,13,10,0,88,84,105,109,101,79,58,32,37,100,13\r
68  DB 10,0,69,114,114,111,114,32,111,110,32,68,101,118,105,99\r
69  DB 101,32,73,110,105,116,58,32,37,100,13,10,0,79,112,101\r
70  DB 110,67,111,109,109,67,32,69,82,82,79,82,58,32,37,100\r
71  DB 32,13,10,0,67,111,109,109,117,110,105,99,97,116,105,111\r
72  DB 110,115,32,80,111,114,116,32,73,110,105,116,105,97,108,105\r
73  DB 122,101,100,46,13,10,0,87,114,105,116,101,66,121,116,101\r
74  DB 67,69,114,114,111,114,58,32,37,100,32,13,10,0,10,0\r
75 PUBLIC _key DD 0h\r
76 PUBLIC _com DB 64 DUP(0)\r
77 \r
78 \r
79 .CODE\r
80 EXTRN _fopen: NEAR\r
81 EXTRN _fclose: NEAR\r
82 EXTRN _remove: NEAR\r
83 EXTRN _rename: NEAR\r
84 EXTRN _fgetc: NEAR\r
85 EXTRN _fgets: NEAR\r
86 EXTRN _fputs: NEAR\r
87 EXTRN _fputc: NEAR\r
88 EXTRN _printf: NEAR\r
89 EXTRN _sprintf: NEAR\r
90 EXTRN _fprintf: NEAR\r
91 EXTRN _ftell: NEAR\r
92 EXTRN _rewind: NEAR\r
93 EXTRN _fseek: NEAR\r
94 EXTRN _fread: NEAR\r
95 EXTRN _fwrite: NEAR\r
96 EXTRN _iscntrl: NEAR\r
97 EXTRN _isspace: NEAR\r
98 EXTRN _isdigit: NEAR\r
99 EXTRN _isupper: NEAR\r
100 EXTRN _islower: NEAR\r
101 EXTRN _ispunct: NEAR\r
102 EXTRN _isalpha: NEAR\r
103 EXTRN _isxdigit: NEAR\r
104 EXTRN _isalnum: NEAR\r
105 EXTRN _isgraph: NEAR\r
106 EXTRN _toupper: NEAR\r
107 EXTRN _tolower: NEAR\r
108 EXTRN _strcpy: NEAR\r
109 EXTRN _strncpy: NEAR\r
110 EXTRN _strcat: NEAR\r
111 EXTRN _strncat: NEAR\r
112 EXTRN _strcmp: NEAR\r
113 EXTRN _strncmp: NEAR\r
114 EXTRN _strlen: NEAR\r
115 EXTRN _strchr: NEAR\r
116 PUBLIC _main:\r
117         PUSH EBP\r
118         MOV EBP,ESP\r
119         SUB ESP,7\r
120         PUSH 31\r
121         CALL FWORD PTR _SetNormVid\r
122         CALL FWORD PTR _ClrScr\r
123         PUSH  OFFSET L_lit+0\r
124         MOV EDI, 0\r
125         CALL _printf\r
126         ADD ESP,4\r
127         PUSH  OFFSET L_lit+46\r
128         MOV EDI, 0\r
129         CALL _printf\r
130         ADD ESP,4\r
131         PUSH 6\r
132         PUSH OFFSET _com\r
133         PUSH 64\r
134         LEA EAX,WORD PTR [EBP-4]\r
135         PUSH EAX\r
136         CALL FWORD PTR _DeviceStat\r
137         MOV WORD PTR [EBP-2],AX\r
138         MOVSX EAX,WORD PTR [EBP-2]\r
139         AND EAX,EAX\r
140         JZ L_1\r
141         PUSH 7\r
142         CALL FWORD PTR _SetNormVid\r
143         CALL FWORD PTR _ClrScr\r
144         PUSH  OFFSET L_lit+89\r
145         MOVSX EAX,WORD PTR [EBP-2]\r
146         PUSH EAX\r
147         MOV EDI, 4\r
148         CALL _printf\r
149         ADD ESP,8\r
150         MOVSX EAX,WORD PTR [EBP-2]\r
151         PUSH EAX\r
152         CALL FWORD PTR _ExitJob\r
153 L_1:\r
154         MOV ESI,OFFSET _com\r
155         MOV EAX,9600\r
156         MOV DWORD PTR [ESI+12],EAX\r
157         MOV ESI,OFFSET _com\r
158         XOR EAX,EAX\r
159         MOV BYTE PTR [ESI+16],AL\r
160         MOV ESI,OFFSET _com\r
161         MOV EAX,8\r
162         MOV BYTE PTR [ESI+17],AL\r
163         MOV ESI,OFFSET _com\r
164         MOV EAX,1\r
165         MOV BYTE PTR [ESI+18],AL\r
166         PUSH  OFFSET L_lit+116\r
167         MOV ESI,OFFSET _com\r
168         XOR EAX,EAX\r
169         MOV AL,BYTE PTR [ESI+19]\r
170         PUSH EAX\r
171         MOV EDI, 4\r
172         CALL _printf\r
173         ADD ESP,8\r
174         PUSH  OFFSET L_lit+129\r
175         MOV ESI,OFFSET _com\r
176         PUSH DWORD PTR [ESI+20]\r
177         MOV EDI, 4\r
178         CALL _printf\r
179         ADD ESP,8\r
180         PUSH  OFFSET L_lit+142\r
181         MOV ESI,OFFSET _com\r
182         PUSH DWORD PTR [ESI+24]\r
183         MOV EDI, 4\r
184         CALL _printf\r
185         ADD ESP,8\r
186         PUSH  OFFSET L_lit+155\r
187         MOV ESI,OFFSET _com\r
188         PUSH DWORD PTR [ESI+28]\r
189         MOV EDI, 4\r
190         CALL _printf\r
191         ADD ESP,8\r
192         PUSH  OFFSET L_lit+168\r
193         MOV ESI,OFFSET _com\r
194         PUSH DWORD PTR [ESI+36]\r
195         MOV EDI, 4\r
196         CALL _printf\r
197         ADD ESP,8\r
198         PUSH  OFFSET L_lit+181\r
199         MOV ESI,OFFSET _com\r
200         PUSH DWORD PTR [ESI+32]\r
201         MOV EDI, 4\r
202         CALL _printf\r
203         ADD ESP,8\r
204         PUSH 6\r
205         PUSH OFFSET _com\r
206         PUSH 64\r
207         CALL FWORD PTR _DeviceInit\r
208         MOV WORD PTR [EBP-2],AX\r
209         MOVSX EAX,WORD PTR [EBP-2]\r
210         AND EAX,EAX\r
211         JZ L_2\r
212         PUSH 7\r
213         CALL FWORD PTR _SetNormVid\r
214         CALL FWORD PTR _ClrScr\r
215         PUSH  OFFSET L_lit+194\r
216         MOVSX EAX,WORD PTR [EBP-2]\r
217         PUSH EAX\r
218         MOV EDI, 4\r
219         CALL _printf\r
220         ADD ESP,8\r
221         MOVSX EAX,WORD PTR [EBP-2]\r
222         PUSH EAX\r
223         CALL FWORD PTR _ExitJob\r
224 L_2:\r
225         PUSH 6\r
226         PUSH 10\r
227         XOR EAX,EAX\r
228         PUSH EAX\r
229         XOR EAX,EAX\r
230         PUSH EAX\r
231         LEA EAX,WORD PTR [EBP-4]\r
232         PUSH EAX\r
233         CALL FWORD PTR _DeviceOp\r
234         MOV WORD PTR [EBP-2],AX\r
235         MOVSX EAX,WORD PTR [EBP-2]\r
236         AND EAX,EAX\r
237         JZ L_3\r
238         PUSH 7\r
239         CALL FWORD PTR _SetNormVid\r
240         CALL FWORD PTR _ClrScr\r
241         PUSH  OFFSET L_lit+221\r
242         MOVSX EAX,WORD PTR [EBP-2]\r
243         PUSH EAX\r
244         MOV EDI, 4\r
245         CALL _printf\r
246         ADD ESP,8\r
247         MOVSX EAX,WORD PTR [EBP-2]\r
248         PUSH EAX\r
249         CALL FWORD PTR _ExitJob\r
250 L_3:\r
251         PUSH  OFFSET L_lit+244\r
252         MOV EDI, 0\r
253         CALL _printf\r
254         ADD ESP,4\r
255         MOV EAX,1\r
256         MOV BYTE PTR [EBP-7],AL\r
257 L_4:\r
258         MOVSX EAX,BYTE PTR [EBP-7]\r
259         AND EAX,EAX\r
260         JZ L_5\r
261         PUSH OFFSET _key\r
262         XOR EAX,EAX\r
263         PUSH EAX\r
264         CALL FWORD PTR _ReadKbd\r
265         AND EAX,EAX\r
266         JNZ L_6\r
267         MOV EAX,_key\r
268         AND EAX,127\r
269         MOV BYTE PTR [EBP-5],AL\r
270         MOV EAX,_key\r
271         AND EAX,12288\r
272         JZ L_7\r
273         XOR EAX,EAX\r
274         MOV AL,BYTE PTR [EBP-5]\r
275         PUSH EAX\r
276         CALL _toupper\r
277         JMP L_9\r
278 L_10:\r
279         PUSH 6\r
280         PUSH 11\r
281         XOR EAX,EAX\r
282         PUSH EAX\r
283         XOR EAX,EAX\r
284         PUSH EAX\r
285         LEA EAX,WORD PTR [EBP-4]\r
286         PUSH EAX\r
287         CALL FWORD PTR _DeviceOp\r
288         MOV WORD PTR [EBP-2],AX\r
289         PUSH 7\r
290         CALL FWORD PTR _SetNormVid\r
291         CALL FWORD PTR _ClrScr\r
292         MOVSX EAX,WORD PTR [EBP-2]\r
293         PUSH EAX\r
294         CALL FWORD PTR _ExitJob\r
295         JMP L_8\r
296 L_11:\r
297         JMP L_8\r
298 L_9:\r
299         CMP EAX,81\r
300         JE L_10\r
301         JMP L_11\r
302 L_8:\r
303         JMP L_12\r
304 L_7:\r
305         PUSH 6\r
306         PUSH 32\r
307         XOR EAX,EAX\r
308         PUSH EAX\r
309         XOR EAX,EAX\r
310         PUSH EAX\r
311         LEA EAX,BYTE PTR [EBP-5]\r
312         PUSH EAX\r
313         CALL FWORD PTR _DeviceOp\r
314         MOV WORD PTR [EBP-2],AX\r
315         MOVSX EAX,WORD PTR [EBP-2]\r
316         AND EAX,EAX\r
317         JZ L_13\r
318         PUSH  OFFSET L_lit+279\r
319         MOVSX EAX,WORD PTR [EBP-2]\r
320         PUSH EAX\r
321         MOV EDI, 4\r
322         CALL _printf\r
323         ADD ESP,8\r
324         JMP L_14\r
325 L_13:\r
326         XOR EAX,EAX\r
327         MOV AL,BYTE PTR [EBP-5]\r
328         CMP EAX,13\r
329         SETE AL\r
330         AND AL,AL\r
331         JZ L_15\r
332         MOV EAX,10\r
333         MOV BYTE PTR [EBP-5],AL\r
334         PUSH 6\r
335         PUSH 32\r
336         XOR EAX,EAX\r
337         PUSH EAX\r
338         XOR EAX,EAX\r
339         PUSH EAX\r
340         LEA EAX,BYTE PTR [EBP-5]\r
341         PUSH EAX\r
342         CALL FWORD PTR _DeviceOp\r
343         MOV WORD PTR [EBP-2],AX\r
344 L_15:\r
345 L_14:\r
346 L_12:\r
347 L_6:\r
348         PUSH 6\r
349         PUSH 31\r
350         XOR EAX,EAX\r
351         PUSH EAX\r
352         XOR EAX,EAX\r
353         PUSH EAX\r
354         LEA EAX,BYTE PTR [EBP-5]\r
355         PUSH EAX\r
356         CALL FWORD PTR _DeviceOp\r
357         MOV WORD PTR [EBP-2],AX\r
358         MOVSX EAX,WORD PTR [EBP-2]\r
359         AND EAX,EAX\r
360         JNZ L_16\r
361         LEA EAX,BYTE PTR [EBP-5]\r
362         PUSH EAX\r
363         PUSH 1\r
364         PUSH 31\r
365         CALL FWORD PTR _TTYOut\r
366         XOR EAX,EAX\r
367         MOV AL,BYTE PTR [EBP-6]\r
368         CMP EAX,13\r
369         SETE AL\r
370         AND AL,AL\r
371         JZ L_17\r
372         XOR EAX,EAX\r
373         MOV AL,BYTE PTR [EBP-5]\r
374         CMP EAX,10\r
375         SETNE AL\r
376         AND AL,AL\r
377 L_17:\r
378         JZ L_18\r
379         PUSH  OFFSET L_lit+302\r
380         PUSH 1\r
381         PUSH 31\r
382         CALL FWORD PTR _TTYOut\r
383 L_18:\r
384         XOR EAX,EAX\r
385         MOV AL,BYTE PTR [EBP-5]\r
386         MOV BYTE PTR [EBP-6],AL\r
387 L_16:\r
388         JMP L_4\r
389 L_5:\r
390         MOV ESP,EBP\r
391         POP EBP\r
392         RETN\r