110 lines
2.5 KiB
Mathematica
110 lines
2.5 KiB
Mathematica
ENXJNTE1 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;FEB 26, 1996@14:03:14
|
|
;;7.0;ENGINEERING;**30**;AUG 17, 1993
|
|
;;7.2;FEB 26, 1996@14:03:14
|
|
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")
|
|
;
|
|
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 ;;
|
|
ENXJI08H ;;7927825
|
|
ENXJI08I ;;7808269
|
|
ENXJI08J ;;8143994
|
|
ENXJI08K ;;8456727
|
|
ENXJI08L ;;8286886
|
|
ENXJI08M ;;8672171
|
|
ENXJI08N ;;8588618
|
|
ENXJI08O ;;8146992
|
|
ENXJI08P ;;8287852
|
|
ENXJI08Q ;;8576089
|
|
ENXJI08R ;;8085921
|
|
ENXJI08S ;;7762769
|
|
ENXJI08T ;;7810068
|
|
ENXJI08U ;;7829251
|
|
ENXJI08V ;;8364309
|
|
ENXJI08W ;;8278178
|
|
ENXJI08X ;;7575724
|
|
ENXJI08Y ;;8022682
|
|
ENXJI08Z ;;8039831
|
|
ENXJI090 ;;8066683
|
|
ENXJI091 ;;8084874
|
|
ENXJI092 ;;7798399
|
|
ENXJI093 ;;7848813
|
|
ENXJI094 ;;7535336
|
|
ENXJI095 ;;8093660
|
|
ENXJI096 ;;7885012
|
|
ENXJI097 ;;7811180
|
|
ENXJI098 ;;8146940
|
|
ENXJI099 ;;7650286
|
|
ENXJI09A ;;7947828
|
|
ENXJI09B ;;7364596
|
|
ENXJI09C ;;8294421
|
|
ENXJI09D ;;8507585
|
|
ENXJI09E ;;8166604
|
|
ENXJI09F ;;7827176
|
|
ENXJI09G ;;7753594
|
|
ENXJI09H ;;7474515
|
|
ENXJI09I ;;7739401
|
|
ENXJI09J ;;7908222
|
|
ENXJI09K ;;8114534
|
|
ENXJI09L ;;8117661
|
|
ENXJI09M ;;8149708
|
|
ENXJI09N ;;7483379
|
|
ENXJI09O ;;7784832
|
|
ENXJI09P ;;7710177
|
|
ENXJI09Q ;;7840164
|
|
ENXJI09R ;;7704308
|
|
ENXJI09S ;;8011880
|
|
ENXJI09T ;;7771562
|
|
ENXJI09U ;;7694141
|
|
ENXJI09V ;;8119736
|
|
ENXJI09W ;;7951875
|
|
ENXJI09X ;;7633808
|
|
ENXJI09Y ;;7368209
|
|
ENXJI09Z ;;8033896
|
|
ENXJI0A0 ;;8292377
|
|
ENXJI0A1 ;;8103310
|
|
ENXJI0A2 ;;8194825
|
|
ENXJI0A3 ;;8155045
|
|
ENXJI0A4 ;;8421130
|
|
ENXJI0A5 ;;8529120
|
|
ENXJI0A6 ;;8302221
|
|
ENXJI0A7 ;;7891030
|
|
ENXJI0A8 ;;8193676
|
|
ENXJI0A9 ;;8190722
|
|
ENXJI0AA ;;8064996
|
|
ENXJI0AB ;;8152576
|
|
ENXJI0AC ;;8228550
|
|
ENXJI0AD ;;8462392
|
|
ENXJI0AE ;;8513547
|
|
ENXJI0AF ;;8197303
|
|
ENXJI0AG ;;8314183
|
|
ENXJI0AH ;;8221350
|
|
ENXJI0AI ;;8454943
|
|
ENXJI0AJ ;;7969663
|
|
ENXJI0AK ;;8571856
|
|
ENXJI0AL ;;8168697
|
|
ENXJI0AM ;;7881636
|
|
ENXJI0AN ;;2872208
|
|
ENXJI0AO ;;2412902
|
|
ENXJIEN ;;1666996
|
|
ENXJINI1 ;;4911521
|
|
ENXJINI2 ;;5232616
|
|
ENXJINI3 ;;16807464
|
|
ENXJINI4 ;;3357788
|
|
ENXJINI5 ;;493182
|
|
ENXJINIT ;;10491430
|
|
ENXJIPR ;;2866513
|
|
ENXJIPR1 ;;8203579
|
|
ENXJIPR2 ;;8172226
|
|
ENXJIPR3 ;;8249441
|
|
ENXJIPR4 ;;8198488
|
|
ENXJIPR5 ;;8187647
|
|
ENXJIPR6 ;;8211398
|
|
ENXJIPR7 ;;7136897
|
|
ENXJIPS ;;5487287
|
|
ENXJIPS1 ;;8189316
|
|
ENXJIPS2 ;;7302530
|