![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mswait.lst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Synchronet] / sbbs / mswait|
Return to mswait.lst CVS log | Up to [Synchronet] / sbbs / mswait |
1.1 root 1:
2: Microsoft Macro Assembler Version 5.10 7/22/93 04:16:00
3: mswait Page 1-1
4:
5:
6: ; MSWAIT: Wait up to 30000 milliseconds
7: ; July 1992, Steve D. @ Vertrauen 714 529-9547
8:
9: setmod %mm ;set memory model
10: public _mswait,_mswtyp
11:
12: .data
13: 0000 00 _mswtyp db 0 ;system type for idle loop
14: = 0001 dosidl equ 1 ;use int 28h
15: = 0002 os2idl equ 2 ;use int 2fh function 1680h
16: .code
17: 0000 00000000 clkvct dd 0 ;saved int 1ch vector
18: 0004 00000000 brkvct dd 0 ;saved int 1bh vector
19: 0008 0000 waitct dw 0 ;local 8254 tick count
20: 000A 00 cbrk db 0 ;ctrl-break key pressed
21:
22: 000B clkisr proc ;interrupt 1ch (55ms tick) service routine
23: 000B 2E: FF 0E 0008 R dec mw cs:waitct
24: 0010 2E: FF 2E 0000 R jmp ml cs:clkvct ;exec prior service routine
25: 0015 clkisr endp
26:
27: 0015 brkisr proc ;interrupt 1bh (ctrl-break) service routine
28: 0015 2E: C6 06 000A R FF mov mb cs:cbrk,-1 ;ctrl-break depressed, set abort flag
29: 001B 2E: FF 2E 0004 R jmp ml cs:brkvct ;exec prior service routine
30: 0020 brkisr endp
31:
32: 0020 _mswait proc
33: 0020 55 push bp
34: 0021 8B EC mov bp,sp
35:
36: 0023 A0 0000 R mov al,mb _mswtyp
37: 0026 50 push ax ;wait type flag at [bp-2]
38:
39: 0027 06 push es
40: 0028 1E push ds
41:
42: 0029 B8 351B mov ax,351bh
43: 002C CD 21 int 21h ;get ctrl-break vector
44: 002E 2E: 89 1E 0004 R mov mw cs:brkvct,bx
45: 0033 2E: 8C 06 0006 R mov mw cs:brkvct+2,es ;save old service routine address
46:
47: 0038 2E: C6 06 000A R 00 mov mb cs:cbrk,0 ;clear abort flag
48: 003E B4 25 mov ah,25h
49: 0040 0E push cs
50: 0041 1F pop ds ;data segment is now inaccessible
51: 0042 BA 0015 R mov dx,os brkisr
52: 0045 CD 21 int 21h ;set new interrupt service routine
53:
54: 0047 B8 7530 mov ax,30000 ;maximal wait
55: 004A 8B 56 06 mov dx,pb[bp] ;wait time in milliseconds
56: 004D 3B C2 cmp ax,dx
57: 004F 72 01 jc @f
58: 0051 92 xchg ax,dx ;within range, use specification
59: 0052 33 D2 @@: xor dx,dx ;milliseconds in dx:ax
60: 0054 2D 000A sub ax,10 ;0-64 yields 55
61: 0057 77 02 ja @f
62: 0059 8B C2 mov ax,dx ;must be at least 0
63: 005B B9 0037 @@: mov cx,55 ;milliseconds per ctc interrupt
64: 005E F7 F1 div cx
65:
66: Microsoft Macro Assembler Version 5.10 7/22/93 04:16:00
67: mswait Page 1-2
68:
69:
70: 0060 2E: A3 0008 R mov mw cs:waitct,ax ;number of ctc interrupts to wait
71:
72: 0064 9C pushf ;detect cpu type
73: 0065 B8 4000 mov ax,4000h
74: 0068 50 push ax
75: 0069 9D popf
76: 006A 9C pushf
77: 006B 58 pop ax
78: 006C 9D popf
79: 006D 80 E4 C0 and ah,0c0h
80: 0070 78 7E js msxt ;80186 or earlier
81: 0072 74 7C jz msxt ;80286
82:
83: .386 ;80386
84: 0074 66| 60 pushad
85: 0076 B8 2B01 mov ax,2b01h ;set date (get desqview version)
86: 0079 B9 4445 mov cx,4445h ;DE
87: 007C BA 5351 mov dx,5351h ;SQ
88: 007F CD 21 int 21h
89: 0081 F6 D0 not al ;zero if desqview not running
90: 0083 88 46 FF mov mb -1[bp],al
91:
92: 0086 33 C9 xor cx,cx ;running count in cx
93: 0088 B8 0040 mov ax,40h
94: 008B 8E C0 mov es,ax
95: 008D BB 006C mov bx,6ch ;address bios clock
96:
97: 0090 26: 66| 8B 17 stwt: mov edx,ml es:[bx]
98: 0094 2E: F6 06 000A R FF lpwt: test cs:cbrk,-1
99: 009A 75 44 jnz s mabt ;exit on ctrl-break
100: 009C 66| 52 push edx
101: 009E F6 46 FF FF test mb -1[bp],-1
102: 00A2 74 07 jz s @f ;not under desqview
103: 00A4 B8 1000 mov ax,1000h
104: 00A7 CD 15 int 15h ;surrender time slice, desqview
105: 00A9 EB 0B jmp s ckwt ;continue
106: 00AB F6 46 FE 02 @@: test mb -2[bp],os2idl
107: 00AF 74 05 jz s ckwt ;no int 2fh call
108: 00B1 B8 1680 mov ax,1680h
109: 00B4 CD 2F int 2fh ;surrender time slice, os/2
110: 00B6 F6 46 FE 01 ckwt: test mb -2[bp],dosidl
111: 00BA 74 02 jz s @f ;no int 28h call
112: 00BC CD 28 int 28h ;idle
113: 00BE 66| 5A @@: pop edx
114: 00C0 26: 66| 8B 07 mov eax,ml es:[bx]
115: 00C4 66| 8B F0 mov esi,eax ;save latest clock value
116: 00C7 66| 2B C2 sub eax,edx
117: 00CA 74 C8 jz lpwt ;wait for clock change
118: 00CC 72 C2 jc stwt ;crossed midnight, reset
119: 00CE 66| 8B D6 mov edx,esi ;set most current value
120: 00D1 66| 83 F8 7F cmp eax,7fh
121: 00D5 73 09 jnc s mabt ;swapped out more than 7 seconds
122: 00D7 03 C8 add cx,ax ;add to running total
123: 00D9 2E: 3B 0E 0008 R cmp cx,cs:waitct ;static maximal value
124: 00DE 76 B4 jna lpwt ;not expired, continue
125:
126: 00E0 66| 61 mabt: popad
127: 00E2 B8 0182 mov ax,386 ;for test purposes
128: 00E5 F6 46 FF FF test mb -1[bp],-1
129:
130: Microsoft Macro Assembler Version 5.10 7/22/93 04:16:00
131: mswait Page 1-3
132:
133:
134: 00E9 74 39 jz s msex
135: 00EB B8 2892 mov ax,10386
136: 00EE EB 34 jmp s msex
137:
138: 00F0 msxt: .8086
139: 00F0 B8 351C mov ax,351ch
140: 00F3 CD 21 int 21h ;get int 1ch vector
141: 00F5 2E: 89 1E 0000 R mov mw cs:clkvct,bx
142: 00FA 2E: 8C 06 0002 R mov mw cs:clkvct+2,es ;save old service routine address
143:
144: 00FF B4 25 mov ah,25h
145: 0101 0E push cs
146: 0102 1F pop ds
147: 0103 BA 000B R mov dx,os clkisr
148: 0106 CD 21 int 21h ;set new interrupt service routine
149:
150: 0108 2E: F6 06 000A R FF mswl: test cs:cbrk,-1
151: 010E 75 08 jnz @f ;exit on ctrl-break
152: 0110 2E: A1 0008 R mov ax,cs:waitct
153: 0114 0B C0 or ax,ax
154: 0116 79 F0 jns mswl ;wait for negative count
155:
156: 0118 B8 251C @@: mov ax,251ch
157: 011B 2E: C5 16 0000 R lds dx,cs:clkvct
158: 0120 CD 21 int 21h ;restore old clock sr vector
159: 0122 33 C0 xor ax,ax ;return zero
160: 0124 50 msex: push ax
161: 0125 B8 251B mov ax,251bh
162: 0128 2E: C5 16 0004 R lds dx,cs:brkvct
163: 012D CD 21 int 21h ;restore old ctrl-break sr vector
164: 012F 58 pop ax
165: 0130 1F pop ds
166: 0131 07 pop es
167: 0132 5B pop bx ;wait type flag
168: 0133 5D pop bp
169: 0134 CB ret
170: 0135 _mswait endp
171: end
172:
173:
174: Microsoft Macro Assembler Version 5.10 7/22/93 04:16:00
175: mswait Symbols-1
176:
177:
178: Macros:
179:
180: N a m e Lines
181:
182: .EOPG . . . . . . . . . . . . . 4
183: .ILIST . . . . . . . . . . . . . 2
184: ASA . . . . . . . . . . . . . . 1
185: ASTRUC . . . . . . . . . . . . . 6
186: ASYN . . . . . . . . . . . . . . 0
187: DA . . . . . . . . . . . . . . . 4
188: DBL . . . . . . . . . . . . . . 2
189: DBWW . . . . . . . . . . . . . . 2
190: DSA . . . . . . . . . . . . . . 4
191: DSB . . . . . . . . . . . . . . 4
192: DSS . . . . . . . . . . . . . . 8
193: DSTRUC . . . . . . . . . . . . . 8
194: DV . . . . . . . . . . . . . . . 5
195: INCL . . . . . . . . . . . . . . 5
196: SETMOD . . . . . . . . . . . . . 0
197:
198: Segments and Groups:
199:
200: N a m e Size Length Align Combine Class
201:
202: DGROUP . . . . . . . . . . . . . GROUP
203: _DATA . . . . . . . . . . . . 16 Bit 0001 WORD PUBLIC 'DATA'
204: MSWAIT_TEXT . . . . . . . . . . 16 Bit 0135 WORD PUBLIC 'CODE'
205:
206: Symbols:
207:
208: N a m e Type Value Attr
209:
210: AA . . . . . . . . . . . . . . . TEXT .model large
211:
212: BRKISR . . . . . . . . . . . . . F PROC 0015 MSWAIT_TEXT Length = 000B
213: BRKVCT . . . . . . . . . . . . . L DWORD 0004 MSWAIT_TEXT
214:
215: CBRK . . . . . . . . . . . . . . L BYTE 000A MSWAIT_TEXT
216: CKWT . . . . . . . . . . . . . . L NEAR 00B6 MSWAIT_TEXT
217: CLKISR . . . . . . . . . . . . . F PROC 000B MSWAIT_TEXT Length = 000A
218: CLKVCT . . . . . . . . . . . . . L DWORD 0000 MSWAIT_TEXT
219:
220: DOSIDL . . . . . . . . . . . . . NUMBER 0001
221: DS1 . . . . . . . . . . . . . . TEXT label byte
222: DS2 . . . . . . . . . . . . . . TEXT label word
223: DS4 . . . . . . . . . . . . . . TEXT label dword
224: DS6 . . . . . . . . . . . . . . TEXT label fword
225: DS8 . . . . . . . . . . . . . . TEXT label qword
226:
227: LISTON . . . . . . . . . . . . . NUMBER 0001
228: LPWT . . . . . . . . . . . . . . L NEAR 0094 MSWAIT_TEXT
229:
230: MABT . . . . . . . . . . . . . . L NEAR 00E0 MSWAIT_TEXT
231: MB . . . . . . . . . . . . . . . TEXT byte ptr
232: MDLC . . . . . . . . . . . . . . TEXT compact
233: MDLH . . . . . . . . . . . . . . TEXT huge
234: MDLL . . . . . . . . . . . . . . TEXT large
235: MDLM . . . . . . . . . . . . . . TEXT medium
236:
237: Microsoft Macro Assembler Version 5.10 7/22/93 04:16:00
238: mswait Symbols-2
239:
240:
241: MDLS . . . . . . . . . . . . . . TEXT small
242: ML . . . . . . . . . . . . . . . TEXT dword ptr
243: MM . . . . . . . . . . . . . . . TEXT l
244: MSEX . . . . . . . . . . . . . . L NEAR 0124 MSWAIT_TEXT
245: MSWL . . . . . . . . . . . . . . L NEAR 0108 MSWAIT_TEXT
246: MSXT . . . . . . . . . . . . . . L NEAR 00F0 MSWAIT_TEXT
247: MW . . . . . . . . . . . . . . . TEXT word ptr
248:
249: OS . . . . . . . . . . . . . . . TEXT offset
250: OS2IDL . . . . . . . . . . . . . NUMBER 0002
251:
252: PB . . . . . . . . . . . . . . . NUMBER 0006
253:
254: S . . . . . . . . . . . . . . . TEXT short
255: STWT . . . . . . . . . . . . . . L NEAR 0090 MSWAIT_TEXT
256:
257: WAITCT . . . . . . . . . . . . . L WORD 0008 MSWAIT_TEXT
258:
259: @0 . . . . . . . . . . . . . . . L NEAR 0052 MSWAIT_TEXT
260: @1 . . . . . . . . . . . . . . . L NEAR 005B MSWAIT_TEXT
261: @2 . . . . . . . . . . . . . . . L NEAR 00AB MSWAIT_TEXT
262: @3 . . . . . . . . . . . . . . . L NEAR 00BE MSWAIT_TEXT
263: @4 . . . . . . . . . . . . . . . L NEAR 0118 MSWAIT_TEXT
264: @CODE . . . . . . . . . . . . . TEXT mswait_TEXT
265: @CODESIZE . . . . . . . . . . . TEXT 1
266: @CPU . . . . . . . . . . . . . . TEXT 257
267: @DATASIZE . . . . . . . . . . . TEXT 1
268: @FILENAME . . . . . . . . . . . TEXT mswait
269: @VERSION . . . . . . . . . . . . TEXT 510
270: _mswait . . . . . . . . . . . . F PROC 0020 MSWAIT_TEXT Global Length = 0115
271: _mswtyp . . . . . . . . . . . . L BYTE 0000 _DATA Global
272:
273:
274: 340 Source Lines
275: 356 Total Lines
276: 74 Symbols
277:
278: 47118 + 348476 Bytes symbol space free
279:
280: 0 Warning Errors
281: 0 Severe Errors
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.