| 1 | XPDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52
|
|---|
| 2 | ;;8.0;KERNEL;;JUL 10, 1995
|
|---|
| 3 | ;;7.2;JUL 10, 1995@09:24:52
|
|---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
|---|
| 5 | 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")
|
|---|
| 6 | ;
|
|---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
|---|
| 8 | 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),!
|
|---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
|---|
| 10 | W ! G CONT
|
|---|
| 11 | ROU ;;
|
|---|
| 12 | XLFDT ;;2542000
|
|---|
| 13 | XLFDT1 ;;1537932
|
|---|
| 14 | XPDCOM ;;2213245
|
|---|
| 15 | XPDCOMG ;;8382178
|
|---|
| 16 | XPDCPU ;;6564663
|
|---|
| 17 | XPDDCS ;;3052685
|
|---|
| 18 | XPDDI ;;7059710
|
|---|
| 19 | XPDDP ;;11284516
|
|---|
| 20 | XPDE ;;12998234
|
|---|
| 21 | XPDET ;;3688528
|
|---|
| 22 | XPDGCDEL ;;2818026
|
|---|
| 23 | XPDH ;;2594827
|
|---|
| 24 | XPDI ;;13967703
|
|---|
| 25 | XPDIA ;;6914717
|
|---|
| 26 | XPDIA1 ;;4945908
|
|---|
| 27 | XPDID ;;2414499
|
|---|
| 28 | XPDIGP ;;6457099
|
|---|
| 29 | XPDIJ ;;14331384
|
|---|
| 30 | XPDIK ;;10629573
|
|---|
| 31 | XPDIL ;;10081002
|
|---|
| 32 | XPDIL1 ;;6175748
|
|---|
| 33 | XPDIN001 ;;8911225
|
|---|
| 34 | XPDIN002 ;;12264533
|
|---|
| 35 | XPDIN003 ;;8357402
|
|---|
| 36 | XPDIN004 ;;8061968
|
|---|
| 37 | XPDIN005 ;;10022912
|
|---|
| 38 | XPDIN006 ;;9558156
|
|---|
| 39 | XPDIN007 ;;8115613
|
|---|
| 40 | XPDIN008 ;;9140117
|
|---|
| 41 | XPDIN009 ;;3471847
|
|---|
| 42 | XPDIN00A ;;9058285
|
|---|
| 43 | XPDIN00B ;;7976280
|
|---|
| 44 | XPDIN00C ;;6944309
|
|---|
| 45 | XPDIN00D ;;6861764
|
|---|
| 46 | XPDIN00E ;;3155079
|
|---|
| 47 | XPDIN00F ;;921211
|
|---|
| 48 | XPDIN00G ;;6183213
|
|---|
| 49 | XPDIN00H ;;5691661
|
|---|
| 50 | XPDIN00I ;;6023617
|
|---|
| 51 | XPDIN00J ;;5774284
|
|---|
| 52 | XPDIN00K ;;5839595
|
|---|
| 53 | XPDIN00L ;;8152412
|
|---|
| 54 | XPDIN00M ;;7714345
|
|---|
| 55 | XPDIN00N ;;6424156
|
|---|
| 56 | XPDIN00O ;;5629359
|
|---|
| 57 | XPDIN00P ;;6001373
|
|---|
| 58 | XPDIN00Q ;;5487755
|
|---|
| 59 | XPDIN00R ;;5781258
|
|---|
| 60 | XPDIN00S ;;5743958
|
|---|
| 61 | XPDIN00T ;;3809597
|
|---|
| 62 | XPDINIT ;;10210170
|
|---|
| 63 | XPDINIT1 ;;4893932
|
|---|
| 64 | XPDINIT2 ;;5232647
|
|---|
| 65 | XPDINIT3 ;;16808120
|
|---|
| 66 | XPDINIT4 ;;3357819
|
|---|
| 67 | XPDINIT5 ;;460403
|
|---|
| 68 | XPDIP ;;7105579
|
|---|
| 69 | XPDIPM ;;1889333
|
|---|
| 70 | XPDIQ ;;6649770
|
|---|
| 71 | XPDIR ;;2209857
|
|---|
| 72 | XPDIST ;;2343711
|
|---|
| 73 | XPDIU ;;5987197
|
|---|
| 74 | XPDKEY ;;1267561
|
|---|
| 75 | XPDKRN ;;818184
|
|---|
| 76 | XPDMENU ;;1676349
|
|---|
| 77 | XPDPINIT ;;223513
|
|---|
| 78 | XPDR ;;12193352
|
|---|
| 79 | XPDRSUM ;;1331254
|
|---|
| 80 | XPDT ;;13681675
|
|---|
| 81 | XPDTA ;;5532717
|
|---|
| 82 | XPDTA1 ;;4346384
|
|---|
| 83 | XPDTC ;;8576205
|
|---|
| 84 | XPDTP ;;2581228
|
|---|
| 85 | XPDUTL ;;2317236
|
|---|
| 86 | XPDV ;;6960037
|
|---|
| 87 | XQDATE ;;1632193
|
|---|
| 88 | XQH ;;8451889
|
|---|
| 89 | XQOO ;;19407312
|
|---|
| 90 | XQOO1 ;;11594948
|
|---|
| 91 | XQOO2 ;;6850745
|
|---|
| 92 | XQOO3 ;;8090117
|
|---|
