;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; RDOS operating system
; Copyright (C) 1988-2000, Leif Ekblad
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version. The only exception to this rule
; is for commercial usage in embedded systems. For information on
; usage in commercial embedded systems, contact embedded@rdos.net
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
;
; The author of this program may be contacted at leif@rdos.net
;
; IPCDEBUG.ASM
; IPC based kernel debugger
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

INCLUDE ..\driver.def
INCLUDE protseg.def
INCLUDE ..\user.def
INCLUDE ..\os.def
INCLUDE ..\user.inc
INCLUDE ..\os.inc
INCLUDE system.def
INCLUDE system.inc
INCLUDE ipcdebug.inc

data    SEGMENT byte public 'DATA'

op_in_text      DB 100 DUP(?)
op_text_end     DW ?
op_size         DW ?

mouse_pos       DW ?

data    ENDS

code    SEGMENT byte public 'CODE'

.386p

    extrn dis_ass_one:near

    extrn GetDataGood:near
    extrn GetDataSel:near
    extrn GetDataOffset:near
    extrn SetIpAds:near
    extrn GetOpBuf:near

    extrn ReadData:near
    extrn ReadData64:near
    extrn GetIllegalOsGate:near
    extrn GetIllegalUserGate:near
    extrn GetOsCall:near
    extrn GetUserCall:near

    extrn interact_incr:near
    extrn interact_decr:near
    extrn interact_set_value:near

    extrn incdec_eax:near
    extrn incdec_ebx:near
    extrn incdec_ecx:near
    extrn incdec_edx:near
    extrn incdec_esi:near
    extrn incdec_edi:near
    extrn incdec_esp:near
    extrn incdec_ebp:near
    extrn incdec_epc:near
    extrn incdec_cs:near
    extrn incdec_ds:near
    extrn incdec_es:near
    extrn incdec_fs:near
    extrn incdec_gs:near
    extrn incdec_ss:near

    extrn incdec_rax:near
    extrn incdec_rbx:near
    extrn incdec_rcx:near
    extrn incdec_rdx:near
    extrn incdec_rsi:near
    extrn incdec_rdi:near
    extrn incdec_r8:near
    extrn incdec_r9:near
    extrn incdec_r10:near
    extrn incdec_r11:near
    extrn incdec_r12:near
    extrn incdec_r13:near
    extrn incdec_r14:near
    extrn incdec_r15:near
    extrn incdec_rip:near
    extrn incdec_rsp:near
    extrn incdec_rbp:near

    assume cs:code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           req_thread
;
;           DESCRIPTION:    Request current thread control block
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

req_thread      PROC near
    mov cx,SIZE thread_seg
    xor di,di
    xor si,si
    rep movs byte ptr es:[di],gs:[si]
    xor di,di
    mov cx,SIZE thread_seg
    ReplyMailslot
    ret
req_thread      Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           req_info
;
;           DESCRIPTION:    Request info
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

req_info    PROC near
    GetFreePhysical
    mov es:di_free_physical,eax
    UsedBigLinear
    mov es:di_used_big,eax
    UsedSmallLinear
    mov es:di_used_small,eax
    mov bx,gs
    UsedLocalLinearThread
    mov es:di_used_local,eax
;
    xor bx,bx
    mov ax,gs:p_tss_sel
    or ax,ax
    jnz riSaveMode
;
    mov bx,gs:p_cs
    IsLongCodeSelector
    jc ri32

ri64:
    mov bx,2
    jmp riSaveMode

ri32:
    mov bx,1    
        
riSaveMode:
    mov es:di_mode,bx
;
    mov cx,SIZE debug_req_info_struc
    xor di,di
    ReplyMailslot
    ret
req_info    Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           req_data
;
;           DESCRIPTION:    
;
;           PARAMETERS:
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

req_data    Proc near
    mov dx,es:dd_sel
    mov esi,es:dd_offset
    mov bx,gs
    mov cx,es:dd_count
    mov di,SIZE debug_req_data_struc
    mov al,es:dd_vm
    or al,al
    jz req_pm_data
;    
    cmp al,1
    je req_vm_data
;
    jmp req_long_data

req_pm_data:
    or cx,cx
    jz req_data_reply

req_pm_data_loop:
    ReadThreadSelector
    stosb
    mov al,0
    jc req_pm_save
;
    inc al

req_pm_save:
    stosb
    inc esi
    loop req_pm_data_loop
    jmp req_data_reply

req_vm_data:
    or cx,cx
    jz req_data_reply

req_vm_data_loop:
    ReadThreadSegment
    stosb
    mov al,0
    jc req_vm_save
;
    inc al

req_vm_save:
    stosb
    inc esi
    loop req_vm_data_loop
    jmp req_data_reply

req_long_data:
    or cx,cx
    jz req_data_reply

req_long_data_loop:
    ReadThread64
    stosb
    mov al,0
    jc req_long_save
;
    inc al

req_long_save:
    stosb
    inc esi
    loop req_long_data_loop

req_data_reply:
    mov cx,di
    xor di,di
    ReplyMailslot
    ret
req_data    Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           GetMne
;
;           DESCRIPTION:    Get special MNE
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

GetMne  PROC near
    push si
    push di
;
    xor dl,dl
    xor dh,dh
    mov bx,gs:p_cs
    IsLongCodeSelector
    jnc get_cs64
;
    mov bx,gs:p_cs
    test byte ptr gs:p_rflags+2,2
    jnz get_cs_bitness_done

get_cs_bitness_pm:
    test bx,4
    jz get_cs_bitness_gdt

get_cs_bitness_ldt:
    mov es,gs:p_ldt_sel
    jmp get_cs_bitness_test

get_cs_bitness_gdt:
    mov ax,gdt_sel
    mov es,ax

get_cs_bitness_test:
    and bx,0FFF8h
    mov dl,es:[bx+6]
    shr dl,6
    and dl,1

get_cs_bitness_done:
    mov di,OFFSET op_in_text
    call GetOpBuf
;
    mov bp,si

remove_ov_loop:
    mov al,[si]
    cmp al,66h
    je remove_ads16
;
    cmp al,3Eh
    je remove_ov_one
;
    cmp al,67h
    jne remove_ov_done    

remove_ov_one:    
    inc dh
    inc si
    jmp remove_ov_loop

remove_ads16:
    inc dh
    inc si
    xor dl,1
    jmp remove_ov_loop

remove_ov_done:
    mov al,[si]
    cmp al,9Ah
    jne not_call_far
;
    test dl,1
    jz write_call_far16
;
    mov dx,[si+5]
    cmp dx,2
    je oscall
