<--! %sPsamPort=07
<--! %sUserPort=05
opencom %sUserPort
opencom %sPsamPort

;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %sUserPort
reset
00 a4 00 00 02 10 02

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;лPSAM
setreader %sPsamPort
reset
00 a4 00 00 02 10 02

00 84 00 00 08
<--! %origin=@strmidh(%resp,0,8)

80 1A 67 08 00
80 FA 00 00 08 %origin
<--! %schallenge1=@strmidh(%resp,0,8) 

;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %sUserPort
00 88 00 00 08 %origin

<--! %schallenge2=@strmidh(%resp,0,8) 
<--! if %schallenge2 != %schallenge1
<--! 	stop
<--! endif