source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBNTEG.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1DVBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 25, 1992@09:51:03
2 ;;V4.0;HINQ;;03/25/92
3 ;;6.5;MAR 25, 1992@09:51:03
4 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
5CONT 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")
6 ;
7 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
8ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
9 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
10 W ! G CONT
11ROU ;;
12DVBHDBA1 ;;3618906
13DVBHDBA2 ;;2952132
14DVBHDBA3 ;;3226832
15DVBHDBA4 ;;3623191
16DVBHDBA5 ;;2638381
17DVBHDBA6 ;;2983861
18DVBHDBA7 ;;3157275
19DVBHDBA8 ;;2379352
20DVBHDBA9 ;;4387903
21DVBHDBAA ;;1743065
22DVBHDBAB ;;1007422
23DVBHDEL ;;897481
24DVBHIQD ;;6668555
25DVBHIQM ;;14601698
26DVBHIQR ;;6262333
27DVBHPOST ;;8232971
28DVBHPRE ;;1783258
29DVBHQAT ;;6537951
30DVBHQD1 ;;9640742
31DVBHQDB ;;12297023
32DVBHQDE ;;7853833
33DVBHQDL ;;7212620
34DVBHQDX ;;11822890
35DVBHQEDT ;;13716602
36DVBHQM1 ;;14464580
37DVBHQM11 ;;8434097
38DVBHQM12 ;;10375860
39DVBHQM13 ;;8390107
40DVBHQM2 ;;20560819
41DVBHQM3 ;;10338804
42DVBHQM31 ;;10632399
43DVBHQM4 ;;4686028
44DVBHQPU ;;5121294
45DVBHQR1 ;;8418660
46DVBHQR11 ;;9734929
47DVBHQR12 ;;5377832
48DVBHQR13 ;;6852554
49DVBHQR2 ;;8333922
50DVBHQR3 ;;3726649
51DVBHQREC ;;5084413
52DVBHQSE ;;7445429
53DVBHQST ;;9098525
54DVBHQTM ;;5113401
55DVBHQUE ;;5073709
56DVBHQUP ;;14368940
57DVBHQUS ;;8079833
58DVBHQUT ;;5248596
59DVBHQZ4 ;;7509870
60DVBHQZ6 ;;15543725
61DVBHS1 ;;1475623
62DVBHS2 ;;5333780
63DVBHS3 ;;3559998
64DVBHS4 ;;3428933
65DVBHS5 ;;5250790
66DVBHS6 ;;2642453
67DVBHSVER ;;9181903
68DVBHUTIL ;;9342310
69DVBIN001 ;;3365243
70DVBIN002 ;;7692550
71DVBIN003 ;;8342131
72DVBIN004 ;;7515245
73DVBIN005 ;;8055497
74DVBIN006 ;;1873787
75DVBIN007 ;;5620543
76DVBIN008 ;;3206607
77DVBIN009 ;;1945140
78DVBIN010 ;;4778571
79DVBIN011 ;;1853448
80DVBIN012 ;;8631962
81DVBIN013 ;;8173229
82DVBIN014 ;;1834275
83DVBIN015 ;;12053863
84DVBIN016 ;;846224
85DVBIN017 ;;6294373
86DVBIN018 ;;5747007
87DVBIN019 ;;1688944
88DVBIN020 ;;5726405
89DVBIN021 ;;16129315
90DVBIN022 ;;18992446
91DVBIN023 ;;16173038
92DVBIN024 ;;11261813
93DVBIN025 ;;13300498
94DVBIN026 ;;9085088
95DVBIN027 ;;7015511
96DVBIN028 ;;6373764
97DVBIN029 ;;6253702
98DVBIN030 ;;6828524
99DVBIN031 ;;6571483
100DVBIN032 ;;5575661
101DVBIN033 ;;3867268
102DVBINIT ;;9249472
103DVBINIT0 ;;990418
104DVBINIT1 ;;5414976
105DVBINIT2 ;;4338405
106DVBINIT3 ;;10014702
Note: See TracBrowser for help on using the repository browser.