;        
    cmp dx,3
    je usercall_32
;
    cmp dx,1
    jne not_call32

usercall_32:
    mov eax,[si+1]
    cmp eax,usergate_entries
    jnc write_special_fail
;
    shl eax,5
    mov ebx,eax
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetIllegalUserGate
    mov ds:op_size,bx
    clc
    jmp write_special_end

oscall:
    mov eax,[si+1]
    cmp eax,osgate_entries
    jnc write_special_fail
;
    shl eax,4
    mov ebx,eax
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetIllegalOsGate
    mov ds:op_size,bx
    clc
    jmp write_special_end
    
not_call32:
    mov bx,[si+1]
    mov dx,[si+5]
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetOsCall
    mov ds:op_size,bx
    jnc write_special_end
;
    mov bx,[si+1]
    mov dx,[si+5]
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetUserCall
    mov ds:op_size,bx
    jmp write_special_end

write_call_far16:
    mov bx,[si+1]
    mov dx,[si+3]
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetOsCall
    mov ds:op_size,bx
    jnc write_special_end
;
    mov bx,[si+1]
    mov dx,[si+3]
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetUserCall
    mov ds:op_size,bx
    jmp write_special_end

not_call_far:
    cmp al,0E8h
    jne write_special_fail
;
    test dl,1
    jz write_call_near16
;
    inc si
    inc dh    
    movzx ebx,dh
    add ebx,[si]
    add ebx,dword ptr gs:p_rip
    add ebx,4
;
    push ebx
    mov dx,gs:p_cs
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetOsCall
    mov ds:op_size,bx
    pop ebx
    jnc write_special_end
;
    mov dx,gs:p_cs
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetUserCall
    mov ds:op_size,bx
    jmp write_special_end
    
write_call_near16:
    inc si
    inc dh
    movzx bx,dh
    add bx,[si]
    add bx,word ptr gs:p_rip
    add bx,2
    push bx
    mov dx,gs:p_cs
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetOsCall
    mov ds:op_size,bx
    pop bx
    jnc write_special_end
;
    mov dx,gs:p_cs
    mov ax,SEG data
    mov es,ax
    mov di,OFFSET op_in_text
    mov cx,40
    call GetUserCall
    mov ds:op_size,bx
    jmp write_special_end

get_cs64:
    mov di,OFFSET op_in_text
    call GetOpBuf

write_special_fail:
    stc

write_special_end:
    pop di
    pop si
    ret
GetMne  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           LoadInstr
;
;           DESCRIPTION:    Load instruction
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

LoadInstr       PROC near
    mov di,3
    mov bx,gs:p_cs
    IsLongCodeSelector
    jnc seg_size_ok
;
    xor di,di
    mov ax,word ptr gs:p_rflags+2
    test ax,2
    jnz seg_size_ok
    mov bx,gs:p_cs
    test bx,4
    jz code_in_gdt
code_in_ldt:
    and bx,0FFF8h
    xor esi,esi
    mov si,bx
    mov es,gs:p_ldt_sel
    mov al,es:[bx+6]
    shr al,6
    and ax,1
    mov di,ax
    jmp seg_size_ok
code_in_gdt:
    mov ax,gdt_sel
    mov ds,ax
    and bx,0FFF8h
    mov al,[bx+6]
    shr al,6
    and ax,1
    mov di,ax

seg_size_ok:
    mov ax,SEG data
    mov ds,ax
    mov ax,gs
    mov es,ax
    mov dx,word ptr gs:p_rip+4
    mov ebx,dword ptr gs:p_rip
    call SetIpAds
    call GetOpBuf
;
    mov bx,gs:p_cs
    IsLongCodeSelector
    jc get_instr32

get_instr64:
    mov ebx,dword ptr gs:p_rip
    mov dx,word ptr gs:p_rip+4
    mov cx,16

get_instr64_loop:
    call ReadData64
    mov [si],al
    inc ebx
    inc si
    loop get_instr64_loop
    ret

get_instr32:
    mov ebx,dword ptr gs:p_rip
    mov dx,gs:p_cs
    mov cx,16

get_instr32_loop:
    call ReadData
    mov [si],al
    inc ebx
    inc si
    loop get_instr32_loop
    ret
LoadInstr       Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           req_instr
;
;           DESCRIPTION:    Request instruction
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

req_instr       PROC near
    push es
    call LoadInstr
    call GetMne
    jnc req_instr_do
;
    mov dx,di
    mov di,OFFSET op_in_text    
    call dis_ass_one
        mov ds:op_size,80

req_instr_do:
    pop es
;
    mov ax,SEG data
    mov ds,ax
;
    call GetOpBuf
    mov di,OFFSET ddi_code
    mov cx,8
    rep movsw
;
    mov cx,20
    mov si,OFFSET op_in_text
    mov di,OFFSET ddi_mne
    rep movsw
;
    call GetDataGood
    mov es:ddi_data_good,al
    call GetDataOffset
    mov es:ddi_data_offset,ebx
    call GetDataSel
    mov es:ddi_data_sel,ax
;
    mov cx,SIZE debug_req_instr_struc
    xor di,di
    ReplyMailslot
    ret
req_instr       Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           DefaultReply
;
;           DESCRIPTION:    Default reply
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

DefaultReply    Proc near
    mov cx,SIZE debug_req_struc
    xor di,di
    ReplyMailslot
    ret
DefaultReply    Endp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           interact_set
;
;           DESCRIPTION:    Set value
;
;           PARAMETERS:     GS              8086 TSS
;                           CH              value
;                           DX:ESI      address to data
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

interact_set      PROC near
    call interact_set_value
    inc es:db_x
    ret
interact_set      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_eax
;
;           DESCRIPTION:    Change EAX
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_eax      PROC near
    mov dx,gs
    mov esi,OFFSET p_rax
    push di
    ret
    ret
change_eax      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_ebx
;
;           DESCRIPTION:    Change EBX
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_ebx      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbx
    push di
    ret
    ret
change_ebx      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_ecx
;
;           DESCRIPTION:    Change ECX
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_ecx      PROC near
    mov dx,gs
    mov esi,OFFSET p_rcx
    push di
    ret
    ret
change_ecx      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_edx
;
;           DESCRIPTION:    Change EDX
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_edx      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdx
    push di
    ret
    ret
change_edx      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_esi
;
;           DESCRIPTION:    Change ESI
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_esi      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsi
    push di
    ret
    ret
change_esi      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_edi
;
;           DESCRIPTION:    Change EDI
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_edi      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdi
    push di
    ret
    ret
