26E5:0100 8CC8           MOV    AX,CS
26E5:0102 052000         ADD    AX,0020
26E5:0105 8ED8           MOV    DS,AX
26E5:0107 C70600013D01   MOV    [0100],013D
26E5:010D 8C0E0201       MOV    [0102],CS
26E5:0111 2D1000         SUB    AX,0010
26E5:0114 C70604010401   MOV    [0104],0104
26E5:011A A30601         MOV    [0106],AX
26E5:011D 31C0           XOR    AX,AX
26E5:011F 31C9           XOR    CX,CX
26E5:0121 BB0002         MOV    BX,0200
26E5:0124 BE0004         MOV    SI,0400
26E5:0127 BF0006         MOV    DI,0600
26E5:012A 8A07           MOV    AL,[BX]
26E5:012C 3A04           CMP    AL,[SI]
26E5:012E 7302           JNC    0132
26E5:0130 87DE           XCHG   BX,SI
26E5:0132 8A07           MOV    AL,[BX]
26E5:0134 8A0C           MOV    CL,[SI]
26E5:0136 8805           MOV    [DI],AL
26E5:0138 28C8           SUB    AL,CL
26E5:013A 86C4           XCHG   AL,AH
26E5:013C F8             CLC
26E5:013D 43             INC    BX
26E5:013E 46             INC    SI
26E5:013F 47             INC    DI
26E5:0140 FF2E0401       JMP    Far [0104]
/*вторая часть*/
26F5:0100 FF2E0001       JMP    Far [0100]
26F5:0104 8A04           MOV    AL,[SI]
26F5:0106 1207           ADC    AL,[BX]
26F5:0108 8805           MOV    [DI],AL
26F5:010A E2F4           LOOP   0100
26F5:010C B000           MOV    AL,00
26F5:010E 1400           ADC    AL,00
26F5:0110 80FC00         CMP    AH,00
26F5:0113 740D           JZ     0122
26F5:0115 88E1           MOV    CL,AH
26F5:0117 F8             CLC
26F5:0118 43             INC    BX
26F5:0119 47             INC    DI
26F5:011A 1207           ADC    AL,[BX]
26F5:011C 8805           MOV    [DI],AL
26F5:011E B000           MOV    AL,00
26F5:0120 E2F6           LOOP   0118
26F5:0122 1400           ADC    AL,00
26F5:0124 3C00           CMP    AL,00
26F5:0126 7414           JZ     013C
26F5:0128 BB0006         MOV    BX,0600
26F5:012B 803FFF         CMP    [BX],FF
26F5:012E 7409           JZ     0139
26F5:0130 47             INC    DI
26F5:0131 8805           MOV    [DI],AL
26F5:0133 FE07           INC    B/[BX]
26F5:0135 31C0           XOR    AX,AX
26F5:0137 EB03           JMP    013C
26F5:0139 B8FFFF         MOV    AX,FFFF
26F5:013C C3             RET