home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
assemblr
/
library
/
lib4a86
/
lib
/
keys.mab
< prev
next >
Wrap
Text File
|
1992-02-02
|
4KB
|
248 lines
#IF !BASEFUNCTIONNUMBER
BASEFUNCTIONNUMBER EQU 00H
#ENDIF
BEL EQU 07H
BS EQU 08H
TAB EQU 09H
LF EQU 0AH
CR EQU 0DH
BACKTAB EQU 0FH
ESC EQU 1BH
BLANK EQU 20H
__CTRL_A EQU 01H
__CTRL_B EQU 02H
__CTRL_C EQU 03H
__CTRL_D EQU 04H
__CTRL_E EQU 05H
__CTRL_F EQU 06H
__CTRL_G EQU 07H
__CTRL_H EQU 08H
__CTRL_I EQU 09H
__CTRL_J EQU 0AH
__CTRL_K EQU 0BH
__CTRL_L EQU 0CH
__CTRL_M EQU 0DH
__CTRL_N EQU 0EH
__CTRL_O EQU 0FH
__CTRL_P EQU 10H
__CTRL_Q EQU 11H
__CTRL_R EQU 12H
__CTRL_S EQU 13H
__CTRL_T EQU 14H
__CTRL_U EQU 15H
__CTRL_V EQU 16H
__CTRL_W EQU 17H
__CTRL_X EQU 18H
__CTRL_Y EQU 19H
__CTRL_Z EQU 1AH
__ALT_ESC EQU 001H
__BACK_TAB EQU 0F0H
__ALT_Q EQU 010H
__ALT_W EQU 011H
__ALT_E EQU 012H
__ALT_R EQU 013H
__ALT_T EQU 014H
__ALT_Z EQU 015H
__ALT_U EQU 016H
__ALT_I EQU 017H
__ALT_O EQU 018H
__ALT_P EQU 019H
__ALT_UE EQU 01AH
__ALT_PLUS EQU 01BH
__ALT_CR EQU 01CH
__ALT_A EQU 01EH
__ALT_S EQU 01FH
__ALT_D EQU 020H
__ALT_F EQU 021H
__ALT_G EQU 022H
__ALT_H EQU 023H
__ALT_J EQU 024H
__ALT_K EQU 025H
__ALT_L EQU 026H
__ALT_OE EQU 027H
__ALT_AE EQU 028H
__ALT_Y EQU 02CH
__ALT_X EQU 02DH
__ALT_C EQU 02EH
__ALT_V EQU 02FH
__ALT_B EQU 030H
__ALT_N EQU 031H
__ALT_M EQU 032H
__ALT_KOMMA EQU 033H
__ALT_PUNKT EQU 034H
__ALT_BINDESTRICH EQU 035H
__ALT_GPLUS EQU 037H
__F1 EQU 03BH
__F2 EQU 03CH
__F3 EQU 03DH
__F4 EQU 03EH
__F5 EQU 03FH
__F6 EQU 040H
__F7 EQU 041H
__F8 EQU 042H
__F9 EQU 043H
__F10 EQU 044H
__HOME EQU 047H
__CURSORUP EQU 048H
__PAGEUP EQU 049H
__ALT_GMINUS EQU 04AH
__CURSORLEFT EQU 04BH
__CENTER_CURSOR EQU 04CH
__CURSORRIGHT EQU 04DH
__END EQU 04FH
__CURSORDOWN EQU 050H
__PAGEDOWN EQU 051H
__INSERT EQU 052H
__DELETE EQU 053H
__SHIFT_F1 EQU 054H
__SHIFT_F2 EQU 055H
__SHIFT_F3 EQU 056H
__SHIFT_F4 EQU 057H
__SHIFT_F5 EQU 058H
__SHIFT_F6 EQU 059H
__SHIFT_F7 EQU 05AH
__SHIFT_F8 EQU 05BH
__SHIFT_F9 EQU 05CH
__SHIFT_F10 EQU 05DH
__CTRL_F1 EQU 05EH
__CTRL_F2 EQU 05FH
__CTRL_F3 EQU 060H
__CTRL_F4 EQU 061H
__CTRL_F5 EQU 062H
__CTRL_F6 EQU 063H
__CTRL_F7 EQU 064H
__CTRL_F8 EQU 065H
__CTRL_F9 EQU 066H
__CTRL_F10 EQU 067H
__ALT_F1 EQU 068H
__ALT_F2 EQU 069H
__ALT_F3 EQU 06AH
__ALT_F4 EQU 06BH
__ALT_F5 EQU 06CH
__ALT_F6 EQU 06DH
__ALT_F7 EQU 06EH
__ALT_F8 EQU 06FH
__ALT_F9 EQU 070H
__ALT_F10 EQU 071H
__CTRL_PRTSCR EQU 072H
__CTRL_CURL EQU 073H
__CTRL_CURR EQU 074H
__CTRL_END EQU 075H
__CTRL_PGDN EQU 076H
__CTRL_HOME EQU 077H
__ALT_1 EQU 078H
__ALT_2 EQU 079H
__ALT_3 EQU 07AH
__ALT_4 EQU 07BH
__ALT_5 EQU 07CH
__ALT_6 EQU 07DH
__ALT_7 EQU 07EH
__ALT_8 EQU 07FH
__ALT_9 EQU 080H
__ALT_0 EQU 081H
__ALT_SZ EQU 082H
__ALT_HKOMMA EQU 083H
__CTRL_PGUP EQU 084H
__F11 EQU 085H
__F12 EQU 086H
__SHIFT_F11 EQU 087H
__SHIFT_F12 EQU 088H
__CTRL_F11 EQU 089H
__CTRL_F12 EQU 08AH
__ALT_F11 EQU 08BH
__ALT_F12 EQU 08CH
__CTRL_NPUP EQU 08DH
__CTRL_NPMINUS EQU 08EH
__CTRL_NPFUENF EQU 08FH
__CTRL_NPPLUS EQU 090H
__CTRL_NPDOWN EQU 091H
__CTRL_NPINS EQU 092H
__CTRL_NPDEL EQU 093H
__CTRL_TAB EQU 094H
__CTRL_NPSLASH EQU 095H
__CTRL_NPSTERN EQU 096H
__ALT_HOME EQU 097H
__ALT_UP EQU 098H
__ALT_PAGEUP EQU 099H
__ALT_LEFT EQU 09BH
__ALT_RIGHT EQU 09DH
__ALT_END EQU 09FH
__ALT_DOWN EQU 0A0H
__ALT_PAGEDOWN EQU 0A1H
__ALT_INSERT EQU 0A2H
__ALT_DELETE EQU 0A3H
__ALT_NP_SCHRAEGSTRICH EQU 0A4H
__ALT_TAB EQU 0A5H
__ALT_ENTER EQU 0A6H
FUNCTIONKEY? MACRO
OR AL,AL
JZ >M1
CMP AL,0E0H
JZ >M2
CMP AL,0F0H
JNZ >M1
M2:
OR AH,AH
JZ >M20
TEST AL,0
JMP >M1
M20:
OR AL,AL
M1:
#EM
KEYPRESSED MACRO
MOV AH,(BASEFUNCTIONNUMBER + 1)
INT 016H
#EM
READKEY MACRO
MOV AH, BASEFUNCTIONNUMBER
INT 16H
#EM
INKEY MACRO
KEYPRESSED
JZ >M1
READKEY
OR AX,AX
M1:
#EM
GETKBDSTATUS MACRO
MOV AH,(BASEFUNCTIONNUMBER + 2)
INT 016H
#EM
CTRLPRESSED? MACRO
GETKBDSTATUS
TEST AL,04H
#EM
ALTPRESSED? MACRO
GETKBDSTATUS
TEST AL,08H
#EM
RIGHTSHIFTPRESSED? MACRO
GETKBDSTATUS
TEST AL,01H
#EM
LEFTSHIFTPRESSED? MACRO
GETKBDSTATUS
TEST AL,02H
#EM
SHIFTPRESSED? MACRO
GETKBDSTATUS
TEST AL,03H
#EM
SCROLLLOCKAKTIV? MACRO
GETKBDSTATUS
TEST AL,10H
#EM
NUMLOCKAKTIV? MACRO
GETKBDSTATUS
TEST AL,20H
#EM
INSERTAKTIV? MACRO
GETKBDSTATUS
TEST AL,80H
#EM
CAPSLOCKAKTIV? MACRO
GETKBDSTATUS
TEST AL,40H
#EM