Power-Programmierung

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

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

Wrap

Text File | 1994-06-19 | 39.4 KB | 692 lines

Module: TSUNTI.PAS Group: 'DGROUP' _DATA,_BSS Segment: TSUNTI_TEXT PARA 00000723 bytes 0000 29 65 72 L1 sub +72H[di],sp 0003 72 6f jb L11 0005 72 20 jb L2 0007 69 6e 20 72 65 imul bp,+20H[bp],6572H 000c 73 65 jae L10 000e 74 2c je L4 0010 20 69 6e and +6eH[bx+di],ch 0013 76 61 jbe L12 0015 6c insb 0016 69 64 20 6f 72 imul sp,+20H[si],726fH 001b 20 70 72 and +72H[bx+si],dh 001e 6f outsw 001f 74 65 je L14 0021 63 74 65 arpl si,+65H[si] 0024 64 20 66 69 and fs:+69H[bp],ah 0028 6c insb 0029 65 19 65 72 sbb gs:+72H[di],sp 002d 72 6f jb L17 002f 72 20 jb L6 0031 69 6e 20 67 65 imul bp,+20H[bp],6567H 0036 74 74 je L20 0038 69 6e 67 20 66 imul bp,+67H[bp],6620H 003d 69 6c 65 73 69 imul bp,+65H[si],6973H 0042 7a 65 jp L19 0044 0d 65 72 L5 or ax,7265H 0047 72 6f jb L22 0049 72 20 jb L9 004b 69 6e 20 73 65 imul bp,+20H[bp],6573H 0050 65 6b 12 65 imul dx,gs:[bp+si],65H 0054 72 72 jb L24 0056 6f outsw 0057 72 20 jb L13 0059 69 6e 20 62 6c imul bp,+20H[bp],6c62H 005e 6f outsw 005f 63 6b 72 arpl bp,+72H[bp+di] 0062 65 61 popa 0064 64 13 65 72 adc sp,fs:+72H[di] 0068 72 6f jb L25 006a 72 20 jb L15 006c 69 6e 20 62 6c imul bp,+20H[bp],6c62H 0071 6f outsw 0072 63 6b 77 arpl bp,+77H[bp+di] 0075 72 69 jb L27 0077 74 65 je L26 0079 18 65 72 L13 sbb +72H[di],ah 007c 72 6f jb L28 007e 72 20 jb L18 0080 69 6e 20 73 65 imul bp,+20H[bp],6573H 0085 65 6b 3a 20 imul di,gs:[bp+si],20H 0089 6e outsb 008a 6f outsw 008b 74 20 je L21 008d 66 6f outsd 008f 75 6e jne L29 0091 64 0e push cs 0093 65 72 72 jb L31 0096 6f outsw 0097 72 20 jb L23 0099 69 6e 20 63 6c imul bp,+20H[bp],6c63H 009e 6f L17 outsw 009f 73 65 jae L30 00a1 USECOUNT: 00a1 55 TSUNTI_001 push bp 00a2 89 e5 mov bp,sp 00a4 b8 95 01 mov ax,0195H 00a7 9a 00 00 00 00 call far SYSTEM_034 00ac 81 ec 95 01 L20 sub sp,0195H 00b0 a0 00 00 mov al,SYSTEM_BSS+236H 00b3 88 86 7f ff mov -81H[bp],al 00b7 c6 06 00 00 02 mov byte ptr SYSTEM_BSS+236H,02H 00bc c4 7e 0a les di,dword ptr +0aH[bp] 00bf 26 c7 05 ff ff mov word ptr es:[di],0ffffH 00c4 26 c7 45 02 ff ff mov word ptr es:+2H[di],0ffffH 00ca c4 7e 06 les di,dword ptr +6H[bp] 00cd 26 c6 05 00 mov byte ptr es:[di],00H 00d1 c4 06 00 00 les ax,dword ptr L71 00d5 8c c2 mov dx,es 00d7 05 01 00 add ax,0001H 00da 83 d2 00 adc dx,0000H 00dd a3 00 00 mov L71,ax 00e0 89 16 00 00 L27 mov L72,dx 00e4 8d 7e 80 lea di,-80H[bp] 00e7 16 push ss 00e8 57 push di 00e9 8d be 6b fe lea di,-195H[bp] 00ed 16 L28 push ss 00ee 57 push di 00ef 9a 00 00 00 00 call far TSUNT45_005 00f4 9a 00 00 00 00 call far SYSTEM_049 00f9 8d 7e 80 lea di,-80H[bp] 00fc 16 push ss 00fd 57 push di 00fe b8 01 00 mov ax,0001H 0101 50 push ax 0102 9a 00 00 00 00 call far SYSTEM_04A 0107 9a 00 00 00 00 call far SYSTEM_031 010c 09 c0 or ax,ax 010e 74 16 je L32 0110 bf 00 00 mov di,offset L1 0113 0e push cs 0114 57 push di 0115 c4 7e 06 les di,dword ptr +6H[bp] 0118 06 push es 0119 57 push di 011a b8 ff 00 mov ax,00ffH 011d 50 push ax 011e 9a 00 00 00 00 call far SYSTEM_00C 0123 e9 ab 01 jmp L46 0126 8d 7e 80 L32 lea di,-80H[bp] 0129 16 push ss 012a 57 push di 012b 9a 00 00 00 00 call far SYSTEM_057 0130 2d 10 00 sub ax,0010H 0133 83 da 00 sbb dx,0000H 0136 89 86 6b ff mov -95H[bp],ax 013a 89 96 6d ff mov -93H[bp],dx 013e 9a 00 00 00 00 call far SYSTEM_031 0143 09 c0 or ax,ax 0145 74 16 je L33 0147 bf 00 00 mov di,offset L3 014a 0e push cs 014b 57 push di 014c c4 7e 06 les di,dword ptr +6H[bp] 014f 06 push es 0150 57 push di 0151 b8 ff 00 mov ax,00ffH 0154 50 push ax 0155 9a 00 00 00 00 call far SYSTEM_00C 015a e9 74 01 jmp L46 015d c6 86 6f ff 00 L33 mov byte ptr -91H[bp],00H 0162 83 be 6d ff 00 L34 cmp word ptr -93H[bp],0000H 0167 7f 0f jg L36 0169 7d 03 jge L35 016b e9 91 00 jmp L39 016e 83 be 6b ff 00 L35 cmp word ptr -95H[bp],0000H 0173 77 03 ja L36 0175 e9 87 00 jmp L39 0178 8d be 6f ff L36 lea di,-91H[bp] 017c 16 push ss 017d 57 push di 017e bf 00 00 mov di,offset TSUNTI_DATA 0181 1e push ds 0182 57 push di 0183 9a 00 00 00 00 call far SYSTEM_011 0188 74 75 je L39 018a 8d 7e 80 lea di,-80H[bp] 018d 16 push ss 018e 57 push di 018f ff b6 6d ff push -93H[bp] 0193 ff b6 6b ff push -95H[bp] 0197 9a 00 00 00 00 call far SYSTEM_055 019c 9a 00 00 00 00 call far SYSTEM_031 01a1 09 c0 or ax,ax 01a3 74 16 je L37 01a5 bf 00 00 mov di,offset L5 01a8 0e push cs 01a9 57 push di 01aa c4 7e 06 les di,dword ptr +6H[bp] 01ad 06 push es 01ae 57 push di 01af b8 ff 00 mov ax,00ffH 01b2 50 push ax 01b3 9a 00 00 00 00 call far SYSTEM_00C 01b8 e9 16 01 jmp L46 01bb 8d 7e 80 L37 lea di,-80H[bp] 01be 16 push ss 01bf 57 push di 01c0 8d be 6f ff lea di,-91H[bp] 01c4 16 push ss 01c5 57 push di 01c6 b8 10 00 mov ax,0010H 01c9 50 push ax 01ca 31 c0 xor ax,ax 01cc 50 push ax 01cd 50 push ax 01ce 9a 00 00 00 00 call far SYSTEM_053 01d3 9a 00 00 00 00 call far SYSTEM_031 01d8 09 c0 or ax,ax 01da 74 16 je L38 01dc bf 00 00 mov di,offset L7 01df 0e push cs 01e0 57 push di 01e1 c4 7e 06 les di,dword ptr +6H[bp] 01e4 06 push es 01e5 57 push di 01e6 b8 ff 00 mov ax,00ffH 01e9 50 push ax 01ea 9a 00 00 00 00 call far SYSTEM_00C 01ef e9 df 00 jmp L46 01f2 83 ae 6b ff 01 L38 sub word ptr -95H[bp],0001H 01f7 83 9e 6d ff 00 sbb word ptr -93H[bp],0000H 01fc e9 63 ff jmp L34 01ff 83 be 6d ff 00 L39 cmp word ptr -93H[bp],0000H 0204 7f 09 jg L40 0206 7c 75 jl L43 0208 83 be 6b ff 00 cmp word ptr -95H[bp],0000H 020d 76 6e jbe L43 020f 8d 7e 80 L40 lea di,-80H[bp] 0212 16 push ss 0213 57 push di 0214 c4 86 6b ff les ax,dword ptr -95H[bp] 0218 8c c2 mov dx,es 021a 05 01 00 add ax,0001H 021d 83 d2 00 adc dx,0000H 0220 52 push dx 0221 50 push ax 0222 9a 00 00 00 00 call far SYSTEM_055 0227 9a 00 00 00 00 call far SYSTEM_031 022c 09 c0 or ax,ax 022e 74 16 je L41 0230 bf 00 00 mov di,offset L5 0233 0e push cs 0234 57 push di 0235 c4 7e 06 les di,dword ptr +6H[bp] 0238 06 push es 0239 57 push di 023a b8 ff 00 mov ax,00ffH 023d 50 push ax 023e 9a 00 00 00 00 call far SYSTEM_00C 0243 e9 8b 00 jmp L46 0246 8d 7e 80 L41 lea di,-80H[bp] 0249 16 push ss 024a 57 push di 024b bf 00 00 mov di,offset TSUNTI_DATA 024e 1e push ds 024f 57 push di 0250 b8 14 00 mov ax,0014H 0253 50 push ax 0254 31 c0 xor ax,ax 0256 50 push ax 0257 50 push ax 0258 9a 00 00 00 00 call far SYSTEM_054 025d 9a 00 00 00 00 call far SYSTEM_031 0262 09 c0 or ax,ax 0264 74 15 je L42 0266 bf 00 00 mov di,offset L8 0269 0e push cs 026a 57 push di 026b c4 7e 06 les di,dword ptr +6H[bp] 026e 06 push es 026f 57 push di 0270 b8 ff 00 mov ax,00ffH 0273 50 push ax 0274 9a 00 00 00 00 call far SYSTEM_00C 0279 eb 56 jmp L46 027b eb 15 L42 jmp L44 027d bf 00 00 L43 mov di,offset L13 0280 0e push cs 0281 57 push di 0282 c4 7e 06 les di,dword ptr +6H[bp] 0285 06 push es 0286 57 push di 0287 b8 ff 00 mov ax,00ffH 028a 50 push ax 028b 9a 00 00 00 00 call far SYSTEM_00C 0290 eb 3f jmp L46 0292 8d 7e 80 L44 lea di,-80H[bp] 0295 16 push ss 0296 57 push di 0297 9a 00 00 00 00 call far SYSTEM_04C 029c 9a 00 00 00 00 call far SYSTEM_031 02a1 09 c0 or ax,ax 02a3 74 15 je L45 02a5 bf 00 00 mov di,offset L16 02a8 0e push cs 02a9 57 push di 02aa c4 7e 06 les di,dword ptr +6H[bp] 02ad 06 push es 02ae 57 push di 02af b8 ff 00 mov ax,00ffH 02b2 50 push ax 02b3 9a 00 00 00 00 call far SYSTEM_00C 02b8 eb 17 jmp L46 02ba c4 06 00 00 L45 les ax,dword ptr L71 02be 8c c2 mov dx,es 02c0 c4 7e 0a les di,dword ptr +0aH[bp] 02c3 26 89 05 mov es:[di],ax 02c6 26 89 55 02 mov es:+2H[di],dx 02ca 8a 86 7f ff mov al,-81H[bp] 02ce a2 00 00 mov SYSTEM_BSS+236H,al 02d1 89 ec L46 mov sp,bp 02d3 5d pop bp 02d4 ca 08 00 retf 0008H 02d7 BRANDEXE: 02d7 55 TSUNTI_002 push bp 02d8 89 e5 mov bp,sp 02da b8 82 02 mov ax,0282H 02dd 9a 00 00 00 00 call far SYSTEM_034 02e2 81 ec 82 02 sub sp,0282H 02e6 c4 7e 06 les di,dword ptr +6H[bp] 02e9 26 c7 05 00 01 mov word ptr es:[di],0100H 02ee 9a 00 00 00 00 call far TSUNT45_001 02f3 86 c4 xchg al,ah 02f5 3d 00 03 cmp ax,0300H 02f8 73 03 jae L47 02fa e9 1d 01 jmp L52 02fd 8d be 7e fd L47 lea di,-282H[bp] 0301 16 push ss 0302 57 push di 0303 9a 00 00 00 00 call far TSUNT45_005 0308 8d be 00 ff lea di,-100H[bp] 030c 16 push ss 030d 57 push di 030e b8 ff 00 mov ax,00ffH 0311 50 push ax 0312 9a 00 00 00 00 call far SYSTEM_00C 0317 8d be 80 fe lea di,-180H[bp] 031b 16 push ss 031c 57 push di 031d 8d be 00 ff lea di,-100H[bp] 0321 16 push ss 0322 57 push di 0323 9a 00 00 00 00 call far SYSTEM_049 0328 8d be 80 fe lea di,-180H[bp] 032c 16 push ss 032d 57 push di 032e b8 01 00 mov ax,0001H 0331 50 push ax 0332 9a 00 00 00 00 call far SYSTEM_04A 0337 9a 00 00 00 00 call far SYSTEM_031 033c c4 7e 06 les di,dword ptr +6H[bp] 033f 26 89 05 mov es:[di],ax 0342 c4 7e 06 les di,dword ptr +6H[bp] 0345 26 83 3d 00 cmp word ptr es:[di],0000H 0349 75 1d jne L48 034b 8d be 80 fe lea di,-180H[bp] 034f 16 push ss 0350 57 push di 0351 b8 08 00 mov ax,0008H 0354 31 d2 xor dx,dx 0356 52 push dx 0357 50 push ax 0358 9a 00 00 00 00 call far SYSTEM_055 035d 9a 00 00 00 00 call far SYSTEM_031 0362 c4 7e 06 les di,dword ptr +6H[bp] 0365 26 89 05 mov es:[di],ax 0368 c4 7e 06 L48 les di,dword ptr +6H[bp] 036b 26 83 3d 00 cmp word ptr es:[di],0000H 036f 75 24 jne L49 0371 8d be 80 fe lea di,-180H[bp] 0375 16 push ss 0376 57 push di 0377 8d be 7e fe lea di,-182H[bp] 037b 16 push ss 037c 57 push di 037d b8 02 00 mov ax,0002H 0380 50 push ax 0381 31 c0 xor ax,ax 0383 50 push ax 0384 50 push ax 0385 9a 00 00 00 00 call far SYSTEM_053 038a 9a 00 00 00 00 call far SYSTEM_031 038f c4 7e 06 les di,dword ptr +6H[bp] 0392 26 89 05 mov es:[di],ax 0395 c4 7e 06 L49 les di,dword ptr +6H[bp] 0398 26 83 3d 00 cmp word ptr es:[di],0000H 039c 75 46 jne L50 039e 8d be 80 fe lea di,-180H[bp] 03a2 16 push ss 03a3 57 push di 03a4 c4 7e 0c les di,dword ptr +0cH[bp] 03a7 8c c0 mov ax,es 03a9 03 86 7e fe add ax,-182H[bp] 03ad 2b 06 00 00 sub ax,SYSTEM_BSS+200H 03b1 31 d2 xor dx,dx 03b3 b9 10 00 mov cx,0010H 03b6 31 db xor bx,bx 03b8 9a 00 00 00 00 call far SYSTEM_005 03bd 8b c8 mov cx,ax 03bf 8b da mov bx,dx 03c1 c4 7e 0c les di,dword ptr +0cH[bp] 03c4 89 f8 mov ax,di 03c6 31 d2 xor dx,dx 03c8 03 c1 add ax,cx 03ca 13 d3 adc dx,bx 03cc 2d 00 01 sub ax,0100H 03cf 83 da 00 sbb dx,0000H 03d2 52 push dx 03d3 50 push ax 03d4 9a 00 00 00 00 call far SYSTEM_055 03d9 9a 00 00 00 00 call far SYSTEM_031 03de c4 7e 06 les di,dword ptr +6H[bp] 03e1 26 89 05 mov es:[di],ax 03e4 c4 7e 06 L50 les di,dword ptr +6H[bp] 03e7 26 83 3d 00 cmp word ptr es:[di],0000H 03eb 75 22 jne L51 03ed 8d be 80 fe lea di,-180H[bp] 03f1 16 push ss 03f2 57 push di 03f3 c4 7e 0c les di,dword ptr +0cH[bp] 03f6 06 push es 03f7 57 push di 03f8 ff 76 0a push +0aH[bp] 03fb 31 c0 xor ax,ax 03fd 50 push ax 03fe 50 push ax 03ff 9a 00 00 00 00 call far SYSTEM_054 0404 9a 00 00 00 00 call far SYSTEM_031 0409 c4 7e 06 les di,dword ptr +6H[bp] 040c 26 89 05 mov es:[di],ax 040f 8d be 80 fe L51 lea di,-180H[bp] 0413 16 push ss 0414 57 push di 0415 9a 00 00 00 00 call far SYSTEM_04C 041a 89 ec L52 mov sp,bp 041c 5d pop bp 041d ca 0a 00 retf 000aH 0420 55 TSUNTI_004 push bp 0421 89 e5 mov bp,sp 0423 b8 01 00 mov ax,0001H 0426 9a 00 00 00 00 call far SYSTEM_034 042b 83 ec 01 sub sp,0001H 042e 8b 7e 04 mov di,+4H[bp] 0431 36 8b 45 f2 mov ax,ss:-0eH[di] 0435 8b 7e 04 mov di,+4H[bp] 0438 36 3b 45 f4 cmp ax,ss:-0cH[di] 043c 76 45 jbe L53 043e 8b 7e 04 mov di,+4H[bp] 0441 81 c7 72 ff add di,0ff72H 0445 16 push ss 0446 57 push di 0447 8b 7e 04 mov di,+4H[bp] 044a 36 c4 7d f8 les di,dword ptr ss:-8H[di] 044e 06 push es 044f 57 push di 0450 8b 7e 04 mov di,+4H[bp] 0453 36 ff 75 f6 push ss:-0aH[di] 0457 8b 7e 04 mov di,+4H[bp] 045a 81 c7 f4 ff add di,0fff4H 045e 16 push ss 045f 57 push di 0460 9a 00 00 00 00 call far SYSTEM_053 0465 9a 00 00 00 00 call far SYSTEM_032 046a 8b 7e 04 mov di,+4H[bp] 046d 36 c7 45 f2 01 00 mov word ptr ss:-0eH[di],0001H 0473 8b 7e 04 mov di,+4H[bp] 0476 36 83 7d f4 00 cmp word ptr ss:-0cH[di],0000H 047b 75 06 jne L53 047d c6 46 ff 00 mov byte ptr -1H[bp],00H 0481 eb 2d jmp L54 0483 8b 7e 04 L53 mov di,+4H[bp] 0486 36 8b 45 f2 mov ax,ss:-0eH[di] 048a 8b 7e 04 mov di,+4H[bp] 048d 36 c4 7d f8 les di,dword ptr ss:-8H[di] 0491 03 f8 add di,ax 0493 26 8a 45 ff mov al,es:-1H[di] 0497 c4 7e 06 les di,dword ptr +6H[bp] 049a 26 88 05 mov es:[di],al 049d 8b 7e 04 mov di,+4H[bp] 04a0 36 8b 45 f2 mov ax,ss:-0eH[di] 04a4 40 inc ax 04a5 8b 7e 04 mov di,+4H[bp] 04a8 36 89 45 f2 mov ss:-0eH[di],ax 04ac c6 46 ff 01 mov byte ptr -1H[bp],01H 04b0 8a 46 ff L54 mov al,-1H[bp] 04b3 89 ec mov sp,bp 04b5 5d pop bp 04b6 c2 06 00 ret 0006H 04b9 CHKSUMFN: 04b9 55 TSUNTI_003 push bp 04ba 89 e5 mov bp,sp 04bc b8 a9 02 mov ax,02a9H 04bf 9a 00 00 00 00 call far SYSTEM_034 04c4 81 ec a9 02 sub sp,02a9H 04c8 a0 00 00 mov al,SYSTEM_BSS+236H 04cb 88 86 59 fe mov -1a7H[bp],al 04cf c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H 04d4 31 c0 xor ax,ax 04d6 89 86 6e ff mov -92H[bp],ax 04da 89 86 70 ff mov -90H[bp],ax 04de c7 86 57 fe 00 01 mov word ptr -1a9H[bp],0100H 04e4 9a 00 00 00 00 call far TSUNT45_001 04e9 86 c4 xchg al,ah 04eb 3d 00 03 cmp ax,0300H 04ee 73 03 jae L55 04f0 e9 11 02 jmp L70 04f3 8d be 57 fd L55 lea di,-2a9H[bp] 04f7 16 push ss 04f8 57 push di 04f9 9a 00 00 00 00 call far TSUNT45_005 04fe 8d be 6e fe lea di,-192H[bp] 0502 16 push ss 0503 57 push di 0504 b8 ff 00 mov ax,00ffH 0507 50 push ax 0508 9a 00 00 00 00 call far SYSTEM_00C 050d 8d be 72 ff lea di,-8eH[bp] 0511 16 push ss 0512 57 push di 0513 8d be 6e fe lea di,-192H[bp] 0517 16 push ss 0518 57 push di 0519 9a 00 00 00 00 call far SYSTEM_049 051e 8d be 72 ff lea di,-8eH[bp] 0522 16 push ss 0523 57 push di 0524 b8 01 00 mov ax,0001H 0527 50 push ax 0528 9a 00 00 00 00 call far SYSTEM_04A 052d 9a 00 00 00 00 call far SYSTEM_031 0532 89 86 57 fe mov -1a9H[bp],ax 0536 83 be 57 fe 00 cmp word ptr -1a9H[bp],0000H 053b 75 1b jne L56 053d 8d be 72 ff lea di,-8eH[bp] 0541 16 push ss 0542 57 push di 0543 b8 08 00 mov ax,0008H 0546 31 d2 xor dx,dx 0548 52 push dx 0549 50 push ax 054a 9a 00 00 00 00 call far SYSTEM_055 054f 9a 00 00 00 00 call far SYSTEM_031 0554 89 86 57 fe mov -1a9H[bp],ax 0558 83 be 57 fe 00 L56 cmp word ptr -1a9H[bp],0000H 055d 75 22 jne L57 055f 8d be 72 ff lea di,-8eH[bp] 0563 16 push ss 0564 57 push di 0565 8d be 6c fe lea di,-194H[bp] 0569 16 push ss 056a 57 push di 056b b8 02 00 mov ax,0002H 056e 50 push ax 056f 31 c0 xor ax,ax 0571 50 push ax 0572 50 push ax 0573 9a 00 00 00 00 call far SYSTEM_053 0578 9a 00 00 00 00 call far SYSTEM_031 057d 89 86 57 fe mov -1a9H[bp],ax 0581 8d be 72 ff L57 lea di,-8eH[bp] 0585 16 push ss 0586 57 push di 0587 9a 00 00 00 00 call far SYSTEM_04C 058c 83 be 57 fe 00 cmp word ptr -1a9H[bp],0000H 0591 74 03 je L58 0593 e9 6e 01 jmp L70 0596 9a 00 00 00 00 L58 call far SYSTEM_027 059b 83 fa 00 cmp dx,0000H 059e 7c 07 jl L59 05a0 7f 08 jg L60 05a2 3d 00 2c cmp ax,2c00H 05a5 77 03 ja L60 05a7 e9 5a 01 L59 jmp L70 05aa 8d 7e f8 L60 lea di,-8H[bp] 05ad 16 push ss 05ae 57 push di 05af b8 00 28 mov ax,2800H 05b2 50 push ax 05b3 9a 00 00 00 00 call far SYSTEM_022 05b8 31 c0 xor ax,ax 05ba 89 46 f4 mov -0cH[bp],ax 05bd c7 46 f2 01 00 mov word ptr -0eH[bp],0001H 05c2 8d be 72 ff lea di,-8eH[bp] 05c6 16 push ss 05c7 57 push di 05c8 8d be 57 fd lea di,-2a9H[bp] 05cc 16 push ss 05cd 57 push di 05ce 9a 00 00 00 00 call far TSUNT45_005 05d3 9a 00 00 00 00 call far SYSTEM_049 05d8 8d be 72 ff lea di,-8eH[bp] 05dc 16 push ss 05dd 57 push di 05de b8 01 00 mov ax,0001H 05e1 50 push ax 05e2 9a 00 00 00 00 call far SYSTEM_04A 05e7 9a 00 00 00 00 call far SYSTEM_031 05ec 89 86 57 fe mov -1a9H[bp],ax 05f0 83 be 57 fe 00 cmp word ptr -1a9H[bp],0000H 05f5 74 03 je L61 05f7 e9 e9 00 jmp L69 05fa c4 7e 08 L61 les di,dword ptr +8H[bp] 05fd 8c c0 mov ax,es 05ff 03 86 6c fe add ax,-194H[bp] 0603 2b 06 00 00 sub ax,SYSTEM_BSS+200H 0607 31 d2 xor dx,dx 0609 b9 10 00 mov cx,0010H 060c 31 db xor bx,bx 060e 9a 00 00 00 00 call far SYSTEM_005 0613 8b c8 mov cx,ax 0615 8b da mov bx,dx 0617 c4 7e 08 les di,dword ptr +8H[bp] 061a 89 f8 mov ax,di 061c 31 d2 xor dx,dx 061e 03 c1 add ax,cx 0620 13 d3 adc dx,bx 0622 2d 00 01 sub ax,0100H 0625 83 da 00 sbb dx,0000H 0628 89 86 68 fe mov -198H[bp],ax 062c 89 96 6a fe mov -196H[bp],dx 0630 c7 46 f6 00 28 mov word ptr -0aH[bp],2800H 0635 8d be 72 ff lea di,-8eH[bp] 0639 16 push ss 063a 57 push di 063b 9a 00 00 00 00 call far SYSTEM_057 0640 89 86 5c fe mov -1a4H[bp],ax 0644 89 96 5e fe mov -1a2H[bp],dx 0648 31 c0 xor ax,ax 064a 89 86 60 fe mov -1a0H[bp],ax 064e 89 86 62 fe mov -19eH[bp],ax 0652 8b 46 06 mov ax,+6H[bp] 0655 31 d2 xor dx,dx 0657 03 86 68 fe add ax,-198H[bp] 065b 13 96 6a fe adc dx,-196H[bp] 065f 89 86 64 fe mov -19cH[bp],ax 0663 89 96 66 fe mov -19aH[bp],dx 0667 c4 86 60 fe L62 les ax,dword ptr -1a0H[bp] 066b 8c c2 mov dx,es 066d 3b 96 5e fe cmp dx,-1a2H[bp] 0671 7c 08 jl L63 0673 7f 6e jg L69 0675 3b 86 5c fe cmp ax,-1a4H[bp] 0679 73 68 jae L69 067b 8d be 5b fe L63 lea di,-1a5H[bp] 067f 16 push ss 0680 57 push di 0681 55 push bp 0682 e8 00 00 call TSUNTI_004 0685 08 c0 or al,al 0687 74 4c je L67 0689 c4 86 60 fe les ax,dword ptr -1a0H[bp] 068d 8c c2 mov dx,es 068f 3b 96 6a fe cmp dx,-196H[bp] 0693 7c 1c jl L65 0695 7f 06 jg L64 0697 3b 86 68 fe cmp ax,-198H[bp] 069b 72 14 jb L65 069d c4 86 60 fe L64 les ax,dword ptr -1a0H[bp] 06a1 8c c2 mov dx,es 06a3 3b 96 66 fe cmp dx,-19aH[bp] 06a7 7f 08 jg L65 06a9 7c 1e jl L66 06ab 3b 86 64 fe cmp ax,-19cH[bp] 06af 76 18 jbe L66 06b1 8a 86 5b fe L65 mov al,-1a5H[bp] 06b5 30 e4 xor ah,ah 06b7 31 d2 xor dx,dx 06b9 03 86 6e ff add ax,-92H[bp] 06bd 13 96 70 ff adc dx,-90H[bp] 06c1 89 86 6e ff mov -92H[bp],ax 06c5 89 96 70 ff mov -90H[bp],dx 06c9 83 86 60 fe 01 L66 add word ptr -1a0H[bp],0001H 06ce 83 96 62 fe 00 adc word ptr -19eH[bp],0000H 06d3 eb 05 jmp L68 06d5 c6 86 5a fe 01 L67 mov byte ptr -1a6H[bp],01H 06da 80 be 5a fe 00 L68 cmp byte ptr -1a6H[bp],00H 06df 74 9a je L63 06e1 eb 84 jmp L62 06e3 8d be 72 ff L69 lea di,-8eH[bp] 06e7 16 push ss 06e8 57 push di 06e9 9a 00 00 00 00 call far SYSTEM_04C 06ee 8d 7e f8 lea di,-8H[bp] 06f1 16 push ss 06f2 57 push di 06f3 b8 00 28 mov ax,2800H 06f6 50 push ax 06f7 9a 00 00 00 00 call far SYSTEM_023 06fc 31 c0 xor ax,ax 06fe 89 46 f8 mov -8H[bp],ax 0701 89 46 fa mov -6H[bp],ax 0704 8a 86 59 fe L70 mov al,-1a7H[bp] 0708 a2 00 00 mov SYSTEM_BSS+236H,al 070b c4 86 6e ff les ax,dword ptr -92H[bp] 070f 8c c2 mov dx,es 0711 89 46 fc mov -4H[bp],ax 0714 89 56 fe mov -2H[bp],dx 0717 8b 46 fc mov ax,-4H[bp] 071a 8b 56 fe mov dx,-2H[bp] 071d 89 ec mov sp,bp 071f 5d pop bp 0720 ca 06 00 retf 0006H No disassembly errors ------------------------------------------------------------ Segment: _DATA WORD 00000014 bytes 0000 0d f7 cd f7 cd f7 cd f7 TSUNTI_DATA - ........ 0008 cd 7e 7e 7e 7e 7e 00 00 - .~~~~~.. 0010 00 00 L71 - .. 0012 00 00 L72 - .. No disassembly errors ------------------------------------------------------------