/* CRYSTAL IS  20MHz, keycode clock is 12.5kHz,*/
KEY: DO;
$NOLIST
$INCLUDE (REG51.DCL)
$LIST
DECLARE WDI LITERALLY 'P3_0';
DECLARE SW1 LITERALLY 'P3_7';
DECLARE SW2 LITERALLY 'P1_0';
DECLARE SW3 LITERALLY 'P1_1';
DECLARE SW4 LITERALLY 'P1_2';
DECLARE SW5 LITERALLY 'P1_3';
DECLARE SW6 LITERALLY 'P1_4';
DECLARE SW7 LITERALLY 'P1_5';
DECLARE SW8 LITERALLY 'P1_6';
DECLARE KEY$DATA LITERALLY 'P3_1';
DECLARE KEY$CLK LITERALLY 'P1_7';
DECLARE (DK,KEY$CODE,PARITY,SHIFT$REG,NUMBER,DI,DN) BYTE;
DECLARE (T0$INT) BIT;
/******* INTERRUPT OF TIMER 1 ********/
TIMER1:       PROCEDURE INTERRUPT 3 USING 1;
DISABLE;
WDI=1;
DK=0;
TH1=0BEH;
TL1=0E6H;
DN=800;
IF SW1=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW1=0 THEN DK=1;
KEY$CODE=5AH;  /*Enter*/
PARITY=0FFH;
END;
IF SW2=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW2=0 THEN 
         DO；
DK=2;
KEY$CODE=76H; /*Esc*/
PARITY=00H;
END;
IF SW3=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW3=0 THEN DK=3;
KEY$CODE=75H;    /*8/up*/
PARITY=00H;
END;
IF SW4=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW4=0 THEN DK=4;
KEY$CODE=72H;     /*2/down*/
PARITY=0FFH;
END;
IF SW5=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW5=0 THEN DK=5;
KEY$CODE=06H;    /*F2*/
PARITY=0FFH;
END;
IF SW6=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW6=0 THEN DK=6;
KEY$CODE=04H;  /*F3*/
PARITY=00H;
END;
IF SW7=0 THEN
DO;
DI=DN;
DO WHILE DI>0;
DI=DI-1;
END;
IF SW7=0 THEN DK=7;
KEY$CODE=0CH;    /*F4*/
PARITY=0FFH;
END;
请问各位大虾上面的语言可以用什么编译呢?急,谢谢!