home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tspa / tp4 / tsuntd.dis < prev    next >
Encoding:
Text File  |  1994-06-19  |  91.3 KB  |  1,606 lines

  1.  
  2. Module: TSUNTD.PAS
  3. Group: 'DGROUP' _DATA,_BSS
  4.  
  5. Segment: TSUNTD_TEXT  PARA   0000100b bytes  
  6.  0000                    TRIMRGFN:
  7.  0000  55                TSUNTD_001      push    bp
  8.  0001  89 e5                             mov     bp,sp
  9.  0003  b8 04 03                          mov     ax,0304H
  10.  0006  9a 00 00 00 00                    call    far SYSTEM_034
  11.  000b  81 ec 04 03                       sub     sp,0304H
  12.  000f  c4 7e 08                          les     di,dword ptr +8H[bp]
  13.  0012  06                                push    es
  14.  0013  57                                push    di
  15.  0014  8d be 00 ff                       lea     di,-100H[bp]
  16.  0018  16                                push    ss
  17.  0019  57                                push    di
  18.  001a  b8 ff 00                          mov     ax,00ffH
  19.  001d  50                                push    ax
  20.  001e  9a 00 00 00 00                    call    far SYSTEM_00C
  21.  0023  c7 86 fc fd 00 01                 mov     word ptr -204H[bp],0100H
  22.  0029  8b 86 fc fd                       mov     ax,-204H[bp]
  23.  002d  48                                dec     ax
  24.  002e  8b d0                             mov     dx,ax
  25.  0030  8a 46 06                          mov     al,+6H[bp]
  26.  0033  30 e4                             xor     ah,ah
  27.  0035  3b c2                             cmp     ax,dx
  28.  0037  76 08                             jbe     L1
  29.  0039  8b 86 fc fd                       mov     ax,-204H[bp]
  30.  003d  48                                dec     ax
  31.  003e  88 46 06                          mov     +6H[bp],al
  32.  0041  8a 86 00 ff       L1              mov     al,-100H[bp]
  33.  0045  30 e4                             xor     ah,ah
  34.  0047  89 86 fe fd                       mov     -202H[bp],ax
  35.  004b  8a 46 06                          mov     al,+6H[bp]
  36.  004e  30 e4                             xor     ah,ah
  37.  0050  3b 86 fe fd                       cmp     ax,-202H[bp]
  38.  0054  7d 37                             jge     L2
  39.  0056  8d be fc fc                       lea     di,-304H[bp]
  40.  005a  16                                push    ss
  41.  005b  57                                push    di
  42.  005c  8d be 00 ff                       lea     di,-100H[bp]
  43.  0060  16                                push    ss
  44.  0061  57                                push    di
  45.  0062  8a 46 06                          mov     al,+6H[bp]
  46.  0065  30 e4                             xor     ah,ah
  47.  0067  8b d0                             mov     dx,ax
  48.  0069  8b 86 fe fd                       mov     ax,-202H[bp]
  49.  006d  2b c2                             sub     ax,dx
  50.  006f  40                                inc     ax
  51.  0070  50                                push    ax
  52.  0071  8a 46 06                          mov     al,+6H[bp]
  53.  0074  30 e4                             xor     ah,ah
  54.  0076  50                                push    ax
  55.  0077  9a 00 00 00 00                    call    far SYSTEM_00E
  56.  007c  8d be 00 fe                       lea     di,-200H[bp]
  57.  0080  16                                push    ss
  58.  0081  57                                push    di
  59.  0082  b8 ff 00                          mov     ax,00ffH
  60.  0085  50                                push    ax
  61.  0086  9a 00 00 00 00                    call    far SYSTEM_00C
  62.  008b  eb 3a                             jmp     L3
  63.  008d  8d be 00 fe       L2              lea     di,-200H[bp]
  64.  0091  16                                push    ss
  65.  0092  57                                push    di
  66.  0093  ff b6 fc fd                       push    -204H[bp]
  67.  0097  b0 20                             mov     al,20H
  68.  0099  50                                push    ax
  69.  009a  9a 00 00 00 00                    call    far SYSTEM_05C
  70.  009f  8a 46 06                          mov     al,+6H[bp]
  71.  00a2  88 86 00 fe                       mov     -200H[bp],al
  72.  00a6  8d be 01 ff                       lea     di,-0ffH[bp]
  73.  00aa  16                                push    ss
  74.  00ab  57                                push    di
  75.  00ac  8a 46 06                          mov     al,+6H[bp]
  76.  00af  30 e4                             xor     ah,ah
  77.  00b1  2b 86 fe fd                       sub     ax,-202H[bp]
  78.  00b5  40                                inc     ax
  79.  00b6  8b f8                             mov     di,ax
  80.  00b8  8d bb 00 fe                       lea     di,-200H[bp+di]
  81.  00bc  16                                push    ss
  82.  00bd  57                                push    di
  83.  00be  ff b6 fe fd                       push    -202H[bp]
  84.  00c2  9a 00 00 00 00                    call    far SYSTEM_060
  85.  00c7  8d be 00 fe       L3              lea     di,-200H[bp]
  86.  00cb  16                                push    ss
  87.  00cc  57                                push    di
  88.  00cd  c4 7e 0c                          les     di,dword ptr +0cH[bp]
  89.  00d0  06                                push    es
  90.  00d1  57                                push    di
  91.  00d2  b8 ff 00                          mov     ax,00ffH
  92.  00d5  50                                push    ax
  93.  00d6  9a 00 00 00 00                    call    far SYSTEM_00C
  94.  00db  89 ec                             mov     sp,bp
  95.  00dd  5d                                pop     bp
  96.  00de  ca 06 00                          retf    0006H
  97.  00e1                    TRIMLFFN:
  98.  00e1  55                TSUNTD_002      push    bp
  99.  00e2  89 e5                             mov     bp,sp
  100.  00e4  b8 07 02                          mov     ax,0207H
  101.  00e7  9a 00 00 00 00                    call    far SYSTEM_034
  102.  00ec  81 ec 07 02                       sub     sp,0207H
  103.  00f0  c4 7e 08                          les     di,dword ptr +8H[bp]
  104.  00f3  06                                push    es
  105.  00f4  57                                push    di
  106.  00f5  8d be 00 ff                       lea     di,-100H[bp]
  107.  00f9  16                                push    ss
  108.  00fa  57                                push    di
  109.  00fb  b8 ff 00                          mov     ax,00ffH
  110.  00fe  50                                push    ax
  111.  00ff  9a 00 00 00 00                    call    far SYSTEM_00C
  112.  0104  c7 86 fc fd 00 01                 mov     word ptr -204H[bp],0100H
  113.  010a  8b 86 fc fd                       mov     ax,-204H[bp]
  114.  010e  48                                dec     ax
  115.  010f  8b d0                             mov     dx,ax
  116.  0111  8a 46 06                          mov     al,+6H[bp]
  117.  0114  30 e4                             xor     ah,ah
  118.  0116  3b c2                             cmp     ax,dx
  119.  0118  76 08                             jbe     L4
  120.  011a  8b 86 fc fd                       mov     ax,-204H[bp]
  121.  011e  48                                dec     ax
  122.  011f  88 46 06                          mov     +6H[bp],al
  123.  0122  8a 86 00 ff       L4              mov     al,-100H[bp]
  124.  0126  30 e4                             xor     ah,ah
  125.  0128  89 86 fe fd                       mov     -202H[bp],ax
  126.  012c  c6 86 fb fd 00                    mov     byte ptr -205H[bp],00H
  127.  0131  8a 86 fe fd                       mov     al,-202H[bp]
  128.  0135  88 86 f9 fd                       mov     -207H[bp],al
  129.  0139  b0 01                             mov     al,01H
  130.  013b  3a 86 f9 fd                       cmp     al,-207H[bp]
  131.  013f  77 2d                             ja      L8
  132.  0141  88 86 fa fd                       mov     -206H[bp],al
  133.  0145  eb 04                             jmp     L6
  134.  0147  fe 86 fa fd       L5              inc     byte ptr -206H[bp]
  135.  014b  8a 86 fa fd       L6              mov     al,-206H[bp]
  136.  014f  30 e4                             xor     ah,ah
  137.  0151  8b f8                             mov     di,ax
  138.  0153  80 bb 00 ff 20                    cmp     byte ptr -100H[bp+di],20H
  139.  0158  76 0a                             jbe     L7
  140.  015a  8a 86 fa fd                       mov     al,-206H[bp]
  141.  015e  88 86 fb fd                       mov     -205H[bp],al
  142.  0162  eb 0a                             jmp     L8
  143.  0164  8a 86 fa fd       L7              mov     al,-206H[bp]
  144.  0168  3a 86 f9 fd                       cmp     al,-207H[bp]
  145.  016c  75 d9                             jne     L5
  146.  016e  8d be 00 fe       L8              lea     di,-200H[bp]
  147.  0172  16                                push    ss
  148.  0173  57                                push    di
  149.  0174  ff b6 fc fd                       push    -204H[bp]
  150.  0178  b0 20                             mov     al,20H
  151.  017a  50                                push    ax
  152.  017b  9a 00 00 00 00                    call    far SYSTEM_05C
  153.  0180  8a 46 06                          mov     al,+6H[bp]
  154.  0183  88 86 00 fe                       mov     -200H[bp],al
  155.  0187  80 be fb fd 00                    cmp     byte ptr -205H[bp],00H
  156.  018c  76 55                             jbe     L10
  157.  018e  8a 46 06                          mov     al,+6H[bp]
  158.  0191  30 e4                             xor     ah,ah
  159.  0193  3b 86 fe fd                       cmp     ax,-202H[bp]
  160.  0197  7d 21                             jge     L9
  161.  0199  8a 86 fb fd                       mov     al,-205H[bp]
  162.  019d  30 e4                             xor     ah,ah
  163.  019f  8b f8                             mov     di,ax
  164.  01a1  8d bb 00 ff                       lea     di,-100H[bp+di]
  165.  01a5  16                                push    ss
  166.  01a6  57                                push    di
  167.  01a7  8d be 01 fe                       lea     di,-1ffH[bp]
  168.  01ab  16                                push    ss
  169.  01ac  57                                push    di
  170.  01ad  8a 46 06                          mov     al,+6H[bp]
  171.  01b0  30 e4                             xor     ah,ah
  172.  01b2  50                                push    ax
  173.  01b3  9a 00 00 00 00                    call    far SYSTEM_060
  174.  01b8  eb 29                             jmp     L10
  175.  01ba  8a 86 fb fd       L9              mov     al,-205H[bp]
  176.  01be  30 e4                             xor     ah,ah
  177.  01c0  8b f8                             mov     di,ax
  178.  01c2  8d bb 00 ff                       lea     di,-100H[bp+di]
  179.  01c6  16                                push    ss
  180.  01c7  57                                push    di
  181.  01c8  8d be 01 fe                       lea     di,-1ffH[bp]
  182.  01cc  16                                push    ss
  183.  01cd  57                                push    di
  184.  01ce  8a 86 fb fd                       mov     al,-205H[bp]
  185.  01d2  30 e4                             xor     ah,ah
  186.  01d4  8b d0                             mov     dx,ax
  187.  01d6  8b 86 fe fd                       mov     ax,-202H[bp]
  188.  01da  2b c2                             sub     ax,dx
  189.  01dc  40                                inc     ax
  190.  01dd  50                                push    ax
  191.  01de  9a 00 00 00 00                    call    far SYSTEM_060
  192.  01e3  8d be 00 fe       L10             lea     di,-200H[bp]
  193.  01e7  16                                push    ss
  194.  01e8  57                                push    di
  195.  01e9  c4 7e 0c                          les     di,dword ptr +0cH[bp]
  196.  01ec  06                                push    es
  197.  01ed  57                                push    di
  198.  01ee  b8 ff 00                          mov     ax,00ffH
  199.  01f1  50                                push    ax
  200.  01f2  9a 00 00 00 00                    call    far SYSTEM_00C
  201.  01f7  89 ec                             mov     sp,bp
  202.  01f9  5d                                pop     bp
  203.  01fa  ca 06 00                          retf    0006H
  204.  01fd                    LEADFN:
  205.  01fd  55                TSUNTD_003      push    bp
  206.  01fe  89 e5                             mov     bp,sp
  207.  0200  b8 02 03                          mov     ax,0302H
  208.  0203  9a 00 00 00 00                    call    far SYSTEM_034
  209.  0208  81 ec 02 03                       sub     sp,0302H
  210.  020c  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  211.  020f  06                                push    es
  212.  0210  57                                push    di
  213.  0211  8d be 00 ff                       lea     di,-100H[bp]
  214.  0215  16                                push    ss
  215.  0216  57                                push    di
  216.  0217  b8 ff 00                          mov     ax,00ffH
  217.  021a  50                                push    ax
  218.  021b  9a 00 00 00 00                    call    far SYSTEM_00C
  219.  0220  8a 86 00 ff                       mov     al,-100H[bp]
  220.  0224  30 e4                             xor     ah,ah
  221.  0226  89 86 fe fe                       mov     -102H[bp],ax
  222.  022a  8a 46 08                          mov     al,+8H[bp]
  223.  022d  30 e4                             xor     ah,ah
  224.  022f  3b 86 fe fe                       cmp     ax,-102H[bp]
  225.  0233  7f 16                             jg      L11
  226.  0235  8d be 00 ff                       lea     di,-100H[bp]
  227.  0239  16                                push    ss
  228.  023a  57                                push    di
  229.  023b  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  230.  023e  06                                push    es
  231.  023f  57                                push    di
  232.  0240  b8 ff 00                          mov     ax,00ffH
  233.  0243  50                                push    ax
  234.  0244  9a 00 00 00 00                    call    far SYSTEM_00C
  235.  0249  eb 4a                             jmp     L12
  236.  024b  8d be fe fd       L11             lea     di,-202H[bp]
  237.  024f  16                                push    ss
  238.  0250  57                                push    di
  239.  0251  b8 00 01                          mov     ax,0100H
  240.  0254  50                                push    ax
  241.  0255  8a 46 06                          mov     al,+6H[bp]
  242.  0258  50                                push    ax
  243.  0259  9a 00 00 00 00                    call    far SYSTEM_05C
  244.  025e  8a 46 08                          mov     al,+8H[bp]
  245.  0261  30 e4                             xor     ah,ah
  246.  0263  2b 86 fe fe                       sub     ax,-102H[bp]
  247.  0267  88 86 fe fd                       mov     -202H[bp],al
  248.  026b  8d be fe fc                       lea     di,-302H[bp]
  249.  026f  16                                push    ss
  250.  0270  57                                push    di
  251.  0271  8d be fe fd                       lea     di,-202H[bp]
  252.  0275  16                                push    ss
  253.  0276  57                                push    di
  254.  0277  9a 00 00 00 00                    call    far SYSTEM_00B
  255.  027c  8d be 00 ff                       lea     di,-100H[bp]
  256.  0280  16                                push    ss
  257.  0281  57                                push    di
  258.  0282  9a 00 00 00 00                    call    far SYSTEM_00F
  259.  0287  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  260.  028a  06                                push    es
  261.  028b  57                                push    di
  262.  028c  b8 ff 00                          mov     ax,00ffH
  263.  028f  50                                push    ax
  264.  0290  9a 00 00 00 00                    call    far SYSTEM_00C
  265.  0295  89 ec             L12             mov     sp,bp
  266.  0297  5d                                pop     bp
  267.  0298  ca 08 00                          retf    0008H
  268.  029b                    TRAILFN:
  269.  029b  55                TSUNTD_004      push    bp
  270.  029c  89 e5                             mov     bp,sp
  271.  029e  b8 02 03                          mov     ax,0302H
  272.  02a1  9a 00 00 00 00                    call    far SYSTEM_034
  273.  02a6  81 ec 02 03                       sub     sp,0302H
  274.  02aa  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  275.  02ad  06                                push    es
  276.  02ae  57                                push    di
  277.  02af  8d be 00 ff                       lea     di,-100H[bp]
  278.  02b3  16                                push    ss
  279.  02b4  57                                push    di
  280.  02b5  b8 ff 00                          mov     ax,00ffH
  281.  02b8  50                                push    ax
  282.  02b9  9a 00 00 00 00                    call    far SYSTEM_00C
  283.  02be  8a 86 00 ff                       mov     al,-100H[bp]
  284.  02c2  30 e4                             xor     ah,ah
  285.  02c4  89 86 fe fe                       mov     -102H[bp],ax
  286.  02c8  8a 46 08                          mov     al,+8H[bp]
  287.  02cb  30 e4                             xor     ah,ah
  288.  02cd  3b 86 fe fe                       cmp     ax,-102H[bp]
  289.  02d1  7f 16                             jg      L13
  290.  02d3  8d be 00 ff                       lea     di,-100H[bp]
  291.  02d7  16                                push    ss
  292.  02d8  57                                push    di
  293.  02d9  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  294.  02dc  06                                push    es
  295.  02dd  57                                push    di
  296.  02de  b8 ff 00                          mov     ax,00ffH
  297.  02e1  50                                push    ax
  298.  02e2  9a 00 00 00 00                    call    far SYSTEM_00C
  299.  02e7  eb 4a                             jmp     L14
  300.  02e9  8d be fe fd       L13             lea     di,-202H[bp]
  301.  02ed  16                                push    ss
  302.  02ee  57                                push    di
  303.  02ef  b8 00 01                          mov     ax,0100H
  304.  02f2  50                                push    ax
  305.  02f3  8a 46 06                          mov     al,+6H[bp]
  306.  02f6  50                                push    ax
  307.  02f7  9a 00 00 00 00                    call    far SYSTEM_05C
  308.  02fc  8a 46 08                          mov     al,+8H[bp]
  309.  02ff  30 e4                             xor     ah,ah
  310.  0301  2b 86 fe fe                       sub     ax,-102H[bp]
  311.  0305  88 86 fe fd                       mov     -202H[bp],al
  312.  0309  8d be fe fc                       lea     di,-302H[bp]
  313.  030d  16                                push    ss
  314.  030e  57                                push    di
  315.  030f  8d be 00 ff                       lea     di,-100H[bp]
  316.  0313  16                                push    ss
  317.  0314  57                                push    di
  318.  0315  9a 00 00 00 00                    call    far SYSTEM_00B
  319.  031a  8d be fe fd                       lea     di,-202H[bp]
  320.  031e  16                                push    ss
  321.  031f  57                                push    di
  322.  0320  9a 00 00 00 00                    call    far SYSTEM_00F
  323.  0325  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  324.  0328  06                                push    es
  325.  0329  57                                push    di
  326.  032a  b8 ff 00                          mov     ax,00ffH
  327.  032d  50                                push    ax
  328.  032e  9a 00 00 00 00                    call    far SYSTEM_00C
  329.  0333  89 ec             L14             mov     sp,bp
  330.  0335  5d                                pop     bp
  331.  0336  ca 08 00                          retf    0008H
  332.  0339  1a 50 52          L15             sbb     dl,+52H[bx+si]
  333.  033c  4f                                dec     di
  334.  033d  47                                inc     di
  335.  033e  52                                push    dx
  336.  033f  41                                inc     cx
  337.  0340  4d                                dec     bp
  338.  0341  20 46 41                          and     +41H[bp],al
  339.  0344  49                                dec     cx
  340.  0345  4c                                dec     sp
  341.  0346  55                                push    bp
  342.  0347  52                                push    dx
  343.  0348  45                                inc     bp
  344.  0349  20 49 4e                          and     +4eH[bx+di],cl
  345.  034c  20 4d 4f                          and     +4fH[di],cl
  346.  034f  44                                inc     sp
  347.  0350  55                                push    bp
  348.  0351  4c                                dec     sp
  349.  0352  45                                inc     bp
  350.  0353  20 35                             and     [di],dh
  351.  0355  50                                push    ax
  352.  0356  4c                                dec     sp
  353.  0357  45                                inc     bp
  354.  0358  41                                inc     cx
  355.  0359  53                                push    bx
  356.  035a  45                                inc     bp
  357.  035b  20 44 4f                          and     +4fH[si],al
  358.  035e  43                                inc     bx
  359.  035f  55                                push    bp
  360.  0360  4d                                dec     bp
  361.  0361  45                                inc     bp
  362.  0362  4e                                dec     si
  363.  0363  54                                push    sp
  364.  0364  20 54 48                          and     +48H[si],dl
  365.  0367  45                                inc     bp
  366.  0368  20 44 45                          and     +45H[si],al
  367.  036b  54                                push    sp
  368.  036c  41                                inc     cx
  369.  036d  49                                dec     cx
  370.  036e  4c                                dec     sp
  371.  036f  53                                push    bx
  372.  0370  20 41 4e                          and     +4eH[bx+di],al
  373.  0373  44                                inc     sp
  374.  0374  20 4e 4f                          and     +4fH[bp],cl
  375.  0377  54                                push    sp
  376.  0378  49                                dec     cx
  377.  0379  46                                inc     si
  378.  037a  59                                pop     cx
  379.  037b  20 54 48                          and     +48H[si],dl
  380.  037e  45                                inc     bp
  381.  037f  20 41 55                          and     +55H[bx+di],al
  382.  0382  54                                push    sp
  383.  0383  48                                dec     ax
  384.  0384  4f                                dec     di
  385.  0385  52                                push    dx
  386.  0386  2c 20                             sub     al,20H
  387.  0388  23 37                             and     si,[bx]
  388.  038a  55                TSUNTD_012      push    bp
  389.  038b  89 e5                             mov     bp,sp
  390.  038d  b8 00 01                          mov     ax,0100H
  391.  0390  9a 00 00 00 00                    call    far SYSTEM_034
  392.  0395  81 ec 00 01                       sub     sp,0100H
  393.  0399  c4 7e 04                          les     di,dword ptr +4H[bp]
  394.  039c  06                                push    es
  395.  039d  57                                push    di
  396.  039e  8d be 00 ff                       lea     di,-100H[bp]
  397.  03a2  16                                push    ss
  398.  03a3  57                                push    di
  399.  03a4  b8 ff 00                          mov     ax,00ffH
  400.  03a7  50                                push    ax
  401.  03a8  9a 00 00 00 00                    call    far SYSTEM_00C
  402.  03ad  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  403.  03b0  1e                                push    ds
  404.  03b1  57                                push    di
  405.  03b2  bf 00 00                          mov     di,offset L15
  406.  03b5  0e                                push    cs
  407.  03b6  57                                push    di
  408.  03b7  31 c0                             xor     ax,ax
  409.  03b9  50                                push    ax
  410.  03ba  9a 00 00 00 00                    call    far SYSTEM_036
  411.  03bf  8d be 00 ff                       lea     di,-100H[bp]
  412.  03c3  16                                push    ss
  413.  03c4  57                                push    di
  414.  03c5  31 c0                             xor     ax,ax
  415.  03c7  50                                push    ax
  416.  03c8  9a 00 00 00 00                    call    far SYSTEM_036
  417.  03cd  9a 00 00 00 00                    call    far SYSTEM_03A
  418.  03d2  9a 00 00 00 00                    call    far SYSTEM_032
  419.  03d7  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  420.  03da  1e                                push    ds
  421.  03db  57                                push    di
  422.  03dc  bf 00 00                          mov     di,offset L16
  423.  03df  0e                                push    cs
  424.  03e0  57                                push    di
  425.  03e1  31 c0                             xor     ax,ax
  426.  03e3  50                                push    ax
  427.  03e4  9a 00 00 00 00                    call    far SYSTEM_036
  428.  03e9  9a 00 00 00 00                    call    far SYSTEM_03A
  429.  03ee  9a 00 00 00 00                    call    far SYSTEM_032
  430.  03f3  31 c0                             xor     ax,ax
  431.  03f5  9a 00 00 00 00                    call    far SYSTEM_003
  432.  03fa  89 ec                             mov     sp,bp
  433.  03fc  5d                                pop     bp
  434.  03fd  c2 04 00                          ret     0004H
  435.  0400  01 ff             L17             add     di,di
  436.  0402  05 50 41          L18             add     ax,4150H
  437.  0405  52                                push    dx
  438.  0406  53                                push    bx
  439.  0407  45                                inc     bp
  440.  0408                    PARSE:
  441.  0408  55                TSUNTD_006      push    bp
  442.  0409  89 e5                             mov     bp,sp
  443.  040b  b8 0c 05                          mov     ax,050cH
  444.  040e  9a 00 00 00 00                    call    far SYSTEM_034
  445.  0413  81 ec 0c 05                       sub     sp,050cH
  446.  0417  c4 7e 12                          les     di,dword ptr +12H[bp]
  447.  041a  06                                push    es
  448.  041b  57                                push    di
  449.  041c  8d be 00 fe                       lea     di,-200H[bp]
  450.  0420  16                                push    ss
  451.  0421  57                                push    di
  452.  0422  b8 ff 00                          mov     ax,00ffH
  453.  0425  50                                push    ax
  454.  0426  9a 00 00 00 00                    call    far SYSTEM_00C
  455.  042b  c4 7e 18                          les     di,dword ptr +18H[bp]
  456.  042e  06                                push    es
  457.  042f  57                                push    di
  458.  0430  8d be 00 ff                       lea     di,-100H[bp]
  459.  0434  16                                push    ss
  460.  0435  57                                push    di
  461.  0436  b8 ff 00                          mov     ax,00ffH
  462.  0439  50                                push    ax
  463.  043a  9a 00 00 00 00                    call    far SYSTEM_00C
  464.  043f  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  465.  0442  31 c0                             xor     ax,ax
  466.  0444  26 89 05                          mov     es:[di],ax
  467.  0447  c4 7e 06                          les     di,dword ptr +6H[bp]
  468.  044a  26 c6 05 01                       mov     byte ptr es:[di],01H
  469.  044e  8d be f4 fa                       lea     di,-50cH[bp]
  470.  0452  16                                push    ss
  471.  0453  57                                push    di
  472.  0454  8d be 00 fe                       lea     di,-200H[bp]
  473.  0458  16                                push    ss
  474.  0459  57                                push    di
  475.  045a  9a 00 00 00 00                    call    far SYSTEM_00B
  476.  045f  bf 00 00                          mov     di,offset L17
  477.  0462  0e                                push    cs
  478.  0463  57                                push    di
  479.  0464  9a 00 00 00 00                    call    far SYSTEM_00F
  480.  0469  8d be f6 fb                       lea     di,-40aH[bp]
  481.  046d  16                                push    ss
  482.  046e  57                                push    di
  483.  046f  b8 ff 00                          mov     ax,00ffH
  484.  0472  50                                push    ax
  485.  0473  9a 00 00 00 00                    call    far SYSTEM_00C
  486.  0478  8a 86 f6 fb                       mov     al,-40aH[bp]
  487.  047c  30 e4                             xor     ah,ah
  488.  047e  89 86 f4 fb                       mov     -40cH[bp],ax
  489.  0482  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  490.  0485  26 c4 3d                          les     di,dword ptr es:[di]
  491.  0488  06                                push    es
  492.  0489  57                                push    di
  493.  048a  b8 00 ff                          mov     ax,0ff00H
  494.  048d  50                                push    ax
  495.  048e  b0 2a                             mov     al,2aH
  496.  0490  50                                push    ax
  497.  0491  9a 00 00 00 00                    call    far SYSTEM_05C
  498.  0496  31 c0                             xor     ax,ax
  499.  0498  89 86 fa fd                       mov     -206H[bp],ax
  500.  049c  8a 86 00 ff                       mov     al,-100H[bp]
  501.  04a0  30 e4                             xor     ah,ah
  502.  04a2  40                                inc     ax
  503.  04a3  89 86 fe fd                       mov     -202H[bp],ax
  504.  04a7  81 be fe fd fe 00                 cmp     word ptr -202H[bp],00feH
  505.  04ad  7e 0a                             jle     L19
  506.  04af  c4 7e 06                          les     di,dword ptr +6H[bp]
  507.  04b2  26 c6 05 00                       mov     byte ptr es:[di],00H
  508.  04b6  e9 95 01                          jmp     L34
  509.  04b9  8d be f4 fa       L19             lea     di,-50cH[bp]
  510.  04bd  16                                push    ss
  511.  04be  57                                push    di
  512.  04bf  8d be 00 ff                       lea     di,-100H[bp]
  513.  04c3  16                                push    ss
  514.  04c4  57                                push    di
  515.  04c5  9a 00 00 00 00                    call    far SYSTEM_00B
  516.  04ca  bf 00 00                          mov     di,offset L17
  517.  04cd  0e                                push    cs
  518.  04ce  57                                push    di
  519.  04cf  9a 00 00 00 00                    call    far SYSTEM_00F
  520.  04d4  8d be 00 ff                       lea     di,-100H[bp]
  521.  04d8  16                                push    ss
  522.  04d9  57                                push    di
  523.  04da  b8 ff 00                          mov     ax,00ffH
  524.  04dd  50                                push    ax
  525.  04de  9a 00 00 00 00                    call    far SYSTEM_00C
  526.  04e3  c4 7e 0e          L20             les     di,dword ptr +0eH[bp]
  527.  04e6  26 8b 05                          mov     ax,es:[di]
  528.  04e9  3b 46 16                          cmp     ax,+16H[bp]
  529.  04ec  7c 0a                             jl      L21
  530.  04ee  c4 7e 06                          les     di,dword ptr +6H[bp]
  531.  04f1  26 c6 05 00                       mov     byte ptr es:[di],00H
  532.  04f5  e9 56 01                          jmp     L34
  533.  04f8  8b 86 fa fd       L21             mov     ax,-206H[bp]
  534.  04fc  89 86 fc fd                       mov     -204H[bp],ax
  535.  0500  8b 86 fc fd       L22             mov     ax,-204H[bp]
  536.  0504  40                                inc     ax
  537.  0505  89 86 fc fd                       mov     -204H[bp],ax
  538.  0509  8b 86 fc fd                       mov     ax,-204H[bp]
  539.  050d  3b 86 fe fd                       cmp     ax,-202H[bp]
  540.  0511  7e 08                             jle     L23
  541.  0513  bf 00 00                          mov     di,offset L18
  542.  0516  0e                                push    cs
  543.  0517  57                                push    di
  544.  0518  e8 00 00                          call    TSUNTD_012
  545.  051b  8d be f4 fa       L23             lea     di,-50cH[bp]
  546.  051f  16                                push    ss
  547.  0520  57                                push    di
  548.  0521  8b be fc fd                       mov     di,-204H[bp]
  549.  0525  8a 83 00 ff                       mov     al,-100H[bp+di]
  550.  0529  50                                push    ax
  551.  052a  9a 00 00 00 00                    call    far SYSTEM_012
  552.  052f  8d be f6 fb                       lea     di,-40aH[bp]
  553.  0533  16                                push    ss
  554.  0534  57                                push    di
  555.  0535  9a 00 00 00 00                    call    far SYSTEM_010
  556.  053a  89 86 f6 fd                       mov     -20aH[bp],ax
  557.  053e  8b 86 f6 fd                       mov     ax,-20aH[bp]
  558.  0542  3b 86 f4 fb                       cmp     ax,-40cH[bp]
  559.  0546  75 03                             jne     L24
  560.  0548  e9 03 01                          jmp     L34
  561.  054b  83 be f6 fd 00    L24             cmp     word ptr -20aH[bp],0000H
  562.  0550  75 0a                             jne     L25
  563.  0552  8b 86 fc fd                       mov     ax,-204H[bp]
  564.  0556  89 86 f8 fd                       mov     -208H[bp],ax
  565.  055a  eb 02                             jmp     L26
  566.  055c  eb a2             L25             jmp     L22
  567.  055e  8b 86 f8 fd       L26             mov     ax,-208H[bp]
  568.  0562  89 86 fc fd                       mov     -204H[bp],ax
  569.  0566  8b 86 fc fd       L27             mov     ax,-204H[bp]
  570.  056a  40                                inc     ax
  571.  056b  89 86 fc fd                       mov     -204H[bp],ax
  572.  056f  8b 86 fc fd                       mov     ax,-204H[bp]
  573.  0573  3b 86 fe fd                       cmp     ax,-202H[bp]
  574.  0577  7e 08                             jle     L28
  575.  0579  bf 00 00                          mov     di,offset L18
  576.  057c  0e                                push    cs
  577.  057d  57                                push    di
  578.  057e  e8 00 00                          call    TSUNTD_012
  579.  0581  8d be f4 fa       L28             lea     di,-50cH[bp]
  580.  0585  16                                push    ss
  581.  0586  57                                push    di
  582.  0587  8b be fc fd                       mov     di,-204H[bp]
  583.  058b  8a 83 00 ff                       mov     al,-100H[bp+di]
  584.  058f  50                                push    ax
  585.  0590  9a 00 00 00 00                    call    far SYSTEM_012
  586.  0595  8d be f6 fb                       lea     di,-40aH[bp]
  587.  0599  16                                push    ss
  588.  059a  57                                push    di
  589.  059b  9a 00 00 00 00                    call    far SYSTEM_010
  590.  05a0  09 c0                             or      ax,ax
  591.  05a2  7e 0a                             jle     L29
  592.  05a4  8b 86 fc fd                       mov     ax,-204H[bp]
  593.  05a8  89 86 fa fd                       mov     -206H[bp],ax
  594.  05ac  eb 02                             jmp     L30
  595.  05ae  eb b6             L29             jmp     L27
  596.  05b0  8d be f6 fc       L30             lea     di,-30aH[bp]
  597.  05b4  16                                push    ss
  598.  05b5  57                                push    di
  599.  05b6  b8 00 01                          mov     ax,0100H
  600.  05b9  50                                push    ax
  601.  05ba  b0 20                             mov     al,20H
  602.  05bc  50                                push    ax
  603.  05bd  9a 00 00 00 00                    call    far SYSTEM_05C
  604.  05c2  8b 86 fa fd                       mov     ax,-206H[bp]
  605.  05c6  48                                dec     ax
  606.  05c7  89 86 f2 fb                       mov     -40eH[bp],ax
  607.  05cb  8b 86 f8 fd                       mov     ax,-208H[bp]
  608.  05cf  3b 86 f2 fb                       cmp     ax,-40eH[bp]
  609.  05d3  7f 2b                             jg      L33
  610.  05d5  89 86 fc fd                       mov     -204H[bp],ax
  611.  05d9  eb 04                             jmp     L32
  612.  05db  ff 86 fc fd       L31             inc     word ptr -204H[bp]
  613.  05df  8b be fc fd       L32             mov     di,-204H[bp]
  614.  05e3  8a 93 00 ff                       mov     dl,-100H[bp+di]
  615.  05e7  8b 86 fc fd                       mov     ax,-204H[bp]
  616.  05eb  2b 86 f8 fd                       sub     ax,-208H[bp]
  617.  05ef  40                                inc     ax
  618.  05f0  8b f8                             mov     di,ax
  619.  05f2  88 93 f6 fc                       mov     -30aH[bp+di],dl
  620.  05f6  8b 86 fc fd                       mov     ax,-204H[bp]
  621.  05fa  3b 86 f2 fb                       cmp     ax,-40eH[bp]
  622.  05fe  75 db                             jne     L31
  623.  0600  8b 86 fa fd       L33             mov     ax,-206H[bp]
  624.  0604  2b 86 f8 fd                       sub     ax,-208H[bp]
  625.  0608  88 86 f6 fc                       mov     -30aH[bp],al
  626.  060c  8d be f6 fc                       lea     di,-30aH[bp]
  627.  0610  16                                push    ss
  628.  0611  57                                push    di
  629.  0612  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  630.  0615  26 8b 05                          mov     ax,es:[di]
  631.  0618  40                                inc     ax
  632.  0619  b1 08                             mov     cl,08H
  633.  061b  d3 e0                             shl     ax,cl
  634.  061d  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  635.  0620  26 c4 3d                          les     di,dword ptr es:[di]
  636.  0623  03 f8                             add     di,ax
  637.  0625  81 c7 00 ff                       add     di,0ff00H
  638.  0629  06                                push    es
  639.  062a  57                                push    di
  640.  062b  b8 ff 00                          mov     ax,00ffH
  641.  062e  50                                push    ax
  642.  062f  9a 00 00 00 00                    call    far SYSTEM_00C
  643.  0634  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  644.  0637  26 8b 05                          mov     ax,es:[di]
  645.  063a  40                                inc     ax
  646.  063b  c4 7e 0e                          les     di,dword ptr +0eH[bp]
  647.  063e  26 89 05                          mov     es:[di],ax
  648.  0641  8b 86 fa fd                       mov     ax,-206H[bp]
  649.  0645  3b 86 fe fd                       cmp     ax,-202H[bp]
  650.  0649  7d 03                             jge     L34
  651.  064b  e9 95 fe                          jmp     L20
  652.  064e  89 ec             L34             mov     sp,bp
  653.  0650  5d                                pop     bp
  654.  0651  ca 16 00                          retf    0016H
  655.  0654  01 ff             L35             add     di,di
  656.  0656  15 53 54          L36             adc     ax,5453H
  657.  0659  52                                push    dx
  658.  065a  43                                inc     bx
  659.  065b  4e                                dec     si
  660.  065c  54                                push    sp
  661.  065d  46                                inc     si
  662.  065e  4e                                dec     si
  663.  065f  20 6f 75                          and     +75H[bx],ch
  664.  0662  74 20                             je      L38
  665.  0664  6f                                outsw   
  666.  0665  66 20 72 61                       and     +61H[bp+si],dh
  667.  0669  6e                                outsb   
  668.  066a  67 65 08 53 54                    or      gs:+54H[ebx],dl
  669.  066f  52                                push    dx
  670.  0670  43                                inc     bx
  671.  0671  4e                                dec     si
  672.  0672  54                                push    sp
  673.  0673  46                                inc     si
  674.  0674  4e                                dec     si
  675.  0675                    STRCNTFN:
  676.  0675  55                TSUNTD_007      push    bp
  677.  0676  89 e5                             mov     bp,sp
  678.  0678  b8 10 04                          mov     ax,0410H
  679.  067b  9a 00 00 00 00                    call    far SYSTEM_034
  680.  0680  81 ec 10 04                       sub     sp,0410H
  681.  0684  c4 7e 06          L38             les     di,dword ptr +6H[bp]
  682.  0687  06                                push    es
  683.  0688  57                                push    di
  684.  0689  8d be fe fd                       lea     di,-202H[bp]
  685.  068d  16                                push    ss
  686.  068e  57                                push    di
  687.  068f  b8 ff 00                          mov     ax,00ffH
  688.  0692  50                                push    ax
  689.  0693  9a 00 00 00 00                    call    far SYSTEM_00C
  690.  0698  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  691.  069b  06                                push    es
  692.  069c  57                                push    di
  693.  069d  8d be fe fe                       lea     di,-102H[bp]
  694.  06a1  16                                push    ss
  695.  06a2  57                                push    di
  696.  06a3  b8 ff 00                          mov     ax,00ffH
  697.  06a6  50                                push    ax
  698.  06a7  9a 00 00 00 00                    call    far SYSTEM_00C
  699.  06ac  31 c0                             xor     ax,ax
  700.  06ae  89 86 f0 fc                       mov     -310H[bp],ax
  701.  06b2  8d be f0 fb                       lea     di,-410H[bp]
  702.  06b6  16                                push    ss
  703.  06b7  57                                push    di
  704.  06b8  8d be fe fd                       lea     di,-202H[bp]
  705.  06bc  16                                push    ss
  706.  06bd  57                                push    di
  707.  06be  9a 00 00 00 00                    call    far SYSTEM_00B
  708.  06c3  bf 00 00                          mov     di,offset L35
  709.  06c6  0e                                push    cs
  710.  06c7  57                                push    di
  711.  06c8  9a 00 00 00 00                    call    far SYSTEM_00F
  712.  06cd  8d be f4 fc                       lea     di,-30cH[bp]
  713.  06d1  16                                push    ss
  714.  06d2  57                                push    di
  715.  06d3  b8 ff 00                          mov     ax,00ffH
  716.  06d6  50                                push    ax
  717.  06d7  9a 00 00 00 00                    call    far SYSTEM_00C
  718.  06dc  8a 86 f4 fc                       mov     al,-30cH[bp]
  719.  06e0  30 e4                             xor     ah,ah
  720.  06e2  89 86 f2 fc                       mov     -30eH[bp],ax
  721.  06e6  31 c0                             xor     ax,ax
  722.  06e8  89 86 f8 fd                       mov     -208H[bp],ax
  723.  06ec  8a 86 fe fe                       mov     al,-102H[bp]
  724.  06f0  30 e4                             xor     ah,ah
  725.  06f2  40                                inc     ax
  726.  06f3  89 86 fc fd                       mov     -204H[bp],ax
  727.  06f7  81 be fc fd fe 00                 cmp     word ptr -204H[bp],00feH
  728.  06fd  7e 2e                             jle     L39
  729.  06ff  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  730.  0702  1e                                push    ds
  731.  0703  57                                push    di
  732.  0704  bf 00 00                          mov     di,offset L36
  733.  0707  0e                                push    cs
  734.  0708  57                                push    di
  735.  0709  31 c0                             xor     ax,ax
  736.  070b  50                                push    ax
  737.  070c  9a 00 00 00 00                    call    far SYSTEM_036
  738.  0711  b0 07                             mov     al,07H
  739.  0713  50                                push    ax
  740.  0714  31 c0                             xor     ax,ax
  741.  0716  50                                push    ax
  742.  0717  9a 00 00 00 00                    call    far SYSTEM_039
  743.  071c  9a 00 00 00 00                    call    far SYSTEM_03A
  744.  0721  9a 00 00 00 00                    call    far SYSTEM_032
  745.  0726  31 c0                             xor     ax,ax
  746.  0728  9a 00 00 00 00                    call    far SYSTEM_003
  747.  072d  8d be f0 fb       L39             lea     di,-410H[bp]
  748.  0731  16                                push    ss
  749.  0732  57                                push    di
  750.  0733  8d be fe fe                       lea     di,-102H[bp]
  751.  0737  16                                push    ss
  752.  0738  57                                push    di
  753.  0739  9a 00 00 00 00                    call    far SYSTEM_00B
  754.  073e  bf 00 00                          mov     di,offset L35
  755.  0741  0e                                push    cs
  756.  0742  57                                push    di
  757.  0743  9a 00 00 00 00                    call    far SYSTEM_00F
  758.  0748  8d be fe fe                       lea     di,-102H[bp]
  759.  074c  16                                push    ss
  760.  074d  57                                push    di
  761.  074e  b8 ff 00                          mov     ax,00ffH
  762.  0751  50                                push    ax
  763.  0752  9a 00 00 00 00                    call    far SYSTEM_00C
  764.  0757  8b 86 f8 fd       L40             mov     ax,-208H[bp]
  765.  075b  89 86 fa fd                       mov     -206H[bp],ax
  766.  075f  8b 86 fa fd       L41             mov     ax,-206H[bp]
  767.  0763  40                                inc     ax
  768.  0764  89 86 fa fd                       mov     -206H[bp],ax
  769.  0768  8b 86 fa fd                       mov     ax,-206H[bp]
  770.  076c  3b 86 fc fd                       cmp     ax,-204H[bp]
  771.  0770  7e 08                             jle     L42
  772.  0772  bf 00 00                          mov     di,offset L37
  773.  0775  0e                                push    cs
  774.  0776  57                                push    di
  775.  0777  e8 00 00                          call    TSUNTD_012
  776.  077a  8d be f0 fb       L42             lea     di,-410H[bp]
  777.  077e  16                                push    ss
  778.  077f  57                                push    di
  779.  0780  8b be fa fd                       mov     di,-206H[bp]
  780.  0784  8a 83 fe fe                       mov     al,-102H[bp+di]
  781.  0788  50                                push    ax
  782.  0789  9a 00 00 00 00                    call    far SYSTEM_012
  783.  078e  8d be f4 fc                       lea     di,-30cH[bp]
  784.  0792  16                                push    ss
  785.  0793  57                                push    di
  786.  0794  9a 00 00 00 00                    call    far SYSTEM_010
  787.  0799  89 86 f4 fd                       mov     -20cH[bp],ax
  788.  079d  8b 86 f4 fd                       mov     ax,-20cH[bp]
  789.  07a1  3b 86 f2 fc                       cmp     ax,-30eH[bp]
  790.  07a5  75 0a                             jne     L43
  791.  07a7  8b 86 f0 fc                       mov     ax,-310H[bp]
  792.  07ab  89 46 fe                          mov     -2H[bp],ax
  793.  07ae  e9 82 00                          jmp     L51
  794.  07b1  83 be f4 fd 00    L43             cmp     word ptr -20cH[bp],0000H
  795.  07b6  75 0a                             jne     L44
  796.  07b8  8b 86 fa fd                       mov     ax,-206H[bp]
  797.  07bc  89 86 f6 fd                       mov     -20aH[bp],ax
  798.  07c0  eb 02                             jmp     L45
  799.  07c2  eb 9b             L44             jmp     L41
  800.  07c4  8b 86 f6 fd       L45             mov     ax,-20aH[bp]
  801.  07c8  89 86 fa fd                       mov     -206H[bp],ax
  802.  07cc  8b 86 fa fd       L46             mov     ax,-206H[bp]
  803.  07d0  40                                inc     ax
  804.  07d1  89 86 fa fd                       mov     -206H[bp],ax
  805.  07d5  8b 86 fa fd                       mov     ax,-206H[bp]
  806.  07d9  3b 86 fc fd                       cmp     ax,-204H[bp]
  807.  07dd  7e 08                             jle     L47
  808.  07df  bf 00 00                          mov     di,offset L37
  809.  07e2  0e                                push    cs
  810.  07e3  57                                push    di
  811.  07e4  e8 00 00                          call    TSUNTD_012
  812.  07e7  8d be f0 fb       L47             lea     di,-410H[bp]
  813.  07eb  16                                push    ss
  814.  07ec  57                                push    di
  815.  07ed  8b be fa fd                       mov     di,-206H[bp]
  816.  07f1  8a 83 fe fe                       mov     al,-102H[bp+di]
  817.  07f5  50                                push    ax
  818.  07f6  9a 00 00 00 00                    call    far SYSTEM_012
  819.  07fb  8d be f4 fc                       lea     di,-30cH[bp]
  820.  07ff  16                                push    ss
  821.  0800  57                                push    di
  822.  0801  9a 00 00 00 00                    call    far SYSTEM_010
  823.  0806  09 c0                             or      ax,ax
  824.  0808  7e 0a                             jle     L48
  825.  080a  8b 86 fa fd                       mov     ax,-206H[bp]
  826.  080e  89 86 f8 fd                       mov     -208H[bp],ax
  827.  0812  eb 02                             jmp     L49
  828.  0814  eb b6             L48             jmp     L46
  829.  0816  8b 86 f0 fc       L49             mov     ax,-310H[bp]
  830.  081a  40                                inc     ax
  831.  081b  89 86 f0 fc                       mov     -310H[bp],ax
  832.  081f  8b 86 f8 fd                       mov     ax,-208H[bp]
  833.  0823  3b 86 fc fd                       cmp     ax,-204H[bp]
  834.  0827  7d 03                             jge     L50
  835.  0829  e9 2b ff                          jmp     L40
  836.  082c  8b 86 f0 fc       L50             mov     ax,-310H[bp]
  837.  0830  89 46 fe                          mov     -2H[bp],ax
  838.  0833  8b 46 fe          L51             mov     ax,-2H[bp]
  839.  0836  89 ec                             mov     sp,bp
  840.  0838  5d                                pop     bp
  841.  0839  ca 08 00                          retf    0008H
  842.  083c  0c 4f             L52             or      al,4fH
  843.  083e  75 74                             jne     L56
  844.  0840  20 6f 66                          and     +66H[bx],ch
  845.  0843  20 72 61                          and     +61H[bp+si],dh
  846.  0846  6e                                outsb   
  847.  0847  67 65 01 ff                       add     di,di
  848.  084b  07                L54             pop     es
  849.  084c  53                                push    bx
  850.  084d  50                                push    ax
  851.  084e  41                                inc     cx
  852.  084f  52                                push    dx
  853.  0850  54                                push    sp
  854.  0851  46                                inc     si
  855.  0852  4e                                dec     si
  856.  0853                    SPARTFN:
  857.  0853  55                TSUNTD_008      push    bp
  858.  0854  89 e5                             mov     bp,sp
  859.  0856  b8 0e 05                          mov     ax,050eH
  860.  0859  9a 00 00 00 00                    call    far SYSTEM_034
  861.  085e  81 ec 0e 05                       sub     sp,050eH
  862.  0862  c4 7e 08                          les     di,dword ptr +8H[bp]
  863.  0865  06                                push    es
  864.  0866  57                                push    di
  865.  0867  8d be 00 fe                       lea     di,-200H[bp]
  866.  086b  16                                push    ss
  867.  086c  57                                push    di
  868.  086d  b8 ff 00                          mov     ax,00ffH
  869.  0870  50                                push    ax
  870.  0871  9a 00 00 00 00                    call    far SYSTEM_00C
  871.  0876  c4 7e 0c                          les     di,dword ptr +0cH[bp]
  872.  0879  06                                push    es
  873.  087a  57                                push    di
  874.  087b  8d be 00 ff                       lea     di,-100H[bp]
  875.  087f  16                                push    ss
  876.  0880  57                                push    di
  877.  0881  b8 ff 00                          mov     ax,00ffH
  878.  0884  50                                push    ax
  879.  0885  9a 00 00 00 00                    call    far SYSTEM_00C
  880.  088a  8d be 00 ff                       lea     di,-100H[bp]
  881.  088e  16                                push    ss
  882.  088f  57                                push    di
  883.  0890  8d be 00 fe                       lea     di,-200H[bp]
  884.  0894  16                                push    ss
  885.  0895  57                                push    di
  886.  0896  0e                                push    cs
  887.  0897  e8 00 00                          call    STRCNTFN
  888.  089a  89 86 f2 fb                       mov     -40eH[bp],ax
  889.  089e  83 7e 06 01                       cmp     word ptr +6H[bp],0001H
  890.  08a2  7c 09                             jl      L55
  891.  08a4  8b 46 06                          mov     ax,+6H[bp]
  892.  08a7  3b 86 f2 fb                       cmp     ax,-40eH[bp]
  893.  08ab  7e 16                             jle     L57
  894.  08ad  bf 00 00          L55             mov     di,offset L52
  895.  08b0  0e                                push    cs
  896.  08b1  57                                push    di
  897.  08b2  c4 7e 10                          les     di,dword ptr +10H[bp]
  898.  08b5  06                                push    es
  899.  08b6  57                                push    di
  900.  08b7  b8 ff 00                          mov     ax,00ffH
  901.  08ba  50                                push    ax
  902.  08bb  9a 00 00 00 00                    call    far SYSTEM_00C
  903.  08c0  e9 e9 01                          jmp     L73
  904.  08c3  31 c0             L57             xor     ax,ax
  905.  08c5  89 86 f2 fb                       mov     -40eH[bp],ax
  906.  08c9  8d be f2 fa                       lea     di,-50eH[bp]
  907.  08cd  16                                push    ss
  908.  08ce  57                                push    di
  909.  08cf  8d be 00 fe                       lea     di,-200H[bp]
  910.  08d3  16                                push    ss
  911.  08d4  57                                push    di
  912.  08d5  9a 00 00 00 00                    call    far SYSTEM_00B
  913.  08da  bf 00 00                          mov     di,offset L53
  914.  08dd  0e                                push    cs
  915.  08de  57                                push    di
  916.  08df  9a 00 00 00 00                    call    far SYSTEM_00F
  917.  08e4  8d be f6 fb                       lea     di,-40aH[bp]
  918.  08e8  16                                push    ss
  919.  08e9  57                                push    di
  920.  08ea  b8 ff 00                          mov     ax,00ffH
  921.  08ed  50                                push    ax
  922.  08ee  9a 00 00 00 00                    call    far SYSTEM_00C
  923.  08f3  8a 86 f6 fb                       mov     al,-40aH[bp]
  924.  08f7  30 e4                             xor     ah,ah
  925.  08f9  89 86 f4 fb                       mov     -40cH[bp],ax
  926.  08fd  8d be f6 fc                       lea     di,-30aH[bp]
  927.  0901  16                                push    ss
  928.  0902  57                                push    di
  929.  0903  b8 00 01                          mov     ax,0100H
  930.  0906  50                                push    ax
  931.  0907  b0 2a                             mov     al,2aH
  932.  0909  50                                push    ax
  933.  090a  9a 00 00 00 00                    call    far SYSTEM_05C
  934.  090f  31 c0                             xor     ax,ax
  935.  0911  89 86 fa fd                       mov     -206H[bp],ax
  936.  0915  8a 86 00 ff                       mov     al,-100H[bp]
  937.  0919  30 e4                             xor     ah,ah
  938.  091b  40                                inc     ax
  939.  091c  89 86 fe fd                       mov     -202H[bp],ax
  940.  0920  81 be fe fd fe 00                 cmp     word ptr -202H[bp],00feH
  941.  0926  7e 0a                             jle     L58
  942.  0928  c4 7e 10                          les     di,dword ptr +10H[bp]
  943.  092b  26 c6 05 00                       mov     byte ptr es:[di],00H
  944.  092f  e9 7a 01                          jmp     L73
  945.  0932  8d be f2 fa       L58             lea     di,-50eH[bp]
  946.  0936  16                                push    ss
  947.  0937  57                                push    di
  948.  0938  8d be 00 ff                       lea     di,-100H[bp]
  949.  093c  16                                push    ss
  950.  093d  57                                push    di
  951.  093e  9a 00 00 00 00                    call    far SYSTEM_00B
  952.  0943  bf 00 00                          mov     di,offset L53
  953.  0946  0e                                push    cs
  954.  0947  57                                push    di
  955.  0948  9a 00 00 00 00                    call    far SYSTEM_00F
  956.  094d  8d be 00 ff                       lea     di,-100H[bp]
  957.  0951  16                                push    ss
  958.  0952  57                                push    di
  959.  0953  b8 ff 00                          mov     ax,00ffH
  960.  0956  50                                push    ax
  961.  0957  9a 00 00 00 00                    call    far SYSTEM_00C
  962.  095c  8b 86 fa fd       L59             mov     ax,-206H[bp]
  963.  0960  89 86 fc fd                       mov     -204H[bp],ax
  964.  0964  8b 86 fc fd       L60             mov     ax,-204H[bp]
  965.  0968  40                                inc     ax
  966.  0969  89 86 fc fd                       mov     -204H[bp],ax
  967.  096d  8b 86 fc fd                       mov     ax,-204H[bp]
  968.  0971  3b 86 fe fd                       cmp     ax,-202H[bp]
  969.  0975  7e 08                             jle     L61
  970.  0977  bf 00 00                          mov     di,offset L54
  971.  097a  0e                                push    cs
  972.  097b  57                                push    di
  973.  097c  e8 00 00                          call    TSUNTD_012
  974.  097f  8d be f2 fa       L61             lea     di,-50eH[bp]
  975.  0983  16                                push    ss
  976.  0984  57                                push    di
  977.  0985  8b be fc fd                       mov     di,-204H[bp]
  978.  0989  8a 83 00 ff                       mov     al,-100H[bp+di]
  979.  098d  50                                push    ax
  980.  098e  9a 00 00 00 00                    call    far SYSTEM_012
  981.  0993  8d be f6 fb                       lea     di,-40aH[bp]
  982.  0997  16                                push    ss
  983.  0998  57                                push    di
  984.  0999  9a 00 00 00 00                    call    far SYSTEM_010
  985.  099e  89 86 f6 fd                       mov     -20aH[bp],ax
  986.  09a2  8b 86 f6 fd                       mov     ax,-20aH[bp]
  987.  09a6  3b 86 f4 fb                       cmp     ax,-40cH[bp]
  988.  09aa  75 0a                             jne     L62
  989.  09ac  c4 7e 10                          les     di,dword ptr +10H[bp]
  990.  09af  26 c6 05 00                       mov     byte ptr es:[di],00H
  991.  09b3  e9 f6 00                          jmp     L73
  992.  09b6  83 be f6 fd 00    L62             cmp     word ptr -20aH[bp],0000H
  993.  09bb  75 0a                             jne     L63
  994.  09bd  8b 86 fc fd                       mov     ax,-204H[bp]
  995.  09c1  89 86 f8 fd                       mov     -208H[bp],ax
  996.  09c5  eb 02                             jmp     L64
  997.  09c7  eb 9b             L63             jmp     L60
  998.  09c9  8b 86 f8 fd       L64             mov     ax,-208H[bp]
  999.  09cd  89 86 fc fd                       mov     -204H[bp],ax
  1000.  09d1  8b 86 fc fd       L65             mov     ax,-204H[bp]
  1001.  09d5  40                                inc     ax
  1002.  09d6  89 86 fc fd                       mov     -204H[bp],ax
  1003.  09da  8b 86 fc fd                       mov     ax,-204H[bp]
  1004.  09de  3b 86 fe fd                       cmp     ax,-202H[bp]
  1005.  09e2  7e 08                             jle     L66
  1006.  09e4  bf 00 00                          mov     di,offset L54
  1007.  09e7  0e                                push    cs
  1008.  09e8  57                                push    di
  1009.  09e9  e8 00 00                          call    TSUNTD_012
  1010.  09ec  8d be f2 fa       L66             lea     di,-50eH[bp]
  1011.  09f0  16                                push    ss
  1012.  09f1  57                                push    di
  1013.  09f2  8b be fc fd                       mov     di,-204H[bp]
  1014.  09f6  8a 83 00 ff                       mov     al,-100H[bp+di]
  1015.  09fa  50                                push    ax
  1016.  09fb  9a 00 00 00 00                    call    far SYSTEM_012
  1017.  0a00  8d be f6 fb                       lea     di,-40aH[bp]
  1018.  0a04  16                                push    ss
  1019.  0a05  57                                push    di
  1020.  0a06  9a 00 00 00 00                    call    far SYSTEM_010
  1021.  0a0b  09 c0                             or      ax,ax
  1022.  0a0d  7e 0a                             jle     L67
  1023.  0a0f  8b 86 fc fd                       mov     ax,-204H[bp]
  1024.  0a13  89 86 fa fd                       mov     -206H[bp],ax
  1025.  0a17  eb 02                             jmp     L68
  1026.  0a19  eb b6             L67             jmp     L65
  1027.  0a1b  8d be f6 fc       L68             lea     di,-30aH[bp]
  1028.  0a1f  16                                push    ss
  1029.  0a20  57                                push    di
  1030.  0a21  b8 00 01                          mov     ax,0100H
  1031.  0a24  50                                push    ax
  1032.  0a25  b0 20                             mov     al,20H
  1033.  0a27  50                                push    ax
  1034.  0a28  9a 00 00 00 00                    call    far SYSTEM_05C
  1035.  0a2d  8b 86 fa fd                       mov     ax,-206H[bp]
  1036.  0a31  48                                dec     ax
  1037.  0a32  89 86 f0 fb                       mov     -410H[bp],ax
  1038.  0a36  8b 86 f8 fd                       mov     ax,-208H[bp]
  1039.  0a3a  3b 86 f0 fb                       cmp     ax,-410H[bp]
  1040.  0a3e  7f 2b                             jg      L71
  1041.  0a40  89 86 fc fd                       mov     -204H[bp],ax
  1042.  0a44  eb 04                             jmp     L70
  1043.  0a46  ff 86 fc fd       L69             inc     word ptr -204H[bp]
  1044.  0a4a  8b be fc fd       L70             mov     di,-204H[bp]
  1045.  0a4e  8a 93 00 ff                       mov     dl,-100H[bp+di]
  1046.  0a52  8b 86 fc fd                       mov     ax,-204H[bp]
  1047.  0a56  2b 86 f8 fd                       sub     ax,-208H[bp]
  1048.  0a5a  40                                inc     ax
  1049.  0a5b  8b f8                             mov     di,ax
  1050.  0a5d  88 93 f6 fc                       mov     -30aH[bp+di],dl
  1051.  0a61  8b 86 fc fd                       mov     ax,-204H[bp]
  1052.  0a65  3b 86 f0 fb                       cmp     ax,-410H[bp]
  1053.  0a69  75 db                             jne     L69
  1054.  0a6b  8b 86 fa fd       L71             mov     ax,-206H[bp]
  1055.  0a6f  2b 86 f8 fd                       sub     ax,-208H[bp]
  1056.  0a73  88 86 f6 fc                       mov     -30aH[bp],al
  1057.  0a77  8b 86 f2 fb                       mov     ax,-40eH[bp]
  1058.  0a7b  40                                inc     ax
  1059.  0a7c  89 86 f2 fb                       mov     -40eH[bp],ax
  1060.  0a80  8b 86 f2 fb                       mov     ax,-40eH[bp]
  1061.  0a84  3b 46 06                          cmp     ax,+6H[bp]
  1062.  0a87  75 16                             jne     L72
  1063.  0a89  8d be f6 fc                       lea     di,-30aH[bp]
  1064.  0a8d  16                                push    ss
  1065.  0a8e  57                                push    di
  1066.  0a8f  c4 7e 10                          les     di,dword ptr +10H[bp]
  1067.  0a92  06                                push    es
  1068.  0a93  57                                push    di
  1069.  0a94  b8 ff 00                          mov     ax,00ffH
  1070.  0a97  50                                push    ax
  1071.  0a98  9a 00 00 00 00                    call    far SYSTEM_00C
  1072.  0a9d  eb 0d                             jmp     L73
  1073.  0a9f  8b 86 fa fd       L72             mov     ax,-206H[bp]
  1074.  0aa3  3b 86 fe fd                       cmp     ax,-202H[bp]
  1075.  0aa7  7d 03                             jge     L73
  1076.  0aa9  e9 b0 fe                          jmp     L59
  1077.  0aac  89 ec             L73             mov     sp,bp
  1078.  0aae  5d                                pop     bp
  1079.  0aaf  ca 0a 00                          retf    000aH
  1080.  0ab2                    PARSENFN:
  1081.  0ab2  55                TSUNTD_009      push    bp
  1082.  0ab3  89 e5                             mov     bp,sp
  1083.  0ab5  b8 08 01                          mov     ax,0108H
  1084.  0ab8  9a 00 00 00 00                    call    far SYSTEM_034
  1085.  0abd  81 ec 08 01                       sub     sp,0108H
  1086.  0ac1  c4 7e 06                          les     di,dword ptr +6H[bp]
  1087.  0ac4  06                                push    es
  1088.  0ac5  57                                push    di
  1089.  0ac6  8d be fe fe                       lea     di,-102H[bp]
  1090.  0aca  16                                push    ss
  1091.  0acb  57                                push    di
  1092.  0acc  b8 ff 00                          mov     ax,00ffH
  1093.  0acf  50                                push    ax
  1094.  0ad0  9a 00 00 00 00                    call    far SYSTEM_00C
  1095.  0ad5  8a 86 fe fe                       mov     al,-102H[bp]
  1096.  0ad9  30 e4                             xor     ah,ah
  1097.  0adb  89 86 fc fe                       mov     -104H[bp],ax
  1098.  0adf  31 c0                             xor     ax,ax
  1099.  0ae1  89 86 fa fe                       mov     -106H[bp],ax
  1100.  0ae5  c7 86 f8 fe 01 00                 mov     word ptr -108H[bp],0001H
  1101.  0aeb  8b be f8 fe       L74             mov     di,-108H[bp]
  1102.  0aef  80 bb fe fe 20                    cmp     byte ptr -102H[bp+di],20H
  1103.  0af4  77 10                             ja      L75
  1104.  0af6  8b 86 f8 fe                       mov     ax,-108H[bp]
  1105.  0afa  3b 86 fc fe                       cmp     ax,-104H[bp]
  1106.  0afe  7f 06                             jg      L75
  1107.  0b00  ff 86 f8 fe                       inc     word ptr -108H[bp]
  1108.  0b04  eb e5                             jmp     L74
  1109.  0b06  8b 86 f8 fe       L75             mov     ax,-108H[bp]
  1110.  0b0a  3b 86 fc fe                       cmp     ax,-104H[bp]
  1111.  0b0e  7e 09                             jle     L76
  1112.  0b10  8b 86 fa fe                       mov     ax,-106H[bp]
  1113.  0b14  89 46 fe                          mov     -2H[bp],ax
  1114.  0b17  eb 34                             jmp     L79
  1115.  0b19  8b be f8 fe       L76             mov     di,-108H[bp]
  1116.  0b1d  80 bb fe fe 20                    cmp     byte ptr -102H[bp+di],20H
  1117.  0b22  76 10                             jbe     L77
  1118.  0b24  8b 86 f8 fe                       mov     ax,-108H[bp]
  1119.  0b28  3b 86 fc fe                       cmp     ax,-104H[bp]
  1120.  0b2c  7f 06                             jg      L77
  1121.  0b2e  ff 86 f8 fe                       inc     word ptr -108H[bp]
  1122.  0b32  eb e5                             jmp     L76
  1123.  0b34  ff 86 fa fe       L77             inc     word ptr -106H[bp]
  1124.  0b38  8b 86 f8 fe                       mov     ax,-108H[bp]
  1125.  0b3c  3b 86 fc fe                       cmp     ax,-104H[bp]
  1126.  0b40  7e 09                             jle     L78
  1127.  0b42  8b 86 fa fe                       mov     ax,-106H[bp]
  1128.  0b46  89 46 fe                          mov     -2H[bp],ax
  1129.  0b49  eb 02                             jmp     L79
  1130.  0b4b  eb 9e             L78             jmp     L74
  1131.  0b4d  8b 46 fe          L79             mov     ax,-2H[bp]
  1132.  0b50  89 ec                             mov     sp,bp
  1133.  0b52  5d                                pop     bp
  1134.  0b53  ca 04 00                          retf    0004H
  1135.  0b56                    PARSERFN:
  1136.  0b56  55                TSUNTD_00A      push    bp
  1137.  0b57  89 e5                             mov     bp,sp
  1138.  0b59  b8 08 02                          mov     ax,0208H
  1139.  0b5c  9a 00 00 00 00                    call    far SYSTEM_034
  1140.  0b61  81 ec 08 02                       sub     sp,0208H
  1141.  0b65  c4 7e 08                          les     di,dword ptr +8H[bp]
  1142.  0b68  06                                push    es
  1143.  0b69  57                                push    di
  1144.  0b6a  8d be 00 ff                       lea     di,-100H[bp]
  1145.  0b6e  16                                push    ss
  1146.  0b6f  57                                push    di
  1147.  0b70  b8 ff 00                          mov     ax,00ffH
  1148.  0b73  50                                push    ax
  1149.  0b74  9a 00 00 00 00                    call    far SYSTEM_00C
  1150.  0b79  83 7e 06 01                       cmp     word ptr +6H[bp],0001H
  1151.  0b7d  7c 0f                             jl      L80
  1152.  0b7f  8d be 00 ff                       lea     di,-100H[bp]
  1153.  0b83  16                                push    ss
  1154.  0b84  57                                push    di
  1155.  0b85  0e                                push    cs
  1156.  0b86  e8 00 00                          call    PARSENFN
  1157.  0b89  3b 46 06                          cmp     ax,+6H[bp]
  1158.  0b8c  7d 0a                             jge     L81
  1159.  0b8e  c4 7e 0c          L80             les     di,dword ptr +0cH[bp]
  1160.  0b91  26 c6 05 00                       mov     byte ptr es:[di],00H
  1161.  0b95  e9 b1 00                          jmp     L88
  1162.  0b98  8a 86 00 ff       L81             mov     al,-100H[bp]
  1163.  0b9c  30 e4                             xor     ah,ah
  1164.  0b9e  89 86 fe fe                       mov     -102H[bp],ax
  1165.  0ba2  31 c0                             xor     ax,ax
  1166.  0ba4  89 86 fc fe                       mov     -104H[bp],ax
  1167.  0ba8  c7 86 f8 fe 01 00                 mov     word ptr -108H[bp],0001H
  1168.  0bae  8b be f8 fe       L82             mov     di,-108H[bp]
  1169.  0bb2  80 bb 00 ff 20                    cmp     byte ptr -100H[bp+di],20H
  1170.  0bb7  77 10                             ja      L83
  1171.  0bb9  8b 86 f8 fe                       mov     ax,-108H[bp]
  1172.  0bbd  3b 86 fe fe                       cmp     ax,-102H[bp]
  1173.  0bc1  7f 06                             jg      L83
  1174.  0bc3  ff 86 f8 fe                       inc     word ptr -108H[bp]
  1175.  0bc7  eb e5                             jmp     L82
  1176.  0bc9  ff 86 fc fe       L83             inc     word ptr -104H[bp]
  1177.  0bcd  8b 86 fc fe                       mov     ax,-104H[bp]
  1178.  0bd1  3b 46 06                          cmp     ax,+6H[bp]
  1179.  0bd4  75 55                             jne     L86
  1180.  0bd6  31 c0                             xor     ax,ax
  1181.  0bd8  89 86 fa fe                       mov     -106H[bp],ax
  1182.  0bdc  8b be f8 fe       L84             mov     di,-108H[bp]
  1183.  0be0  80 bb 00 ff 20                    cmp     byte ptr -100H[bp+di],20H
  1184.  0be5  76 2c                             jbe     L85
  1185.  0be7  8b 86 f8 fe                       mov     ax,-108H[bp]
  1186.  0beb  3b 86 fe fe                       cmp     ax,-102H[bp]
  1187.  0bef  7f 22                             jg      L85
  1188.  0bf1  ff 86 fa fe                       inc     word ptr -106H[bp]
  1189.  0bf5  8a 86 fa fe                       mov     al,-106H[bp]
  1190.  0bf9  88 86 f8 fd                       mov     -208H[bp],al
  1191.  0bfd  8b be f8 fe                       mov     di,-108H[bp]
  1192.  0c01  8a 83 00 ff                       mov     al,-100H[bp+di]
  1193.  0c05  8b be fa fe                       mov     di,-106H[bp]
  1194.  0c09  88 83 f8 fd                       mov     -208H[bp+di],al
  1195.  0c0d  ff 86 f8 fe                       inc     word ptr -108H[bp]
  1196.  0c11  eb c9                             jmp     L84
  1197.  0c13  8d be f8 fd       L85             lea     di,-208H[bp]
  1198.  0c17  16                                push    ss
  1199.  0c18  57                                push    di
  1200.  0c19  c4 7e 0c                          les     di,dword ptr +0cH[bp]
  1201.  0c1c  06                                push    es
  1202.  0c1d  57                                push    di
  1203.  0c1e  b8 ff 00                          mov     ax,00ffH
  1204.  0c21  50                                push    ax
  1205.  0c22  9a 00 00 00 00                    call    far SYSTEM_00C
  1206.  0c27  eb 20                             jmp     L88
  1207.  0c29  eb 1b                             jmp     L87
  1208.  0c2b  8b be f8 fe       L86             mov     di,-108H[bp]
  1209.  0c2f  80 bb 00 ff 20                    cmp     byte ptr -100H[bp+di],20H
  1210.  0c34  76 10                             jbe     L87
  1211.  0c36  8b 86 f8 fe                       mov     ax,-108H[bp]
  1212.  0c3a  3b 86 fe fe                       cmp     ax,-102H[bp]
  1213.  0c3e  7f 06                             jg      L87
  1214.  0c40  ff 86 f8 fe                       inc     word ptr -108H[bp]
  1215.  0c44  eb e5                             jmp     L86
  1216.  0c46  e9 65 ff          L87             jmp     L82
  1217.  0c49  89 ec             L88             mov     sp,bp
  1218.  0c4b  5d                                pop     bp
  1219.  0c4c  ca 06 00                          retf    0006H
  1220.  0c4f                    DOSDELAY:
  1221.  0c4f  55                TSUNTD_00B      push    bp
  1222.  0c50  89 e5                             mov     bp,sp
  1223.  0c52  b8 14 00                          mov     ax,0014H
  1224.  0c55  9a 00 00 00 00                    call    far SYSTEM_034
  1225.  0c5a  83 ec 14                          sub     sp,0014H
  1226.  0c5d  8d 7e f8                          lea     di,-8H[bp]
  1227.  0c60  16                                push    ss
  1228.  0c61  57                                push    di
  1229.  0c62  8d 7e fa                          lea     di,-6H[bp]
  1230.  0c65  16                                push    ss
  1231.  0c66  57                                push    di
  1232.  0c67  8d 7e fc                          lea     di,-4H[bp]
  1233.  0c6a  16                                push    ss
  1234.  0c6b  57                                push    di
  1235.  0c6c  8d 7e fe                          lea     di,-2H[bp]
  1236.  0c6f  16                                push    ss
  1237.  0c70  57                                push    di
  1238.  0c71  9a 00 00 00 00                    call    far DOS_005
  1239.  0c76  8b 46 fe                          mov     ax,-2H[bp]
  1240.  0c79  31 d2                             xor     dx,dx
  1241.  0c7b  9a 00 00 00 00                    call    far SYSTEM_073
  1242.  0c80  b9 87 00                          mov     cx,0087H
  1243.  0c83  31 f6                             xor     si,si
  1244.  0c85  bf 00 48                          mov     di,4800H
  1245.  0c88  9a 00 00 00 00                    call    far SYSTEM_071
  1246.  0c8d  52                                push    dx
  1247.  0c8e  53                                push    bx
  1248.  0c8f  50                                push    ax
  1249.  0c90  8b 46 fa                          mov     ax,-6H[bp]
  1250.  0c93  b9 3c 00                          mov     cx,003cH
  1251.  0c96  f7 e1                             mul     cx
  1252.  0c98  8b d8                             mov     bx,ax
  1253.  0c9a  8b 46 f8                          mov     ax,-8H[bp]
  1254.  0c9d  b9 10 0e                          mov     cx,0e10H
  1255.  0ca0  f7 e1                             mul     cx
  1256.  0ca2  03 c3                             add     ax,bx
  1257.  0ca4  03 46 fc                          add     ax,-4H[bp]
  1258.  0ca7  31 d2                             xor     dx,dx
  1259.  0ca9  9a 00 00 00 00                    call    far SYSTEM_073
  1260.  0cae  59                                pop     cx
  1261.  0caf  5e                                pop     si
  1262.  0cb0  5f                                pop     di
  1263.  0cb1  9a 00 00 00 00                    call    far SYSTEM_06E
  1264.  0cb6  89 46 f2                          mov     -0eH[bp],ax
  1265.  0cb9  89 5e f4                          mov     -0cH[bp],bx
  1266.  0cbc  89 56 f6                          mov     -0aH[bp],dx
  1267.  0cbf  8d 7e f8          L89             lea     di,-8H[bp]
  1268.  0cc2  16                                push    ss
  1269.  0cc3  57                                push    di
  1270.  0cc4  8d 7e fa                          lea     di,-6H[bp]
  1271.  0cc7  16                                push    ss
  1272.  0cc8  57                                push    di
  1273.  0cc9  8d 7e fc                          lea     di,-4H[bp]
  1274.  0ccc  16                                push    ss
  1275.  0ccd  57                                push    di
  1276.  0cce  8d 7e fe                          lea     di,-2H[bp]
  1277.  0cd1  16                                push    ss
  1278.  0cd2  57                                push    di
  1279.  0cd3  9a 00 00 00 00                    call    far DOS_005
  1280.  0cd8  8b 46 fe                          mov     ax,-2H[bp]
  1281.  0cdb  31 d2                             xor     dx,dx
  1282.  0cdd  9a 00 00 00 00                    call    far SYSTEM_073
  1283.  0ce2  b9 87 00                          mov     cx,0087H
  1284.  0ce5  31 f6                             xor     si,si
  1285.  0ce7  bf 00 48                          mov     di,4800H
  1286.  0cea  9a 00 00 00 00                    call    far SYSTEM_071
  1287.  0cef  52                                push    dx
  1288.  0cf0  53                                push    bx
  1289.  0cf1  50                                push    ax
  1290.  0cf2  8b 46 fa                          mov     ax,-6H[bp]
  1291.  0cf5  b9 3c 00                          mov     cx,003cH
  1292.  0cf8  f7 e1                             mul     cx
  1293.  0cfa  8b d8                             mov     bx,ax
  1294.  0cfc  8b 46 f8                          mov     ax,-8H[bp]
  1295.  0cff  b9 10 0e                          mov     cx,0e10H
  1296.  0d02  f7 e1                             mul     cx
  1297.  0d04  03 c3                             add     ax,bx
  1298.  0d06  03 46 fc                          add     ax,-4H[bp]
  1299.  0d09  31 d2                             xor     dx,dx
  1300.  0d0b  9a 00 00 00 00                    call    far SYSTEM_073
  1301.  0d10  59                                pop     cx
  1302.  0d11  5e                                pop     si
  1303.  0d12  5f                                pop     di
  1304.  0d13  9a 00 00 00 00                    call    far SYSTEM_06E
  1305.  0d18  89 46 ec                          mov     -14H[bp],ax
  1306.  0d1b  89 5e ee                          mov     -12H[bp],bx
  1307.  0d1e  89 56 f0                          mov     -10H[bp],dx
  1308.  0d21  8b 46 06                          mov     ax,+6H[bp]
  1309.  0d24  31 d2                             xor     dx,dx
  1310.  0d26  9a 00 00 00 00                    call    far SYSTEM_073
  1311.  0d2b  52                                push    dx
  1312.  0d2c  53                                push    bx
  1313.  0d2d  50                                push    ax
  1314.  0d2e  8b 46 ec                          mov     ax,-14H[bp]
  1315.  0d31  8b 5e ee                          mov     bx,-12H[bp]
  1316.  0d34  8b 56 f0                          mov     dx,-10H[bp]
  1317.  0d37  8b 4e f2                          mov     cx,-0eH[bp]
  1318.  0d3a  8b 76 f4                          mov     si,-0cH[bp]
  1319.  0d3d  8b 7e f6                          mov     di,-0aH[bp]
  1320.  0d40  9a 00 00 00 00                    call    far SYSTEM_06F
  1321.  0d45  b9 8a 00                          mov     cx,008aH
  1322.  0d48  31 f6                             xor     si,si
  1323.  0d4a  bf 00 7a                          mov     di,7a00H
  1324.  0d4d  9a 00 00 00 00                    call    far SYSTEM_070
  1325.  0d52  59                                pop     cx
  1326.  0d53  5e                                pop     si
  1327.  0d54  5f                                pop     di
  1328.  0d55  9a 00 00 00 00                    call    far SYSTEM_072
  1329.  0d5a  77 27                             ja      L90
  1330.  0d5c  8b 46 ec                          mov     ax,-14H[bp]
  1331.  0d5f  8b 5e ee                          mov     bx,-12H[bp]
  1332.  0d62  8b 56 f0                          mov     dx,-10H[bp]
  1333.  0d65  8b 4e f2                          mov     cx,-0eH[bp]
  1334.  0d68  8b 76 f4                          mov     si,-0cH[bp]
  1335.  0d6b  8b 7e f6                          mov     di,-0aH[bp]
  1336.  0d6e  9a 00 00 00 00                    call    far SYSTEM_06F
  1337.  0d73  31 c9                             xor     cx,cx
  1338.  0d75  31 f6                             xor     si,si
  1339.  0d77  31 ff                             xor     di,di
  1340.  0d79  9a 00 00 00 00                    call    far SYSTEM_072
  1341.  0d7e  72 03                             jb      L90
  1342.  0d80  e9 3c ff                          jmp     L89
  1343.  0d83  89 ec             L90             mov     sp,bp
  1344.  0d85  5d                                pop     bp
  1345.  0d86  ca 02 00                          retf    0002H
  1346.  0d89  55                TSUNTD_013      push    bp
  1347.  0d8a  89 e5                             mov     bp,sp
  1348.  0d8c  b8 04 00                          mov     ax,0004H
  1349.  0d8f  9a 00 00 00 00                    call    far SYSTEM_034
  1350.  0d94  83 ec 04                          sub     sp,0004H
  1351.  0d97  b8 dc 34                          mov     ax,34dcH
  1352.  0d9a  ba 12 00                          mov     dx,0012H
  1353.  0d9d  c4 4e 04                          les     cx,dword ptr +4H[bp]
  1354.  0da0  8c c3                             mov     bx,es
  1355.  0da2  9a 00 00 00 00                    call    far SYSTEM_006
  1356.  0da7  89 46 fc                          mov     -4H[bp],ax
  1357.  0daa  89 56 fe                          mov     -2H[bp],dx
  1358.  0dad  83 7e fe 00                       cmp     word ptr -2H[bp],0000H
  1359.  0db1  7c 08                             jl      L91
  1360.  0db3  7f 08                             jg      L92
  1361.  0db5  83 7e fc 00                       cmp     word ptr -4H[bp],0000H
  1362.  0db9  77 02                             ja      L92
  1363.  0dbb  eb 23             L91             jmp     L93
  1364.  0dbd  b0 b6             L92             mov     al,0b6H
  1365.  0dbf  e6 43                             out     43H,al
  1366.  0dc1  c4 46 fc                          les     ax,dword ptr -4H[bp]
  1367.  0dc4  8c c2                             mov     dx,es
  1368.  0dc6  0d ff 00                          or      ax,00ffH
  1369.  0dc9  81 ca 00 00                       or      dx,0000H
  1370.  0dcd  e6 42                             out     42H,al
  1371.  0dcf  c4 46 fc                          les     ax,dword ptr -4H[bp]
  1372.  0dd2  8c c2                             mov     dx,es
  1373.  0dd4  b9 08 00                          mov     cx,0008H
  1374.  0dd7  31 db                             xor     bx,bx
  1375.  0dd9  9a 00 00 00 00                    call    far SYSTEM_007
  1376.  0dde  e6 42                             out     42H,al
  1377.  0de0  89 ec             L93             mov     sp,bp
  1378.  0de2  5d                                pop     bp
  1379.  0de3  c2 04 00                          ret     0004H
  1380.  0de6                    AUDIO:
  1381.  0de6  55                TSUNTD_00C      push    bp
  1382.  0de7  89 e5                             mov     bp,sp
  1383.  0de9  31 c0                             xor     ax,ax
  1384.  0deb  9a 00 00 00 00                    call    far SYSTEM_034
  1385.  0df0  ff 76 0a                          push    +0aH[bp]
  1386.  0df3  ff 76 08                          push    +8H[bp]
  1387.  0df6  e8 00 00                          call    TSUNTD_013
  1388.  0df9  e4 61                             in      al,61H
  1389.  0dfb  0c 03                             or      al,03H
  1390.  0dfd  e6 61                             out     61H,al
  1391.  0dff  ff 76 06                          push    +6H[bp]
  1392.  0e02  0e                                push    cs
  1393.  0e03  e8 00 00                          call    DOSDELAY
  1394.  0e06  e4 61                             in      al,61H
  1395.  0e08  24 fc                             and     al,0fcH
  1396.  0e0a  e6 61                             out     61H,al
  1397.  0e0c  89 ec                             mov     sp,bp
  1398.  0e0e  5d                                pop     bp
  1399.  0e0f  ca 06 00                          retf    0006H
  1400.  0e12                    PRTONLFN:
  1401.  0e12  55                TSUNTD_00D      push    bp
  1402.  0e13  89 e5                             mov     bp,sp
  1403.  0e15  b8 16 00                          mov     ax,0016H
  1404.  0e18  9a 00 00 00 00                    call    far SYSTEM_034
  1405.  0e1d  83 ec 16                          sub     sp,0016H
  1406.  0e20  b8 e8 03                          mov     ax,03e8H
  1407.  0e23  50                                push    ax
  1408.  0e24  0e                                push    cs
  1409.  0e25  e8 00 00                          call    DOSDELAY
  1410.  0e28  8d 7e eb                          lea     di,-15H[bp]
  1411.  0e2b  16                                push    ss
  1412.  0e2c  57                                push    di
  1413.  0e2d  b8 14 00                          mov     ax,0014H
  1414.  0e30  50                                push    ax
  1415.  0e31  b0 00                             mov     al,00H
  1416.  0e33  50                                push    ax
  1417.  0e34  9a 00 00 00 00                    call    far SYSTEM_05C
  1418.  0e39  31 c0                             xor     ax,ax
  1419.  0e3b  89 46 f1                          mov     -0fH[bp],ax
  1420.  0e3e  c6 46 ec 02                       mov     byte ptr -14H[bp],02H
  1421.  0e42  b0 17                             mov     al,17H
  1422.  0e44  50                                push    ax
  1423.  0e45  8d 7e eb                          lea     di,-15H[bp]
  1424.  0e48  16                                push    ss
  1425.  0e49  57                                push    di
  1426.  0e4a  9a 00 00 00 00                    call    far DOS_001
  1427.  0e4f  8a 46 ec                          mov     al,-14H[bp]
  1428.  0e52  88 46 ea                          mov     -16H[bp],al
  1429.  0e55  8a 46 ea                          mov     al,-16H[bp]
  1430.  0e58  24 10                             and     al,10H
  1431.  0e5a  08 c0                             or      al,al
  1432.  0e5c  75 09                             jne     L94
  1433.  0e5e  8a 46 ea                          mov     al,-16H[bp]
  1434.  0e61  24 08                             and     al,08H
  1435.  0e63  08 c0                             or      al,al
  1436.  0e65  74 0f                             je      L95
  1437.  0e67  8a 46 ea          L94             mov     al,-16H[bp]
  1438.  0e6a  24 80                             and     al,80H
  1439.  0e6c  08 c0                             or      al,al
  1440.  0e6e  75 06                             jne     L95
  1441.  0e70  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1442.  0e74  eb 04                             jmp     L96
  1443.  0e76  c6 46 ff 01       L95             mov     byte ptr -1H[bp],01H
  1444.  0e7a  8a 46 ff          L96             mov     al,-1H[bp]
  1445.  0e7d  89 ec                             mov     sp,bp
  1446.  0e7f  5d                                pop     bp
  1447.  0e80  cb                                retf    
  1448.  0e81                    GETPRTFN:
  1449.  0e81  55                TSUNTD_010      push    bp
  1450.  0e82  89 e5                             mov     bp,sp
  1451.  0e84  b8 01 00                          mov     ax,0001H
  1452.  0e87  9a 00 00 00 00                    call    far SYSTEM_034
  1453.  0e8c  83 ec 01                          sub     sp,0001H
  1454.  0e8f  be 40 00                          mov     si,0040H
  1455.  0e92  8e c6                             mov     es,si
  1456.  0e94  26 a0 78 00                       mov     al,es:[00000078H]
  1457.  0e98  88 46 ff                          mov     -1H[bp],al
  1458.  0e9b  8a 46 ff                          mov     al,-1H[bp]
  1459.  0e9e  89 ec                             mov     sp,bp
  1460.  0ea0  5d                                pop     bp
  1461.  0ea1  cb                                retf    
  1462.  0ea2                    SETPRT:
  1463.  0ea2  55                TSUNTD_011      push    bp
  1464.  0ea3  89 e5                             mov     bp,sp
  1465.  0ea5  b8 01 00                          mov     ax,0001H
  1466.  0ea8  9a 00 00 00 00                    call    far SYSTEM_034
  1467.  0ead  83 ec 01                          sub     sp,0001H
  1468.  0eb0  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  1469.  0eb4  75 02                             jne     L97
  1470.  0eb6  eb 22                             jmp     L100
  1471.  0eb8  c6 46 ff 01       L97             mov     byte ptr -1H[bp],01H
  1472.  0ebc  eb 03                             jmp     L99
  1473.  0ebe  fe 46 ff          L98             inc     byte ptr -1H[bp]
  1474.  0ec1  8a 56 06          L99             mov     dl,+6H[bp]
  1475.  0ec4  8a 46 ff                          mov     al,-1H[bp]
  1476.  0ec7  30 e4                             xor     ah,ah
  1477.  0ec9  8b f8                             mov     di,ax
  1478.  0ecb  be 40 00                          mov     si,0040H
  1479.  0ece  8e c6                             mov     es,si
  1480.  0ed0  26 88 55 77                       mov     es:+77H[di],dl
  1481.  0ed4  80 7e ff 04                       cmp     byte ptr -1H[bp],04H
  1482.  0ed8  75 e4                             jne     L98
  1483.  0eda  89 ec             L100            mov     sp,bp
  1484.  0edc  5d                                pop     bp
  1485.  0edd  ca 02 00                          retf    0002H
  1486.  0ee0  04 4c             L101            add     al,4cH
  1487.  0ee2  50                                push    ax
  1488.  0ee3  54                                push    sp
  1489.  0ee4  31 55 89                          xor     -77H[di],dx
  1490.  0ee7  e5 b8                             in      ax,0b8H
  1491.  0ee9  07                                pop     es
  1492.  0eea  01 9a 00 00                       add     SYSTEM_034[bp+si],bx
  1493.  0eee  00 00                             add     [bx+si],al
  1494.  0ef0  81 ec 07 01                       sub     sp,0107H
  1495.  0ef4  be 40 00                          mov     si,0040H
  1496.  0ef7  8e c6                             mov     es,si
  1497.  0ef9  26 c4 06 78 00                    les     ax,dword ptr es:[00000078H]
  1498.  0efe  8c c2                             mov     dx,es
  1499.  0f00  89 46 fb                          mov     -5H[bp],ax
  1500.  0f03  89 56 fd                          mov     -3H[bp],dx
  1501.  0f06  a0 00 00                          mov     al,SYSTEM_BSS+236H
  1502.  0f09  88 86 fa fe                       mov     -106H[bp],al
  1503.  0f0d  c6 86 f9 fe 01                    mov     byte ptr -107H[bp],01H
  1504.  0f12  eb 04                             jmp     L103
  1505.  0f14  fe 86 f9 fe       L102            inc     byte ptr -107H[bp]
  1506.  0f18  8a 86 f9 fe       L103            mov     al,-107H[bp]
  1507.  0f1c  30 e4                             xor     ah,ah
  1508.  0f1e  8b f8                             mov     di,ax
  1509.  0f20  be 40 00                          mov     si,0040H
  1510.  0f23  8e c6                             mov     es,si
  1511.  0f25  26 c6 45 77 02                    mov     byte ptr es:+77H[di],02H
  1512.  0f2a  80 be f9 fe 04                    cmp     byte ptr -107H[bp],04H
  1513.  0f2f  75 e3                             jne     L102
  1514.  0f31  c6 06 00 00 02                    mov     byte ptr SYSTEM_BSS+236H,02H
  1515.  0f36  8d be fb fe                       lea     di,-105H[bp]
  1516.  0f3a  16                                push    ss
  1517.  0f3b  57                                push    di
  1518.  0f3c  bf 00 00                          mov     di,offset L101
  1519.  0f3f  0e                                push    cs
  1520.  0f40  57                                push    di
  1521.  0f41  9a 00 00 00 00                    call    far SYSTEM_045
  1522.  0f46  8d be fb fe                       lea     di,-105H[bp]
  1523.  0f4a  16                                push    ss
  1524.  0f4b  57                                push    di
  1525.  0f4c  9a 00 00 00 00                    call    far SYSTEM_047
  1526.  0f51  9a 00 00 00 00                    call    far SYSTEM_032
  1527.  0f56  8d be fb fe                       lea     di,-105H[bp]
  1528.  0f5a  16                                push    ss
  1529.  0f5b  57                                push    di
  1530.  0f5c  b0 0d                             mov     al,0dH
  1531.  0f5e  50                                push    ax
  1532.  0f5f  31 c0                             xor     ax,ax
  1533.  0f61  50                                push    ax
  1534.  0f62  9a 00 00 00 00                    call    far SYSTEM_039
  1535.  0f67  9a 00 00 00 00                    call    far SYSTEM_03B
  1536.  0f6c  9a 00 00 00 00                    call    far SYSTEM_031
  1537.  0f71  09 c0                             or      ax,ax
  1538.  0f73  74 04                             je      L104
  1539.  0f75  b0 00                             mov     al,00H
  1540.  0f77  eb 02                             jmp     L105
  1541.  0f79  b0 01             L104            mov     al,01H
  1542.  0f7b  88 46 ff          L105            mov     -1H[bp],al
  1543.  0f7e  8d be fb fe                       lea     di,-105H[bp]
  1544.  0f82  16                                push    ss
  1545.  0f83  57                                push    di
  1546.  0f84  9a 00 00 00 00                    call    far SYSTEM_048
  1547.  0f89  9a 00 00 00 00                    call    far SYSTEM_032
  1548.  0f8e  8a 86 fa fe                       mov     al,-106H[bp]
  1549.  0f92  a2 00 00                          mov     SYSTEM_BSS+236H,al
  1550.  0f95  c4 46 fb                          les     ax,dword ptr -5H[bp]
  1551.  0f98  8c c2                             mov     dx,es
  1552.  0f9a  be 40 00                          mov     si,0040H
  1553.  0f9d  8e c6                             mov     es,si
  1554.  0f9f  26 a3 78 00                       mov     es:[00000078H],ax
  1555.  0fa3  26 89 16 7a 00                    mov     es:[0000007aH],dx
  1556.  0fa8  8a 46 ff                          mov     al,-1H[bp]
  1557.  0fab  89 ec                             mov     sp,bp
  1558.  0fad  5d                                pop     bp
  1559.  0fae  cb                                retf    
  1560.  0faf                    PRTSCR:
  1561.  0faf  55                TSUNTD_00F      push    bp
  1562.  0fb0  89 e5                             mov     bp,sp
  1563.  0fb2  b8 14 00                          mov     ax,0014H
  1564.  0fb5  9a 00 00 00 00                    call    far SYSTEM_034
  1565.  0fba  83 ec 14                          sub     sp,0014H
  1566.  0fbd  8d 7e ec                          lea     di,-14H[bp]
  1567.  0fc0  16                                push    ss
  1568.  0fc1  57                                push    di
  1569.  0fc2  b8 14 00                          mov     ax,0014H
  1570.  0fc5  50                                push    ax
  1571.  0fc6  b0 00                             mov     al,00H
  1572.  0fc8  50                                push    ax
  1573.  0fc9  9a 00 00 00 00                    call    far SYSTEM_05C
  1574.  0fce  b0 05                             mov     al,05H
  1575.  0fd0  50                                push    ax
  1576.  0fd1  8d 7e ec                          lea     di,-14H[bp]
  1577.  0fd4  16                                push    ss
  1578.  0fd5  57                                push    di
  1579.  0fd6  9a 00 00 00 00                    call    far DOS_001
  1580.  0fdb  89 ec                             mov     sp,bp
  1581.  0fdd  5d                                pop     bp
  1582.  0fde  cb                                retf    
  1583.  0fdf                    LOWCASFN:
  1584.  0fdf  55                TSUNTD_005      push    bp
  1585.  0fe0  89 e5                             mov     bp,sp
  1586.  0fe2  b8 01 00                          mov     ax,0001H
  1587.  0fe5  9a 00 00 00 00                    call    far SYSTEM_034
  1588.  0fea  83 ec 01                          sub     sp,0001H
  1589.  0fed  8a 46 06                          mov     al,+6H[bp]
  1590.  0ff0  50                                push    ax
  1591.  0ff1  58                                pop     ax
  1592.  0ff2  3d 41 00                          cmp     ax,0041H
  1593.  0ff5  7c 08                             jl      L106
  1594.  0ff7  3d 5a 00                          cmp     ax,005aH
  1595.  0ffa  7f 03                             jg      L106
  1596.  0ffc  05 20 00                          add     ax,0020H
  1597.  0fff  88 46 ff          L106            mov     -1H[bp],al
  1598.  1002  8a 46 ff                          mov     al,-1H[bp]
  1599.  1005  89 ec                             mov     sp,bp
  1600.  1007  5d                                pop     bp
  1601.  1008  ca 02 00                          retf    0002H
  1602.  
  1603. No disassembly errors
  1604.  
  1605. ------------------------------------------------------------
  1606.