%begin
%include "inc:util.imp"
%string(255)s
%integer n=0,p=1,k

%conststring(15)%array fc(0:7)=
"Reserved", "User Data", "User Program", "Reserved",
"Reserved", "System Data", "System Program", "Int Ack"

  s = cliparam
  
  %cycle
    %exitif p>length(s); p = p+1
    k = charno(s,p-1)!32
    k = k-7-32 %if k>='a'
    n = n<<4-'0'+k
  %repeat
  printstring("Function code "); phex2(n); printstring(": ")
  printstring(fc(n&7))
  %if n&16=0 %then printstring(" Write") %else printstring(" Read")
  %if n&8#0 %then printstring(" not processing an instruction")
  newline
%endofprogram