home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / help / helper / library1.dis < prev    next >
Encoding:
Text File  |  1994-06-19  |  62.4 KB  |  1,109 lines

  1.  
  2. Module: LIBRARY1.PAS
  3. Group: 'DGROUP' _DATA,_BSS
  4.  
  5. Segment: LIBRARY1_TEXT  PARA   00000ac4 bytes  
  6.  0000  21 4e 6f          L1              and     +6fH[bp],cx
  7.  0003  74 20                             je      L2
  8.  0005  65 6e                             outs    dx,byte ptr gs:[si]
  9.  0007  6f                                outsw   
  10.  0008  75 67                             jne     L6
  11.  000a  68 20 6d                          push    6d20H
  12.  000d  65 6d                             insw    
  13.  000f  6f                                outsw   
  14.  0010  72 79                             jb      L8
  15.  0012  20 74 6f                          and     +6fH[si],dh
  16.  0015  20 72 75                          and     +75H[bp+si],dh
  17.  0018  6e                                outsb   
  18.  0019  20 70 72                          and     +72H[bx+si],dh
  19.  001c  6f                                outsw   
  20.  001d  67 72 61                          jb      L7
  21.  0020  6d                                insw    
  22.  0021  2e 55                             push    bp
  23.  0023  89 e5                             mov     bp,sp
  24.  0025  31 c0             L2              xor     ax,ax
  25.  0027  9a 00 00 00 00                    call    far SYSTEM_034
  26.  002c  9a 00 00 00 00                    call    far SYSTEM_027
  27.  0031  3b 56 08                          cmp     dx,+8H[bp]
  28.  0034  7c 07                             jl      L3
  29.  0036  7f 28                             jg      L4
  30.  0038  3b 46 06                          cmp     ax,+6H[bp]
  31.  003b  73 23                             jae     L4
  32.  003d  bf 00 00          L3              mov     di,offset SYSTEM_BSS+100H
  33.  0040  1e                                push    ds
  34.  0041  57                                push    di
  35.  0042  bf 00 00                          mov     di,offset L1
  36.  0045  0e                                push    cs
  37.  0046  57                                push    di
  38.  0047  31 c0                             xor     ax,ax
  39.  0049  50                                push    ax
  40.  004a  9a 00 00 00 00                    call    far SYSTEM_036
  41.  004f  9a 00 00 00 00                    call    far SYSTEM_03A
  42.  0054  9a 00 00 00 00                    call    far SYSTEM_032
  43.  0059  31 c0                             xor     ax,ax
  44.  005b  9a 00 00 00 00                    call    far SYSTEM_003
  45.  0060  89 ec             L4              mov     sp,bp
  46.  0062  5d                                pop     bp
  47.  0063  ca 04 00                          retf    0004H
  48.  0066  00 55 89          L5              add     -77H[di],dl
  49.  0069  e5 b8                             in      ax,0b8H
  50.  006b  01 01                             add     [bx+di],ax
  51.  006d  9a 00 00 00 00                    call    far SYSTEM_034
  52.  0072  81 ec 01 01                       sub     sp,0101H
  53.  0076  c4 7e 08                          les     di,dword ptr +8H[bp]
  54.  0079  06                                push    es
  55.  007a  57                                push    di
  56.  007b  8d be 00 ff                       lea     di,-100H[bp]
  57.  007f  16                                push    ss
  58.  0080  57                                push    di
  59.  0081  b8 ff 00          L7              mov     ax,00ffH
  60.  0084  50                                push    ax
  61.  0085  9a 00 00 00 00                    call    far SYSTEM_00C
  62.  008a  8a 86 00 ff                       mov     al,-100H[bp]
  63.  008e  30 e4                             xor     ah,ah
  64.  0090  8b d0                             mov     dx,ax
  65.  0092  b8 4c 00                          mov     ax,004cH
  66.  0095  2b c2                             sub     ax,dx
  67.  0097  09 c0                             or      ax,ax
  68.  0099  79 02                             jns     L9
  69.  009b  f7 d8                             neg     ax
  70.  009d  99                L9              cwd     
  71.  009e  b9 02 00                          mov     cx,0002H
  72.  00a1  f7 f9                             idiv    cx
  73.  00a3  88 86 ff fe                       mov     -101H[bp],al
  74.  00a7  bf 00 00                          mov     di,offset L5
  75.  00aa  0e                                push    cs
  76.  00ab  57                                push    di
  77.  00ac  b0 01                             mov     al,01H
  78.  00ae  50                                push    ax
  79.  00af  b0 02                             mov     al,02H
  80.  00b1  50                                push    ax
  81.  00b2  8a 46 06                          mov     al,+6H[bp]
  82.  00b5  50                                push    ax
  83.  00b6  8a 86 ff fe                       mov     al,-101H[bp]
  84.  00ba  50                                push    ax
  85.  00bb  b0 0a                             mov     al,0aH
  86.  00bd  50                                push    ax
  87.  00be  8a 86 ff fe                       mov     al,-101H[bp]
  88.  00c2  30 e4                             xor     ah,ah
  89.  00c4  d1 e0                             shl     ax,1
  90.  00c6  8b d0                             mov     dx,ax
  91.  00c8  b8 4e 00                          mov     ax,004eH
  92.  00cb  2b c2                             sub     ax,dx
  93.  00cd  50                                push    ax
  94.  00ce  b0 01                             mov     al,01H
  95.  00d0  50                                push    ax
  96.  00d1  0e                                push    cs
  97.  00d2  e8 00 00                          call    DRAW_BORDER
  98.  00d5  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  99.  00d8  1e                                push    ds
  100.  00d9  57                                push    di
  101.  00da  8d be 00 ff                       lea     di,-100H[bp]
  102.  00de  16                                push    ss
  103.  00df  57                                push    di
  104.  00e0  31 c0                             xor     ax,ax
  105.  00e2  50                                push    ax
  106.  00e3  9a 00 00 00 00                    call    far SYSTEM_036
  107.  00e8  9a 00 00 00 00                    call    far SYSTEM_03B
  108.  00ed  9a 00 00 00 00                    call    far SYSTEM_032
  109.  00f2  89 ec                             mov     sp,bp
  110.  00f4  5d                                pop     bp
  111.  00f5  ca 06 00                          retf    0006H
  112.  00f8                    UP_CASE:
  113.  00f8  55                LIBRARY1_002    push    bp
  114.  00f9  89 e5                             mov     bp,sp
  115.  00fb  b8 02 01                          mov     ax,0102H
  116.  00fe  9a 00 00 00 00                    call    far SYSTEM_034
  117.  0103  81 ec 02 01                       sub     sp,0102H
  118.  0107  c4 7e 06                          les     di,dword ptr +6H[bp]
  119.  010a  06                                push    es
  120.  010b  57                                push    di
  121.  010c  8d be 00 ff                       lea     di,-100H[bp]
  122.  0110  16                                push    ss
  123.  0111  57                                push    di
  124.  0112  b8 ff 00                          mov     ax,00ffH
  125.  0115  50                                push    ax
  126.  0116  9a 00 00 00 00                    call    far SYSTEM_00C
  127.  011b  8a 86 00 ff                       mov     al,-100H[bp]
  128.  011f  88 86 fe fe                       mov     -102H[bp],al
  129.  0123  b0 01                             mov     al,01H
  130.  0125  3a 86 fe fe                       cmp     al,-102H[bp]
  131.  0129  77 34                             ja      L12
  132.  012b  88 86 ff fe                       mov     -101H[bp],al
  133.  012f  eb 04                             jmp     L11
  134.  0131  fe 86 ff fe       L10             inc     byte ptr -101H[bp]
  135.  0135  8a 86 ff fe       L11             mov     al,-101H[bp]
  136.  0139  30 e4                             xor     ah,ah
  137.  013b  8b f8                             mov     di,ax
  138.  013d  8a 83 00 ff                       mov     al,-100H[bp+di]
  139.  0141  50                                push    ax
  140.  0142  9a 00 00 00 00                    call    far SYSTEM_05A
  141.  0147  8a d0                             mov     dl,al
  142.  0149  8a 86 ff fe                       mov     al,-101H[bp]
  143.  014d  30 e4                             xor     ah,ah
  144.  014f  8b f8                             mov     di,ax
  145.  0151  88 93 00 ff                       mov     -100H[bp+di],dl
  146.  0155  8a 86 ff fe                       mov     al,-101H[bp]
  147.  0159  3a 86 fe fe                       cmp     al,-102H[bp]
  148.  015d  75 d2                             jne     L10
  149.  015f  8d be 00 ff       L12             lea     di,-100H[bp]
  150.  0163  16                                push    ss
  151.  0164  57                                push    di
  152.  0165  c4 7e 0a                          les     di,dword ptr +0aH[bp]
  153.  0168  06                                push    es
  154.  0169  57                                push    di
  155.  016a  b8 ff 00                          mov     ax,00ffH
  156.  016d  50                                push    ax
  157.  016e  9a 00 00 00 00                    call    far SYSTEM_00C
  158.  0173  89 ec                             mov     sp,bp
  159.  0175  5d                                pop     bp
  160.  0176  ca 04 00                          retf    0004H
  161.  0179                    HIDE_CURSOR:
  162.  0179  55                LIBRARY1_003    push    bp
  163.  017a  89 e5                             mov     bp,sp
  164.  017c  b8 14 00                          mov     ax,0014H
  165.  017f  9a 00 00 00 00                    call    far SYSTEM_034
  166.  0184  83 ec 14                          sub     sp,0014H
  167.  0187  c7 46 ec 00 02                    mov     word ptr -14H[bp],0200H
  168.  018c  c7 46 f2 00 19                    mov     word ptr -0eH[bp],1900H
  169.  0191  31 c0                             xor     ax,ax
  170.  0193  89 46 ee                          mov     -12H[bp],ax
  171.  0196  b0 10                             mov     al,10H
  172.  0198  50                                push    ax
  173.  0199  8d 7e ec                          lea     di,-14H[bp]
  174.  019c  16                                push    ss
  175.  019d  57                                push    di
  176.  019e  9a 00 00 00 00                    call    far DOS_001
  177.  01a3  89 ec                             mov     sp,bp
  178.  01a5  5d                                pop     bp
  179.  01a6  cb                                retf    
  180.  01a7                    COLORMONITOR:
  181.  01a7  55                LIBRARY1_004    push    bp
  182.  01a8  89 e5                             mov     bp,sp
  183.  01aa  b8 01 00                          mov     ax,0001H
  184.  01ad  9a 00 00 00 00                    call    far SYSTEM_034
  185.  01b2  83 ec 01                          sub     sp,0001H
  186.  01b5  31 c0                             xor     ax,ax
  187.  01b7  50                                push    ax
  188.  01b8  bf 10 04                          mov     di,0410H
  189.  01bb  07                                pop     es
  190.  01bc  26 8a 05                          mov     al,es:[di]
  191.  01bf  24 30                             and     al,30H
  192.  01c1  3c 30                             cmp     al,30H
  193.  01c3  74 06                             je      L13
  194.  01c5  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  195.  01c9  eb 04                             jmp     L14
  196.  01cb  c6 46 ff 00       L13             mov     byte ptr -1H[bp],00H
  197.  01cf  80 3e 00 00 00    L14             cmp     byte ptr MONOOVERRIDE,00H
  198.  01d4  74 04                             je      L15
  199.  01d6  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  200.  01da  8a 46 ff          L15             mov     al,-1H[bp]
  201.  01dd  89 ec                             mov     sp,bp
  202.  01df  5d                                pop     bp
  203.  01e0  cb                                retf    
  204.  01e1                    BEEP:
  205.  01e1  55                LIBRARY1_005    push    bp
  206.  01e2  89 e5                             mov     bp,sp
  207.  01e4  31 c0                             xor     ax,ax
  208.  01e6  9a 00 00 00 00                    call    far SYSTEM_034
  209.  01eb  b8 50 00                          mov     ax,0050H
  210.  01ee  50                                push    ax
  211.  01ef  9a 00 00 00 00                    call    far CRT_013
  212.  01f4  b8 05 00                          mov     ax,0005H
  213.  01f7  50                                push    ax
  214.  01f8  9a 00 00 00 00                    call    far CRT_012
  215.  01fd  9a 00 00 00 00                    call    far CRT_014
  216.  0202  89 ec                             mov     sp,bp
  217.  0204  5d                                pop     bp
  218.  0205  cb                                retf    
  219.  0206  00 55 89          L16             add     -77H[di],dl
  220.  0209  e5 b8                             in      ax,0b8H
  221.  020b  81 01 9a 00                       add     word ptr [bx+di],009aH
  222.  020f  00 00                             add     [bx+si],al
  223.  0211  00 81 ec 81                       add     -7e14H[bx+di],al
  224.  0215  01 c4                             add     sp,ax
  225.  0217  7e 06                             jle     L17
  226.  0219  06                                push    es
  227.  021a  57                                push    di
  228.  021b  8d be ff fe                       lea     di,-101H[bp]
  229.  021f  16                L17             push    ss
  230.  0220  57                                push    di
  231.  0221  b8 ff 00                          mov     ax,00ffH
  232.  0224  50                                push    ax
  233.  0225  9a 00 00 00 00                    call    far SYSTEM_00C
  234.  022a  8d be 7f fe                       lea     di,-181H[bp]
  235.  022e  16                                push    ss
  236.  022f  57                                push    di
  237.  0230  8d be ff fe                       lea     di,-101H[bp]
  238.  0234  16                                push    ss
  239.  0235  57                                push    di
  240.  0236  9a 00 00 00 00                    call    far SYSTEM_049
  241.  023b  8d be 7f fe                       lea     di,-181H[bp]
  242.  023f  16                                push    ss
  243.  0240  57                                push    di
  244.  0241  b8 80 00                          mov     ax,0080H
  245.  0244  50                                push    ax
  246.  0245  9a 00 00 00 00                    call    far SYSTEM_04A
  247.  024a  8d be 7f fe                       lea     di,-181H[bp]
  248.  024e  16                                push    ss
  249.  024f  57                                push    di
  250.  0250  9a 00 00 00 00                    call    far SYSTEM_04C
  251.  0255  9a 00 00 00 00                    call    far SYSTEM_031
  252.  025a  09 c0                             or      ax,ax
  253.  025c  75 12                             jne     L18
  254.  025e  8d be ff fe                       lea     di,-101H[bp]
  255.  0262  16                                push    ss
  256.  0263  57                                push    di
  257.  0264  bf 00 00                          mov     di,offset L16
  258.  0267  0e                                push    cs
  259.  0268  57                                push    di
  260.  0269  9a 00 00 00 00                    call    far SYSTEM_011
  261.  026e  75 04                             jne     L19
  262.  0270  b0 00             L18             mov     al,00H
  263.  0272  eb 02                             jmp     L20
  264.  0274  b0 01             L19             mov     al,01H
  265.  0276  88 46 ff          L20             mov     -1H[bp],al
  266.  0279  8a 46 ff                          mov     al,-1H[bp]
  267.  027c  89 ec                             mov     sp,bp
  268.  027e  5d                                pop     bp
  269.  027f  ca 04 00                          retf    0004H
  270.  0282                    SCREENSEGMENT:
  271.  0282  55                LIBRARY1_007    push    bp
  272.  0283  89 e5                             mov     bp,sp
  273.  0285  b8 02 00                          mov     ax,0002H
  274.  0288  9a 00 00 00 00                    call    far SYSTEM_034
  275.  028d  83 ec 02                          sub     sp,0002H
  276.  0290  31 c0                             xor     ax,ax
  277.  0292  50                                push    ax
  278.  0293  bf 49 04                          mov     di,0449H
  279.  0296  07                                pop     es
  280.  0297  26 80 3d 07                       cmp     byte ptr es:[di],07H
  281.  029b  75 07                             jne     L21
  282.  029d  c7 46 fe 00 b0                    mov     word ptr -2H[bp],0b000H
  283.  02a2  eb 05                             jmp     L22
  284.  02a4  c7 46 fe 00 b8    L21             mov     word ptr -2H[bp],0b800H
  285.  02a9  8b 46 fe          L22             mov     ax,-2H[bp]
  286.  02ac  89 ec                             mov     sp,bp
  287.  02ae  5d                                pop     bp
  288.  02af  cb                                retf    
  289.  02b0                    DRAW_BORDER:
  290.  02b0  55                LIBRARY1_008    push    bp
  291.  02b1  89 e5                             mov     bp,sp
  292.  02b3  b8 ae 01                          mov     ax,01aeH
  293.  02b6  9a 00 00 00 00                    call    far SYSTEM_034
  294.  02bb  81 ec ae 01                       sub     sp,01aeH
  295.  02bf  c4 7e 14                          les     di,dword ptr +14H[bp]
  296.  02c2  06                                push    es
  297.  02c3  57                                push    di
  298.  02c4  8d be 00 ff                       lea     di,-100H[bp]
  299.  02c8  16                                push    ss
  300.  02c9  57                                push    di
  301.  02ca  b8 ff 00                          mov     ax,00ffH
  302.  02cd  50                                push    ax
  303.  02ce  9a 00 00 00 00                    call    far SYSTEM_00C
  304.  02d3  8a 46 0e                          mov     al,+0eH[bp]
  305.  02d6  88 86 fa fe                       mov     -106H[bp],al
  306.  02da  80 7e 10 02                       cmp     byte ptr +10H[bp],02H
  307.  02de  76 04                             jbe     L23
  308.  02e0  c6 46 10 02                       mov     byte ptr +10H[bp],02H
  309.  02e4  8a 46 10          L23             mov     al,+10H[bp]
  310.  02e7  30 e4                             xor     ah,ah
  311.  02e9  ba 07 00                          mov     dx,0007H
  312.  02ec  f7 e2                             mul     dx
  313.  02ee  8b f8                             mov     di,ax
  314.  02f0  81 c7 00 00                       add     di,offset LIBRARY1_DATA
  315.  02f4  1e                                push    ds
  316.  02f5  57                                push    di
  317.  02f6  8d be f3 fe                       lea     di,-10dH[bp]
  318.  02fa  16                                push    ss
  319.  02fb  57                                push    di
  320.  02fc  b8 06 00                          mov     ax,0006H
  321.  02ff  50                                push    ax
  322.  0300  9a 00 00 00 00                    call    far SYSTEM_00C
  323.  0305  8a 86 f5 fe                       mov     al,-10bH[bp]
  324.  0309  88 86 fb fe                       mov     -105H[bp],al
  325.  030d  8a 46 08                          mov     al,+8H[bp]
  326.  0310  30 e4                             xor     ah,ah
  327.  0312  05 02 00                          add     ax,0002H
  328.  0315  88 86 52 fe                       mov     -1aeH[bp],al
  329.  0319  b0 01                             mov     al,01H
  330.  031b  3a 86 52 fe                       cmp     al,-1aeH[bp]
  331.  031f  77 42                             ja      L26
  332.  0321  88 86 fe fe                       mov     -102H[bp],al
  333.  0325  eb 04                             jmp     L25
  334.  0327  fe 86 fe fe       L24             inc     byte ptr -102H[bp]
  335.  032b  8a 86 fe fe       L25             mov     al,-102H[bp]
  336.  032f  30 e4                             xor     ah,ah
  337.  0331  d1 e0                             shl     ax,1
  338.  0333  88 86 ff fe                       mov     -101H[bp],al
  339.  0337  8a 96 fb fe                       mov     dl,-105H[bp]
  340.  033b  8a 86 ff fe                       mov     al,-101H[bp]
  341.  033f  fe c8                             dec     al
  342.  0341  30 e4                             xor     ah,ah
  343.  0343  8b f8                             mov     di,ax
  344.  0345  88 93 52 fe                       mov     -1aeH[bp+di],dl
  345.  0349  8a 96 fa fe                       mov     dl,-106H[bp]
  346.  034d  8a 86 ff fe                       mov     al,-101H[bp]
  347.  0351  30 e4                             xor     ah,ah
  348.  0353  8b f8                             mov     di,ax
  349.  0355  88 93 52 fe                       mov     -1aeH[bp+di],dl
  350.  0359  8a 86 fe fe                       mov     al,-102H[bp]
  351.  035d  3a 86 52 fe                       cmp     al,-1aeH[bp]
  352.  0361  75 c4                             jne     L24
  353.  0363  8a 86 f4 fe       L26             mov     al,-10cH[bp]
  354.  0367  88 86 53 fe                       mov     -1adH[bp],al
  355.  036b  8a 96 f6 fe                       mov     dl,-10aH[bp]
  356.  036f  8a 86 ff fe                       mov     al,-101H[bp]
  357.  0373  30 e4                             xor     ah,ah
  358.  0375  48                                dec     ax
  359.  0376  8b f8                             mov     di,ax
  360.  0378  88 93 52 fe                       mov     -1aeH[bp+di],dl
  361.  037c  8d be 00 ff                       lea     di,-100H[bp]
  362.  0380  16                                push    ss
  363.  0381  57                                push    di
  364.  0382  8a 46 08                          mov     al,+8H[bp]
  365.  0385  30 e4                             xor     ah,ah
  366.  0387  40                                inc     ax
  367.  0388  50                                push    ax
  368.  0389  b8 ff 00                          mov     ax,00ffH
  369.  038c  50                                push    ax
  370.  038d  9a 00 00 00 00                    call    far SYSTEM_015
  371.  0392  8a 86 00 ff                       mov     al,-100H[bp]
  372.  0396  30 e4                             xor     ah,ah
  373.  0398  8b d0                             mov     dx,ax
  374.  039a  8a 46 08                          mov     al,+8H[bp]
  375.  039d  30 e4                             xor     ah,ah
  376.  039f  2b c2                             sub     ax,dx
  377.  03a1  99                                cwd     
  378.  03a2  b9 02 00                          mov     cx,0002H
  379.  03a5  f7 f9                             idiv    cx
  380.  03a7  d1 e0                             shl     ax,1
  381.  03a9  40                                inc     ax
  382.  03aa  88 86 ff fe                       mov     -101H[bp],al
  383.  03ae  8a 86 00 ff                       mov     al,-100H[bp]
  384.  03b2  88 86 52 fe                       mov     -1aeH[bp],al
  385.  03b6  b0 01                             mov     al,01H
  386.  03b8  3a 86 52 fe                       cmp     al,-1aeH[bp]
  387.  03bc  77 38                             ja      L29
  388.  03be  88 86 fe fe                       mov     -102H[bp],al
  389.  03c2  eb 04                             jmp     L28
  390.  03c4  fe 86 fe fe       L27             inc     byte ptr -102H[bp]
  391.  03c8  8a 86 fe fe       L28             mov     al,-102H[bp]
  392.  03cc  30 e4                             xor     ah,ah
  393.  03ce  8b f8                             mov     di,ax
  394.  03d0  8a 8b 00 ff                       mov     cl,-100H[bp+di]
  395.  03d4  8a 86 fe fe                       mov     al,-102H[bp]
  396.  03d8  30 e4                             xor     ah,ah
  397.  03da  d1 e0                             shl     ax,1
  398.  03dc  8b d0                             mov     dx,ax
  399.  03de  8a 86 ff fe                       mov     al,-101H[bp]
  400.  03e2  30 e4                             xor     ah,ah
  401.  03e4  03 c2                             add     ax,dx
  402.  03e6  8b f8                             mov     di,ax
  403.  03e8  88 8b 52 fe                       mov     -1aeH[bp+di],cl
  404.  03ec  8a 86 fe fe                       mov     al,-102H[bp]
  405.  03f0  3a 86 52 fe                       cmp     al,-1aeH[bp]
  406.  03f4  75 ce                             jne     L27
  407.  03f6  8a 46 0c          L29             mov     al,+0cH[bp]
  408.  03f9  30 e4                             xor     ah,ah
  409.  03fb  d1 e0                             shl     ax,1
  410.  03fd  8b d8                             mov     bx,ax
  411.  03ff  8a 46 0a                          mov     al,+0aH[bp]
  412.  0402  30 e4                             xor     ah,ah
  413.  0404  b9 a0 00                          mov     cx,00a0H
  414.  0407  f7 e9                             imul    cx
  415.  0409  03 c3                             add     ax,bx
  416.  040b  2d a2 00                          sub     ax,00a2H
  417.  040e  89 86 fc fe                       mov     -104H[bp],ax
  418.  0412  8d be 53 fe                       lea     di,-1adH[bp]
  419.  0416  16                                push    ss
  420.  0417  57                                push    di
  421.  0418  0e                                push    cs
  422.  0419  e8 00 00                          call    LIBRARY1_007
  423.  041c  8b d0                             mov     dx,ax
  424.  041e  8b 86 fc fe                       mov     ax,-104H[bp]
  425.  0422  89 c7                             mov     di,ax
  426.  0424  8e c2                             mov     es,dx
  427.  0426  06                                push    es
  428.  0427  57                                push    di
  429.  0428  8a 46 08                          mov     al,+8H[bp]
  430.  042b  30 e4                             xor     ah,ah
  431.  042d  d1 e0                             shl     ax,1
  432.  042f  05 04 00                          add     ax,0004H
  433.  0432  50                                push    ax
  434.  0433  9a 00 00 00 00                    call    far SYSTEM_060
  435.  0438  8a 86 f7 fe                       mov     al,-109H[bp]
  436.  043c  88 86 53 fe                       mov     -1adH[bp],al
  437.  0440  8a 46 06                          mov     al,+6H[bp]
  438.  0443  30 e4                             xor     ah,ah
  439.  0445  8b d0                             mov     dx,ax
  440.  0447  8a 46 0a                          mov     al,+0aH[bp]
  441.  044a  30 e4                             xor     ah,ah
  442.  044c  03 c2                             add     ax,dx
  443.  044e  88 86 52 fe                       mov     -1aeH[bp],al
  444.  0452  8a 46 0a                          mov     al,+0aH[bp]
  445.  0455  30 e4                             xor     ah,ah
  446.  0457  40                                inc     ax
  447.  0458  3a 86 52 fe                       cmp     al,-1aeH[bp]
  448.  045c  77 67                             ja      L32
  449.  045e  88 86 fe fe                       mov     -102H[bp],al
  450.  0462  eb 04                             jmp     L31
  451.  0464  fe 86 fe fe       L30             inc     byte ptr -102H[bp]
  452.  0468  8b 86 fc fe       L31             mov     ax,-104H[bp]
  453.  046c  05 a0 00                          add     ax,00a0H
  454.  046f  89 86 fc fe                       mov     -104H[bp],ax
  455.  0473  8d be 53 fe                       lea     di,-1adH[bp]
  456.  0477  16                                push    ss
  457.  0478  57                                push    di
  458.  0479  0e                                push    cs
  459.  047a  e8 00 00                          call    LIBRARY1_007
  460.  047d  8b d0                             mov     dx,ax
  461.  047f  8b 86 fc fe                       mov     ax,-104H[bp]
  462.  0483  89 c7                             mov     di,ax
  463.  0485  8e c2                             mov     es,dx
  464.  0487  06                                push    es
  465.  0488  57                                push    di
  466.  0489  b8 02 00                          mov     ax,0002H
  467.  048c  50                                push    ax
  468.  048d  9a 00 00 00 00                    call    far SYSTEM_060
  469.  0492  8d be 53 fe                       lea     di,-1adH[bp]
  470.  0496  16                                push    ss
  471.  0497  57                                push    di
  472.  0498  0e                                push    cs
  473.  0499  e8 00 00                          call    LIBRARY1_007
  474.  049c  8b d0                             mov     dx,ax
  475.  049e  8a 46 08                          mov     al,+8H[bp]
  476.  04a1  30 e4                             xor     ah,ah
  477.  04a3  d1 e0                             shl     ax,1
  478.  04a5  03 86 fc fe                       add     ax,-104H[bp]
  479.  04a9  05 02 00                          add     ax,0002H
  480.  04ac  89 c7                             mov     di,ax
  481.  04ae  8e c2                             mov     es,dx
  482.  04b0  06                                push    es
  483.  04b1  57                                push    di
  484.  04b2  b8 02 00                          mov     ax,0002H
  485.  04b5  50                                push    ax
  486.  04b6  9a 00 00 00 00                    call    far SYSTEM_060
  487.  04bb  8a 86 fe fe                       mov     al,-102H[bp]
  488.  04bf  3a 86 52 fe                       cmp     al,-1aeH[bp]
  489.  04c3  75 9f                             jne     L30
  490.  04c5  8a 46 08          L32             mov     al,+8H[bp]
  491.  04c8  30 e4                             xor     ah,ah
  492.  04ca  05 02 00                          add     ax,0002H
  493.  04cd  88 86 52 fe                       mov     -1aeH[bp],al
  494.  04d1  b0 01                             mov     al,01H
  495.  04d3  3a 86 52 fe                       cmp     al,-1aeH[bp]
  496.  04d7  77 42                             ja      L35
  497.  04d9  88 86 fe fe                       mov     -102H[bp],al
  498.  04dd  eb 04                             jmp     L34
  499.  04df  fe 86 fe fe       L33             inc     byte ptr -102H[bp]
  500.  04e3  8a 86 fe fe       L34             mov     al,-102H[bp]
  501.  04e7  30 e4                             xor     ah,ah
  502.  04e9  d1 e0                             shl     ax,1
  503.  04eb  88 86 ff fe                       mov     -101H[bp],al
  504.  04ef  8a 96 fb fe                       mov     dl,-105H[bp]
  505.  04f3  8a 86 ff fe                       mov     al,-101H[bp]
  506.  04f7  fe c8                             dec     al
  507.  04f9  30 e4                             xor     ah,ah
  508.  04fb  8b f8                             mov     di,ax
  509.  04fd  88 93 52 fe                       mov     -1aeH[bp+di],dl
  510.  0501  8a 96 fa fe                       mov     dl,-106H[bp]
  511.  0505  8a 86 ff fe                       mov     al,-101H[bp]
  512.  0509  30 e4                             xor     ah,ah
  513.  050b  8b f8                             mov     di,ax
  514.  050d  88 93 52 fe                       mov     -1aeH[bp+di],dl
  515.  0511  8a 86 fe fe                       mov     al,-102H[bp]
  516.  0515  3a 86 52 fe                       cmp     al,-1aeH[bp]
  517.  0519  75 c4                             jne     L33
  518.  051b  8a 86 f8 fe       L35             mov     al,-108H[bp]
  519.  051f  88 86 53 fe                       mov     -1adH[bp],al
  520.  0523  8a 96 f9 fe                       mov     dl,-107H[bp]
  521.  0527  8a 86 ff fe                       mov     al,-101H[bp]
  522.  052b  30 e4                             xor     ah,ah
  523.  052d  48                                dec     ax
  524.  052e  8b f8                             mov     di,ax
  525.  0530  88 93 52 fe                       mov     -1aeH[bp+di],dl
  526.  0534  8b 86 fc fe                       mov     ax,-104H[bp]
  527.  0538  05 a0 00                          add     ax,00a0H
  528.  053b  89 86 fc fe                       mov     -104H[bp],ax
  529.  053f  8d be 53 fe                       lea     di,-1adH[bp]
  530.  0543  16                                push    ss
  531.  0544  57                                push    di
  532.  0545  0e                                push    cs
  533.  0546  e8 00 00                          call    LIBRARY1_007
  534.  0549  8b d0                             mov     dx,ax
  535.  054b  8b 86 fc fe                       mov     ax,-104H[bp]
  536.  054f  89 c7                             mov     di,ax
  537.  0551  8e c2                             mov     es,dx
  538.  0553  06                                push    es
  539.  0554  57                                push    di
  540.  0555  8a 46 08                          mov     al,+8H[bp]
  541.  0558  30 e4                             xor     ah,ah
  542.  055a  d1 e0                             shl     ax,1
  543.  055c  05 04 00                          add     ax,0004H
  544.  055f  50                                push    ax
  545.  0560  9a 00 00 00 00                    call    far SYSTEM_060
  546.  0565  8a 46 0c                          mov     al,+0cH[bp]
  547.  0568  30 e4                             xor     ah,ah
  548.  056a  40                                inc     ax
  549.  056b  50                                push    ax
  550.  056c  8a 46 0a                          mov     al,+0aH[bp]
  551.  056f  30 e4                             xor     ah,ah
  552.  0571  40                                inc     ax
  553.  0572  50                                push    ax
  554.  0573  8a 46 08                          mov     al,+8H[bp]
  555.  0576  30 e4                             xor     ah,ah
  556.  0578  8b d0                             mov     dx,ax
  557.  057a  8a 46 0c                          mov     al,+0cH[bp]
  558.  057d  30 e4                             xor     ah,ah
  559.  057f  03 c2                             add     ax,dx
  560.  0581  50                                push    ax
  561.  0582  8a 46 06                          mov     al,+6H[bp]
  562.  0585  30 e4                             xor     ah,ah
  563.  0587  8b d0                             mov     dx,ax
  564.  0589  8a 46 0a                          mov     al,+0aH[bp]
  565.  058c  30 e4                             xor     ah,ah
  566.  058e  03 c2                             add     ax,dx
  567.  0590  50                                push    ax
  568.  0591  9a 00 00 00 00                    call    far CRT_005
  569.  0596  8a 46 0e                          mov     al,+0eH[bp]
  570.  0599  a2 00 00                          mov     CRT_BSS+6H,al
  571.  059c  80 7e 12 01                       cmp     byte ptr +12H[bp],01H
  572.  05a0  75 05                             jne     L36
  573.  05a2  9a 00 00 00 00                    call    far CRT_009
  574.  05a7  89 ec             L36             mov     sp,bp
  575.  05a9  5d                                pop     bp
  576.  05aa  ca 12 00                          retf    0012H
  577.  05ad                    READNFKEY:
  578.  05ad  55                LIBRARY1_009    push    bp
  579.  05ae  89 e5                             mov     bp,sp
  580.  05b0  b8 02 00                          mov     ax,0002H
  581.  05b3  9a 00 00 00 00                    call    far SYSTEM_034
  582.  05b8  83 ec 02                          sub     sp,0002H
  583.  05bb  9a 00 00 00 00                    call    far CRT_003
  584.  05c0  88 46 fe                          mov     -2H[bp],al
  585.  05c3  8a 46 fe                          mov     al,-2H[bp]
  586.  05c6  88 46 ff                          mov     -1H[bp],al
  587.  05c9  80 7e fe 00                       cmp     byte ptr -2H[bp],00H
  588.  05cd  75 08                             jne     L37
  589.  05cf  9a 00 00 00 00                    call    far CRT_003
  590.  05d4  88 46 fe                          mov     -2H[bp],al
  591.  05d7  8a 46 ff          L37             mov     al,-1H[bp]
  592.  05da  89 ec                             mov     sp,bp
  593.  05dc  5d                                pop     bp
  594.  05dd  cb                                retf    
  595.  05de  13 41 6e          L38             adc     ax,+6eH[bx+di]
  596.  05e1  79 20                             jns     L39
  597.  05e3  6b 65 79 20                       imul    sp,+79H[di],20H
  598.  05e7  74 6f                             je      L41
  599.  05e9  20 72 65                          and     +65H[bp+si],dh
  600.  05ec  74 75                             je      L43
  601.  05ee  72 6e                             jb      L42
  602.  05f0  2e 2e                             seg     
  603.  05f2                    ANYKEY:
  604.  05f2  55                LIBRARY1_00A    push    bp
  605.  05f3  89 e5                             mov     bp,sp
  606.  05f5  b8 01 00                          mov     ax,0001H
  607.  05f8  9a 00 00 00 00                    call    far SYSTEM_034
  608.  05fd  83 ec 01                          sub     sp,0001H
  609.  0600  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  610.  0603  1e                L39             push    ds
  611.  0604  57                                push    di
  612.  0605  bf 00 00                          mov     di,offset L38
  613.  0608  0e                                push    cs
  614.  0609  57                                push    di
  615.  060a  31 c0                             xor     ax,ax
  616.  060c  50                                push    ax
  617.  060d  9a 00 00 00 00                    call    far SYSTEM_036
  618.  0612  9a 00 00 00 00                    call    far SYSTEM_03B
  619.  0617  9a 00 00 00 00                    call    far SYSTEM_032
  620.  061c  0e                                push    cs
  621.  061d  e8 00 00                          call    LIBRARY1_009
  622.  0620  88 46 ff                          mov     -1H[bp],al
  623.  0623  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  624.  0626  1e                                push    ds
  625.  0627  57                                push    di
  626.  0628  b0 0d                             mov     al,0dH
  627.  062a  50                                push    ax
  628.  062b  31 c0                             xor     ax,ax
  629.  062d  50                                push    ax
  630.  062e  9a 00 00 00 00                    call    far SYSTEM_039
  631.  0633  9a 00 00 00 00                    call    far SYSTEM_03B
  632.  0638  9a 00 00 00 00                    call    far SYSTEM_032
  633.  063d  9a 00 00 00 00                    call    far CRT_00A
  634.  0642  89 ec                             mov     sp,bp
  635.  0644  5d                                pop     bp
  636.  0645  cb                                retf    
  637.  0646  01 20             L40             add     [bx+si],sp
  638.  0648  55                LIBRARY1_00F    push    bp
  639.  0649  89 e5                             mov     bp,sp
  640.  064b  b8 02 02                          mov     ax,0202H
  641.  064e  9a 00 00 00 00                    call    far SYSTEM_034
  642.  0653  81 ec 02 02                       sub     sp,0202H
  643.  0657  8b 7e 04                          mov     di,+4H[bp]
  644.  065a  36 c4 7d 08                       les     di,dword ptr ss:+8H[di]
  645.  065e  06                L42             push    es
  646.  065f  57                                push    di
  647.  0660  8d be ff fe                       lea     di,-101H[bp]
  648.  0664  16                                push    ss
  649.  0665  57                                push    di
  650.  0666  b8 ff 00                          mov     ax,00ffH
  651.  0669  50                                push    ax
  652.  066a  9a 00 00 00 00                    call    far SYSTEM_00C
  653.  066f  8b 7e 04                          mov     di,+4H[bp]
  654.  0672  36 8a 45 06                       mov     al,ss:+6H[di]
  655.  0676  88 86 fe fe                       mov     -102H[bp],al
  656.  067a  8a 86 ff fe                       mov     al,-101H[bp]
  657.  067e  30 e4                             xor     ah,ah
  658.  0680  40                                inc     ax
  659.  0681  3a 86 fe fe                       cmp     al,-102H[bp]
  660.  0685  77 3b                             ja      L46
  661.  0687  88 46 ff                          mov     -1H[bp],al
  662.  068a  eb 03                             jmp     L45
  663.  068c  fe 46 ff          L44             inc     byte ptr -1H[bp]
  664.  068f  8d be fe fd       L45             lea     di,-202H[bp]
  665.  0693  16                                push    ss
  666.  0694  57                                push    di
  667.  0695  8d be ff fe                       lea     di,-101H[bp]
  668.  0699  16                                push    ss
  669.  069a  57                                push    di
  670.  069b  9a 00 00 00 00                    call    far SYSTEM_00B
  671.  06a0  bf 00 00                          mov     di,offset L40
  672.  06a3  0e                                push    cs
  673.  06a4  57                                push    di
  674.  06a5  9a 00 00 00 00                    call    far SYSTEM_00F
  675.  06aa  8d be ff fe                       lea     di,-101H[bp]
  676.  06ae  16                                push    ss
  677.  06af  57                                push    di
  678.  06b0  b8 ff 00                          mov     ax,00ffH
  679.  06b3  50                                push    ax
  680.  06b4  9a 00 00 00 00                    call    far SYSTEM_00C
  681.  06b9  8a 46 ff                          mov     al,-1H[bp]
  682.  06bc  3a 86 fe fe                       cmp     al,-102H[bp]
  683.  06c0  75 ca                             jne     L44
  684.  06c2  8b 7e 04          L46             mov     di,+4H[bp]
  685.  06c5  36 8a 45 fb                       mov     al,ss:-5H[di]
  686.  06c9  50                                push    ax
  687.  06ca  8b 7e 04                          mov     di,+4H[bp]
  688.  06cd  36 8a 45 fc                       mov     al,ss:-4H[di]
  689.  06d1  50                                push    ax
  690.  06d2  9a 00 00 00 00                    call    far CRT_006
  691.  06d7  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  692.  06da  1e                                push    ds
  693.  06db  57                                push    di
  694.  06dc  8d be ff fe                       lea     di,-101H[bp]
  695.  06e0  16                                push    ss
  696.  06e1  57                                push    di
  697.  06e2  31 c0                             xor     ax,ax
  698.  06e4  50                                push    ax
  699.  06e5  9a 00 00 00 00                    call    far SYSTEM_036
  700.  06ea  9a 00 00 00 00                    call    far SYSTEM_03B
  701.  06ef  9a 00 00 00 00                    call    far SYSTEM_032
  702.  06f4  89 ec                             mov     sp,bp
  703.  06f6  5d                                pop     bp
  704.  06f7  c2 02 00                          ret     0002H
  705.  06fa                    GET_STRING:
  706.  06fa  55                LIBRARY1_00B    push    bp
  707.  06fb  89 e5                             mov     bp,sp
  708.  06fd  b8 08 02                          mov     ax,0208H
  709.  0700  9a 00 00 00 00                    call    far SYSTEM_034
  710.  0705  81 ec 08 02                       sub     sp,0208H
  711.  0709  c4 7e 08                          les     di,dword ptr +8H[bp]
  712.  070c  06                                push    es
  713.  070d  57                                push    di
  714.  070e  8d be f8 fe                       lea     di,-108H[bp]
  715.  0712  16                                push    ss
  716.  0713  57                                push    di
  717.  0714  b8 ff 00                          mov     ax,00ffH
  718.  0717  50                                push    ax
  719.  0718  9a 00 00 00 00                    call    far SYSTEM_00C
  720.  071d  c6 46 f8 01                       mov     byte ptr -8H[bp],01H
  721.  0721  9a 00 00 00 00                    call    far CRT_007
  722.  0726  88 46 fb                          mov     -5H[bp],al
  723.  0729  9a 00 00 00 00                    call    far CRT_008
  724.  072e  88 46 fc                          mov     -4H[bp],al
  725.  0731  c4 7e 08                          les     di,dword ptr +8H[bp]
  726.  0734  26 8a 05                          mov     al,es:[di]
  727.  0737  88 46 fa                          mov     -6H[bp],al
  728.  073a  8a 46 fa                          mov     al,-6H[bp]
  729.  073d  30 e4                             xor     ah,ah
  730.  073f  40                                inc     ax
  731.  0740  88 46 f9                          mov     -7H[bp],al
  732.  0743  c6 46 fd 01                       mov     byte ptr -3H[bp],01H
  733.  0747  c4 7e 08          L47             les     di,dword ptr +8H[bp]
  734.  074a  26 8a 05                          mov     al,es:[di]
  735.  074d  88 46 fa                          mov     -6H[bp],al
  736.  0750  80 7e f9 01                       cmp     byte ptr -7H[bp],01H
  737.  0754  73 06                             jae     L48
  738.  0756  c6 46 f9 01                       mov     byte ptr -7H[bp],01H
  739.  075a  eb 11                             jmp     L49
  740.  075c  8a 46 f9          L48             mov     al,-7H[bp]
  741.  075f  3a 46 fa                          cmp     al,-6H[bp]
  742.  0762  76 09                             jbe     L49
  743.  0764  8a 46 fa                          mov     al,-6H[bp]
  744.  0767  30 e4                             xor     ah,ah
  745.  0769  40                                inc     ax
  746.  076a  88 46 f9                          mov     -7H[bp],al
  747.  076d  8a 46 f9          L49             mov     al,-7H[bp]
  748.  0770  3a 46 06                          cmp     al,+6H[bp]
  749.  0773  76 06                             jbe     L50
  750.  0775  8a 46 06                          mov     al,+6H[bp]
  751.  0778  88 46 f9                          mov     -7H[bp],al
  752.  077b  80 7e fd 00       L50             cmp     byte ptr -3H[bp],00H
  753.  077f  74 04                             je      L51
  754.  0781  55                                push    bp
  755.  0782  e8 00 00                          call    LIBRARY1_00F
  756.  0785  8a 46 f9          L51             mov     al,-7H[bp]
  757.  0788  30 e4                             xor     ah,ah
  758.  078a  8b d0                             mov     dx,ax
  759.  078c  8a 46 fb                          mov     al,-5H[bp]
  760.  078f  30 e4                             xor     ah,ah
  761.  0791  03 c2                             add     ax,dx
  762.  0793  48                                dec     ax
  763.  0794  50                                push    ax
  764.  0795  8a 46 fc                          mov     al,-4H[bp]
  765.  0798  50                                push    ax
  766.  0799  9a 00 00 00 00                    call    far CRT_006
  767.  079e  9a 00 00 00 00                    call    far CRT_003
  768.  07a3  88 46 fe                          mov     -2H[bp],al
  769.  07a6  c6 46 fd 00                       mov     byte ptr -3H[bp],00H
  770.  07aa  80 7e fe 00                       cmp     byte ptr -2H[bp],00H
  771.  07ae  74 03                             je      L52
  772.  07b0  e9 87 00                          jmp     L62
  773.  07b3  9a 00 00 00 00    L52             call    far CRT_003
  774.  07b8  88 46 fe                          mov     -2H[bp],al
  775.  07bb  8a 46 fe                          mov     al,-2H[bp]
  776.  07be  3c 47                             cmp     al,47H
  777.  07c0  75 06                             jne     L53
  778.  07c2  c6 46 f9 01                       mov     byte ptr -7H[bp],01H
  779.  07c6  eb 6b                             jmp     L61
  780.  07c8  3c 4b             L53             cmp     al,4bH
  781.  07ca  75 05                             jne     L54
  782.  07cc  fe 4e f9                          dec     byte ptr -7H[bp]
  783.  07cf  eb 62                             jmp     L61
  784.  07d1  3c 4d             L54             cmp     al,4dH
  785.  07d3  75 05                             jne     L55
  786.  07d5  fe 46 f9                          inc     byte ptr -7H[bp]
  787.  07d8  eb 59                             jmp     L61
  788.  07da  3c 4f             L55             cmp     al,4fH
  789.  07dc  75 0b                             jne     L56
  790.  07de  8a 46 fa                          mov     al,-6H[bp]
  791.  07e1  30 e4                             xor     ah,ah
  792.  07e3  40                                inc     ax
  793.  07e4  88 46 f9                          mov     -7H[bp],al
  794.  07e7  eb 4a                             jmp     L61
  795.  07e9  3c 53             L56             cmp     al,53H
  796.  07eb  75 1a                             jne     L57
  797.  07ed  c6 46 fd 01                       mov     byte ptr -3H[bp],01H
  798.  07f1  c4 7e 08                          les     di,dword ptr +8H[bp]
  799.  07f4  06                                push    es
  800.  07f5  57                                push    di
  801.  07f6  8a 46 f9                          mov     al,-7H[bp]
  802.  07f9  30 e4                             xor     ah,ah
  803.  07fb  50                                push    ax
  804.  07fc  b8 01 00                          mov     ax,0001H
  805.  07ff  50                                push    ax
  806.  0800  9a 00 00 00 00                    call    far SYSTEM_015
  807.  0805  eb 2c                             jmp     L61
  808.  0807  3c 73             L57             cmp     al,73H
  809.  0809  75 19                             jne     L60
  810.  080b  80 7e f9 0a                       cmp     byte ptr -7H[bp],0aH
  811.  080f  76 0d                             jbe     L58
  812.  0811  8a 46 f9                          mov     al,-7H[bp]
  813.  0814  30 e4                             xor     ah,ah
  814.  0816  2d 0a 00                          sub     ax,000aH
  815.  0819  88 46 f9                          mov     -7H[bp],al
  816.  081c  eb 04                             jmp     L59
  817.  081e  c6 46 f9 01       L58             mov     byte ptr -7H[bp],01H
  818.  0822  eb 0f             L59             jmp     L61
  819.  0824  3c 74             L60             cmp     al,74H
  820.  0826  75 0b                             jne     L61
  821.  0828  8a 46 f9                          mov     al,-7H[bp]
  822.  082b  30 e4                             xor     ah,ah
  823.  082d  05 0a 00                          add     ax,000aH
  824.  0830  88 46 f9                          mov     -7H[bp],al
  825.  0833  c6 46 fe 00       L61             mov     byte ptr -2H[bp],00H
  826.  0837  e9 74 01                          jmp     L75
  827.  083a  80 7e fe 1f       L62             cmp     byte ptr -2H[bp],1fH
  828.  083e  76 5e                             jbe     L65
  829.  0840  c6 46 fd 01                       mov     byte ptr -3H[bp],01H
  830.  0844  80 7e f8 01                       cmp     byte ptr -8H[bp],01H
  831.  0848  75 23                             jne     L63
  832.  084a  8d be f8 fd                       lea     di,-208H[bp]
  833.  084e  16                                push    ss
  834.  084f  57                                push    di
  835.  0850  8a 46 fe                          mov     al,-2H[bp]
  836.  0853  50                                push    ax
  837.  0854  9a 00 00 00 00                    call    far SYSTEM_012
  838.  0859  c4 7e 08                          les     di,dword ptr +8H[bp]
  839.  085c  06                                push    es
  840.  085d  57                                push    di
  841.  085e  b8 ff 00                          mov     ax,00ffH
  842.  0861  50                                push    ax
  843.  0862  9a 00 00 00 00                    call    far SYSTEM_00C
  844.  0867  c6 46 f9 02                       mov     byte ptr -7H[bp],02H
  845.  086b  eb 2e                             jmp     L64
  846.  086d  8a 46 fa          L63             mov     al,-6H[bp]
  847.  0870  3a 46 06                          cmp     al,+6H[bp]
  848.  0873  73 26                             jae     L64
  849.  0875  8d be f8 fd                       lea     di,-208H[bp]
  850.  0879  16                                push    ss
  851.  087a  57                                push    di
  852.  087b  8a 46 fe                          mov     al,-2H[bp]
  853.  087e  50                                push    ax
  854.  087f  9a 00 00 00 00                    call    far SYSTEM_012
  855.  0884  c4 7e 08                          les     di,dword ptr +8H[bp]
  856.  0887  06                                push    es
  857.  0888  57                                push    di
  858.  0889  b8 ff 00                          mov     ax,00ffH
  859.  088c  50                                push    ax
  860.  088d  8a 46 f9                          mov     al,-7H[bp]
  861.  0890  30 e4                             xor     ah,ah
  862.  0892  50                                push    ax
  863.  0893  9a 00 00 00 00                    call    far SYSTEM_014
  864.  0898  fe 46 f9                          inc     byte ptr -7H[bp]
  865.  089b  e9 10 01          L64             jmp     L75
  866.  089e  c6 46 fd 01       L65             mov     byte ptr -3H[bp],01H
  867.  08a2  8a 46 fe                          mov     al,-2H[bp]
  868.  08a5  3c 07                             cmp     al,07H
  869.  08a7  75 17                             jne     L66
  870.  08a9  c4 7e 08                          les     di,dword ptr +8H[bp]
  871.  08ac  06                                push    es
  872.  08ad  57                                push    di
  873.  08ae  8a 46 f9                          mov     al,-7H[bp]
  874.  08b1  30 e4                             xor     ah,ah
  875.  08b3  50                                push    ax
  876.  08b4  b8 01 00                          mov     ax,0001H
  877.  08b7  50                                push    ax
  878.  08b8  9a 00 00 00 00                    call    far SYSTEM_015
  879.  08bd  e9 ee 00                          jmp     L75
  880.  08c0  3c 08             L66             cmp     al,08H
  881.  08c2  75 1a                             jne     L67
  882.  08c4  fe 4e f9                          dec     byte ptr -7H[bp]
  883.  08c7  c4 7e 08                          les     di,dword ptr +8H[bp]
  884.  08ca  06                                push    es
  885.  08cb  57                                push    di
  886.  08cc  8a 46 f9                          mov     al,-7H[bp]
  887.  08cf  30 e4                             xor     ah,ah
  888.  08d1  50                                push    ax
  889.  08d2  b8 01 00                          mov     ax,0001H
  890.  08d5  50                                push    ax
  891.  08d6  9a 00 00 00 00                    call    far SYSTEM_015
  892.  08db  e9 d0 00                          jmp     L75
  893.  08de  3c 11             L67             cmp     al,11H
  894.  08e0  74 03                             je      L68
  895.  08e2  e9 86 00                          jmp     L71
  896.  08e5  9a 00 00 00 00    L68             call    far CRT_003
  897.  08ea  50                                push    ax
  898.  08eb  9a 00 00 00 00                    call    far SYSTEM_05A
  899.  08f0  88 46 fe                          mov     -2H[bp],al
  900.  08f3  8a 46 fe                          mov     al,-2H[bp]
  901.  08f6  50                                push    ax
  902.  08f7  8d be d8 fe                       lea     di,-128H[bp]
  903.  08fb  16                                push    ss
  904.  08fc  57                                push    di
  905.  08fd  9a 00 00 00 00                    call    far SYSTEM_028
  906.  0902  b0 19                             mov     al,19H
  907.  0904  50                                push    ax
  908.  0905  9a 00 00 00 00                    call    far SYSTEM_029
  909.  090a  b0 59                             mov     al,59H
  910.  090c  50                                push    ax
  911.  090d  9a 00 00 00 00                    call    far SYSTEM_029
  912.  0912  9a 00 00 00 00                    call    far SYSTEM_018
  913.  0917  74 16                             je      L69
  914.  0919  c4 7e 08                          les     di,dword ptr +8H[bp]
  915.  091c  06                                push    es
  916.  091d  57                                push    di
  917.  091e  8a 46 f9                          mov     al,-7H[bp]
  918.  0921  30 e4                             xor     ah,ah
  919.  0923  50                                push    ax
  920.  0924  b8 ff 00                          mov     ax,00ffH
  921.  0927  50                                push    ax
  922.  0928  9a 00 00 00 00                    call    far SYSTEM_015
  923.  092d  eb 3a                             jmp     L70
  924.  092f  8a 46 fe          L69             mov     al,-2H[bp]
  925.  0932  50                                push    ax
  926.  0933  8d be b8 fe                       lea     di,-148H[bp]
  927.  0937  16                                push    ss
  928.  0938  57                                push    di
  929.  0939  9a 00 00 00 00                    call    far SYSTEM_028
  930.  093e  b0 0c                             mov     al,0cH
  931.  0940  50                                push    ax
  932.  0941  9a 00 00 00 00                    call    far SYSTEM_029
  933.  0946  b0 4c                             mov     al,4cH
  934.  0948  50                                push    ax
  935.  0949  9a 00 00 00 00                    call    far SYSTEM_029
  936.  094e  9a 00 00 00 00                    call    far SYSTEM_018
  937.  0953  74 14                             je      L70
  938.  0955  8d be f8 fe                       lea     di,-108H[bp]
  939.  0959  16                                push    ss
  940.  095a  57                                push    di
  941.  095b  c4 7e 08                          les     di,dword ptr +8H[bp]
  942.  095e  06                                push    es
  943.  095f  57                                push    di
  944.  0960  b8 ff 00                          mov     ax,00ffH
  945.  0963  50                                push    ax
  946.  0964  9a 00 00 00 00                    call    far SYSTEM_00C
  947.  0969  eb 43             L70             jmp     L75
  948.  096b  3c 14             L71             cmp     al,14H
  949.  096d  75 16                             jne     L72
  950.  096f  c4 7e 08                          les     di,dword ptr +8H[bp]
  951.  0972  06                                push    es
  952.  0973  57                                push    di
  953.  0974  8a 46 f9                          mov     al,-7H[bp]
  954.  0977  30 e4                             xor     ah,ah
  955.  0979  50                                push    ax
  956.  097a  b8 0a 00                          mov     ax,000aH
  957.  097d  50                                push    ax
  958.  097e  9a 00 00 00 00                    call    far SYSTEM_015
  959.  0983  eb 29                             jmp     L75
  960.  0985  3c 19             L72             cmp     al,19H
  961.  0987  75 09                             jne     L73
  962.  0989  c4 7e 08                          les     di,dword ptr +8H[bp]
  963.  098c  26 c6 05 00                       mov     byte ptr es:[di],00H
  964.  0990  eb 1c                             jmp     L75
  965.  0992  3c 15             L73             cmp     al,15H
  966.  0994  74 04                             je      L74
  967.  0996  3c 1b                             cmp     al,1bH
  968.  0998  75 14                             jne     L75
  969.  099a  8d be f8 fe       L74             lea     di,-108H[bp]
  970.  099e  16                                push    ss
  971.  099f  57                                push    di
  972.  09a0  c4 7e 08                          les     di,dword ptr +8H[bp]
  973.  09a3  06                                push    es
  974.  09a4  57                                push    di
  975.  09a5  b8 ff 00                          mov     ax,00ffH
  976.  09a8  50                                push    ax
  977.  09a9  9a 00 00 00 00                    call    far SYSTEM_00C
  978.  09ae  c6 46 f8 00       L75             mov     byte ptr -8H[bp],00H
  979.  09b2  8a 46 fe                          mov     al,-2H[bp]
  980.  09b5  50                                push    ax
  981.  09b6  8d be d8 fe                       lea     di,-128H[bp]
  982.  09ba  16                                push    ss
  983.  09bb  57                                push    di
  984.  09bc  9a 00 00 00 00                    call    far SYSTEM_028
  985.  09c1  b0 1b                             mov     al,1bH
  986.  09c3  50                                push    ax
  987.  09c4  9a 00 00 00 00                    call    far SYSTEM_029
  988.  09c9  b0 0d                             mov     al,0dH
  989.  09cb  50                                push    ax
  990.  09cc  9a 00 00 00 00                    call    far SYSTEM_029
  991.  09d1  9a 00 00 00 00                    call    far SYSTEM_018
  992.  09d6  75 03                             jne     L76
  993.  09d8  e9 6c fd                          jmp     L47
  994.  09db  55                L76             push    bp
  995.  09dc  e8 00 00                          call    LIBRARY1_00F
  996.  09df  80 7e fe 1b                       cmp     byte ptr -2H[bp],1bH
  997.  09e3  75 06                             jne     L77
  998.  09e5  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  999.  09e9  eb 04                             jmp     L78
  1000.  09eb  c6 46 ff 01       L77             mov     byte ptr -1H[bp],01H
  1001.  09ef  8a 46 ff          L78             mov     al,-1H[bp]
  1002.  09f2  89 ec                             mov     sp,bp
  1003.  09f4  5d                                pop     bp
  1004.  09f5  ca 06 00                          retf    0006H
  1005.  09f8                    GET_INTEGER:
  1006.  09f8  55                LIBRARY1_00C    push    bp
  1007.  09f9  89 e5                             mov     bp,sp
  1008.  09fb  b8 05 01                          mov     ax,0105H
  1009.  09fe  9a 00 00 00 00                    call    far SYSTEM_034
  1010.  0a03  81 ec 05 01                       sub     sp,0105H
  1011.  0a07  9a 00 00 00 00                    call    far CRT_007
  1012.  0a0c  88 46 fd                          mov     -3H[bp],al
  1013.  0a0f  9a 00 00 00 00                    call    far CRT_008
  1014.  0a14  88 46 fe                          mov     -2H[bp],al
  1015.  0a17  c4 7e 08          L79             les     di,dword ptr +8H[bp]
  1016.  0a1a  26 8b 05                          mov     ax,es:[di]
  1017.  0a1d  99                                cwd     
  1018.  0a1e  52                                push    dx
  1019.  0a1f  50                                push    ax
  1020.  0a20  31 c0                             xor     ax,ax
  1021.  0a22  50                                push    ax
  1022.  0a23  8d be fd fe                       lea     di,-103H[bp]
  1023.  0a27  16                                push    ss
  1024.  0a28  57                                push    di
  1025.  0a29  b8 ff 00                          mov     ax,00ffH
  1026.  0a2c  50                                push    ax
  1027.  0a2d  9a 00 00 00 00                    call    far SYSTEM_061
  1028.  0a32  8a 46 fd                          mov     al,-3H[bp]
  1029.  0a35  50                                push    ax
  1030.  0a36  8a 46 fe                          mov     al,-2H[bp]
  1031.  0a39  50                                push    ax
  1032.  0a3a  9a 00 00 00 00                    call    far CRT_006
  1033.  0a3f  31 c0                             xor     ax,ax
  1034.  0a41  89 86 fb fe                       mov     -105H[bp],ax
  1035.  0a45  8d be fd fe                       lea     di,-103H[bp]
  1036.  0a49  16                                push    ss
  1037.  0a4a  57                                push    di
  1038.  0a4b  8a 46 06                          mov     al,+6H[bp]
  1039.  0a4e  50                                push    ax
  1040.  0a4f  0e                                push    cs
  1041.  0a50  e8 00 00                          call    GET_STRING
  1042.  0a53  08 c0                             or      al,al
  1043.  0a55  74 17                             je      L80
  1044.  0a57  8d be fd fe                       lea     di,-103H[bp]
  1045.  0a5b  16                                push    ss
  1046.  0a5c  57                                push    di
  1047.  0a5d  8d be fb fe                       lea     di,-105H[bp]
  1048.  0a61  16                                push    ss
  1049.  0a62  57                                push    di
  1050.  0a63  9a 00 00 00 00                    call    far SYSTEM_062
  1051.  0a68  c4 7e 08                          les     di,dword ptr +8H[bp]
  1052.  0a6b  26 89 05                          mov     es:[di],ax
  1053.  0a6e  83 be fb fe 00    L80             cmp     word ptr -105H[bp],0000H
  1054.  0a73  75 a2                             jne     L79
  1055.  0a75  8a 46 ff                          mov     al,-1H[bp]
  1056.  0a78  89 ec                             mov     sp,bp
  1057.  0a7a  5d                                pop     bp
  1058.  0a7b  ca 06 00                          retf    0006H
  1059.  0a7e                    CLEAR_SCREEN:
  1060.  0a7e  55                LIBRARY1_00D    push    bp
  1061.  0a7f  89 e5                             mov     bp,sp
  1062.  0a81  31 c0                             xor     ax,ax
  1063.  0a83  9a 00 00 00 00                    call    far SYSTEM_034
  1064.  0a88  b0 01                             mov     al,01H
  1065.  0a8a  50                                push    ax
  1066.  0a8b  b0 01                             mov     al,01H
  1067.  0a8d  50                                push    ax
  1068.  0a8e  b0 50                             mov     al,50H
  1069.  0a90  50                                push    ax
  1070.  0a91  b0 19                             mov     al,19H
  1071.  0a93  50                                push    ax
  1072.  0a94  9a 00 00 00 00                    call    far CRT_005
  1073.  0a99  8a 46 06                          mov     al,+6H[bp]
  1074.  0a9c  a2 00 00                          mov     CRT_BSS+6H,al
  1075.  0a9f  9a 00 00 00 00                    call    far CRT_009
  1076.  0aa4  b0 01                             mov     al,01H
  1077.  0aa6  50                                push    ax
  1078.  0aa7  b0 18                             mov     al,18H
  1079.  0aa9  50                                push    ax
  1080.  0aaa  9a 00 00 00 00                    call    far CRT_006
  1081.  0aaf  89 ec                             mov     sp,bp
  1082.  0ab1  5d                                pop     bp
  1083.  0ab2  ca 02 00                          retf    0002H
  1084.  0ab5                    LIBRARY1_000:
  1085.  0ab5  89 e5             LIBRARY1_INIT   mov     bp,sp
  1086.  0ab7  c6 06 00 00 0e                    mov     byte ptr LIBRARY1_BSS,0eH
  1087.  0abc  c6 06 00 00 00                    mov     byte ptr MONOOVERRIDE,00H
  1088.  0ac1  89 ec                             mov     sp,bp
  1089.  0ac3  cb                                retf    
  1090.  
  1091. No disassembly errors
  1092.  
  1093. ------------------------------------------------------------
  1094.  
  1095. Segment: _DATA  WORD   00000015 bytes  
  1096.  0000  06 20 20 20 20 20 20 06 LIBRARY1_DATA   - .      .
  1097.  0008  da c4 bf b3 c0 d9 06 c9                 - ........
  1098.  0010  cd bb ba c8 bc                          - .....
  1099.  
  1100. No disassembly errors
  1101.  
  1102. ------------------------------------------------------------
  1103.  
  1104. Segment: _BSS  WORD   00000002 bytes  
  1105.  
  1106. No disassembly errors
  1107.  
  1108. ------------------------------------------------------------
  1109.