st_mem.pas

来自「ST_MEM 一个希捷专修的部分代码」· PAS 代码 · 共 14 行

const
buf_size=2048;
KOL_CMD=15;
R_CMD:ARRAY[1..KOL_CMD] OF STRING=('INIT_PORT','TERMINAL','SV_HDDBUF',
'F_COMPARE','LEVEL','SV_STUFF','GET_BIN','VER_INFO','BUF_CONV','SEND_CMD',
'SEND_STR','SEND_CMD_H','SEND_STR_H','SET_STUFF','RD_TRACK');

var r:Char;
    f:File Of Byte;
    Buf: Array [0..$fff] of byte;
    base:word;
   L_S,L_OFS,int,divider:integer; {{V-岐