Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / pascal / library / dos / strings / infield / infield.dis next >

Wrap

Text File | 1994-06-19 | 57.7 KB | 1,002 lines

Module: INFIELD.PAS Group: 'DGROUP' _DATA,_BSS Segment: INFIELD_TEXT PARA 00000a88 bytes 0000 BADCHOICE: 0000 55 INFIELD_002 push bp 0001 89 e5 mov bp,sp 0003 b8 02 00 mov ax,0002H 0006 9a 00 00 00 00 call far SYSTEM_034 000b 83 ec 02 sub sp,0002H 000e 80 3e 00 00 01 cmp byte ptr ISND,01H 0013 75 30 jne L3 0015 c7 46 fe 01 00 mov word ptr -2H[bp],0001H 001a eb 03 jmp L2 001c ff 46 fe L1 inc word ptr -2H[bp] 001f b8 64 00 L2 mov ax,0064H 0022 50 push ax 0023 9a 00 00 00 00 call far CRT_013 0028 b8 32 00 mov ax,0032H 002b 50 push ax 002c 9a 00 00 00 00 call far CRT_012 0031 9a 00 00 00 00 call far CRT_014 0036 b8 50 00 mov ax,0050H 0039 50 push ax 003a 9a 00 00 00 00 call far CRT_012 003f 83 7e fe 04 cmp word ptr -2H[bp],0004H 0043 75 d7 jne L1 0045 89 ec L3 mov sp,bp 0047 5d pop bp 0048 cb retf 0049 01 20 L4 add [bx+si],sp 004b 01 00 L5 add [bx+si],ax 004d STRIP: 004d 55 INFIELD_003 push bp 004e 89 e5 mov bp,sp 0050 b8 02 00 mov ax,0002H 0053 9a 00 00 00 00 call far SYSTEM_034 0058 83 ec 02 sub sp,0002H 005b bf 00 00 mov di,offset L4 005e 0e push cs 005f 57 push di 0060 c4 7e 06 les di,dword ptr +6H[bp] 0063 06 push es 0064 57 push di 0065 9a 00 00 00 00 call far SYSTEM_010 006a 89 46 fe mov -2H[bp],ax 006d 83 7e fe 00 L6 cmp word ptr -2H[bp],0000H 0071 7e 25 jle L7 0073 c4 7e 06 les di,dword ptr +6H[bp] 0076 06 push es 0077 57 push di 0078 ff 76 fe push -2H[bp] 007b b8 01 00 mov ax,0001H 007e 50 push ax 007f 9a 00 00 00 00 call far SYSTEM_015 0084 bf 00 00 mov di,offset L4 0087 0e push cs 0088 57 push di 0089 c4 7e 06 les di,dword ptr +6H[bp] 008c 06 push es 008d 57 push di 008e 9a 00 00 00 00 call far SYSTEM_010 0093 89 46 fe mov -2H[bp],ax 0096 eb d5 jmp L6 0098 bf 00 00 L7 mov di,offset L5 009b 0e push cs 009c 57 push di 009d c4 7e 06 les di,dword ptr +6H[bp] 00a0 06 push es 00a1 57 push di 00a2 9a 00 00 00 00 call far SYSTEM_010 00a7 89 46 fe mov -2H[bp],ax 00aa 83 7e fe 00 L8 cmp word ptr -2H[bp],0000H 00ae 7e 25 jle L9 00b0 c4 7e 06 les di,dword ptr +6H[bp] 00b3 06 push es 00b4 57 push di 00b5 ff 76 fe push -2H[bp] 00b8 b8 01 00 mov ax,0001H 00bb 50 push ax 00bc 9a 00 00 00 00 call far SYSTEM_015 00c1 bf 00 00 mov di,offset L5 00c4 0e push cs 00c5 57 push di 00c6 c4 7e 06 les di,dword ptr +6H[bp] 00c9 06 push es 00ca 57 push di 00cb 9a 00 00 00 00 call far SYSTEM_010 00d0 89 46 fe mov -2H[bp],ax 00d3 eb d5 jmp L8 00d5 89 ec L9 mov sp,bp 00d7 5d pop bp 00d8 ca 04 00 retf 0004H 00db 55 INFIELD_004 push bp 00dc 89 e5 mov bp,sp 00de b8 04 01 mov ax,0104H 00e1 9a 00 00 00 00 call far SYSTEM_034 00e6 81 ec 04 01 sub sp,0104H 00ea 80 3e 00 00 00 cmp byte ptr USETEMP,00H 00ef 75 28 jne L10 00f1 8b 7e 04 mov di,+4H[bp] 00f4 36 8a 45 10 mov al,ss:+10H[di] 00f8 50 push ax 00f9 8b 7e 04 mov di,+4H[bp] 00fc 36 8a 45 0e mov al,ss:+0eH[di] 0100 50 push ax 0101 8b 7e 04 mov di,+4H[bp] 0104 36 ff 75 06 push ss:+6H[di] 0108 8b 7e 04 mov di,+4H[bp] 010b 36 c4 7d 08 les di,dword ptr ss:+8H[di] 010f 06 push es 0110 57 push di 0111 9a 00 00 00 00 call far QWIK_002 0116 e9 bb 00 jmp L16 0119 c6 46 fe 01 L10 mov byte ptr -2H[bp],01H 011d c6 46 fd 00 mov byte ptr -3H[bp],00H 0121 8b 7e 04 mov di,+4H[bp] 0124 36 8a 45 fe mov al,ss:-2H[di] 0128 88 46 fc mov -4H[bp],al 012b b0 01 mov al,01H 012d 3a 46 fc cmp al,-4H[bp] 0130 76 03 jbe L11 0132 e9 9f 00 jmp L16 0135 88 46 ff L11 mov -1H[bp],al 0138 eb 03 jmp L13 013a fe 46 ff L12 inc byte ptr -1H[bp] 013d 8a 46 ff L13 mov al,-1H[bp] 0140 30 e4 xor ah,ah 0142 8b f8 mov di,ax 0144 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 0149 74 3a je L14 014b 8b 7e 04 mov di,+4H[bp] 014e 36 8a 45 10 mov al,ss:+10H[di] 0152 50 push ax 0153 8a 46 fd mov al,-3H[bp] 0156 30 e4 xor ah,ah 0158 8b 7e 04 mov di,+4H[bp] 015b 36 03 45 0e add ax,ss:+0eH[di] 015f 50 push ax 0160 ff 36 00 00 push TATTR 0164 8d be fc fe lea di,-104H[bp] 0168 16 push ss 0169 57 push di 016a 8a 46 ff mov al,-1H[bp] 016d 30 e4 xor ah,ah 016f 8b f8 mov di,ax 0171 8a 85 00 00 mov al,TEMPLATE[di] 0175 50 push ax 0176 9a 00 00 00 00 call far SYSTEM_012 017b 9a 00 00 00 00 call far QWIK_002 0180 fe 46 fd inc byte ptr -3H[bp] 0183 eb 44 jmp L15 0185 8b 7e 04 L14 mov di,+4H[bp] 0188 36 8a 45 10 mov al,ss:+10H[di] 018c 50 push ax 018d 8a 46 fd mov al,-3H[bp] 0190 30 e4 xor ah,ah 0192 8b 7e 04 mov di,+4H[bp] 0195 36 03 45 0e add ax,ss:+0eH[di] 0199 50 push ax 019a 8b 7e 04 mov di,+4H[bp] 019d 36 ff 75 06 push ss:+6H[di] 01a1 8d be fc fe lea di,-104H[bp] 01a5 16 push ss 01a6 57 push di 01a7 8a 46 fe mov al,-2H[bp] 01aa 30 e4 xor ah,ah 01ac 8b 7e 04 mov di,+4H[bp] 01af 36 c4 7d 08 les di,dword ptr ss:+8H[di] 01b3 03 f8 add di,ax 01b5 26 8a 05 mov al,es:[di] 01b8 50 push ax 01b9 9a 00 00 00 00 call far SYSTEM_012 01be 9a 00 00 00 00 call far QWIK_002 01c3 fe 46 fe inc byte ptr -2H[bp] 01c6 fe 46 fd inc byte ptr -3H[bp] 01c9 8a 46 ff L15 mov al,-1H[bp] 01cc 3a 46 fc cmp al,-4H[bp] 01cf 74 03 je L16 01d1 e9 66 ff jmp L12 01d4 89 ec L16 mov sp,bp 01d6 5d pop bp 01d7 c2 02 00 ret 0002H 01da 55 INFIELD_005 push bp 01db 89 e5 mov bp,sp 01dd b8 57 00 mov ax,0057H 01e0 9a 00 00 00 00 call far SYSTEM_034 01e5 83 ec 57 sub sp,0057H 01e8 bf 00 00 mov di,offset TEMPLATE 01eb 1e push ds 01ec 57 push di 01ed 8d 7e af lea di,-51H[bp] 01f0 16 push ss 01f1 57 push di 01f2 b8 50 00 mov ax,0050H 01f5 50 push ax 01f6 9a 00 00 00 00 call far SYSTEM_00C 01fb c7 46 ab 01 00 mov word ptr -55H[bp],0001H 0200 8a 46 af mov al,-51H[bp] 0203 30 e4 xor ah,ah 0205 89 46 a9 mov -57H[bp],ax 0208 b8 01 00 mov ax,0001H 020b 3b 46 a9 cmp ax,-57H[bp] 020e 7f 31 jg L20 0210 89 46 ad mov -53H[bp],ax 0213 eb 03 jmp L18 0215 ff 46 ad L17 inc word ptr -53H[bp] 0218 8b 7e ad L18 mov di,-53H[bp] 021b 80 7b af 20 cmp byte ptr -51H[bp+di],20H 021f 75 18 jne L19 0221 8b 46 ab mov ax,-55H[bp] 0224 8b 7e 04 mov di,+4H[bp] 0227 36 c4 7d 08 les di,dword ptr ss:+8H[di] 022b 03 f8 add di,ax 022d 26 8a 05 mov al,es:[di] 0230 8b 7e ad mov di,-53H[bp] 0233 88 43 af mov -51H[bp+di],al 0236 ff 46 ab inc word ptr -55H[bp] 0239 8b 46 ad L19 mov ax,-53H[bp] 023c 3b 46 a9 cmp ax,-57H[bp] 023f 75 d4 jne L17 0241 8d 7e af L20 lea di,-51H[bp] 0244 16 push ss 0245 57 push di 0246 c4 7e 06 les di,dword ptr +6H[bp] 0249 06 push es 024a 57 push di 024b b8 50 00 mov ax,0050H 024e 50 push ax 024f 9a 00 00 00 00 call far SYSTEM_00C 0254 89 ec mov sp,bp 0256 5d pop bp 0257 c2 02 00 ret 0002H 025a 55 INFIELD_006 push bp 025b 89 e5 mov bp,sp 025d b8 06 00 mov ax,0006H 0260 9a 00 00 00 00 call far SYSTEM_034 0265 83 ec 06 sub sp,0006H 0268 80 3e 00 00 00 cmp byte ptr USETEMP,00H 026d 75 0c jne L21 026f 8b 7e 04 mov di,+4H[bp] 0272 36 8b 45 f4 mov ax,ss:-0cH[di] 0276 89 46 fa mov -6H[bp],ax 0279 eb 74 jmp L27 027b c7 46 fa 01 00 L21 mov word ptr -6H[bp],0001H 0280 c7 46 fc 01 00 mov word ptr -4H[bp],0001H 0285 8b 46 fc L22 mov ax,-4H[bp] 0288 8b 7e 04 mov di,+4H[bp] 028b 36 3b 45 f4 cmp ax,ss:-0cH[di] 028f 7d 1e jge L24 0291 8b 46 fa mov ax,-6H[bp] 0294 8b 7e 04 mov di,+4H[bp] 0297 36 3b 45 fe cmp ax,ss:-2H[di] 029b 7d 12 jge L24 029d 8b 7e fa mov di,-6H[bp] 02a0 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 02a5 75 03 jne L23 02a7 ff 46 fc inc word ptr -4H[bp] 02aa ff 46 fa L23 inc word ptr -6H[bp] 02ad eb d6 jmp L22 02af 8b 7e fa L24 mov di,-6H[bp] 02b2 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 02b7 74 1a je L26 02b9 ff 46 fa L25 inc word ptr -6H[bp] 02bc 8b 7e fa mov di,-6H[bp] 02bf 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 02c4 74 0d je L26 02c6 8b 7e 04 mov di,+4H[bp] 02c9 36 8b 45 fe mov ax,ss:-2H[di] 02cd 40 inc ax 02ce 3b 46 fa cmp ax,-6H[bp] 02d1 75 e6 jne L25 02d3 8b 7e 04 L26 mov di,+4H[bp] 02d6 36 8b 45 0c mov ax,ss:+0cH[di] 02da 40 inc ax 02db 8b 7e 04 mov di,+4H[bp] 02de 36 3b 45 f4 cmp ax,ss:-0cH[di] 02e2 75 0b jne L27 02e4 8b 7e 04 mov di,+4H[bp] 02e7 36 8b 45 fe mov ax,ss:-2H[di] 02eb 40 inc ax 02ec 89 46 fa mov -6H[bp],ax 02ef 8b 46 fa L27 mov ax,-6H[bp] 02f2 48 dec ax 02f3 89 46 fe mov -2H[bp],ax 02f6 8b 46 fe mov ax,-2H[bp] 02f9 89 ec mov sp,bp 02fb 5d pop bp 02fc c2 02 00 ret 0002H 02ff 01 20 L28 add [bx+si],sp 0301 DATA_IN: 0301 55 INFIELD_001 push bp 0302 89 e5 mov bp,sp 0304 b8 17 03 mov ax,0317H 0307 9a 00 00 00 00 call far SYSTEM_034 030c 81 ec 17 03 sub sp,0317H 0310 c7 46 f4 01 00 mov word ptr -0cH[bp],0001H 0315 31 c0 xor ax,ax 0317 89 46 fc mov -4H[bp],ax 031a a0 00 00 mov al,TEMPLATE 031d 30 e4 xor ah,ah 031f 89 46 fe mov -2H[bp],ax 0322 31 c0 xor ax,ax 0324 a3 00 00 mov FKEY,ax 0327 c6 46 f1 00 mov byte ptr -0fH[bp],00H 032b c6 06 00 00 00 mov byte ptr IEXIT,00H 0330 be 40 00 mov si,0040H 0333 8e c6 mov es,si 0335 26 80 3e 49 00 07 cmp byte ptr es:[00000049H],07H 033b 75 07 jne L29 033d c7 46 ec 0c 0c mov word ptr -14H[bp],0c0cH 0342 eb 05 jmp L30 0344 c7 46 ec 07 07 L29 mov word ptr -14H[bp],0707H 0349 ff 76 ec L30 push -14H[bp] 034c 8d 7e ea lea di,-16H[bp] 034f 16 push ss 0350 57 push di 0351 9a 00 00 00 00 call far QWIK_00E 0356 8b 46 ea mov ax,-16H[bp] 0359 89 46 ee mov -12H[bp],ax 035c c6 46 f2 00 mov byte ptr -0eH[bp],00H 0360 80 3e 00 00 01 cmp byte ptr USETEMP,01H 0365 75 0e jne L31 0367 8b 46 fe mov ax,-2H[bp] 036a 89 46 0c mov +0cH[bp],ax 036d a0 00 00 mov al,TATTR 0370 88 46 e9 mov -17H[bp],al 0373 eb 06 jmp L32 0375 8a 46 06 L31 mov al,+6H[bp] 0378 88 46 e9 mov -17H[bp],al 037b 80 3e 00 00 4e L32 cmp byte ptr STCH,4eH 0380 74 23 je L33 0382 8a 46 10 mov al,+10H[bp] 0385 50 push ax 0386 8b 46 0e mov ax,+0eH[bp] 0389 48 dec ax 038a 50 push ax 038b 8a 46 e9 mov al,-17H[bp] 038e 30 e4 xor ah,ah 0390 50 push ax 0391 8d be e9 fe lea di,-117H[bp] 0395 16 push ss 0396 57 push di 0397 a0 00 00 mov al,STCH 039a 50 push ax 039b 9a 00 00 00 00 call far SYSTEM_012 03a0 9a 00 00 00 00 call far QWIK_002 03a5 80 3e 00 00 4e L33 cmp byte ptr ENCH,4eH 03aa 74 25 je L34 03ac 8a 46 10 mov al,+10H[bp] 03af 50 push ax 03b0 8b 46 0e mov ax,+0eH[bp] 03b3 03 46 0c add ax,+0cH[bp] 03b6 50 push ax 03b7 8a 46 e9 mov al,-17H[bp] 03ba 30 e4 xor ah,ah 03bc 50 push ax 03bd 8d be e9 fe lea di,-117H[bp] 03c1 16 push ss 03c2 57 push di 03c3 a0 00 00 mov al,ENCH 03c6 50 push ax 03c7 9a 00 00 00 00 call far SYSTEM_012 03cc 9a 00 00 00 00 call far QWIK_002 03d1 80 3e 00 00 01 L34 cmp byte ptr USETEMP,01H 03d6 75 30 jne L38 03d8 31 c0 xor ax,ax 03da 89 46 0c mov +0cH[bp],ax 03dd 8b 46 fe mov ax,-2H[bp] 03e0 89 46 e7 mov -19H[bp],ax 03e3 b8 01 00 mov ax,0001H 03e6 3b 46 e7 cmp ax,-19H[bp] 03e9 7f 1d jg L38 03eb 89 46 f6 mov -0aH[bp],ax 03ee eb 03 jmp L36 03f0 ff 46 f6 L35 inc word ptr -0aH[bp] 03f3 8b 7e f6 L36 mov di,-0aH[bp] 03f6 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 03fb 75 03 jne L37 03fd ff 46 0c inc word ptr +0cH[bp] 0400 8b 46 f6 L37 mov ax,-0aH[bp] 0403 3b 46 e7 cmp ax,-19H[bp] 0406 75 e8 jne L35 0408 80 3e 00 00 01 L38 cmp byte ptr COE,01H 040d 75 22 jne L39 040f 8d be e9 fe lea di,-117H[bp] 0413 16 push ss 0414 57 push di 0415 8a 46 0c mov al,+0cH[bp] 0418 50 push ax 0419 b0 20 mov al,20H 041b 50 push ax 041c 9a 00 00 00 00 call far QWIK_013 0421 c4 7e 08 les di,dword ptr +8H[bp] 0424 06 push es 0425 57 push di 0426 b8 50 00 mov ax,0050H 0429 50 push ax 042a 9a 00 00 00 00 call far SYSTEM_00C 042f eb 75 jmp L41 0431 c4 7e 08 L39 les di,dword ptr +8H[bp] 0434 26 8a 05 mov al,es:[di] 0437 30 e4 xor ah,ah 0439 3b 46 0c cmp ax,+0cH[bp] 043c 7e 27 jle L40 043e 8d be e9 fe lea di,-117H[bp] 0442 16 push ss 0443 57 push di 0444 c4 7e 08 les di,dword ptr +8H[bp] 0447 06 push es 0448 57 push di 0449 b8 01 00 mov ax,0001H 044c 50 push ax 044d ff 76 0c push +0cH[bp] 0450 9a 00 00 00 00 call far SYSTEM_00E 0455 c4 7e 08 les di,dword ptr +8H[bp] 0458 06 push es 0459 57 push di 045a b8 50 00 mov ax,0050H 045d 50 push ax 045e 9a 00 00 00 00 call far SYSTEM_00C 0463 eb 41 jmp L41 0465 8d be e9 fd L40 lea di,-217H[bp] 0469 16 push ss 046a 57 push di 046b c4 7e 08 les di,dword ptr +8H[bp] 046e 06 push es 046f 57 push di 0470 9a 00 00 00 00 call far SYSTEM_00B 0475 8d be e9 fe lea di,-117H[bp] 0479 16 push ss 047a 57 push di 047b c4 7e 08 les di,dword ptr +8H[bp] 047e 26 8a 05 mov al,es:[di] 0481 30 e4 xor ah,ah 0483 8b d0 mov dx,ax 0485 8b 46 0c mov ax,+0cH[bp] 0488 2b c2 sub ax,dx 048a 50 push ax 048b b0 20 mov al,20H 048d 50 push ax 048e 9a 00 00 00 00 call far QWIK_013 0493 9a 00 00 00 00 call far SYSTEM_00F 0498 c4 7e 08 les di,dword ptr +8H[bp] 049b 06 push es 049c 57 push di 049d b8 50 00 mov ax,0050H 04a0 50 push ax 04a1 9a 00 00 00 00 call far SYSTEM_00C 04a6 55 L41 push bp 04a7 e8 00 00 call INFIELD_004 04aa 55 L42 push bp 04ab e8 00 00 call INFIELD_006 04ae 89 46 fc mov -4H[bp],ax 04b1 8a 46 10 mov al,+10H[bp] 04b4 50 push ax 04b5 8b 46 0e mov ax,+0eH[bp] 04b8 03 46 fc add ax,-4H[bp] 04bb 50 push ax 04bc 9a 00 00 00 00 call far QWIK_00D 04c1 c6 46 f0 00 mov byte ptr -10H[bp],00H 04c5 9a 00 00 00 00 call far CRT_003 04ca 88 46 f3 mov -0dH[bp],al 04cd 80 3e 00 00 01 cmp byte ptr KCLK,01H 04d2 75 17 jne L43 04d4 b8 b0 04 mov ax,04b0H 04d7 50 push ax 04d8 9a 00 00 00 00 call far CRT_013 04dd b8 02 00 mov ax,0002H 04e0 50 push ax 04e1 9a 00 00 00 00 call far CRT_012 04e6 9a 00 00 00 00 call far CRT_014 04eb 8a 46 f3 L43 mov al,-0dH[bp] 04ee 30 e4 xor ah,ah 04f0 89 46 fa mov -6H[bp],ax 04f3 83 7e fa 1b cmp word ptr -6H[bp],001bH 04f7 7f 04 jg L44 04f9 c6 46 f0 01 mov byte ptr -10H[bp],01H 04fd 83 7e fa 00 L44 cmp word ptr -6H[bp],0000H 0501 75 10 jne L45 0503 9a 00 00 00 00 call far CRT_003 0508 88 46 f3 mov -0dH[bp],al 050b 8a 46 f3 mov al,-0dH[bp] 050e 30 e4 xor ah,ah 0510 89 46 fa mov -6H[bp],ax 0513 80 7e f0 00 L45 cmp byte ptr -10H[bp],00H 0517 75 03 jne L46 0519 e9 9d 02 jmp L89 051c 8b 46 fa L46 mov ax,-6H[bp] 051f a3 00 00 mov FKEY,ax 0522 8b 46 fa mov ax,-6H[bp] 0525 3d 08 00 cmp ax,0008H 0528 75 50 jne L49 052a ff 4e f4 dec word ptr -0cH[bp] 052d 83 7e f4 01 cmp word ptr -0cH[bp],0001H 0531 7d 07 jge L47 0533 c7 46 f4 01 00 mov word ptr -0cH[bp],0001H 0538 eb 3d jmp L48 053a c4 7e 08 L47 les di,dword ptr +8H[bp] 053d 06 push es 053e 57 push di 053f ff 76 f4 push -0cH[bp] 0542 b8 01 00 mov ax,0001H 0545 50 push ax 0546 9a 00 00 00 00 call far SYSTEM_015 054b 8d be e9 fe lea di,-117H[bp] 054f 16 push ss 0550 57 push di 0551 c4 7e 08 les di,dword ptr +8H[bp] 0554 06 push es 0555 57 push di 0556 9a 00 00 00 00 call far SYSTEM_00B 055b bf 00 00 mov di,offset L28 055e 0e push cs 055f 57 push di 0560 9a 00 00 00 00 call far SYSTEM_00F 0565 c4 7e 08 les di,dword ptr +8H[bp] 0568 06 push es 0569 57 push di 056a b8 50 00 mov ax,0050H 056d 50 push ax 056e 9a 00 00 00 00 call far SYSTEM_00C 0573 55 push bp 0574 e8 00 00 call INFIELD_004 0577 e9 3c 02 L48 jmp L88 057a 3d 0d 00 L49 cmp ax,000dH 057d 75 07 jne L50 057f c6 46 f1 01 mov byte ptr -0fH[bp],01H 0583 e9 30 02 jmp L88 0586 3d 1b 00 L50 cmp ax,001bH 0589 75 08 jne L51 058b c6 06 00 00 01 mov byte ptr IEXIT,01H 0590 e9 23 02 jmp L88 0593 3d 3b 00 L51 cmp ax,003bH 0596 7c 0d jl L52 0598 3d 44 00 cmp ax,0044H 059b 7f 08 jg L52 059d c6 06 00 00 01 mov byte ptr IEXIT,01H 05a2 e9 11 02 jmp L88 05a5 3d 54 00 L52 cmp ax,0054H 05a8 7c 0d jl L53 05aa 3d 5d 00 cmp ax,005dH 05ad 7f 08 jg L53 05af c6 06 00 00 01 mov byte ptr IEXIT,01H 05b4 e9 ff 01 jmp L88 05b7 3d 5e 00 L53 cmp ax,005eH 05ba 7c 0d jl L54 05bc 3d 67 00 cmp ax,0067H 05bf 7f 08 jg L54 05c1 c6 06 00 00 01 mov byte ptr IEXIT,01H 05c6 e9 ed 01 jmp L88 05c9 3d 68 00 L54 cmp ax,0068H 05cc 7c 0d jl L55 05ce 3d 71 00 cmp ax,0071H 05d1 7f 08 jg L55 05d3 c6 06 00 00 01 mov byte ptr IEXIT,01H 05d8 e9 db 01 jmp L88 05db 3d 47 00 L55 cmp ax,0047H 05de 74 0f je L56 05e0 3d 49 00 cmp ax,0049H 05e3 74 0a je L56 05e5 3d 77 00 cmp ax,0077H 05e8 74 05 je L56 05ea 3d 84 00 cmp ax,0084H 05ed 75 08 jne L57 05ef c7 46 f4 01 00 L56 mov word ptr -0cH[bp],0001H 05f4 e9 bf 01 jmp L88 05f7 3d 4b 00 L57 cmp ax,004bH 05fa 75 1f jne L60 05fc 80 3e 00 00 01 cmp byte ptr EOA,01H 0601 75 07 jne L58 0603 c6 06 00 00 01 mov byte ptr IEXIT,01H 0608 eb 0e jmp L59 060a ff 4e f4 L58 dec word ptr -0cH[bp] 060d 83 7e f4 01 cmp word ptr -0cH[bp],0001H 0611 7d 05 jge L59 0613 c7 46 f4 01 00 mov word ptr -0cH[bp],0001H 0618 e9 9b 01 L59 jmp L88 061b 3d 4d 00 L60 cmp ax,004dH 061e 75 24 jne L63 0620 80 3e 00 00 01 cmp byte ptr EOA,01H 0625 75 07 jne L61 0627 c6 06 00 00 01 mov byte ptr IEXIT,01H 062c eb 13 jmp L62 062e ff 46 f4 L61 inc word ptr -0cH[bp] 0631 8b 46 0c mov ax,+0cH[bp] 0634 40 inc ax 0635 3b 46 f4 cmp ax,-0cH[bp] 0638 7d 07 jge L62 063a 8b 46 0c mov ax,+0cH[bp] 063d 40 inc ax 063e 89 46 f4 mov -0cH[bp],ax 0641 e9 72 01 L62 jmp L88 0644 3d 48 00 L63 cmp ax,0048H 0647 74 05 je L64 0649 3d 50 00 cmp ax,0050H 064c 75 0f jne L66 064e 80 3e 00 00 01 L64 cmp byte ptr EOA,01H 0653 75 05 jne L65 0655 c6 06 00 00 01 mov byte ptr IEXIT,01H 065a e9 59 01 L65 jmp L88 065d 3d 52 00 L66 cmp ax,0052H 0660 75 66 jne L75 0662 80 7e f2 00 cmp byte ptr -0eH[bp],00H 0666 74 04 je L67 0668 b0 00 mov al,00H 066a eb 02 jmp L68 066c b0 01 L67 mov al,01H 066e 88 46 f2 L68 mov -0eH[bp],al 0671 80 7e f2 01 cmp byte ptr -0eH[bp],01H 0675 75 28 jne L71 0677 be 40 00 mov si,0040H 067a 8e c6 mov es,si 067c 26 80 3e 49 00 07 cmp byte ptr es:[00000049H],07H 0682 75 07 jne L69 0684 c7 46 ec 0c 09 mov word ptr -14H[bp],090cH 0689 eb 05 jmp L70 068b c7 46 ec 07 04 L69 mov word ptr -14H[bp],0407H 0690 ff 76 ec L70 push -14H[bp] 0693 8d 7e ea lea di,-16H[bp] 0696 16 push ss 0697 57 push di 0698 9a 00 00 00 00 call far QWIK_00E 069d eb 26 jmp L74 069f be 40 00 L71 mov si,0040H 06a2 8e c6 mov es,si 06a4 26 80 3e 49 00 07 cmp byte ptr es:[00000049H],07H 06aa 75 07 jne L72 06ac c7 46 ec 0c 0c mov word ptr -14H[bp],0c0cH 06b1 eb 05 jmp L73 06b3 c7 46 ec 07 07 L72 mov word ptr -14H[bp],0707H 06b8 ff 76 ec L73 push -14H[bp] 06bb 8d 7e ea lea di,-16H[bp] 06be 16 push ss 06bf 57 push di 06c0 9a 00 00 00 00 call far QWIK_00E 06c5 e9 ee 00 L74 jmp L88 06c8 3d 53 00 L75 cmp ax,0053H 06cb 75 40 jne L76 06cd c4 7e 08 les di,dword ptr +8H[bp] 06d0 06 push es 06d1 57 push di 06d2 ff 76 f4 push -0cH[bp] 06d5 b8 01 00 mov ax,0001H 06d8 50 push ax 06d9 9a 00 00 00 00 call far SYSTEM_015 06de 8d be e9 fe lea di,-117H[bp] 06e2 16 push ss 06e3 57 push di 06e4 c4 7e 08 les di,dword ptr +8H[bp] 06e7 06 push es 06e8 57 push di 06e9 9a 00 00 00 00 call far SYSTEM_00B 06ee bf 00 00 mov di,offset L28 06f1 0e push cs 06f2 57 push di 06f3 9a 00 00 00 00 call far SYSTEM_00F 06f8 c4 7e 08 les di,dword ptr +8H[bp] 06fb 06 push es 06fc 57 push di 06fd b8 50 00 mov ax,0050H 0700 50 push ax 0701 9a 00 00 00 00 call far SYSTEM_00C 0706 55 push bp 0707 e8 00 00 call INFIELD_004 070a e9 a9 00 jmp L88 070d 3d 4f 00 L76 cmp ax,004fH 0710 74 0f je L77 0712 3d 51 00 cmp ax,0051H 0715 74 0a je L77 0717 3d 75 00 cmp ax,0075H 071a 74 05 je L77 071c 3d 76 00 cmp ax,0076H 071f 75 0a jne L78 0721 8b 46 0c L77 mov ax,+0cH[bp] 0724 40 inc ax 0725 89 46 f4 mov -0cH[bp],ax 0728 e9 8b 00 jmp L88 072b 3d 73 00 L78 cmp ax,0073H 072e 75 39 jne L83 0730 83 7e f4 01 cmp word ptr -0cH[bp],0001H 0734 7e 31 jle L82 0736 ff 4e f4 L79 dec word ptr -0cH[bp] 0739 8b 46 f4 mov ax,-0cH[bp] 073c c4 7e 08 les di,dword ptr +8H[bp] 073f 03 f8 add di,ax 0741 26 80 3d 20 cmp byte ptr es:[di],20H 0745 75 06 jne L80 0747 83 7e f4 01 cmp word ptr -0cH[bp],0001H 074b 75 e9 jne L79 074d ff 4e f4 L80 dec word ptr -0cH[bp] 0750 8b 46 f4 mov ax,-0cH[bp] 0753 c4 7e 08 les di,dword ptr +8H[bp] 0756 03 f8 add di,ax 0758 26 80 3d 20 cmp byte ptr es:[di],20H 075c 74 06 je L81 075e 83 7e f4 00 cmp word ptr -0cH[bp],0000H 0762 75 e9 jne L80 0764 ff 46 f4 L81 inc word ptr -0cH[bp] 0767 eb 4d L82 jmp L88 0769 3d 74 00 L83 cmp ax,0074H 076c 75 3d jne L87 076e 8b 46 f4 mov ax,-0cH[bp] 0771 3b 46 0c cmp ax,+0cH[bp] 0774 7d 33 jge L86 0776 ff 46 f4 L84 inc word ptr -0cH[bp] 0779 8b 46 f4 mov ax,-0cH[bp] 077c c4 7e 08 les di,dword ptr +8H[bp] 077f 03 f8 add di,ax 0781 26 80 3d 20 cmp byte ptr es:[di],20H 0785 74 08 je L85 0787 8b 46 f4 mov ax,-0cH[bp] 078a 3b 46 0c cmp ax,+0cH[bp] 078d 75 e7 jne L84 078f ff 46 f4 L85 inc word ptr -0cH[bp] 0792 8b 46 f4 mov ax,-0cH[bp] 0795 c4 7e 08 les di,dword ptr +8H[bp] 0798 03 f8 add di,ax 079a 26 80 3d 20 cmp byte ptr es:[di],20H 079e 75 09 jne L86 07a0 8b 46 0c mov ax,+0cH[bp] 07a3 40 inc ax 07a4 3b 46 f4 cmp ax,-0cH[bp] 07a7 75 e6 jne L85 07a9 eb 0b L86 jmp L88 07ab 80 3e 00 00 01 L87 cmp byte ptr ISND,01H 07b0 75 04 jne L88 07b2 0e push cs 07b3 e8 00 00 call BADCHOICE 07b6 e9 94 01 L88 jmp L105 07b9 8b 46 0c L89 mov ax,+0cH[bp] 07bc 40 inc ax 07bd 3b 46 f4 cmp ax,-0cH[bp] 07c0 75 45 jne L91 07c2 80 3e 00 00 01 cmp byte ptr ISND,01H 07c7 75 3b jne L90 07c9 b8 84 03 mov ax,0384H 07cc 50 push ax 07cd 9a 00 00 00 00 call far CRT_013 07d2 b8 1e 00 mov ax,001eH 07d5 50 push ax 07d6 9a 00 00 00 00 call far CRT_012 07db b8 58 02 mov ax,0258H 07de 50 push ax 07df 9a 00 00 00 00 call far CRT_013 07e4 b8 1e 00 mov ax,001eH 07e7 50 push ax 07e8 9a 00 00 00 00 call far CRT_012 07ed b8 2c 01 mov ax,012cH 07f0 50 push ax 07f1 9a 00 00 00 00 call far CRT_013 07f6 b8 1e 00 mov ax,001eH 07f9 50 push ax 07fa 9a 00 00 00 00 call far CRT_012 07ff 9a 00 00 00 00 call far CRT_014 0804 e9 46 01 L90 jmp L105 0807 80 3e 00 00 01 L91 cmp byte ptr USETEMP,01H 080c 74 03 je L92 080e e9 c4 00 jmp L101 0811 80 3e 00 00 01 L92 cmp byte ptr MOK,01H 0816 74 03 je L93 0818 e9 ba 00 jmp L101 081b 8d be e9 fe L93 lea di,-117H[bp] 081f 16 push ss 0820 57 push di 0821 8a 46 f3 mov al,-0dH[bp] 0824 50 push ax 0825 9a 00 00 00 00 call far SYSTEM_012 082a bf 00 00 mov di,offset TEMPLATE 082d 1e push ds 082e 57 push di 082f 9a 00 00 00 00 call far SYSTEM_010 0834 09 c0 or ax,ax 0836 7f 03 jg L94 0838 e9 9a 00 jmp L101 083b 8d be e9 fd L94 lea di,-217H[bp] 083f 16 push ss 0840 57 push di 0841 8a 46 f3 mov al,-0dH[bp] 0844 50 push ax 0845 9a 00 00 00 00 call far SYSTEM_012 084a 8d be e9 fc lea di,-317H[bp] 084e 16 push ss 084f 57 push di 0850 bf 00 00 mov di,offset TEMPLATE 0853 1e push ds 0854 57 push di 0855 8b 46 fc mov ax,-4H[bp] 0858 40 inc ax 0859 50 push ax 085a 8b 46 fe mov ax,-2H[bp] 085d 2b 46 fc sub ax,-4H[bp] 0860 50 push ax 0861 9a 00 00 00 00 call far SYSTEM_00E 0866 9a 00 00 00 00 call far SYSTEM_010 086b 89 46 f6 mov -0aH[bp],ax 086e 83 7e f6 00 cmp word ptr -0aH[bp],0000H 0872 7e 5f jle L100 0874 8b 46 fc mov ax,-4H[bp] 0877 03 46 f6 add ax,-0aH[bp] 087a 89 86 e7 fe mov -119H[bp],ax 087e 8b 46 fc mov ax,-4H[bp] 0881 40 inc ax 0882 3b 86 e7 fe cmp ax,-119H[bp] 0886 7f 1e jg L98 0888 89 46 f8 mov -8H[bp],ax 088b eb 03 jmp L96 088d ff 46 f8 L95 inc word ptr -8H[bp] 0890 8b 7e f8 L96 mov di,-8H[bp] 0893 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 0898 75 03 jne L97 089a ff 46 f4 inc word ptr -0cH[bp] 089d 8b 46 f8 L97 mov ax,-8H[bp] 08a0 3b 86 e7 fe cmp ax,-119H[bp] 08a4 75 e7 jne L95 08a6 8b 46 f6 L98 mov ax,-0aH[bp] 08a9 48 dec ax 08aa 01 46 fc add -4H[bp],ax 08ad 8b 46 fc mov ax,-4H[bp] 08b0 40 inc ax 08b1 8b f8 mov di,ax 08b3 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 08b8 74 19 je L100 08ba ff 46 fc L99 inc word ptr -4H[bp] 08bd 8b 46 fc mov ax,-4H[bp] 08c0 40 inc ax 08c1 8b f8 mov di,ax 08c3 80 bd 00 00 20 cmp byte ptr TEMPLATE[di],20H 08c8 74 09 je L100 08ca 8b 46 fe mov ax,-2H[bp] 08cd 40 inc ax 08ce 3b 46 fc cmp ax,-4H[bp] 08d1 75 e7 jne L99 08d3 eb 78 L100 jmp L105 08d5 80 3e 00 00 01 L101 cmp byte ptr CAPSONLY,01H 08da 75 0c jne L102 08dc 8a 46 f3 mov al,-0dH[bp] 08df 50 push ax 08e0 9a 00 00 00 00 call far SYSTEM_05A 08e5 88 46 f3 mov -0dH[bp],al 08e8 80 7e f2 00 L102 cmp byte ptr -0eH[bp],00H 08ec 75 13 jne L103 08ee 8a 56 f3 mov dl,-0dH[bp] 08f1 8b 46 f4 mov ax,-0cH[bp] 08f4 c4 7e 08 les di,dword ptr +8H[bp] 08f7 03 f8 add di,ax 08f9 26 88 15 mov es:[di],dl 08fc ff 46 f4 inc word ptr -0cH[bp] 08ff eb 48 jmp L104 0901 8d be e9 fd L103 lea di,-217H[bp] 0905 16 push ss 0906 57 push di 0907 8a 46 f3 mov al,-0dH[bp] 090a 50 push ax 090b 9a 00 00 00 00 call far SYSTEM_012 0910 c4 7e 08 les di,dword ptr +8H[bp] 0913 06 push es 0914 57 push di 0915 b8 50 00 mov ax,0050H 0918 50 push ax 0919 ff 76 f4 push -0cH[bp] 091c 9a 00 00 00 00 call far SYSTEM_014 0921 8d be e9 fd lea di,-217H[bp] 0925 16 push ss 0926 57 push di 0927 c4 7e 08 les di,dword ptr +8H[bp] 092a 06 push es 092b 57 push di 092c b8 01 00 mov ax,0001H 092f 50 push ax 0930 ff 76 0c push +0cH[bp] 0933 9a 00 00 00 00 call far SYSTEM_00E 0938 c4 7e 08 les di,dword ptr +8H[bp] 093b 06 push es 093c 57 push di 093d b8 50 00 mov ax,0050H 0940 50 push ax 0941 9a 00 00 00 00 call far SYSTEM_00C 0946 ff 46 f4 inc word ptr -0cH[bp] 0949 55 L104 push bp 094a e8 00 00 call INFIELD_004 094d 80 7e f1 01 L105 cmp byte ptr -0fH[bp],01H 0951 74 0a je L106 0953 80 3e 00 00 01 cmp byte ptr IEXIT,01H 0958 74 03 je L106 095a e9 4d fb jmp L42 095d 80 3e 00 00 01 L106 cmp byte ptr EOB,01H 0962 75 26 jne L107 0964 c4 7e 08 les di,dword ptr +8H[bp] 0967 06 push es 0968 57 push di 0969 8d be e9 fe lea di,-117H[bp] 096d 16 push ss 096e 57 push di 096f c4 7e 08 les di,dword ptr +8H[bp] 0972 26 8a 05 mov al,es:[di] 0975 50 push ax 0976 b0 20 mov al,20H 0978 50 push ax 0979 9a 00 00 00 00 call far QWIK_013 097e 9a 00 00 00 00 call far SYSTEM_011 0983 75 05 jne L107 0985 c6 06 00 00 01 mov byte ptr IEXIT,01H 098a 80 3e 00 00 01 L107 cmp byte ptr IEXIT,01H 098f 75 1e jne L108 0991 80 3e 00 00 01 cmp byte ptr ISND,01H 0996 75 17 jne L108 0998 b8 bc 02 mov ax,02bcH 099b 50 push ax 099c 9a 00 00 00 00 call far CRT_013 09a1 b8 05 00 mov ax,0005H 09a4 50 push ax 09a5 9a 00 00 00 00 call far CRT_012 09aa 9a 00 00 00 00 call far CRT_014 09af 80 3e 00 00 01 L108 cmp byte ptr INFIELD_BSS,01H 09b4 75 09 jne L109 09b6 c4 7e 08 les di,dword ptr +8H[bp] 09b9 06 push es 09ba 57 push di 09bb 0e push cs 09bc e8 00 00 call INFIELD_003 09bf 80 3e 00 00 01 L109 cmp byte ptr KEEPTEMP,01H 09c4 75 59 jne L110 09c6 8d be e9 fd lea di,-217H[bp] 09ca 16 push ss 09cb 57 push di 09cc c4 7e 08 les di,dword ptr +8H[bp] 09cf 06 push es 09d0 57 push di 09d1 9a 00 00 00 00 call far SYSTEM_00B 09d6 8d be e9 fe lea di,-117H[bp] 09da 16 push ss 09db 57 push di 09dc c4 7e 08 les di,dword ptr +8H[bp] 09df 26 8a 05 mov al,es:[di] 09e2 30 e4 xor ah,ah 09e4 8b d0 mov dx,ax 09e6 8b 46 0c mov ax,+0cH[bp] 09e9 2b c2 sub ax,dx 09eb 50 push ax 09ec b0 20 mov al,20H 09ee 50 push ax 09ef 9a 00 00 00 00 call far QWIK_013 09f4 9a 00 00 00 00 call far SYSTEM_00F 09f9 c4 7e 08 les di,dword ptr +8H[bp] 09fc 06 push es 09fd 57 push di 09fe b8 50 00 mov ax,0050H 0a01 50 push ax 0a02 9a 00 00 00 00 call far SYSTEM_00C 0a07 8d be e9 fe lea di,-117H[bp] 0a0b 16 push ss 0a0c 57 push di 0a0d 55 push bp 0a0e e8 00 00 call INFIELD_005 0a11 c4 7e 08 les di,dword ptr +8H[bp] 0a14 06 push es 0a15 57 push di 0a16 b8 50 00 mov ax,0050H 0a19 50 push ax 0a1a 9a 00 00 00 00 call far SYSTEM_00C 0a1f ff 76 ee L110 push -12H[bp] 0a22 8d 7e ea lea di,-16H[bp] 0a25 16 push ss 0a26 57 push di 0a27 9a 00 00 00 00 call far QWIK_00E 0a2c 89 ec mov sp,bp 0a2e 5d pop bp 0a2f ca 0c 00 retf 000cH 0a32 INFIELD_000: 0a32 89 e5 INFIELD_INIT mov bp,sp 0a34 c6 06 00 00 00 mov byte ptr IEXIT,00H 0a39 c6 06 00 00 00 mov byte ptr INFIELD_BSS,00H 0a3e c6 06 00 00 00 mov byte ptr COE,00H 0a43 c6 06 00 00 00 mov byte ptr EOB,00H 0a48 c6 06 00 00 00 mov byte ptr EOA,00H 0a4d c6 06 00 00 01 mov byte ptr ISND,01H 0a52 c6 06 00 00 00 mov byte ptr KCLK,00H 0a57 c6 06 00 00 00 mov byte ptr USETEMP,00H 0a5c 31 c0 xor ax,ax 0a5e a3 00 00 mov FKEY,ax 0a61 c6 06 00 00 5b mov byte ptr STCH,5bH 0a66 c6 06 00 00 5d mov byte ptr ENCH,5dH 0a6b c6 06 00 00 00 mov byte ptr KEEPTEMP,00H 0a70 c6 06 00 00 00 mov byte ptr TEMPLATE,00H 0a75 c7 06 00 00 07 00 mov word ptr TATTR,0007H 0a7b c6 06 00 00 00 mov byte ptr MOK,00H 0a80 c6 06 00 00 00 mov byte ptr CAPSONLY,00H 0a85 89 ec mov sp,bp 0a87 cb retf No disassembly errors ------------------------------------------------------------ Segment: _BSS WORD 00000062 bytes No disassembly errors ------------------------------------------------------------