Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / pascal / library / dos / oasis / prog / scl40.dis < prev next >

Wrap

Text File | 1994-06-19 | 553.2 KB | 9,627 lines

Module: SCL.PAS Group: 'DGROUP' _DATA,_BSS Segment: SCL_TEXT PARA 00005d61 bytes 0000 RESET_SCREEN_COLORS: 0000 55 SCL_001 push bp 0001 89 e5 mov bp,sp 0003 83 ec 01 sub sp,0001H 0006 c6 46 ff 00 mov byte ptr -1H[bp],00H 000a eb 03 jmp L2 000c fe 46 ff L1 inc byte ptr -1H[bp] 000f 8a 56 ff L2 mov dl,-1H[bp] 0012 8a 46 ff mov al,-1H[bp] 0015 30 e4 xor ah,ah 0017 8b f8 mov di,ax 0019 88 95 00 00 mov SCREEN_COLOR_TRANSLATION_TABLE[di],dl 001d 80 7e ff ff cmp byte ptr -1H[bp],0ffH 0021 75 e9 jne L1 0023 89 ec mov sp,bp 0025 5d pop bp 0026 cb retf 0027 CHANGE_COLOR: 0027 55 SCL_002 push bp 0028 89 e5 mov bp,sp 002a 8a 56 06 mov dl,+6H[bp] 002d 8a 46 08 mov al,+8H[bp] 0030 30 e4 xor ah,ah 0032 8b f8 mov di,ax 0034 88 95 00 00 mov SCREEN_COLOR_TRANSLATION_TABLE[di],dl 0038 89 ec mov sp,bp 003a 5d pop bp 003b ca 04 00 retf 0004H 003e GET_CURRENT_COLOR: 003e 55 SCL_003 push bp 003f 89 e5 mov bp,sp 0041 83 ec 01 sub sp,0001H 0044 8a 46 06 mov al,+6H[bp] 0047 30 e4 xor ah,ah 0049 8b f8 mov di,ax 004b 8a 85 00 00 mov al,SCREEN_COLOR_TRANSLATION_TABLE[di] 004f 88 46 ff mov -1H[bp],al 0052 8a 46 ff mov al,-1H[bp] 0055 89 ec mov sp,bp 0057 5d pop bp 0058 ca 02 00 retf 0002H 005b CAPITAL: 005b 55 SCL_004 push bp 005c 89 e5 mov bp,sp 005e 81 ec 04 01 sub sp,0104H 0062 c4 7e 06 les di,dword ptr +6H[bp] 0065 06 push es 0066 57 push di 0067 8d be 00 ff lea di,-100H[bp] 006b 16 push ss 006c 57 push di 006d b8 ff 00 mov ax,00ffH 0070 50 push ax 0071 9a 00 00 00 00 call far SYSTEM_00C 0076 8a 86 00 ff mov al,-100H[bp] 007a 30 e4 xor ah,ah 007c 89 86 fc fe mov -104H[bp],ax 0080 b8 01 00 mov ax,0001H 0083 3b 86 fc fe cmp ax,-104H[bp] 0087 7f 30 jg L5 0089 89 86 fe fe mov -102H[bp],ax 008d eb 04 jmp L4 008f ff 86 fe fe L3 inc word ptr -102H[bp] 0093 8b be fe fe L4 mov di,-102H[bp] 0097 8a 83 00 ff mov al,-100H[bp+di] 009b 50 push ax 009c 9a 00 00 00 00 call far SYSTEM_05A 00a1 8a d0 mov dl,al 00a3 8b 86 fe fe mov ax,-102H[bp] 00a7 c4 7e 0a les di,dword ptr +0aH[bp] 00aa 03 f8 add di,ax 00ac 26 88 15 mov es:[di],dl 00af 8b 86 fe fe mov ax,-102H[bp] 00b3 3b 86 fc fe cmp ax,-104H[bp] 00b7 75 d6 jne L3 00b9 8a 86 00 ff L5 mov al,-100H[bp] 00bd c4 7e 0a les di,dword ptr +0aH[bp] 00c0 26 88 05 mov es:[di],al 00c3 89 ec mov sp,bp 00c5 5d pop bp 00c6 ca 04 00 retf 0004H 00c9 STRIPLEFT: 00c9 55 SCL_005 push bp 00ca 89 e5 mov bp,sp 00cc 81 ec 00 01 sub sp,0100H 00d0 c4 7e 06 les di,dword ptr +6H[bp] 00d3 06 push es 00d4 57 push di 00d5 8d be 00 ff lea di,-100H[bp] 00d9 16 push ss 00da 57 push di 00db b8 ff 00 mov ax,00ffH 00de 50 push ax 00df 9a 00 00 00 00 call far SYSTEM_00C 00e4 80 be 00 ff 01 L6 cmp byte ptr -100H[bp],01H 00e9 72 1f jb L7 00eb 8a 86 01 ff mov al,-0ffH[bp] 00ef 3a 06 00 00 cmp al,SPACE 00f3 75 15 jne L7 00f5 8d be 00 ff lea di,-100H[bp] 00f9 16 push ss 00fa 57 push di 00fb b8 01 00 mov ax,0001H 00fe 50 push ax 00ff b8 01 00 mov ax,0001H 0102 50 push ax 0103 9a 00 00 00 00 call far SYSTEM_015 0108 eb da jmp L6 010a 8d be 00 ff L7 lea di,-100H[bp] 010e 16 push ss 010f 57 push di 0110 c4 7e 0a les di,dword ptr +0aH[bp] 0113 06 push es 0114 57 push di 0115 b8 ff 00 mov ax,00ffH 0118 50 push ax 0119 9a 00 00 00 00 call far SYSTEM_00C 011e 89 ec mov sp,bp 0120 5d pop bp 0121 ca 04 00 retf 0004H 0124 STRIPRIGHT: 0124 55 SCL_006 push bp 0125 89 e5 mov bp,sp 0127 81 ec 00 01 sub sp,0100H 012b c4 7e 06 les di,dword ptr +6H[bp] 012e 06 push es 012f 57 push di 0130 8d be 00 ff lea di,-100H[bp] 0134 16 push ss 0135 57 push di 0136 b8 ff 00 mov ax,00ffH 0139 50 push ax 013a 9a 00 00 00 00 call far SYSTEM_00C 013f 80 be 00 ff 01 L8 cmp byte ptr -100H[bp],01H 0144 72 1e jb L9 0146 8a 86 00 ff mov al,-100H[bp] 014a 30 e4 xor ah,ah 014c 8b f8 mov di,ax 014e 8a 83 00 ff mov al,-100H[bp+di] 0152 3a 06 00 00 cmp al,SPACE 0156 75 0c jne L9 0158 8a 86 00 ff mov al,-100H[bp] 015c fe c8 dec al 015e 88 86 00 ff mov -100H[bp],al 0162 eb db jmp L8 0164 8d be 00 ff L9 lea di,-100H[bp] 0168 16 push ss 0169 57 push di 016a c4 7e 0a les di,dword ptr +0aH[bp] 016d 06 push es 016e 57 push di 016f b8 ff 00 mov ax,00ffH 0172 50 push ax 0173 9a 00 00 00 00 call far SYSTEM_00C 0178 89 ec mov sp,bp 017a 5d pop bp 017b ca 04 00 retf 0004H 017e STRIP: 017e 55 SCL_007 push bp 017f 89 e5 mov bp,sp 0181 81 ec 00 02 sub sp,0200H 0185 8d be 00 fe lea di,-200H[bp] 0189 16 push ss 018a 57 push di 018b 8d be 00 ff lea di,-100H[bp] 018f 16 push ss 0190 57 push di 0191 c4 7e 0a les di,dword ptr +0aH[bp] 0194 06 push es 0195 57 push di 0196 0e push cs 0197 e8 00 00 call SCL_005 019a 0e push cs 019b e8 00 00 call SCL_006 019e c4 7e 0a les di,dword ptr +0aH[bp] 01a1 06 push es 01a2 57 push di 01a3 b8 ff 00 mov ax,00ffH 01a6 50 push ax 01a7 9a 00 00 00 00 call far SYSTEM_00C 01ac c4 7e 0a les di,dword ptr +0aH[bp] 01af 26 8a 05 mov al,es:[di] 01b2 30 e4 xor ah,ah 01b4 c4 7e 06 les di,dword ptr +6H[bp] 01b7 26 89 05 mov es:[di],ax 01ba 89 ec mov sp,bp 01bc 5d pop bp 01bd ca 08 00 retf 0008H 01c0 CHARSTRING: 01c0 55 SCL_008 push bp 01c1 89 e5 mov bp,sp 01c3 81 ec 00 01 sub sp,0100H 01c7 8d be 00 ff lea di,-100H[bp] 01cb 16 push ss 01cc 57 push di 01cd 8b 46 06 mov ax,+6H[bp] 01d0 40 inc ax 01d1 50 push ax 01d2 8a 46 08 mov al,+8H[bp] 01d5 50 push ax 01d6 9a 00 00 00 00 call far SYSTEM_05C 01db 8a 46 06 mov al,+6H[bp] 01de 88 86 00 ff mov -100H[bp],al 01e2 8d be 00 ff lea di,-100H[bp] 01e6 16 push ss 01e7 57 push di 01e8 c4 7e 0a les di,dword ptr +0aH[bp] 01eb 06 push es 01ec 57 push di 01ed b8 ff 00 mov ax,00ffH 01f0 50 push ax 01f1 9a 00 00 00 00 call far SYSTEM_00C 01f6 89 ec mov sp,bp 01f8 5d pop bp 01f9 ca 04 00 retf 0004H 01fc FTAB: 01fc 55 SCL_009 push bp 01fd 89 e5 mov bp,sp 01ff 81 ec 02 02 sub sp,0202H 0203 c6 06 00 00 01 mov byte ptr GLB_OK,01H 0208 c4 7e 0c les di,dword ptr +0cH[bp] 020b 06 push es 020c 57 push di 020d 8d 7e fe lea di,-2H[bp] 0210 16 push ss 0211 57 push di 0212 0e push cs 0213 e8 00 00 call SCL_007 0216 8b 46 fe mov ax,-2H[bp] 0219 3b 46 06 cmp ax,+6H[bp] 021c 7e 33 jle L10 021e c6 06 00 00 00 mov byte ptr GLB_OK,00H 0223 8d be fe fe lea di,-102H[bp] 0227 16 push ss 0228 57 push di 0229 c4 7e 0c les di,dword ptr +0cH[bp] 022c 06 push es 022d 57 push di 022e b8 01 00 mov ax,0001H 0231 50 push ax 0232 ff 76 06 push +6H[bp] 0235 9a 00 00 00 00 call far SYSTEM_00E 023a c4 7e 0c les di,dword ptr +0cH[bp] 023d 06 push es 023e 57 push di 023f b8 ff 00 mov ax,00ffH 0242 50 push ax 0243 9a 00 00 00 00 call far SYSTEM_00C 0248 8b 46 06 mov ax,+6H[bp] 024b 89 46 fe mov -2H[bp],ax 024e e9 d6 00 jmp L13 0251 8a 46 08 L10 mov al,+8H[bp] 0254 3c 00 cmp al,00H 0256 75 3b jne L11 0258 8d be fe fe lea di,-102H[bp] 025c 16 push ss 025d 57 push di 025e c4 7e 0c les di,dword ptr +0cH[bp] 0261 06 push es 0262 57 push di 0263 9a 00 00 00 00 call far SYSTEM_00B 0268 8d be fe fd lea di,-202H[bp] 026c 16 push ss 026d 57 push di 026e 8a 46 0a mov al,+0aH[bp] 0271 50 push ax 0272 8b 46 06 mov ax,+6H[bp] 0275 2b 46 fe sub ax,-2H[bp] 0278 50 push ax 0279 0e push cs 027a e8 00 00 call CHARSTRING 027d 9a 00 00 00 00 call far SYSTEM_00F 0282 c4 7e 0c les di,dword ptr +0cH[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 e9 94 00 jmp L13 0293 3c 01 L11 cmp al,01H 0295 75 2f jne L12 0297 8d be fe fe lea di,-102H[bp] 029b 16 push ss 029c 57 push di 029d 8a 46 0a mov al,+0aH[bp] 02a0 50 push ax 02a1 8b 46 06 mov ax,+6H[bp] 02a4 2b 46 fe sub ax,-2H[bp] 02a7 50 push ax 02a8 0e push cs 02a9 e8 00 00 call CHARSTRING 02ac c4 7e 0c les di,dword ptr +0cH[bp] 02af 06 push es 02b0 57 push di 02b1 9a 00 00 00 00 call far SYSTEM_00F 02b6 c4 7e 0c les di,dword ptr +0cH[bp] 02b9 06 push es 02ba 57 push di 02bb b8 ff 00 mov ax,00ffH 02be 50 push ax 02bf 9a 00 00 00 00 call far SYSTEM_00C 02c4 eb 61 jmp L13 02c6 3c 02 L12 cmp al,02H 02c8 75 5d jne L13 02ca 8d be fe fe lea di,-102H[bp] 02ce 16 push ss 02cf 57 push di 02d0 8a 46 0a mov al,+0aH[bp] 02d3 50 push ax 02d4 8b 46 06 mov ax,+6H[bp] 02d7 2b 46 fe sub ax,-2H[bp] 02da 99 cwd 02db b9 02 00 mov cx,0002H 02de f7 f9 idiv cx 02e0 50 push ax 02e1 0e push cs 02e2 e8 00 00 call CHARSTRING 02e5 c4 7e 0c les di,dword ptr +0cH[bp] 02e8 06 push es 02e9 57 push di 02ea 9a 00 00 00 00 call far SYSTEM_00F 02ef 8d be fe fd lea di,-202H[bp] 02f3 16 push ss 02f4 57 push di 02f5 8a 46 0a mov al,+0aH[bp] 02f8 50 push ax 02f9 8b 46 06 mov ax,+6H[bp] 02fc 2b 46 fe sub ax,-2H[bp] 02ff 99 cwd 0300 b9 02 00 mov cx,0002H 0303 f7 f9 idiv cx 0305 8b d0 mov dx,ax 0307 8b 46 06 mov ax,+6H[bp] 030a 2b 46 fe sub ax,-2H[bp] 030d 2b c2 sub ax,dx 030f 50 push ax 0310 0e push cs 0311 e8 00 00 call CHARSTRING 0314 9a 00 00 00 00 call far SYSTEM_00F 0319 c4 7e 0c les di,dword ptr +0cH[bp] 031c 06 push es 031d 57 push di 031e b8 ff 00 mov ax,00ffH 0321 50 push ax 0322 9a 00 00 00 00 call far SYSTEM_00C 0327 89 ec L13 mov sp,bp 0329 5d pop bp 032a ca 0a 00 retf 000aH 032d JUSTIFY_LEFT: 032d 55 SCL_00A push bp 032e 89 e5 mov bp,sp 0330 81 ec 00 01 sub sp,0100H 0334 c4 7e 08 les di,dword ptr +8H[bp] 0337 06 push es 0338 57 push di 0339 8d be 00 ff lea di,-100H[bp] 033d 16 push ss 033e 57 push di 033f b8 ff 00 mov ax,00ffH 0342 50 push ax 0343 9a 00 00 00 00 call far SYSTEM_00C 0348 8d be 00 ff lea di,-100H[bp] 034c 16 push ss 034d 57 push di 034e b0 20 mov al,20H 0350 50 push ax 0351 b0 00 mov al,00H 0353 50 push ax 0354 ff 76 06 push +6H[bp] 0357 0e push cs 0358 e8 00 00 call FTAB 035b 8d be 00 ff lea di,-100H[bp] 035f 16 push ss 0360 57 push di 0361 c4 7e 0c les di,dword ptr +0cH[bp] 0364 06 push es 0365 57 push di 0366 b8 ff 00 mov ax,00ffH 0369 50 push ax 036a 9a 00 00 00 00 call far SYSTEM_00C 036f 89 ec mov sp,bp 0371 5d pop bp 0372 ca 06 00 retf 0006H 0375 JUSTIFY_RIGHT: 0375 55 SCL_00B push bp 0376 89 e5 mov bp,sp 0378 81 ec 00 01 sub sp,0100H 037c c4 7e 08 les di,dword ptr +8H[bp] 037f 06 push es 0380 57 push di 0381 8d be 00 ff lea di,-100H[bp] 0385 16 push ss 0386 57 push di 0387 b8 ff 00 mov ax,00ffH 038a 50 push ax 038b 9a 00 00 00 00 call far SYSTEM_00C 0390 8d be 00 ff lea di,-100H[bp] 0394 16 push ss 0395 57 push di 0396 b0 20 mov al,20H 0398 50 push ax 0399 b0 01 mov al,01H 039b 50 push ax 039c ff 76 06 push +6H[bp] 039f 0e push cs 03a0 e8 00 00 call FTAB 03a3 8d be 00 ff lea di,-100H[bp] 03a7 16 push ss 03a8 57 push di 03a9 c4 7e 0c les di,dword ptr +0cH[bp] 03ac 06 push es 03ad 57 push di 03ae b8 ff 00 mov ax,00ffH 03b1 50 push ax 03b2 9a 00 00 00 00 call far SYSTEM_00C 03b7 89 ec mov sp,bp 03b9 5d pop bp 03ba ca 06 00 retf 0006H 03bd JUSTIFY_CENTER: 03bd 55 SCL_00C push bp 03be 89 e5 mov bp,sp 03c0 81 ec 00 01 sub sp,0100H 03c4 c4 7e 08 les di,dword ptr +8H[bp] 03c7 06 push es 03c8 57 push di 03c9 8d be 00 ff lea di,-100H[bp] 03cd 16 push ss 03ce 57 push di 03cf b8 ff 00 mov ax,00ffH 03d2 50 push ax 03d3 9a 00 00 00 00 call far SYSTEM_00C 03d8 8d be 00 ff lea di,-100H[bp] 03dc 16 push ss 03dd 57 push di 03de b0 20 mov al,20H 03e0 50 push ax 03e1 b0 02 mov al,02H 03e3 50 push ax 03e4 ff 76 06 push +6H[bp] 03e7 0e push cs 03e8 e8 00 00 call FTAB 03eb 8d be 00 ff lea di,-100H[bp] 03ef 16 push ss 03f0 57 push di 03f1 c4 7e 0c les di,dword ptr +0cH[bp] 03f4 06 push es 03f5 57 push di 03f6 b8 ff 00 mov ax,00ffH 03f9 50 push ax 03fa 9a 00 00 00 00 call far SYSTEM_00C 03ff 89 ec mov sp,bp 0401 5d pop bp 0402 ca 06 00 retf 0006H 0405 01 20 L14 add [bx+si],sp 0407 FRONTSTRING: 0407 55 SCL_00D push bp 0408 89 e5 mov bp,sp 040a 81 ec 02 02 sub sp,0202H 040e c4 7e 0e les di,dword ptr +0eH[bp] 0411 06 push es 0412 57 push di 0413 8d be 00 ff lea di,-100H[bp] 0417 16 push ss 0418 57 push di 0419 b8 ff 00 mov ax,00ffH 041c 50 push ax 041d 9a 00 00 00 00 call far SYSTEM_00C 0422 8d be 00 ff lea di,-100H[bp] 0426 16 push ss 0427 57 push di 0428 c4 7e 0a les di,dword ptr +0aH[bp] 042b 06 push es 042c 57 push di 042d b8 ff 00 mov ax,00ffH 0430 50 push ax 0431 9a 00 00 00 00 call far SYSTEM_00C 0436 8d be 00 ff lea di,-100H[bp] 043a 16 push ss 043b 57 push di 043c c4 7e 06 les di,dword ptr +6H[bp] 043f 06 push es 0440 57 push di 0441 b8 ff 00 mov ax,00ffH 0444 50 push ax 0445 9a 00 00 00 00 call far SYSTEM_00C 044a 8d be fe fd lea di,-202H[bp] 044e 16 push ss 044f 57 push di 0450 c4 7e 0a les di,dword ptr +0aH[bp] 0453 06 push es 0454 57 push di 0455 0e push cs 0456 e8 00 00 call SCL_005 0459 c4 7e 0a les di,dword ptr +0aH[bp] 045c 06 push es 045d 57 push di 045e b8 ff 00 mov ax,00ffH 0461 50 push ax 0462 9a 00 00 00 00 call far SYSTEM_00C 0467 bf 00 00 mov di,offset L14 046a 0e push cs 046b 57 push di 046c c4 7e 0a les di,dword ptr +0aH[bp] 046f 06 push es 0470 57 push di 0471 9a 00 00 00 00 call far SYSTEM_010 0476 89 86 fe fe mov -102H[bp],ax 047a 83 be fe fe 01 cmp word ptr -102H[bp],0001H 047f 7e 59 jle L15 0481 8d be fe fd lea di,-202H[bp] 0485 16 push ss 0486 57 push di 0487 c4 7e 0a les di,dword ptr +0aH[bp] 048a 06 push es 048b 57 push di 048c b8 01 00 mov ax,0001H 048f 50 push ax 0490 8b 86 fe fe mov ax,-102H[bp] 0494 48 dec ax 0495 50 push ax 0496 9a 00 00 00 00 call far SYSTEM_00E 049b c4 7e 0a les di,dword ptr +0aH[bp] 049e 06 push es 049f 57 push di 04a0 b8 ff 00 mov ax,00ffH 04a3 50 push ax 04a4 9a 00 00 00 00 call far SYSTEM_00C 04a9 c4 7e 06 les di,dword ptr +6H[bp] 04ac 06 push es 04ad 57 push di 04ae b8 01 00 mov ax,0001H 04b1 50 push ax 04b2 ff b6 fe fe push -102H[bp] 04b6 9a 00 00 00 00 call far SYSTEM_015 04bb 8d be fe fd lea di,-202H[bp] 04bf 16 push ss 04c0 57 push di 04c1 c4 7e 06 les di,dword ptr +6H[bp] 04c4 06 push es 04c5 57 push di 04c6 0e push cs 04c7 e8 00 00 call SCL_005 04ca c4 7e 06 les di,dword ptr +6H[bp] 04cd 06 push es 04ce 57 push di 04cf b8 ff 00 mov ax,00ffH 04d2 50 push ax 04d3 9a 00 00 00 00 call far SYSTEM_00C 04d8 eb 07 jmp L16 04da c4 7e 06 L15 les di,dword ptr +6H[bp] 04dd 26 c6 05 00 mov byte ptr es:[di],00H 04e1 89 ec L16 mov sp,bp 04e3 5d pop bp 04e4 ca 0c 00 retf 000cH 04e7 55 SCL_06A push bp 04e8 89 e5 mov bp,sp 04ea 83 ec 02 sub sp,0002H 04ed 31 f6 xor si,si 04ef 8e c6 mov es,si 04f1 26 a0 62 04 mov al,es:[00000462H] 04f5 30 e4 xor ah,ah 04f7 8b f8 mov di,ax 04f9 d1 e7 shl di,1 04fb 31 f6 xor si,si 04fd 8e c6 mov es,si 04ff 26 8a 85 50 04 mov al,es:+450H[di] 0504 30 e4 xor ah,ah 0506 40 inc ax 0507 89 46 fe mov -2H[bp],ax 050a 8b 46 fe mov ax,-2H[bp] 050d 89 ec mov sp,bp 050f 5d pop bp 0510 c3 ret 0511 55 SCL_06B push bp 0512 89 e5 mov bp,sp 0514 83 ec 02 sub sp,0002H 0517 31 f6 xor si,si 0519 8e c6 mov es,si 051b 26 a0 62 04 mov al,es:[00000462H] 051f 30 e4 xor ah,ah 0521 8b f8 mov di,ax 0523 d1 e7 shl di,1 0525 31 f6 xor si,si 0527 8e c6 mov es,si 0529 26 8a 85 51 04 mov al,es:+451H[di] 052e 30 e4 xor ah,ah 0530 40 inc ax 0531 89 46 fe mov -2H[bp],ax 0534 8b 46 fe mov ax,-2H[bp] 0537 89 ec mov sp,bp 0539 5d pop bp 053a c3 ret 053b X_MAX: 053b 55 SCL_00E push bp 053c 89 e5 mov bp,sp 053e 83 ec 02 sub sp,0002H 0541 a1 00 00 mov ax,S_PTR 0544 ba 72 00 mov dx,0072H 0547 f7 e2 mul dx 0549 8b f8 mov di,ax 054b c4 bd 00 00 les di,dword ptr L584[di] 054f 26 8a 45 3a mov al,es:+3aH[di] 0553 30 e4 xor ah,ah 0555 8b d0 mov dx,ax 0557 b8 50 00 mov ax,0050H 055a 2b c2 sub ax,dx 055c 89 46 fe mov -2H[bp],ax 055f 8b 46 fe mov ax,-2H[bp] 0562 89 ec mov sp,bp 0564 5d pop bp 0565 cb retf 0566 Y_MAX: 0566 55 SCL_00F push bp 0567 89 e5 mov bp,sp 0569 83 ec 02 sub sp,0002H 056c a1 00 00 mov ax,S_PTR 056f ba 72 00 mov dx,0072H 0572 f7 e2 mul dx 0574 8b f8 mov di,ax 0576 c4 bd 00 00 les di,dword ptr L584[di] 057a 26 8a 45 3b mov al,es:+3bH[di] 057e 30 e4 xor ah,ah 0580 8b d0 mov dx,ax 0582 b8 19 00 mov ax,0019H 0585 2b c2 sub ax,dx 0587 89 46 fe mov -2H[bp],ax 058a 8b 46 fe mov ax,-2H[bp] 058d 89 ec mov sp,bp 058f 5d pop bp 0590 cb retf 0591 ST: 0591 55 SCL_010 push bp 0592 89 e5 mov bp,sp 0594 83 ec 51 sub sp,0051H 0597 8b 46 06 mov ax,+6H[bp] 059a 99 cwd 059b 52 push dx 059c 50 push ax 059d 31 c0 xor ax,ax 059f 50 push ax 05a0 8d 7e af lea di,-51H[bp] 05a3 16 push ss 05a4 57 push di 05a5 b8 50 00 mov ax,0050H 05a8 50 push ax 05a9 9a 00 00 00 00 call far SYSTEM_061 05ae 8d 7e af lea di,-51H[bp] 05b1 16 push ss 05b2 57 push di 05b3 c4 7e 08 les di,dword ptr +8H[bp] 05b6 06 push es 05b7 57 push di 05b8 b8 50 00 mov ax,0050H 05bb 50 push ax 05bc 9a 00 00 00 00 call far SYSTEM_00C 05c1 89 ec mov sp,bp 05c3 5d pop bp 05c4 ca 02 00 retf 0002H 05c7 POWER: 05c7 55 SCL_014 push bp 05c8 89 e5 mov bp,sp 05ca 83 ec 06 sub sp,0006H 05cd 8b 46 0c mov ax,+0cH[bp] 05d0 8b 5e 0e mov bx,+0eH[bp] 05d3 8b 56 10 mov dx,+10H[bp] 05d6 9a 00 00 00 00 call far SYSTEM_080 05db 8b 4e 06 mov cx,+6H[bp] 05de 8b 76 08 mov si,+8H[bp] 05e1 8b 7e 0a mov di,+0aH[bp] 05e4 9a 00 00 00 00 call far SYSTEM_070 05e9 9a 00 00 00 00 call far SYSTEM_081 05ee 89 46 fa mov -6H[bp],ax 05f1 89 5e fc mov -4H[bp],bx 05f4 89 56 fe mov -2H[bp],dx 05f7 8b 46 fa mov ax,-6H[bp] 05fa 8b 5e fc mov bx,-4H[bp] 05fd 8b 56 fe mov dx,-2H[bp] 0600 89 ec mov sp,bp 0602 5d pop bp 0603 ca 0c 00 retf 000cH 0606 GET_COUNTRY: 0606 55 SCL_016 push bp 0607 89 e5 mov bp,sp 0609 83 ec 21 sub sp,0021H 060c a1 00 00 mov ax,SCL_COUNTRY 060f 05 00 38 add ax,3800H 0612 a3 00 00 mov GLB_REGS,ax 0615 8d 46 e0 lea ax,-20H[bp] 0618 a3 00 00 mov L579,ax 061b 8c d0 mov ax,ss 061d a3 00 00 mov L580,ax 0620 bf 00 00 mov di,offset GLB_REGS 0623 1e push ds 0624 57 push di 0625 9a 00 00 00 00 call far DOS_002 062a a1 00 00 mov ax,GLB_REGS 062d a3 00 00 mov COUNTRY,ax 0630 8a 46 e0 mov al,-20H[bp] 0633 30 e4 xor ah,ah 0635 a3 00 00 mov DATE_FORMAT,ax 0638 8a 46 eb mov al,-15H[bp] 063b a2 00 00 mov DATE_SEPARATOR,al 063e 8a 46 ed mov al,-13H[bp] 0641 a2 00 00 mov TIME_SEPARATOR,al 0644 c6 46 df 03 mov byte ptr -21H[bp],03H 0648 8a 46 df L17 mov al,-21H[bp] 064b 30 e4 xor ah,ah 064d 8b f8 mov di,ax 064f 8a 53 df mov dl,-21H[bp+di] 0652 8a 46 df mov al,-21H[bp] 0655 30 e4 xor ah,ah 0657 2d 02 00 sub ax,0002H 065a 8b f8 mov di,ax 065c 88 95 00 00 mov CURRENCY[di],dl 0660 8a 46 df mov al,-21H[bp] 0663 30 e4 xor ah,ah 0665 40 inc ax 0666 88 46 df mov -21H[bp],al 0669 8a 46 df mov al,-21H[bp] 066c 30 e4 xor ah,ah 066e 8b f8 mov di,ax 0670 80 7b df 00 cmp byte ptr -21H[bp+di],00H 0674 75 d2 jne L17 0676 8a 46 df mov al,-21H[bp] 0679 30 e4 xor ah,ah 067b 2d 03 00 sub ax,0003H 067e a2 00 00 mov CURRENCY,al 0681 89 ec mov sp,bp 0683 5d pop bp 0684 cb retf 0685 CURSOR: 0685 55 SCL_017 push bp 0686 89 e5 mov bp,sp 0688 c7 06 00 00 00 01 mov word ptr GLB_REGS,0100H 068e 8a 46 06 mov al,+6H[bp] 0691 30 e4 xor ah,ah 0693 8b d0 mov dx,ax 0695 8a 46 08 mov al,+8H[bp] 0698 30 e4 xor ah,ah 069a b9 08 00 mov cx,0008H 069d d3 e0 shl ax,cl 069f 03 c2 add ax,dx 06a1 a3 00 00 mov L578,ax 06a4 b0 10 mov al,10H 06a6 50 push ax 06a7 bf 00 00 mov di,offset GLB_REGS 06aa 1e push ds 06ab 57 push di 06ac 9a 00 00 00 00 call far DOS_001 06b1 89 ec mov sp,bp 06b3 5d pop bp 06b4 ca 04 00 retf 0004H 06b7 CURSOR_OFF: 06b7 55 SCL_018 push bp 06b8 89 e5 mov bp,sp 06ba b0 30 mov al,30H 06bc 50 push ax 06bd b0 00 mov al,00H 06bf 50 push ax 06c0 0e push cs 06c1 e8 00 00 call CURSOR 06c4 89 ec mov sp,bp 06c6 5d pop bp 06c7 cb retf 06c8 SET_EDIT_MODE: 06c8 55 SCL_01A push bp 06c9 89 e5 mov bp,sp 06cb 80 7e 06 00 cmp byte ptr +6H[bp],00H 06cf 74 24 je L20 06d1 c6 06 00 00 01 mov byte ptr EDITMODE,01H 06d6 80 3e 00 00 07 cmp byte ptr SCREEN_MODE,07H 06db 75 0c jne L18 06dd b0 00 mov al,00H 06df 50 push ax 06e0 b0 0d mov al,0dH 06e2 50 push ax 06e3 0e push cs 06e4 e8 00 00 call CURSOR 06e7 eb 0a jmp L19 06e9 b0 00 L18 mov al,00H 06eb 50 push ax 06ec b0 06 mov al,06H 06ee 50 push ax 06ef 0e push cs 06f0 e8 00 00 call CURSOR 06f3 eb 22 L19 jmp L22 06f5 c6 06 00 00 00 L20 mov byte ptr EDITMODE,00H 06fa 80 3e 00 00 07 cmp byte ptr SCREEN_MODE,07H 06ff 75 0c jne L21 0701 b0 0c mov al,0cH 0703 50 push ax 0704 b0 0d mov al,0dH 0706 50 push ax 0707 0e push cs 0708 e8 00 00 call CURSOR 070b eb 0a jmp L22 070d b0 05 L21 mov al,05H 070f 50 push ax 0710 b0 06 mov al,06H 0712 50 push ax 0713 0e push cs 0714 e8 00 00 call CURSOR 0717 89 ec L22 mov sp,bp 0719 5d pop bp 071a ca 02 00 retf 0002H 071d GET_SCREEN_MODE: 071d 55 SCL_015 push bp 071e 89 e5 mov bp,sp 0720 0e push cs 0721 e8 00 00 call SCL_01F 0724 a2 00 00 mov SCREEN_MODE,al 0727 0e push cs 0728 e8 00 00 call RESET_SCREEN_COLORS 072b 89 ec mov sp,bp 072d 5d pop bp 072e cb retf 072f SET_SCREEN_COLOR: 072f 55 SCL_020 push bp 0730 89 e5 mov bp,sp 0732 b8 d0 07 mov ax,07d0H 0735 50 push ax 0736 b0 01 mov al,01H 0738 50 push ax 0739 b0 01 mov al,01H 073b 50 push ax 073c 8a 46 06 mov al,+6H[bp] 073f 50 push ax 0740 0e push cs 0741 e8 00 00 call SCL_01D 0744 89 ec mov sp,bp 0746 5d pop bp 0747 ca 02 00 retf 0002H 074a SET_FIELD_COLOR: 074a 55 SCL_021 push bp 074b 89 e5 mov bp,sp 074d 83 ec 0c sub sp,000cH 0750 a1 00 00 mov ax,S_PTR 0753 ba 72 00 mov dx,0072H 0756 f7 e2 mul dx 0758 8b f8 mov di,ax 075a c4 bd 00 00 les di,dword ptr L584[di] 075e 89 7e f8 mov -8H[bp],di 0761 8c 46 fa mov -6H[bp],es 0764 8b 46 08 mov ax,+8H[bp] 0767 ba 30 00 mov dx,0030H 076a f7 e2 mul dx 076c c4 7e f8 les di,dword ptr -8H[bp] 076f 03 f8 add di,ax 0771 81 c7 f9 07 add di,07f9H 0775 89 7e f4 mov -0cH[bp],di 0778 8c 46 f6 mov -0aH[bp],es 077b c4 7e f4 les di,dword ptr -0cH[bp] 077e 26 8a 45 0e mov al,es:+0eH[di] 0782 30 e4 xor ah,ah 0784 03 06 00 00 add ax,YOFF 0788 89 46 fe mov -2H[bp],ax 078b c4 7e f4 les di,dword ptr -0cH[bp] 078e 26 8a 45 0d mov al,es:+0dH[di] 0792 30 e4 xor ah,ah 0794 03 06 00 00 add ax,XOFF 0798 89 46 fc mov -4H[bp],ax 079b c4 7e f4 les di,dword ptr -0cH[bp] 079e 26 8a 45 0f mov al,es:+0fH[di] 07a2 30 e4 xor ah,ah 07a4 50 push ax 07a5 8a 46 fc mov al,-4H[bp] 07a8 50 push ax 07a9 8a 46 fe mov al,-2H[bp] 07ac 50 push ax 07ad 8a 46 06 mov al,+6H[bp] 07b0 50 push ax 07b1 0e push cs 07b2 e8 00 00 call SCL_01D 07b5 89 ec mov sp,bp 07b7 5d pop bp 07b8 ca 04 00 retf 0004H 07bb FORMAT_NAME: 07bb 55 SCL_024 push bp 07bc 89 e5 mov bp,sp 07be 83 3e 00 00 00 cmp word ptr S_PTR,0000H 07c3 7e 24 jle L23 07c5 a1 00 00 mov ax,S_PTR 07c8 ba 72 00 mov dx,0072H 07cb f7 e2 mul dx 07cd 8b f8 mov di,ax 07cf c4 bd 00 00 les di,dword ptr L584[di] 07d3 81 c7 01 00 add di,0001H 07d7 06 push es 07d8 57 push di 07d9 c4 7e 06 les di,dword ptr +6H[bp] 07dc 06 push es 07dd 57 push di 07de b8 50 00 mov ax,0050H 07e1 50 push ax 07e2 9a 00 00 00 00 call far SYSTEM_00C 07e7 eb 07 jmp L24 07e9 c4 7e 06 L23 les di,dword ptr +6H[bp] 07ec 26 c6 05 00 mov byte ptr es:[di],00H 07f0 89 ec L24 mov sp,bp 07f2 5d pop bp 07f3 cb retf 07f4 GET_ATT: 07f4 55 SCL_025 push bp 07f5 89 e5 mov bp,sp 07f7 83 ec 03 sub sp,0003H 07fa 8a 46 06 mov al,+6H[bp] 07fd 30 e4 xor ah,ah 07ff 48 dec ax 0800 b9 50 00 mov cx,0050H 0803 f7 e9 imul cx 0805 d1 e0 shl ax,1 0807 8b d0 mov dx,ax 0809 8a 46 08 mov al,+8H[bp] 080c 30 e4 xor ah,ah 080e 48 dec ax 080f d1 e0 shl ax,1 0811 40 inc ax 0812 03 c2 add ax,dx 0814 89 46 fd mov -3H[bp],ax 0817 a1 00 00 mov ax,SCREENBASE 081a 50 push ax 081b 8b 7e fd mov di,-3H[bp] 081e 07 pop es 081f 26 8a 05 mov al,es:[di] 0822 88 46 ff mov -1H[bp],al 0825 8a 46 ff mov al,-1H[bp] 0828 89 ec mov sp,bp 082a 5d pop bp 082b ca 04 00 retf 0004H 082e 55 SCL_06C push bp 082f 89 e5 mov bp,sp 0831 83 ec 04 sub sp,0004H 0834 8a 46 04 mov al,+4H[bp] 0837 30 e4 xor ah,ah 0839 48 dec ax 083a b9 50 00 mov cx,0050H 083d f7 e9 imul cx 083f d1 e0 shl ax,1 0841 8b d0 mov dx,ax 0843 8a 46 06 mov al,+6H[bp] 0846 30 e4 xor ah,ah 0848 48 dec ax 0849 d1 e0 shl ax,1 084b 03 c2 add ax,dx 084d 89 46 fc mov -4H[bp],ax 0850 a1 00 00 mov ax,SCREENBASE 0853 50 push ax 0854 8b 7e fc mov di,-4H[bp] 0857 07 pop es 0858 26 8a 05 mov al,es:[di] 085b 30 e4 xor ah,ah 085d 89 46 fe mov -2H[bp],ax 0860 8b 46 fe mov ax,-2H[bp] 0863 89 ec mov sp,bp 0865 5d pop bp 0866 c2 04 00 ret 0004H 0869 PAINT_FORMAT_FRAME: 0869 55 SCL_026 push bp 086a 89 e5 mov bp,sp 086c 83 ec 12 sub sp,0012H 086f a1 00 00 mov ax,S_PTR 0872 ba 72 00 mov dx,0072H 0875 f7 e2 mul dx 0877 8b f8 mov di,ax 0879 c4 bd 00 00 les di,dword ptr L584[di] 087d 89 7e f0 mov -10H[bp],di 0880 8c 46 f2 mov -0eH[bp],es 0883 c4 7e f0 les di,dword ptr -10H[bp] 0886 26 80 7d 3a 50 cmp byte ptr es:+3aH[di],50H 088b 72 0d jb L25 088d c4 7e f0 les di,dword ptr -10H[bp] 0890 26 80 7d 3b 19 cmp byte ptr es:+3bH[di],19H 0895 72 03 jb L25 0897 e9 aa 00 jmp L28 089a a1 00 00 L25 mov ax,XOFF 089d 40 inc ax 089e 89 46 f8 mov -8H[bp],ax 08a1 c4 7e f0 les di,dword ptr -10H[bp] 08a4 26 8a 45 3a mov al,es:+3aH[di] 08a8 30 e4 xor ah,ah 08aa 03 06 00 00 add ax,XOFF 08ae 89 46 fa mov -6H[bp],ax 08b1 a1 00 00 mov ax,YOFF 08b4 40 inc ax 08b5 89 46 fc mov -4H[bp],ax 08b8 c4 7e f0 les di,dword ptr -10H[bp] 08bb 26 8a 45 3b mov al,es:+3bH[di] 08bf 30 e4 xor ah,ah 08c1 03 06 00 00 add ax,YOFF 08c5 89 46 fe mov -2H[bp],ax 08c8 c4 7e f0 les di,dword ptr -10H[bp] 08cb 26 8a 45 3a mov al,es:+3aH[di] 08cf 30 e4 xor ah,ah 08d1 50 push ax 08d2 8a 46 f8 mov al,-8H[bp] 08d5 50 push ax 08d6 8a 46 fc mov al,-4H[bp] 08d9 50 push ax 08da 8a 46 06 mov al,+6H[bp] 08dd 50 push ax 08de 0e push cs 08df e8 00 00 call SCL_01D 08e2 c4 7e f0 les di,dword ptr -10H[bp] 08e5 26 8a 45 3a mov al,es:+3aH[di] 08e9 30 e4 xor ah,ah 08eb 50 push ax 08ec 8a 46 f8 mov al,-8H[bp] 08ef 50 push ax 08f0 8a 46 fe mov al,-2H[bp] 08f3 50 push ax 08f4 8a 46 06 mov al,+6H[bp] 08f7 50 push ax 08f8 0e push cs 08f9 e8 00 00 call SCL_01D 08fc 8b 46 fe mov ax,-2H[bp] 08ff 48 dec ax 0900 89 46 ee mov -12H[bp],ax 0903 8b 46 fc mov ax,-4H[bp] 0906 40 inc ax 0907 3b 46 ee cmp ax,-12H[bp] 090a 7f 38 jg L28 090c 89 46 f6 mov -0aH[bp],ax 090f eb 03 jmp L27 0911 ff 46 f6 L26 inc word ptr -0aH[bp] 0914 b8 01 00 L27 mov ax,0001H 0917 50 push ax 0918 8a 46 f8 mov al,-8H[bp] 091b 50 push ax 091c 8a 46 f6 mov al,-0aH[bp] 091f 50 push ax 0920 8a 46 06 mov al,+6H[bp] 0923 50 push ax 0924 0e push cs 0925 e8 00 00 call SCL_01D 0928 b8 01 00 mov ax,0001H 092b 50 push ax 092c 8a 46 fa mov al,-6H[bp] 092f 50 push ax 0930 8a 46 f6 mov al,-0aH[bp] 0933 50 push ax 0934 8a 46 06 mov al,+6H[bp] 0937 50 push ax 0938 0e push cs 0939 e8 00 00 call SCL_01D 093c 8b 46 f6 mov ax,-0aH[bp] 093f 3b 46 ee cmp ax,-12H[bp] 0942 75 cd jne L26 0944 89 ec L28 mov sp,bp 0946 5d pop bp 0947 ca 02 00 retf 0002H 094a SET_MX: 094a 55 SCL_027 push bp 094b 89 e5 mov bp,sp 094d 8b 46 06 mov ax,+6H[bp] 0950 a3 00 00 mov MX,ax 0953 a1 00 00 mov ax,MX 0956 03 06 00 00 add ax,XOFF 095a 50 push ax 095b e8 00 00 call SCL_06B 095e 50 push ax 095f 9a 00 00 00 00 call far CRT_006 0964 89 ec mov sp,bp 0966 5d pop bp 0967 ca 02 00 retf 0002H 096a SET_MY: 096a 55 SCL_028 push bp 096b 89 e5 mov bp,sp 096d 8b 46 06 mov ax,+6H[bp] 0970 a3 00 00 mov MY,ax 0973 e8 00 00 call SCL_06A 0976 50 push ax 0977 a1 00 00 mov ax,MY 097a 03 06 00 00 add ax,YOFF 097e 50 push ax 097f 9a 00 00 00 00 call far CRT_006 0984 89 ec mov sp,bp 0986 5d pop bp 0987 ca 02 00 retf 0002H 098a EXIST: 098a 55 SCL_029 push bp 098b 89 e5 mov bp,sp 098d 81 ec d2 00 sub sp,00d2H 0991 c4 7e 06 les di,dword ptr +6H[bp] 0994 06 push es 0995 57 push di 0996 8d 7e ae lea di,-52H[bp] 0999 16 push ss 099a 57 push di 099b b8 50 00 mov ax,0050H 099e 50 push ax 099f 9a 00 00 00 00 call far SYSTEM_00C 09a4 8d be 2e ff lea di,-0d2H[bp] 09a8 16 push ss 09a9 57 push di 09aa 8d 7e ae lea di,-52H[bp] 09ad 16 push ss 09ae 57 push di 09af 9a 00 00 00 00 call far SYSTEM_049 09b4 8d be 2e ff lea di,-0d2H[bp] 09b8 16 push ss 09b9 57 push di 09ba b8 80 00 mov ax,0080H 09bd 50 push ax 09be 9a 00 00 00 00 call far SYSTEM_04A 09c3 9a 00 00 00 00 call far SYSTEM_031 09c8 09 c0 or ax,ax 09ca 75 16 jne L29 09cc 8d be 2e ff lea di,-0d2H[bp] 09d0 16 push ss 09d1 57 push di 09d2 9a 00 00 00 00 call far SYSTEM_04C 09d7 9a 00 00 00 00 call far SYSTEM_032 09dc c6 46 ff 01 mov byte ptr -1H[bp],01H 09e0 eb 04 jmp L30 09e2 c6 46 ff 00 L29 mov byte ptr -1H[bp],00H 09e6 8a 46 ff L30 mov al,-1H[bp] 09e9 89 ec mov sp,bp 09eb 5d pop bp 09ec ca 04 00 retf 0004H 09ef DATE_STRING: 09ef 55 SCL_02A push bp 09f0 89 e5 mov bp,sp 09f2 81 ec 16 03 sub sp,0316H 09f6 8b 46 0a mov ax,+0aH[bp] 09f9 31 d2 xor dx,dx 09fb b9 64 00 mov cx,0064H 09fe f7 f1 div cx 0a00 92 xchg ax,dx 0a01 89 46 0a mov +0aH[bp],ax 0a04 8b 46 0a mov ax,+0aH[bp] 0a07 31 d2 xor dx,dx 0a09 52 push dx 0a0a 50 push ax 0a0b b8 02 00 mov ax,0002H 0a0e 50 push ax 0a0f 8d 7e f7 lea di,-9H[bp] 0a12 16 push ss 0a13 57 push di 0a14 b8 02 00 mov ax,0002H 0a17 50 push ax 0a18 9a 00 00 00 00 call far SYSTEM_061 0a1d 8b 46 08 mov ax,+8H[bp] 0a20 31 d2 xor dx,dx 0a22 52 push dx 0a23 50 push ax 0a24 b8 02 00 mov ax,0002H 0a27 50 push ax 0a28 8d 7e fa lea di,-6H[bp] 0a2b 16 push ss 0a2c 57 push di 0a2d b8 02 00 mov ax,0002H 0a30 50 push ax 0a31 9a 00 00 00 00 call far SYSTEM_061 0a36 8b 46 06 mov ax,+6H[bp] 0a39 31 d2 xor dx,dx 0a3b 52 push dx 0a3c 50 push ax 0a3d b8 02 00 mov ax,0002H 0a40 50 push ax 0a41 8d 7e fd lea di,-3H[bp] 0a44 16 push ss 0a45 57 push di 0a46 b8 02 00 mov ax,0002H 0a49 50 push ax 0a4a 9a 00 00 00 00 call far SYSTEM_061 0a4f 83 3e 00 00 00 cmp word ptr DATE_FORMAT,0000H 0a54 75 5c jne L31 0a56 8d be ea fd lea di,-216H[bp] 0a5a 16 push ss 0a5b 57 push di 0a5c 8d 7e fa lea di,-6H[bp] 0a5f 16 push ss 0a60 57 push di 0a61 9a 00 00 00 00 call far SYSTEM_00B 0a66 8d be ea fe lea di,-116H[bp] 0a6a 16 push ss 0a6b 57 push di 0a6c a0 00 00 mov al,DATE_SEPARATOR 0a6f 50 push ax 0a70 9a 00 00 00 00 call far SYSTEM_012 0a75 9a 00 00 00 00 call far SYSTEM_00F 0a7a 8d 7e fd lea di,-3H[bp] 0a7d 16 push ss 0a7e 57 push di 0a7f 9a 00 00 00 00 call far SYSTEM_00F 0a84 8d be ea fc lea di,-316H[bp] 0a88 16 push ss 0a89 57 push di 0a8a a0 00 00 mov al,DATE_SEPARATOR 0a8d 50 push ax 0a8e 9a 00 00 00 00 call far SYSTEM_012 0a93 9a 00 00 00 00 call far SYSTEM_00F 0a98 8d 7e f7 lea di,-9H[bp] 0a9b 16 push ss 0a9c 57 push di 0a9d 9a 00 00 00 00 call far SYSTEM_00F 0aa2 8d 7e ec lea di,-14H[bp] 0aa5 16 push ss 0aa6 57 push di 0aa7 b8 0a 00 mov ax,000aH 0aaa 50 push ax 0aab 9a 00 00 00 00 call far SYSTEM_00C 0ab0 eb 5a jmp L32 0ab2 8d be ea fd L31 lea di,-216H[bp] 0ab6 16 push ss 0ab7 57 push di 0ab8 8d 7e fd lea di,-3H[bp] 0abb 16 push ss 0abc 57 push di 0abd 9a 00 00 00 00 call far SYSTEM_00B 0ac2 8d be ea fe lea di,-116H[bp] 0ac6 16 push ss 0ac7 57 push di 0ac8 a0 00 00 mov al,DATE_SEPARATOR 0acb 50 push ax 0acc 9a 00 00 00 00 call far SYSTEM_012 0ad1 9a 00 00 00 00 call far SYSTEM_00F 0ad6 8d 7e fa lea di,-6H[bp] 0ad9 16 push ss 0ada 57 push di 0adb 9a 00 00 00 00 call far SYSTEM_00F 0ae0 8d be ea fc lea di,-316H[bp] 0ae4 16 push ss 0ae5 57 push di 0ae6 a0 00 00 mov al,DATE_SEPARATOR 0ae9 50 push ax 0aea 9a 00 00 00 00 call far SYSTEM_012 0aef 9a 00 00 00 00 call far SYSTEM_00F 0af4 8d 7e f7 lea di,-9H[bp] 0af7 16 push ss 0af8 57 push di 0af9 9a 00 00 00 00 call far SYSTEM_00F 0afe 8d 7e ec lea di,-14H[bp] 0b01 16 push ss 0b02 57 push di 0b03 b8 0a 00 mov ax,000aH 0b06 50 push ax 0b07 9a 00 00 00 00 call far SYSTEM_00C 0b0c 8a 46 ec L32 mov al,-14H[bp] 0b0f 30 e4 xor ah,ah 0b11 89 46 e8 mov -18H[bp],ax 0b14 b8 01 00 mov ax,0001H 0b17 3b 46 e8 cmp ax,-18H[bp] 0b1a 7f 23 jg L36 0b1c 89 46 ea mov -16H[bp],ax 0b1f eb 03 jmp L34 0b21 ff 46 ea L33 inc word ptr -16H[bp] 0b24 8b 7e ea L34 mov di,-16H[bp] 0b27 8a 43 ec mov al,-14H[bp+di] 0b2a 3a 06 00 00 cmp al,SPACE 0b2e 75 07 jne L35 0b30 8b 7e ea mov di,-16H[bp] 0b33 c6 43 ec 30 mov byte ptr -14H[bp+di],30H 0b37 8b 46 ea L35 mov ax,-16H[bp] 0b3a 3b 46 e8 cmp ax,-18H[bp] 0b3d 75 e2 jne L33 0b3f 8d 7e ec L36 lea di,-14H[bp] 0b42 16 push ss 0b43 57 push di 0b44 c4 7e 0c les di,dword ptr +0cH[bp] 0b47 06 push es 0b48 57 push di 0b49 b8 0a 00 mov ax,000aH 0b4c 50 push ax 0b4d 9a 00 00 00 00 call far SYSTEM_00C 0b52 89 ec mov sp,bp 0b54 5d pop bp 0b55 ca 06 00 retf 0006H 0b58 TIME_STRING: 0b58 55 SCL_02B push bp 0b59 89 e5 mov bp,sp 0b5b 81 ec 16 03 sub sp,0316H 0b5f 8b 46 0a mov ax,+0aH[bp] 0b62 31 d2 xor dx,dx 0b64 52 push dx 0b65 50 push ax 0b66 b8 02 00 mov ax,0002H 0b69 50 push ax 0b6a 8d 7e f7 lea di,-9H[bp] 0b6d 16 push ss 0b6e 57 push di 0b6f b8 02 00 mov ax,0002H 0b72 50 push ax 0b73 9a 00 00 00 00 call far SYSTEM_061 0b78 8b 46 08 mov ax,+8H[bp] 0b7b 31 d2 xor dx,dx 0b7d 52 push dx 0b7e 50 push ax 0b7f b8 02 00 mov ax,0002H 0b82 50 push ax 0b83 8d 7e fa lea di,-6H[bp] 0b86 16 push ss 0b87 57 push di 0b88 b8 02 00 mov ax,0002H 0b8b 50 push ax 0b8c 9a 00 00 00 00 call far SYSTEM_061 0b91 8b 46 06 mov ax,+6H[bp] 0b94 31 d2 xor dx,dx 0b96 52 push dx 0b97 50 push ax 0b98 b8 02 00 mov ax,0002H 0b9b 50 push ax 0b9c 8d 7e fd lea di,-3H[bp] 0b9f 16 push ss 0ba0 57 push di 0ba1 b8 02 00 mov ax,0002H 0ba4 50 push ax 0ba5 9a 00 00 00 00 call far SYSTEM_061 0baa 8d be ea fd lea di,-216H[bp] 0bae 16 push ss 0baf 57 push di 0bb0 8d 7e f7 lea di,-9H[bp] 0bb3 16 push ss 0bb4 57 push di 0bb5 9a 00 00 00 00 call far SYSTEM_00B 0bba 8d be ea fe lea di,-116H[bp] 0bbe 16 push ss 0bbf 57 push di 0bc0 a0 00 00 mov al,TIME_SEPARATOR 0bc3 50 push ax 0bc4 9a 00 00 00 00 call far SYSTEM_012 0bc9 9a 00 00 00 00 call far SYSTEM_00F 0bce 8d 7e fa lea di,-6H[bp] 0bd1 16 push ss 0bd2 57 push di 0bd3 9a 00 00 00 00 call far SYSTEM_00F 0bd8 8d be ea fc lea di,-316H[bp] 0bdc 16 push ss 0bdd 57 push di 0bde a0 00 00 mov al,TIME_SEPARATOR 0be1 50 push ax 0be2 9a 00 00 00 00 call far SYSTEM_012 0be7 9a 00 00 00 00 call far SYSTEM_00F 0bec 8d 7e fd lea di,-3H[bp] 0bef 16 push ss 0bf0 57 push di 0bf1 9a 00 00 00 00 call far SYSTEM_00F 0bf6 8d 7e ec lea di,-14H[bp] 0bf9 16 push ss 0bfa 57 push di 0bfb b8 0a 00 mov ax,000aH 0bfe 50 push ax 0bff 9a 00 00 00 00 call far SYSTEM_00C 0c04 8a 46 ec mov al,-14H[bp] 0c07 30 e4 xor ah,ah 0c09 89 46 e8 mov -18H[bp],ax 0c0c b8 01 00 mov ax,0001H 0c0f 3b 46 e8 cmp ax,-18H[bp] 0c12 7f 23 jg L40 0c14 89 46 ea mov -16H[bp],ax 0c17 eb 03 jmp L38 0c19 ff 46 ea L37 inc word ptr -16H[bp] 0c1c 8b 7e ea L38 mov di,-16H[bp] 0c1f 8a 43 ec mov al,-14H[bp+di] 0c22 3a 06 00 00 cmp al,SPACE 0c26 75 07 jne L39 0c28 8b 7e ea mov di,-16H[bp] 0c2b c6 43 ec 30 mov byte ptr -14H[bp+di],30H 0c2f 8b 46 ea L39 mov ax,-16H[bp] 0c32 3b 46 e8 cmp ax,-18H[bp] 0c35 75 e2 jne L37 0c37 8d 7e ec L40 lea di,-14H[bp] 0c3a 16 push ss 0c3b 57 push di 0c3c c4 7e 0c les di,dword ptr +0cH[bp] 0c3f 06 push es 0c40 57 push di 0c41 b8 0a 00 mov ax,000aH 0c44 50 push ax 0c45 9a 00 00 00 00 call far SYSTEM_00C 0c4a 89 ec mov sp,bp 0c4c 5d pop bp 0c4d ca 06 00 retf 0006H 0c50 55 SCL_06D push bp 0c51 89 e5 mov bp,sp 0c53 83 ec 2b sub sp,002bH 0c56 c4 7e 0c les di,dword ptr +0cH[bp] 0c59 06 push es 0c5a 57 push di 0c5b 8d 7e f5 lea di,-0bH[bp] 0c5e 16 push ss 0c5f 57 push di 0c60 b8 0a 00 mov ax,000aH 0c63 50 push ax 0c64 9a 00 00 00 00 call far SYSTEM_00C 0c69 c4 7e 04 les di,dword ptr +4H[bp] 0c6c 31 c0 xor ax,ax 0c6e 26 89 05 mov es:[di],ax 0c71 c4 7e 08 L41 les di,dword ptr +8H[bp] 0c74 26 8b 3d mov di,es:[di] 0c77 8a 43 f5 mov al,-0bH[bp+di] 0c7a 50 push ax 0c7b 8d 7e d5 lea di,-2bH[bp] 0c7e 16 push ss 0c7f 57 push di 0c80 9a 00 00 00 00 call far SYSTEM_028 0c85 b0 30 mov al,30H 0c87 50 push ax 0c88 b0 39 mov al,39H 0c8a 50 push ax 0c8b 9a 00 00 00 00 call far SYSTEM_02A 0c90 9a 00 00 00 00 call far SYSTEM_018 0c95 75 1c jne L42 0c97 8a 46 f5 mov al,-0bH[bp] 0c9a 30 e4 xor ah,ah 0c9c c4 7e 08 les di,dword ptr +8H[bp] 0c9f 26 3b 05 cmp ax,es:[di] 0ca2 72 0f jb L42 0ca4 c4 7e 08 les di,dword ptr +8H[bp] 0ca7 26 8b 05 mov ax,es:[di] 0caa 40 inc ax 0cab c4 7e 08 les di,dword ptr +8H[bp] 0cae 26 89 05 mov es:[di],ax 0cb1 eb be jmp L41 0cb3 c4 7e 08 L42 les di,dword ptr +8H[bp] 0cb6 26 8b 3d mov di,es:[di] 0cb9 8a 43 f5 mov al,-0bH[bp+di] 0cbc 50 push ax 0cbd 8d 7e d5 lea di,-2bH[bp] 0cc0 16 push ss 0cc1 57 push di 0cc2 9a 00 00 00 00 call far SYSTEM_028 0cc7 b0 30 mov al,30H 0cc9 50 push ax 0cca b0 39 mov al,39H 0ccc 50 push ax 0ccd 9a 00 00 00 00 call far SYSTEM_02A 0cd2 9a 00 00 00 00 call far SYSTEM_018 0cd7 74 3f je L43 0cd9 8a 46 f5 mov al,-0bH[bp] 0cdc 30 e4 xor ah,ah 0cde c4 7e 08 les di,dword ptr +8H[bp] 0ce1 26 3b 05 cmp ax,es:[di] 0ce4 72 32 jb L43 0ce6 c4 7e 08 les di,dword ptr +8H[bp] 0ce9 26 8b 3d mov di,es:[di] 0cec 8a 43 f5 mov al,-0bH[bp+di] 0cef 30 e4 xor ah,ah 0cf1 2d 30 00 sub ax,0030H 0cf4 8b d8 mov bx,ax 0cf6 c4 7e 04 les di,dword ptr +4H[bp] 0cf9 26 8b 05 mov ax,es:[di] 0cfc b9 0a 00 mov cx,000aH 0cff f7 e1 mul cx 0d01 03 c3 add ax,bx 0d03 c4 7e 04 les di,dword ptr +4H[bp] 0d06 26 89 05 mov es:[di],ax 0d09 c4 7e 08 les di,dword ptr +8H[bp] 0d0c 26 8b 05 mov ax,es:[di] 0d0f 40 inc ax 0d10 c4 7e 08 les di,dword ptr +8H[bp] 0d13 26 89 05 mov es:[di],ax 0d16 eb 9b jmp L42 0d18 89 ec L43 mov sp,bp 0d1a 5d pop bp 0d1b c2 0c 00 ret 000cH 0d1e CHECK_TIME: 0d1e 55 SCL_02C push bp 0d1f 89 e5 mov bp,sp 0d21 83 ec 02 sub sp,0002H 0d24 c7 46 fe 01 00 mov word ptr -2H[bp],0001H 0d29 c4 7e 12 les di,dword ptr +12H[bp] 0d2c 06 push es 0d2d 57 push di 0d2e 8d 7e fe lea di,-2H[bp] 0d31 16 push ss 0d32 57 push di 0d33 c4 7e 0e les di,dword ptr +0eH[bp] 0d36 06 push es 0d37 57 push di 0d38 e8 00 00 call SCL_06D 0d3b c4 7e 12 les di,dword ptr +12H[bp] 0d3e 06 push es 0d3f 57 push di 0d40 8d 7e fe lea di,-2H[bp] 0d43 16 push ss 0d44 57 push di 0d45 c4 7e 0a les di,dword ptr +0aH[bp] 0d48 06 push es 0d49 57 push di 0d4a e8 00 00 call SCL_06D 0d4d c4 7e 12 les di,dword ptr +12H[bp] 0d50 06 push es 0d51 57 push di 0d52 8d 7e fe lea di,-2H[bp] 0d55 16 push ss 0d56 57 push di 0d57 c4 7e 06 les di,dword ptr +6H[bp] 0d5a 06 push es 0d5b 57 push di 0d5c e8 00 00 call SCL_06D 0d5f c4 7e 0e les di,dword ptr +0eH[bp] 0d62 26 83 3d 17 cmp word ptr es:[di],0017H 0d66 77 2d ja L44 0d68 c4 7e 0e les di,dword ptr +0eH[bp] 0d6b 26 83 3d 00 cmp word ptr es:[di],0000H 0d6f 72 24 jb L44 0d71 c4 7e 0a les di,dword ptr +0aH[bp] 0d74 26 83 3d 3b cmp word ptr es:[di],003bH 0d78 77 1b ja L44 0d7a c4 7e 0a les di,dword ptr +0aH[bp] 0d7d 26 83 3d 00 cmp word ptr es:[di],0000H 0d81 72 12 jb L44 0d83 c4 7e 06 les di,dword ptr +6H[bp] 0d86 26 83 3d 3b cmp word ptr es:[di],003bH 0d8a 77 09 ja L44 0d8c c4 7e 06 les di,dword ptr +6H[bp] 0d8f 26 83 3d 00 cmp word ptr es:[di],0000H 0d93 73 07 jae L45 0d95 c6 06 00 00 00 L44 mov byte ptr GLB_OK,00H 0d9a eb 05 jmp L46 0d9c c6 06 00 00 01 L45 mov byte ptr GLB_OK,01H 0da1 89 ec L46 mov sp,bp 0da3 5d pop bp 0da4 ca 10 00 retf 0010H 0da7 CHECK_DATE: 0da7 55 SCL_02D push bp 0da8 89 e5 mov bp,sp 0daa 83 ec 24 sub sp,0024H 0dad c7 46 fc 01 00 mov word ptr -4H[bp],0001H 0db2 83 3e 00 00 00 cmp word ptr DATE_FORMAT,0000H 0db7 75 26 jne L47 0db9 c4 7e 12 les di,dword ptr +12H[bp] 0dbc 06 push es 0dbd 57 push di 0dbe 8d 7e fc lea di,-4H[bp] 0dc1 16 push ss 0dc2 57 push di 0dc3 c4 7e 0a les di,dword ptr +0aH[bp] 0dc6 06 push es 0dc7 57 push di 0dc8 e8 00 00 call SCL_06D 0dcb c4 7e 12 les di,dword ptr +12H[bp] 0dce 06 push es 0dcf 57 push di 0dd0 8d 7e fc lea di,-4H[bp] 0dd3 16 push ss 0dd4 57 push di 0dd5 c4 7e 06 les di,dword ptr +6H[bp] 0dd8 06 push es 0dd9 57 push di 0dda e8 00 00 call SCL_06D 0ddd eb 24 jmp L48 0ddf c4 7e 12 L47 les di,dword ptr +12H[bp] 0de2 06 push es 0de3 57 push di 0de4 8d 7e fc lea di,-4H[bp] 0de7 16 push ss 0de8 57 push di 0de9 c4 7e 06 les di,dword ptr +6H[bp] 0dec 06 push es 0ded 57 push di 0dee e8 00 00 call SCL_06D 0df1 c4 7e 12 les di,dword ptr +12H[bp] 0df4 06 push es 0df5 57 push di 0df6 8d 7e fc lea di,-4H[bp] 0df9 16 push ss 0dfa 57 push di 0dfb c4 7e 0a les di,dword ptr +0aH[bp] 0dfe 06 push es 0dff 57 push di 0e00 e8 00 00 call SCL_06D 0e03 c4 7e 12 L48 les di,dword ptr +12H[bp] 0e06 06 push es 0e07 57 push di 0e08 8d 7e fc lea di,-4H[bp] 0e0b 16 push ss 0e0c 57 push di 0e0d c4 7e 0e les di,dword ptr +0eH[bp] 0e10 06 push es 0e11 57 push di 0e12 e8 00 00 call SCL_06D 0e15 c4 7e 0e les di,dword ptr +0eH[bp] 0e18 26 83 3d 64 cmp word ptr es:[di],0064H 0e1c 73 0f jae L49 0e1e c4 7e 0e les di,dword ptr +0eH[bp] 0e21 26 8b 05 mov ax,es:[di] 0e24 05 6c 07 add ax,076cH 0e27 c4 7e 0e les di,dword ptr +0eH[bp] 0e2a 26 89 05 mov es:[di],ax 0e2d c6 06 00 00 01 L49 mov byte ptr GLB_OK,01H 0e32 c4 7e 0a les di,dword ptr +0aH[bp] 0e35 26 83 3d 0c cmp word ptr es:[di],000cH 0e39 77 1b ja L50 0e3b c4 7e 0a les di,dword ptr +0aH[bp] 0e3e 26 83 3d 01 cmp word ptr es:[di],0001H 0e42 72 12 jb L50 0e44 c4 7e 06 les di,dword ptr +6H[bp] 0e47 26 83 3d 1f cmp word ptr es:[di],001fH 0e4b 77 09 ja L50 0e4d c4 7e 06 les di,dword ptr +6H[bp] 0e50 26 83 3d 01 cmp word ptr es:[di],0001H 0e54 73 05 jae L51 0e56 c6 06 00 00 00 L50 mov byte ptr GLB_OK,00H 0e5b 80 3e 00 00 00 L51 cmp byte ptr GLB_OK,00H 0e60 74 7b je L56 0e62 c4 7e 0e les di,dword ptr +0eH[bp] 0e65 26 8b 05 mov ax,es:[di] 0e68 31 d2 xor dx,dx 0e6a b9 04 00 mov cx,0004H 0e6d f7 f1 div cx 0e6f 92 xchg ax,dx 0e70 09 c0 or ax,ax 0e72 75 07 jne L52 0e74 c7 46 fe 01 00 mov word ptr -2H[bp],0001H 0e79 eb 05 jmp L53 0e7b 31 c0 L52 xor ax,ax 0e7d 89 46 fe mov -2H[bp],ax 0e80 c4 7e 0a L53 les di,dword ptr +0aH[bp] 0e83 26 83 3d 02 cmp word ptr es:[di],0002H 0e87 75 0e jne L54 0e89 8b 46 fe mov ax,-2H[bp] 0e8c 05 1c 00 add ax,001cH 0e8f c4 7e 06 les di,dword ptr +6H[bp] 0e92 26 3b 05 cmp ax,es:[di] 0e95 72 41 jb L55 0e97 c4 7e 0a L54 les di,dword ptr +0aH[bp] 0e9a 26 8a 05 mov al,es:[di] 0e9d 50 push ax 0e9e 8d 7e dc lea di,-24H[bp] 0ea1 16 push ss 0ea2 57 push di 0ea3 9a 00 00 00 00 call far SYSTEM_028 0ea8 b0 04 mov al,04H 0eaa 50 push ax 0eab 9a 00 00 00 00 call far SYSTEM_029 0eb0 b0 06 mov al,06H 0eb2 50 push ax 0eb3 9a 00 00 00 00 call far SYSTEM_029 0eb8 b0 09 mov al,09H 0eba 50 push ax 0ebb 9a 00 00 00 00 call far SYSTEM_029 0ec0 b0 0b mov al,0bH 0ec2 50 push ax 0ec3 9a 00 00 00 00 call far SYSTEM_029 0ec8 9a 00 00 00 00 call far SYSTEM_018 0ecd 74 0e je L56 0ecf c4 7e 06 les di,dword ptr +6H[bp] 0ed2 26 83 3d 1e cmp word ptr es:[di],001eH 0ed6 76 05 jbe L56 0ed8 c6 06 00 00 00 L55 mov byte ptr GLB_OK,00H 0edd 89 ec L56 mov sp,bp 0edf 5d pop bp 0ee0 ca 10 00 retf 0010H 0ee3 WEEKDAY: 0ee3 55 SCL_02E push bp 0ee4 89 e5 mov bp,sp 0ee6 83 ec 06 sub sp,0006H 0ee9 83 7e 0a 64 cmp word ptr +0aH[bp],0064H 0eed 73 09 jae L57 0eef 8b 46 0a mov ax,+0aH[bp] 0ef2 05 6c 07 add ax,076cH 0ef5 89 46 0a mov +0aH[bp],ax 0ef8 83 7e 08 03 L57 cmp word ptr +8H[bp],0003H 0efc 73 12 jae L58 0efe 8b 46 08 mov ax,+8H[bp] 0f01 05 0a 00 add ax,000aH 0f04 89 46 08 mov +8H[bp],ax 0f07 8b 46 0a mov ax,+0aH[bp] 0f0a 48 dec ax 0f0b 89 46 0a mov +0aH[bp],ax 0f0e eb 09 jmp L59 0f10 8b 46 08 L58 mov ax,+8H[bp] 0f13 2d 02 00 sub ax,0002H 0f16 89 46 08 mov +8H[bp],ax 0f19 8b 46 0a L59 mov ax,+0aH[bp] 0f1c 31 d2 xor dx,dx 0f1e b9 64 00 mov cx,0064H 0f21 f7 f1 div cx 0f23 89 46 fc mov -4H[bp],ax 0f26 8b 46 0a mov ax,+0aH[bp] 0f29 31 d2 xor dx,dx 0f2b b9 64 00 mov cx,0064H 0f2e f7 f1 div cx 0f30 92 xchg ax,dx 0f31 89 46 0a mov +0aH[bp],ax 0f34 8b 46 fc mov ax,-4H[bp] 0f37 d1 e0 shl ax,1 0f39 8b d8 mov bx,ax 0f3b 8b 46 fc mov ax,-4H[bp] 0f3e 31 d2 xor dx,dx 0f40 b9 04 00 mov cx,0004H 0f43 f7 f1 div cx 0f45 2b c3 sub ax,bx 0f47 40 inc ax 0f48 8b d8 mov bx,ax 0f4a 8b 46 0a mov ax,+0aH[bp] 0f4d b9 05 00 mov cx,0005H 0f50 f7 e1 mul cx 0f52 31 d2 xor dx,dx 0f54 b9 04 00 mov cx,0004H 0f57 f7 f1 div cx 0f59 03 c3 add ax,bx 0f5b 8b d8 mov bx,ax 0f5d 8b 46 08 mov ax,+8H[bp] 0f60 b9 0d 00 mov cx,000dH 0f63 f7 e1 mul cx 0f65 48 dec ax 0f66 31 d2 xor dx,dx 0f68 b9 05 00 mov cx,0005H 0f6b f7 f1 div cx 0f6d 03 c3 add ax,bx 0f6f 03 46 06 add ax,+6H[bp] 0f72 48 dec ax 0f73 31 d2 xor dx,dx 0f75 b9 07 00 mov cx,0007H 0f78 f7 f1 div cx 0f7a 92 xchg ax,dx 0f7b 89 46 fa mov -6H[bp],ax 0f7e 83 7e fa 00 cmp word ptr -6H[bp],0000H 0f82 73 09 jae L60 0f84 8b 46 fa mov ax,-6H[bp] 0f87 05 07 00 add ax,0007H 0f8a 89 46 fa mov -6H[bp],ax 0f8d 8b 46 fa L60 mov ax,-6H[bp] 0f90 89 46 fe mov -2H[bp],ax 0f93 8b 46 fe mov ax,-2H[bp] 0f96 89 ec mov sp,bp 0f98 5d pop bp 0f99 ca 06 00 retf 0006H 0f9c JULIAN_DATE: 0f9c 55 SCL_02F push bp 0f9d 89 e5 mov bp,sp 0f9f 83 ec 0c sub sp,000cH 0fa2 c4 7e 0e les di,dword ptr +0eH[bp] 0fa5 26 83 3d 64 cmp word ptr es:[di],0064H 0fa9 73 0f jae L61 0fab c4 7e 0e les di,dword ptr +0eH[bp] 0fae 26 8b 05 mov ax,es:[di] 0fb1 05 6c 07 add ax,076cH 0fb4 c4 7e 0e les di,dword ptr +0eH[bp] 0fb7 26 89 05 mov es:[di],ax 0fba c4 7e 06 L61 les di,dword ptr +6H[bp] 0fbd 26 8b 05 mov ax,es:[di] 0fc0 31 d2 xor dx,dx 0fc2 9a 00 00 00 00 call far SYSTEM_073 0fc7 52 push dx 0fc8 53 push bx 0fc9 50 push ax 0fca c4 7e 0a les di,dword ptr +0aH[bp] 0fcd 26 8b 05 mov ax,es:[di] 0fd0 31 d2 xor dx,dx 0fd2 9a 00 00 00 00 call far SYSTEM_073 0fd7 b9 85 f5 mov cx,0f585H 0fda be 28 5c mov si,5c28H 0fdd bf 8f 74 mov di,748fH 0fe0 9a 00 00 00 00 call far SYSTEM_070 0fe5 9a 00 00 00 00 call far SYSTEM_07B 0fea 52 push dx 0feb 53 push bx 0fec 50 push ax 0fed c4 7e 0e les di,dword ptr +0eH[bp] 0ff0 26 8b 05 mov ax,es:[di] 0ff3 31 d2 xor dx,dx 0ff5 9a 00 00 00 00 call far SYSTEM_073 0ffa b9 89 00 mov cx,0089H 0ffd 31 f6 xor si,si 0fff bf a0 36 mov di,36a0H 1002 9a 00 00 00 00 call far SYSTEM_070 1007 b9 89 00 mov cx,0089H 100a 31 f6 xor si,si 100c bf a0 45 mov di,45a0H 100f 9a 00 00 00 00 call far SYSTEM_06F 1014 9a 00 00 00 00 call far SYSTEM_07B 1019 59 pop cx 101a 5e pop si 101b 5f pop di 101c 9a 00 00 00 00 call far SYSTEM_06E 1021 59 pop cx 1022 5e pop si 1023 5f pop di 1024 9a 00 00 00 00 call far SYSTEM_06E 1029 89 46 f4 mov -0cH[bp],ax 102c 89 5e f6 mov -0aH[bp],bx 102f 89 56 f8 mov -8H[bp],dx 1032 c4 7e 0a les di,dword ptr +0aH[bp] 1035 26 83 3d 02 cmp word ptr es:[di],0002H 1039 77 03 ja L62 103b e9 80 00 jmp L63 103e 8b 46 f4 L62 mov ax,-0cH[bp] 1041 8b 5e f6 mov bx,-0aH[bp] 1044 8b 56 f8 mov dx,-8H[bp] 1047 b9 81 00 mov cx,0081H 104a 31 f6 xor si,si 104c 31 ff xor di,di 104e 9a 00 00 00 00 call far SYSTEM_06F 1053 89 46 f4 mov -0cH[bp],ax 1056 89 5e f6 mov -0aH[bp],bx 1059 89 56 f8 mov -8H[bp],dx 105c c4 7e 0e les di,dword ptr +0eH[bp] 105f 26 8b 05 mov ax,es:[di] 1062 31 d2 xor dx,dx 1064 9a 00 00 00 00 call far SYSTEM_073 1069 b9 83 00 mov cx,0083H 106c 31 f6 xor si,si 106e 31 ff xor di,di 1070 9a 00 00 00 00 call far SYSTEM_071 1075 52 push dx 1076 53 push bx 1077 50 push ax 1078 c4 7e 0e les di,dword ptr +0eH[bp] 107b 26 8b 05 mov ax,es:[di] 107e 31 d2 xor dx,dx 1080 9a 00 00 00 00 call far SYSTEM_073 1085 b9 83 00 mov cx,0083H 1088 31 f6 xor si,si 108a 31 ff xor di,di 108c 9a 00 00 00 00 call far SYSTEM_071 1091 9a 00 00 00 00 call far SYSTEM_07B 1096 59 pop cx 1097 5e pop si 1098 5f pop di 1099 9a 00 00 00 00 call far SYSTEM_072 109e 74 1e je L63 10a0 8b 46 f4 mov ax,-0cH[bp] 10a3 8b 5e f6 mov bx,-0aH[bp] 10a6 8b 56 f8 mov dx,-8H[bp] 10a9 b9 81 00 mov cx,0081H 10ac 31 f6 xor si,si 10ae 31 ff xor di,di 10b0 9a 00 00 00 00 call far SYSTEM_06F 10b5 89 46 f4 mov -0cH[bp],ax 10b8 89 5e f6 mov -0aH[bp],bx 10bb 89 56 f8 mov -8H[bp],dx 10be 8b 46 f4 L63 mov ax,-0cH[bp] 10c1 8b 5e f6 mov bx,-0aH[bp] 10c4 8b 56 f8 mov dx,-8H[bp] 10c7 89 46 fa mov -6H[bp],ax 10ca 89 5e fc mov -4H[bp],bx 10cd 89 56 fe mov -2H[bp],dx 10d0 8b 46 fa mov ax,-6H[bp] 10d3 8b 5e fc mov bx,-4H[bp] 10d6 8b 56 fe mov dx,-2H[bp] 10d9 89 ec mov sp,bp 10db 5d pop bp 10dc ca 0c 00 retf 000cH 10df NORMAL_DATE: 10df 55 SCL_030 push bp 10e0 89 e5 mov bp,sp 10e2 83 ec 14 sub sp,0014H 10e5 8b 46 12 mov ax,+12H[bp] 10e8 8b 5e 14 mov bx,+14H[bp] 10eb 8b 56 16 mov dx,+16H[bp] 10ee b9 89 14 mov cx,1489H 10f1 be ae 47 mov si,47aeH 10f4 bf a1 36 mov di,36a1H 10f7 9a 00 00 00 00 call far SYSTEM_071 10fc 9a 00 00 00 00 call far SYSTEM_07B 1101 b9 81 00 mov cx,0081H 1104 31 f6 xor si,si 1106 31 ff xor di,di 1108 9a 00 00 00 00 call far SYSTEM_06E 110d 89 46 ee mov -12H[bp],ax 1110 89 5e f0 mov -10H[bp],bx 1113 89 56 f2 mov -0eH[bp],dx 1116 b8 89 00 mov ax,0089H 1119 31 db xor bx,bx 111b ba a0 36 mov dx,36a0H 111e 8b 4e ee mov cx,-12H[bp] 1121 8b 76 f0 mov si,-10H[bp] 1124 8b 7e f2 mov di,-0eH[bp] 1127 9a 00 00 00 00 call far SYSTEM_070 112c 52 push dx 112d 53 push bx 112e 50 push ax 112f b8 89 00 mov ax,0089H 1132 31 db xor bx,bx 1134 ba a0 45 mov dx,45a0H 1137 59 pop cx 1138 5e pop si 1139 5f pop di 113a 9a 00 00 00 00 call far SYSTEM_06F 113f 9a 00 00 00 00 call far SYSTEM_07B 1144 8b 4e 12 mov cx,+12H[bp] 1147 8b 76 14 mov si,+14H[bp] 114a 8b 7e 16 mov di,+16H[bp] 114d 9a 00 00 00 00 call far SYSTEM_06E 1152 89 46 fa mov -6H[bp],ax 1155 89 5e fc mov -4H[bp],bx 1158 89 56 fe mov -2H[bp],dx 115b 8b 46 ee mov ax,-12H[bp] 115e 8b 5e f0 mov bx,-10H[bp] 1161 8b 56 f2 mov dx,-0eH[bp] 1164 b9 83 00 mov cx,0083H 1167 31 f6 xor si,si 1169 31 ff xor di,di 116b 9a 00 00 00 00 call far SYSTEM_071 1170 9a 00 00 00 00 call far SYSTEM_07B 1175 b9 83 00 mov cx,0083H 1178 31 f6 xor si,si 117a 31 ff xor di,di 117c 9a 00 00 00 00 call far SYSTEM_070 1181 8b 4e ee mov cx,-12H[bp] 1184 8b 76 f0 mov si,-10H[bp] 1187 8b 7e f2 mov di,-0eH[bp] 118a 9a 00 00 00 00 call far SYSTEM_072 118f 75 07 jne L64 1191 c7 46 ec 01 00 mov word ptr -14H[bp],0001H 1196 eb 05 jmp L65 1198 c7 46 ec 02 00 L64 mov word ptr -14H[bp],0002H 119d b8 5b 00 L65 mov ax,005bH 11a0 2b 46 ec sub ax,-14H[bp] 11a3 99 cwd 11a4 9a 00 00 00 00 call far SYSTEM_073 11a9 8b 4e fa mov cx,-6H[bp] 11ac 8b 76 fc mov si,-4H[bp] 11af 8b 7e fe mov di,-2H[bp] 11b2 9a 00 00 00 00 call far SYSTEM_072 11b7 73 20 jae L66 11b9 8b 46 ec mov ax,-14H[bp] 11bc 99 cwd 11bd 9a 00 00 00 00 call far SYSTEM_073 11c2 8b 4e fa mov cx,-6H[bp] 11c5 8b 76 fc mov si,-4H[bp] 11c8 8b 7e fe mov di,-2H[bp] 11cb 9a 00 00 00 00 call far SYSTEM_06E 11d0 89 46 fa mov -6H[bp],ax 11d3 89 5e fc mov -4H[bp],bx 11d6 89 56 fe mov -2H[bp],dx 11d9 8b 46 fa L66 mov ax,-6H[bp] 11dc 8b 5e fc mov bx,-4H[bp] 11df 8b 56 fe mov dx,-2H[bp] 11e2 b9 85 f5 mov cx,0f585H 11e5 be 28 5c mov si,5c28H 11e8 bf 8f 74 mov di,748fH 11eb 9a 00 00 00 00 call far SYSTEM_071 11f0 9a 00 00 00 00 call far SYSTEM_07B 11f5 89 46 f4 mov -0cH[bp],ax 11f8 89 5e f6 mov -0aH[bp],bx 11fb 89 56 f8 mov -8H[bp],dx 11fe b8 85 f5 mov ax,0f585H 1201 bb 28 5c mov bx,5c28H 1204 ba 8f 74 mov dx,748fH 1207 8b 4e f4 mov cx,-0cH[bp] 120a 8b 76 f6 mov si,-0aH[bp] 120d 8b 7e f8 mov di,-8H[bp] 1210 9a 00 00 00 00 call far SYSTEM_070 1215 9a 00 00 00 00 call far SYSTEM_07B 121a 52 push dx 121b 53 push bx 121c 50 push ax 121d 8b 46 fa mov ax,-6H[bp] 1220 8b 5e fc mov bx,-4H[bp] 1223 8b 56 fe mov dx,-2H[bp] 1226 59 pop cx 1227 5e pop si 1228 5f pop di 1229 9a 00 00 00 00 call far SYSTEM_06F 122e 89 46 fa mov -6H[bp],ax 1231 89 5e fc mov -4H[bp],bx 1234 89 56 fe mov -2H[bp],dx 1237 8b 46 f4 mov ax,-0cH[bp] 123a 8b 5e f6 mov bx,-0aH[bp] 123d 8b 56 f8 mov dx,-8H[bp] 1240 b9 84 00 mov cx,0084H 1243 31 f6 xor si,si 1245 bf 00 40 mov di,4000H 1248 9a 00 00 00 00 call far SYSTEM_072 124d 76 2d jbe L67 124f 8b 46 ee mov ax,-12H[bp] 1252 8b 5e f0 mov bx,-10H[bp] 1255 8b 56 f2 mov dx,-0eH[bp] 1258 b9 81 00 mov cx,0081H 125b 31 f6 xor si,si 125d 31 ff xor di,di 125f 9a 00 00 00 00 call far SYSTEM_06E 1264 89 46 ee mov -12H[bp],ax 1267 89 5e f0 mov -10H[bp],bx 126a 89 56 f2 mov -0eH[bp],dx 126d c7 46 f4 81 00 mov word ptr -0cH[bp],0081H 1272 c7 46 f6 00 00 mov word ptr -0aH[bp],0000H 1277 c7 46 f8 00 00 mov word ptr -8H[bp],0000H 127c 8b 46 ee L67 mov ax,-12H[bp] 127f 8b 5e f0 mov bx,-10H[bp] 1282 8b 56 f2 mov dx,-0eH[bp] 1285 9a 00 00 00 00 call far SYSTEM_074 128a c4 7e 0e les di,dword ptr +0eH[bp] 128d 26 89 05 mov es:[di],ax 1290 8b 46 f4 mov ax,-0cH[bp] 1293 8b 5e f6 mov bx,-0aH[bp] 1296 8b 56 f8 mov dx,-8H[bp] 1299 9a 00 00 00 00 call far SYSTEM_074 129e c4 7e 0a les di,dword ptr +0aH[bp] 12a1 26 89 05 mov es:[di],ax 12a4 8b 46 fa mov ax,-6H[bp] 12a7 8b 5e fc mov bx,-4H[bp] 12aa 8b 56 fe mov dx,-2H[bp] 12ad 9a 00 00 00 00 call far SYSTEM_074 12b2 c4 7e 06 les di,dword ptr +6H[bp] 12b5 26 89 05 mov es:[di],ax 12b8 89 ec mov sp,bp 12ba 5d pop bp 12bb ca 12 00 retf 0012H 12be DATE: 12be 55 SCL_031 push bp 12bf 89 e5 mov bp,sp 12c1 81 ec 08 01 sub sp,0108H 12c5 8d 7e f8 lea di,-8H[bp] 12c8 16 push ss 12c9 57 push di 12ca 8d 7e fa lea di,-6H[bp] 12cd 16 push ss 12ce 57 push di 12cf 8d 7e fc lea di,-4H[bp] 12d2 16 push ss 12d3 57 push di 12d4 8d 7e fe lea di,-2H[bp] 12d7 16 push ss 12d8 57 push di 12d9 9a 00 00 00 00 call far DOS_003 12de 8d be f8 fe lea di,-108H[bp] 12e2 16 push ss 12e3 57 push di 12e4 ff 76 f8 push -8H[bp] 12e7 ff 76 fa push -6H[bp] 12ea ff 76 fc push -4H[bp] 12ed 0e push cs 12ee e8 00 00 call DATE_STRING 12f1 c4 7e 06 les di,dword ptr +6H[bp] 12f4 06 push es 12f5 57 push di 12f6 b8 0a 00 mov ax,000aH 12f9 50 push ax 12fa 9a 00 00 00 00 call far SYSTEM_00C 12ff 89 ec mov sp,bp 1301 5d pop bp 1302 cb retf 1303 TIME: 1303 55 SCL_032 push bp 1304 89 e5 mov bp,sp 1306 81 ec 13 02 sub sp,0213H 130a 8d 7e f8 lea di,-8H[bp] 130d 16 push ss 130e 57 push di 130f 8d 7e fa lea di,-6H[bp] 1312 16 push ss 1313 57 push di 1314 8d 7e fc lea di,-4H[bp] 1317 16 push ss 1318 57 push di 1319 8d 7e fe lea di,-2H[bp] 131c 16 push ss 131d 57 push di 131e 9a 00 00 00 00 call far DOS_005 1323 80 7e 06 00 cmp byte ptr +6H[bp],00H 1327 75 36 jne L68 1329 8d be ed fd lea di,-213H[bp] 132d 16 push ss 132e 57 push di 132f 8d be ed fe lea di,-113H[bp] 1333 16 push ss 1334 57 push di 1335 ff 76 f8 push -8H[bp] 1338 ff 76 fa push -6H[bp] 133b ff 76 fc push -4H[bp] 133e 0e push cs 133f e8 00 00 call SCL_02B 1342 b8 01 00 mov ax,0001H 1345 50 push ax 1346 b8 05 00 mov ax,0005H 1349 50 push ax 134a 9a 00 00 00 00 call far SYSTEM_00E 134f c4 7e 08 les di,dword ptr +8H[bp] 1352 06 push es 1353 57 push di 1354 b8 0a 00 mov ax,000aH 1357 50 push ax 1358 9a 00 00 00 00 call far SYSTEM_00C 135d eb 21 jmp L69 135f 8d be ed fe L68 lea di,-113H[bp] 1363 16 push ss 1364 57 push di 1365 ff 76 f8 push -8H[bp] 1368 ff 76 fa push -6H[bp] 136b ff 76 fc push -4H[bp] 136e 0e push cs 136f e8 00 00 call SCL_02B 1372 c4 7e 08 les di,dword ptr +8H[bp] 1375 06 push es 1376 57 push di 1377 b8 0a 00 mov ax,000aH 137a 50 push ax 137b 9a 00 00 00 00 call far SYSTEM_00C 1380 89 ec L69 mov sp,bp 1382 5d pop bp 1383 ca 02 00 retf 0002H 1386 55 SCL_06E push bp 1387 89 e5 mov bp,sp 1389 81 ec 00 02 sub sp,0200H 138d 8b 7e 04 mov di,+4H[bp] 1390 36 c6 85 fa fe 00 mov byte ptr ss:-106H[di],00H 1396 8b 7e 04 L70 mov di,+4H[bp] 1399 36 8b 85 7d ff mov ax,ss:-83H[di] 139e 50 push ax 139f 8b 7e 04 mov di,+4H[bp] 13a2 36 8b bd 7b ff mov di,ss:-85H[di] 13a7 07 pop es 13a8 26 80 3d 00 cmp byte ptr es:[di],00H 13ac 74 5f je L71 13ae 8d be 00 fe lea di,-200H[bp] 13b2 16 push ss 13b3 57 push di 13b4 8b 7e 04 mov di,+4H[bp] 13b7 81 c7 fa fe add di,0fefaH 13bb 16 push ss 13bc 57 push di 13bd 9a 00 00 00 00 call far SYSTEM_00B 13c2 8d be 00 ff lea di,-100H[bp] 13c6 16 push ss 13c7 57 push di 13c8 8b 7e 04 mov di,+4H[bp] 13cb 36 8b 85 7d ff mov ax,ss:-83H[di] 13d0 50 push ax 13d1 8b 7e 04 mov di,+4H[bp] 13d4 36 8b bd 7b ff mov di,ss:-85H[di] 13d9 07 pop es 13da 26 8a 05 mov al,es:[di] 13dd 50 push ax 13de 9a 00 00 00 00 call far SYSTEM_012 13e3 9a 00 00 00 00 call far SYSTEM_00F 13e8 8b 7e 04 mov di,+4H[bp] 13eb 81 c7 fa fe add di,0fefaH 13ef 16 push ss 13f0 57 push di 13f1 b8 80 00 mov ax,0080H 13f4 50 push ax 13f5 9a 00 00 00 00 call far SYSTEM_00C 13fa 8b 7e 04 mov di,+4H[bp] 13fd 36 8b 85 7b ff mov ax,ss:-85H[di] 1402 40 inc ax 1403 8b 7e 04 mov di,+4H[bp] 1406 36 89 85 7b ff mov ss:-85H[di],ax 140b eb 89 jmp L70 140d 8b 7e 04 L71 mov di,+4H[bp] 1410 36 8b 85 7b ff mov ax,ss:-85H[di] 1415 40 inc ax 1416 8b 7e 04 mov di,+4H[bp] 1419 36 89 85 7b ff mov ss:-85H[di],ax 141e 89 ec mov sp,bp 1420 5d pop bp 1421 c2 02 00 ret 0002H 1424 01 3d L72 add [di],di 1426 ENVIRONMENT: 1426 55 SCL_033 push bp 1427 89 e5 mov bp,sp 1429 81 ec 89 02 sub sp,0289H 142d c4 7e 06 les di,dword ptr +6H[bp] 1430 06 push es 1431 57 push di 1432 8d be 7f ff lea di,-81H[bp] 1436 16 push ss 1437 57 push di 1438 b8 80 00 mov ax,0080H 143b 50 push ax 143c 9a 00 00 00 00 call far SYSTEM_00C 1441 8d be 77 fd lea di,-289H[bp] 1445 16 push ss 1446 57 push di 1447 8d be 7f ff lea di,-81H[bp] 144b 16 push ss 144c 57 push di 144d 0e push cs 144e e8 00 00 call CAPITAL 1451 8d be 79 fe lea di,-187H[bp] 1455 16 push ss 1456 57 push di 1457 b8 80 00 mov ax,0080H 145a 50 push ax 145b 9a 00 00 00 00 call far SYSTEM_00C 1460 31 c0 xor ax,ax 1462 89 86 7b ff mov -85H[bp],ax 1466 a1 00 00 mov ax,SYSTEM_BSS+200H 1469 50 push ax 146a bf 2c 00 mov di,002cH 146d 07 pop es 146e 26 8b 05 mov ax,es:[di] 1471 89 86 7d ff mov -83H[bp],ax 1475 c6 86 77 fe 00 mov byte ptr -189H[bp],00H 147a c6 86 78 fe 00 mov byte ptr -188H[bp],00H 147f 80 be 77 fe 00 L73 cmp byte ptr -189H[bp],00H 1484 75 6b jne L76 1486 80 be 78 fe 00 cmp byte ptr -188H[bp],00H 148b 75 64 jne L76 148d 55 push bp 148e e8 00 00 call SCL_06E 1491 80 be fa fe 00 cmp byte ptr -106H[bp],00H 1496 75 07 jne L74 1498 c6 86 78 fe 01 mov byte ptr -188H[bp],01H 149d eb 50 jmp L75 149f 8d be 79 fe L74 lea di,-187H[bp] 14a3 16 push ss 14a4 57 push di 14a5 8d be fa fe lea di,-106H[bp] 14a9 16 push ss 14aa 57 push di 14ab 9a 00 00 00 00 call far SYSTEM_010 14b0 3d 01 00 cmp ax,0001H 14b3 75 3a jne L75 14b5 c6 86 77 fe 01 mov byte ptr -189H[bp],01H 14ba 8d be 77 fd lea di,-289H[bp] 14be 16 push ss 14bf 57 push di 14c0 8d be fa fe lea di,-106H[bp] 14c4 16 push ss 14c5 57 push di 14c6 bf 00 00 mov di,offset L72 14c9 0e push cs 14ca 57 push di 14cb 8d be fa fe lea di,-106H[bp] 14cf 16 push ss 14d0 57 push di 14d1 9a 00 00 00 00 call far SYSTEM_010 14d6 40 inc ax 14d7 50 push ax 14d8 b8 80 00 mov ax,0080H 14db 50 push ax 14dc 9a 00 00 00 00 call far SYSTEM_00E 14e1 c4 7e 0a les di,dword ptr +0aH[bp] 14e4 06 push es 14e5 57 push di 14e6 b8 80 00 mov ax,0080H 14e9 50 push ax 14ea 9a 00 00 00 00 call far SYSTEM_00C 14ef eb 8e L75 jmp L73 14f1 89 ec L76 mov sp,bp 14f3 5d pop bp 14f4 ca 04 00 retf 0004H 14f7 04 2e L77 add al,2eH 14f9 63 6f 6d arpl bp,+6dH[bx] 14fc 04 2e L78 add al,2eH 14fe 65 78 65 js L79 1501 EXECUTE: 1501 55 SCL_034 push bp 1502 89 e5 mov bp,sp 1504 81 ec 04 03 sub sp,0304H 1508 c4 7e 06 les di,dword ptr +6H[bp] 150b 06 push es 150c 57 push di 150d 8d be 7f ff lea di,-81H[bp] 1511 16 push ss 1512 57 push di 1513 b8 80 00 mov ax,0080H 1516 50 push ax 1517 9a 00 00 00 00 call far SYSTEM_00C 151c 8d be 7f ff lea di,-81H[bp] 1520 16 push ss 1521 57 push di 1522 8d be 7d fe lea di,-183H[bp] 1526 16 push ss 1527 57 push di 1528 8d be fe fe lea di,-102H[bp] 152c 16 push ss 152d 57 push di 152e 0e push cs 152f e8 00 00 call FRONTSTRING 1532 8d be 7d fe lea di,-183H[bp] 1536 16 push ss 1537 57 push di 1538 8d be fc fd lea di,-204H[bp] 153c 16 push ss 153d 57 push di 153e b8 80 00 mov ax,0080H 1541 50 push ax 1542 9a 00 00 00 00 call far SYSTEM_00C 1547 8d be fc fd lea di,-204H[bp] 154b 16 push ss 154c 57 push di 154d 8d be fe fe lea di,-102H[bp] 1551 16 push ss 1552 57 push di 1553 9a 00 00 00 00 call far DOS_014 1558 83 3e 00 00 02 cmp word ptr DOS_BSS,0002H 155d 75 3b jne L80 155f 8d be fc fc lea di,-304H[bp] 1563 16 push ss 1564 57 push di 1565 8d be 7d fe lea di,-183H[bp] 1569 16 push ss 156a 57 push di 156b 9a 00 00 00 00 call far SYSTEM_00B 1570 bf 00 00 mov di,offset L77 1573 0e push cs 1574 57 push di 1575 9a 00 00 00 00 call far SYSTEM_00F 157a 8d be fc fd lea di,-204H[bp] 157e 16 push ss 157f 57 push di 1580 b8 80 00 mov ax,0080H 1583 50 push ax 1584 9a 00 00 00 00 call far SYSTEM_00C 1589 8d be fc fd lea di,-204H[bp] 158d 16 push ss 158e 57 push di 158f 8d be fe fe lea di,-102H[bp] 1593 16 push ss 1594 57 push di 1595 9a 00 00 00 00 call far DOS_014 159a 83 3e 00 00 02 L80 cmp word ptr DOS_BSS,0002H 159f 75 3b jne L81 15a1 8d be fc fc lea di,-304H[bp] 15a5 16 push ss 15a6 57 push di 15a7 8d be 7d fe lea di,-183H[bp] 15ab 16 push ss 15ac 57 push di 15ad 9a 00 00 00 00 call far SYSTEM_00B 15b2 bf 00 00 mov di,offset L78 15b5 0e push cs 15b6 57 push di 15b7 9a 00 00 00 00 call far SYSTEM_00F 15bc 8d be fc fd lea di,-204H[bp] 15c0 16 push ss 15c1 57 push di 15c2 b8 80 00 mov ax,0080H 15c5 50 push ax 15c6 9a 00 00 00 00 call far SYSTEM_00C 15cb 8d be fc fd lea di,-204H[bp] 15cf 16 push ss 15d0 57 push di 15d1 8d be fe fe lea di,-102H[bp] 15d5 16 push ss 15d6 57 push di 15d7 9a 00 00 00 00 call far DOS_014 15dc 89 ec L81 mov sp,bp 15de 5d pop bp 15df ca 04 00 retf 0004H 15e2 07 L82 pop es 15e3 43 inc bx 15e4 4f dec di 15e5 4d dec bp 15e6 53 push bx 15e7 50 push ax 15e8 45 inc bp 15e9 43 inc bx 15ea 04 20 L83 add al,20H 15ec 2f das 15ed 43 inc bx 15ee 20 55 89 and -77H[di],dl 15f1 e5 81 in ax,81H 15f3 ec in al,dx 15f4 02 02 add al,[bp+si] 15f6 c4 7e 06 les di,dword ptr +6H[bp] 15f9 06 push es 15fa 57 push di 15fb 8d be 7f ff lea di,-81H[bp] 15ff 16 push ss 1600 57 push di 1601 b8 80 00 mov ax,0080H 1604 50 push ax 1605 9a 00 00 00 00 call far SYSTEM_00C 160a 8d be fe fd lea di,-202H[bp] 160e 16 push ss 160f 57 push di 1610 bf 00 00 mov di,offset L82 1613 0e push cs 1614 57 push di 1615 0e push cs 1616 e8 00 00 call ENVIRONMENT 1619 8d be fe fe lea di,-102H[bp] 161d 16 push ss 161e 57 push di 161f b8 80 00 mov ax,0080H 1622 50 push ax 1623 9a 00 00 00 00 call far SYSTEM_00C 1628 8d be 7f ff lea di,-81H[bp] 162c 16 push ss 162d 57 push di 162e bf 00 00 mov di,offset SPACES 1631 1e push ds 1632 57 push di 1633 9a 00 00 00 00 call far SYSTEM_011 1638 76 35 jbe L84 163a 8d be fe fd lea di,-202H[bp] 163e 16 push ss 163f 57 push di 1640 8d be fe fe lea di,-102H[bp] 1644 16 push ss 1645 57 push di 1646 9a 00 00 00 00 call far SYSTEM_00B 164b bf 00 00 mov di,offset L83 164e 0e push cs 164f 57 push di 1650 9a 00 00 00 00 call far SYSTEM_00F 1655 8d be 7f ff lea di,-81H[bp] 1659 16 push ss 165a 57 push di 165b 9a 00 00 00 00 call far SYSTEM_00F 1660 8d be fe fe lea di,-102H[bp] 1664 16 push ss 1665 57 push di 1666 b8 80 00 mov ax,0080H 1669 50 push ax 166a 9a 00 00 00 00 call far SYSTEM_00C 166f 8d be fe fe L84 lea di,-102H[bp] 1673 16 push ss 1674 57 push di 1675 0e push cs 1676 e8 00 00 call EXECUTE 1679 89 ec mov sp,bp 167b 5d pop bp 167c ca 04 00 retf 0004H 167f NEXT_CHAR: 167f 55 SCL_037 push bp 1680 89 e5 mov bp,sp 1682 83 ec 02 sub sp,0002H 1685 9a 00 00 00 00 call far CRT_003 168a 88 46 fe mov -2H[bp],al 168d 80 7e fe 00 cmp byte ptr -2H[bp],00H 1691 75 11 jne L85 1693 9a 00 00 00 00 call far CRT_003 1698 88 46 fe mov -2H[bp],al 169b c4 7e 06 les di,dword ptr +6H[bp] 169e 26 c6 05 01 mov byte ptr es:[di],01H 16a2 eb 07 jmp L86 16a4 c4 7e 06 L85 les di,dword ptr +6H[bp] 16a7 26 c6 05 00 mov byte ptr es:[di],00H 16ab 8a 46 fe L86 mov al,-2H[bp] 16ae 88 46 ff mov -1H[bp],al 16b1 8a 46 ff mov al,-1H[bp] 16b4 89 ec mov sp,bp 16b6 5d pop bp 16b7 ca 04 00 retf 0004H 16ba RTIME: 16ba 55 SCL_038 push bp 16bb 89 e5 mov bp,sp 16bd 83 ec 0e sub sp,000eH 16c0 8d 7e f2 lea di,-0eH[bp] 16c3 16 push ss 16c4 57 push di 16c5 8d 7e f4 lea di,-0cH[bp] 16c8 16 push ss 16c9 57 push di 16ca 8d 7e f6 lea di,-0aH[bp] 16cd 16 push ss 16ce 57 push di 16cf 8d 7e f8 lea di,-8H[bp] 16d2 16 push ss 16d3 57 push di 16d4 9a 00 00 00 00 call far DOS_005 16d9 8b 46 f2 mov ax,-0eH[bp] 16dc 31 d2 xor dx,dx 16de 9a 00 00 00 00 call far SYSTEM_073 16e3 b9 93 00 mov cx,0093H 16e6 31 f6 xor si,si 16e8 bf c8 2f mov di,2fc8H 16eb 9a 00 00 00 00 call far SYSTEM_070 16f0 52 push dx 16f1 53 push bx 16f2 50 push ax 16f3 8b 46 f4 mov ax,-0cH[bp] 16f6 b9 70 17 mov cx,1770H 16f9 f7 e1 mul cx 16fb 8b d8 mov bx,ax 16fd 8b 46 f6 mov ax,-0aH[bp] 1700 b9 64 00 mov cx,0064H 1703 f7 e1 mul cx 1705 03 46 f8 add ax,-8H[bp] 1708 03 c3 add ax,bx 170a 31 d2 xor dx,dx 170c 9a 00 00 00 00 call far SYSTEM_073 1711 59 pop cx 1712 5e pop si 1713 5f pop di 1714 9a 00 00 00 00 call far SYSTEM_06E 1719 89 46 fa mov -6H[bp],ax 171c 89 5e fc mov -4H[bp],bx 171f 89 56 fe mov -2H[bp],dx 1722 8b 46 fa mov ax,-6H[bp] 1725 8b 5e fc mov bx,-4H[bp] 1728 8b 56 fe mov dx,-2H[bp] 172b 89 ec mov sp,bp 172d 5d pop bp 172e cb retf 172f NR: 172f 55 SCL_011 push bp 1730 89 e5 mov bp,sp 1732 83 ec 57 sub sp,0057H 1735 c4 7e 06 les di,dword ptr +6H[bp] 1738 06 push es 1739 57 push di 173a 8d 7e ad lea di,-53H[bp] 173d 16 push ss 173e 57 push di 173f b8 50 00 mov ax,0050H 1742 50 push ax 1743 9a 00 00 00 00 call far SYSTEM_00C 1748 8d 7e ad lea di,-53H[bp] 174b 16 push ss 174c 57 push di 174d 8d 7e ab lea di,-55H[bp] 1750 16 push ss 1751 57 push di 1752 9a 00 00 00 00 call far SYSTEM_062 1757 89 46 a9 mov -57H[bp],ax 175a 83 7e ab 00 cmp word ptr -55H[bp],0000H 175e 75 0d jne L87 1760 c6 06 00 00 01 mov byte ptr GLB_OK,01H 1765 8b 46 a9 mov ax,-57H[bp] 1768 89 46 fe mov -2H[bp],ax 176b eb 0a jmp L88 176d c6 06 00 00 00 L87 mov byte ptr GLB_OK,00H 1772 31 c0 xor ax,ax 1774 89 46 fe mov -2H[bp],ax 1777 8b 46 fe L88 mov ax,-2H[bp] 177a 89 ec mov sp,bp 177c 5d pop bp 177d ca 04 00 retf 0004H 1780 RNR: 1780 55 SCL_013 push bp 1781 89 e5 mov bp,sp 1783 81 ec 0e 01 sub sp,010eH 1787 c4 7e 06 les di,dword ptr +6H[bp] 178a 06 push es 178b 57 push di 178c 8d be fa fe lea di,-106H[bp] 1790 16 push ss 1791 57 push di 1792 b8 ff 00 mov ax,00ffH 1795 50 push ax 1796 9a 00 00 00 00 call far SYSTEM_00C 179b 8d be fa fe lea di,-106H[bp] 179f 16 push ss 17a0 57 push di 17a1 8d be f8 fe lea di,-108H[bp] 17a5 16 push ss 17a6 57 push di 17a7 9a 00 00 00 00 call far SYSTEM_07A 17ac 89 86 f2 fe mov -10eH[bp],ax 17b0 89 9e f4 fe mov -10cH[bp],bx 17b4 89 96 f6 fe mov -10aH[bp],dx 17b8 83 be f8 fe 00 cmp word ptr -108H[bp],0000H 17bd 74 04 je L89 17bf b0 00 mov al,00H 17c1 eb 02 jmp L90 17c3 b0 01 L89 mov al,01H 17c5 a2 00 00 L90 mov GLB_OK,al 17c8 8b 86 f2 fe mov ax,-10eH[bp] 17cc 8b 9e f4 fe mov bx,-10cH[bp] 17d0 8b 96 f6 fe mov dx,-10aH[bp] 17d4 89 46 fa mov -6H[bp],ax 17d7 89 5e fc mov -4H[bp],bx 17da 89 56 fe mov -2H[bp],dx 17dd 8b 46 fa mov ax,-6H[bp] 17e0 8b 5e fc mov bx,-4H[bp] 17e3 8b 56 fe mov dx,-2H[bp] 17e6 89 ec mov sp,bp 17e8 5d pop bp 17e9 ca 04 00 retf 0004H 17ec RST: 17ec 55 SCL_012 push bp 17ed 89 e5 mov bp,sp 17ef 81 ec 00 01 sub sp,0100H 17f3 ff 76 0c push +0cH[bp] 17f6 ff 76 0a push +0aH[bp] 17f9 ff 76 08 push +8H[bp] 17fc b8 01 00 mov ax,0001H 17ff 50 push ax 1800 ff 76 06 push +6H[bp] 1803 8d be 00 ff lea di,-100H[bp] 1807 16 push ss 1808 57 push di 1809 b8 ff 00 mov ax,00ffH 180c 50 push ax 180d 9a 00 00 00 00 call far SYSTEM_079 1812 8d be 00 ff lea di,-100H[bp] 1816 16 push ss 1817 57 push di 1818 c4 7e 0e les di,dword ptr +0eH[bp] 181b 06 push es 181c 57 push di 181d b8 50 00 mov ax,0050H 1820 50 push ax 1821 9a 00 00 00 00 call far SYSTEM_00C 1826 89 ec mov sp,bp 1828 5d pop bp 1829 ca 08 00 retf 0008H 182c BEEP: 182c 55 SCL_039 push bp 182d 89 e5 mov bp,sp 182f a1 00 00 mov ax,BEEP_TIME 1832 a3 00 00 mov BEEP_COUNT,ax 1835 ff 36 00 00 push BEEP_FREQUENCY_1 1839 9a 00 00 00 00 call far CRT_013 183e c6 06 00 00 01 mov byte ptr BEEP_SWITCH,01H 1843 89 ec mov sp,bp 1845 5d pop bp 1846 cb retf 1847 55 SCL_06F push bp 1848 89 e5 mov bp,sp 184a 8b 46 04 mov ax,+4H[bp] 184d ba 30 00 mov dx,0030H 1850 f7 e2 mul dx 1852 8b c8 mov cx,ax 1854 a1 00 00 mov ax,S_PTR 1857 ba 72 00 mov dx,0072H 185a f7 e2 mul dx 185c 8b f8 mov di,ax 185e c4 bd 00 00 les di,dword ptr L584[di] 1862 03 f9 add di,cx 1864 26 8a 85 06 08 mov al,es:+806H[di] 1869 30 e4 xor ah,ah 186b 50 push ax 186c 0e push cs 186d e8 00 00 call SCL_027 1870 8b 46 04 mov ax,+4H[bp] 1873 ba 30 00 mov dx,0030H 1876 f7 e2 mul dx 1878 8b c8 mov cx,ax 187a a1 00 00 mov ax,S_PTR 187d ba 72 00 mov dx,0072H 1880 f7 e2 mul dx 1882 8b f8 mov di,ax 1884 c4 bd 00 00 les di,dword ptr L584[di] 1888 03 f9 add di,cx 188a 26 8a 85 07 08 mov al,es:+807H[di] 188f 30 e4 xor ah,ah 1891 50 push ax 1892 0e push cs 1893 e8 00 00 call SCL_028 1896 89 ec mov sp,bp 1898 5d pop bp 1899 c2 02 00 ret 0002H 189c 55 SCL_070 push bp 189d 89 e5 mov bp,sp 189f a1 00 00 mov ax,MX 18a2 40 inc ax 18a3 50 push ax 18a4 0e push cs 18a5 e8 00 00 call SCL_027 18a8 89 ec mov sp,bp 18aa 5d pop bp 18ab c3 ret 18ac 55 SCL_071 push bp 18ad 89 e5 mov bp,sp 18af a1 00 00 mov ax,MX 18b2 48 dec ax 18b3 50 push ax 18b4 0e push cs 18b5 e8 00 00 call SCL_027 18b8 89 ec mov sp,bp 18ba 5d pop bp 18bb c3 ret 18bc 50 SCL_072 push ax 18bd 53 push bx 18be 51 push cx 18bf 52 push dx 18c0 56 push si 18c1 57 push di 18c2 1e push ds 18c3 06 push es 18c4 55 push bp 18c5 89 e5 mov bp,sp 18c7 b8 00 00 mov ax,seg COUNTRY 18ca 8e d8 mov ds,ax 18cc a1 00 00 mov ax,BLINK_COUNT 18cf 40 inc ax 18d0 a3 00 00 mov BLINK_COUNT,ax 18d3 83 3e 00 00 00 cmp word ptr BEEP_COUNT,0000H 18d8 7e 40 jle L96 18da a1 00 00 mov ax,BEEP_COUNT 18dd 48 dec ax 18de a3 00 00 mov BEEP_COUNT,ax 18e1 83 3e 00 00 00 cmp word ptr BEEP_COUNT,0000H 18e6 7e 2d jle L95 18e8 80 3e 00 00 00 cmp byte ptr BEEP_SWITCH,00H 18ed 74 0b je L91 18ef ff 36 00 00 push BEEP_FREQUENCY_2 18f3 9a 00 00 00 00 call far CRT_013 18f8 eb 09 jmp L92 18fa ff 36 00 00 L91 push BEEP_FREQUENCY_1 18fe 9a 00 00 00 00 call far CRT_013 1903 80 3e 00 00 00 L92 cmp byte ptr BEEP_SWITCH,00H 1908 74 04 je L93 190a b0 00 mov al,00H 190c eb 02 jmp L94 190e b0 01 L93 mov al,01H 1910 a2 00 00 L94 mov BEEP_SWITCH,al 1913 eb 05 jmp L96 1915 9a 00 00 00 00 L95 call far CRT_014 191a 89 ec L96 mov sp,bp 191c 5d pop bp 191d 07 pop es 191e 1f pop ds 191f 5f pop di 1920 5e pop si 1921 5a pop dx 1922 59 pop cx 1923 5b pop bx 1924 58 pop ax 1925 cf iret 1926 55 SCL_073 push bp 1927 89 e5 mov bp,sp 1929 b0 1c mov al,1cH 192b 50 push ax 192c bf 00 00 mov di,offset OLD_CLOCK 192f 1e push ds 1930 57 push di 1931 9a 00 00 00 00 call far DOS_011 1936 b0 1c mov al,1cH 1938 50 push ax 1939 b8 00 00 mov ax,offset SCL_072 193c 8c ca mov dx,cs 193e 52 push dx 193f 50 push ax 1940 9a 00 00 00 00 call far DOS_012 1945 89 ec mov sp,bp 1947 5d pop bp 1948 c3 ret 1949 55 SCL_074 push bp 194a 89 e5 mov bp,sp 194c b0 1c mov al,1cH 194e 50 push ax 194f ff 36 00 00 push L576 1953 ff 36 00 00 push OLD_CLOCK 1957 9a 00 00 00 00 call far DOS_012 195c 89 ec mov sp,bp 195e 5d pop bp 195f c3 ret 1960 1e L97 push ds 1961 46 inc si 1962 41 inc cx 1963 54 push sp 1964 41 inc cx 1965 4c dec sp 1966 20 45 52 and +52H[di],al 1969 52 push dx 196a 4f dec di 196b 52 push dx 196c 20 49 4e and +4eH[bx+di],cl 196f 20 53 43 and +43H[bp+di],dl 1972 52 push dx 1973 45 inc bp 1974 45 inc bp 1975 4e dec si 1976 48 dec ax 1977 41 inc cx 1978 4e dec si 1979 44 inc sp 197a 4c dec sp 197b 45 inc bp 197c 52 push dx 197d 3a 20 cmp ah,[bx+si] 197f 0a 45 52 L98 or al,+52H[di] 1982 52 push dx 1983 4f dec di 1984 52 push dx 1985 20 4e 52 and +52H[bp],cl 1988 3a 20 cmp ah,[bx+si] 198a 10 50 52 L99 adc +52H[bx+si],dl 198d 4f dec di 198e 47 inc di 198f 52 push dx 1990 41 inc cx 1991 4d dec bp 1992 20 41 42 and +42H[bx+di],al 1995 4f dec di 1996 52 push dx 1997 54 push sp 1998 45 inc bp 1999 44 inc sp 199a 2e 55 push bp 199c 89 e5 mov bp,sp 199e 9a 00 00 00 00 call far CRT_009 19a3 b0 01 mov al,01H 19a5 50 push ax 19a6 b0 0a mov al,0aH 19a8 50 push ax 19a9 9a 00 00 00 00 call far CRT_006 19ae bf 00 00 mov di,offset SYSTEM_BSS+100H 19b1 1e push ds 19b2 57 push di 19b3 bf 00 00 mov di,offset L97 19b6 0e push cs 19b7 57 push di 19b8 31 c0 xor ax,ax 19ba 50 push ax 19bb 9a 00 00 00 00 call far SYSTEM_036 19c0 9a 00 00 00 00 call far SYSTEM_03A 19c5 9a 00 00 00 00 call far SYSTEM_032 19ca 83 7e 06 03 cmp word ptr +6H[bp],0003H 19ce 7e 33 jle L100 19d0 bf 00 00 mov di,offset SYSTEM_BSS+100H 19d3 1e push ds 19d4 57 push di 19d5 bf 00 00 mov di,offset L98 19d8 0e push cs 19d9 57 push di 19da 31 c0 xor ax,ax 19dc 50 push ax 19dd 9a 00 00 00 00 call far SYSTEM_036 19e2 8b 7e 06 mov di,+6H[bp] 19e5 d1 e7 shl di,1 19e7 d1 e7 shl di,1 19e9 c4 bd 00 00 les di,dword ptr L581[di] 19ed 06 push es 19ee 57 push di 19ef 31 c0 xor ax,ax 19f1 50 push ax 19f2 9a 00 00 00 00 call far SYSTEM_036 19f7 9a 00 00 00 00 call far SYSTEM_03A 19fc 9a 00 00 00 00 call far SYSTEM_032 1a01 eb 2a jmp L101 1a03 bf 00 00 L100 mov di,offset SYSTEM_BSS+100H 1a06 1e push ds 1a07 57 push di 1a08 bf 00 00 mov di,offset L98 1a0b 0e push cs 1a0c 57 push di 1a0d 31 c0 xor ax,ax 1a0f 50 push ax 1a10 9a 00 00 00 00 call far SYSTEM_036 1a15 8b 46 06 mov ax,+6H[bp] 1a18 99 cwd 1a19 52 push dx 1a1a 50 push ax 1a1b 31 c0 xor ax,ax 1a1d 50 push ax 1a1e 9a 00 00 00 00 call far SYSTEM_037 1a23 9a 00 00 00 00 call far SYSTEM_03A 1a28 9a 00 00 00 00 call far SYSTEM_032 1a2d bf 00 00 L101 mov di,offset SYSTEM_BSS+100H 1a30 1e push ds 1a31 57 push di 1a32 bf 00 00 mov di,offset L99 1a35 0e push cs 1a36 57 push di 1a37 31 c0 xor ax,ax 1a39 50 push ax 1a3a 9a 00 00 00 00 call far SYSTEM_036 1a3f 9a 00 00 00 00 call far SYSTEM_03A 1a44 9a 00 00 00 00 call far SYSTEM_032 1a49 83 7e 06 04 cmp word ptr +6H[bp],0004H 1a4d 7c 28 jl L102 1a4f bf 00 00 mov di,offset SCREENS 1a52 1e push ds 1a53 57 push di 1a54 9a 00 00 00 00 call far SYSTEM_04C 1a59 9a 00 00 00 00 call far SYSTEM_032 1a5e bf 00 00 mov di,offset SCREENINDEX 1a61 1e push ds 1a62 57 push di 1a63 9a 00 00 00 00 call far SYSTEM_04C 1a68 9a 00 00 00 00 call far SYSTEM_032 1a6d e8 00 00 call SCL_074 1a70 b0 00 mov al,00H 1a72 50 push ax 1a73 0e push cs 1a74 e8 00 00 call SCL_01A 1a77 83 7e 06 07 L102 cmp word ptr +6H[bp],0007H 1a7b 74 0d je L103 1a7d 83 7e 06 0b cmp word ptr +6H[bp],000bH 1a81 74 07 je L103 1a83 31 c0 xor ax,ax 1a85 9a 00 00 00 00 call far SYSTEM_003 1a8a 89 ec L103 mov sp,bp 1a8c 5d pop bp 1a8d ca 02 00 retf 0002H 1a90 55 SCL_075 push bp 1a91 89 e5 mov bp,sp 1a93 c4 06 00 00 les ax,dword ptr SAVE_EXITPROC 1a97 8c c2 mov dx,es 1a99 a3 00 00 mov SYSTEM_BSS+214H,ax 1a9c 89 16 00 00 mov SYSTEM_BSS+216H,dx 1aa0 81 3e 00 00 ff 00 cmp word ptr SYSTEM_BSS+218H,00ffH 1aa6 75 0a jne L104 1aa8 b8 0b 00 mov ax,000bH 1aab 50 push ax 1aac 0e push cs 1aad e8 00 00 call FATAL_SCL_ERROR 1ab0 eb 0f jmp L105 1ab2 83 3e 00 00 00 L104 cmp word ptr SYSTEM_BSS+218H,0000H 1ab7 7e 08 jle L105 1ab9 b8 07 00 mov ax,0007H 1abc 50 push ax 1abd 0e push cs 1abe e8 00 00 call FATAL_SCL_ERROR 1ac1 89 ec L105 mov sp,bp 1ac3 5d pop bp 1ac4 cb retf 1ac5 W_CRT: 1ac5 55 SCL_03B push bp 1ac6 89 e5 mov bp,sp 1ac8 81 ec ae 00 sub sp,00aeH 1acc c4 7e 06 les di,dword ptr +6H[bp] 1acf 06 push es 1ad0 57 push di 1ad1 8d 7e af lea di,-51H[bp] 1ad4 16 push ss 1ad5 57 push di 1ad6 b8 50 00 mov ax,0050H 1ad9 50 push ax 1ada 9a 00 00 00 00 call far SYSTEM_00C 1adf 83 7e 0a 00 cmp word ptr +0aH[bp],0000H 1ae3 75 03 jne L106 1ae5 e9 8e 00 jmp L107 1ae8 a1 00 00 L106 mov ax,S_PTR 1aeb ba 72 00 mov dx,0072H 1aee f7 e2 mul dx 1af0 8b f8 mov di,ax 1af2 c4 bd 00 00 les di,dword ptr L584[di] 1af6 89 be 56 ff mov -0aaH[bp],di 1afa 8c 86 58 ff mov -0a8H[bp],es 1afe 8b 46 0a mov ax,+0aH[bp] 1b01 ba 30 00 mov dx,0030H 1b04 f7 e2 mul dx 1b06 c4 be 56 ff les di,dword ptr -0aaH[bp] 1b0a 03 f8 add di,ax 1b0c 81 c7 f9 07 add di,07f9H 1b10 89 be 52 ff mov -0aeH[bp],di 1b14 8c 86 54 ff mov -0acH[bp],es 1b18 8d 7e af lea di,-51H[bp] 1b1b 16 push ss 1b1c 57 push di 1b1d 8d be 5e ff lea di,-0a2H[bp] 1b21 16 push ss 1b22 57 push di 1b23 b8 50 00 mov ax,0050H 1b26 50 push ax 1b27 9a 00 00 00 00 call far SYSTEM_00C 1b2c 8d be 5e ff lea di,-0a2H[bp] 1b30 16 push ss 1b31 57 push di 1b32 a0 00 00 mov al,SPACE 1b35 50 push ax 1b36 c4 be 52 ff les di,dword ptr -0aeH[bp] 1b3a 26 8a 45 1e mov al,es:+1eH[di] 1b3e 50 push ax 1b3f c4 be 52 ff les di,dword ptr -0aeH[bp] 1b43 26 8a 45 0f mov al,es:+0fH[di] 1b47 30 e4 xor ah,ah 1b49 50 push ax 1b4a 0e push cs 1b4b e8 00 00 call FTAB 1b4e 8d be 5e ff lea di,-0a2H[bp] 1b52 16 push ss 1b53 57 push di 1b54 c4 be 52 ff les di,dword ptr -0aeH[bp] 1b58 26 8a 45 0d mov al,es:+0dH[di] 1b5c 30 e4 xor ah,ah 1b5e 03 06 00 00 add ax,XOFF 1b62 50 push ax 1b63 c4 be 52 ff les di,dword ptr -0aeH[bp] 1b67 26 8a 45 0e mov al,es:+0eH[di] 1b6b 30 e4 xor ah,ah 1b6d 03 06 00 00 add ax,YOFF 1b71 50 push ax 1b72 0e push cs 1b73 e8 00 00 call SCL_01C 1b76 89 ec L107 mov sp,bp 1b78 5d pop bp 1b79 ca 06 00 retf 0006H 1b7c SYS_MSG: 1b7c 55 SCL_03C push bp 1b7d 89 e5 mov bp,sp 1b7f 8b 7e 06 mov di,+6H[bp] 1b82 d1 e7 shl di,1 1b84 d1 e7 shl di,1 1b86 c4 bd 00 00 les di,dword ptr L581[di] 1b8a 06 push es 1b8b 57 push di 1b8c c4 7e 08 les di,dword ptr +8H[bp] 1b8f 06 push es 1b90 57 push di 1b91 b8 50 00 mov ax,0050H 1b94 50 push ax 1b95 9a 00 00 00 00 call far SYSTEM_00C 1b9a 89 ec mov sp,bp 1b9c 5d pop bp 1b9d ca 02 00 retf 0002H 1ba0 USER_MSG: 1ba0 55 SCL_03D push bp 1ba1 89 e5 mov bp,sp 1ba3 8b 46 06 mov ax,+6H[bp] 1ba6 05 64 00 add ax,0064H 1ba9 8b f8 mov di,ax 1bab d1 e7 shl di,1 1bad d1 e7 shl di,1 1baf c4 bd 00 00 les di,dword ptr L581[di] 1bb3 06 push es 1bb4 57 push di 1bb5 c4 7e 08 les di,dword ptr +8H[bp] 1bb8 06 push es 1bb9 57 push di 1bba b8 50 00 mov ax,0050H 1bbd 50 push ax 1bbe 9a 00 00 00 00 call far SYSTEM_00C 1bc3 89 ec mov sp,bp 1bc5 5d pop bp 1bc6 ca 02 00 retf 0002H 1bc9 INPUT_ERROR: 1bc9 55 SCL_03E push bp 1bca 89 e5 mov bp,sp 1bcc 81 ec 04 01 sub sp,0104H 1bd0 80 3e 00 00 00 cmp byte ptr ERROR_MSG_SET,00H 1bd5 74 4f je L108 1bd7 83 3e 00 00 00 cmp word ptr S_PTR,0000H 1bdc 7e 48 jle L108 1bde a1 00 00 mov ax,S_PTR 1be1 ba 72 00 mov dx,0072H 1be4 f7 e2 mul dx 1be6 8b f8 mov di,ax 1be8 c4 bd 00 00 les di,dword ptr L584[di] 1bec 89 7e fc mov -4H[bp],di 1bef 8c 46 fe mov -2H[bp],es 1bf2 c4 7e fc les di,dword ptr -4H[bp] 1bf5 26 80 7d 37 00 cmp byte ptr es:+37H[di],00H 1bfa 76 2a jbe L108 1bfc c4 7e fc les di,dword ptr -4H[bp] 1bff 26 80 7d 35 00 cmp byte ptr es:+35H[di],00H 1c04 76 20 jbe L108 1c06 c6 06 00 00 01 mov byte ptr ERROR_MSG_PRESENT,01H 1c0b c4 7e fc les di,dword ptr -4H[bp] 1c0e 26 8a 45 35 mov al,es:+35H[di] 1c12 30 e4 xor ah,ah 1c14 50 push ax 1c15 8d be fc fe lea di,-104H[bp] 1c19 16 push ss 1c1a 57 push di 1c1b ff 76 06 push +6H[bp] 1c1e 0e push cs 1c1f e8 00 00 call SCL_03C 1c22 0e push cs 1c23 e8 00 00 call SCL_03B 1c26 80 3e 00 00 00 L108 cmp byte ptr BEEP_OFF,00H 1c2b 75 04 jne L109 1c2d 0e push cs 1c2e e8 00 00 call BEEP 1c31 89 ec L109 mov sp,bp 1c33 5d pop bp 1c34 ca 02 00 retf 0002H 1c37 W_FIELD_MSG: 1c37 55 SCL_03F push bp 1c38 89 e5 mov bp,sp 1c3a 81 ec 08 01 sub sp,0108H 1c3e a1 00 00 mov ax,S_PTR 1c41 ba 72 00 mov dx,0072H 1c44 f7 e2 mul dx 1c46 8b f8 mov di,ax 1c48 c4 bd 00 00 les di,dword ptr L584[di] 1c4c 89 7e fc mov -4H[bp],di 1c4f 8c 46 fe mov -2H[bp],es 1c52 8b 46 06 mov ax,+6H[bp] 1c55 ba 30 00 mov dx,0030H 1c58 f7 e2 mul dx 1c5a c4 7e fc les di,dword ptr -4H[bp] 1c5d 03 f8 add di,ax 1c5f 81 c7 f9 07 add di,07f9H 1c63 89 7e f8 mov -8H[bp],di 1c66 8c 46 fa mov -6H[bp],es 1c69 80 3e 00 00 00 cmp byte ptr INPUT_MSG_SET,00H 1c6e 74 36 je L110 1c70 c4 7e fc les di,dword ptr -4H[bp] 1c73 26 80 7d 36 00 cmp byte ptr es:+36H[di],00H 1c78 76 2c jbe L110 1c7a c4 7e f8 les di,dword ptr -8H[bp] 1c7d 26 83 3d 00 cmp word ptr es:[di],0000H 1c81 7e 23 jle L110 1c83 c6 06 00 00 01 mov byte ptr MSG_PRESENT,01H 1c88 c4 7e fc les di,dword ptr -4H[bp] 1c8b 26 8a 45 36 mov al,es:+36H[di] 1c8f 30 e4 xor ah,ah 1c91 50 push ax 1c92 8d be f8 fe lea di,-108H[bp] 1c96 16 push ss 1c97 57 push di 1c98 c4 7e f8 les di,dword ptr -8H[bp] 1c9b 26 ff 35 push es:[di] 1c9e 0e push cs 1c9f e8 00 00 call SCL_03D 1ca2 0e push cs 1ca3 e8 00 00 call SCL_03B 1ca6 89 ec L110 mov sp,bp 1ca8 5d pop bp 1ca9 ca 02 00 retf 0002H 1cac PRINTER_READY: 1cac 55 SCL_036 push bp 1cad 89 e5 mov bp,sp 1caf 83 ec 01 sub sp,0001H 1cb2 c6 06 00 00 02 mov byte ptr L577,02H 1cb7 31 c0 xor ax,ax 1cb9 a3 00 00 mov L579,ax 1cbc b0 17 mov al,17H 1cbe 50 push ax 1cbf bf 00 00 mov di,offset GLB_REGS 1cc2 1e push ds 1cc3 57 push di 1cc4 9a 00 00 00 00 call far DOS_001 1cc9 a0 00 00 mov al,L577 1ccc 24 40 and al,40H 1cce 08 c0 or al,al 1cd0 76 06 jbe L111 1cd2 c6 46 06 01 mov byte ptr +6H[bp],01H 1cd6 eb 22 jmp L114 1cd8 a0 00 00 L111 mov al,L577 1cdb 24 20 and al,20H 1cdd 08 c0 or al,al 1cdf 76 06 jbe L112 1ce1 c6 46 06 02 mov byte ptr +6H[bp],02H 1ce5 eb 13 jmp L114 1ce7 a0 00 00 L112 mov al,L577 1cea 24 08 and al,08H 1cec 08 c0 or al,al 1cee 76 06 jbe L113 1cf0 c6 46 06 03 mov byte ptr +6H[bp],03H 1cf4 eb 04 jmp L114 1cf6 c6 46 06 00 L113 mov byte ptr +6H[bp],00H 1cfa 80 7e 06 00 L114 cmp byte ptr +6H[bp],00H 1cfe 74 04 je L115 1d00 b0 00 mov al,00H 1d02 eb 02 jmp L116 1d04 b0 01 L115 mov al,01H 1d06 88 46 ff L116 mov -1H[bp],al 1d09 8a 46 ff mov al,-1H[bp] 1d0c 89 ec mov sp,bp 1d0e 5d pop bp 1d0f ca 02 00 retf 0002H 1d12 UPDATE_FIELD: 1d12 55 SCL_040 push bp 1d13 89 e5 mov bp,sp 1d15 81 ec 10 01 sub sp,0110H 1d19 a1 00 00 mov ax,MX 1d1c 89 46 fa mov -6H[bp],ax 1d1f a1 00 00 mov ax,MY 1d22 89 46 fc mov -4H[bp],ax 1d25 ff 76 08 push +8H[bp] 1d28 e8 00 00 call SCL_06F 1d2b a1 00 00 mov ax,S_PTR 1d2e ba 72 00 mov dx,0072H 1d31 f7 e2 mul dx 1d33 8b f8 mov di,ax 1d35 c4 bd 00 00 les di,dword ptr L584[di] 1d39 89 7e f6 mov -0aH[bp],di 1d3c 8c 46 f8 mov -8H[bp],es 1d3f 8b 46 08 mov ax,+8H[bp] 1d42 ba 30 00 mov dx,0030H 1d45 f7 e2 mul dx 1d47 c4 7e f6 les di,dword ptr -0aH[bp] 1d4a 03 f8 add di,ax 1d4c 81 c7 f9 07 add di,07f9H 1d50 89 7e f2 mov -0eH[bp],di 1d53 8c 46 f4 mov -0cH[bp],es 1d56 c4 7e f2 les di,dword ptr -0eH[bp] 1d59 26 8a 45 0f mov al,es:+0fH[di] 1d5d 30 e4 xor ah,ah 1d5f 89 46 f0 mov -10H[bp],ax 1d62 b8 01 00 mov ax,0001H 1d65 3b 46 f0 cmp ax,-10H[bp] 1d68 7e 03 jle L117 1d6a e9 97 00 jmp L122 1d6d 89 46 fe L117 mov -2H[bp],ax 1d70 eb 03 jmp L119 1d72 ff 46 fe L118 inc word ptr -2H[bp] 1d75 80 7e 06 00 L119 cmp byte ptr +6H[bp],00H 1d79 74 45 je L120 1d7b a1 00 00 mov ax,MX 1d7e 8b c8 mov cx,ax 1d80 c4 7e f2 les di,dword ptr -0eH[bp] 1d83 26 8a 45 0e mov al,es:+0eH[di] 1d87 30 e4 xor ah,ah 1d89 ba 51 00 mov dx,0051H 1d8c f7 e2 mul dx 1d8e c4 7e f6 les di,dword ptr -0aH[bp] 1d91 03 f8 add di,ax 1d93 03 f9 add di,cx 1d95 26 8a 45 ef mov al,es:-11H[di] 1d99 3a 06 00 00 cmp al,SPACE 1d9d 75 21 jne L120 1d9f 8d be f0 fe lea di,-110H[bp] 1da3 16 push ss 1da4 57 push di 1da5 c4 7e f2 les di,dword ptr -0eH[bp] 1da8 26 8a 45 1b mov al,es:+1bH[di] 1dac 50 push ax 1dad 9a 00 00 00 00 call far SYSTEM_012 1db2 e8 00 00 call SCL_06A 1db5 50 push ax 1db6 e8 00 00 call SCL_06B 1db9 50 push ax 1dba 0e push cs 1dbb e8 00 00 call SCL_01C 1dbe eb 36 jmp L121 1dc0 8d be f0 fe L120 lea di,-110H[bp] 1dc4 16 push ss 1dc5 57 push di 1dc6 a1 00 00 mov ax,MX 1dc9 8b c8 mov cx,ax 1dcb c4 7e f2 les di,dword ptr -0eH[bp] 1dce 26 8a 45 0e mov al,es:+0eH[di] 1dd2 30 e4 xor ah,ah 1dd4 ba 51 00 mov dx,0051H 1dd7 f7 e2 mul dx 1dd9 c4 7e f6 les di,dword ptr -0aH[bp] 1ddc 03 f8 add di,ax 1dde 03 f9 add di,cx 1de0 26 8a 45 ef mov al,es:-11H[di] 1de4 50 push ax 1de5 9a 00 00 00 00 call far SYSTEM_012 1dea e8 00 00 call SCL_06A 1ded 50 push ax 1dee e8 00 00 call SCL_06B 1df1 50 push ax 1df2 0e push cs 1df3 e8 00 00 call SCL_01C 1df6 e8 00 00 L121 call SCL_070 1df9 8b 46 fe mov ax,-2H[bp] 1dfc 3b 46 f0 cmp ax,-10H[bp] 1dff 74 03 je L122 1e01 e9 6e ff jmp L118 1e04 ff 76 fa L122 push -6H[bp] 1e07 0e push cs 1e08 e8 00 00 call SCL_027 1e0b ff 76 fc push -4H[bp] 1e0e 0e push cs 1e0f e8 00 00 call SCL_028 1e12 89 ec mov sp,bp 1e14 5d pop bp 1e15 ca 04 00 retf 0004H 1e18 R_CONT: 1e18 55 SCL_041 push bp 1e19 89 e5 mov bp,sp 1e1b 81 ec 2a 01 sub sp,012aH 1e1f 83 3e 00 00 00 cmp word ptr R_PTR,0000H 1e24 7f 03 jg L123 1e26 e9 b0 00 jmp L126 1e29 a1 00 00 L123 mov ax,R_PTR 1e2c ba 72 00 mov dx,0072H 1e2f f7 e2 mul dx 1e31 8b f8 mov di,ax 1e33 c4 bd 00 00 les di,dword ptr L584[di] 1e37 89 7e fa mov -6H[bp],di 1e3a 8c 46 fc mov -4H[bp],es 1e3d 8a 46 0a mov al,+0aH[bp] 1e40 50 push ax 1e41 8d 7e da lea di,-26H[bp] 1e44 16 push ss 1e45 57 push di 1e46 9a 00 00 00 00 call far SYSTEM_028 1e4b b0 01 mov al,01H 1e4d 50 push ax 1e4e c4 7e fa les di,dword ptr -6H[bp] 1e51 26 8a 45 37 mov al,es:+37H[di] 1e55 50 push ax 1e56 9a 00 00 00 00 call far SYSTEM_02A 1e5b 9a 00 00 00 00 call far SYSTEM_018 1e60 74 6d je L124 1e62 8b 46 0a mov ax,+0aH[bp] 1e65 ba 30 00 mov dx,0030H 1e68 f7 e2 mul dx 1e6a c4 7e fa les di,dword ptr -6H[bp] 1e6d 03 f8 add di,ax 1e6f 81 c7 f9 07 add di,07f9H 1e73 89 7e d6 mov -2aH[bp],di 1e76 8c 46 d8 mov -28H[bp],es 1e79 8d be d6 fe lea di,-12aH[bp] 1e7d 16 push ss 1e7e 57 push di 1e7f c4 7e d6 les di,dword ptr -2aH[bp] 1e82 26 8a 45 0e mov al,es:+0eH[di] 1e86 30 e4 xor ah,ah 1e88 ba 51 00 mov dx,0051H 1e8b f7 e2 mul dx 1e8d c4 7e fa les di,dword ptr -6H[bp] 1e90 03 f8 add di,ax 1e92 81 c7 ef ff add di,0ffefH 1e96 06 push es 1e97 57 push di 1e98 c4 7e d6 les di,dword ptr -2aH[bp] 1e9b 26 8a 45 0d mov al,es:+0dH[di] 1e9f 30 e4 xor ah,ah 1ea1 50 push ax 1ea2 c4 7e d6 les di,dword ptr -2aH[bp] 1ea5 26 8a 45 0f mov al,es:+0fH[di] 1ea9 30 e4 xor ah,ah 1eab 50 push ax 1eac 9a 00 00 00 00 call far SYSTEM_00E 1eb1 c4 7e 06 les di,dword ptr +6H[bp] 1eb4 06 push es 1eb5 57 push di 1eb6 b8 50 00 mov ax,0050H 1eb9 50 push ax 1eba 9a 00 00 00 00 call far SYSTEM_00C 1ebf c4 7e 06 les di,dword ptr +6H[bp] 1ec2 06 push es 1ec3 57 push di 1ec4 8d 7e fe lea di,-2H[bp] 1ec7 16 push ss 1ec8 57 push di 1ec9 0e push cs 1eca e8 00 00 call SCL_007 1ecd eb 08 jmp L125 1ecf b8 0a 00 L124 mov ax,000aH 1ed2 50 push ax 1ed3 0e push cs 1ed4 e8 00 00 call FATAL_SCL_ERROR 1ed7 eb 08 L125 jmp L127 1ed9 b8 09 00 L126 mov ax,0009H 1edc 50 push ax 1edd 0e push cs 1ede e8 00 00 call FATAL_SCL_ERROR 1ee1 89 ec L127 mov sp,bp 1ee3 5d pop bp 1ee4 ca 06 00 retf 0006H 1ee7 R_SEL: 1ee7 55 SCL_042 push bp 1ee8 89 e5 mov bp,sp 1eea 83 ec 24 sub sp,0024H 1eed 83 3e 00 00 00 cmp word ptr R_PTR,0000H 1ef2 7e 5d jle L130 1ef4 a1 00 00 mov ax,R_PTR 1ef7 ba 72 00 mov dx,0072H 1efa f7 e2 mul dx 1efc 8b f8 mov di,ax 1efe c4 bd 00 00 les di,dword ptr L584[di] 1f02 89 7e fc mov -4H[bp],di 1f05 8c 46 fe mov -2H[bp],es 1f08 8a 46 0a mov al,+0aH[bp] 1f0b 50 push ax 1f0c 8d 7e dc lea di,-24H[bp] 1f0f 16 push ss 1f10 57 push di 1f11 9a 00 00 00 00 call far SYSTEM_028 1f16 b0 01 mov al,01H 1f18 50 push ax 1f19 c4 7e fc les di,dword ptr -4H[bp] 1f1c 26 8a 45 37 mov al,es:+37H[di] 1f20 50 push ax 1f21 9a 00 00 00 00 call far SYSTEM_02A 1f26 9a 00 00 00 00 call far SYSTEM_018 1f2b 74 1a je L128 1f2d 8b 46 0a mov ax,+0aH[bp] 1f30 ba 30 00 mov dx,0030H 1f33 f7 e2 mul dx 1f35 c4 7e fc les di,dword ptr -4H[bp] 1f38 03 f8 add di,ax 1f3a 26 8a 85 27 08 mov al,es:+827H[di] 1f3f c4 7e 06 les di,dword ptr +6H[bp] 1f42 26 88 05 mov es:[di],al 1f45 eb 08 jmp L129 1f47 b8 0a 00 L128 mov ax,000aH 1f4a 50 push ax 1f4b 0e push cs 1f4c e8 00 00 call FATAL_SCL_ERROR 1f4f eb 08 L129 jmp L131 1f51 b8 09 00 L130 mov ax,0009H 1f54 50 push ax 1f55 0e push cs 1f56 e8 00 00 call FATAL_SCL_ERROR 1f59 89 ec L131 mov sp,bp 1f5b 5d pop bp 1f5c ca 06 00 retf 0006H 1f5f G_CONT: 1f5f 55 SCL_043 push bp 1f60 89 e5 mov bp,sp 1f62 83 ec 51 sub sp,0051H 1f65 ff 76 06 push +6H[bp] 1f68 8d 7e af lea di,-51H[bp] 1f6b 16 push ss 1f6c 57 push di 1f6d 0e push cs 1f6e e8 00 00 call R_CONT 1f71 8d 7e af lea di,-51H[bp] 1f74 16 push ss 1f75 57 push di 1f76 c4 7e 08 les di,dword ptr +8H[bp] 1f79 06 push es 1f7a 57 push di 1f7b b8 50 00 mov ax,0050H 1f7e 50 push ax 1f7f 9a 00 00 00 00 call far SYSTEM_00C 1f84 89 ec mov sp,bp 1f86 5d pop bp 1f87 ca 02 00 retf 0002H 1f8a SCL_G_CONT: 1f8a 55 SCL_044 push bp 1f8b 89 e5 mov bp,sp 1f8d 83 ec 53 sub sp,0053H 1f90 a1 00 00 mov ax,R_PTR 1f93 89 46 ad mov -53H[bp],ax 1f96 a1 00 00 mov ax,S_PTR 1f99 a3 00 00 mov R_PTR,ax 1f9c ff 76 06 push +6H[bp] 1f9f 8d 7e af lea di,-51H[bp] 1fa2 16 push ss 1fa3 57 push di 1fa4 0e push cs 1fa5 e8 00 00 call R_CONT 1fa8 8d 7e af lea di,-51H[bp] 1fab 16 push ss 1fac 57 push di 1fad c4 7e 08 les di,dword ptr +8H[bp] 1fb0 06 push es 1fb1 57 push di 1fb2 b8 50 00 mov ax,0050H 1fb5 50 push ax 1fb6 9a 00 00 00 00 call far SYSTEM_00C 1fbb 8b 46 ad mov ax,-53H[bp] 1fbe a3 00 00 mov R_PTR,ax 1fc1 89 ec mov sp,bp 1fc3 5d pop bp 1fc4 ca 02 00 retf 0002H 1fc7 G_SEL: 1fc7 55 SCL_045 push bp 1fc8 89 e5 mov bp,sp 1fca 83 ec 02 sub sp,0002H 1fcd ff 76 06 push +6H[bp] 1fd0 8d 7e fe lea di,-2H[bp] 1fd3 16 push ss 1fd4 57 push di 1fd5 0e push cs 1fd6 e8 00 00 call R_SEL 1fd9 8a 46 fe mov al,-2H[bp] 1fdc 88 46 ff mov -1H[bp],al 1fdf 8a 46 ff mov al,-1H[bp] 1fe2 89 ec mov sp,bp 1fe4 5d pop bp 1fe5 ca 02 00 retf 0002H 1fe8 SCL_G_SEL: 1fe8 55 SCL_046 push bp 1fe9 89 e5 mov bp,sp 1feb 83 ec 04 sub sp,0004H 1fee a1 00 00 mov ax,R_PTR 1ff1 89 46 fd mov -3H[bp],ax 1ff4 a1 00 00 mov ax,S_PTR 1ff7 a3 00 00 mov R_PTR,ax 1ffa ff 76 06 push +6H[bp] 1ffd 8d 7e fc lea di,-4H[bp] 2000 16 push ss 2001 57 push di 2002 0e push cs 2003 e8 00 00 call R_SEL 2006 8a 46 fc mov al,-4H[bp] 2009 88 46 ff mov -1H[bp],al 200c 8b 46 fd mov ax,-3H[bp] 200f a3 00 00 mov R_PTR,ax 2012 8a 46 ff mov al,-1H[bp] 2015 89 ec mov sp,bp 2017 5d pop bp 2018 ca 02 00 retf 0002H 201b 55 SCL_076 push bp 201c 89 e5 mov bp,sp 201e 81 ec 65 01 sub sp,0165H 2022 a1 00 00 mov ax,S_PTR 2025 ba 72 00 mov dx,0072H 2028 f7 e2 mul dx 202a 8b f8 mov di,ax 202c c4 bd 00 00 les di,dword ptr L584[di] 2030 89 7e 9f mov -61H[bp],di 2033 8c 46 a1 mov -5fH[bp],es 2036 8b 46 04 mov ax,+4H[bp] 2039 ba 30 00 mov dx,0030H 203c f7 e2 mul dx 203e c4 7e 9f les di,dword ptr -61H[bp] 2041 03 f8 add di,ax 2043 81 c7 f9 07 add di,07f9H 2047 89 7e 9b mov -65H[bp],di 204a 8c 46 9d mov -63H[bp],es 204d 8d be 9b fe lea di,-165H[bp] 2051 16 push ss 2052 57 push di 2053 c4 7e 9b les di,dword ptr -65H[bp] 2056 26 8a 45 0e mov al,es:+0eH[di] 205a 30 e4 xor ah,ah 205c ba 51 00 mov dx,0051H 205f f7 e2 mul dx 2061 c4 7e 9f les di,dword ptr -61H[bp] 2064 03 f8 add di,ax 2066 81 c7 ef ff add di,0ffefH 206a 06 push es 206b 57 push di 206c c4 7e 9b les di,dword ptr -65H[bp] 206f 26 8a 45 0d mov al,es:+0dH[di] 2073 30 e4 xor ah,ah 2075 50 push ax 2076 c4 7e 9b les di,dword ptr -65H[bp] 2079 26 8a 45 0f mov al,es:+0fH[di] 207d 30 e4 xor ah,ah 207f 50 push ax 2080 9a 00 00 00 00 call far SYSTEM_00E 2085 8d 7e af lea di,-51H[bp] 2088 16 push ss 2089 57 push di 208a b8 50 00 mov ax,0050H 208d 50 push ax 208e 9a 00 00 00 00 call far SYSTEM_00C 2093 8d 7e af lea di,-51H[bp] 2096 16 push ss 2097 57 push di 2098 8d 7e a5 lea di,-5bH[bp] 209b 16 push ss 209c 57 push di 209d 0e push cs 209e e8 00 00 call SCL_007 20a1 83 7e a5 00 cmp word ptr -5bH[bp],0000H 20a5 7e 53 jle L132 20a7 c4 7e 9b les di,dword ptr -65H[bp] 20aa 26 80 7d 1d 01 cmp byte ptr es:+1dH[di],01H 20af 75 49 jne L132 20b1 8d 7e af lea di,-51H[bp] 20b4 16 push ss 20b5 57 push di 20b6 8d 7e a3 lea di,-5dH[bp] 20b9 16 push ss 20ba 57 push di 20bb 9a 00 00 00 00 call far SYSTEM_07A 20c0 89 46 a9 mov -57H[bp],ax 20c3 89 5e ab mov -55H[bp],bx 20c6 89 56 ad mov -53H[bp],dx 20c9 83 7e a3 00 cmp word ptr -5dH[bp],0000H 20cd 75 2b jne L132 20cf ff 76 ad push -53H[bp] 20d2 ff 76 ab push -55H[bp] 20d5 ff 76 a9 push -57H[bp] 20d8 c4 7e 9b les di,dword ptr -65H[bp] 20db 26 8a 45 0f mov al,es:+0fH[di] 20df 30 e4 xor ah,ah 20e1 50 push ax 20e2 c4 7e 9b les di,dword ptr -65H[bp] 20e5 26 8a 45 2b mov al,es:+2bH[di] 20e9 30 e4 xor ah,ah 20eb 50 push ax 20ec 8d 7e af lea di,-51H[bp] 20ef 16 push ss 20f0 57 push di 20f1 b8 50 00 mov ax,0050H 20f4 50 push ax 20f5 9a 00 00 00 00 call far SYSTEM_079 20fa ff 76 04 L132 push +4H[bp] 20fd 8d 7e af lea di,-51H[bp] 2100 16 push ss 2101 57 push di 2102 0e push cs 2103 e8 00 00 call SCL_03B 2106 89 ec mov sp,bp 2108 5d pop bp 2109 c2 02 00 ret 0002H 210c 55 SCL_077 push bp 210d 89 e5 mov bp,sp 210f 83 ec 04 sub sp,0004H 2112 8b 46 04 mov ax,+4H[bp] 2115 ba 30 00 mov dx,0030H 2118 f7 e2 mul dx 211a 8b c8 mov cx,ax 211c a1 00 00 mov ax,S_PTR 211f ba 72 00 mov dx,0072H 2122 f7 e2 mul dx 2124 8b f8 mov di,ax 2126 c4 bd 00 00 les di,dword ptr L584[di] 212a 03 f9 add di,cx 212c 81 c7 f9 07 add di,07f9H 2130 89 7e fc mov -4H[bp],di 2133 8c 46 fe mov -2H[bp],es 2136 ff 76 04 push +4H[bp] 2139 b0 01 mov al,01H 213b 50 push ax 213c 0e push cs 213d e8 00 00 call SCL_040 2140 ff 76 04 push +4H[bp] 2143 e8 00 00 call SCL_06F 2146 89 ec mov sp,bp 2148 5d pop bp 2149 c2 02 00 ret 0002H 214c 55 SCL_078 push bp 214d 89 e5 mov bp,sp 214f 83 ec 0a sub sp,000aH 2152 a1 00 00 mov ax,S_PTR 2155 ba 72 00 mov dx,0072H 2158 f7 e2 mul dx 215a 8b f8 mov di,ax 215c c4 bd 00 00 les di,dword ptr L584[di] 2160 89 7e fa mov -6H[bp],di 2163 8c 46 fc mov -4H[bp],es 2166 8b 46 06 mov ax,+6H[bp] 2169 ba 30 00 mov dx,0030H 216c f7 e2 mul dx 216e c4 7e fa les di,dword ptr -6H[bp] 2171 03 f8 add di,ax 2173 81 c7 f9 07 add di,07f9H 2177 89 7e f6 mov -0aH[bp],di 217a 8c 46 f8 mov -8H[bp],es 217d 80 7e 04 00 cmp byte ptr +4H[bp],00H 2181 74 10 je L133 2183 c4 7e fa les di,dword ptr -6H[bp] 2186 26 8a 45 3f mov al,es:+3fH[di] 218a 0c 80 or al,80H 218c 30 e4 xor ah,ah 218e 89 46 fe mov -2H[bp],ax 2191 eb 0e jmp L134 2193 c4 7e fa L133 les di,dword ptr -6H[bp] 2196 26 8a 45 3f mov al,es:+3fH[di] 219a 24 7f and al,7fH 219c 30 e4 xor ah,ah 219e 89 46 fe mov -2H[bp],ax 21a1 b8 01 00 L134 mov ax,0001H 21a4 50 push ax 21a5 c4 7e f6 les di,dword ptr -0aH[bp] 21a8 26 8a 45 0d mov al,es:+0dH[di] 21ac 30 e4 xor ah,ah 21ae 03 06 00 00 add ax,XOFF 21b2 48 dec ax 21b3 50 push ax 21b4 c4 7e f6 les di,dword ptr -0aH[bp] 21b7 26 8a 45 0e mov al,es:+0eH[di] 21bb 30 e4 xor ah,ah 21bd 03 06 00 00 add ax,YOFF 21c1 50 push ax 21c2 8a 46 fe mov al,-2H[bp] 21c5 50 push ax 21c6 0e push cs 21c7 e8 00 00 call SCL_01D 21ca b8 01 00 mov ax,0001H 21cd 50 push ax 21ce c4 7e f6 les di,dword ptr -0aH[bp] 21d1 26 8a 45 0f mov al,es:+0fH[di] 21d5 30 e4 xor ah,ah 21d7 8b d0 mov dx,ax 21d9 c4 7e f6 les di,dword ptr -0aH[bp] 21dc 26 8a 45 0d mov al,es:+0dH[di] 21e0 30 e4 xor ah,ah 21e2 03 06 00 00 add ax,XOFF 21e6 03 c2 add ax,dx 21e8 50 push ax 21e9 c4 7e f6 les di,dword ptr -0aH[bp] 21ec 26 8a 45 0e mov al,es:+0eH[di] 21f0 30 e4 xor ah,ah 21f2 03 06 00 00 add ax,YOFF 21f6 50 push ax 21f7 8a 46 fe mov al,-2H[bp] 21fa 50 push ax 21fb 0e push cs 21fc e8 00 00 call SCL_01D 21ff 89 ec mov sp,bp 2201 5d pop bp 2202 c2 04 00 ret 0004H 2205 55 SCL_079 push bp 2206 89 e5 mov bp,sp 2208 81 ec 08 01 sub sp,0108H 220c a1 00 00 mov ax,S_PTR 220f ba 72 00 mov dx,0072H 2212 f7 e2 mul dx 2214 8b f8 mov di,ax 2216 c4 bd 00 00 les di,dword ptr L584[di] 221a 89 7e fc mov -4H[bp],di 221d 8c 46 fe mov -2H[bp],es 2220 8b 46 04 mov ax,+4H[bp] 2223 ba 30 00 mov dx,0030H 2226 f7 e2 mul dx 2228 c4 7e fc les di,dword ptr -4H[bp] 222b 03 f8 add di,ax 222d 81 c7 f9 07 add di,07f9H 2231 89 7e f8 mov -8H[bp],di 2234 8c 46 fa mov -6H[bp],es 2237 8d be f8 fe lea di,-108H[bp] 223b 16 push ss 223c 57 push di 223d a0 00 00 mov al,MARK_FIELD_LEFT 2240 50 push ax 2241 9a 00 00 00 00 call far SYSTEM_012 2246 c4 7e f8 les di,dword ptr -8H[bp] 2249 26 8a 45 0d mov al,es:+0dH[di] 224d 30 e4 xor ah,ah 224f 03 06 00 00 add ax,XOFF 2253 48 dec ax 2254 50 push ax 2255 c4 7e f8 les di,dword ptr -8H[bp] 2258 26 8a 45 0e mov al,es:+0eH[di] 225c 30 e4 xor ah,ah 225e 03 06 00 00 add ax,YOFF 2262 50 push ax 2263 0e push cs 2264 e8 00 00 call SCL_01C 2267 8d be f8 fe lea di,-108H[bp] 226b 16 push ss 226c 57 push di 226d a0 00 00 mov al,MARK_FIELD_RIGHT 2270 50 push ax 2271 9a 00 00 00 00 call far SYSTEM_012 2276 c4 7e f8 les di,dword ptr -8H[bp] 2279 26 8a 45 0f mov al,es:+0fH[di] 227d 30 e4 xor ah,ah 227f 8b d0 mov dx,ax 2281 c4 7e f8 les di,dword ptr -8H[bp] 2284 26 8a 45 0d mov al,es:+0dH[di] 2288 30 e4 xor ah,ah 228a 03 06 00 00 add ax,XOFF 228e 03 c2 add ax,dx 2290 50 push ax 2291 c4 7e f8 les di,dword ptr -8H[bp] 2294 26 8a 45 0e mov al,es:+0eH[di] 2298 30 e4 xor ah,ah 229a 03 06 00 00 add ax,YOFF 229e 50 push ax 229f 0e push cs 22a0 e8 00 00 call SCL_01C 22a3 89 ec mov sp,bp 22a5 5d pop bp 22a6 c2 02 00 ret 0002H 22a9 SCL_UNDRAW_MARKS: 22a9 55 SCL_022 push bp 22aa 89 e5 mov bp,sp 22ac 81 ec 08 01 sub sp,0108H 22b0 a1 00 00 mov ax,S_PTR 22b3 ba 72 00 mov dx,0072H 22b6 f7 e2 mul dx 22b8 8b f8 mov di,ax 22ba c4 bd 00 00 les di,dword ptr L584[di] 22be 89 7e fc mov -4H[bp],di 22c1 8c 46 fe mov -2H[bp],es 22c4 8b 46 06 mov ax,+6H[bp] 22c7 ba 30 00 mov dx,0030H 22ca f7 e2 mul dx 22cc c4 7e fc les di,dword ptr -4H[bp] 22cf 03 f8 add di,ax 22d1 81 c7 f9 07 add di,07f9H 22d5 89 7e f8 mov -8H[bp],di 22d8 8c 46 fa mov -6H[bp],es 22db 8d be f8 fe lea di,-108H[bp] 22df 16 push ss 22e0 57 push di 22e1 c4 7e f8 les di,dword ptr -8H[bp] 22e4 26 8a 45 10 mov al,es:+10H[di] 22e8 50 push ax 22e9 9a 00 00 00 00 call far SYSTEM_012 22ee c4 7e f8 les di,dword ptr -8H[bp] 22f1 26 8a 45 0d mov al,es:+0dH[di] 22f5 30 e4 xor ah,ah 22f7 03 06 00 00 add ax,XOFF 22fb 48 dec ax 22fc 50 push ax 22fd c4 7e f8 les di,dword ptr -8H[bp] 2300 26 8a 45 0e mov al,es:+0eH[di] 2304 30 e4 xor ah,ah 2306 03 06 00 00 add ax,YOFF 230a 50 push ax 230b 0e push cs 230c e8 00 00 call SCL_01C 230f c4 7e fc les di,dword ptr -4H[bp] 2312 26 8a 45 37 mov al,es:+37H[di] 2316 30 e4 xor ah,ah 2318 8b d0 mov dx,ax 231a 8b 46 06 mov ax,+6H[bp] 231d 40 inc ax 231e 3b c2 cmp ax,dx 2320 7e 03 jle L135 2322 e9 dd 00 jmp L138 2325 c4 7e f8 L135 les di,dword ptr -8H[bp] 2328 26 8a 45 0f mov al,es:+0fH[di] 232c 30 e4 xor ah,ah 232e 8b d0 mov dx,ax 2330 c4 7e f8 les di,dword ptr -8H[bp] 2333 26 8a 45 0d mov al,es:+0dH[di] 2337 30 e4 xor ah,ah 2339 03 c2 add ax,dx 233b 8b c8 mov cx,ax 233d 8b 46 06 mov ax,+6H[bp] 2340 40 inc ax 2341 ba 30 00 mov dx,0030H 2344 f7 e2 mul dx 2346 c4 7e fc les di,dword ptr -4H[bp] 2349 03 f8 add di,ax 234b 26 8a 85 06 08 mov al,es:+806H[di] 2350 30 e4 xor ah,ah 2352 3b c1 cmp ax,cx 2354 75 6a jne L136 2356 8b 46 06 mov ax,+6H[bp] 2359 40 inc ax 235a ba 30 00 mov dx,0030H 235d f7 e2 mul dx 235f c4 7e fc les di,dword ptr -4H[bp] 2362 03 f8 add di,ax 2364 26 8a 85 07 08 mov al,es:+807H[di] 2369 c4 7e f8 les di,dword ptr -8H[bp] 236c 26 3a 45 0e cmp al,es:+0eH[di] 2370 75 4e jne L136 2372 8d be f8 fe lea di,-108H[bp] 2376 16 push ss 2377 57 push di 2378 8b 46 06 mov ax,+6H[bp] 237b 40 inc ax 237c ba 30 00 mov dx,0030H 237f f7 e2 mul dx 2381 c4 7e fc les di,dword ptr -4H[bp] 2384 03 f8 add di,ax 2386 26 8a 85 09 08 mov al,es:+809H[di] 238b 50 push ax 238c 9a 00 00 00 00 call far SYSTEM_012 2391 c4 7e f8 les di,dword ptr -8H[bp] 2394 26 8a 45 0f mov al,es:+0fH[di] 2398 30 e4 xor ah,ah 239a 8b d0 mov dx,ax 239c c4 7e f8 les di,dword ptr -8H[bp] 239f 26 8a 45 0d mov al,es:+0dH[di] 23a3 30 e4 xor ah,ah 23a5 03 06 00 00 add ax,XOFF 23a9 03 c2 add ax,dx 23ab 50 push ax 23ac c4 7e f8 les di,dword ptr -8H[bp] 23af 26 8a 45 0e mov al,es:+0eH[di] 23b3 30 e4 xor ah,ah 23b5 03 06 00 00 add ax,YOFF 23b9 50 push ax 23ba 0e push cs 23bb e8 00 00 call SCL_01C 23be eb 40 jmp L137 23c0 8d be f8 fe L136 lea di,-108H[bp] 23c4 16 push ss 23c5 57 push di 23c6 c4 7e f8 les di,dword ptr -8H[bp] 23c9 26 8a 45 11 mov al,es:+11H[di] 23cd 50 push ax 23ce 9a 00 00 00 00 call far SYSTEM_012 23d3 c4 7e f8 les di,dword ptr -8H[bp] 23d6 26 8a 45 0f mov al,es:+0fH[di] 23da 30 e4 xor ah,ah 23dc 8b d0 mov dx,ax 23de c4 7e f8 les di,dword ptr -8H[bp] 23e1 26 8a 45 0d mov al,es:+0dH[di] 23e5 30 e4 xor ah,ah 23e7 03 06 00 00 add ax,XOFF 23eb 03 c2 add ax,dx 23ed 50 push ax 23ee c4 7e f8 les di,dword ptr -8H[bp] 23f1 26 8a 45 0e mov al,es:+0eH[di] 23f5 30 e4 xor ah,ah 23f7 03 06 00 00 add ax,YOFF 23fb 50 push ax 23fc 0e push cs 23fd e8 00 00 call SCL_01C 2400 eb 40 L137 jmp L139 2402 8d be f8 fe L138 lea di,-108H[bp] 2406 16 push ss 2407 57 push di 2408 c4 7e f8 les di,dword ptr -8H[bp] 240b 26 8a 45 11 mov al,es:+11H[di] 240f 50 push ax 2410 9a 00 00 00 00 call far SYSTEM_012 2415 c4 7e f8 les di,dword ptr -8H[bp] 2418 26 8a 45 0f mov al,es:+0fH[di] 241c 30 e4 xor ah,ah 241e 8b d0 mov dx,ax 2420 c4 7e f8 les di,dword ptr -8H[bp] 2423 26 8a 45 0d mov al,es:+0dH[di] 2427 30 e4 xor ah,ah 2429 03 06 00 00 add ax,XOFF 242d 03 c2 add ax,dx 242f 50 push ax 2430 c4 7e f8 les di,dword ptr -8H[bp] 2433 26 8a 45 0e mov al,es:+0eH[di] 2437 30 e4 xor ah,ah 2439 03 06 00 00 add ax,YOFF 243d 50 push ax 243e 0e push cs 243f e8 00 00 call SCL_01C 2442 ff 76 06 L139 push +6H[bp] 2445 b0 00 mov al,00H 2447 50 push ax 2448 e8 00 00 call SCL_078 244b 89 ec mov sp,bp 244d 5d pop bp 244e ca 02 00 retf 0002H 2451 SET_FIELD_NORM: 2451 55 SCL_047 push bp 2452 89 e5 mov bp,sp 2454 83 ec 0a sub sp,000aH 2457 a1 00 00 mov ax,S_PTR 245a ba 72 00 mov dx,0072H 245d f7 e2 mul dx 245f 8b f8 mov di,ax 2461 c4 bd 00 00 les di,dword ptr L584[di] 2465 89 7e fa mov -6H[bp],di 2468 8c 46 fc mov -4H[bp],es 246b 8b 46 06 mov ax,+6H[bp] 246e ba 30 00 mov dx,0030H 2471 f7 e2 mul dx 2473 c4 7e fa les di,dword ptr -6H[bp] 2476 03 f8 add di,ax 2478 81 c7 f9 07 add di,07f9H 247c 89 7e f6 mov -0aH[bp],di 247f 8c 46 f8 mov -8H[bp],es 2482 ff 76 06 push +6H[bp] 2485 e8 00 00 call SCL_076 2488 80 3e 00 00 07 cmp byte ptr SCREEN_MODE,07H 248d 74 03 je L140 248f e9 ba 00 jmp L151 2492 c4 7e f6 L140 les di,dword ptr -0aH[bp] 2495 26 80 7d 2e 00 cmp byte ptr es:+2eH[di],00H 249a 74 75 je L147 249c c4 7e f6 les di,dword ptr -0aH[bp] 249f 26 8a 45 18 mov al,es:+18H[di] 24a3 24 80 and al,80H 24a5 3c 80 cmp al,80H 24a7 75 07 jne L141 24a9 c7 46 fe 70 00 mov word ptr -2H[bp],0070H 24ae eb 19 jmp L143 24b0 c4 7e f6 L141 les di,dword ptr -0aH[bp] 24b3 26 8a 45 18 mov al,es:+18H[di] 24b7 24 40 and al,40H 24b9 3c 40 cmp al,40H 24bb 75 07 jne L142 24bd c7 46 fe 01 00 mov word ptr -2H[bp],0001H 24c2 eb 05 jmp L143 24c4 c7 46 fe 07 00 L142 mov word ptr -2H[bp],0007H 24c9 c4 7e f6 L143 les di,dword ptr -0aH[bp] 24cc 26 8a 45 18 mov al,es:+18H[di] 24d0 24 20 and al,20H 24d2 3c 20 cmp al,20H 24d4 75 09 jne L144 24d6 8b 46 fe mov ax,-2H[bp] 24d9 0d 08 00 or ax,0008H 24dc 89 46 fe mov -2H[bp],ax 24df c4 7e f6 L144 les di,dword ptr -0aH[bp] 24e2 26 8a 45 16 mov al,es:+16H[di] 24e6 24 10 and al,10H 24e8 3c 10 cmp al,10H 24ea 75 07 jne L145 24ec ff 76 06 push +6H[bp] 24ef 0e push cs 24f0 e8 00 00 call SCL_022 24f3 ff 76 06 L145 push +6H[bp] 24f6 b0 00 mov al,00H 24f8 50 push ax 24f9 e8 00 00 call SCL_078 24fc c4 7e f6 les di,dword ptr -0aH[bp] 24ff 26 8a 45 18 mov al,es:+18H[di] 2503 24 10 and al,10H 2505 3c 10 cmp al,10H 2507 75 06 jne L146 2509 ff 76 06 push +6H[bp] 250c e8 00 00 call SCL_079 250f eb 39 L146 jmp L150 2511 c7 46 fe 07 00 L147 mov word ptr -2H[bp],0007H 2516 c4 7e f6 les di,dword ptr -0aH[bp] 2519 26 80 7d 2f 00 cmp byte ptr es:+2fH[di],00H 251e 74 09 je L148 2520 8b 46 fe mov ax,-2H[bp] 2523 0d 08 00 or ax,0008H 2526 89 46 fe mov -2H[bp],ax 2529 c4 7e f6 L148 les di,dword ptr -0aH[bp] 252c 26 8a 45 18 mov al,es:+18H[di] 2530 24 10 and al,10H 2532 3c 10 cmp al,10H 2534 74 0d je L149 2536 c4 7e f6 les di,dword ptr -0aH[bp] 2539 26 8a 45 16 mov al,es:+16H[di] 253d 24 10 and al,10H 253f 3c 10 cmp al,10H 2541 75 07 jne L150 2543 ff 76 06 L149 push +6H[bp] 2546 0e push cs 2547 e8 00 00 call SCL_022 254a eb 24 L150 jmp L153 254c c4 7e f6 L151 les di,dword ptr -0aH[bp] 254f 26 80 7d 2e 00 cmp byte ptr es:+2eH[di],00H 2554 74 0e je L152 2556 c4 7e f6 les di,dword ptr -0aH[bp] 2559 26 8a 45 17 mov al,es:+17H[di] 255d 30 e4 xor ah,ah 255f 89 46 fe mov -2H[bp],ax 2562 eb 0c jmp L153 2564 c4 7e f6 L152 les di,dword ptr -0aH[bp] 2567 26 8a 45 14 mov al,es:+14H[di] 256b 30 e4 xor ah,ah 256d 89 46 fe mov -2H[bp],ax 2570 ff 76 06 L153 push +6H[bp] 2573 8a 46 fe mov al,-2H[bp] 2576 50 push ax 2577 0e push cs 2578 e8 00 00 call SCL_021 257b 89 ec mov sp,bp 257d 5d pop bp 257e ca 02 00 retf 0002H 2581 SET_FIELD_ACT: 2581 55 SCL_048 push bp 2582 89 e5 mov bp,sp 2584 81 ec 10 01 sub sp,0110H 2588 ff 76 06 push +6H[bp] 258b 0e push cs 258c e8 00 00 call SCL_03F 258f a1 00 00 mov ax,S_PTR 2592 ba 72 00 mov dx,0072H 2595 f7 e2 mul dx 2597 8b f8 mov di,ax 2599 c4 bd 00 00 les di,dword ptr L584[di] 259d 89 7e f4 mov -0cH[bp],di 25a0 8c 46 f6 mov -0aH[bp],es 25a3 8b 46 06 mov ax,+6H[bp] 25a6 ba 30 00 mov dx,0030H 25a9 f7 e2 mul dx 25ab c4 7e f4 les di,dword ptr -0cH[bp] 25ae 03 f8 add di,ax 25b0 81 c7 f9 07 add di,07f9H 25b4 89 7e f0 mov -10H[bp],di 25b7 8c 46 f2 mov -0eH[bp],es 25ba c4 7e f0 les di,dword ptr -10H[bp] 25bd 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 25c2 75 23 jne L154 25c4 ff 76 06 push +6H[bp] 25c7 e8 00 00 call SCL_077 25ca 8d be f0 fe lea di,-110H[bp] 25ce 16 push ss 25cf 57 push di 25d0 ff 76 06 push +6H[bp] 25d3 0e push cs 25d4 e8 00 00 call SCL_044 25d7 bf 00 00 mov di,offset FIELDCONTSAVE 25da 1e push ds 25db 57 push di 25dc b8 50 00 mov ax,0050H 25df 50 push ax 25e0 9a 00 00 00 00 call far SYSTEM_00C 25e5 eb 06 jmp L155 25e7 ff 76 06 L154 push +6H[bp] 25ea e8 00 00 call SCL_076 25ed 80 3e 00 00 07 L155 cmp byte ptr SCREEN_MODE,07H 25f2 74 03 je L156 25f4 e9 6c 01 jmp L177 25f7 c4 7e f0 L156 les di,dword ptr -10H[bp] 25fa 26 80 7d 2e 00 cmp byte ptr es:+2eH[di],00H 25ff 75 03 jne L157 2601 e9 bb 00 jmp L168 2604 31 c0 L157 xor ax,ax 2606 89 46 fe mov -2H[bp],ax 2609 c4 7e f0 les di,dword ptr -10H[bp] 260c 26 8a 45 18 mov al,es:+18H[di] 2610 24 80 and al,80H 2612 3c 80 cmp al,80H 2614 74 0d je L158 2616 c4 7e f0 les di,dword ptr -10H[bp] 2619 26 8a 45 16 mov al,es:+16H[di] 261d 24 80 and al,80H 261f 3c 80 cmp al,80H 2621 75 07 jne L159 2623 c7 46 fe 70 00 L158 mov word ptr -2H[bp],0070H 2628 eb 26 jmp L162 262a c4 7e f0 L159 les di,dword ptr -10H[bp] 262d 26 8a 45 18 mov al,es:+18H[di] 2631 24 40 and al,40H 2633 3c 40 cmp al,40H 2635 74 0d je L160 2637 c4 7e f0 les di,dword ptr -10H[bp] 263a 26 8a 45 16 mov al,es:+16H[di] 263e 24 40 and al,40H 2640 3c 40 cmp al,40H 2642 75 07 jne L161 2644 c7 46 fe 01 00 L160 mov word ptr -2H[bp],0001H 2649 eb 05 jmp L162 264b c7 46 fe 07 00 L161 mov word ptr -2H[bp],0007H 2650 c4 7e f0 L162 les di,dword ptr -10H[bp] 2653 26 8a 45 18 mov al,es:+18H[di] 2657 24 20 and al,20H 2659 3c 20 cmp al,20H 265b 74 0d je L163 265d c4 7e f0 les di,dword ptr -10H[bp] 2660 26 8a 45 16 mov al,es:+16H[di] 2664 24 20 and al,20H 2666 3c 20 cmp al,20H 2668 75 09 jne L164 266a 8b 46 fe L163 mov ax,-2H[bp] 266d 0d 08 00 or ax,0008H 2670 89 46 fe mov -2H[bp],ax 2673 c4 7e f0 L164 les di,dword ptr -10H[bp] 2676 26 8a 45 16 mov al,es:+16H[di] 267a 24 08 and al,08H 267c 3c 08 cmp al,08H 267e 75 13 jne L165 2680 c4 7e f0 les di,dword ptr -10H[bp] 2683 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 2688 75 09 jne L165 268a 8b 46 fe mov ax,-2H[bp] 268d 0d 80 00 or ax,0080H 2690 89 46 fe mov -2H[bp],ax 2693 c4 7e f0 L165 les di,dword ptr -10H[bp] 2696 26 8a 45 18 mov al,es:+18H[di] 269a 24 10 and al,10H 269c 3c 10 cmp al,10H 269e 74 0d je L166 26a0 c4 7e f0 les di,dword ptr -10H[bp] 26a3 26 8a 45 16 mov al,es:+16H[di] 26a7 24 10 and al,10H 26a9 3c 10 cmp al,10H 26ab 75 0f jne L167 26ad ff 76 06 L166 push +6H[bp] 26b0 e8 00 00 call SCL_079 26b3 ff 76 06 push +6H[bp] 26b6 b0 01 mov al,01H 26b8 50 push ax 26b9 e8 00 00 call SCL_078 26bc e9 82 00 L167 jmp L175 26bf 31 c0 L168 xor ax,ax 26c1 89 46 fe mov -2H[bp],ax 26c4 c4 7e f0 les di,dword ptr -10H[bp] 26c7 26 8a 45 16 mov al,es:+16H[di] 26cb 24 80 and al,80H 26cd 3c 80 cmp al,80H 26cf 75 07 jne L169 26d1 c7 46 fe 70 00 mov word ptr -2H[bp],0070H 26d6 eb 19 jmp L171 26d8 c4 7e f0 L169 les di,dword ptr -10H[bp] 26db 26 8a 45 16 mov al,es:+16H[di] 26df 24 40 and al,40H 26e1 3c 40 cmp al,40H 26e3 75 07 jne L170 26e5 c7 46 fe 01 00 mov word ptr -2H[bp],0001H 26ea eb 05 jmp L171 26ec c7 46 fe 07 00 L170 mov word ptr -2H[bp],0007H 26f1 c4 7e f0 L171 les di,dword ptr -10H[bp] 26f4 26 8a 45 16 mov al,es:+16H[di] 26f8 24 20 and al,20H 26fa 3c 20 cmp al,20H 26fc 74 0a je L172 26fe c4 7e f0 les di,dword ptr -10H[bp] 2701 26 80 7d 2f 00 cmp byte ptr es:+2fH[di],00H 2706 74 09 je L173 2708 8b 46 fe L172 mov ax,-2H[bp] 270b 0d 08 00 or ax,0008H 270e 89 46 fe mov -2H[bp],ax 2711 c4 7e f0 L173 les di,dword ptr -10H[bp] 2714 26 8a 45 18 mov al,es:+18H[di] 2718 24 10 and al,10H 271a 3c 10 cmp al,10H 271c 75 07 jne L174 271e ff 76 06 push +6H[bp] 2721 0e push cs 2722 e8 00 00 call SCL_022 2725 c4 7e f0 L174 les di,dword ptr -10H[bp] 2728 26 8a 45 16 mov al,es:+16H[di] 272c 24 10 and al,10H 272e 3c 10 cmp al,10H 2730 75 0f jne L175 2732 ff 76 06 push +6H[bp] 2735 e8 00 00 call SCL_079 2738 ff 76 06 push +6H[bp] 273b b0 01 mov al,01H 273d 50 push ax 273e e8 00 00 call SCL_078 2741 c4 7e f0 L175 les di,dword ptr -10H[bp] 2744 26 8a 45 16 mov al,es:+16H[di] 2748 24 08 and al,08H 274a 3c 08 cmp al,08H 274c 75 13 jne L176 274e c4 7e f0 les di,dword ptr -10H[bp] 2751 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 2756 75 09 jne L176 2758 8b 46 fe mov ax,-2H[bp] 275b 0d 80 00 or ax,0080H 275e 89 46 fe mov -2H[bp],ax 2761 eb 78 L176 jmp L181 2763 c4 7e f0 L177 les di,dword ptr -10H[bp] 2766 26 80 7d 2e 00 cmp byte ptr es:+2eH[di],00H 276b 74 0e je L178 276d c4 7e f0 les di,dword ptr -10H[bp] 2770 26 8a 45 17 mov al,es:+17H[di] 2774 30 e4 xor ah,ah 2776 89 46 fe mov -2H[bp],ax 2779 eb 0c jmp L179 277b c4 7e f0 L178 les di,dword ptr -10H[bp] 277e 26 8a 45 14 mov al,es:+14H[di] 2782 30 e4 xor ah,ah 2784 89 46 fe mov -2H[bp],ax 2787 c4 7e f0 L179 les di,dword ptr -10H[bp] 278a 26 8a 45 15 mov al,es:+15H[di] 278e 24 80 and al,80H 2790 3c 80 cmp al,80H 2792 75 31 jne L180 2794 8b 46 fe mov ax,-2H[bp] 2797 25 07 00 and ax,0007H 279a b9 04 00 mov cx,0004H 279d d3 e0 shl ax,cl 279f 89 46 f8 mov -8H[bp],ax 27a2 8b 46 fe mov ax,-2H[bp] 27a5 25 70 00 and ax,0070H 27a8 b9 04 00 mov cx,0004H 27ab d3 e8 shr ax,cl 27ad 89 46 fa mov -6H[bp],ax 27b0 8b 46 fe mov ax,-2H[bp] 27b3 25 08 00 and ax,0008H 27b6 89 46 fc mov -4H[bp],ax 27b9 8b 46 f8 mov ax,-8H[bp] 27bc 03 46 fa add ax,-6H[bp] 27bf 03 46 fc add ax,-4H[bp] 27c2 89 46 fe mov -2H[bp],ax 27c5 c4 7e f0 L180 les di,dword ptr -10H[bp] 27c8 26 8a 45 15 mov al,es:+15H[di] 27cc 24 20 and al,20H 27ce 3c 20 cmp al,20H 27d0 75 09 jne L181 27d2 8b 46 fe mov ax,-2H[bp] 27d5 0d 08 00 or ax,0008H 27d8 89 46 fe mov -2H[bp],ax 27db ff 76 06 L181 push +6H[bp] 27de 8a 46 fe mov al,-2H[bp] 27e1 50 push ax 27e2 0e push cs 27e3 e8 00 00 call SCL_021 27e6 c4 7e f0 les di,dword ptr -10H[bp] 27e9 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 27ee 74 06 je L182 27f0 0e push cs 27f1 e8 00 00 call CURSOR_OFF 27f4 eb 06 jmp L183 27f6 ff 76 06 L182 push +6H[bp] 27f9 e8 00 00 call SCL_06F 27fc 89 ec L183 mov sp,bp 27fe 5d pop bp 27ff ca 02 00 retf 0002H 2802 FINISH_FORMAT: 2802 55 SCL_049 push bp 2803 89 e5 mov bp,sp 2805 80 7e 06 00 cmp byte ptr +6H[bp],00H 2809 75 1d jne L184 280b a1 00 00 mov ax,S_PTR 280e ba 72 00 mov dx,0072H 2811 f7 e2 mul dx 2813 8b f8 mov di,ax 2815 c6 85 00 00 01 mov byte ptr L583[di],01H 281a a1 00 00 mov ax,CODE_ESCAPE 281d a3 00 00 mov CHAR_CODE,ax 2820 c7 06 00 00 09 00 mov word ptr GLB_STATUS,0009H 2826 eb 0c jmp L185 2828 a1 00 00 L184 mov ax,CODE_ESCAPE 282b a3 00 00 mov CHAR_CODE,ax 282e c7 06 00 00 02 00 mov word ptr GLB_STATUS,0002H 2834 89 ec L185 mov sp,bp 2836 5d pop bp 2837 ca 02 00 retf 0002H 283a 55 SCL_07A push bp 283b 89 e5 mov bp,sp 283d 81 ec 5e 02 sub sp,025eH 2841 c4 7e 04 les di,dword ptr +4H[bp] 2844 06 push es 2845 57 push di 2846 8d 7e f5 lea di,-0bH[bp] 2849 16 push ss 284a 57 push di 284b b8 0a 00 mov ax,000aH 284e 50 push ax 284f 9a 00 00 00 00 call far SYSTEM_00C 2854 8d be a2 fe lea di,-15eH[bp] 2858 16 push ss 2859 57 push di 285a a0 00 00 mov al,SPACE 285d 50 push ax 285e b8 50 00 mov ax,0050H 2861 50 push ax 2862 0e push cs 2863 e8 00 00 call CHARSTRING 2866 bf 00 00 mov di,offset SPACES 2869 1e push ds 286a 57 push di 286b b8 50 00 mov ax,0050H 286e 50 push ax 286f 9a 00 00 00 00 call far SYSTEM_00C 2874 b0 07 mov al,07H 2876 50 push ax 2877 0e push cs 2878 e8 00 00 call SCL_020 287b 9a 00 00 00 00 call far CRT_00F 2880 9a 00 00 00 00 call far CRT_009 2885 9a 00 00 00 00 call far SYSTEM_027 288a 83 fa 00 cmp dx,0000H 288d 7c 07 jl L186 288f 7f 0d jg L187 2891 3d a0 8c cmp ax,8ca0H 2894 73 08 jae L187 2896 b8 02 00 L186 mov ax,0002H 2899 50 push ax 289a 0e push cs 289b e8 00 00 call FATAL_SCL_ERROR 289e 8d be a2 fe L187 lea di,-15eH[bp] 28a2 16 push ss 28a3 57 push di 28a4 bf 00 00 mov di,offset PROGPATH 28a7 1e push ds 28a8 57 push di 28a9 9a 00 00 00 00 call far SYSTEM_00B 28ae 8d 7e f5 lea di,-0bH[bp] 28b1 16 push ss 28b2 57 push di 28b3 9a 00 00 00 00 call far SYSTEM_00F 28b8 bf 00 00 mov di,offset ERRORFILE_EXT 28bb 1e push ds 28bc 57 push di 28bd 9a 00 00 00 00 call far SYSTEM_00F 28c2 0e push cs 28c3 e8 00 00 call EXIST 28c6 08 c0 or al,al 28c8 75 03 jne L188 28ca e9 c3 00 jmp L191 28cd 31 c0 L188 xor ax,ax 28cf 89 46 a2 mov -5eH[bp],ax 28d2 bf 00 00 mov di,offset ERRORFILE 28d5 1e push ds 28d6 57 push di 28d7 8d be a2 fd lea di,-25eH[bp] 28db 16 push ss 28dc 57 push di 28dd bf 00 00 mov di,offset PROGPATH 28e0 1e push ds 28e1 57 push di 28e2 9a 00 00 00 00 call far SYSTEM_00B 28e7 8d 7e f5 lea di,-0bH[bp] 28ea 16 push ss 28eb 57 push di 28ec 9a 00 00 00 00 call far SYSTEM_00F 28f1 bf 00 00 mov di,offset ERRORFILE_EXT 28f4 1e push ds 28f5 57 push di 28f6 9a 00 00 00 00 call far SYSTEM_00F 28fb 9a 00 00 00 00 call far SYSTEM_045 2900 bf 00 00 mov di,offset ERRORFILE 2903 1e push ds 2904 57 push di 2905 9a 00 00 00 00 call far SYSTEM_046 290a 9a 00 00 00 00 call far SYSTEM_032 290f bf 00 00 L189 mov di,offset ERRORFILE 2912 1e push ds 2913 57 push di 2914 9a 00 00 00 00 call far SYSTEM_052 2919 9a 00 00 00 00 call far SYSTEM_032 291e 08 c0 or al,al 2920 75 5d jne L190 2922 83 7e a2 64 cmp word ptr -5eH[bp],0064H 2926 7f 57 jg L190 2928 8b 46 a2 mov ax,-5eH[bp] 292b 40 inc ax 292c 89 46 a2 mov -5eH[bp],ax 292f bf 00 00 mov di,offset ERRORFILE 2932 1e push ds 2933 57 push di 2934 8d 7e a4 lea di,-5cH[bp] 2937 16 push ss 2938 57 push di 2939 b8 50 00 mov ax,0050H 293c 50 push ax 293d 9a 00 00 00 00 call far SYSTEM_03E 2942 9a 00 00 00 00 call far SYSTEM_041 2947 9a 00 00 00 00 call far SYSTEM_032 294c 8b 7e a2 mov di,-5eH[bp] 294f d1 e7 shl di,1 2951 d1 e7 shl di,1 2953 81 c7 00 00 add di,offset L581 2957 1e push ds 2958 57 push di 2959 b8 47 00 mov ax,0047H 295c 50 push ax 295d 9a 00 00 00 00 call far SYSTEM_022 2962 8d 7e a4 lea di,-5cH[bp] 2965 16 push ss 2966 57 push di 2967 8b 7e a2 mov di,-5eH[bp] 296a d1 e7 shl di,1 296c d1 e7 shl di,1 296e c4 bd 00 00 les di,dword ptr L581[di] 2972 06 push es 2973 57 push di 2974 b8 46 00 mov ax,0046H 2977 50 push ax 2978 9a 00 00 00 00 call far SYSTEM_00C 297d eb 90 jmp L189 297f bf 00 00 L190 mov di,offset ERRORFILE 2982 1e push ds 2983 57 push di 2984 9a 00 00 00 00 call far SYSTEM_048 2989 9a 00 00 00 00 call far SYSTEM_032 298e eb 49 jmp L194 2990 c7 46 a2 01 00 L191 mov word ptr -5eH[bp],0001H 2995 eb 03 jmp L193 2997 ff 46 a2 L192 inc word ptr -5eH[bp] 299a 8b 7e a2 L193 mov di,-5eH[bp] 299d d1 e7 shl di,1 299f d1 e7 shl di,1 29a1 81 c7 00 00 add di,offset L581 29a5 1e push ds 29a6 57 push di 29a7 b8 47 00 mov ax,0047H 29aa 50 push ax 29ab 9a 00 00 00 00 call far SYSTEM_022 29b0 8d be a2 fd lea di,-25eH[bp] 29b4 16 push ss 29b5 57 push di 29b6 ff 76 a2 push -5eH[bp] 29b9 0e push cs 29ba e8 00 00 call SCL_010 29bd 8b 7e a2 mov di,-5eH[bp] 29c0 d1 e7 shl di,1 29c2 d1 e7 shl di,1 29c4 c4 bd 00 00 les di,dword ptr L581[di] 29c8 06 push es 29c9 57 push di 29ca b8 46 00 mov ax,0046H 29cd 50 push ax 29ce 9a 00 00 00 00 call far SYSTEM_00C 29d3 83 7e a2 64 cmp word ptr -5eH[bp],0064H 29d7 75 be jne L192 29d9 89 ec L194 mov sp,bp 29db 5d pop bp 29dc c2 04 00 ret 0004H 29df 55 SCL_07B push bp 29e0 89 e5 mov bp,sp 29e2 81 ec a5 01 sub sp,01a5H 29e6 c4 7e 04 les di,dword ptr +4H[bp] 29e9 06 push es 29ea 57 push di 29eb 8d 7e f5 lea di,-0bH[bp] 29ee 16 push ss 29ef 57 push di 29f0 b8 0a 00 mov ax,000aH 29f3 50 push ax 29f4 9a 00 00 00 00 call far SYSTEM_00C 29f9 8d be 5b fe lea di,-1a5H[bp] 29fd 16 push ss 29fe 57 push di 29ff bf 00 00 mov di,offset PROGPATH 2a02 1e push ds 2a03 57 push di 2a04 9a 00 00 00 00 call far SYSTEM_00B 2a09 8d 7e f5 lea di,-0bH[bp] 2a0c 16 push ss 2a0d 57 push di 2a0e 9a 00 00 00 00 call far SYSTEM_00F 2a13 bf 00 00 mov di,offset SCL_DATA 2a16 1e push ds 2a17 57 push di 2a18 9a 00 00 00 00 call far SYSTEM_00F 2a1d 8d 7e a4 lea di,-5cH[bp] 2a20 16 push ss 2a21 57 push di 2a22 b8 50 00 mov ax,0050H 2a25 50 push ax 2a26 9a 00 00 00 00 call far SYSTEM_00C 2a2b 8d 7e a4 lea di,-5cH[bp] 2a2e 16 push ss 2a2f 57 push di 2a30 0e push cs 2a31 e8 00 00 call EXIST 2a34 08 c0 or al,al 2a36 75 03 jne L195 2a38 e9 93 01 jmp L203 2a3b bf 00 00 L195 mov di,offset SCREENS 2a3e 1e push ds 2a3f 57 push di 2a40 8d 7e a4 lea di,-5cH[bp] 2a43 16 push ss 2a44 57 push di 2a45 9a 00 00 00 00 call far SYSTEM_049 2a4a bf 00 00 mov di,offset SCREENS 2a4d 1e push ds 2a4e 57 push di 2a4f b8 80 00 mov ax,0080H 2a52 50 push ax 2a53 9a 00 00 00 00 call far SYSTEM_04A 2a58 9a 00 00 00 00 call far SYSTEM_032 2a5d 8d be 5b fe lea di,-1a5H[bp] 2a61 16 push ss 2a62 57 push di 2a63 bf 00 00 mov di,offset PROGPATH 2a66 1e push ds 2a67 57 push di 2a68 9a 00 00 00 00 call far SYSTEM_00B 2a6d 8d 7e f5 lea di,-0bH[bp] 2a70 16 push ss 2a71 57 push di 2a72 9a 00 00 00 00 call far SYSTEM_00F 2a77 bf 00 00 mov di,offset INDEXFILE_EXT 2a7a 1e push ds 2a7b 57 push di 2a7c 9a 00 00 00 00 call far SYSTEM_00F 2a81 8d 7e a4 lea di,-5cH[bp] 2a84 16 push ss 2a85 57 push di 2a86 b8 50 00 mov ax,0050H 2a89 50 push ax 2a8a 9a 00 00 00 00 call far SYSTEM_00C 2a8f 8d 7e a4 lea di,-5cH[bp] 2a92 16 push ss 2a93 57 push di 2a94 0e push cs 2a95 e8 00 00 call EXIST 2a98 08 c0 or al,al 2a9a 74 24 je L196 2a9c bf 00 00 mov di,offset SCREENINDEX 2a9f 1e push ds 2aa0 57 push di 2aa1 8d 7e a4 lea di,-5cH[bp] 2aa4 16 push ss 2aa5 57 push di 2aa6 9a 00 00 00 00 call far SYSTEM_049 2aab bf 00 00 mov di,offset SCREENINDEX 2aae 1e push ds 2aaf 57 push di 2ab0 b8 0e 00 mov ax,000eH 2ab3 50 push ax 2ab4 9a 00 00 00 00 call far SYSTEM_04A 2ab9 9a 00 00 00 00 call far SYSTEM_032 2abe eb 08 jmp L197 2ac0 b8 01 00 L196 mov ax,0001H 2ac3 50 push ax 2ac4 0e push cs 2ac5 e8 00 00 call FATAL_SCL_ERROR 2ac8 8d be 5b fe L197 lea di,-1a5H[bp] 2acc 16 push ss 2acd 57 push di 2ace bf 00 00 mov di,offset PROGPATH 2ad1 1e push ds 2ad2 57 push di 2ad3 9a 00 00 00 00 call far SYSTEM_00B 2ad8 8d 7e f5 lea di,-0bH[bp] 2adb 16 push ss 2adc 57 push di 2add 9a 00 00 00 00 call far SYSTEM_00F 2ae2 bf 00 00 mov di,offset MESSAGEFILE_EXT 2ae5 1e push ds 2ae6 57 push di 2ae7 9a 00 00 00 00 call far SYSTEM_00F 2aec 8d 7e a4 lea di,-5cH[bp] 2aef 16 push ss 2af0 57 push di 2af1 b8 50 00 mov ax,0050H 2af4 50 push ax 2af5 9a 00 00 00 00 call far SYSTEM_00C 2afa 8d 7e a4 lea di,-5cH[bp] 2afd 16 push ss 2afe 57 push di 2aff 0e push cs 2b00 e8 00 00 call EXIST 2b03 08 c0 or al,al 2b05 75 03 jne L198 2b07 e9 bd 00 jmp L201 2b0a c7 46 a2 64 00 L198 mov word ptr -5eH[bp],0064H 2b0f bf 00 00 mov di,offset MSGFILE 2b12 1e push ds 2b13 57 push di 2b14 8d 7e a4 lea di,-5cH[bp] 2b17 16 push ss 2b18 57 push di 2b19 9a 00 00 00 00 call far SYSTEM_049 2b1e bf 00 00 mov di,offset MSGFILE 2b21 1e push ds 2b22 57 push di 2b23 b8 47 00 mov ax,0047H 2b26 50 push ax 2b27 9a 00 00 00 00 call far SYSTEM_04A 2b2c 9a 00 00 00 00 call far SYSTEM_032 2b31 bf 00 00 mov di,offset MSGFILE 2b34 1e push ds 2b35 57 push di 2b36 8d be 5b ff lea di,-0a5H[bp] 2b3a 16 push ss 2b3b 57 push di 2b3c 9a 00 00 00 00 call far SYSTEM_043 2b41 83 c4 04 add sp,0004H 2b44 9a 00 00 00 00 call far SYSTEM_032 2b49 bf 00 00 L199 mov di,offset MSGFILE 2b4c 1e push ds 2b4d 57 push di 2b4e 9a 00 00 00 00 call far SYSTEM_058 2b53 9a 00 00 00 00 call far SYSTEM_032 2b58 08 c0 or al,al 2b5a 75 5a jne L200 2b5c 81 7e a2 f4 01 cmp word ptr -5eH[bp],01f4H 2b61 7d 53 jge L200 2b63 8b 46 a2 mov ax,-5eH[bp] 2b66 40 inc ax 2b67 89 46 a2 mov -5eH[bp],ax 2b6a bf 00 00 mov di,offset MSGFILE 2b6d 1e push ds 2b6e 57 push di 2b6f 8d be 5b ff lea di,-0a5H[bp] 2b73 16 push ss 2b74 57 push di 2b75 9a 00 00 00 00 call far SYSTEM_043 2b7a 83 c4 04 add sp,0004H 2b7d 9a 00 00 00 00 call far SYSTEM_032 2b82 8b 7e a2 mov di,-5eH[bp] 2b85 d1 e7 shl di,1 2b87 d1 e7 shl di,1 2b89 81 c7 00 00 add di,offset L581 2b8d 1e push ds 2b8e 57 push di 2b8f b8 47 00 mov ax,0047H 2b92 50 push ax 2b93 9a 00 00 00 00 call far SYSTEM_022 2b98 8d be 5b ff lea di,-0a5H[bp] 2b9c 16 push ss 2b9d 57 push di 2b9e 8b 7e a2 mov di,-5eH[bp] 2ba1 d1 e7 shl di,1 2ba3 d1 e7 shl di,1 2ba5 c4 bd 00 00 les di,dword ptr L581[di] 2ba9 06 push es 2baa 57 push di 2bab b8 46 00 mov ax,0046H 2bae 50 push ax 2baf 9a 00 00 00 00 call far SYSTEM_00C 2bb4 eb 93 jmp L199 2bb6 bf 00 00 L200 mov di,offset MSGFILE 2bb9 1e push ds 2bba 57 push di 2bbb 9a 00 00 00 00 call far SYSTEM_04C 2bc0 9a 00 00 00 00 call far SYSTEM_032 2bc5 eb 05 jmp L202 2bc7 c6 06 00 00 00 L201 mov byte ptr INPUT_MSG_SET,00H 2bcc eb 08 L202 jmp L204 2bce b8 01 00 L203 mov ax,0001H 2bd1 50 push ax 2bd2 0e push cs 2bd3 e8 00 00 call FATAL_SCL_ERROR 2bd6 89 ec L204 mov sp,bp 2bd8 5d pop bp 2bd9 c2 04 00 ret 0004H 2bdc CLOSE_FORMATS: 2bdc 55 SCL_04A push bp 2bdd 89 e5 mov bp,sp 2bdf 83 ec 04 sub sp,0004H 2be2 83 3e 00 00 00 cmp word ptr STACK_DEBTH,0000H 2be7 7e 37 jle L207 2be9 a1 00 00 mov ax,STACK_DEBTH 2bec 89 46 fc mov -4H[bp],ax 2bef b8 01 00 mov ax,0001H 2bf2 3b 46 fc cmp ax,-4H[bp] 2bf5 7f 29 jg L207 2bf7 89 46 fe mov -2H[bp],ax 2bfa eb 03 jmp L206 2bfc ff 46 fe L205 inc word ptr -2H[bp] 2bff 8b 46 fe L206 mov ax,-2H[bp] 2c02 ba 72 00 mov dx,0072H 2c05 f7 e2 mul dx 2c07 8b f8 mov di,ax 2c09 81 c7 00 00 add di,offset L584 2c0d 1e push ds 2c0e 57 push di 2c0f b8 00 12 mov ax,1200H 2c12 50 push ax 2c13 9a 00 00 00 00 call far SYSTEM_023 2c18 8b 46 fe mov ax,-2H[bp] 2c1b 3b 46 fc cmp ax,-4H[bp] 2c1e 75 dc jne L205 2c20 bf 00 00 L207 mov di,offset SCREENS 2c23 1e push ds 2c24 57 push di 2c25 9a 00 00 00 00 call far SYSTEM_04C 2c2a 9a 00 00 00 00 call far SYSTEM_032 2c2f bf 00 00 mov di,offset SCREENINDEX 2c32 1e push ds 2c33 57 push di 2c34 9a 00 00 00 00 call far SYSTEM_04C 2c39 9a 00 00 00 00 call far SYSTEM_032 2c3e e8 00 00 call SCL_074 2c41 9a 00 00 00 00 call far CRT_009 2c46 b0 00 mov al,00H 2c48 50 push ax 2c49 0e push cs 2c4a e8 00 00 call SCL_01A 2c4d 89 ec mov sp,bp 2c4f 5d pop bp 2c50 cb retf 2c51 55 SCL_07C push bp 2c52 89 e5 mov bp,sp 2c54 89 ec mov sp,bp 2c56 5d pop bp 2c57 cb retf 2c58 55 SCL_07D push bp 2c59 89 e5 mov bp,sp 2c5b 83 ec 0b sub sp,000bH 2c5e bf 00 00 mov di,offset SPACES 2c61 1e push ds 2c62 57 push di 2c63 8d 7e f5 lea di,-0bH[bp] 2c66 16 push ss 2c67 57 push di 2c68 b8 0a 00 mov ax,000aH 2c6b 50 push ax 2c6c 9a 00 00 00 00 call far SYSTEM_00C 2c71 bf 00 00 mov di,offset SCREENINDEX 2c74 1e push ds 2c75 57 push di 2c76 b8 0e 00 mov ax,000eH 2c79 50 push ax 2c7a 9a 00 00 00 00 call far SYSTEM_04A 2c7f 9a 00 00 00 00 call far SYSTEM_032 2c84 bf 00 00 L208 mov di,offset SCREENINDEX 2c87 1e push ds 2c88 57 push di 2c89 9a 00 00 00 00 call far SYSTEM_058 2c8e 9a 00 00 00 00 call far SYSTEM_032 2c93 08 c0 or al,al 2c95 75 45 jne L210 2c97 bf 00 00 mov di,offset SCREENINDEX 2c9a 1e push ds 2c9b 57 push di 2c9c bf 00 00 mov di,offset KEYREC 2c9f 1e push ds 2ca0 57 push di 2ca1 9a 00 00 00 00 call far SYSTEM_043 2ca6 83 c4 04 add sp,0004H 2ca9 9a 00 00 00 00 call far SYSTEM_032 2cae bf 00 00 mov di,offset L585 2cb1 1e push ds 2cb2 57 push di 2cb3 8d 7e f5 lea di,-0bH[bp] 2cb6 16 push ss 2cb7 57 push di 2cb8 9a 00 00 00 00 call far SYSTEM_011 2cbd 73 08 jae L209 2cbf b8 08 00 mov ax,0008H 2cc2 50 push ax 2cc3 0e push cs 2cc4 e8 00 00 call FATAL_SCL_ERROR 2cc7 bf 00 00 L209 mov di,offset L585 2cca 1e push ds 2ccb 57 push di 2ccc 8d 7e f5 lea di,-0bH[bp] 2ccf 16 push ss 2cd0 57 push di 2cd1 b8 0a 00 mov ax,000aH 2cd4 50 push ax 2cd5 9a 00 00 00 00 call far SYSTEM_00C 2cda eb a8 jmp L208 2cdc 89 ec L210 mov sp,bp 2cde 5d pop bp 2cdf c2 02 00 ret 0002H 2ce2 01 5c 55 L211 add +55H[si],bx 2ce5 89 e5 mov bp,sp 2ce7 81 ec 5c 01 sub sp,015cH 2ceb c4 7e 06 les di,dword ptr +6H[bp] 2cee 06 push es 2cef 57 push di 2cf0 8d 7e f5 lea di,-0bH[bp] 2cf3 16 push ss 2cf4 57 push di 2cf5 b8 0a 00 mov ax,000aH 2cf8 50 push ax 2cf9 9a 00 00 00 00 call far SYSTEM_00C 2cfe 0e push cs 2cff e8 00 00 call GET_SCREEN_MODE 2d02 a0 00 00 mov al,SCREEN_MODE 2d05 50 push ax 2d06 8d 7e 84 lea di,-7cH[bp] 2d09 16 push ss 2d0a 57 push di 2d0b 9a 00 00 00 00 call far SYSTEM_028 2d10 b0 02 mov al,02H 2d12 50 push ax 2d13 9a 00 00 00 00 call far SYSTEM_029 2d18 b0 03 mov al,03H 2d1a 50 push ax 2d1b 9a 00 00 00 00 call far SYSTEM_029 2d20 b0 07 mov al,07H 2d22 50 push ax 2d23 9a 00 00 00 00 call far SYSTEM_029 2d28 9a 00 00 00 00 call far SYSTEM_018 2d2d 75 08 jne L212 2d2f b8 03 00 mov ax,0003H 2d32 50 push ax 2d33 0e push cs 2d34 e8 00 00 call FATAL_SCL_ERROR 2d37 0e L212 push cs 2d38 e8 00 00 call GET_COUNTRY 2d3b a0 00 00 mov al,PROGPATH 2d3e 30 e4 xor ah,ah 2d40 8b f8 mov di,ax 2d42 80 bd 00 00 5c cmp byte ptr PROGPATH[di],5cH 2d47 74 28 je L213 2d49 8d be a4 fe lea di,-15cH[bp] 2d4d 16 push ss 2d4e 57 push di 2d4f bf 00 00 mov di,offset PROGPATH 2d52 1e push ds 2d53 57 push di 2d54 9a 00 00 00 00 call far SYSTEM_00B 2d59 bf 00 00 mov di,offset L211 2d5c 0e push cs 2d5d 57 push di 2d5e 9a 00 00 00 00 call far SYSTEM_00F 2d63 bf 00 00 mov di,offset PROGPATH 2d66 1e push ds 2d67 57 push di 2d68 b8 50 00 mov ax,0050H 2d6b 50 push ax 2d6c 9a 00 00 00 00 call far SYSTEM_00C 2d71 8d 7e f5 L213 lea di,-0bH[bp] 2d74 16 push ss 2d75 57 push di 2d76 e8 00 00 call SCL_07A 2d79 8d 7e f5 lea di,-0bH[bp] 2d7c 16 push ss 2d7d 57 push di 2d7e e8 00 00 call SCL_07B 2d81 55 push bp 2d82 e8 00 00 call SCL_07D 2d85 31 c0 xor ax,ax 2d87 a3 00 00 mov STACK_DEBTH,ax 2d8a 31 c0 xor ax,ax 2d8c a3 00 00 mov S_PTR,ax 2d8f 31 c0 xor ax,ax 2d91 a3 00 00 mov R_PTR,ax 2d94 c7 06 00 00 01 00 mov word ptr BUFFTOP,0001H 2d9a c7 06 00 00 01 00 mov word ptr BUFFBOT,0001H 2da0 31 c0 xor ax,ax 2da2 a3 00 00 mov ACTIVE_FIELD,ax 2da5 e8 00 00 call SCL_073 2da8 c4 06 00 00 les ax,dword ptr SYSTEM_BSS+214H 2dac 8c c2 mov dx,es 2dae a3 00 00 mov SAVE_EXITPROC,ax 2db1 89 16 00 00 mov L574,dx 2db5 b8 00 00 mov ax,offset SCL_075 2db8 8c ca mov dx,cs 2dba a3 00 00 mov SYSTEM_BSS+214H,ax 2dbd 89 16 00 00 mov SYSTEM_BSS+216H,dx 2dc1 b8 00 00 mov ax,offset SCL_07C 2dc4 8c ca mov dx,cs 2dc6 a3 00 00 mov LP_BACKGROUND_POINTER,ax 2dc9 89 16 00 00 mov L572,dx 2dcd b8 00 00 mov ax,offset SCL_07C 2dd0 8c ca mov dx,cs 2dd2 a3 00 00 mov HP_BACKGROUND_POINTER,ax 2dd5 89 16 00 00 mov L573,dx 2dd9 89 ec mov sp,bp 2ddb 5d pop bp 2ddc ca 04 00 retf 0004H 2ddf 55 SCL_07F push bp 2de0 89 e5 mov bp,sp 2de2 81 ec 00 01 sub sp,0100H 2de6 bf 00 00 mov di,offset SCREENINDEX 2de9 1e push ds 2dea 57 push di 2deb 8b 7e 04 mov di,+4H[bp] 2dee 36 8b 45 d9 mov ax,ss:-27H[di] 2df2 99 cwd 2df3 52 push dx 2df4 50 push ax 2df5 9a 00 00 00 00 call far SYSTEM_055 2dfa 9a 00 00 00 00 call far SYSTEM_032 2dff bf 00 00 mov di,offset SCREENINDEX 2e02 1e push ds 2e03 57 push di 2e04 bf 00 00 mov di,offset KEYREC 2e07 1e push ds 2e08 57 push di 2e09 9a 00 00 00 00 call far SYSTEM_043 2e0e 83 c4 04 add sp,0004H 2e11 9a 00 00 00 00 call far SYSTEM_032 2e16 bf 00 00 mov di,offset L585 2e19 1e push ds 2e1a 57 push di 2e1b 8b 7e 04 mov di,+4H[bp] 2e1e 81 c7 f3 ff add di,0fff3H 2e22 16 push ss 2e23 57 push di 2e24 0e push cs 2e25 e8 00 00 call SCL_007 2e28 8d be 00 ff lea di,-100H[bp] 2e2c 16 push ss 2e2d 57 push di 2e2e bf 00 00 mov di,offset L585 2e31 1e push ds 2e32 57 push di 2e33 0e push cs 2e34 e8 00 00 call CAPITAL 2e37 bf 00 00 mov di,offset L585 2e3a 1e push ds 2e3b 57 push di 2e3c b8 0a 00 mov ax,000aH 2e3f 50 push ax 2e40 9a 00 00 00 00 call far SYSTEM_00C 2e45 89 ec mov sp,bp 2e47 5d pop bp 2e48 c2 02 00 ret 0002H 2e4b 55 SCL_07E push bp 2e4c 89 e5 mov bp,sp 2e4e 81 ec 29 01 sub sp,0129H 2e52 c4 7e 0c les di,dword ptr +0cH[bp] 2e55 06 push es 2e56 57 push di 2e57 8d 7e f5 lea di,-0bH[bp] 2e5a 16 push ss 2e5b 57 push di 2e5c b8 0a 00 mov ax,000aH 2e5f 50 push ax 2e60 9a 00 00 00 00 call far SYSTEM_00C 2e65 8d be d7 fe lea di,-129H[bp] 2e69 16 push ss 2e6a 57 push di 2e6b 8d 7e f5 lea di,-0bH[bp] 2e6e 16 push ss 2e6f 57 push di 2e70 0e push cs 2e71 e8 00 00 call CAPITAL 2e74 8d 7e e8 lea di,-18H[bp] 2e77 16 push ss 2e78 57 push di 2e79 b8 0a 00 mov ax,000aH 2e7c 50 push ax 2e7d 9a 00 00 00 00 call far SYSTEM_00C 2e82 8d 7e e8 lea di,-18H[bp] 2e85 16 push ss 2e86 57 push di 2e87 8d 7e f3 lea di,-0dH[bp] 2e8a 16 push ss 2e8b 57 push di 2e8c 0e push cs 2e8d e8 00 00 call SCL_007 2e90 31 c0 xor ax,ax 2e92 89 46 d7 mov -29H[bp],ax 2e95 bf 00 00 mov di,offset SCREENINDEX 2e98 1e push ds 2e99 57 push di 2e9a 9a 00 00 00 00 call far SYSTEM_057 2e9f 9a 00 00 00 00 call far SYSTEM_032 2ea4 2d 01 00 sub ax,0001H 2ea7 83 da 00 sbb dx,0000H 2eaa 89 46 db mov -25H[bp],ax 2ead c4 7e 04 les di,dword ptr +4H[bp] 2eb0 26 c6 05 00 mov byte ptr es:[di],00H 2eb4 8b 46 d7 L214 mov ax,-29H[bp] 2eb7 03 46 db add ax,-25H[bp] 2eba 99 cwd 2ebb b9 02 00 mov cx,0002H 2ebe f7 f9 idiv cx 2ec0 89 46 d9 mov -27H[bp],ax 2ec3 55 push bp 2ec4 e8 00 00 call SCL_07F 2ec7 8d 7e e8 lea di,-18H[bp] 2eca 16 push ss 2ecb 57 push di 2ecc bf 00 00 mov di,offset L585 2ecf 1e push ds 2ed0 57 push di 2ed1 9a 00 00 00 00 call far SYSTEM_011 2ed6 73 09 jae L215 2ed8 8b 46 d9 mov ax,-27H[bp] 2edb 48 dec ax 2edc 89 46 db mov -25H[bp],ax 2edf eb 07 jmp L216 2ee1 8b 46 d9 L215 mov ax,-27H[bp] 2ee4 40 inc ax 2ee5 89 46 d7 mov -29H[bp],ax 2ee8 8d 7e e8 L216 lea di,-18H[bp] 2eeb 16 push ss 2eec 57 push di 2eed bf 00 00 mov di,offset L585 2ef0 1e push ds 2ef1 57 push di 2ef2 9a 00 00 00 00 call far SYSTEM_011 2ef7 74 08 je L217 2ef9 8b 46 d7 mov ax,-29H[bp] 2efc 3b 46 db cmp ax,-25H[bp] 2eff 7e b3 jle L214 2f01 a1 00 00 L217 mov ax,L586 2f04 c4 7e 08 les di,dword ptr +8H[bp] 2f07 26 89 05 mov es:[di],ax 2f0a 8d 7e e8 lea di,-18H[bp] 2f0d 16 push ss 2f0e 57 push di 2f0f bf 00 00 mov di,offset L585 2f12 1e push ds 2f13 57 push di 2f14 9a 00 00 00 00 call far SYSTEM_011 2f19 74 04 je L218 2f1b b0 00 mov al,00H 2f1d eb 02 jmp L219 2f1f b0 01 L218 mov al,01H 2f21 c4 7e 04 L219 les di,dword ptr +4H[bp] 2f24 26 88 05 mov es:[di],al 2f27 c4 7e 04 les di,dword ptr +4H[bp] 2f2a 26 80 3d 00 cmp byte ptr es:[di],00H 2f2e 74 13 je L222 2f30 80 3e 00 00 00 cmp byte ptr KEYREC,00H 2f35 74 04 je L220 2f37 b0 00 mov al,00H 2f39 eb 02 jmp L221 2f3b b0 01 L220 mov al,01H 2f3d c4 7e 04 L221 les di,dword ptr +4H[bp] 2f40 26 88 05 mov es:[di],al 2f43 89 ec L222 mov sp,bp 2f45 5d pop bp 2f46 c2 0c 00 ret 000cH 2f49 55 SCL_080 push bp 2f4a 89 e5 mov bp,sp 2f4c 83 ec 04 sub sp,0004H 2f4f a1 00 00 mov ax,S_PTR 2f52 ba 72 00 mov dx,0072H 2f55 f7 e2 mul dx 2f57 8b f8 mov di,ax 2f59 81 c7 00 00 add di,offset L582 2f5d 89 7e fc mov -4H[bp],di 2f60 8c 5e fe mov -2H[bp],ds 2f63 a0 00 00 mov al,USER_FUNCTION 2f66 c4 7e fc les di,dword ptr -4H[bp] 2f69 26 88 45 6b mov es:+6bH[di],al 2f6d a0 00 00 mov al,FIELDEND 2f70 c4 7e fc les di,dword ptr -4H[bp] 2f73 26 88 45 6c mov es:+6cH[di],al 2f77 a1 00 00 mov ax,MX 2f7a c4 7e fc les di,dword ptr -4H[bp] 2f7d 26 89 05 mov es:[di],ax 2f80 a1 00 00 mov ax,MY 2f83 c4 7e fc les di,dword ptr -4H[bp] 2f86 26 89 45 02 mov es:+2H[di],ax 2f8a c4 7e fc les di,dword ptr -4H[bp] 2f8d 26 c4 7d 6e les di,dword ptr es:+6eH[di] 2f91 26 8a 45 3a mov al,es:+3aH[di] 2f95 30 e4 xor ah,ah 2f97 c4 7e fc les di,dword ptr -4H[bp] 2f9a 26 89 45 0a mov es:+0aH[di],ax 2f9e c4 7e fc les di,dword ptr -4H[bp] 2fa1 26 c7 45 0c 01 00 mov word ptr es:+0cH[di],0001H 2fa7 c4 7e fc les di,dword ptr -4H[bp] 2faa 26 c4 7d 6e les di,dword ptr es:+6eH[di] 2fae 26 8a 45 3b mov al,es:+3bH[di] 2fb2 30 e4 xor ah,ah 2fb4 c4 7e fc les di,dword ptr -4H[bp] 2fb7 26 89 45 0e mov es:+0eH[di],ax 2fbb c4 7e fc les di,dword ptr -4H[bp] 2fbe 26 c7 45 10 01 00 mov word ptr es:+10H[di],0001H 2fc4 a1 00 00 mov ax,ACTIVE_FIELD 2fc7 c4 7e fc les di,dword ptr -4H[bp] 2fca 26 89 45 04 mov es:+4H[di],ax 2fce a1 00 00 mov ax,GLB_STATUS 2fd1 c4 7e fc les di,dword ptr -4H[bp] 2fd4 26 89 45 12 mov es:+12H[di],ax 2fd8 a1 00 00 mov ax,GLB_ERROR 2fdb c4 7e fc les di,dword ptr -4H[bp] 2fde 26 89 45 16 mov es:+16H[di],ax 2fe2 a1 00 00 mov ax,XOFF 2fe5 c4 7e fc les di,dword ptr -4H[bp] 2fe8 26 89 45 06 mov es:+6H[di],ax 2fec a1 00 00 mov ax,YOFF 2fef c4 7e fc les di,dword ptr -4H[bp] 2ff2 26 89 45 08 mov es:+8H[di],ax 2ff6 a1 00 00 mov ax,CHAR_CODE 2ff9 c4 7e fc les di,dword ptr -4H[bp] 2ffc 26 89 45 14 mov es:+14H[di],ax 3000 a0 00 00 mov al,CHAR_IMAGE 3003 c4 7e fc les di,dword ptr -4H[bp] 3006 26 88 45 69 mov es:+69H[di],al 300a a0 00 00 mov al,EDITMODE 300d c4 7e fc les di,dword ptr -4H[bp] 3010 26 88 45 6a mov es:+6aH[di],al 3014 bf 00 00 mov di,offset FIELDCONTSAVE 3017 1e push ds 3018 57 push di 3019 c4 7e fc les di,dword ptr -4H[bp] 301c 81 c7 18 00 add di,0018H 3020 06 push es 3021 57 push di 3022 b8 50 00 mov ax,0050H 3025 50 push ax 3026 9a 00 00 00 00 call far SYSTEM_00C 302b 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 3030 7e 08 jle L223 3032 ff 36 00 00 push ACTIVE_FIELD 3036 0e push cs 3037 e8 00 00 call SCL_047 303a 89 ec L223 mov sp,bp 303c 5d pop bp 303d c3 ret 303e 55 SCL_081 push bp 303f 89 e5 mov bp,sp 3041 83 ec 08 sub sp,0008H 3044 83 3e 00 00 01 cmp word ptr S_PTR,0001H 3049 7f 03 jg L224 304b e9 23 02 jmp L236 304e a1 00 00 L224 mov ax,S_PTR 3051 48 dec ax 3052 89 46 fc mov -4H[bp],ax 3055 b8 01 00 mov ax,0001H 3058 3b 46 fc cmp ax,-4H[bp] 305b 7e 03 jle L225 305d e9 11 02 jmp L236 3060 89 46 fe L225 mov -2H[bp],ax 3063 eb 03 jmp L227 3065 ff 46 fe L226 inc word ptr -2H[bp] 3068 8b 46 fe L227 mov ax,-2H[bp] 306b ba 72 00 mov dx,0072H 306e f7 e2 mul dx 3070 8b f8 mov di,ax 3072 81 c7 00 00 add di,offset L582 3076 89 7e f8 mov -8H[bp],di 3079 8c 5e fa mov -6H[bp],ds 307c a1 00 00 mov ax,S_PTR 307f ba 72 00 mov dx,0072H 3082 f7 e2 mul dx 3084 8b f8 mov di,ax 3086 c4 bd 00 00 les di,dword ptr L584[di] 308a 26 8a 45 3a mov al,es:+3aH[di] 308e 30 e4 xor ah,ah 3090 03 06 00 00 add ax,XOFF 3094 c4 7e f8 les di,dword ptr -8H[bp] 3097 26 3b 45 06 cmp ax,es:+6H[di] 309b 7d 03 jge L228 309d e9 c6 01 jmp L235 30a0 a1 00 00 L228 mov ax,S_PTR 30a3 ba 72 00 mov dx,0072H 30a6 f7 e2 mul dx 30a8 8b f8 mov di,ax 30aa c4 bd 00 00 les di,dword ptr L584[di] 30ae 26 8a 45 3b mov al,es:+3bH[di] 30b2 30 e4 xor ah,ah 30b4 03 06 00 00 add ax,YOFF 30b8 c4 7e f8 les di,dword ptr -8H[bp] 30bb 26 3b 45 08 cmp ax,es:+8H[di] 30bf 7d 03 jge L229 30c1 e9 a2 01 jmp L235 30c4 c4 7e f8 L229 les di,dword ptr -8H[bp] 30c7 26 c4 7d 6e les di,dword ptr es:+6eH[di] 30cb 26 8a 45 3a mov al,es:+3aH[di] 30cf 30 e4 xor ah,ah 30d1 c4 7e f8 les di,dword ptr -8H[bp] 30d4 26 03 45 06 add ax,es:+6H[di] 30d8 3b 06 00 00 cmp ax,XOFF 30dc 7d 03 jge L230 30de e9 85 01 jmp L235 30e1 c4 7e f8 L230 les di,dword ptr -8H[bp] 30e4 26 c4 7d 6e les di,dword ptr es:+6eH[di] 30e8 26 8a 45 3b mov al,es:+3bH[di] 30ec 30 e4 xor ah,ah 30ee c4 7e f8 les di,dword ptr -8H[bp] 30f1 26 03 45 08 add ax,es:+8H[di] 30f5 3b 06 00 00 cmp ax,YOFF 30f9 7d 03 jge L231 30fb e9 68 01 jmp L235 30fe c4 7e f8 L231 les di,dword ptr -8H[bp] 3101 26 8b 45 0a mov ax,es:+0aH[di] 3105 c4 7e f8 les di,dword ptr -8H[bp] 3108 26 03 45 06 add ax,es:+6H[di] 310c 3b 06 00 00 cmp ax,XOFF 3110 7e 24 jle L232 3112 a1 00 00 mov ax,XOFF 3115 c4 7e f8 les di,dword ptr -8H[bp] 3118 26 2b 45 06 sub ax,es:+6H[di] 311c c4 7e f8 les di,dword ptr -8H[bp] 311f 26 89 45 0a mov es:+0aH[di],ax 3123 c4 7e f8 les di,dword ptr -8H[bp] 3126 26 83 7d 0a 01 cmp word ptr es:+0aH[di],0001H 312b 7d 09 jge L232 312d c4 7e f8 les di,dword ptr -8H[bp] 3130 26 c7 45 0a 01 00 mov word ptr es:+0aH[di],0001H 3136 c4 7e f8 L232 les di,dword ptr -8H[bp] 3139 26 8b 45 0c mov ax,es:+0cH[di] 313d c4 7e f8 les di,dword ptr -8H[bp] 3140 26 03 45 06 add ax,es:+6H[di] 3144 8b c8 mov cx,ax 3146 a1 00 00 mov ax,S_PTR 3149 ba 72 00 mov dx,0072H 314c f7 e2 mul dx 314e 8b f8 mov di,ax 3150 c4 bd 00 00 les di,dword ptr L584[di] 3154 26 8a 45 3a mov al,es:+3aH[di] 3158 30 e4 xor ah,ah 315a 03 06 00 00 add ax,XOFF 315e 3b c1 cmp ax,cx 3160 7e 50 jle L233 3162 a1 00 00 mov ax,S_PTR 3165 ba 72 00 mov dx,0072H 3168 f7 e2 mul dx 316a 8b f8 mov di,ax 316c c4 bd 00 00 les di,dword ptr L584[di] 3170 26 8a 45 3a mov al,es:+3aH[di] 3174 30 e4 xor ah,ah 3176 03 06 00 00 add ax,XOFF 317a c4 7e f8 les di,dword ptr -8H[bp] 317d 26 2b 45 06 sub ax,es:+6H[di] 3181 c4 7e f8 les di,dword ptr -8H[bp] 3184 26 89 45 0c mov es:+0cH[di],ax 3188 c4 7e f8 les di,dword ptr -8H[bp] 318b 26 c4 7d 6e les di,dword ptr es:+6eH[di] 318f 26 8a 45 3a mov al,es:+3aH[di] 3193 30 e4 xor ah,ah 3195 c4 7e f8 les di,dword ptr -8H[bp] 3198 26 3b 45 0c cmp ax,es:+0cH[di] 319c 7d 14 jge L233 319e c4 7e f8 les di,dword ptr -8H[bp] 31a1 26 c4 7d 6e les di,dword ptr es:+6eH[di] 31a5 26 8a 45 3a mov al,es:+3aH[di] 31a9 30 e4 xor ah,ah 31ab c4 7e f8 les di,dword ptr -8H[bp] 31ae 26 89 45 0c mov es:+0cH[di],ax 31b2 c4 7e f8 L233 les di,dword ptr -8H[bp] 31b5 26 8b 45 0e mov ax,es:+0eH[di] 31b9 c4 7e f8 les di,dword ptr -8H[bp] 31bc 26 03 45 08 add ax,es:+8H[di] 31c0 3b 06 00 00 cmp ax,YOFF 31c4 7e 24 jle L234 31c6 a1 00 00 mov ax,YOFF 31c9 c4 7e f8 les di,dword ptr -8H[bp] 31cc 26 2b 45 08 sub ax,es:+8H[di] 31d0 c4 7e f8 les di,dword ptr -8H[bp] 31d3 26 89 45 0e mov es:+0eH[di],ax 31d7 c4 7e f8 les di,dword ptr -8H[bp] 31da 26 83 7d 0e 01 cmp word ptr es:+0eH[di],0001H 31df 7d 09 jge L234 31e1 c4 7e f8 les di,dword ptr -8H[bp] 31e4 26 c7 45 0e 01 00 mov word ptr es:+0eH[di],0001H 31ea c4 7e f8 L234 les di,dword ptr -8H[bp] 31ed 26 8b 45 10 mov ax,es:+10H[di] 31f1 c4 7e f8 les di,dword ptr -8H[bp] 31f4 26 03 45 08 add ax,es:+8H[di] 31f8 8b c8 mov cx,ax 31fa a1 00 00 mov ax,S_PTR 31fd ba 72 00 mov dx,0072H 3200 f7 e2 mul dx 3202 8b f8 mov di,ax 3204 c4 bd 00 00 les di,dword ptr L584[di] 3208 26 8a 45 3b mov al,es:+3bH[di] 320c 30 e4 xor ah,ah 320e 03 06 00 00 add ax,YOFF 3212 3b c1 cmp ax,cx 3214 7e 50 jle L235 3216 a1 00 00 mov ax,S_PTR 3219 ba 72 00 mov dx,0072H 321c f7 e2 mul dx 321e 8b f8 mov di,ax 3220 c4 bd 00 00 les di,dword ptr L584[di] 3224 26 8a 45 3b mov al,es:+3bH[di] 3228 30 e4 xor ah,ah 322a 03 06 00 00 add ax,YOFF 322e c4 7e f8 les di,dword ptr -8H[bp] 3231 26 2b 45 08 sub ax,es:+8H[di] 3235 c4 7e f8 les di,dword ptr -8H[bp] 3238 26 89 45 10 mov es:+10H[di],ax 323c c4 7e f8 les di,dword ptr -8H[bp] 323f 26 c4 7d 6e les di,dword ptr es:+6eH[di] 3243 26 8a 45 3b mov al,es:+3bH[di] 3247 30 e4 xor ah,ah 3249 c4 7e f8 les di,dword ptr -8H[bp] 324c 26 3b 45 10 cmp ax,es:+10H[di] 3250 7d 14 jge L235 3252 c4 7e f8 les di,dword ptr -8H[bp] 3255 26 c4 7d 6e les di,dword ptr es:+6eH[di] 3259 26 8a 45 3b mov al,es:+3bH[di] 325d 30 e4 xor ah,ah 325f c4 7e f8 les di,dword ptr -8H[bp] 3262 26 89 45 10 mov es:+10H[di],ax 3266 8b 46 fe L235 mov ax,-2H[bp] 3269 3b 46 fc cmp ax,-4H[bp] 326c 74 03 je L236 326e e9 f4 fd jmp L226 3271 89 ec L236 mov sp,bp 3273 5d pop bp 3274 c3 ret 3275 BLANK_FORMAT: 3275 55 SCL_04C push bp 3276 89 e5 mov bp,sp 3278 81 ec 0e 02 sub sp,020eH 327c a1 00 00 mov ax,S_PTR 327f ba 72 00 mov dx,0072H 3282 f7 e2 mul dx 3284 8b f8 mov di,ax 3286 c4 bd 00 00 les di,dword ptr L584[di] 328a 89 be f2 fe mov -10eH[bp],di 328e 8c 86 f4 fe mov -10cH[bp],es 3292 a1 00 00 mov ax,YOFF 3295 40 inc ax 3296 89 46 fa mov -6H[bp],ax 3299 c4 be f2 fe les di,dword ptr -10eH[bp] 329d 26 8a 45 3b mov al,es:+3bH[di] 32a1 30 e4 xor ah,ah 32a3 03 06 00 00 add ax,YOFF 32a7 89 46 fc mov -4H[bp],ax 32aa a1 00 00 mov ax,XOFF 32ad 40 inc ax 32ae 89 46 fe mov -2H[bp],ax 32b1 8d be f2 fd lea di,-20eH[bp] 32b5 16 push ss 32b6 57 push di 32b7 b0 20 mov al,20H 32b9 50 push ax 32ba c4 be f2 fe les di,dword ptr -10eH[bp] 32be 26 8a 45 3a mov al,es:+3aH[di] 32c2 30 e4 xor ah,ah 32c4 50 push ax 32c5 0e push cs 32c6 e8 00 00 call CHARSTRING 32c9 8d be f6 fe lea di,-10aH[bp] 32cd 16 push ss 32ce 57 push di 32cf b8 ff 00 mov ax,00ffH 32d2 50 push ax 32d3 9a 00 00 00 00 call far SYSTEM_00C 32d8 8b 46 fc mov ax,-4H[bp] 32db 89 86 f4 fe mov -10cH[bp],ax 32df 8b 46 fa mov ax,-6H[bp] 32e2 3b 86 f4 fe cmp ax,-10cH[bp] 32e6 7f 26 jg L239 32e8 89 46 f8 mov -8H[bp],ax 32eb eb 03 jmp L238 32ed ff 46 f8 L237 inc word ptr -8H[bp] 32f0 8d be f6 fe L238 lea di,-10aH[bp] 32f4 16 push ss 32f5 57 push di 32f6 8a 46 fe mov al,-2H[bp] 32f9 50 push ax 32fa 8a 46 f8 mov al,-8H[bp] 32fd 50 push ax 32fe b0 07 mov al,07H 3300 50 push ax 3301 0e push cs 3302 e8 00 00 call SCL_01B 3305 8b 46 f8 mov ax,-8H[bp] 3308 3b 86 f4 fe cmp ax,-10cH[bp] 330c 75 df jne L237 330e e8 00 00 L239 call SCL_081 3311 89 ec mov sp,bp 3313 5d pop bp 3314 cb retf 3315 SCL_PREPARE_STACK: 3315 55 SCL_023 push bp 3316 89 e5 mov bp,sp 3318 9a 00 00 00 00 call far SYSTEM_027 331d 83 fa 00 cmp dx,0000H 3320 7c 07 jl L240 3322 7f 0d jg L241 3324 3d 00 12 cmp ax,1200H 3327 73 08 jae L241 3329 b8 06 00 L240 mov ax,0006H 332c 50 push ax 332d 0e push cs 332e e8 00 00 call FATAL_SCL_ERROR 3331 83 3e 00 00 00 L241 cmp word ptr S_PTR,0000H 3336 7e 3a jle L243 3338 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 333d 7e 08 jle L242 333f ff 36 00 00 push ACTIVE_FIELD 3343 0e push cs 3344 e8 00 00 call SCL_047 3347 a1 00 00 L242 mov ax,S_PTR 334a ba 72 00 mov dx,0072H 334d f7 e2 mul dx 334f 8b f8 mov di,ax 3351 c4 bd 00 00 les di,dword ptr L584[di] 3355 26 8a 45 3f mov al,es:+3fH[di] 3359 50 push ax 335a 0e push cs 335b e8 00 00 call PAINT_FORMAT_FRAME 335e a1 00 00 mov ax,S_PTR 3361 ba 72 00 mov dx,0072H 3364 f7 e2 mul dx 3366 8b f8 mov di,ax 3368 80 bd 00 00 00 cmp byte ptr L583[di],00H 336d 75 03 jne L243 336f e8 00 00 call SCL_080 3372 a1 00 00 L243 mov ax,S_PTR 3375 40 inc ax 3376 a3 00 00 mov S_PTR,ax 3379 31 c0 xor ax,ax 337b a3 00 00 mov ACTIVE_FORMAT,ax 337e a1 00 00 mov ax,S_PTR 3381 3b 06 00 00 cmp ax,STACK_DEBTH 3385 7e 1f jle L244 3387 a1 00 00 mov ax,S_PTR 338a a3 00 00 mov STACK_DEBTH,ax 338d a1 00 00 mov ax,S_PTR 3390 ba 72 00 mov dx,0072H 3393 f7 e2 mul dx 3395 8b f8 mov di,ax 3397 81 c7 00 00 add di,offset L584 339b 1e push ds 339c 57 push di 339d b8 00 12 mov ax,1200H 33a0 50 push ax 33a1 9a 00 00 00 00 call far SYSTEM_022 33a6 a1 00 00 L244 mov ax,S_PTR 33a9 ba 72 00 mov dx,0072H 33ac f7 e2 mul dx 33ae 8b f8 mov di,ax 33b0 c6 85 00 00 00 mov byte ptr L583[di],00H 33b5 89 ec mov sp,bp 33b7 5d pop bp 33b8 cb retf 33b9 SELECT_FORMAT: 33b9 55 SCL_04D push bp 33ba 89 e5 mov bp,sp 33bc 83 ec 10 sub sp,0010H 33bf c4 7e 06 les di,dword ptr +6H[bp] 33c2 06 push es 33c3 57 push di 33c4 8d 7e f5 lea di,-0bH[bp] 33c7 16 push ss 33c8 57 push di 33c9 b8 0a 00 mov ax,000aH 33cc 50 push ax 33cd 9a 00 00 00 00 call far SYSTEM_00C 33d2 8d 7e f5 lea di,-0bH[bp] 33d5 16 push ss 33d6 57 push di 33d7 8d 7e f3 lea di,-0dH[bp] 33da 16 push ss 33db 57 push di 33dc 8d 7e f0 lea di,-10H[bp] 33df 16 push ss 33e0 57 push di 33e1 e8 00 00 call SCL_07E 33e4 80 7e f0 00 cmp byte ptr -10H[bp],00H 33e8 74 66 je L246 33ea 0e push cs 33eb e8 00 00 call SCL_023 33ee bf 00 00 mov di,offset SCREENS 33f1 1e push ds 33f2 57 push di 33f3 8b 46 f3 mov ax,-0dH[bp] 33f6 b9 24 00 mov cx,0024H 33f9 f7 e9 imul cx 33fb 99 cwd 33fc 52 push dx 33fd 50 push ax 33fe 9a 00 00 00 00 call far SYSTEM_055 3403 9a 00 00 00 00 call far SYSTEM_032 3408 bf 00 00 mov di,offset SCREENS 340b 1e push ds 340c 57 push di 340d a1 00 00 mov ax,S_PTR 3410 ba 72 00 mov dx,0072H 3413 f7 e2 mul dx 3415 8b f8 mov di,ax 3417 c4 bd 00 00 les di,dword ptr L584[di] 341b 06 push es 341c 57 push di 341d b8 24 00 mov ax,0024H 3420 50 push ax 3421 31 c0 xor ax,ax 3423 50 push ax 3424 50 push ax 3425 9a 00 00 00 00 call far SYSTEM_053 342a 9a 00 00 00 00 call far SYSTEM_032 342f a1 00 00 mov ax,S_PTR 3432 a3 00 00 mov W_PTR,ax 3435 c6 06 00 00 00 mov byte ptr FORMAT_ABORTED,00H 343a a1 00 00 mov ax,R_PTR 343d 3b 06 00 00 cmp ax,S_PTR 3441 75 05 jne L245 3443 31 c0 xor ax,ax 3445 a3 00 00 mov R_PTR,ax 3448 8b 46 f3 L245 mov ax,-0dH[bp] 344b a3 00 00 mov ACTIVE_FORMAT,ax 344e eb 08 jmp L247 3450 b8 05 00 L246 mov ax,0005H 3453 50 push ax 3454 0e push cs 3455 e8 00 00 call FATAL_SCL_ERROR 3458 89 ec L247 mov sp,bp 345a 5d pop bp 345b ca 04 00 retf 0004H 345e 55 SCL_082 push bp 345f 89 e5 mov bp,sp 3461 83 ec 14 sub sp,0014H 3464 a1 00 00 mov ax,S_PTR 3467 ba 72 00 mov dx,0072H 346a f7 e2 mul dx 346c 8b f8 mov di,ax 346e c4 bd 00 00 les di,dword ptr L584[di] 3472 89 7e ee mov -12H[bp],di 3475 8c 46 f0 mov -10H[bp],es 3478 80 3e 00 00 07 cmp byte ptr SCREEN_MODE,07H 347d 75 08 jne L248 347f c4 7e ee les di,dword ptr -12H[bp] 3482 26 c6 45 3f 07 mov byte ptr es:+3fH[di],07H 3487 a1 00 00 L248 mov ax,S_PTR 348a a3 00 00 mov ACTIVEFORMAT,ax 348d 8b 46 06 mov ax,+6H[bp] 3490 a3 00 00 mov XOFF,ax 3493 8b 46 04 mov ax,+4H[bp] 3496 a3 00 00 mov YOFF,ax 3499 31 c0 xor ax,ax 349b a3 00 00 mov ERRORCOUNT,ax 349e c4 7e ee les di,dword ptr -12H[bp] 34a1 26 8a 45 3a mov al,es:+3aH[di] 34a5 30 e4 xor ah,ah 34a7 03 06 00 00 add ax,XOFF 34ab 3d 50 00 cmp ax,0050H 34ae 7f 12 jg L249 34b0 c4 7e ee les di,dword ptr -12H[bp] 34b3 26 8a 45 3b mov al,es:+3bH[di] 34b7 30 e4 xor ah,ah 34b9 03 06 00 00 add ax,YOFF 34bd 3d 19 00 cmp ax,0019H 34c0 7e 08 jle L250 34c2 b8 04 00 L249 mov ax,0004H 34c5 50 push ax 34c6 0e push cs 34c7 e8 00 00 call FATAL_SCL_ERROR 34ca c4 7e ee L250 les di,dword ptr -12H[bp] 34cd 26 8a 45 3b mov al,es:+3bH[di] 34d1 30 e4 xor ah,ah 34d3 89 46 ec mov -14H[bp],ax 34d6 b8 01 00 mov ax,0001H 34d9 3b 46 ec cmp ax,-14H[bp] 34dc 7f 3b jg L253 34de 89 46 fe mov -2H[bp],ax 34e1 eb 03 jmp L252 34e3 ff 46 fe L251 inc word ptr -2H[bp] 34e6 8b 46 fe L252 mov ax,-2H[bp] 34e9 ba 51 00 mov dx,0051H 34ec f7 e2 mul dx 34ee c4 7e ee les di,dword ptr -12H[bp] 34f1 03 f8 add di,ax 34f3 81 c7 ef ff add di,0ffefH 34f7 06 push es 34f8 57 push di 34f9 a1 00 00 mov ax,XOFF 34fc 40 inc ax 34fd 50 push ax 34fe a1 00 00 mov ax,YOFF 3501 03 46 fe add ax,-2H[bp] 3504 50 push ax 3505 c4 7e ee les di,dword ptr -12H[bp] 3508 26 8a 45 3f mov al,es:+3fH[di] 350c 50 push ax 350d 0e push cs 350e e8 00 00 call SCL_01B 3511 8b 46 fe mov ax,-2H[bp] 3514 3b 46 ec cmp ax,-14H[bp] 3517 75 ca jne L251 3519 c4 7e ee L253 les di,dword ptr -12H[bp] 351c 26 8a 45 3f mov al,es:+3fH[di] 3520 0c 08 or al,08H 3522 50 push ax 3523 0e push cs 3524 e8 00 00 call PAINT_FORMAT_FRAME 3527 e8 00 00 call SCL_081 352a 89 ec mov sp,bp 352c 5d pop bp 352d c2 04 00 ret 0004H 3530 GET_NEXT_CHAR: 3530 55 SCL_04E push bp 3531 89 e5 mov bp,sp 3533 83 ec 01 sub sp,0001H 3536 8d 7e ff lea di,-1H[bp] 3539 16 push ss 353a 57 push di 353b 0e push cs 353c e8 00 00 call NEXT_CHAR 353f c4 7e 06 les di,dword ptr +6H[bp] 3542 26 88 05 mov es:[di],al 3545 80 7e ff 00 cmp byte ptr -1H[bp],00H 3549 75 10 jne L254 354b c4 7e 06 les di,dword ptr +6H[bp] 354e 26 8a 05 mov al,es:[di] 3551 30 e4 xor ah,ah 3553 c4 7e 0a les di,dword ptr +0aH[bp] 3556 26 89 05 mov es:[di],ax 3559 eb 11 jmp L255 355b c4 7e 06 L254 les di,dword ptr +6H[bp] 355e 26 8a 05 mov al,es:[di] 3561 30 e4 xor ah,ah 3563 05 e8 03 add ax,03e8H 3566 c4 7e 0a les di,dword ptr +0aH[bp] 3569 26 89 05 mov es:[di],ax 356c 89 ec L255 mov sp,bp 356e 5d pop bp 356f ca 08 00 retf 0008H 3572 55 SCL_083 push bp 3573 89 e5 mov bp,sp 3575 8b 46 04 mov ax,+4H[bp] 3578 3b 06 00 00 cmp ax,ACTIVE_FIELD 357c 75 09 jne L256 357e ff 76 04 push +4H[bp] 3581 0e push cs 3582 e8 00 00 call SCL_048 3585 eb 07 jmp L257 3587 ff 76 04 L256 push +4H[bp] 358a 0e push cs 358b e8 00 00 call SCL_047 358e 89 ec L257 mov sp,bp 3590 5d pop bp 3591 c2 02 00 ret 0002H 3594 W_CONT: 3594 55 SCL_04F push bp 3595 89 e5 mov bp,sp 3597 81 ec ce 00 sub sp,00ceH 359b c4 7e 06 les di,dword ptr +6H[bp] 359e 06 push es 359f 57 push di 35a0 8d 7e af lea di,-51H[bp] 35a3 16 push ss 35a4 57 push di 35a5 b8 50 00 mov ax,0050H 35a8 50 push ax 35a9 9a 00 00 00 00 call far SYSTEM_00C 35ae 83 3e 00 00 01 cmp word ptr W_PTR,0001H 35b3 7d 08 jge L258 35b5 b8 0c 00 mov ax,000cH 35b8 50 push ax 35b9 0e push cs 35ba e8 00 00 call FATAL_SCL_ERROR 35bd a1 00 00 L258 mov ax,W_PTR 35c0 ba 72 00 mov dx,0072H 35c3 f7 e2 mul dx 35c5 8b f8 mov di,ax 35c7 c4 bd 00 00 les di,dword ptr L584[di] 35cb 89 be 58 ff mov -0a8H[bp],di 35cf 8c 86 5a ff mov -0a6H[bp],es 35d3 8a 46 0a mov al,+0aH[bp] 35d6 50 push ax 35d7 8d be 38 ff lea di,-0c8H[bp] 35db 16 push ss 35dc 57 push di 35dd 9a 00 00 00 00 call far SYSTEM_028 35e2 b0 01 mov al,01H 35e4 50 push ax 35e5 c4 be 58 ff les di,dword ptr -0a8H[bp] 35e9 26 8a 45 37 mov al,es:+37H[di] 35ed 50 push ax 35ee 9a 00 00 00 00 call far SYSTEM_02A 35f3 9a 00 00 00 00 call far SYSTEM_018 35f8 75 0b jne L259 35fa b8 0d 00 mov ax,000dH 35fd 50 push ax 35fe 0e push cs 35ff e8 00 00 call FATAL_SCL_ERROR 3602 e9 cf 00 jmp L263 3605 8b 46 0a L259 mov ax,+0aH[bp] 3608 ba 30 00 mov dx,0030H 360b f7 e2 mul dx 360d c4 be 58 ff les di,dword ptr -0a8H[bp] 3611 03 f8 add di,ax 3613 81 c7 f9 07 add di,07f9H 3617 89 be 34 ff mov -0ccH[bp],di 361b 8c 86 36 ff mov -0caH[bp],es 361f 8d 7e af lea di,-51H[bp] 3622 16 push ss 3623 57 push di 3624 8d be 5c ff lea di,-0a4H[bp] 3628 16 push ss 3629 57 push di 362a b8 50 00 mov ax,0050H 362d 50 push ax 362e 9a 00 00 00 00 call far SYSTEM_00C 3633 8d be 5c ff lea di,-0a4H[bp] 3637 16 push ss 3638 57 push di 3639 a0 00 00 mov al,SPACE 363c 50 push ax 363d b0 00 mov al,00H 363f 50 push ax 3640 c4 be 34 ff les di,dword ptr -0ccH[bp] 3644 26 8a 45 0f mov al,es:+0fH[di] 3648 30 e4 xor ah,ah 364a 50 push ax 364b 0e push cs 364c e8 00 00 call FTAB 364f c4 be 34 ff les di,dword ptr -0ccH[bp] 3653 26 8a 45 0f mov al,es:+0fH[di] 3657 30 e4 xor ah,ah 3659 8b d0 mov dx,ax 365b c4 be 34 ff les di,dword ptr -0ccH[bp] 365f 26 8a 45 0d mov al,es:+0dH[di] 3663 30 e4 xor ah,ah 3665 03 c2 add ax,dx 3667 48 dec ax 3668 89 86 32 ff mov -0ceH[bp],ax 366c c4 be 34 ff les di,dword ptr -0ccH[bp] 3670 26 8a 45 0d mov al,es:+0dH[di] 3674 30 e4 xor ah,ah 3676 3b 86 32 ff cmp ax,-0ceH[bp] 367a 7f 49 jg L262 367c 89 46 ad mov -53H[bp],ax 367f eb 03 jmp L261 3681 ff 46 ad L260 inc word ptr -53H[bp] 3684 c4 be 34 ff L261 les di,dword ptr -0ccH[bp] 3688 26 8a 45 0d mov al,es:+0dH[di] 368c 30 e4 xor ah,ah 368e 8b d0 mov dx,ax 3690 8b 46 ad mov ax,-53H[bp] 3693 2b c2 sub ax,dx 3695 40 inc ax 3696 8b f8 mov di,ax 3698 8a 9b 5c ff mov bl,-0a4H[bp+di] 369c 8b 46 ad mov ax,-53H[bp] 369f 8b c8 mov cx,ax 36a1 c4 be 34 ff les di,dword ptr -0ccH[bp] 36a5 26 8a 45 0e mov al,es:+0eH[di] 36a9 30 e4 xor ah,ah 36ab ba 51 00 mov dx,0051H 36ae f7 e2 mul dx 36b0 c4 be 58 ff les di,dword ptr -0a8H[bp] 36b4 03 f8 add di,ax 36b6 03 f9 add di,cx 36b8 26 88 5d ef mov es:-11H[di],bl 36bc 8b 46 ad mov ax,-53H[bp] 36bf 3b 86 32 ff cmp ax,-0ceH[bp] 36c3 75 bc jne L260 36c5 a1 00 00 L262 mov ax,W_PTR 36c8 3b 06 00 00 cmp ax,ACTIVEFORMAT 36cc 75 06 jne L263 36ce ff 76 0a push +0aH[bp] 36d1 e8 00 00 call SCL_083 36d4 89 ec L263 mov sp,bp 36d6 5d pop bp 36d7 ca 06 00 retf 0006H 36da W_SEL: 36da 55 SCL_050 push bp 36db 89 e5 mov bp,sp 36dd 83 ec 2a sub sp,002aH 36e0 83 3e 00 00 01 cmp word ptr W_PTR,0001H 36e5 7d 08 jge L264 36e7 b8 0c 00 mov ax,000cH 36ea 50 push ax 36eb 0e push cs 36ec e8 00 00 call FATAL_SCL_ERROR 36ef a1 00 00 L264 mov ax,W_PTR 36f2 ba 72 00 mov dx,0072H 36f5 f7 e2 mul dx 36f7 8b f8 mov di,ax 36f9 c4 bd 00 00 les di,dword ptr L584[di] 36fd 89 7e fa mov -6H[bp],di 3700 8c 46 fc mov -4H[bp],es 3703 8a 46 08 mov al,+8H[bp] 3706 50 push ax 3707 8d 7e da lea di,-26H[bp] 370a 16 push ss 370b 57 push di 370c 9a 00 00 00 00 call far SYSTEM_028 3711 b0 01 mov al,01H 3713 50 push ax 3714 c4 7e fa les di,dword ptr -6H[bp] 3717 26 8a 45 37 mov al,es:+37H[di] 371b 50 push ax 371c 9a 00 00 00 00 call far SYSTEM_02A 3721 9a 00 00 00 00 call far SYSTEM_018 3726 75 0a jne L265 3728 b8 0d 00 mov ax,000dH 372b 50 push ax 372c 0e push cs 372d e8 00 00 call FATAL_SCL_ERROR 3730 eb 30 jmp L266 3732 8b 46 08 L265 mov ax,+8H[bp] 3735 ba 30 00 mov dx,0030H 3738 f7 e2 mul dx 373a c4 7e fa les di,dword ptr -6H[bp] 373d 03 f8 add di,ax 373f 81 c7 f9 07 add di,07f9H 3743 89 7e d6 mov -2aH[bp],di 3746 8c 46 d8 mov -28H[bp],es 3749 8a 46 06 mov al,+6H[bp] 374c c4 7e d6 les di,dword ptr -2aH[bp] 374f 26 88 45 2e mov es:+2eH[di],al 3753 a1 00 00 mov ax,W_PTR 3756 3b 06 00 00 cmp ax,ACTIVEFORMAT 375a 75 06 jne L266 375c ff 76 08 push +8H[bp] 375f e8 00 00 call SCL_083 3762 89 ec L266 mov sp,bp 3764 5d pop bp 3765 ca 04 00 retf 0004H 3768 C_CONT: 3768 55 SCL_051 push bp 3769 89 e5 mov bp,sp 376b 81 ec 00 01 sub sp,0100H 376f ff 76 06 push +6H[bp] 3772 8d be 00 ff lea di,-100H[bp] 3776 16 push ss 3777 57 push di 3778 a0 00 00 mov al,SPACE 377b 50 push ax 377c 9a 00 00 00 00 call far SYSTEM_012 3781 0e push cs 3782 e8 00 00 call SCL_04F 3785 89 ec mov sp,bp 3787 5d pop bp 3788 ca 02 00 retf 0002H 378b 55 SCL_084 push bp 378c 89 e5 mov bp,sp 378e 83 ec 04 sub sp,0004H 3791 a1 00 00 mov ax,S_PTR 3794 ba 72 00 mov dx,0072H 3797 f7 e2 mul dx 3799 8b f8 mov di,ax 379b 81 c7 00 00 add di,offset L582 379f 89 7e fc mov -4H[bp],di 37a2 8c 5e fe mov -2H[bp],ds 37a5 c6 06 00 00 00 mov byte ptr ERROR_MSG_PRESENT,00H 37aa c4 7e fc les di,dword ptr -4H[bp] 37ad 26 8a 45 6b mov al,es:+6bH[di] 37b1 a2 00 00 mov USER_FUNCTION,al 37b4 c4 7e fc les di,dword ptr -4H[bp] 37b7 26 8a 45 6c mov al,es:+6cH[di] 37bb a2 00 00 mov FIELDEND,al 37be c4 7e fc les di,dword ptr -4H[bp] 37c1 26 8b 05 mov ax,es:[di] 37c4 a3 00 00 mov MX,ax 37c7 c4 7e fc les di,dword ptr -4H[bp] 37ca 26 8b 45 02 mov ax,es:+2H[di] 37ce a3 00 00 mov MY,ax 37d1 c4 7e fc les di,dword ptr -4H[bp] 37d4 26 8b 45 04 mov ax,es:+4H[di] 37d8 a3 00 00 mov ACTIVE_FIELD,ax 37db c4 7e fc les di,dword ptr -4H[bp] 37de 26 8b 45 12 mov ax,es:+12H[di] 37e2 a3 00 00 mov GLB_STATUS,ax 37e5 c4 7e fc les di,dword ptr -4H[bp] 37e8 26 8b 45 16 mov ax,es:+16H[di] 37ec a3 00 00 mov GLB_ERROR,ax 37ef c4 7e fc les di,dword ptr -4H[bp] 37f2 26 8b 45 14 mov ax,es:+14H[di] 37f6 a3 00 00 mov CHAR_CODE,ax 37f9 c4 7e fc les di,dword ptr -4H[bp] 37fc 26 8a 45 69 mov al,es:+69H[di] 3800 a2 00 00 mov CHAR_IMAGE,al 3803 c4 7e fc les di,dword ptr -4H[bp] 3806 26 8b 45 06 mov ax,es:+6H[di] 380a a3 00 00 mov XOFF,ax 380d c4 7e fc les di,dword ptr -4H[bp] 3810 26 8b 45 08 mov ax,es:+8H[di] 3814 a3 00 00 mov YOFF,ax 3817 a1 00 00 mov ax,S_PTR 381a a3 00 00 mov W_PTR,ax 381d c4 7e fc les di,dword ptr -4H[bp] 3820 26 8a 45 6a mov al,es:+6aH[di] 3824 50 push ax 3825 0e push cs 3826 e8 00 00 call SCL_01A 3829 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 382e 75 04 jne L267 3830 0e push cs 3831 e8 00 00 call CURSOR_OFF 3834 89 ec L267 mov sp,bp 3836 5d pop bp 3837 c3 ret 3838 55 SCL_086 push bp 3839 89 e5 mov bp,sp 383b 83 ec 09 sub sp,0009H 383e a1 00 00 mov ax,S_PTR 3841 ba 72 00 mov dx,0072H 3844 f7 e2 mul dx 3846 8b f8 mov di,ax 3848 81 c7 00 00 add di,offset L582 384c 89 7e fb mov -5H[bp],di 384f 8c 5e fd mov -3H[bp],ds 3852 8b 46 06 mov ax,+6H[bp] 3855 ba 30 00 mov dx,0030H 3858 f7 e2 mul dx 385a c4 7e fb les di,dword ptr -5H[bp] 385d 26 c4 7d 6e les di,dword ptr es:+6eH[di] 3861 03 f8 add di,ax 3863 81 c7 f9 07 add di,07f9H 3867 89 7e f7 mov -9H[bp],di 386a 8c 46 f9 mov -7H[bp],es 386d c4 7e f7 les di,dword ptr -9H[bp] 3870 26 8a 45 0e mov al,es:+0eH[di] 3874 30 e4 xor ah,ah 3876 c4 7e fb les di,dword ptr -5H[bp] 3879 26 3b 45 0e cmp ax,es:+0eH[di] 387d 7c 16 jl L268 387f c4 7e f7 les di,dword ptr -9H[bp] 3882 26 8a 45 0e mov al,es:+0eH[di] 3886 30 e4 xor ah,ah 3888 c4 7e fb les di,dword ptr -5H[bp] 388b 26 3b 45 10 cmp ax,es:+10H[di] 388f 7f 04 jg L268 3891 b0 00 mov al,00H 3893 eb 02 jmp L269 3895 b0 01 L268 mov al,01H 3897 88 46 ff L269 mov -1H[bp],al 389a 8a 46 ff mov al,-1H[bp] 389d 89 ec mov sp,bp 389f 5d pop bp 38a0 c2 04 00 ret 0004H 38a3 55 SCL_085 push bp 38a4 89 e5 mov bp,sp 38a6 83 ec 14 sub sp,0014H 38a9 e8 00 00 call SCL_084 38ac a1 00 00 mov ax,S_PTR 38af ba 72 00 mov dx,0072H 38b2 f7 e2 mul dx 38b4 8b f8 mov di,ax 38b6 81 c7 00 00 add di,offset L582 38ba 89 7e f2 mov -0eH[bp],di 38bd 8c 5e f4 mov -0cH[bp],ds 38c0 c4 7e f2 les di,dword ptr -0eH[bp] 38c3 26 c4 7d 6e les di,dword ptr es:+6eH[di] 38c7 89 7e ee mov -12H[bp],di 38ca 8c 46 f0 mov -10H[bp],es 38cd c4 7e ee les di,dword ptr -12H[bp] 38d0 26 8a 45 3b mov al,es:+3bH[di] 38d4 30 e4 xor ah,ah 38d6 89 46 ec mov -14H[bp],ax 38d9 b8 01 00 mov ax,0001H 38dc 3b 46 ec cmp ax,-14H[bp] 38df 7f 53 jg L273 38e1 89 46 fc mov -4H[bp],ax 38e4 eb 03 jmp L271 38e6 ff 46 fc L270 inc word ptr -4H[bp] 38e9 8b 46 fc L271 mov ax,-4H[bp] 38ec c4 7e f2 les di,dword ptr -0eH[bp] 38ef 26 3b 45 0e cmp ax,es:+0eH[di] 38f3 7c 37 jl L272 38f5 8b 46 fc mov ax,-4H[bp] 38f8 c4 7e f2 les di,dword ptr -0eH[bp] 38fb 26 3b 45 10 cmp ax,es:+10H[di] 38ff 7f 2b jg L272 3901 8b 46 fc mov ax,-4H[bp] 3904 ba 51 00 mov dx,0051H 3907 f7 e2 mul dx 3909 c4 7e ee les di,dword ptr -12H[bp] 390c 03 f8 add di,ax 390e 81 c7 ef ff add di,0ffefH 3912 06 push es 3913 57 push di 3914 a1 00 00 mov ax,XOFF 3917 40 inc ax 3918 50 push ax 3919 a1 00 00 mov ax,YOFF 391c 03 46 fc add ax,-4H[bp] 391f 50 push ax 3920 c4 7e ee les di,dword ptr -12H[bp] 3923 26 8a 45 3f mov al,es:+3fH[di] 3927 50 push ax 3928 0e push cs 3929 e8 00 00 call SCL_01B 392c 8b 46 fc L272 mov ax,-4H[bp] 392f 3b 46 ec cmp ax,-14H[bp] 3932 75 b2 jne L270 3934 c4 7e ee L273 les di,dword ptr -12H[bp] 3937 26 8a 45 3f mov al,es:+3fH[di] 393b 0c 08 or al,08H 393d 50 push ax 393e 0e push cs 393f e8 00 00 call PAINT_FORMAT_FRAME 3942 c4 7e ee les di,dword ptr -12H[bp] 3945 26 80 7d 37 00 cmp byte ptr es:+37H[di],00H 394a 76 77 jbe L279 394c c4 7e ee les di,dword ptr -12H[bp] 394f 26 8a 45 37 mov al,es:+37H[di] 3953 30 e4 xor ah,ah 3955 89 46 ec mov -14H[bp],ax 3958 b8 01 00 mov ax,0001H 395b 3b 46 ec cmp ax,-14H[bp] 395e 7f 22 jg L277 3960 89 46 fa mov -6H[bp],ax 3963 eb 03 jmp L275 3965 ff 46 fa L274 inc word ptr -6H[bp] 3968 ff 76 fa L275 push -6H[bp] 396b 55 push bp 396c e8 00 00 call SCL_086 396f 08 c0 or al,al 3971 75 07 jne L276 3973 ff 76 fa push -6H[bp] 3976 0e push cs 3977 e8 00 00 call SCL_047 397a 8b 46 fa L276 mov ax,-6H[bp] 397d 3b 46 ec cmp ax,-14H[bp] 3980 75 e3 jne L274 3982 c4 7e ee L277 les di,dword ptr -12H[bp] 3985 26 8a 45 38 mov al,es:+38H[di] 3989 30 e4 xor ah,ah 398b 3b 06 00 00 cmp ax,ACTIVE_FIELD 398f 7e 0c jle L278 3991 c4 7e ee les di,dword ptr -12H[bp] 3994 26 8a 45 38 mov al,es:+38H[di] 3998 30 e4 xor ah,ah 399a a3 00 00 mov ACTIVE_FIELD,ax 399d 83 3e 00 00 00 L278 cmp word ptr ACTIVE_FIELD,0000H 39a2 7e 1f jle L279 39a4 ff 36 00 00 push ACTIVE_FIELD 39a8 0e push cs 39a9 e8 00 00 call SCL_048 39ac c4 7e f2 les di,dword ptr -0eH[bp] 39af 81 c7 18 00 add di,0018H 39b3 06 push es 39b4 57 push di 39b5 bf 00 00 mov di,offset FIELDCONTSAVE 39b8 1e push ds 39b9 57 push di 39ba b8 50 00 mov ax,0050H 39bd 50 push ax 39be 9a 00 00 00 00 call far SYSTEM_00C 39c3 89 ec L279 mov sp,bp 39c5 5d pop bp 39c6 c3 ret 39c7 FORMAT_DONE: 39c7 55 SCL_052 push bp 39c8 89 e5 mov bp,sp 39ca 83 ec 09 sub sp,0009H 39cd a1 00 00 mov ax,S_PTR 39d0 ba 72 00 mov dx,0072H 39d3 f7 e2 mul dx 39d5 8b f8 mov di,ax 39d7 81 c7 00 00 add di,offset L582 39db 89 7e fb mov -5H[bp],di 39de 8c 5e fd mov -3H[bp],ds 39e1 c4 7e fb les di,dword ptr -5H[bp] 39e4 26 c4 7d 6e les di,dword ptr es:+6eH[di] 39e8 89 7e f7 mov -9H[bp],di 39eb 8c 46 f9 mov -7H[bp],es 39ee c4 7e fb les di,dword ptr -5H[bp] 39f1 26 80 7d 6d 00 cmp byte ptr es:+6dH[di],00H 39f6 74 30 je L281 39f8 c4 7e f7 les di,dword ptr -9H[bp] 39fb 26 8a 45 3f mov al,es:+3fH[di] 39ff 50 push ax 3a00 0e push cs 3a01 e8 00 00 call PAINT_FORMAT_FRAME 3a04 b0 00 mov al,00H 3a06 50 push ax 3a07 0e push cs 3a08 e8 00 00 call SCL_01A 3a0b a1 00 00 mov ax,S_PTR 3a0e 48 dec ax 3a0f a3 00 00 mov S_PTR,ax 3a12 c6 46 ff 01 mov byte ptr -1H[bp],01H 3a16 a1 00 00 mov ax,S_PTR 3a19 a3 00 00 mov ACTIVEFORMAT,ax 3a1c 83 3e 00 00 00 cmp word ptr S_PTR,0000H 3a21 7e 03 jle L280 3a23 e8 00 00 call SCL_085 3a26 eb 09 L280 jmp L282 3a28 c6 46 ff 00 L281 mov byte ptr -1H[bp],00H 3a2c c6 06 00 00 00 mov byte ptr FORMAT_ABORTED,00H 3a31 8a 46 ff L282 mov al,-1H[bp] 3a34 89 ec mov sp,bp 3a36 5d pop bp 3a37 cb retf 3a38 55 SCL_087 push bp 3a39 89 e5 mov bp,sp 3a3b 81 ec 08 01 sub sp,0108H 3a3f a1 00 00 mov ax,S_PTR 3a42 ba 72 00 mov dx,0072H 3a45 f7 e2 mul dx 3a47 8b f8 mov di,ax 3a49 c4 bd 00 00 les di,dword ptr L584[di] 3a4d 89 7e fc mov -4H[bp],di 3a50 8c 46 fe mov -2H[bp],es 3a53 8b 46 06 mov ax,+6H[bp] 3a56 ba 30 00 mov dx,0030H 3a59 f7 e2 mul dx 3a5b c4 7e fc les di,dword ptr -4H[bp] 3a5e 03 f8 add di,ax 3a60 81 c7 f9 07 add di,07f9H 3a64 89 7e f8 mov -8H[bp],di 3a67 8c 46 fa mov -6H[bp],es 3a6a 83 7e 04 20 cmp word ptr +4H[bp],0020H 3a6e 75 21 jne L283 3a70 8d be f8 fe lea di,-108H[bp] 3a74 16 push ss 3a75 57 push di 3a76 c4 7e f8 les di,dword ptr -8H[bp] 3a79 26 8a 45 1b mov al,es:+1bH[di] 3a7d 50 push ax 3a7e 9a 00 00 00 00 call far SYSTEM_012 3a83 e8 00 00 call SCL_06A 3a86 50 push ax 3a87 e8 00 00 call SCL_06B 3a8a 50 push ax 3a8b 0e push cs 3a8c e8 00 00 call SCL_01C 3a8f eb 1b jmp L284 3a91 8d be f8 fe L283 lea di,-108H[bp] 3a95 16 push ss 3a96 57 push di 3a97 8a 46 04 mov al,+4H[bp] 3a9a 50 push ax 3a9b 9a 00 00 00 00 call far SYSTEM_012 3aa0 e8 00 00 call SCL_06A 3aa3 50 push ax 3aa4 e8 00 00 call SCL_06B 3aa7 50 push ax 3aa8 0e push cs 3aa9 e8 00 00 call SCL_01C 3aac 8a 5e 04 L284 mov bl,+4H[bp] 3aaf a1 00 00 mov ax,MX 3ab2 8b c8 mov cx,ax 3ab4 a1 00 00 mov ax,MY 3ab7 ba 51 00 mov dx,0051H 3aba f7 e2 mul dx 3abc c4 7e fc les di,dword ptr -4H[bp] 3abf 03 f8 add di,ax 3ac1 03 f9 add di,cx 3ac3 26 88 5d ef mov es:-11H[di],bl 3ac7 e8 00 00 call SCL_070 3aca 89 ec mov sp,bp 3acc 5d pop bp 3acd c2 04 00 ret 0004H 3ad0 55 SCL_088 push bp 3ad1 89 e5 mov bp,sp 3ad3 81 ec 08 01 sub sp,0108H 3ad7 a1 00 00 mov ax,S_PTR 3ada ba 72 00 mov dx,0072H 3add f7 e2 mul dx 3adf 8b f8 mov di,ax 3ae1 c4 bd 00 00 les di,dword ptr L584[di] 3ae5 89 7e fc mov -4H[bp],di 3ae8 8c 46 fe mov -2H[bp],es 3aeb 8b 46 06 mov ax,+6H[bp] 3aee ba 30 00 mov dx,0030H 3af1 f7 e2 mul dx 3af3 c4 7e fc les di,dword ptr -4H[bp] 3af6 03 f8 add di,ax 3af8 81 c7 f9 07 add di,07f9H 3afc 89 7e f8 mov -8H[bp],di 3aff 8c 46 fa mov -6H[bp],es 3b02 8b 46 04 mov ax,+4H[bp] 3b05 3b 06 00 00 cmp ax,CODE_INS 3b09 75 7c jne L285 3b0b c4 7e f8 les di,dword ptr -8H[bp] 3b0e 26 8a 45 0e mov al,es:+0eH[di] 3b12 30 e4 xor ah,ah 3b14 ba 51 00 mov dx,0051H 3b17 f7 e2 mul dx 3b19 c4 7e fc les di,dword ptr -4H[bp] 3b1c 03 f8 add di,ax 3b1e 81 c7 ef ff add di,0ffefH 3b22 06 push es 3b23 57 push di 3b24 c4 7e f8 les di,dword ptr -8H[bp] 3b27 26 8a 45 0f mov al,es:+0fH[di] 3b2b 30 e4 xor ah,ah 3b2d 8b d0 mov dx,ax 3b2f c4 7e f8 les di,dword ptr -8H[bp] 3b32 26 8a 45 0d mov al,es:+0dH[di] 3b36 30 e4 xor ah,ah 3b38 03 c2 add ax,dx 3b3a 48 dec ax 3b3b 50 push ax 3b3c b8 01 00 mov ax,0001H 3b3f 50 push ax 3b40 9a 00 00 00 00 call far SYSTEM_015 3b45 8d be f8 fe lea di,-108H[bp] 3b49 16 push ss 3b4a 57 push di 3b4b a0 00 00 mov al,SPACE 3b4e 50 push ax 3b4f 9a 00 00 00 00 call far SYSTEM_012 3b54 c4 7e f8 les di,dword ptr -8H[bp] 3b57 26 8a 45 0e mov al,es:+0eH[di] 3b5b 30 e4 xor ah,ah 3b5d ba 51 00 mov dx,0051H 3b60 f7 e2 mul dx 3b62 c4 7e fc les di,dword ptr -4H[bp] 3b65 03 f8 add di,ax 3b67 81 c7 ef ff add di,0ffefH 3b6b 06 push es 3b6c 57 push di 3b6d b8 50 00 mov ax,0050H 3b70 50 push ax 3b71 ff 36 00 00 push MX 3b75 9a 00 00 00 00 call far SYSTEM_014 3b7a ff 76 06 push +6H[bp] 3b7d b0 01 mov al,01H 3b7f 50 push ax 3b80 0e push cs 3b81 e8 00 00 call SCL_040 3b84 e9 64 01 jmp L292 3b87 8b 46 04 L285 mov ax,+4H[bp] 3b8a 3b 06 00 00 cmp ax,CODE_DEL 3b8e 75 7c jne L286 3b90 c4 7e f8 les di,dword ptr -8H[bp] 3b93 26 8a 45 0e mov al,es:+0eH[di] 3b97 30 e4 xor ah,ah 3b99 ba 51 00 mov dx,0051H 3b9c f7 e2 mul dx 3b9e c4 7e fc les di,dword ptr -4H[bp] 3ba1 03 f8 add di,ax 3ba3 81 c7 ef ff add di,0ffefH 3ba7 06 push es 3ba8 57 push di 3ba9 ff 36 00 00 push MX 3bad b8 01 00 mov ax,0001H 3bb0 50 push ax 3bb1 9a 00 00 00 00 call far SYSTEM_015 3bb6 8d be f8 fe lea di,-108H[bp] 3bba 16 push ss 3bbb 57 push di 3bbc a0 00 00 mov al,SPACE 3bbf 50 push ax 3bc0 9a 00 00 00 00 call far SYSTEM_012 3bc5 c4 7e f8 les di,dword ptr -8H[bp] 3bc8 26 8a 45 0e mov al,es:+0eH[di] 3bcc 30 e4 xor ah,ah 3bce ba 51 00 mov dx,0051H 3bd1 f7 e2 mul dx 3bd3 c4 7e fc les di,dword ptr -4H[bp] 3bd6 03 f8 add di,ax 3bd8 81 c7 ef ff add di,0ffefH 3bdc 06 push es 3bdd 57 push di 3bde b8 50 00 mov ax,0050H 3be1 50 push ax 3be2 c4 7e f8 les di,dword ptr -8H[bp] 3be5 26 8a 45 0f mov al,es:+0fH[di] 3be9 30 e4 xor ah,ah 3beb 8b d0 mov dx,ax 3bed c4 7e f8 les di,dword ptr -8H[bp] 3bf0 26 8a 45 0d mov al,es:+0dH[di] 3bf4 30 e4 xor ah,ah 3bf6 03 c2 add ax,dx 3bf8 48 dec ax 3bf9 50 push ax 3bfa 9a 00 00 00 00 call far SYSTEM_014 3bff ff 76 06 push +6H[bp] 3c02 b0 01 mov al,01H 3c04 50 push ax 3c05 0e push cs 3c06 e8 00 00 call SCL_040 3c09 e9 df 00 jmp L292 3c0c 8b 46 04 L286 mov ax,+4H[bp] 3c0f 3b 06 00 00 cmp ax,CODE_BACKSPACE 3c13 74 03 je L287 3c15 e9 8d 00 jmp L289 3c18 c4 7e f8 L287 les di,dword ptr -8H[bp] 3c1b 26 8a 45 0d mov al,es:+0dH[di] 3c1f 30 e4 xor ah,ah 3c21 3b 06 00 00 cmp ax,MX 3c25 7d 7c jge L288 3c27 e8 00 00 call SCL_071 3c2a c4 7e f8 les di,dword ptr -8H[bp] 3c2d 26 8a 45 0e mov al,es:+0eH[di] 3c31 30 e4 xor ah,ah 3c33 ba 51 00 mov dx,0051H 3c36 f7 e2 mul dx 3c38 c4 7e fc les di,dword ptr -4H[bp] 3c3b 03 f8 add di,ax 3c3d 81 c7 ef ff add di,0ffefH 3c41 06 push es 3c42 57 push di 3c43 ff 36 00 00 push MX 3c47 b8 01 00 mov ax,0001H 3c4a 50 push ax 3c4b 9a 00 00 00 00 call far SYSTEM_015 3c50 8d be f8 fe lea di,-108H[bp] 3c54 16 push ss 3c55 57 push di 3c56 a0 00 00 mov al,SPACE 3c59 50 push ax 3c5a 9a 00 00 00 00 call far SYSTEM_012 3c5f c4 7e f8 les di,dword ptr -8H[bp] 3c62 26 8a 45 0e mov al,es:+0eH[di] 3c66 30 e4 xor ah,ah 3c68 ba 51 00 mov dx,0051H 3c6b f7 e2 mul dx 3c6d c4 7e fc les di,dword ptr -4H[bp] 3c70 03 f8 add di,ax 3c72 81 c7 ef ff add di,0ffefH 3c76 06 push es 3c77 57 push di 3c78 b8 50 00 mov ax,0050H 3c7b 50 push ax 3c7c c4 7e f8 les di,dword ptr -8H[bp] 3c7f 26 8a 45 0f mov al,es:+0fH[di] 3c83 30 e4 xor ah,ah 3c85 8b d0 mov dx,ax 3c87 c4 7e f8 les di,dword ptr -8H[bp] 3c8a 26 8a 45 0d mov al,es:+0dH[di] 3c8e 30 e4 xor ah,ah 3c90 03 c2 add ax,dx 3c92 48 dec ax 3c93 50 push ax 3c94 9a 00 00 00 00 call far SYSTEM_014 3c99 ff 76 06 push +6H[bp] 3c9c b0 01 mov al,01H 3c9e 50 push ax 3c9f 0e push cs 3ca0 e8 00 00 call SCL_040 3ca3 eb 46 L288 jmp L292 3ca5 8b 46 04 L289 mov ax,+4H[bp] 3ca8 3b 06 00 00 cmp ax,CODE_LEFT 3cac 75 14 jne L291 3cae c4 7e f8 les di,dword ptr -8H[bp] 3cb1 26 8a 45 0d mov al,es:+0dH[di] 3cb5 30 e4 xor ah,ah 3cb7 3b 06 00 00 cmp ax,MX 3cbb 7d 03 jge L290 3cbd e8 00 00 call SCL_071 3cc0 eb 29 L290 jmp L292 3cc2 8b 46 04 L291 mov ax,+4H[bp] 3cc5 3b 06 00 00 cmp ax,CODE_RIGHT 3cc9 75 20 jne L292 3ccb c4 7e f8 les di,dword ptr -8H[bp] 3cce 26 8a 45 0f mov al,es:+0fH[di] 3cd2 30 e4 xor ah,ah 3cd4 8b d0 mov dx,ax 3cd6 c4 7e f8 les di,dword ptr -8H[bp] 3cd9 26 8a 45 0d mov al,es:+0dH[di] 3cdd 30 e4 xor ah,ah 3cdf 03 c2 add ax,dx 3ce1 48 dec ax 3ce2 3b 06 00 00 cmp ax,MX 3ce6 7e 03 jle L292 3ce8 e8 00 00 call SCL_070 3ceb 89 ec L292 mov sp,bp 3ced 5d pop bp 3cee c2 04 00 ret 0004H 3cf1 55 SCL_08A push bp 3cf2 89 e5 mov bp,sp 3cf4 81 ec 08 01 sub sp,0108H 3cf8 a1 00 00 mov ax,S_PTR 3cfb ba 72 00 mov dx,0072H 3cfe f7 e2 mul dx 3d00 8b f8 mov di,ax 3d02 c4 bd 00 00 les di,dword ptr L584[di] 3d06 89 7e fc mov -4H[bp],di 3d09 8c 46 fe mov -2H[bp],es 3d0c 8b 7e 04 mov di,+4H[bp] 3d0f 36 8b 45 fe mov ax,ss:-2H[di] 3d13 ba 30 00 mov dx,0030H 3d16 f7 e2 mul dx 3d18 c4 7e fc les di,dword ptr -4H[bp] 3d1b 03 f8 add di,ax 3d1d 81 c7 f9 07 add di,07f9H 3d21 89 7e f8 mov -8H[bp],di 3d24 8c 46 fa mov -6H[bp],es 3d27 c4 7e f8 les di,dword ptr -8H[bp] 3d2a 26 80 7d 19 00 cmp byte ptr es:+19H[di],00H 3d2f 74 2b je L293 3d31 8d be f8 fe lea di,-108H[bp] 3d35 16 push ss 3d36 57 push di 3d37 8b 7e 04 mov di,+4H[bp] 3d3a 36 ff 75 fe push ss:-2H[di] 3d3e 0e push cs 3d3f e8 00 00 call SCL_044 3d42 9a 00 00 00 00 call far SYSTEM_00D 3d47 09 c0 or ax,ax 3d49 75 11 jne L293 3d4b 8b 7e 04 mov di,+4H[bp] 3d4e 36 8b 45 fe mov ax,ss:-2H[di] 3d52 8b 7e 04 mov di,+4H[bp] 3d55 36 c4 7d 04 les di,dword ptr ss:+4H[di] 3d59 26 89 05 mov es:[di],ax 3d5c 89 ec L293 mov sp,bp 3d5e 5d pop bp 3d5f c2 02 00 ret 0002H 3d62 55 SCL_08B push bp 3d63 89 e5 mov bp,sp 3d65 83 ec 08 sub sp,0008H 3d68 a1 00 00 mov ax,S_PTR 3d6b ba 72 00 mov dx,0072H 3d6e f7 e2 mul dx 3d70 8b f8 mov di,ax 3d72 c4 bd 00 00 les di,dword ptr L584[di] 3d76 89 7e fa mov -6H[bp],di 3d79 8c 46 fc mov -4H[bp],es 3d7c 8b 7e 04 mov di,+4H[bp] 3d7f 36 8b 45 fe mov ax,ss:-2H[di] 3d83 ba 30 00 mov dx,0030H 3d86 f7 e2 mul dx 3d88 c4 7e fa les di,dword ptr -6H[bp] 3d8b 03 f8 add di,ax 3d8d 26 80 bd 12 08 00 cmp byte ptr es:+812H[di],00H 3d93 75 03 jne L294 3d95 e9 99 00 jmp L299 3d98 8b 7e 04 L294 mov di,+4H[bp] 3d9b 36 c6 45 fc 00 mov byte ptr ss:-4H[di],00H 3da0 8b 7e 04 mov di,+4H[bp] 3da3 36 8b 45 fe mov ax,ss:-2H[di] 3da7 ba 30 00 mov dx,0030H 3daa f7 e2 mul dx 3dac c4 7e fa les di,dword ptr -6H[bp] 3daf 03 f8 add di,ax 3db1 26 8a 85 26 08 mov al,es:+826H[di] 3db6 30 e4 xor ah,ah 3db8 89 46 f8 mov -8H[bp],ax 3dbb 8b 7e 04 mov di,+4H[bp] 3dbe 36 8b 45 fe mov ax,ss:-2H[di] 3dc2 ba 30 00 mov dx,0030H 3dc5 f7 e2 mul dx 3dc7 c4 7e fa les di,dword ptr -6H[bp] 3dca 03 f8 add di,ax 3dcc 26 8a 85 25 08 mov al,es:+825H[di] 3dd1 30 e4 xor ah,ah 3dd3 3b 46 f8 cmp ax,-8H[bp] 3dd6 7f 2d jg L298 3dd8 89 46 fe mov -2H[bp],ax 3ddb eb 03 jmp L296 3ddd ff 46 fe L295 inc word ptr -2H[bp] 3de0 8b 46 fe L296 mov ax,-2H[bp] 3de3 ba 30 00 mov dx,0030H 3de6 f7 e2 mul dx 3de8 c4 7e fa les di,dword ptr -6H[bp] 3deb 03 f8 add di,ax 3ded 26 80 bd 27 08 00 cmp byte ptr es:+827H[di],00H 3df3 74 08 je L297 3df5 8b 7e 04 mov di,+4H[bp] 3df8 36 c6 45 fc 01 mov byte ptr ss:-4H[di],01H 3dfd 8b 46 fe L297 mov ax,-2H[bp] 3e00 3b 46 f8 cmp ax,-8H[bp] 3e03 75 d8 jne L295 3e05 8b 7e 04 L298 mov di,+4H[bp] 3e08 36 80 7d fc 00 cmp byte ptr ss:-4H[di],00H 3e0d 75 22 jne L299 3e0f 8b 7e 04 mov di,+4H[bp] 3e12 36 8b 45 fe mov ax,ss:-2H[di] 3e16 ba 30 00 mov dx,0030H 3e19 f7 e2 mul dx 3e1b c4 7e fa les di,dword ptr -6H[bp] 3e1e 03 f8 add di,ax 3e20 26 8a 85 25 08 mov al,es:+825H[di] 3e25 30 e4 xor ah,ah 3e27 8b 7e 04 mov di,+4H[bp] 3e2a 36 c4 7d 04 les di,dword ptr ss:+4H[di] 3e2e 26 89 05 mov es:[di],ax 3e31 89 ec L299 mov sp,bp 3e33 5d pop bp 3e34 c2 02 00 ret 0002H 3e37 55 SCL_089 push bp 3e38 89 e5 mov bp,sp 3e3a 83 ec 0c sub sp,000cH 3e3d c4 7e 04 les di,dword ptr +4H[bp] 3e40 31 c0 xor ax,ax 3e42 26 89 05 mov es:[di],ax 3e45 a1 00 00 mov ax,S_PTR 3e48 ba 72 00 mov dx,0072H 3e4b f7 e2 mul dx 3e4d 8b f8 mov di,ax 3e4f c4 bd 00 00 les di,dword ptr L584[di] 3e53 26 8a 45 38 mov al,es:+38H[di] 3e57 30 e4 xor ah,ah 3e59 89 46 fe mov -2H[bp],ax 3e5c 83 7e fe 00 cmp word ptr -2H[bp],0000H 3e60 7f 03 jg L300 3e62 e9 bb 00 jmp L308 3e65 c6 46 fd 00 L300 mov byte ptr -3H[bp],00H 3e69 c4 7e 04 L301 les di,dword ptr +4H[bp] 3e6c 26 83 3d 00 cmp word ptr es:[di],0000H 3e70 74 03 je L302 3e72 e9 ab 00 jmp L308 3e75 80 7e fd 00 L302 cmp byte ptr -3H[bp],00H 3e79 74 03 je L303 3e7b e9 a2 00 jmp L308 3e7e a1 00 00 L303 mov ax,S_PTR 3e81 ba 72 00 mov dx,0072H 3e84 f7 e2 mul dx 3e86 8b f8 mov di,ax 3e88 c4 bd 00 00 les di,dword ptr L584[di] 3e8c 89 7e f8 mov -8H[bp],di 3e8f 8c 46 fa mov -6H[bp],es 3e92 8b 46 fe mov ax,-2H[bp] 3e95 ba 30 00 mov dx,0030H 3e98 f7 e2 mul dx 3e9a c4 7e f8 les di,dword ptr -8H[bp] 3e9d 03 f8 add di,ax 3e9f 81 c7 f9 07 add di,07f9H 3ea3 89 7e f4 mov -0cH[bp],di 3ea6 8c 46 f6 mov -0aH[bp],es 3ea9 c4 7e f4 les di,dword ptr -0cH[bp] 3eac 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 3eb1 75 12 jne L304 3eb3 55 push bp 3eb4 e8 00 00 call SCL_08A 3eb7 c4 7e f4 les di,dword ptr -0cH[bp] 3eba 26 8a 45 12 mov al,es:+12H[di] 3ebe 30 e4 xor ah,ah 3ec0 89 46 fe mov -2H[bp],ax 3ec3 eb 46 jmp L306 3ec5 c4 7e f4 L304 les di,dword ptr -0cH[bp] 3ec8 26 80 7d 1a 02 cmp byte ptr es:+1aH[di],02H 3ecd 75 30 jne L305 3ecf 55 push bp 3ed0 e8 00 00 call SCL_08B 3ed3 c4 7e f4 les di,dword ptr -0cH[bp] 3ed6 26 8a 45 2d mov al,es:+2dH[di] 3eda 30 e4 xor ah,ah 3edc ba 30 00 mov dx,0030H 3edf f7 e2 mul dx 3ee1 8b c8 mov cx,ax 3ee3 a1 00 00 mov ax,S_PTR 3ee6 ba 72 00 mov dx,0072H 3ee9 f7 e2 mul dx 3eeb 8b f8 mov di,ax 3eed c4 bd 00 00 les di,dword ptr L584[di] 3ef1 03 f9 add di,cx 3ef3 26 8a 85 0b 08 mov al,es:+80bH[di] 3ef8 30 e4 xor ah,ah 3efa 89 46 fe mov -2H[bp],ax 3efd eb 0c jmp L306 3eff c4 7e f4 L305 les di,dword ptr -0cH[bp] 3f02 26 8a 45 12 mov al,es:+12H[di] 3f06 30 e4 xor ah,ah 3f08 89 46 fe mov -2H[bp],ax 3f0b c4 7e f8 L306 les di,dword ptr -8H[bp] 3f0e 26 8a 45 38 mov al,es:+38H[di] 3f12 30 e4 xor ah,ah 3f14 3b 46 fe cmp ax,-2H[bp] 3f17 75 04 jne L307 3f19 c6 46 fd 01 mov byte ptr -3H[bp],01H 3f1d e9 49 ff L307 jmp L301 3f20 89 ec L308 mov sp,bp 3f22 5d pop bp 3f23 c2 04 00 ret 0004H 3f26 55 SCL_08C push bp 3f27 89 e5 mov bp,sp 3f29 81 ec 5b 01 sub sp,015bH 3f2d 8d be ad fe lea di,-153H[bp] 3f31 16 push ss 3f32 57 push di 3f33 ff 76 04 push +4H[bp] 3f36 0e push cs 3f37 e8 00 00 call SCL_044 3f3a 8d 7e ad lea di,-53H[bp] 3f3d 16 push ss 3f3e 57 push di 3f3f b8 50 00 mov ax,0050H 3f42 50 push ax 3f43 9a 00 00 00 00 call far SYSTEM_00C 3f48 a1 00 00 mov ax,S_PTR 3f4b ba 72 00 mov dx,0072H 3f4e f7 e2 mul dx 3f50 8b f8 mov di,ax 3f52 c4 bd 00 00 les di,dword ptr L584[di] 3f56 89 7e a9 mov -57H[bp],di 3f59 8c 46 ab mov -55H[bp],es 3f5c 8b 46 04 mov ax,+4H[bp] 3f5f ba 30 00 mov dx,0030H 3f62 f7 e2 mul dx 3f64 c4 7e a9 les di,dword ptr -57H[bp] 3f67 03 f8 add di,ax 3f69 81 c7 f9 07 add di,07f9H 3f6d 89 7e a5 mov -5bH[bp],di 3f70 8c 46 a7 mov -59H[bp],es 3f73 80 7e ad 00 cmp byte ptr -53H[bp],00H 3f77 77 03 ja L309 3f79 e9 ab 00 jmp L313 3f7c c4 7e a5 L309 les di,dword ptr -5bH[bp] 3f7f 26 8a 45 0d mov al,es:+0dH[di] 3f83 30 e4 xor ah,ah 3f85 8b c8 mov cx,ax 3f87 c4 7e a5 les di,dword ptr -5bH[bp] 3f8a 26 8a 45 0e mov al,es:+0eH[di] 3f8e 30 e4 xor ah,ah 3f90 ba 51 00 mov dx,0051H 3f93 f7 e2 mul dx 3f95 c4 7e a9 les di,dword ptr -57H[bp] 3f98 03 f8 add di,ax 3f9a 03 f9 add di,cx 3f9c 26 8a 45 ef mov al,es:-11H[di] 3fa0 3a 06 00 00 cmp al,SPACE 3fa4 74 03 je L310 3fa6 e9 7e 00 jmp L313 3fa9 8d be a5 fe L310 lea di,-15bH[bp] 3fad 16 push ss 3fae 57 push di 3faf 8d 7e ad lea di,-53H[bp] 3fb2 16 push ss 3fb3 57 push di 3fb4 c4 7e a5 les di,dword ptr -5bH[bp] 3fb7 26 8a 45 0f mov al,es:+0fH[di] 3fbb 30 e4 xor ah,ah 3fbd 50 push ax 3fbe 0e push cs 3fbf e8 00 00 call JUSTIFY_LEFT 3fc2 8d 7e ad lea di,-53H[bp] 3fc5 16 push ss 3fc6 57 push di 3fc7 b8 50 00 mov ax,0050H 3fca 50 push ax 3fcb 9a 00 00 00 00 call far SYSTEM_00C 3fd0 ff 76 04 push +4H[bp] 3fd3 e8 00 00 call SCL_06F 3fd6 c4 7e a5 les di,dword ptr -5bH[bp] 3fd9 26 8a 45 0f mov al,es:+0fH[di] 3fdd 30 e4 xor ah,ah 3fdf 89 46 a3 mov -5dH[bp],ax 3fe2 b8 01 00 mov ax,0001H 3fe5 3b 46 a3 cmp ax,-5dH[bp] 3fe8 7f 3d jg L313 3fea 89 46 fe mov -2H[bp],ax 3fed eb 03 jmp L312 3fef ff 46 fe L311 inc word ptr -2H[bp] 3ff2 8b 7e fe L312 mov di,-2H[bp] 3ff5 8a 5b ad mov bl,-53H[bp+di] 3ff8 a1 00 00 mov ax,MX 3ffb 8b c8 mov cx,ax 3ffd c4 7e a5 les di,dword ptr -5bH[bp] 4000 26 8a 45 0e mov al,es:+0eH[di] 4004 30 e4 xor ah,ah 4006 ba 51 00 mov dx,0051H 4009 f7 e2 mul dx 400b c4 7e a9 les di,dword ptr -57H[bp] 400e 03 f8 add di,ax 4010 03 f9 add di,cx 4012 26 88 5d ef mov es:-11H[di],bl 4016 a1 00 00 mov ax,MX 4019 40 inc ax 401a 50 push ax 401b 0e push cs 401c e8 00 00 call SCL_027 401f 8b 46 fe mov ax,-2H[bp] 4022 3b 46 a3 cmp ax,-5dH[bp] 4025 75 c8 jne L311 4027 89 ec L313 mov sp,bp 4029 5d pop bp 402a c2 02 00 ret 0002H 402d 55 SCL_08D push bp 402e 89 e5 mov bp,sp 4030 81 ec 61 01 sub sp,0161H 4034 c4 7e 04 les di,dword ptr +4H[bp] 4037 31 c0 xor ax,ax 4039 26 89 05 mov es:[di],ax 403c a1 00 00 mov ax,S_PTR 403f ba 72 00 mov dx,0072H 4042 f7 e2 mul dx 4044 8b f8 mov di,ax 4046 c4 bd 00 00 les di,dword ptr L584[di] 404a 89 7e a3 mov -5dH[bp],di 404d 8c 46 a5 mov -5bH[bp],es 4050 8b 46 08 mov ax,+8H[bp] 4053 ba 30 00 mov dx,0030H 4056 f7 e2 mul dx 4058 c4 7e a3 les di,dword ptr -5dH[bp] 405b 03 f8 add di,ax 405d 81 c7 f9 07 add di,07f9H 4061 89 7e 9f mov -61H[bp],di 4064 8c 46 a1 mov -5fH[bp],es 4067 c4 7e 9f les di,dword ptr -61H[bp] 406a 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 406f 74 03 je L314 4071 e9 30 01 jmp L323 4074 8d be 9f fe L314 lea di,-161H[bp] 4078 16 push ss 4079 57 push di 407a ff 76 08 push +8H[bp] 407d 0e push cs 407e e8 00 00 call SCL_044 4081 8d 7e a7 lea di,-59H[bp] 4084 16 push ss 4085 57 push di 4086 b8 50 00 mov ax,0050H 4089 50 push ax 408a 9a 00 00 00 00 call far SYSTEM_00C 408f c4 7e 9f les di,dword ptr -61H[bp] 4092 26 80 7d 1d 01 cmp byte ptr es:+1dH[di],01H 4097 74 0d je L315 4099 c4 7e 9f les di,dword ptr -61H[bp] 409c 26 80 7d 1d 00 cmp byte ptr es:+1dH[di],00H 40a1 74 03 je L315 40a3 e9 fe 00 jmp L323 40a6 8d 7e a7 L315 lea di,-59H[bp] 40a9 16 push ss 40aa 57 push di 40ab c4 7e 04 les di,dword ptr +4H[bp] 40ae 06 push es 40af 57 push di 40b0 9a 00 00 00 00 call far SYSTEM_07A 40b5 89 46 fa mov -6H[bp],ax 40b8 89 5e fc mov -4H[bp],bx 40bb 89 56 fe mov -2H[bp],dx 40be c4 7e 04 les di,dword ptr +4H[bp] 40c1 26 83 3d 00 cmp word ptr es:[di],0000H 40c5 74 1b je L318 40c7 80 7e a7 00 cmp byte ptr -59H[bp],00H 40cb 76 0a jbe L316 40cd c4 7e 04 les di,dword ptr +4H[bp] 40d0 26 c7 05 13 00 mov word ptr es:[di],0013H 40d5 eb 08 jmp L317 40d7 c4 7e 04 L316 les di,dword ptr +4H[bp] 40da 31 c0 xor ax,ax 40dc 26 89 05 mov es:[di],ax 40df e9 c2 00 L317 jmp L323 40e2 80 7e a7 00 L318 cmp byte ptr -59H[bp],00H 40e6 77 03 ja L319 40e8 e9 b9 00 jmp L323 40eb 8b 46 fa L319 mov ax,-6H[bp] 40ee 8b 5e fc mov bx,-4H[bp] 40f1 8b 56 fe mov dx,-2H[bp] 40f4 c4 7e 9f les di,dword ptr -61H[bp] 40f7 26 8b 4d 1f mov cx,es:+1fH[di] 40fb 26 8b 75 21 mov si,es:+21H[di] 40ff 26 8b 7d 23 mov di,es:+23H[di] 4103 9a 00 00 00 00 call far SYSTEM_072 4108 73 0a jae L320 410a c4 7e 04 les di,dword ptr +4H[bp] 410d 26 c7 05 14 00 mov word ptr es:[di],0014H 4112 eb 27 jmp L321 4114 8b 46 fa L320 mov ax,-6H[bp] 4117 8b 5e fc mov bx,-4H[bp] 411a 8b 56 fe mov dx,-2H[bp] 411d c4 7e 9f les di,dword ptr -61H[bp] 4120 26 8b 4d 25 mov cx,es:+25H[di] 4124 26 8b 75 27 mov si,es:+27H[di] 4128 26 8b 7d 29 mov di,es:+29H[di] 412c 9a 00 00 00 00 call far SYSTEM_072 4131 76 08 jbe L321 4133 c4 7e 04 les di,dword ptr +4H[bp] 4136 26 c7 05 15 00 mov word ptr es:[di],0015H 413b c4 7e 04 L321 les di,dword ptr +4H[bp] 413e 26 83 3d 00 cmp word ptr es:[di],0000H 4142 75 60 jne L323 4144 c4 7e 9f les di,dword ptr -61H[bp] 4147 26 80 7d 1d 00 cmp byte ptr es:+1dH[di],00H 414c 75 56 jne L323 414e 8b 46 fa mov ax,-6H[bp] 4151 8b 5e fc mov bx,-4H[bp] 4154 8b 56 fe mov dx,-2H[bp] 4157 9a 00 00 00 00 call far SYSTEM_07B 415c 8b 4e fa mov cx,-6H[bp] 415f 8b 76 fc mov si,-4H[bp] 4162 8b 7e fe mov di,-2H[bp] 4165 9a 00 00 00 00 call far SYSTEM_072 416a 75 30 jne L322 416c 8b 46 fa mov ax,-6H[bp] 416f 8b 5e fc mov bx,-4H[bp] 4172 8b 56 fe mov dx,-2H[bp] 4175 b9 8f 00 mov cx,008fH 4178 31 f6 xor si,si 417a bf fe 7f mov di,7ffeH 417d 9a 00 00 00 00 call far SYSTEM_072 4182 77 18 ja L322 4184 8b 46 fa mov ax,-6H[bp] 4187 8b 5e fc mov bx,-4H[bp] 418a 8b 56 fe mov dx,-2H[bp] 418d b9 8f 00 mov cx,008fH 4190 31 f6 xor si,si 4192 bf fe ff mov di,0fffeH 4195 9a 00 00 00 00 call far SYSTEM_072 419a 73 08 jae L323 419c c4 7e 04 L322 les di,dword ptr +4H[bp] 419f 26 c7 05 24 00 mov word ptr es:[di],0024H 41a4 89 ec L323 mov sp,bp 41a6 5d pop bp 41a7 c2 06 00 ret 0006H 41aa GOTO_FIELD: 41aa 55 SCL_053 push bp 41ab 89 e5 mov bp,sp 41ad a1 00 00 mov ax,W_PTR 41b0 3b 06 00 00 cmp ax,R_PTR 41b4 75 08 jne L324 41b6 ff 36 00 00 push ACTIVE_FIELD 41ba 0e push cs 41bb e8 00 00 call SCL_047 41be 8b 46 06 L324 mov ax,+6H[bp] 41c1 a3 00 00 mov ACTIVE_FIELD,ax 41c4 31 c0 xor ax,ax 41c6 a3 00 00 mov GLB_STATUS,ax 41c9 89 ec mov sp,bp 41cb 5d pop bp 41cc ca 02 00 retf 0002H 41cf SCL_INIT_FIELDS: 41cf 55 SCL_019 push bp 41d0 89 e5 mov bp,sp 41d2 83 ec 04 sub sp,0004H 41d5 c6 06 00 00 00 mov byte ptr ERROR_MSG_PRESENT,00H 41da a1 00 00 mov ax,S_PTR 41dd ba 72 00 mov dx,0072H 41e0 f7 e2 mul dx 41e2 8b f8 mov di,ax 41e4 c4 bd 00 00 les di,dword ptr L584[di] 41e8 26 80 7d 37 00 cmp byte ptr es:+37H[di],00H 41ed 76 36 jbe L327 41ef a1 00 00 mov ax,S_PTR 41f2 ba 72 00 mov dx,0072H 41f5 f7 e2 mul dx 41f7 8b f8 mov di,ax 41f9 c4 bd 00 00 les di,dword ptr L584[di] 41fd 26 8a 45 37 mov al,es:+37H[di] 4201 30 e4 xor ah,ah 4203 89 46 fc mov -4H[bp],ax 4206 b8 01 00 mov ax,0001H 4209 3b 46 fc cmp ax,-4H[bp] 420c 7f 17 jg L327 420e 89 46 fe mov -2H[bp],ax 4211 eb 03 jmp L326 4213 ff 46 fe L325 inc word ptr -2H[bp] 4216 ff 76 fe L326 push -2H[bp] 4219 0e push cs 421a e8 00 00 call SCL_047 421d 8b 46 fe mov ax,-2H[bp] 4220 3b 46 fc cmp ax,-4H[bp] 4223 75 ee jne L325 4225 a1 00 00 L327 mov ax,S_PTR 4228 ba 72 00 mov dx,0072H 422b f7 e2 mul dx 422d 8b f8 mov di,ax 422f c4 bd 00 00 les di,dword ptr L584[di] 4233 26 8a 45 38 mov al,es:+38H[di] 4237 30 e4 xor ah,ah 4239 a3 00 00 mov ACTIVE_FIELD,ax 423c 31 c0 xor ax,ax 423e a3 00 00 mov GLB_STATUS,ax 4241 31 c0 xor ax,ax 4243 a3 00 00 mov GLB_ERROR,ax 4246 89 ec mov sp,bp 4248 5d pop bp 4249 cb retf 424a DISPLAY_FORMAT: 424a 55 SCL_054 push bp 424b 89 e5 mov bp,sp 424d ff 76 08 push +8H[bp] 4250 ff 76 06 push +6H[bp] 4253 e8 00 00 call SCL_082 4256 0e push cs 4257 e8 00 00 call SCL_019 425a 89 ec mov sp,bp 425c 5d pop bp 425d ca 04 00 retf 0004H 4260 55 SCL_08E push bp 4261 89 e5 mov bp,sp 4263 83 ec 0f sub sp,000fH 4266 a1 00 00 mov ax,S_PTR 4269 ba 72 00 mov dx,0072H 426c f7 e2 mul dx 426e 8b f8 mov di,ax 4270 81 c7 00 00 add di,offset L582 4274 89 7e f9 mov -7H[bp],di 4277 8c 5e fb mov -5H[bp],ds 427a c4 7e f9 les di,dword ptr -7H[bp] 427d 26 c4 7d 6e les di,dword ptr es:+6eH[di] 4281 89 7e f5 mov -0bH[bp],di 4284 8c 46 f7 mov -9H[bp],es 4287 a1 00 00 mov ax,ACTIVE_FIELD 428a ba 30 00 mov dx,0030H 428d f7 e2 mul dx 428f c4 7e f5 les di,dword ptr -0bH[bp] 4292 03 f8 add di,ax 4294 81 c7 f9 07 add di,07f9H 4298 89 7e f1 mov -0fH[bp],di 429b 8c 46 f3 mov -0dH[bp],es 429e c4 7e f1 les di,dword ptr -0fH[bp] 42a1 81 c7 02 00 add di,0002H 42a5 06 push es 42a6 57 push di 42a7 bf 00 00 mov di,offset SPACES 42aa 1e push ds 42ab 57 push di 42ac 9a 00 00 00 00 call far SYSTEM_011 42b1 76 61 jbe L331 42b3 c4 7e f1 les di,dword ptr -0fH[bp] 42b6 81 c7 02 00 add di,0002H 42ba 06 push es 42bb 57 push di 42bc 8d 7e fe lea di,-2H[bp] 42bf 16 push ss 42c0 57 push di 42c1 8d 7e fd lea di,-3H[bp] 42c4 16 push ss 42c5 57 push di 42c6 e8 00 00 call SCL_07E 42c9 80 7e fd 00 cmp byte ptr -3H[bp],00H 42cd 75 0a jne L328 42cf b8 25 00 mov ax,0025H 42d2 50 push ax 42d3 0e push cs 42d4 e8 00 00 call INPUT_ERROR 42d7 eb 39 jmp L330 42d9 c4 7e f1 L328 les di,dword ptr -0fH[bp] 42dc 81 c7 02 00 add di,0002H 42e0 06 push es 42e1 57 push di 42e2 0e push cs 42e3 e8 00 00 call SCL_04D 42e6 0e push cs 42e7 e8 00 00 call SCL_00E 42ea 99 cwd 42eb b9 02 00 mov cx,0002H 42ee f7 f9 idiv cx 42f0 50 push ax 42f1 0e push cs 42f2 e8 00 00 call SCL_00F 42f5 99 cwd 42f6 b9 02 00 mov cx,0002H 42f9 f7 f9 idiv cx 42fb 50 push ax 42fc 0e push cs 42fd e8 00 00 call DISPLAY_FORMAT 4300 0e L329 push cs 4301 e8 00 00 call HANDLE_FORMAT 4304 0e push cs 4305 e8 00 00 call FORMAT_DONE 4308 08 c0 or al,al 430a 74 f4 je L329 430c a1 00 00 mov ax,S_PTR 430f a3 00 00 mov R_PTR,ax 4312 eb 08 L330 jmp L332 4314 b8 26 00 L331 mov ax,0026H 4317 50 push ax 4318 0e push cs 4319 e8 00 00 call INPUT_ERROR 431c 89 ec L332 mov sp,bp 431e 5d pop bp 431f c2 02 00 ret 0002H 4322 55 SCL_08F push bp 4323 89 e5 mov bp,sp 4325 83 ec 03 sub sp,0003H 4328 a1 00 00 mov ax,S_PTR 432b ba 72 00 mov dx,0072H 432e f7 e2 mul dx 4330 8b f8 mov di,ax 4332 c4 bd 00 00 les di,dword ptr L584[di] 4336 81 c7 0c 00 add di,000cH 433a 06 push es 433b 57 push di 433c bf 00 00 mov di,offset SPACES 433f 1e push ds 4340 57 push di 4341 9a 00 00 00 00 call far SYSTEM_011 4346 76 77 jbe L336 4348 a1 00 00 mov ax,S_PTR 434b ba 72 00 mov dx,0072H 434e f7 e2 mul dx 4350 8b f8 mov di,ax 4352 c4 bd 00 00 les di,dword ptr L584[di] 4356 81 c7 0c 00 add di,000cH 435a 06 push es 435b 57 push di 435c 8d 7e fe lea di,-2H[bp] 435f 16 push ss 4360 57 push di 4361 8d 7e fd lea di,-3H[bp] 4364 16 push ss 4365 57 push di 4366 e8 00 00 call SCL_07E 4369 80 7e fd 00 cmp byte ptr -3H[bp],00H 436d 75 0a jne L333 436f b8 25 00 mov ax,0025H 4372 50 push ax 4373 0e push cs 4374 e8 00 00 call INPUT_ERROR 4377 eb 44 jmp L335 4379 a1 00 00 L333 mov ax,S_PTR 437c ba 72 00 mov dx,0072H 437f f7 e2 mul dx 4381 8b f8 mov di,ax 4383 c4 bd 00 00 les di,dword ptr L584[di] 4387 81 c7 0c 00 add di,000cH 438b 06 push es 438c 57 push di 438d 0e push cs 438e e8 00 00 call SCL_04D 4391 0e push cs 4392 e8 00 00 call SCL_00E 4395 99 cwd 4396 b9 02 00 mov cx,0002H 4399 f7 f9 idiv cx 439b 50 push ax 439c 0e push cs 439d e8 00 00 call SCL_00F 43a0 99 cwd 43a1 b9 02 00 mov cx,0002H 43a4 f7 f9 idiv cx 43a6 50 push ax 43a7 0e push cs 43a8 e8 00 00 call DISPLAY_FORMAT 43ab 0e L334 push cs 43ac e8 00 00 call HANDLE_FORMAT 43af 0e push cs 43b0 e8 00 00 call FORMAT_DONE 43b3 08 c0 or al,al 43b5 74 f4 je L334 43b7 a1 00 00 mov ax,S_PTR 43ba a3 00 00 mov R_PTR,ax 43bd eb 08 L335 jmp L337 43bf b8 26 00 L336 mov ax,0026H 43c2 50 push ax 43c3 0e push cs 43c4 e8 00 00 call INPUT_ERROR 43c7 89 ec L337 mov sp,bp 43c9 5d pop bp 43ca c2 02 00 ret 0002H 43cd 08 41 55 L338 or +55H[bx+di],al 43d0 54 push sp 43d1 4f dec di 43d2 48 dec ax 43d3 45 inc bp 43d4 4c dec sp 43d5 50 push ax 43d6 55 SCL_090 push bp 43d7 89 e5 mov bp,sp 43d9 81 ec 03 01 sub sp,0103H 43dd bf 00 00 mov di,offset L338 43e0 0e push cs 43e1 57 push di 43e2 8d 7e fe lea di,-2H[bp] 43e5 16 push ss 43e6 57 push di 43e7 8d 7e fd lea di,-3H[bp] 43ea 16 push ss 43eb 57 push di 43ec e8 00 00 call SCL_07E 43ef 80 7e fd 00 cmp byte ptr -3H[bp],00H 43f3 75 15 jne L339 43f5 b8 27 00 mov ax,0027H 43f8 50 push ax 43f9 0e push cs 43fa e8 00 00 call INPUT_ERROR 43fd c6 06 00 00 00 mov byte ptr FIELDEND,00H 4402 c7 06 00 00 ff 00 mov word ptr CHAR_CODE,00ffH 4408 eb 71 jmp L341 440a 83 3e 00 00 00 L339 cmp word ptr S_PTR,0000H 440f 7e 6a jle L341 4411 8d be fd fe lea di,-103H[bp] 4415 16 push ss 4416 57 push di 4417 a1 00 00 mov ax,S_PTR 441a ba 72 00 mov dx,0072H 441d f7 e2 mul dx 441f 8b f8 mov di,ax 4421 c4 bd 00 00 les di,dword ptr L584[di] 4425 81 c7 01 00 add di,0001H 4429 06 push es 442a 57 push di 442b 0e push cs 442c e8 00 00 call CAPITAL 442f bf 00 00 mov di,offset L338 4432 0e push cs 4433 57 push di 4434 9a 00 00 00 00 call far SYSTEM_011 4439 74 40 je L341 443b c6 06 00 00 00 mov byte ptr FIELDEND,00H 4440 c7 06 00 00 ff 00 mov word ptr CHAR_CODE,00ffH 4446 bf 00 00 mov di,offset L338 4449 0e push cs 444a 57 push di 444b 0e push cs 444c e8 00 00 call SCL_04D 444f 0e push cs 4450 e8 00 00 call SCL_00E 4453 99 cwd 4454 b9 02 00 mov cx,0002H 4457 f7 f9 idiv cx 4459 50 push ax 445a 0e push cs 445b e8 00 00 call SCL_00F 445e 99 cwd 445f b9 02 00 mov cx,0002H 4462 f7 f9 idiv cx 4464 50 push ax 4465 0e push cs 4466 e8 00 00 call DISPLAY_FORMAT 4469 0e L340 push cs 446a e8 00 00 call HANDLE_FORMAT 446d 0e push cs 446e e8 00 00 call FORMAT_DONE 4471 08 c0 or al,al 4473 74 f4 je L340 4475 a1 00 00 mov ax,S_PTR 4478 a3 00 00 mov R_PTR,ax 447b 89 ec L341 mov sp,bp 447d 5d pop bp 447e c2 02 00 ret 0002H 4481 55 SCL_091 push bp 4482 89 e5 mov bp,sp 4484 80 3e 00 00 00 cmp byte ptr AUTO_HELP_SET,00H 4489 74 21 je L344 448b 8b 46 06 mov ax,+6H[bp] 448e 3b 06 00 00 cmp ax,LASTERROR 4492 75 0b jne L342 4494 a1 00 00 mov ax,ERRORCOUNT 4497 05 02 00 add ax,0002H 449a a3 00 00 mov ERRORCOUNT,ax 449d eb 07 jmp L343 449f a1 00 00 L342 mov ax,ERRORCOUNT 44a2 40 inc ax 44a3 a3 00 00 mov ERRORCOUNT,ax 44a6 8b 46 06 L343 mov ax,+6H[bp] 44a9 a3 00 00 mov LASTERROR,ax 44ac a1 00 00 L344 mov ax,ERRORCOUNT 44af 3b 06 00 00 cmp ax,MAXERRORS 44b3 7f 09 jg L345 44b5 ff 76 06 push +6H[bp] 44b8 0e push cs 44b9 e8 00 00 call INPUT_ERROR 44bc eb 10 jmp L346 44be ff 76 04 L345 push +4H[bp] 44c1 e8 00 00 call SCL_090 44c4 31 c0 xor ax,ax 44c6 a3 00 00 mov ERRORCOUNT,ax 44c9 31 c0 xor ax,ax 44cb a3 00 00 mov LASTERROR,ax 44ce 89 ec L346 mov sp,bp 44d0 5d pop bp 44d1 c2 04 00 ret 0004H 44d4 55 SCL_092 push bp 44d5 89 e5 mov bp,sp 44d7 83 ec 03 sub sp,0003H 44da 8d 7e fe lea di,-2H[bp] 44dd 16 push ss 44de 57 push di 44df 8d 7e fd lea di,-3H[bp] 44e2 16 push ss 44e3 57 push di 44e4 0e push cs 44e5 e8 00 00 call GET_NEXT_CHAR 44e8 8b 46 fe mov ax,-2H[bp] 44eb 8b 3e 00 00 mov di,BUFFTOP 44ef d1 e7 shl di,1 44f1 89 85 00 00 mov INBUFF[di],ax 44f5 a1 00 00 mov ax,BUFFTOP 44f8 40 inc ax 44f9 99 cwd 44fa b9 32 00 mov cx,0032H 44fd f7 f9 idiv cx 44ff 92 xchg ax,dx 4500 a3 00 00 mov BUFFTOP,ax 4503 80 3e 00 00 00 cmp byte ptr ERROR_MSG_PRESENT,00H 4508 74 21 je L347 450a c6 06 00 00 00 mov byte ptr ERROR_MSG_PRESENT,00H 450f a1 00 00 mov ax,S_PTR 4512 ba 72 00 mov dx,0072H 4515 f7 e2 mul dx 4517 8b f8 mov di,ax 4519 c4 bd 00 00 les di,dword ptr L584[di] 451d 26 8a 45 35 mov al,es:+35H[di] 4521 30 e4 xor ah,ah 4523 50 push ax 4524 b0 00 mov al,00H 4526 50 push ax 4527 0e push cs 4528 e8 00 00 call SCL_040 452b 89 ec L347 mov sp,bp 452d 5d pop bp 452e c2 02 00 ret 0002H 4531 55 SCL_093 push bp 4532 89 e5 mov bp,sp 4534 8b 3e 00 00 mov di,BUFFBOT 4538 d1 e7 shl di,1 453a 8b 85 00 00 mov ax,INBUFF[di] 453e a3 00 00 mov CHAR_CODE,ax 4541 a1 00 00 mov ax,BUFFBOT 4544 40 inc ax 4545 99 cwd 4546 b9 32 00 mov cx,0032H 4549 f7 f9 idiv cx 454b 92 xchg ax,dx 454c a3 00 00 mov BUFFBOT,ax 454f 89 ec mov sp,bp 4551 5d pop bp 4552 c2 02 00 ret 0002H 4555 55 SCL_094 push bp 4556 89 e5 mov bp,sp 4558 83 ec 02 sub sp,0002H 455b c4 7e 06 les di,dword ptr +6H[bp] 455e 26 c6 05 00 mov byte ptr es:[di],00H 4562 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 4567 7e 29 jle L348 4569 a1 00 00 mov ax,ACTIVE_FIELD 456c ba 30 00 mov dx,0030H 456f f7 e2 mul dx 4571 8b c8 mov cx,ax 4573 a1 00 00 mov ax,S_PTR 4576 ba 72 00 mov dx,0072H 4579 f7 e2 mul dx 457b 8b f8 mov di,ax 457d c4 bd 00 00 les di,dword ptr L584[di] 4581 03 f9 add di,cx 4583 26 80 bd 15 08 00 cmp byte ptr es:+815H[di],00H 4589 74 07 je L348 458b c4 7e 06 les di,dword ptr +6H[bp] 458e 26 c6 05 01 mov byte ptr es:[di],01H 4592 c4 7e 06 L348 les di,dword ptr +6H[bp] 4595 26 80 3d 00 cmp byte ptr es:[di],00H 4599 75 38 jne L349 459b a1 00 00 mov ax,CHAR_CODE 459e 3b 06 00 00 cmp ax,CODE_F1 45a2 7c 2f jl L349 45a4 a1 00 00 mov ax,CHAR_CODE 45a7 3b 06 00 00 cmp ax,CODE_F10 45ab 7f 26 jg L349 45ad a1 00 00 mov ax,CHAR_CODE 45b0 2d 22 04 sub ax,0422H 45b3 8b c8 mov cx,ax 45b5 a1 00 00 mov ax,S_PTR 45b8 ba 72 00 mov dx,0072H 45bb f7 e2 mul dx 45bd 8b f8 mov di,ax 45bf c4 bd 00 00 les di,dword ptr L584[di] 45c3 03 f9 add di,cx 45c5 26 80 7d 16 00 cmp byte ptr es:+16H[di],00H 45ca 74 07 je L349 45cc c4 7e 06 les di,dword ptr +6H[bp] 45cf 26 c6 05 01 mov byte ptr es:[di],01H 45d3 c4 7e 06 L349 les di,dword ptr +6H[bp] 45d6 26 80 3d 00 cmp byte ptr es:[di],00H 45da 75 38 jne L353 45dc c7 46 fe 01 00 mov word ptr -2H[bp],0001H 45e1 eb 03 jmp L351 45e3 ff 46 fe L350 inc word ptr -2H[bp] 45e6 8b 46 fe L351 mov ax,-2H[bp] 45e9 d1 e0 shl ax,1 45eb 8b c8 mov cx,ax 45ed a1 00 00 mov ax,S_PTR 45f0 ba 72 00 mov dx,0072H 45f3 f7 e2 mul dx 45f5 8b f8 mov di,ax 45f7 c4 bd 00 00 les di,dword ptr L584[di] 45fb 03 f9 add di,cx 45fd 26 8b 45 1f mov ax,es:+1fH[di] 4601 3b 06 00 00 cmp ax,CHAR_CODE 4605 75 07 jne L352 4607 c4 7e 06 les di,dword ptr +6H[bp] 460a 26 c6 05 01 mov byte ptr es:[di],01H 460e 83 7e fe 0a L352 cmp word ptr -2H[bp],000aH 4612 75 cf jne L350 4614 89 ec L353 mov sp,bp 4616 5d pop bp 4617 c2 06 00 ret 0006H 461a 55 SCL_095 push bp 461b 89 e5 mov bp,sp 461d 83 ec 01 sub sp,0001H 4620 a1 00 00 mov ax,CHAR_CODE 4623 3b 06 00 00 cmp ax,CODE_TAB 4627 74 51 je L354 4629 a1 00 00 mov ax,CHAR_CODE 462c 3b 06 00 00 cmp ax,CODE_RTAB 4630 74 48 je L354 4632 a1 00 00 mov ax,CHAR_CODE 4635 3b 06 00 00 cmp ax,CODE_CTRLTAB 4639 74 3f je L354 463b a1 00 00 mov ax,CHAR_CODE 463e 3b 06 00 00 cmp ax,CODE_DOWN 4642 74 36 je L354 4644 a1 00 00 mov ax,CHAR_CODE 4647 3b 06 00 00 cmp ax,CODE_UP 464b 74 2d je L354 464d a1 00 00 mov ax,CHAR_CODE 4650 3b 06 00 00 cmp ax,CODE_PGUP 4654 74 24 je L354 4656 a1 00 00 mov ax,CHAR_CODE 4659 3b 06 00 00 cmp ax,CODE_PGDOWN 465d 74 1b je L354 465f a1 00 00 mov ax,CHAR_CODE 4662 3b 06 00 00 cmp ax,CODE_HOME 4666 74 12 je L354 4668 a1 00 00 mov ax,CHAR_CODE 466b 3b 06 00 00 cmp ax,CODE_END 466f 74 09 je L354 4671 a1 00 00 mov ax,CHAR_CODE 4674 3b 06 00 00 cmp ax,CODE_ESCAPE 4678 75 06 jne L355 467a c6 46 ff 01 L354 mov byte ptr -1H[bp],01H 467e eb 04 jmp L356 4680 c6 46 ff 00 L355 mov byte ptr -1H[bp],00H 4684 8a 46 ff L356 mov al,-1H[bp] 4687 89 ec mov sp,bp 4689 5d pop bp 468a c2 02 00 ret 0002H 468d 55 SCL_096 push bp 468e 89 e5 mov bp,sp 4690 81 ec aa 00 sub sp,00aaH 4694 a1 00 00 mov ax,S_PTR 4697 ba 72 00 mov dx,0072H 469a f7 e2 mul dx 469c 8b f8 mov di,ax 469e c4 bd 00 00 les di,dword ptr L584[di] 46a2 89 7e fa mov -6H[bp],di 46a5 8c 46 fc mov -4H[bp],es 46a8 a1 00 00 mov ax,ACTIVE_FIELD 46ab ba 30 00 mov dx,0030H 46ae f7 e2 mul dx 46b0 c4 7e fa les di,dword ptr -6H[bp] 46b3 03 f8 add di,ax 46b5 81 c7 f9 07 add di,07f9H 46b9 89 7e f6 mov -0aH[bp],di 46bc 8c 46 f8 mov -8H[bp],es 46bf 80 3e 00 00 00 cmp byte ptr EDITMODE,00H 46c4 75 23 jne L359 46c6 a1 00 00 mov ax,CHAR_CODE 46c9 3b 06 00 00 cmp ax,CODE_RIGHT 46cd 75 08 jne L357 46cf a1 00 00 mov ax,CODE_TAB 46d2 a3 00 00 mov CHAR_CODE,ax 46d5 eb 0f jmp L358 46d7 a1 00 00 L357 mov ax,CHAR_CODE 46da 3b 06 00 00 cmp ax,CODE_LEFT 46de 75 06 jne L358 46e0 a1 00 00 mov ax,CODE_RTAB 46e3 a3 00 00 mov CHAR_CODE,ax 46e6 e9 a5 00 L358 jmp L362 46e9 a1 00 00 L359 mov ax,CHAR_CODE 46ec 3b 06 00 00 cmp ax,CODE_CANCEL_ACT 46f0 75 32 jne L360 46f2 ff 36 00 00 push ACTIVE_FIELD 46f6 bf 00 00 mov di,offset FIELDCONTSAVE 46f9 1e push ds 46fa 57 push di 46fb 0e push cs 46fc e8 00 00 call SCL_04F 46ff c4 7e f6 les di,dword ptr -0aH[bp] 4702 26 8a 45 0d mov al,es:+0dH[di] 4706 30 e4 xor ah,ah 4708 50 push ax 4709 0e push cs 470a e8 00 00 call SCL_027 470d c4 7e 0a les di,dword ptr +0aH[bp] 4710 31 c0 xor ax,ax 4712 26 89 05 mov es:[di],ax 4715 c4 7e 06 les di,dword ptr +6H[bp] 4718 26 c6 05 00 mov byte ptr es:[di],00H 471c c7 06 00 00 ff 00 mov word ptr CHAR_CODE,00ffH 4722 eb 6a jmp L362 4724 a1 00 00 L360 mov ax,CHAR_CODE 4727 3b 06 00 00 cmp ax,CODE_RIGHT 472b 75 34 jne L361 472d c4 7e f6 les di,dword ptr -0aH[bp] 4730 26 8a 45 0f mov al,es:+0fH[di] 4734 30 e4 xor ah,ah 4736 8b d0 mov dx,ax 4738 c4 7e f6 les di,dword ptr -0aH[bp] 473b 26 8a 45 0d mov al,es:+0dH[di] 473f 30 e4 xor ah,ah 4741 03 c2 add ax,dx 4743 48 dec ax 4744 3b 06 00 00 cmp ax,MX 4748 75 17 jne L361 474a c4 7e 0a les di,dword ptr +0aH[bp] 474d 26 c7 05 0f 00 mov word ptr es:[di],000fH 4752 c4 7e 06 les di,dword ptr +6H[bp] 4755 26 c6 05 00 mov byte ptr es:[di],00H 4759 c7 06 00 00 ff 00 mov word ptr CHAR_CODE,00ffH 475f eb 2d jmp L362 4761 a1 00 00 L361 mov ax,CHAR_CODE 4764 3b 06 00 00 cmp ax,CODE_LEFT 4768 75 24 jne L362 476a c4 7e f6 les di,dword ptr -0aH[bp] 476d 26 8a 45 0d mov al,es:+0dH[di] 4771 30 e4 xor ah,ah 4773 3b 06 00 00 cmp ax,MX 4777 75 15 jne L362 4779 c4 7e 0a les di,dword ptr +0aH[bp] 477c 26 c7 05 0f 00 mov word ptr es:[di],000fH 4781 c4 7e 06 les di,dword ptr +6H[bp] 4784 26 c6 05 00 mov byte ptr es:[di],00H 4788 c7 06 00 00 ff 00 mov word ptr CHAR_CODE,00ffH 478e a1 00 00 L362 mov ax,CHAR_CODE 4791 3b 06 00 00 cmp ax,CODE_RETURN 4795 74 03 je L363 4797 e9 ab 00 jmp L370 479a c4 7e 0a L363 les di,dword ptr +0aH[bp] 479d 31 c0 xor ax,ax 479f 26 89 05 mov es:[di],ax 47a2 c4 7e 06 les di,dword ptr +6H[bp] 47a5 26 c6 05 00 mov byte ptr es:[di],00H 47a9 80 3e 00 00 00 cmp byte ptr EDITMODE,00H 47ae 75 0a jne L364 47b0 b0 01 mov al,01H 47b2 50 push ax 47b3 0e push cs 47b4 e8 00 00 call SCL_01A 47b7 e9 8b 00 jmp L370 47ba c4 7e f6 L364 les di,dword ptr -0aH[bp] 47bd 26 8a 45 0d mov al,es:+0dH[di] 47c1 30 e4 xor ah,ah 47c3 3b 06 00 00 cmp ax,MX 47c7 74 5f je L368 47c9 c4 7e f6 les di,dword ptr -0aH[bp] 47cc 26 8a 45 0f mov al,es:+0fH[di] 47d0 30 e4 xor ah,ah 47d2 8b d0 mov dx,ax 47d4 c4 7e f6 les di,dword ptr -0aH[bp] 47d7 26 8a 45 0d mov al,es:+0dH[di] 47db 30 e4 xor ah,ah 47dd 03 c2 add ax,dx 47df 48 dec ax 47e0 89 46 f4 mov -0cH[bp],ax 47e3 a1 00 00 mov ax,MX 47e6 3b 46 f4 cmp ax,-0cH[bp] 47e9 7f 32 jg L367 47eb 89 46 fe mov -2H[bp],ax 47ee eb 03 jmp L366 47f0 ff 46 fe L365 inc word ptr -2H[bp] 47f3 8a 1e 00 00 L366 mov bl,SPACE 47f7 8b 46 fe mov ax,-2H[bp] 47fa 8b c8 mov cx,ax 47fc c4 7e f6 les di,dword ptr -0aH[bp] 47ff 26 8a 45 0e mov al,es:+0eH[di] 4803 30 e4 xor ah,ah 4805 ba 51 00 mov dx,0051H 4808 f7 e2 mul dx 480a c4 7e fa les di,dword ptr -6H[bp] 480d 03 f8 add di,ax 480f 03 f9 add di,cx 4811 26 88 5d ef mov es:-11H[di],bl 4815 8b 46 fe mov ax,-2H[bp] 4818 3b 46 f4 cmp ax,-0cH[bp] 481b 75 d3 jne L365 481d ff 36 00 00 L367 push ACTIVE_FIELD 4821 b0 00 mov al,00H 4823 50 push ax 4824 0e push cs 4825 e8 00 00 call SCL_040 4828 c4 7e fa L368 les di,dword ptr -6H[bp] 482b 26 8a 45 39 mov al,es:+39H[di] 482f 30 e4 xor ah,ah 4831 3b 06 00 00 cmp ax,ACTIVE_FIELD 4835 74 08 je L369 4837 a1 00 00 mov ax,CODE_TAB 483a a3 00 00 mov CHAR_CODE,ax 483d eb 06 jmp L370 483f a1 00 00 L369 mov ax,CODE_ESCAPE 4842 a3 00 00 mov CHAR_CODE,ax 4845 ff 76 04 L370 push +4H[bp] 4848 e8 00 00 call SCL_095 484b 08 c0 or al,al 484d 74 12 je L371 484f c4 7e 06 les di,dword ptr +6H[bp] 4852 26 c6 05 01 mov byte ptr es:[di],01H 4856 c4 7e 0a les di,dword ptr +0aH[bp] 4859 31 c0 xor ax,ax 485b 26 89 05 mov es:[di],ax 485e e9 db 01 jmp L386 4861 a1 00 00 L371 mov ax,CHAR_CODE 4864 3b 06 00 00 cmp ax,CODE_INS 4868 74 24 je L372 486a a1 00 00 mov ax,CHAR_CODE 486d 3b 06 00 00 cmp ax,CODE_DEL 4871 74 1b je L372 4873 a1 00 00 mov ax,CHAR_CODE 4876 3b 06 00 00 cmp ax,CODE_BACKSPACE 487a 74 12 je L372 487c a1 00 00 mov ax,CHAR_CODE 487f 3b 06 00 00 cmp ax,CODE_LEFT 4883 74 09 je L372 4885 a1 00 00 mov ax,CHAR_CODE 4888 3b 06 00 00 cmp ax,CODE_RIGHT 488c 75 24 jne L373 488e b0 01 L372 mov al,01H 4890 50 push ax 4891 0e push cs 4892 e8 00 00 call SCL_01A 4895 c4 7e 06 les di,dword ptr +6H[bp] 4898 26 c6 05 00 mov byte ptr es:[di],00H 489c ff 36 00 00 push ACTIVE_FIELD 48a0 ff 36 00 00 push CHAR_CODE 48a4 e8 00 00 call SCL_088 48a7 c4 7e 0a les di,dword ptr +0aH[bp] 48aa 31 c0 xor ax,ax 48ac 26 89 05 mov es:[di],ax 48af e9 8a 01 jmp L386 48b2 c4 7e f6 L373 les di,dword ptr -0aH[bp] 48b5 26 80 7d 1d 04 cmp byte ptr es:+1dH[di],04H 48ba 75 0e jne L374 48bc a0 00 00 mov al,CHAR_CODE 48bf 50 push ax 48c0 9a 00 00 00 00 call far SYSTEM_05A 48c5 30 e4 xor ah,ah 48c7 a3 00 00 mov CHAR_CODE,ax 48ca 81 3e 00 00 e8 03 L374 cmp word ptr CHAR_CODE,03e8H 48d0 7d 2b jge L375 48d2 c4 7e f6 les di,dword ptr -0aH[bp] 48d5 26 80 7d 1d 03 cmp byte ptr es:+1dH[di],03H 48da 75 21 jne L375 48dc a0 00 00 mov al,CHAR_CODE 48df 50 push ax 48e0 8d 7e d6 lea di,-2aH[bp] 48e3 16 push ss 48e4 57 push di 48e5 bf 00 00 mov di,offset ANYTHING_SET 48e8 1e push ds 48e9 57 push di 48ea b8 20 00 mov ax,0020H 48ed 50 push ax 48ee 9a 00 00 00 00 call far SYSTEM_016 48f3 9a 00 00 00 00 call far SYSTEM_018 48f8 74 03 je L375 48fa e9 b1 00 jmp L380 48fd c4 7e f6 L375 les di,dword ptr -0aH[bp] 4900 26 80 7d 1d 00 cmp byte ptr es:+1dH[di],00H 4905 75 21 jne L376 4907 a0 00 00 mov al,CHAR_CODE 490a 50 push ax 490b 8d 7e b6 lea di,-4aH[bp] 490e 16 push ss 490f 57 push di 4910 bf 00 00 mov di,offset INTEGER_SET 4913 1e push ds 4914 57 push di 4915 b8 20 00 mov ax,0020H 4918 50 push ax 4919 9a 00 00 00 00 call far SYSTEM_016 491e 9a 00 00 00 00 call far SYSTEM_018 4923 74 03 je L376 4925 e9 86 00 jmp L380 4928 c4 7e f6 L376 les di,dword ptr -0aH[bp] 492b 26 80 7d 1d 01 cmp byte ptr es:+1dH[di],01H 4930 75 1e jne L377 4932 a0 00 00 mov al,CHAR_CODE 4935 50 push ax 4936 8d 7e 96 lea di,-6aH[bp] 4939 16 push ss 493a 57 push di 493b bf 00 00 mov di,offset REAL_SET 493e 1e push ds 493f 57 push di 4940 b8 20 00 mov ax,0020H 4943 50 push ax 4944 9a 00 00 00 00 call far SYSTEM_016 4949 9a 00 00 00 00 call far SYSTEM_018 494e 75 5e jne L380 4950 c4 7e f6 L377 les di,dword ptr -0aH[bp] 4953 26 80 7d 1d 02 cmp byte ptr es:+1dH[di],02H 4958 75 1f jne L378 495a a0 00 00 mov al,CHAR_CODE 495d 50 push ax 495e 8d be 76 ff lea di,-8aH[bp] 4962 16 push ss 4963 57 push di 4964 bf 00 00 mov di,offset ALPHA_SET 4967 1e push ds 4968 57 push di 4969 b8 20 00 mov ax,0020H 496c 50 push ax 496d 9a 00 00 00 00 call far SYSTEM_016 4972 9a 00 00 00 00 call far SYSTEM_018 4977 75 35 jne L380 4979 c4 7e f6 L378 les di,dword ptr -0aH[bp] 497c 26 80 7d 1d 04 cmp byte ptr es:+1dH[di],04H 4981 74 03 je L379 4983 e9 9d 00 jmp L385 4986 a0 00 00 L379 mov al,CHAR_CODE 4989 50 push ax 498a 8d be 56 ff lea di,-0aaH[bp] 498e 16 push ss 498f 57 push di 4990 9a 00 00 00 00 call far SYSTEM_028 4995 a0 00 00 mov al,CODE_YES 4998 50 push ax 4999 9a 00 00 00 00 call far SYSTEM_029 499e a0 00 00 mov al,CODE_NO 49a1 50 push ax 49a2 9a 00 00 00 00 call far SYSTEM_029 49a7 9a 00 00 00 00 call far SYSTEM_018 49ac 74 75 je L385 49ae b0 01 L380 mov al,01H 49b0 50 push ax 49b1 0e push cs 49b2 e8 00 00 call SCL_01A 49b5 ff 36 00 00 push ACTIVE_FIELD 49b9 ff 36 00 00 push CHAR_CODE 49bd e8 00 00 call SCL_087 49c0 c4 7e f6 les di,dword ptr -0aH[bp] 49c3 26 8a 45 0f mov al,es:+0fH[di] 49c7 30 e4 xor ah,ah 49c9 8b d0 mov dx,ax 49cb c4 7e f6 les di,dword ptr -0aH[bp] 49ce 26 8a 45 0d mov al,es:+0dH[di] 49d2 30 e4 xor ah,ah 49d4 03 c2 add ax,dx 49d6 48 dec ax 49d7 3b 06 00 00 cmp ax,MX 49db 7d 35 jge L383 49dd c4 7e fa les di,dword ptr -6H[bp] 49e0 26 8a 45 39 mov al,es:+39H[di] 49e4 30 e4 xor ah,ah 49e6 3b 06 00 00 cmp ax,ACTIVE_FIELD 49ea 74 0f je L381 49ec a1 00 00 mov ax,CODE_TAB 49ef a3 00 00 mov CHAR_CODE,ax 49f2 c4 7e 06 les di,dword ptr +6H[bp] 49f5 26 c6 05 01 mov byte ptr es:[di],01H 49f9 eb 15 jmp L382 49fb c4 7e f6 L381 les di,dword ptr -0aH[bp] 49fe 26 8a 45 0d mov al,es:+0dH[di] 4a02 30 e4 xor ah,ah 4a04 50 push ax 4a05 0e push cs 4a06 e8 00 00 call SCL_027 4a09 c4 7e 06 les di,dword ptr +6H[bp] 4a0c 26 c6 05 00 mov byte ptr es:[di],00H 4a10 eb 07 L382 jmp L384 4a12 c4 7e 06 L383 les di,dword ptr +6H[bp] 4a15 26 c6 05 00 mov byte ptr es:[di],00H 4a19 c4 7e 0a L384 les di,dword ptr +0aH[bp] 4a1c 31 c0 xor ax,ax 4a1e 26 89 05 mov es:[di],ax 4a21 eb 19 jmp L386 4a23 a1 00 00 L385 mov ax,CHAR_CODE 4a26 3b 06 00 00 cmp ax,CODE_RETURN 4a2a 74 10 je L386 4a2c 81 3e 00 00 ff 00 cmp word ptr CHAR_CODE,00ffH 4a32 74 08 je L386 4a34 c4 7e 0a les di,dword ptr +0aH[bp] 4a37 26 c7 05 0f 00 mov word ptr es:[di],000fH 4a3c 80 3e 00 00 00 L386 cmp byte ptr EDITMODE,00H 4a41 74 05 je L387 4a43 c6 06 00 00 01 mov byte ptr CHECKREQUIRED,01H 4a48 89 ec L387 mov sp,bp 4a4a 5d pop bp 4a4b c2 0a 00 ret 000aH 4a4e 55 SCL_097 push bp 4a4f 89 e5 mov bp,sp 4a51 83 7e 06 00 cmp word ptr +6H[bp],0000H 4a55 7e 62 jle L388 4a57 a1 00 00 mov ax,S_PTR 4a5a ba 72 00 mov dx,0072H 4a5d f7 e2 mul dx 4a5f 8b f8 mov di,ax 4a61 c4 bd 00 00 les di,dword ptr L584[di] 4a65 26 8a 45 37 mov al,es:+37H[di] 4a69 30 e4 xor ah,ah 4a6b 3b 46 06 cmp ax,+6H[bp] 4a6e 7c 49 jl L388 4a70 8b 46 06 mov ax,+6H[bp] 4a73 ba 30 00 mov dx,0030H 4a76 f7 e2 mul dx 4a78 8b c8 mov cx,ax 4a7a a1 00 00 mov ax,S_PTR 4a7d ba 72 00 mov dx,0072H 4a80 f7 e2 mul dx 4a82 8b f8 mov di,ax 4a84 c4 bd 00 00 les di,dword ptr L584[di] 4a88 03 f9 add di,cx 4a8a 26 80 bd 27 08 00 cmp byte ptr es:+827H[di],00H 4a90 74 27 je L388 4a92 8b 46 06 mov ax,+6H[bp] 4a95 ba 30 00 mov dx,0030H 4a98 f7 e2 mul dx 4a9a 8b c8 mov cx,ax 4a9c a1 00 00 mov ax,S_PTR 4a9f ba 72 00 mov dx,0072H 4aa2 f7 e2 mul dx 4aa4 8b f8 mov di,ax 4aa6 c4 bd 00 00 les di,dword ptr L584[di] 4aaa 03 f9 add di,cx 4aac 26 c6 85 27 08 00 mov byte ptr es:+827H[di],00H 4ab2 ff 76 06 push +6H[bp] 4ab5 0e push cs 4ab6 e8 00 00 call SCL_047 4ab9 89 ec L388 mov sp,bp 4abb 5d pop bp 4abc c2 04 00 ret 0004H 4abf 55 SCL_098 push bp 4ac0 89 e5 mov bp,sp 4ac2 83 ec 0c sub sp,000cH 4ac5 a1 00 00 mov ax,S_PTR 4ac8 ba 72 00 mov dx,0072H 4acb f7 e2 mul dx 4acd 8b f8 mov di,ax 4acf c4 bd 00 00 les di,dword ptr L584[di] 4ad3 89 7e fa mov -6H[bp],di 4ad6 8c 46 fc mov -4H[bp],es 4ad9 a1 00 00 mov ax,ACTIVE_FIELD 4adc ba 30 00 mov dx,0030H 4adf f7 e2 mul dx 4ae1 c4 7e fa les di,dword ptr -6H[bp] 4ae4 03 f8 add di,ax 4ae6 81 c7 f9 07 add di,07f9H 4aea 89 7e f6 mov -0aH[bp],di 4aed 8c 46 f8 mov -8H[bp],es 4af0 a1 00 00 mov ax,CHAR_CODE 4af3 3b 06 00 00 cmp ax,CODE_RIGHT 4af7 75 08 jne L389 4af9 a1 00 00 mov ax,CODE_TAB 4afc a3 00 00 mov CHAR_CODE,ax 4aff eb 0f jmp L390 4b01 a1 00 00 L389 mov ax,CHAR_CODE 4b04 3b 06 00 00 cmp ax,CODE_LEFT 4b08 75 06 jne L390 4b0a a1 00 00 mov ax,CODE_RTAB 4b0d a3 00 00 mov CHAR_CODE,ax 4b10 a1 00 00 L390 mov ax,CHAR_CODE 4b13 3b 06 00 00 cmp ax,CODE_RETURN 4b17 74 03 je L391 4b19 e9 bd 00 jmp L403 4b1c c4 7e 0a L391 les di,dword ptr +0aH[bp] 4b1f 31 c0 xor ax,ax 4b21 26 89 05 mov es:[di],ax 4b24 c4 7e 06 les di,dword ptr +6H[bp] 4b27 26 c6 05 01 mov byte ptr es:[di],01H 4b2b c6 06 00 00 01 mov byte ptr CHECKREQUIRED,01H 4b30 a1 00 00 mov ax,CODE_TAB 4b33 a3 00 00 mov CHAR_CODE,ax 4b36 c4 7e f6 les di,dword ptr -0aH[bp] 4b39 26 80 7d 19 00 cmp byte ptr es:+19H[di],00H 4b3e 74 0a je L392 4b40 c4 7e f6 les di,dword ptr -0aH[bp] 4b43 26 c6 45 2e 01 mov byte ptr es:+2eH[di],01H 4b48 eb 17 jmp L395 4b4a c4 7e f6 L392 les di,dword ptr -0aH[bp] 4b4d 26 80 7d 2e 00 cmp byte ptr es:+2eH[di],00H 4b52 74 04 je L393 4b54 b0 00 mov al,00H 4b56 eb 02 jmp L394 4b58 b0 01 L393 mov al,01H 4b5a c4 7e f6 L394 les di,dword ptr -0aH[bp] 4b5d 26 88 45 2e mov es:+2eH[di],al 4b61 c4 7e f6 L395 les di,dword ptr -0aH[bp] 4b64 26 8a 45 2c mov al,es:+2cH[di] 4b68 30 e4 xor ah,ah 4b6a 3b 06 00 00 cmp ax,ACTIVE_FIELD 4b6e 75 0f jne L396 4b70 c4 7e f6 les di,dword ptr -0aH[bp] 4b73 26 8a 45 2d mov al,es:+2dH[di] 4b77 30 e4 xor ah,ah 4b79 3b 06 00 00 cmp ax,ACTIVE_FIELD 4b7d 74 42 je L401 4b7f c4 7e f6 L396 les di,dword ptr -0aH[bp] 4b82 26 8a 45 2d mov al,es:+2dH[di] 4b86 30 e4 xor ah,ah 4b88 89 46 f4 mov -0cH[bp],ax 4b8b c4 7e f6 les di,dword ptr -0aH[bp] 4b8e 26 8a 45 2c mov al,es:+2cH[di] 4b92 30 e4 xor ah,ah 4b94 3b 46 f4 cmp ax,-0cH[bp] 4b97 7f 22 jg L400 4b99 89 46 fe mov -2H[bp],ax 4b9c eb 03 jmp L398 4b9e ff 46 fe L397 inc word ptr -2H[bp] 4ba1 8b 46 fe L398 mov ax,-2H[bp] 4ba4 3b 06 00 00 cmp ax,ACTIVE_FIELD 4ba8 74 09 je L399 4baa ff 76 fe push -2H[bp] 4bad ff 76 04 push +4H[bp] 4bb0 e8 00 00 call SCL_097 4bb3 8b 46 fe L399 mov ax,-2H[bp] 4bb6 3b 46 f4 cmp ax,-0cH[bp] 4bb9 75 e3 jne L397 4bbb a1 00 00 L400 mov ax,CODE_CTRLTAB 4bbe a3 00 00 mov CHAR_CODE,ax 4bc1 c4 7e f6 L401 les di,dword ptr -0aH[bp] 4bc4 26 8a 45 2d mov al,es:+2dH[di] 4bc8 c4 7e fa les di,dword ptr -6H[bp] 4bcb 26 3a 45 39 cmp al,es:+39H[di] 4bcf 75 06 jne L402 4bd1 a1 00 00 mov ax,CODE_ESCAPE 4bd4 a3 00 00 mov CHAR_CODE,ax 4bd7 eb 2a L402 jmp L405 4bd9 ff 76 04 L403 push +4H[bp] 4bdc e8 00 00 call SCL_095 4bdf 08 c0 or al,al 4be1 74 11 je L404 4be3 c4 7e 06 les di,dword ptr +6H[bp] 4be6 26 c6 05 01 mov byte ptr es:[di],01H 4bea c4 7e 0a les di,dword ptr +0aH[bp] 4bed 31 c0 xor ax,ax 4bef 26 89 05 mov es:[di],ax 4bf2 eb 0f jmp L405 4bf4 c4 7e 0a L404 les di,dword ptr +0aH[bp] 4bf7 26 c7 05 0f 00 mov word ptr es:[di],000fH 4bfc c4 7e 06 les di,dword ptr +6H[bp] 4bff 26 c6 05 00 mov byte ptr es:[di],00H 4c03 89 ec L405 mov sp,bp 4c05 5d pop bp 4c06 c2 0a 00 ret 000aH 4c09 55 SCL_09A push bp 4c0a 89 e5 mov bp,sp 4c0c 83 ec 09 sub sp,0009H 4c0f c6 46 fb 00 mov byte ptr -5H[bp],00H 4c13 8b 46 06 mov ax,+6H[bp] 4c16 89 46 fc mov -4H[bp],ax 4c19 a1 00 00 mov ax,S_PTR 4c1c ba 72 00 mov dx,0072H 4c1f f7 e2 mul dx 4c21 8b f8 mov di,ax 4c23 c4 bd 00 00 les di,dword ptr L584[di] 4c27 89 7e f7 mov -9H[bp],di 4c2a 8c 46 f9 mov -7H[bp],es 4c2d 8b 46 fc L406 mov ax,-4H[bp] 4c30 ba 30 00 mov dx,0030H 4c33 f7 e2 mul dx 4c35 c4 7e f7 les di,dword ptr -9H[bp] 4c38 03 f8 add di,ax 4c3a 26 8a 85 0c 08 mov al,es:+80cH[di] 4c3f 30 e4 xor ah,ah 4c41 89 46 fc mov -4H[bp],ax 4c44 8b 46 06 mov ax,+6H[bp] 4c47 ba 30 00 mov dx,0030H 4c4a f7 e2 mul dx 4c4c c4 7e f7 les di,dword ptr -9H[bp] 4c4f 03 f8 add di,ax 4c51 26 8a 8d 07 08 mov cl,es:+807H[di] 4c56 8b 46 fc mov ax,-4H[bp] 4c59 ba 30 00 mov dx,0030H 4c5c f7 e2 mul dx 4c5e c4 7e f7 les di,dword ptr -9H[bp] 4c61 03 f8 add di,ax 4c63 26 8a 85 07 08 mov al,es:+807H[di] 4c68 3a c1 cmp al,cl 4c6a 75 28 jne L407 4c6c 8b 46 fc mov ax,-4H[bp] 4c6f ba 30 00 mov dx,0030H 4c72 f7 e2 mul dx 4c74 c4 7e f7 les di,dword ptr -9H[bp] 4c77 03 f8 add di,ax 4c79 26 8a 8d 06 08 mov cl,es:+806H[di] 4c7e 8b 46 06 mov ax,+6H[bp] 4c81 ba 30 00 mov dx,0030H 4c84 f7 e2 mul dx 4c86 c4 7e f7 les di,dword ptr -9H[bp] 4c89 03 f8 add di,ax 4c8b 26 8a 85 06 08 mov al,es:+806H[di] 4c90 3a c1 cmp al,cl 4c92 77 04 ja L408 4c94 c6 46 fb 01 L407 mov byte ptr -5H[bp],01H 4c98 80 7e fb 00 L408 cmp byte ptr -5H[bp],00H 4c9c 74 8f je L406 4c9e 8b 46 fc mov ax,-4H[bp] 4ca1 ba 30 00 mov dx,0030H 4ca4 f7 e2 mul dx 4ca6 c4 7e f7 les di,dword ptr -9H[bp] 4ca9 03 f8 add di,ax 4cab 26 8a 85 0b 08 mov al,es:+80bH[di] 4cb0 30 e4 xor ah,ah 4cb2 89 46 fe mov -2H[bp],ax 4cb5 8b 46 fe mov ax,-2H[bp] 4cb8 89 ec mov sp,bp 4cba 5d pop bp 4cbb c2 04 00 ret 0004H 4cbe 55 SCL_09B push bp 4cbf 89 e5 mov bp,sp 4cc1 83 ec 09 sub sp,0009H 4cc4 c6 46 fb 00 mov byte ptr -5H[bp],00H 4cc8 8b 46 06 mov ax,+6H[bp] 4ccb 89 46 fc mov -4H[bp],ax 4cce a1 00 00 mov ax,S_PTR 4cd1 ba 72 00 mov dx,0072H 4cd4 f7 e2 mul dx 4cd6 8b f8 mov di,ax 4cd8 c4 bd 00 00 les di,dword ptr L584[di] 4cdc 89 7e f7 mov -9H[bp],di 4cdf 8c 46 f9 mov -7H[bp],es 4ce2 8b 46 fc L409 mov ax,-4H[bp] 4ce5 ba 30 00 mov dx,0030H 4ce8 f7 e2 mul dx 4cea c4 7e f7 les di,dword ptr -9H[bp] 4ced 03 f8 add di,ax 4cef 26 8a 85 0b 08 mov al,es:+80bH[di] 4cf4 30 e4 xor ah,ah 4cf6 89 46 fc mov -4H[bp],ax 4cf9 8b 46 06 mov ax,+6H[bp] 4cfc ba 30 00 mov dx,0030H 4cff f7 e2 mul dx 4d01 c4 7e f7 les di,dword ptr -9H[bp] 4d04 03 f8 add di,ax 4d06 26 8a 8d 07 08 mov cl,es:+807H[di] 4d0b 8b 46 fc mov ax,-4H[bp] 4d0e ba 30 00 mov dx,0030H 4d11 f7 e2 mul dx 4d13 c4 7e f7 les di,dword ptr -9H[bp] 4d16 03 f8 add di,ax 4d18 26 8a 85 07 08 mov al,es:+807H[di] 4d1d 3a c1 cmp al,cl 4d1f 75 28 jne L410 4d21 8b 46 fc mov ax,-4H[bp] 4d24 ba 30 00 mov dx,0030H 4d27 f7 e2 mul dx 4d29 c4 7e f7 les di,dword ptr -9H[bp] 4d2c 03 f8 add di,ax 4d2e 26 8a 8d 06 08 mov cl,es:+806H[di] 4d33 8b 46 06 mov ax,+6H[bp] 4d36 ba 30 00 mov dx,0030H 4d39 f7 e2 mul dx 4d3b c4 7e f7 les di,dword ptr -9H[bp] 4d3e 03 f8 add di,ax 4d40 26 8a 85 06 08 mov al,es:+806H[di] 4d45 3a c1 cmp al,cl 4d47 72 04 jb L411 4d49 c6 46 fb 01 L410 mov byte ptr -5H[bp],01H 4d4d 80 7e fb 00 L411 cmp byte ptr -5H[bp],00H 4d51 74 8f je L409 4d53 8b 46 fc mov ax,-4H[bp] 4d56 ba 30 00 mov dx,0030H 4d59 f7 e2 mul dx 4d5b c4 7e f7 les di,dword ptr -9H[bp] 4d5e 03 f8 add di,ax 4d60 26 8a 85 0c 08 mov al,es:+80cH[di] 4d65 30 e4 xor ah,ah 4d67 89 46 fe mov -2H[bp],ax 4d6a 8b 46 fe mov ax,-2H[bp] 4d6d 89 ec mov sp,bp 4d6f 5d pop bp 4d70 c2 04 00 ret 0004H 4d73 55 SCL_09C push bp 4d74 89 e5 mov bp,sp 4d76 83 ec 04 sub sp,0004H 4d79 ff 76 06 push +6H[bp] 4d7c ff 76 04 push +4H[bp] 4d7f e8 00 00 call SCL_09A 4d82 89 46 fc mov -4H[bp],ax 4d85 8b 46 fc mov ax,-4H[bp] 4d88 ba 30 00 mov dx,0030H 4d8b f7 e2 mul dx 4d8d 8b c8 mov cx,ax 4d8f a1 00 00 mov ax,S_PTR 4d92 ba 72 00 mov dx,0072H 4d95 f7 e2 mul dx 4d97 8b f8 mov di,ax 4d99 c4 bd 00 00 les di,dword ptr L584[di] 4d9d 03 f9 add di,cx 4d9f 26 8a 85 0c 08 mov al,es:+80cH[di] 4da4 30 e4 xor ah,ah 4da6 89 46 fc mov -4H[bp],ax 4da9 ff 76 fc push -4H[bp] 4dac ff 76 04 push +4H[bp] 4daf e8 00 00 call SCL_09A 4db2 89 46 fe mov -2H[bp],ax 4db5 8b 46 fe mov ax,-2H[bp] 4db8 89 ec mov sp,bp 4dba 5d pop bp 4dbb c2 04 00 ret 0004H 4dbe 55 SCL_09D push bp 4dbf 89 e5 mov bp,sp 4dc1 83 ec 04 sub sp,0004H 4dc4 ff 76 06 push +6H[bp] 4dc7 ff 76 04 push +4H[bp] 4dca e8 00 00 call SCL_09B 4dcd 89 46 fc mov -4H[bp],ax 4dd0 8b 46 fc mov ax,-4H[bp] 4dd3 ba 30 00 mov dx,0030H 4dd6 f7 e2 mul dx 4dd8 8b c8 mov cx,ax 4dda a1 00 00 mov ax,S_PTR 4ddd ba 72 00 mov dx,0072H 4de0 f7 e2 mul dx 4de2 8b f8 mov di,ax 4de4 c4 bd 00 00 les di,dword ptr L584[di] 4de8 03 f9 add di,cx 4dea 26 8a 85 0b 08 mov al,es:+80bH[di] 4def 30 e4 xor ah,ah 4df1 89 46 fe mov -2H[bp],ax 4df4 8b 46 fe mov ax,-2H[bp] 4df7 89 ec mov sp,bp 4df9 5d pop bp 4dfa c2 04 00 ret 0004H 4dfd 55 SCL_09E push bp 4dfe 89 e5 mov bp,sp 4e00 83 ec 01 sub sp,0001H 4e03 a1 00 00 mov ax,BUFFBOT 4e06 3b 06 00 00 cmp ax,BUFFTOP 4e0a 74 66 je L416 4e0c 8b 3e 00 00 mov di,BUFFBOT 4e10 d1 e7 shl di,1 4e12 8b 85 00 00 mov ax,INBUFF[di] 4e16 3b 06 00 00 cmp ax,CODE_RIGHT 4e1a 75 0f jne L412 4e1c a1 00 00 mov ax,CODE_TAB 4e1f 8b 3e 00 00 mov di,BUFFBOT 4e23 d1 e7 shl di,1 4e25 89 85 00 00 mov INBUFF[di],ax 4e29 eb 1d jmp L413 4e2b 8b 3e 00 00 L412 mov di,BUFFBOT 4e2f d1 e7 shl di,1 4e31 8b 85 00 00 mov ax,INBUFF[di] 4e35 3b 06 00 00 cmp ax,CODE_LEFT 4e39 75 0d jne L413 4e3b a1 00 00 mov ax,CODE_RTAB 4e3e 8b 3e 00 00 mov di,BUFFBOT 4e42 d1 e7 shl di,1 4e44 89 85 00 00 mov INBUFF[di],ax 4e48 8b 3e 00 00 L413 mov di,BUFFBOT 4e4c d1 e7 shl di,1 4e4e 8b 85 00 00 mov ax,INBUFF[di] 4e52 3b 06 00 00 cmp ax,CHAR_CODE 4e56 75 14 jne L414 4e58 a1 00 00 mov ax,BUFFBOT 4e5b 40 inc ax 4e5c 99 cwd 4e5d b9 32 00 mov cx,0032H 4e60 f7 f9 idiv cx 4e62 92 xchg ax,dx 4e63 a3 00 00 mov BUFFBOT,ax 4e66 c6 46 ff 01 mov byte ptr -1H[bp],01H 4e6a eb 04 jmp L415 4e6c c6 46 ff 00 L414 mov byte ptr -1H[bp],00H 4e70 eb 04 L415 jmp L417 4e72 c6 46 ff 00 L416 mov byte ptr -1H[bp],00H 4e76 8a 46 ff L417 mov al,-1H[bp] 4e79 89 ec mov sp,bp 4e7b 5d pop bp 4e7c c2 02 00 ret 0002H 4e7f 55 SCL_099 push bp 4e80 89 e5 mov bp,sp 4e82 83 ec 08 sub sp,0008H 4e85 a1 00 00 mov ax,S_PTR 4e88 ba 72 00 mov dx,0072H 4e8b f7 e2 mul dx 4e8d 8b f8 mov di,ax 4e8f c4 bd 00 00 les di,dword ptr L584[di] 4e93 89 7e fc mov -4H[bp],di 4e96 8c 46 fe mov -2H[bp],es 4e99 a1 00 00 mov ax,ACTIVE_FIELD 4e9c ba 30 00 mov dx,0030H 4e9f f7 e2 mul dx 4ea1 c4 7e fc les di,dword ptr -4H[bp] 4ea4 03 f8 add di,ax 4ea6 81 c7 f9 07 add di,07f9H 4eaa 89 7e f8 mov -8H[bp],di 4ead 8c 46 fa mov -6H[bp],es 4eb0 c4 7e fc les di,dword ptr -4H[bp] 4eb3 26 80 7d 3d 00 cmp byte ptr es:+3dH[di],00H 4eb8 74 07 je L418 4eba 80 3e 00 00 00 cmp byte ptr NO_WRAP,00H 4ebf 74 48 je L421 4ec1 c4 7e fc L418 les di,dword ptr -4H[bp] 4ec4 26 8a 45 39 mov al,es:+39H[di] 4ec8 30 e4 xor ah,ah 4eca 3b 06 00 00 cmp ax,ACTIVE_FIELD 4ece 75 12 jne L419 4ed0 a1 00 00 mov ax,CHAR_CODE 4ed3 3b 06 00 00 cmp ax,CODE_TAB 4ed7 74 2a je L420 4ed9 a1 00 00 mov ax,CHAR_CODE 4edc 3b 06 00 00 cmp ax,CODE_DOWN 4ee0 74 21 je L420 4ee2 c4 7e fc L419 les di,dword ptr -4H[bp] 4ee5 26 8a 45 38 mov al,es:+38H[di] 4ee9 30 e4 xor ah,ah 4eeb 3b 06 00 00 cmp ax,ACTIVE_FIELD 4eef 75 18 jne L421 4ef1 a1 00 00 mov ax,CHAR_CODE 4ef4 3b 06 00 00 cmp ax,CODE_RTAB 4ef8 74 09 je L420 4efa a1 00 00 mov ax,CHAR_CODE 4efd 3b 06 00 00 cmp ax,CODE_UP 4f01 75 06 jne L421 4f03 c7 06 00 00 ff 00 L420 mov word ptr CHAR_CODE,00ffH 4f09 a1 00 00 L421 mov ax,CHAR_CODE 4f0c 3b 06 00 00 cmp ax,CODE_TAB 4f10 75 0f jne L422 4f12 c4 7e f8 les di,dword ptr -8H[bp] 4f15 26 8a 45 12 mov al,es:+12H[di] 4f19 30 e4 xor ah,ah 4f1b a3 00 00 mov ACTIVE_FIELD,ax 4f1e e9 c5 00 jmp L430 4f21 a1 00 00 L422 mov ax,CHAR_CODE 4f24 3b 06 00 00 cmp ax,CODE_RTAB 4f28 75 0f jne L423 4f2a c4 7e f8 les di,dword ptr -8H[bp] 4f2d 26 8a 45 13 mov al,es:+13H[di] 4f31 30 e4 xor ah,ah 4f33 a3 00 00 mov ACTIVE_FIELD,ax 4f36 e9 ad 00 jmp L430 4f39 a1 00 00 L423 mov ax,CHAR_CODE 4f3c 3b 06 00 00 cmp ax,CODE_CTRLTAB 4f40 75 20 jne L424 4f42 c4 7e f8 les di,dword ptr -8H[bp] 4f45 26 8a 45 2d mov al,es:+2dH[di] 4f49 30 e4 xor ah,ah 4f4b ba 30 00 mov dx,0030H 4f4e f7 e2 mul dx 4f50 c4 7e fc les di,dword ptr -4H[bp] 4f53 03 f8 add di,ax 4f55 26 8a 85 0b 08 mov al,es:+80bH[di] 4f5a 30 e4 xor ah,ah 4f5c a3 00 00 mov ACTIVE_FIELD,ax 4f5f e9 84 00 jmp L430 4f62 a1 00 00 L424 mov ax,CHAR_CODE 4f65 3b 06 00 00 cmp ax,CODE_UP 4f69 75 0d jne L425 4f6b ff 36 00 00 push ACTIVE_FIELD 4f6f 55 push bp 4f70 e8 00 00 call SCL_09C 4f73 a3 00 00 mov ACTIVE_FIELD,ax 4f76 eb 6e jmp L430 4f78 a1 00 00 L425 mov ax,CHAR_CODE 4f7b 3b 06 00 00 cmp ax,CODE_DOWN 4f7f 75 0d jne L426 4f81 ff 36 00 00 push ACTIVE_FIELD 4f85 55 push bp 4f86 e8 00 00 call SCL_09D 4f89 a3 00 00 mov ACTIVE_FIELD,ax 4f8c eb 58 jmp L430 4f8e a1 00 00 L426 mov ax,CHAR_CODE 4f91 3b 06 00 00 cmp ax,CODE_PGUP 4f95 75 0e jne L427 4f97 c4 7e fc les di,dword ptr -4H[bp] 4f9a 26 8a 45 38 mov al,es:+38H[di] 4f9e 30 e4 xor ah,ah 4fa0 a3 00 00 mov ACTIVE_FIELD,ax 4fa3 eb 41 jmp L430 4fa5 a1 00 00 L427 mov ax,CHAR_CODE 4fa8 3b 06 00 00 cmp ax,CODE_PGDOWN 4fac 75 0e jne L428 4fae c4 7e fc les di,dword ptr -4H[bp] 4fb1 26 8a 45 39 mov al,es:+39H[di] 4fb5 30 e4 xor ah,ah 4fb7 a3 00 00 mov ACTIVE_FIELD,ax 4fba eb 2a jmp L430 4fbc a1 00 00 L428 mov ax,CHAR_CODE 4fbf 3b 06 00 00 cmp ax,CODE_HOME 4fc3 75 0d jne L429 4fc5 ff 36 00 00 push ACTIVE_FIELD 4fc9 55 push bp 4fca e8 00 00 call SCL_09A 4fcd a3 00 00 mov ACTIVE_FIELD,ax 4fd0 eb 14 jmp L430 4fd2 a1 00 00 L429 mov ax,CHAR_CODE 4fd5 3b 06 00 00 cmp ax,CODE_END 4fd9 75 0b jne L430 4fdb ff 36 00 00 push ACTIVE_FIELD 4fdf 55 push bp 4fe0 e8 00 00 call SCL_09B 4fe3 a3 00 00 mov ACTIVE_FIELD,ax 4fe6 55 L430 push bp 4fe7 e8 00 00 call SCL_09E 4fea 08 c0 or al,al 4fec 74 06 je L431 4fee ff 76 04 push +4H[bp] 4ff1 e8 00 00 call SCL_099 4ff4 89 ec L431 mov sp,bp 4ff6 5d pop bp 4ff7 c2 02 00 ret 0002H 4ffa 55 SCL_0A0 push bp 4ffb 89 e5 mov bp,sp 4ffd 83 ec 04 sub sp,0004H 5000 a1 00 00 mov ax,S_PTR 5003 ba 72 00 mov dx,0072H 5006 f7 e2 mul dx 5008 8b f8 mov di,ax 500a c4 bd 00 00 les di,dword ptr L584[di] 500e 89 7e fc mov -4H[bp],di 5011 8c 46 fe mov -2H[bp],es 5014 c4 7e fc les di,dword ptr -4H[bp] 5017 26 80 7d 36 00 cmp byte ptr es:+36H[di],00H 501c 76 28 jbe L432 501e a1 00 00 mov ax,ACTIVE_FIELD 5021 ba 30 00 mov dx,0030H 5024 f7 e2 mul dx 5026 c4 7e fc les di,dword ptr -4H[bp] 5029 03 f8 add di,ax 502b 26 83 bd f9 07 00 cmp word ptr es:+7f9H[di],0000H 5031 75 13 jne L432 5033 c4 7e fc les di,dword ptr -4H[bp] 5036 26 8a 45 36 mov al,es:+36H[di] 503a 30 e4 xor ah,ah 503c 50 push ax 503d 0e push cs 503e e8 00 00 call C_CONT 5041 c6 06 00 00 00 mov byte ptr MSG_PRESENT,00H 5046 89 ec L432 mov sp,bp 5048 5d pop bp 5049 c2 02 00 ret 0002H 504c 55 SCL_0A1 push bp 504d 89 e5 mov bp,sp 504f 83 ec 08 sub sp,0008H 5052 a1 00 00 mov ax,S_PTR 5055 ba 72 00 mov dx,0072H 5058 f7 e2 mul dx 505a 8b f8 mov di,ax 505c c4 bd 00 00 les di,dword ptr L584[di] 5060 89 7e fc mov -4H[bp],di 5063 8c 46 fe mov -2H[bp],es 5066 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 506b 7f 03 jg L433 506d e9 81 00 jmp L438 5070 a1 00 00 L433 mov ax,ACTIVE_FIELD 5073 ba 30 00 mov dx,0030H 5076 f7 e2 mul dx 5078 c4 7e fc les di,dword ptr -4H[bp] 507b 03 f8 add di,ax 507d 81 c7 f9 07 add di,07f9H 5081 89 7e f8 mov -8H[bp],di 5084 8c 46 fa mov -6H[bp],es 5087 c4 7e f8 les di,dword ptr -8H[bp] 508a 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 508f 75 1a jne L434 5091 8b 7e 04 mov di,+4H[bp] 5094 81 c7 fc ff add di,0fffcH 5098 16 push ss 5099 57 push di 509a bf 00 00 mov di,offset FIELDEND 509d 1e push ds 509e 57 push di 509f 8b 7e 04 mov di,+4H[bp] 50a2 36 ff 75 04 push ss:+4H[di] 50a6 e8 00 00 call SCL_096 50a9 eb 18 jmp L435 50ab 8b 7e 04 L434 mov di,+4H[bp] 50ae 81 c7 fc ff add di,0fffcH 50b2 16 push ss 50b3 57 push di 50b4 bf 00 00 mov di,offset FIELDEND 50b7 1e push ds 50b8 57 push di 50b9 8b 7e 04 mov di,+4H[bp] 50bc 36 ff 75 04 push ss:+4H[di] 50c0 e8 00 00 call SCL_098 50c3 8b 7e 04 L435 mov di,+4H[bp] 50c6 36 83 7d fc 00 cmp word ptr ss:-4H[di],0000H 50cb 7e 13 jle L436 50cd 8b 7e 04 mov di,+4H[bp] 50d0 36 ff 75 fc push ss:-4H[di] 50d4 8b 7e 04 mov di,+4H[bp] 50d7 36 ff 75 04 push ss:+4H[di] 50db e8 00 00 call SCL_091 50de eb 0f jmp L437 50e0 80 3e 00 00 00 L436 cmp byte ptr FIELDEND,00H 50e5 74 08 je L437 50e7 c4 7e 06 les di,dword ptr +6H[bp] 50ea 26 c7 05 03 00 mov word ptr es:[di],0003H 50ef eb 30 L437 jmp L441 50f1 a1 00 00 L438 mov ax,CHAR_CODE 50f4 3b 06 00 00 cmp ax,CODE_RETURN 50f8 74 09 je L439 50fa a1 00 00 mov ax,CHAR_CODE 50fd 3b 06 00 00 cmp ax,CODE_ESCAPE 5101 75 10 jne L440 5103 a1 00 00 L439 mov ax,CODE_ESCAPE 5106 a3 00 00 mov CHAR_CODE,ax 5109 c4 7e 06 les di,dword ptr +6H[bp] 510c 26 c7 05 05 00 mov word ptr es:[di],0005H 5111 eb 0e jmp L441 5113 b8 0f 00 L440 mov ax,000fH 5116 50 push ax 5117 8b 7e 04 mov di,+4H[bp] 511a 36 ff 75 04 push ss:+4H[di] 511e e8 00 00 call SCL_091 5121 89 ec L441 mov sp,bp 5123 5d pop bp 5124 c2 06 00 ret 0006H 5127 55 SCL_09F push bp 5128 89 e5 mov bp,sp 512a 83 ec 0c sub sp,000cH 512d 81 3e 00 00 ff 00 cmp word ptr CHAR_CODE,00ffH 5133 75 0d jne L442 5135 83 3e 00 00 01 cmp word ptr GLB_STATUS,0001H 513a 7e 06 jle L442 513c c7 06 00 00 01 00 mov word ptr GLB_STATUS,0001H 5142 a1 00 00 L442 mov ax,S_PTR 5145 ba 72 00 mov dx,0072H 5148 f7 e2 mul dx 514a 8b f8 mov di,ax 514c c4 bd 00 00 les di,dword ptr L584[di] 5150 89 7e f8 mov -8H[bp],di 5153 8c 46 fa mov -6H[bp],es 5156 a1 00 00 mov ax,GLB_STATUS 5159 3d 00 00 cmp ax,0000H 515c 75 44 jne L446 515e b0 00 mov al,00H 5160 50 push ax 5161 0e push cs 5162 e8 00 00 call SCL_01A 5165 c6 06 00 00 00 mov byte ptr CHECKREQUIRED,00H 516a c6 06 00 00 00 mov byte ptr FIELDEND,00H 516f 31 c0 xor ax,ax 5171 a3 00 00 mov ERRORCOUNT,ax 5174 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 5179 7e 1a jle L444 517b 80 3e 00 00 00 cmp byte ptr MSG_PRESENT,00H 5180 74 04 je L443 5182 55 push bp 5183 e8 00 00 call SCL_0A0 5186 ff 36 00 00 L443 push ACTIVE_FIELD 518a 0e push cs 518b e8 00 00 call SCL_048 518e c6 06 00 00 01 mov byte ptr BEGIN_OF_FIELD,01H 5193 eb 04 jmp L445 5195 0e L444 push cs 5196 e8 00 00 call CURSOR_OFF 5199 c7 06 00 00 01 00 L445 mov word ptr GLB_STATUS,0001H 519f e9 d0 01 jmp L468 51a2 3d 01 00 L446 cmp ax,0001H 51a5 75 28 jne L448 51a7 a1 00 00 mov ax,BUFFBOT 51aa 3b 06 00 00 cmp ax,BUFFTOP 51ae 74 1c je L447 51b0 31 c0 xor ax,ax 51b2 89 46 fc mov -4H[bp],ax 51b5 ff 76 04 push +4H[bp] 51b8 e8 00 00 call SCL_093 51bb c7 06 00 00 02 00 mov word ptr GLB_STATUS,0002H 51c1 bf 00 00 mov di,offset USER_FUNCTION 51c4 1e push ds 51c5 57 push di 51c6 ff 76 04 push +4H[bp] 51c9 e8 00 00 call SCL_094 51cc e9 a3 01 L447 jmp L468 51cf 3d 02 00 L448 cmp ax,0002H 51d2 75 78 jne L456 51d4 c7 06 00 00 01 00 mov word ptr GLB_STATUS,0001H 51da 83 3e 00 00 00 cmp word ptr GLB_ERROR,0000H 51df 7e 0c jle L449 51e1 ff 36 00 00 push GLB_ERROR 51e5 ff 76 04 push +4H[bp] 51e8 e8 00 00 call SCL_091 51eb eb 5c jmp L455 51ed a1 00 00 L449 mov ax,CHAR_CODE 51f0 3b 06 00 00 cmp ax,CODE_HELP_FORMAT 51f4 75 08 jne L450 51f6 ff 76 04 push +4H[bp] 51f9 e8 00 00 call SCL_08F 51fc eb 4b jmp L455 51fe a1 00 00 L450 mov ax,CHAR_CODE 5201 3b 06 00 00 cmp ax,CODE_HELP_FIELD 5205 75 19 jne L453 5207 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 520c 7e 08 jle L451 520e ff 76 04 push +4H[bp] 5211 e8 00 00 call SCL_08E 5214 eb 08 jmp L452 5216 b8 26 00 L451 mov ax,0026H 5219 50 push ax 521a 0e push cs 521b e8 00 00 call INPUT_ERROR 521e eb 29 L452 jmp L455 5220 a1 00 00 L453 mov ax,CHAR_CODE 5223 3b 06 00 00 cmp ax,CODE_ABORT 5227 75 17 jne L454 5229 c4 7e f8 les di,dword ptr -8H[bp] 522c 26 80 7d 3c 00 cmp byte ptr es:+3cH[di],00H 5231 74 0d je L454 5233 c6 06 00 00 01 mov byte ptr FORMAT_ABORTED,01H 5238 c7 06 00 00 06 00 mov word ptr GLB_STATUS,0006H 523e eb 09 jmp L455 5240 bf 00 00 L454 mov di,offset GLB_STATUS 5243 1e push ds 5244 57 push di 5245 55 push bp 5246 e8 00 00 call SCL_0A1 5249 e9 26 01 L455 jmp L468 524c 3d 03 00 L456 cmp ax,0003H 524f 75 78 jne L459 5251 a1 00 00 mov ax,ACTIVE_FIELD 5254 ba 30 00 mov dx,0030H 5257 f7 e2 mul dx 5259 c4 7e f8 les di,dword ptr -8H[bp] 525c 03 f8 add di,ax 525e 81 c7 f9 07 add di,07f9H 5262 89 7e f4 mov -0cH[bp],di 5265 8c 46 f6 mov -0aH[bp],es 5268 c4 7e f4 les di,dword ptr -0cH[bp] 526b 26 80 7d 1a 00 cmp byte ptr es:+1aH[di],00H 5270 75 42 jne L457 5272 80 3e 00 00 00 cmp byte ptr CHECKREQUIRED,00H 5277 74 3b je L457 5279 ff 36 00 00 push ACTIVE_FIELD 527d e8 00 00 call SCL_08C 5280 ff 36 00 00 push ACTIVE_FIELD 5284 8d 7e fc lea di,-4H[bp] 5287 16 push ss 5288 57 push di 5289 e8 00 00 call SCL_08D 528c 83 7e fc 00 cmp word ptr -4H[bp],0000H 5290 7e 22 jle L457 5292 ff 76 fc push -4H[bp] 5295 ff 76 04 push +4H[bp] 5298 e8 00 00 call SCL_091 529b c7 06 00 00 01 00 mov word ptr GLB_STATUS,0001H 52a1 c4 7e f4 les di,dword ptr -0cH[bp] 52a4 26 8a 45 0d mov al,es:+0dH[di] 52a8 30 e4 xor ah,ah 52aa 50 push ax 52ab 0e push cs 52ac e8 00 00 call SCL_027 52af c6 06 00 00 00 mov byte ptr FIELDEND,00H 52b4 80 3e 00 00 00 L457 cmp byte ptr FIELDEND,00H 52b9 74 0b je L458 52bb c6 06 00 00 01 mov byte ptr END_OF_FIELD,01H 52c0 c7 06 00 00 04 00 mov word ptr GLB_STATUS,0004H 52c6 e9 a9 00 L458 jmp L468 52c9 3d 04 00 L459 cmp ax,0004H 52cc 75 3e jne L463 52ce 83 3e 00 00 00 cmp word ptr GLB_ERROR,0000H 52d3 7e 11 jle L460 52d5 ff 36 00 00 push GLB_ERROR 52d9 ff 76 04 push +4H[bp] 52dc e8 00 00 call SCL_091 52df 31 c0 xor ax,ax 52e1 a3 00 00 mov GLB_STATUS,ax 52e4 eb 24 jmp L462 52e6 a1 00 00 L460 mov ax,CHAR_CODE 52e9 3b 06 00 00 cmp ax,CODE_ESCAPE 52ed 74 15 je L461 52ef ff 36 00 00 push ACTIVE_FIELD 52f3 0e push cs 52f4 e8 00 00 call SCL_047 52f7 ff 76 04 push +4H[bp] 52fa e8 00 00 call SCL_099 52fd 31 c0 xor ax,ax 52ff a3 00 00 mov GLB_STATUS,ax 5302 eb 06 jmp L462 5304 c7 06 00 00 05 00 L461 mov word ptr GLB_STATUS,0005H 530a eb 66 L462 jmp L468 530c 3d 05 00 L463 cmp ax,0005H 530f 75 2e jne L466 5311 8d 7e fc lea di,-4H[bp] 5314 16 push ss 5315 57 push di 5316 e8 00 00 call SCL_089 5319 83 7e fc 00 cmp word ptr -4H[bp],0000H 531d 7e 13 jle L464 531f ff 76 fc push -4H[bp] 5322 0e push cs 5323 e8 00 00 call GOTO_FIELD 5326 b8 12 00 mov ax,0012H 5329 50 push ax 532a ff 76 04 push +4H[bp] 532d e8 00 00 call SCL_091 5330 eb 0b jmp L465 5332 c6 06 00 00 01 L464 mov byte ptr END_OF_FORMAT,01H 5337 c7 06 00 00 06 00 mov word ptr GLB_STATUS,0006H 533d eb 33 L465 jmp L468 533f 3d 06 00 L466 cmp ax,0006H 5342 75 2e jne L468 5344 83 3e 00 00 00 cmp word ptr GLB_ERROR,0000H 5349 7e 18 jle L467 534b 80 3e 00 00 00 cmp byte ptr FORMAT_ABORTED,00H 5350 75 11 jne L467 5352 ff 36 00 00 push GLB_ERROR 5356 ff 76 04 push +4H[bp] 5359 e8 00 00 call SCL_091 535c 31 c0 xor ax,ax 535e a3 00 00 mov GLB_STATUS,ax 5361 eb 0f jmp L468 5363 a1 00 00 L467 mov ax,S_PTR 5366 ba 72 00 mov dx,0072H 5369 f7 e2 mul dx 536b 8b f8 mov di,ax 536d c6 85 00 00 01 mov byte ptr L583[di],01H 5372 31 c0 L468 xor ax,ax 5374 a3 00 00 mov GLB_ERROR,ax 5377 89 ec mov sp,bp 5379 5d pop bp 537a c2 02 00 ret 0002H 537d 55 SCL_0A2 push bp 537e 89 e5 mov bp,sp 5380 83 ec 04 sub sp,0004H 5383 83 3e 00 00 00 cmp word ptr ACTIVE_FIELD,0000H 5388 7f 03 jg L469 538a e9 95 00 jmp L477 538d a1 00 00 L469 mov ax,R_PTR 5390 3b 06 00 00 cmp ax,S_PTR 5394 74 03 je L470 5396 e9 89 00 jmp L477 5399 a1 00 00 L470 mov ax,ACTIVE_FIELD 539c ba 30 00 mov dx,0030H 539f f7 e2 mul dx 53a1 8b c8 mov cx,ax 53a3 a1 00 00 mov ax,S_PTR 53a6 ba 72 00 mov dx,0072H 53a9 f7 e2 mul dx 53ab 8b f8 mov di,ax 53ad c4 bd 00 00 les di,dword ptr L584[di] 53b1 03 f9 add di,cx 53b3 81 c7 f9 07 add di,07f9H 53b7 89 7e fc mov -4H[bp],di 53ba 8c 46 fe mov -2H[bp],es 53bd c4 7e fc les di,dword ptr -4H[bp] 53c0 26 80 7d 1a 02 cmp byte ptr es:+1aH[di],02H 53c5 75 5b jne L477 53c7 80 3e 00 00 07 cmp byte ptr SCREEN_MODE,07H 53cc 74 0d je L471 53ce c4 7e fc les di,dword ptr -4H[bp] 53d1 26 8a 45 15 mov al,es:+15H[di] 53d5 24 40 and al,40H 53d7 3c 40 cmp al,40H 53d9 74 14 je L472 53db 80 3e 00 00 07 L471 cmp byte ptr SCREEN_MODE,07H 53e0 75 40 jne L477 53e2 c4 7e fc les di,dword ptr -4H[bp] 53e5 26 8a 45 16 mov al,es:+16H[di] 53e9 24 08 and al,08H 53eb 3c 08 cmp al,08H 53ed 75 33 jne L477 53ef 80 3e 00 00 00 L472 cmp byte ptr FIELD_INVERTED,00H 53f4 74 0d je L473 53f6 ff 36 00 00 push ACTIVE_FIELD 53fa b0 00 mov al,00H 53fc 50 push ax 53fd 0e push cs 53fe e8 00 00 call SCL_021 5401 eb 08 jmp L474 5403 ff 36 00 00 L473 push ACTIVE_FIELD 5407 0e push cs 5408 e8 00 00 call SCL_048 540b a1 00 00 L474 mov ax,BLINK_COUNT 540e 40 inc ax 540f a3 00 00 mov BLINK_COUNT,ax 5412 80 3e 00 00 00 cmp byte ptr FIELD_INVERTED,00H 5417 74 04 je L475 5419 b0 00 mov al,00H 541b eb 02 jmp L476 541d b0 01 L475 mov al,01H 541f a2 00 00 L476 mov FIELD_INVERTED,al 5422 89 ec L477 mov sp,bp 5424 5d pop bp 5425 c2 02 00 ret 0002H 5428 HANDLE_FORMAT: 5428 55 SCL_055 push bp 5429 89 e5 mov bp,sp 542b c6 06 00 00 00 mov byte ptr USER_FUNCTION,00H 5430 c6 06 00 00 00 mov byte ptr BEGIN_OF_FIELD,00H 5435 c6 06 00 00 00 mov byte ptr END_OF_FIELD,00H 543a c6 06 00 00 00 mov byte ptr END_OF_FORMAT,00H 543f a1 00 00 mov ax,S_PTR 5442 a3 00 00 mov R_PTR,ax 5445 ff 1e 00 00 L478 call dword ptr HP_BACKGROUND_POINTER 5449 9a 00 00 00 00 call far CRT_002 544e 08 c0 or al,al 5450 74 06 je L479 5452 55 push bp 5453 e8 00 00 call SCL_092 5456 eb 36 jmp L483 5458 a1 00 00 L479 mov ax,BUFFTOP 545b 3b 06 00 00 cmp ax,BUFFBOT 545f 75 07 jne L480 5461 83 3e 00 00 01 cmp word ptr GLB_STATUS,0001H 5466 74 06 je L481 5468 55 L480 push bp 5469 e8 00 00 call SCL_09F 546c eb 20 jmp L483 546e a1 00 00 L481 mov ax,BLINK_COUNT 5471 99 cwd 5472 f7 3e 00 00 idiv word ptr TIMER_INTERVALL 5476 92 xchg ax,dx 5477 09 c0 or ax,ax 5479 75 06 jne L482 547b 55 push bp 547c e8 00 00 call SCL_0A2 547f eb 0d jmp L483 5481 a1 00 00 L482 mov ax,R_PTR 5484 3b 06 00 00 cmp ax,S_PTR 5488 75 04 jne L483 548a ff 1e 00 00 call dword ptr LP_BACKGROUND_POINTER 548e 80 3e 00 00 00 L483 cmp byte ptr BEGIN_OF_FIELD,00H 5493 75 26 jne L484 5495 80 3e 00 00 00 cmp byte ptr END_OF_FIELD,00H 549a 75 1f jne L484 549c 80 3e 00 00 00 cmp byte ptr END_OF_FORMAT,00H 54a1 75 18 jne L484 54a3 80 3e 00 00 00 cmp byte ptr USER_FUNCTION,00H 54a8 75 11 jne L484 54aa a1 00 00 mov ax,S_PTR 54ad ba 72 00 mov dx,0072H 54b0 f7 e2 mul dx 54b2 8b f8 mov di,ax 54b4 80 bd 00 00 00 cmp byte ptr L583[di],00H 54b9 74 8a je L478 54bb 89 ec L484 mov sp,bp 54bd 5d pop bp 54be cb retf 54bf 50 SCL_0A3 push ax 54c0 53 push bx 54c1 51 push cx 54c2 52 push dx 54c3 56 push si 54c4 57 push di 54c5 1e push ds 54c6 06 push es 54c7 55 push bp 54c8 89 e5 mov bp,sp 54ca b8 00 00 mov ax,seg COUNTRY 54cd 8e d8 mov ds,ax 54cf ba f8 03 mov dx,03f8H 54d2 ec in al,dx 54d3 8b 3e 00 00 mov di,DC_RX_BUFF_TOP 54d7 88 85 00 00 mov DC_RX_BUFFER[di],al 54db a1 00 00 mov ax,DC_RX_BUFF_TOP 54de 40 inc ax 54df 99 cwd 54e0 b9 34 08 mov cx,0834H 54e3 f7 f9 idiv cx 54e5 92 xchg ax,dx 54e6 a3 00 00 mov DC_RX_BUFF_TOP,ax 54e9 89 ec mov sp,bp 54eb 5d pop bp 54ec 07 pop es 54ed 1f pop ds 54ee 5f pop di 54ef 5e pop si 54f0 5a pop dx 54f1 59 pop cx 54f2 5b pop bx 54f3 58 pop ax 54f4 cf iret 54f5 CLEAR_RX_BUFFER: 54f5 55 SCL_056 push bp 54f6 89 e5 mov bp,sp 54f8 83 ec 02 sub sp,0002H 54fb fa cli 54fc 31 c0 xor ax,ax 54fe a3 00 00 mov DC_RX_BUFF_TOP,ax 5501 31 c0 xor ax,ax 5503 a3 00 00 mov DC_RX_BUFF_BOTTOM,ax 5506 fb sti 5507 89 ec mov sp,bp 5509 5d pop bp 550a cb retf 550b SET_DC_PARAMS: 550b 55 SCL_057 push bp 550c 89 e5 mov bp,sp 550e 83 ec 08 sub sp,0008H 5511 0e push cs 5512 e8 00 00 call CLEAR_RX_BUFFER 5515 a0 00 00 mov al,DC_PARITY 5518 50 push ax 5519 9a 00 00 00 00 call far SYSTEM_05A 551e 3c 45 cmp al,45H 5520 75 07 jne L485 5522 c7 46 fe 18 00 mov word ptr -2H[bp],0018H 5527 eb 19 jmp L487 5529 a0 00 00 L485 mov al,DC_PARITY 552c 50 push ax 552d 9a 00 00 00 00 call far SYSTEM_05A 5532 3c 4f cmp al,4fH 5534 75 07 jne L486 5536 c7 46 fe 08 00 mov word ptr -2H[bp],0008H 553b eb 05 jmp L487 553d 31 c0 L486 xor ax,ax 553f 89 46 fe mov -2H[bp],ax 5542 83 3e 00 00 02 L487 cmp word ptr DC_STOPBITS,0002H 5547 75 07 jne L488 5549 c7 46 fa 04 00 mov word ptr -6H[bp],0004H 554e eb 05 jmp L489 5550 31 c0 L488 xor ax,ax 5552 89 46 fa mov -6H[bp],ax 5555 31 c0 L489 xor ax,ax 5557 89 46 f8 mov -8H[bp],ax 555a 81 3e 00 00 96 00 cmp word ptr DC_SPEED,0096H 5560 75 07 jne L490 5562 c7 46 f8 20 00 mov word ptr -8H[bp],0020H 5567 eb 58 jmp L496 5569 81 3e 00 00 68 01 L490 cmp word ptr DC_SPEED,0168H 556f 75 07 jne L491 5571 c7 46 f8 40 00 mov word ptr -8H[bp],0040H 5576 eb 49 jmp L496 5578 81 3e 00 00 58 02 L491 cmp word ptr DC_SPEED,0258H 557e 75 07 jne L492 5580 c7 46 f8 60 00 mov word ptr -8H[bp],0060H 5585 eb 3a jmp L496 5587 81 3e 00 00 b0 04 L492 cmp word ptr DC_SPEED,04b0H 558d 75 07 jne L493 558f c7 46 f8 80 00 mov word ptr -8H[bp],0080H 5594 eb 2b jmp L496 5596 81 3e 00 00 60 09 L493 cmp word ptr DC_SPEED,0960H 559c 75 07 jne L494 559e c7 46 f8 a0 00 mov word ptr -8H[bp],00a0H 55a3 eb 1c jmp L496 55a5 81 3e 00 00 c0 12 L494 cmp word ptr DC_SPEED,12c0H 55ab 75 07 jne L495 55ad c7 46 f8 c0 00 mov word ptr -8H[bp],00c0H 55b2 eb 0d jmp L496 55b4 81 3e 00 00 80 25 L495 cmp word ptr DC_SPEED,2580H 55ba 75 05 jne L496 55bc c7 46 f8 e0 00 mov word ptr -8H[bp],00e0H 55c1 a1 00 00 L496 mov ax,DC_CHARSIZE 55c4 2d 05 00 sub ax,0005H 55c7 03 46 fa add ax,-6H[bp] 55ca 03 46 fe add ax,-2H[bp] 55cd 03 46 f8 add ax,-8H[bp] 55d0 89 46 fc mov -4H[bp],ax 55d3 8b 46 fc mov ax,-4H[bp] 55d6 a3 00 00 mov GLB_REGS,ax 55d9 31 c0 xor ax,ax 55db a3 00 00 mov L579,ax 55de b0 14 mov al,14H 55e0 50 push ax 55e1 bf 00 00 mov di,offset GLB_REGS 55e4 1e push ds 55e5 57 push di 55e6 9a 00 00 00 00 call far DOS_001 55eb 89 ec mov sp,bp 55ed 5d pop bp 55ee cb retf 55ef GET_DC_STATUS: 55ef 55 SCL_058 push bp 55f0 89 e5 mov bp,sp 55f2 c7 06 00 00 00 03 mov word ptr GLB_REGS,0300H 55f8 31 c0 xor ax,ax 55fa a3 00 00 mov L579,ax 55fd b0 14 mov al,14H 55ff 50 push ax 5600 bf 00 00 mov di,offset GLB_REGS 5603 1e push ds 5604 57 push di 5605 9a 00 00 00 00 call far DOS_001 560a a1 00 00 mov ax,GLB_REGS 560d c4 7e 06 les di,dword ptr +6H[bp] 5610 26 89 05 mov es:[di],ax 5613 89 ec mov sp,bp 5615 5d pop bp 5616 ca 04 00 retf 0004H 5619 DC_BREAK: 5619 55 SCL_059 push bp 561a 89 e5 mov bp,sp 561c 83 ec 02 sub sp,0002H 561f ba fb 03 mov dx,03fbH 5622 ec in al,dx 5623 30 e4 xor ah,ah 5625 89 46 fe mov -2H[bp],ax 5628 8b 46 fe mov ax,-2H[bp] 562b 25 7f 00 and ax,007fH 562e 0d 40 00 or ax,0040H 5631 ba fb 03 mov dx,03fbH 5634 ee out dx,al 5635 ff 36 00 00 push TX_CHAR_TIMEOUT 5639 9a 00 00 00 00 call far CRT_012 563e 8a 46 fe mov al,-2H[bp] 5641 ba fb 03 mov dx,03fbH 5644 ee out dx,al 5645 89 ec mov sp,bp 5647 5d pop bp 5648 cb retf 5649 CTS: 5649 55 SCL_05A push bp 564a 89 e5 mov bp,sp 564c 83 ec 01 sub sp,0001H 564f ba fe 03 mov dx,03feH 5652 ec in al,dx 5653 24 10 and al,10H 5655 3c 10 cmp al,10H 5657 74 04 je L497 5659 b0 00 mov al,00H 565b eb 02 jmp L498 565d b0 01 L497 mov al,01H 565f 88 46 ff L498 mov -1H[bp],al 5662 8a 46 ff mov al,-1H[bp] 5665 89 ec mov sp,bp 5667 5d pop bp 5668 cb retf 5669 DSR: 5669 55 SCL_05B push bp 566a 89 e5 mov bp,sp 566c 83 ec 01 sub sp,0001H 566f ba fe 03 mov dx,03feH 5672 ec in al,dx 5673 24 20 and al,20H 5675 3c 20 cmp al,20H 5677 74 04 je L499 5679 b0 00 mov al,00H 567b eb 02 jmp L500 567d b0 01 L499 mov al,01H 567f 88 46 ff L500 mov -1H[bp],al 5682 8a 46 ff mov al,-1H[bp] 5685 89 ec mov sp,bp 5687 5d pop bp 5688 cb retf 5689 RI: 5689 55 SCL_05C push bp 568a 89 e5 mov bp,sp 568c 83 ec 01 sub sp,0001H 568f ba fe 03 mov dx,03feH 5692 ec in al,dx 5693 24 40 and al,40H 5695 3c 40 cmp al,40H 5697 74 04 je L501 5699 b0 00 mov al,00H 569b eb 02 jmp L502 569d b0 01 L501 mov al,01H 569f 88 46 ff L502 mov -1H[bp],al 56a2 8a 46 ff mov al,-1H[bp] 56a5 89 ec mov sp,bp 56a7 5d pop bp 56a8 cb retf 56a9 SET_RTS: 56a9 55 SCL_05D push bp 56aa 89 e5 mov bp,sp 56ac 80 7e 06 00 cmp byte ptr +6H[bp],00H 56b0 74 15 je L503 56b2 ba fc 03 mov dx,03fcH 56b5 ec in al,dx 56b6 0c 02 or al,02H 56b8 ba fc 03 mov dx,03fcH 56bb ee out dx,al 56bc ff 36 00 00 push RTS_CTS_DELAY 56c0 9a 00 00 00 00 call far CRT_012 56c5 eb 13 jmp L504 56c7 ff 36 00 00 L503 push RTS_HOLDOVER 56cb 9a 00 00 00 00 call far CRT_012 56d0 ba fc 03 mov dx,03fcH 56d3 ec in al,dx 56d4 24 fd and al,0fdH 56d6 ba fc 03 mov dx,03fcH 56d9 ee out dx,al 56da 89 ec L504 mov sp,bp 56dc 5d pop bp 56dd ca 02 00 retf 0002H 56e0 SET_DTR: 56e0 55 SCL_05E push bp 56e1 89 e5 mov bp,sp 56e3 80 7e 06 00 cmp byte ptr +6H[bp],00H 56e7 74 0c je L505 56e9 ba fc 03 mov dx,03fcH 56ec ec in al,dx 56ed 0c 01 or al,01H 56ef ba fc 03 mov dx,03fcH 56f2 ee out dx,al 56f3 eb 11 jmp L506 56f5 b0 00 L505 mov al,00H 56f7 50 push ax 56f8 0e push cs 56f9 e8 00 00 call SCL_05D 56fc ba fc 03 mov dx,03fcH 56ff ec in al,dx 5700 24 fe and al,0feH 5702 ba fc 03 mov dx,03fcH 5705 ee out dx,al 5706 89 ec L506 mov sp,bp 5708 5d pop bp 5709 ca 02 00 retf 0002H 570c ENABLE_PORT: 570c 55 SCL_05F push bp 570d 89 e5 mov bp,sp 570f b0 01 mov al,01H 5711 ba f9 03 mov dx,03f9H 5714 ee out dx,al 5715 ba fc 03 mov dx,03fcH 5718 ec in al,dx 5719 0c 08 or al,08H 571b ba fc 03 mov dx,03fcH 571e ee out dx,al 571f fa cli 5720 e4 21 in al,21H 5722 24 ef and al,0efH 5724 e6 21 out 21H,al 5726 fb sti 5727 b0 01 mov al,01H 5729 50 push ax 572a 0e push cs 572b e8 00 00 call SCL_05E 572e 89 ec mov sp,bp 5730 5d pop bp 5731 cb retf 5732 DISABLE_PORT: 5732 55 SCL_060 push bp 5733 89 e5 mov bp,sp 5735 83 ec 02 sub sp,0002H 5738 b0 00 mov al,00H 573a 50 push ax 573b 0e push cs 573c e8 00 00 call SCL_05E 573f fa cli 5740 e4 21 in al,21H 5742 0c 10 or al,10H 5744 e6 21 out 21H,al 5746 fb sti 5747 b0 00 mov al,00H 5749 ba f9 03 mov dx,03f9H 574c ee out dx,al 574d ba fc 03 mov dx,03fcH 5750 ec in al,dx 5751 24 f0 and al,0f0H 5753 ba fc 03 mov dx,03fcH 5756 ee out dx,al 5757 89 ec mov sp,bp 5759 5d pop bp 575a cb retf 575b DC_DIAGNOSE: 575b 55 SCL_061 push bp 575c 89 e5 mov bp,sp 575e 80 7e 06 00 cmp byte ptr +6H[bp],00H 5762 74 0c je L507 5764 ba fc 03 mov dx,03fcH 5767 ec in al,dx 5768 0c 10 or al,10H 576a ba fc 03 mov dx,03fcH 576d ee out dx,al 576e eb 0a jmp L508 5770 ba fc 03 L507 mov dx,03fcH 5773 ec in al,dx 5774 24 ef and al,0efH 5776 ba fc 03 mov dx,03fcH 5779 ee out dx,al 577a 0e L508 push cs 577b e8 00 00 call CLEAR_RX_BUFFER 577e 89 ec mov sp,bp 5780 5d pop bp 5781 ca 02 00 retf 0002H 5784 CLOSE_DC: 5784 55 SCL_062 push bp 5785 89 e5 mov bp,sp 5787 80 3e 00 00 00 cmp byte ptr DC_OPEN,00H 578c 74 14 je L509 578e 0e push cs 578f e8 00 00 call DISABLE_PORT 5792 b0 0c mov al,0cH 5794 50 push ax 5795 ff 36 00 00 push L575 5799 ff 36 00 00 push DC_INT_SAVE 579d 9a 00 00 00 00 call far DOS_012 57a2 c6 06 00 00 00 L509 mov byte ptr DC_OPEN,00H 57a7 89 ec mov sp,bp 57a9 5d pop bp 57aa cb retf 57ab OPEN_DC: 57ab 55 SCL_063 push bp 57ac 89 e5 mov bp,sp 57ae 83 ec 02 sub sp,0002H 57b1 80 3e 00 00 00 cmp byte ptr DC_OPEN,00H 57b6 74 04 je L510 57b8 0e push cs 57b9 e8 00 00 call CLOSE_DC 57bc 0e L510 push cs 57bd e8 00 00 call SCL_057 57c0 b0 0c mov al,0cH 57c2 50 push ax 57c3 bf 00 00 mov di,offset DC_INT_SAVE 57c6 1e push ds 57c7 57 push di 57c8 9a 00 00 00 00 call far DOS_011 57cd b0 0c mov al,0cH 57cf 50 push ax 57d0 b8 00 00 mov ax,offset SCL_0A3 57d3 8c ca mov dx,cs 57d5 52 push dx 57d6 50 push ax 57d7 9a 00 00 00 00 call far DOS_012 57dc c6 06 00 00 01 mov byte ptr DC_OPEN,01H 57e1 0e push cs 57e2 e8 00 00 call ENABLE_PORT 57e5 0e push cs 57e6 e8 00 00 call CLEAR_RX_BUFFER 57e9 c4 7e 06 les di,dword ptr +6H[bp] 57ec 06 push es 57ed 57 push di 57ee 0e push cs 57ef e8 00 00 call GET_DC_STATUS 57f2 89 ec mov sp,bp 57f4 5d pop bp 57f5 ca 04 00 retf 0004H 57f8 DC_WRITE: 57f8 55 SCL_064 push bp 57f9 89 e5 mov bp,sp 57fb 83 ec 02 sub sp,0002H 57fe 31 c0 xor ax,ax 5800 89 46 fe mov -2H[bp],ax 5803 ba fd 03 L511 mov dx,03fdH 5806 ec in al,dx 5807 24 20 and al,20H 5809 08 c0 or al,al 580b 75 1b jne L512 580d 8b 46 fe mov ax,-2H[bp] 5810 3b 06 00 00 cmp ax,TX_CHAR_TIMEOUT 5814 7d 12 jge L512 5816 b8 01 00 mov ax,0001H 5819 50 push ax 581a 9a 00 00 00 00 call far CRT_012 581f 8b 46 fe mov ax,-2H[bp] 5822 40 inc ax 5823 89 46 fe mov -2H[bp],ax 5826 eb db jmp L511 5828 8b 46 fe L512 mov ax,-2H[bp] 582b 3b 06 00 00 cmp ax,TX_CHAR_TIMEOUT 582f 7d 1a jge L513 5831 ba fe 03 mov dx,03feH 5834 ec in al,dx 5835 24 30 and al,30H 5837 3c 30 cmp al,30H 5839 75 10 jne L513 583b 8a 46 0a mov al,+0aH[bp] 583e ba f8 03 mov dx,03f8H 5841 ee out dx,al 5842 c4 7e 06 les di,dword ptr +6H[bp] 5845 26 c6 05 01 mov byte ptr es:[di],01H 5849 eb 07 jmp L514 584b c4 7e 06 L513 les di,dword ptr +6H[bp] 584e 26 c6 05 00 mov byte ptr es:[di],00H 5852 89 ec L514 mov sp,bp 5854 5d pop bp 5855 ca 06 00 retf 0006H 5858 TX_OK: 5858 55 SCL_065 push bp 5859 89 e5 mov bp,sp 585b 83 ec 03 sub sp,0003H 585e b0 01 mov al,01H 5860 50 push ax 5861 0e push cs 5862 e8 00 00 call SCL_05D 5865 31 c0 xor ax,ax 5867 89 46 fd mov -3H[bp],ax 586a 0e L515 push cs 586b e8 00 00 call DSR 586e 08 c0 or al,al 5870 74 08 je L516 5872 0e push cs 5873 e8 00 00 call CTS 5876 08 c0 or al,al 5878 75 1b jne L517 587a 8b 46 fd L516 mov ax,-3H[bp] 587d 3b 06 00 00 cmp ax,RTS_CTS_TIMEOUT 5881 7d 12 jge L517 5883 8b 46 fd mov ax,-3H[bp] 5886 40 inc ax 5887 89 46 fd mov -3H[bp],ax 588a b8 01 00 mov ax,0001H 588d 50 push ax 588e 9a 00 00 00 00 call far CRT_012 5893 eb d5 jmp L515 5895 8b 46 fd L517 mov ax,-3H[bp] 5898 3b 06 00 00 cmp ax,RTS_CTS_TIMEOUT 589c 7c 04 jl L518 589e b0 00 mov al,00H 58a0 eb 02 jmp L519 58a2 b0 01 L518 mov al,01H 58a4 88 46 ff L519 mov -1H[bp],al 58a7 8a 46 ff mov al,-1H[bp] 58aa 89 ec mov sp,bp 58ac 5d pop bp 58ad cb retf 58ae SEND_CHAR: 58ae 55 SCL_066 push bp 58af 89 e5 mov bp,sp 58b1 e4 21 in al,21H 58b3 0c 10 or al,10H 58b5 e6 21 out 21H,al 58b7 0e push cs 58b8 e8 00 00 call SCL_065 58bb 08 c0 or al,al 58bd 74 0f je L520 58bf 8a 46 0a mov al,+0aH[bp] 58c2 50 push ax 58c3 c4 7e 06 les di,dword ptr +6H[bp] 58c6 06 push es 58c7 57 push di 58c8 0e push cs 58c9 e8 00 00 call DC_WRITE 58cc eb 07 jmp L521 58ce c4 7e 06 L520 les di,dword ptr +6H[bp] 58d1 26 c6 05 00 mov byte ptr es:[di],00H 58d5 ba fd 03 L521 mov dx,03fdH 58d8 ec in al,dx 58d9 24 40 and al,40H 58db 3c 40 cmp al,40H 58dd 75 f6 jne L521 58df e4 21 in al,21H 58e1 24 ef and al,0efH 58e3 e6 21 out 21H,al 58e5 b0 00 mov al,00H 58e7 50 push ax 58e8 0e push cs 58e9 e8 00 00 call SCL_05D 58ec 89 ec mov sp,bp 58ee 5d pop bp 58ef ca 06 00 retf 0006H 58f2 SEND_STRING: 58f2 55 SCL_067 push bp 58f3 89 e5 mov bp,sp 58f5 81 ec 02 01 sub sp,0102H 58f9 c4 7e 0a les di,dword ptr +0aH[bp] 58fc 06 push es 58fd 57 push di 58fe 8d be 00 ff lea di,-100H[bp] 5902 16 push ss 5903 57 push di 5904 b8 ff 00 mov ax,00ffH 5907 50 push ax 5908 9a 00 00 00 00 call far SYSTEM_00C 590d 0e push cs 590e e8 00 00 call SCL_065 5911 08 c0 or al,al 5913 74 47 je L524 5915 e4 21 in al,21H 5917 0c 10 or al,10H 5919 e6 21 out 21H,al 591b c4 7e 06 les di,dword ptr +6H[bp] 591e 26 c6 05 01 mov byte ptr es:[di],01H 5922 c7 86 fe fe 01 00 mov word ptr -102H[bp],0001H 5928 c4 7e 06 L522 les di,dword ptr +6H[bp] 592b 26 80 3d 00 cmp byte ptr es:[di],00H 592f 74 29 je L523 5931 8a 86 00 ff mov al,-100H[bp] 5935 30 e4 xor ah,ah 5937 3b 86 fe fe cmp ax,-102H[bp] 593b 7c 1d jl L523 593d 8b be fe fe mov di,-102H[bp] 5941 8a 83 00 ff mov al,-100H[bp+di] 5945 50 push ax 5946 c4 7e 06 les di,dword ptr +6H[bp] 5949 06 push es 594a 57 push di 594b 0e push cs 594c e8 00 00 call DC_WRITE 594f 8b 86 fe fe mov ax,-102H[bp] 5953 40 inc ax 5954 89 86 fe fe mov -102H[bp],ax 5958 eb ce jmp L522 595a eb 07 L523 jmp L525 595c c4 7e 06 L524 les di,dword ptr +6H[bp] 595f 26 c6 05 00 mov byte ptr es:[di],00H 5963 ba fd 03 L525 mov dx,03fdH 5966 ec in al,dx 5967 24 40 and al,40H 5969 3c 40 cmp al,40H 596b 75 f6 jne L525 596d e4 21 in al,21H 596f 24 ef and al,0efH 5971 e6 21 out 21H,al 5973 b0 00 mov al,00H 5975 50 push ax 5976 0e push cs 5977 e8 00 00 call SCL_05D 597a 89 ec mov sp,bp 597c 5d pop bp 597d ca 08 00 retf 0008H 5980 SEND_BUFFER: 5980 55 SCL_068 push bp 5981 89 e5 mov bp,sp 5983 81 ec 05 01 sub sp,0105H 5987 c4 7e 0a les di,dword ptr +0aH[bp] 598a 06 push es 598b 57 push di 598c 8d be 00 ff lea di,-100H[bp] 5990 16 push ss 5991 57 push di 5992 b8 ff 00 mov ax,00ffH 5995 50 push ax 5996 9a 00 00 00 00 call far SYSTEM_00C 599b 0e push cs 599c e8 00 00 call SCL_065 599f 08 c0 or al,al 59a1 75 03 jne L526 59a3 e9 fa 00 jmp L532 59a6 e4 21 L526 in al,21H 59a8 0c 10 or al,10H 59aa e6 21 out 21H,al 59ac c4 7e 06 les di,dword ptr +6H[bp] 59af 26 c6 05 01 mov byte ptr es:[di],01H 59b3 c7 86 fe fe 01 00 mov word ptr -102H[bp],0001H 59b9 c4 7e 06 L527 les di,dword ptr +6H[bp] 59bc 26 80 3d 00 cmp byte ptr es:[di],00H 59c0 74 29 je L528 59c2 8a 86 00 ff mov al,-100H[bp] 59c6 30 e4 xor ah,ah 59c8 3b 86 fe fe cmp ax,-102H[bp] 59cc 7c 1d jl L528 59ce 8b be fe fe mov di,-102H[bp] 59d2 8a 83 00 ff mov al,-100H[bp+di] 59d6 50 push ax 59d7 c4 7e 06 les di,dword ptr +6H[bp] 59da 06 push es 59db 57 push di 59dc 0e push cs 59dd e8 00 00 call DC_WRITE 59e0 8b 86 fe fe mov ax,-102H[bp] 59e4 40 inc ax 59e5 89 86 fe fe mov -102H[bp],ax 59e9 eb ce jmp L527 59eb c4 7e 06 L528 les di,dword ptr +6H[bp] 59ee 26 80 3d 00 cmp byte ptr es:[di],00H 59f2 74 27 je L529 59f4 b0 02 mov al,02H 59f6 50 push ax 59f7 c4 7e 06 les di,dword ptr +6H[bp] 59fa 06 push es 59fb 57 push di 59fc 0e push cs 59fd e8 00 00 call DC_WRITE 5a00 8b 46 0e mov ax,+0eH[bp] 5a03 35 02 00 xor ax,0002H 5a06 a2 00 00 mov BCC,al 5a09 8b 46 12 mov ax,+12H[bp] 5a0c 89 86 fe fe mov -102H[bp],ax 5a10 8b 46 12 mov ax,+12H[bp] 5a13 03 46 10 add ax,+10H[bp] 5a16 48 dec ax 5a17 89 86 fb fe mov -105H[bp],ax 5a1b c4 7e 06 L529 les di,dword ptr +6H[bp] 5a1e 26 80 3d 00 cmp byte ptr es:[di],00H 5a22 74 40 je L530 5a24 8b 86 fe fe mov ax,-102H[bp] 5a28 3b 86 fb fe cmp ax,-105H[bp] 5a2c 7f 36 jg L530 5a2e 8b 86 fe fe mov ax,-102H[bp] 5a32 c4 7e 14 les di,dword ptr +14H[bp] 5a35 03 f8 add di,ax 5a37 26 8a 45 ff mov al,es:-1H[di] 5a3b 50 push ax 5a3c c4 7e 06 les di,dword ptr +6H[bp] 5a3f 06 push es 5a40 57 push di 5a41 0e push cs 5a42 e8 00 00 call DC_WRITE 5a45 8b 86 fe fe mov ax,-102H[bp] 5a49 c4 7e 14 les di,dword ptr +14H[bp] 5a4c 03 f8 add di,ax 5a4e 26 8a 45 ff mov al,es:-1H[di] 5a52 32 06 00 00 xor al,BCC 5a56 a2 00 00 mov BCC,al 5a59 8b 86 fe fe mov ax,-102H[bp] 5a5d 40 inc ax 5a5e 89 86 fe fe mov -102H[bp],ax 5a62 eb b7 jmp L529 5a64 c4 7e 06 L530 les di,dword ptr +6H[bp] 5a67 26 80 3d 00 cmp byte ptr es:[di],00H 5a6b 74 31 je L531 5a6d b0 03 mov al,03H 5a6f 50 push ax 5a70 c4 7e 06 les di,dword ptr +6H[bp] 5a73 06 push es 5a74 57 push di 5a75 0e push cs 5a76 e8 00 00 call DC_WRITE 5a79 a0 00 00 mov al,BCC 5a7c 34 03 xor al,03H 5a7e a2 00 00 mov BCC,al 5a81 c4 7e 06 les di,dword ptr +6H[bp] 5a84 26 80 3d 00 cmp byte ptr es:[di],00H 5a88 74 14 je L531 5a8a 80 3e 00 00 00 cmp byte ptr BCC_SET,00H 5a8f 74 0d je L531 5a91 a0 00 00 mov al,BCC 5a94 50 push ax 5a95 c4 7e 06 les di,dword ptr +6H[bp] 5a98 06 push es 5a99 57 push di 5a9a 0e push cs 5a9b e8 00 00 call DC_WRITE 5a9e eb 07 L531 jmp L533 5aa0 c4 7e 06 L532 les di,dword ptr +6H[bp] 5aa3 26 c6 05 00 mov byte ptr es:[di],00H 5aa7 ba fd 03 L533 mov dx,03fdH 5aaa ec in al,dx 5aab 24 40 and al,40H 5aad 3c 40 cmp al,40H 5aaf 75 f6 jne L533 5ab1 e4 21 in al,21H 5ab3 24 ef and al,0efH 5ab5 e6 21 out 21H,al 5ab7 b0 00 mov al,00H 5ab9 50 push ax 5aba 0e push cs 5abb e8 00 00 call SCL_05D 5abe 89 ec mov sp,bp 5ac0 5d pop bp 5ac1 ca 12 00 retf 0012H 5ac4 RECEIVE_CHAR: 5ac4 55 SCL_069 push bp 5ac5 89 e5 mov bp,sp 5ac7 a1 00 00 mov ax,DC_RX_BUFF_BOTTOM 5aca 3b 06 00 00 cmp ax,DC_RX_BUFF_TOP 5ace 74 27 je L534 5ad0 8b 3e 00 00 mov di,DC_RX_BUFF_BOTTOM 5ad4 8a 85 00 00 mov al,DC_RX_BUFFER[di] 5ad8 30 e4 xor ah,ah 5ada c4 7e 0a les di,dword ptr +0aH[bp] 5add 26 89 05 mov es:[di],ax 5ae0 a1 00 00 mov ax,DC_RX_BUFF_BOTTOM 5ae3 40 inc ax 5ae4 99 cwd 5ae5 b9 34 08 mov cx,0834H 5ae8 f7 f9 idiv cx 5aea 92 xchg ax,dx 5aeb a3 00 00 mov DC_RX_BUFF_BOTTOM,ax 5aee c4 7e 06 les di,dword ptr +6H[bp] 5af1 26 c6 05 01 mov byte ptr es:[di],01H 5af5 eb 07 jmp L535 5af7 c4 7e 06 L534 les di,dword ptr +6H[bp] 5afa 26 c6 05 00 mov byte ptr es:[di],00H 5afe 89 ec L535 mov sp,bp 5b00 5d pop bp 5b01 ca 08 00 retf 0008H 5b04 0b 4f 41 L536 or cx,+41H[bx] 5b07 53 push bx 5b08 49 dec cx 5b09 53 push bx 5b0a 20 2f and [bx],ch 5b0c 20 53 43 and +43H[bp+di],dl 5b0f 4c dec sp 5b10 01 20 L537 add [bx+si],sp 5b12 03 35 L538 add si,[di] 5b14 2e 30 29 xor cs:[bx+di],ch 5b17 43 inc bx 5b18 6f outsw 5b19 70 79 jo L542 5b1b 72 69 jb L541 5b1d 67 68 74 20 push 2074H 5b21 28 63 29 sub +29H[bp+di],ah 5b24 31 39 xor [bx+di],di 5b26 38 36 2c 38 cmp [0000382cH],dh 5b2a 37 aaa 5b2b 2c 38 sub al,38H 5b2d 38 20 cmp [bx+si],ah 5b2f 45 inc bp 5b30 75 72 jne L544 5b32 65 6b 61 20 41 imul sp,gs:+20H[bx+di],41H 5b37 73 73 jae L545 5b39 6f outsw 5b3a 63 69 61 arpl bp,+61H[bx+di] 5b3d 74 65 je L544 5b3f 73 01 jae SCL_INIT 5b41 5c pop sp 5b42 SCL_000: 5b42 89 e5 SCL_INIT mov bp,sp 5b44 81 ec 00 01 sub sp,0100H 5b48 8d be 00 ff lea di,-100H[bp] 5b4c 16 push ss 5b4d 57 push di 5b4e bf 00 00 mov di,offset L536 5b51 0e push cs 5b52 57 push di 5b53 9a 00 00 00 00 call far SYSTEM_00B 5b58 bf 00 00 mov di,offset L537 5b5b 0e push cs 5b5c 57 push di 5b5d 9a 00 00 00 00 call far SYSTEM_00F 5b62 bf 00 00 mov di,offset L538 5b65 0e push cs 5b66 57 push di 5b67 9a 00 00 00 00 call far SYSTEM_00F 5b6c bf 00 00 mov di,offset L537 5b6f 0e push cs 5b70 57 push di 5b71 9a 00 00 00 00 call far SYSTEM_00F 5b76 bf 00 00 mov di,offset L539 5b79 0e push cs 5b7a 57 push di 5b7b 9a 00 00 00 00 call far SYSTEM_00F 5b80 bf 00 00 mov di,offset PROGPATH 5b83 1e push ds 5b84 57 push di 5b85 b8 50 00 mov ax,0050H 5b88 50 push ax 5b89 9a 00 00 00 00 call far SYSTEM_00C 5b8e 0e push cs 5b8f e8 00 00 call SCL_01F 5b92 3c 07 cmp al,07H 5b94 75 08 L542 jne L543 5b96 c7 06 00 00 00 b0 mov word ptr SCREENBASE,0b000H 5b9c eb 06 jmp L544 5b9e c7 06 00 00 00 b8 L543 mov word ptr SCREENBASE,0b800H 5ba4 0e L544 push cs 5ba5 e8 00 00 call DISPLAYTYPE 5ba8 3c 01 cmp al,01H 5baa 74 04 je L546 5bac b0 00 L545 mov al,00H 5bae eb 02 jmp L547 5bb0 b0 01 L546 mov al,01H 5bb2 a2 00 00 L547 mov FLICKER,al 5bb5 b0 00 mov al,00H 5bb7 50 push ax 5bb8 bf 00 00 mov di,offset PROGPATH 5bbb 1e push ds 5bbc 57 push di 5bbd b8 50 00 mov ax,0050H 5bc0 50 push ax 5bc1 9a 00 00 00 00 call far SYSTEM_065 5bc6 80 3e 00 00 03 cmp byte ptr PROGPATH,03H 5bcb 76 28 jbe L548 5bcd 8d be 00 ff lea di,-100H[bp] 5bd1 16 push ss 5bd2 57 push di 5bd3 bf 00 00 mov di,offset PROGPATH 5bd6 1e push ds 5bd7 57 push di 5bd8 9a 00 00 00 00 call far SYSTEM_00B 5bdd bf 00 00 mov di,offset L540 5be0 0e push cs 5be1 57 push di 5be2 9a 00 00 00 00 call far SYSTEM_00F 5be7 bf 00 00 mov di,offset PROGPATH 5bea 1e push ds 5beb 57 push di 5bec b8 50 00 mov ax,0050H 5bef 50 push ax 5bf0 9a 00 00 00 00 call far SYSTEM_00C 5bf5 89 ec L548 mov sp,bp 5bf7 cb retf 5bf8 33 c0 L549 xor ax,ax 5bfa 8a c8 mov cl,al 5bfc 8a f8 mov bh,al 5bfe fe cd dec ch 5c00 d1 e9 shr cx,1 5c02 8b f9 mov di,cx 5c04 d1 ef shr di,1 5c06 d1 ef shr di,1 5c08 03 f9 add di,cx 5c0a 4b dec bx 5c0b d1 e3 shl bx,1 5c0d 03 fb add di,bx 5c0f 8e 06 00 00 mov es,SCREENBASE 5c13 c3 ret 5c14 WRITETA: 5c14 55 SCL_01B push bp 5c15 8b ec mov bp,sp 5c17 1e push ds 5c18 8a 6e 08 mov ch,+8H[bp] 5c1b 8a 5e 0a mov bl,+0aH[bp] 5c1e e8 00 00 call L549 5c21 8a 0e 00 00 mov cl,FLICKER 5c25 c5 76 0c lds si,dword ptr +0cH[bp] 5c28 fc cld 5c29 ac lodsb 5c2a 91 xchg ax,cx 5c2b e3 29 jcxz L555 5c2d 8a 66 06 mov ah,+6H[bp] 5c30 d0 d8 rcr al,1 5c32 73 1e jae L554 5c34 ba da 03 mov dx,03daH 5c37 ac L550 lodsb 5c38 8b d8 mov bx,ax 5c3a fa cli 5c3b ec L551 in al,dx 5c3c a8 08 test al,08H 5c3e 75 09 jne L553 5c40 d0 d8 rcr al,1 5c42 72 f7 jb L551 5c44 ec L552 in al,dx 5c45 d0 d8 rcr al,1 5c47 73 fb jae L552 5c49 8b c3 L553 mov ax,bx 5c4b ab stosw 5c4c fb sti 5c4d e2 e8 loop L550 5c4f eb 05 jmp L555 5c51 90 nop 5c52 ac L554 lodsb 5c53 ab stosw 5c54 e2 fc loop L554 5c56 1f L555 pop ds 5c57 8b e5 mov sp,bp 5c59 5d pop bp 5c5a ca 0a 00 retf 000aH 5c5d WRITET: 5c5d 55 SCL_01C push bp 5c5e 8b ec mov bp,sp 5c60 1e push ds 5c61 8a 6e 06 mov ch,+6H[bp] 5c64 8a 5e 08 mov bl,+8H[bp] 5c67 e8 00 00 call L549 5c6a 8a 0e 00 00 mov cl,FLICKER 5c6e c5 76 0a lds si,dword ptr +0aH[bp] 5c71 fc cld 5c72 ac lodsb 5c73 91 xchg ax,cx 5c74 e3 27 jcxz L561 5c76 d0 d8 rcr al,1 5c78 73 1f jae L560 5c7a ba da 03 mov dx,03daH 5c7d ac L556 lodsb 5c7e 8a e0 mov ah,al 5c80 fa cli 5c81 ec L557 in al,dx 5c82 a8 08 test al,08H 5c84 75 09 jne L559 5c86 d0 d8 rcr al,1 5c88 72 f7 jb L557 5c8a ec L558 in al,dx 5c8b d0 d8 rcr al,1 5c8d 73 fb jae L558 5c8f 8a c4 L559 mov al,ah 5c91 aa stosb 5c92 fb sti 5c93 47 inc di 5c94 e2 e7 loop L556 5c96 eb 05 jmp L561 5c98 90 nop 5c99 a4 L560 movsb 5c9a 47 inc di 5c9b e2 fc loop L560 5c9d 1f L561 pop ds 5c9e 8b e5 mov sp,bp 5ca0 5d pop bp 5ca1 ca 08 00 retf 0008H 5ca4 WRITEA: 5ca4 55 SCL_01D push bp 5ca5 8b ec mov bp,sp 5ca7 8a 6e 08 mov ch,+8H[bp] 5caa 8a 5e 0a mov bl,+0aH[bp] 5cad e8 00 00 call L549 5cb0 47 inc di 5cb1 fc cld 5cb2 8b 4e 0c mov cx,+0cH[bp] 5cb5 e3 2c jcxz L567 5cb7 8a 46 06 mov al,+6H[bp] 5cba 80 3e 00 00 01 cmp byte ptr FLICKER,01H 5cbf 75 1e jne L566 5cc1 8a e0 mov ah,al 5cc3 ba da 03 mov dx,03daH 5cc6 fa L562 cli 5cc7 ec L563 in al,dx 5cc8 a8 08 test al,08H 5cca 75 09 jne L565 5ccc d0 d8 rcr al,1 5cce 72 f7 jb L563 5cd0 ec L564 in al,dx 5cd1 d0 d8 rcr al,1 5cd3 73 fb jae L564 5cd5 8a c4 L565 mov al,ah 5cd7 aa stosb 5cd8 fb sti 5cd9 47 inc di 5cda e2 ea loop L562 5cdc eb 05 jmp L567 5cde 90 nop 5cdf aa L566 stosb 5ce0 47 inc di 5ce1 e2 fc loop L566 5ce3 8b e5 L567 mov sp,bp 5ce5 5d pop bp 5ce6 ca 08 00 retf 0008H 5ce9 b4 0f L568 mov ah,0fH 5ceb cd 10 int 10H 5ced a2 00 00 mov L587,al 5cf0 c3 ret 5cf1 DISPLAYTYPE: 5cf1 e8 00 00 SCL_01E call L568 5cf4 c6 06 00 00 04 mov byte ptr L588,04H 5cf9 b9 ff ff mov cx,0ffffH 5cfc b8 00 1c mov ax,1c00H 5cff cd 10 int 10H 5d01 3c 1c cmp al,1cH 5d03 74 41 je L570 5d05 c6 06 00 00 03 mov byte ptr L588,03H 5d0a b3 32 mov bl,32H 5d0c b8 00 12 mov ax,1200H 5d0f cd 10 int 10H 5d11 3c 12 cmp al,12H 5d13 74 31 je L570 5d15 c6 06 00 00 02 mov byte ptr L588,02H 5d1a bb 10 ff mov bx,0ff10H 5d1d b9 ff ff mov cx,0ffffH 5d20 b8 00 12 mov ax,1200H 5d23 cd 10 int 10H 5d25 32 c0 xor al,al 5d27 83 f9 ff cmp cx,0ffffH 5d2a 74 1e je L571 5d2c 80 ff 01 cmp bh,01H 5d2f 77 19 ja L571 5d31 80 ff 01 cmp bh,01H 5d34 74 09 je L569 5d36 80 3e 00 00 07 cmp byte ptr L587,07H 5d3b 74 0d je L571 5d3d eb 07 jmp L570 5d3f 80 3e 00 00 07 L569 cmp byte ptr L587,07H 5d44 75 04 jne L571 5d46 a0 00 00 L570 mov al,L588 5d49 cb retf 5d4a c6 06 00 00 01 L571 mov byte ptr L588,01H 5d4f 80 3e 00 00 07 cmp byte ptr L587,07H 5d54 75 f0 jne L570 5d56 c6 06 00 00 00 mov byte ptr L588,00H 5d5b eb e9 jmp L570 5d5d VIDEOMODE: 5d5d e8 00 00 SCL_01F call L568 5d60 cb retf No disassembly errors ------------------------------------------------------------ Segment: _DATA WORD 00000131 bytes 0000 SCL_DATA - 0000 04 2e 73 63 73 00 00 00 SCREENFILE_EXT - ..scs... 0008 00 00 00 - ... 000b 04 2e 73 63 69 00 00 00 INDEXFILE_EXT - ..sci... 0013 00 00 00 - ... 0016 04 2e 65 72 72 00 00 00 ERRORFILE_EXT - ..err... 001e 00 00 00 - ... 0021 04 2e 6d 73 67 00 00 00 MESSAGEFILE_EXT - ..msg... 0029 00 00 00 - ... 002c 24 04 CODE_HELP_FIELD - $. 002e CODE_HELP_FORMAT LABEL BYTE 002e 23 04 - #. 0030 01 AUTO_HELP_SET - . 0031 03 00 MAXERRORS - .. 0033 00 00 SCL_COUNTRY - .. 0035 00 NO_WRAP - . 0036 03 00 TIMER_INTERVALL - .. 0038 00 BEEP_OFF - . 0039 03 00 BEEP_TIME - .. 003b BEEP_FREQUENCY_1 LABEL BYTE 003b c8 00 - .. 003d BEEP_FREQUENCY_2 LABEL BYTE 003d 5e 01 - ^. 003f LP_BACKGROUND_POINTER LABEL BYTE 003f 00 00 - .. 0041 00 00 L572 - .. 0043 HP_BACKGROUND_POINTER LABEL BYTE 0043 00 00 - .. 0045 00 00 L573 - .. 0047 01 INPUT_MSG_SET - . 0048 01 ERROR_MSG_SET - . 0049 10 00 MARK_FIELD_LEFT - .. 004b MARK_FIELD_RIGHT LABEL BYTE 004b 11 00 - .. 004d 59 00 CODE_YES - Y. 004f 4e 00 CODE_NO - N. 0051 25 04 CODE_CANCEL_ACT - %. 0053 2c 04 CODE_ABORT - ,. 0055 1b 00 CODE_ESCAPE - .. 0057 2f 04 CODE_HOME - /. 0059 09 00 CODE_TAB - .. 005b 5c 04 CODE_CTRLTAB - \. 005d f7 03 CODE_RTAB - .. 005f 0d 00 CODE_RETURN - .. 0061 33 04 CODE_LEFT - 3. 0063 35 04 CODE_RIGHT - 5. 0065 38 04 CODE_DOWN - 8. 0067 30 04 CODE_UP - 0. 0069 37 04 CODE_END - 7. 006b 3a 04 CODE_INS - :. 006d 3b 04 CODE_DEL - ;. 006f 08 00 CODE_BACKSPACE - .. 0071 31 04 CODE_PGUP - 1. 0073 39 04 CODE_PGDOWN - 9. 0075 23 04 CODE_F1 - #. 0077 24 04 CODE_F2 - $. 0079 25 04 CODE_F3 - %. 007b 26 04 CODE_F4 - &. 007d 27 04 CODE_F5 - '. 007f 28 04 CODE_F6 - (. 0081 29 04 CODE_F7 - ). 0083 2a 04 CODE_F8 - *. 0085 2b 04 CODE_F9 - +. 0087 2c 04 CODE_F10 - ,. 0089 7e c1 ff 0f ff ff ff ff ANYTHING_SET - ~....... 0091 ff ff ff ff ff ff ff ff - ........ 0099 ff ff ff ff ff ff ff ff - ........ 00a1 ff ff ff ff ff ff ff 7f - ........ 00a9 00 00 00 00 01 28 ff 03 INTEGER_SET - .....(.. 00b1 00 00 00 00 00 00 00 00 - ........ --- Above line repeats 2 time(s) --- 00c9 00 00 00 00 01 68 ff 03 REAL_SET - .....h.. 00d1 00 00 00 00 00 00 00 00 - ........ --- Above line repeats 2 time(s) --- 00e9 00 00 00 00 01 00 00 00 ALPHA_SET - ........ 00f1 fe ff ff 07 fe ff ff 07 - ........ 00f9 ff ff ff ff ff 00 00 00 - ........ 0101 00 00 00 00 00 00 00 00 - ........ 0109 00 FORMAT_ABORTED - . 010a 00 MSGFILE_EXISTS - . 010b 01 FIELD_INVERTED - . 010c 00 00 BLINK_COUNT - .. 010e 01 BEEP_SWITCH - . 010f 00 00 BEEP_COUNT - .. 0111 01 80 MININT - .. 0113 20 SPACE - 0114 00 00 SAVE_EXITPROC - .. 0116 00 00 L574 - .. 0118 45 DC_PARITY - E 0119 01 00 DC_STOPBITS - .. 011b 80 25 DC_SPEED - .% 011d 07 00 DC_CHARSIZE - .. 011f 00 00 DC_INT_SAVE - .. 0121 00 00 L575 - .. 0123 DC_RX_BUFF_BOTTOM LABEL BYTE 0123 00 00 - .. 0125 00 00 DC_RX_BUFF_TOP - .. 0127 00 DC_OPEN - . 0128 f4 01 TX_CHAR_TIMEOUT - .. 012a f4 01 RTS_CTS_TIMEOUT - .. 012c 00 00 RTS_HOLDOVER - .. 012e 1e 00 RTS_CTS_DELAY - .. 0130 01 BCC_SET - . No disassembly errors ------------------------------------------------------------ Segment: _BSS WORD 00001e46 bytes No disassembly errors ------------------------------------------------------------