59 lines
1.5 KiB
Mathematica
59 lines
1.5 KiB
Mathematica
|
XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
|
||
|
|
;;7.3;TOOLKIT;;Apr 25, 1995
|
||
|
|
;;7.3;2950425.092013
|
||
|
|
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 ;;
|
||
|
|
XUCSINI1 ;;5671874
|
||
|
|
XUCSINI2 ;;5232622
|
||
|
|
XUCSINI3 ;;16094695
|
||
|
|
XUCSINI4 ;;3357794
|
||
|
|
XUCSINI5 ;;628012
|
||
|
|
XUCSINIS ;;2216765
|
||
|
|
XUCSINIT ;;10890951
|
||
|
|
XUCSLOAD ;;6778573
|
||
|
|
XUCSPRG ;;4520058
|
||
|
|
XUCSRV ;;5969322
|
||
|
|
XUCSTM ;;6457738
|
||
|
|
XUCSTME ;;13223145
|
||
|
|
XUCSUTL ;;2837344
|
||
|
|
XUCSUTL2 ;;6021611
|
||
|
|
XUCSUTL3 ;;11276783
|
||
|
|
XURTL ;;7949393
|
||
|
|
XURTL1 ;;7623474
|
||
|
|
XURTL2 ;;5911591
|
||
|
|
XURTL3 ;;9463174
|
||
|
|
XURTL4 ;;8083788
|
||
|
|
XURTLC ;;3647421
|
||
|
|
XURTLK ;;5463315
|
||
|
|
ZINDEX ;;7934389
|
||
|
|
ZINDX1 ;;5876099
|
||
|
|
ZINDX10 ;;11716270
|
||
|
|
ZINDX11 ;;6160284
|
||
|
|
ZINDX2 ;;4603647
|
||
|
|
ZINDX3 ;;3896672
|
||
|
|
ZINDX4 ;;4546127
|
||
|
|
ZINDX5 ;;6415684
|
||
|
|
ZINDX51 ;;8782796
|
||
|
|
ZINDX52 ;;2299766
|
||
|
|
ZINDX53 ;;4122137
|
||
|
|
ZINDX6 ;;12035964
|
||
|
|
ZINDX8 ;;6760814
|
||
|
|
ZINDX9 ;;4986099
|
||
|
|
ZINDXH ;;1579327
|
||
|
|
ZTEDIT ;;11385452
|
||
|
|
ZTEDIT1 ;;9783719
|
||
|
|
ZTEDIT2 ;;12580728
|
||
|
|
ZTEDIT3 ;;9890321
|
||
|
|
ZTEDIT4 ;;4936626
|
||
|
|
ZTGS ;;1511640
|
||
|
|
ZTP1 ;;7893577
|
||
|
|
ZTPP ;;7019346
|
||
|
|
ZTRDEL ;;959784
|
||
|
|
ZTRTHV ;;6018658
|