assume cs:dseg
dseg:0000                 assume es:nothing, ss:nothing, ds:dseg, fs:nothing, gs:nothing
dseg:0000                 db 4, 0, 1, 40h, 0, 80h, 0, 2 dup(8), 20h, 2 dup(1), 3 dup(0)
dseg:0000                 db 3 dup(0FFh), 7Fh, 2 dup(0), 50h, 4Dh, 4Fh, 44h, 45h
dseg:0000                 db 2Fh, 57h, 20h, 76h, 31h, 2Eh, 2 dup(33h), 20h, 44h
dseg:0000                 db 4Fh, 53h, 20h, 65h, 78h, 74h, 65h, 6Eh, 64h, 65h, 72h
dseg:0000                 db 20h, 2Dh, 20h, 43h, 6Fh, 70h, 79h, 72h, 69h, 67h, 68h
dseg:0000                 db 74h, 20h, 31h, 2 dup(39h), 34h, 2Dh, 31h, 2 dup(39h)
dseg:0000                 db 37h, 2Ch, 20h, 44h, 61h, 72h, 65h, 64h, 65h, 76h, 69h
dseg:0000                 db 6Ch, 20h, 61h, 6Eh, 64h, 20h, 54h, 72h, 61h, 6Eh, 2Eh
dseg:0000                 db 7Dh, 4, 1Ch, 2
dseg:005E                 assume ss:seg001, ds:nothing
dseg:005E
dseg:005E ; ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ S U B R O U T I N E ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
dseg:005E
dseg:005E
dseg:005E                 public start
dseg:005E start           proc far
dseg:005E                 cld
dseg:005F                 push    ss
dseg:0060                 pop     es
dseg:0061                 assume es:seg001
dseg:0061                 mov     di, 100h
dseg:0064                 mov     si, di
dseg:0066                 push    di
dseg:0067                 mov     cx, 165Eh
dseg:006A                 rep movsw
dseg:006C                 push    es
dseg:006D                 push    ds
dseg:006E                 pop     es
dseg:006F                 assume es:nothing
dseg:006F                 pop     ds
dseg:0070                 assume ds:dseg
dseg:0070                 pop     di
dseg:0071                 mov     si, 222h
dseg:0074                 push    es
dseg:0075                 push    cs
dseg:0076                 movsb
dseg:0077                 lodsw
dseg:0078                 mov     bp, ax
dseg:007A                 mov     dl, 10h
dseg:007C                 push    ds
dseg:007D                 mov     ax, 1D9h
dseg:0080                 push    ax
dseg:0081                 retf
dseg:0081 start           endp ; sp = -8
dseg:0081
dseg:0082
dseg:0082 ; ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦ S U B R O U T I N E ¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦
dseg:0082
dseg:0082
dseg:0082 sub_10082       proc near               ; CODE XREF: dseg:loc_1008Ep
dseg:0082                                         ; dseg:0093p ...
dseg:0082                 shr     bp, 1
dseg:0084                 dec     dl
dseg:0086                 jnz     short locret_1008D
dseg:0088                 lodsw
dseg:0089                 mov     bp, ax
dseg:008B                 mov     dl, 10h
dseg:008D
dseg:008D locret_1008D:                           ; CODE XREF: sub_10082+4j
dseg:008D                 retn
dseg:008D sub_10082       endp
dseg:008D
dseg:008E ; ---------------------------------------------------------------------------
dseg:008E
dseg:008E loc_1008E:                              ; CODE XREF: dseg:00E9j
dseg:008E                 call    sub_10082
dseg:0091                 jnb     short loc_100A2
dseg:0093                 call    sub_10082
dseg:0096                 adc     cl, 1
dseg:0099                 shl     cl, 1
dseg:009B
dseg:009B loc_1009B:                              ; CODE XREF: dseg:00A0j
dseg:009B                 call    sub_10082
dseg:009E                 rcl     bh, 1
dseg:00A0                 loop    loc_1009B
dseg:00A2
dseg:00A2 loc_100A2:                              ; CODE XREF: dseg:0091j
dseg:00A2                 mov     dh, 2
dseg:00A4                 mov     cl, 4
dseg:00A6
dseg:00A6 loc_100A6:                              ; CODE XREF: dseg:00ADj
dseg:00A6                 inc     dh
dseg:00A8                 call    sub_10082
dseg:00AB                 jb      short loc_100CA
dseg:00AD                 loop    loc_100A6
dseg:00AF                 call    sub_10082
dseg:00B2                 jnb     short loc_100BC
dseg:00B4                 lodsb
dseg:00B5                 mov     cl, al
dseg:00B7                 add     cx, 0Fh
dseg:00BA                 jmp     short loc_100D0
dseg:00BC ; ---------------------------------------------------------------------------
dseg:00BC
dseg:00BC loc_100BC:                              ; CODE XREF: dseg:00B2j
dseg:00BC                 xor     dh, dh
dseg:00BE                 mov     cl, 3
dseg:00C0
dseg:00C0 loc_100C0:                              ; CODE XREF: dseg:00C5j
dseg:00C0                 call    sub_10082
dseg:00C3                 rcl     dh, 1
dseg:00C5                 loop    loc_100C0
dseg:00C7                 add     dh, 7
dseg:00CA
dseg:00CA loc_100CA:                              ; CODE XREF: dseg:00ABj
dseg:00CA                 mov     cl, dh
dseg:00CC                 jmp     short loc_100D0