这些程序是什么意思啊

IF EN THEN  (*初始化发送缓存*)
      WLEN:=WORD#0;
      CASE ID OF
         0: (*读当前正向有功总电能 DI1  90  DI0  10*)
        INITML_1(EN:=TRUE,ADDR:=ADDR,DI1:=BYTE#16#90,DI0:=BYTE#16#10);
            WBUF:=INITML_1.WBUF;
            WLEN:=INITML_1.DLEN;
;
         1: (*读当前正向无功总电能 91    10*)
        INITML_2(EN:=TRUE,ADDR:=ADDR,DI1:=BYTE#16#91,DI0:=BYTE#16#10);
            WBUF:=INITML_2.WBUF;
WLEN:=INITML_2.DLEN;