ScriptName "IC Funktion DirectAccess"
ScriptAuthor "St"
ScriptVersion " 20 " // ab PD V 2.0

SetErrorHandler ( :ErrorAddress ) ;


var a: word;
var b:word;
var c:word;

var BusBuf: buffer[20];
var BusSize:word;
var RealBusSize:word;
var Input:byte;
var Output:byte;

Set ( ShiftRegisterInputType , DirectAccess ) ;
Set ( ShiftRegisterOutputType , DirectAccess ) ;

//0,0,0,Clk(WO),LdIn(RW),DatIn(RW),DatOut(WO),LdOut(WO)
ReadShiftRegister ( Input ) ;
:start;
moveconst(Output,0);
WriteShiftRegister ( Output ) ;
ReadShiftRegister ( Input ) ;

moveconst(Output,1);
WriteShiftRegister ( Output ) ;
ReadShiftRegister ( Input ) ;

moveconst(Output,255);
WriteShiftRegister ( Output ) ;
ReadShiftRegister ( Input ) ;

jump:start;


:ErrorAddress;
 stop;
return;