107 lines
2.4 KiB
Mathematica
107 lines
2.4 KiB
Mathematica
DVBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 25, 1992@09:51:03
|
|
;;V4.0;HINQ;;03/25/92
|
|
;;6.5;MAR 25, 1992@09:51:03
|
|
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 "_Y_", off by "_(Y-XT3),1:"ok")
|
|
;
|
|
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 ;;
|
|
DVBHDBA1 ;;3618906
|
|
DVBHDBA2 ;;2952132
|
|
DVBHDBA3 ;;3226832
|
|
DVBHDBA4 ;;3623191
|
|
DVBHDBA5 ;;2638381
|
|
DVBHDBA6 ;;2983861
|
|
DVBHDBA7 ;;3157275
|
|
DVBHDBA8 ;;2379352
|
|
DVBHDBA9 ;;4387903
|
|
DVBHDBAA ;;1743065
|
|
DVBHDBAB ;;1007422
|
|
DVBHDEL ;;897481
|
|
DVBHIQD ;;6668555
|
|
DVBHIQM ;;14601698
|
|
DVBHIQR ;;6262333
|
|
DVBHPOST ;;8232971
|
|
DVBHPRE ;;1783258
|
|
DVBHQAT ;;6537951
|
|
DVBHQD1 ;;9640742
|
|
DVBHQDB ;;12297023
|
|
DVBHQDE ;;7853833
|
|
DVBHQDL ;;7212620
|
|
DVBHQDX ;;11822890
|
|
DVBHQEDT ;;13716602
|
|
DVBHQM1 ;;14464580
|
|
DVBHQM11 ;;8434097
|
|
DVBHQM12 ;;10375860
|
|
DVBHQM13 ;;8390107
|
|
DVBHQM2 ;;20560819
|
|
DVBHQM3 ;;10338804
|
|
DVBHQM31 ;;10632399
|
|
DVBHQM4 ;;4686028
|
|
DVBHQPU ;;5121294
|
|
DVBHQR1 ;;8418660
|
|
DVBHQR11 ;;9734929
|
|
DVBHQR12 ;;5377832
|
|
DVBHQR13 ;;6852554
|
|
DVBHQR2 ;;8333922
|
|
DVBHQR3 ;;3726649
|
|
DVBHQREC ;;5084413
|
|
DVBHQSE ;;7445429
|
|
DVBHQST ;;9098525
|
|
DVBHQTM ;;5113401
|
|
DVBHQUE ;;5073709
|
|
DVBHQUP ;;14368940
|
|
DVBHQUS ;;8079833
|
|
DVBHQUT ;;5248596
|
|
DVBHQZ4 ;;7509870
|
|
DVBHQZ6 ;;15543725
|
|
DVBHS1 ;;1475623
|
|
DVBHS2 ;;5333780
|
|
DVBHS3 ;;3559998
|
|
DVBHS4 ;;3428933
|
|
DVBHS5 ;;5250790
|
|
DVBHS6 ;;2642453
|
|
DVBHSVER ;;9181903
|
|
DVBHUTIL ;;9342310
|
|
DVBIN001 ;;3365243
|
|
DVBIN002 ;;7692550
|
|
DVBIN003 ;;8342131
|
|
DVBIN004 ;;7515245
|
|
DVBIN005 ;;8055497
|
|
DVBIN006 ;;1873787
|
|
DVBIN007 ;;5620543
|
|
DVBIN008 ;;3206607
|
|
DVBIN009 ;;1945140
|
|
DVBIN010 ;;4778571
|
|
DVBIN011 ;;1853448
|
|
DVBIN012 ;;8631962
|
|
DVBIN013 ;;8173229
|
|
DVBIN014 ;;1834275
|
|
DVBIN015 ;;12053863
|
|
DVBIN016 ;;846224
|
|
DVBIN017 ;;6294373
|
|
DVBIN018 ;;5747007
|
|
DVBIN019 ;;1688944
|
|
DVBIN020 ;;5726405
|
|
DVBIN021 ;;16129315
|
|
DVBIN022 ;;18992446
|
|
DVBIN023 ;;16173038
|
|
DVBIN024 ;;11261813
|
|
DVBIN025 ;;13300498
|
|
DVBIN026 ;;9085088
|
|
DVBIN027 ;;7015511
|
|
DVBIN028 ;;6373764
|
|
DVBIN029 ;;6253702
|
|
DVBIN030 ;;6828524
|
|
DVBIN031 ;;6571483
|
|
DVBIN032 ;;5575661
|
|
DVBIN033 ;;3867268
|
|
DVBINIT ;;9249472
|
|
DVBINIT0 ;;990418
|
|
DVBINIT1 ;;5414976
|
|
DVBINIT2 ;;4338405
|
|
DVBINIT3 ;;10014702
|