change_edi      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_esp
;
;           DESCRIPTION:    Change ESP
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_esp      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsp
    push di
    ret
    ret
change_esp      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_ebp
;
;           DESCRIPTION:    Change EBP
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_ebp      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbp
    push di
    ret
    ret
change_ebp      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_epc
;
;           DESCRIPTION:    Change EIP
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_epc      PROC near
    mov dx,gs
    mov esi,OFFSET p_rip
    push di
    ret
    ret
change_epc      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change64
;
;           DESCRIPTION:    Change 64-bit
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_raxl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rax
    push di
    ret
    ret
change_raxl      ENDP

change_raxh      PROC near
    mov dx,gs
    mov esi,OFFSET p_rax + 4
    push di
    ret
    ret
change_raxh      ENDP

change_rbxl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbx
    push di
    ret
    ret
change_rbxl      ENDP

change_rbxh      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbx + 4
    push di
    ret
    ret
change_rbxh      ENDP

change_rcxl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rcx
    push di
    ret
    ret
change_rcxl      ENDP

change_rcxh      PROC near
    mov dx,gs
    mov esi,OFFSET p_rcx + 4
    push di
    ret
    ret
change_rcxh      ENDP

change_rdxl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdx
    push di
    ret
    ret
change_rdxl      ENDP

change_rdxh      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdx + 4
    push di
    ret
    ret
change_rdxh      ENDP

change_rsil      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsi
    push di
    ret
    ret
change_rsil      ENDP

change_rsih      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsi + 4
    push di
    ret
    ret
change_rsih      ENDP

change_rdil      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdi
    push di
    ret
    ret
change_rdil      ENDP

change_rdih      PROC near
    mov dx,gs
    mov esi,OFFSET p_rdi + 4
    push di
    ret
    ret
change_rdih      ENDP

change_r8l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r8
    push di
    ret
    ret
change_r8l      ENDP

change_r8h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r8 + 4
    push di
    ret
    ret
change_r8h      ENDP

change_r9l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r9
    push di
    ret
    ret
change_r9l      ENDP

change_r9h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r9 + 4
    push di
    ret
    ret
change_r9h      ENDP

change_r10l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r10
    push di
    ret
    ret
change_r10l      ENDP

change_r10h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r10 + 4
    push di
    ret
    ret
change_r10h      ENDP

change_r11l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r11
    push di
    ret
    ret
change_r11l      ENDP

change_r11h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r11 + 4
    push di
    ret
    ret
change_r11h      ENDP

change_r12l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r12
    push di
    ret
    ret
change_r12l      ENDP

change_r12h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r12 + 4
    push di
    ret
    ret
change_r12h      ENDP

change_r13l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r13
    push di
    ret
    ret
change_r13l      ENDP

change_r13h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r13 + 4
    push di
    ret
    ret
change_r13h      ENDP

change_r14l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r14
    push di
    ret
    ret
change_r14l      ENDP

change_r14h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r14 + 4
    push di
    ret
    ret
change_r14h      ENDP

change_r15l      PROC near
    mov dx,gs
    mov esi,OFFSET p_r15
    push di
    ret
    ret
change_r15l      ENDP

change_r15h      PROC near
    mov dx,gs
    mov esi,OFFSET p_r15 + 4
    push di
    ret
    ret
change_r15h      ENDP

change_ripl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rip
    push di
    ret
    ret
change_ripl      ENDP

change_riph      PROC near
    mov dx,gs
    mov esi,OFFSET p_rip + 4
    push di
    ret
    ret
change_riph      ENDP

change_rspl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsp
    push di
    ret
    ret
change_rspl      ENDP

change_rsph      PROC near
    mov dx,gs
    mov esi,OFFSET p_rsp + 4
    push di
    ret
    ret
change_rsph      ENDP

change_rbpl      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbp
    push di
    ret
    ret
change_rbpl      ENDP

change_rbph      PROC near
    mov dx,gs
    mov esi,OFFSET p_rbp + 4
    push di
    ret
    ret
change_rbph      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_cs
;
;           DESCRIPTION:    Change CS
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_cs       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_cs
    push di
    ret
    ret
change_cs       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_ds
;
;           DESCRIPTION:    Change DS
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_ds       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_ds
    push di
    ret
    ret
change_ds       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_es
;
;           DESCRIPTION:    Change ES
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_es       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_es
    push di
    ret
    ret
change_es       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_fs
;
;           DESCRIPTION:    Change FS
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_fs       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_fs
    push di
    ret
    ret
change_fs       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_gs
;
;           DESCRIPTION:    Change GS
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_gs       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_gs
    push di
    ret
    ret
change_gs       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_ss
;
;           DESCRIPTION:    Change SS
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_ss       PROC near
    and cl,3
    mov dx,gs
    mov esi,OFFSET p_ss
    push di
    ret
    ret
change_ss       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_cy
;
;           DESCRIPTION:    Toggle CY
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_cy       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],1
    ret
toggle_cy       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_pa
;
;           DESCRIPTION:    Toggle PA
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_pa       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],4
    ret
toggle_pa       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_ac
;
;           DESCRIPTION:    Toggle AC
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_ac       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],10h
    ret
toggle_ac       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_zr
;
;           DESCRIPTION:    Toggle ZR
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_zr       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],40h
    ret
toggle_zr       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_pl
;
;           DESCRIPTION:    Toggle PL
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_pl       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],80h
    ret
toggle_pl       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_im
;
;           DESCRIPTION:    Toggle IM
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_im       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],200h
    ret
toggle_im       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_dir
;
;           DESCRIPTION:    Toggle DIR
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_dir      PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],400h
    ret
toggle_dir      ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_ov
;
;           DESCRIPTION:    Toggle OV
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_ov       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],800h
    ret
toggle_ov       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           toggle_nt
;
;           DESCRIPTION:    Toggle NT
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

toggle_nt       PROC near
    mov bx,OFFSET p_rflags
    xor word ptr gs:[bx],4000h
    ret
toggle_nt       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_do
;
;           DESCRIPTION:    Change memory
;
;           PARAMETERS:         GS              8086 TSS
;                           DX:ESI      address to data
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_do  PROC near
    mov cl,es:db_x
    sub cl,cs:[bx+debug_col]
    mov bx,gs
mem_do_next:
    cmp cl,3
    jc mem_do_alloc
    sub cl,3
    inc esi
    jmp mem_do_next
mem_do_alloc:
    cmp cl,2
    je mem_do_end
    xor cl,1
    push cx
    push OFFSET mem_do_free
    push di
    ret
