reset
00A404000F 7378312E73682EC9E7BBE1B1A3D5CF
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;IRK
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sIRK1DDF1,%retdata,0)
<--! %schallenge1 = @desjs(%seslk , 1122334455667788,0)
00 88 00 00 11 %retdata 1122334455667788 01
<--! %schallenge2=@strmidh(%resp,0,8) 

<--! if %schallenge2 != %schallenge1
   stop
<--! endif

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;PUK
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sPUKDDF1,%retdata,0)
<--! %sencdata = @desjs(%seslk , 1122334455667788,0)
00 82 0006 11 %sencdata 1122334455667788 00
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;BK
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sBKDDF1,%retdata,0)
<--! %sencdata = @desjs(%seslk , 1122334455667788,0)
;ֻһ汾00
00 82 0005 11 %sencdata 1122334455667788 00
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;UK1
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sUK1DDF1,%retdata,0)
<--! %sencdata = @desjs(%seslk , 1122334455667788,0)
00 82 0004 11 %sencdata 1122334455667788 01
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;RKSSSE
0084000008
compsta 90 00
<--! %retdata = @strmidh(%resp,0,8)
<--! %seslk = @desjs(%sRK1DDF1,%retdata,0)
<--! %sencdata = @desjs(%seslk , 1122334455667788,0)
00 82 000A 11 %sencdata 1122334455667788 01
compsta 90 00

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0020000003 %spin











