;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
reset
00A404000F 7378312E73682EC9E7BBE1B1A3D5CF
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;IRK
<--! %sn2=1122334455667788
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;лPSAM
setreader %psamport
00 84 00 00 08
<--! %origin=@strmidh(%resp,0,8)
BF DE 67 08 20 %sn1 %sdishi  %ssheng %sn2
80 FA 00 00 08 %origin
<--! %schallenge1=@strmidh(%resp,0,8) 
;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
00 88 00 00 11 %sn2 %origin 01

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

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PUK
00 84 00 00 08
<--! %sn2=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psamport
00 84 00 00 08
<--! %dataRand=@strmidh(%resp,0)
BF DE 28 10 10 %sn1 %sn2
80 FA 00 00 08 %dataRand
<--! %dataEnc=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
00 82 00 06 11 %dataEnc %dataRand 00
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;BK
00 84 00 00 08
<--! %sn2=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psAmport
00 84 00 00 08
<--! %dataRand=@strmidh(%resp,0)
BF DE 28 11 10 %sn1 %sn2
80 FA 00 00 08 %dataRand
<--! %dataEnc=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
00 82 00 05 11 %dataEnc %dataRand 00
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;UK1
00 84 00 00 08
<--! %sn2=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psAmport
00 84 00 00 08
<--! %dataRand=@strmidh(%resp,0)
BF DE 28 12 10 %sn1 %sn2
80 FA 00 00 08 %dataRand
<--! %dataEnc=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
00 82 00 04 11 %dataEnc %dataRand 01
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;RKSSSE
00 84 00 00 08
<--! %sn2=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;psAm
setreader %psamport
00 84 00 00 08
<--! %dataRand=@strmidh(%resp,0)
BF DE 67 0A 20 %sn1 %sdishi  %ssheng %sn2
80 FA 00 00 08 %dataRand
<--! %dataEnc=@strmidh(%resp,0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;û
setreader %userport
00 82 00 0A 11 %dataEnc %dataRand 01
compsta 90 00











