home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / pcboard / pcbdoor.dis < prev    next >
Encoding:
Text File  |  1994-06-19  |  111.6 KB  |  1,963 lines

  1.  
  2. Module: PCBDOORS.PAS
  3. Group: 'DGROUP' _DATA,_BSS
  4.  
  5. Segment: PCBDOORS_TEXT  PARA   0000123a bytes  
  6.  0000  55                PCBDOORS_00B    push    bp
  7.  0001  89 e5                             mov     bp,sp
  8.  0003  b8 14 00                          mov     ax,0014H
  9.  0006  9a 00 00 00 00                    call    far SYSTEM_034
  10.  000b  83 ec 14                          sub     sp,0014H
  11.  000e  c7 46 ec 00 06                    mov     word ptr -14H[bp],0600H
  12.  0013  c7 46 ee 00 07                    mov     word ptr -12H[bp],0700H
  13.  0018  8b 46 0a                          mov     ax,+0aH[bp]
  14.  001b  48                                dec     ax
  15.  001c  b9 08 00                          mov     cx,0008H
  16.  001f  d3 e0                             shl     ax,cl
  17.  0021  03 46 0c                          add     ax,+0cH[bp]
  18.  0024  48                                dec     ax
  19.  0025  89 46 f0                          mov     -10H[bp],ax
  20.  0028  8b 46 06                          mov     ax,+6H[bp]
  21.  002b  48                                dec     ax
  22.  002c  b9 08 00                          mov     cx,0008H
  23.  002f  d3 e0                             shl     ax,cl
  24.  0031  03 46 08                          add     ax,+8H[bp]
  25.  0034  48                                dec     ax
  26.  0035  89 46 f2                          mov     -0eH[bp],ax
  27.  0038  b0 10                             mov     al,10H
  28.  003a  50                                push    ax
  29.  003b  8d 7e ec                          lea     di,-14H[bp]
  30.  003e  16                                push    ss
  31.  003f  57                                push    di
  32.  0040  9a 00 00 00 00                    call    far DOS_001
  33.  0045  89 ec                             mov     sp,bp
  34.  0047  5d                                pop     bp
  35.  0048  ca 08 00                          retf    0008H
  36.  004b  55                PCBDOORS_00C    push    bp
  37.  004c  89 e5                             mov     bp,sp
  38.  004e  b8 14 00                          mov     ax,0014H
  39.  0051  9a 00 00 00 00                    call    far SYSTEM_034
  40.  0056  83 ec 14                          sub     sp,0014H
  41.  0059  c7 46 ec 00 02                    mov     word ptr -14H[bp],0200H
  42.  005e  31 c0                             xor     ax,ax
  43.  0060  89 46 ee                          mov     -12H[bp],ax
  44.  0063  8b 46 06                          mov     ax,+6H[bp]
  45.  0066  48                                dec     ax
  46.  0067  b9 08 00                          mov     cx,0008H
  47.  006a  d3 e0                             shl     ax,cl
  48.  006c  03 46 08                          add     ax,+8H[bp]
  49.  006f  48                                dec     ax
  50.  0070  89 46 f2                          mov     -0eH[bp],ax
  51.  0073  b0 10                             mov     al,10H
  52.  0075  50                                push    ax
  53.  0076  8d 7e ec                          lea     di,-14H[bp]
  54.  0079  16                                push    ss
  55.  007a  57                                push    di
  56.  007b  9a 00 00 00 00                    call    far DOS_001
  57.  0080  89 ec                             mov     sp,bp
  58.  0082  5d                                pop     bp
  59.  0083  ca 04 00                          retf    0004H
  60.  0086                    GET_SYS:
  61.  0086  55                PCBDOORS_001    push    bp
  62.  0087  89 e5                             mov     bp,sp
  63.  0089  b8 16 04                          mov     ax,0416H
  64.  008c  9a 00 00 00 00                    call    far SYSTEM_034
  65.  0091  81 ec 16 04                       sub     sp,0416H
  66.  0095  c4 7e 12                          les     di,dword ptr +12H[bp]
  67.  0098  06                                push    es
  68.  0099  57                                push    di
  69.  009a  8d be 7f ff                       lea     di,-81H[bp]
  70.  009e  16                                push    ss
  71.  009f  57                                push    di
  72.  00a0  b8 80 00                          mov     ax,0080H
  73.  00a3  50                                push    ax
  74.  00a4  9a 00 00 00 00                    call    far SYSTEM_00C
  75.  00a9  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  76.  00ac  26 c6 05 00                       mov     byte ptr es:[di],00H
  77.  00b0  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  78.  00b3  26 c6 05 00                       mov     byte ptr es:[di],00H
  79.  00b7  c4 7e 06                          les     di,dword ptr +6H[bp]
  80.  00ba  26 c6 05 00                       mov     byte ptr es:[di],00H
  81.  00be  c6 86 f2 fd 00                    mov     byte ptr -20eH[bp],00H
  82.  00c3  c6 86 f7 fd 00                    mov     byte ptr -209H[bp],00H
  83.  00c8  8d be 7f fe                       lea     di,-181H[bp]
  84.  00cc  16                                push    ss
  85.  00cd  57                                push    di
  86.  00ce  8d be 7f ff                       lea     di,-81H[bp]
  87.  00d2  16                                push    ss
  88.  00d3  57                                push    di
  89.  00d4  9a 00 00 00 00                    call    far SYSTEM_045
  90.  00d9  8d be 7f fe                       lea     di,-181H[bp]
  91.  00dd  16                                push    ss
  92.  00de  57                                push    di
  93.  00df  9a 00 00 00 00                    call    far SYSTEM_046
  94.  00e4  9a 00 00 00 00                    call    far SYSTEM_031
  95.  00e9  09 c0                             or      ax,ax
  96.  00eb  75 1c                             jne     L1
  97.  00ed  8d be 7f fe                       lea     di,-181H[bp]
  98.  00f1  16                                push    ss
  99.  00f2  57                                push    di
  100.  00f3  8d be fe fd                       lea     di,-202H[bp]
  101.  00f7  16                                push    ss
  102.  00f8  57                                push    di
  103.  00f9  b8 80 00                          mov     ax,0080H
  104.  00fc  50                                push    ax
  105.  00fd  9a 00 00 00 00                    call    far SYSTEM_03E
  106.  0102  9a 00 00 00 00                    call    far SYSTEM_041
  107.  0107  eb 07                             jmp     L2
  108.  0109  31 c0             L1              xor     ax,ax
  109.  010b  9a 00 00 00 00                    call    far SYSTEM_003
  110.  0110  8d be 7f fe       L2              lea     di,-181H[bp]
  111.  0114  16                                push    ss
  112.  0115  57                                push    di
  113.  0116  9a 00 00 00 00                    call    far SYSTEM_048
  114.  011b  8d be ea fc                       lea     di,-316H[bp]
  115.  011f  16                                push    ss
  116.  0120  57                                push    di
  117.  0121  8d be fe fd                       lea     di,-202H[bp]
  118.  0125  16                                push    ss
  119.  0126  57                                push    di
  120.  0127  b8 0f 00                          mov     ax,000fH
  121.  012a  50                                push    ax
  122.  012b  b8 19 00                          mov     ax,0019H
  123.  012e  50                                push    ax
  124.  012f  9a 00 00 00 00                    call    far SYSTEM_00E
  125.  0134  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  126.  0137  06                                push    es
  127.  0138  57                                push    di
  128.  0139  b8 19 00                          mov     ax,0019H
  129.  013c  50                                push    ax
  130.  013d  9a 00 00 00 00                    call    far SYSTEM_00C
  131.  0142  8d be ea fc                       lea     di,-316H[bp]
  132.  0146  16                                push    ss
  133.  0147  57                                push    di
  134.  0148  8d be fe fd                       lea     di,-202H[bp]
  135.  014c  16                                push    ss
  136.  014d  57                                push    di
  137.  014e  b8 2a 00                          mov     ax,002aH
  138.  0151  50                                push    ax
  139.  0152  b8 0f 00                          mov     ax,000fH
  140.  0155  50                                push    ax
  141.  0156  9a 00 00 00 00                    call    far SYSTEM_00E
  142.  015b  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  143.  015e  06                                push    es
  144.  015f  57                                push    di
  145.  0160  b8 0f 00                          mov     ax,000fH
  146.  0163  50                                push    ax
  147.  0164  9a 00 00 00 00                    call    far SYSTEM_00C
  148.  0169  8d be ea fc                       lea     di,-316H[bp]
  149.  016d  16                                push    ss
  150.  016e  57                                push    di
  151.  016f  8d be fe fd                       lea     di,-202H[bp]
  152.  0173  16                                push    ss
  153.  0174  57                                push    di
  154.  0175  b8 0b 00                          mov     ax,000bH
  155.  0178  50                                push    ax
  156.  0179  b8 04 00                          mov     ax,0004H
  157.  017c  50                                push    ax
  158.  017d  9a 00 00 00 00                    call    far SYSTEM_00E
  159.  0182  c4 7e 06                          les     di,dword ptr +6H[bp]
  160.  0185  06                                push    es
  161.  0186  57                                push    di
  162.  0187  b8 04 00                          mov     ax,0004H
  163.  018a  50                                push    ax
  164.  018b  9a 00 00 00 00                    call    far SYSTEM_00C
  165.  0190  8d be ea fc                       lea     di,-316H[bp]
  166.  0194  16                                push    ss
  167.  0195  57                                push    di
  168.  0196  8d be fe fd                       lea     di,-202H[bp]
  169.  019a  16                                push    ss
  170.  019b  57                                push    di
  171.  019c  b8 55 00                          mov     ax,0055H
  172.  019f  50                                push    ax
  173.  01a0  b8 02 00                          mov     ax,0002H
  174.  01a3  50                                push    ax
  175.  01a4  9a 00 00 00 00                    call    far SYSTEM_00E
  176.  01a9  8d be ea fb                       lea     di,-416H[bp]
  177.  01ad  16                                push    ss
  178.  01ae  57                                push    di
  179.  01af  8d be fe fd                       lea     di,-202H[bp]
  180.  01b3  16                                push    ss
  181.  01b4  57                                push    di
  182.  01b5  b8 58 00                          mov     ax,0058H
  183.  01b8  50                                push    ax
  184.  01b9  b8 02 00                          mov     ax,0002H
  185.  01bc  50                                push    ax
  186.  01bd  9a 00 00 00 00                    call    far SYSTEM_00E
  187.  01c2  9a 00 00 00 00                    call    far SYSTEM_00F
  188.  01c7  8d be f2 fd                       lea     di,-20eH[bp]
  189.  01cb  16                                push    ss
  190.  01cc  57                                push    di
  191.  01cd  b8 04 00                          mov     ax,0004H
  192.  01d0  50                                push    ax
  193.  01d1  9a 00 00 00 00                    call    far SYSTEM_00C
  194.  01d6  8d be ea fc                       lea     di,-316H[bp]
  195.  01da  16                                push    ss
  196.  01db  57                                push    di
  197.  01dc  8d be f2 fd                       lea     di,-20eH[bp]
  198.  01e0  16                                push    ss
  199.  01e1  57                                push    di
  200.  01e2  b8 01 00                          mov     ax,0001H
  201.  01e5  50                                push    ax
  202.  01e6  b8 02 00                          mov     ax,0002H
  203.  01e9  50                                push    ax
  204.  01ea  9a 00 00 00 00                    call    far SYSTEM_00E
  205.  01ef  8d be fc fd                       lea     di,-204H[bp]
  206.  01f3  16                                push    ss
  207.  01f4  57                                push    di
  208.  01f5  9a 00 00 00 00                    call    far SYSTEM_062
  209.  01fa  89 86 ec fd                       mov     -214H[bp],ax
  210.  01fe  8d be ea fc                       lea     di,-316H[bp]
  211.  0202  16                                push    ss
  212.  0203  57                                push    di
  213.  0204  8d be f2 fd                       lea     di,-20eH[bp]
  214.  0208  16                                push    ss
  215.  0209  57                                push    di
  216.  020a  b8 03 00                          mov     ax,0003H
  217.  020d  50                                push    ax
  218.  020e  b8 02 00                          mov     ax,0002H
  219.  0211  50                                push    ax
  220.  0212  9a 00 00 00 00                    call    far SYSTEM_00E
  221.  0217  8d be fc fd                       lea     di,-204H[bp]
  222.  021b  16                                push    ss
  223.  021c  57                                push    di
  224.  021d  9a 00 00 00 00                    call    far SYSTEM_062
  225.  0222  89 86 ea fd                       mov     -216H[bp],ax
  226.  0226  8b 86 ec fd                       mov     ax,-214H[bp]
  227.  022a  b9 3c 00                          mov     cx,003cH
  228.  022d  f7 e9                             imul    cx
  229.  022f  03 86 ea fd                       add     ax,-216H[bp]
  230.  0233  89 86 ea fd                       mov     -216H[bp],ax
  231.  0237  8d be ea fc                       lea     di,-316H[bp]
  232.  023b  16                                push    ss
  233.  023c  57                                push    di
  234.  023d  8d be fe fd                       lea     di,-202H[bp]
  235.  0241  16                                push    ss
  236.  0242  57                                push    di
  237.  0243  b8 4d 00                          mov     ax,004dH
  238.  0246  50                                push    ax
  239.  0247  b8 04 00                          mov     ax,0004H
  240.  024a  50                                push    ax
  241.  024b  9a 00 00 00 00                    call    far SYSTEM_00E
  242.  0250  8d be f7 fd                       lea     di,-209H[bp]
  243.  0254  16                                push    ss
  244.  0255  57                                push    di
  245.  0256  b8 04 00                          mov     ax,0004H
  246.  0259  50                                push    ax
  247.  025a  9a 00 00 00 00                    call    far SYSTEM_00C
  248.  025f  c7 86 f0 fd 01 00                 mov     word ptr -210H[bp],0001H
  249.  0265  31 c0                             xor     ax,ax
  250.  0267  89 86 ee fd                       mov     -212H[bp],ax
  251.  026b  8b 86 f0 fd                       mov     ax,-210H[bp]
  252.  026f  b9 3c 00                          mov     cx,003cH
  253.  0272  f7 e9                             imul    cx
  254.  0274  03 86 ee fd                       add     ax,-212H[bp]
  255.  0278  89 86 ee fd                       mov     -212H[bp],ax
  256.  027c  8b 86 ea fd                       mov     ax,-216H[bp]
  257.  0280  03 86 ee fd                       add     ax,-212H[bp]
  258.  0284  a3 00 00                          mov     TIME_OFF,ax
  259.  0287  c4 7e 0e          L3              les     di,dword ptr +0eH[bp]
  260.  028a  26 8a 05                          mov     al,es:[di]
  261.  028d  30 e4                             xor     ah,ah
  262.  028f  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  263.  0292  03 f8                             add     di,ax
  264.  0294  26 80 3d 20                       cmp     byte ptr es:[di],20H
  265.  0298  75 2e                             jne     L4
  266.  029a  8d be ea fc                       lea     di,-316H[bp]
  267.  029e  16                                push    ss
  268.  029f  57                                push    di
  269.  02a0  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  270.  02a3  06                                push    es
  271.  02a4  57                                push    di
  272.  02a5  b8 01 00                          mov     ax,0001H
  273.  02a8  50                                push    ax
  274.  02a9  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  275.  02ac  26 8a 05                          mov     al,es:[di]
  276.  02af  30 e4                             xor     ah,ah
  277.  02b1  48                                dec     ax
  278.  02b2  50                                push    ax
  279.  02b3  9a 00 00 00 00                    call    far SYSTEM_00E
  280.  02b8  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  281.  02bb  06                                push    es
  282.  02bc  57                                push    di
  283.  02bd  b8 19 00                          mov     ax,0019H
  284.  02c0  50                                push    ax
  285.  02c1  9a 00 00 00 00                    call    far SYSTEM_00C
  286.  02c6  eb bf                             jmp     L3
  287.  02c8  c4 7e 0a          L4              les     di,dword ptr +0aH[bp]
  288.  02cb  26 8a 05                          mov     al,es:[di]
  289.  02ce  30 e4                             xor     ah,ah
  290.  02d0  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  291.  02d3  03 f8                             add     di,ax
  292.  02d5  26 80 3d 20                       cmp     byte ptr es:[di],20H
  293.  02d9  75 2e                             jne     L5
  294.  02db  8d be ea fc                       lea     di,-316H[bp]
  295.  02df  16                                push    ss
  296.  02e0  57                                push    di
  297.  02e1  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  298.  02e4  06                                push    es
  299.  02e5  57                                push    di
  300.  02e6  b8 01 00                          mov     ax,0001H
  301.  02e9  50                                push    ax
  302.  02ea  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  303.  02ed  26 8a 05                          mov     al,es:[di]
  304.  02f0  30 e4                             xor     ah,ah
  305.  02f2  48                                dec     ax
  306.  02f3  50                                push    ax
  307.  02f4  9a 00 00 00 00                    call    far SYSTEM_00E
  308.  02f9  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  309.  02fc  06                                push    es
  310.  02fd  57                                push    di
  311.  02fe  b8 0f 00                          mov     ax,000fH
  312.  0301  50                                push    ax
  313.  0302  9a 00 00 00 00                    call    far SYSTEM_00C
  314.  0307  eb bf                             jmp     L4
  315.  0309  89 ec             L5              mov     sp,bp
  316.  030b  5d                                pop     bp
  317.  030c  ca 10 00                          retf    0010H
  318.  030f  01 20             L6              add     [bx+si],sp
  319.  0311                    GET_CFG:
  320.  0311  55                PCBDOORS_002    push    bp
  321.  0312  89 e5                             mov     bp,sp
  322.  0314  b8 89 02                          mov     ax,0289H
  323.  0317  9a 00 00 00 00                    call    far SYSTEM_034
  324.  031c  81 ec 89 02                       sub     sp,0289H
  325.  0320  c4 7e 22                          les     di,dword ptr +22H[bp]
  326.  0323  06                                push    es
  327.  0324  57                                push    di
  328.  0325  8d be 7f ff                       lea     di,-81H[bp]
  329.  0329  16                                push    ss
  330.  032a  57                                push    di
  331.  032b  b8 80 00                          mov     ax,0080H
  332.  032e  50                                push    ax
  333.  032f  9a 00 00 00 00                    call    far SYSTEM_00C
  334.  0334  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  335.  0337  26 c6 05 00                       mov     byte ptr es:[di],00H
  336.  033b  c4 7e 1a                          les     di,dword ptr +1aH[bp]
  337.  033e  26 c6 05 00                       mov     byte ptr es:[di],00H
  338.  0342  c4 7e 16                          les     di,dword ptr +16H[bp]
  339.  0345  31 c0                             xor     ax,ax
  340.  0347  26 89 05                          mov     es:[di],ax
  341.  034a  c4 7e 12                          les     di,dword ptr +12H[bp]
  342.  034d  31 c0                             xor     ax,ax
  343.  034f  26 89 05                          mov     es:[di],ax
  344.  0352  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  345.  0355  31 c0                             xor     ax,ax
  346.  0357  26 89 05                          mov     es:[di],ax
  347.  035a  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  348.  035d  31 c0                             xor     ax,ax
  349.  035f  26 89 05                          mov     es:[di],ax
  350.  0362  c4 7e 06                          les     di,dword ptr +6H[bp]
  351.  0365  26 c6 05 00                       mov     byte ptr es:[di],00H
  352.  0369  8d be 7f fe                       lea     di,-181H[bp]
  353.  036d  16                                push    ss
  354.  036e  57                                push    di
  355.  036f  8d be 7f ff                       lea     di,-81H[bp]
  356.  0373  16                                push    ss
  357.  0374  57                                push    di
  358.  0375  9a 00 00 00 00                    call    far SYSTEM_045
  359.  037a  8d be 7f fe                       lea     di,-181H[bp]
  360.  037e  16                                push    ss
  361.  037f  57                                push    di
  362.  0380  9a 00 00 00 00                    call    far SYSTEM_046
  363.  0385  9a 00 00 00 00                    call    far SYSTEM_031
  364.  038a  09 c0                             or      ax,ax
  365.  038c  75 79                             jne     L7
  366.  038e  8d be 7f fe                       lea     di,-181H[bp]
  367.  0392  16                                push    ss
  368.  0393  57                                push    di
  369.  0394  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  370.  0397  06                                push    es
  371.  0398  57                                push    di
  372.  0399  b8 80 00                          mov     ax,0080H
  373.  039c  50                                push    ax
  374.  039d  9a 00 00 00 00                    call    far SYSTEM_03E
  375.  03a2  9a 00 00 00 00                    call    far SYSTEM_041
  376.  03a7  8d be 7f fe                       lea     di,-181H[bp]
  377.  03ab  16                                push    ss
  378.  03ac  57                                push    di
  379.  03ad  c4 7e 1a                          les     di,dword ptr +1aH[bp]
  380.  03b0  06                                push    es
  381.  03b1  57                                push    di
  382.  03b2  b8 01 00                          mov     ax,0001H
  383.  03b5  50                                push    ax
  384.  03b6  9a 00 00 00 00                    call    far SYSTEM_03E
  385.  03bb  9a 00 00 00 00                    call    far SYSTEM_041
  386.  03c0  8d be 7f fe                       lea     di,-181H[bp]
  387.  03c4  16                                push    ss
  388.  03c5  57                                push    di
  389.  03c6  9a 00 00 00 00                    call    far SYSTEM_03F
  390.  03cb  c4 7e 16                          les     di,dword ptr +16H[bp]
  391.  03ce  26 89 05                          mov     es:[di],ax
  392.  03d1  9a 00 00 00 00                    call    far SYSTEM_041
  393.  03d6  8d be 7f fe                       lea     di,-181H[bp]
  394.  03da  16                                push    ss
  395.  03db  57                                push    di
  396.  03dc  9a 00 00 00 00                    call    far SYSTEM_03F
  397.  03e1  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  398.  03e4  26 89 05                          mov     es:[di],ax
  399.  03e7  9a 00 00 00 00                    call    far SYSTEM_041
  400.  03ec  8d be 7f fe                       lea     di,-181H[bp]
  401.  03f0  16                                push    ss
  402.  03f1  57                                push    di
  403.  03f2  c4 7e 06                          les     di,dword ptr +6H[bp]
  404.  03f5  06                                push    es
  405.  03f6  57                                push    di
  406.  03f7  b8 50 00                          mov     ax,0050H
  407.  03fa  50                                push    ax
  408.  03fb  9a 00 00 00 00                    call    far SYSTEM_03E
  409.  0400  9a 00 00 00 00                    call    far SYSTEM_041
  410.  0405  eb 07                             jmp     L8
  411.  0407  31 c0             L7              xor     ax,ax
  412.  0409  9a 00 00 00 00                    call    far SYSTEM_003
  413.  040e  8d be 7f fe       L8              lea     di,-181H[bp]
  414.  0412  16                                push    ss
  415.  0413  57                                push    di
  416.  0414  9a 00 00 00 00                    call    far SYSTEM_048
  417.  0419  bf 00 00                          mov     di,offset L6
  418.  041c  0e                                push    cs
  419.  041d  57                                push    di
  420.  041e  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  421.  0421  06                                push    es
  422.  0422  57                                push    di
  423.  0423  9a 00 00 00 00                    call    far SYSTEM_010
  424.  0428  48                                dec     ax
  425.  0429  09 c0                             or      ax,ax
  426.  042b  7e 33                             jle     L9
  427.  042d  8d be 77 fd                       lea     di,-289H[bp]
  428.  0431  16                                push    ss
  429.  0432  57                                push    di
  430.  0433  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  431.  0436  06                                push    es
  432.  0437  57                                push    di
  433.  0438  b8 01 00                          mov     ax,0001H
  434.  043b  50                                push    ax
  435.  043c  bf 00 00                          mov     di,offset L6
  436.  043f  0e                                push    cs
  437.  0440  57                                push    di
  438.  0441  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  439.  0444  06                                push    es
  440.  0445  57                                push    di
  441.  0446  9a 00 00 00 00                    call    far SYSTEM_010
  442.  044b  48                                dec     ax
  443.  044c  50                                push    ax
  444.  044d  9a 00 00 00 00                    call    far SYSTEM_00E
  445.  0452  c4 7e 1e                          les     di,dword ptr +1eH[bp]
  446.  0455  06                                push    es
  447.  0456  57                                push    di
  448.  0457  b8 80 00                          mov     ax,0080H
  449.  045a  50                                push    ax
  450.  045b  9a 00 00 00 00                    call    far SYSTEM_00C
  451.  0460  8d be 77 fd       L9              lea     di,-289H[bp]
  452.  0464  16                                push    ss
  453.  0465  57                                push    di
  454.  0466  c4 7e 1a                          les     di,dword ptr +1aH[bp]
  455.  0469  26 8a 45 01                       mov     al,es:+1H[di]
  456.  046d  50                                push    ax
  457.  046e  9a 00 00 00 00                    call    far SYSTEM_05A
  458.  0473  50                                push    ax
  459.  0474  9a 00 00 00 00                    call    far SYSTEM_012
  460.  0479  c4 7e 1a                          les     di,dword ptr +1aH[bp]
  461.  047c  06                                push    es
  462.  047d  57                                push    di
  463.  047e  b8 01 00                          mov     ax,0001H
  464.  0481  50                                push    ax
  465.  0482  9a 00 00 00 00                    call    far SYSTEM_00C
  466.  0487  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  467.  048a  26 8b 05                          mov     ax,es:[di]
  468.  048d  3d 02 00                          cmp     ax,0002H
  469.  0490  74 0a                             je      L10
  470.  0492  3d 03 00                          cmp     ax,0003H
  471.  0495  74 05                             je      L10
  472.  0497  3d 04 00                          cmp     ax,0004H
  473.  049a  75 0f                             jne     L11
  474.  049c  c4 7e 0a          L10             les     di,dword ptr +0aH[bp]
  475.  049f  26 8b 05                          mov     ax,es:[di]
  476.  04a2  48                                dec     ax
  477.  04a3  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  478.  04a6  26 89 05                          mov     es:[di],ax
  479.  04a9  eb 08                             jmp     L12
  480.  04ab  c4 7e 0a          L11             les     di,dword ptr +0aH[bp]
  481.  04ae  31 c0                             xor     ax,ax
  482.  04b0  26 89 05                          mov     es:[di],ax
  483.  04b3  8d be 77 fe       L12             lea     di,-189H[bp]
  484.  04b7  16                                push    ss
  485.  04b8  57                                push    di
  486.  04b9  8d be 79 fe                       lea     di,-187H[bp]
  487.  04bd  16                                push    ss
  488.  04be  57                                push    di
  489.  04bf  8d be 7b fe                       lea     di,-185H[bp]
  490.  04c3  16                                push    ss
  491.  04c4  57                                push    di
  492.  04c5  8d be 7d fe                       lea     di,-183H[bp]
  493.  04c9  16                                push    ss
  494.  04ca  57                                push    di
  495.  04cb  9a 00 00 00 00                    call    far DOS_005
  496.  04d0  8b 86 77 fe                       mov     ax,-189H[bp]
  497.  04d4  b9 3c 00                          mov     cx,003cH
  498.  04d7  f7 e1                             mul     cx
  499.  04d9  03 86 79 fe                       add     ax,-187H[bp]
  500.  04dd  c4 7e 12                          les     di,dword ptr +12H[bp]
  501.  04e0  26 89 05                          mov     es:[di],ax
  502.  04e3  c4 7e 12                          les     di,dword ptr +12H[bp]
  503.  04e6  26 8b 05                          mov     ax,es:[di]
  504.  04e9  c4 7e 16                          les     di,dword ptr +16H[bp]
  505.  04ec  26 03 05                          add     ax,es:[di]
  506.  04ef  99                                cwd     
  507.  04f0  b9 a0 05                          mov     cx,05a0H
  508.  04f3  f7 f9                             idiv    cx
  509.  04f5  92                                xchg    ax,dx
  510.  04f6  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  511.  04f9  26 89 05                          mov     es:[di],ax
  512.  04fc  83 3e 00 00 00                    cmp     word ptr TIME_OFF,0000H
  513.  0501  7c 14                             jl      L13
  514.  0503  a1 00 00                          mov     ax,TIME_OFF
  515.  0506  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  516.  0509  26 3b 05                          cmp     ax,es:[di]
  517.  050c  7d 09                             jge     L13
  518.  050e  a1 00 00                          mov     ax,TIME_OFF
  519.  0511  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  520.  0514  26 89 05                          mov     es:[di],ax
  521.  0517  89 ec             L13             mov     sp,bp
  522.  0519  5d                                pop     bp
  523.  051a  ca 20 00                          retf    0020H
  524.  051d  01 54 55          L14             add     +55H[si],dx
  525.  0520  89 e5                             mov     bp,sp
  526.  0522  b8 69 00                          mov     ax,0069H
  527.  0525  9a 00 00 00 00                    call    far SYSTEM_034
  528.  052a  83 ec 69                          sub     sp,0069H
  529.  052d  c4 7e 06                          les     di,dword ptr +6H[bp]
  530.  0530  06                                push    es
  531.  0531  57                                push    di
  532.  0532  8d 7e af                          lea     di,-51H[bp]
  533.  0535  16                                push    ss
  534.  0536  57                                push    di
  535.  0537  b8 50 00                          mov     ax,0050H
  536.  053a  50                                push    ax
  537.  053b  9a 00 00 00 00                    call    far SYSTEM_00C
  538.  0540  80 3e 00 00 4c                    cmp     byte ptr L130,4cH
  539.  0545  74 41                             je      L17
  540.  0547  8a 46 af                          mov     al,-51H[bp]
  541.  054a  30 e4                             xor     ah,ah
  542.  054c  89 46 97                          mov     -69H[bp],ax
  543.  054f  b8 01 00                          mov     ax,0001H
  544.  0552  3b 46 97                          cmp     ax,-69H[bp]
  545.  0555  7f 31                             jg      L17
  546.  0557  89 46 99                          mov     -67H[bp],ax
  547.  055a  eb 03                             jmp     L16
  548.  055c  ff 46 99          L15             inc     word ptr -67H[bp]
  549.  055f  8b 7e 99          L16             mov     di,-67H[bp]
  550.  0562  8a 43 af                          mov     al,-51H[bp+di]
  551.  0565  30 e4                             xor     ah,ah
  552.  0567  05 00 01                          add     ax,0100H
  553.  056a  89 46 9b                          mov     -65H[bp],ax
  554.  056d  a1 00 00                          mov     ax,COM
  555.  0570  89 46 a1                          mov     -5fH[bp],ax
  556.  0573  b0 14                             mov     al,14H
  557.  0575  50                                push    ax
  558.  0576  8d 7e 9b                          lea     di,-65H[bp]
  559.  0579  16                                push    ss
  560.  057a  57                                push    di
  561.  057b  9a 00 00 00 00                    call    far DOS_001
  562.  0580  8b 46 99                          mov     ax,-67H[bp]
  563.  0583  3b 46 97                          cmp     ax,-69H[bp]
  564.  0586  75 d4                             jne     L15
  565.  0588  80 3e 00 00 4c    L17             cmp     byte ptr L130,4cH
  566.  058d  74 11                             je      L18
  567.  058f  bf 00 00                          mov     di,offset ECHO
  568.  0592  1e                                push    ds
  569.  0593  57                                push    di
  570.  0594  bf 00 00                          mov     di,offset L14
  571.  0597  0e                                push    cs
  572.  0598  57                                push    di
  573.  0599  9a 00 00 00 00                    call    far SYSTEM_011
  574.  059e  75 17                             jne     L19
  575.  05a0  bf 00 00          L18             mov     di,offset SYSTEM_BSS+100H
  576.  05a3  1e                                push    ds
  577.  05a4  57                                push    di
  578.  05a5  8d 7e af                          lea     di,-51H[bp]
  579.  05a8  16                                push    ss
  580.  05a9  57                                push    di
  581.  05aa  31 c0                             xor     ax,ax
  582.  05ac  50                                push    ax
  583.  05ad  9a 00 00 00 00                    call    far SYSTEM_036
  584.  05b2  9a 00 00 00 00                    call    far SYSTEM_03B
  585.  05b7  89 ec             L19             mov     sp,bp
  586.  05b9  5d                                pop     bp
  587.  05ba  ca 04 00                          retf    0004H
  588.  05bd  01 0d             L20             add     [di],cx
  589.  05bf  01 0a             L21             add     [bp+si],cx
  590.  05c1                    WRTLN:
  591.  05c1  55                PCBDOORS_004    push    bp
  592.  05c2  89 e5                             mov     bp,sp
  593.  05c4  b8 65 01                          mov     ax,0165H
  594.  05c7  9a 00 00 00 00                    call    far SYSTEM_034
  595.  05cc  81 ec 65 01                       sub     sp,0165H
  596.  05d0  c4 7e 06                          les     di,dword ptr +6H[bp]
  597.  05d3  06                                push    es
  598.  05d4  57                                push    di
  599.  05d5  8d 7e af                          lea     di,-51H[bp]
  600.  05d8  16                                push    ss
  601.  05d9  57                                push    di
  602.  05da  b8 50 00                          mov     ax,0050H
  603.  05dd  50                                push    ax
  604.  05de  9a 00 00 00 00                    call    far SYSTEM_00C
  605.  05e3  8d 7e af                          lea     di,-51H[bp]
  606.  05e6  16                                push    ss
  607.  05e7  57                                push    di
  608.  05e8  0e                                push    cs
  609.  05e9  e8 00 00                          call    PCBDOORS_003
  610.  05ec  8d be 9b fe                       lea     di,-165H[bp]
  611.  05f0  16                                push    ss
  612.  05f1  57                                push    di
  613.  05f2  bf 00 00                          mov     di,offset L20
  614.  05f5  0e                                push    cs
  615.  05f6  57                                push    di
  616.  05f7  9a 00 00 00 00                    call    far SYSTEM_00B
  617.  05fc  bf 00 00                          mov     di,offset L21
  618.  05ff  0e                                push    cs
  619.  0600  57                                push    di
  620.  0601  9a 00 00 00 00                    call    far SYSTEM_00F
  621.  0606  0e                                push    cs
  622.  0607  e8 00 00                          call    PCBDOORS_003
  623.  060a  c7 46 9b 01 06                    mov     word ptr -65H[bp],0601H
  624.  060f  c7 46 9d 00 07                    mov     word ptr -63H[bp],0700H
  625.  0614  31 c0                             xor     ax,ax
  626.  0616  89 46 9f                          mov     -61H[bp],ax
  627.  0619  c7 46 a1 4f 15                    mov     word ptr -5fH[bp],154fH
  628.  061e  b0 10                             mov     al,10H
  629.  0620  50                                push    ax
  630.  0621  8d 7e 9b                          lea     di,-65H[bp]
  631.  0624  16                                push    ss
  632.  0625  57                                push    di
  633.  0626  9a 00 00 00 00                    call    far DOS_001
  634.  062b  b8 01 00                          mov     ax,0001H
  635.  062e  50                                push    ax
  636.  062f  b8 16 00                          mov     ax,0016H
  637.  0632  50                                push    ax
  638.  0633  0e                                push    cs
  639.  0634  e8 00 00                          call    PCBDOORS_00C
  640.  0637  89 ec                             mov     sp,bp
  641.  0639  5d                                pop     bp
  642.  063a  ca 04 00                          retf    0004H
  643.  063d                    CK_TIME:
  644.  063d  55                PCBDOORS_005    push    bp
  645.  063e  89 e5                             mov     bp,sp
  646.  0640  b8 0d 00                          mov     ax,000dH
  647.  0643  9a 00 00 00 00                    call    far SYSTEM_034
  648.  0648  83 ec 0d                          sub     sp,000dH
  649.  064b  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  650.  064f  8d 7e f3                          lea     di,-0dH[bp]
  651.  0652  16                                push    ss
  652.  0653  57                                push    di
  653.  0654  8d 7e f5                          lea     di,-0bH[bp]
  654.  0657  16                                push    ss
  655.  0658  57                                push    di
  656.  0659  8d 7e f7                          lea     di,-9H[bp]
  657.  065c  16                                push    ss
  658.  065d  57                                push    di
  659.  065e  8d 7e f9                          lea     di,-7H[bp]
  660.  0661  16                                push    ss
  661.  0662  57                                push    di
  662.  0663  9a 00 00 00 00                    call    far DOS_005
  663.  0668  8b 46 f3                          mov     ax,-0dH[bp]
  664.  066b  b9 3c 00                          mov     cx,003cH
  665.  066e  f7 e1                             mul     cx
  666.  0670  03 46 f5                          add     ax,-0bH[bp]
  667.  0673  89 46 fb                          mov     -5H[bp],ax
  668.  0676  81 7e fb 28 05                    cmp     word ptr -5H[bp],0528H
  669.  067b  7e 11                             jle     L22
  670.  067d  83 7e 06 78                       cmp     word ptr +6H[bp],0078H
  671.  0681  7d 0b                             jge     L22
  672.  0683  8b 46 06                          mov     ax,+6H[bp]
  673.  0686  05 a0 05                          add     ax,05a0H
  674.  0689  89 46 fd                          mov     -3H[bp],ax
  675.  068c  eb 06                             jmp     L23
  676.  068e  8b 46 06          L22             mov     ax,+6H[bp]
  677.  0691  89 46 fd                          mov     -3H[bp],ax
  678.  0694  8b 46 fb          L23             mov     ax,-5H[bp]
  679.  0697  3b 46 fd                          cmp     ax,-3H[bp]
  680.  069a  7c 04                             jl      L24
  681.  069c  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  682.  06a0  8a 46 ff          L24             mov     al,-1H[bp]
  683.  06a3  89 ec                             mov     sp,bp
  684.  06a5  5d                                pop     bp
  685.  06a6  ca 02 00                          retf    0002H
  686.  06a9  00 0f             L25             add     [bx],cl
  687.  06ab  43                                inc     bx
  688.  06ac  61                                popa    
  689.  06ad  72 72                             jb      L29
  690.  06af  69 65 72 20 4c                    imul    sp,+72H[di],4c20H
  691.  06b4  6f                                outsw   
  692.  06b5  73 74                             jae     L31
  693.  06b7  2e 2e                             seg     
  694.  06b9  2e 01 46 55                       add     cs:+55H[bp],ax
  695.  06bd  89 e5                             mov     bp,sp
  696.  06bf  b8 35 00                          mov     ax,0035H
  697.  06c2  9a 00 00 00 00                    call    far SYSTEM_034
  698.  06c7  83 ec 35                          sub     sp,0035H
  699.  06ca  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  700.  06ce  80 3e 00 00 4c                    cmp     byte ptr L130,4cH
  701.  06d3  75 03                             jne     L28
  702.  06d5  e9 02 01                          jmp     L36
  703.  06d8  c7 46 eb 00 03    L28             mov     word ptr -15H[bp],0300H
  704.  06dd  a1 00 00                          mov     ax,COM
  705.  06e0  89 46 f1                          mov     -0fH[bp],ax
  706.  06e3  b0 14                             mov     al,14H
  707.  06e5  50                                push    ax
  708.  06e6  8d 7e eb                          lea     di,-15H[bp]
  709.  06e9  16                                push    ss
  710.  06ea  57                                push    di
  711.  06eb  9a 00 00 00 00                    call    far DOS_001
  712.  06f0  8a 46 eb                          mov     al,-15H[bp]
  713.  06f3  24 80                             and     al,80H
  714.  06f5  08 c0                             or      al,al
  715.  06f7  75 2b                             jne     L30
  716.  06f9  bf 00 00                          mov     di,offset L25
  717.  06fc  0e                                push    cs
  718.  06fd  57                                push    di
  719.  06fe  0e                                push    cs
  720.  06ff  e8 00 00                          call    PCBDOORS_004
  721.  0702  bf 00 00                          mov     di,offset L25
  722.  0705  0e                                push    cs
  723.  0706  57                                push    di
  724.  0707  0e                                push    cs
  725.  0708  e8 00 00                          call    PCBDOORS_004
  726.  070b  bf 00 00                          mov     di,offset L26
  727.  070e  0e                                push    cs
  728.  070f  57                                push    di
  729.  0710  0e                                push    cs
  730.  0711  e8 00 00                          call    PCBDOORS_004
  731.  0714  bf 00 00                          mov     di,offset L25
  732.  0717  0e                                push    cs
  733.  0718  57                                push    di
  734.  0719  0e                                push    cs
  735.  071a  e8 00 00                          call    PCBDOORS_004
  736.  071d  31 c0                             xor     ax,ax
  737.  071f  9a 00 00 00 00                    call    far SYSTEM_003
  738.  0724  83 3e 00 00 00    L30             cmp     word ptr COM,0000H
  739.  0729  74 03                             je      L32
  740.  072b  e9 81 00          L31             jmp     L35
  741.  072e  c7 46 eb 06 44    L32             mov     word ptr -15H[bp],4406H
  742.  0733  c7 46 ed 03 00                    mov     word ptr -13H[bp],0003H
  743.  0738  8d 7e eb                          lea     di,-15H[bp]
  744.  073b  16                                push    ss
  745.  073c  57                                push    di
  746.  073d  9a 00 00 00 00                    call    far DOS_002
  747.  0742  80 7e eb ff                       cmp     byte ptr -15H[bp],0ffH
  748.  0746  75 65                             jne     L34
  749.  0748  c7 46 eb 00 03                    mov     word ptr -15H[bp],0300H
  750.  074d  8d 7e eb                          lea     di,-15H[bp]
  751.  0750  16                                push    ss
  752.  0751  57                                push    di
  753.  0752  9a 00 00 00 00                    call    far DOS_002
  754.  0757  8a 46 eb                          mov     al,-15H[bp]
  755.  075a  c4 7e 06                          les     di,dword ptr +6H[bp]
  756.  075d  26 88 05                          mov     es:[di],al
  757.  0760  c4 7e 06                          les     di,dword ptr +6H[bp]
  758.  0763  26 8a 05                          mov     al,es:[di]
  759.  0766  50                                push    ax
  760.  0767  8d 7e cb                          lea     di,-35H[bp]
  761.  076a  16                                push    ss
  762.  076b  57                                push    di
  763.  076c  9a 00 00 00 00                    call    far SYSTEM_028
  764.  0771  b0 20                             mov     al,20H
  765.  0773  50                                push    ax
  766.  0774  b0 7e                             mov     al,7eH
  767.  0776  50                                push    ax
  768.  0777  9a 00 00 00 00                    call    far SYSTEM_02A
  769.  077c  9a 00 00 00 00                    call    far SYSTEM_018
  770.  0781  74 26                             je      L33
  771.  0783  bf 00 00                          mov     di,offset ECHO
  772.  0786  1e                                push    ds
  773.  0787  57                                push    di
  774.  0788  bf 00 00                          mov     di,offset L27
  775.  078b  0e                                push    cs
  776.  078c  57                                push    di
  777.  078d  9a 00 00 00 00                    call    far SYSTEM_011
  778.  0792  75 15                             jne     L33
  779.  0794  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  780.  0797  1e                                push    ds
  781.  0798  57                                push    di
  782.  0799  b0 08                             mov     al,08H
  783.  079b  50                                push    ax
  784.  079c  31 c0                             xor     ax,ax
  785.  079e  50                                push    ax
  786.  079f  9a 00 00 00 00                    call    far SYSTEM_039
  787.  07a4  9a 00 00 00 00                    call    far SYSTEM_03B
  788.  07a9  c6 46 ff 01       L33             mov     byte ptr -1H[bp],01H
  789.  07ad  eb 2b             L34             jmp     L36
  790.  07af  c7 46 eb 00 02    L35             mov     word ptr -15H[bp],0200H
  791.  07b4  a1 00 00                          mov     ax,COM
  792.  07b7  89 46 f1                          mov     -0fH[bp],ax
  793.  07ba  b0 14                             mov     al,14H
  794.  07bc  50                                push    ax
  795.  07bd  8d 7e eb                          lea     di,-15H[bp]
  796.  07c0  16                                push    ss
  797.  07c1  57                                push    di
  798.  07c2  9a 00 00 00 00                    call    far DOS_001
  799.  07c7  80 7e ec 00                       cmp     byte ptr -14H[bp],00H
  800.  07cb  75 0d                             jne     L36
  801.  07cd  8a 46 eb                          mov     al,-15H[bp]
  802.  07d0  c4 7e 06                          les     di,dword ptr +6H[bp]
  803.  07d3  26 88 05                          mov     es:[di],al
  804.  07d6  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  805.  07da  8a 46 ff          L36             mov     al,-1H[bp]
  806.  07dd  89 ec                             mov     sp,bp
  807.  07df  5d                                pop     bp
  808.  07e0  ca 04 00                          retf    0004H
  809.  07e3  00 12             L37             add     [bp+si],dl
  810.  07e5  53                                push    bx
  811.  07e6  79 73                             jns     L46
  812.  07e8  6f                                outsw   
  813.  07e9  70 20                             jo      L41
  814.  07eb  49                                dec     cx
  815.  07ec  6e                                outsb   
  816.  07ed  74 65                             je      L45
  817.  07ef  72 72                             jb      L47
  818.  07f1  75 70                             jne     L47
  819.  07f3  74 2e                             je      L42
  820.  07f5  2e 2e                             seg     
  821.  07f7  0f 43             L39             ?????
  822.  07f9  68 61 74                          push    7461H
  823.  07fc  20 6d 6f                          and     +6fH[di],ch
  824.  07ff  64 65 20 6f 6e                    and     gs:+6eH[bx],ch
  825.  0804  2e 2e                             seg     
  826.  0806  2e 10 43 68                       adc     cs:+68H[bp+di],al
  827.  080a  61                                popa    
  828.  080b  74 20             L41             je      L43
  829.  080d  6d                                insw    
  830.  080e  6f                                outsw   
  831.  080f  64 65 20 6f 66                    and     gs:+66H[bx],ch
  832.  0814  66 2e 2e                          seg     
  833.  0817  2e 55                             push    bp
  834.  0819  89 e5                             mov     bp,sp
  835.  081b  b8 15 00                          mov     ax,0015H
  836.  081e  9a 00 00 00 00                    call    far SYSTEM_034
  837.  0823  83 ec 15          L42             sub     sp,0015H
  838.  0826  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  839.  082a  c7 46 eb 00 01                    mov     word ptr -15H[bp],0100H
  840.  082f  b0 16                             mov     al,16H
  841.  0831  50                                push    ax
  842.  0832  8d 7e eb                          lea     di,-15H[bp]
  843.  0835  16                                push    ss
  844.  0836  57                                push    di
  845.  0837  9a 00 00 00 00                    call    far DOS_001
  846.  083c  8a 46 fd                          mov     al,-3H[bp]
  847.  083f  24 40                             and     al,40H
  848.  0841  08 c0                             or      al,al
  849.  0843  74 03                             je      L44
  850.  0845  e9 c4 00                          jmp     L50
  851.  0848  8a 46 eb          L44             mov     al,-15H[bp]
  852.  084b  c4 7e 06                          les     di,dword ptr +6H[bp]
  853.  084e  26 88 05                          mov     es:[di],al
  854.  0851  31 c0                             xor     ax,ax
  855.  0853  89 46 eb                          mov     -15H[bp],ax
  856.  0856  b0 16                             mov     al,16H
  857.  0858  50                                push    ax
  858.  0859  8d 7e eb                          lea     di,-15H[bp]
  859.  085c  16                                push    ss
  860.  085d  57                                push    di
  861.  085e  9a 00 00 00 00                    call    far DOS_001
  862.  0863  c6 46 ff 01       L47             mov     byte ptr -1H[bp],01H
  863.  0867  80 7e ec 42                       cmp     byte ptr -14H[bp],42H
  864.  086b  75 2d                             jne     L48
  865.  086d  bf 00 00                          mov     di,offset L37
  866.  0870  0e                                push    cs
  867.  0871  57                                push    di
  868.  0872  0e                                push    cs
  869.  0873  e8 00 00                          call    PCBDOORS_004
  870.  0876  bf 00 00                          mov     di,offset L37
  871.  0879  0e                                push    cs
  872.  087a  57                                push    di
  873.  087b  0e                                push    cs
  874.  087c  e8 00 00                          call    PCBDOORS_004
  875.  087f  bf 00 00                          mov     di,offset L38
  876.  0882  0e                                push    cs
  877.  0883  57                                push    di
  878.  0884  0e                                push    cs
  879.  0885  e8 00 00                          call    PCBDOORS_004
  880.  0888  bf 00 00                          mov     di,offset L37
  881.  088b  0e                                push    cs
  882.  088c  57                                push    di
  883.  088d  0e                                push    cs
  884.  088e  e8 00 00                          call    PCBDOORS_004
  885.  0891  31 c0                             xor     ax,ax
  886.  0893  9a 00 00 00 00                    call    far SYSTEM_003
  887.  0898  eb 72                             jmp     L50
  888.  089a  80 7e ec 44       L48             cmp     byte ptr -14H[bp],44H
  889.  089e  75 36                             jne     L49
  890.  08a0  80 3e 00 00 00                    cmp     byte ptr CHAT,00H
  891.  08a5  75 2f                             jne     L49
  892.  08a7  bf 00 00                          mov     di,offset L37
  893.  08aa  0e                                push    cs
  894.  08ab  57                                push    di
  895.  08ac  0e                                push    cs
  896.  08ad  e8 00 00                          call    PCBDOORS_004
  897.  08b0  bf 00 00                          mov     di,offset L37
  898.  08b3  0e                                push    cs
  899.  08b4  57                                push    di
  900.  08b5  0e                                push    cs
  901.  08b6  e8 00 00                          call    PCBDOORS_004
  902.  08b9  bf 00 00                          mov     di,offset L39
  903.  08bc  0e                                push    cs
  904.  08bd  57                                push    di
  905.  08be  0e                                push    cs
  906.  08bf  e8 00 00                          call    PCBDOORS_004
  907.  08c2  bf 00 00                          mov     di,offset L37
  908.  08c5  0e                                push    cs
  909.  08c6  57                                push    di
  910.  08c7  0e                                push    cs
  911.  08c8  e8 00 00                          call    PCBDOORS_004
  912.  08cb  c6 06 00 00 01                    mov     byte ptr CHAT,01H
  913.  08d0  0e                                push    cs
  914.  08d1  e8 00 00                          call    PCBDOORS_00D
  915.  08d4  eb 36                             jmp     L50
  916.  08d6  80 7e ec 01       L49             cmp     byte ptr -14H[bp],01H
  917.  08da  75 30                             jne     L50
  918.  08dc  80 3e 00 00 00                    cmp     byte ptr CHAT,00H
  919.  08e1  74 29                             je      L50
  920.  08e3  bf 00 00                          mov     di,offset L37
  921.  08e6  0e                                push    cs
  922.  08e7  57                                push    di
  923.  08e8  0e                                push    cs
  924.  08e9  e8 00 00                          call    PCBDOORS_004
  925.  08ec  bf 00 00                          mov     di,offset L37
  926.  08ef  0e                                push    cs
  927.  08f0  57                                push    di
  928.  08f1  0e                                push    cs
  929.  08f2  e8 00 00                          call    PCBDOORS_004
  930.  08f5  bf 00 00                          mov     di,offset L40
  931.  08f8  0e                                push    cs
  932.  08f9  57                                push    di
  933.  08fa  0e                                push    cs
  934.  08fb  e8 00 00                          call    PCBDOORS_004
  935.  08fe  bf 00 00                          mov     di,offset L37
  936.  0901  0e                                push    cs
  937.  0902  57                                push    di
  938.  0903  0e                                push    cs
  939.  0904  e8 00 00                          call    PCBDOORS_004
  940.  0907  c6 06 00 00 00                    mov     byte ptr CHAT,00H
  941.  090c  8a 46 ff          L50             mov     al,-1H[bp]
  942.  090f  89 ec                             mov     sp,bp
  943.  0911  5d                                pop     bp
  944.  0912  ca 04 00                          retf    0004H
  945.  0915                    IO_FLUSH:
  946.  0915  55                PCBDOORS_006    push    bp
  947.  0916  89 e5                             mov     bp,sp
  948.  0918  b8 02 00                          mov     ax,0002H
  949.  091b  9a 00 00 00 00                    call    far SYSTEM_034
  950.  0920  83 ec 02                          sub     sp,0002H
  951.  0923  c6 46 fe 01                       mov     byte ptr -2H[bp],01H
  952.  0927  8d 7e ff          L51             lea     di,-1H[bp]
  953.  092a  16                                push    ss
  954.  092b  57                                push    di
  955.  092c  0e                                push    cs
  956.  092d  e8 00 00                          call    PCBDOORS_00F
  957.  0930  08 c0                             or      al,al
  958.  0932  75 11                             jne     L52
  959.  0934  8d 7e ff                          lea     di,-1H[bp]
  960.  0937  16                                push    ss
  961.  0938  57                                push    di
  962.  0939  0e                                push    cs
  963.  093a  e8 00 00                          call    PCBDOORS_00E
  964.  093d  08 c0                             or      al,al
  965.  093f  75 04                             jne     L52
  966.  0941  c6 46 fe 00                       mov     byte ptr -2H[bp],00H
  967.  0945  80 7e fe 00       L52             cmp     byte ptr -2H[bp],00H
  968.  0949  75 dc                             jne     L51
  969.  094b  89 ec                             mov     sp,bp
  970.  094d  5d                                pop     bp
  971.  094e  cb                                retf    
  972.  094f  00 13             L53             add     [bp+di],dl
  973.  0951  4b                                dec     bx
  974.  0952  65 79 62                          jns     L57
  975.  0955  6f                                outsw   
  976.  0956  61                                popa    
  977.  0957  72 64                             jb      L58
  978.  0959  20 74 69                          and     +69H[si],dh
  979.  095c  6d                                insw    
  980.  095d  65 6f                             outs    dx,word ptr gs:[si]
  981.  095f  75 74                             jne     L60
  982.  0961  2e 2e                             seg     
  983.  0963  2e 01 07                          add     cs:[bx],ax
  984.  0966  55                PCBDOORS_010    push    bp
  985.  0967  89 e5                             mov     bp,sp
  986.  0969  b8 10 00                          mov     ax,0010H
  987.  096c  9a 00 00 00 00                    call    far SYSTEM_034
  988.  0971  83 ec 10                          sub     sp,0010H
  989.  0974  c6 46 fc 00                       mov     byte ptr -4H[bp],00H
  990.  0978  c6 46 fd 01                       mov     byte ptr -3H[bp],01H
  991.  097c  8d 7e f0                          lea     di,-10H[bp]
  992.  097f  16                                push    ss
  993.  0980  57                                push    di
  994.  0981  8d 7e f2                          lea     di,-0eH[bp]
  995.  0984  16                                push    ss
  996.  0985  57                                push    di
  997.  0986  8d 7e f4                          lea     di,-0cH[bp]
  998.  0989  16                                push    ss
  999.  098a  57                                push    di
  1000.  098b  8d 7e f6                          lea     di,-0aH[bp]
  1001.  098e  16                                push    ss
  1002.  098f  57                                push    di
  1003.  0990  9a 00 00 00 00                    call    far DOS_005
  1004.  0995  8b 46 f0                          mov     ax,-10H[bp]
  1005.  0998  b9 3c 00                          mov     cx,003cH
  1006.  099b  f7 e1                             mul     cx
  1007.  099d  03 46 f2                          add     ax,-0eH[bp]
  1008.  09a0  89 46 fa                          mov     -6H[bp],ax
  1009.  09a3  8d 7e fe          L56             lea     di,-2H[bp]
  1010.  09a6  16                                push    ss
  1011.  09a7  57                                push    di
  1012.  09a8  0e                                push    cs
  1013.  09a9  e8 00 00                          call    PCBDOORS_00F
  1014.  09ac  08 c0                             or      al,al
  1015.  09ae  74 07                             je      L57
  1016.  09b0  c6 46 fc 01                       mov     byte ptr -4H[bp],01H
  1017.  09b4  e9 81 00                          jmp     L64
  1018.  09b7  8d 7e fe          L57             lea     di,-2H[bp]
  1019.  09ba  16                                push    ss
  1020.  09bb  57                                push    di
  1021.  09bc  0e                                push    cs
  1022.  09bd  e8 00 00          L58             call    PCBDOORS_00E
  1023.  09c0  08 c0                             or      al,al
  1024.  09c2  74 06                             je      L59
  1025.  09c4  c6 46 fc 01                       mov     byte ptr -4H[bp],01H
  1026.  09c8  eb 6e                             jmp     L64
  1027.  09ca  8b 46 fa          L59             mov     ax,-6H[bp]
  1028.  09cd  05 04 00                          add     ax,0004H
  1029.  09d0  50                                push    ax
  1030.  09d1  0e                                push    cs
  1031.  09d2  e8 00 00                          call    CK_TIME
  1032.  09d5  08 c0             L60             or      al,al
  1033.  09d7  75 2d                             jne     L61
  1034.  09d9  bf 00 00                          mov     di,offset L53
  1035.  09dc  0e                                push    cs
  1036.  09dd  57                                push    di
  1037.  09de  0e                                push    cs
  1038.  09df  e8 00 00                          call    PCBDOORS_004
  1039.  09e2  bf 00 00                          mov     di,offset L53
  1040.  09e5  0e                                push    cs
  1041.  09e6  57                                push    di
  1042.  09e7  0e                                push    cs
  1043.  09e8  e8 00 00                          call    PCBDOORS_004
  1044.  09eb  bf 00 00                          mov     di,offset L54
  1045.  09ee  0e                                push    cs
  1046.  09ef  57                                push    di
  1047.  09f0  0e                                push    cs
  1048.  09f1  e8 00 00                          call    PCBDOORS_004
  1049.  09f4  bf 00 00                          mov     di,offset L53
  1050.  09f7  0e                                push    cs
  1051.  09f8  57                                push    di
  1052.  09f9  0e                                push    cs
  1053.  09fa  e8 00 00                          call    PCBDOORS_004
  1054.  09fd  31 c0                             xor     ax,ax
  1055.  09ff  9a 00 00 00 00                    call    far SYSTEM_003
  1056.  0a04  eb 32                             jmp     L64
  1057.  0a06  8b 46 fa          L61             mov     ax,-6H[bp]
  1058.  0a09  05 03 00                          add     ax,0003H
  1059.  0a0c  50                                push    ax
  1060.  0a0d  0e                                push    cs
  1061.  0a0e  e8 00 00                          call    CK_TIME
  1062.  0a11  08 c0                             or      al,al
  1063.  0a13  75 23                             jne     L64
  1064.  0a15  80 7e fd 00                       cmp     byte ptr -3H[bp],00H
  1065.  0a19  74 1d                             je      L64
  1066.  0a1b  c7 46 f8 01 00                    mov     word ptr -8H[bp],0001H
  1067.  0a20  eb 03                             jmp     L63
  1068.  0a22  ff 46 f8          L62             inc     word ptr -8H[bp]
  1069.  0a25  bf 00 00          L63             mov     di,offset L55
  1070.  0a28  0e                                push    cs
  1071.  0a29  57                                push    di
  1072.  0a2a  0e                                push    cs
  1073.  0a2b  e8 00 00                          call    PCBDOORS_003
  1074.  0a2e  83 7e f8 05                       cmp     word ptr -8H[bp],0005H
  1075.  0a32  75 ee                             jne     L62
  1076.  0a34  c6 46 fd 00                       mov     byte ptr -3H[bp],00H
  1077.  0a38  80 7e fc 00       L64             cmp     byte ptr -4H[bp],00H
  1078.  0a3c  75 03                             jne     L65
  1079.  0a3e  e9 62 ff                          jmp     L56
  1080.  0a41  8a 46 fe          L65             mov     al,-2H[bp]
  1081.  0a44  88 46 ff                          mov     -1H[bp],al
  1082.  0a47  8a 46 ff                          mov     al,-1H[bp]
  1083.  0a4a  89 ec                             mov     sp,bp
  1084.  0a4c  5d                                pop     bp
  1085.  0a4d  cb                                retf    
  1086.  0a4e  00 01             L66             add     [bx+di],al
  1087.  0a50  07                                pop     es
  1088.  0a51  55                PCBDOORS_00D    push    bp
  1089.  0a52  89 e5                             mov     bp,sp
  1090.  0a54  b8 23 01                          mov     ax,0123H
  1091.  0a57  9a 00 00 00 00                    call    far SYSTEM_034
  1092.  0a5c  81 ec 23 01                       sub     sp,0123H
  1093.  0a60  31 c0                             xor     ax,ax
  1094.  0a62  89 46 fd                          mov     -3H[bp],ax
  1095.  0a65  0e                L68             push    cs
  1096.  0a66  e8 00 00                          call    PCBDOORS_010
  1097.  0a69  88 46 ff                          mov     -1H[bp],al
  1098.  0a6c  80 7e ff 0d                       cmp     byte ptr -1H[bp],0dH
  1099.  0a70  75 10                             jne     L69
  1100.  0a72  bf 00 00                          mov     di,offset L66
  1101.  0a75  0e                                push    cs
  1102.  0a76  57                                push    di
  1103.  0a77  0e                                push    cs
  1104.  0a78  e8 00 00                          call    PCBDOORS_004
  1105.  0a7b  31 c0                             xor     ax,ax
  1106.  0a7d  89 46 fd                          mov     -3H[bp],ax
  1107.  0a80  eb 57                             jmp     L72
  1108.  0a82  8a 46 ff          L69             mov     al,-1H[bp]
  1109.  0a85  50                                push    ax
  1110.  0a86  8d 7e dd                          lea     di,-23H[bp]
  1111.  0a89  16                                push    ss
  1112.  0a8a  57                                push    di
  1113.  0a8b  9a 00 00 00 00                    call    far SYSTEM_028
  1114.  0a90  b0 20                             mov     al,20H
  1115.  0a92  50                                push    ax
  1116.  0a93  b0 7e                             mov     al,7eH
  1117.  0a95  50                                push    ax
  1118.  0a96  9a 00 00 00 00                    call    far SYSTEM_02A
  1119.  0a9b  b0 08                             mov     al,08H
  1120.  0a9d  50                                push    ax
  1121.  0a9e  9a 00 00 00 00                    call    far SYSTEM_029
  1122.  0aa3  9a 00 00 00 00                    call    far SYSTEM_018
  1123.  0aa8  75 0e                             jne     L70
  1124.  0aaa  bf 00 00                          mov     di,offset L67
  1125.  0aad  0e                                push    cs
  1126.  0aae  57                                push    di
  1127.  0aaf  0e                                push    cs
  1128.  0ab0  e8 00 00                          call    PCBDOORS_003
  1129.  0ab3  ff 4e fd                          dec     word ptr -3H[bp]
  1130.  0ab6  eb 21                             jmp     L72
  1131.  0ab8  8d be dd fe       L70             lea     di,-123H[bp]
  1132.  0abc  16                                push    ss
  1133.  0abd  57                                push    di
  1134.  0abe  8a 46 ff                          mov     al,-1H[bp]
  1135.  0ac1  50                                push    ax
  1136.  0ac2  9a 00 00 00 00                    call    far SYSTEM_012
  1137.  0ac7  0e                                push    cs
  1138.  0ac8  e8 00 00                          call    PCBDOORS_003
  1139.  0acb  80 7e ff 08                       cmp     byte ptr -1H[bp],08H
  1140.  0acf  74 05                             je      L71
  1141.  0ad1  ff 46 fd                          inc     word ptr -3H[bp]
  1142.  0ad4  eb 03                             jmp     L72
  1143.  0ad6  ff 4e fd          L71             dec     word ptr -3H[bp]
  1144.  0ad9  83 7e fd 4e       L72             cmp     word ptr -3H[bp],004eH
  1145.  0add  75 0e                             jne     L73
  1146.  0adf  31 c0                             xor     ax,ax
  1147.  0ae1  89 46 fd                          mov     -3H[bp],ax
  1148.  0ae4  bf 00 00                          mov     di,offset L66
  1149.  0ae7  0e                                push    cs
  1150.  0ae8  57                                push    di
  1151.  0ae9  0e                                push    cs
  1152.  0aea  e8 00 00                          call    PCBDOORS_004
  1153.  0aed  80 3e 00 00 00    L73             cmp     byte ptr CHAT,00H
  1154.  0af2  74 03                             je      L74
  1155.  0af4  e9 6e ff                          jmp     L68
  1156.  0af7  89 ec             L74             mov     sp,bp
  1157.  0af9  5d                                pop     bp
  1158.  0afa  cb                                retf    
  1159.  0afb  00 55 89          L75             add     -77H[di],dl
  1160.  0afe  e5 b8                             in      ax,0b8H
  1161.  0b00  22 01                             and     al,[bx+di]
  1162.  0b02  9a 00 00 00 00                    call    far SYSTEM_034
  1163.  0b07  81 ec 22 01                       sub     sp,0122H
  1164.  0b0b  c6 06 00 00 00                    mov     byte ptr CHAT,00H
  1165.  0b10  0e                                push    cs
  1166.  0b11  e8 00 00                          call    PCBDOORS_010
  1167.  0b14  50                                push    ax
  1168.  0b15  9a 00 00 00 00                    call    far SYSTEM_05A
  1169.  0b1a  88 46 fe                          mov     -2H[bp],al
  1170.  0b1d  8a 46 fe                          mov     al,-2H[bp]
  1171.  0b20  50                                push    ax
  1172.  0b21  8d 7e de                          lea     di,-22H[bp]
  1173.  0b24  16                                push    ss
  1174.  0b25  57                                push    di
  1175.  0b26  9a 00 00 00 00                    call    far SYSTEM_028
  1176.  0b2b  b0 20                             mov     al,20H
  1177.  0b2d  50                                push    ax
  1178.  0b2e  b0 7e                             mov     al,7eH
  1179.  0b30  50                                push    ax
  1180.  0b31  9a 00 00 00 00                    call    far SYSTEM_02A
  1181.  0b36  9a 00 00 00 00                    call    far SYSTEM_018
  1182.  0b3b  74 1b                             je      L76
  1183.  0b3d  8d be de fe                       lea     di,-122H[bp]
  1184.  0b41  16                                push    ss
  1185.  0b42  57                                push    di
  1186.  0b43  8a 46 fe                          mov     al,-2H[bp]
  1187.  0b46  50                                push    ax
  1188.  0b47  9a 00 00 00 00                    call    far SYSTEM_012
  1189.  0b4c  0e                                push    cs
  1190.  0b4d  e8 00 00                          call    PCBDOORS_004
  1191.  0b50  8a 46 fe                          mov     al,-2H[bp]
  1192.  0b53  88 46 ff                          mov     -1H[bp],al
  1193.  0b56  eb 0d                             jmp     L77
  1194.  0b58  c6 46 fe 0d       L76             mov     byte ptr -2H[bp],0dH
  1195.  0b5c  bf 00 00                          mov     di,offset L75
  1196.  0b5f  0e                                push    cs
  1197.  0b60  57                                push    di
  1198.  0b61  0e                                push    cs
  1199.  0b62  e8 00 00                          call    PCBDOORS_004
  1200.  0b65  8a 46 ff          L77             mov     al,-1H[bp]
  1201.  0b68  89 ec                             mov     sp,bp
  1202.  0b6a  5d                                pop     bp
  1203.  0b6b  cb                                retf    
  1204.  0b6c  01 08             L78             add     [bx+si],cx
  1205.  0b6e  01 20             L79             add     [bx+si],sp
  1206.  0b70  00 01             L80             add     [bx+di],al
  1207.  0b72  07                                pop     es
  1208.  0b73                    GETNUM:
  1209.  0b73  55                PCBDOORS_008    push    bp
  1210.  0b74  89 e5                             mov     bp,sp
  1211.  0b76  b8 6e 02                          mov     ax,026eH
  1212.  0b79  9a 00 00 00 00                    call    far SYSTEM_034
  1213.  0b7e  81 ec 6e 02                       sub     sp,026eH
  1214.  0b82  c6 06 00 00 00                    mov     byte ptr CHAT,00H
  1215.  0b87  c6 46 f7 00                       mov     byte ptr -9H[bp],00H
  1216.  0b8b  c4 7e 06                          les     di,dword ptr +6H[bp]
  1217.  0b8e  31 c0                             xor     ax,ax
  1218.  0b90  26 89 05                          mov     es:[di],ax
  1219.  0b93  c6 46 f2 00                       mov     byte ptr -0eH[bp],00H
  1220.  0b97  0e                L82             push    cs
  1221.  0b98  e8 00 00                          call    PCBDOORS_010
  1222.  0b9b  50                                push    ax
  1223.  0b9c  9a 00 00 00 00                    call    far SYSTEM_05A
  1224.  0ba1  88 46 fe                          mov     -2H[bp],al
  1225.  0ba4  80 7e f8 2d                       cmp     byte ptr -8H[bp],2dH
  1226.  0ba8  75 07                             jne     L83
  1227.  0baa  c7 46 f5 06 00                    mov     word ptr -0bH[bp],0006H
  1228.  0baf  eb 05                             jmp     L84
  1229.  0bb1  c7 46 f5 05 00    L83             mov     word ptr -0bH[bp],0005H
  1230.  0bb6  8a 46 fe          L84             mov     al,-2H[bp]
  1231.  0bb9  50                                push    ax
  1232.  0bba  8d 7e d2                          lea     di,-2eH[bp]
  1233.  0bbd  16                                push    ss
  1234.  0bbe  57                                push    di
  1235.  0bbf  9a 00 00 00 00                    call    far SYSTEM_028
  1236.  0bc4  b0 30                             mov     al,30H
  1237.  0bc6  50                                push    ax
  1238.  0bc7  b0 39                             mov     al,39H
  1239.  0bc9  50                                push    ax
  1240.  0bca  9a 00 00 00 00                    call    far SYSTEM_02A
  1241.  0bcf  b0 2d                             mov     al,2dH
  1242.  0bd1  50                                push    ax
  1243.  0bd2  9a 00 00 00 00                    call    far SYSTEM_029
  1244.  0bd7  9a 00 00 00 00                    call    far SYSTEM_018
  1245.  0bdc  75 03                             jne     L85
  1246.  0bde  e9 f0 00                          jmp     L89
  1247.  0be1  8a 46 f7          L85             mov     al,-9H[bp]
  1248.  0be4  30 e4                             xor     ah,ah
  1249.  0be6  3b 46 f5                          cmp     ax,-0bH[bp]
  1250.  0be9  7c 03                             jl      L86
  1251.  0beb  e9 e3 00                          jmp     L89
  1252.  0bee  80 7e f7 00       L86             cmp     byte ptr -9H[bp],00H
  1253.  0bf2  75 6f                             jne     L87
  1254.  0bf4  8a 46 fe                          mov     al,-2H[bp]
  1255.  0bf7  50                                push    ax
  1256.  0bf8  8d 7e b2                          lea     di,-4eH[bp]
  1257.  0bfb  16                                push    ss
  1258.  0bfc  57                                push    di
  1259.  0bfd  9a 00 00 00 00                    call    far SYSTEM_028
  1260.  0c02  b0 30                             mov     al,30H
  1261.  0c04  50                                push    ax
  1262.  0c05  b0 39                             mov     al,39H
  1263.  0c07  50                                push    ax
  1264.  0c08  9a 00 00 00 00                    call    far SYSTEM_02A
  1265.  0c0d  b0 2d                             mov     al,2dH
  1266.  0c0f  50                                push    ax
  1267.  0c10  9a 00 00 00 00                    call    far SYSTEM_029
  1268.  0c15  9a 00 00 00 00                    call    far SYSTEM_018
  1269.  0c1a  74 47                             je      L87
  1270.  0c1c  8d be b2 fe                       lea     di,-14eH[bp]
  1271.  0c20  16                                push    ss
  1272.  0c21  57                                push    di
  1273.  0c22  8a 46 fe                          mov     al,-2H[bp]
  1274.  0c25  50                                push    ax
  1275.  0c26  9a 00 00 00 00                    call    far SYSTEM_012
  1276.  0c2b  0e                                push    cs
  1277.  0c2c  e8 00 00                          call    PCBDOORS_003
  1278.  0c2f  8d be b2 fe                       lea     di,-14eH[bp]
  1279.  0c33  16                                push    ss
  1280.  0c34  57                                push    di
  1281.  0c35  8d 7e f7                          lea     di,-9H[bp]
  1282.  0c38  16                                push    ss
  1283.  0c39  57                                push    di
  1284.  0c3a  9a 00 00 00 00                    call    far SYSTEM_00B
  1285.  0c3f  8d be b2 fd                       lea     di,-24eH[bp]
  1286.  0c43  16                                push    ss
  1287.  0c44  57                                push    di
  1288.  0c45  8a 46 fe                          mov     al,-2H[bp]
  1289.  0c48  50                                push    ax
  1290.  0c49  9a 00 00 00 00                    call    far SYSTEM_012
  1291.  0c4e  9a 00 00 00 00                    call    far SYSTEM_00F
  1292.  0c53  8d 7e f7                          lea     di,-9H[bp]
  1293.  0c56  16                                push    ss
  1294.  0c57  57                                push    di
  1295.  0c58  b8 06 00                          mov     ax,0006H
  1296.  0c5b  50                                push    ax
  1297.  0c5c  9a 00 00 00 00                    call    far SYSTEM_00C
  1298.  0c61  eb 6b                             jmp     L88
  1299.  0c63  80 7e f7 00       L87             cmp     byte ptr -9H[bp],00H
  1300.  0c67  76 65                             jbe     L88
  1301.  0c69  8a 46 fe                          mov     al,-2H[bp]
  1302.  0c6c  50                                push    ax
  1303.  0c6d  8d 7e 92                          lea     di,-6eH[bp]
  1304.  0c70  16                                push    ss
  1305.  0c71  57                                push    di
  1306.  0c72  9a 00 00 00 00                    call    far SYSTEM_028
  1307.  0c77  b0 30                             mov     al,30H
  1308.  0c79  50                                push    ax
  1309.  0c7a  b0 39                             mov     al,39H
  1310.  0c7c  50                                push    ax
  1311.  0c7d  9a 00 00 00 00                    call    far SYSTEM_02A
  1312.  0c82  9a 00 00 00 00                    call    far SYSTEM_018
  1313.  0c87  74 45                             je      L88
  1314.  0c89  8d be 92 fe                       lea     di,-16eH[bp]
  1315.  0c8d  16                                push    ss
  1316.  0c8e  57                                push    di
  1317.  0c8f  8a 46 fe                          mov     al,-2H[bp]
  1318.  0c92  50                                push    ax
  1319.  0c93  9a 00 00 00 00                    call    far SYSTEM_012
  1320.  0c98  0e                                push    cs
  1321.  0c99  e8 00 00                          call    PCBDOORS_003
  1322.  0c9c  8d be 92 fe                       lea     di,-16eH[bp]
  1323.  0ca0  16                                push    ss
  1324.  0ca1  57                                push    di
  1325.  0ca2  8d 7e f7                          lea     di,-9H[bp]
  1326.  0ca5  16                                push    ss
  1327.  0ca6  57                                push    di
  1328.  0ca7  9a 00 00 00 00                    call    far SYSTEM_00B
  1329.  0cac  8d be 92 fd                       lea     di,-26eH[bp]
  1330.  0cb0  16                                push    ss
  1331.  0cb1  57                                push    di
  1332.  0cb2  8a 46 fe                          mov     al,-2H[bp]
  1333.  0cb5  50                                push    ax
  1334.  0cb6  9a 00 00 00 00                    call    far SYSTEM_012
  1335.  0cbb  9a 00 00 00 00                    call    far SYSTEM_00F
  1336.  0cc0  8d 7e f7                          lea     di,-9H[bp]
  1337.  0cc3  16                                push    ss
  1338.  0cc4  57                                push    di
  1339.  0cc5  b8 06 00                          mov     ax,0006H
  1340.  0cc8  50                                push    ax
  1341.  0cc9  9a 00 00 00 00                    call    far SYSTEM_00C
  1342.  0cce  e9 99 00          L88             jmp     L92
  1343.  0cd1  80 7e fe 08       L89             cmp     byte ptr -2H[bp],08H
  1344.  0cd5  75 59                             jne     L90
  1345.  0cd7  80 7e f7 00                       cmp     byte ptr -9H[bp],00H
  1346.  0cdb  76 53                             jbe     L90
  1347.  0cdd  8d be d2 fe                       lea     di,-12eH[bp]
  1348.  0ce1  16                                push    ss
  1349.  0ce2  57                                push    di
  1350.  0ce3  bf 00 00                          mov     di,offset L78
  1351.  0ce6  0e                                push    cs
  1352.  0ce7  57                                push    di
  1353.  0ce8  9a 00 00 00 00                    call    far SYSTEM_00B
  1354.  0ced  bf 00 00                          mov     di,offset L79
  1355.  0cf0  0e                                push    cs
  1356.  0cf1  57                                push    di
  1357.  0cf2  9a 00 00 00 00                    call    far SYSTEM_00F
  1358.  0cf7  bf 00 00                          mov     di,offset L78
  1359.  0cfa  0e                                push    cs
  1360.  0cfb  57                                push    di
  1361.  0cfc  9a 00 00 00 00                    call    far SYSTEM_00F
  1362.  0d01  0e                                push    cs
  1363.  0d02  e8 00 00                          call    PCBDOORS_003
  1364.  0d05  8d be d2 fe                       lea     di,-12eH[bp]
  1365.  0d09  16                                push    ss
  1366.  0d0a  57                                push    di
  1367.  0d0b  8d 7e f7                          lea     di,-9H[bp]
  1368.  0d0e  16                                push    ss
  1369.  0d0f  57                                push    di
  1370.  0d10  b8 01 00                          mov     ax,0001H
  1371.  0d13  50                                push    ax
  1372.  0d14  8a 46 f7                          mov     al,-9H[bp]
  1373.  0d17  30 e4                             xor     ah,ah
  1374.  0d19  48                                dec     ax
  1375.  0d1a  50                                push    ax
  1376.  0d1b  9a 00 00 00 00                    call    far SYSTEM_00E
  1377.  0d20  8d 7e f7                          lea     di,-9H[bp]
  1378.  0d23  16                                push    ss
  1379.  0d24  57                                push    di
  1380.  0d25  b8 06 00                          mov     ax,0006H
  1381.  0d28  50                                push    ax
  1382.  0d29  9a 00 00 00 00                    call    far SYSTEM_00C
  1383.  0d2e  eb 3a                             jmp     L92
  1384.  0d30  80 7e fe 0d       L90             cmp     byte ptr -2H[bp],0dH
  1385.  0d34  75 0b                             jne     L91
  1386.  0d36  bf 00 00                          mov     di,offset L80
  1387.  0d39  0e                                push    cs
  1388.  0d3a  57                                push    di
  1389.  0d3b  0e                                push    cs
  1390.  0d3c  e8 00 00                          call    PCBDOORS_004
  1391.  0d3f  eb 29                             jmp     L92
  1392.  0d41  8a 46 fe          L91             mov     al,-2H[bp]
  1393.  0d44  50                                push    ax
  1394.  0d45  8d 7e b2                          lea     di,-4eH[bp]
  1395.  0d48  16                                push    ss
  1396.  0d49  57                                push    di
  1397.  0d4a  9a 00 00 00 00                    call    far SYSTEM_028
  1398.  0d4f  b0 30                             mov     al,30H
  1399.  0d51  50                                push    ax
  1400.  0d52  b0 39                             mov     al,39H
  1401.  0d54  50                                push    ax
  1402.  0d55  9a 00 00 00 00                    call    far SYSTEM_02A
  1403.  0d5a  9a 00 00 00 00                    call    far SYSTEM_018
  1404.  0d5f  75 09                             jne     L92
  1405.  0d61  bf 00 00                          mov     di,offset L81
  1406.  0d64  0e                                push    cs
  1407.  0d65  57                                push    di
  1408.  0d66  0e                                push    cs
  1409.  0d67  e8 00 00                          call    PCBDOORS_003
  1410.  0d6a  80 7e fe 0d       L92             cmp     byte ptr -2H[bp],0dH
  1411.  0d6e  74 09                             je      L93
  1412.  0d70  80 7e f2 00                       cmp     byte ptr -0eH[bp],00H
  1413.  0d74  75 03                             jne     L93
  1414.  0d76  e9 1e fe                          jmp     L82
  1415.  0d79  80 7e f2 00       L93             cmp     byte ptr -0eH[bp],00H
  1416.  0d7d  75 41                             jne     L96
  1417.  0d7f  80 7e f7 00                       cmp     byte ptr -9H[bp],00H
  1418.  0d83  75 0e                             jne     L94
  1419.  0d85  c4 7e 06                          les     di,dword ptr +6H[bp]
  1420.  0d88  31 c0                             xor     ax,ax
  1421.  0d8a  26 89 05                          mov     es:[di],ax
  1422.  0d8d  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1423.  0d91  eb 2d                             jmp     L96
  1424.  0d93  8d 7e f7          L94             lea     di,-9H[bp]
  1425.  0d96  16                                push    ss
  1426.  0d97  57                                push    di
  1427.  0d98  8d 7e f3                          lea     di,-0dH[bp]
  1428.  0d9b  16                                push    ss
  1429.  0d9c  57                                push    di
  1430.  0d9d  9a 00 00 00 00                    call    far SYSTEM_062
  1431.  0da2  c4 7e 06                          les     di,dword ptr +6H[bp]
  1432.  0da5  26 89 05                          mov     es:[di],ax
  1433.  0da8  83 7e f3 00                       cmp     word ptr -0dH[bp],0000H
  1434.  0dac  75 06                             jne     L95
  1435.  0dae  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1436.  0db2  eb 0c                             jmp     L96
  1437.  0db4  c6 46 ff 00       L95             mov     byte ptr -1H[bp],00H
  1438.  0db8  c4 7e 06                          les     di,dword ptr +6H[bp]
  1439.  0dbb  31 c0                             xor     ax,ax
  1440.  0dbd  26 89 05                          mov     es:[di],ax
  1441.  0dc0  8a 46 ff          L96             mov     al,-1H[bp]
  1442.  0dc3  89 ec                             mov     sp,bp
  1443.  0dc5  5d                                pop     bp
  1444.  0dc6  ca 04 00                          retf    0004H
  1445.  0dc9  01 08             L97             add     [bx+si],cx
  1446.  0dcb  01 20             L98             add     [bx+si],sp
  1447.  0dcd  00 01             L99             add     [bx+di],al
  1448.  0dcf  07                                pop     es
  1449.  0dd0                    GETSTR:
  1450.  0dd0  55                PCBDOORS_009    push    bp
  1451.  0dd1  89 e5                             mov     bp,sp
  1452.  0dd3  b8 22 02                          mov     ax,0222H
  1453.  0dd6  9a 00 00 00 00                    call    far SYSTEM_034
  1454.  0ddb  81 ec 22 02                       sub     sp,0222H
  1455.  0ddf  c6 06 00 00 00                    mov     byte ptr CHAT,00H
  1456.  0de4  c4 7e 06                          les     di,dword ptr +6H[bp]
  1457.  0de7  26 c6 05 00                       mov     byte ptr es:[di],00H
  1458.  0deb  0e                L101            push    cs
  1459.  0dec  e8 00 00                          call    PCBDOORS_010
  1460.  0def  50                                push    ax
  1461.  0df0  9a 00 00 00 00                    call    far SYSTEM_05A
  1462.  0df5  88 46 fe                          mov     -2H[bp],al
  1463.  0df8  8a 46 fe                          mov     al,-2H[bp]
  1464.  0dfb  50                                push    ax
  1465.  0dfc  8d 7e de                          lea     di,-22H[bp]
  1466.  0dff  16                                push    ss
  1467.  0e00  57                                push    di
  1468.  0e01  bf 00 00                          mov     di,offset STR_RANGE
  1469.  0e04  1e                                push    ds
  1470.  0e05  57                                push    di
  1471.  0e06  b8 20 00                          mov     ax,0020H
  1472.  0e09  50                                push    ax
  1473.  0e0a  9a 00 00 00 00                    call    far SYSTEM_016
  1474.  0e0f  9a 00 00 00 00                    call    far SYSTEM_018
  1475.  0e14  74 55                             je      L102
  1476.  0e16  c4 7e 06                          les     di,dword ptr +6H[bp]
  1477.  0e19  26 8a 05                          mov     al,es:[di]
  1478.  0e1c  30 e4                             xor     ah,ah
  1479.  0e1e  3b 46 0a                          cmp     ax,+0aH[bp]
  1480.  0e21  7d 48                             jge     L102
  1481.  0e23  8d be de fe                       lea     di,-122H[bp]
  1482.  0e27  16                                push    ss
  1483.  0e28  57                                push    di
  1484.  0e29  8a 46 fe                          mov     al,-2H[bp]
  1485.  0e2c  50                                push    ax
  1486.  0e2d  9a 00 00 00 00                    call    far SYSTEM_012
  1487.  0e32  0e                                push    cs
  1488.  0e33  e8 00 00                          call    PCBDOORS_003
  1489.  0e36  8d be de fe                       lea     di,-122H[bp]
  1490.  0e3a  16                                push    ss
  1491.  0e3b  57                                push    di
  1492.  0e3c  c4 7e 06                          les     di,dword ptr +6H[bp]
  1493.  0e3f  06                                push    es
  1494.  0e40  57                                push    di
  1495.  0e41  9a 00 00 00 00                    call    far SYSTEM_00B
  1496.  0e46  8d be de fd                       lea     di,-222H[bp]
  1497.  0e4a  16                                push    ss
  1498.  0e4b  57                                push    di
  1499.  0e4c  8a 46 fe                          mov     al,-2H[bp]
  1500.  0e4f  50                                push    ax
  1501.  0e50  9a 00 00 00 00                    call    far SYSTEM_012
  1502.  0e55  9a 00 00 00 00                    call    far SYSTEM_00F
  1503.  0e5a  c4 7e 06                          les     di,dword ptr +6H[bp]
  1504.  0e5d  06                                push    es
  1505.  0e5e  57                                push    di
  1506.  0e5f  b8 50 00                          mov     ax,0050H
  1507.  0e62  50                                push    ax
  1508.  0e63  9a 00 00 00 00                    call    far SYSTEM_00C
  1509.  0e68  e9 9d 00                          jmp     L105
  1510.  0e6b  80 7e fe 08       L102            cmp     byte ptr -2H[bp],08H
  1511.  0e6f  75 5f                             jne     L103
  1512.  0e71  c4 7e 06                          les     di,dword ptr +6H[bp]
  1513.  0e74  26 80 3d 00                       cmp     byte ptr es:[di],00H
  1514.  0e78  76 56                             jbe     L103
  1515.  0e7a  8d be de fe                       lea     di,-122H[bp]
  1516.  0e7e  16                                push    ss
  1517.  0e7f  57                                push    di
  1518.  0e80  bf 00 00                          mov     di,offset L97
  1519.  0e83  0e                                push    cs
  1520.  0e84  57                                push    di
  1521.  0e85  9a 00 00 00 00                    call    far SYSTEM_00B
  1522.  0e8a  bf 00 00                          mov     di,offset L98
  1523.  0e8d  0e                                push    cs
  1524.  0e8e  57                                push    di
  1525.  0e8f  9a 00 00 00 00                    call    far SYSTEM_00F
  1526.  0e94  bf 00 00                          mov     di,offset L97
  1527.  0e97  0e                                push    cs
  1528.  0e98  57                                push    di
  1529.  0e99  9a 00 00 00 00                    call    far SYSTEM_00F
  1530.  0e9e  0e                                push    cs
  1531.  0e9f  e8 00 00                          call    PCBDOORS_003
  1532.  0ea2  8d be de fe                       lea     di,-122H[bp]
  1533.  0ea6  16                                push    ss
  1534.  0ea7  57                                push    di
  1535.  0ea8  c4 7e 06                          les     di,dword ptr +6H[bp]
  1536.  0eab  06                                push    es
  1537.  0eac  57                                push    di
  1538.  0ead  b8 01 00                          mov     ax,0001H
  1539.  0eb0  50                                push    ax
  1540.  0eb1  c4 7e 06                          les     di,dword ptr +6H[bp]
  1541.  0eb4  26 8a 05                          mov     al,es:[di]
  1542.  0eb7  30 e4                             xor     ah,ah
  1543.  0eb9  48                                dec     ax
  1544.  0eba  50                                push    ax
  1545.  0ebb  9a 00 00 00 00                    call    far SYSTEM_00E
  1546.  0ec0  c4 7e 06                          les     di,dword ptr +6H[bp]
  1547.  0ec3  06                                push    es
  1548.  0ec4  57                                push    di
  1549.  0ec5  b8 50 00                          mov     ax,0050H
  1550.  0ec8  50                                push    ax
  1551.  0ec9  9a 00 00 00 00                    call    far SYSTEM_00C
  1552.  0ece  eb 38                             jmp     L105
  1553.  0ed0  80 7e fe 0d       L103            cmp     byte ptr -2H[bp],0dH
  1554.  0ed4  75 0b                             jne     L104
  1555.  0ed6  bf 00 00                          mov     di,offset L99
  1556.  0ed9  0e                                push    cs
  1557.  0eda  57                                push    di
  1558.  0edb  0e                                push    cs
  1559.  0edc  e8 00 00                          call    PCBDOORS_004
  1560.  0edf  eb 27                             jmp     L105
  1561.  0ee1  8a 46 fe          L104            mov     al,-2H[bp]
  1562.  0ee4  50                                push    ax
  1563.  0ee5  8d 7e be                          lea     di,-42H[bp]
  1564.  0ee8  16                                push    ss
  1565.  0ee9  57                                push    di
  1566.  0eea  bf 00 00                          mov     di,offset STR_RANGE
  1567.  0eed  1e                                push    ds
  1568.  0eee  57                                push    di
  1569.  0eef  b8 20 00                          mov     ax,0020H
  1570.  0ef2  50                                push    ax
  1571.  0ef3  9a 00 00 00 00                    call    far SYSTEM_016
  1572.  0ef8  9a 00 00 00 00                    call    far SYSTEM_018
  1573.  0efd  75 09                             jne     L105
  1574.  0eff  bf 00 00                          mov     di,offset L100
  1575.  0f02  0e                                push    cs
  1576.  0f03  57                                push    di
  1577.  0f04  0e                                push    cs
  1578.  0f05  e8 00 00                          call    PCBDOORS_003
  1579.  0f08  80 7e fe 0d       L105            cmp     byte ptr -2H[bp],0dH
  1580.  0f0c  74 03                             je      L106
  1581.  0f0e  e9 da fe                          jmp     L101
  1582.  0f11  c6 46 ff 01       L106            mov     byte ptr -1H[bp],01H
  1583.  0f15  8a 46 ff                          mov     al,-1H[bp]
  1584.  0f18  89 ec                             mov     sp,bp
  1585.  0f1a  5d                                pop     bp
  1586.  0f1b  ca 06 00                          retf    0006H
  1587.  0f1e  39 50 43          L107            cmp     +43H[bx+si],dx
  1588.  0f21  42                                inc     dx
  1589.  0f22  4f                                dec     di
  1590.  0f23  41                                inc     cx
  1591.  0f24  52                                push    dx
  1592.  0f25  44                                inc     sp
  1593.  0f26  20 44 4f                          and     +4fH[si],al
  1594.  0f29  4f                                dec     di
  1595.  0f2a  52                                push    dx
  1596.  0f2b  53                                push    bx
  1597.  0f2c  20 53 55                          and     +55H[bp+di],dl
  1598.  0f2f  50                                push    ax
  1599.  0f30  50                                push    ax
  1600.  0f31  4f                                dec     di
  1601.  0f32  52                                push    dx
  1602.  0f33  54                                push    sp
  1603.  0f34  20 52 4f                          and     +4fH[bp+si],dl
  1604.  0f37  55                                push    bp
  1605.  0f38  54                                push    sp
  1606.  0f39  49                                dec     cx
  1607.  0f3a  4e                                dec     si
  1608.  0f3b  45                                inc     bp
  1609.  0f3c  53                                push    bx
  1610.  0f3d  20 2d                             and     [di],ch
  1611.  0f3f  20 54 55                          and     +55H[si],dl
  1612.  0f42  52                                push    dx
  1613.  0f43  42                                inc     dx
  1614.  0f44  4f                                dec     di
  1615.  0f45  20 50 41                          and     +41H[bx+si],dl
  1616.  0f48  53                                push    bx
  1617.  0f49  43                                inc     bx
  1618.  0f4a  41                                inc     cx
  1619.  0f4b  4c                                dec     sp
  1620.  0f4c  20 34                             and     [si],dh
  1621.  0f4e  2e 30 20                          xor     cs:[bx+si],ah
  1622.  0f51  56                                push    si
  1623.  0f52  45                                inc     bp
  1624.  0f53  52                                push    dx
  1625.  0f54  53                                push    bx
  1626.  0f55  49                                dec     cx
  1627.  0f56  4f                                dec     di
  1628.  0f57  4e                                dec     si
  1629.  0f58  26 43             L108            inc     bx
  1630.  0f5a  6f                                outsw   
  1631.  0f5b  70 79                             jo      L116
  1632.  0f5d  72 69                             jb      L113
  1633.  0f5f  67 68 74 20                       push    2074H
  1634.  0f63  28 43 29                          sub     +29H[bp+di],al
  1635.  0f66  31 39                             xor     [bx+di],di
  1636.  0f68  38 38                             cmp     [bx+si],bh
  1637.  0f6a  20 4a 6f                          and     +6fH[bp+si],cl
  1638.  0f6d  73 65                             jae     L115
  1639.  0f6f  70 68                             jo      L117
  1640.  0f71  20 45 2e                          and     +2eH[di],al
  1641.  0f74  20 47 6f                          and     +6fH[bx],al
  1642.  0f77  6f                                outsw   
  1643.  0f78  64 69 6e 20 49 49                 imul    bp,fs:+20H[bp],4949H
  1644.  0f7e  49                                dec     cx
  1645.  0f7f  08 43 61          L109            or      +61H[bp+di],al
  1646.  0f82  6c                                insb    
  1647.  0f83  6c                                insb    
  1648.  0f84  65 72 3a                          jb      PCBDOORS_00A
  1649.  0f87  20 09                             and     [bx+di],cl
  1650.  0f89  54                                push    sp
  1651.  0f8a  69 6d 65 20 6f                    imul    bp,+65H[di],6f20H
  1652.  0f8f  6e                                outsb   
  1653.  0f90  3a 20                             cmp     ah,[bx+si]
  1654.  0f92  2e 3c 46          L111            cmp     al,46H
  1655.  0f95  38 3e 20 45                       cmp     [00004520H],bh
  1656.  0f99  78 69                             js      L119
  1657.  0f9b  74 20                             je      L112
  1658.  0f9d  20 20                             and     [bx+si],ah
  1659.  0f9f  20 20                             and     [bx+si],ah
  1660.  0fa1  3c 46                             cmp     al,46H
  1661.  0fa3  31 30                             xor     [bx+si],si
  1662.  0fa5  3e 20 43 68                       and     ds:+68H[bp+di],al
  1663.  0fa9  61                                popa    
  1664.  0faa  74 20                             je      L114
  1665.  0fac  4f                                dec     di
  1666.  0fad  4e                                dec     si
  1667.  0fae  20 20                             and     [bx+si],ah
  1668.  0fb0  20 20                             and     [bx+si],ah
  1669.  0fb2  20 3c                             and     [si],bh
  1670.  0fb4  45                                inc     bp
  1671.  0fb5  53                                push    bx
  1672.  0fb6  43                                inc     bx
  1673.  0fb7  3e 20 43 68                       and     ds:+68H[bp+di],al
  1674.  0fbb  61                                popa    
  1675.  0fbc  74 20                             je      L118
  1676.  0fbe  4f                                dec     di
  1677.  0fbf  46                                inc     si
  1678.  0fc0  46                                inc     si
  1679.  0fc1                    SYSOP_WINDOW:
  1680.  0fc1  55                PCBDOORS_00A    push    bp
  1681.  0fc2  89 e5                             mov     bp,sp
  1682.  0fc4  b8 0a 00                          mov     ax,000aH
  1683.  0fc7  9a 00 00 00 00                    call    far SYSTEM_034
  1684.  0fcc  83 ec 0a          L114            sub     sp,000aH
  1685.  0fcf  b0 00                             mov     al,00H
  1686.  0fd1  50                                push    ax
  1687.  0fd2  9a 00 00 00 00                    call    far CRT_00E
  1688.  0fd7  b0 0f                             mov     al,0fH
  1689.  0fd9  50                L117            push    ax
  1690.  0fda  9a 00 00 00 00                    call    far CRT_00D
  1691.  0fdf  b8 01 00                          mov     ax,0001H
  1692.  0fe2  50                                push    ax
  1693.  0fe3  b8 01 00                          mov     ax,0001H
  1694.  0fe6  50                                push    ax
  1695.  0fe7  b8 50 00                          mov     ax,0050H
  1696.  0fea  50                                push    ax
  1697.  0feb  b8 19 00                          mov     ax,0019H
  1698.  0fee  50                                push    ax
  1699.  0fef  0e                                push    cs
  1700.  0ff0  e8 00 00                          call    PCBDOORS_00B
  1701.  0ff3  b0 0f                             mov     al,0fH
  1702.  0ff5  50                                push    ax
  1703.  0ff6  9a 00 00 00 00                    call    far CRT_00E
  1704.  0ffb  b0 00                             mov     al,00H
  1705.  0ffd  50                                push    ax
  1706.  0ffe  9a 00 00 00 00                    call    far CRT_00D
  1707.  1003  b8 02 00                          mov     ax,0002H
  1708.  1006  50                                push    ax
  1709.  1007  b8 18 00                          mov     ax,0018H
  1710.  100a  50                                push    ax
  1711.  100b  0e                                push    cs
  1712.  100c  e8 00 00                          call    PCBDOORS_00C
  1713.  100f  c7 46 fe 02 00                    mov     word ptr -2H[bp],0002H
  1714.  1014  eb 03                             jmp     L121
  1715.  1016  ff 46 fe          L120            inc     word ptr -2H[bp]
  1716.  1019  bf 00 00          L121            mov     di,offset SYSTEM_BSS+100H
  1717.  101c  1e                                push    ds
  1718.  101d  57                                push    di
  1719.  101e  b0 20                             mov     al,20H
  1720.  1020  50                                push    ax
  1721.  1021  31 c0                             xor     ax,ax
  1722.  1023  50                                push    ax
  1723.  1024  9a 00 00 00 00                    call    far SYSTEM_039
  1724.  1029  9a 00 00 00 00                    call    far SYSTEM_03B
  1725.  102e  83 7e fe 4f                       cmp     word ptr -2H[bp],004fH
  1726.  1032  75 e2                             jne     L120
  1727.  1034  b8 02 00                          mov     ax,0002H
  1728.  1037  50                                push    ax
  1729.  1038  b8 19 00                          mov     ax,0019H
  1730.  103b  50                                push    ax
  1731.  103c  0e                                push    cs
  1732.  103d  e8 00 00                          call    PCBDOORS_00C
  1733.  1040  c7 46 fe 02 00                    mov     word ptr -2H[bp],0002H
  1734.  1045  eb 03                             jmp     L123
  1735.  1047  ff 46 fe          L122            inc     word ptr -2H[bp]
  1736.  104a  bf 00 00          L123            mov     di,offset SYSTEM_BSS+100H
  1737.  104d  1e                                push    ds
  1738.  104e  57                                push    di
  1739.  104f  b0 20                             mov     al,20H
  1740.  1051  50                                push    ax
  1741.  1052  31 c0                             xor     ax,ax
  1742.  1054  50                                push    ax
  1743.  1055  9a 00 00 00 00                    call    far SYSTEM_039
  1744.  105a  9a 00 00 00 00                    call    far SYSTEM_03B
  1745.  105f  83 7e fe 4f                       cmp     word ptr -2H[bp],004fH
  1746.  1063  75 e2                             jne     L122
  1747.  1065  b8 0b 00                          mov     ax,000bH
  1748.  1068  50                                push    ax
  1749.  1069  b8 18 00                          mov     ax,0018H
  1750.  106c  50                                push    ax
  1751.  106d  0e                                push    cs
  1752.  106e  e8 00 00                          call    PCBDOORS_00C
  1753.  1071  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1754.  1074  1e                                push    ds
  1755.  1075  57                                push    di
  1756.  1076  bf 00 00                          mov     di,offset L107
  1757.  1079  0e                                push    cs
  1758.  107a  57                                push    di
  1759.  107b  31 c0                             xor     ax,ax
  1760.  107d  50                                push    ax
  1761.  107e  9a 00 00 00 00                    call    far SYSTEM_036
  1762.  1083  9a 00 00 00 00                    call    far SYSTEM_03B
  1763.  1088  b8 15 00                          mov     ax,0015H
  1764.  108b  50                                push    ax
  1765.  108c  b8 19 00                          mov     ax,0019H
  1766.  108f  50                                push    ax
  1767.  1090  0e                                push    cs
  1768.  1091  e8 00 00                          call    PCBDOORS_00C
  1769.  1094  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1770.  1097  1e                                push    ds
  1771.  1098  57                                push    di
  1772.  1099  bf 00 00                          mov     di,offset L108
  1773.  109c  0e                                push    cs
  1774.  109d  57                                push    di
  1775.  109e  31 c0                             xor     ax,ax
  1776.  10a0  50                                push    ax
  1777.  10a1  9a 00 00 00 00                    call    far SYSTEM_036
  1778.  10a6  9a 00 00 00 00                    call    far SYSTEM_03B
  1779.  10ab  b8 e8 03                          mov     ax,03e8H
  1780.  10ae  50                                push    ax
  1781.  10af  9a 00 00 00 00                    call    far CRT_012
  1782.  10b4  b8 02 00                          mov     ax,0002H
  1783.  10b7  50                                push    ax
  1784.  10b8  b8 18 00                          mov     ax,0018H
  1785.  10bb  50                                push    ax
  1786.  10bc  0e                                push    cs
  1787.  10bd  e8 00 00                          call    PCBDOORS_00C
  1788.  10c0  c7 46 fe 02 00                    mov     word ptr -2H[bp],0002H
  1789.  10c5  eb 03                             jmp     L125
  1790.  10c7  ff 46 fe          L124            inc     word ptr -2H[bp]
  1791.  10ca  bf 00 00          L125            mov     di,offset SYSTEM_BSS+100H
  1792.  10cd  1e                                push    ds
  1793.  10ce  57                                push    di
  1794.  10cf  b0 20                             mov     al,20H
  1795.  10d1  50                                push    ax
  1796.  10d2  31 c0                             xor     ax,ax
  1797.  10d4  50                                push    ax
  1798.  10d5  9a 00 00 00 00                    call    far SYSTEM_039
  1799.  10da  9a 00 00 00 00                    call    far SYSTEM_03B
  1800.  10df  83 7e fe 4f                       cmp     word ptr -2H[bp],004fH
  1801.  10e3  75 e2                             jne     L124
  1802.  10e5  b8 02 00                          mov     ax,0002H
  1803.  10e8  50                                push    ax
  1804.  10e9  b8 19 00                          mov     ax,0019H
  1805.  10ec  50                                push    ax
  1806.  10ed  0e                                push    cs
  1807.  10ee  e8 00 00                          call    PCBDOORS_00C
  1808.  10f1  c7 46 fe 02 00                    mov     word ptr -2H[bp],0002H
  1809.  10f6  eb 03                             jmp     L127
  1810.  10f8  ff 46 fe          L126            inc     word ptr -2H[bp]
  1811.  10fb  bf 00 00          L127            mov     di,offset SYSTEM_BSS+100H
  1812.  10fe  1e                                push    ds
  1813.  10ff  57                                push    di
  1814.  1100  b0 20                             mov     al,20H
  1815.  1102  50                                push    ax
  1816.  1103  31 c0                             xor     ax,ax
  1817.  1105  50                                push    ax
  1818.  1106  9a 00 00 00 00                    call    far SYSTEM_039
  1819.  110b  9a 00 00 00 00                    call    far SYSTEM_03B
  1820.  1110  83 7e fe 4f                       cmp     word ptr -2H[bp],004fH
  1821.  1114  75 e2                             jne     L126
  1822.  1116  b8 05 00                          mov     ax,0005H
  1823.  1119  50                                push    ax
  1824.  111a  b8 18 00                          mov     ax,0018H
  1825.  111d  50                                push    ax
  1826.  111e  0e                                push    cs
  1827.  111f  e8 00 00                          call    PCBDOORS_00C
  1828.  1122  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1829.  1125  1e                                push    ds
  1830.  1126  57                                push    di
  1831.  1127  bf 00 00                          mov     di,offset L109
  1832.  112a  0e                                push    cs
  1833.  112b  57                                push    di
  1834.  112c  31 c0                             xor     ax,ax
  1835.  112e  50                                push    ax
  1836.  112f  9a 00 00 00 00                    call    far SYSTEM_036
  1837.  1134  bf 00 00                          mov     di,offset NAME
  1838.  1137  1e                                push    ds
  1839.  1138  57                                push    di
  1840.  1139  31 c0                             xor     ax,ax
  1841.  113b  50                                push    ax
  1842.  113c  9a 00 00 00 00                    call    far SYSTEM_036
  1843.  1141  9a 00 00 00 00                    call    far SYSTEM_03B
  1844.  1146  b8 3f 00                          mov     ax,003fH
  1845.  1149  50                                push    ax
  1846.  114a  b8 18 00                          mov     ax,0018H
  1847.  114d  50                                push    ax
  1848.  114e  0e                                push    cs
  1849.  114f  e8 00 00                          call    PCBDOORS_00C
  1850.  1152  8d 7e f6                          lea     di,-0aH[bp]
  1851.  1155  16                                push    ss
  1852.  1156  57                                push    di
  1853.  1157  8d 7e f8                          lea     di,-8H[bp]
  1854.  115a  16                                push    ss
  1855.  115b  57                                push    di
  1856.  115c  8d 7e fa                          lea     di,-6H[bp]
  1857.  115f  16                                push    ss
  1858.  1160  57                                push    di
  1859.  1161  8d 7e fc                          lea     di,-4H[bp]
  1860.  1164  16                                push    ss
  1861.  1165  57                                push    di
  1862.  1166  9a 00 00 00 00                    call    far DOS_005
  1863.  116b  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1864.  116e  1e                                push    ds
  1865.  116f  57                                push    di
  1866.  1170  bf 00 00                          mov     di,offset L110
  1867.  1173  0e                                push    cs
  1868.  1174  57                                push    di
  1869.  1175  31 c0                             xor     ax,ax
  1870.  1177  50                                push    ax
  1871.  1178  9a 00 00 00 00                    call    far SYSTEM_036
  1872.  117d  9a 00 00 00 00                    call    far SYSTEM_03B
  1873.  1182  83 7e f6 0a                       cmp     word ptr -0aH[bp],000aH
  1874.  1186  73 15                             jae     L128
  1875.  1188  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1876.  118b  1e                                push    ds
  1877.  118c  57                                push    di
  1878.  118d  b0 30                             mov     al,30H
  1879.  118f  50                                push    ax
  1880.  1190  31 c0                             xor     ax,ax
  1881.  1192  50                                push    ax
  1882.  1193  9a 00 00 00 00                    call    far SYSTEM_039
  1883.  1198  9a 00 00 00 00                    call    far SYSTEM_03B
  1884.  119d  bf 00 00          L128            mov     di,offset SYSTEM_BSS+100H
  1885.  11a0  1e                                push    ds
  1886.  11a1  57                                push    di
  1887.  11a2  8b 46 f6                          mov     ax,-0aH[bp]
  1888.  11a5  31 d2                             xor     dx,dx
  1889.  11a7  52                                push    dx
  1890.  11a8  50                                push    ax
  1891.  11a9  b8 01 00                          mov     ax,0001H
  1892.  11ac  50                                push    ax
  1893.  11ad  9a 00 00 00 00                    call    far SYSTEM_037
  1894.  11b2  b0 3a                             mov     al,3aH
  1895.  11b4  50                                push    ax
  1896.  11b5  31 c0                             xor     ax,ax
  1897.  11b7  50                                push    ax
  1898.  11b8  9a 00 00 00 00                    call    far SYSTEM_039
  1899.  11bd  9a 00 00 00 00                    call    far SYSTEM_03B
  1900.  11c2  83 7e f8 0a                       cmp     word ptr -8H[bp],000aH
  1901.  11c6  73 15                             jae     L129
  1902.  11c8  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1903.  11cb  1e                                push    ds
  1904.  11cc  57                                push    di
  1905.  11cd  b0 30                             mov     al,30H
  1906.  11cf  50                                push    ax
  1907.  11d0  31 c0                             xor     ax,ax
  1908.  11d2  50                                push    ax
  1909.  11d3  9a 00 00 00 00                    call    far SYSTEM_039
  1910.  11d8  9a 00 00 00 00                    call    far SYSTEM_03B
  1911.  11dd  bf 00 00          L129            mov     di,offset SYSTEM_BSS+100H
  1912.  11e0  1e                                push    ds
  1913.  11e1  57                                push    di
  1914.  11e2  8b 46 f8                          mov     ax,-8H[bp]
  1915.  11e5  31 d2                             xor     dx,dx
  1916.  11e7  52                                push    dx
  1917.  11e8  50                                push    ax
  1918.  11e9  b8 01 00                          mov     ax,0001H
  1919.  11ec  50                                push    ax
  1920.  11ed  9a 00 00 00 00                    call    far SYSTEM_037
  1921.  11f2  9a 00 00 00 00                    call    far SYSTEM_03B
  1922.  11f7  b8 12 00                          mov     ax,0012H
  1923.  11fa  50                                push    ax
  1924.  11fb  b8 19 00                          mov     ax,0019H
  1925.  11fe  50                                push    ax
  1926.  11ff  0e                                push    cs
  1927.  1200  e8 00 00                          call    PCBDOORS_00C
  1928.  1203  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  1929.  1206  1e                                push    ds
  1930.  1207  57                                push    di
  1931.  1208  bf 00 00                          mov     di,offset L111
  1932.  120b  0e                                push    cs
  1933.  120c  57                                push    di
  1934.  120d  31 c0                             xor     ax,ax
  1935.  120f  50                                push    ax
  1936.  1210  9a 00 00 00 00                    call    far SYSTEM_036
  1937.  1215  9a 00 00 00 00                    call    far SYSTEM_03B
  1938.  121a  b0 00                             mov     al,00H
  1939.  121c  50                                push    ax
  1940.  121d  9a 00 00 00 00                    call    far CRT_00E
  1941.  1222  b0 0f                             mov     al,0fH
  1942.  1224  50                                push    ax
  1943.  1225  9a 00 00 00 00                    call    far CRT_00D
  1944.  122a  b8 01 00                          mov     ax,0001H
  1945.  122d  50                                push    ax
  1946.  122e  b8 16 00                          mov     ax,0016H
  1947.  1231  50                                push    ax
  1948.  1232  0e                                push    cs
  1949.  1233  e8 00 00                          call    PCBDOORS_00C
  1950.  1236  89 ec                             mov     sp,bp
  1951.  1238  5d                                pop     bp
  1952.  1239  cb                                retf    
  1953.  
  1954. No disassembly errors
  1955.  
  1956. ------------------------------------------------------------
  1957.  
  1958. Segment: _BSS  WORD   000001af bytes  
  1959.  
  1960. No disassembly errors
  1961.  
  1962. ------------------------------------------------------------
  1963.