汇编菜单模式

cnangel

1. wind struc
2. wpos dw 0
3. wcolor db ?
4. wbox dw ?
5. itempos dw 02
6. itemcol0 db ?
7. itemcol1 db ?
8. itemsum db ?
9. itemnum db 0
10. item0 dw ?
11. wind ends
12. code segment stack 'stack'
13. assume cs:code,ds:code,ss:code
14. begin:
15. posh db 20
16. posl db 40
17. color db 71h
18. posll db 40d
19. poscx dw ?
20. posdx dw ?
21. number db 00
22. backaddr dw ?
23. oldint1c dd ?
24. msgbox1:
25. db '谀哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪目',0dh,0ah
26. db '?New file: ?,0dh,0ah
27. db '滥哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪馁',0dh,0ah,0
28. msgbox0:
29. db '谀腁ssembler and Fortran哪哪哪哪腫 ZDOS ]哪哪哪腣er 2.0哪哪哪哪哪腫 : : ]目',0dh,0ah
30. db '仆屯屯屯屯屯屯屯屯屯屯屯屯屯File name and path屯屯屯屯屯屯屯屯屯屯屯送屯屯屯偷',0dh,0ah
31. db '? Edit ? move ?,0dh,0ah
32. db '? Masm ?arrows ?,0dh,0ah
33. db '? For1 ? to ?,0dh,0ah
34. db '? Pas2 (FORTRAN) ?choose ?,0dh,0ah
35. db '? Link 掏屯屯屯偷',0dh,0ah
36. db '? Debug ? press ?,0dh,0ah
37. db '? Execute ? enter ?,0dh,0ah
38. db '? Name project file ? to ?,0dh,0ah
39. db '? DosShell ?execute?,0dh,0ah
40. db '? Quit... ? item ?,0dh,0ah
41. db '滥哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪哪心哪哪哪馁',0dh,0ah,0h
42. msg0 db ' Edit ',0dh,0ah,0,63 dup(0dh)
43. msg1 db ' Masm ',0dh,0ah,0,63 dup(0dh)
44. msg2 db ' For1 ',0dh,0ah,0,63 dup(0dh)
45. msg3 db ' Pas2 (FORTRAN) ',0dh,0ah,0
46. msg4 db ' Link ',0dh,0ah,0,63 dup(0dh)
47. msg5 db ' Debug ',0dh,0ah,0,63 dup(0dh)
48. msg6 db ' Execute ',0dh,0ah,0,63 dup(0dh)
49. msg7 db ' Name project file ',0dh,0ah,0
50. msg8 db ' DosShell ',0dh,0ah,0
51. msg9 db ' Quit... ',0dh,0ah,0
52. msg10:
53. time0 db ?,?
54. db ':'
55. time1 db ?,?
56. db ':'
57. time2 db ?,?,0
58. msg11 db 0dh,0ah,' ( ZhaoJiBin 97,CL,ZC,9# ) '
59. db 0dh,0ah,' This is NO shareware,You needn''t outlay anything.'
60. db 0dh,0ah,' Very thanks,if you have problems,please write a postcard to me. '
61. db 0dh,0ah,' My name : ZhaoJiBin'
62. db 0dh,0ah,' My mailbox : ShiChuan Institute Of Technology 9708#'
63. db 0dh,0ah,' My phone call : (028)7721727',0dh,0ah,0h,'$'
64. msg12 db 0dh,0ah,07h,' Press Exit to retrun ZDOS 4/3/2000$'
65. wind0 wind <00,70h,offset msgbox0,0202h,70h,17h,10,0,msg0>
66. dw msg1,msg2,msg3,msg4,msg5,msg6,msg7,msg8,msg9
67. edit db 80h,'EDIT.COM ',56 dup(0dh)
68. masm db 80h,'MASM.EXE ',56 dup(0dh)
69. for1 db 80h,'FOR1.EXE ',56 dup(0dh)
70. pas2 db 80h,'PAS2.EXE ',56 dup(0dh)
71. link db 80h,'LINK.EXE ',56 dup(0dh)
72. debug db 80h,'DEBUG ',56 dup(0dh)
73. self db 80h,' ',56 dup(0dh)
74. dos db 80h,'COMMAND.COM ',0dh
75. program dw execedit,execmasm, execfor1,execpas2
76. dw execlink,execdebug,execself,execname
77. dw execdos, execquit
78. buffer db 50d,0,51d dup(?)
79. pathbuffer db 80 dup(?)
81. start: mov bx,(offset quit-offset begin+110h)/10h
82. mov ah,4ah
83. int 21h
84. mov si,80h
85. cmp byte ptr[si],0
86. jz start0
87. cmp byte ptr[si],50d
88. ja start0
89. push cs
90. pop es
91. call fillin
92. start0: mov ah,0fh
93. int 10h
94. cmp al,03h
95. jz start1
96. mov ax,03h
97. int 10h
98. start1: call savecon
99. push cs
100. pop ds
101. push cs
102. pop es
103. mov cl,ds:wind0.itemsum
104. mov ch,ds:wind0.itemnum
105. lea di,buffer+2
106. rk2: cmp ch,0ffh
107. jnz rk3
108. mov ch,cl
109. dec ch
110. rk3: cmp ch,cl
111. jb rk4
112. mov ch,0
113. rk4: lea si,ds:wind0.itemnum
114. mov ds:[si],ch
115. lea si,wind0
116. call makewind
117. call disppath
118. call settimer
119. lea si,buffer
120. mov byte ptr[si+1],0
121. call input
122. call killtimer
123. cmp ah,50h
124. jnz rk0
125. inc ch
126. rk0: cmp ah,48h
127. jnz rk1
128. dec ch
129. rk1: cmp ah,1ch
130. jnz rk2
131. call oopscon
132. inc si
133. cmp byte ptr[si],0
134. jnz execcommand
135. mov bl,ch
136. xor bh,bh
137. shl bx,1
138. call ds:[bx+program]
139. jmp start0
140. execcommand: mov ax,0e0dh
141. int 10h
142. mov al,0ah
143. int 10h
144. int 10h
145. int 2eh
146. jmp start0
147. execedit: lea si,edit
148. int 2eh
149. jmp start0
150. execmasm: lea si,masm
151. int 2eh
152. jmp start0
153. execfor1: lea si,for1
154. int 2eh
155. jmp start0
156. execpas2: lea si,pas2
157. int 2eh
158. jmp start0
159. execlink: lea si,link
160. int 2eh
161. jmp start0
162. execdebug: lea si,debug
163. int 2eh
164. jmp start0
165. execself: lea si,self
166. int 2eh
167. jmp start0
168. execdos: lea dx,msg12
169. mov ah,09h
170. int 21h
171. lea si,dos
172. int 2eh
173. jmp start0
174. execquit: mov ax,03
175. int 10h
176. lea dx,msg11
177. mov ah,09h
178. int 21h
179. mov dx,00h
180. mov ds:posh,dh
181. mov ds:posl,dl
182. mov ds:posll,dl
183. mov ds:color,03h
184. lea si,msg11
185. call dispstr
186. mov ax,4c00h
187. int 21h
188. execname: call savecon
189. lea si,msgbox1
190. mov dx,0807h
191. mov ds:posh,dh
192. mov ds:posl,dl
193. mov ds:posll,dl
194. mov ds:color,71h
195. call dispstr
196. xor bx,bx
197. mov ah,03h
198. int 10h
199. mov ds:poscx,cx
200. mov ds:posdx,dx
201. mov dx,0913h
202. mov ah,02h
203. int 10h
204. lea si,buffer
205. lea di,buffer+2
206. call input
207. cmp ah,1ch
208. jnz execname
209. cmp byte ptr[si+1],0
210. jz execname
211. xor bx,bx
212. mov cx,ds:poscx
213. mov dx,ds:posdx
214. mov ah,02h
215. int 10h
216. lea si,buffer
217. call fillin
218. call oopscon
219. ret
220. fillin: inc si
221. inc si
222. mov bx,si
223. int 3
224. lea di,edit+10d
225. name0: call fillname
226. cmp al,0dh
227. jz name1
228. mov al,'.'
229. cld
230. stosb
231. jmp name0
232. name1: call fillend
233. mov si,bx
234. lea di,msg0+10d
235. name2: call fillname
236. cmp al,0dh
237. jz name3
238. mov al,'.'
239. cld
240. stosb
241. jmp name2
242. name3: call fillend
243. mov si,bx
244. lea di,masm+10d
245. call fillname
246. mov al,'.'
247. cld
248. stosb
249. mov ax,'SA'
250. stosw
251. mov al,'M'
252. stosb
253. call fillend
254. mov si,bx
255. lea di,msg1+10d
256. call fillname
257. mov al,'.'
258. cld
259. stosb
260. mov ax,'SA'
261. stosw
262. mov al,'M'
263. stosb
264. call fillend
265. mov si,bx
266. lea di,for1+10d
267. call fillname
268. mov al,'.'
269. cld
270. stosb
271. mov ax,'OF'
272. stosw
273. mov al,'R'
274. stosb
275. call fillend
276. mov si,bx
277. lea di,msg2+10d
278. call fillname
279. mov al,'.'
280. cld
281. stosb
282. mov ax,'OF'
283. stosw
284. mov al,'R'
285. stosb
286. call fillend
287. mov si,bx
288. lea di,link+10d
289. call fillname
290. mov al,'.'
291. cld
292. stosb
293. mov ax,'BO'
294. stosw
295. mov al,'J'
296. stosb
297. call fillend
298. mov si,bx
299. lea di,msg4+10d
300. call fillname
301. mov al,'.'
302. cld
303. stosb
304. mov ax,'BO'
305. stosw
306. mov al,'J'
307. stosb
308. call fillend
309. mov si,bx
310. lea di,debug+10d
311. call fillname
312. mov al,'.'
313. cld
314. stosb
315. mov ax,'XE'
316. stosw
317. mov al,'E'
318. stosb
319. call fillend
320. mov si,bx
321. lea di,msg5+10d
322. call fillname
323. mov al,'.'
324. cld
325. stosb
326. mov ax,'XE'
327. stosw
328. mov al,'E'
329. stosb
330. call fillend
331. mov si,bx
332. lea di,self+10d
333. call fillname
334. mov al,'.'
335. cld
336. stosb
337. mov ax,'XE'
338. stosw
339. mov al,'E'
340. stosb
341. call fillend
342. mov si,bx
343. lea di,msg6+10d
344. call fillname
345. mov al,'.'
346. cld
347. stosb
348. mov ax,'XE'
349. stosw
350. mov al,'E'
351. stosb
352. call fillend
353. ret
354. fillend: cld
355. mov ax,0dh*256+20h
356. stosw
357. mov ax,0ah
358. stosw
359. ret
360. fillname: cld
361. lodsb
362. cmp al,0dh
363. jz fill0
364. cmp al,'.'
365. jz fill0
366. cmp al,'a'
367. jb fill1
368. cmp al,'z'
369. ja fill1
370. sub al,'a'-'A'
371. fill1: cld
372. stosb
373. jmp fillname
374. fill0: push di
375. push ax
376. mov al,20h
377. fill4: cmp es:byte ptr[di],0dh
378. jz fill3
379. cld
380. stosb
381. jmp fill4
382. fill3: pop ax
383. pop di
384. ret
385. input: push bx
386. push cx
387. push dx
388. input1: xor ax,ax
389. int 16h
390. cmp ah,50h
391. jz input0
392. cmp ah,48h
393. jz input0
394. cmp al,0
395. jz input1
396. cmp al,08h
397. jz input2
398. cld
399. stosb
400. cmp ah,1ch
401. jz input0
402. mov cl,ds:byte ptr[si]
403. cmp cl,ds:byte ptr[si+1]
404. jz input3
405. mov ah,0eh
406. int 10h
407. inc ds:byte ptr[si+1]
408. jmp input1
409. input0: pop dx
410. pop cx
411. pop bx
412. ret
413. input2: cmp ds:byte ptr [si+1],0
414. jz input1
415. dec ds:byte ptr [si+1]
416. dec di
417. mov ah,0eh
418. int 10h
419. mov al,20h
420. int 10h
421. mov al,08h
422. int 10h
423. jmp input1
424. input3: dec di
425. mov ax,0e07h
426. int 10h
427. jmp input1
428. disppath: call saveregs
429. xor bx,bx
430. mov ah,03h
431. int 10h
432. mov ah,02h
433. mov dx,1800h
434. int 10h
435. mov ah,02h
436. mov dl,0dh
437. int 21h
438. mov ah,19h
439. int 21h
440. mov dl,al
441. add dl,'A'
442. mov ah,02h
443. int 21h
444. mov dl,':'
445. int 21h
446. mov dl,'\'
447. int 21h
448. lea si,pathbuffer
449. mov dl,0
450. mov ah,47h
451. int 21h
452. dpath0: cld
453. lodsb
454. or al,al
455. jz dpath1
456. mov dl,al
457. mov ah,02h
458. int 21h
459. jmp dpath0
460. dpath1: mov dl,'>'
461. mov ah,02h
462. int 21h
463. call oopsregs
464. ret
465. makewind: call saveregs
466. mov dx,ds:wind0.wpos
467. mov ds:posh,dh
468. mov ds:posl,dl
469. mov ds:posll,dl
470. mov dl,ds:wind0.wcolor
471. mov ds:color,dl
472. push si
473. mov si,ds:wind0.wbox
474. call dispstr
475. pop si
476. mov dx,ds:wind0.itempos
477. mov ds:posh,dh
478. mov ds:posl,dl
479. mov ds:posll,dl
480. mov cl,ds:wind0.itemsum
481. mov ch,cl
482. sub ch,ds:wind0.itemnum
483. mov dl,ds:wind0.itemcol0
484. mov dh,ds:wind0.itemcol1
485. lea si,ds:wind0.item0
486. make1: push si
487. mov ds:color,dl
488. cmp ch,cl
489. jnz make0
490. mov ds:color,dh
491. make0: mov si,[si]
492. call dispstr
493. pop si
494. inc si
495. inc si
496. dec cl
497. jnz make1
498. call oopsregs
499. ret
500. ;************************************************
501. dispstr: call saveregs
502. mov ax,0b800h
503. mov es,ax
504. dispstr0: cld
505. lodsb
506. or al,al
507. jz dispstr3
508. cmp al,0dh
509. jnz dispstr1
510. mov al,cs:posll
511. mov cs:posl,al
512. jmp dispstr0
513. dispstr1: cmp al,0ah
514. jnz dispstr2
515. inc cs:posh
516. jmp dispstr0
517. dispstr2: call calcul
518. mov ah,cs:color
519. cld
520. stosw
521. inc cs:posl
522. jmp dispstr0
523. dispstr3: call oopsregs
524. ret
525. calcul: push ax
526. mov al,cs:posh
527. mov ah,80d
528. mul ah
529. add al,cs:posl
530. adc ah,0
531. shl ax,1
532. mov di,ax
533. pop ax
534. ret
535. settimer: call saveregs
536. int 3
537. mov ax,351ch
538. int 21h
539. mov ds:word ptr oldint1c,bx
540. mov ds:word ptr oldint1c+2,es
541. lea dx,newint1c
542. mov ax,251ch
543. int 21h
544. call oopsregs
545. ret
546. killtimer: call saveregs
547. int 3
548. lds dx,oldint1c
549. mov ax,251ch
550. int 21h
551. call oopsregs
552. ret
553. newint1c: call saveregs
554. mov ax,0200h
555. int 1ah
556. mov al,ch
557. lea si,time0
558. call bcd
559. mov al,cl
560. lea si,time1
561. call bcd
562. mov al,dh
563. lea si,time2
564. call bcd
565. mov ax,0b800h
566. mov es,ax
567. mov di,67*2d
568. lea si,msg10
569. disptime: mov al,cs:[si]
570. inc si
571. or al,al
572. jz disptime0
573. mov ah,071h
574. cld
575. stosW
576. jmp disptime
577. disptime0: call oopsregs
578. jmp cs:oldint1c
579. bcd: mov ah,al
580. shr ah,1
581. shr ah,1
582. shr ah,1
583. shr ah,1
584. and al,0fh
585. add ax,'00'
586. xchg ah,al
587. mov cs:[si],ax
588. ret
589. saveregs: pop cs:backaddr
590. db 60h
591. push ds
592. push es
593. push cs:backaddr
594. ret
595. oopsregs: pop cs:backaddr
596. pop es
597. pop ds
598. db 61h
599. push cs:backaddr
600. ret
601. savecon: call saveregs
602. mov ax,0b800h
603. mov es,ax
604. mov ds,ax
605. xor si,si
606. mov di,80*25*2
607. mov cx,80*20*2
608. cld
609. rep movsb
610. call oopsregs
611. ret
612. oopscon: call saveregs
613. mov ax,0b800h
614. mov es,ax
615. mov ds,ax
616. xor si,si
617. mov di,80*25*2
618. mov cx,80*20*2
619. xchg si,di
620. cld
621. rep movsb
622. call oopsregs
623. ret
624. org $+136h
625. quit:
626. code ends
627. end start

复制代码