mem_do_free:
    pop cx
    or cl,cl
    jnz mem_do_end
    inc es:db_x
mem_do_end:     
    ret
mem_do  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_ads
;
;           DESCRIPTION:    Change data memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_ads PROC near
    ret
mem_ads ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_cs
;
;           DESCRIPTION:    Change CS memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_cs  PROC near
    mov dx,gs:p_cs
    mov si,OFFSET p_rip
    mov esi,gs:[si]
    call mem_do
    ret
mem_cs  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_ss
;
;           DESCRIPTION:    Change SS memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_ss  PROC near
    mov dx,gs:p_ss
    mov si,OFFSET p_rsp
    mov esi,gs:[si]
    call mem_do
    ret
mem_ss  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_es
;
;           DESCRIPTION:    Change ES memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_es  PROC near
    mov dx,gs:p_es
    xor esi,esi
    call mem_do
    ret
mem_es  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_pm
;
;           DESCRIPTION:    Change PM memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_pm  PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,0
    mov dx,gs:p_pm_deb_sel
    mov esi,gs:p_pm_deb_offs
    call mem_do
    pop word ptr gs:p_rflags+2
    ret
mem_pm  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_pm_sel
;
;           DESCRIPTION:    Change PM selector
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_pm_sel   PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,0
    mov dx,gs
    and cl,3
    mov esi,OFFSET p_pm_deb_sel
    push cx
    push OFFSET change_pm_sel_ret
    push di
    ret
change_pm_sel_ret:
    pop cx
    or cl,cl
    jnz change_pm_sel_error
    inc es:db_x
change_pm_sel_error:
    pop word ptr gs:p_rflags+2
    ret
change_pm_sel   ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_pm_offs
;
;           DESCRIPTION:    Change PM offset
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_pm_offs  PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,0
    mov dx,gs
    mov esi,OFFSET p_pm_deb_offs
    push cx
    push OFFSET change_pm_offs_ret
    push di
    ret
change_pm_offs_ret:
    pop cx
    or cl,cl
    jnz change_pm_offs_error
    inc es:db_x
change_pm_offs_error:
    pop word ptr gs:p_rflags+2
    ret
change_pm_offs  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           mem_vm
;
;           DESCRIPTION:    Change VM memory
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

mem_vm  PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,2
    mov dx,gs:p_vm_deb_sel
    mov esi,gs:p_vm_deb_offs
    call mem_do
    pop word ptr gs:p_rflags+2
    ret
mem_vm  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_vm_sel
;
;           DESCRIPTION:    Change VM segment
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_vm_sel   PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,0
    mov dx,gs
    and cl,3
    mov esi,OFFSET p_vm_deb_sel
    push cx
    push OFFSET change_vm_sel_ret
    push di
    ret
change_vm_sel_ret:
    pop cx
    or cl,cl
    jnz change_vm_sel_error
    inc es:db_x
change_vm_sel_error:
    pop word ptr gs:p_rflags+2
    ret
change_vm_sel   ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           change_vm_offs
;
;           DESCRIPTION:    Change VM offset
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

change_vm_offs  PROC near
    push word ptr gs:p_rflags+2
    mov word ptr gs:p_rflags+2,0
    mov dx,gs
    mov esi,OFFSET p_vm_deb_offs
    push cx
    push OFFSET change_vm_offs_ret
    push di
    ret
change_vm_offs_ret:
    pop cx
    or cl,cl
    jnz change_vm_offs_error
    inc es:db_x
change_vm_offs_error:
    pop word ptr gs:p_rflags+2
    ret
change_vm_offs  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           DebugCall32
;
;           DESCRIPTION:    Modify registers, 32-bit version
;
;           PARAMETERS:         GS              8086 TSS
;                           DI              address to debug-function
;                           ch              digit / param
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
debug_table32:
;
;           rad     kolumn  antal   action
;
meax32 DW 9,          1,          3,          OFFSET incdec_eax
deax32 DW 9,          5,          8,          OFFSET change_eax
mebx32 DW 9,          14,         3,          OFFSET incdec_ebx
debx32 DW 9,          18,         8,          OFFSET change_ebx
mecx32 DW 9,          27,         3,          OFFSET incdec_ecx
decx32 DW 9,          31,         8,          OFFSET change_ecx
medx32 DW 9,          40,         3,          OFFSET incdec_edx
dedx32 DW 9,          44,         8,          OFFSET change_edx
mesi32 DW 10,         1,          3,          OFFSET incdec_esi
desi32 DW 10,         5,          8,          OFFSET change_esi
medi32 DW 10,         14,         3,          OFFSET incdec_edi
dedi32 DW 10,         18,         8,          OFFSET change_edi
mesp32 DW 10,         27,         3,          OFFSET incdec_esp
desp32 DW 10,         31,         8,          OFFSET change_esp
mebp32 DW 10,         40,         3,          OFFSET incdec_ebp
debp32 DW 10,         44,         8,          OFFSET change_ebp
mepc32 DW 11,         1,          3,          OFFSET incdec_epc
depc32 DW 11,         5,          8,          OFFSET change_epc
mcs32  DW 12,         1,          2,          OFFSET incdec_cs
dcs32  DW 12,         4,          4,          OFFSET change_cs
mds32  DW 12,         9,          2,          OFFSET incdec_ds
dds32  DW 12,         12,         4,          OFFSET change_ds
mes32  DW 12,         17,         2,          OFFSET incdec_es
des32  DW 12,         20,         4,          OFFSET change_es
mfs32  DW 12,         25,         2,          OFFSET incdec_fs
dfs32  DW 12,         28,         4,          OFFSET change_fs
mgs32  DW 12,         33,         2,          OFFSET incdec_gs
dgs32  DW 12,         36,         4,          OFFSET change_gs
mss32  DW 12,         41,         2,          OFFSET incdec_ss
dss32  DW 12,         44,         4,          OFFSET change_ss
dcy32  DW 13,         0,          2,          OFFSET toggle_cy
dpa32  DW 13,         3,          2,          OFFSET toggle_pa
dac32  DW 13,         6,          2,          OFFSET toggle_ac
dzr32  DW 13,         9,          2,          OFFSET toggle_zr
dplc32 DW 13,         12,         2,          OFFSET toggle_pl
disf32 DW 13,         15,         2,          OFFSET toggle_im
ddir32 DW 13,         18,         2,          OFFSET toggle_dir
dov32  DW 13,         21,         2,          OFFSET toggle_ov
dnt32  DW 13,         24,         2,          OFFSET toggle_nt
dgo32  DW 16,         0,          30,         OFFSET go_sw
dtra32 DW 17,         0,          40,         OFFSET trace_sw
dnex32 DW 17,         40,         40,         OFFSET next_sw
mdad32 DW 19,         14,         47,         OFFSET mem_ads
mdcs32 DW 20,         14,         47,         OFFSET mem_cs
mdss32 DW 21,         14,         47,         OFFSET mem_ss
mdes32 DW 22,         14,         47,         OFFSET mem_es
pms32  DW 23,         0,          4,          OFFSET change_pm_sel
pmo32  DW 23,         5,          8,          OFFSET change_pm_offs
pdat32 DW 23,         14,         47,         OFFSET mem_pm
vms32  DW 24,         0,          4,          OFFSET change_vm_sel
vmo32  DW 24,         5,          8,          OFFSET change_vm_offs
vdat32 DW 24,         14,         47,         OFFSET mem_vm
dend32 DW 0FFFFh, 0FFFFh

