178 lines
3.5 KiB
Mathematica
178 lines
3.5 KiB
Mathematica
LRNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
|
|
;;5.2;LAB SERVICE;;Sep 27, 1994
|
|
;;7.2;OCT 25, 1994@16:14:26
|
|
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^LRNTEG03
|
|
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 ;;
|
|
LRMIPSZ ;;8712841
|
|
LRMIPSZ1 ;;12406819
|
|
LRMIPSZ2 ;;11226062
|
|
LRMIPSZ3 ;;8318897
|
|
LRMIPSZ4 ;;11912188
|
|
LRMIPSZ5 ;;12221036
|
|
LRMIS ;;100097
|
|
LRMISEZ ;;10610238
|
|
LRMISEZ1 ;;9213100
|
|
LRMISEZ2 ;;11072948
|
|
LRMISEZ3 ;;9782087
|
|
LRMISEZ4 ;;4421803
|
|
LRMISEZA ;;16855476
|
|
LRMISEZB ;;9566752
|
|
LRMISR ;;7163511
|
|
LRMISR1 ;;3355654
|
|
LRMISTF ;;10468714
|
|
LRMISTF1 ;;14032069
|
|
LRMITS ;;2538407
|
|
LRMITSE ;;3156077
|
|
LRMITSEC ;;11973690
|
|
LRMITSES ;;7783131
|
|
LRMITSP ;;2844397
|
|
LRMITSPC ;;5437371
|
|
LRMITSPE ;;6010630
|
|
LRMITSPO ;;5286842
|
|
LRMITSPS ;;3052409
|
|
LRMITSR ;;10903814
|
|
LRMITSRH ;;2059425
|
|
LRMITSRS ;;9988179
|
|
LRMIU4 ;;5614178
|
|
LRMIUT ;;3226335
|
|
LRMIUT1 ;;5126116
|
|
LRMIV ;;5001526
|
|
LRMIV1 ;;12023776
|
|
LRMIV2 ;;15350039
|
|
LRMIV3 ;;7301635
|
|
LRMIV4 ;;8957717
|
|
LRMIVER ;;8247730
|
|
LRMIVER1 ;;9809595
|
|
LRMIXALL ;;2510057
|
|
LRMIXPD ;;2621751
|
|
LRMIXR1 ;;1499994
|
|
LRMIXR2 ;;4935912
|
|
LRMIXR3 ;;7444890
|
|
LRMIZAP ;;15214782
|
|
LRMIZAP1 ;;5599755
|
|
LRMRSHRT ;;12006164
|
|
LRNDLST ;;6518918
|
|
LRNIGHT ;;3012542
|
|
LRNIGHT1 ;;3577041
|
|
LRNIGHT2 ;;8145950
|
|
LRNITEG ;;10629315
|
|
LRNITEGL ;;5620432
|
|
LRNODRAW ;;6441287
|
|
LRNORMAL ;;2729775
|
|
LRNPXA ;;3121059
|
|
LRNPXA0 ;;2098459
|
|
LRNPXA1 ;;7927108
|
|
LRNUM ;;6084836
|
|
LRO ;;137704
|
|
LRO1 ;;80835
|
|
LRO2 ;;492098
|
|
LRO3 ;;83879
|
|
LRO4 ;;1104
|
|
LRO5 ;;55717
|
|
LRO6 ;;58416
|
|
LRO7 ;;58696
|
|
LRO8 ;;55867
|
|
LROC ;;9962104
|
|
LROC1 ;;513736
|
|
LROCM ;;902146
|
|
LROE ;;14124488
|
|
LROE1 ;;7441789
|
|
LROE2 ;;8671366
|
|
LROI ;;1171816
|
|
LROLOVER ;;11243389
|
|
LROPT ;;13626902
|
|
LROPTLST ;;6823560
|
|
LROR ;;11488574
|
|
LROR1 ;;9367723
|
|
LROR2 ;;7864169
|
|
LROR3 ;;8668640
|
|
LROR4 ;;12426203
|
|
LROR4A ;;11272423
|
|
LROR4B ;;11230240
|
|
LROR5 ;;126397
|
|
LROR6 ;;2546332
|
|
LROR6A ;;10885921
|
|
LROR6B ;;7065648
|
|
LROR7 ;;91305
|
|
LROR8 ;;10413551
|
|
LROR9 ;;14142736
|
|
LRORD ;;12460893
|
|
LRORD1 ;;12374911
|
|
LRORD2 ;;17233514
|
|
LRORD2A ;;4265341
|
|
LRORD3 ;;7325550
|
|
LRORDD ;;13714315
|
|
LRORDERN ;;138962
|
|
LRORDIM ;;4446478
|
|
LRORDK ;;13547846
|
|
LRORDST ;;14794328
|
|
LRORDST1 ;;2848
|
|
LROS ;;13339397
|
|
LROSX0 ;;17415
|
|
LROSX1 ;;7539
|
|
LROW ;;7529828
|
|
LROW1 ;;13614464
|
|
LROW1A ;;3246964
|
|
LROW2 ;;8567142
|
|
LROW2A ;;6321320
|
|
LROW2P ;;7207400
|
|
LROW2RP ;;6049085
|
|
LROW3 ;;6949223
|
|
LROW4 ;;4523889
|
|
LROW5 ;;12012801
|
|
LRPARAM ;;7507286
|
|
LRPHEXPT ;;9195190
|
|
LRPHITE1 ;;11966791
|
|
LRPHITE2 ;;3592550
|
|
LRPHITE3 ;;2570033
|
|
LRPHITEM ;;14241855
|
|
LRPHLIS1 ;;14180980
|
|
LRPHLIST ;;13349268
|
|
LRPHSET ;;17207396
|
|
LRPHSET1 ;;7020946
|
|
LRPHSET2 ;;16068862
|
|
LRQC ;;681009
|
|
LRQCC ;;11068638
|
|
LRQCLOG ;;9698504
|
|
LRRD ;;8518062
|
|
LRRK ;;5712336
|
|
LRRP ;;10136813
|
|
LRRP1 ;;6740104
|
|
LRRP2 ;;12419851
|
|
LRRP3 ;;8171424
|
|
LRRP4 ;;3196176
|
|
LRRP5 ;;5807146
|
|
LRRP5A ;;4696626
|
|
LRRP6 ;;4486928
|
|
LRRP6A1 ;;5209716
|
|
LRRP6A2 ;;2681809
|
|
LRRP6A3 ;;2318940
|
|
LRRP6B1 ;;3787926
|
|
LRRP6B2 ;;2864954
|
|
LRRP6B3 ;;2072606
|
|
LRRP7 ;;3106946
|
|
LRRP8 ;;1356290
|
|
LRRP8A ;;4325958
|
|
LRRP8B ;;2256698
|
|
LRRP8C ;;5002891
|
|
LRRS ;;8707990
|
|
LRRS12 ;;3900411
|
|
LRRS13 ;;3057556
|
|
LRRSP ;;3891776
|
|
LRSETUP ;;9966224
|
|
LRSLOW ;;18541286
|
|
LRSMAC ;;5282435
|
|
LRSOR ;;7195489
|
|
LRSOR1 ;;1558609
|
|
LRSORA ;;7657175
|
|
LRSORA0 ;;2281955
|
|
LRSORA1 ;;6300770
|
|
LRSORA2 ;;3292731
|
|
LRSORA3 ;;6360636
|