176 lines
3.4 KiB
Mathematica
176 lines
3.4 KiB
Mathematica
|
LRNTEG03 ;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")
|
||
|
|
;
|
||
|
|
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 ;;
|
||
|
|
LRSORB ;;5246084
|
||
|
|
LRSORC ;;2903387
|
||
|
|
LRSORC1 ;;2650199
|
||
|
|
LRSORC1A ;;5784485
|
||
|
|
LRSORD ;;2903439
|
||
|
|
LRSORD1 ;;2634130
|
||
|
|
LRSORD1A ;;5873206
|
||
|
|
LRSPDA ;;1708053
|
||
|
|
LRSPGD ;;1899546
|
||
|
|
LRSPRPT ;;14704153
|
||
|
|
LRSPRPT1 ;;9128154
|
||
|
|
LRSPRPT2 ;;11806540
|
||
|
|
LRSPRPTM ;;3548807
|
||
|
|
LRSPS ;;1349074
|
||
|
|
LRSPSICD ;;3733172
|
||
|
|
LRSPSICP ;;4548274
|
||
|
|
LRSPT ;;5788888
|
||
|
|
LRSTATUS ;;5864956
|
||
|
|
LRSTOPC ;;8270122
|
||
|
|
LRSTUF ;;3165927
|
||
|
|
LRSTUF1 ;;13017004
|
||
|
|
LRSTUF2 ;;7213582
|
||
|
|
LRTOT ;;5514392
|
||
|
|
LRTP ;;1719568
|
||
|
|
LRTSTJAM ;;11402229
|
||
|
|
LRTSTJAN ;;15845798
|
||
|
|
LRTSTJM1 ;;3677989
|
||
|
|
LRTSTOUT ;;14679176
|
||
|
|
LRTSTSET ;;11593341
|
||
|
|
LRU ;;17199697
|
||
|
|
LRUA ;;9428099
|
||
|
|
LRUB ;;2794163
|
||
|
|
LRUBL ;;2301075
|
||
|
|
LRUC ;;3314953
|
||
|
|
LRUCE ;;3615614
|
||
|
|
LRUCLR ;;1483623
|
||
|
|
LRUCN ;;6285550
|
||
|
|
LRUCNBB ;;6439802
|
||
|
|
LRUD ;;8613899
|
||
|
|
LRUD1 ;;1288507
|
||
|
|
LRUDEL ;;8062773
|
||
|
|
LRUDIT ;;1873186
|
||
|
|
LRUDPT ;;3892466
|
||
|
|
LRUE ;;8625936
|
||
|
|
LRUER ;;12482221
|
||
|
|
LRUET ;;9746002
|
||
|
|
LRUFILE ;;3793703
|
||
|
|
LRUG ;;2440226
|
||
|
|
LRUL ;;6494173
|
||
|
|
LRULA ;;2814252
|
||
|
|
LRULB ;;3214861
|
||
|
|
LRULB1 ;;5054925
|
||
|
|
LRULEN ;;4920379
|
||
|
|
LRUMD ;;13730332
|
||
|
|
LRUMD1 ;;15963110
|
||
|
|
LRUMD2 ;;9441970
|
||
|
|
LRUMDF ;;12190617
|
||
|
|
LRUMDM ;;12811700
|
||
|
|
LRUMDP ;;9583614
|
||
|
|
LRUMDS ;;6757098
|
||
|
|
LRUMDU ;;12785217
|
||
|
|
LRUMDU1 ;;2924915
|
||
|
|
LRUMI ;;8672238
|
||
|
|
LRUMSG ;;549954
|
||
|
|
LRUP ;;111723
|
||
|
|
LRUPA ;;8985351
|
||
|
|
LRUPA1 ;;8601230
|
||
|
|
LRUPA2 ;;10860453
|
||
|
|
LRUPAC ;;5317474
|
||
|
|
LRUPACA ;;10645043
|
||
|
|
LRUPACS ;;9002791
|
||
|
|
LRUPACT ;;12662142
|
||
|
|
LRUPAD ;;8440128
|
||
|
|
LRUPAD1 ;;7381083
|
||
|
|
LRUPAD2 ;;9070446
|
||
|
|
LRUPQ ;;5009717
|
||
|
|
LRUPQ1 ;;5480421
|
||
|
|
LRUPS ;;5213446
|
||
|
|
LRUPT ;;9583710
|
||
|
|
LRUPUM ;;4413283
|
||
|
|
LRUQ ;;2165509
|
||
|
|
LRUR ;;5269766
|
||
|
|
LRURG ;;563985
|
||
|
|
LRUSE ;;1274883
|
||
|
|
LRUSET ;;1000756
|
||
|
|
LRUSNOM ;;1630210
|
||
|
|
LRUSP ;;3735979
|
||
|
|
LRUT ;;1482424
|
||
|
|
LRUTA ;;5134496
|
||
|
|
LRUTAD ;;10053839
|
||
|
|
LRUTELL ;;1609316
|
||
|
|
LRUTL ;;10259125
|
||
|
|
LRUTRAN ;;3731182
|
||
|
|
LRUTT ;;11013569
|
||
|
|
LRUTW ;;7949670
|
||
|
|
LRUU ;;1156447
|
||
|
|
LRUV ;;399332
|
||
|
|
LRUW ;;10155671
|
||
|
|
LRUWG ;;10453371
|
||
|
|
LRUWK ;;1415257
|
||
|
|
LRUWL ;;3121574
|
||
|
|
LRUWLF ;;5417790
|
||
|
|
LRVER ;;16483418
|
||
|
|
LRVER1 ;;5987669
|
||
|
|
LRVER2 ;;6818151
|
||
|
|
LRVER3 ;;8335446
|
||
|
|
LRVER3A ;;9912700
|
||
|
|
LRVER4 ;;14817646
|
||
|
|
LRVER5 ;;11228247
|
||
|
|
LRVR ;;13379924
|
||
|
|
LRVR1 ;;9222290
|
||
|
|
LRVR2 ;;6604344
|
||
|
|
LRVR3 ;;10872068
|
||
|
|
LRVR4 ;;10297579
|
||
|
|
LRVR5 ;;9391488
|
||
|
|
LRVRKIL ;;4419206
|
||
|
|
LRVRW ;;9610673
|
||
|
|
LRWD ;;1562529
|
||
|
|
LRWLHEAD ;;689266
|
||
|
|
LRWLST ;;14625851
|
||
|
|
LRWLST1 ;;13063164
|
||
|
|
LRWLST11 ;;15804232
|
||
|
|
LRWLST12 ;;4658067
|
||
|
|
LRWLST13 ;;7041750
|
||
|
|
LRWLST2 ;;4332114
|
||
|
|
LRWRKIN1 ;;4265901
|
||
|
|
LRWRKINC ;;12503776
|
||
|
|
LRWRKLS1 ;;1982294
|
||
|
|
LRWRKLST ;;7270047
|
||
|
|
LRWRKS ;;7701958
|
||
|
|
LRWRKS2 ;;5580037
|
||
|
|
LRWU ;;11277129
|
||
|
|
LRWU1 ;;3812098
|
||
|
|
LRWU2 ;;1596365
|
||
|
|
LRWU3 ;;8913298
|
||
|
|
LRWU4 ;;6571565
|
||
|
|
LRWU5 ;;12308481
|
||
|
|
LRWU6 ;;7589287
|
||
|
|
LRWU7 ;;8189681
|
||
|
|
LRX ;;10626021
|
||
|
|
LRX6 ;;16621271
|
||
|
|
LRX60 ;;9025787
|
||
|
|
LRX62P6 ;;8926756
|
||
|
|
LRX62P61 ;;20085978
|
||
|
|
LRX6PRO ;;3892082
|
||
|
|
LRXO0 ;;2244780
|
||
|
|
LRXO00 ;;11600233
|
||
|
|
LRXO1 ;;10821866
|
||
|
|
LRXO10 ;;4100641
|
||
|
|
LRXO11 ;;9945043
|
||
|
|
LRXO1A ;;10417967
|
||
|
|
LRXO2 ;;10312556
|
||
|
|
LRXO3 ;;6346859
|
||
|
|
LRXO4 ;;15854526
|
||
|
|
LRXO4A ;;7531049
|
||
|
|
LRXO5 ;;18115224
|
||
|
|
LRXO6 ;;6504620
|
||
|
|
LRXO7 ;;3502103
|
||
|
|
LRXO8 ;;3966298
|
||
|
|
LRXO9 ;;8693186
|
||
|
|
LRXOS0 ;;2439944
|
||
|
|
LRXOS1 ;;3868247
|
||
|
|
LRXREF ;;9253913
|
||
|
|
LRXREF1 ;;7533129
|