DOS ain't dead

DPMI - how to chain user and original RM handler? (Developers)

posted by CandyMan, 05.05.2023, 12:36

Below is working assembly code that do it. Tested on true Dos.

        format  Flat on "D:\CW\D3XX.EXE"

StackSwitch = 0

        mov     [SelDS],ds
        mov     [SelFS],fs

        mov     edi,cRealRegs
        mov     ax,cs
        mov     ds,ax
        mov     esi,PopupStart
        mov     ax,0303h
        int     31h
        mov     ax,es
        mov     ds,ax

        cli
        xchg    [fs:4*15h+0],dx
        xchg    [fs:4*15h+2],cx
        mov     [PrevOfs],dx
        mov     [PrevSeg],cx

        mov     eax,dword [PrevOfs]
        mov     [dRealRegs+2Ah],eax     ;CS:IP

        sti
@@:
        mov     ah,10h
        int     16h
        cmp     al,1Bh
        jnz     @B

        mov     eax,dword [PrevOfs]
        mov     [fs:4*15h],eax

        mov     ah,4Ch
        int     21h

PopupStart:
        mov     ax,[esi]
        mov     [es:edi+2Ah],ax         ; RealIP
        mov     ax,[esi+02h]
        mov     [es:edi+2Ch],ax         ; RealCS
        add     word [es:edi+2Eh],6     ; RealSP (callfar = 4 | int = 6)

        push    ds es fs
        pushad

        cld

        mov     ds,[cs:SelDS]
        mov     es,ds
        mov     fs,[cs:SelFS]
        ;
if StackSwitch
        mov     [PrevStack+4],ss
        mov     [PrevStack+0],esp
        lss     esp,[MainStack]
end if
        ;
        cmp     [cRealRegs+1Dh],byte 4Fh        ;AH=4Fh ?
        jnz     NotFunction4F
        ;
        call    MainHandler
        ;
NotFunction4F:
        ;
        mov     esi,cRealRegs
        mov     edi,dRealRegs
        mov     ecx,2Ah/2
        rep     movsw
        ;
        mov     ax,0302h
        mov     edi,dRealRegs
        xor     bh,bh
        xor     ecx,ecx
        mov     [edi+2Eh],ecx
        int     31h
        ;
if StackSwitch
        lss     esp,[cs:PrevStack]
end if
        popad
        pop     fs es ds
        iretd

MainHandler:
        mov     al,'#'
        int     29h
        ret

dRealRegs:      rb 50
cRealRegs:      rb 50

SelDS   dw ?
SelFS   dw ?

PrevOfs dw ?
PrevSeg dw ?

Binaries are here: https://megawrzuta.pl/download/52b3f37a42fc8503969ef82d717d9ab9.html
Good luck!

Complete thread:

• DPMI - how to chain user and original RM handler? - Laaca, 29.04.2023, 00:41
  • DPMI - how to chain user and original RM handler? - ecm, 29.04.2023, 08:43
    • DPMI - how to chain user and original RM handler? - ecm, 29.04.2023, 08:45
      • DPMI - how to chain user and original RM handler? - Laaca, 29.04.2023, 14:04
        • DPMI - how to chain user and original RM handler? - ecm, 29.04.2023, 15:17
  • DPMI - how to chain user and original RM handler? - bretjohn, 04.05.2023, 04:03
  • DPMI - how to chain user and original RM handler? - CandyMan, 05.05.2023, 12:36
    • DPMI - how to chain user and original RM handler? - Laaca, 05.05.2023, 21:53
    • DPMI - how to chain user and original RM handler? - Laaca, 12.06.2023, 23:39