Power-Programmierung

home *** CD-ROM | disk | FTP | other *** search

/ Power-Programmierung / CD1.mdf / pascal / library / dos / tspa / tp4 / tsuntk.dis < prev next >

Wrap

Text File | 1994-06-19 | 23.2 KB | 409 lines

Module: TSUNTK.PAS Group: 'DGROUP' _DATA,_BSS Segment: TSUNTK_TEXT PARA 00000418 bytes 0000 BOOTDRFN: 0000 55 TSUNTK_001 push bp 0001 89 e5 mov bp,sp 0003 b8 15 00 mov ax,0015H 0006 9a 00 00 00 00 call far SYSTEM_034 000b 83 ec 15 sub sp,0015H 000e 9a 00 00 00 00 call far TSUNT45_001 0013 86 c4 xchg al,ah 0015 3d 00 04 cmp ax,0400H 0018 73 06 jae L1 001a c6 46 ff 2e mov byte ptr -1H[bp],2eH 001e eb 2e jmp L2 0020 8d 7e eb L1 lea di,-15H[bp] 0023 16 push ss 0024 57 push di 0025 b8 14 00 mov ax,0014H 0028 50 push ax 0029 b0 00 mov al,00H 002b 50 push ax 002c 9a 00 00 00 00 call far SYSTEM_05C 0031 c6 46 ec 33 mov byte ptr -14H[bp],33H 0035 c6 46 eb 05 mov byte ptr -15H[bp],05H 0039 8d 7e eb lea di,-15H[bp] 003c 16 push ss 003d 57 push di 003e 9a 00 00 00 00 call far DOS_002 0043 8a 46 f1 mov al,-0fH[bp] 0046 30 e4 xor ah,ah 0048 05 40 00 add ax,0040H 004b 88 46 ff mov -1H[bp],al 004e 8a 46 ff L2 mov al,-1H[bp] 0051 89 ec mov sp,bp 0053 5d pop bp 0054 cb retf 0055 01 2d L3 add [di],bp 0057 GETSERFN: 0057 55 TSUNTK_002 push bp 0058 89 e5 mov bp,sp 005a b8 2d 03 mov ax,032dH 005d 9a 00 00 00 00 call far SYSTEM_034 0062 81 ec 2d 03 sub sp,032dH 0066 c4 7e 08 les di,dword ptr +8H[bp] 0069 26 c6 05 00 mov byte ptr es:[di],00H 006d 9a 00 00 00 00 call far TSUNT45_001 0072 86 c4 xchg al,ah 0074 3d 00 04 cmp ax,0400H 0077 73 03 jae L4 0079 e9 e5 00 jmp L10 007c 8d 7e ec L4 lea di,-14H[bp] 007f 16 push ss 0080 57 push di 0081 b8 14 00 mov ax,0014H 0084 50 push ax 0085 b0 00 mov al,00H 0087 50 push ax 0088 9a 00 00 00 00 call far SYSTEM_05C 008d 8a 46 06 mov al,+6H[bp] 0090 50 push ax 0091 9a 00 00 00 00 call far SYSTEM_05A 0096 88 46 06 mov +6H[bp],al 0099 80 7e 06 30 cmp byte ptr +6H[bp],30H 009d 74 0f je L6 009f 80 7e 06 41 cmp byte ptr +6H[bp],41H 00a3 72 06 jb L5 00a5 80 7e 06 5a cmp byte ptr +6H[bp],5aH 00a9 76 03 jbe L6 00ab e9 b3 00 L5 jmp L10 00ae c6 46 ed 69 L6 mov byte ptr -13H[bp],69H 00b2 c6 46 ec 00 mov byte ptr -14H[bp],00H 00b6 80 7e 06 30 cmp byte ptr +6H[bp],30H 00ba 74 0e je L7 00bc 8a 46 06 mov al,+6H[bp] 00bf 30 e4 xor ah,ah 00c1 2d 41 00 sub ax,0041H 00c4 40 inc ax 00c5 88 46 ee mov -12H[bp],al 00c8 eb 04 jmp L8 00ca c6 46 ee 00 L7 mov byte ptr -12H[bp],00H 00ce 8c d0 L8 mov ax,ss 00d0 89 46 fa mov -6H[bp],ax 00d3 8d 46 d3 lea ax,-2dH[bp] 00d6 89 46 f2 mov -0eH[bp],ax 00d9 b0 21 mov al,21H 00db 50 push ax 00dc 8d 7e ec lea di,-14H[bp] 00df 16 push ss 00e0 57 push di 00e1 9a 00 00 00 00 call far DOS_001 00e6 8b 46 fe mov ax,-2H[bp] 00e9 25 01 00 and ax,0001H 00ec 09 c0 or ax,ax 00ee 74 02 je L9 00f0 eb 6f jmp L10 00f2 8d be d3 fd L9 lea di,-22dH[bp] 00f6 16 push ss 00f7 57 push di 00f8 ff 76 d7 push -29H[bp] 00fb ff 76 d5 push -2bH[bp] 00fe 9a 00 00 00 00 call far TSUNTB_00B 0103 8d be d3 fe lea di,-12dH[bp] 0107 16 push ss 0108 57 push di 0109 b8 ff 00 mov ax,00ffH 010c 50 push ax 010d 9a 00 00 00 00 call far SYSTEM_00C 0112 8d be d3 fd lea di,-22dH[bp] 0116 16 push ss 0117 57 push di 0118 8d be d3 fe lea di,-12dH[bp] 011c 16 push ss 011d 57 push di 011e b8 01 00 mov ax,0001H 0121 50 push ax 0122 b8 04 00 mov ax,0004H 0125 50 push ax 0126 9a 00 00 00 00 call far SYSTEM_00E 012b bf 00 00 mov di,offset L3 012e 0e push cs 012f 57 push di 0130 9a 00 00 00 00 call far SYSTEM_00F 0135 8d be d3 fc lea di,-32dH[bp] 0139 16 push ss 013a 57 push di 013b 8d be d3 fe lea di,-12dH[bp] 013f 16 push ss 0140 57 push di 0141 b8 05 00 mov ax,0005H 0144 50 push ax 0145 b8 04 00 mov ax,0004H 0148 50 push ax 0149 9a 00 00 00 00 call far SYSTEM_00E 014e 9a 00 00 00 00 call far SYSTEM_00F 0153 c4 7e 08 les di,dword ptr +8H[bp] 0156 06 push es 0157 57 push di 0158 b8 ff 00 mov ax,00ffH 015b 50 push ax 015c 9a 00 00 00 00 call far SYSTEM_00C 0161 89 ec L10 mov sp,bp 0163 5d pop bp 0164 ca 02 00 retf 0002H 0167 GETVOLFN: 0167 55 TSUNTK_004 push bp 0168 89 e5 mov bp,sp 016a b8 3a 00 mov ax,003aH 016d 9a 00 00 00 00 call far SYSTEM_034 0172 83 ec 3a sub sp,003aH 0175 c4 7e 08 les di,dword ptr +8H[bp] 0178 26 c6 05 00 mov byte ptr es:[di],00H 017c 9a 00 00 00 00 call far TSUNT45_001 0181 86 c4 xchg al,ah 0183 3d 00 04 cmp ax,0400H 0186 73 03 jae L11 0188 e9 af 00 jmp L19 018b 8d 7e ec L11 lea di,-14H[bp] 018e 16 push ss 018f 57 push di 0190 b8 14 00 mov ax,0014H 0193 50 push ax 0194 b0 00 mov al,00H 0196 50 push ax 0197 9a 00 00 00 00 call far SYSTEM_05C 019c 8a 46 06 mov al,+6H[bp] 019f 50 push ax 01a0 9a 00 00 00 00 call far SYSTEM_05A 01a5 88 46 06 mov +6H[bp],al 01a8 80 7e 06 30 cmp byte ptr +6H[bp],30H 01ac 74 0e je L13 01ae 80 7e 06 41 cmp byte ptr +6H[bp],41H 01b2 72 06 jb L12 01b4 80 7e 06 5a cmp byte ptr +6H[bp],5aH 01b8 76 02 jbe L13 01ba eb 7e L12 jmp L19 01bc c6 46 ed 69 L13 mov byte ptr -13H[bp],69H 01c0 c6 46 ec 00 mov byte ptr -14H[bp],00H 01c4 80 7e 06 30 cmp byte ptr +6H[bp],30H 01c8 74 0e je L14 01ca 8a 46 06 mov al,+6H[bp] 01cd 30 e4 xor ah,ah 01cf 2d 41 00 sub ax,0041H 01d2 40 inc ax 01d3 88 46 ee mov -12H[bp],al 01d6 eb 04 jmp L15 01d8 c6 46 ee 00 L14 mov byte ptr -12H[bp],00H 01dc 8c d0 L15 mov ax,ss 01de 89 46 fa mov -6H[bp],ax 01e1 8d 46 d3 lea ax,-2dH[bp] 01e4 89 46 f2 mov -0eH[bp],ax 01e7 b0 21 mov al,21H 01e9 50 push ax 01ea 8d 7e ec lea di,-14H[bp] 01ed 16 push ss 01ee 57 push di 01ef 9a 00 00 00 00 call far DOS_001 01f4 8b 46 fe mov ax,-2H[bp] 01f7 25 01 00 and ax,0001H 01fa 09 c0 or ax,ax 01fc 74 02 je L16 01fe eb 3a jmp L19 0200 c6 46 c7 0b L16 mov byte ptr -39H[bp],0bH 0204 c6 46 c6 01 mov byte ptr -3aH[bp],01H 0208 eb 03 jmp L18 020a fe 46 c6 L17 inc byte ptr -3aH[bp] 020d 8a 46 c6 L18 mov al,-3aH[bp] 0210 30 e4 xor ah,ah 0212 8b f8 mov di,ax 0214 8a 53 d8 mov dl,-28H[bp+di] 0217 8a 46 c6 mov al,-3aH[bp] 021a 30 e4 xor ah,ah 021c 8b f8 mov di,ax 021e 88 53 c7 mov -39H[bp+di],dl 0221 80 7e c6 0b cmp byte ptr -3aH[bp],0bH 0225 75 e3 jne L17 0227 8d 7e c7 lea di,-39H[bp] 022a 16 push ss 022b 57 push di 022c c4 7e 08 les di,dword ptr +8H[bp] 022f 06 push es 0230 57 push di 0231 b8 ff 00 mov ax,00ffH 0234 50 push ax 0235 9a 00 00 00 00 call far SYSTEM_00C 023a 89 ec L19 mov sp,bp 023c 5d pop bp 023d ca 02 00 retf 0002H 0240 55 TSUNTK_005 push bp 0241 89 e5 mov bp,sp 0243 b8 00 03 mov ax,0300H 0246 9a 00 00 00 00 call far SYSTEM_034 024b 81 ec 00 03 sub sp,0300H 024f c4 7e 0c les di,dword ptr +0cH[bp] 0252 06 push es 0253 57 push di 0254 8d be 00 ff lea di,-100H[bp] 0258 16 push ss 0259 57 push di 025a b8 ff 00 mov ax,00ffH 025d 50 push ax 025e 9a 00 00 00 00 call far SYSTEM_00C 0263 c4 7e 04 les di,dword ptr +4H[bp] 0266 26 c6 05 01 mov byte ptr es:[di],01H 026a 80 be 00 ff 09 cmp byte ptr -100H[bp],09H 026f 74 02 je L20 0271 eb 74 jmp L23 0273 80 be 05 ff 2d L20 cmp byte ptr -0fbH[bp],2dH 0278 74 02 je L21 027a eb 6b jmp L23 027c 80 be 01 ff 37 L21 cmp byte ptr -0ffH[bp],37H 0281 76 02 jbe L22 0283 eb 62 jmp L23 0285 8d be 00 fe L22 lea di,-200H[bp] 0289 16 push ss 028a 57 push di 028b 8d be 00 ff lea di,-100H[bp] 028f 16 push ss 0290 57 push di 0291 b8 01 00 mov ax,0001H 0294 50 push ax 0295 b8 04 00 mov ax,0004H 0298 50 push ax 0299 9a 00 00 00 00 call far SYSTEM_00E 029e 8d be 00 fd lea di,-300H[bp] 02a2 16 push ss 02a3 57 push di 02a4 8d be 00 ff lea di,-100H[bp] 02a8 16 push ss 02a9 57 push di 02aa b8 06 00 mov ax,0006H 02ad 50 push ax 02ae b8 04 00 mov ax,0004H 02b1 50 push ax 02b2 9a 00 00 00 00 call far SYSTEM_00E 02b7 9a 00 00 00 00 call far SYSTEM_00F 02bc 8d be 00 ff lea di,-100H[bp] 02c0 16 push ss 02c1 57 push di 02c2 b8 ff 00 mov ax,00ffH 02c5 50 push ax 02c6 9a 00 00 00 00 call far SYSTEM_00C 02cb 8d be 00 ff lea di,-100H[bp] 02cf 16 push ss 02d0 57 push di 02d1 9a 00 00 00 00 call far TSUNTB_010 02d6 c4 7e 08 les di,dword ptr +8H[bp] 02d9 26 89 05 mov es:[di],ax 02dc 26 89 55 02 mov es:+2H[di],dx 02e0 c4 7e 04 les di,dword ptr +4H[bp] 02e3 26 c6 05 00 mov byte ptr es:[di],00H 02e7 89 ec L23 mov sp,bp 02e9 5d pop bp 02ea c2 0c 00 ret 000cH 02ed SETSER: 02ed 55 TSUNTK_003 push bp 02ee 89 e5 mov bp,sp 02f0 b8 2e 01 mov ax,012eH 02f3 9a 00 00 00 00 call far SYSTEM_034 02f8 81 ec 2e 01 sub sp,012eH 02fc c4 7e 0a les di,dword ptr +0aH[bp] 02ff 06 push es 0300 57 push di 0301 8d be 00 ff lea di,-100H[bp] 0305 16 push ss 0306 57 push di 0307 b8 ff 00 mov ax,00ffH 030a 50 push ax 030b 9a 00 00 00 00 call far SYSTEM_00C 0310 c4 7e 06 les di,dword ptr +6H[bp] 0313 26 c7 05 ff ff mov word ptr es:[di],0ffffH 0318 9a 00 00 00 00 call far TSUNT45_001 031d 86 c4 xchg al,ah 031f 3d 00 04 cmp ax,0400H 0322 73 03 jae L24 0324 e9 eb 00 jmp L30 0327 8d be ec fe L24 lea di,-114H[bp] 032b 16 push ss 032c 57 push di 032d b8 14 00 mov ax,0014H 0330 50 push ax 0331 b0 00 mov al,00H 0333 50 push ax 0334 9a 00 00 00 00 call far SYSTEM_05C 0339 8a 46 0e mov al,+0eH[bp] 033c 50 push ax 033d 9a 00 00 00 00 call far SYSTEM_05A 0342 88 46 0e mov +0eH[bp],al 0345 c4 7e 06 les di,dword ptr +6H[bp] 0348 26 c7 05 fe ff mov word ptr es:[di],0fffeH 034d 80 7e 0e 41 cmp byte ptr +0eH[bp],41H 0351 72 06 jb L25 0353 80 7e 0e 42 cmp byte ptr +0eH[bp],42H 0357 76 03 jbe L26 0359 e9 b6 00 L25 jmp L30 035c c6 86 ed fe 69 L26 mov byte ptr -113H[bp],69H 0361 c6 86 ec fe 00 mov byte ptr -114H[bp],00H 0366 8a 46 0e mov al,+0eH[bp] 0369 30 e4 xor ah,ah 036b 2d 41 00 sub ax,0041H 036e 40 inc ax 036f 88 86 ee fe mov -112H[bp],al 0373 8c d0 mov ax,ss 0375 89 86 fa fe mov -106H[bp],ax 0379 8d 86 d3 fe lea ax,-12dH[bp] 037d 89 86 f2 fe mov -10eH[bp],ax 0381 b0 21 mov al,21H 0383 50 push ax 0384 8d be ec fe lea di,-114H[bp] 0388 16 push ss 0389 57 push di 038a 9a 00 00 00 00 call far DOS_001 038f 8b 86 fe fe mov ax,-102H[bp] 0393 25 01 00 and ax,0001H 0396 09 c0 or ax,ax 0398 74 02 je L27 039a eb 76 jmp L30 039c c4 7e 06 L27 les di,dword ptr +6H[bp] 039f 26 c7 05 fd ff mov word ptr es:[di],0fffdH 03a4 8d be 00 ff lea di,-100H[bp] 03a8 16 push ss 03a9 57 push di 03aa 8d be d5 fe lea di,-12bH[bp] 03ae 16 push ss 03af 57 push di 03b0 8d be d2 fe lea di,-12eH[bp] 03b4 16 push ss 03b5 57 push di 03b6 e8 00 00 call TSUNTK_005 03b9 80 be d2 fe 00 cmp byte ptr -12eH[bp],00H 03be 74 02 je L28 03c0 eb 50 jmp L30 03c2 c6 86 ed fe 69 L28 mov byte ptr -113H[bp],69H 03c7 c6 86 ec fe 01 mov byte ptr -114H[bp],01H 03cc 8a 46 0e mov al,+0eH[bp] 03cf 30 e4 xor ah,ah 03d1 2d 41 00 sub ax,0041H 03d4 40 inc ax 03d5 88 86 ee fe mov -112H[bp],al 03d9 8c d0 mov ax,ss 03db 89 86 fa fe mov -106H[bp],ax 03df 8d 86 d3 fe lea ax,-12dH[bp] 03e3 89 86 f2 fe mov -10eH[bp],ax 03e7 b0 21 mov al,21H 03e9 50 push ax 03ea 8d be ec fe lea di,-114H[bp] 03ee 16 push ss 03ef 57 push di 03f0 9a 00 00 00 00 call far DOS_001 03f5 c4 7e 06 les di,dword ptr +6H[bp] 03f8 26 c7 05 fc ff mov word ptr es:[di],0fffcH 03fd 8b 86 fe fe mov ax,-102H[bp] 0401 25 01 00 and ax,0001H 0404 09 c0 or ax,ax 0406 74 02 je L29 0408 eb 08 jmp L30 040a c4 7e 06 L29 les di,dword ptr +6H[bp] 040d 31 c0 xor ax,ax 040f 26 89 05 mov es:[di],ax 0412 89 ec L30 mov sp,bp 0414 5d pop bp 0415 ca 0a 00 retf 000aH No disassembly errors ------------------------------------------------------------