debug_row       EQU 0
debug_col       EQU 2
debug_ant       EQU 4
debug_call      EQU 6
debug_size      EQU 8

DebugCallDo32     PROC near
    mov al,es:db_x
    mov ah,es:db_y
    mov bx,OFFSET debug_table32

d_c_loop32:
    mov cl,cs:[bx+debug_row]
    cmp cl,0FFh
    je d_c_end32
    cmp cl,ah
    jne not_this_entry32
    mov cl,al
    sub cl,cs:[bx+debug_col]
    cmp cl,cs:[bx+debug_ant]
    jnc not_this_entry32
    xor cl,7
    and cl,7
    mov al,es:db_op
    call word ptr cs:[bx+debug_call]
    jmp d_c_end32
not_this_entry32:
    add bx,debug_size
    jmp d_c_loop32
d_c_end32:
    call DefaultReply
    ret
DebugCallDo32     ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           inc_sw32
;
;           DESCRIPTION:    Inc 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

inc_sw32  PROC near
    mov di,OFFSET interact_incr
    call DebugCallDo32
    ret
inc_sw32  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           dec_sw32
;
;           DESCRIPTION:    Dec 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dec_sw32  PROC near
    mov di,OFFSET interact_decr
    call DebugCallDo32
    ret
dec_sw32  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           setx_sw32
;
;           DESCRIPTION:    Set 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

set_base_sw32     PROC near
    mov di,OFFSET interact_set
    call DebugCallDo32
    ret
set_base_sw32     ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           DebugCall64
;
;           DESCRIPTION:    Modify registers, 64-bit version
;
;           PARAMETERS:         GS              8086 TSS
;                           DI              address to debug-function
;                           ch              digit / param
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
debug_table64:
;
;           rad     kolumn  antal   action
;
mrax   DW 6,          1,          3,          OFFSET incdec_rax
draxh  DW 6,          5,          8,          OFFSET change_raxh
draxl  DW 6,          14,         8,          OFFSET change_raxl
mrbx   DW 6,          23,         3,          OFFSET incdec_rbx
drbxh  DW 6,          27,         8,          OFFSET change_rbxh
drbxl  DW 6,          36,         8,          OFFSET change_rbxl
mrcx   DW 6,          45,         3,          OFFSET incdec_rcx
drcxh  DW 6,          49,         8,          OFFSET change_rcxh
drcxl  DW 6,          58,         8,          OFFSET change_rcxl
mrdx   DW 7,          1,          3,          OFFSET incdec_rdx
drdxh  DW 7,          5,          8,          OFFSET change_rdxh
drdxl  DW 7,          14,         8,          OFFSET change_rdxl
mrsi   DW 7,          23,         3,          OFFSET incdec_rsi
drsih  DW 7,          27,         8,          OFFSET change_rsih
drsil  DW 7,          36,         8,          OFFSET change_rsil
mrdi   DW 7,          45,         3,          OFFSET incdec_rdi
drdih  DW 7,          49,         8,          OFFSET change_rdih
drdil  DW 7,          58,         8,          OFFSET change_rdil
mr8    DW 8,          2,          2,          OFFSET incdec_r8
dr8h   DW 8,          5,          8,          OFFSET change_r8h
dr8l   DW 8,          14,         8,          OFFSET change_r8l
mr9    DW 8,          24,         2,          OFFSET incdec_r9
dr9h   DW 8,          27,         8,          OFFSET change_r9h
dr9l   DW 8,          36,         8,          OFFSET change_r9l
mr10   DW 8,          45,         3,          OFFSET incdec_r10
dr10h  DW 8,          49,         8,          OFFSET change_r10h
dr10l  DW 8,          58,         8,          OFFSET change_r10l
mr11   DW 9,          1,          3,          OFFSET incdec_r11
dr11h  DW 9,          5,          8,          OFFSET change_r11h
dr11l  DW 9,          14,         8,          OFFSET change_r11l
mr12   DW 9,          23,         3,          OFFSET incdec_r12
dr12h  DW 9,          27,         8,          OFFSET change_r12h
dr12l  DW 9,          36,         8,          OFFSET change_r12l
mr13   DW 9,          45,         3,          OFFSET incdec_r13
dr13h  DW 9,          49,         8,          OFFSET change_r13h
dr13l  DW 9,          58,         8,          OFFSET change_r13l
mr14   DW 10,         1,          3,          OFFSET incdec_r14
dr14h  DW 10,         5,          8,          OFFSET change_r14h
dr14l  DW 10,         14,         8,          OFFSET change_r14l
mr15   DW 10,         23,         3,          OFFSET incdec_r15
dr15h  DW 10,         27,         8,          OFFSET change_r15h
dr15l  DW 10,         36,         8,          OFFSET change_r15l
mrip64 DW 11,         1,          3,          OFFSET incdec_rip
driph  DW 11,         5,          8,          OFFSET change_riph
dripl  DW 11,         14,         8,          OFFSET change_ripl
mrsp64 DW 11,         23,         3,          OFFSET incdec_rsp
drsph  DW 11,         27,         8,          OFFSET change_rsph
drspl  DW 11,         36,         8,          OFFSET change_rspl
mrsb64 DW 11,         45,         3,          OFFSET incdec_rbp
drbph  DW 11,         49,         8,          OFFSET change_rbph
drbpl  DW 11,         58,         8,          OFFSET change_rbpl
mcs64  DW 12,         1,          2,          OFFSET incdec_cs
dcs64  DW 12,         4,          4,          OFFSET change_cs
mds64  DW 12,         9,          2,          OFFSET incdec_ds
dds64  DW 12,         12,         4,          OFFSET change_ds
mes64  DW 12,         17,         2,          OFFSET incdec_es
des64  DW 12,         20,         4,          OFFSET change_es
mfs64  DW 12,         25,         2,          OFFSET incdec_fs
dfs64  DW 12,         28,         4,          OFFSET change_fs
mgs64  DW 12,         33,         2,          OFFSET incdec_gs
dgs64  DW 12,         36,         4,          OFFSET change_gs
mss64  DW 12,         41,         2,          OFFSET incdec_ss
dss64  DW 12,         44,         4,          OFFSET change_ss
dcy64  DW 13,         0,          2,          OFFSET toggle_cy
dpa64  DW 13,         3,          2,          OFFSET toggle_pa
dac64  DW 13,         6,          2,          OFFSET toggle_ac
dzr64  DW 13,         9,          2,          OFFSET toggle_zr
dplc64 DW 13,         12,         2,          OFFSET toggle_pl
disf64 DW 13,         15,         2,          OFFSET toggle_im
ddir64 DW 13,         18,         2,          OFFSET toggle_dir
dov64  DW 13,         21,         2,          OFFSET toggle_ov
dnt64  DW 13,         24,         2,          OFFSET toggle_nt
dgo64  DW 16,         0,          30,         OFFSET go_sw
dtra64 DW 17,         0,          40,         OFFSET trace_sw
dnex64 DW 17,         40,         40,         OFFSET next_sw
mdad64 DW 19,         14,         47,         OFFSET mem_ads
mdcs64 DW 20,         14,         47,         OFFSET mem_cs
mdss64 DW 21,         14,         47,         OFFSET mem_ss
mdes64 DW 22,         14,         47,         OFFSET mem_es
pms64  DW 23,         0,          4,          OFFSET change_pm_sel
pmo64  DW 23,         5,          8,          OFFSET change_pm_offs
pdat64 DW 23,         14,         47,         OFFSET mem_pm
vms64  DW 24,         0,          4,          OFFSET change_vm_sel
vmo64  DW 24,         5,          8,          OFFSET change_vm_offs
vdat64 DW 24,         14,         47,         OFFSET mem_vm
dend64 DW 0FFFFh, 0FFFFh

