Metropoli BBS
VIEWER: kb.inc MODE: TEXT (CP437)
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
;
;   ░▒▓ (CEVS) Cross-Eyed Viking Solutions ▓▒░
;
;   Keyboard Handler 1.0 for real mode.
;   Port of Tran's Excellent PMODE 2.4 Keyboard Handler.
;   Lorne Kirkland Chartier (1996) - public domain.
;
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░

;
;  Common Keyboard Defines
;

kbf1            equ 01h
kbf2            equ 02h
kbf3            equ 03h
kbf4            equ 04h
kbf5            equ 05h
kbf6            equ 06h
kbf7            equ 07h
kbf8            equ 08h
kbf9            equ 09h
kbf10           equ 0ah
kbf11           equ 0bh
kbf12           equ 0ch
kbenter         equ 0dh                         ; enter
kbesc           equ 0eh                         ; escape
kbtab           equ 0fh                         ; tab
kbbs            equ 10h                         ; backspace
kbins           equ 11h                         ; insert
kbdel           equ 12h                         ; delete
kbhome          equ 13h                         ; home
kbend           equ 14h                         ; end
kbpgup          equ 15h                         ; page up
kbpgdn          equ 16h                         ; page down
kbleft          equ 17h
kbright         equ 18h
kbup            equ 19h
kbdown          equ 1ah

kbcaplock       equ 0f6h                        ; capslock
kbnumlock       equ 0f5h                        ; numlock
kbscrlock       equ 0f4h                        ; scrlock

; extended defines (test in ax)
kbpause         equ 04f3h                       ; pause
kbprtscr        equ 012ah                       ; print screen

;
;  Flag Bits
;

kbshift         equ 1
kbalt           equ 2
kbctrl          equ 4


;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
;
;    Functions
;
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░

extrn           pascal kbinit:far
extrn           pascal kbdnit:far
extrn           pascal kbget:far
extrn           pascal kbgetn:far

[ RETURN TO DIRECTORY ]