void cmd_port(void) {
int pin, nbr, value, code, pincode;
   int i;
getargs(&cmdline, NBRPINS * 4, (unsigned char *)",");

if((argc & 0b11) != 0b11) error("Invalid syntax");
   if(!strchr((char *)cmdline,')'))error ("Syntax");
   // step over the equals sign and get the value for the assignment
while(*cmdline && tokenfunction(*cmdline) != op_equal) cmdline++;
if(!*cmdline) error("Invalid syntax");
++cmdline;
if(!*cmdline) error("Invalid syntax");
value = getinteger(cmdline);
   uint64_t mask=0,setmask=0, readmask=gpio_get_all64();

   for(i = 0; i < argc; i += 4) {
    code=0;
    if(!(code=codecheck(argv[i])))argv[i]+=2;
    pincode = getinteger(argv[i]);
       nbr = getinteger(argv[i + 2]);
       if(nbr < 0 || (pincode == 0 && code!=0) || (pincode<0)) error("Invalid argument");

       while(nbr) {
        if(!code)pin=codemap(pincode);
        else pin=pincode;
           if(IsInvalidPin(pin) || !(ExtCurrentConfig[pin] == EXT_DIG_OUT )) error("Invalid output pin");
           mask |=(1<<PinDef[pin].GPno);
           if(value & 1)setmask |= (1<<PinDef[pin].GPno);
           value >>= 1;
           nbr--;
           pincode++;
       }
   }
   readmask &=mask;
   gpio_xor_mask64(setmask ^ readmask);
}

SetPin GP2, DIN, PULLUP
SetPin GP3, DIN, PULLUP
SetPin GP4, DIN, PULLUP
SetPin GP5, DIN, PULLUP
SetPin GP6, DIN, PULLUP
SetPin GP7, DIN, PULLUP

portread% = 0
filtered% = 0

scan_period% = 5
scan_count% = 0

settick scan_period%, scanin  'Read the port every 5ms


do

if scan_count% > 7 then 'State of port hasn't changed for at least 8 scans
if filtered% and not 1 then print "2"
   if filtered% and not 2 then print "3"    
if filtered% and not 4 then print "4"
   if filtered% and not 8 then print "5"
   if filtered% and not 16 then print "6"
if filtered% and not 32 then print "7"
   scan_count%=0
 end if

loop

sub scanin

if scan_count% = 0 then
 portread% = port(gp2,6)
 inc scan_count%
elseif portread% <> port(gp2,6) then
   scan_count% = 0
else
   inc scan_count%
   if scan_count% = 8 then
     filtered% = portread%
   end if  
end if

end sub