home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / io / inputs / general.dis < prev    next >
Encoding:
Text File  |  1994-06-19  |  104.8 KB  |  1,840 lines

  1.  
  2. Module: GENERAL.PAS
  3. Group: 'DGROUP' _DATA,_BSS
  4.  
  5. Segment: GENERAL_TEXT  PARA   000011f3 bytes  
  6.  0000  55                GENERAL_01B     push    bp
  7.  0001  89 e5                             mov     bp,sp
  8.  0003  31 c0                             xor     ax,ax
  9.  0005  9a 00 00 00 00                    call    far SYSTEM_034
  10.  000a  80 7e 04 00                       cmp     byte ptr +4H[bp],00H
  11.  000e  74 07                             je      L1
  12.  0010  80 3e 00 00 00                    cmp     byte ptr GENERAL_DATA,00H
  13.  0015  74 0d                             je      L2
  14.  0017  80 7e 04 00       L1              cmp     byte ptr +4H[bp],00H
  15.  001b  75 38                             jne     L5
  16.  001d  80 3e 00 00 00                    cmp     byte ptr GENERAL_DATA,00H
  17.  0022  74 31                             je      L5
  18.  0024  80 3e 00 00 00    L2              cmp     byte ptr GENERAL_DATA,00H
  19.  0029  74 04                             je      L3
  20.  002b  b0 00                             mov     al,00H
  21.  002d  eb 02                             jmp     L4
  22.  002f  b0 01             L3              mov     al,01H
  23.  0031  a2 00 00          L4              mov     GENERAL_DATA,al
  24.  0034  be 40 00                          mov     si,0040H
  25.  0037  8e c6                             mov     es,si
  26.  0039  26 a0 65 00                       mov     al,es:[00000065H]
  27.  003d  34 20                             xor     al,20H
  28.  003f  be 40 00                          mov     si,0040H
  29.  0042  8e c6                             mov     es,si
  30.  0044  26 a2 65 00                       mov     es:[00000065H],al
  31.  0048  be 40 00                          mov     si,0040H
  32.  004b  8e c6                             mov     es,si
  33.  004d  26 a0 65 00                       mov     al,es:[00000065H]
  34.  0051  ba d8 03                          mov     dx,03d8H
  35.  0054  ee                                out     dx,al
  36.  0055  89 ec             L5              mov     sp,bp
  37.  0057  5d                                pop     bp
  38.  0058  c2 02 00                          ret     0002H
  39.  005b                    COLOR:
  40.  005b  55                GENERAL_001     push    bp
  41.  005c  89 e5                             mov     bp,sp
  42.  005e  31 c0                             xor     ax,ax
  43.  0060  9a 00 00 00 00                    call    far SYSTEM_034
  44.  0065  83 3e 00 00 07                    cmp     word ptr CRT_BSS+4H,0007H
  45.  006a  75 78                             jne     L11
  46.  006c  80 7e 0a 00                       cmp     byte ptr +0aH[bp],00H
  47.  0070  74 12                             je      L6
  48.  0072  b0 00                             mov     al,00H
  49.  0074  50                                push    ax
  50.  0075  9a 00 00 00 00                    call    far CRT_00D
  51.  007a  b0 07                             mov     al,07H
  52.  007c  50                                push    ax
  53.  007d  9a 00 00 00 00                    call    far CRT_00E
  54.  0082  eb 5e                             jmp     L10
  55.  0084  80 7e 06 00       L6              cmp     byte ptr +6H[bp],00H
  56.  0088  74 18                             je      L7
  57.  008a  80 7e 08 00                       cmp     byte ptr +8H[bp],00H
  58.  008e  74 12                             je      L7
  59.  0090  b0 19                             mov     al,19H
  60.  0092  50                                push    ax
  61.  0093  9a 00 00 00 00                    call    far CRT_00D
  62.  0098  b0 00                             mov     al,00H
  63.  009a  50                                push    ax
  64.  009b  9a 00 00 00 00                    call    far CRT_00E
  65.  00a0  eb 40                             jmp     L10
  66.  00a2  80 7e 06 00       L7              cmp     byte ptr +6H[bp],00H
  67.  00a6  74 12                             je      L8
  68.  00a8  b0 09                             mov     al,09H
  69.  00aa  50                                push    ax
  70.  00ab  9a 00 00 00 00                    call    far CRT_00D
  71.  00b0  b0 00                             mov     al,00H
  72.  00b2  50                                push    ax
  73.  00b3  9a 00 00 00 00                    call    far CRT_00E
  74.  00b8  eb 28                             jmp     L10
  75.  00ba  80 7e 08 00       L8              cmp     byte ptr +8H[bp],00H
  76.  00be  74 12                             je      L9
  77.  00c0  b0 1d                             mov     al,1dH
  78.  00c2  50                                push    ax
  79.  00c3  9a 00 00 00 00                    call    far CRT_00D
  80.  00c8  b0 00                             mov     al,00H
  81.  00ca  50                                push    ax
  82.  00cb  9a 00 00 00 00                    call    far CRT_00E
  83.  00d0  eb 10                             jmp     L10
  84.  00d2  b0 07             L9              mov     al,07H
  85.  00d4  50                                push    ax
  86.  00d5  9a 00 00 00 00                    call    far CRT_00D
  87.  00da  b0 00                             mov     al,00H
  88.  00dc  50                                push    ax
  89.  00dd  9a 00 00 00 00                    call    far CRT_00E
  90.  00e2  eb 19             L10             jmp     L12
  91.  00e4  8a 46 08          L11             mov     al,+8H[bp]
  92.  00e7  50                                push    ax
  93.  00e8  e8 00 00                          call    GENERAL_01B
  94.  00eb  8a 46 0e                          mov     al,+0eH[bp]
  95.  00ee  50                                push    ax
  96.  00ef  9a 00 00 00 00                    call    far CRT_00D
  97.  00f4  8a 46 0c                          mov     al,+0cH[bp]
  98.  00f7  50                                push    ax
  99.  00f8  9a 00 00 00 00                    call    far CRT_00E
  100.  00fd  89 ec             L12             mov     sp,bp
  101.  00ff  5d                                pop     bp
  102.  0100  ca 0a 00                          retf    000aH
  103.  0103                    CURSORON:
  104.  0103  55                GENERAL_002     push    bp
  105.  0104  89 e5                             mov     bp,sp
  106.  0106  b8 14 00                          mov     ax,0014H
  107.  0109  9a 00 00 00 00                    call    far SYSTEM_034
  108.  010e  83 ec 14                          sub     sp,0014H
  109.  0111  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  110.  0115  74 1b                             je      L15
  111.  0117  31 c0                             xor     ax,ax
  112.  0119  50                                push    ax
  113.  011a  bf 49 04                          mov     di,0449H
  114.  011d  07                                pop     es
  115.  011e  26 80 3d 07                       cmp     byte ptr es:[di],07H
  116.  0122  75 07                             jne     L13
  117.  0124  c7 46 f0 0d 0c                    mov     word ptr -10H[bp],0c0dH
  118.  0129  eb 05                             jmp     L14
  119.  012b  c7 46 f0 07 06    L13             mov     word ptr -10H[bp],0607H
  120.  0130  eb 05             L14             jmp     L16
  121.  0132  c7 46 f0 00 20    L15             mov     word ptr -10H[bp],2000H
  122.  0137  c7 46 ec 00 01    L16             mov     word ptr -14H[bp],0100H
  123.  013c  b0 10                             mov     al,10H
  124.  013e  50                                push    ax
  125.  013f  8d 7e ec                          lea     di,-14H[bp]
  126.  0142  16                                push    ss
  127.  0143  57                                push    di
  128.  0144  9a 00 00 00 00                    call    far DOS_001
  129.  0149  89 ec                             mov     sp,bp
  130.  014b  5d                                pop     bp
  131.  014c  ca 02 00                          retf    0002H
  132.  014f                    UPPER:
  133.  014f  55                GENERAL_003     push    bp
  134.  0150  89 e5                             mov     bp,sp
  135.  0152  b8 04 00                          mov     ax,0004H
  136.  0155  9a 00 00 00 00                    call    far SYSTEM_034
  137.  015a  83 ec 04                          sub     sp,0004H
  138.  015d  c4 7e 06                          les     di,dword ptr +6H[bp]
  139.  0160  26 8a 05                          mov     al,es:[di]
  140.  0163  30 e4                             xor     ah,ah
  141.  0165  89 46 fc                          mov     -4H[bp],ax
  142.  0168  b8 01 00                          mov     ax,0001H
  143.  016b  3b 46 fc                          cmp     ax,-4H[bp]
  144.  016e  7f 2e                             jg      L19
  145.  0170  89 46 fe                          mov     -2H[bp],ax
  146.  0173  eb 03                             jmp     L18
  147.  0175  ff 46 fe          L17             inc     word ptr -2H[bp]
  148.  0178  8b 46 fe          L18             mov     ax,-2H[bp]
  149.  017b  c4 7e 06                          les     di,dword ptr +6H[bp]
  150.  017e  03 f8                             add     di,ax
  151.  0180  26 8a 05                          mov     al,es:[di]
  152.  0183  50                                push    ax
  153.  0184  9a 00 00 00 00                    call    far SYSTEM_05A
  154.  0189  8a d0                             mov     dl,al
  155.  018b  8b 46 fe                          mov     ax,-2H[bp]
  156.  018e  c4 7e 06                          les     di,dword ptr +6H[bp]
  157.  0191  03 f8                             add     di,ax
  158.  0193  26 88 15                          mov     es:[di],dl
  159.  0196  8b 46 fe                          mov     ax,-2H[bp]
  160.  0199  3b 46 fc                          cmp     ax,-4H[bp]
  161.  019c  75 d7                             jne     L17
  162.  019e  89 ec             L19             mov     sp,bp
  163.  01a0  5d                                pop     bp
  164.  01a1  ca 04 00                          retf    0004H
  165.  01a4                    BOX:
  166.  01a4  55                GENERAL_004     push    bp
  167.  01a5  89 e5                             mov     bp,sp
  168.  01a7  b8 0a 00                          mov     ax,000aH
  169.  01aa  9a 00 00 00 00                    call    far SYSTEM_034
  170.  01af  83 ec 0a                          sub     sp,000aH
  171.  01b2  80 7e 0e 00                       cmp     byte ptr +0eH[bp],00H
  172.  01b6  74 1a                             je      L20
  173.  01b8  c6 46 fa c9                       mov     byte ptr -6H[bp],0c9H
  174.  01bc  c6 46 fb bb                       mov     byte ptr -5H[bp],0bbH
  175.  01c0  c6 46 fc c8                       mov     byte ptr -4H[bp],0c8H
  176.  01c4  c6 46 fd bc                       mov     byte ptr -3H[bp],0bcH
  177.  01c8  c6 46 fe cd                       mov     byte ptr -2H[bp],0cdH
  178.  01cc  c6 46 ff ba                       mov     byte ptr -1H[bp],0baH
  179.  01d0  eb 18                             jmp     L21
  180.  01d2  c6 46 fa da       L20             mov     byte ptr -6H[bp],0daH
  181.  01d6  c6 46 fb bf                       mov     byte ptr -5H[bp],0bfH
  182.  01da  c6 46 fc c0                       mov     byte ptr -4H[bp],0c0H
  183.  01de  c6 46 fd d9                       mov     byte ptr -3H[bp],0d9H
  184.  01e2  c6 46 fe c4                       mov     byte ptr -2H[bp],0c4H
  185.  01e6  c6 46 ff b3                       mov     byte ptr -1H[bp],0b3H
  186.  01ea  8a 46 06          L21             mov     al,+6H[bp]
  187.  01ed  30 e4                             xor     ah,ah
  188.  01ef  48                                dec     ax
  189.  01f0  88 46 06                          mov     +6H[bp],al
  190.  01f3  8a 46 0c                          mov     al,+0cH[bp]
  191.  01f6  50                                push    ax
  192.  01f7  8a 46 0a                          mov     al,+0aH[bp]
  193.  01fa  50                                push    ax
  194.  01fb  9a 00 00 00 00                    call    far CRT_006
  195.  0200  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  196.  0203  1e                                push    ds
  197.  0204  57                                push    di
  198.  0205  8a 46 fa                          mov     al,-6H[bp]
  199.  0208  50                                push    ax
  200.  0209  31 c0                             xor     ax,ax
  201.  020b  50                                push    ax
  202.  020c  9a 00 00 00 00                    call    far SYSTEM_039
  203.  0211  9a 00 00 00 00                    call    far SYSTEM_03B
  204.  0216  9a 00 00 00 00                    call    far SYSTEM_032
  205.  021b  8a 46 0c                          mov     al,+0cH[bp]
  206.  021e  30 e4                             xor     ah,ah
  207.  0220  8b d0                             mov     dx,ax
  208.  0222  8a 46 08                          mov     al,+8H[bp]
  209.  0225  30 e4                             xor     ah,ah
  210.  0227  2b c2                             sub     ax,dx
  211.  0229  48                                dec     ax
  212.  022a  88 46 f9                          mov     -7H[bp],al
  213.  022d  8a 46 f9                          mov     al,-7H[bp]
  214.  0230  88 46 f6                          mov     -0aH[bp],al
  215.  0233  b0 01                             mov     al,01H
  216.  0235  3a 46 f6                          cmp     al,-0aH[bp]
  217.  0238  77 2b                             ja      L24
  218.  023a  88 46 f7                          mov     -9H[bp],al
  219.  023d  eb 03                             jmp     L23
  220.  023f  fe 46 f7          L22             inc     byte ptr -9H[bp]
  221.  0242  bf 00 00          L23             mov     di,offset SYSTEM_BSS+100H
  222.  0245  1e                                push    ds
  223.  0246  57                                push    di
  224.  0247  8a 46 fe                          mov     al,-2H[bp]
  225.  024a  50                                push    ax
  226.  024b  31 c0                             xor     ax,ax
  227.  024d  50                                push    ax
  228.  024e  9a 00 00 00 00                    call    far SYSTEM_039
  229.  0253  9a 00 00 00 00                    call    far SYSTEM_03B
  230.  0258  9a 00 00 00 00                    call    far SYSTEM_032
  231.  025d  8a 46 f7                          mov     al,-9H[bp]
  232.  0260  3a 46 f6                          cmp     al,-0aH[bp]
  233.  0263  75 da                             jne     L22
  234.  0265  bf 00 00          L24             mov     di,offset SYSTEM_BSS+100H
  235.  0268  1e                                push    ds
  236.  0269  57                                push    di
  237.  026a  8a 46 fb                          mov     al,-5H[bp]
  238.  026d  50                                push    ax
  239.  026e  31 c0                             xor     ax,ax
  240.  0270  50                                push    ax
  241.  0271  9a 00 00 00 00                    call    far SYSTEM_039
  242.  0276  9a 00 00 00 00                    call    far SYSTEM_03B
  243.  027b  9a 00 00 00 00                    call    far SYSTEM_032
  244.  0280  8a 46 06                          mov     al,+6H[bp]
  245.  0283  30 e4                             xor     ah,ah
  246.  0285  48                                dec     ax
  247.  0286  88 46 f6                          mov     -0aH[bp],al
  248.  0289  8a 46 0a                          mov     al,+0aH[bp]
  249.  028c  30 e4                             xor     ah,ah
  250.  028e  40                                inc     ax
  251.  028f  3a 46 f6                          cmp     al,-0aH[bp]
  252.  0292  77 60                             ja      L27
  253.  0294  88 46 f8                          mov     -8H[bp],al
  254.  0297  eb 03                             jmp     L26
  255.  0299  fe 46 f8          L25             inc     byte ptr -8H[bp]
  256.  029c  8a 46 08          L26             mov     al,+8H[bp]
  257.  029f  50                                push    ax
  258.  02a0  8a 46 f8                          mov     al,-8H[bp]
  259.  02a3  50                                push    ax
  260.  02a4  9a 00 00 00 00                    call    far CRT_006
  261.  02a9  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  262.  02ac  1e                                push    ds
  263.  02ad  57                                push    di
  264.  02ae  8a 46 ff                          mov     al,-1H[bp]
  265.  02b1  50                                push    ax
  266.  02b2  31 c0                             xor     ax,ax
  267.  02b4  50                                push    ax
  268.  02b5  9a 00 00 00 00                    call    far SYSTEM_039
  269.  02ba  9a 00 00 00 00                    call    far SYSTEM_03B
  270.  02bf  9a 00 00 00 00                    call    far SYSTEM_032
  271.  02c4  8a 46 0c                          mov     al,+0cH[bp]
  272.  02c7  50                                push    ax
  273.  02c8  8a 46 f8                          mov     al,-8H[bp]
  274.  02cb  50                                push    ax
  275.  02cc  9a 00 00 00 00                    call    far CRT_006
  276.  02d1  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  277.  02d4  1e                                push    ds
  278.  02d5  57                                push    di
  279.  02d6  8a 46 ff                          mov     al,-1H[bp]
  280.  02d9  50                                push    ax
  281.  02da  31 c0                             xor     ax,ax
  282.  02dc  50                                push    ax
  283.  02dd  9a 00 00 00 00                    call    far SYSTEM_039
  284.  02e2  9a 00 00 00 00                    call    far SYSTEM_03B
  285.  02e7  9a 00 00 00 00                    call    far SYSTEM_032
  286.  02ec  8a 46 f8                          mov     al,-8H[bp]
  287.  02ef  3a 46 f6                          cmp     al,-0aH[bp]
  288.  02f2  75 a5                             jne     L25
  289.  02f4  8a 46 0c          L27             mov     al,+0cH[bp]
  290.  02f7  50                                push    ax
  291.  02f8  8a 46 06                          mov     al,+6H[bp]
  292.  02fb  50                                push    ax
  293.  02fc  9a 00 00 00 00                    call    far CRT_006
  294.  0301  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  295.  0304  1e                                push    ds
  296.  0305  57                                push    di
  297.  0306  8a 46 fc                          mov     al,-4H[bp]
  298.  0309  50                                push    ax
  299.  030a  31 c0                             xor     ax,ax
  300.  030c  50                                push    ax
  301.  030d  9a 00 00 00 00                    call    far SYSTEM_039
  302.  0312  9a 00 00 00 00                    call    far SYSTEM_03B
  303.  0317  9a 00 00 00 00                    call    far SYSTEM_032
  304.  031c  8a 46 f9                          mov     al,-7H[bp]
  305.  031f  88 46 f6                          mov     -0aH[bp],al
  306.  0322  b0 01                             mov     al,01H
  307.  0324  3a 46 f6                          cmp     al,-0aH[bp]
  308.  0327  77 2b                             ja      L30
  309.  0329  88 46 f7                          mov     -9H[bp],al
  310.  032c  eb 03                             jmp     L29
  311.  032e  fe 46 f7          L28             inc     byte ptr -9H[bp]
  312.  0331  bf 00 00          L29             mov     di,offset SYSTEM_BSS+100H
  313.  0334  1e                                push    ds
  314.  0335  57                                push    di
  315.  0336  8a 46 fe                          mov     al,-2H[bp]
  316.  0339  50                                push    ax
  317.  033a  31 c0                             xor     ax,ax
  318.  033c  50                                push    ax
  319.  033d  9a 00 00 00 00                    call    far SYSTEM_039
  320.  0342  9a 00 00 00 00                    call    far SYSTEM_03B
  321.  0347  9a 00 00 00 00                    call    far SYSTEM_032
  322.  034c  8a 46 f7                          mov     al,-9H[bp]
  323.  034f  3a 46 f6                          cmp     al,-0aH[bp]
  324.  0352  75 da                             jne     L28
  325.  0354  bf 00 00          L30             mov     di,offset SYSTEM_BSS+100H
  326.  0357  1e                                push    ds
  327.  0358  57                                push    di
  328.  0359  8a 46 fd                          mov     al,-3H[bp]
  329.  035c  50                                push    ax
  330.  035d  31 c0                             xor     ax,ax
  331.  035f  50                                push    ax
  332.  0360  9a 00 00 00 00                    call    far SYSTEM_039
  333.  0365  9a 00 00 00 00                    call    far SYSTEM_03B
  334.  036a  9a 00 00 00 00                    call    far SYSTEM_032
  335.  036f  9a 00 00 00 00                    call    far CRT_007
  336.  0374  50                                push    ax
  337.  0375  9a 00 00 00 00                    call    far CRT_008
  338.  037a  30 e4                             xor     ah,ah
  339.  037c  2d 02 00                          sub     ax,0002H
  340.  037f  50                                push    ax
  341.  0380  9a 00 00 00 00                    call    far CRT_006
  342.  0385  9a 00 00 00 00                    call    far CRT_00B
  343.  038a  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  344.  038d  1e                                push    ds
  345.  038e  57                                push    di
  346.  038f  8a 46 ff                          mov     al,-1H[bp]
  347.  0392  50                                push    ax
  348.  0393  31 c0                             xor     ax,ax
  349.  0395  50                                push    ax
  350.  0396  9a 00 00 00 00                    call    far SYSTEM_039
  351.  039b  9a 00 00 00 00                    call    far SYSTEM_03B
  352.  03a0  9a 00 00 00 00                    call    far SYSTEM_032
  353.  03a5  8a 46 08                          mov     al,+8H[bp]
  354.  03a8  50                                push    ax
  355.  03a9  9a 00 00 00 00                    call    far CRT_008
  356.  03ae  50                                push    ax
  357.  03af  9a 00 00 00 00                    call    far CRT_006
  358.  03b4  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  359.  03b7  1e                                push    ds
  360.  03b8  57                                push    di
  361.  03b9  8a 46 ff                          mov     al,-1H[bp]
  362.  03bc  50                                push    ax
  363.  03bd  31 c0                             xor     ax,ax
  364.  03bf  50                                push    ax
  365.  03c0  9a 00 00 00 00                    call    far SYSTEM_039
  366.  03c5  9a 00 00 00 00                    call    far SYSTEM_03B
  367.  03ca  9a 00 00 00 00                    call    far SYSTEM_032
  368.  03cf  89 ec                             mov     sp,bp
  369.  03d1  5d                                pop     bp
  370.  03d2  ca 0a 00                          retf    000aH
  371.  03d5                    TRIM:
  372.  03d5  55                GENERAL_005     push    bp
  373.  03d6  89 e5                             mov     bp,sp
  374.  03d8  b8 03 00                          mov     ax,0003H
  375.  03db  9a 00 00 00 00                    call    far SYSTEM_034
  376.  03e0  83 ec 03                          sub     sp,0003H
  377.  03e3  c4 7e 06                          les     di,dword ptr +6H[bp]
  378.  03e6  26 8a 05                          mov     al,es:[di]
  379.  03e9  30 e4                             xor     ah,ah
  380.  03eb  89 46 fe                          mov     -2H[bp],ax
  381.  03ee  c6 46 fd 01                       mov     byte ptr -3H[bp],01H
  382.  03f2  83 7e fe 00       L31             cmp     word ptr -2H[bp],0000H
  383.  03f6  7e 23                             jle     L34
  384.  03f8  80 7e fd 00                       cmp     byte ptr -3H[bp],00H
  385.  03fc  74 1d                             je      L34
  386.  03fe  8b 46 fe                          mov     ax,-2H[bp]
  387.  0401  c4 7e 06                          les     di,dword ptr +6H[bp]
  388.  0404  03 f8                             add     di,ax
  389.  0406  26 80 3d 20                       cmp     byte ptr es:[di],20H
  390.  040a  75 09                             jne     L32
  391.  040c  8b 46 fe                          mov     ax,-2H[bp]
  392.  040f  48                                dec     ax
  393.  0410  89 46 fe                          mov     -2H[bp],ax
  394.  0413  eb 04                             jmp     L33
  395.  0415  c6 46 fd 00       L32             mov     byte ptr -3H[bp],00H
  396.  0419  eb d7             L33             jmp     L31
  397.  041b  8a 46 fe          L34             mov     al,-2H[bp]
  398.  041e  c4 7e 06                          les     di,dword ptr +6H[bp]
  399.  0421  26 88 05                          mov     es:[di],al
  400.  0424  89 ec                             mov     sp,bp
  401.  0426  5d                                pop     bp
  402.  0427  ca 04 00                          retf    0004H
  403.  042a                    BEEP:
  404.  042a  55                GENERAL_006     push    bp
  405.  042b  89 e5                             mov     bp,sp
  406.  042d  31 c0                             xor     ax,ax
  407.  042f  9a 00 00 00 00                    call    far SYSTEM_034
  408.  0434  b8 f4 01                          mov     ax,01f4H
  409.  0437  50                                push    ax
  410.  0438  9a 00 00 00 00                    call    far CRT_013
  411.  043d  b8 c8 00                          mov     ax,00c8H
  412.  0440  50                                push    ax
  413.  0441  9a 00 00 00 00                    call    far CRT_012
  414.  0446  9a 00 00 00 00                    call    far CRT_014
  415.  044b  89 ec                             mov     sp,bp
  416.  044d  5d                                pop     bp
  417.  044e  cb                                retf    
  418.  044f                    CENTER:
  419.  044f  55                GENERAL_007     push    bp
  420.  0450  89 e5                             mov     bp,sp
  421.  0452  b8 53 00                          mov     ax,0053H
  422.  0455  9a 00 00 00 00                    call    far SYSTEM_034
  423.  045a  83 ec 53                          sub     sp,0053H
  424.  045d  c4 7e 06                          les     di,dword ptr +6H[bp]
  425.  0460  06                                push    es
  426.  0461  57                                push    di
  427.  0462  8d 7e af                          lea     di,-51H[bp]
  428.  0465  16                                push    ss
  429.  0466  57                                push    di
  430.  0467  b8 50 00                          mov     ax,0050H
  431.  046a  50                                push    ax
  432.  046b  9a 00 00 00 00                    call    far SYSTEM_00C
  433.  0470  8a 46 af                          mov     al,-51H[bp]
  434.  0473  30 e4                             xor     ah,ah
  435.  0475  99                                cwd     
  436.  0476  b9 02 00                          mov     cx,0002H
  437.  0479  f7 f9                             idiv    cx
  438.  047b  8b d0                             mov     dx,ax
  439.  047d  b8 28 00                          mov     ax,0028H
  440.  0480  2b c2                             sub     ax,dx
  441.  0482  89 46 ad                          mov     -53H[bp],ax
  442.  0485  8a 46 ad                          mov     al,-53H[bp]
  443.  0488  50                                push    ax
  444.  0489  8a 46 0a                          mov     al,+0aH[bp]
  445.  048c  50                                push    ax
  446.  048d  9a 00 00 00 00                    call    far CRT_006
  447.  0492  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  448.  0495  1e                                push    ds
  449.  0496  57                                push    di
  450.  0497  8d 7e af                          lea     di,-51H[bp]
  451.  049a  16                                push    ss
  452.  049b  57                                push    di
  453.  049c  31 c0                             xor     ax,ax
  454.  049e  50                                push    ax
  455.  049f  9a 00 00 00 00                    call    far SYSTEM_036
  456.  04a4  9a 00 00 00 00                    call    far SYSTEM_03B
  457.  04a9  9a 00 00 00 00                    call    far SYSTEM_032
  458.  04ae  89 ec                             mov     sp,bp
  459.  04b0  5d                                pop     bp
  460.  04b1  ca 06 00                          retf    0006H
  461.  04b4  02 20             L35             add     ah,[bx+si]
  462.  04b6  20 02                             and     [bp+si],al
  463.  04b8  2c 20                             sub     al,20H
  464.  04ba                    WRITEDATE:
  465.  04ba  55                GENERAL_008     push    bp
  466.  04bb  89 e5                             mov     bp,sp
  467.  04bd  b8 08 00                          mov     ax,0008H
  468.  04c0  9a 00 00 00 00                    call    far SYSTEM_034
  469.  04c5  83 ec 08                          sub     sp,0008H
  470.  04c8  8a 46 08                          mov     al,+8H[bp]
  471.  04cb  50                                push    ax
  472.  04cc  8a 46 06                          mov     al,+6H[bp]
  473.  04cf  50                                push    ax
  474.  04d0  9a 00 00 00 00                    call    far CRT_006
  475.  04d5  8d 7e f8                          lea     di,-8H[bp]
  476.  04d8  16                                push    ss
  477.  04d9  57                                push    di
  478.  04da  8d 7e fa                          lea     di,-6H[bp]
  479.  04dd  16                                push    ss
  480.  04de  57                                push    di
  481.  04df  8d 7e fc                          lea     di,-4H[bp]
  482.  04e2  16                                push    ss
  483.  04e3  57                                push    di
  484.  04e4  8d 7e fe                          lea     di,-2H[bp]
  485.  04e7  16                                push    ss
  486.  04e8  57                                push    di
  487.  04e9  9a 00 00 00 00                    call    far DOS_003
  488.  04ee  80 7e 0a 00                       cmp     byte ptr +0aH[bp],00H
  489.  04f2  74 34                             je      L37
  490.  04f4  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  491.  04f7  1e                                push    ds
  492.  04f8  57                                push    di
  493.  04f9  8b 46 fe                          mov     ax,-2H[bp]
  494.  04fc  ba 0a 00                          mov     dx,000aH
  495.  04ff  f7 e2                             mul     dx
  496.  0501  8b f8                             mov     di,ax
  497.  0503  81 c7 00 00                       add     di,offset L119
  498.  0507  1e                                push    ds
  499.  0508  57                                push    di
  500.  0509  31 c0                             xor     ax,ax
  501.  050b  50                                push    ax
  502.  050c  9a 00 00 00 00                    call    far SYSTEM_036
  503.  0511  bf 00 00                          mov     di,offset L35
  504.  0514  0e                                push    cs
  505.  0515  57                                push    di
  506.  0516  31 c0                             xor     ax,ax
  507.  0518  50                                push    ax
  508.  0519  9a 00 00 00 00                    call    far SYSTEM_036
  509.  051e  9a 00 00 00 00                    call    far SYSTEM_03B
  510.  0523  9a 00 00 00 00                    call    far SYSTEM_032
  511.  0528  bf 00 00          L37             mov     di,offset SYSTEM_BSS+100H
  512.  052b  1e                                push    ds
  513.  052c  57                                push    di
  514.  052d  8b 46 fa                          mov     ax,-6H[bp]
  515.  0530  ba 0a 00                          mov     dx,000aH
  516.  0533  f7 e2                             mul     dx
  517.  0535  8b f8                             mov     di,ax
  518.  0537  81 c7 00 00                       add     di,offset L120
  519.  053b  1e                                push    ds
  520.  053c  57                                push    di
  521.  053d  31 c0                             xor     ax,ax
  522.  053f  50                                push    ax
  523.  0540  9a 00 00 00 00                    call    far SYSTEM_036
  524.  0545  b0 20                             mov     al,20H
  525.  0547  50                                push    ax
  526.  0548  31 c0                             xor     ax,ax
  527.  054a  50                                push    ax
  528.  054b  9a 00 00 00 00                    call    far SYSTEM_039
  529.  0550  8b 46 fc                          mov     ax,-4H[bp]
  530.  0553  31 d2                             xor     dx,dx
  531.  0555  52                                push    dx
  532.  0556  50                                push    ax
  533.  0557  31 c0                             xor     ax,ax
  534.  0559  50                                push    ax
  535.  055a  9a 00 00 00 00                    call    far SYSTEM_037
  536.  055f  bf 00 00                          mov     di,offset L36
  537.  0562  0e                                push    cs
  538.  0563  57                                push    di
  539.  0564  31 c0                             xor     ax,ax
  540.  0566  50                                push    ax
  541.  0567  9a 00 00 00 00                    call    far SYSTEM_036
  542.  056c  8b 46 f8                          mov     ax,-8H[bp]
  543.  056f  31 d2                             xor     dx,dx
  544.  0571  52                                push    dx
  545.  0572  50                                push    ax
  546.  0573  31 c0                             xor     ax,ax
  547.  0575  50                                push    ax
  548.  0576  9a 00 00 00 00                    call    far SYSTEM_037
  549.  057b  9a 00 00 00 00                    call    far SYSTEM_03B
  550.  0580  9a 00 00 00 00                    call    far SYSTEM_032
  551.  0585  89 ec                             mov     sp,bp
  552.  0587  5d                                pop     bp
  553.  0588  ca 06 00                          retf    0006H
  554.  058b  02 41 4d          L38             add     al,+4dH[bx+di]
  555.  058e  02 50 4d          L39             add     dl,+4dH[bx+si]
  556.  0591                    WRITETIME:
  557.  0591  55                GENERAL_009     push    bp
  558.  0592  89 e5                             mov     bp,sp
  559.  0594  b8 09 00                          mov     ax,0009H
  560.  0597  9a 00 00 00 00                    call    far SYSTEM_034
  561.  059c  83 ec 09                          sub     sp,0009H
  562.  059f  8a 46 08                          mov     al,+8H[bp]
  563.  05a2  50                                push    ax
  564.  05a3  8a 46 06                          mov     al,+6H[bp]
  565.  05a6  50                                push    ax
  566.  05a7  9a 00 00 00 00                    call    far CRT_006
  567.  05ac  8d 7e f8                          lea     di,-8H[bp]
  568.  05af  16                                push    ss
  569.  05b0  57                                push    di
  570.  05b1  8d 7e fa                          lea     di,-6H[bp]
  571.  05b4  16                                push    ss
  572.  05b5  57                                push    di
  573.  05b6  8d 7e fc                          lea     di,-4H[bp]
  574.  05b9  16                                push    ss
  575.  05ba  57                                push    di
  576.  05bb  8d 7e fe                          lea     di,-2H[bp]
  577.  05be  16                                push    ss
  578.  05bf  57                                push    di
  579.  05c0  9a 00 00 00 00                    call    far DOS_005
  580.  05c5  83 7e f8 0c                       cmp     word ptr -8H[bp],000cH
  581.  05c9  76 0f                             jbe     L40
  582.  05cb  8b 46 f8                          mov     ax,-8H[bp]
  583.  05ce  2d 0c 00                          sub     ax,000cH
  584.  05d1  89 46 f8                          mov     -8H[bp],ax
  585.  05d4  c6 46 f7 00                       mov     byte ptr -9H[bp],00H
  586.  05d8  eb 25                             jmp     L43
  587.  05da  83 7e f8 00       L40             cmp     word ptr -8H[bp],0000H
  588.  05de  75 0f                             jne     L41
  589.  05e0  8b 46 f8                          mov     ax,-8H[bp]
  590.  05e3  05 0c 00                          add     ax,000cH
  591.  05e6  89 46 f8                          mov     -8H[bp],ax
  592.  05e9  c6 46 f7 01                       mov     byte ptr -9H[bp],01H
  593.  05ed  eb 10                             jmp     L43
  594.  05ef  83 7e f8 0c       L41             cmp     word ptr -8H[bp],000cH
  595.  05f3  75 06                             jne     L42
  596.  05f5  c6 46 f7 00                       mov     byte ptr -9H[bp],00H
  597.  05f9  eb 04                             jmp     L43
  598.  05fb  c6 46 f7 01       L42             mov     byte ptr -9H[bp],01H
  599.  05ff  bf 00 00          L43             mov     di,offset SYSTEM_BSS+100H
  600.  0602  1e                                push    ds
  601.  0603  57                                push    di
  602.  0604  8b 46 f8                          mov     ax,-8H[bp]
  603.  0607  31 d2                             xor     dx,dx
  604.  0609  52                                push    dx
  605.  060a  50                                push    ax
  606.  060b  31 c0                             xor     ax,ax
  607.  060d  50                                push    ax
  608.  060e  9a 00 00 00 00                    call    far SYSTEM_037
  609.  0613  b0 3a                             mov     al,3aH
  610.  0615  50                                push    ax
  611.  0616  31 c0                             xor     ax,ax
  612.  0618  50                                push    ax
  613.  0619  9a 00 00 00 00                    call    far SYSTEM_039
  614.  061e  8b 46 fa                          mov     ax,-6H[bp]
  615.  0621  31 d2                             xor     dx,dx
  616.  0623  52                                push    dx
  617.  0624  50                                push    ax
  618.  0625  31 c0                             xor     ax,ax
  619.  0627  50                                push    ax
  620.  0628  9a 00 00 00 00                    call    far SYSTEM_037
  621.  062d  b0 20                             mov     al,20H
  622.  062f  50                                push    ax
  623.  0630  31 c0                             xor     ax,ax
  624.  0632  50                                push    ax
  625.  0633  9a 00 00 00 00                    call    far SYSTEM_039
  626.  0638  9a 00 00 00 00                    call    far SYSTEM_03B
  627.  063d  9a 00 00 00 00                    call    far SYSTEM_032
  628.  0642  80 7e f7 00                       cmp     byte ptr -9H[bp],00H
  629.  0646  74 1e                             je      L44
  630.  0648  bf 00 00                          mov     di,offset SYSTEM_BSS+100H
  631.  064b  1e                                push    ds
  632.  064c  57                                push    di
  633.  064d  bf 00 00                          mov     di,offset L38
  634.  0650  0e                                push    cs
  635.  0651  57                                push    di
  636.  0652  31 c0                             xor     ax,ax
  637.  0654  50                                push    ax
  638.  0655  9a 00 00 00 00                    call    far SYSTEM_036
  639.  065a  9a 00 00 00 00                    call    far SYSTEM_03B
  640.  065f  9a 00 00 00 00                    call    far SYSTEM_032
  641.  0664  eb 1c                             jmp     L45
  642.  0666  bf 00 00          L44             mov     di,offset SYSTEM_BSS+100H
  643.  0669  1e                                push    ds
  644.  066a  57                                push    di
  645.  066b  bf 00 00                          mov     di,offset L39
  646.  066e  0e                                push    cs
  647.  066f  57                                push    di
  648.  0670  31 c0                             xor     ax,ax
  649.  0672  50                                push    ax
  650.  0673  9a 00 00 00 00                    call    far SYSTEM_036
  651.  0678  9a 00 00 00 00                    call    far SYSTEM_03B
  652.  067d  9a 00 00 00 00                    call    far SYSTEM_032
  653.  0682  89 ec             L45             mov     sp,bp
  654.  0684  5d                                pop     bp
  655.  0685  ca 04 00                          retf    0004H
  656.  0688                    SYSOPER:
  657.  0688  55                GENERAL_00A     push    bp
  658.  0689  89 e5                             mov     bp,sp
  659.  068b  31 c0                             xor     ax,ax
  660.  068d  9a 00 00 00 00                    call    far SYSTEM_034
  661.  0692  8a 46 0a                          mov     al,+0aH[bp]
  662.  0695  a2 00 00                          mov     CRT_BSS,al
  663.  0698  8a 46 06                          mov     al,+6H[bp]
  664.  069b  a2 00 00                          mov     CRT_BSS+3H,al
  665.  069e  80 7e 08 00                       cmp     byte ptr +8H[bp],00H
  666.  06a2  74 18                             je      L46
  667.  06a4  b8 50 00                          mov     ax,0050H
  668.  06a7  50                                push    ax
  669.  06a8  31 ff                             xor     di,di
  670.  06aa  07                                pop     es
  671.  06ab  26 8a 05                          mov     al,es:[di]
  672.  06ae  34 01                             xor     al,01H
  673.  06b0  8a d0                             mov     dl,al
  674.  06b2  b8 50 00                          mov     ax,0050H
  675.  06b5  50                                push    ax
  676.  06b6  31 ff                             xor     di,di
  677.  06b8  07                                pop     es
  678.  06b9  26 88 15                          mov     es:[di],dl
  679.  06bc  89 ec             L46             mov     sp,bp
  680.  06be  5d                                pop     bp
  681.  06bf  ca 06 00                          retf    0006H
  682.  06c2                    LINEFEED:
  683.  06c2  55                GENERAL_00B     push    bp
  684.  06c3  89 e5                             mov     bp,sp
  685.  06c5  b8 02 00                          mov     ax,0002H
  686.  06c8  9a 00 00 00 00                    call    far SYSTEM_034
  687.  06cd  83 ec 02                          sub     sp,0002H
  688.  06d0  8b 46 06                          mov     ax,+6H[bp]
  689.  06d3  89 46 fe                          mov     -2H[bp],ax
  690.  06d6  b8 01 00                          mov     ax,0001H
  691.  06d9  3b 46 fe                          cmp     ax,-2H[bp]
  692.  06dc  7f 2a                             jg      L49
  693.  06de  89 46 06                          mov     +6H[bp],ax
  694.  06e1  eb 03                             jmp     L48
  695.  06e3  ff 46 06          L47             inc     word ptr +6H[bp]
  696.  06e6  bf 00 00          L48             mov     di,offset PRINTER_BSS
  697.  06e9  1e                                push    ds
  698.  06ea  57                                push    di
  699.  06eb  b0 0a                             mov     al,0aH
  700.  06ed  50                                push    ax
  701.  06ee  31 c0                             xor     ax,ax
  702.  06f0  50                                push    ax
  703.  06f1  9a 00 00 00 00                    call    far SYSTEM_039
  704.  06f6  9a 00 00 00 00                    call    far SYSTEM_03B
  705.  06fb  9a 00 00 00 00                    call    far SYSTEM_032
  706.  0700  8b 46 06                          mov     ax,+6H[bp]
  707.  0703  3b 46 fe                          cmp     ax,-2H[bp]
  708.  0706  75 db                             jne     L47
  709.  0708  89 ec             L49             mov     sp,bp
  710.  070a  5d                                pop     bp
  711.  070b  ca 02 00                          retf    0002H
  712.  070e                    FORMFEED:
  713.  070e  55                GENERAL_00C     push    bp
  714.  070f  89 e5                             mov     bp,sp
  715.  0711  31 c0                             xor     ax,ax
  716.  0713  9a 00 00 00 00                    call    far SYSTEM_034
  717.  0718  bf 00 00                          mov     di,offset PRINTER_BSS
  718.  071b  1e                                push    ds
  719.  071c  57                                push    di
  720.  071d  b0 0c                             mov     al,0cH
  721.  071f  50                                push    ax
  722.  0720  31 c0                             xor     ax,ax
  723.  0722  50                                push    ax
  724.  0723  9a 00 00 00 00                    call    far SYSTEM_039
  725.  0728  9a 00 00 00 00                    call    far SYSTEM_03B
  726.  072d  9a 00 00 00 00                    call    far SYSTEM_032
  727.  0732  89 ec                             mov     sp,bp
  728.  0734  5d                                pop     bp
  729.  0735  cb                                retf    
  730.  0736                    SETPAGELEN:
  731.  0736  55                GENERAL_00D     push    bp
  732.  0737  89 e5                             mov     bp,sp
  733.  0739  31 c0                             xor     ax,ax
  734.  073b  9a 00 00 00 00                    call    far SYSTEM_034
  735.  0740  bf 00 00                          mov     di,offset PRINTER_BSS
  736.  0743  1e                                push    ds
  737.  0744  57                                push    di
  738.  0745  b0 1b                             mov     al,1bH
  739.  0747  50                                push    ax
  740.  0748  31 c0                             xor     ax,ax
  741.  074a  50                                push    ax
  742.  074b  9a 00 00 00 00                    call    far SYSTEM_039
  743.  0750  b0 43                             mov     al,43H
  744.  0752  50                                push    ax
  745.  0753  31 c0                             xor     ax,ax
  746.  0755  50                                push    ax
  747.  0756  9a 00 00 00 00                    call    far SYSTEM_039
  748.  075b  8b 46 06                          mov     ax,+6H[bp]
  749.  075e  99                                cwd     
  750.  075f  52                                push    dx
  751.  0760  50                                push    ax
  752.  0761  31 c0                             xor     ax,ax
  753.  0763  50                                push    ax
  754.  0764  9a 00 00 00 00                    call    far SYSTEM_037
  755.  0769  9a 00 00 00 00                    call    far SYSTEM_03B
  756.  076e  9a 00 00 00 00                    call    far SYSTEM_032
  757.  0773  89 ec                             mov     sp,bp
  758.  0775  5d                                pop     bp
  759.  0776  ca 02 00                          retf    0002H
  760.  0779                    NEARLQ:
  761.  0779  55                GENERAL_00E     push    bp
  762.  077a  89 e5                             mov     bp,sp
  763.  077c  31 c0                             xor     ax,ax
  764.  077e  9a 00 00 00 00                    call    far SYSTEM_034
  765.  0783  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  766.  0787  74 36                             je      L50
  767.  0789  bf 00 00                          mov     di,offset PRINTER_BSS
  768.  078c  1e                                push    ds
  769.  078d  57                                push    di
  770.  078e  b0 1b                             mov     al,1bH
  771.  0790  50                                push    ax
  772.  0791  31 c0                             xor     ax,ax
  773.  0793  50                                push    ax
  774.  0794  9a 00 00 00 00                    call    far SYSTEM_039
  775.  0799  b0 78                             mov     al,78H
  776.  079b  50                                push    ax
  777.  079c  31 c0                             xor     ax,ax
  778.  079e  50                                push    ax
  779.  079f  9a 00 00 00 00                    call    far SYSTEM_039
  780.  07a4  b8 01 00                          mov     ax,0001H
  781.  07a7  31 d2                             xor     dx,dx
  782.  07a9  52                                push    dx
  783.  07aa  50                                push    ax
  784.  07ab  31 c0                             xor     ax,ax
  785.  07ad  50                                push    ax
  786.  07ae  9a 00 00 00 00                    call    far SYSTEM_037
  787.  07b3  9a 00 00 00 00                    call    far SYSTEM_03B
  788.  07b8  9a 00 00 00 00                    call    far SYSTEM_032
  789.  07bd  eb 33                             jmp     L51
  790.  07bf  bf 00 00          L50             mov     di,offset PRINTER_BSS
  791.  07c2  1e                                push    ds
  792.  07c3  57                                push    di
  793.  07c4  b0 1b                             mov     al,1bH
  794.  07c6  50                                push    ax
  795.  07c7  31 c0                             xor     ax,ax
  796.  07c9  50                                push    ax
  797.  07ca  9a 00 00 00 00                    call    far SYSTEM_039
  798.  07cf  b0 78                             mov     al,78H
  799.  07d1  50                                push    ax
  800.  07d2  31 c0                             xor     ax,ax
  801.  07d4  50                                push    ax
  802.  07d5  9a 00 00 00 00                    call    far SYSTEM_039
  803.  07da  31 c0                             xor     ax,ax
  804.  07dc  31 d2                             xor     dx,dx
  805.  07de  52                                push    dx
  806.  07df  50                                push    ax
  807.  07e0  31 c0                             xor     ax,ax
  808.  07e2  50                                push    ax
  809.  07e3  9a 00 00 00 00                    call    far SYSTEM_037
  810.  07e8  9a 00 00 00 00                    call    far SYSTEM_03B
  811.  07ed  9a 00 00 00 00                    call    far SYSTEM_032
  812.  07f2  89 ec             L51             mov     sp,bp
  813.  07f4  5d                                pop     bp
  814.  07f5  ca 02 00                          retf    0002H
  815.  07f8                    CONDENSED:
  816.  07f8  55                GENERAL_00F     push    bp
  817.  07f9  89 e5                             mov     bp,sp
  818.  07fb  31 c0                             xor     ax,ax
  819.  07fd  9a 00 00 00 00                    call    far SYSTEM_034
  820.  0802  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  821.  0806  74 27                             je      L52
  822.  0808  bf 00 00                          mov     di,offset PRINTER_BSS
  823.  080b  1e                                push    ds
  824.  080c  57                                push    di
  825.  080d  b0 1b                             mov     al,1bH
  826.  080f  50                                push    ax
  827.  0810  31 c0                             xor     ax,ax
  828.  0812  50                                push    ax
  829.  0813  9a 00 00 00 00                    call    far SYSTEM_039
  830.  0818  b0 0f                             mov     al,0fH
  831.  081a  50                                push    ax
  832.  081b  31 c0                             xor     ax,ax
  833.  081d  50                                push    ax
  834.  081e  9a 00 00 00 00                    call    far SYSTEM_039
  835.  0823  9a 00 00 00 00                    call    far SYSTEM_03B
  836.  0828  9a 00 00 00 00                    call    far SYSTEM_032
  837.  082d  eb 1a                             jmp     L53
  838.  082f  bf 00 00          L52             mov     di,offset PRINTER_BSS
  839.  0832  1e                                push    ds
  840.  0833  57                                push    di
  841.  0834  b0 12                             mov     al,12H
  842.  0836  50                                push    ax
  843.  0837  31 c0                             xor     ax,ax
  844.  0839  50                                push    ax
  845.  083a  9a 00 00 00 00                    call    far SYSTEM_039
  846.  083f  9a 00 00 00 00                    call    far SYSTEM_03B
  847.  0844  9a 00 00 00 00                    call    far SYSTEM_032
  848.  0849  89 ec             L53             mov     sp,bp
  849.  084b  5d                                pop     bp
  850.  084c  ca 02 00                          retf    0002H
  851.  084f                    UNDERLINE:
  852.  084f  55                GENERAL_010     push    bp
  853.  0850  89 e5                             mov     bp,sp
  854.  0852  31 c0                             xor     ax,ax
  855.  0854  9a 00 00 00 00                    call    far SYSTEM_034
  856.  0859  80 7e 06 00                       cmp     byte ptr +6H[bp],00H
  857.  085d  74 36                             je      L54
  858.  085f  bf 00 00                          mov     di,offset PRINTER_BSS
  859.  0862  1e                                push    ds
  860.  0863  57                                push    di
  861.  0864  b0 1b                             mov     al,1bH
  862.  0866  50                                push    ax
  863.  0867  31 c0                             xor     ax,ax
  864.  0869  50                                push    ax
  865.  086a  9a 00 00 00 00                    call    far SYSTEM_039
  866.  086f  b0 2d                             mov     al,2dH
  867.  0871  50                                push    ax
  868.  0872  31 c0                             xor     ax,ax
  869.  0874  50                                push    ax
  870.  0875  9a 00 00 00 00                    call    far SYSTEM_039
  871.  087a  b8 01 00                          mov     ax,0001H
  872.  087d  31 d2                             xor     dx,dx
  873.  087f  52                                push    dx
  874.  0880  50                                push    ax
  875.  0881  31 c0                             xor     ax,ax
  876.  0883  50                                push    ax
  877.  0884  9a 00 00 00 00                    call    far SYSTEM_037
  878.  0889  9a 00 00 00 00                    call    far SYSTEM_03B
  879.  088e  9a 00 00 00 00                    call    far SYSTEM_032
  880.  0893  eb 33                             jmp     L55
  881.  0895  bf 00 00          L54             mov     di,offset PRINTER_BSS
  882.  0898  1e                                push    ds
  883.  0899  57                                push    di
  884.  089a  b0 1b                             mov     al,1bH
  885.  089c  50                                push    ax
  886.  089d  31 c0                             xor     ax,ax
  887.  089f  50                                push    ax
  888.  08a0  9a 00 00 00 00                    call    far SYSTEM_039
  889.  08a5  b0 2d                             mov     al,2dH
  890.  08a7  50                                push    ax
  891.  08a8  31 c0                             xor     ax,ax
  892.  08aa  50                                push    ax
  893.  08ab  9a 00 00 00 00                    call    far SYSTEM_039
  894.  08b0  31 c0                             xor     ax,ax
  895.  08b2  31 d2                             xor     dx,dx
  896.  08b4  52                                push    dx
  897.  08b5  50                                push    ax
  898.  08b6  31 c0                             xor     ax,ax
  899.  08b8  50                                push    ax
  900.  08b9  9a 00 00 00 00                    call    far SYSTEM_037
  901.  08be  9a 00 00 00 00                    call    far SYSTEM_03B
  902.  08c3  9a 00 00 00 00                    call    far SYSTEM_032
  903.  08c8  89 ec             L55             mov     sp,bp
  904.  08ca  5d                                pop     bp
  905.  08cb  ca 02 00                          retf    0002H
  906.  08ce                    PRINTERON:
  907.  08ce  55                GENERAL_011     push    bp
  908.  08cf  89 e5                             mov     bp,sp
  909.  08d1  b8 15 00                          mov     ax,0015H
  910.  08d4  9a 00 00 00 00                    call    far SYSTEM_034
  911.  08d9  83 ec 15                          sub     sp,0015H
  912.  08dc  c6 46 ec 02                       mov     byte ptr -14H[bp],02H
  913.  08e0  31 c0                             xor     ax,ax
  914.  08e2  89 46 f1                          mov     -0fH[bp],ax
  915.  08e5  b0 17                             mov     al,17H
  916.  08e7  50                                push    ax
  917.  08e8  8d 7e eb                          lea     di,-15H[bp]
  918.  08eb  16                                push    ss
  919.  08ec  57                                push    di
  920.  08ed  9a 00 00 00 00                    call    far DOS_001
  921.  08f2  8a 46 ec                          mov     al,-14H[bp]
  922.  08f5  24 10                             and     al,10H
  923.  08f7  08 c0                             or      al,al
  924.  08f9  74 15                             je      L58
  925.  08fb  8a 46 ec                          mov     al,-14H[bp]
  926.  08fe  24 80                             and     al,80H
  927.  0900  08 c0                             or      al,al
  928.  0902  74 06                             je      L56
  929.  0904  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  930.  0908  eb 04                             jmp     L57
  931.  090a  c6 46 ff 00       L56             mov     byte ptr -1H[bp],00H
  932.  090e  eb 04             L57             jmp     L59
  933.  0910  c6 46 ff 00       L58             mov     byte ptr -1H[bp],00H
  934.  0914  8a 46 ff          L59             mov     al,-1H[bp]
  935.  0917  89 ec                             mov     sp,bp
  936.  0919  5d                                pop     bp
  937.  091a  cb                                retf    
  938.  091b  55                GENERAL_01C     push    bp
  939.  091c  89 e5                             mov     bp,sp
  940.  091e  b8 04 00                          mov     ax,0004H
  941.  0921  9a 00 00 00 00                    call    far SYSTEM_034
  942.  0926  83 ec 04                          sub     sp,0004H
  943.  0929  8b 7e 04                          mov     di,+4H[bp]
  944.  092c  36 8b 45 f8                       mov     ax,ss:-8H[di]
  945.  0930  48                                dec     ax
  946.  0931  8b 7e 04                          mov     di,+4H[bp]
  947.  0934  36 89 45 fa                       mov     ss:-6H[di],ax
  948.  0938  8b 7e 04                          mov     di,+4H[bp]
  949.  093b  36 8b 45 08                       mov     ax,ss:+8H[di]
  950.  093f  89 46 fc                          mov     -4H[bp],ax
  951.  0942  8b 7e 04                          mov     di,+4H[bp]
  952.  0945  36 8b 45 0c                       mov     ax,ss:+0cH[di]
  953.  0949  3b 46 fc                          cmp     ax,-4H[bp]
  954.  094c  7e 03                             jle     L60
  955.  094e  e9 ec 00                          jmp     L65
  956.  0951  89 46 fe          L60             mov     -2H[bp],ax
  957.  0954  eb 03                             jmp     L62
  958.  0956  ff 46 fe          L61             inc     word ptr -2H[bp]
  959.  0959  8b 7e 04          L62             mov     di,+4H[bp]
  960.  095c  36 8b 45 f4                       mov     ax,ss:-0cH[di]
  961.  0960  31 d2                             xor     dx,dx
  962.  0962  8b c8                             mov     cx,ax
  963.  0964  8b da                             mov     bx,dx
  964.  0966  8b 46 fe                          mov     ax,-2H[bp]
  965.  0969  48                                dec     ax
  966.  096a  99                                cwd     
  967.  096b  9a 00 00 00 00                    call    far SYSTEM_005
  968.  0970  8b 7e 04                          mov     di,+4H[bp]
  969.  0973  36 89 45 fc                       mov     ss:-4H[di],ax
  970.  0977  8b 7e 04                          mov     di,+4H[bp]
  971.  097a  36 8b 45 fc                       mov     ax,ss:-4H[di]
  972.  097e  8b 7e 04                          mov     di,+4H[bp]
  973.  0981  36 03 45 fa                       add     ax,ss:-6H[di]
  974.  0985  d1 e0                             shl     ax,1
  975.  0987  8b 7e 04                          mov     di,+4H[bp]
  976.  098a  36 89 45 f2                       mov     ss:-0eH[di],ax
  977.  098e  8b 46 08                          mov     ax,+8H[bp]
  978.  0991  99                                cwd     
  979.  0992  8b c8                             mov     cx,ax
  980.  0994  8b da                             mov     bx,dx
  981.  0996  8b 7e 04                          mov     di,+4H[bp]
  982.  0999  36 8b 45 f8                       mov     ax,ss:-8H[di]
  983.  099d  31 d2                             xor     dx,dx
  984.  099f  3b d3                             cmp     dx,bx
  985.  09a1  75 1a                             jne     L63
  986.  09a3  3b c1                             cmp     ax,cx
  987.  09a5  75 16                             jne     L63
  988.  09a7  8b 7e 04                          mov     di,+4H[bp]
  989.  09aa  36 8b 45 f0                       mov     ax,ss:-10H[di]
  990.  09ae  50                                push    ax
  991.  09af  8b 7e 04                          mov     di,+4H[bp]
  992.  09b2  36 8b 7d f2                       mov     di,ss:-0eH[di]
  993.  09b6  07                                pop     es
  994.  09b7  26 c6 05 20                       mov     byte ptr es:[di],20H
  995.  09bb  eb 75                             jmp     L64
  996.  09bd  8b 7e 04          L63             mov     di,+4H[bp]
  997.  09c0  36 8b 45 f0                       mov     ax,ss:-10H[di]
  998.  09c4  50                                push    ax
  999.  09c5  8b 46 06                          mov     ax,+6H[bp]
  1000.  09c8  99                                cwd     
  1001.  09c9  8b c8                             mov     cx,ax
  1002.  09cb  8b da                             mov     bx,dx
  1003.  09cd  8b 7e 04                          mov     di,+4H[bp]
  1004.  09d0  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1005.  09d4  31 d2                             xor     dx,dx
  1006.  09d6  03 c1                             add     ax,cx
  1007.  09d8  13 d3                             adc     dx,bx
  1008.  09da  8b f8                             mov     di,ax
  1009.  09dc  07                                pop     es
  1010.  09dd  26 8a 15                          mov     dl,es:[di]
  1011.  09e0  8b 7e 04                          mov     di,+4H[bp]
  1012.  09e3  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1013.  09e7  50                                push    ax
  1014.  09e8  8b 7e 04                          mov     di,+4H[bp]
  1015.  09eb  36 8b 7d f2                       mov     di,ss:-0eH[di]
  1016.  09ef  07                                pop     es
  1017.  09f0  26 88 15                          mov     es:[di],dl
  1018.  09f3  8b 7e 04                          mov     di,+4H[bp]
  1019.  09f6  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1020.  09fa  50                                push    ax
  1021.  09fb  8b 46 06                          mov     ax,+6H[bp]
  1022.  09fe  99                                cwd     
  1023.  09ff  8b c8                             mov     cx,ax
  1024.  0a01  8b da                             mov     bx,dx
  1025.  0a03  8b 7e 04                          mov     di,+4H[bp]
  1026.  0a06  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1027.  0a0a  31 d2                             xor     dx,dx
  1028.  0a0c  03 c1                             add     ax,cx
  1029.  0a0e  13 d3                             adc     dx,bx
  1030.  0a10  05 01 00                          add     ax,0001H
  1031.  0a13  83 d2 00                          adc     dx,0000H
  1032.  0a16  8b f8                             mov     di,ax
  1033.  0a18  07                                pop     es
  1034.  0a19  26 8a 15                          mov     dl,es:[di]
  1035.  0a1c  8b 7e 04                          mov     di,+4H[bp]
  1036.  0a1f  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1037.  0a23  50                                push    ax
  1038.  0a24  8b 7e 04                          mov     di,+4H[bp]
  1039.  0a27  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1040.  0a2b  40                                inc     ax
  1041.  0a2c  8b f8                             mov     di,ax
  1042.  0a2e  07                                pop     es
  1043.  0a2f  26 88 15                          mov     es:[di],dl
  1044.  0a32  8b 46 fe          L64             mov     ax,-2H[bp]
  1045.  0a35  3b 46 fc                          cmp     ax,-4H[bp]
  1046.  0a38  74 03                             je      L65
  1047.  0a3a  e9 19 ff                          jmp     L61
  1048.  0a3d  89 ec             L65             mov     sp,bp
  1049.  0a3f  5d                                pop     bp
  1050.  0a40  c2 06 00                          ret     0006H
  1051.  0a43  55                GENERAL_01D     push    bp
  1052.  0a44  89 e5                             mov     bp,sp
  1053.  0a46  b8 04 00                          mov     ax,0004H
  1054.  0a49  9a 00 00 00 00                    call    far SYSTEM_034
  1055.  0a4e  83 ec 04                          sub     sp,0004H
  1056.  0a51  8b 7e 04                          mov     di,+4H[bp]
  1057.  0a54  36 8b 45 fe                       mov     ax,ss:-2H[di]
  1058.  0a58  48                                dec     ax
  1059.  0a59  8b 7e 04                          mov     di,+4H[bp]
  1060.  0a5c  36 f7 65 f4                       mul     word ptr ss:-0cH[di]
  1061.  0a60  8b 7e 04                          mov     di,+4H[bp]
  1062.  0a63  36 89 45 fc                       mov     ss:-4H[di],ax
  1063.  0a67  8b 7e 04                          mov     di,+4H[bp]
  1064.  0a6a  36 8b 45 0a                       mov     ax,ss:+0aH[di]
  1065.  0a6e  89 46 fc                          mov     -4H[bp],ax
  1066.  0a71  8b 7e 04                          mov     di,+4H[bp]
  1067.  0a74  36 8b 45 0e                       mov     ax,ss:+0eH[di]
  1068.  0a78  3b 46 fc                          cmp     ax,-4H[bp]
  1069.  0a7b  7e 03                             jle     L66
  1070.  0a7d  e9 d9 00                          jmp     L71
  1071.  0a80  89 46 fe          L66             mov     -2H[bp],ax
  1072.  0a83  eb 03                             jmp     L68
  1073.  0a85  ff 46 fe          L67             inc     word ptr -2H[bp]
  1074.  0a88  8b 46 fe          L68             mov     ax,-2H[bp]
  1075.  0a8b  48                                dec     ax
  1076.  0a8c  8b 7e 04                          mov     di,+4H[bp]
  1077.  0a8f  36 89 45 fa                       mov     ss:-6H[di],ax
  1078.  0a93  8b 7e 04                          mov     di,+4H[bp]
  1079.  0a96  36 8b 45 fc                       mov     ax,ss:-4H[di]
  1080.  0a9a  8b 7e 04                          mov     di,+4H[bp]
  1081.  0a9d  36 03 45 fa                       add     ax,ss:-6H[di]
  1082.  0aa1  d1 e0                             shl     ax,1
  1083.  0aa3  8b 7e 04                          mov     di,+4H[bp]
  1084.  0aa6  36 89 45 f2                       mov     ss:-0eH[di],ax
  1085.  0aaa  8b 46 08                          mov     ax,+8H[bp]
  1086.  0aad  99                                cwd     
  1087.  0aae  8b c8                             mov     cx,ax
  1088.  0ab0  8b da                             mov     bx,dx
  1089.  0ab2  8b 7e 04                          mov     di,+4H[bp]
  1090.  0ab5  36 8b 45 fe                       mov     ax,ss:-2H[di]
  1091.  0ab9  31 d2                             xor     dx,dx
  1092.  0abb  3b d3                             cmp     dx,bx
  1093.  0abd  75 1a                             jne     L69
  1094.  0abf  3b c1                             cmp     ax,cx
  1095.  0ac1  75 16                             jne     L69
  1096.  0ac3  8b 7e 04                          mov     di,+4H[bp]
  1097.  0ac6  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1098.  0aca  50                                push    ax
  1099.  0acb  8b 7e 04                          mov     di,+4H[bp]
  1100.  0ace  36 8b 7d f2                       mov     di,ss:-0eH[di]
  1101.  0ad2  07                                pop     es
  1102.  0ad3  26 c6 05 20                       mov     byte ptr es:[di],20H
  1103.  0ad7  eb 75                             jmp     L70
  1104.  0ad9  8b 7e 04          L69             mov     di,+4H[bp]
  1105.  0adc  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1106.  0ae0  50                                push    ax
  1107.  0ae1  8b 46 06                          mov     ax,+6H[bp]
  1108.  0ae4  99                                cwd     
  1109.  0ae5  8b c8                             mov     cx,ax
  1110.  0ae7  8b da                             mov     bx,dx
  1111.  0ae9  8b 7e 04                          mov     di,+4H[bp]
  1112.  0aec  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1113.  0af0  31 d2                             xor     dx,dx
  1114.  0af2  03 c1                             add     ax,cx
  1115.  0af4  13 d3                             adc     dx,bx
  1116.  0af6  8b f8                             mov     di,ax
  1117.  0af8  07                                pop     es
  1118.  0af9  26 8a 15                          mov     dl,es:[di]
  1119.  0afc  8b 7e 04                          mov     di,+4H[bp]
  1120.  0aff  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1121.  0b03  50                                push    ax
  1122.  0b04  8b 7e 04                          mov     di,+4H[bp]
  1123.  0b07  36 8b 7d f2                       mov     di,ss:-0eH[di]
  1124.  0b0b  07                                pop     es
  1125.  0b0c  26 88 15                          mov     es:[di],dl
  1126.  0b0f  8b 7e 04                          mov     di,+4H[bp]
  1127.  0b12  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1128.  0b16  50                                push    ax
  1129.  0b17  8b 46 06                          mov     ax,+6H[bp]
  1130.  0b1a  99                                cwd     
  1131.  0b1b  8b c8                             mov     cx,ax
  1132.  0b1d  8b da                             mov     bx,dx
  1133.  0b1f  8b 7e 04                          mov     di,+4H[bp]
  1134.  0b22  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1135.  0b26  31 d2                             xor     dx,dx
  1136.  0b28  03 c1                             add     ax,cx
  1137.  0b2a  13 d3                             adc     dx,bx
  1138.  0b2c  05 01 00                          add     ax,0001H
  1139.  0b2f  83 d2 00                          adc     dx,0000H
  1140.  0b32  8b f8                             mov     di,ax
  1141.  0b34  07                                pop     es
  1142.  0b35  26 8a 15                          mov     dl,es:[di]
  1143.  0b38  8b 7e 04                          mov     di,+4H[bp]
  1144.  0b3b  36 8b 45 f0                       mov     ax,ss:-10H[di]
  1145.  0b3f  50                                push    ax
  1146.  0b40  8b 7e 04                          mov     di,+4H[bp]
  1147.  0b43  36 8b 45 f2                       mov     ax,ss:-0eH[di]
  1148.  0b47  40                                inc     ax
  1149.  0b48  8b f8                             mov     di,ax
  1150.  0b4a  07                                pop     es
  1151.  0b4b  26 88 15                          mov     es:[di],dl
  1152.  0b4e  8b 46 fe          L70             mov     ax,-2H[bp]
  1153.  0b51  3b 46 fc                          cmp     ax,-4H[bp]
  1154.  0b54  74 03                             je      L71
  1155.  0b56  e9 2c ff                          jmp     L67
  1156.  0b59  89 ec             L71             mov     sp,bp
  1157.  0b5b  5d                                pop     bp
  1158.  0b5c  c2 06 00                          ret     0006H
  1159.  0b5f                    SCROLL:
  1160.  0b5f  55                GENERAL_012     push    bp
  1161.  0b60  89 e5                             mov     bp,sp
  1162.  0b62  b8 12 00                          mov     ax,0012H
  1163.  0b65  9a 00 00 00 00                    call    far SYSTEM_034
  1164.  0b6a  83 ec 12                          sub     sp,0012H
  1165.  0b6d  31 c0                             xor     ax,ax
  1166.  0b6f  50                                push    ax
  1167.  0b70  bf 49 04                          mov     di,0449H
  1168.  0b73  07                                pop     es
  1169.  0b74  26 80 3d 07                       cmp     byte ptr es:[di],07H
  1170.  0b78  75 07                             jne     L72
  1171.  0b7a  c7 46 f0 00 b0                    mov     word ptr -10H[bp],0b000H
  1172.  0b7f  eb 05                             jmp     L73
  1173.  0b81  c7 46 f0 00 b8    L72             mov     word ptr -10H[bp],0b800H
  1174.  0b86  31 c0             L73             xor     ax,ax
  1175.  0b88  50                                push    ax
  1176.  0b89  bf 4a 04                          mov     di,044aH
  1177.  0b8c  07                                pop     es
  1178.  0b8d  26 8a 05                          mov     al,es:[di]
  1179.  0b90  30 e4                             xor     ah,ah
  1180.  0b92  89 46 f4                          mov     -0cH[bp],ax
  1181.  0b95  8b 46 f4                          mov     ax,-0cH[bp]
  1182.  0b98  d1 e0                             shl     ax,1
  1183.  0b9a  89 46 f6                          mov     -0aH[bp],ax
  1184.  0b9d  8b 46 06                          mov     ax,+6H[bp]
  1185.  0ba0  3d 00 00                          cmp     ax,0000H
  1186.  0ba3  75 2c                             jne     L77
  1187.  0ba5  8b 46 0a                          mov     ax,+0aH[bp]
  1188.  0ba8  89 46 ee                          mov     -12H[bp],ax
  1189.  0bab  8b 46 0e                          mov     ax,+0eH[bp]
  1190.  0bae  3b 46 ee                          cmp     ax,-12H[bp]
  1191.  0bb1  77 1b                             ja      L76
  1192.  0bb3  89 46 f8                          mov     -8H[bp],ax
  1193.  0bb6  eb 03                             jmp     L75
  1194.  0bb8  ff 46 f8          L74             inc     word ptr -8H[bp]
  1195.  0bbb  ff 76 0a          L75             push    +0aH[bp]
  1196.  0bbe  b8 02 00                          mov     ax,0002H
  1197.  0bc1  50                                push    ax
  1198.  0bc2  55                                push    bp
  1199.  0bc3  e8 00 00                          call    GENERAL_01C
  1200.  0bc6  8b 46 f8                          mov     ax,-8H[bp]
  1201.  0bc9  3b 46 ee                          cmp     ax,-12H[bp]
  1202.  0bcc  75 ea                             jne     L74
  1203.  0bce  e9 99 00          L76             jmp     L88
  1204.  0bd1  3d 01 00          L77             cmp     ax,0001H
  1205.  0bd4  75 2b                             jne     L81
  1206.  0bd6  8b 46 0e                          mov     ax,+0eH[bp]
  1207.  0bd9  89 46 ee                          mov     -12H[bp],ax
  1208.  0bdc  8b 46 0a                          mov     ax,+0aH[bp]
  1209.  0bdf  3b 46 ee                          cmp     ax,-12H[bp]
  1210.  0be2  72 1b                             jb      L80
  1211.  0be4  89 46 f8                          mov     -8H[bp],ax
  1212.  0be7  eb 03                             jmp     L79
  1213.  0be9  ff 4e f8          L78             dec     word ptr -8H[bp]
  1214.  0bec  ff 76 0e          L79             push    +0eH[bp]
  1215.  0bef  b8 fe ff                          mov     ax,0fffeH
  1216.  0bf2  50                                push    ax
  1217.  0bf3  55                                push    bp
  1218.  0bf4  e8 00 00                          call    GENERAL_01C
  1219.  0bf7  8b 46 f8                          mov     ax,-8H[bp]
  1220.  0bfa  3b 46 ee                          cmp     ax,-12H[bp]
  1221.  0bfd  75 ea                             jne     L78
  1222.  0bff  eb 69             L80             jmp     L88
  1223.  0c01  3d 02 00          L81             cmp     ax,0002H
  1224.  0c04  75 2a                             jne     L85
  1225.  0c06  8b 46 08                          mov     ax,+8H[bp]
  1226.  0c09  89 46 ee                          mov     -12H[bp],ax
  1227.  0c0c  8b 46 0c                          mov     ax,+0cH[bp]
  1228.  0c0f  3b 46 ee                          cmp     ax,-12H[bp]
  1229.  0c12  77 1a                             ja      L84
  1230.  0c14  89 46 fe                          mov     -2H[bp],ax
  1231.  0c17  eb 03                             jmp     L83
  1232.  0c19  ff 46 fe          L82             inc     word ptr -2H[bp]
  1233.  0c1c  ff 76 08          L83             push    +8H[bp]
  1234.  0c1f  ff 76 f6                          push    -0aH[bp]
  1235.  0c22  55                                push    bp
  1236.  0c23  e8 00 00                          call    GENERAL_01D
  1237.  0c26  8b 46 fe                          mov     ax,-2H[bp]
  1238.  0c29  3b 46 ee                          cmp     ax,-12H[bp]
  1239.  0c2c  75 eb                             jne     L82
  1240.  0c2e  eb 3a             L84             jmp     L88
  1241.  0c30  3d 03 00          L85             cmp     ax,0003H
  1242.  0c33  75 35                             jne     L88
  1243.  0c35  8b 46 0c                          mov     ax,+0cH[bp]
  1244.  0c38  89 46 ee                          mov     -12H[bp],ax
  1245.  0c3b  8b 46 08                          mov     ax,+8H[bp]
  1246.  0c3e  3b 46 ee                          cmp     ax,-12H[bp]
  1247.  0c41  72 27                             jb      L88
  1248.  0c43  89 46 fe                          mov     -2H[bp],ax
  1249.  0c46  eb 03                             jmp     L87
  1250.  0c48  ff 4e fe          L86             dec     word ptr -2H[bp]
  1251.  0c4b  ff 76 0c          L87             push    +0cH[bp]
  1252.  0c4e  8b 46 f6                          mov     ax,-0aH[bp]
  1253.  0c51  31 d2                             xor     dx,dx
  1254.  0c53  f7 d0                             not     ax
  1255.  0c55  f7 d2                             not     dx
  1256.  0c57  05 01 00                          add     ax,0001H
  1257.  0c5a  83 d2 00                          adc     dx,0000H
  1258.  0c5d  50                                push    ax
  1259.  0c5e  55                                push    bp
  1260.  0c5f  e8 00 00                          call    GENERAL_01D
  1261.  0c62  8b 46 fe                          mov     ax,-2H[bp]
  1262.  0c65  3b 46 ee                          cmp     ax,-12H[bp]
  1263.  0c68  75 de                             jne     L86
  1264.  0c6a  89 ec             L88             mov     sp,bp
  1265.  0c6c  5d                                pop     bp
  1266.  0c6d  ca 0a 00                          retf    000aH
  1267.  0c70                    LEFTTRIM:
  1268.  0c70  55                GENERAL_013     push    bp
  1269.  0c71  89 e5                             mov     bp,sp
  1270.  0c73  b8 01 00                          mov     ax,0001H
  1271.  0c76  9a 00 00 00 00                    call    far SYSTEM_034
  1272.  0c7b  83 ec 01                          sub     sp,0001H
  1273.  0c7e  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1274.  0c82  8a 46 ff          L89             mov     al,-1H[bp]
  1275.  0c85  30 e4                             xor     ah,ah
  1276.  0c87  40                                inc     ax
  1277.  0c88  c4 7e 06                          les     di,dword ptr +6H[bp]
  1278.  0c8b  03 f8                             add     di,ax
  1279.  0c8d  26 80 3d 20                       cmp     byte ptr es:[di],20H
  1280.  0c91  75 0b                             jne     L90
  1281.  0c93  8a 46 ff                          mov     al,-1H[bp]
  1282.  0c96  30 e4                             xor     ah,ah
  1283.  0c98  40                                inc     ax
  1284.  0c99  88 46 ff                          mov     -1H[bp],al
  1285.  0c9c  eb e4                             jmp     L89
  1286.  0c9e  80 7e ff 00       L90             cmp     byte ptr -1H[bp],00H
  1287.  0ca2  76 14                             jbe     L91
  1288.  0ca4  c4 7e 06                          les     di,dword ptr +6H[bp]
  1289.  0ca7  06                                push    es
  1290.  0ca8  57                                push    di
  1291.  0ca9  b8 01 00                          mov     ax,0001H
  1292.  0cac  50                                push    ax
  1293.  0cad  8a 46 ff                          mov     al,-1H[bp]
  1294.  0cb0  30 e4                             xor     ah,ah
  1295.  0cb2  50                                push    ax
  1296.  0cb3  9a 00 00 00 00                    call    far SYSTEM_015
  1297.  0cb8  89 ec             L91             mov     sp,bp
  1298.  0cba  5d                                pop     bp
  1299.  0cbb  ca 04 00                          retf    0004H
  1300.  0cbe  01 20             L92             add     [bx+si],sp
  1301.  0cc0                    SPACE:
  1302.  0cc0  55                GENERAL_014     push    bp
  1303.  0cc1  89 e5                             mov     bp,sp
  1304.  0cc3  b8 53 01                          mov     ax,0153H
  1305.  0cc6  9a 00 00 00 00                    call    far SYSTEM_034
  1306.  0ccb  81 ec 53 01                       sub     sp,0153H
  1307.  0ccf  c6 46 ae 00                       mov     byte ptr -52H[bp],00H
  1308.  0cd3  8a 46 06                          mov     al,+6H[bp]
  1309.  0cd6  88 46 ad                          mov     -53H[bp],al
  1310.  0cd9  b0 01                             mov     al,01H
  1311.  0cdb  3a 46 ad                          cmp     al,-53H[bp]
  1312.  0cde  77 38                             ja      L95
  1313.  0ce0  88 46 ff                          mov     -1H[bp],al
  1314.  0ce3  eb 03                             jmp     L94
  1315.  0ce5  fe 46 ff          L93             inc     byte ptr -1H[bp]
  1316.  0ce8  8d be ad fe       L94             lea     di,-153H[bp]
  1317.  0cec  16                                push    ss
  1318.  0ced  57                                push    di
  1319.  0cee  8d 7e ae                          lea     di,-52H[bp]
  1320.  0cf1  16                                push    ss
  1321.  0cf2  57                                push    di
  1322.  0cf3  9a 00 00 00 00                    call    far SYSTEM_00B
  1323.  0cf8  bf 00 00                          mov     di,offset L92
  1324.  0cfb  0e                                push    cs
  1325.  0cfc  57                                push    di
  1326.  0cfd  9a 00 00 00 00                    call    far SYSTEM_00F
  1327.  0d02  8d 7e ae                          lea     di,-52H[bp]
  1328.  0d05  16                                push    ss
  1329.  0d06  57                                push    di
  1330.  0d07  b8 50 00                          mov     ax,0050H
  1331.  0d0a  50                                push    ax
  1332.  0d0b  9a 00 00 00 00                    call    far SYSTEM_00C
  1333.  0d10  8a 46 ff                          mov     al,-1H[bp]
  1334.  0d13  3a 46 ad                          cmp     al,-53H[bp]
  1335.  0d16  75 cd                             jne     L93
  1336.  0d18  8d 7e ae          L95             lea     di,-52H[bp]
  1337.  0d1b  16                                push    ss
  1338.  0d1c  57                                push    di
  1339.  0d1d  c4 7e 08                          les     di,dword ptr +8H[bp]
  1340.  0d20  06                                push    es
  1341.  0d21  57                                push    di
  1342.  0d22  b8 50 00                          mov     ax,0050H
  1343.  0d25  50                                push    ax
  1344.  0d26  9a 00 00 00 00                    call    far SYSTEM_00C
  1345.  0d2b  89 ec                             mov     sp,bp
  1346.  0d2d  5d                                pop     bp
  1347.  0d2e  ca 02 00                          retf    0002H
  1348.  0d31                    JULIAN:
  1349.  0d31  55                GENERAL_015     push    bp
  1350.  0d32  89 e5                             mov     bp,sp
  1351.  0d34  b8 0c 00                          mov     ax,000cH
  1352.  0d37  9a 00 00 00 00                    call    far SYSTEM_034
  1353.  0d3c  83 ec 0c                          sub     sp,000cH
  1354.  0d3f  83 7e 0a 00                       cmp     word ptr +0aH[bp],0000H
  1355.  0d43  7c 18                             jl      L96
  1356.  0d45  80 7e 08 01                       cmp     byte ptr +8H[bp],01H
  1357.  0d49  72 12                             jb      L96
  1358.  0d4b  80 7e 08 0c                       cmp     byte ptr +8H[bp],0cH
  1359.  0d4f  77 0c                             ja      L96
  1360.  0d51  80 7e 06 01                       cmp     byte ptr +6H[bp],01H
  1361.  0d55  72 06                             jb      L96
  1362.  0d57  80 7e 06 1f                       cmp     byte ptr +6H[bp],1fH
  1363.  0d5b  76 11                             jbe     L97
  1364.  0d5d  c7 46 fa 81 00    L96             mov     word ptr -6H[bp],0081H
  1365.  0d62  c7 46 fc 00 00                    mov     word ptr -4H[bp],0000H
  1366.  0d67  c7 46 fe 00 80                    mov     word ptr -2H[bp],8000H
  1367.  0d6c  eb 0f                             jmp     L98
  1368.  0d6e  83 7e 0a 64       L97             cmp     word ptr +0aH[bp],0064H
  1369.  0d72  7d 09                             jge     L98
  1370.  0d74  8b 46 0a                          mov     ax,+0aH[bp]
  1371.  0d77  05 6c 07                          add     ax,076cH
  1372.  0d7a  89 46 0a                          mov     +0aH[bp],ax
  1373.  0d7d  8a 46 08          L98             mov     al,+8H[bp]
  1374.  0d80  30 e4                             xor     ah,ah
  1375.  0d82  31 d2                             xor     dx,dx
  1376.  0d84  9a 00 00 00 00                    call    far SYSTEM_073
  1377.  0d89  b9 84 00                          mov     cx,0084H
  1378.  0d8c  31 f6                             xor     si,si
  1379.  0d8e  bf 00 60                          mov     di,6000H
  1380.  0d91  9a 00 00 00 00                    call    far SYSTEM_06F
  1381.  0d96  b9 84 00                          mov     cx,0084H
  1382.  0d99  31 f6                             xor     si,si
  1383.  0d9b  bf 00 40                          mov     di,4000H
  1384.  0d9e  9a 00 00 00 00                    call    far SYSTEM_071
  1385.  0da3  9a 00 00 00 00                    call    far SYSTEM_07B
  1386.  0da8  89 46 f4                          mov     -0cH[bp],ax
  1387.  0dab  89 5e f6                          mov     -0aH[bp],bx
  1388.  0dae  89 56 f8                          mov     -8H[bp],dx
  1389.  0db1  8b 46 0a                          mov     ax,+0aH[bp]
  1390.  0db4  99                                cwd     
  1391.  0db5  9a 00 00 00 00                    call    far SYSTEM_073
  1392.  0dba  b9 8d 00                          mov     cx,008dH
  1393.  0dbd  31 f6                             xor     si,si
  1394.  0dbf  bf 20 19                          mov     di,1920H
  1395.  0dc2  9a 00 00 00 00                    call    far SYSTEM_06E
  1396.  0dc7  8b 4e f4                          mov     cx,-0cH[bp]
  1397.  0dca  8b 76 f6                          mov     si,-0aH[bp]
  1398.  0dcd  8b 7e f8                          mov     di,-8H[bp]
  1399.  0dd0  9a 00 00 00 00                    call    far SYSTEM_06E
  1400.  0dd5  b9 87 00                          mov     cx,0087H
  1401.  0dd8  31 f6                             xor     si,si
  1402.  0dda  bf 00 48                          mov     di,4800H
  1403.  0ddd  9a 00 00 00 00                    call    far SYSTEM_071
  1404.  0de2  9a 00 00 00 00                    call    far SYSTEM_07B
  1405.  0de7  b9 82 00                          mov     cx,0082H
  1406.  0dea  31 f6                             xor     si,si
  1407.  0dec  bf 00 40                          mov     di,4000H
  1408.  0def  9a 00 00 00 00                    call    far SYSTEM_070
  1409.  0df4  b9 83 00                          mov     cx,0083H
  1410.  0df7  31 f6                             xor     si,si
  1411.  0df9  31 ff                             xor     di,di
  1412.  0dfb  9a 00 00 00 00                    call    far SYSTEM_071
  1413.  0e00  9a 00 00 00 00                    call    far SYSTEM_07B
  1414.  0e05  52                                push    dx
  1415.  0e06  53                                push    bx
  1416.  0e07  50                                push    ax
  1417.  0e08  8b 46 f4                          mov     ax,-0cH[bp]
  1418.  0e0b  8b 5e f6                          mov     bx,-0aH[bp]
  1419.  0e0e  8b 56 f8                          mov     dx,-8H[bp]
  1420.  0e11  b9 84 00                          mov     cx,0084H
  1421.  0e14  31 f6                             xor     si,si
  1422.  0e16  bf 00 40                          mov     di,4000H
  1423.  0e19  9a 00 00 00 00                    call    far SYSTEM_070
  1424.  0e1e  52                                push    dx
  1425.  0e1f  53                                push    bx
  1426.  0e20  50                                push    ax
  1427.  0e21  8a 46 08                          mov     al,+8H[bp]
  1428.  0e24  30 e4                             xor     ah,ah
  1429.  0e26  31 d2                             xor     dx,dx
  1430.  0e28  9a 00 00 00 00                    call    far SYSTEM_073
  1431.  0e2d  b9 82 00                          mov     cx,0082H
  1432.  0e30  31 f6                             xor     si,si
  1433.  0e32  31 ff                             xor     di,di
  1434.  0e34  9a 00 00 00 00                    call    far SYSTEM_06F
  1435.  0e39  59                                pop     cx
  1436.  0e3a  5e                                pop     si
  1437.  0e3b  5f                                pop     di
  1438.  0e3c  9a 00 00 00 00                    call    far SYSTEM_06F
  1439.  0e41  b9 89 00                          mov     cx,0089H
  1440.  0e44  31 f6                             xor     si,si
  1441.  0e46  bf 80 37                          mov     di,3780H
  1442.  0e49  9a 00 00 00 00                    call    far SYSTEM_070
  1443.  0e4e  b9 84 00                          mov     cx,0084H
  1444.  0e51  31 f6                             xor     si,si
  1445.  0e53  bf 00 40                          mov     di,4000H
  1446.  0e56  9a 00 00 00 00                    call    far SYSTEM_071
  1447.  0e5b  9a 00 00 00 00                    call    far SYSTEM_07B
  1448.  0e60  52                                push    dx
  1449.  0e61  53                                push    bx
  1450.  0e62  50                                push    ax
  1451.  0e63  8b 46 0a                          mov     ax,+0aH[bp]
  1452.  0e66  99                                cwd     
  1453.  0e67  9a 00 00 00 00                    call    far SYSTEM_073
  1454.  0e6c  b9 8d 00                          mov     cx,008dH
  1455.  0e6f  31 f6                             xor     si,si
  1456.  0e71  bf 00 16                          mov     di,1600H
  1457.  0e74  9a 00 00 00 00                    call    far SYSTEM_06E
  1458.  0e79  8b 4e f4                          mov     cx,-0cH[bp]
  1459.  0e7c  8b 76 f6                          mov     si,-0aH[bp]
  1460.  0e7f  8b 7e f8                          mov     di,-8H[bp]
  1461.  0e82  9a 00 00 00 00                    call    far SYSTEM_06E
  1462.  0e87  b9 8b 00                          mov     cx,008bH
  1463.  0e8a  31 f6                             xor     si,si
  1464.  0e8c  bf a0 36                          mov     di,36a0H
  1465.  0e8f  9a 00 00 00 00                    call    far SYSTEM_070
  1466.  0e94  b9 83 00                          mov     cx,0083H
  1467.  0e97  31 f6                             xor     si,si
  1468.  0e99  31 ff                             xor     di,di
  1469.  0e9b  9a 00 00 00 00                    call    far SYSTEM_071
  1470.  0ea0  9a 00 00 00 00                    call    far SYSTEM_07B
  1471.  0ea5  52                                push    dx
  1472.  0ea6  53                                push    bx
  1473.  0ea7  50                                push    ax
  1474.  0ea8  8a 46 06                          mov     al,+6H[bp]
  1475.  0eab  30 e4                             xor     ah,ah
  1476.  0ead  31 d2                             xor     dx,dx
  1477.  0eaf  9a 00 00 00 00                    call    far SYSTEM_073
  1478.  0eb4  b9 8f 00                          mov     cx,008fH
  1479.  0eb7  31 f6                             xor     si,si
  1480.  0eb9  bf 96 7a                          mov     di,7a96H
  1481.  0ebc  9a 00 00 00 00                    call    far SYSTEM_06F
  1482.  0ec1  59                                pop     cx
  1483.  0ec2  5e                                pop     si
  1484.  0ec3  5f                                pop     di
  1485.  0ec4  9a 00 00 00 00                    call    far SYSTEM_06E
  1486.  0ec9  59                                pop     cx
  1487.  0eca  5e                                pop     si
  1488.  0ecb  5f                                pop     di
  1489.  0ecc  9a 00 00 00 00                    call    far SYSTEM_06E
  1490.  0ed1  59                                pop     cx
  1491.  0ed2  5e                                pop     si
  1492.  0ed3  5f                                pop     di
  1493.  0ed4  9a 00 00 00 00                    call    far SYSTEM_06F
  1494.  0ed9  89 46 fa                          mov     -6H[bp],ax
  1495.  0edc  89 5e fc                          mov     -4H[bp],bx
  1496.  0edf  89 56 fe                          mov     -2H[bp],dx
  1497.  0ee2  8b 46 fa                          mov     ax,-6H[bp]
  1498.  0ee5  8b 5e fc                          mov     bx,-4H[bp]
  1499.  0ee8  8b 56 fe                          mov     dx,-2H[bp]
  1500.  0eeb  89 ec                             mov     sp,bp
  1501.  0eed  5d                                pop     bp
  1502.  0eee  ca 06 00                          retf    0006H
  1503.  0ef1                    REMOVESPACES:
  1504.  0ef1  55                GENERAL_016     push    bp
  1505.  0ef2  89 e5                             mov     bp,sp
  1506.  0ef4  b8 01 00                          mov     ax,0001H
  1507.  0ef7  9a 00 00 00 00                    call    far SYSTEM_034
  1508.  0efc  83 ec 01                          sub     sp,0001H
  1509.  0eff  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1510.  0f03  8a 46 ff          L99             mov     al,-1H[bp]
  1511.  0f06  c4 7e 06                          les     di,dword ptr +6H[bp]
  1512.  0f09  26 3a 05                          cmp     al,es:[di]
  1513.  0f0c  77 31                             ja      L102
  1514.  0f0e  8a 46 ff                          mov     al,-1H[bp]
  1515.  0f11  30 e4                             xor     ah,ah
  1516.  0f13  c4 7e 06                          les     di,dword ptr +6H[bp]
  1517.  0f16  03 f8                             add     di,ax
  1518.  0f18  26 80 3d 20                       cmp     byte ptr es:[di],20H
  1519.  0f1c  75 16                             jne     L100
  1520.  0f1e  c4 7e 06                          les     di,dword ptr +6H[bp]
  1521.  0f21  06                                push    es
  1522.  0f22  57                                push    di
  1523.  0f23  8a 46 ff                          mov     al,-1H[bp]
  1524.  0f26  30 e4                             xor     ah,ah
  1525.  0f28  50                                push    ax
  1526.  0f29  b8 01 00                          mov     ax,0001H
  1527.  0f2c  50                                push    ax
  1528.  0f2d  9a 00 00 00 00                    call    far SYSTEM_015
  1529.  0f32  eb 09                             jmp     L101
  1530.  0f34  8a 46 ff          L100            mov     al,-1H[bp]
  1531.  0f37  30 e4                             xor     ah,ah
  1532.  0f39  40                                inc     ax
  1533.  0f3a  88 46 ff                          mov     -1H[bp],al
  1534.  0f3d  eb c4             L101            jmp     L99
  1535.  0f3f  89 ec             L102            mov     sp,bp
  1536.  0f41  5d                                pop     bp
  1537.  0f42  ca 04 00                          retf    0004H
  1538.  0f45                    FUNCKEY:
  1539.  0f45  55                GENERAL_017     push    bp
  1540.  0f46  89 e5                             mov     bp,sp
  1541.  0f48  b8 01 00                          mov     ax,0001H
  1542.  0f4b  9a 00 00 00 00                    call    far SYSTEM_034
  1543.  0f50  83 ec 01                          sub     sp,0001H
  1544.  0f53  c4 7e 06                          les     di,dword ptr +6H[bp]
  1545.  0f56  26 80 3d 00                       cmp     byte ptr es:[di],00H
  1546.  0f5a  75 11                             jne     L103
  1547.  0f5c  9a 00 00 00 00                    call    far CRT_003
  1548.  0f61  c4 7e 06                          les     di,dword ptr +6H[bp]
  1549.  0f64  26 88 05                          mov     es:[di],al
  1550.  0f67  c6 46 ff 01                       mov     byte ptr -1H[bp],01H
  1551.  0f6b  eb 04                             jmp     L104
  1552.  0f6d  c6 46 ff 00       L103            mov     byte ptr -1H[bp],00H
  1553.  0f71  8a 46 ff          L104            mov     al,-1H[bp]
  1554.  0f74  89 ec                             mov     sp,bp
  1555.  0f76  5d                                pop     bp
  1556.  0f77  ca 04 00                          retf    0004H
  1557.  0f7a                    PADSPACES:
  1558.  0f7a  55                GENERAL_018     push    bp
  1559.  0f7b  89 e5                             mov     bp,sp
  1560.  0f7d  b8 01 02                          mov     ax,0201H
  1561.  0f80  9a 00 00 00 00                    call    far SYSTEM_034
  1562.  0f85  81 ec 01 02                       sub     sp,0201H
  1563.  0f89  c4 7e 08                          les     di,dword ptr +8H[bp]
  1564.  0f8c  26 8a 05                          mov     al,es:[di]
  1565.  0f8f  30 e4                             xor     ah,ah
  1566.  0f91  8b d0                             mov     dx,ax
  1567.  0f93  8b 46 06                          mov     ax,+6H[bp]
  1568.  0f96  2b c2                             sub     ax,dx
  1569.  0f98  88 46 ff                          mov     -1H[bp],al
  1570.  0f9b  80 7e ff 00                       cmp     byte ptr -1H[bp],00H
  1571.  0f9f  76 31                             jbe     L105
  1572.  0fa1  8d be ff fd                       lea     di,-201H[bp]
  1573.  0fa5  16                                push    ss
  1574.  0fa6  57                                push    di
  1575.  0fa7  c4 7e 08                          les     di,dword ptr +8H[bp]
  1576.  0faa  06                                push    es
  1577.  0fab  57                                push    di
  1578.  0fac  9a 00 00 00 00                    call    far SYSTEM_00B
  1579.  0fb1  8d be ff fe                       lea     di,-101H[bp]
  1580.  0fb5  16                                push    ss
  1581.  0fb6  57                                push    di
  1582.  0fb7  8a 46 ff                          mov     al,-1H[bp]
  1583.  0fba  50                                push    ax
  1584.  0fbb  0e                                push    cs
  1585.  0fbc  e8 00 00                          call    GENERAL_014
  1586.  0fbf  9a 00 00 00 00                    call    far SYSTEM_00F
  1587.  0fc4  c4 7e 08                          les     di,dword ptr +8H[bp]
  1588.  0fc7  06                                push    es
  1589.  0fc8  57                                push    di
  1590.  0fc9  b8 50 00                          mov     ax,0050H
  1591.  0fcc  50                                push    ax
  1592.  0fcd  9a 00 00 00 00                    call    far SYSTEM_00C
  1593.  0fd2  89 ec             L105            mov     sp,bp
  1594.  0fd4  5d                                pop     bp
  1595.  0fd5  ca 06 00                          retf    0006H
  1596.  0fd8                    VALIDDATE:
  1597.  0fd8  55                GENERAL_019     push    bp
  1598.  0fd9  89 e5                             mov     bp,sp
  1599.  0fdb  b8 1b 02                          mov     ax,021bH
  1600.  0fde  9a 00 00 00 00                    call    far SYSTEM_034
  1601.  0fe3  81 ec 1b 02                       sub     sp,021bH
  1602.  0fe7  c4 7e 06                          les     di,dword ptr +6H[bp]
  1603.  0fea  06                                push    es
  1604.  0feb  57                                push    di
  1605.  0fec  8d 7e f6                          lea     di,-0aH[bp]
  1606.  0fef  16                                push    ss
  1607.  0ff0  57                                push    di
  1608.  0ff1  b8 08 00                          mov     ax,0008H
  1609.  0ff4  50                                push    ax
  1610.  0ff5  9a 00 00 00 00                    call    far SYSTEM_00C
  1611.  0ffa  80 7e f9 2f                       cmp     byte ptr -7H[bp],2fH
  1612.  0ffe  75 06                             jne     L106
  1613.  1000  80 7e fc 2f                       cmp     byte ptr -4H[bp],2fH
  1614.  1004  74 07                             je      L107
  1615.  1006  c6 46 ff 00       L106            mov     byte ptr -1H[bp],00H
  1616.  100a  e9 8b 01                          jmp     L116
  1617.  100d  8d be e5 fe       L107            lea     di,-11bH[bp]
  1618.  1011  16                                push    ss
  1619.  1012  57                                push    di
  1620.  1013  8a 46 f7                          mov     al,-9H[bp]
  1621.  1016  50                                push    ax
  1622.  1017  9a 00 00 00 00                    call    far SYSTEM_012
  1623.  101c  8d be e5 fd                       lea     di,-21bH[bp]
  1624.  1020  16                                push    ss
  1625.  1021  57                                push    di
  1626.  1022  8a 46 f8                          mov     al,-8H[bp]
  1627.  1025  50                                push    ax
  1628.  1026  9a 00 00 00 00                    call    far SYSTEM_012
  1629.  102b  9a 00 00 00 00                    call    far SYSTEM_00F
  1630.  1030  8d 7e e7                          lea     di,-19H[bp]
  1631.  1033  16                                push    ss
  1632.  1034  57                                push    di
  1633.  1035  b8 02 00                          mov     ax,0002H
  1634.  1038  50                                push    ax
  1635.  1039  9a 00 00 00 00                    call    far SYSTEM_00C
  1636.  103e  8d be e5 fe                       lea     di,-11bH[bp]
  1637.  1042  16                                push    ss
  1638.  1043  57                                push    di
  1639.  1044  8a 46 fa                          mov     al,-6H[bp]
  1640.  1047  50                                push    ax
  1641.  1048  9a 00 00 00 00                    call    far SYSTEM_012
  1642.  104d  8d be e5 fd                       lea     di,-21bH[bp]
  1643.  1051  16                                push    ss
  1644.  1052  57                                push    di
  1645.  1053  8a 46 fb                          mov     al,-5H[bp]
  1646.  1056  50                                push    ax
  1647.  1057  9a 00 00 00 00                    call    far SYSTEM_012
  1648.  105c  9a 00 00 00 00                    call    far SYSTEM_00F
  1649.  1061  8d 7e ea                          lea     di,-16H[bp]
  1650.  1064  16                                push    ss
  1651.  1065  57                                push    di
  1652.  1066  b8 02 00                          mov     ax,0002H
  1653.  1069  50                                push    ax
  1654.  106a  9a 00 00 00 00                    call    far SYSTEM_00C
  1655.  106f  8d be e5 fe                       lea     di,-11bH[bp]
  1656.  1073  16                                push    ss
  1657.  1074  57                                push    di
  1658.  1075  8a 46 fd                          mov     al,-3H[bp]
  1659.  1078  50                                push    ax
  1660.  1079  9a 00 00 00 00                    call    far SYSTEM_012
  1661.  107e  8d be e5 fd                       lea     di,-21bH[bp]
  1662.  1082  16                                push    ss
  1663.  1083  57                                push    di
  1664.  1084  8a 46 fe                          mov     al,-2H[bp]
  1665.  1087  50                                push    ax
  1666.  1088  9a 00 00 00 00                    call    far SYSTEM_012
  1667.  108d  9a 00 00 00 00                    call    far SYSTEM_00F
  1668.  1092  8d 7e ed                          lea     di,-13H[bp]
  1669.  1095  16                                push    ss
  1670.  1096  57                                push    di
  1671.  1097  b8 02 00                          mov     ax,0002H
  1672.  109a  50                                push    ax
  1673.  109b  9a 00 00 00 00                    call    far SYSTEM_00C
  1674.  10a0  8d 7e e7                          lea     di,-19H[bp]
  1675.  10a3  16                                push    ss
  1676.  10a4  57                                push    di
  1677.  10a5  8d 7e e5                          lea     di,-1bH[bp]
  1678.  10a8  16                                push    ss
  1679.  10a9  57                                push    di
  1680.  10aa  9a 00 00 00 00                    call    far SYSTEM_062
  1681.  10af  89 46 f0                          mov     -10H[bp],ax
  1682.  10b2  83 7e e5 00                       cmp     word ptr -1bH[bp],0000H
  1683.  10b6  74 07                             je      L108
  1684.  10b8  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1685.  10bc  e9 d9 00                          jmp     L116
  1686.  10bf  8d 7e ea          L108            lea     di,-16H[bp]
  1687.  10c2  16                                push    ss
  1688.  10c3  57                                push    di
  1689.  10c4  8d 7e e5                          lea     di,-1bH[bp]
  1690.  10c7  16                                push    ss
  1691.  10c8  57                                push    di
  1692.  10c9  9a 00 00 00 00                    call    far SYSTEM_062
  1693.  10ce  89 46 f2                          mov     -0eH[bp],ax
  1694.  10d1  83 7e e5 00                       cmp     word ptr -1bH[bp],0000H
  1695.  10d5  74 07                             je      L109
  1696.  10d7  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1697.  10db  e9 ba 00                          jmp     L116
  1698.  10de  8d 7e ed          L109            lea     di,-13H[bp]
  1699.  10e1  16                                push    ss
  1700.  10e2  57                                push    di
  1701.  10e3  8d 7e e5                          lea     di,-1bH[bp]
  1702.  10e6  16                                push    ss
  1703.  10e7  57                                push    di
  1704.  10e8  9a 00 00 00 00                    call    far SYSTEM_062
  1705.  10ed  89 46 f4                          mov     -0cH[bp],ax
  1706.  10f0  83 7e e5 00                       cmp     word ptr -1bH[bp],0000H
  1707.  10f4  74 07                             je      L110
  1708.  10f6  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1709.  10fa  e9 9b 00                          jmp     L116
  1710.  10fd  83 7e f0 02       L110            cmp     word ptr -10H[bp],0002H
  1711.  1101  75 20                             jne     L111
  1712.  1103  83 7e f2 1d                       cmp     word ptr -0eH[bp],001dH
  1713.  1107  75 1a                             jne     L111
  1714.  1109  8b 46 f4                          mov     ax,-0cH[bp]
  1715.  110c  99                                cwd     
  1716.  110d  b9 04 00                          mov     cx,0004H
  1717.  1110  f7 f9                             idiv    cx
  1718.  1112  92                                xchg    ax,dx
  1719.  1113  09 c0                             or      ax,ax
  1720.  1115  74 0c                             je      L111
  1721.  1117  83 7e f4 00                       cmp     word ptr -0cH[bp],0000H
  1722.  111b  74 06                             je      L111
  1723.  111d  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1724.  1121  eb 75                             jmp     L116
  1725.  1123  83 7e f0 01       L111            cmp     word ptr -10H[bp],0001H
  1726.  1127  7c 12                             jl      L112
  1727.  1129  83 7e f0 0c                       cmp     word ptr -10H[bp],000cH
  1728.  112d  7f 0c                             jg      L112
  1729.  112f  83 7e f2 1f                       cmp     word ptr -0eH[bp],001fH
  1730.  1133  7f 06                             jg      L112
  1731.  1135  83 7e f2 01                       cmp     word ptr -0eH[bp],0001H
  1732.  1139  7d 06                             jge     L113
  1733.  113b  c6 46 ff 00       L112            mov     byte ptr -1H[bp],00H
  1734.  113f  eb 57                             jmp     L116
  1735.  1141  83 7e f2 1d       L113            cmp     word ptr -0eH[bp],001dH
  1736.  1145  7e 0c                             jle     L114
  1737.  1147  83 7e f0 02                       cmp     word ptr -10H[bp],0002H
  1738.  114b  75 06                             jne     L114
  1739.  114d  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1740.  1151  eb 45                             jmp     L116
  1741.  1153  83 7e f2 1f       L114            cmp     word ptr -0eH[bp],001fH
  1742.  1157  75 3b                             jne     L115
  1743.  1159  8a 46 f0                          mov     al,-10H[bp]
  1744.  115c  50                                push    ax
  1745.  115d  8d 7e c5                          lea     di,-3bH[bp]
  1746.  1160  16                                push    ss
  1747.  1161  57                                push    di
  1748.  1162  9a 00 00 00 00                    call    far SYSTEM_028
  1749.  1167  b0 04                             mov     al,04H
  1750.  1169  50                                push    ax
  1751.  116a  9a 00 00 00 00                    call    far SYSTEM_029
  1752.  116f  b0 06                             mov     al,06H
  1753.  1171  50                                push    ax
  1754.  1172  9a 00 00 00 00                    call    far SYSTEM_029
  1755.  1177  b0 09                             mov     al,09H
  1756.  1179  50                                push    ax
  1757.  117a  9a 00 00 00 00                    call    far SYSTEM_029
  1758.  117f  b0 0b                             mov     al,0bH
  1759.  1181  50                                push    ax
  1760.  1182  9a 00 00 00 00                    call    far SYSTEM_029
  1761.  1187  9a 00 00 00 00                    call    far SYSTEM_018
  1762.  118c  74 06                             je      L115
  1763.  118e  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1764.  1192  eb 04                             jmp     L116
  1765.  1194  c6 46 ff 01       L115            mov     byte ptr -1H[bp],01H
  1766.  1198  8a 46 ff          L116            mov     al,-1H[bp]
  1767.  119b  89 ec                             mov     sp,bp
  1768.  119d  5d                                pop     bp
  1769.  119e  ca 04 00                          retf    0004H
  1770.  11a1                    VALIDNUMBER:
  1771.  11a1  55                GENERAL_01A     push    bp
  1772.  11a2  89 e5                             mov     bp,sp
  1773.  11a4  b8 5a 00                          mov     ax,005aH
  1774.  11a7  9a 00 00 00 00                    call    far SYSTEM_034
  1775.  11ac  83 ec 5a                          sub     sp,005aH
  1776.  11af  c4 7e 06                          les     di,dword ptr +6H[bp]
  1777.  11b2  06                                push    es
  1778.  11b3  57                                push    di
  1779.  11b4  8d 7e ae                          lea     di,-52H[bp]
  1780.  11b7  16                                push    ss
  1781.  11b8  57                                push    di
  1782.  11b9  b8 50 00                          mov     ax,0050H
  1783.  11bc  50                                push    ax
  1784.  11bd  9a 00 00 00 00                    call    far SYSTEM_00C
  1785.  11c2  8d 7e ae                          lea     di,-52H[bp]
  1786.  11c5  16                                push    ss
  1787.  11c6  57                                push    di
  1788.  11c7  8d 7e a6                          lea     di,-5aH[bp]
  1789.  11ca  16                                push    ss
  1790.  11cb  57                                push    di
  1791.  11cc  9a 00 00 00 00                    call    far SYSTEM_07A
  1792.  11d1  89 46 a8                          mov     -58H[bp],ax
  1793.  11d4  89 5e aa                          mov     -56H[bp],bx
  1794.  11d7  89 56 ac                          mov     -54H[bp],dx
  1795.  11da  83 7e a6 00                       cmp     word ptr -5aH[bp],0000H
  1796.  11de  74 06                             je      L117
  1797.  11e0  c6 46 ff 00                       mov     byte ptr -1H[bp],00H
  1798.  11e4  eb 04                             jmp     L118
  1799.  11e6  c6 46 ff 01       L117            mov     byte ptr -1H[bp],01H
  1800.  11ea  8a 46 ff          L118            mov     al,-1H[bp]
  1801.  11ed  89 ec                             mov     sp,bp
  1802.  11ef  5d                                pop     bp
  1803.  11f0  ca 04 00                          retf    0004H
  1804.  
  1805. No disassembly errors
  1806.  
  1807. ------------------------------------------------------------
  1808.  
  1809. Segment: _DATA  WORD   000000bf bytes  
  1810.  0000  01                      GENERAL_DATA    - .
  1811.  0001  06 53 75 6e 64 61 79 00 L119            - .Sunday.
  1812.  0009  00 00 06 4d 6f 6e 64 61                 - ...Monda
  1813.  0011  79 00 00 00 07 54 75 65                 - y....Tue
  1814.  0019  73 64 61 79 00 00 09 57                 - sday...W
  1815.  0021  65 64 6e 65 73 64 61 79                 - ednesday
  1816.  0029  08 54 68 75 72 73 64 61                 - .Thursda
  1817.  0031  79 00 06 46 72 69 64 61                 - y..Frida
  1818.  0039  79 00 00 00                             - y...
  1819.  003d  08 53 61 74 75 72 64 61 L120            - .Saturda
  1820.  0045  79 00 07 4a 61 6e 75 61                 - y..Janua
  1821.  004d  72 79 00 00 08 46 65 62                 - ry...Feb
  1822.  0055  72 75 61 72 79 00 05 4d                 - ruary..M
  1823.  005d  61 72 63 68 00 00 00 00                 - arch....
  1824.  0065  05 41 70 72 69 6c 00 00                 - .April..
  1825.  006d  00 00 03 4d 61 79 00 00                 - ...May..
  1826.  0075  00 00 00 00 04 4a 75 6e                 - .....Jun
  1827.  007d  65 00 00 00 00 00 04 4a                 - e......J
  1828.  0085  75 6c 79 00 00 00 00 00                 - uly.....
  1829.  008d  06 41 75 67 75 73 74 00                 - .August.
  1830.  0095  00 00 09 53 65 70 74 65                 - ...Septe
  1831.  009d  6d 62 65 72 07 4f 63 74                 - mber.Oct
  1832.  00a5  6f 62 65 72 00 00 08 4e                 - ober...N
  1833.  00ad  6f 76 65 6d 62 65 72 00                 - ovember.
  1834.  00b5  08 44 65 63 65 6d 62 65                 - .Decembe
  1835.  00bd  72 00                                   - r.
  1836.  
  1837. No disassembly errors
  1838.  
  1839. ------------------------------------------------------------
  1840.