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