Power-Programmierung

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

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

Wrap

Text File | 1994-06-19 | 36.1 KB | 650 lines

Module: TSUNTA.PAS Group: 'DGROUP' _DATA,_BSS Segment: TSUNTA_TEXT PARA 000005f5 bytes 0000 55 TSUNTA_009 push bp 0001 89 e5 mov bp,sp 0003 b8 16 00 mov ax,0016H 0006 9a 00 00 00 00 call far SYSTEM_034 000b 83 ec 16 sub sp,0016H 000e 8d 7e ea lea di,-16H[bp] 0011 16 push ss 0012 57 push di 0013 b8 14 00 mov ax,0014H 0016 50 push ax 0017 b0 00 mov al,00H 0019 50 push ax 001a 9a 00 00 00 00 call far SYSTEM_05C 001f c6 46 eb 0f mov byte ptr -15H[bp],0fH 0023 b0 10 mov al,10H 0025 50 push ax 0026 8d 7e ea lea di,-16H[bp] 0029 16 push ss 002a 57 push di 002b 9a 00 00 00 00 call far DOS_001 0030 80 7e ea 07 cmp byte ptr -16H[bp],07H 0034 75 07 jne L1 0036 c7 46 fe 00 b0 mov word ptr -2H[bp],0b000H 003b eb 05 jmp L2 003d c7 46 fe 00 b8 L1 mov word ptr -2H[bp],0b800H 0042 8b 46 fe L2 mov ax,-2H[bp] 0045 89 ec mov sp,bp 0047 5d pop bp 0048 c3 ret 0049 55 TSUNTA_00A push bp 004a 89 e5 mov bp,sp 004c b8 15 00 mov ax,0015H 004f 9a 00 00 00 00 call far SYSTEM_034 0054 83 ec 15 sub sp,0015H 0057 8d 7e eb lea di,-15H[bp] 005a 16 push ss 005b 57 push di 005c b8 14 00 mov ax,0014H 005f 50 push ax 0060 b0 00 mov al,00H 0062 50 push ax 0063 9a 00 00 00 00 call far SYSTEM_05C 0068 c6 46 ec 0f mov byte ptr -14H[bp],0fH 006c b0 10 mov al,10H 006e 50 push ax 006f 8d 7e eb lea di,-15H[bp] 0072 16 push ss 0073 57 push di 0074 9a 00 00 00 00 call far DOS_001 0079 80 7e eb 07 cmp byte ptr -15H[bp],07H 007d 75 06 jne L3 007f c6 46 ff 00 mov byte ptr -1H[bp],00H 0083 eb 04 jmp L4 0085 c6 46 ff 01 L3 mov byte ptr -1H[bp],01H 0089 8a 46 ff L4 mov al,-1H[bp] 008c 89 ec mov sp,bp 008e 5d pop bp 008f c3 ret 0090 WIDTHFN: 0090 55 TSUNTA_003 push bp 0091 89 e5 mov bp,sp 0093 b8 15 00 mov ax,0015H 0096 9a 00 00 00 00 call far SYSTEM_034 009b 83 ec 15 sub sp,0015H 009e 8d 7e eb lea di,-15H[bp] 00a1 16 push ss 00a2 57 push di 00a3 b8 14 00 mov ax,0014H 00a6 50 push ax 00a7 b0 00 mov al,00H 00a9 50 push ax 00aa 9a 00 00 00 00 call far SYSTEM_05C 00af c6 46 ec 0f mov byte ptr -14H[bp],0fH 00b3 b0 10 mov al,10H 00b5 50 push ax 00b6 8d 7e eb lea di,-15H[bp] 00b9 16 push ss 00ba 57 push di 00bb 9a 00 00 00 00 call far DOS_001 00c0 8a 46 ec mov al,-14H[bp] 00c3 88 46 ff mov -1H[bp],al 00c6 8a 46 ff mov al,-1H[bp] 00c9 89 ec mov sp,bp 00cb 5d pop bp 00cc cb retf 00cd 25 59 6f L5 and ax,6f59H 00d0 75 72 jne L8 00d2 20 70 61 and +61H[bx+si],dh 00d5 6e outsb 00d6 6e outsb 00d7 69 6e 67 20 70 imul bp,+67H[bp],7020H 00dc 61 popa 00dd 72 61 jb L7 00df 6d insw 00e0 65 74 65 je L9 00e3 72 73 jb L11 00e5 20 6f 75 and +75H[bx],ch 00e8 74 20 je L6 00ea 6f outsw 00eb 66 20 62 6f and +6fH[bp+si],ah 00ef 75 6e jne L12 00f1 64 73 55 jae L10 00f4 89 e5 mov bp,sp 00f6 31 c0 xor ax,ax 00f8 9a 00 00 00 00 call far SYSTEM_034 00fd 9a 00 00 00 00 call far TSUNTE_002 0102 bf 00 00 mov di,offset SYSTEM_BSS+100H 0105 1e push ds 0106 57 push di 0107 9a 00 00 00 00 call far SYSTEM_03A 010c 9a 00 00 00 00 call far SYSTEM_032 0111 bf 00 00 mov di,offset SYSTEM_BSS+100H 0114 1e push ds 0115 57 push di 0116 b0 07 mov al,07H 0118 50 push ax 0119 31 c0 xor ax,ax 011b 50 push ax 011c 9a 00 00 00 00 call far SYSTEM_039 0121 bf 00 00 mov di,offset L5 0124 0e push cs 0125 57 push di 0126 31 c0 xor ax,ax 0128 50 push ax 0129 9a 00 00 00 00 call far SYSTEM_036 012e 9a 00 00 00 00 call far SYSTEM_03A 0133 9a 00 00 00 00 call far SYSTEM_032 0138 31 c0 xor ax,ax 013a 9a 00 00 00 00 call far SYSTEM_003 013f 89 ec mov sp,bp 0141 5d pop bp 0142 c3 ret 0143 ATTRIBFN: 0143 55 TSUNTA_005 push bp 0144 89 e5 L8 mov bp,sp 0146 b8 01 00 mov ax,0001H 0149 9a 00 00 00 00 L10 call far SYSTEM_034 014e 83 ec 01 sub sp,0001H 0151 8a 46 08 mov al,+8H[bp] 0154 30 e4 xor ah,ah 0156 8b d0 mov dx,ax 0158 8a 46 06 L11 mov al,+6H[bp] 015b 30 e4 xor ah,ah 015d b9 04 00 mov cx,0004H 0160 d3 e0 shl ax,cl 0162 0b c2 or ax,dx 0164 88 46 ff mov -1H[bp],al 0167 8a 46 ff mov al,-1H[bp] 016a 89 ec mov sp,bp 016c 5d pop bp 016d ca 04 00 retf 0004H 0170 VIDXY: 0170 55 TSUNTA_006 push bp 0171 89 e5 mov bp,sp 0173 b8 03 00 mov ax,0003H 0176 9a 00 00 00 00 call far SYSTEM_034 017b 83 ec 03 sub sp,0003H 017e 0e push cs 017f e8 00 00 call TSUNTA_003 0182 88 46 fd mov -3H[bp],al 0185 80 7e 0c 01 cmp byte ptr +0cH[bp],01H 0189 72 14 jb L13 018b 8a 46 0c mov al,+0cH[bp] 018e 3a 46 fd cmp al,-3H[bp] 0191 77 0c ja L13 0193 80 7e 0a 01 cmp byte ptr +0aH[bp],01H 0197 72 06 jb L13 0199 80 7e 0a 19 cmp byte ptr +0aH[bp],19H 019d 76 03 jbe L14 019f e8 00 00 L13 call TSUNTA_00B 01a2 8a 46 0c L14 mov al,+0cH[bp] 01a5 30 e4 xor ah,ah 01a7 48 dec ax 01a8 8b c8 mov cx,ax 01aa 8a 46 fd mov al,-3H[bp] 01ad 30 e4 xor ah,ah 01af 8b d0 mov dx,ax 01b1 8a 46 0a mov al,+0aH[bp] 01b4 30 e4 xor ah,ah 01b6 48 dec ax 01b7 f7 ea imul dx 01b9 03 c1 add ax,cx 01bb d1 e0 shl ax,1 01bd 89 46 fe mov -2H[bp],ax 01c0 8a 56 08 mov dl,+8H[bp] 01c3 a1 00 00 mov ax,TSUNTA_BSS 01c6 50 push ax 01c7 8b 7e fe mov di,-2H[bp] 01ca 07 pop es 01cb 26 88 15 mov es:[di],dl 01ce 8a 56 06 mov dl,+6H[bp] 01d1 a1 00 00 mov ax,TSUNTA_BSS 01d4 50 push ax 01d5 8b 46 fe mov ax,-2H[bp] 01d8 40 inc ax 01d9 8b f8 mov di,ax 01db 07 pop es 01dc 26 88 15 mov es:[di],dl 01df 89 ec mov sp,bp 01e1 5d pop bp 01e2 ca 08 00 retf 0008H 01e5 VDCHXYFN: 01e5 55 TSUNTA_007 push bp 01e6 89 e5 mov bp,sp 01e8 b8 04 00 mov ax,0004H 01eb 9a 00 00 00 00 call far SYSTEM_034 01f0 83 ec 04 sub sp,0004H 01f3 0e push cs 01f4 e8 00 00 call TSUNTA_003 01f7 88 46 fc mov -4H[bp],al 01fa 8a 46 08 mov al,+8H[bp] 01fd 30 e4 xor ah,ah 01ff 48 dec ax 0200 8b c8 mov cx,ax 0202 8a 46 fc mov al,-4H[bp] 0205 30 e4 xor ah,ah 0207 8b d0 mov dx,ax 0209 8a 46 06 mov al,+6H[bp] 020c 30 e4 xor ah,ah 020e 48 dec ax 020f f7 ea imul dx 0211 03 c1 add ax,cx 0213 d1 e0 shl ax,1 0215 89 46 fd mov -3H[bp],ax 0218 a1 00 00 mov ax,TSUNTA_BSS 021b 50 push ax 021c 8b 7e fd mov di,-3H[bp] 021f 07 pop es 0220 26 8a 05 mov al,es:[di] 0223 88 46 ff mov -1H[bp],al 0226 8a 46 ff mov al,-1H[bp] 0229 89 ec mov sp,bp 022b 5d pop bp 022c ca 04 00 retf 0004H 022f VDATXYFN: 022f 55 TSUNTA_008 push bp 0230 89 e5 mov bp,sp 0232 b8 04 00 mov ax,0004H 0235 9a 00 00 00 00 call far SYSTEM_034 023a 83 ec 04 sub sp,0004H 023d 0e push cs 023e e8 00 00 call TSUNTA_003 0241 88 46 fc mov -4H[bp],al 0244 8a 46 08 mov al,+8H[bp] 0247 30 e4 xor ah,ah 0249 48 dec ax 024a 8b c8 mov cx,ax 024c 8a 46 fc mov al,-4H[bp] 024f 30 e4 xor ah,ah 0251 8b d0 mov dx,ax 0253 8a 46 06 mov al,+6H[bp] 0256 30 e4 xor ah,ah 0258 48 dec ax 0259 f7 ea imul dx 025b 03 c1 add ax,cx 025d d1 e0 shl ax,1 025f 40 inc ax 0260 89 46 fd mov -3H[bp],ax 0263 a1 00 00 mov ax,TSUNTA_BSS 0266 50 push ax 0267 8b 7e fd mov di,-3H[bp] 026a 07 pop es 026b 26 8a 05 mov al,es:[di] 026e 88 46 ff mov -1H[bp],al 0271 8a 46 ff mov al,-1H[bp] 0274 89 ec mov sp,bp 0276 5d pop bp 0277 ca 04 00 retf 0004H 027a PANMR: 027a 55 TSUNTA_001 push bp 027b 89 e5 mov bp,sp 027d b8 ae 00 mov ax,00aeH 0280 9a 00 00 00 00 call far SYSTEM_034 0285 81 ec ae 00 sub sp,00aeH 0289 0e push cs 028a e8 00 00 call TSUNTA_003 028d 88 86 54 ff mov -0acH[bp],al 0291 8a 46 0e mov al,+0eH[bp] 0294 3a 46 0a cmp al,+0aH[bp] 0297 77 42 ja L15 0299 8a 46 0c mov al,+0cH[bp] 029c 3a 46 08 cmp al,+8H[bp] 029f 77 3a ja L15 02a1 80 7e 0e 01 cmp byte ptr +0eH[bp],01H 02a5 72 34 jb L15 02a7 8a 46 0a mov al,+0aH[bp] 02aa 3a 86 54 ff cmp al,-0acH[bp] 02ae 77 2b ja L15 02b0 80 7e 0c 01 cmp byte ptr +0cH[bp],01H 02b4 72 25 jb L15 02b6 80 7e 08 19 cmp byte ptr +8H[bp],19H 02ba 77 1f ja L15 02bc 80 7e 06 01 cmp byte ptr +6H[bp],01H 02c0 72 19 jb L15 02c2 8a 46 0e mov al,+0eH[bp] 02c5 30 e4 xor ah,ah 02c7 8b d0 mov dx,ax 02c9 8a 46 0a mov al,+0aH[bp] 02cc 30 e4 xor ah,ah 02ce 2b c2 sub ax,dx 02d0 8b d0 mov dx,ax 02d2 8a 46 06 mov al,+6H[bp] 02d5 30 e4 xor ah,ah 02d7 3b c2 cmp ax,dx 02d9 7e 03 jle L16 02db e8 00 00 L15 call TSUNTA_00B 02de 9a 00 00 00 00 L16 call far CRT_007 02e3 88 46 f8 mov -8H[bp],al 02e6 9a 00 00 00 00 call far CRT_008 02eb 88 46 f9 mov -7H[bp],al 02ee 8a 46 0e mov al,+0eH[bp] 02f1 88 46 fb mov -5H[bp],al 02f4 8a 46 06 mov al,+6H[bp] 02f7 30 e4 xor ah,ah 02f9 8b d0 mov dx,ax 02fb 8a 46 0a mov al,+0aH[bp] 02fe 30 e4 xor ah,ah 0300 2b c2 sub ax,dx 0302 88 46 fc mov -4H[bp],al 0305 8a 46 fb mov al,-5H[bp] 0308 30 e4 xor ah,ah 030a 8b d0 mov dx,ax 030c 8a 46 fc mov al,-4H[bp] 030f 30 e4 xor ah,ah 0311 2b c2 sub ax,dx 0313 40 inc ax 0314 88 46 fd mov -3H[bp],al 0317 8a 46 06 mov al,+6H[bp] 031a 30 e4 xor ah,ah 031c 8b d0 mov dx,ax 031e 8a 46 0e mov al,+0eH[bp] 0321 30 e4 xor ah,ah 0323 03 c2 add ax,dx 0325 48 dec ax 0326 88 46 fa mov -6H[bp],al 0329 8a 46 08 mov al,+8H[bp] 032c 88 86 53 ff mov -0adH[bp],al 0330 8a 46 0c mov al,+0cH[bp] 0333 3a 86 53 ff cmp al,-0adH[bp] 0337 76 03 jbe L17 0339 e9 cf 00 jmp L23 033c 88 46 fe L17 mov -2H[bp],al 033f eb 03 jmp L19 0341 fe 46 fe L18 inc byte ptr -2H[bp] 0344 8a 46 fb L19 mov al,-5H[bp] 0347 30 e4 xor ah,ah 0349 48 dec ax 034a 8b c8 mov cx,ax 034c 8a 86 54 ff mov al,-0acH[bp] 0350 30 e4 xor ah,ah 0352 8b d0 mov dx,ax 0354 8a 46 fe mov al,-2H[bp] 0357 30 e4 xor ah,ah 0359 48 dec ax 035a f7 ea imul dx 035c 03 c1 add ax,cx 035e d1 e0 shl ax,1 0360 89 46 f6 mov -0aH[bp],ax 0363 a1 00 00 mov ax,TSUNTA_BSS 0366 50 push ax 0367 8b 46 f6 mov ax,-0aH[bp] 036a 40 inc ax 036b 8b f8 mov di,ax 036d 07 pop es 036e 26 8a 05 mov al,es:[di] 0371 88 86 55 ff mov -0abH[bp],al 0375 8d be 56 ff lea di,-0aaH[bp] 0379 16 push ss 037a 57 push di 037b b8 a0 00 mov ax,00a0H 037e 50 push ax 037f b0 00 mov al,00H 0381 50 push ax 0382 9a 00 00 00 00 call far SYSTEM_05C 0387 a1 00 00 mov ax,TSUNTA_BSS 038a 50 push ax 038b 8b 7e f6 mov di,-0aH[bp] 038e 07 pop es 038f 06 push es 0390 57 push di 0391 8d be 56 ff lea di,-0aaH[bp] 0395 16 push ss 0396 57 push di 0397 8a 46 fd mov al,-3H[bp] 039a 30 e4 xor ah,ah 039c d1 e0 shl ax,1 039e 50 push ax 039f 9a 00 00 00 00 call far SYSTEM_060 03a4 8d be 56 ff lea di,-0aaH[bp] 03a8 16 push ss 03a9 57 push di 03aa a1 00 00 mov ax,TSUNTA_BSS 03ad 50 push ax 03ae 8a 46 06 mov al,+6H[bp] 03b1 30 e4 xor ah,ah 03b3 d1 e0 shl ax,1 03b5 03 46 f6 add ax,-0aH[bp] 03b8 8b f8 mov di,ax 03ba 07 pop es 03bb 06 push es 03bc 57 push di 03bd 8a 46 fd mov al,-3H[bp] 03c0 30 e4 xor ah,ah 03c2 d1 e0 shl ax,1 03c4 50 push ax 03c5 9a 00 00 00 00 call far SYSTEM_060 03ca 8a 46 fa mov al,-6H[bp] 03cd 88 86 52 ff mov -0aeH[bp],al 03d1 8a 46 0e mov al,+0eH[bp] 03d4 3a 86 52 ff cmp al,-0aeH[bp] 03d8 77 25 ja L22 03da 88 46 ff mov -1H[bp],al 03dd eb 03 jmp L21 03df fe 46 ff L20 inc byte ptr -1H[bp] 03e2 8a 46 ff L21 mov al,-1H[bp] 03e5 50 push ax 03e6 8a 46 fe mov al,-2H[bp] 03e9 50 push ax 03ea b0 20 mov al,20H 03ec 50 push ax 03ed 8a 86 55 ff mov al,-0abH[bp] 03f1 50 push ax 03f2 0e push cs 03f3 e8 00 00 call TSUNTA_006 03f6 8a 46 ff mov al,-1H[bp] 03f9 3a 86 52 ff cmp al,-0aeH[bp] 03fd 75 e0 jne L20 03ff 8a 46 fe L22 mov al,-2H[bp] 0402 3a 86 53 ff cmp al,-0adH[bp] 0406 74 03 je L23 0408 e9 36 ff jmp L18 040b 8a 46 f8 L23 mov al,-8H[bp] 040e 50 push ax 040f 8a 46 f9 mov al,-7H[bp] 0412 50 push ax 0413 9a 00 00 00 00 call far CRT_006 0418 89 ec mov sp,bp 041a 5d pop bp 041b ca 0a 00 retf 000aH 041e PANML: 041e 55 TSUNTA_002 push bp 041f 89 e5 mov bp,sp 0421 b8 ae 00 mov ax,00aeH 0424 9a 00 00 00 00 call far SYSTEM_034 0429 81 ec ae 00 sub sp,00aeH 042d 0e push cs 042e e8 00 00 call TSUNTA_003 0431 88 86 54 ff mov -0acH[bp],al 0435 8a 46 0e mov al,+0eH[bp] 0438 3a 46 0a cmp al,+0aH[bp] 043b 77 42 ja L24 043d 8a 46 0c mov al,+0cH[bp] 0440 3a 46 08 cmp al,+8H[bp] 0443 77 3a ja L24 0445 80 7e 0e 01 cmp byte ptr +0eH[bp],01H 0449 72 34 jb L24 044b 8a 46 0a mov al,+0aH[bp] 044e 3a 86 54 ff cmp al,-0acH[bp] 0452 77 2b ja L24 0454 80 7e 0c 01 cmp byte ptr +0cH[bp],01H 0458 72 25 jb L24 045a 80 7e 08 19 cmp byte ptr +8H[bp],19H 045e 77 1f ja L24 0460 80 7e 06 01 cmp byte ptr +6H[bp],01H 0464 72 19 jb L24 0466 8a 46 0e mov al,+0eH[bp] 0469 30 e4 xor ah,ah 046b 8b d0 mov dx,ax 046d 8a 46 0a mov al,+0aH[bp] 0470 30 e4 xor ah,ah 0472 2b c2 sub ax,dx 0474 8b d0 mov dx,ax 0476 8a 46 06 mov al,+6H[bp] 0479 30 e4 xor ah,ah 047b 3b c2 cmp ax,dx 047d 7e 03 jle L25 047f e8 00 00 L24 call TSUNTA_00B 0482 9a 00 00 00 00 L25 call far CRT_007 0487 88 46 f8 mov -8H[bp],al 048a 9a 00 00 00 00 call far CRT_008 048f 88 46 f9 mov -7H[bp],al 0492 8a 46 06 mov al,+6H[bp] 0495 30 e4 xor ah,ah 0497 8b d0 mov dx,ax 0499 8a 46 0e mov al,+0eH[bp] 049c 30 e4 xor ah,ah 049e 03 c2 add ax,dx 04a0 88 46 fb mov -5H[bp],al 04a3 8a 46 0a mov al,+0aH[bp] 04a6 88 46 fc mov -4H[bp],al 04a9 8a 46 fb mov al,-5H[bp] 04ac 30 e4 xor ah,ah 04ae 8b d0 mov dx,ax 04b0 8a 46 fc mov al,-4H[bp] 04b3 30 e4 xor ah,ah 04b5 2b c2 sub ax,dx 04b7 40 inc ax 04b8 88 46 fd mov -3H[bp],al 04bb 8a 46 06 mov al,+6H[bp] 04be 30 e4 xor ah,ah 04c0 8b d0 mov dx,ax 04c2 8a 46 0a mov al,+0aH[bp] 04c5 30 e4 xor ah,ah 04c7 2b c2 sub ax,dx 04c9 40 inc ax 04ca 88 46 fa mov -6H[bp],al 04cd 8a 46 08 mov al,+8H[bp] 04d0 88 86 53 ff mov -0adH[bp],al 04d4 8a 46 0c mov al,+0cH[bp] 04d7 3a 86 53 ff cmp al,-0adH[bp] 04db 76 03 jbe L26 04dd e9 d3 00 jmp L32 04e0 88 46 fe L26 mov -2H[bp],al 04e3 eb 03 jmp L28 04e5 fe 46 fe L27 inc byte ptr -2H[bp] 04e8 8a 46 fb L28 mov al,-5H[bp] 04eb 30 e4 xor ah,ah 04ed 48 dec ax 04ee 8b c8 mov cx,ax 04f0 8a 86 54 ff mov al,-0acH[bp] 04f4 30 e4 xor ah,ah 04f6 8b d0 mov dx,ax 04f8 8a 46 fe mov al,-2H[bp] 04fb 30 e4 xor ah,ah 04fd 48 dec ax 04fe f7 ea imul dx 0500 03 c1 add ax,cx 0502 d1 e0 shl ax,1 0504 89 46 f6 mov -0aH[bp],ax 0507 a1 00 00 mov ax,TSUNTA_BSS 050a 50 push ax 050b 8b 46 f6 mov ax,-0aH[bp] 050e 40 inc ax 050f 8b f8 mov di,ax 0511 07 pop es 0512 26 8a 05 mov al,es:[di] 0515 88 86 55 ff mov -0abH[bp],al 0519 8d be 56 ff lea di,-0aaH[bp] 051d 16 push ss 051e 57 push di 051f b8 a0 00 mov ax,00a0H 0522 50 push ax 0523 b0 00 mov al,00H 0525 50 push ax 0526 9a 00 00 00 00 call far SYSTEM_05C 052b a1 00 00 mov ax,TSUNTA_BSS 052e 50 push ax 052f 8b 7e f6 mov di,-0aH[bp] 0532 07 pop es 0533 06 push es 0534 57 push di 0535 8d be 56 ff lea di,-0aaH[bp] 0539 16 push ss 053a 57 push di 053b 8a 46 fd mov al,-3H[bp] 053e 30 e4 xor ah,ah 0540 d1 e0 shl ax,1 0542 50 push ax 0543 9a 00 00 00 00 call far SYSTEM_060 0548 8d be 56 ff lea di,-0aaH[bp] 054c 16 push ss 054d 57 push di 054e a1 00 00 mov ax,TSUNTA_BSS 0551 50 push ax 0552 8a 46 06 mov al,+6H[bp] 0555 30 e4 xor ah,ah 0557 d1 e0 shl ax,1 0559 8b d0 mov dx,ax 055b 8b 46 f6 mov ax,-0aH[bp] 055e 2b c2 sub ax,dx 0560 8b f8 mov di,ax 0562 07 pop es 0563 06 push es 0564 57 push di 0565 8a 46 fd mov al,-3H[bp] 0568 30 e4 xor ah,ah 056a d1 e0 shl ax,1 056c 50 push ax 056d 9a 00 00 00 00 call far SYSTEM_060 0572 8a 46 fa mov al,-6H[bp] 0575 88 86 52 ff mov -0aeH[bp],al 0579 8a 46 0a mov al,+0aH[bp] 057c 3a 86 52 ff cmp al,-0aeH[bp] 0580 72 25 jb L31 0582 88 46 ff mov -1H[bp],al 0585 eb 03 jmp L30 0587 fe 4e ff L29 dec byte ptr -1H[bp] 058a 8a 46 ff L30 mov al,-1H[bp] 058d 50 push ax 058e 8a 46 fe mov al,-2H[bp] 0591 50 push ax 0592 b0 20 mov al,20H 0594 50 push ax 0595 8a 86 55 ff mov al,-0abH[bp] 0599 50 push ax 059a 0e push cs 059b e8 00 00 call TSUNTA_006 059e 8a 46 ff mov al,-1H[bp] 05a1 3a 86 52 ff cmp al,-0aeH[bp] 05a5 75 e0 jne L29 05a7 8a 46 fe L31 mov al,-2H[bp] 05aa 3a 86 53 ff cmp al,-0adH[bp] 05ae 74 03 je L32 05b0 e9 32 ff jmp L27 05b3 8a 46 f8 L32 mov al,-8H[bp] 05b6 50 push ax 05b7 8a 46 f9 mov al,-7H[bp] 05ba 50 push ax 05bb 9a 00 00 00 00 call far CRT_006 05c0 89 ec mov sp,bp 05c2 5d pop bp 05c3 ca 0a 00 retf 000aH 05c6 HIGHTFN: 05c6 55 TSUNTA_004 push bp 05c7 89 e5 mov bp,sp 05c9 b8 01 00 mov ax,0001H 05cc 9a 00 00 00 00 call far SYSTEM_034 05d1 83 ec 01 sub sp,0001H 05d4 be 40 00 mov si,0040H 05d7 8e c6 mov es,si 05d9 26 a0 84 00 mov al,es:[00000084H] 05dd 30 e4 xor ah,ah 05df 40 inc ax 05e0 88 46 ff mov -1H[bp],al 05e3 8a 46 ff mov al,-1H[bp] 05e6 89 ec mov sp,bp 05e8 5d pop bp 05e9 cb retf 05ea TSUNTA_000: 05ea 89 e5 TSUNTA_INIT mov bp,sp 05ec e8 00 00 call TSUNTA_009 05ef a3 00 00 mov TSUNTA_BSS,ax 05f2 89 ec mov sp,bp 05f4 cb retf No disassembly errors ------------------------------------------------------------ Segment: _BSS WORD 00000002 bytes No disassembly errors ------------------------------------------------------------