diff --git a/DSS/KEYINTER.ASM b/DSS/KEYINTER.ASM index 17c3dad..2ed4d15 100644 --- a/DSS/KEYINTER.ASM +++ b/DSS/KEYINTER.ASM @@ -1,4 +1,3 @@ - ; MODULE KEYINTER ;[BEGIN] ;//MODULE: KEYINTER Keyboard Scan Codes: Set 2 @@ -877,6 +876,7 @@ INPCODE: LD D,L LD E,0 BIT LANG_L,(IX+K_LOCK) JP NZ,RUSCODE + ; LD A,(KEYCTRL) AND 1< Error! This table has wrong size!!!' -SHIFTAB DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs - DB Tab,"Q","W","E","R","T","Y","U","I","O","P","{","}" - DB Cps,"A","S","D","F","G","H","J","K","L",":",#22,Ent - DB #00,"Z","X","C","V","B","N","M","<",">","?",#00,"|" - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +SHIFT_ENG: DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs + DB Tab,"Q","W","E","R","T","Y","U","I","O","P","{","}" + DB Cps,"A","S","D","F","G","H","J","K","L",":",#22,Ent + DB #00,"Z","X","C","V","B","N","M","<",">","?",#00,"|" + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-SHIFT_ENG : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' -CAPSTAB DB "`",Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs - DB Tab,"Q","W","E","R","T","Y","U","I","O","P","[","]" - DB Cps,"A","S","D","F","G","H","J","K","L",";","'",Ent - DB #00,"Z","X","C","V","B","N","M",#2C,".","/",#00,#5C - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +CAPS_ENG: DB "`",Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs + DB Tab,"Q","W","E","R","T","Y","U","I","O","P","[","]" + DB Cps,"A","S","D","F","G","H","J","K","L",";","'",Ent + DB #00,"Z","X","C","V","B","N","M",",",".","/",#00,'\' ; + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-CAPS_ENG : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' -SHF2TAB DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs - DB Tab,"q","w","e","r","t","y","u","i","o","p","{","}" - DB Cps,"a","s","d","f","g","h","j","k","l",":",#22,Ent - DB #00,"z","x","c","v","b","n","m","<",">","?",#00,"|" - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +CAPS_SHIFT_ENG: DB "~",Esc,"!","@","#","$","%","^","&","*","(",")","_","+",Bcs + DB Tab,"q","w","e","r","t","y","u","i","o","p","{","}" + DB Cps,"a","s","d","f","g","h","j","k","l",":",#22,Ent + DB #00,"z","x","c","v","b","n","m","<",">","?",#00,"|" + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-CAPS_SHIFT_ENG : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' ;Standart Russian tables -NORMRUS DB #F1,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs - DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA - DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent - DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,".",#00,#5C - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +RUSSIAN: DB #F1,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs + DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA + DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent + DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,".",#00,'\' ; + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-RUSSIAN : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' -SHIFRUS DB #F0,Esc,"!",'"',"#","%",":",",",".",";","(",")","_","+",Bcs - DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A - DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent - DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,#2C,#00,"|" - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +SHIFT_RUS: DB #F0,Esc,"!",'"',"#",";","%",":","?","*","(",")","_","+",Bcs + DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A + DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent + DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,",",#00,"/" + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-SHIFT_RUS : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' -CAPSRUS DB #F0,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs - DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A - DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent - DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,".",#00,#5C - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +CAPS_RUS: DB #F0,Esc,"1","2","3","4","5","6","7","8","9","0","-","=",Bcs + DB Tab,#89,#96,#93,#8A,#85,#8D,#83,#98,#99,#87,#95,#9A + DB Cps,#94,#9B,#82,#80,#8F,#90,#8E,#8B,#84,#86,#9D,Ent + DB #00,#9F,#97,#91,#8C,#88,#92,#9C,#81,#9E,".",#00,'\' ; + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-CAPS_RUS : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' -SHF2RUS DB #F1,Esc,"!",'"',"#","%",":",",",".",";","(",")","_","+",Bcs - DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA - DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent - DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,#2C,#00,"|" - DB #00,#00,Spc,#00,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 - DB #00,#00,#00,"/","*","-","+",Ent,#00 - DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +CAPS_SHIFT_RUS: DB #F1,Esc,"!",'"',"#",";","%",":","?","*","(",")","_","+",Bcs + DB Tab,#A9,#E6,#E3,#AA,#A5,#AD,#A3,#E8,#E9,#A7,#E5,#EA + DB Cps,#E4,#EB,#A2,#A0,#AF,#E0,#AE,#AB,#A4,#A6,#ED,Ent + DB #00,#EF,#E7,#E1,#AC,#A8,#E2,#EC,#A1,#EE,",",#00,"/" + DB #00,#00," ",#00,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00 + DB #00,#00,#00,"/","*","-","+",Ent,#00 + DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00 +.Size EQU $-CAPS_SHIFT_RUS : ASSERT .Size = Size, '-> Error! This table has wrong size!!!' + ENDMODULE ; ASCII_TABLES ;================================ - ;//MODULE: KEYINTER ;[END] ; ENDMODULE \ No newline at end of file diff --git a/DSS/build.txt b/DSS/build.txt index 8323328..3d9aebb 100644 --- a/DSS/build.txt +++ b/DSS/build.txt @@ -1 +1 @@ -67 \ No newline at end of file +68 \ No newline at end of file