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

  1.  
  2. Module: TSUNTE.PAS
  3. Group: 'DGROUP' _DATA,_BSS
  4.  
  5. Segment: TSUNTE_TEXT  PARA   00000e34 bytes  
  6.  0000                    CURSOFF:
  7.  0000  55                TSUNTE_001      push    bp
  8.  0001  89 e5                             mov     bp,sp
  9.  0003  b8 14 00                          mov     ax,0014H
  10.  0006  9a 00 00 00 00                    call    far SYSTEM_034
  11.  000b  83 ec 14                          sub     sp,0014H
  12.  000e  8d 7e ec                          lea     di,-14H[bp]
  13.  0011  16                                push    ss
  14.  0012  57                                push    di
  15.  0013  b8 14 00                          mov     ax,0014H
  16.  0016  50                                push    ax
  17.  0017  b0 00                             mov     al,00H
  18.  0019  50                                push    ax
  19.  001a  9a 00 00 00 00                    call    far SYSTEM_05C
  20.  001f  c6 46 ed 03                       mov     byte ptr -13H[bp],03H
  21.  0023  c6 46 ef 00                       mov     byte ptr -11H[bp],00H
  22.  0027  b0 10                             mov     al,10H
  23.  0029  50                                push    ax
  24.  002a  8d 7e ec                          lea     di,-14H[bp]
  25.  002d  16                                push    ss
  26.  002e  57                                push    di
  27.  002f  9a 00 00 00 00                    call    far DOS_001
  28.  0034  c6 46 ed 01                       mov     byte ptr -13H[bp],01H
  29.  0038  8a 46 f1                          mov     al,-0fH[bp]
  30.  003b  0c 20                             or      al,20H
  31.  003d  88 46 f1                          mov     -0fH[bp],al
  32.  0040  b0 10                             mov     al,10H
  33.  0042  50                                push    ax
  34.  0043  8d 7e ec                          lea     di,-14H[bp]
  35.  0046  16                                push    ss
  36.  0047  57                                push    di
  37.  0048  9a 00 00 00 00                    call    far DOS_001
  38.  004d  89 ec                             mov     sp,bp
  39.  004f  5d                                pop     bp
  40.  0050  cb                                retf    
  41.  0051                    CURSON:
  42.  0051  55                TSUNTE_002      push    bp
  43.  0052  89 e5                             mov     bp,sp
  44.  0054  b8 14 00                          mov     ax,0014H
  45.  0057  9a 00 00 00 00                    call    far SYSTEM_034
  46.  005c  83 ec 14                          sub     sp,0014H
  47.  005f  8d 7e ec                          lea     di,-14H[bp]
  48.  0062  16                                push    ss
  49.  0063  57                                push    di
  50.  0064  b8 14 00                          mov     ax,0014H
  51.  0067  50                                push    ax
  52.  0068  b0 00                             mov     al,00H
  53.  006a  50                                push    ax
  54.  006b  9a 00 00 00 00                    call    far SYSTEM_05C
  55.  0070  c6 46 ed 03                       mov     byte ptr -13H[bp],03H
  56.  0074  c6 46 ef 00                       mov     byte ptr -11H[bp],00H
  57.  0078  b0 10                             mov     al,10H
  58.  007a  50                                push    ax
  59.  007b  8d 7e ec                          lea     di,-14H[bp]
  60.  007e  16                                push    ss
  61.  007f  57                                push    di
  62.  0080  9a 00 00 00 00                    call    far DOS_001
  63.  0085  c6 46 ed 01                       mov     byte ptr -13H[bp],01H
  64.  0089  8a 46 f1                          mov     al,-0fH[bp]
  65.  008c  24 df                             and     al,0dfH
  66.  008e  88 46 f1                          mov     -0fH[bp],al
  67.  0091  b0 10                             mov     al,10H
  68.  0093  50                                push    ax
  69.  0094  8d 7e ec                          lea     di,-14H[bp]
  70.  0097  16                                push    ss
  71.  0098  57                                push    di
  72.  0099  9a 00 00 00 00                    call    far DOS_001
  73.  009e  89 ec                             mov     sp,bp
  74.  00a0  5d                                pop     bp
  75.  00a1  cb                                retf    
  76.  00a2                    CURSOR:
  77.  00a2  55                TSUNTE_003      push    bp
  78.  00a3  89 e5                             mov     bp,sp
  79.  00a5  b8 14 00                          mov     ax,0014H
  80.  00a8  9a 00 00 00 00                    call    far SYSTEM_034
  81.  00ad  83 ec 14                          sub     sp,0014H
  82.  00b0  8d 7e ec                          lea     di,-14H[bp]
  83.  00b3  16                                push    ss
  84.  00b4  57                                push    di
  85.  00b5  b8 14 00                          mov     ax,0014H
  86.  00b8  50                                push    ax
  87.  00b9  b0 00                             mov     al,00H
  88.  00bb  50                                push    ax
  89.  00bc  9a 00 00 00 00                    call    far SYSTEM_05C
  90.  00c1  c6 46 ed 01                       mov     byte ptr -13H[bp],01H
  91.  00c5  8a 46 06                          mov     al,+6H[bp]
  92.  00c8  88 46 f0                          mov     -10H[bp],al
  93.  00cb  8a 46 08                          mov     al,+8H[bp]
  94.  00ce  24 df                             and     al,0dfH
  95.  00d0  88 46 f1                          mov     -0fH[bp],al
  96.  00d3  b0 10                             mov     al,10H
  97.  00d5  50                                push    ax
  98.  00d6  8d 7e ec                          lea     di,-14H[bp]
  99.  00d9  16                                push    ss
  100.  00da  57                                push    di
  101.  00db  9a 00 00 00 00                    call    far DOS_001
  102.  00e0  89 ec                             mov     sp,bp
  103.  00e2  5d                                pop     bp
  104.  00e3  ca 04 00                          retf    0004H
  105.  00e6                    CLB:
  106.  00e6  55                TSUNTE_006      push    bp
  107.  00e7  89 e5                             mov     bp,sp
  108.  00e9  b8 14 00                          mov     ax,0014H
  109.  00ec  9a 00 00 00 00                    call    far SYSTEM_034
  110.  00f1  83 ec 14                          sub     sp,0014H
  111.  00f4  8d 7e ec                          lea     di,-14H[bp]
  112.  00f7  16                                push    ss
  113.  00f8  57                                push    di
  114.  00f9  b8 14 00                          mov     ax,0014H
  115.  00fc  50                                push    ax
  116.  00fd  b0 00                             mov     al,00H
  117.  00ff  50                                push    ax
  118.  0100  9a 00 00 00 00                    call    far SYSTEM_05C
  119.  0105  c7 46 ec 00 0c                    mov     word ptr -14H[bp],0c00H
  120.  010a  b0 21                             mov     al,21H
  121.  010c  50                                push    ax
  122.  010d  8d 7e ec                          lea     di,-14H[bp]
  123.  0110  16                                push    ss
  124.  0111  57                                push    di
  125.  0112  9a 00 00 00 00                    call    far DOS_001
  126.  0117  89 ec                             mov     sp,bp
  127.  0119  5d                                pop     bp
  128.  011a  cb                                retf    
  129.  011b                    MONOFN:
  130.  011b  55                TSUNTE_005      push    bp
  131.  011c  89 e5                             mov     bp,sp
  132.  011e  b8 15 00                          mov     ax,0015H
  133.  0121  9a 00 00 00 00                    call    far SYSTEM_034
  134.  0126  83 ec 15                          sub     sp,0015H
  135.  0129  8d 7e eb                          lea     di,-15H[bp]
  136.  012c  16                                push    ss
  137.  012d  57                                push    di
  138.  012e  b8 14 00                          mov     ax,0014H
  139.  0131  50                                push    ax
  140.  0132  b0 00                             mov     al,00H
  141.  0134  50                                push    ax
  142.  0135  9a 00 00 00 00                    call    far SYSTEM_05C
  143.  013a  c6 46 ec 0f                       mov     byte ptr -14H[bp],0fH
  144.  013e  80 7e eb 07                       cmp     byte ptr -15H[bp],07H
  145.  0142  75 06                             jne     L1
  146.  0144  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  147.  0148  eb 04                             jmp     L2
  148.  014a  c6 46 ff 00       L1              mov     byte ptr -1H[bp],00H
  149.  014e  8a 46 ff          L2              mov     al,-1H[bp]
  150.  0151  89 ec                             mov     sp,bp
  151.  0153  5d                                pop     bp
  152.  0154  cb                                retf    
  153.  0155  55                TSUNTE_01C      push    bp
  154.  0156  89 e5                             mov     bp,sp
  155.  0158  b8 06 00                          mov     ax,0006H
  156.  015b  9a 00 00 00 00                    call    far SYSTEM_034
  157.  0160  83 ec 06                          sub     sp,0006H
  158.  0163  8b 46 04                          mov     ax,+4H[bp]
  159.  0166  8b 5e 06                          mov     bx,+6H[bp]
  160.  0169  8b 56 08                          mov     dx,+8H[bp]
  161.  016c  31 c9                             xor     cx,cx
  162.  016e  31 f6                             xor     si,si
  163.  0170  31 ff                             xor     di,di
  164.  0172  9a 00 00 00 00                    call    far SYSTEM_072
  165.  0177  75 0f                             jne     L3
  166.  0179  c7 46 04 81 00                    mov     word ptr +4H[bp],0081H
  167.  017e  c7 46 06 00 00                    mov     word ptr +6H[bp],0000H
  168.  0183  c7 46 08 00 00                    mov     word ptr +8H[bp],0000H
  169.  0188  8b 46 0a          L3              mov     ax,+0aH[bp]
  170.  018b  8b 5e 0c                          mov     bx,+0cH[bp]
  171.  018e  8b 56 0e                          mov     dx,+0eH[bp]
  172.  0191  8b 4e 04                          mov     cx,+4H[bp]
  173.  0194  8b 76 06                          mov     si,+6H[bp]
  174.  0197  8b 7e 08                          mov     di,+8H[bp]
  175.  019a  9a 00 00 00 00                    call    far SYSTEM_071
  176.  019f  9a 00 00 00 00                    call    far SYSTEM_07B
  177.  01a4  89 46 fa                          mov     -6H[bp],ax
  178.  01a7  89 5e fc                          mov     -4H[bp],bx
  179.  01aa  89 56 fe                          mov     -2H[bp],dx
  180.  01ad  8b 46 fa                          mov     ax,-6H[bp]
  181.  01b0  8b 5e fc                          mov     bx,-4H[bp]
  182.  01b3  8b 56 fe                          mov     dx,-2H[bp]
  183.  01b6  89 ec                             mov     sp,bp
  184.  01b8  5d                                pop     bp
  185.  01b9  c2 0c 00                          ret     000cH
  186.  01bc  55                TSUNTE_01D      push    bp
  187.  01bd  89 e5                             mov     bp,sp
  188.  01bf  b8 06 00                          mov     ax,0006H
  189.  01c2  9a 00 00 00 00                    call    far SYSTEM_034
  190.  01c7  83 ec 06                          sub     sp,0006H
  191.  01ca  ff 76 0e                          push    +0eH[bp]
  192.  01cd  ff 76 0c                          push    +0cH[bp]
  193.  01d0  ff 76 0a                          push    +0aH[bp]
  194.  01d3  ff 76 08                          push    +8H[bp]
  195.  01d6  ff 76 06                          push    +6H[bp]
  196.  01d9  ff 76 04                          push    +4H[bp]
  197.  01dc  e8 00 00                          call    TSUNTE_01C
  198.  01df  8b 4e 04                          mov     cx,+4H[bp]
  199.  01e2  8b 76 06                          mov     si,+6H[bp]
  200.  01e5  8b 7e 08                          mov     di,+8H[bp]
  201.  01e8  9a 00 00 00 00                    call    far SYSTEM_070
  202.  01ed  52                                push    dx
  203.  01ee  53                                push    bx
  204.  01ef  50                                push    ax
  205.  01f0  8b 46 0a                          mov     ax,+0aH[bp]
  206.  01f3  8b 5e 0c                          mov     bx,+0cH[bp]
  207.  01f6  8b 56 0e                          mov     dx,+0eH[bp]
  208.  01f9  59                                pop     cx
  209.  01fa  5e                                pop     si
  210.  01fb  5f                                pop     di
  211.  01fc  9a 00 00 00 00                    call    far SYSTEM_06F
  212.  0201  9a 00 00 00 00                    call    far SYSTEM_07B
  213.  0206  89 46 fa                          mov     -6H[bp],ax
  214.  0209  89 5e fc                          mov     -4H[bp],bx
  215.  020c  89 56 fe                          mov     -2H[bp],dx
  216.  020f  8b 46 fa                          mov     ax,-6H[bp]
  217.  0212  8b 5e fc                          mov     bx,-4H[bp]
  218.  0215  8b 56 fe                          mov     dx,-2H[bp]
  219.  0218  89 ec                             mov     sp,bp
  220.  021a  5d                                pop     bp
  221.  021b  c2 0c 00                          ret     000cH
  222.  021e                    ZELLERFN:
  223.  021e  55                TSUNTE_01A      push    bp
  224.  021f  89 e5                             mov     bp,sp
  225.  0221  b8 2b 02                          mov     ax,022bH
  226.  0224  9a 00 00 00 00                    call    far SYSTEM_034
  227.  0229  81 ec 2b 02                       sub     sp,022bH
  228.  022d  8b 46 0a                          mov     ax,+0aH[bp]
  229.  0230  31 d2                             xor     dx,dx
  230.  0232  9a 00 00 00 00                    call    far SYSTEM_073
  231.  0237  89 46 dc                          mov     -24H[bp],ax
  232.  023a  89 5e de                          mov     -22H[bp],bx
  233.  023d  89 56 e0                          mov     -20H[bp],dx
  234.  0240  8b 46 08                          mov     ax,+8H[bp]
  235.  0243  31 d2                             xor     dx,dx
  236.  0245  9a 00 00 00 00                    call    far SYSTEM_073
  237.  024a  89 46 e2                          mov     -1eH[bp],ax
  238.  024d  89 5e e4                          mov     -1cH[bp],bx
  239.  0250  89 56 e6                          mov     -1aH[bp],dx
  240.  0253  8b 46 06                          mov     ax,+6H[bp]
  241.  0256  31 d2                             xor     dx,dx
  242.  0258  9a 00 00 00 00                    call    far SYSTEM_073
  243.  025d  89 46 e8                          mov     -18H[bp],ax
  244.  0260  89 5e ea                          mov     -16H[bp],bx
  245.  0263  89 56 ec                          mov     -14H[bp],dx
  246.  0266  8b 46 e8                          mov     ax,-18H[bp]
  247.  0269  8b 5e ea                          mov     bx,-16H[bp]
  248.  026c  8b 56 ec                          mov     dx,-14H[bp]
  249.  026f  b9 89 00                          mov     cx,0089H
  250.  0272  31 f6                             xor     si,si
  251.  0274  bf 00 48                          mov     di,4800H
  252.  0277  9a 00 00 00 00                    call    far SYSTEM_071
  253.  027c  9a 00 00 00 00                    call    far SYSTEM_07B
  254.  0281  52                                push    dx
  255.  0282  53                                push    bx
  256.  0283  50                                push    ax
  257.  0284  8b 46 e8                          mov     ax,-18H[bp]
  258.  0287  8b 5e ea                          mov     bx,-16H[bp]
  259.  028a  8b 56 ec                          mov     dx,-14H[bp]
  260.  028d  b9 87 00                          mov     cx,0087H
  261.  0290  31 f6                             xor     si,si
  262.  0292  bf 00 48                          mov     di,4800H
  263.  0295  9a 00 00 00 00                    call    far SYSTEM_071
  264.  029a  9a 00 00 00 00                    call    far SYSTEM_07B
  265.  029f  52                                push    dx
  266.  02a0  53                                push    bx
  267.  02a1  50                                push    ax
  268.  02a2  8b 46 e8                          mov     ax,-18H[bp]
  269.  02a5  8b 5e ea                          mov     bx,-16H[bp]
  270.  02a8  8b 56 ec                          mov     dx,-14H[bp]
  271.  02ab  b9 83 00                          mov     cx,0083H
  272.  02ae  31 f6                             xor     si,si
  273.  02b0  31 ff                             xor     di,di
  274.  02b2  9a 00 00 00 00                    call    far SYSTEM_071
  275.  02b7  9a 00 00 00 00                    call    far SYSTEM_07B
  276.  02bc  52                                push    dx
  277.  02bd  53                                push    bx
  278.  02be  50                                push    ax
  279.  02bf  8b 46 e8                          mov     ax,-18H[bp]
  280.  02c2  8b 5e ea                          mov     bx,-16H[bp]
  281.  02c5  8b 56 ec                          mov     dx,-14H[bp]
  282.  02c8  b9 89 00                          mov     cx,0089H
  283.  02cb  31 f6                             xor     si,si
  284.  02cd  bf 80 36                          mov     di,3680H
  285.  02d0  9a 00 00 00 00                    call    far SYSTEM_070
  286.  02d5  59                                pop     cx
  287.  02d6  5e                                pop     si
  288.  02d7  5f                                pop     di
  289.  02d8  9a 00 00 00 00                    call    far SYSTEM_06E
  290.  02dd  59                                pop     cx
  291.  02de  5e                                pop     si
  292.  02df  5f                                pop     di
  293.  02e0  9a 00 00 00 00                    call    far SYSTEM_06F
  294.  02e5  59                                pop     cx
  295.  02e6  5e                                pop     si
  296.  02e7  5f                                pop     di
  297.  02e8  9a 00 00 00 00                    call    far SYSTEM_06E
  298.  02ed  89 46 ee                          mov     -12H[bp],ax
  299.  02f0  89 5e f0                          mov     -10H[bp],bx
  300.  02f3  89 56 f2                          mov     -0eH[bp],dx
  301.  02f6  b8 82 00                          mov     ax,0082H
  302.  02f9  31 db                             xor     bx,bx
  303.  02fb  ba 00 40                          mov     dx,4000H
  304.  02fe  8b 4e e2                          mov     cx,-1eH[bp]
  305.  0301  8b 76 e4                          mov     si,-1cH[bp]
  306.  0304  8b 7e e6                          mov     di,-1aH[bp]
  307.  0307  9a 00 00 00 00                    call    far SYSTEM_070
  308.  030c  b9 82 00                          mov     cx,0082H
  309.  030f  31 f6                             xor     si,si
  310.  0311  31 ff                             xor     di,di
  311.  0313  9a 00 00 00 00                    call    far SYSTEM_06F
  312.  0318  9a 00 00 00 00                    call    far SYSTEM_074
  313.  031d  89 46 da                          mov     -26H[bp],ax
  314.  0320  8d be d5 fd                       lea     di,-22bH[bp]
  315.  0324  16                                push    ss
  316.  0325  57                                push    di
  317.  0326  bf 00 00                          mov     di,offset TSUNTE_DATA
  318.  0329  1e                                push    ds
  319.  032a  57                                push    di
  320.  032b  ff 76 da                          push    -26H[bp]
  321.  032e  b8 03 00                          mov     ax,0003H
  322.  0331  50                                push    ax
  323.  0332  9a 00 00 00 00                    call    far SYSTEM_00E
  324.  0337  8d be da fe                       lea     di,-126H[bp]
  325.  033b  16                                push    ss
  326.  033c  57                                push    di
  327.  033d  b8 ff 00                          mov     ax,00ffH
  328.  0340  50                                push    ax
  329.  0341  9a 00 00 00 00                    call    far SYSTEM_00C
  330.  0346  8d be da fe                       lea     di,-126H[bp]
  331.  034a  16                                push    ss
  332.  034b  57                                push    di
  333.  034c  8d 7e da                          lea     di,-26H[bp]
  334.  034f  16                                push    ss
  335.  0350  57                                push    di
  336.  0351  9a 00 00 00 00                    call    far SYSTEM_07A
  337.  0356  89 46 f4                          mov     -0cH[bp],ax
  338.  0359  89 5e f6                          mov     -0aH[bp],bx
  339.  035c  89 56 f8                          mov     -8H[bp],dx
  340.  035f  8b 46 ee                          mov     ax,-12H[bp]
  341.  0362  8b 5e f0                          mov     bx,-10H[bp]
  342.  0365  8b 56 f2                          mov     dx,-0eH[bp]
  343.  0368  8b 4e dc                          mov     cx,-24H[bp]
  344.  036b  8b 76 de                          mov     si,-22H[bp]
  345.  036e  8b 7e e0                          mov     di,-20H[bp]
  346.  0371  9a 00 00 00 00                    call    far SYSTEM_06E
  347.  0376  8b 4e f4                          mov     cx,-0cH[bp]
  348.  0379  8b 76 f6                          mov     si,-0aH[bp]
  349.  037c  8b 7e f8                          mov     di,-8H[bp]
  350.  037f  9a 00 00 00 00                    call    far SYSTEM_06E
  351.  0384  89 46 ee                          mov     -12H[bp],ax
  352.  0387  89 5e f0                          mov     -10H[bp],bx
  353.  038a  89 56 f2                          mov     -0eH[bp],dx
  354.  038d  ff 76 ec                          push    -14H[bp]
  355.  0390  ff 76 ea                          push    -16H[bp]
  356.  0393  ff 76 e8                          push    -18H[bp]
  357.  0396  b8 83 00                          mov     ax,0083H
  358.  0399  31 db                             xor     bx,bx
  359.  039b  31 d2                             xor     dx,dx
  360.  039d  52                                push    dx
  361.  039e  53                                push    bx
  362.  039f  50                                push    ax
  363.  03a0  e8 00 00                          call    TSUNTE_01D
  364.  03a3  31 c9                             xor     cx,cx
  365.  03a5  31 f6                             xor     si,si
  366.  03a7  31 ff                             xor     di,di
  367.  03a9  9a 00 00 00 00                    call    far SYSTEM_072
  368.  03ae  74 04                             je      L4
  369.  03b0  b0 00                             mov     al,00H
  370.  03b2  eb 02                             jmp     L5
  371.  03b4  b0 01             L4              mov     al,01H
  372.  03b6  88 86 d6 fe       L5              mov     -12aH[bp],al
  373.  03ba  ff 76 ec                          push    -14H[bp]
  374.  03bd  ff 76 ea                          push    -16H[bp]
  375.  03c0  ff 76 e8                          push    -18H[bp]
  376.  03c3  b8 87 00                          mov     ax,0087H
  377.  03c6  31 db                             xor     bx,bx
  378.  03c8  ba 00 48                          mov     dx,4800H
  379.  03cb  52                                push    dx
  380.  03cc  53                                push    bx
  381.  03cd  50                                push    ax
  382.  03ce  e8 00 00                          call    TSUNTE_01D
  383.  03d1  31 c9                             xor     cx,cx
  384.  03d3  31 f6                             xor     si,si
  385.  03d5  31 ff                             xor     di,di
  386.  03d7  9a 00 00 00 00                    call    far SYSTEM_072
  387.  03dc  75 04                             jne     L6
  388.  03de  b0 00                             mov     al,00H
  389.  03e0  eb 02                             jmp     L7
  390.  03e2  b0 01             L6              mov     al,01H
  391.  03e4  88 86 d7 fe       L7              mov     -129H[bp],al
  392.  03e8  ff 76 ec                          push    -14H[bp]
  393.  03eb  ff 76 ea                          push    -16H[bp]
  394.  03ee  ff 76 e8                          push    -18H[bp]
  395.  03f1  b8 89 00                          mov     ax,0089H
  396.  03f4  31 db                             xor     bx,bx
  397.  03f6  ba 00 48                          mov     dx,4800H
  398.  03f9  52                                push    dx
  399.  03fa  53                                push    bx
  400.  03fb  50                                push    ax
  401.  03fc  e8 00 00                          call    TSUNTE_01D
  402.  03ff  31 c9                             xor     cx,cx
  403.  0401  31 f6                             xor     si,si
  404.  0403  31 ff                             xor     di,di
  405.  0405  9a 00 00 00 00                    call    far SYSTEM_072
  406.  040a  74 04                             je      L8
  407.  040c  b0 00                             mov     al,00H
  408.  040e  eb 02                             jmp     L9
  409.  0410  b0 01             L8              mov     al,01H
  410.  0412  88 86 d8 fe       L9              mov     -128H[bp],al
  411.  0416  8b 46 e2                          mov     ax,-1eH[bp]
  412.  0419  8b 5e e4                          mov     bx,-1cH[bp]
  413.  041c  8b 56 e6                          mov     dx,-1aH[bp]
  414.  041f  b9 82 00                          mov     cx,0082H
  415.  0422  31 f6                             xor     si,si
  416.  0424  bf 00 40                          mov     di,4000H
  417.  0427  9a 00 00 00 00                    call    far SYSTEM_072
  418.  042c  72 04                             jb      L10
  419.  042e  b0 00                             mov     al,00H
  420.  0430  eb 02                             jmp     L11
  421.  0432  b0 01             L10             mov     al,01H
  422.  0434  88 86 d9 fe       L11             mov     -127H[bp],al
  423.  0438  80 be d6 fe 00                    cmp     byte ptr -12aH[bp],00H
  424.  043d  74 07                             je      L12
  425.  043f  80 be d7 fe 00                    cmp     byte ptr -129H[bp],00H
  426.  0444  75 07                             jne     L13
  427.  0446  80 be d8 fe 00    L12             cmp     byte ptr -128H[bp],00H
  428.  044b  74 07                             je      L14
  429.  044d  80 be d9 fe 00    L13             cmp     byte ptr -127H[bp],00H
  430.  0452  75 04                             jne     L15
  431.  0454  b0 00             L14             mov     al,00H
  432.  0456  eb 02                             jmp     L16
  433.  0458  b0 01             L15             mov     al,01H
  434.  045a  88 86 d5 fe       L16             mov     -12bH[bp],al
  435.  045e  80 be d5 fe 00                    cmp     byte ptr -12bH[bp],00H
  436.  0463  74 1e                             je      L17
  437.  0465  8b 46 ee                          mov     ax,-12H[bp]
  438.  0468  8b 5e f0                          mov     bx,-10H[bp]
  439.  046b  8b 56 f2                          mov     dx,-0eH[bp]
  440.  046e  b9 81 00                          mov     cx,0081H
  441.  0471  31 f6                             xor     si,si
  442.  0473  31 ff                             xor     di,di
  443.  0475  9a 00 00 00 00                    call    far SYSTEM_06F
  444.  047a  89 46 ee                          mov     -12H[bp],ax
  445.  047d  89 5e f0                          mov     -10H[bp],bx
  446.  0480  89 56 f2                          mov     -0eH[bp],dx
  447.  0483  8b 46 ee          L17             mov     ax,-12H[bp]
  448.  0486  8b 5e f0                          mov     bx,-10H[bp]
  449.  0489  8b 56 f2                          mov     dx,-0eH[bp]
  450.  048c  b9 81 00                          mov     cx,0081H
  451.  048f  31 f6                             xor     si,si
  452.  0491  31 ff                             xor     di,di
  453.  0493  9a 00 00 00 00                    call    far SYSTEM_06F
  454.  0498  89 46 fa                          mov     -6H[bp],ax
  455.  049b  89 5e fc                          mov     -4H[bp],bx
  456.  049e  89 56 fe                          mov     -2H[bp],dx
  457.  04a1  8b 46 fa                          mov     ax,-6H[bp]
  458.  04a4  8b 5e fc                          mov     bx,-4H[bp]
  459.  04a7  8b 56 fe                          mov     dx,-2H[bp]
  460.  04aa  89 ec                             mov     sp,bp
  461.  04ac  5d                                pop     bp
  462.  04ad  ca 06 00                          retf    0006H
  463.  04b0                    WKDAYFN:
  464.  04b0  55                TSUNTE_016      push    bp
  465.  04b1  89 e5                             mov     bp,sp
  466.  04b3  b8 07 00                          mov     ax,0007H
  467.  04b6  9a 00 00 00 00                    call    far SYSTEM_034
  468.  04bb  83 ec 07                          sub     sp,0007H
  469.  04be  ff 76 0a                          push    +0aH[bp]
  470.  04c1  ff 76 08                          push    +8H[bp]
  471.  04c4  ff 76 06                          push    +6H[bp]
  472.  04c7  0e                                push    cs
  473.  04c8  e8 00 00                          call    TSUNTE_01A
  474.  04cb  89 46 f9                          mov     -7H[bp],ax
  475.  04ce  89 5e fb                          mov     -5H[bp],bx
  476.  04d1  89 56 fd                          mov     -3H[bp],dx
  477.  04d4  8b 46 f9                          mov     ax,-7H[bp]
  478.  04d7  8b 5e fb                          mov     bx,-5H[bp]
  479.  04da  8b 56 fd                          mov     dx,-3H[bp]
  480.  04dd  b9 83 00                          mov     cx,0083H
  481.  04e0  31 f6                             xor     si,si
  482.  04e2  bf 00 60                          mov     di,6000H
  483.  04e5  9a 00 00 00 00                    call    far SYSTEM_071
  484.  04ea  9a 00 00 00 00                    call    far SYSTEM_07B
  485.  04ef  b9 83 00                          mov     cx,0083H
  486.  04f2  31 f6                             xor     si,si
  487.  04f4  bf 00 60                          mov     di,6000H
  488.  04f7  9a 00 00 00 00                    call    far SYSTEM_070
  489.  04fc  52                                push    dx
  490.  04fd  53                                push    bx
  491.  04fe  50                                push    ax
  492.  04ff  8b 46 f9                          mov     ax,-7H[bp]
  493.  0502  8b 5e fb                          mov     bx,-5H[bp]
  494.  0505  8b 56 fd                          mov     dx,-3H[bp]
  495.  0508  59                                pop     cx
  496.  0509  5e                                pop     si
  497.  050a  5f                                pop     di
  498.  050b  9a 00 00 00 00                    call    far SYSTEM_06F
  499.  0510  89 46 f9                          mov     -7H[bp],ax
  500.  0513  89 5e fb                          mov     -5H[bp],bx
  501.  0516  89 56 fd                          mov     -3H[bp],dx
  502.  0519  8b 46 f9                          mov     ax,-7H[bp]
  503.  051c  8b 5e fb                          mov     bx,-5H[bp]
  504.  051f  8b 56 fd                          mov     dx,-3H[bp]
  505.  0522  9a 00 00 00 00                    call    far SYSTEM_074
  506.  0527  88 46 ff                          mov     -1H[bp],al
  507.  052a  8a 46 ff                          mov     al,-1H[bp]
  508.  052d  89 ec                             mov     sp,bp
  509.  052f  5d                                pop     bp
  510.  0530  ca 06 00                          retf    0006H
  511.  0533                    WEEKNRFN:
  512.  0533  55                TSUNTE_019      push    bp
  513.  0534  89 e5                             mov     bp,sp
  514.  0536  b8 10 00                          mov     ax,0010H
  515.  0539  9a 00 00 00 00                    call    far SYSTEM_034
  516.  053e  83 ec 10                          sub     sp,0010H
  517.  0541  b8 01 00                          mov     ax,0001H
  518.  0544  50                                push    ax
  519.  0545  b8 01 00                          mov     ax,0001H
  520.  0548  50                                push    ax
  521.  0549  ff 76 08                          push    +8H[bp]
  522.  054c  0e                                push    cs
  523.  054d  e8 00 00                          call    TSUNTE_01A
  524.  0550  52                                push    dx
  525.  0551  53                                push    bx
  526.  0552  50                                push    ax
  527.  0553  ff 76 0c                          push    +0cH[bp]
  528.  0556  ff 76 0a                          push    +0aH[bp]
  529.  0559  ff 76 08                          push    +8H[bp]
  530.  055c  0e                                push    cs
  531.  055d  e8 00 00                          call    TSUNTE_01A
  532.  0560  59                                pop     cx
  533.  0561  5e                                pop     si
  534.  0562  5f                                pop     di
  535.  0563  9a 00 00 00 00                    call    far SYSTEM_06F
  536.  0568  b9 81 00                          mov     cx,0081H
  537.  056b  31 f6                             xor     si,si
  538.  056d  31 ff                             xor     di,di
  539.  056f  9a 00 00 00 00                    call    far SYSTEM_06E
  540.  0574  89 46 f0                          mov     -10H[bp],ax
  541.  0577  89 5e f2                          mov     -0eH[bp],bx
  542.  057a  89 56 f4                          mov     -0cH[bp],dx
  543.  057d  8b 46 f0                          mov     ax,-10H[bp]
  544.  0580  8b 5e f2                          mov     bx,-0eH[bp]
  545.  0583  8b 56 f4                          mov     dx,-0cH[bp]
  546.  0586  9a 00 00 00 00                    call    far SYSTEM_075
  547.  058b  89 46 f8                          mov     -8H[bp],ax
  548.  058e  b8 01 00                          mov     ax,0001H
  549.  0591  50                                push    ax
  550.  0592  b8 01 00                          mov     ax,0001H
  551.  0595  50                                push    ax
  552.  0596  ff 76 08                          push    +8H[bp]
  553.  0599  0e                                push    cs
  554.  059a  e8 00 00                          call    TSUNTE_016
  555.  059d  30 e4                             xor     ah,ah
  556.  059f  89 46 fa                          mov     -6H[bp],ax
  557.  05a2  b8 1f 00                          mov     ax,001fH
  558.  05a5  50                                push    ax
  559.  05a6  b8 0c 00                          mov     ax,000cH
  560.  05a9  50                                push    ax
  561.  05aa  ff 76 08                          push    +8H[bp]
  562.  05ad  0e                                push    cs
  563.  05ae  e8 00 00                          call    TSUNTE_016
  564.  05b1  30 e4                             xor     ah,ah
  565.  05b3  89 46 fc                          mov     -4H[bp],ax
  566.  05b6  8b 46 fa                          mov     ax,-6H[bp]
  567.  05b9  05 05 00                          add     ax,0005H
  568.  05bc  89 46 f6                          mov     -0aH[bp],ax
  569.  05bf  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  570.  05c3  74 03                             je      L18
  571.  05c5  ff 46 f6                          inc     word ptr -0aH[bp]
  572.  05c8  83 7e fa 04       L18             cmp     word ptr -6H[bp],0004H
  573.  05cc  76 09                             jbe     L19
  574.  05ce  8b 46 f6                          mov     ax,-0aH[bp]
  575.  05d1  2d 07 00                          sub     ax,0007H
  576.  05d4  89 46 f6                          mov     -0aH[bp],ax
  577.  05d7  8b 46 f8          L19             mov     ax,-8H[bp]
  578.  05da  03 46 f6                          add     ax,-0aH[bp]
  579.  05dd  31 d2                             xor     dx,dx
  580.  05df  b9 07 00                          mov     cx,0007H
  581.  05e2  f7 f1                             div     cx
  582.  05e4  89 46 f6                          mov     -0aH[bp],ax
  583.  05e7  8b 46 f6                          mov     ax,-0aH[bp]
  584.  05ea  3d 00 00                          cmp     ax,0000H
  585.  05ed  75 14                             jne     L22
  586.  05ef  83 7e fa 05                       cmp     word ptr -6H[bp],0005H
  587.  05f3  75 07                             jne     L20
  588.  05f5  c7 46 f6 35 00                    mov     word ptr -0aH[bp],0035H
  589.  05fa  eb 05                             jmp     L21
  590.  05fc  c7 46 f6 34 00    L20             mov     word ptr -0aH[bp],0034H
  591.  0601  eb 10             L21             jmp     L23
  592.  0603  3d 35 00          L22             cmp     ax,0035H
  593.  0606  75 0b                             jne     L23
  594.  0608  83 7e fc 04                       cmp     word ptr -4H[bp],0004H
  595.  060c  73 05                             jae     L23
  596.  060e  c7 46 f6 01 00                    mov     word ptr -0aH[bp],0001H
  597.  0613  8b 46 f6          L23             mov     ax,-0aH[bp]
  598.  0616  89 46 fe                          mov     -2H[bp],ax
  599.  0619  8b 46 fe                          mov     ax,-2H[bp]
  600.  061c  89 ec                             mov     sp,bp
  601.  061e  5d                                pop     bp
  602.  061f  ca 08 00                          retf    0008H
  603.  0622  55                TSUNTE_01E      push    bp
  604.  0623  89 e5                             mov     bp,sp
  605.  0625  b8 08 00                          mov     ax,0008H
  606.  0628  9a 00 00 00 00                    call    far SYSTEM_034
  607.  062d  83 ec 08                          sub     sp,0008H
  608.  0630  8b 46 06                          mov     ax,+6H[bp]
  609.  0633  40                                inc     ax
  610.  0634  89 46 06                          mov     +6H[bp],ax
  611.  0637  8b 46 06                          mov     ax,+6H[bp]
  612.  063a  31 d2                             xor     dx,dx
  613.  063c  9a 00 00 00 00                    call    far SYSTEM_073
  614.  0641  b9 84 00                          mov     cx,0084H
  615.  0644  31 f6                             xor     si,si
  616.  0646  bf 00 40                          mov     di,4000H
  617.  0649  9a 00 00 00 00                    call    far SYSTEM_072
  618.  064e  76 10                             jbe     L24
  619.  0650  8b 46 04                          mov     ax,+4H[bp]
  620.  0653  40                                inc     ax
  621.  0654  89 46 04                          mov     +4H[bp],ax
  622.  0657  8b 46 06                          mov     ax,+6H[bp]
  623.  065a  2d 0c 00                          sub     ax,000cH
  624.  065d  89 46 06                          mov     +6H[bp],ax
  625.  0660  b8 01 00          L24             mov     ax,0001H
  626.  0663  50                                push    ax
  627.  0664  ff 76 06                          push    +6H[bp]
  628.  0667  ff 76 04                          push    +4H[bp]
  629.  066a  0e                                push    cs
  630.  066b  e8 00 00                          call    TSUNTE_01A
  631.  066e  b9 81 00                          mov     cx,0081H
  632.  0671  31 f6                             xor     si,si
  633.  0673  31 ff                             xor     di,di
  634.  0675  9a 00 00 00 00                    call    far SYSTEM_06F
  635.  067a  89 46 f8                          mov     -8H[bp],ax
  636.  067d  89 5e fa                          mov     -6H[bp],bx
  637.  0680  89 56 fc                          mov     -4H[bp],dx
  638.  0683  8b 46 f8                          mov     ax,-8H[bp]
  639.  0686  8b 5e fa                          mov     bx,-6H[bp]
  640.  0689  8b 56 fc                          mov     dx,-4H[bp]
  641.  068c  b9 83 00                          mov     cx,0083H
  642.  068f  31 f6                             xor     si,si
  643.  0691  bf 00 60                          mov     di,6000H
  644.  0694  9a 00 00 00 00                    call    far SYSTEM_071
  645.  0699  9a 00 00 00 00                    call    far SYSTEM_07B
  646.  069e  b9 83 00                          mov     cx,0083H
  647.  06a1  31 f6                             xor     si,si
  648.  06a3  bf 00 60                          mov     di,6000H
  649.  06a6  9a 00 00 00 00                    call    far SYSTEM_070
  650.  06ab  52                                push    dx
  651.  06ac  53                                push    bx
  652.  06ad  50                                push    ax
  653.  06ae  8b 46 f8                          mov     ax,-8H[bp]
  654.  06b1  8b 5e fa                          mov     bx,-6H[bp]
  655.  06b4  8b 56 fc                          mov     dx,-4H[bp]
  656.  06b7  59                                pop     cx
  657.  06b8  5e                                pop     si
  658.  06b9  5f                                pop     di
  659.  06ba  9a 00 00 00 00                    call    far SYSTEM_06F
  660.  06bf  89 46 f8                          mov     -8H[bp],ax
  661.  06c2  89 5e fa                          mov     -6H[bp],bx
  662.  06c5  89 56 fc                          mov     -4H[bp],dx
  663.  06c8  8b 46 f8                          mov     ax,-8H[bp]
  664.  06cb  8b 5e fa                          mov     bx,-6H[bp]
  665.  06ce  8b 56 fc                          mov     dx,-4H[bp]
  666.  06d1  9a 00 00 00 00                    call    far SYSTEM_074
  667.  06d6  89 46 fe                          mov     -2H[bp],ax
  668.  06d9  8b 46 fe                          mov     ax,-2H[bp]
  669.  06dc  89 ec                             mov     sp,bp
  670.  06de  5d                                pop     bp
  671.  06df  c2 04 00                          ret     0004H
  672.  06e2                    LASTDMFN:
  673.  06e2  55                TSUNTE_017      push    bp
  674.  06e3  89 e5                             mov     bp,sp
  675.  06e5  b8 08 00                          mov     ax,0008H
  676.  06e8  9a 00 00 00 00                    call    far SYSTEM_034
  677.  06ed  83 ec 08                          sub     sp,0008H
  678.  06f0  ff 76 08                          push    +8H[bp]
  679.  06f3  ff 76 06                          push    +6H[bp]
  680.  06f6  e8 00 00                          call    TSUNTE_01E
  681.  06f9  89 46 fa                          mov     -6H[bp],ax
  682.  06fc  c7 46 fc 1b 00                    mov     word ptr -4H[bp],001bH
  683.  0701  8b 46 fc          L25             mov     ax,-4H[bp]
  684.  0704  40                                inc     ax
  685.  0705  89 46 fc                          mov     -4H[bp],ax
  686.  0708  8b 46 fc                          mov     ax,-4H[bp]
  687.  070b  89 46 f8                          mov     -8H[bp],ax
  688.  070e  ff 76 f8                          push    -8H[bp]
  689.  0711  ff 76 08                          push    +8H[bp]
  690.  0714  ff 76 06                          push    +6H[bp]
  691.  0717  0e                                push    cs
  692.  0718  e8 00 00                          call    TSUNTE_016
  693.  071b  30 e4                             xor     ah,ah
  694.  071d  3b 46 fa                          cmp     ax,-6H[bp]
  695.  0720  74 06                             je      L26
  696.  0722  83 7e fa 20                       cmp     word ptr -6H[bp],0020H
  697.  0726  75 d9                             jne     L25
  698.  0728  8b 46 fc          L26             mov     ax,-4H[bp]
  699.  072b  89 46 fe                          mov     -2H[bp],ax
  700.  072e  8b 46 fe                          mov     ax,-2H[bp]
  701.  0731  89 ec                             mov     sp,bp
  702.  0733  5d                                pop     bp
  703.  0734  ca 04 00                          retf    0004H
  704.  0737                    DATEOKFN:
  705.  0737  55                TSUNTE_018      push    bp
  706.  0738  89 e5                             mov     bp,sp
  707.  073a  b8 01 00                          mov     ax,0001H
  708.  073d  9a 00 00 00 00                    call    far SYSTEM_034
  709.  0742  83 ec 01                          sub     sp,0001H
  710.  0745  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  711.  0749  81 7e 06 d9 06                    cmp     word ptr +6H[bp],06d9H
  712.  074e  73 06                             jae     L27
  713.  0750  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  714.  0754  eb 3a                             jmp     L31
  715.  0756  83 7e 08 01       L27             cmp     word ptr +8H[bp],0001H
  716.  075a  72 06                             jb      L28
  717.  075c  83 7e 08 0c                       cmp     word ptr +8H[bp],000cH
  718.  0760  76 06                             jbe     L29
  719.  0762  c6 46 ff 00       L28             mov     byte ptr -1H[bp],00H
  720.  0766  eb 28                             jmp     L31
  721.  0768  83 7e 0a 01       L29             cmp     word ptr +0aH[bp],0001H
  722.  076c  72 1e                             jb      L30
  723.  076e  ff 76 08                          push    +8H[bp]
  724.  0771  ff 76 06                          push    +6H[bp]
  725.  0774  0e                                push    cs
  726.  0775  e8 00 00                          call    LASTDMFN
  727.  0778  99                                cwd     
  728.  0779  8b c8                             mov     cx,ax
  729.  077b  8b da                             mov     bx,dx
  730.  077d  8b 46 0a                          mov     ax,+0aH[bp]
  731.  0780  31 d2                             xor     dx,dx
  732.  0782  3b d3                             cmp     dx,bx
  733.  0784  7f 06                             jg      L30
  734.  0786  7c 08                             jl      L31
  735.  0788  3b c1                             cmp     ax,cx
  736.  078a  76 04                             jbe     L31
  737.  078c  c6 46 ff 00       L30             mov     byte ptr -1H[bp],00H
  738.  0790  8a 46 ff          L31             mov     al,-1H[bp]
  739.  0793  89 ec                             mov     sp,bp
  740.  0795  5d                                pop     bp
  741.  0796  ca 06 00                          retf    0006H
  742.  0799  55                TSUNTE_01F      push    bp
  743.  079a  89 e5                             mov     bp,sp
  744.  079c  b8 15 00                          mov     ax,0015H
  745.  079f  9a 00 00 00 00                    call    far SYSTEM_034
  746.  07a4  83 ec 15                          sub     sp,0015H
  747.  07a7  8d 7e eb                          lea     di,-15H[bp]
  748.  07aa  16                                push    ss
  749.  07ab  57                                push    di
  750.  07ac  b8 14 00                          mov     ax,0014H
  751.  07af  50                                push    ax
  752.  07b0  b0 00                             mov     al,00H
  753.  07b2  50                                push    ax
  754.  07b3  9a 00 00 00 00                    call    far SYSTEM_05C
  755.  07b8  c7 46 eb 00 02                    mov     word ptr -15H[bp],0200H
  756.  07bd  b0 16                             mov     al,16H
  757.  07bf  50                                push    ax
  758.  07c0  8d 7e eb                          lea     di,-15H[bp]
  759.  07c3  16                                push    ss
  760.  07c4  57                                push    di
  761.  07c5  9a 00 00 00 00                    call    far DOS_001
  762.  07ca  8a 46 eb                          mov     al,-15H[bp]
  763.  07cd  88 46 ff                          mov     -1H[bp],al
  764.  07d0  8a 46 ff                          mov     al,-1H[bp]
  765.  07d3  89 ec                             mov     sp,bp
  766.  07d5  5d                                pop     bp
  767.  07d6  c3                                ret     
  768.  07d7                    CAPSONFN:
  769.  07d7  55                TSUNTE_007      push    bp
  770.  07d8  89 e5                             mov     bp,sp
  771.  07da  b8 01 00                          mov     ax,0001H
  772.  07dd  9a 00 00 00 00                    call    far SYSTEM_034
  773.  07e2  83 ec 01                          sub     sp,0001H
  774.  07e5  e8 00 00                          call    TSUNTE_01F
  775.  07e8  24 40                             and     al,40H
  776.  07ea  08 c0                             or      al,al
  777.  07ec  76 06                             jbe     L32
  778.  07ee  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  779.  07f2  eb 04                             jmp     L33
  780.  07f4  c6 46 ff 00       L32             mov     byte ptr -1H[bp],00H
  781.  07f8  8a 46 ff          L33             mov     al,-1H[bp]
  782.  07fb  89 ec                             mov     sp,bp
  783.  07fd  5d                                pop     bp
  784.  07fe  cb                                retf    
  785.  07ff                    NUMLONFN:
  786.  07ff  55                TSUNTE_008      push    bp
  787.  0800  89 e5                             mov     bp,sp
  788.  0802  b8 01 00                          mov     ax,0001H
  789.  0805  9a 00 00 00 00                    call    far SYSTEM_034
  790.  080a  83 ec 01                          sub     sp,0001H
  791.  080d  e8 00 00                          call    TSUNTE_01F
  792.  0810  24 20                             and     al,20H
  793.  0812  08 c0                             or      al,al
  794.  0814  76 06                             jbe     L34
  795.  0816  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  796.  081a  eb 04                             jmp     L35
  797.  081c  c6 46 ff 00       L34             mov     byte ptr -1H[bp],00H
  798.  0820  8a 46 ff          L35             mov     al,-1H[bp]
  799.  0823  89 ec                             mov     sp,bp
  800.  0825  5d                                pop     bp
  801.  0826  cb                                retf    
  802.  0827                    SCRLONFN:
  803.  0827  55                TSUNTE_009      push    bp
  804.  0828  89 e5                             mov     bp,sp
  805.  082a  b8 01 00                          mov     ax,0001H
  806.  082d  9a 00 00 00 00                    call    far SYSTEM_034
  807.  0832  83 ec 01                          sub     sp,0001H
  808.  0835  e8 00 00                          call    TSUNTE_01F
  809.  0838  24 10                             and     al,10H
  810.  083a  08 c0                             or      al,al
  811.  083c  76 06                             jbe     L36
  812.  083e  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  813.  0842  eb 04                             jmp     L37
  814.  0844  c6 46 ff 00       L36             mov     byte ptr -1H[bp],00H
  815.  0848  8a 46 ff          L37             mov     al,-1H[bp]
  816.  084b  89 ec                             mov     sp,bp
  817.  084d  5d                                pop     bp
  818.  084e  cb                                retf    
  819.  084f                    CAPS:
  820.  084f  55                TSUNTE_00A      push    bp
  821.  0850  89 e5                             mov     bp,sp
  822.  0852  b8 14 00                          mov     ax,0014H
  823.  0855  9a 00 00 00 00                    call    far SYSTEM_034
  824.  085a  83 ec 14                          sub     sp,0014H
  825.  085d  8d 7e ec                          lea     di,-14H[bp]
  826.  0860  16                                push    ss
  827.  0861  57                                push    di
  828.  0862  b8 14 00                          mov     ax,0014H
  829.  0865  50                                push    ax
  830.  0866  b0 00                             mov     al,00H
  831.  0868  50                                push    ax
  832.  0869  9a 00 00 00 00                    call    far SYSTEM_05C
  833.  086e  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  834.  0872  74 16                             je      L38
  835.  0874  be 40 00                          mov     si,0040H
  836.  0877  8e c6                             mov     es,si
  837.  0879  26 a0 17 00                       mov     al,es:[00000017H]
  838.  087d  0c 40                             or      al,40H
  839.  087f  be 40 00                          mov     si,0040H
  840.  0882  8e c6                             mov     es,si
  841.  0884  26 a2 17 00                       mov     es:[00000017H],al
  842.  0888  eb 14                             jmp     L39
  843.  088a  be 40 00          L38             mov     si,0040H
  844.  088d  8e c6                             mov     es,si
  845.  088f  26 a0 17 00                       mov     al,es:[00000017H]
  846.  0893  24 bf                             and     al,0bfH
  847.  0895  be 40 00                          mov     si,0040H
  848.  0898  8e c6                             mov     es,si
  849.  089a  26 a2 17 00                       mov     es:[00000017H],al
  850.  089e  c6 46 ed 01       L39             mov     byte ptr -13H[bp],01H
  851.  08a2  b0 16                             mov     al,16H
  852.  08a4  50                                push    ax
  853.  08a5  8d 7e ec                          lea     di,-14H[bp]
  854.  08a8  16                                push    ss
  855.  08a9  57                                push    di
  856.  08aa  9a 00 00 00 00                    call    far DOS_001
  857.  08af  89 ec                             mov     sp,bp
  858.  08b1  5d                                pop     bp
  859.  08b2  ca 02 00                          retf    0002H
  860.  08b5                    NUMLOCK:
  861.  08b5  55                TSUNTE_00B      push    bp
  862.  08b6  89 e5                             mov     bp,sp
  863.  08b8  b8 14 00                          mov     ax,0014H
  864.  08bb  9a 00 00 00 00                    call    far SYSTEM_034
  865.  08c0  83 ec 14                          sub     sp,0014H
  866.  08c3  8d 7e ec                          lea     di,-14H[bp]
  867.  08c6  16                                push    ss
  868.  08c7  57                                push    di
  869.  08c8  b8 14 00                          mov     ax,0014H
  870.  08cb  50                                push    ax
  871.  08cc  b0 00                             mov     al,00H
  872.  08ce  50                                push    ax
  873.  08cf  9a 00 00 00 00                    call    far SYSTEM_05C
  874.  08d4  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  875.  08d8  74 16                             je      L40
  876.  08da  be 40 00                          mov     si,0040H
  877.  08dd  8e c6                             mov     es,si
  878.  08df  26 a0 17 00                       mov     al,es:[00000017H]
  879.  08e3  0c 20                             or      al,20H
  880.  08e5  be 40 00                          mov     si,0040H
  881.  08e8  8e c6                             mov     es,si
  882.  08ea  26 a2 17 00                       mov     es:[00000017H],al
  883.  08ee  eb 14                             jmp     L41
  884.  08f0  be 40 00          L40             mov     si,0040H
  885.  08f3  8e c6                             mov     es,si
  886.  08f5  26 a0 17 00                       mov     al,es:[00000017H]
  887.  08f9  24 df                             and     al,0dfH
  888.  08fb  be 40 00                          mov     si,0040H
  889.  08fe  8e c6                             mov     es,si
  890.  0900  26 a2 17 00                       mov     es:[00000017H],al
  891.  0904  c6 46 ed 01       L41             mov     byte ptr -13H[bp],01H
  892.  0908  b0 16                             mov     al,16H
  893.  090a  50                                push    ax
  894.  090b  8d 7e ec                          lea     di,-14H[bp]
  895.  090e  16                                push    ss
  896.  090f  57                                push    di
  897.  0910  9a 00 00 00 00                    call    far DOS_001
  898.  0915  89 ec                             mov     sp,bp
  899.  0917  5d                                pop     bp
  900.  0918  ca 02 00                          retf    0002H
  901.  091b                    SCRLOCK:
  902.  091b  55                TSUNTE_00C      push    bp
  903.  091c  89 e5                             mov     bp,sp
  904.  091e  b8 14 00                          mov     ax,0014H
  905.  0921  9a 00 00 00 00                    call    far SYSTEM_034
  906.  0926  83 ec 14                          sub     sp,0014H
  907.  0929  8d 7e ec                          lea     di,-14H[bp]
  908.  092c  16                                push    ss
  909.  092d  57                                push    di
  910.  092e  b8 14 00                          mov     ax,0014H
  911.  0931  50                                push    ax
  912.  0932  b0 00                             mov     al,00H
  913.  0934  50                                push    ax
  914.  0935  9a 00 00 00 00                    call    far SYSTEM_05C
  915.  093a  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  916.  093e  74 16                             je      L42
  917.  0940  be 40 00                          mov     si,0040H
  918.  0943  8e c6                             mov     es,si
  919.  0945  26 a0 17 00                       mov     al,es:[00000017H]
  920.  0949  0c 10                             or      al,10H
  921.  094b  be 40 00                          mov     si,0040H
  922.  094e  8e c6                             mov     es,si
  923.  0950  26 a2 17 00                       mov     es:[00000017H],al
  924.  0954  eb 14                             jmp     L43
  925.  0956  be 40 00          L42             mov     si,0040H
  926.  0959  8e c6                             mov     es,si
  927.  095b  26 a0 17 00                       mov     al,es:[00000017H]
  928.  095f  24 ef                             and     al,0efH
  929.  0961  be 40 00                          mov     si,0040H
  930.  0964  8e c6                             mov     es,si
  931.  0966  26 a2 17 00                       mov     es:[00000017H],al
  932.  096a  c6 46 ed 01       L43             mov     byte ptr -13H[bp],01H
  933.  096e  b0 16                             mov     al,16H
  934.  0970  50                                push    ax
  935.  0971  8d 7e ec                          lea     di,-14H[bp]
  936.  0974  16                                push    ss
  937.  0975  57                                push    di
  938.  0976  9a 00 00 00 00                    call    far DOS_001
  939.  097b  89 ec                             mov     sp,bp
  940.  097d  5d                                pop     bp
  941.  097e  ca 02 00                          retf    0002H
  942.  0981                    FSIZEFN:
  943.  0981  55                TSUNTE_00E      push    bp
  944.  0982  89 e5                             mov     bp,sp
  945.  0984  b8 85 01                          mov     ax,0185H
  946.  0987  9a 00 00 00 00                    call    far SYSTEM_034
  947.  098c  81 ec 85 01                       sub     sp,0185H
  948.  0990  c4 7e 06                          les     di,dword ptr +6H[bp]
  949.  0993  06                                push    es
  950.  0994  57                                push    di
  951.  0995  8d be fc fe                       lea     di,-104H[bp]
  952.  0999  16                                push    ss
  953.  099a  57                                push    di
  954.  099b  b8 ff 00                          mov     ax,00ffH
  955.  099e  50                                push    ax
  956.  099f  9a 00 00 00 00                    call    far SYSTEM_00C
  957.  09a4  a0 00 00                          mov     al,SYSTEM_BSS+236H
  958.  09a7  88 86 7b fe                       mov     -185H[bp],al
  959.  09ab  c6 06 00 00 00                    mov     byte ptr SYSTEM_BSS+236H,00H
  960.  09b0  8d be 7c fe                       lea     di,-184H[bp]
  961.  09b4  16                                push    ss
  962.  09b5  57                                push    di
  963.  09b6  8d be fc fe                       lea     di,-104H[bp]
  964.  09ba  16                                push    ss
  965.  09bb  57                                push    di
  966.  09bc  9a 00 00 00 00                    call    far SYSTEM_049
  967.  09c1  8d be 7c fe                       lea     di,-184H[bp]
  968.  09c5  16                                push    ss
  969.  09c6  57                                push    di
  970.  09c7  b8 01 00                          mov     ax,0001H
  971.  09ca  50                                push    ax
  972.  09cb  9a 00 00 00 00                    call    far SYSTEM_04A
  973.  09d0  9a 00 00 00 00                    call    far SYSTEM_031
  974.  09d5  09 c0                             or      ax,ax
  975.  09d7  74 13                             je      L44
  976.  09d9  c7 46 fc ff ff                    mov     word ptr -4H[bp],0ffffH
  977.  09de  c7 46 fe ff ff                    mov     word ptr -2H[bp],0ffffH
  978.  09e3  8a 86 7b fe                       mov     al,-185H[bp]
  979.  09e7  a2 00 00                          mov     SYSTEM_BSS+236H,al
  980.  09ea  eb 2d                             jmp     L45
  981.  09ec  8d be 7c fe       L44             lea     di,-184H[bp]
  982.  09f0  16                                push    ss
  983.  09f1  57                                push    di
  984.  09f2  9a 00 00 00 00                    call    far SYSTEM_057
  985.  09f7  9a 00 00 00 00                    call    far SYSTEM_032
  986.  09fc  89 46 fc                          mov     -4H[bp],ax
  987.  09ff  89 56 fe                          mov     -2H[bp],dx
  988.  0a02  8d be 7c fe                       lea     di,-184H[bp]
  989.  0a06  16                                push    ss
  990.  0a07  57                                push    di
  991.  0a08  9a 00 00 00 00                    call    far SYSTEM_04C
  992.  0a0d  9a 00 00 00 00                    call    far SYSTEM_032
  993.  0a12  8a 86 7b fe                       mov     al,-185H[bp]
  994.  0a16  a2 00 00                          mov     SYSTEM_BSS+236H,al
  995.  0a19  8b 46 fc          L45             mov     ax,-4H[bp]
  996.  0a1c  8b 56 fe                          mov     dx,-2H[bp]
  997.  0a1f  89 ec                             mov     sp,bp
  998.  0a21  5d                                pop     bp
  999.  0a22  ca 04 00                          retf    0004H
  1000.  0a25                    FSIZE2FN:
  1001.  0a25  55                TSUNTE_00F      push    bp
  1002.  0a26  89 e5                             mov     bp,sp
  1003.  0a28  b8 2f 01                          mov     ax,012fH
  1004.  0a2b  9a 00 00 00 00                    call    far SYSTEM_034
  1005.  0a30  81 ec 2f 01                       sub     sp,012fH
  1006.  0a34  c4 7e 06                          les     di,dword ptr +6H[bp]
  1007.  0a37  06                                push    es
  1008.  0a38  57                                push    di
  1009.  0a39  8d be fc fe                       lea     di,-104H[bp]
  1010.  0a3d  16                                push    ss
  1011.  0a3e  57                                push    di
  1012.  0a3f  b8 ff 00                          mov     ax,00ffH
  1013.  0a42  50                                push    ax
  1014.  0a43  9a 00 00 00 00                    call    far SYSTEM_00C
  1015.  0a48  c7 46 fc ff ff                    mov     word ptr -4H[bp],0ffffH
  1016.  0a4d  c7 46 fe ff ff                    mov     word ptr -2H[bp],0ffffH
  1017.  0a52  8d be fc fe                       lea     di,-104H[bp]
  1018.  0a56  16                                push    ss
  1019.  0a57  57                                push    di
  1020.  0a58  b8 3f 00                          mov     ax,003fH
  1021.  0a5b  50                                push    ax
  1022.  0a5c  8d be d1 fe                       lea     di,-12fH[bp]
  1023.  0a60  16                                push    ss
  1024.  0a61  57                                push    di
  1025.  0a62  9a 00 00 00 00                    call    far DOS_00D
  1026.  0a67  83 3e 00 00 00                    cmp     word ptr DOS_BSS,0000H
  1027.  0a6c  74 02                             je      L46
  1028.  0a6e  eb 20                             jmp     L47
  1029.  0a70  8a 86 e6 fe       L46             mov     al,-11aH[bp]
  1030.  0a74  24 08                             and     al,08H
  1031.  0a76  08 c0                             or      al,al
  1032.  0a78  75 16                             jne     L47
  1033.  0a7a  8a 86 e6 fe                       mov     al,-11aH[bp]
  1034.  0a7e  24 10                             and     al,10H
  1035.  0a80  08 c0                             or      al,al
  1036.  0a82  75 0c                             jne     L47
  1037.  0a84  c4 86 eb fe                       les     ax,dword ptr -115H[bp]
  1038.  0a88  8c c2                             mov     dx,es
  1039.  0a8a  89 46 fc                          mov     -4H[bp],ax
  1040.  0a8d  89 56 fe                          mov     -2H[bp],dx
  1041.  0a90  8b 46 fc          L47             mov     ax,-4H[bp]
  1042.  0a93  8b 56 fe                          mov     dx,-2H[bp]
  1043.  0a96  89 ec                             mov     sp,bp
  1044.  0a98  5d                                pop     bp
  1045.  0a99  ca 04 00                          retf    0004H
  1046.  0a9c                    CLUSIZFN:
  1047.  0a9c  55                TSUNTE_010      push    bp
  1048.  0a9d  89 e5                             mov     bp,sp
  1049.  0a9f  b8 18 00                          mov     ax,0018H
  1050.  0aa2  9a 00 00 00 00                    call    far SYSTEM_034
  1051.  0aa7  83 ec 18                          sub     sp,0018H
  1052.  0aaa  8d 7e e8                          lea     di,-18H[bp]
  1053.  0aad  16                                push    ss
  1054.  0aae  57                                push    di
  1055.  0aaf  b8 14 00                          mov     ax,0014H
  1056.  0ab2  50                                push    ax
  1057.  0ab3  b0 00                             mov     al,00H
  1058.  0ab5  50                                push    ax
  1059.  0ab6  9a 00 00 00 00                    call    far SYSTEM_05C
  1060.  0abb  c7 46 e8 00 36                    mov     word ptr -18H[bp],3600H
  1061.  0ac0  8a 46 06                          mov     al,+6H[bp]
  1062.  0ac3  50                                push    ax
  1063.  0ac4  9a 00 00 00 00                    call    far SYSTEM_05A
  1064.  0ac9  30 e4                             xor     ah,ah
  1065.  0acb  2d 40 00                          sub     ax,0040H
  1066.  0ace  89 46 ee                          mov     -12H[bp],ax
  1067.  0ad1  8d 7e e8                          lea     di,-18H[bp]
  1068.  0ad4  16                                push    ss
  1069.  0ad5  57                                push    di
  1070.  0ad6  9a 00 00 00 00                    call    far DOS_002
  1071.  0adb  83 7e e8 ff                       cmp     word ptr -18H[bp],0ffffH
  1072.  0adf  75 0c                             jne     L48
  1073.  0ae1  c7 46 fc ff ff                    mov     word ptr -4H[bp],0ffffH
  1074.  0ae6  c7 46 fe ff ff                    mov     word ptr -2H[bp],0ffffH
  1075.  0aeb  eb 0e                             jmp     L49
  1076.  0aed  8b 46 ec          L48             mov     ax,-14H[bp]
  1077.  0af0  f7 66 e8                          mul     word ptr -18H[bp]
  1078.  0af3  31 d2                             xor     dx,dx
  1079.  0af5  89 46 fc                          mov     -4H[bp],ax
  1080.  0af8  89 56 fe                          mov     -2H[bp],dx
  1081.  0afb  8b 46 fc          L49             mov     ax,-4H[bp]
  1082.  0afe  8b 56 fe                          mov     dx,-2H[bp]
  1083.  0b01  89 ec                             mov     sp,bp
  1084.  0b03  5d                                pop     bp
  1085.  0b04  ca 02 00                          retf    0002H
  1086.  0b07                    FEXISTFN:
  1087.  0b07  55                TSUNTE_00D      push    bp
  1088.  0b08  89 e5                             mov     bp,sp
  1089.  0b0a  b8 84 01                          mov     ax,0184H
  1090.  0b0d  9a 00 00 00 00                    call    far SYSTEM_034
  1091.  0b12  81 ec 84 01                       sub     sp,0184H
  1092.  0b16  c4 7e 06                          les     di,dword ptr +6H[bp]
  1093.  0b19  06                                push    es
  1094.  0b1a  57                                push    di
  1095.  0b1b  8d be ff fe                       lea     di,-101H[bp]
  1096.  0b1f  16                                push    ss
  1097.  0b20  57                                push    di
  1098.  0b21  b8 ff 00                          mov     ax,00ffH
  1099.  0b24  50                                push    ax
  1100.  0b25  9a 00 00 00 00                    call    far SYSTEM_00C
  1101.  0b2a  a0 00 00                          mov     al,SYSTEM_BSS+236H
  1102.  0b2d  88 86 7c fe                       mov     -184H[bp],al
  1103.  0b31  c6 06 00 00 00                    mov     byte ptr SYSTEM_BSS+236H,00H
  1104.  0b36  8d be 7f fe                       lea     di,-181H[bp]
  1105.  0b3a  16                                push    ss
  1106.  0b3b  57                                push    di
  1107.  0b3c  8d be ff fe                       lea     di,-101H[bp]
  1108.  0b40  16                                push    ss
  1109.  0b41  57                                push    di
  1110.  0b42  9a 00 00 00 00                    call    far SYSTEM_049
  1111.  0b47  8d be 7f fe                       lea     di,-181H[bp]
  1112.  0b4b  16                                push    ss
  1113.  0b4c  57                                push    di
  1114.  0b4d  b8 80 00                          mov     ax,0080H
  1115.  0b50  50                                push    ax
  1116.  0b51  9a 00 00 00 00                    call    far SYSTEM_04A
  1117.  0b56  9a 00 00 00 00                    call    far SYSTEM_031
  1118.  0b5b  89 86 7d fe                       mov     -183H[bp],ax
  1119.  0b5f  83 be 7d fe 00                    cmp     word ptr -183H[bp],0000H
  1120.  0b64  74 04                             je      L50
  1121.  0b66  b0 00                             mov     al,00H
  1122.  0b68  eb 02                             jmp     L51
  1123.  0b6a  b0 01             L50             mov     al,01H
  1124.  0b6c  88 46 ff          L51             mov     -1H[bp],al
  1125.  0b6f  83 be 7d fe 00                    cmp     word ptr -183H[bp],0000H
  1126.  0b74  75 10                             jne     L52
  1127.  0b76  8d be 7f fe                       lea     di,-181H[bp]
  1128.  0b7a  16                                push    ss
  1129.  0b7b  57                                push    di
  1130.  0b7c  9a 00 00 00 00                    call    far SYSTEM_04C
  1131.  0b81  9a 00 00 00 00                    call    far SYSTEM_032
  1132.  0b86  8a 86 7c fe       L52             mov     al,-184H[bp]
  1133.  0b8a  a2 00 00                          mov     SYSTEM_BSS+236H,al
  1134.  0b8d  8a 46 ff                          mov     al,-1H[bp]
  1135.  0b90  89 ec                             mov     sp,bp
  1136.  0b92  5d                                pop     bp
  1137.  0b93  ca 04 00                          retf    0004H
  1138.  0b96                    RDOFILFN:
  1139.  0b96  55                TSUNTE_013      push    bp
  1140.  0b97  89 e5                             mov     bp,sp
  1141.  0b99  b8 2c 01                          mov     ax,012cH
  1142.  0b9c  9a 00 00 00 00                    call    far SYSTEM_034
  1143.  0ba1  81 ec 2c 01                       sub     sp,012cH
  1144.  0ba5  c4 7e 06                          les     di,dword ptr +6H[bp]
  1145.  0ba8  06                                push    es
  1146.  0ba9  57                                push    di
  1147.  0baa  8d be ff fe                       lea     di,-101H[bp]
  1148.  0bae  16                                push    ss
  1149.  0baf  57                                push    di
  1150.  0bb0  b8 ff 00                          mov     ax,00ffH
  1151.  0bb3  50                                push    ax
  1152.  0bb4  9a 00 00 00 00                    call    far SYSTEM_00C
  1153.  0bb9  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1154.  0bbd  8d be ff fe                       lea     di,-101H[bp]
  1155.  0bc1  16                                push    ss
  1156.  0bc2  57                                push    di
  1157.  0bc3  b8 3f 00                          mov     ax,003fH
  1158.  0bc6  50                                push    ax
  1159.  0bc7  8d be d4 fe                       lea     di,-12cH[bp]
  1160.  0bcb  16                                push    ss
  1161.  0bcc  57                                push    di
  1162.  0bcd  9a 00 00 00 00                    call    far DOS_00D
  1163.  0bd2  83 3e 00 00 00    L53             cmp     word ptr DOS_BSS,0000H
  1164.  0bd7  75 2f                             jne     L55
  1165.  0bd9  8a 86 e9 fe                       mov     al,-117H[bp]
  1166.  0bdd  24 08                             and     al,08H
  1167.  0bdf  08 c0                             or      al,al
  1168.  0be1  75 18                             jne     L54
  1169.  0be3  8a 86 e9 fe                       mov     al,-117H[bp]
  1170.  0be7  24 10                             and     al,10H
  1171.  0be9  08 c0                             or      al,al
  1172.  0beb  75 0e                             jne     L54
  1173.  0bed  8a 86 e9 fe                       mov     al,-117H[bp]
  1174.  0bf1  24 01                             and     al,01H
  1175.  0bf3  08 c0                             or      al,al
  1176.  0bf5  74 04                             je      L54
  1177.  0bf7  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1178.  0bfb  8d be d4 fe       L54             lea     di,-12cH[bp]
  1179.  0bff  16                                push    ss
  1180.  0c00  57                                push    di
  1181.  0c01  9a 00 00 00 00                    call    far DOS_00E
  1182.  0c06  eb ca                             jmp     L53
  1183.  0c08  8a 46 ff          L55             mov     al,-1H[bp]
  1184.  0c0b  89 ec                             mov     sp,bp
  1185.  0c0d  5d                                pop     bp
  1186.  0c0e  ca 04 00                          retf    0004H
  1187.  0c11                    HIDFILFN:
  1188.  0c11  55                TSUNTE_012      push    bp
  1189.  0c12  89 e5                             mov     bp,sp
  1190.  0c14  b8 2c 01                          mov     ax,012cH
  1191.  0c17  9a 00 00 00 00                    call    far SYSTEM_034
  1192.  0c1c  81 ec 2c 01                       sub     sp,012cH
  1193.  0c20  c4 7e 06                          les     di,dword ptr +6H[bp]
  1194.  0c23  06                                push    es
  1195.  0c24  57                                push    di
  1196.  0c25  8d be ff fe                       lea     di,-101H[bp]
  1197.  0c29  16                                push    ss
  1198.  0c2a  57                                push    di
  1199.  0c2b  b8 ff 00                          mov     ax,00ffH
  1200.  0c2e  50                                push    ax
  1201.  0c2f  9a 00 00 00 00                    call    far SYSTEM_00C
  1202.  0c34  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1203.  0c38  8d be ff fe                       lea     di,-101H[bp]
  1204.  0c3c  16                                push    ss
  1205.  0c3d  57                                push    di
  1206.  0c3e  b8 3f 00                          mov     ax,003fH
  1207.  0c41  50                                push    ax
  1208.  0c42  8d be d4 fe                       lea     di,-12cH[bp]
  1209.  0c46  16                                push    ss
  1210.  0c47  57                                push    di
  1211.  0c48  9a 00 00 00 00                    call    far DOS_00D
  1212.  0c4d  83 3e 00 00 00    L56             cmp     word ptr DOS_BSS,0000H
  1213.  0c52  75 2f                             jne     L58
  1214.  0c54  8a 86 e9 fe                       mov     al,-117H[bp]
  1215.  0c58  24 08                             and     al,08H
  1216.  0c5a  08 c0                             or      al,al
  1217.  0c5c  75 18                             jne     L57
  1218.  0c5e  8a 86 e9 fe                       mov     al,-117H[bp]
  1219.  0c62  24 10                             and     al,10H
  1220.  0c64  08 c0                             or      al,al
  1221.  0c66  75 0e                             jne     L57
  1222.  0c68  8a 86 e9 fe                       mov     al,-117H[bp]
  1223.  0c6c  24 02                             and     al,02H
  1224.  0c6e  08 c0                             or      al,al
  1225.  0c70  74 04                             je      L57
  1226.  0c72  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1227.  0c76  8d be d4 fe       L57             lea     di,-12cH[bp]
  1228.  0c7a  16                                push    ss
  1229.  0c7b  57                                push    di
  1230.  0c7c  9a 00 00 00 00                    call    far DOS_00E
  1231.  0c81  eb ca                             jmp     L56
  1232.  0c83  8a 46 ff          L58             mov     al,-1H[bp]
  1233.  0c86  89 ec                             mov     sp,bp
  1234.  0c88  5d                                pop     bp
  1235.  0c89  ca 04 00                          retf    0004H
  1236.  0c8c                    SYSFILFN:
  1237.  0c8c  55                TSUNTE_014      push    bp
  1238.  0c8d  89 e5                             mov     bp,sp
  1239.  0c8f  b8 2c 01                          mov     ax,012cH
  1240.  0c92  9a 00 00 00 00                    call    far SYSTEM_034
  1241.  0c97  81 ec 2c 01                       sub     sp,012cH
  1242.  0c9b  c4 7e 06                          les     di,dword ptr +6H[bp]
  1243.  0c9e  06                                push    es
  1244.  0c9f  57                                push    di
  1245.  0ca0  8d be ff fe                       lea     di,-101H[bp]
  1246.  0ca4  16                                push    ss
  1247.  0ca5  57                                push    di
  1248.  0ca6  b8 ff 00                          mov     ax,00ffH
  1249.  0ca9  50                                push    ax
  1250.  0caa  9a 00 00 00 00                    call    far SYSTEM_00C
  1251.  0caf  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1252.  0cb3  8d be ff fe                       lea     di,-101H[bp]
  1253.  0cb7  16                                push    ss
  1254.  0cb8  57                                push    di
  1255.  0cb9  b8 3f 00                          mov     ax,003fH
  1256.  0cbc  50                                push    ax
  1257.  0cbd  8d be d4 fe                       lea     di,-12cH[bp]
  1258.  0cc1  16                                push    ss
  1259.  0cc2  57                                push    di
  1260.  0cc3  9a 00 00 00 00                    call    far DOS_00D
  1261.  0cc8  83 3e 00 00 00    L59             cmp     word ptr DOS_BSS,0000H
  1262.  0ccd  75 2f                             jne     L61
  1263.  0ccf  8a 86 e9 fe                       mov     al,-117H[bp]
  1264.  0cd3  24 08                             and     al,08H
  1265.  0cd5  08 c0                             or      al,al
  1266.  0cd7  75 18                             jne     L60
  1267.  0cd9  8a 86 e9 fe                       mov     al,-117H[bp]
  1268.  0cdd  24 10                             and     al,10H
  1269.  0cdf  08 c0                             or      al,al
  1270.  0ce1  75 0e                             jne     L60
  1271.  0ce3  8a 86 e9 fe                       mov     al,-117H[bp]
  1272.  0ce7  24 04                             and     al,04H
  1273.  0ce9  08 c0                             or      al,al
  1274.  0ceb  74 04                             je      L60
  1275.  0ced  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1276.  0cf1  8d be d4 fe       L60             lea     di,-12cH[bp]
  1277.  0cf5  16                                push    ss
  1278.  0cf6  57                                push    di
  1279.  0cf7  9a 00 00 00 00                    call    far DOS_00E
  1280.  0cfc  eb ca                             jmp     L59
  1281.  0cfe  8a 46 ff          L61             mov     al,-1H[bp]
  1282.  0d01  89 ec                             mov     sp,bp
  1283.  0d03  5d                                pop     bp
  1284.  0d04  ca 04 00                          retf    0004H
  1285.  0d07                    ARCFILFN:
  1286.  0d07  55                TSUNTE_011      push    bp
  1287.  0d08  89 e5                             mov     bp,sp
  1288.  0d0a  b8 2c 01                          mov     ax,012cH
  1289.  0d0d  9a 00 00 00 00                    call    far SYSTEM_034
  1290.  0d12  81 ec 2c 01                       sub     sp,012cH
  1291.  0d16  c4 7e 06                          les     di,dword ptr +6H[bp]
  1292.  0d19  06                                push    es
  1293.  0d1a  57                                push    di
  1294.  0d1b  8d be ff fe                       lea     di,-101H[bp]
  1295.  0d1f  16                                push    ss
  1296.  0d20  57                                push    di
  1297.  0d21  b8 ff 00                          mov     ax,00ffH
  1298.  0d24  50                                push    ax
  1299.  0d25  9a 00 00 00 00                    call    far SYSTEM_00C
  1300.  0d2a  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1301.  0d2e  8d be ff fe                       lea     di,-101H[bp]
  1302.  0d32  16                                push    ss
  1303.  0d33  57                                push    di
  1304.  0d34  b8 3f 00                          mov     ax,003fH
  1305.  0d37  50                                push    ax
  1306.  0d38  8d be d4 fe                       lea     di,-12cH[bp]
  1307.  0d3c  16                                push    ss
  1308.  0d3d  57                                push    di
  1309.  0d3e  9a 00 00 00 00                    call    far DOS_00D
  1310.  0d43  83 3e 00 00 00    L62             cmp     word ptr DOS_BSS,0000H
  1311.  0d48  75 2f                             jne     L64
  1312.  0d4a  8a 86 e9 fe                       mov     al,-117H[bp]
  1313.  0d4e  24 08                             and     al,08H
  1314.  0d50  08 c0                             or      al,al
  1315.  0d52  75 18                             jne     L63
  1316.  0d54  8a 86 e9 fe                       mov     al,-117H[bp]
  1317.  0d58  24 10                             and     al,10H
  1318.  0d5a  08 c0                             or      al,al
  1319.  0d5c  75 0e                             jne     L63
  1320.  0d5e  8a 86 e9 fe                       mov     al,-117H[bp]
  1321.  0d62  24 20                             and     al,20H
  1322.  0d64  08 c0                             or      al,al
  1323.  0d66  74 04                             je      L63
  1324.  0d68  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1325.  0d6c  8d be d4 fe       L63             lea     di,-12cH[bp]
  1326.  0d70  16                                push    ss
  1327.  0d71  57                                push    di
  1328.  0d72  9a 00 00 00 00                    call    far DOS_00E
  1329.  0d77  eb ca                             jmp     L62
  1330.  0d79  8a 46 ff          L64             mov     al,-1H[bp]
  1331.  0d7c  89 ec                             mov     sp,bp
  1332.  0d7e  5d                                pop     bp
  1333.  0d7f  ca 04 00                          retf    0004H
  1334.  0d82                    DEFDRVFN:
  1335.  0d82  55                TSUNTE_015      push    bp
  1336.  0d83  89 e5                             mov     bp,sp
  1337.  0d85  b8 02 01                          mov     ax,0102H
  1338.  0d88  9a 00 00 00 00                    call    far SYSTEM_034
  1339.  0d8d  81 ec 02 01                       sub     sp,0102H
  1340.  0d91  a0 00 00                          mov     al,SYSTEM_BSS+236H
  1341.  0d94  88 46 fe                          mov     -2H[bp],al
  1342.  0d97  c6 06 00 00 00                    mov     byte ptr SYSTEM_BSS+236H,00H
  1343.  0d9c  b0 00                             mov     al,00H
  1344.  0d9e  50                                push    ax
  1345.  0d9f  8d be fe fe                       lea     di,-102H[bp]
  1346.  0da3  16                                push    ss
  1347.  0da4  57                                push    di
  1348.  0da5  b8 ff 00                          mov     ax,00ffH
  1349.  0da8  50                                push    ax
  1350.  0da9  9a 00 00 00 00                    call    far SYSTEM_065
  1351.  0dae  8a 86 ff fe                       mov     al,-101H[bp]
  1352.  0db2  88 46 ff                          mov     -1H[bp],al
  1353.  0db5  8a 46 fe                          mov     al,-2H[bp]
  1354.  0db8  a2 00 00                          mov     SYSTEM_BSS+236H,al
  1355.  0dbb  8a 46 ff                          mov     al,-1H[bp]
  1356.  0dbe  89 ec                             mov     sp,bp
  1357.  0dc0  5d                                pop     bp
  1358.  0dc1  cb                                retf    
  1359.  0dc2                    CMDLNFN:
  1360.  0dc2  55                TSUNTE_01B      push    bp
  1361.  0dc3  89 e5                             mov     bp,sp
  1362.  0dc5  b8 04 00                          mov     ax,0004H
  1363.  0dc8  9a 00 00 00 00                    call    far SYSTEM_034
  1364.  0dcd  83 ec 04                          sub     sp,0004H
  1365.  0dd0  b8 80 00                          mov     ax,0080H
  1366.  0dd3  8b 16 00 00                       mov     dx,SYSTEM_BSS+200H
  1367.  0dd7  89 46 fc                          mov     -4H[bp],ax
  1368.  0dda  89 56 fe                          mov     -2H[bp],dx
  1369.  0ddd  c4 7e fc                          les     di,dword ptr -4H[bp]
  1370.  0de0  06                                push    es
  1371.  0de1  57                                push    di
  1372.  0de2  c4 7e 06                          les     di,dword ptr +6H[bp]
  1373.  0de5  06                                push    es
  1374.  0de6  57                                push    di
  1375.  0de7  b8 ff 00                          mov     ax,00ffH
  1376.  0dea  50                                push    ax
  1377.  0deb  9a 00 00 00 00                    call    far SYSTEM_00C
  1378.  0df0  89 ec                             mov     sp,bp
  1379.  0df2  5d                                pop     bp
  1380.  0df3  cb                                retf    
  1381.  0df4                    BORDER:
  1382.  0df4  55                TSUNTE_004      push    bp
  1383.  0df5  89 e5                             mov     bp,sp
  1384.  0df7  b8 14 00                          mov     ax,0014H
  1385.  0dfa  9a 00 00 00 00                    call    far SYSTEM_034
  1386.  0dff  83 ec 14                          sub     sp,0014H
  1387.  0e02  8d 7e ec                          lea     di,-14H[bp]
  1388.  0e05  16                                push    ss
  1389.  0e06  57                                push    di
  1390.  0e07  b8 14 00                          mov     ax,0014H
  1391.  0e0a  50                                push    ax
  1392.  0e0b  b0 00                             mov     al,00H
  1393.  0e0d  50                                push    ax
  1394.  0e0e  9a 00 00 00 00                    call    far SYSTEM_05C
  1395.  0e13  c6 46 ed 0b                       mov     byte ptr -13H[bp],0bH
  1396.  0e17  c6 46 ef 00                       mov     byte ptr -11H[bp],00H
  1397.  0e1b  8a 46 06                          mov     al,+6H[bp]
  1398.  0e1e  88 46 ee                          mov     -12H[bp],al
  1399.  0e21  b0 10                             mov     al,10H
  1400.  0e23  50                                push    ax
  1401.  0e24  8d 7e ec                          lea     di,-14H[bp]
  1402.  0e27  16                                push    ss
  1403.  0e28  57                                push    di
  1404.  0e29  9a 00 00 00 00                    call    far DOS_001
  1405.  0e2e  89 ec                             mov     sp,bp
  1406.  0e30  5d                                pop     bp
  1407.  0e31  ca 02 00                          retf    0002H
  1408.  
  1409. No disassembly errors
  1410.  
  1411. ------------------------------------------------------------
  1412.  
  1413. Segment: _DATA  WORD   00000100 bytes  
  1414.  0000  24 30 30 30 30 33 31 30 TSUNTE_DATA     - $0000310
  1415.  0008  35 39 30 39 30 31 32 30                 - 59090120
  1416.  0010  31 35 31 31 38 31 32 31                 - 15118121
  1417.  0018  32 32 34 33 32 37 33 33                 - 22432733
  1418.  0020  30 34 33 33 34 00 00 00                 - 04334...
  1419.  0028  00 00 00 00 00 00 00 00                 - ........
  1420.        --- Above line repeats 26 time(s) --- 
  1421.  
  1422. No disassembly errors
  1423.  
  1424. ------------------------------------------------------------
  1425.