173 lines
3.5 KiB
Mathematica
173 lines
3.5 KiB
Mathematica
LRNTEG01 ;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^LRNTEG02
|
|
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 ;;
|
|
LRBLWDS ;;8168141
|
|
LRBLXREF ;;269112
|
|
LRBLY ;;3089131
|
|
LRCAP64 ;;9254789
|
|
LRCAP67 ;;7903112
|
|
LRCAPA12 ;;5215207
|
|
LRCAPACC ;;8758484
|
|
LRCAPAM0 ;;3469869
|
|
LRCAPAM1 ;;13957957
|
|
LRCAPAM2 ;;9299732
|
|
LRCAPAM3 ;;11459780
|
|
LRCAPAM4 ;;5274979
|
|
LRCAPAM5 ;;12089115
|
|
LRCAPAM6 ;;7568179
|
|
LRCAPAM7 ;;6625076
|
|
LRCAPAM8 ;;3444738
|
|
LRCAPAM9 ;;2604241
|
|
LRCAPAMP ;;3338103
|
|
LRCAPAUD ;;9790672
|
|
LRCAPBB ;;11696536
|
|
LRCAPD ;;7107416
|
|
LRCAPDL ;;2590990
|
|
LRCAPF ;;7808609
|
|
LRCAPMA ;;1764037
|
|
LRCAPMA1 ;;5949786
|
|
LRCAPMA2 ;;8858440
|
|
LRCAPMA3 ;;2613785
|
|
LRCAPML ;;1745351
|
|
LRCAPML1 ;;6201605
|
|
LRCAPML2 ;;6892903
|
|
LRCAPML3 ;;1713965
|
|
LRCAPMR ;;2563810
|
|
LRCAPMR1 ;;4005131
|
|
LRCAPMR2 ;;3044606
|
|
LRCAPPH ;;9389957
|
|
LRCAPR1 ;;8086519
|
|
LRCAPR1A ;;7551934
|
|
LRCAPR2 ;;8255009
|
|
LRCAPR3 ;;5007753
|
|
LRCAPR3A ;;9011886
|
|
LRCAPR4 ;;6795674
|
|
LRCAPS ;;6604
|
|
LRCAPTS ;;9145480
|
|
LRCAPTS1 ;;4405424
|
|
LRCAPU ;;2354238
|
|
LRCAPV ;;12433578
|
|
LRCAPV1 ;;11685464
|
|
LRCAPV11 ;;2900081
|
|
LRCAPV1A ;;2029073
|
|
LRCAPV1S ;;4052637
|
|
LRCAPV2 ;;9327099
|
|
LRCAPV3 ;;8254914
|
|
LRCAPVM ;;5581910
|
|
LRCE ;;6279427
|
|
LRCENDE1 ;;9794076
|
|
LRCENDEL ;;14463540
|
|
LRCHIV ;;13821769
|
|
LRCHIVD ;;8818647
|
|
LRCHIVE ;;5413190
|
|
LRCHIVK ;;2476012
|
|
LRCKF ;;4058690
|
|
LRCKF60 ;;11681052
|
|
LRCKF62 ;;1728069
|
|
LRCKF68 ;;14560856
|
|
LRCKF69 ;;4913799
|
|
LRCKFLA ;;9589815
|
|
LRCKPTR ;;10069312
|
|
LRCONJAM ;;16803451
|
|
LRCYPCT ;;16094448
|
|
LRDATEDH ;;1541382
|
|
LRDCOM ;;9815987
|
|
LRDIED ;;1167039
|
|
LRDIQ ;;8343122
|
|
LRDIST ;;15189103
|
|
LRDIST1 ;;14581782
|
|
LRDIST2 ;;6147744
|
|
LRDIST3 ;;3019800
|
|
LRDIST4 ;;10487690
|
|
LRDPA ;;8757515
|
|
LRDPA1 ;;6296747
|
|
LRDPA2 ;;5207196
|
|
LRDRAW ;;8114267
|
|
LREV ;;868566
|
|
LREXEC ;;1599274
|
|
LREXECU ;;2774533
|
|
LREXPD ;;1257429
|
|
LRFAC ;;10529590
|
|
LRFAST ;;19335504
|
|
LRFASTS ;;8220470
|
|
LRFLAG ;;7458903
|
|
LRFNDLOC ;;2874336
|
|
LRGEN ;;4652673
|
|
LRGEN1 ;;9760488
|
|
LRGEN2 ;;14785100
|
|
LRGP ;;6903164
|
|
LRGP1 ;;8945780
|
|
LRGP2 ;;9602722
|
|
LRGV ;;13358239
|
|
LRGV1 ;;5694972
|
|
LRGV2 ;;11417179
|
|
LRGVG2 ;;4415993
|
|
LRGVGK ;;5559619
|
|
LRGVK ;;7468917
|
|
LRGVK1 ;;1974283
|
|
LRGVP ;;3966296
|
|
LRHDR ;;2828970
|
|
LRKILL ;;267623
|
|
LRLABAR ;;7451974
|
|
LRLABEL ;;1668195
|
|
LRLABEL1 ;;2827443
|
|
LRLABEL2 ;;1294781
|
|
LRLABEL3 ;;1905479
|
|
LRLABEL5 ;;2457165
|
|
LRLABEL6 ;;3490879
|
|
LRLABELA ;;1935828
|
|
LRLABELB ;;4990488
|
|
LRLABELF ;;6978943
|
|
LRLABLD ;;9866402
|
|
LRLABLD0 ;;8974860
|
|
LRLABLDS ;;5030406
|
|
LRLABLIO ;;6576380
|
|
LRLABXOL ;;5047520
|
|
LRLABXT ;;5481784
|
|
LRLAM ;;3535487
|
|
LRLIST ;;14863459
|
|
LRLISTE ;;16074875
|
|
LRLL ;;16026155
|
|
LRLL1 ;;13174195
|
|
LRLL1A ;;13251964
|
|
LRLL2 ;;9535702
|
|
LRLL3 ;;4969650
|
|
LRLL4 ;;3514697
|
|
LRLLP ;;7554848
|
|
LRLLP2 ;;10666169
|
|
LRLLP3 ;;2502591
|
|
LRLLP4 ;;1896641
|
|
LRLLP5 ;;11375580
|
|
LRLLS ;;8482744
|
|
LRLLS2 ;;9928490
|
|
LRLLS3 ;;2912229
|
|
LRLLU ;;1165455
|
|
LRLS ;;3795168
|
|
LRLSR ;;1311822
|
|
LRLSTWRK ;;11148688
|
|
LRLSTWRL ;;11867436
|
|
LRLTR ;;1202140
|
|
LRLTR2 ;;3078975
|
|
LRMIBL ;;13365560
|
|
LRMIBUG ;;5237700
|
|
LRMIEDZ ;;5380499
|
|
LRMIEDZ2 ;;12548774
|
|
LRMIEDZ3 ;;6656074
|
|
LRMIEDZ4 ;;4114068
|
|
LRMIHDR ;;7521663
|
|
LRMILL ;;8949255
|
|
LRMINEW ;;12069238
|
|
LRMINEW1 ;;5165056
|
|
LRMINEW2 ;;4494122
|
|
LRMIPC ;;4207699
|
|
LRMIPLOG ;;2830939
|
|
LRMIPSU ;;4746260
|