172 lines
3.5 KiB
Mathematica
172 lines
3.5 KiB
Mathematica
|
SRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
|
||
|
|
;;3.0; Surgery ;;24 Jun 93
|
||
|
|
;;7.0;JUN 24, 1993@10:46:22
|
||
|
|
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
||
|
|
CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
|
||
|
|
G CONT^SRNTEG01
|
||
|
|
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
||
|
|
ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
||
|
|
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
||
|
|
W ! G CONT
|
||
|
|
ROU ;;
|
||
|
|
SROCMPS ;;11634013
|
||
|
|
SROCNR ;;6501039
|
||
|
|
SROCNR1 ;;13706047
|
||
|
|
SROCNR2 ;;13533185
|
||
|
|
SROCODE ;;3430511
|
||
|
|
SROCOM ;;5150235
|
||
|
|
SROCOMP ;;12557366
|
||
|
|
SROCON ;;7757520
|
||
|
|
SROCON1 ;;874865
|
||
|
|
SROCOND ;;2285
|
||
|
|
SROCPT ;;1135014
|
||
|
|
SROCRAT ;;9106508
|
||
|
|
SRODATE ;;4080611
|
||
|
|
SRODCT1 ;;13487226
|
||
|
|
SRODELA ;;11853938
|
||
|
|
SRODEV ;;275574
|
||
|
|
SRODICT ;;12398051
|
||
|
|
SRODLA1 ;;8914646
|
||
|
|
SRODLA2 ;;9982605
|
||
|
|
SRODLAY ;;9348184
|
||
|
|
SRODLT ;;9341903
|
||
|
|
SRODLT0 ;;8117340
|
||
|
|
SRODLT1 ;;3117817
|
||
|
|
SRODLT2 ;;4190492
|
||
|
|
SRODPT ;;2370986
|
||
|
|
SROERR ;;12680766
|
||
|
|
SROERR0 ;;3581133
|
||
|
|
SROERR1 ;;15586687
|
||
|
|
SROERR2 ;;8080430
|
||
|
|
SROERRPO ;;9592757
|
||
|
|
SROFILE ;;11321600
|
||
|
|
SROFLD ;;3049077
|
||
|
|
SROICU ;;7026928
|
||
|
|
SROICU1 ;;9648009
|
||
|
|
SROICU2 ;;9703712
|
||
|
|
SROINQ ;;13650153
|
||
|
|
SROIRR ;;4959802
|
||
|
|
SROKEY ;;8178720
|
||
|
|
SROKEY1 ;;9276852
|
||
|
|
SROKRET ;;950405
|
||
|
|
SROLOCK ;;7721330
|
||
|
|
SROMED ;;14319705
|
||
|
|
SROMENU ;;8450234
|
||
|
|
SROMOR ;;8349609
|
||
|
|
SROMORT ;;10557507
|
||
|
|
SRONAN ;;3749513
|
||
|
|
SRONAN1 ;;5813213
|
||
|
|
SRONASS ;;13373165
|
||
|
|
SRONBCH ;;1692514
|
||
|
|
SRONEW ;;9745297
|
||
|
|
SRONIN ;;1539867
|
||
|
|
SRONIN1 ;;10909129
|
||
|
|
SRONIN2 ;;11115711
|
||
|
|
SRONIN3 ;;10241634
|
||
|
|
SRONIN4 ;;6641012
|
||
|
|
SRONIN5 ;;9982835
|
||
|
|
SRONIN6 ;;13264035
|
||
|
|
SRONITE ;;40878
|
||
|
|
SRONON ;;9871379
|
||
|
|
SRONON0 ;;13768814
|
||
|
|
SRONON1 ;;9659892
|
||
|
|
SRONOP ;;14675614
|
||
|
|
SRONOP1 ;;4632135
|
||
|
|
SRONOR ;;9218812
|
||
|
|
SRONOR1 ;;5033721
|
||
|
|
SRONOR2 ;;9853192
|
||
|
|
SRONOR3 ;;9777137
|
||
|
|
SRONOR4 ;;9527245
|
||
|
|
SRONOR5 ;;9496023
|
||
|
|
SRONOR6 ;;5181795
|
||
|
|
SRONOR7 ;;9879875
|
||
|
|
SRONOR8 ;;9797371
|
||
|
|
SRONRN1 ;;11882384
|
||
|
|
SRONRN2 ;;10842342
|
||
|
|
SRONRN3 ;;7359997
|
||
|
|
SRONRN4 ;;11105877
|
||
|
|
SRONRN5 ;;11842993
|
||
|
|
SRONRNF ;;9081246
|
||
|
|
SRONRPT ;;4751943
|
||
|
|
SRONRPT0 ;;14852429
|
||
|
|
SRONRPT1 ;;14308588
|
||
|
|
SRONRPT2 ;;17178265
|
||
|
|
SRONRPT3 ;;9328079
|
||
|
|
SRONUR ;;3335620
|
||
|
|
SRONUR1 ;;14294813
|
||
|
|
SRONUR2 ;;15172306
|
||
|
|
SRONXR ;;948758
|
||
|
|
SROOPRM ;;8890272
|
||
|
|
SROOPRM1 ;;8345600
|
||
|
|
SROP ;;11421165
|
||
|
|
SROP1 ;;2869582
|
||
|
|
SROPAC0 ;;7281750
|
||
|
|
SROPAC1 ;;4116346
|
||
|
|
SROPACT ;;4285094
|
||
|
|
SROPAT ;;4083891
|
||
|
|
SROPDEL ;;10518417
|
||
|
|
SROPER ;;8249828
|
||
|
|
SROPLIS ;;5891254
|
||
|
|
SROPLIST ;;10573308
|
||
|
|
SROPLST1 ;;8344386
|
||
|
|
SROPLSTS ;;15458118
|
||
|
|
SROPOST ;;11117912
|
||
|
|
SROPOST0 ;;11314400
|
||
|
|
SROPOST1 ;;4109705
|
||
|
|
SROPOST2 ;;6929347
|
||
|
|
SROPPC ;;10469597
|
||
|
|
SROPR01 ;;9968913
|
||
|
|
SROPR02 ;;9203095
|
||
|
|
SROPR03 ;;12977397
|
||
|
|
SROPRE ;;20213002
|
||
|
|
SROPRE0 ;;3862541
|
||
|
|
SROPREQ ;;5334609
|
||
|
|
SROPRI ;;13037058
|
||
|
|
SROPRI1 ;;5091384
|
||
|
|
SROPRI2 ;;9977752
|
||
|
|
SROPRIN ;;1919966
|
||
|
|
SROPRIO ;;14632165
|
||
|
|
SROPRIT ;;7802902
|
||
|
|
SROPROC ;;16746178
|
||
|
|
SROPRPT ;;1495355
|
||
|
|
SROPRPT1 ;;10715706
|
||
|
|
SROPRPT2 ;;8932470
|
||
|
|
SROPRPT3 ;;13365148
|
||
|
|
SROPRPT4 ;;4139502
|
||
|
|
SROPS ;;7320444
|
||
|
|
SROQ ;;19916846
|
||
|
|
SROQ0 ;;6909462
|
||
|
|
SROQ0A ;;3418494
|
||
|
|
SROQ1 ;;5710420
|
||
|
|
SROQ1A ;;5986558
|
||
|
|
SROQ2 ;;10055055
|
||
|
|
SROQM ;;2454081
|
||
|
|
SROQM0 ;;8643769
|
||
|
|
SROQM1 ;;9986266
|
||
|
|
SROQT ;;6682831
|
||
|
|
SROR ;;1064043
|
||
|
|
SRORAT1 ;;9464973
|
||
|
|
SRORAT2 ;;5618055
|
||
|
|
SRORATA ;;4507955
|
||
|
|
SRORATP ;;5270692
|
||
|
|
SRORATS ;;4033835
|
||
|
|
SROREA ;;2641219
|
||
|
|
SROREA1 ;;4701907
|
||
|
|
SROREA2 ;;6036733
|
||
|
|
SROREAS ;;8242299
|
||
|
|
SROREQ ;;4758469
|
||
|
|
SROREQ1 ;;13883180
|
||
|
|
SROREQ2 ;;11963363
|
||
|
|
SROREQ3 ;;13081345
|
||
|
|
SROREQ4 ;;11044703
|
||
|
|
SROREST ;;7931836
|
||
|
|
SRORESV ;;5067326
|
||
|
|
SRORET ;;11944655
|
||
|
|
SRORHRS ;;9870467
|
||
|
|
SRORHRS0 ;;5611756
|
||
|
|
SRORIN ;;14448907
|
||
|
|
SRORTRN ;;1927140
|
||
|
|
SRORUT ;;8711950
|
||
|
|
SRORUT0 ;;12484053
|
||
|
|
SRORUT1 ;;7215261
|