DebugCallDo64     PROC near
    mov al,es:db_x
    mov ah,es:db_y
    mov bx,OFFSET debug_table64

d_c_loop64:
    mov cl,cs:[bx+debug_row]
    cmp cl,0FFh
    je d_c_end64
    cmp cl,ah
    jne not_this_entry64
    mov cl,al
    sub cl,cs:[bx+debug_col]
    cmp cl,cs:[bx+debug_ant]
    jnc not_this_entry64
    xor cl,7
    and cl,7
    mov al,es:db_op
    call word ptr cs:[bx+debug_call]
    jmp d_c_end64
not_this_entry64:
    add bx,debug_size
    jmp d_c_loop64
d_c_end64:
    call DefaultReply
    ret
DebugCallDo64     ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           inc_sw64
;
;           DESCRIPTION:    Inc 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

inc_sw64  PROC near
    mov di,OFFSET interact_incr
    call DebugCallDo64
    ret
inc_sw64  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           dec_sw64
;
;           DESCRIPTION:    Dec 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

dec_sw64  PROC near
    mov di,OFFSET interact_decr
    call DebugCallDo64
    ret
dec_sw64  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           setx_sw64
;
;           DESCRIPTION:    Set 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

set_base_sw64     PROC near
    mov di,OFFSET interact_set
    call DebugCallDo64
    ret
set_base_sw64     ENDP

inc_sw  PROC near
    mov ax,gs:p_tss_sel
    or ax,ax
    jz inc_sw64
    jmp inc_sw32
inc_sw  ENDP

dec_sw  PROC near
    mov ax,gs:p_tss_sel
    or ax,ax
    jz dec_sw64
    jmp dec_sw32
dec_sw  ENDP

set0_sw PROC near
    mov ch,0
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set0_sw ENDP

set1_sw PROC near
    mov ch,1
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set1_sw ENDP

set2_sw PROC near
    mov ch,2
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set2_sw ENDP

set3_sw PROC near
    mov ch,3
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set3_sw ENDP

set4_sw PROC near
    mov ch,4
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set4_sw ENDP

set5_sw PROC near
    mov ch,5
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set5_sw ENDP

set6_sw PROC near
    mov ch,6
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set6_sw ENDP

set7_sw PROC near
    mov ch,7
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set7_sw ENDP

set8_sw PROC near
    mov ch,8
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set8_sw ENDP

set9_sw PROC near
    mov ch,9
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
set9_sw ENDP

setA_sw PROC near
    mov ch,0Ah
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setA_sw ENDP

setB_sw PROC near
    mov ch,0Bh
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setB_sw ENDP

setC_sw PROC near
    mov ch,0Ch
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setC_sw ENDP

setD_sw PROC near
    mov ch,0Dh
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setD_sw ENDP

setE_sw PROC near
    mov ch,0Eh
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setE_sw ENDP

setF_sw PROC near
    mov ch,0Fh
    mov ax,gs:p_tss_sel
    or ax,ax
    jz set_base_sw64
    jmp set_base_sw32
setF_sw ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           go_sw
;
;           DESCRIPTION:    Go
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

go_sw   PROC near
    DebugGo
    call DefaultReply
    ret
go_sw   ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           trace_sw
;
;           DESCRIPTION:    Trace
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

trace_sw    PROC near
    DebugTrace
    call DefaultReply
    ret
trace_sw    ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           pace_sw
;
;           DESCRIPTION:    Pace 
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

pace_sw PROC near
    DebugPace
    call DefaultReply
    ret
pace_sw ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           reg_sw
;
;           DESCRIPTION:    Return registers switch
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

reg_sw  PROC near
    call DefaultReply
    ret
reg_sw  ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           next_sw
;
;           DESCRIPTION:    Next thread switch
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

next_sw PROC near
    DebugNext
    call DefaultReply
    ret
next_sw ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           error_sw
;
;           DESCRIPTION:    Undefined switch
;
;           PARAMETERS:         GS              8086 TSS
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

error_sw    PROC near
    call DefaultReply
    ret
