Power-Programmierung

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

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

Wrap

Text File | 1994-06-19 | 45.3 KB | 792 lines

Module: TSUNTJ.PAS Group: 'DGROUP' _DATA,_BSS Segment: TSUNTJ_TEXT PARA 00000824 bytes 0000 COPYFILE: 0000 55 TSUNTJ_009 push bp 0001 89 e5 mov bp,sp 0003 b8 11 03 mov ax,0311H 0006 9a 00 00 00 00 call far SYSTEM_034 000b 81 ec 11 03 sub sp,0311H 000f c4 7e 0a les di,dword ptr +0aH[bp] 0012 06 push es 0013 57 push di 0014 8d be 00 fe lea di,-200H[bp] 0018 16 push ss 0019 57 push di 001a b8 ff 00 mov ax,00ffH 001d 50 push ax 001e 9a 00 00 00 00 call far SYSTEM_00C 0023 c4 7e 0e les di,dword ptr +0eH[bp] 0026 06 push es 0027 57 push di 0028 8d be 00 ff lea di,-100H[bp] 002c 16 push ss 002d 57 push di 002e b8 ff 00 mov ax,00ffH 0031 50 push ax 0032 9a 00 00 00 00 call far SYSTEM_00C 0037 9a 00 00 00 00 call far SYSTEM_027 003c 83 fa 01 cmp dx,0001H 003f 7c 07 jl L1 0041 7f 0f jg L2 0043 3d ff 1f cmp ax,1fffH 0046 73 0a jae L2 0048 c4 7e 06 L1 les di,dword ptr +6H[bp] 004b 26 c6 05 07 mov byte ptr es:[di],07H 004f e9 1a 02 jmp L13 0052 8d be ef fc L2 lea di,-311H[bp] 0056 16 push ss 0057 57 push di 0058 b8 ff ff mov ax,0ffffH 005b 50 push ax 005c 9a 00 00 00 00 call far SYSTEM_022 0061 c4 7e 06 les di,dword ptr +6H[bp] 0064 26 c6 05 00 mov byte ptr es:[di],00H 0068 31 c0 xor ax,ax 006a 89 86 f7 fc mov -309H[bp],ax 006e 89 86 f9 fc mov -307H[bp],ax 0072 a0 00 00 mov al,SYSTEM_BSS+236H 0075 88 86 ff fc mov -301H[bp],al 0079 c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H 007e 8d be 00 fd lea di,-300H[bp] 0082 16 push ss 0083 57 push di 0084 8d be 00 ff lea di,-100H[bp] 0088 16 push ss 0089 57 push di 008a 9a 00 00 00 00 call far SYSTEM_049 008f 8d be 00 fd lea di,-300H[bp] 0093 16 push ss 0094 57 push di 0095 b8 01 00 mov ax,0001H 0098 50 push ax 0099 9a 00 00 00 00 call far SYSTEM_04A 009e 9a 00 00 00 00 call far SYSTEM_031 00a3 09 c0 or ax,ax 00a5 74 0a je L3 00a7 c4 7e 06 les di,dword ptr +6H[bp] 00aa 26 c6 05 01 mov byte ptr es:[di],01H 00ae e9 a5 01 jmp L12 00b1 8d be 80 fd L3 lea di,-280H[bp] 00b5 16 push ss 00b6 57 push di 00b7 8d be 00 fe lea di,-200H[bp] 00bb 16 push ss 00bc 57 push di 00bd 9a 00 00 00 00 call far SYSTEM_049 00c2 8d be 80 fd lea di,-280H[bp] 00c6 16 push ss 00c7 57 push di 00c8 b8 80 00 mov ax,0080H 00cb 50 push ax 00cc 9a 00 00 00 00 call far SYSTEM_04A 00d1 9a 00 00 00 00 call far SYSTEM_031 00d6 09 c0 or ax,ax 00d8 75 1a jne L4 00da c4 7e 06 les di,dword ptr +6H[bp] 00dd 26 c6 05 02 mov byte ptr es:[di],02H 00e1 8d be 00 fd lea di,-300H[bp] 00e5 16 push ss 00e6 57 push di 00e7 9a 00 00 00 00 call far SYSTEM_04C 00ec 9a 00 00 00 00 call far SYSTEM_032 00f1 e9 62 01 jmp L12 00f4 8d be 80 fd L4 lea di,-280H[bp] 00f8 16 push ss 00f9 57 push di 00fa b8 01 00 mov ax,0001H 00fd 50 push ax 00fe 9a 00 00 00 00 call far SYSTEM_04B 0103 9a 00 00 00 00 call far SYSTEM_031 0108 09 c0 or ax,ax 010a 74 1a je L5 010c c4 7e 06 les di,dword ptr +6H[bp] 010f 26 c6 05 03 mov byte ptr es:[di],03H 0113 8d be 00 fd lea di,-300H[bp] 0117 16 push ss 0118 57 push di 0119 9a 00 00 00 00 call far SYSTEM_04C 011e 9a 00 00 00 00 call far SYSTEM_032 0123 e9 30 01 jmp L12 0126 8d be 00 fd L5 lea di,-300H[bp] 012a 16 push ss 012b 57 push di 012c c4 be ef fc les di,dword ptr -311H[bp] 0130 06 push es 0131 57 push di 0132 b8 ff ff mov ax,0ffffH 0135 50 push ax 0136 8d be fb fc lea di,-305H[bp] 013a 16 push ss 013b 57 push di 013c 9a 00 00 00 00 call far SYSTEM_053 0141 9a 00 00 00 00 call far SYSTEM_032 0146 8d be 80 fd lea di,-280H[bp] 014a 16 push ss 014b 57 push di 014c c4 be ef fc les di,dword ptr -311H[bp] 0150 06 push es 0151 57 push di 0152 ff b6 fb fc push -305H[bp] 0156 8d be fd fc lea di,-303H[bp] 015a 16 push ss 015b 57 push di 015c 9a 00 00 00 00 call far SYSTEM_054 0161 9a 00 00 00 00 call far SYSTEM_031 0166 09 c0 or ax,ax 0168 74 25 je L6 016a c4 7e 06 les di,dword ptr +6H[bp] 016d 26 c6 05 04 mov byte ptr es:[di],04H 0171 8d be 00 fd lea di,-300H[bp] 0175 16 push ss 0176 57 push di 0177 9a 00 00 00 00 call far SYSTEM_04C 017c 9a 00 00 00 00 call far SYSTEM_032 0181 8d be 80 fd lea di,-280H[bp] 0185 16 push ss 0186 57 push di 0187 9a 00 00 00 00 call far SYSTEM_04C 018c e9 c7 00 jmp L12 018f 8b 86 fd fc L6 mov ax,-303H[bp] 0193 31 d2 xor dx,dx 0195 03 86 f7 fc add ax,-309H[bp] 0199 13 96 f9 fc adc dx,-307H[bp] 019d 89 86 f7 fc mov -309H[bp],ax 01a1 89 96 f9 fc mov -307H[bp],dx 01a5 83 be fb fc 00 cmp word ptr -305H[bp],0000H 01aa 74 0d je L7 01ac 8b 86 fd fc mov ax,-303H[bp] 01b0 3b 86 fb fc cmp ax,-305H[bp] 01b4 75 03 jne L7 01b6 e9 6d ff jmp L5 01b9 8d be 00 fd L7 lea di,-300H[bp] 01bd 16 push ss 01be 57 push di 01bf 9a 00 00 00 00 call far SYSTEM_057 01c4 9a 00 00 00 00 call far SYSTEM_032 01c9 3b 96 f9 fc cmp dx,-307H[bp] 01cd 7f 08 jg L8 01cf 7c 0d jl L9 01d1 3b 86 f7 fc cmp ax,-309H[bp] 01d5 76 07 jbe L9 01d7 c4 7e 06 L8 les di,dword ptr +6H[bp] 01da 26 c6 05 05 mov byte ptr es:[di],05H 01de 8d be 00 fd L9 lea di,-300H[bp] 01e2 16 push ss 01e3 57 push di 01e4 8d be f3 fc lea di,-30dH[bp] 01e8 16 push ss 01e9 57 push di 01ea 9a 00 00 00 00 call far DOS_00B 01ef 8d be 00 fd lea di,-300H[bp] 01f3 16 push ss 01f4 57 push di 01f5 9a 00 00 00 00 call far SYSTEM_04C 01fa 9a 00 00 00 00 call far SYSTEM_032 01ff 8d be 80 fd lea di,-280H[bp] 0203 16 push ss 0204 57 push di 0205 ff b6 f5 fc push -30bH[bp] 0209 ff b6 f3 fc push -30dH[bp] 020d 9a 00 00 00 00 call far DOS_00C 0212 83 3e 00 00 00 cmp word ptr DOS_BSS,0000H 0217 74 07 je L10 0219 c4 7e 06 les di,dword ptr +6H[bp] 021c 26 c6 05 06 mov byte ptr es:[di],06H 0220 8d be 80 fd L10 lea di,-280H[bp] 0224 16 push ss 0225 57 push di 0226 9a 00 00 00 00 call far SYSTEM_04C 022b 9a 00 00 00 00 call far SYSTEM_031 0230 09 c0 or ax,ax 0232 74 09 je L11 0234 c4 7e 06 les di,dword ptr +6H[bp] 0237 26 c6 05 05 mov byte ptr es:[di],05H 023b eb 19 jmp L12 023d c4 7e 06 L11 les di,dword ptr +6H[bp] 0240 26 80 3d 05 cmp byte ptr es:[di],05H 0244 75 10 jne L12 0246 8d be 80 fd lea di,-280H[bp] 024a 16 push ss 024b 57 push di 024c 9a 00 00 00 00 call far SYSTEM_04D 0251 9a 00 00 00 00 call far SYSTEM_032 0256 8a 86 ff fc L12 mov al,-301H[bp] 025a a2 00 00 mov SYSTEM_BSS+236H,al 025d 8d be ef fc lea di,-311H[bp] 0261 16 push ss 0262 57 push di 0263 b8 ff ff mov ax,0ffffH 0266 50 push ax 0267 9a 00 00 00 00 call far SYSTEM_023 026c 89 ec L13 mov sp,bp 026e 5d pop bp 026f ca 0c 00 retf 000cH 0272 02 3a L14 add bh,[bp+si] 0274 5c pop sp 0275 ISDIRFN: 0275 55 TSUNTJ_001 push bp 0276 89 e5 mov bp,sp 0278 b8 87 02 mov ax,0287H 027b 9a 00 00 00 00 call far SYSTEM_034 0280 81 ec 87 02 sub sp,0287H 0284 c4 7e 06 les di,dword ptr +6H[bp] 0287 06 push es 0288 57 push di 0289 8d be ff fe lea di,-101H[bp] 028d 16 push ss 028e 57 push di 028f b8 ff 00 mov ax,00ffH 0292 50 push ax 0293 9a 00 00 00 00 call far SYSTEM_00C 0298 8a 86 ff fe mov al,-101H[bp] 029c 88 86 7a fe mov -186H[bp],al 02a0 c6 86 7b fe 01 mov byte ptr -185H[bp],01H 02a5 8a 86 7b fe L15 mov al,-185H[bp] 02a9 3a 86 7a fe cmp al,-186H[bp] 02ad 77 24 ja L17 02af 8a 86 7b fe mov al,-185H[bp] 02b3 30 e4 xor ah,ah 02b5 8b f8 mov di,ax 02b7 80 bb ff fe 20 cmp byte ptr -101H[bp+di],20H 02bc 74 0f je L16 02be 8a 86 7b fe mov al,-185H[bp] 02c2 30 e4 xor ah,ah 02c4 8b f8 mov di,ax 02c6 80 bb ff fe 09 cmp byte ptr -101H[bp+di],09H 02cb 75 06 jne L17 02cd fe 86 7b fe L16 inc byte ptr -185H[bp] 02d1 eb d2 jmp L15 02d3 8d be 79 fd L17 lea di,-287H[bp] 02d7 16 push ss 02d8 57 push di 02d9 8d be ff fe lea di,-101H[bp] 02dd 16 push ss 02de 57 push di 02df 8a 86 7b fe mov al,-185H[bp] 02e3 30 e4 xor ah,ah 02e5 50 push ax 02e6 8a 86 7b fe mov al,-185H[bp] 02ea 30 e4 xor ah,ah 02ec 8b d0 mov dx,ax 02ee 8a 86 7a fe mov al,-186H[bp] 02f2 30 e4 xor ah,ah 02f4 2b c2 sub ax,dx 02f6 40 inc ax 02f7 50 push ax 02f8 9a 00 00 00 00 call far SYSTEM_00E 02fd 8d be ff fe lea di,-101H[bp] 0301 16 push ss 0302 57 push di 0303 b8 ff 00 mov ax,00ffH 0306 50 push ax 0307 9a 00 00 00 00 call far SYSTEM_00C 030c 8a 86 7a fe mov al,-186H[bp] 0310 88 86 7b fe mov -185H[bp],al 0314 80 be 7b fe 00 L18 cmp byte ptr -185H[bp],00H 0319 76 24 jbe L20 031b 8a 86 7b fe mov al,-185H[bp] 031f 30 e4 xor ah,ah 0321 8b f8 mov di,ax 0323 80 bb ff fe 20 cmp byte ptr -101H[bp+di],20H 0328 74 0f je L19 032a 8a 86 7b fe mov al,-185H[bp] 032e 30 e4 xor ah,ah 0330 8b f8 mov di,ax 0332 80 bb ff fe 09 cmp byte ptr -101H[bp+di],09H 0337 75 06 jne L20 0339 fe 8e 7b fe L19 dec byte ptr -185H[bp] 033d eb d5 jmp L18 033f 8a 86 7b fe L20 mov al,-185H[bp] 0343 88 86 ff fe mov -101H[bp],al 0347 8a 86 ff fe mov al,-101H[bp] 034b 88 86 7a fe mov -186H[bp],al 034f c6 46 ff 00 mov byte ptr -1H[bp],00H 0353 80 be 7a fe 00 cmp byte ptr -186H[bp],00H 0358 75 03 jne L21 035a e9 d8 00 jmp L28 035d c6 86 79 fe 00 L21 mov byte ptr -187H[bp],00H 0362 8a 86 7a fe mov al,-186H[bp] 0366 30 e4 xor ah,ah 0368 8b f8 mov di,ax 036a 80 bb ff fe 5c cmp byte ptr -101H[bp+di],5cH 036f 75 47 jne L24 0371 bf 00 00 mov di,offset L14 0374 0e push cs 0375 57 push di 0376 8d be ff fe lea di,-101H[bp] 037a 16 push ss 037b 57 push di 037c 9a 00 00 00 00 call far SYSTEM_010 0381 3d 02 00 cmp ax,0002H 0384 75 0c jne L22 0386 80 be 7a fe 03 cmp byte ptr -186H[bp],03H 038b 76 05 jbe L22 038d c6 86 79 fe 01 mov byte ptr -187H[bp],01H 0392 bf 00 00 L22 mov di,offset L14 0395 0e push cs 0396 57 push di 0397 8d be ff fe lea di,-101H[bp] 039b 16 push ss 039c 57 push di 039d 9a 00 00 00 00 call far SYSTEM_010 03a2 3d 02 00 cmp ax,0002H 03a5 74 05 je L23 03a7 c6 86 79 fe 01 mov byte ptr -187H[bp],01H 03ac 80 be 7a fe 01 L23 cmp byte ptr -186H[bp],01H 03b1 75 05 jne L24 03b3 c6 86 79 fe 00 mov byte ptr -187H[bp],00H 03b8 80 be 79 fe 00 L24 cmp byte ptr -187H[bp],00H 03bd 74 16 je L25 03bf 8d be ff fe lea di,-101H[bp] 03c3 16 push ss 03c4 57 push di 03c5 8a 86 7a fe mov al,-186H[bp] 03c9 30 e4 xor ah,ah 03cb 50 push ax 03cc b8 01 00 mov ax,0001H 03cf 50 push ax 03d0 9a 00 00 00 00 call far SYSTEM_015 03d5 a0 00 00 L25 mov al,SYSTEM_BSS+236H 03d8 88 86 fe fe mov -102H[bp],al 03dc c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H 03e1 8d be 7e fe lea di,-182H[bp] 03e5 16 push ss 03e6 57 push di 03e7 8d be ff fe lea di,-101H[bp] 03eb 16 push ss 03ec 57 push di 03ed 9a 00 00 00 00 call far SYSTEM_049 03f2 8d be 7e fe lea di,-182H[bp] 03f6 16 push ss 03f7 57 push di 03f8 b8 80 00 mov ax,0080H 03fb 50 push ax 03fc 9a 00 00 00 00 call far SYSTEM_04A 0401 9a 00 00 00 00 call far SYSTEM_031 0406 89 86 7c fe mov -184H[bp],ax 040a 8b 86 7c fe mov ax,-184H[bp] 040e 3d 00 00 cmp ax,0000H 0411 75 12 jne L26 0413 8d be 7e fe lea di,-182H[bp] 0417 16 push ss 0418 57 push di 0419 9a 00 00 00 00 call far SYSTEM_04C 041e 9a 00 00 00 00 call far SYSTEM_032 0423 eb 09 jmp L27 0425 3d 05 00 L26 cmp ax,0005H 0428 75 04 jne L27 042a c6 46 ff 01 mov byte ptr -1H[bp],01H 042e 8a 86 fe fe L27 mov al,-102H[bp] 0432 a2 00 00 mov SYSTEM_BSS+236H,al 0435 8a 46 ff L28 mov al,-1H[bp] 0438 89 ec mov sp,bp 043a 5d pop bp 043b ca 04 00 retf 0004H 043e 00 03 L29 add [bp+di],al 0440 4e dec si 0441 55 push bp 0442 4c dec sp 0443 04 5c L31 add al,5cH 0445 4e dec si 0446 55 push bp 0447 4c dec sp 0448 ISDIR2FN: 0448 55 TSUNTJ_002 push bp 0449 89 e5 mov bp,sp 044b b8 82 02 mov ax,0282H 044e 9a 00 00 00 00 call far SYSTEM_034 0453 81 ec 82 02 sub sp,0282H 0457 c4 7e 06 les di,dword ptr +6H[bp] 045a 06 push es 045b 57 push di 045c 8d be ff fe lea di,-101H[bp] 0460 16 push ss 0461 57 push di 0462 b8 ff 00 mov ax,00ffH 0465 50 push ax 0466 9a 00 00 00 00 call far SYSTEM_00C 046b 8d be ff fe lea di,-101H[bp] 046f 16 push ss 0470 57 push di 0471 bf 00 00 mov di,offset L29 0474 0e push cs 0475 57 push di 0476 9a 00 00 00 00 call far SYSTEM_011 047b 75 07 jne L32 047d c6 46 ff 00 mov byte ptr -1H[bp],00H 0481 e9 f0 00 jmp L37 0484 a0 00 00 L32 mov al,SYSTEM_BSS+236H 0487 88 86 fe fe mov -102H[bp],al 048b c6 06 00 00 00 mov byte ptr SYSTEM_BSS+236H,00H 0490 8d be 7e fe lea di,-182H[bp] 0494 16 push ss 0495 57 push di 0496 8d be ff fe lea di,-101H[bp] 049a 16 push ss 049b 57 push di 049c 9a 00 00 00 00 call far SYSTEM_049 04a1 8d be 7e fe lea di,-182H[bp] 04a5 16 push ss 04a6 57 push di 04a7 b8 80 00 mov ax,0080H 04aa 50 push ax 04ab 9a 00 00 00 00 call far SYSTEM_04A 04b0 9a 00 00 00 00 call far SYSTEM_031 04b5 09 c0 or ax,ax 04b7 75 12 jne L33 04b9 8d be 7e fe lea di,-182H[bp] 04bd 16 push ss 04be 57 push di 04bf 9a 00 00 00 00 call far SYSTEM_04C 04c4 c6 46 ff 00 mov byte ptr -1H[bp],00H 04c8 e9 a2 00 jmp L36 04cb 8d be 7e fe L33 lea di,-182H[bp] 04cf 16 push ss 04d0 57 push di 04d1 8d be 7e fd lea di,-282H[bp] 04d5 16 push ss 04d6 57 push di 04d7 8d be ff fe lea di,-101H[bp] 04db 16 push ss 04dc 57 push di 04dd 9a 00 00 00 00 call far SYSTEM_00B 04e2 bf 00 00 mov di,offset L30 04e5 0e push cs 04e6 57 push di 04e7 9a 00 00 00 00 call far SYSTEM_00F 04ec 9a 00 00 00 00 call far SYSTEM_049 04f1 8d be 7e fe lea di,-182H[bp] 04f5 16 push ss 04f6 57 push di 04f7 b8 80 00 mov ax,0080H 04fa 50 push ax 04fb 9a 00 00 00 00 call far SYSTEM_04A 0500 9a 00 00 00 00 call far SYSTEM_031 0505 09 c0 or ax,ax 0507 75 11 jne L34 0509 8d be 7e fe lea di,-182H[bp] 050d 16 push ss 050e 57 push di 050f 9a 00 00 00 00 call far SYSTEM_04C 0514 c6 46 ff 01 mov byte ptr -1H[bp],01H 0518 eb 53 jmp L36 051a 8d be 7e fe L34 lea di,-182H[bp] 051e 16 push ss 051f 57 push di 0520 8d be 7e fd lea di,-282H[bp] 0524 16 push ss 0525 57 push di 0526 8d be ff fe lea di,-101H[bp] 052a 16 push ss 052b 57 push di 052c 9a 00 00 00 00 call far SYSTEM_00B 0531 bf 00 00 mov di,offset L31 0534 0e push cs 0535 57 push di 0536 9a 00 00 00 00 call far SYSTEM_00F 053b 9a 00 00 00 00 call far SYSTEM_049 0540 8d be 7e fe lea di,-182H[bp] 0544 16 push ss 0545 57 push di 0546 b8 80 00 mov ax,0080H 0549 50 push ax 054a 9a 00 00 00 00 call far SYSTEM_04A 054f 9a 00 00 00 00 call far SYSTEM_031 0554 09 c0 or ax,ax 0556 75 11 jne L35 0558 8d be 7e fe lea di,-182H[bp] 055c 16 push ss 055d 57 push di 055e 9a 00 00 00 00 call far SYSTEM_04C 0563 c6 46 ff 01 mov byte ptr -1H[bp],01H 0567 eb 04 jmp L36 0569 c6 46 ff 00 L35 mov byte ptr -1H[bp],00H 056d 8a 86 fe fe L36 mov al,-102H[bp] 0571 a2 00 00 mov SYSTEM_BSS+236H,al 0574 8a 46 ff L37 mov al,-1H[bp] 0577 89 ec mov sp,bp 0579 5d pop bp 057a ca 04 00 retf 0004H 057d OPENEDFN: 057d 55 TSUNTJ_003 push bp 057e 89 e5 mov bp,sp 0580 b8 01 00 mov ax,0001H 0583 9a 00 00 00 00 call far SYSTEM_034 0588 83 ec 01 sub sp,0001H 058b c4 7e 06 les di,dword ptr +6H[bp] 058e 26 81 7d 02 b0 d7 cmp word ptr es:+2H[di],0d7b0H 0594 75 06 jne L38 0596 c6 46 ff 00 mov byte ptr -1H[bp],00H 059a eb 04 jmp L39 059c c6 46 ff 01 L38 mov byte ptr -1H[bp],01H 05a0 8a 46 ff L39 mov al,-1H[bp] 05a3 89 ec mov sp,bp 05a5 5d pop bp 05a6 ca 04 00 retf 0004H 05a9 33 45 72 L40 xor ax,+72H[di] 05ac 72 6f jb L43 05ae 72 20 jb L41 05b0 69 6e 20 65 78 imul bp,+20H[bp],7865H 05b5 65 63 75 74 arpl si,gs:+74H[di] 05b9 69 6e 67 20 50 imul bp,+67H[bp],5020H 05be 49 dec cx 05bf 50 push ax 05c0 45 inc bp 05c1 44 inc sp 05c2 49 dec cx 05c3 46 inc si 05c4 4e dec si 05c5 2c 20 sub al,20H 05c7 54 push sp 05c8 68 65 20 push 2065H 05cb 63 61 72 arpl sp,+72H[bx+di] 05ce 72 79 jb L48 05d0 20 66 6c L41 and +6cH[bp],ah 05d3 61 popa 05d4 67 20 77 61 and +61H[edi],dh 05d8 73 20 jae L42 05da 73 65 jae L47 05dc 74 55 je L46 05de 89 e5 mov bp,sp 05e0 b8 15 00 mov ax,0015H 05e3 9a 00 00 00 00 call far SYSTEM_034 05e8 83 ec 15 sub sp,0015H 05eb 8d 7e eb lea di,-15H[bp] 05ee 16 push ss 05ef 57 push di 05f0 b8 14 00 mov ax,0014H 05f3 50 push ax 05f4 b0 00 mov al,00H 05f6 50 push ax 05f7 9a 00 00 00 00 call far SYSTEM_05C 05fc c7 46 eb 00 44 mov word ptr -15H[bp],4400H 0601 a1 00 00 mov ax,SYSTEM_BSS 0604 89 46 ed mov -13H[bp],ax 0607 8d 7e eb lea di,-15H[bp] 060a 16 push ss 060b 57 push di 060c 9a 00 00 00 00 call far DOS_002 0611 8a 46 f1 mov al,-0fH[bp] 0614 24 81 and al,81H 0616 3c 81 cmp al,81H 0618 75 06 jne L44 061a c6 46 ff 00 mov byte ptr -1H[bp],00H 061e eb 04 jmp L45 0620 c6 46 ff 01 L44 mov byte ptr -1H[bp],01H 0624 83 7e fd 01 L45 cmp word ptr -3H[bp],0001H 0628 75 23 jne L49 062a bf 00 00 mov di,offset SYSTEM_BSS+100H 062d 1e push ds 062e 57 push di 062f bf 00 00 mov di,offset L40 0632 0e push cs 0633 57 L46 push di 0634 31 c0 xor ax,ax 0636 50 push ax 0637 9a 00 00 00 00 call far SYSTEM_036 063c 9a 00 00 00 00 call far SYSTEM_03A 0641 9a 00 00 00 00 L47 call far SYSTEM_032 0646 31 c0 xor ax,ax 0648 9a 00 00 00 00 call far SYSTEM_003 064d 8a 46 ff L49 mov al,-1H[bp] 0650 89 ec mov sp,bp 0652 5d pop bp 0653 cb retf 0654 33 45 72 L50 xor ax,+72H[di] 0657 72 6f jb L53 0659 72 20 jb L51 065b 69 6e 20 65 78 imul bp,+20H[bp],7865H 0660 65 63 75 74 arpl si,gs:+74H[di] 0664 69 6e 67 20 50 imul bp,+67H[bp],5020H 0669 49 dec cx 066a 50 push ax 066b 45 inc bp 066c 44 inc sp 066d 4f dec di 066e 46 inc si 066f 4e dec si 0670 2c 20 sub al,20H 0672 54 push sp 0673 68 65 20 push 2065H 0676 63 61 72 arpl sp,+72H[bx+di] 0679 72 79 jb L58 067b 20 66 6c L51 and +6cH[bp],ah 067e 61 popa 067f 67 20 77 61 and +61H[edi],dh 0683 73 20 jae L52 0685 73 65 jae L57 0687 74 55 je L56 0689 89 e5 mov bp,sp 068b b8 15 00 mov ax,0015H 068e 9a 00 00 00 00 call far SYSTEM_034 0693 83 ec 15 sub sp,0015H 0696 8d 7e eb lea di,-15H[bp] 0699 16 push ss 069a 57 push di 069b b8 14 00 mov ax,0014H 069e 50 push ax 069f b0 00 mov al,00H 06a1 50 push ax 06a2 9a 00 00 00 00 call far SYSTEM_05C 06a7 c7 46 eb 00 44 mov word ptr -15H[bp],4400H 06ac a1 00 00 mov ax,SYSTEM_BSS+100H 06af 89 46 ed mov -13H[bp],ax 06b2 8d 7e eb lea di,-15H[bp] 06b5 16 push ss 06b6 57 push di 06b7 9a 00 00 00 00 call far DOS_002 06bc 8a 46 f1 mov al,-0fH[bp] 06bf 24 82 and al,82H 06c1 3c 82 cmp al,82H 06c3 75 06 jne L54 06c5 c6 46 ff 00 mov byte ptr -1H[bp],00H 06c9 eb 04 jmp L55 06cb c6 46 ff 01 L54 mov byte ptr -1H[bp],01H 06cf 83 7e fd 01 L55 cmp word ptr -3H[bp],0001H 06d3 75 23 jne L59 06d5 bf 00 00 mov di,offset SYSTEM_BSS+100H 06d8 1e push ds 06d9 57 push di 06da bf 00 00 mov di,offset L50 06dd 0e push cs 06de 57 L56 push di 06df 31 c0 xor ax,ax 06e1 50 push ax 06e2 9a 00 00 00 00 call far SYSTEM_036 06e7 9a 00 00 00 00 call far SYSTEM_03A 06ec 9a 00 00 00 00 L57 call far SYSTEM_032 06f1 31 c0 xor ax,ax 06f3 9a 00 00 00 00 call far SYSTEM_003 06f8 8a 46 ff L59 mov al,-1H[bp] 06fb 89 ec mov sp,bp 06fd 5d pop bp 06fe cb retf 06ff 33 45 72 L60 xor ax,+72H[di] 0702 72 6f jb L63 0704 72 20 jb L61 0706 69 6e 20 65 78 imul bp,+20H[bp],7865H 070b 65 63 75 74 arpl si,gs:+74H[di] 070f 69 6e 67 20 50 imul bp,+67H[bp],5020H 0714 49 dec cx 0715 50 push ax 0716 45 inc bp 0717 44 inc sp 0718 4e dec si 0719 46 inc si 071a 4e dec si 071b 2c 20 sub al,20H 071d 54 push sp 071e 68 65 20 push 2065H 0721 63 61 72 arpl sp,+72H[bx+di] 0724 72 79 jb L68 0726 20 66 6c L61 and +6cH[bp],ah 0729 61 popa 072a 67 20 77 61 and +61H[edi],dh 072e 73 20 jae L62 0730 73 65 jae L67 0732 74 55 je L66 0734 89 e5 mov bp,sp 0736 b8 15 00 mov ax,0015H 0739 9a 00 00 00 00 call far SYSTEM_034 073e 83 ec 15 sub sp,0015H 0741 8d 7e eb lea di,-15H[bp] 0744 16 push ss 0745 57 push di 0746 b8 14 00 mov ax,0014H 0749 50 push ax 074a b0 00 mov al,00H 074c 50 push ax 074d 9a 00 00 00 00 call far SYSTEM_05C 0752 c7 46 eb 00 44 mov word ptr -15H[bp],4400H 0757 a1 00 00 mov ax,SYSTEM_BSS+100H 075a 89 46 ed mov -13H[bp],ax 075d 8d 7e eb lea di,-15H[bp] 0760 16 push ss 0761 57 push di 0762 9a 00 00 00 00 call far DOS_002 0767 8a 46 f1 mov al,-0fH[bp] 076a 24 84 and al,84H 076c 3c 84 cmp al,84H 076e 74 06 je L64 0770 c6 46 ff 00 mov byte ptr -1H[bp],00H 0774 eb 04 jmp L65 0776 c6 46 ff 01 L64 mov byte ptr -1H[bp],01H 077a 83 7e fd 01 L65 cmp word ptr -3H[bp],0001H 077e 75 23 jne L69 0780 bf 00 00 mov di,offset SYSTEM_BSS+100H 0783 1e push ds 0784 57 push di 0785 bf 00 00 mov di,offset L60 0788 0e push cs 0789 57 L66 push di 078a 31 c0 xor ax,ax 078c 50 push ax 078d 9a 00 00 00 00 call far SYSTEM_036 0792 9a 00 00 00 00 call far SYSTEM_03A 0797 9a 00 00 00 00 L67 call far SYSTEM_032 079c 31 c0 xor ax,ax 079e 9a 00 00 00 00 call far SYSTEM_003 07a3 8a 46 ff L69 mov al,-1H[bp] 07a6 89 ec mov sp,bp 07a8 5d pop bp 07a9 cb retf 07aa INTRLOCA: 07aa 55 TSUNTJ_007 push bp 07ab 89 e5 mov bp,sp 07ad b8 04 00 mov ax,0004H 07b0 9a 00 00 00 00 call far SYSTEM_034 07b5 83 ec 04 sub sp,0004H 07b8 8a 46 0e mov al,+0eH[bp] 07bb 30 e4 xor ah,ah 07bd 8b f8 mov di,ax 07bf d1 e7 shl di,1 07c1 d1 e7 shl di,1 07c3 31 f6 xor si,si 07c5 8e c6 mov es,si 07c7 8c c0 mov ax,es 07c9 c4 7e 0a les di,dword ptr +0aH[bp] 07cc 26 89 05 mov es:[di],ax 07cf 8a 46 0e mov al,+0eH[bp] 07d2 30 e4 xor ah,ah 07d4 8b f8 mov di,ax 07d6 d1 e7 shl di,1 07d8 d1 e7 shl di,1 07da 31 f6 xor si,si 07dc 8e c6 mov es,si 07de 89 f8 mov ax,di 07e0 c4 7e 06 les di,dword ptr +6H[bp] 07e3 26 89 05 mov es:[di],ax 07e6 89 ec mov sp,bp 07e8 5d pop bp 07e9 ca 0a 00 retf 000aH 07ec INTRADDR: 07ec 55 TSUNTJ_008 push bp 07ed 89 e5 mov bp,sp 07ef b8 04 00 mov ax,0004H 07f2 9a 00 00 00 00 call far SYSTEM_034 07f7 83 ec 04 sub sp,0004H 07fa 8a 46 0e mov al,+0eH[bp] 07fd 50 push ax 07fe 8d 7e fc lea di,-4H[bp] 0801 16 push ss 0802 57 push di 0803 9a 00 00 00 00 call far DOS_011 0808 c4 7e fc les di,dword ptr -4H[bp] 080b 8c c0 mov ax,es 080d c4 7e 0a les di,dword ptr +0aH[bp] 0810 26 89 05 mov es:[di],ax 0813 c4 7e fc les di,dword ptr -4H[bp] 0816 89 f8 mov ax,di 0818 c4 7e 06 les di,dword ptr +6H[bp] 081b 26 89 05 mov es:[di],ax 081e 89 ec mov sp,bp 0820 5d pop bp 0821 ca 0a 00 retf 000aH No disassembly errors ------------------------------------------------------------