1 files changed, 76 insertions, 0 deletions

diff --git a/v4.0/src/MAPPER/KBDGSTAT.ASM b/v4.0/src/MAPPER/KBDGSTAT.ASM
new file mode 100644
index 0000000..078fd5d
--- /dev/null
+++ b/v4.0/src/MAPPER/KBDGSTAT.ASM
@@ -0,0 +1,76 @@
+;0
+page 80,132
+;
+title CP/DOS KbdGetStatus
+;
+        .sall
+        .xlist
+        include kbd.inc
+        .list
+
+kbddata segment word public 'kbddata'
+
+                public  KbdBitMask
+KbdBitMask      dw      CookedModeOn or EchoOn
+
+                public  KbdTurnAroundCharacter
+KbdTurnAroundCharacter  dw      0dh
+
+                public  KbdInterimCharFlags
+KbdInterimCharFlags     dw      0
+
+kbddata ends
+
+kbdxxx  segment byte public 'kbd'
+        assume  cs:kbdxxx,ds:nothing,es:nothing,ss:nothing
+;
+; ************************************************************************* *
+; *
+; *      MODULE:  kbdGetStatus
+; *
+; *      CALLING SEQUENCE:
+; *
+; *
+; *************************************************************************
+
+        public kbdgetstatus
+
+str     struc
+old_bp  dw      ?
+return  dd      ?
+handle  dw      ?      ; kbd handle
+data    dd      ?      ; data area pointer
+str     ends
+
+kbdgetstatus    proc    far
+
+        Enter   KbdGetStatus            ; push registers
+
+        les     di,[bp].data            ; setup area where status is
+                                        ; returned
+        mov     ax,seg kbddata
+        mov     ds,ax
+        assume  ds:kbddata
+
+        mov     ax,KbdBitMask                    ; save kbd bit mask in
+        mov     es:[di].Bit_Mask,ax              ; return data area
+
+        mov     ax,KbdTurnAroundCharacter        ; save turn around character
+        mov     es:[di].Turn_Around_Char,ax
+
+        mov     ax,KbdInterimCharFlags           ; save interim character flag
+        mov     es:[di].Interim_Char_Flags,ax
+
+        mov     ah,2
+        int     16h                              ; get kbd shift status
+
+        xor     ah,ah
+        mov     es:[di].Status_Shift_State,ax    ; save it in return data
+                                                 ; area
+        Mexit                                    ; restore registers
+
+        ret     size str - 6                     ; return
+
+kbdgetstatus    endp
+kbdxxx  ends
+        end