error_sw    ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           HandleMsg
;
;           DESCRIPTION:    Handle a message
;
;           PARAMETERS:         ES          Message buffer
;                           CX          Message size
;
;           RETURNS:        CX          Reply size
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    
virt_sw_func_tab:
vs_00   DW OFFSET error_sw
vs_01   DW OFFSET req_thread
vs_02   DW OFFSET req_data
vs_03   DW OFFSET req_info
vs_04   DW OFFSET req_instr
vs_05   DW OFFSET error_sw
vs_06   DW OFFSET error_sw
vs_07   DW OFFSET error_sw
vs_08   DW OFFSET error_sw
vs_09   DW OFFSET error_sw
vs_0A   DW OFFSET error_sw
vs_0B   DW OFFSET error_sw
vs_0C   DW OFFSET error_sw
vs_0D   DW OFFSET error_sw
vs_0E   DW OFFSET error_sw
vs_0F   DW OFFSET error_sw
vs_10   DW OFFSET error_sw
vs_11   DW OFFSET error_sw
vs_12   DW OFFSET error_sw
vs_13   DW OFFSET error_sw
vs_14   DW OFFSET error_sw
vs_15   DW OFFSET error_sw
vs_16   DW OFFSET error_sw
vs_17   DW OFFSET error_sw
vs_18   DW OFFSET error_sw
vs_19   DW OFFSET error_sw
vs_1A   DW OFFSET error_sw
vs_1B   DW OFFSET error_sw
vs_1C   DW OFFSET error_sw
vs_1D   DW OFFSET error_sw
vs_1E   DW OFFSET error_sw
vs_1F   DW OFFSET error_sw
vs_20   DW OFFSET error_sw
vs_21   DW OFFSET error_sw
vs_22   DW OFFSET error_sw
vs_23   DW OFFSET error_sw
vs_24   DW OFFSET error_sw
vs_25   DW OFFSET error_sw
vs_26   DW OFFSET error_sw
vs_27   DW OFFSET error_sw
vs_28   DW OFFSET error_sw
vs_29   DW OFFSET error_sw
vs_2A   DW OFFSET error_sw
vs_2B   DW OFFSET inc_sw
vs_2C   DW OFFSET error_sw
vs_2D   DW OFFSET dec_sw
vs_2E   DW OFFSET error_sw
vs_2F   DW OFFSET error_sw
vs_30   DW OFFSET set0_sw
vs_31   DW OFFSET set1_sw
vs_32   DW OFFSET set2_sw
vs_33   DW OFFSET set3_sw
vs_34   DW OFFSET set4_sw
vs_35   DW OFFSET set5_sw
vs_36   DW OFFSET set6_sw
vs_37   DW OFFSET set7_sw
vs_38   DW OFFSET set8_sw
vs_39   DW OFFSET set9_sw
vs_3A   DW OFFSET error_sw
vs_3B   DW OFFSET error_sw
vs_3C   DW OFFSET error_sw
vs_3D   DW OFFSET error_sw
vs_3E   DW OFFSET error_sw
vs_3F   DW OFFSET error_sw
vs_40   DW OFFSET error_sw
vs_41   DW OFFSET setA_sw
vs_42   DW OFFSET setB_sw
vs_43   DW OFFSET setC_sw
vs_44   DW OFFSET setD_sw
vs_45   DW OFFSET setE_sw
vs_46   DW OFFSET setF_sw
vs_47   DW OFFSET go_sw
vs_48   DW OFFSET error_sw
vs_49   DW OFFSET error_sw
vs_4A   DW OFFSET error_sw
vs_4B   DW OFFSET error_sw
vs_4C   DW OFFSET error_sw
vs_4D   DW OFFSET error_sw
vs_4E   DW OFFSET next_sw
vs_4F   DW OFFSET error_sw
vs_50   DW OFFSET pace_sw
vs_51   DW OFFSET error_sw
vs_52   DW OFFSET reg_sw
vs_53   DW OFFSET error_sw
vs_54   DW OFFSET trace_sw
vs_55   DW OFFSET error_sw
vs_56   DW OFFSET error_sw
vs_57   DW OFFSET error_sw
vs_58   DW OFFSET error_sw
vs_59   DW OFFSET error_sw
vs_5A   DW OFFSET error_sw
vs_5B   DW OFFSET error_sw
vs_5C   DW OFFSET error_sw
vs_5D   DW OFFSET error_sw
vs_5E   DW OFFSET error_sw
vs_5F   DW OFFSET error_sw
vs_60   DW OFFSET error_sw
vs_61   DW OFFSET setA_sw
vs_62   DW OFFSET setB_sw
vs_63   DW OFFSET setC_sw
vs_64   DW OFFSET setD_sw
vs_65   DW OFFSET setE_sw
vs_66   DW OFFSET setF_sw
vs_67   DW OFFSET go_sw
vs_68   DW OFFSET error_sw
vs_69   DW OFFSET error_sw
vs_6A   DW OFFSET error_sw
vs_6B   DW OFFSET error_sw
vs_6C   DW OFFSET error_sw
vs_6D   DW OFFSET error_sw
vs_6E   DW OFFSET next_sw
vs_6F   DW OFFSET error_sw
vs_70   DW OFFSET pace_sw
vs_71   DW OFFSET error_sw
vs_72   DW OFFSET reg_sw
vs_73   DW OFFSET error_sw
vs_74   DW OFFSET trace_sw
vs_75   DW OFFSET error_sw
vs_76   DW OFFSET error_sw
vs_77   DW OFFSET error_sw
vs_78   DW OFFSET error_sw
vs_79   DW OFFSET error_sw
vs_7A   DW OFFSET error_sw
vs_7B   DW OFFSET error_sw
vs_7C   DW OFFSET error_sw
vs_7D   DW OFFSET error_sw
vs_7E   DW OFFSET error_sw
vs_7F   DW OFFSET error_sw
vs_80   DW OFFSET error_sw
vs_81   DW OFFSET error_sw
vs_82   DW OFFSET error_sw
vs_83   DW OFFSET error_sw
vs_84   DW OFFSET error_sw
vs_85   DW OFFSET error_sw
vs_86   DW OFFSET error_sw
vs_87   DW OFFSET error_sw
vs_88   DW OFFSET error_sw
vs_89   DW OFFSET error_sw
vs_8A   DW OFFSET error_sw
vs_8B   DW OFFSET error_sw
vs_8C   DW OFFSET error_sw
vs_8D   DW OFFSET error_sw
vs_8E   DW OFFSET error_sw
vs_8F   DW OFFSET error_sw
vs_90   DW OFFSET error_sw
vs_91   DW OFFSET error_sw
vs_92   DW OFFSET error_sw
vs_93   DW OFFSET error_sw
vs_94   DW OFFSET error_sw
vs_95   DW OFFSET error_sw
vs_96   DW OFFSET error_sw
vs_97   DW OFFSET error_sw
vs_98   DW OFFSET error_sw
vs_99   DW OFFSET error_sw
vs_9A   DW OFFSET error_sw
vs_9B   DW OFFSET error_sw
vs_9C   DW OFFSET error_sw
vs_9D   DW OFFSET error_sw
vs_9E   DW OFFSET error_sw
vs_9F   DW OFFSET error_sw
vs_A0   DW OFFSET error_sw
vs_A1   DW OFFSET error_sw
vs_A2   DW OFFSET error_sw
vs_A3   DW OFFSET error_sw
vs_A4   DW OFFSET error_sw
vs_A5   DW OFFSET error_sw
vs_A6   DW OFFSET error_sw
vs_A7   DW OFFSET error_sw
vs_A8   DW OFFSET error_sw
vs_A9   DW OFFSET error_sw
vs_AA   DW OFFSET error_sw
vs_AB   DW OFFSET error_sw
vs_AC   DW OFFSET error_sw
vs_AD   DW OFFSET error_sw
vs_AE   DW OFFSET error_sw
vs_AF   DW OFFSET error_sw
vs_B0   DW OFFSET error_sw
vs_B1   DW OFFSET error_sw
vs_B2   DW OFFSET error_sw
vs_B3   DW OFFSET error_sw
vs_B4   DW OFFSET error_sw
vs_B5   DW OFFSET error_sw
vs_B6   DW OFFSET error_sw
vs_B7   DW OFFSET error_sw
vs_B8   DW OFFSET error_sw
vs_B9   DW OFFSET error_sw
vs_BA   DW OFFSET error_sw
vs_BB   DW OFFSET error_sw
vs_BC   DW OFFSET error_sw
vs_BD   DW OFFSET error_sw
vs_BE   DW OFFSET error_sw
vs_BF   DW OFFSET error_sw
vs_C0   DW OFFSET error_sw
vs_C1   DW OFFSET error_sw
vs_C2   DW OFFSET error_sw
vs_C3   DW OFFSET error_sw
vs_C4   DW OFFSET error_sw
vs_C5   DW OFFSET error_sw
vs_C6   DW OFFSET error_sw
vs_C7   DW OFFSET error_sw
vs_C8   DW OFFSET error_sw
vs_C9   DW OFFSET error_sw
vs_CA   DW OFFSET error_sw
vs_CB   DW OFFSET error_sw
vs_CC   DW OFFSET error_sw
vs_CD   DW OFFSET error_sw
vs_CE   DW OFFSET error_sw
vs_CF   DW OFFSET error_sw
vs_D0   DW OFFSET error_sw
vs_D1   DW OFFSET error_sw
vs_D2   DW OFFSET error_sw
vs_D3   DW OFFSET error_sw
vs_D4   DW OFFSET error_sw
vs_D5   DW OFFSET error_sw
vs_D6   DW OFFSET error_sw
vs_D7   DW OFFSET error_sw
vs_D8   DW OFFSET error_sw
vs_D9   DW OFFSET error_sw
vs_DA   DW OFFSET error_sw
vs_DB   DW OFFSET error_sw
vs_DC   DW OFFSET error_sw
vs_DD   DW OFFSET error_sw
vs_DE   DW OFFSET error_sw
vs_DF   DW OFFSET error_sw
vs_E0   DW OFFSET error_sw
vs_E1   DW OFFSET error_sw
vs_E2   DW OFFSET error_sw
vs_E3   DW OFFSET error_sw
vs_E4   DW OFFSET error_sw
vs_E5   DW OFFSET error_sw
vs_E6   DW OFFSET error_sw
vs_E7   DW OFFSET error_sw
vs_E8   DW OFFSET error_sw
vs_E9   DW OFFSET error_sw
vs_EA   DW OFFSET error_sw
vs_EB   DW OFFSET error_sw
vs_EC   DW OFFSET error_sw
vs_ED   DW OFFSET error_sw
vs_EE   DW OFFSET error_sw
vs_EF   DW OFFSET error_sw
vs_F0   DW OFFSET error_sw
vs_F1   DW OFFSET error_sw
vs_F2   DW OFFSET error_sw
vs_F3   DW OFFSET error_sw
vs_F4   DW OFFSET error_sw
vs_F5   DW OFFSET error_sw
vs_F6   DW OFFSET error_sw
vs_F7   DW OFFSET error_sw
vs_F8   DW OFFSET error_sw
vs_F9   DW OFFSET error_sw
vs_FA   DW OFFSET error_sw
vs_FB   DW OFFSET error_sw
vs_FC   DW OFFSET error_sw
vs_FD   DW OFFSET error_sw
vs_FE   DW OFFSET error_sw
vs_FF   DW OFFSET error_sw

