108 lines
2.2 KiB
Mathematica
108 lines
2.2 KiB
Mathematica
|
RTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 22, 1991@22:38:31
|
||
|
|
;;v 2.0;Record Tracking;;10/22/91
|
||
|
|
;;6.5;OCT 22, 1991@22:38:31
|
||
|
|
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 ;;
|
||
|
|
RT ;;1092073
|
||
|
|
RTB ;;9210081
|
||
|
|
RTB1 ;;4220425
|
||
|
|
RTB2 ;;8537784
|
||
|
|
RTDEL ;;14533305
|
||
|
|
RTDPA ;;10739529
|
||
|
|
RTDPA1 ;;13452261
|
||
|
|
RTDPA2 ;;9782055
|
||
|
|
RTDPA3 ;;8966028
|
||
|
|
RTDPA31 ;;4040485
|
||
|
|
RTDPA32 ;;4054799
|
||
|
|
RTIPOST0 ;;6311613
|
||
|
|
RTIPOST1 ;;5041134
|
||
|
|
RTIPOST2 ;;2286359
|
||
|
|
RTIPOST3 ;;3629114
|
||
|
|
RTIPOST4 ;;5792718
|
||
|
|
RTIPRE ;;7360996
|
||
|
|
RTL ;;3454851
|
||
|
|
RTL1 ;;13016675
|
||
|
|
RTL2 ;;5588146
|
||
|
|
RTL3 ;;2550001
|
||
|
|
RTLDIV ;;1372201
|
||
|
|
RTM ;;1849639
|
||
|
|
RTMAS ;;4232926
|
||
|
|
RTNQ ;;1628986
|
||
|
|
RTNQ1 ;;11946723
|
||
|
|
RTNQ2 ;;14357342
|
||
|
|
RTNQ21 ;;8555868
|
||
|
|
RTNQ3 ;;11569840
|
||
|
|
RTNQ4 ;;9206711
|
||
|
|
RTNQ41 ;;5015473
|
||
|
|
RTP ;;10799518
|
||
|
|
RTP1 ;;9915888
|
||
|
|
RTP2 ;;10605233
|
||
|
|
RTP3 ;;20195927
|
||
|
|
RTP31 ;;13298420
|
||
|
|
RTP311 ;;6322945
|
||
|
|
RTP32 ;;4618243
|
||
|
|
RTP4 ;;16744132
|
||
|
|
RTP40 ;;5876243
|
||
|
|
RTP41 ;;12568098
|
||
|
|
RTP5 ;;18969106
|
||
|
|
RTP51 ;;11075694
|
||
|
|
RTP6 ;;5861018
|
||
|
|
RTPCAN ;;4020334
|
||
|
|
RTPSET ;;10011933
|
||
|
|
RTPSET1 ;;6578709
|
||
|
|
RTPURGE ;;14921881
|
||
|
|
RTQ ;;12370859
|
||
|
|
RTQ1 ;;13981731
|
||
|
|
RTQ2 ;;12876473
|
||
|
|
RTQ3 ;;8945259
|
||
|
|
RTQ4 ;;12908542
|
||
|
|
RTQ41 ;;6912517
|
||
|
|
RTQ5 ;;2920853
|
||
|
|
RTRAD ;;6425450
|
||
|
|
RTRD ;;6310994
|
||
|
|
RTREP ;;11996311
|
||
|
|
RTREP1 ;;8448621
|
||
|
|
RTRPT ;;16229874
|
||
|
|
RTRPT1 ;;9556631
|
||
|
|
RTRPT2 ;;11258647
|
||
|
|
RTRPT3 ;;18718284
|
||
|
|
RTRPT4 ;;2860697
|
||
|
|
RTRPT5 ;;6630867
|
||
|
|
RTSM ;;13831573
|
||
|
|
RTSM1 ;;13577739
|
||
|
|
RTSM2 ;;9200103
|
||
|
|
RTSM3 ;;16298185
|
||
|
|
RTSM4 ;;10969718
|
||
|
|
RTSM5 ;;7723861
|
||
|
|
RTSM6 ;;11942119
|
||
|
|
RTSM61 ;;8657559
|
||
|
|
RTSM7 ;;9927586
|
||
|
|
RTSM8 ;;11585133
|
||
|
|
RTSM81 ;;8626042
|
||
|
|
RTSYS ;;11712069
|
||
|
|
RTT ;;12717049
|
||
|
|
RTT1 ;;15395306
|
||
|
|
RTT11 ;;10857177
|
||
|
|
RTT12 ;;3597419
|
||
|
|
RTT2 ;;17867721
|
||
|
|
RTT21 ;;391400
|
||
|
|
RTT3 ;;15011804
|
||
|
|
RTT4 ;;10186835
|
||
|
|
RTTR ;;6218566
|
||
|
|
RTTR1 ;;6567455
|
||
|
|
RTTR11 ;;6373404
|
||
|
|
RTTR2 ;;6670262
|
||
|
|
RTUTL ;;4297762
|
||
|
|
RTUTL1 ;;13589719
|
||
|
|
RTUTL2 ;;14367750
|
||
|
|
RTUTL3 ;;4482928
|
||
|
|
RTUTL4 ;;8368221
|
||
|
|
RTUTL5 ;;12629331
|
||
|
|
RTUTL6 ;;3667661
|