Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / pascal / library / dos / communic / jbcomm / jbcomm.dis < prev next >

Wrap

Text File | 1994-06-19 | 151.3 KB | 2,666 lines

Module: JBCOMM.PAS Group: 'DGROUP' _DATA,_BSS Segment: JBCOMM_TEXT PARA 0000192e bytes 0000 22 4a 42 L1 and cl,+42H[bp+si] 0003 43 inc bx 0004 4f dec di 0005 4d dec bp 0006 4d dec bp 0007 20 63 6f and +6fH[bp+di],ah 000a 70 79 jo L7 000c 72 69 jb L5 000e 67 68 74 20 push 2074H 0012 68 61 73 push 7361H 0015 20 62 65 and +65H[bp+si],ah 0018 65 6e outs dx,byte ptr gs:[si] 001a 20 61 6c and +6cH[bx+di],ah 001d 74 65 je L6 001f 72 65 jb L8 0021 64 2e 0d 53 68 or ax,6853H 0026 61 popa 0027 6d insw 0028 65 20 6f 6e and gs:+6eH[bx],ch 002c 20 79 6f and +6fH[bx+di],bh 002f 75 2e jne L4 0031 11 50 72 L3 adc +72H[bx+si],dx 0034 6f outsw 0035 67 72 61 jb L9 0038 6d insw 0039 20 41 62 and +62H[bx+di],al 003c 6f outsw 003d 72 74 jb L10 003f 65 64 2e 07 pop es 0043 55 JBCOMM_024 push bp 0044 89 e5 mov bp,sp 0046 b0 0c mov al,0cH 0048 50 push ax 0049 9a 00 00 00 00 call far CRT_00D 004e bf 00 00 mov di,offset SYSTEM_BSS+100H 0051 1e push ds 0052 57 push di 0053 bf 00 00 mov di,offset L1 0056 0e push cs 0057 57 push di 0058 31 c0 xor ax,ax 005a 50 push ax 005b 9a 00 00 00 00 call far SYSTEM_036 0060 9a 00 00 00 00 call far SYSTEM_03A 0065 b0 8c mov al,8cH 0067 50 push ax 0068 9a 00 00 00 00 call far CRT_00D 006d bf 00 00 mov di,offset SYSTEM_BSS+100H 0070 1e push ds 0071 57 push di 0072 bf 00 00 mov di,offset L2 0075 0e push cs 0076 57 push di 0077 31 c0 L5 xor ax,ax 0079 50 push ax 007a 9a 00 00 00 00 call far SYSTEM_036 007f 9a 00 00 00 00 call far SYSTEM_03A 0084 b0 04 L6 mov al,04H 0086 50 L8 push ax 0087 9a 00 00 00 00 call far CRT_00D 008c bf 00 00 mov di,offset SYSTEM_BSS+100H 008f 1e push ds 0090 57 push di 0091 9a 00 00 00 00 call far SYSTEM_03A 0096 bf 00 00 mov di,offset SYSTEM_BSS+100H 0099 1e L9 push ds 009a 57 push di 009b bf 00 00 mov di,offset L3 009e 0e push cs 009f 57 push di 00a0 31 c0 xor ax,ax 00a2 50 push ax 00a3 9a 00 00 00 00 call far SYSTEM_036 00a8 9a 00 00 00 00 call far SYSTEM_03A 00ad 31 c0 xor ax,ax 00af 9a 00 00 00 00 call far SYSTEM_003 00b4 89 ec mov sp,bp 00b6 5d pop bp 00b7 c3 ret 00b8 55 JBCOMM_025 push bp 00b9 89 e5 mov bp,sp 00bb 83 ec 04 sub sp,0004H 00be c4 46 04 les ax,dword ptr +4H[bp] 00c1 8c c2 mov dx,es 00c3 3b 56 0a cmp dx,+0aH[bp] 00c6 7c 07 jl L11 00c8 7f 1f jg L12 00ca 3b 46 08 cmp ax,+8H[bp] 00cd 73 1a jae L12 00cf b8 b0 00 L11 mov ax,00b0H 00d2 ba 18 00 mov dx,0018H 00d5 2b 46 08 sub ax,+8H[bp] 00d8 1b 56 0a sbb dx,+0aH[bp] 00db 03 46 04 add ax,+4H[bp] 00de 13 56 06 adc dx,+6H[bp] 00e1 89 46 fc mov -4H[bp],ax 00e4 89 56 fe mov -2H[bp],dx 00e7 eb 11 jmp L13 00e9 c4 46 04 L12 les ax,dword ptr +4H[bp] 00ec 8c c2 mov dx,es 00ee 2b 46 08 sub ax,+8H[bp] 00f1 1b 56 0a sbb dx,+0aH[bp] 00f4 89 46 fc mov -4H[bp],ax 00f7 89 56 fe mov -2H[bp],dx 00fa 8b 46 fc L13 mov ax,-4H[bp] 00fd 8b 56 fe mov dx,-2H[bp] 0100 89 ec mov sp,bp 0102 5d pop bp 0103 c2 08 00 ret 0008H 0106 C_INREADY: 0106 55 JBCOMM_005 push bp 0107 89 e5 mov bp,sp 0109 83 ec 06 sub sp,0006H 010c 8a 46 06 mov al,+6H[bp] 010f 98 cbw 0110 8b f8 mov di,ax 0112 d1 e7 shl di,1 0114 d1 e7 shl di,1 0116 c4 bd 00 00 les di,dword ptr L156[di] 011a 89 7e fa mov -6H[bp],di 011d 8c 46 fc mov -4H[bp],es 0120 c4 7e fa les di,dword ptr -6H[bp] 0123 26 8b 45 14 mov ax,es:+14H[di] 0127 c4 7e fa les di,dword ptr -6H[bp] 012a 26 3b 45 16 cmp ax,es:+16H[di] 012e 73 1a jae L14 0130 c4 7e fa les di,dword ptr -6H[bp] 0133 26 8b 45 10 mov ax,es:+10H[di] 0137 c4 7e fa les di,dword ptr -6H[bp] 013a 26 2b 45 16 sub ax,es:+16H[di] 013e c4 7e fa les di,dword ptr -6H[bp] 0141 26 03 45 14 add ax,es:+14H[di] 0145 89 46 fe mov -2H[bp],ax 0148 eb 11 jmp L15 014a c4 7e fa L14 les di,dword ptr -6H[bp] 014d 26 8b 45 14 mov ax,es:+14H[di] 0151 c4 7e fa les di,dword ptr -6H[bp] 0154 26 2b 45 16 sub ax,es:+16H[di] 0158 89 46 fe mov -2H[bp],ax 015b 8b 46 fe L15 mov ax,-2H[bp] 015e 89 ec mov sp,bp 0160 5d pop bp 0161 ca 02 00 retf 0002H 0164 55 JBCOMM_026 push bp 0165 89 e5 mov bp,sp 0167 83 ec 09 sub sp,0009H 016a 8a 46 06 mov al,+6H[bp] 016d 98 cbw 016e 8b f8 mov di,ax 0170 d1 e7 shl di,1 0172 d1 e7 shl di,1 0174 c4 bd 00 00 les di,dword ptr L156[di] 0178 89 7e f7 mov -9H[bp],di 017b 8c 46 f9 mov -7H[bp],es 017e 31 c0 xor ax,ax 0180 89 46 fc mov -4H[bp],ax 0183 8a 46 06 L16 mov al,+6H[bp] 0186 98 cbw 0187 8b f8 mov di,ax 0189 d1 e7 shl di,1 018b 8b 85 00 00 mov ax,L155[di] 018f 05 02 00 add ax,0002H 0192 8b d0 mov dx,ax 0194 ec in al,dx 0195 88 46 fb mov -5H[bp],al 0198 8a 46 fb mov al,-5H[bp] 019b 24 01 and al,01H 019d 08 c0 or al,al 019f 74 03 je L17 01a1 e9 3e 02 jmp L39 01a4 8a 46 fb L17 mov al,-5H[bp] 01a7 c4 7e f7 les di,dword ptr -9H[bp] 01aa 26 88 45 0d mov es:+0dH[di],al 01ae c4 7e f7 les di,dword ptr -9H[bp] 01b1 26 8a 45 0d mov al,es:+0dH[di] 01b5 30 e4 xor ah,ah 01b7 3d 06 00 cmp ax,0006H 01ba 75 1c jne L18 01bc 8a 46 06 mov al,+6H[bp] 01bf 98 cbw 01c0 8b f8 mov di,ax 01c2 d1 e7 shl di,1 01c4 8b 85 00 00 mov ax,L155[di] 01c8 05 05 00 add ax,0005H 01cb 8b d0 mov dx,ax 01cd ec in al,dx 01ce c4 7e f7 les di,dword ptr -9H[bp] 01d1 26 88 45 0f mov es:+0fH[di],al 01d5 e9 05 02 jmp L38 01d8 3d 00 00 L18 cmp ax,0000H 01db 75 1c jne L19 01dd 8a 46 06 mov al,+6H[bp] 01e0 98 cbw 01e1 8b f8 mov di,ax 01e3 d1 e7 shl di,1 01e5 8b 85 00 00 mov ax,L155[di] 01e9 05 06 00 add ax,0006H 01ec 8b d0 mov dx,ax 01ee ec in al,dx 01ef c4 7e f7 les di,dword ptr -9H[bp] 01f2 26 88 45 0e mov es:+0eH[di],al 01f6 e9 e4 01 jmp L38 01f9 3d 04 00 L19 cmp ax,0004H 01fc 74 03 je L20 01fe e9 39 01 jmp L33 0201 8a 46 06 L20 mov al,+6H[bp] 0204 98 cbw 0205 8b f8 mov di,ax 0207 d1 e7 shl di,1 0209 8b 85 00 00 mov ax,L155[di] 020d 40 inc ax 020e 8b d0 mov dx,ax 0210 ec in al,dx 0211 24 02 and al,02H 0213 08 c0 or al,al 0215 75 12 jne L21 0217 8a 46 06 mov al,+6H[bp] 021a 98 cbw 021b 8b f8 mov di,ax 021d d1 e7 shl di,1 021f 8b 85 00 00 mov ax,L155[di] 0223 40 inc ax 0224 8b d0 mov dx,ax 0226 b0 0f mov al,0fH 0228 ee out dx,al 0229 c4 7e f7 L21 les di,dword ptr -9H[bp] 022c 26 8b 45 14 mov ax,es:+14H[di] 0230 40 inc ax 0231 c4 7e f7 les di,dword ptr -9H[bp] 0234 31 d2 xor dx,dx 0236 26 f7 75 10 div word ptr es:+10H[di] 023a 92 xchg ax,dx 023b c4 7e f7 les di,dword ptr -9H[bp] 023e 26 3b 45 16 cmp ax,es:+16H[di] 0242 75 03 jne L22 0244 e9 e0 00 jmp L31 0247 c4 7e f7 L22 les di,dword ptr -9H[bp] 024a 26 80 3d 00 cmp byte ptr es:[di],00H 024e 75 6b jne L25 0250 8a 46 06 mov al,+6H[bp] 0253 98 cbw 0254 8b f8 mov di,ax 0256 d1 e7 shl di,1 0258 8b 85 00 00 mov ax,L155[di] 025c 05 00 00 add ax,0000H 025f 8b d0 mov dx,ax 0261 ec in al,dx 0262 8a d0 mov dl,al 0264 c4 7e f7 les di,dword ptr -9H[bp] 0267 26 8b 45 14 mov ax,es:+14H[di] 026b c4 7e f7 les di,dword ptr -9H[bp] 026e 26 c4 7d 1c les di,dword ptr es:+1cH[di] 0272 03 f8 add di,ax 0274 26 88 15 mov es:[di],dl 0277 c4 7e f7 les di,dword ptr -9H[bp] 027a 26 8b 45 14 mov ax,es:+14H[di] 027e c4 7e f7 les di,dword ptr -9H[bp] 0281 26 c4 7d 1c les di,dword ptr es:+1cH[di] 0285 03 f8 add di,ax 0287 26 80 3d 13 cmp byte ptr es:[di],13H 028b 75 13 jne L23 028d c4 7e f7 les di,dword ptr -9H[bp] 0290 26 80 7d 03 00 cmp byte ptr es:+3H[di],00H 0295 74 09 je L23 0297 c4 7e f7 les di,dword ptr -9H[bp] 029a 26 c6 05 01 mov byte ptr es:[di],01H 029e eb 19 jmp L24 02a0 c4 7e f7 L23 les di,dword ptr -9H[bp] 02a3 26 8b 45 14 mov ax,es:+14H[di] 02a7 40 inc ax 02a8 c4 7e f7 les di,dword ptr -9H[bp] 02ab 31 d2 xor dx,dx 02ad 26 f7 75 10 div word ptr es:+10H[di] 02b1 92 xchg ax,dx 02b2 c4 7e f7 les di,dword ptr -9H[bp] 02b5 26 89 45 14 mov es:+14H[di],ax 02b9 eb 22 L24 jmp L28 02bb 8a 46 06 L25 mov al,+6H[bp] 02be 98 cbw 02bf 8b f8 mov di,ax 02c1 d1 e7 shl di,1 02c3 8b 85 00 00 mov ax,L155[di] 02c7 05 00 00 add ax,0000H 02ca 8b d0 mov dx,ax 02cc ec in al,dx 02cd 3c 11 cmp al,11H 02cf 75 04 jne L26 02d1 b0 00 mov al,00H 02d3 eb 02 jmp L27 02d5 b0 01 L26 mov al,01H 02d7 c4 7e f7 L27 les di,dword ptr -9H[bp] 02da 26 88 05 mov es:[di],al 02dd c4 7e f7 L28 les di,dword ptr -9H[bp] 02e0 26 80 7d 03 00 cmp byte ptr es:+3H[di],00H 02e5 74 3e je L30 02e7 8a 46 06 mov al,+6H[bp] 02ea 50 push ax 02eb 0e push cs 02ec e8 00 00 call C_INREADY 02ef c4 7e f7 les di,dword ptr -9H[bp] 02f2 26 3b 45 04 cmp ax,es:+4H[di] 02f6 75 14 jne L29 02f8 c4 7e f7 les di,dword ptr -9H[bp] 02fb 26 80 7d 01 00 cmp byte ptr es:+1H[di],00H 0300 75 0a jne L29 0302 c4 7e f7 les di,dword ptr -9H[bp] 0305 26 c6 45 02 01 mov byte ptr es:+2H[di],01H 030a eb 19 jmp L30 030c 8a 46 06 L29 mov al,+6H[bp] 030f 50 push ax 0310 0e push cs 0311 e8 00 00 call C_INREADY 0314 c4 7e f7 les di,dword ptr -9H[bp] 0317 26 3b 45 06 cmp ax,es:+6H[di] 031b 75 08 jne L30 031d c4 7e f7 les di,dword ptr -9H[bp] 0320 26 c6 45 02 01 mov byte ptr es:+2H[di],01H 0325 eb 10 L30 jmp L32 0327 c4 7e f7 L31 les di,dword ptr -9H[bp] 032a 26 8a 45 0f mov al,es:+0fH[di] 032e 0c 80 or al,80H 0330 c4 7e f7 les di,dword ptr -9H[bp] 0333 26 88 45 0f mov es:+0fH[di],al 0337 e9 a3 00 L32 jmp L38 033a 3d 02 00 L33 cmp ax,0002H 033d 74 03 je L34 033f e9 9b 00 jmp L38 0342 c4 7e f7 L34 les di,dword ptr -9H[bp] 0345 26 8b 45 18 mov ax,es:+18H[di] 0349 c4 7e f7 les di,dword ptr -9H[bp] 034c 26 3b 45 1a cmp ax,es:+1aH[di] 0350 74 79 je L37 0352 c4 7e f7 les di,dword ptr -9H[bp] 0355 26 80 3d 00 cmp byte ptr es:[di],00H 0359 75 70 jne L37 035b c4 7e f7 les di,dword ptr -9H[bp] 035e 26 80 7d 02 00 cmp byte ptr es:+2H[di],00H 0363 74 26 je L35 0365 c4 7e f7 les di,dword ptr -9H[bp] 0368 26 c6 45 02 00 mov byte ptr es:+2H[di],00H 036d c4 7e f7 les di,dword ptr -9H[bp] 0370 26 c6 45 01 01 mov byte ptr es:+1H[di],01H 0375 8a 46 06 mov al,+6H[bp] 0378 98 cbw 0379 8b f8 mov di,ax 037b d1 e7 shl di,1 037d 8b 85 00 00 mov ax,L155[di] 0381 05 00 00 add ax,0000H 0384 8b d0 mov dx,ax 0386 b0 13 mov al,13H 0388 ee out dx,al 0389 eb 3e jmp L36 038b 8a 46 06 L35 mov al,+6H[bp] 038e 98 cbw 038f 8b f8 mov di,ax 0391 d1 e7 shl di,1 0393 8b 85 00 00 mov ax,L155[di] 0397 05 00 00 add ax,0000H 039a 8b d0 mov dx,ax 039c c4 7e f7 les di,dword ptr -9H[bp] 039f 26 8b 45 1a mov ax,es:+1aH[di] 03a3 c4 7e f7 les di,dword ptr -9H[bp] 03a6 26 c4 7d 20 les di,dword ptr es:+20H[di] 03aa 03 f8 add di,ax 03ac 26 8a 05 mov al,es:[di] 03af ee out dx,al 03b0 c4 7e f7 les di,dword ptr -9H[bp] 03b3 26 8b 45 1a mov ax,es:+1aH[di] 03b7 40 inc ax 03b8 c4 7e f7 les di,dword ptr -9H[bp] 03bb 31 d2 xor dx,dx 03bd 26 f7 75 12 div word ptr es:+12H[di] 03c1 92 xchg ax,dx 03c2 c4 7e f7 les di,dword ptr -9H[bp] 03c5 26 89 45 1a mov es:+1aH[di],ax 03c9 eb 12 L36 jmp L38 03cb 8a 46 06 L37 mov al,+6H[bp] 03ce 98 cbw 03cf 8b f8 mov di,ax 03d1 d1 e7 shl di,1 03d3 8b 85 00 00 mov ax,L155[di] 03d7 40 inc ax 03d8 8b d0 mov dx,ax 03da b0 0d mov al,0dH 03dc ee out dx,al 03dd c7 46 fc 01 00 L38 mov word ptr -4H[bp],0001H 03e2 8a 46 fb L39 mov al,-5H[bp] 03e5 24 01 and al,01H 03e7 3c 01 cmp al,01H 03e9 74 03 je L40 03eb e9 95 fd jmp L16 03ee 8b 46 fc L40 mov ax,-4H[bp] 03f1 89 46 fe mov -2H[bp],ax 03f4 8b 46 fe mov ax,-2H[bp] 03f7 89 ec mov sp,bp 03f9 5d pop bp 03fa ca 02 00 retf 0002H 03fd 55 JBCOMM_027 push bp 03fe 89 e5 mov bp,sp 0400 83 ec 01 sub sp,0001H 0403 fa cli 0404 8a 46 04 mov al,+4H[bp] 0407 3c 01 cmp al,01H 0409 75 18 jne L41 040b 8a 46 06 mov al,+6H[bp] 040e 98 cbw 040f 8b f8 mov di,ax 0411 8a 95 00 00 mov dl,L152[di] 0415 e4 21 in al,21H 0417 22 c2 and al,dl 0419 88 46 ff mov -1H[bp],al 041c 8a 46 ff mov al,-1H[bp] 041f e6 21 out 21H,al 0421 eb 1a jmp L42 0423 3c 00 L41 cmp al,00H 0425 75 16 jne L42 0427 8a 46 06 mov al,+6H[bp] 042a 98 cbw 042b 8b f8 mov di,ax 042d 8a 95 00 00 mov dl,L153[di] 0431 e4 21 in al,21H 0433 0a c2 or al,dl 0435 88 46 ff mov -1H[bp],al 0438 8a 46 ff mov al,-1H[bp] 043b e6 21 out 21H,al 043d fb L42 sti 043e 89 ec mov sp,bp 0440 5d pop bp 0441 c2 04 00 ret 0004H 0444 C_SET_SPEED: 0444 55 JBCOMM_001 push bp 0445 89 e5 mov bp,sp 0447 83 ec 03 sub sp,0003H 044a fa cli 044b 8a 46 08 mov al,+8H[bp] 044e 98 cbw 044f 8b f8 mov di,ax 0451 d1 e7 shl di,1 0453 8b 85 00 00 mov ax,L155[di] 0457 05 03 00 add ax,0003H 045a 8b d0 mov dx,ax 045c ec in al,dx 045d 88 46 ff mov -1H[bp],al 0460 8a 46 08 mov al,+8H[bp] 0463 98 cbw 0464 8b f8 mov di,ax 0466 d1 e7 shl di,1 0468 8b 85 00 00 mov ax,L155[di] 046c 05 03 00 add ax,0003H 046f 8b d0 mov dx,ax 0471 8a 46 ff mov al,-1H[bp] 0474 0c 80 or al,80H 0476 ee out dx,al 0477 8b 46 06 mov ax,+6H[bp] 047a 31 d2 xor dx,dx 047c 8b c8 mov cx,ax 047e 8b da mov bx,dx 0480 b8 00 c2 mov ax,0c200H 0483 ba 01 00 mov dx,0001H 0486 9a 00 00 00 00 call far SYSTEM_006 048b 89 46 fd mov -3H[bp],ax 048e 8a 46 08 mov al,+8H[bp] 0491 98 cbw 0492 8b f8 mov di,ax 0494 d1 e7 shl di,1 0496 8b 85 00 00 mov ax,L155[di] 049a 05 00 00 add ax,0000H 049d 8b d0 mov dx,ax 049f 8a 46 fd mov al,-3H[bp] 04a2 ee out dx,al 04a3 8a 46 08 mov al,+8H[bp] 04a6 98 cbw 04a7 8b f8 mov di,ax 04a9 d1 e7 shl di,1 04ab 8b 85 00 00 mov ax,L155[di] 04af 40 inc ax 04b0 8b d0 mov dx,ax 04b2 8a 46 fe mov al,-2H[bp] 04b5 ee out dx,al 04b6 8a 46 08 mov al,+8H[bp] 04b9 98 cbw 04ba 8b f8 mov di,ax 04bc d1 e7 shl di,1 04be 8b 85 00 00 mov ax,L155[di] 04c2 05 03 00 add ax,0003H 04c5 8b d0 mov dx,ax 04c7 8a 46 ff mov al,-1H[bp] 04ca 24 7f and al,7fH 04cc ee out dx,al 04cd 8b 56 06 mov dx,+6H[bp] 04d0 8a 46 08 mov al,+8H[bp] 04d3 98 cbw 04d4 8b f8 mov di,ax 04d6 d1 e7 shl di,1 04d8 d1 e7 shl di,1 04da c4 bd 00 00 les di,dword ptr L156[di] 04de 26 89 55 08 mov es:+8H[di],dx 04e2 fb sti 04e3 89 ec mov sp,bp 04e5 5d pop bp 04e6 ca 04 00 retf 0004H 04e9 C_SET_UART: 04e9 55 JBCOMM_002 push bp 04ea 89 e5 mov bp,sp 04ec 83 ec 01 sub sp,0001H 04ef fa cli 04f0 8a 46 0a mov al,+0aH[bp] 04f3 98 cbw 04f4 8b f8 mov di,ax 04f6 8a 85 00 00 mov al,JBCOMM_DATA[di] 04fa 88 46 ff mov -1H[bp],al 04fd 8a 56 0a mov dl,+0aH[bp] 0500 8a 46 0c mov al,+0cH[bp] 0503 98 cbw 0504 8b f8 mov di,ax 0506 d1 e7 shl di,1 0508 d1 e7 shl di,1 050a c4 bd 00 00 les di,dword ptr L156[di] 050e 26 88 55 0a mov es:+0aH[di],dl 0512 80 7e 06 01 cmp byte ptr +6H[bp],01H 0516 75 15 jne L43 0518 8a 46 0c mov al,+0cH[bp] 051b 98 cbw 051c 8b f8 mov di,ax 051e d1 e7 shl di,1 0520 d1 e7 shl di,1 0522 c4 bd 00 00 les di,dword ptr L156[di] 0526 26 c6 45 0c 01 mov byte ptr es:+0cH[di],01H 052b eb 1b jmp L44 052d 8a 46 ff L43 mov al,-1H[bp] 0530 0c 04 or al,04H 0532 88 46 ff mov -1H[bp],al 0535 8a 46 0c mov al,+0cH[bp] 0538 98 cbw 0539 8b f8 mov di,ax 053b d1 e7 shl di,1 053d d1 e7 shl di,1 053f c4 bd 00 00 les di,dword ptr L156[di] 0543 26 c6 45 0c 02 mov byte ptr es:+0cH[di],02H 0548 8a 46 08 L44 mov al,+8H[bp] 054b 30 e4 xor ah,ah 054d 3d 05 00 cmp ax,0005H 0550 75 1f jne L45 0552 8a 46 ff mov al,-1H[bp] 0555 0c 00 or al,00H 0557 88 46 ff mov -1H[bp],al 055a 8a 56 08 mov dl,+8H[bp] 055d 8a 46 0c mov al,+0cH[bp] 0560 98 cbw 0561 8b f8 mov di,ax 0563 d1 e7 shl di,1 0565 d1 e7 shl di,1 0567 c4 bd 00 00 les di,dword ptr L156[di] 056b 26 88 55 0b mov es:+0bH[di],dl 056f eb 63 jmp L48 0571 3d 06 00 L45 cmp ax,0006H 0574 75 1f jne L46 0576 8a 46 ff mov al,-1H[bp] 0579 0c 01 or al,01H 057b 88 46 ff mov -1H[bp],al 057e 8a 56 08 mov dl,+8H[bp] 0581 8a 46 0c mov al,+0cH[bp] 0584 98 cbw 0585 8b f8 mov di,ax 0587 d1 e7 shl di,1 0589 d1 e7 shl di,1 058b c4 bd 00 00 les di,dword ptr L156[di] 058f 26 88 55 0b mov es:+0bH[di],dl 0593 eb 3f jmp L48 0595 3d 07 00 L46 cmp ax,0007H 0598 75 1f jne L47 059a 8a 46 ff mov al,-1H[bp] 059d 0c 02 or al,02H 059f 88 46 ff mov -1H[bp],al 05a2 8a 56 08 mov dl,+8H[bp] 05a5 8a 46 0c mov al,+0cH[bp] 05a8 98 cbw 05a9 8b f8 mov di,ax 05ab d1 e7 shl di,1 05ad d1 e7 shl di,1 05af c4 bd 00 00 les di,dword ptr L156[di] 05b3 26 88 55 0b mov es:+0bH[di],dl 05b7 eb 1b jmp L48 05b9 8a 46 ff L47 mov al,-1H[bp] 05bc 0c 03 or al,03H 05be 88 46 ff mov -1H[bp],al 05c1 8a 46 0c mov al,+0cH[bp] 05c4 98 cbw 05c5 8b f8 mov di,ax 05c7 d1 e7 shl di,1 05c9 d1 e7 shl di,1 05cb c4 bd 00 00 les di,dword ptr L156[di] 05cf 26 c6 45 0b 08 mov byte ptr es:+0bH[di],08H 05d4 8a 46 0c L48 mov al,+0cH[bp] 05d7 98 cbw 05d8 8b f8 mov di,ax 05da d1 e7 shl di,1 05dc 8b 85 00 00 mov ax,L155[di] 05e0 05 03 00 add ax,0003H 05e3 8b d0 mov dx,ax 05e5 8a 46 ff mov al,-1H[bp] 05e8 ee out dx,al 05e9 fb sti 05ea 89 ec mov sp,bp 05ec 5d pop bp 05ed ca 08 00 retf 0008H 05f0 C_OPEN: 05f0 55 JBCOMM_003 push bp 05f1 89 e5 mov bp,sp 05f3 83 ec 07 sub sp,0007H 05f6 31 c0 xor ax,ax 05f8 89 46 fa mov -6H[bp],ax 05fb b8 00 00 mov ax,offset JBCOMM_021 05fe 8c ca mov dx,cs 0600 89 46 fc mov -4H[bp],ax 0603 89 56 fe mov -2H[bp],dx 0606 c6 46 f9 00 mov byte ptr -7H[bp],00H 060a eb 03 jmp L50 060c fe 46 f9 L49 inc byte ptr -7H[bp] 060f ff 76 fa L50 push -6H[bp] 0612 8a 46 f9 mov al,-7H[bp] 0615 30 e4 xor ah,ah 0617 c4 7e fc les di,dword ptr -4H[bp] 061a 03 f8 add di,ax 061c 26 8a 05 mov al,es:[di] 061f 50 push ax 0620 0e push cs 0621 e8 00 00 call CRC_UPDATE 0624 89 46 fa mov -6H[bp],ax 0627 80 7e f9 27 cmp byte ptr -7H[bp],27H 062b 75 df jne L49 062d 8a 46 12 mov al,+12H[bp] 0630 98 cbw 0631 8b f8 mov di,ax 0633 d1 e7 shl di,1 0635 d1 e7 shl di,1 0637 8b 85 00 00 mov ax,L156[di] 063b 0b 85 00 00 or ax,L157[di] 063f 74 03 je L51 0641 e9 b4 02 jmp L54 0644 8a 46 12 L51 mov al,+12H[bp] 0647 98 cbw 0648 8b f8 mov di,ax 064a d1 e7 shl di,1 064c d1 e7 shl di,1 064e 81 c7 00 00 add di,offset L156 0652 1e push ds 0653 57 push di 0654 b8 24 00 mov ax,0024H 0657 50 push ax 0658 9a 00 00 00 00 call far SYSTEM_022 065d 8a 46 12 mov al,+12H[bp] 0660 98 cbw 0661 8b f8 mov di,ax 0663 d1 e7 shl di,1 0665 d1 e7 shl di,1 0667 c4 bd 00 00 les di,dword ptr L156[di] 066b 26 c6 45 03 00 mov byte ptr es:+3H[di],00H 0670 8a 46 12 mov al,+12H[bp] 0673 98 cbw 0674 8b f8 mov di,ax 0676 d1 e7 shl di,1 0678 d1 e7 shl di,1 067a c4 bd 00 00 les di,dword ptr L156[di] 067e 26 c6 05 00 mov byte ptr es:[di],00H 0682 8a 46 12 mov al,+12H[bp] 0685 98 cbw 0686 8b f8 mov di,ax 0688 d1 e7 shl di,1 068a d1 e7 shl di,1 068c c4 bd 00 00 les di,dword ptr L156[di] 0690 26 c6 45 01 00 mov byte ptr es:+1H[di],00H 0695 8a 46 12 mov al,+12H[bp] 0698 98 cbw 0699 8b f8 mov di,ax 069b d1 e7 shl di,1 069d d1 e7 shl di,1 069f c4 bd 00 00 les di,dword ptr L156[di] 06a3 26 c6 45 02 00 mov byte ptr es:+2H[di],00H 06a8 8b 46 08 mov ax,+8H[bp] 06ab 31 d2 xor dx,dx 06ad 9a 00 00 00 00 call far SYSTEM_073 06b2 b9 80 00 mov cx,0080H 06b5 31 f6 xor si,si 06b7 bf 00 40 mov di,4000H 06ba 9a 00 00 00 00 call far SYSTEM_070 06bf 9a 00 00 00 00 call far SYSTEM_074 06c4 8b d0 mov dx,ax 06c6 8a 46 12 mov al,+12H[bp] 06c9 98 cbw 06ca 8b f8 mov di,ax 06cc d1 e7 shl di,1 06ce d1 e7 shl di,1 06d0 c4 bd 00 00 les di,dword ptr L156[di] 06d4 26 89 55 04 mov es:+4H[di],dx 06d8 8b 46 08 mov ax,+8H[bp] 06db 31 d2 xor dx,dx 06dd 9a 00 00 00 00 call far SYSTEM_073 06e2 b9 80 66 mov cx,6680H 06e5 be 66 66 mov si,6666H 06e8 bf 66 66 mov di,6666H 06eb 9a 00 00 00 00 call far SYSTEM_070 06f0 9a 00 00 00 00 call far SYSTEM_074 06f5 8b d0 mov dx,ax 06f7 8a 46 12 mov al,+12H[bp] 06fa 98 cbw 06fb 8b f8 mov di,ax 06fd d1 e7 shl di,1 06ff d1 e7 shl di,1 0701 c4 bd 00 00 les di,dword ptr L156[di] 0705 26 89 55 06 mov es:+6H[di],dx 0709 8a 46 12 mov al,+12H[bp] 070c 98 cbw 070d 8b f8 mov di,ax 070f d1 e7 shl di,1 0711 d1 e7 shl di,1 0713 c4 bd 00 00 les di,dword ptr L156[di] 0717 31 c0 xor ax,ax 0719 26 89 45 14 mov es:+14H[di],ax 071d 8a 46 12 mov al,+12H[bp] 0720 98 cbw 0721 8b f8 mov di,ax 0723 d1 e7 shl di,1 0725 d1 e7 shl di,1 0727 c4 bd 00 00 les di,dword ptr L156[di] 072b 31 c0 xor ax,ax 072d 26 89 45 18 mov es:+18H[di],ax 0731 8a 46 12 mov al,+12H[bp] 0734 98 cbw 0735 8b f8 mov di,ax 0737 d1 e7 shl di,1 0739 d1 e7 shl di,1 073b c4 bd 00 00 les di,dword ptr L156[di] 073f 31 c0 xor ax,ax 0741 26 89 45 16 mov es:+16H[di],ax 0745 8a 46 12 mov al,+12H[bp] 0748 98 cbw 0749 8b f8 mov di,ax 074b d1 e7 shl di,1 074d d1 e7 shl di,1 074f c4 bd 00 00 les di,dword ptr L156[di] 0753 31 c0 xor ax,ax 0755 26 89 45 1a mov es:+1aH[di],ax 0759 8a 46 12 mov al,+12H[bp] 075c 98 cbw 075d 8b f8 mov di,ax 075f d1 e7 shl di,1 0761 d1 e7 shl di,1 0763 c4 bd 00 00 les di,dword ptr L156[di] 0767 81 c7 1c 00 add di,001cH 076b 06 push es 076c 57 push di 076d ff 76 08 push +8H[bp] 0770 9a 00 00 00 00 call far SYSTEM_022 0775 8b 56 08 mov dx,+8H[bp] 0778 8a 46 12 mov al,+12H[bp] 077b 98 cbw 077c 8b f8 mov di,ax 077e d1 e7 shl di,1 0780 d1 e7 shl di,1 0782 c4 bd 00 00 les di,dword ptr L156[di] 0786 26 89 55 10 mov es:+10H[di],dx 078a 8a 46 12 mov al,+12H[bp] 078d 98 cbw 078e 8b f8 mov di,ax 0790 d1 e7 shl di,1 0792 d1 e7 shl di,1 0794 c4 bd 00 00 les di,dword ptr L156[di] 0798 81 c7 20 00 add di,0020H 079c 06 push es 079d 57 push di 079e ff 76 06 push +6H[bp] 07a1 9a 00 00 00 00 call far SYSTEM_022 07a6 8b 56 06 mov dx,+6H[bp] 07a9 8a 46 12 mov al,+12H[bp] 07ac 98 cbw 07ad 8b f8 mov di,ax 07af d1 e7 shl di,1 07b1 d1 e7 shl di,1 07b3 c4 bd 00 00 les di,dword ptr L156[di] 07b7 26 89 55 12 mov es:+12H[di],dx 07bb 8a 46 12 mov al,+12H[bp] 07be 98 cbw 07bf 8b f8 mov di,ax 07c1 d1 e7 shl di,1 07c3 8b 85 00 00 mov ax,L155[di] 07c7 05 00 00 add ax,0000H 07ca 8b d0 mov dx,ax 07cc ec in al,dx 07cd 88 46 f9 mov -7H[bp],al 07d0 8a 46 12 mov al,+12H[bp] 07d3 98 cbw 07d4 8b f8 mov di,ax 07d6 d1 e7 shl di,1 07d8 8b 85 00 00 mov ax,L155[di] 07dc 05 06 00 add ax,0006H 07df 8b d0 mov dx,ax 07e1 ec in al,dx 07e2 8a d0 mov dl,al 07e4 8a 46 12 mov al,+12H[bp] 07e7 98 cbw 07e8 8b f8 mov di,ax 07ea d1 e7 shl di,1 07ec d1 e7 shl di,1 07ee c4 bd 00 00 les di,dword ptr L156[di] 07f2 26 88 55 0e mov es:+0eH[di],dl 07f6 8a 46 12 mov al,+12H[bp] 07f9 98 cbw 07fa 8b f8 mov di,ax 07fc d1 e7 shl di,1 07fe 8b 85 00 00 mov ax,L155[di] 0802 05 05 00 add ax,0005H 0805 8b d0 mov dx,ax 0807 ec in al,dx 0808 8a d0 mov dl,al 080a 8a 46 12 mov al,+12H[bp] 080d 98 cbw 080e 8b f8 mov di,ax 0810 d1 e7 shl di,1 0812 d1 e7 shl di,1 0814 c4 bd 00 00 les di,dword ptr L156[di] 0818 26 88 55 0f mov es:+0fH[di],dl 081c 8a 46 12 mov al,+12H[bp] 081f 98 cbw 0820 8b f8 mov di,ax 0822 80 bd 00 00 0b cmp byte ptr L154[di],0bH 0827 75 2e jne L52 0829 8a 46 12 mov al,+12H[bp] 082c 98 cbw 082d 8b f8 mov di,ax 082f 8a 85 00 00 mov al,L154[di] 0833 50 push ax 0834 bf 00 00 mov di,offset L158 0837 1e push ds 0838 57 push di 0839 9a 00 00 00 00 call far DOS_011 083e 8a 46 12 mov al,+12H[bp] 0841 98 cbw 0842 8b f8 mov di,ax 0844 8a 85 00 00 mov al,L154[di] 0848 50 push ax 0849 b8 00 00 mov ax,offset JBCOMM_023 084c 8c ca mov dx,cs 084e 52 push dx 084f 50 push ax 0850 9a 00 00 00 00 call far DOS_012 0855 eb 2c jmp L53 0857 8a 46 12 L52 mov al,+12H[bp] 085a 98 cbw 085b 8b f8 mov di,ax 085d 8a 85 00 00 mov al,L154[di] 0861 50 push ax 0862 bf 00 00 mov di,offset L160 0865 1e push ds 0866 57 push di 0867 9a 00 00 00 00 call far DOS_011 086c 8a 46 12 mov al,+12H[bp] 086f 98 cbw 0870 8b f8 mov di,ax 0872 8a 85 00 00 mov al,L154[di] 0876 50 push ax 0877 b8 00 00 mov ax,offset JBCOMM_022 087a 8c ca mov dx,cs 087c 52 push dx 087d 50 push ax 087e 9a 00 00 00 00 call far DOS_012 0883 8a 46 12 L53 mov al,+12H[bp] 0886 50 push ax 0887 b0 01 mov al,01H 0889 50 push ax 088a e8 00 00 call JBCOMM_027 088d 8a 46 12 mov al,+12H[bp] 0890 98 cbw 0891 8b f8 mov di,ax 0893 d1 e7 shl di,1 0895 8b 85 00 00 mov ax,L155[di] 0899 05 04 00 add ax,0004H 089c 8b d0 mov dx,ax 089e b0 0b mov al,0bH 08a0 ee out dx,al 08a1 8a 46 12 mov al,+12H[bp] 08a4 98 cbw 08a5 8b f8 mov di,ax 08a7 d1 e7 shl di,1 08a9 8b 85 00 00 mov ax,L155[di] 08ad 40 inc ax 08ae 8b d0 mov dx,ax 08b0 b0 0d mov al,0dH 08b2 ee out dx,al 08b3 8a 46 12 mov al,+12H[bp] 08b6 98 cbw 08b7 8b f8 mov di,ax 08b9 d1 e7 shl di,1 08bb 8b 85 00 00 mov ax,L155[di] 08bf 05 02 00 add ax,0002H 08c2 8b d0 mov dx,ax 08c4 ec in al,dx 08c5 8a d0 mov dl,al 08c7 8a 46 12 mov al,+12H[bp] 08ca 98 cbw 08cb 8b f8 mov di,ax 08cd d1 e7 shl di,1 08cf d1 e7 shl di,1 08d1 c4 bd 00 00 les di,dword ptr L156[di] 08d5 26 88 55 0d mov es:+0dH[di],dl 08d9 8a 46 12 mov al,+12H[bp] 08dc 50 push ax 08dd ff 76 10 push +10H[bp] 08e0 0e push cs 08e1 e8 00 00 call C_SET_SPEED 08e4 8a 46 12 mov al,+12H[bp] 08e7 50 push ax 08e8 8a 46 0e mov al,+0eH[bp] 08eb 50 push ax 08ec 8a 46 0c mov al,+0cH[bp] 08ef 50 push ax 08f0 8a 46 0a mov al,+0aH[bp] 08f3 50 push ax 08f4 0e push cs 08f5 e8 00 00 call C_SET_UART 08f8 89 ec L54 mov sp,bp 08fa 5d pop bp 08fb ca 0e 00 retf 000eH 08fe C_CLOSE: 08fe 55 JBCOMM_004 push bp 08ff 89 e5 mov bp,sp 0901 fa cli 0902 8a 46 08 mov al,+8H[bp] 0905 50 push ax 0906 b0 00 mov al,00H 0908 50 push ax 0909 e8 00 00 call JBCOMM_027 090c 8a 46 08 mov al,+8H[bp] 090f 98 cbw 0910 8b f8 mov di,ax 0912 80 bd 00 00 0b cmp byte ptr L154[di],0bH 0917 75 1a jne L55 0919 8a 46 08 mov al,+8H[bp] 091c 98 cbw 091d 8b f8 mov di,ax 091f 8a 85 00 00 mov al,L154[di] 0923 50 push ax 0924 ff 36 00 00 push L159 0928 ff 36 00 00 push L158 092c 9a 00 00 00 00 call far DOS_012 0931 eb 18 jmp L56 0933 8a 46 08 L55 mov al,+8H[bp] 0936 98 cbw 0937 8b f8 mov di,ax 0939 8a 85 00 00 mov al,L154[di] 093d 50 push ax 093e ff 36 00 00 push L161 0942 ff 36 00 00 push L160 0946 9a 00 00 00 00 call far DOS_012 094b 80 7e 06 00 L56 cmp byte ptr +6H[bp],00H 094f 74 16 je L57 0951 8a 46 08 mov al,+8H[bp] 0954 98 cbw 0955 8b f8 mov di,ax 0957 d1 e7 shl di,1 0959 8b 85 00 00 mov ax,L155[di] 095d 05 04 00 add ax,0004H 0960 8b d0 mov dx,ax 0962 b0 00 mov al,00H 0964 ee out dx,al 0965 eb 14 jmp L58 0967 8a 46 08 L57 mov al,+8H[bp] 096a 98 cbw 096b 8b f8 mov di,ax 096d d1 e7 shl di,1 096f 8b 85 00 00 mov ax,L155[di] 0973 05 04 00 add ax,0004H 0976 8b d0 mov dx,ax 0978 b0 03 mov al,03H 097a ee out dx,al 097b 8a 46 08 L58 mov al,+8H[bp] 097e 98 cbw 097f 8b f8 mov di,ax 0981 d1 e7 shl di,1 0983 8b 85 00 00 mov ax,L155[di] 0987 40 inc ax 0988 8b d0 mov dx,ax 098a b0 00 mov al,00H 098c ee out dx,al 098d 8a 46 08 mov al,+8H[bp] 0990 98 cbw 0991 8b f8 mov di,ax 0993 d1 e7 shl di,1 0995 d1 e7 shl di,1 0997 c4 bd 00 00 les di,dword ptr L156[di] 099b 81 c7 1c 00 add di,001cH 099f 06 push es 09a0 57 push di 09a1 8a 46 08 mov al,+8H[bp] 09a4 98 cbw 09a5 8b f8 mov di,ax 09a7 d1 e7 shl di,1 09a9 d1 e7 shl di,1 09ab c4 bd 00 00 les di,dword ptr L156[di] 09af 26 ff 75 10 push es:+10H[di] 09b3 9a 00 00 00 00 call far SYSTEM_023 09b8 8a 46 08 mov al,+8H[bp] 09bb 98 cbw 09bc 8b f8 mov di,ax 09be d1 e7 shl di,1 09c0 d1 e7 shl di,1 09c2 c4 bd 00 00 les di,dword ptr L156[di] 09c6 81 c7 20 00 add di,0020H 09ca 06 push es 09cb 57 push di 09cc 8a 46 08 mov al,+8H[bp] 09cf 98 cbw 09d0 8b f8 mov di,ax 09d2 d1 e7 shl di,1 09d4 d1 e7 shl di,1 09d6 c4 bd 00 00 les di,dword ptr L156[di] 09da 26 ff 75 12 push es:+12H[di] 09de 9a 00 00 00 00 call far SYSTEM_023 09e3 8a 46 08 mov al,+8H[bp] 09e6 98 cbw 09e7 8b f8 mov di,ax 09e9 d1 e7 shl di,1 09eb d1 e7 shl di,1 09ed 81 c7 00 00 add di,offset L156 09f1 1e push ds 09f2 57 push di 09f3 b8 24 00 mov ax,0024H 09f6 50 push ax 09f7 9a 00 00 00 00 call far SYSTEM_023 09fc 8a 46 08 mov al,+8H[bp] 09ff 98 cbw 0a00 8b f8 mov di,ax 0a02 d1 e7 shl di,1 0a04 d1 e7 shl di,1 0a06 31 c0 xor ax,ax 0a08 89 85 00 00 mov L156[di],ax 0a0c 89 85 00 00 mov L157[di],ax 0a10 fb sti 0a11 89 ec mov sp,bp 0a13 5d pop bp 0a14 ca 04 00 retf 0004H 0a17 C_OUTREADY: 0a17 55 JBCOMM_006 push bp 0a18 89 e5 mov bp,sp 0a1a 83 ec 06 sub sp,0006H 0a1d 8a 46 06 mov al,+6H[bp] 0a20 98 cbw 0a21 8b f8 mov di,ax 0a23 d1 e7 shl di,1 0a25 d1 e7 shl di,1 0a27 c4 bd 00 00 les di,dword ptr L156[di] 0a2b 89 7e fa mov -6H[bp],di 0a2e 8c 46 fc mov -4H[bp],es 0a31 c4 7e fa les di,dword ptr -6H[bp] 0a34 26 8b 45 18 mov ax,es:+18H[di] 0a38 c4 7e fa les di,dword ptr -6H[bp] 0a3b 26 3b 45 1a cmp ax,es:+1aH[di] 0a3f 73 1a jae L59 0a41 c4 7e fa les di,dword ptr -6H[bp] 0a44 26 8b 45 12 mov ax,es:+12H[di] 0a48 c4 7e fa les di,dword ptr -6H[bp] 0a4b 26 2b 45 1a sub ax,es:+1aH[di] 0a4f c4 7e fa les di,dword ptr -6H[bp] 0a52 26 03 45 18 add ax,es:+18H[di] 0a56 89 46 fe mov -2H[bp],ax 0a59 eb 11 jmp L60 0a5b c4 7e fa L59 les di,dword ptr -6H[bp] 0a5e 26 8b 45 18 mov ax,es:+18H[di] 0a62 c4 7e fa les di,dword ptr -6H[bp] 0a65 26 2b 45 1a sub ax,es:+1aH[di] 0a69 89 46 fe mov -2H[bp],ax 0a6c 8b 46 fe L60 mov ax,-2H[bp] 0a6f 89 ec mov sp,bp 0a71 5d pop bp 0a72 ca 02 00 retf 0002H 0a75 C_PUTC: 0a75 55 JBCOMM_007 push bp 0a76 89 e5 mov bp,sp 0a78 83 ec 08 sub sp,0008H 0a7b 8a 46 08 mov al,+8H[bp] 0a7e 98 cbw 0a7f 8b f8 mov di,ax 0a81 d1 e7 shl di,1 0a83 d1 e7 shl di,1 0a85 8b 85 00 00 mov ax,L156[di] 0a89 0b 85 00 00 or ax,L157[di] 0a8d 75 03 jne L61 0a8f e9 08 01 jmp L66 0a92 8a 46 08 L61 mov al,+8H[bp] 0a95 98 cbw 0a96 8b f8 mov di,ax 0a98 d1 e7 shl di,1 0a9a d1 e7 shl di,1 0a9c c4 bd 00 00 les di,dword ptr L156[di] 0aa0 89 7e f8 mov -8H[bp],di 0aa3 8c 46 fa mov -6H[bp],es 0aa6 8a 46 08 mov al,+8H[bp] 0aa9 98 cbw 0aaa 8b f8 mov di,ax 0aac d1 e7 shl di,1 0aae 8b 85 00 00 mov ax,L155[di] 0ab2 05 05 00 add ax,0005H 0ab5 8b d0 mov dx,ax 0ab7 ec in al,dx 0ab8 24 20 and al,20H 0aba 3c 20 cmp al,20H 0abc 75 28 jne L62 0abe c4 7e f8 les di,dword ptr -8H[bp] 0ac1 26 8b 45 18 mov ax,es:+18H[di] 0ac5 c4 7e f8 les di,dword ptr -8H[bp] 0ac8 26 3b 45 1a cmp ax,es:+1aH[di] 0acc 75 18 jne L62 0ace 8a 46 08 mov al,+8H[bp] 0ad1 98 cbw 0ad2 8b f8 mov di,ax 0ad4 d1 e7 shl di,1 0ad6 8b 85 00 00 mov ax,L155[di] 0ada 05 00 00 add ax,0000H 0add 8b d0 mov dx,ax 0adf 8a 46 06 mov al,+6H[bp] 0ae2 ee out dx,al 0ae3 e9 b4 00 jmp L66 0ae6 be 40 00 L62 mov si,0040H 0ae9 8e c6 mov es,si 0aeb 26 c4 06 6c 00 les ax,dword ptr es:[0000006cH] 0af0 8c c2 mov dx,es 0af2 89 46 fc mov -4H[bp],ax 0af5 89 56 fe mov -2H[bp],dx 0af8 ff 76 fe L63 push -2H[bp] 0afb ff 76 fc push -4H[bp] 0afe be 40 00 mov si,0040H 0b01 8e c6 mov es,si 0b03 26 ff 36 6e 00 push es:[0000006eH] 0b08 26 ff 36 6c 00 push es:[0000006cH] 0b0d e8 00 00 call JBCOMM_025 0b10 b9 12 00 mov cx,0012H 0b13 31 db xor bx,bx 0b15 9a 00 00 00 00 call far SYSTEM_006 0b1a 83 fa 00 cmp dx,0000H 0b1d 75 07 jne L64 0b1f 3d 02 00 cmp ax,0002H 0b22 75 02 jne L64 0b24 eb 74 jmp L66 0b26 c4 7e f8 L64 les di,dword ptr -8H[bp] 0b29 26 8b 45 18 mov ax,es:+18H[di] 0b2d 40 inc ax 0b2e c4 7e f8 les di,dword ptr -8H[bp] 0b31 31 d2 xor dx,dx 0b33 26 f7 75 12 div word ptr es:+12H[di] 0b37 92 xchg ax,dx 0b38 c4 7e f8 les di,dword ptr -8H[bp] 0b3b 26 3b 45 1a cmp ax,es:+1aH[di] 0b3f 74 b7 je L63 0b41 8a 46 08 mov al,+8H[bp] 0b44 98 cbw 0b45 8b f8 mov di,ax 0b47 d1 e7 shl di,1 0b49 8b 85 00 00 mov ax,L155[di] 0b4d 40 inc ax 0b4e 8b d0 mov dx,ax 0b50 ec in al,dx 0b51 24 02 and al,02H 0b53 08 c0 or al,al 0b55 75 12 jne L65 0b57 8a 46 08 mov al,+8H[bp] 0b5a 98 cbw 0b5b 8b f8 mov di,ax 0b5d d1 e7 shl di,1 0b5f 8b 85 00 00 mov ax,L155[di] 0b63 40 inc ax 0b64 8b d0 mov dx,ax 0b66 b0 0f mov al,0fH 0b68 ee out dx,al 0b69 fa L65 cli 0b6a 8a 56 06 mov dl,+6H[bp] 0b6d c4 7e f8 les di,dword ptr -8H[bp] 0b70 26 8b 45 18 mov ax,es:+18H[di] 0b74 c4 7e f8 les di,dword ptr -8H[bp] 0b77 26 c4 7d 20 les di,dword ptr es:+20H[di] 0b7b 03 f8 add di,ax 0b7d 26 88 15 mov es:[di],dl 0b80 c4 7e f8 les di,dword ptr -8H[bp] 0b83 26 8b 45 18 mov ax,es:+18H[di] 0b87 40 inc ax 0b88 c4 7e f8 les di,dword ptr -8H[bp] 0b8b 31 d2 xor dx,dx 0b8d 26 f7 75 12 div word ptr es:+12H[di] 0b91 92 xchg ax,dx 0b92 c4 7e f8 les di,dword ptr -8H[bp] 0b95 26 89 45 18 mov es:+18H[di],ax 0b99 fb sti 0b9a 89 ec L66 mov sp,bp 0b9c 5d pop bp 0b9d ca 04 00 retf 0004H 0ba0 C_INSERTC: 0ba0 55 JBCOMM_008 push bp 0ba1 89 e5 mov bp,sp 0ba3 83 ec 04 sub sp,0004H 0ba6 fa cli 0ba7 8a 46 08 mov al,+8H[bp] 0baa 98 cbw 0bab 8b f8 mov di,ax 0bad d1 e7 shl di,1 0baf d1 e7 shl di,1 0bb1 c4 bd 00 00 les di,dword ptr L156[di] 0bb5 89 7e fc mov -4H[bp],di 0bb8 8c 46 fe mov -2H[bp],es 0bbb c4 7e fc les di,dword ptr -4H[bp] 0bbe 26 8b 45 14 mov ax,es:+14H[di] 0bc2 40 inc ax 0bc3 c4 7e fc les di,dword ptr -4H[bp] 0bc6 31 d2 xor dx,dx 0bc8 26 f7 75 10 div word ptr es:+10H[di] 0bcc 92 xchg ax,dx 0bcd c4 7e fc les di,dword ptr -4H[bp] 0bd0 26 3b 45 16 cmp ax,es:+16H[di] 0bd4 74 2f je L67 0bd6 8a 56 06 mov dl,+6H[bp] 0bd9 c4 7e fc les di,dword ptr -4H[bp] 0bdc 26 8b 45 14 mov ax,es:+14H[di] 0be0 c4 7e fc les di,dword ptr -4H[bp] 0be3 26 c4 7d 1c les di,dword ptr es:+1cH[di] 0be7 03 f8 add di,ax 0be9 26 88 15 mov es:[di],dl 0bec c4 7e fc les di,dword ptr -4H[bp] 0bef 26 8b 45 14 mov ax,es:+14H[di] 0bf3 40 inc ax 0bf4 c4 7e fc les di,dword ptr -4H[bp] 0bf7 31 d2 xor dx,dx 0bf9 26 f7 75 10 div word ptr es:+10H[di] 0bfd 92 xchg ax,dx 0bfe c4 7e fc les di,dword ptr -4H[bp] 0c01 26 89 45 14 mov es:+14H[di],ax 0c05 fb L67 sti 0c06 89 ec mov sp,bp 0c08 5d pop bp 0c09 ca 04 00 retf 0004H 0c0c C_INSERTS: 0c0c 55 JBCOMM_009 push bp 0c0d 89 e5 mov bp,sp 0c0f 81 ec 23 01 sub sp,0123H 0c13 c4 7e 06 les di,dword ptr +6H[bp] 0c16 06 push es 0c17 57 push di 0c18 8d be 00 ff lea di,-100H[bp] 0c1c 16 push ss 0c1d 57 push di 0c1e b8 ff 00 mov ax,00ffH 0c21 50 push ax 0c22 9a 00 00 00 00 call far SYSTEM_00C 0c27 c6 86 fe fe 00 mov byte ptr -102H[bp],00H 0c2c 8a 86 00 ff mov al,-100H[bp] 0c30 88 86 fd fe mov -103H[bp],al 0c34 b0 01 mov al,01H 0c36 3a 86 fd fe cmp al,-103H[bp] 0c3a 76 03 jbe L68 0c3c e9 d6 00 jmp L77 0c3f 88 86 ff fe L68 mov -101H[bp],al 0c43 eb 04 jmp L70 0c45 fe 86 ff fe L69 inc byte ptr -101H[bp] 0c49 8a 86 ff fe L70 mov al,-101H[bp] 0c4d 30 e4 xor ah,ah 0c4f 8b f8 mov di,ax 0c51 8a 83 00 ff mov al,-100H[bp+di] 0c55 3c 7c cmp al,7cH 0c57 75 0e jne L71 0c59 8a 46 0a mov al,+0aH[bp] 0c5c 50 push ax 0c5d b0 0d mov al,0dH 0c5f 50 push ax 0c60 0e push cs 0c61 e8 00 00 call C_INSERTC 0c64 e9 a1 00 jmp L76 0c67 3c 5e L71 cmp al,5eH 0c69 75 08 jne L72 0c6b c6 86 fe fe 01 mov byte ptr -102H[bp],01H 0c70 e9 95 00 jmp L76 0c73 80 be fe fe 00 L72 cmp byte ptr -102H[bp],00H 0c78 74 79 je L75 0c7a 8a 86 ff fe mov al,-101H[bp] 0c7e 30 e4 xor ah,ah 0c80 8b f8 mov di,ax 0c82 8a 83 00 ff mov al,-100H[bp+di] 0c86 50 push ax 0c87 9a 00 00 00 00 call far SYSTEM_05A 0c8c 50 push ax 0c8d 8d be dd fe lea di,-123H[bp] 0c91 16 push ss 0c92 57 push di 0c93 9a 00 00 00 00 call far SYSTEM_028 0c98 b0 40 mov al,40H 0c9a 50 push ax 0c9b b0 5f mov al,5fH 0c9d 50 push ax 0c9e 9a 00 00 00 00 call far SYSTEM_02A 0ca3 9a 00 00 00 00 call far SYSTEM_018 0ca8 74 22 je L73 0caa 8a 46 0a mov al,+0aH[bp] 0cad 50 push ax 0cae 8a 86 ff fe mov al,-101H[bp] 0cb2 30 e4 xor ah,ah 0cb4 8b f8 mov di,ax 0cb6 8a 83 00 ff mov al,-100H[bp+di] 0cba 50 push ax 0cbb 9a 00 00 00 00 call far SYSTEM_05A 0cc0 30 e4 xor ah,ah 0cc2 2d 40 00 sub ax,0040H 0cc5 50 push ax 0cc6 0e push cs 0cc7 e8 00 00 call C_INSERTC 0cca eb 20 jmp L74 0ccc 8a 46 0a L73 mov al,+0aH[bp] 0ccf 50 push ax 0cd0 b0 5e mov al,5eH 0cd2 50 push ax 0cd3 0e push cs 0cd4 e8 00 00 call C_INSERTC 0cd7 8a 46 0a mov al,+0aH[bp] 0cda 50 push ax 0cdb 8a 86 ff fe mov al,-101H[bp] 0cdf 30 e4 xor ah,ah 0ce1 8b f8 mov di,ax 0ce3 8a 83 00 ff mov al,-100H[bp+di] 0ce7 50 push ax 0ce8 0e push cs 0ce9 e8 00 00 call C_INSERTC 0cec c6 86 fe fe 00 L74 mov byte ptr -102H[bp],00H 0cf1 eb 15 jmp L76 0cf3 8a 46 0a L75 mov al,+0aH[bp] 0cf6 50 push ax 0cf7 8a 86 ff fe mov al,-101H[bp] 0cfb 30 e4 xor ah,ah 0cfd 8b f8 mov di,ax 0cff 8a 83 00 ff mov al,-100H[bp+di] 0d03 50 push ax 0d04 0e push cs 0d05 e8 00 00 call C_INSERTC 0d08 8a 86 ff fe L76 mov al,-101H[bp] 0d0c 3a 86 fd fe cmp al,-103H[bp] 0d10 74 03 je L77 0d12 e9 30 ff jmp L69 0d15 89 ec L77 mov sp,bp 0d17 5d pop bp 0d18 ca 06 00 retf 0006H 0d1b C_GETC: 0d1b 55 JBCOMM_00A push bp 0d1c 89 e5 mov bp,sp 0d1e 83 ec 05 sub sp,0005H 0d21 8a 46 06 mov al,+6H[bp] 0d24 98 cbw 0d25 8b f8 mov di,ax 0d27 d1 e7 shl di,1 0d29 d1 e7 shl di,1 0d2b c4 bd 00 00 les di,dword ptr L156[di] 0d2f 89 7e fb mov -5H[bp],di 0d32 8c 46 fd mov -3H[bp],es 0d35 8a 46 06 L78 mov al,+6H[bp] 0d38 50 push ax 0d39 0e push cs 0d3a e8 00 00 call C_INREADY 0d3d 09 c0 or ax,ax 0d3f 74 f4 je L78 0d41 c4 7e fb les di,dword ptr -5H[bp] 0d44 26 8b 45 16 mov ax,es:+16H[di] 0d48 c4 7e fb les di,dword ptr -5H[bp] 0d4b 26 c4 7d 1c les di,dword ptr es:+1cH[di] 0d4f 03 f8 add di,ax 0d51 26 8a 05 mov al,es:[di] 0d54 88 46 ff mov -1H[bp],al 0d57 c4 7e fb les di,dword ptr -5H[bp] 0d5a 26 8b 45 16 mov ax,es:+16H[di] 0d5e 40 inc ax 0d5f c4 7e fb les di,dword ptr -5H[bp] 0d62 31 d2 xor dx,dx 0d64 26 f7 75 10 div word ptr es:+10H[di] 0d68 92 xchg ax,dx 0d69 c4 7e fb les di,dword ptr -5H[bp] 0d6c 26 89 45 16 mov es:+16H[di],ax 0d70 c4 7e fb les di,dword ptr -5H[bp] 0d73 26 80 7d 03 00 cmp byte ptr es:+3H[di],00H 0d78 74 2e je L79 0d7a c4 7e fb les di,dword ptr -5H[bp] 0d7d 26 80 7d 01 00 cmp byte ptr es:+1H[di],00H 0d82 74 24 je L79 0d84 8a 46 06 mov al,+6H[bp] 0d87 50 push ax 0d88 0e push cs 0d89 e8 00 00 call C_INREADY 0d8c c4 7e fb les di,dword ptr -5H[bp] 0d8f 26 3b 45 04 cmp ax,es:+4H[di] 0d93 73 13 jae L79 0d95 8a 46 06 mov al,+6H[bp] 0d98 50 push ax 0d99 b0 11 mov al,11H 0d9b 50 push ax 0d9c 0e push cs 0d9d e8 00 00 call C_PUTC 0da0 c4 7e fb les di,dword ptr -5H[bp] 0da3 26 c6 45 01 00 mov byte ptr es:+1H[di],00H 0da8 8a 46 ff L79 mov al,-1H[bp] 0dab 89 ec mov sp,bp 0dad 5d pop bp 0dae ca 02 00 retf 0002H 0db1 C_PEEKC: 0db1 55 JBCOMM_00B push bp 0db2 89 e5 mov bp,sp 0db4 83 ec 05 sub sp,0005H 0db7 8a 46 06 mov al,+6H[bp] 0dba 98 cbw 0dbb 8b f8 mov di,ax 0dbd d1 e7 shl di,1 0dbf d1 e7 shl di,1 0dc1 c4 bd 00 00 les di,dword ptr L156[di] 0dc5 89 7e fb mov -5H[bp],di 0dc8 8c 46 fd mov -3H[bp],es 0dcb 8a 46 06 L80 mov al,+6H[bp] 0dce 50 push ax 0dcf 0e push cs 0dd0 e8 00 00 call C_INREADY 0dd3 09 c0 or ax,ax 0dd5 74 f4 je L80 0dd7 c4 7e fb les di,dword ptr -5H[bp] 0dda 26 8b 45 16 mov ax,es:+16H[di] 0dde c4 7e fb les di,dword ptr -5H[bp] 0de1 26 c4 7d 1c les di,dword ptr es:+1cH[di] 0de5 03 f8 add di,ax 0de7 26 8a 05 mov al,es:[di] 0dea 88 46 ff mov -1H[bp],al 0ded 8a 46 ff mov al,-1H[bp] 0df0 89 ec mov sp,bp 0df2 5d pop bp 0df3 ca 02 00 retf 0002H 0df6 C_FLUSH_IN: 0df6 55 JBCOMM_00C push bp 0df7 89 e5 mov bp,sp 0df9 83 ec 04 sub sp,0004H 0dfc 8a 46 06 mov al,+6H[bp] 0dff 98 cbw 0e00 8b f8 mov di,ax 0e02 d1 e7 shl di,1 0e04 d1 e7 shl di,1 0e06 c4 bd 00 00 les di,dword ptr L156[di] 0e0a 89 7e fc mov -4H[bp],di 0e0d 8c 46 fe mov -2H[bp],es 0e10 c4 7e fc les di,dword ptr -4H[bp] 0e13 31 c0 xor ax,ax 0e15 26 89 45 14 mov es:+14H[di],ax 0e19 c4 7e fc les di,dword ptr -4H[bp] 0e1c 31 c0 xor ax,ax 0e1e 26 89 45 16 mov es:+16H[di],ax 0e22 89 ec mov sp,bp 0e24 5d pop bp 0e25 ca 02 00 retf 0002H 0e28 C_FLUSH_OUT: 0e28 55 JBCOMM_00D push bp 0e29 89 e5 mov bp,sp 0e2b 83 ec 04 sub sp,0004H 0e2e 8a 46 06 mov al,+6H[bp] 0e31 98 cbw 0e32 8b f8 mov di,ax 0e34 d1 e7 shl di,1 0e36 d1 e7 shl di,1 0e38 c4 bd 00 00 les di,dword ptr L156[di] 0e3c 89 7e fc mov -4H[bp],di 0e3f 8c 46 fe mov -2H[bp],es 0e42 c4 7e fc les di,dword ptr -4H[bp] 0e45 31 c0 xor ax,ax 0e47 26 89 45 18 mov es:+18H[di],ax 0e4b c4 7e fc les di,dword ptr -4H[bp] 0e4e 31 c0 xor ax,ax 0e50 26 89 45 1a mov es:+1aH[di],ax 0e54 89 ec mov sp,bp 0e56 5d pop bp 0e57 ca 02 00 retf 0002H 0e5a C_CARRIER: 0e5a 55 JBCOMM_00E push bp 0e5b 89 e5 mov bp,sp 0e5d 83 ec 01 sub sp,0001H 0e60 8a 46 06 mov al,+6H[bp] 0e63 98 cbw 0e64 8b f8 mov di,ax 0e66 d1 e7 shl di,1 0e68 8b 85 00 00 mov ax,L155[di] 0e6c 05 06 00 add ax,0006H 0e6f 8b d0 mov dx,ax 0e71 ec in al,dx 0e72 24 80 and al,80H 0e74 08 c0 or al,al 0e76 75 04 jne L81 0e78 b0 00 mov al,00H 0e7a eb 02 jmp L82 0e7c b0 01 L81 mov al,01H 0e7e 88 46 ff L82 mov -1H[bp],al 0e81 8a 46 ff mov al,-1H[bp] 0e84 89 ec mov sp,bp 0e86 5d pop bp 0e87 ca 02 00 retf 0002H 0e8a C_TOGGLE_DTR: 0e8a 55 JBCOMM_00F push bp 0e8b 89 e5 mov bp,sp 0e8d 83 ec 01 sub sp,0001H 0e90 8a 46 06 mov al,+6H[bp] 0e93 98 cbw 0e94 8b f8 mov di,ax 0e96 d1 e7 shl di,1 0e98 8b 85 00 00 mov ax,L155[di] 0e9c 05 04 00 add ax,0004H 0e9f 8b d0 mov dx,ax 0ea1 ec in al,dx 0ea2 88 46 ff mov -1H[bp],al 0ea5 8a 46 ff mov al,-1H[bp] 0ea8 24 01 and al,01H 0eaa 3c 01 cmp al,01H 0eac 75 0a jne L83 0eae 8a 46 ff mov al,-1H[bp] 0eb1 24 fe and al,0feH 0eb3 88 46 ff mov -1H[bp],al 0eb6 eb 08 jmp L84 0eb8 8a 46 ff L83 mov al,-1H[bp] 0ebb 0c 01 or al,01H 0ebd 88 46 ff mov -1H[bp],al 0ec0 8a 46 06 L84 mov al,+6H[bp] 0ec3 98 cbw 0ec4 8b f8 mov di,ax 0ec6 d1 e7 shl di,1 0ec8 8b 85 00 00 mov ax,L155[di] 0ecc 05 04 00 add ax,0004H 0ecf 8b d0 mov dx,ax 0ed1 8a 46 ff mov al,-1H[bp] 0ed4 ee out dx,al 0ed5 89 ec mov sp,bp 0ed7 5d pop bp 0ed8 ca 02 00 retf 0002H 0edb C_SEND_BREAK: 0edb 55 JBCOMM_010 push bp 0edc 89 e5 mov bp,sp 0ede fa cli 0edf 8a 46 08 mov al,+8H[bp] 0ee2 98 cbw 0ee3 8b f8 mov di,ax 0ee5 d1 e7 shl di,1 0ee7 8b 85 00 00 mov ax,L155[di] 0eeb 05 03 00 add ax,0003H 0eee 8b c8 mov cx,ax 0ef0 8a 46 08 mov al,+8H[bp] 0ef3 98 cbw 0ef4 8b f8 mov di,ax 0ef6 d1 e7 shl di,1 0ef8 8b 85 00 00 mov ax,L155[di] 0efc 05 03 00 add ax,0003H 0eff 8b d0 mov dx,ax 0f01 ec in al,dx 0f02 0c 40 or al,40H 0f04 8b d1 mov dx,cx 0f06 ee out dx,al 0f07 ff 76 06 push +6H[bp] 0f0a 9a 00 00 00 00 call far CRT_012 0f0f 8a 46 08 mov al,+8H[bp] 0f12 98 cbw 0f13 8b f8 mov di,ax 0f15 d1 e7 shl di,1 0f17 8b 85 00 00 mov ax,L155[di] 0f1b 05 03 00 add ax,0003H 0f1e 8b c8 mov cx,ax 0f20 8a 46 08 mov al,+8H[bp] 0f23 98 cbw 0f24 8b f8 mov di,ax 0f26 d1 e7 shl di,1 0f28 8b 85 00 00 mov ax,L155[di] 0f2c 05 03 00 add ax,0003H 0f2f 8b d0 mov dx,ax 0f31 ec in al,dx 0f32 24 bf and al,0bfH 0f34 8b d1 mov dx,cx 0f36 ee out dx,al 0f37 fb sti 0f38 89 ec mov sp,bp 0f3a 5d pop bp 0f3b ca 04 00 retf 0004H 0f3e C_PUTS: 0f3e 55 JBCOMM_011 push bp 0f3f 89 e5 mov bp,sp 0f41 81 ec 23 01 sub sp,0123H 0f45 c4 7e 06 les di,dword ptr +6H[bp] 0f48 06 push es 0f49 57 push di 0f4a 8d be 00 ff lea di,-100H[bp] 0f4e 16 push ss 0f4f 57 push di 0f50 b8 ff 00 mov ax,00ffH 0f53 50 push ax 0f54 9a 00 00 00 00 call far SYSTEM_00C 0f59 c6 86 fe fe 00 mov byte ptr -102H[bp],00H 0f5e 8a 86 00 ff mov al,-100H[bp] 0f62 88 86 fd fe mov -103H[bp],al 0f66 b0 01 mov al,01H 0f68 3a 86 fd fe cmp al,-103H[bp] 0f6c 76 03 jbe L85 0f6e e9 e6 00 jmp L95 0f71 88 86 ff fe L85 mov -101H[bp],al 0f75 eb 04 jmp L87 0f77 fe 86 ff fe L86 inc byte ptr -101H[bp] 0f7b 8a 86 ff fe L87 mov al,-101H[bp] 0f7f 30 e4 xor ah,ah 0f81 8b f8 mov di,ax 0f83 8a 83 00 ff mov al,-100H[bp+di] 0f87 3c 7c cmp al,7cH 0f89 75 0e jne L88 0f8b 8a 46 0a mov al,+0aH[bp] 0f8e 50 push ax 0f8f b0 0d mov al,0dH 0f91 50 push ax 0f92 0e push cs 0f93 e8 00 00 call C_PUTC 0f96 e9 b1 00 jmp L94 0f99 3c 7e L88 cmp al,7eH 0f9b 75 0c jne L89 0f9d b8 fa 00 mov ax,00faH 0fa0 50 push ax 0fa1 9a 00 00 00 00 call far CRT_012 0fa6 e9 a1 00 jmp L94 0fa9 3c 5e L89 cmp al,5eH 0fab 75 08 jne L90 0fad c6 86 fe fe 01 mov byte ptr -102H[bp],01H 0fb2 e9 95 00 jmp L94 0fb5 80 be fe fe 00 L90 cmp byte ptr -102H[bp],00H 0fba 74 79 je L93 0fbc 8a 86 ff fe mov al,-101H[bp] 0fc0 30 e4 xor ah,ah 0fc2 8b f8 mov di,ax 0fc4 8a 83 00 ff mov al,-100H[bp+di] 0fc8 50 push ax 0fc9 9a 00 00 00 00 call far SYSTEM_05A 0fce 50 push ax 0fcf 8d be dd fe lea di,-123H[bp] 0fd3 16 push ss 0fd4 57 push di 0fd5 9a 00 00 00 00 call far SYSTEM_028 0fda b0 40 mov al,40H 0fdc 50 push ax 0fdd b0 5f mov al,5fH 0fdf 50 push ax 0fe0 9a 00 00 00 00 call far SYSTEM_02A 0fe5 9a 00 00 00 00 call far SYSTEM_018 0fea 74 22 je L91 0fec 8a 46 0a mov al,+0aH[bp] 0fef 50 push ax 0ff0 8a 86 ff fe mov al,-101H[bp] 0ff4 30 e4 xor ah,ah 0ff6 8b f8 mov di,ax 0ff8 8a 83 00 ff mov al,-100H[bp+di] 0ffc 50 push ax 0ffd 9a 00 00 00 00 call far SYSTEM_05A 1002 30 e4 xor ah,ah 1004 2d 40 00 sub ax,0040H 1007 50 push ax 1008 0e push cs 1009 e8 00 00 call C_PUTC 100c eb 20 jmp L92 100e 8a 46 0a L91 mov al,+0aH[bp] 1011 50 push ax 1012 b0 5e mov al,5eH 1014 50 push ax 1015 0e push cs 1016 e8 00 00 call C_PUTC 1019 8a 46 0a mov al,+0aH[bp] 101c 50 push ax 101d 8a 86 ff fe mov al,-101H[bp] 1021 30 e4 xor ah,ah 1023 8b f8 mov di,ax 1025 8a 83 00 ff mov al,-100H[bp+di] 1029 50 push ax 102a 0e push cs 102b e8 00 00 call C_PUTC 102e c6 86 fe fe 00 L92 mov byte ptr -102H[bp],00H 1033 eb 15 jmp L94 1035 8a 46 0a L93 mov al,+0aH[bp] 1038 50 push ax 1039 8a 86 ff fe mov al,-101H[bp] 103d 30 e4 xor ah,ah 103f 8b f8 mov di,ax 1041 8a 83 00 ff mov al,-100H[bp+di] 1045 50 push ax 1046 0e push cs 1047 e8 00 00 call C_PUTC 104a 8a 86 ff fe L94 mov al,-101H[bp] 104e 3a 86 fd fe cmp al,-103H[bp] 1052 74 03 je L95 1054 e9 20 ff jmp L86 1057 89 ec L95 mov sp,bp 1059 5d pop bp 105a ca 06 00 retf 0006H 105d C_GETB: 105d 55 JBCOMM_012 push bp 105e 89 e5 mov bp,sp 1060 83 ec 06 sub sp,0006H 1063 31 c0 xor ax,ax 1065 89 46 fc mov -4H[bp],ax 1068 c6 46 fa 00 mov byte ptr -6H[bp],00H 106c 80 3e 00 00 00 L96 cmp byte ptr ESC_ON,00H 1071 74 19 je L97 1073 9a 00 00 00 00 call far CRT_002 1078 08 c0 or al,al 107a 74 10 je L97 107c 9a 00 00 00 00 call far CRT_003 1081 3c 1b cmp al,1bH 1083 75 07 jne L97 1085 c7 46 fe fe ff mov word ptr -2H[bp],0fffeH 108a eb 53 jmp L102 108c 8a 46 08 L97 mov al,+8H[bp] 108f 50 push ax 1090 0e push cs 1091 e8 00 00 call C_INREADY 1094 09 c0 or ax,ax 1096 74 17 je L98 1098 8a 46 08 mov al,+8H[bp] 109b 50 push ax 109c 0e push cs 109d e8 00 00 call C_GETC 10a0 88 46 fb mov -5H[bp],al 10a3 8a 46 fb mov al,-5H[bp] 10a6 30 e4 xor ah,ah 10a8 89 46 fe mov -2H[bp],ax 10ab eb 32 jmp L102 10ad eb 07 jmp L99 10af 8b 46 fc L98 mov ax,-4H[bp] 10b2 40 inc ax 10b3 89 46 fc mov -4H[bp],ax 10b6 b8 0a 00 L99 mov ax,000aH 10b9 50 push ax 10ba 9a 00 00 00 00 call far CRT_012 10bf 8b 46 06 mov ax,+6H[bp] 10c2 31 d2 xor dx,dx 10c4 8b c8 mov cx,ax 10c6 8b da mov bx,dx 10c8 8b 46 fc mov ax,-4H[bp] 10cb 99 cwd 10cc 3b d3 cmp dx,bx 10ce 75 04 jne L100 10d0 3b c1 cmp ax,cx 10d2 74 06 je L101 10d4 80 7e fa 00 L100 cmp byte ptr -6H[bp],00H 10d8 74 92 je L96 10da c7 46 fe ff ff L101 mov word ptr -2H[bp],0ffffH 10df 8b 46 fe L102 mov ax,-2H[bp] 10e2 89 ec mov sp,bp 10e4 5d pop bp 10e5 ca 04 00 retf 0004H 10e8 55 JBCOMM_028 push bp 10e9 89 e5 mov bp,sp 10eb 81 ec 00 03 sub sp,0300H 10ef c4 7e 08 les di,dword ptr +8H[bp] 10f2 06 push es 10f3 57 push di 10f4 8d be 00 ff lea di,-100H[bp] 10f8 16 push ss 10f9 57 push di 10fa b8 ff 00 mov ax,00ffH 10fd 50 push ax 10fe 9a 00 00 00 00 call far SYSTEM_00C 1103 8d be 02 ff lea di,-0feH[bp] 1107 16 push ss 1108 57 push di 1109 8d be 01 ff lea di,-0ffH[bp] 110d 16 push ss 110e 57 push di 110f b8 fe 00 mov ax,00feH 1112 50 push ax 1113 9a 00 00 00 00 call far SYSTEM_060 1118 8a 86 00 ff mov al,-100H[bp] 111c fe c8 dec al 111e 88 86 00 ff mov -100H[bp],al 1122 8d be 00 fd lea di,-300H[bp] 1126 16 push ss 1127 57 push di 1128 8d be 00 ff lea di,-100H[bp] 112c 16 push ss 112d 57 push di 112e 9a 00 00 00 00 call far SYSTEM_00B 1133 8d be 00 fe lea di,-200H[bp] 1137 16 push ss 1138 57 push di 1139 8a 46 06 mov al,+6H[bp] 113c 50 push ax 113d 9a 00 00 00 00 call far SYSTEM_012 1142 9a 00 00 00 00 call far SYSTEM_00F 1147 8d be 00 ff lea di,-100H[bp] 114b 16 push ss 114c 57 push di 114d b8 ff 00 mov ax,00ffH 1150 50 push ax 1151 9a 00 00 00 00 call far SYSTEM_00C 1156 8d be 00 ff lea di,-100H[bp] 115a 16 push ss 115b 57 push di 115c c4 7e 0c les di,dword ptr +0cH[bp] 115f 06 push es 1160 57 push di 1161 b8 ff 00 mov ax,00ffH 1164 50 push ax 1165 9a 00 00 00 00 call far SYSTEM_00C 116a 89 ec mov sp,bp 116c 5d pop bp 116d c2 08 00 ret 0008H 1170 C_WAITS: 1170 55 JBCOMM_013 push bp 1171 89 e5 mov bp,sp 1173 81 ec 54 03 sub sp,0354H 1177 c4 7e 08 les di,dword ptr +8H[bp] 117a 06 push es 117b 57 push di 117c 8d 7e ae lea di,-52H[bp] 117f 16 push ss 1180 57 push di 1181 b8 50 00 mov ax,0050H 1184 50 push ax 1185 9a 00 00 00 00 call far SYSTEM_00C 118a c6 46 ff 00 mov byte ptr -1H[bp],00H 118e c6 86 ae fe 00 mov byte ptr -152H[bp],00H 1193 8a 46 0c L103 mov al,+0cH[bp] 1196 50 push ax 1197 ff 76 06 push +6H[bp] 119a 0e push cs 119b e8 00 00 call C_GETB 119e 89 86 ac fe mov -154H[bp],ax 11a2 83 be ac fe ff cmp word ptr -154H[bp],0ffffH 11a7 74 64 je L106 11a9 80 be ae fe ff cmp byte ptr -152H[bp],0ffH 11ae 73 37 jae L104 11b0 8d be ac fc lea di,-354H[bp] 11b4 16 push ss 11b5 57 push di 11b6 8d be ae fe lea di,-152H[bp] 11ba 16 push ss 11bb 57 push di 11bc 9a 00 00 00 00 call far SYSTEM_00B 11c1 8d be ac fd lea di,-254H[bp] 11c5 16 push ss 11c6 57 push di 11c7 8a 86 ac fe mov al,-154H[bp] 11cb 50 push ax 11cc 9a 00 00 00 00 call far SYSTEM_012 11d1 9a 00 00 00 00 call far SYSTEM_00F 11d6 8d be ae fe lea di,-152H[bp] 11da 16 push ss 11db 57 push di 11dc b8 ff 00 mov ax,00ffH 11df 50 push ax 11e0 9a 00 00 00 00 call far SYSTEM_00C 11e5 eb 24 jmp L105 11e7 8d be ac fd L104 lea di,-254H[bp] 11eb 16 push ss 11ec 57 push di 11ed 8d be ae fe lea di,-152H[bp] 11f1 16 push ss 11f2 57 push di 11f3 8a 86 ac fe mov al,-154H[bp] 11f7 50 push ax 11f8 55 push bp 11f9 e8 00 00 call JBCOMM_028 11fc 8d be ae fe lea di,-152H[bp] 1200 16 push ss 1201 57 push di 1202 b8 ff 00 mov ax,00ffH 1205 50 push ax 1206 9a 00 00 00 00 call far SYSTEM_00C 120b eb 02 L105 jmp L107 120d eb 1b L106 jmp L109 120f 8d 7e ae L107 lea di,-52H[bp] 1212 16 push ss 1213 57 push di 1214 8d be ae fe lea di,-152H[bp] 1218 16 push ss 1219 57 push di 121a 9a 00 00 00 00 call far SYSTEM_010 121f 09 c0 or ax,ax 1221 75 03 jne L108 1223 e9 6d ff jmp L103 1226 c6 46 ff 01 L108 mov byte ptr -1H[bp],01H 122a 8a 46 ff L109 mov al,-1H[bp] 122d 89 ec mov sp,bp 122f 5d pop bp 1230 ca 08 00 retf 0008H 1233 55 JBCOMM_029 push bp 1234 89 e5 mov bp,sp 1236 81 ec 00 03 sub sp,0300H 123a c4 7e 08 les di,dword ptr +8H[bp] 123d 06 push es 123e 57 push di 123f 8d be 00 ff lea di,-100H[bp] 1243 16 push ss 1244 57 push di 1245 b8 ff 00 mov ax,00ffH 1248 50 push ax 1249 9a 00 00 00 00 call far SYSTEM_00C 124e 8d be 02 ff lea di,-0feH[bp] 1252 16 push ss 1253 57 push di 1254 8d be 01 ff lea di,-0ffH[bp] 1258 16 push ss 1259 57 push di 125a b8 fe 00 mov ax,00feH 125d 50 push ax 125e 9a 00 00 00 00 call far SYSTEM_060 1263 8a 86 00 ff mov al,-100H[bp] 1267 fe c8 dec al 1269 88 86 00 ff mov -100H[bp],al 126d 8d be 00 fd lea di,-300H[bp] 1271 16 push ss 1272 57 push di 1273 8d be 00 ff lea di,-100H[bp] 1277 16 push ss 1278 57 push di 1279 9a 00 00 00 00 call far SYSTEM_00B 127e 8d be 00 fe lea di,-200H[bp] 1282 16 push ss 1283 57 push di 1284 8a 46 06 mov al,+6H[bp] 1287 50 push ax 1288 9a 00 00 00 00 call far SYSTEM_012 128d 9a 00 00 00 00 call far SYSTEM_00F 1292 8d be 00 ff lea di,-100H[bp] 1296 16 push ss 1297 57 push di 1298 b8 ff 00 mov ax,00ffH 129b 50 push ax 129c 9a 00 00 00 00 call far SYSTEM_00C 12a1 8d be 00 ff lea di,-100H[bp] 12a5 16 push ss 12a6 57 push di 12a7 c4 7e 0c les di,dword ptr +0cH[bp] 12aa 06 push es 12ab 57 push di 12ac b8 ff 00 mov ax,00ffH 12af 50 push ax 12b0 9a 00 00 00 00 call far SYSTEM_00C 12b5 89 ec mov sp,bp 12b7 5d pop bp 12b8 c2 08 00 ret 0008H 12bb 00 55 89 L110 add -77H[di],dl 12be e5 81 in ax,81H 12c0 ec in al,dx 12c1 05 03 c7 add ax,0c703H 12c4 46 inc si 12c5 fe ????? 12c6 ff ????? 12c7 ff c6 inc si 12c9 86 fe xchg bh,dh 12cb fe 00 inc byte ptr [bx+si] 12cd 8a 46 0e L111 mov al,+0eH[bp] 12d0 50 push ax 12d1 ff 76 06 push +6H[bp] 12d4 0e push cs 12d5 e8 00 00 call C_GETB 12d8 89 86 fc fe mov -104H[bp],ax 12dc 83 be fc fe 00 cmp word ptr -104H[bp],0000H 12e1 7d 03 jge L112 12e3 e9 f1 00 jmp L119 12e6 80 be fe fe ff L112 cmp byte ptr -102H[bp],0ffH 12eb 73 37 jae L113 12ed 8d be fb fc lea di,-305H[bp] 12f1 16 push ss 12f2 57 push di 12f3 8d be fe fe lea di,-102H[bp] 12f7 16 push ss 12f8 57 push di 12f9 9a 00 00 00 00 call far SYSTEM_00B 12fe 8d be fb fd lea di,-205H[bp] 1302 16 push ss 1303 57 push di 1304 8a 86 fc fe mov al,-104H[bp] 1308 50 push ax 1309 9a 00 00 00 00 call far SYSTEM_012 130e 9a 00 00 00 00 call far SYSTEM_00F 1313 8d be fe fe lea di,-102H[bp] 1317 16 push ss 1318 57 push di 1319 b8 ff 00 mov ax,00ffH 131c 50 push ax 131d 9a 00 00 00 00 call far SYSTEM_00C 1322 eb 24 jmp L114 1324 8d be fb fd L113 lea di,-205H[bp] 1328 16 push ss 1329 57 push di 132a 8d be fe fe lea di,-102H[bp] 132e 16 push ss 132f 57 push di 1330 8a 86 fc fe mov al,-104H[bp] 1334 50 push ax 1335 55 push bp 1336 e8 00 00 call JBCOMM_029 1339 8d be fe fe lea di,-102H[bp] 133d 16 push ss 133e 57 push di 133f b8 ff 00 mov ax,00ffH 1342 50 push ax 1343 9a 00 00 00 00 call far SYSTEM_00C 1348 bf 00 00 L114 mov di,offset SYSTEM_BSS+100H 134b 1e push ds 134c 57 push di 134d 8d be fe fe lea di,-102H[bp] 1351 16 push ss 1352 57 push di 1353 31 c0 xor ax,ax 1355 50 push ax 1356 9a 00 00 00 00 call far SYSTEM_036 135b 9a 00 00 00 00 call far SYSTEM_03B 1360 8a 46 08 mov al,+8H[bp] 1363 88 86 fa fe mov -106H[bp],al 1367 b0 01 mov al,01H 1369 3a 86 fa fe cmp al,-106H[bp] 136d 77 66 ja L118 136f 88 86 fb fe mov -105H[bp],al 1373 eb 04 jmp L116 1375 fe 86 fb fe L115 inc byte ptr -105H[bp] 1379 8a 86 fb fe L116 mov al,-105H[bp] 137d 30 e4 xor ah,ah 137f ba 51 00 mov dx,0051H 1382 f7 e2 mul dx 1384 c4 7e 0a les di,dword ptr +0aH[bp] 1387 03 f8 add di,ax 1389 81 c7 af ff add di,0ffafH 138d 06 push es 138e 57 push di 138f bf 00 00 mov di,offset L110 1392 0e push cs 1393 57 push di 1394 9a 00 00 00 00 call far SYSTEM_011 1399 74 30 je L117 139b 8a 86 fb fe mov al,-105H[bp] 139f 30 e4 xor ah,ah 13a1 ba 51 00 mov dx,0051H 13a4 f7 e2 mul dx 13a6 c4 7e 0a les di,dword ptr +0aH[bp] 13a9 03 f8 add di,ax 13ab 81 c7 af ff add di,0ffafH 13af 06 push es 13b0 57 push di 13b1 8d be fe fe lea di,-102H[bp] 13b5 16 push ss 13b6 57 push di 13b7 9a 00 00 00 00 call far SYSTEM_010 13bc 09 c0 or ax,ax 13be 7e 0b jle L117 13c0 8a 86 fb fe mov al,-105H[bp] 13c4 30 e4 xor ah,ah 13c6 89 46 fe mov -2H[bp],ax 13c9 eb 18 jmp L121 13cb 8a 86 fb fe L117 mov al,-105H[bp] 13cf 3a 86 fa fe cmp al,-106H[bp] 13d3 75 a0 jne L115 13d5 eb 09 L118 jmp L120 13d7 8b 86 fc fe L119 mov ax,-104H[bp] 13db 89 46 fe mov -2H[bp],ax 13de eb 03 jmp L121 13e0 e9 ea fe L120 jmp L111 13e3 8b 46 fe L121 mov ax,-2H[bp] 13e6 89 ec mov sp,bp 13e8 5d pop bp 13e9 ca 0a 00 retf 000aH 13ec C_GET_STREAM: 13ec 55 JBCOMM_015 push bp 13ed 89 e5 mov bp,sp 13ef 83 ec 04 sub sp,0004H 13f2 31 c0 xor ax,ax 13f4 89 46 fc mov -4H[bp],ax 13f7 8a 46 0c L122 mov al,+0cH[bp] 13fa 50 push ax 13fb 0e push cs 13fc e8 00 00 call C_INREADY 13ff 09 c0 or ax,ax 1401 74 22 je L123 1403 8b 46 fc mov ax,-4H[bp] 1406 3b 46 06 cmp ax,+6H[bp] 1409 73 1a jae L123 140b 8a 46 0c mov al,+0cH[bp] 140e 50 push ax 140f 0e push cs 1410 e8 00 00 call C_GETC 1413 8a d0 mov dl,al 1415 8b 46 fc mov ax,-4H[bp] 1418 c4 7e 08 les di,dword ptr +8H[bp] 141b 03 f8 add di,ax 141d 26 88 15 mov es:[di],dl 1420 ff 46 fc inc word ptr -4H[bp] 1423 eb d2 jmp L122 1425 8b 46 fc L123 mov ax,-4H[bp] 1428 89 46 fe mov -2H[bp],ax 142b 8b 46 fe mov ax,-2H[bp] 142e 89 ec mov sp,bp 1430 5d pop bp 1431 ca 08 00 retf 0008H 1434 C_TGET_STREAM: 1434 55 JBCOMM_016 push bp 1435 89 e5 mov bp,sp 1437 83 ec 06 sub sp,0006H 143a 31 c0 xor ax,ax 143c 89 46 fc mov -4H[bp],ax 143f 8a 46 0e L124 mov al,+0eH[bp] 1442 50 push ax 1443 ff 76 06 push +6H[bp] 1446 0e push cs 1447 e8 00 00 call C_GETB 144a 89 46 fa mov -6H[bp],ax 144d 83 7e fa ff cmp word ptr -6H[bp],0ffffH 1451 7e 11 jle L125 1453 8a 56 fa mov dl,-6H[bp] 1456 8b 46 fc mov ax,-4H[bp] 1459 c4 7e 0a les di,dword ptr +0aH[bp] 145c 03 f8 add di,ax 145e 26 88 15 mov es:[di],dl 1461 ff 46 fc inc word ptr -4H[bp] 1464 83 7e fa ff L125 cmp word ptr -6H[bp],0ffffH 1468 7e 08 jle L126 146a 8b 46 fc mov ax,-4H[bp] 146d 3b 46 08 cmp ax,+8H[bp] 1470 75 cd jne L124 1472 8b 46 fc L126 mov ax,-4H[bp] 1475 89 46 fe mov -2H[bp],ax 1478 8b 46 fe mov ax,-2H[bp] 147b 89 ec mov sp,bp 147d 5d pop bp 147e ca 0a 00 retf 000aH 1481 C_PUT_STREAM: 1481 55 JBCOMM_017 push bp 1482 89 e5 mov bp,sp 1484 83 ec 04 sub sp,0004H 1487 31 c0 xor ax,ax 1489 89 46 fc mov -4H[bp],ax 148c 8a 46 0c L127 mov al,+0cH[bp] 148f 50 push ax 1490 0e push cs 1491 e8 00 00 call C_OUTREADY 1494 8b d0 mov dx,ax 1496 8a 46 0c mov al,+0cH[bp] 1499 98 cbw 149a 8b f8 mov di,ax 149c d1 e7 shl di,1 149e d1 e7 shl di,1 14a0 c4 bd 00 00 les di,dword ptr L156[di] 14a4 26 8b 45 12 mov ax,es:+12H[di] 14a8 3b c2 cmp ax,dx 14aa 76 21 jbe L128 14ac 8b 46 fc mov ax,-4H[bp] 14af 3b 46 06 cmp ax,+6H[bp] 14b2 73 19 jae L128 14b4 8a 46 0c mov al,+0cH[bp] 14b7 50 push ax 14b8 8b 46 fc mov ax,-4H[bp] 14bb c4 7e 08 les di,dword ptr +8H[bp] 14be 03 f8 add di,ax 14c0 26 8a 05 mov al,es:[di] 14c3 50 push ax 14c4 0e push cs 14c5 e8 00 00 call C_PUTC 14c8 ff 46 fc inc word ptr -4H[bp] 14cb eb bf jmp L127 14cd 8b 46 fc L128 mov ax,-4H[bp] 14d0 89 46 fe mov -2H[bp],ax 14d3 8b 46 fe mov ax,-2H[bp] 14d6 89 ec mov sp,bp 14d8 5d pop bp 14d9 ca 08 00 retf 0008H 14dc C_XON_XOFF: 14dc 55 JBCOMM_01A push bp 14dd 89 e5 mov bp,sp 14df 8a 56 06 mov dl,+6H[bp] 14e2 8a 46 08 mov al,+8H[bp] 14e5 98 cbw 14e6 8b f8 mov di,ax 14e8 d1 e7 shl di,1 14ea d1 e7 shl di,1 14ec c4 bd 00 00 les di,dword ptr L156[di] 14f0 26 88 55 03 mov es:+3H[di],dl 14f4 8a 46 08 mov al,+8H[bp] 14f7 98 cbw 14f8 8b f8 mov di,ax 14fa d1 e7 shl di,1 14fc d1 e7 shl di,1 14fe c4 bd 00 00 les di,dword ptr L156[di] 1502 26 c6 05 00 mov byte ptr es:[di],00H 1506 8a 46 08 mov al,+8H[bp] 1509 98 cbw 150a 8b f8 mov di,ax 150c d1 e7 shl di,1 150e d1 e7 shl di,1 1510 c4 bd 00 00 les di,dword ptr L156[di] 1514 26 c6 45 02 00 mov byte ptr es:+2H[di],00H 1519 8a 46 08 mov al,+8H[bp] 151c 98 cbw 151d 8b f8 mov di,ax 151f d1 e7 shl di,1 1521 d1 e7 shl di,1 1523 c4 bd 00 00 les di,dword ptr L156[di] 1527 26 c6 45 01 00 mov byte ptr es:+1H[di],00H 152c 89 ec mov sp,bp 152e 5d pop bp 152f ca 04 00 retf 0004H 1532 C_XOFF_RECEIVED: 1532 55 JBCOMM_018 push bp 1533 89 e5 mov bp,sp 1535 83 ec 01 sub sp,0001H 1538 8a 46 06 mov al,+6H[bp] 153b 98 cbw 153c 8b f8 mov di,ax 153e d1 e7 shl di,1 1540 d1 e7 shl di,1 1542 c4 bd 00 00 les di,dword ptr L156[di] 1546 26 8a 05 mov al,es:[di] 1549 88 46 ff mov -1H[bp],al 154c 8a 46 ff mov al,-1H[bp] 154f 89 ec mov sp,bp 1551 5d pop bp 1552 ca 02 00 retf 0002H 1555 C_XOFF_SENT: 1555 55 JBCOMM_019 push bp 1556 89 e5 mov bp,sp 1558 83 ec 01 sub sp,0001H 155b 8a 46 06 mov al,+6H[bp] 155e 98 cbw 155f 8b f8 mov di,ax 1561 d1 e7 shl di,1 1563 d1 e7 shl di,1 1565 c4 bd 00 00 les di,dword ptr L156[di] 1569 26 8a 45 01 mov al,es:+1H[di] 156d 88 46 ff mov -1H[bp],al 1570 8a 46 ff mov al,-1H[bp] 1573 89 ec mov sp,bp 1575 5d pop bp 1576 ca 02 00 retf 0002H 1579 C_STATUSM: 1579 55 JBCOMM_01B push bp 157a 89 e5 mov bp,sp 157c 83 ec 01 sub sp,0001H 157f 8a 46 06 mov al,+6H[bp] 1582 98 cbw 1583 8b f8 mov di,ax 1585 d1 e7 shl di,1 1587 d1 e7 shl di,1 1589 c4 bd 00 00 les di,dword ptr L156[di] 158d 26 8a 45 0e mov al,es:+0eH[di] 1591 88 46 ff mov -1H[bp],al 1594 8a 46 ff mov al,-1H[bp] 1597 89 ec mov sp,bp 1599 5d pop bp 159a ca 02 00 retf 0002H 159d C_STATUSL: 159d 55 JBCOMM_01C push bp 159e 89 e5 mov bp,sp 15a0 83 ec 01 sub sp,0001H 15a3 8a 46 06 mov al,+6H[bp] 15a6 98 cbw 15a7 8b f8 mov di,ax 15a9 d1 e7 shl di,1 15ab d1 e7 shl di,1 15ad c4 bd 00 00 les di,dword ptr L156[di] 15b1 26 8a 45 0f mov al,es:+0fH[di] 15b5 88 46 ff mov -1H[bp],al 15b8 8a 46 ff mov al,-1H[bp] 15bb 89 ec mov sp,bp 15bd 5d pop bp 15be ca 02 00 retf 0002H 15c1 C_LASTINT: 15c1 55 JBCOMM_01D push bp 15c2 89 e5 mov bp,sp 15c4 83 ec 01 sub sp,0001H 15c7 8a 46 06 mov al,+6H[bp] 15ca 98 cbw 15cb 8b f8 mov di,ax 15cd d1 e7 shl di,1 15cf d1 e7 shl di,1 15d1 c4 bd 00 00 les di,dword ptr L156[di] 15d5 26 8a 45 0d mov al,es:+0dH[di] 15d9 88 46 ff mov -1H[bp],al 15dc 8a 46 ff mov al,-1H[bp] 15df 89 ec mov sp,bp 15e1 5d pop bp 15e2 ca 02 00 retf 0002H 15e5 C_PORT_INFO: 15e5 55 JBCOMM_01E push bp 15e6 89 e5 mov bp,sp 15e8 83 ec 05 sub sp,0005H 15eb c4 7e 06 les di,dword ptr +6H[bp] 15ee 89 7e fb mov -5H[bp],di 15f1 8c 46 fd mov -3H[bp],es 15f4 8a 46 0a mov al,+0aH[bp] 15f7 98 cbw 15f8 8b f8 mov di,ax 15fa d1 e7 shl di,1 15fc 8b 85 00 00 mov ax,L155[di] 1600 c4 7e fb les di,dword ptr -5H[bp] 1603 26 89 05 mov es:[di],ax 1606 8a 46 0a mov al,+0aH[bp] 1609 98 cbw 160a 8b f8 mov di,ax 160c d1 e7 shl di,1 160e 8b 85 00 00 mov ax,L155[di] 1612 05 04 00 add ax,0004H 1615 8b d0 mov dx,ax 1617 ec in al,dx 1618 24 01 and al,01H 161a 08 c0 or al,al 161c 75 04 jne L129 161e b0 00 mov al,00H 1620 eb 02 jmp L130 1622 b0 01 L129 mov al,01H 1624 c4 7e fb L130 les di,dword ptr -5H[bp] 1627 26 88 45 07 mov es:+7H[di],al 162b 8a 46 0a mov al,+0aH[bp] 162e 98 cbw 162f 8b f8 mov di,ax 1631 d1 e7 shl di,1 1633 8b 85 00 00 mov ax,L155[di] 1637 05 03 00 add ax,0003H 163a 8b d0 mov dx,ax 163c ec in al,dx 163d 88 46 ff mov -1H[bp],al 1640 8a 46 ff mov al,-1H[bp] 1643 24 03 and al,03H 1645 30 e4 xor ah,ah 1647 3d 00 00 cmp ax,0000H 164a 75 0a jne L131 164c c4 7e fb les di,dword ptr -5H[bp] 164f 26 c6 45 05 05 mov byte ptr es:+5H[di],05H 1654 eb 2b jmp L134 1656 3d 01 00 L131 cmp ax,0001H 1659 75 0a jne L132 165b c4 7e fb les di,dword ptr -5H[bp] 165e 26 c6 45 05 06 mov byte ptr es:+5H[di],06H 1663 eb 1c jmp L134 1665 3d 02 00 L132 cmp ax,0002H 1668 75 0a jne L133 166a c4 7e fb les di,dword ptr -5H[bp] 166d 26 c6 45 05 07 mov byte ptr es:+5H[di],07H 1672 eb 0d jmp L134 1674 3d 03 00 L133 cmp ax,0003H 1677 75 08 jne L134 1679 c4 7e fb les di,dword ptr -5H[bp] 167c 26 c6 45 05 08 mov byte ptr es:+5H[di],08H 1681 8a 46 ff L134 mov al,-1H[bp] 1684 24 04 and al,04H 1686 3c 04 cmp al,04H 1688 75 0a jne L135 168a c4 7e fb les di,dword ptr -5H[bp] 168d 26 c6 45 06 02 mov byte ptr es:+6H[di],02H 1692 eb 08 jmp L136 1694 c4 7e fb L135 les di,dword ptr -5H[bp] 1697 26 c6 45 06 01 mov byte ptr es:+6H[di],01H 169c 8a 46 ff L136 mov al,-1H[bp] 169f 24 08 and al,08H 16a1 08 c0 or al,al 16a3 75 0a jne L137 16a5 c4 7e fb les di,dword ptr -5H[bp] 16a8 26 c6 45 04 00 mov byte ptr es:+4H[di],00H 16ad eb 41 jmp L141 16af 8a 46 ff L137 mov al,-1H[bp] 16b2 24 30 and al,30H 16b4 30 e4 xor ah,ah 16b6 3d 00 00 cmp ax,0000H 16b9 75 0a jne L138 16bb c4 7e fb les di,dword ptr -5H[bp] 16be 26 c6 45 04 02 mov byte ptr es:+4H[di],02H 16c3 eb 2b jmp L141 16c5 3d 20 00 L138 cmp ax,0020H 16c8 75 0a jne L139 16ca c4 7e fb les di,dword ptr -5H[bp] 16cd 26 c6 45 04 04 mov byte ptr es:+4H[di],04H 16d2 eb 1c jmp L141 16d4 3d 10 00 L139 cmp ax,0010H 16d7 75 0a jne L140 16d9 c4 7e fb les di,dword ptr -5H[bp] 16dc 26 c6 45 04 01 mov byte ptr es:+4H[di],01H 16e1 eb 0d jmp L141 16e3 3d 30 00 L140 cmp ax,0030H 16e6 75 08 jne L141 16e8 c4 7e fb les di,dword ptr -5H[bp] 16eb 26 c6 45 04 03 mov byte ptr es:+4H[di],03H 16f0 8a 46 0a L141 mov al,+0aH[bp] 16f3 98 cbw 16f4 8b f8 mov di,ax 16f6 d1 e7 shl di,1 16f8 8b 85 00 00 mov ax,L155[di] 16fc 05 03 00 add ax,0003H 16ff 8b d0 mov dx,ax 1701 8a 46 ff mov al,-1H[bp] 1704 0c 80 or al,80H 1706 ee out dx,al 1707 8a 46 0a mov al,+0aH[bp] 170a 98 cbw 170b 8b f8 mov di,ax 170d d1 e7 shl di,1 170f 8b 85 00 00 mov ax,L155[di] 1713 05 00 00 add ax,0000H 1716 8b d0 mov dx,ax 1718 ec in al,dx 1719 30 e4 xor ah,ah 171b 8b d8 mov bx,ax 171d 8a 46 0a mov al,+0aH[bp] 1720 98 cbw 1721 8b f8 mov di,ax 1723 d1 e7 shl di,1 1725 8b 85 00 00 mov ax,L155[di] 1729 40 inc ax 172a 8b d0 mov dx,ax 172c ec in al,dx 172d 30 e4 xor ah,ah 172f b9 08 00 mov cx,0008H 1732 d3 e0 shl ax,cl 1734 03 c3 add ax,bx 1736 99 cwd 1737 8b c8 mov cx,ax 1739 8b da mov bx,dx 173b b8 00 c2 mov ax,0c200H 173e ba 01 00 mov dx,0001H 1741 9a 00 00 00 00 call far SYSTEM_006 1746 c4 7e fb les di,dword ptr -5H[bp] 1749 26 89 45 02 mov es:+2H[di],ax 174d 8a 46 0a mov al,+0aH[bp] 1750 98 cbw 1751 8b f8 mov di,ax 1753 d1 e7 shl di,1 1755 8b 85 00 00 mov ax,L155[di] 1759 05 03 00 add ax,0003H 175c 8b d0 mov dx,ax 175e 8a 46 ff mov al,-1H[bp] 1761 24 7f and al,7fH 1763 ee out dx,al 1764 8a 46 0a mov al,+0aH[bp] 1767 98 cbw 1768 8b f8 mov di,ax 176a d1 e7 shl di,1 176c 8b 85 00 00 mov ax,L155[di] 1770 40 inc ax 1771 8b d0 mov dx,ax 1773 ec in al,dx 1774 08 c0 or al,al 1776 75 04 jne L142 1778 b0 00 mov al,00H 177a eb 02 jmp L143 177c b0 01 L142 mov al,01H 177e c4 7e fb L143 les di,dword ptr -5H[bp] 1781 26 88 45 08 mov es:+8H[di],al 1785 89 ec mov sp,bp 1787 5d pop bp 1788 ca 06 00 retf 0006H 178b CRC_UPDATE: 178b 55 JBCOMM_01F push bp 178c 89 e5 mov bp,sp 178e 83 ec 02 sub sp,0002H 1791 8a 46 06 mov al,+6H[bp] 1794 30 e4 xor ah,ah 1796 8b d0 mov dx,ax 1798 8b 46 08 mov ax,+8H[bp] 179b 86 c4 xchg al,ah 179d 33 c2 xor ax,dx 179f 89 46 08 mov +8H[bp],ax 17a2 8a 46 08 mov al,+8H[bp] 17a5 30 e4 xor ah,ah 17a7 b9 04 00 mov cx,0004H 17aa d3 e8 shr ax,cl 17ac 33 46 08 xor ax,+8H[bp] 17af 89 46 08 mov +8H[bp],ax 17b2 8a 46 08 mov al,+8H[bp] 17b5 30 e4 xor ah,ah 17b7 b9 05 00 mov cx,0005H 17ba d3 e0 shl ax,cl 17bc 8b d0 mov dx,ax 17be 8a 46 08 mov al,+8H[bp] 17c1 30 e4 xor ah,ah 17c3 86 c4 xchg al,ah 17c5 b9 04 00 mov cx,0004H 17c8 d3 e0 shl ax,cl 17ca 33 46 08 xor ax,+8H[bp] 17cd 33 c2 xor ax,dx 17cf 89 46 08 mov +8H[bp],ax 17d2 8b 46 08 mov ax,+8H[bp] 17d5 89 46 fe mov -2H[bp],ax 17d8 8b 46 fe mov ax,-2H[bp] 17db 89 ec mov sp,bp 17dd 5d pop bp 17de ca 04 00 retf 0004H 17e1 BLOCK_CRC: 17e1 55 JBCOMM_020 push bp 17e2 89 e5 mov bp,sp 17e4 83 ec 08 sub sp,0008H 17e7 31 c0 xor ax,ax 17e9 89 46 fa mov -6H[bp],ax 17ec 8b 46 06 mov ax,+6H[bp] 17ef 48 dec ax 17f0 89 46 f8 mov -8H[bp],ax 17f3 31 c0 xor ax,ax 17f5 3b 46 f8 cmp ax,-8H[bp] 17f8 77 26 ja L146 17fa 89 46 fc mov -4H[bp],ax 17fd eb 03 jmp L145 17ff ff 46 fc L144 inc word ptr -4H[bp] 1802 ff 76 fa L145 push -6H[bp] 1805 8b 46 fc mov ax,-4H[bp] 1808 c4 7e 08 les di,dword ptr +8H[bp] 180b 03 f8 add di,ax 180d 26 8a 05 mov al,es:[di] 1810 50 push ax 1811 0e push cs 1812 e8 00 00 call CRC_UPDATE 1815 89 46 fa mov -6H[bp],ax 1818 8b 46 fc mov ax,-4H[bp] 181b 3b 46 f8 cmp ax,-8H[bp] 181e 75 df jne L144 1820 8b 46 fa L146 mov ax,-6H[bp] 1823 89 46 fe mov -2H[bp],ax 1826 8b 46 fe mov ax,-2H[bp] 1829 89 ec mov sp,bp 182b 5d pop bp 182c ca 06 00 retf 0006H 182f JBCOMM_000: 182f 89 e5 JBCOMM_INIT mov bp,sp 1831 c6 06 00 00 01 mov byte ptr ESC_ON,01H 1836 b8 00 00 mov ax,offset JBCOMM_026 1839 8c ca mov dx,cs 183b a3 00 00 mov L162,ax 183e 89 16 00 00 mov L163,dx 1842 b8 00 00 mov ax,offset JBCOMM_021 1845 8c ca mov dx,cs 1847 a3 00 00 mov L166,ax 184a 89 16 00 00 mov L167,dx 184e c6 06 00 00 00 mov byte ptr L164,00H 1853 eb 04 jmp L148 1855 fe 06 00 00 L147 inc byte ptr L164 1859 a0 00 00 L148 mov al,L164 185c 98 cbw 185d 8b f8 mov di,ax 185f d1 e7 shl di,1 1861 d1 e7 shl di,1 1863 31 c0 xor ax,ax 1865 89 85 00 00 mov L156[di],ax 1869 89 85 00 00 mov L157[di],ax 186d 80 3e 00 00 01 cmp byte ptr L164,01H 1872 75 e1 jne L147 1874 31 c0 xor ax,ax 1876 a3 00 00 mov L168,ax 1879 c6 06 00 00 00 mov byte ptr L165,00H 187e eb 04 jmp L150 1880 fe 06 00 00 L149 inc byte ptr L165 1884 ff 36 00 00 L150 push L168 1888 a0 00 00 mov al,L165 188b 30 e4 xor ah,ah 188d c4 3e 00 00 les di,dword ptr L166 1891 03 f8 add di,ax 1893 26 8a 05 mov al,es:[di] 1896 50 push ax 1897 0e push cs 1898 e8 00 00 call CRC_UPDATE 189b a3 00 00 mov L168,ax 189e 80 3e 00 00 27 cmp byte ptr L165,27H 18a3 75 db jne L149 18a5 81 3e 00 00 99 e2 cmp word ptr L168,0e299H 18ab 74 03 je L151 18ad e8 00 00 call JBCOMM_024 18b0 89 ec L151 mov sp,bp 18b2 cb retf 18b3 4a dec dx 18b4 42 inc dx 18b5 43 inc bx 18b6 4f dec di 18b7 4d dec bp 18b8 4d dec bp 18b9 20 76 31 and +31H[bp],dh 18bc 2e 32 50 55 xor dl,cs:+55H[bx+si] 18c0 53 push bx 18c1 51 push cx 18c2 52 push dx 18c3 56 push si 18c4 57 push di 18c5 06 push es 18c6 1e push ds 18c7 b8 00 00 mov ax,seg L169 18ca 8e d8 mov ds,ax 18cc b8 00 00 mov ax,0000H 18cf 50 push ax 18d0 ff 1e 00 00 call dword ptr L162 18d4 1f pop ds 18d5 07 pop es 18d6 5f pop di 18d7 5e pop si 18d8 5a pop dx 18d9 59 pop cx 18da 5b pop bx 18db 5d pop bp 18dc b0 20 mov al,20H 18de e6 20 out 20H,al 18e0 58 pop ax 18e1 cf iret 18e2 50 JBCOMM_023 push ax 18e3 55 push bp 18e4 53 push bx 18e5 51 push cx 18e6 52 push dx 18e7 56 push si 18e8 57 push di 18e9 06 push es 18ea 1e push ds 18eb b8 00 00 mov ax,seg L169 18ee 8e d8 mov ds,ax 18f0 b8 01 00 mov ax,0001H 18f3 50 push ax 18f4 ff 1e 00 00 call dword ptr L162 18f8 1f pop ds 18f9 07 pop es 18fa 5f pop di 18fb 5e pop si 18fc 5a pop dx 18fd 59 pop cx 18fe 5b pop bx 18ff 5d pop bp 1900 b0 20 mov al,20H 1902 e6 20 out 20H,al 1904 58 pop ax 1905 cf iret 1906 4a JBCOMM_021 dec dx 1907 42 inc dx 1908 43 inc bx 1909 4f dec di 190a 4d dec bp 190b 4d dec bp 190c 3a 20 cmp ah,[bx+si] 190e 62 79 20 bound di,+20H[bx+di] 1911 4a dec dx 1912 69 6d 20 42 65 imul bp,+20H[di],6542H 1917 72 67 jb L1+1980H 1919 2e 20 28 and cs:[bx+si],ch 191c 63 29 arpl bp,[bx+di] 191e 43 inc bx 191f 6f outsw 1920 70 79 jo L1+199bH 1922 72 69 jb L1+198dH 1924 67 68 74 20 push 2074H 1928 31 39 xor [bx+di],di 192a 38 38 cmp [bx+si],bh 192c 2d 2d sub ax,002dH No disassembly errors ------------------------------------------------------------ Segment: _DATA WORD 0000000f bytes 0000 00 18 08 38 2e JBCOMM_DATA - ...8. 0005 ef f7 L152 - .. 0007 10 08 L153 - .. 0009 0c 0b L154 - .. 000b f8 03 f8 02 L155 - .... No disassembly errors ------------------------------------------------------------ Segment: _BSS WORD 0000001d bytes No disassembly errors ------------------------------------------------------------