DebugFunc       Proc near
    push gs
    push di
    mov al,es:db_op
    cmp al,'n'
    je debug_next
;
    cmp al,'N'
    je debug_next 
;
    push ax
    GetDebugThreadSel
    mov bx,ax
    pop ax

debug_do:
    or bx,bx
    jz debug_err
;
    mov ds,bx
    mov gs,bx

debug_next:
    movzx bx,al
    add bx,bx
    call word ptr cs:[bx].virt_sw_func_tab
    jmp debug_end

debug_err:
    call DefaultReply

debug_end:
    pop di
    pop gs
    ret
DebugFunc       ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           DebugThread
;
;           DESCRIPTION:    IPC Debug thread
;
;           PARAMETERS:         
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

debug_thread_name           DB 'IPC Debug',0
mailslot_name           DB 'Debug',0

debug_thread_pr:
    mov ax,cs
    mov es,ax
    mov di,OFFSET mailslot_name
    mov cx,1000h
    DefineMailslot
;
    movzx eax,cx
    AllocateGlobalMem

debug_thread_loop:
    xor di,di
    ReceiveMailslot
    call DebugFunc
    jmp debug_thread_loop

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           init_system
;
;           DESCRIPTION:    Init system
;
;           PARAMETERS:         
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

init_system     PROC far
    push ds
    push es
    pusha
    mov ax,cs
    mov ds,ax
    mov es,ax
    mov si,OFFSET debug_thread_pr
    mov di,OFFSET debug_thread_name
    mov cx,stack0_size
    mov ax,26
    CreateThread
    popa
    pop es
    pop ds
    retf32
init_system     ENDP

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;
;           NAME:           init
;
;           DESCRIPTION:    Init
;
;           PARAMETERS:         
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    public init_ipc_debug
    
init_ipc_debug  PROC near
    mov ax,cs
    mov es,ax
    mov edi,OFFSET init_system
    HookInitTasking
    ret
init_ipc_debug    ENDP

code    ENDS

    END