165 lines
3.5 KiB
Mathematica
165 lines
3.5 KiB
Mathematica
DVBANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
|
|
;;2.7;AMIE;;Apr 10, 1995
|
|
;;7.2;APR 10, 1995@13:51:40
|
|
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^DVBANTE0
|
|
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 ;;
|
|
DVBAADM1 ;;638257
|
|
DVBAADMR ;;3192270
|
|
DVBAADRP ;;11281413
|
|
DVBAALRT ;;969678
|
|
DVBAAPLK ;;6762813
|
|
DVBACERT ;;16541319
|
|
DVBACMRP ;;14742419
|
|
DVBACRMS ;;8195822
|
|
DVBACRRP ;;6672179
|
|
DVBACRRR ;;7192044
|
|
DVBADSCK ;;11427543
|
|
DVBADSNT ;;14580376
|
|
DVBADSR1 ;;3955541
|
|
DVBADSRP ;;14116837
|
|
DVBADSRT ;;11545161
|
|
DVBADXFR ;;5748263
|
|
DVBAEDIT ;;9839591
|
|
DVBAENVR ;;5167682
|
|
DVBAERMK ;;822652
|
|
DVBAFINL ;;5664221
|
|
DVBAI001 ;;3984946
|
|
DVBAI002 ;;7866078
|
|
DVBAI003 ;;9465736
|
|
DVBAI004 ;;9426448
|
|
DVBAI005 ;;9168773
|
|
DVBAI006 ;;9757793
|
|
DVBAI007 ;;9844024
|
|
DVBAI008 ;;9414143
|
|
DVBAI009 ;;9305581
|
|
DVBAI00A ;;9714050
|
|
DVBAI00B ;;9020543
|
|
DVBAI00C ;;9205465
|
|
DVBAI00D ;;9275269
|
|
DVBAI00E ;;10702094
|
|
DVBAI00F ;;9264996
|
|
DVBAI00G ;;9888686
|
|
DVBAI00H ;;8631990
|
|
DVBAI00I ;;2666346
|
|
DVBAI00J ;;8624033
|
|
DVBAI00K ;;11375562
|
|
DVBAI00L ;;9023586
|
|
DVBAI00M ;;3654681
|
|
DVBAI00N ;;8288884
|
|
DVBAI00O ;;1499139
|
|
DVBAI00P ;;8500746
|
|
DVBAI00Q ;;9547260
|
|
DVBAI00R ;;11396004
|
|
DVBAI00S ;;10868518
|
|
DVBAI00T ;;9805564
|
|
DVBAI00U ;;8802965
|
|
DVBAI00V ;;7168357
|
|
DVBAI00W ;;9596589
|
|
DVBAI00X ;;10329148
|
|
DVBAI00Y ;;8702207
|
|
DVBAI00Z ;;9399915
|
|
DVBAI010 ;;3326017
|
|
DVBAI011 ;;3708388
|
|
DVBAI012 ;;1579336
|
|
DVBAI013 ;;8361562
|
|
DVBAI014 ;;1684479
|
|
DVBAI015 ;;7142274
|
|
DVBAI016 ;;7573161
|
|
DVBAI017 ;;4202819
|
|
DVBAI018 ;;6043854
|
|
DVBAI019 ;;1963020
|
|
DVBAI01A ;;4682695
|
|
DVBAI01B ;;8066247
|
|
DVBAI01C ;;8472098
|
|
DVBAI01D ;;6719976
|
|
DVBAI01E ;;7549877
|
|
DVBAI01F ;;6406205
|
|
DVBAI01G ;;9927999
|
|
DVBAI01H ;;11184873
|
|
DVBAI01I ;;10454297
|
|
DVBAI01J ;;11118349
|
|
DVBAI01K ;;7304944
|
|
DVBAI01L ;;7088947
|
|
DVBAI01M ;;8609341
|
|
DVBAI01N ;;23872670
|
|
DVBAI01O ;;12878748
|
|
DVBAI01P ;;16144162
|
|
DVBAI01Q ;;15894662
|
|
DVBAI01R ;;13555576
|
|
DVBAI01S ;;10109941
|
|
DVBAI01T ;;8315375
|
|
DVBAI01U ;;7822572
|
|
DVBAI01V ;;8807572
|
|
DVBAI01W ;;8780467
|
|
DVBAI01X ;;9786334
|
|
DVBAI01Y ;;7073206
|
|
DVBAI01Z ;;8706653
|
|
DVBAI020 ;;8048446
|
|
DVBAI021 ;;7564126
|
|
DVBAI022 ;;9900450
|
|
DVBAI023 ;;9894542
|
|
DVBAI024 ;;5713031
|
|
DVBAI025 ;;4951735
|
|
DVBAI026 ;;3222134
|
|
DVBAINI1 ;;5770759
|
|
DVBAINI2 ;;5232529
|
|
DVBAINI3 ;;16092457
|
|
DVBAINI4 ;;3357701
|
|
DVBAINI5 ;;1903353
|
|
DVBAINIS ;;2207479
|
|
DVBAINIT ;;11258137
|
|
DVBAL ;;3279129
|
|
DVBALD ;;1530456
|
|
DVBALD1 ;;4391960
|
|
DVBANT21 ;;698454
|
|
DVBAO001 ;;6460949
|
|
DVBAO002 ;;4296819
|
|
DVBAONI1 ;;1696470
|
|
DVBAONI2 ;;82755
|
|
DVBAONI3 ;;10576517
|
|
DVBAONIT ;;991575
|
|
DVBAORPH ;;3955878
|
|
DVBAPADD ;;3497529
|
|
DVBAPB1 ;;17920740
|
|
DVBAPBDY ;;2080048
|
|
DVBAPCXR ;;54860
|
|
DVBAPEND ;;6684165
|
|
DVBAPK1 ;;8583019
|
|
DVBAPK2 ;;6721462
|
|
DVBAPK3 ;;9969058
|
|
DVBAPK4 ;;7382410
|
|
DVBAPK5 ;;20407396
|
|
DVBAPK6 ;;3832227
|
|
DVBAPK7 ;;13981008
|
|
DVBAPK8 ;;6707125
|
|
DVBAPK9 ;;14020154
|
|
DVBAPKY ;;3837287
|
|
DVBAPL1 ;;4046552
|
|
DVBAPL10 ;;6712841
|
|
DVBAPL2 ;;7267685
|
|
DVBAPL3 ;;7327937
|
|
DVBAPL4 ;;2566783
|
|
DVBAPL5 ;;6525199
|
|
DVBAPL6 ;;6047068
|
|
DVBAPL7 ;;5890852
|
|
DVBAPL8 ;;6021230
|
|
DVBAPL9 ;;2474407
|
|
DVBAPLL ;;7328205
|
|
DVBAPLNG ;;3091129
|
|
DVBAPND1 ;;10210532
|
|
DVBAPOK1 ;;160506
|
|
DVBAPOKY ;;3153890
|
|
DVBAPOP2 ;;5414428
|
|
DVBAPOPU ;;2122566
|
|
DVBAPOST ;;7636342
|
|
DVBAPRE ;;2020496
|
|
DVBAPS1 ;;976623
|
|
DVBAPST1 ;;821822
|
|
DVBAPST3 ;;6045742
|